Selamat sore gaess

Beberapa waktu download source code dari group vb.net di facebook. Saya tertarik dengan letak menunya yang ada di samping, bukan diatas. Setelah saya bedah source codenya, ternyata form child-nya di load di panel. Nah, saya kurang tahu apakah bisa meload form di frame, Setahu saya biasanya form diload di picture box, tapi saya lupa caranya. Akhirnya saya browsing-browsing lagi dan alhamdulilah menemukan kepingan source code yang dulu pernah saya baca.

Bahan Baku

form1
      -- Picture Box, name ="picture1 "
      -- Command Button 1, name="Command1"
      -- Command Button 2, name="Command2"
form 2
      -- Label, name "Label1"
form 3
      -- Label, name "Label1"

Setelah bahan bakunya disiapkan, saatnya kita olah menjadi suatu aplikasi. Langkahnya sebagai berikut:

1.  Rangkai komponen-komponen di  form 1 seperti gambar berikut:

 

2.  Setting Form2

     set Form Border Style = 0 None

     label 1 Caption = "INI ADALAH FORM 2" 

3. Setting Form 3

     set Form Border Style = 0 None

     label 1 Caption = "INI ADALAH FORM 3" 

4. Kembali ke Form 1, tuliskan mantra berikut ini:

source code ini hasil modifikasi dari : http://www.vbforums.com/showthread.php?545636-Load-a-form-into-a-frame

Menulis untuk mengingat.

Selamat Sore gaess. Sore ini saya mau mencatat source code lama saya tentang convert flexgrid ke excel dengan Visual basic 6.

Pertama-tama kamu harus memasukkan komponen excel ke reference. FYI, saya menggunakan office 2007. Nama komponennya berbeda kalau kau menggunakan versi office yang lain, tetapi cara memasukkannya sama.

1. Buka Visual basic 6  
2. Klik Project->refferences
3. Klik Browse, rubah FileofType pilih ALL FILES(*.*)
   kemudian arahkan ke folder "C:\Program Files(x86)\Microsoft Offices\Office12\EXCEL.EXE"
4. Kamu akan melihat "Microsoft Excel 12.0 Object Library" di references

Sekarang kita siapkan bahan-bahannya:
Buat Form baru, lalu masukkan object berikut:

1. Flexgrid, name: fgdata
2. Command Button, name: cmdConvertExcell 
3. Rangkai bahan-bahan tersebut seperti dibawah ini:

  4. Masukkan Data Dummies saat form load seperti berikut ini:

      Private Sub Form_Load()
        With fgdata
           .Rows = 50
        .   Cols = 2
            For i = 1 To fgdata.Rows - 1
                  fgdata.TextMatrix(i, 1) = i
             Next i
           End With
      End Sub
 5. Masukkan Mantra pengkopi flexgrid ke Excel seperti dibawah ini

Tahun ini adalah tahun yang sangat berat bagi para pelaku usaha. Menurut Rheinald Kasali, saat ini tengah terjadi suatu disruption atau disrupsi. 

Era disrupsi terjadi ketika suatu inovasi baru dari suatu kelompok datang  dan memberikan perubahan  yang cukup besar pada pasar. Perubahan ini biasanya mengakibatkan hal negative pada kelompok lain yang terdampak. Sebagai contoh adalah inovasi ojek daring yang menggerus pasar ojek tradisional dan memicu konflik berkepanjangan. 

Era disrupsi tidak hanya terjadi pada bisnis  ojek semata. Seiring berkembangnya teknologi memicu perubahan perilaku pada masyarakat. Di bidang retail misalnya, sekarang banyak sekali aplikasi marketplace yang mulai menggerus traksaksi tradisional.

Bidang Sistem Informasi Rumah Sakit juga terdampak era disrupsi, dipicu dengan perubahan besar pada sistem aplikasi SEP BPJS yang sebelumnya menggunakan sistem desktop beralih ke web base yang kita kenal dengan nama VCLAIM. Kemudian perubahan regulasi sistem rujukan yang menggunakan sistem rujukan berjenjang. Membuat rumah sakit – rumah sakit tipe B yang kehilangan sebagian besar pasien BPJS. Sedangkan rumah sakit tipe C dan D yang belum sempat mempersiapkan infrastrukur dan aplikasi yang mumpuni untuk menangani transaksi yang besar juga banyak yang mengalami kesulitan dalam proses antrian dan pendaftaran.

LAWAN INOVASI DENGAN INOVASI

Satu-satunya cara melawan dan bertahan dalam era disrupsi adalah dengan melakukan inovasi. Melawan inovasi dengan inovasi lain. Karena kita tidak bisa membendung keinginan orang lain untuk berinovasi. Seperti yang dilakukan RSUD KRMT Wonsonegoro (RSWN).  Inovasi-inovasi dilakukan di berbagai bidang. Terutama inovasi dalam pelayanan dan Sistem Informasi Rumah Sakit.  Hal ini dilakukan untuk menarik minat pasien yang tidak mengunakan BPJS atau lebih dikenal dengan nama pasien umum untuk datang dan berobat ke rumah sakit. Seperti yang kita tahu, pasien rumah sakit pemerintah daerah biasanya didominasi oleh pasien asuransi BPJS. Selain itu image yang sudah terlanjur ada di masyarakat tentang pelayanan di rumah sakit pemerintah yang kurang baik mungkin masih terngiang hingga sekarang. Padahal sudah sejak lama rumah sakit-rumah sakit pemerintah, terutama RSWN berusaha merubah image masyarakat tersebut. RSUD KRMT Wonsonegoro (RSWN) adalah rumah sakit negeri dengan pelayanan kelas swasta. Salah satu bukti perbaikan pelayanan publik adalah RSUD KRMT Wonsonegoro (RSWN) mendapat predikat sangat baik dari Kementrian Pendayagunaan Aparatur Negara dan Reformasi Birokrasi.

Dari sisi Sistem Informasi Rumah Sakit,RSUD KRMT Wonsonegoro (RSWN) mulai mengembangkan sistem less paper dalam aplikasi sistem informasi rumah sakit. Seperti yang kita tahu, dokumen-dokumen pasien ada banyak sekali, mulai dari pendaftaran, resep, lembar konsul, resume dan lain sebagainya. Dengan beralih ke less paper, penggunaan kertas dalam pelayanan semakin dikurangi, sehingga bisa memangkas pengeluaran Rumah Sakit tanpa mengorbankan kualitas pelayanan.

Aplikasi Sistem Informasi RSUD KRMT Wonsonegoro (RSWN) telah mengalami evolusi yang cukup besar. Pengembangan pendaftaran online, Resume Elektronik, E-Resep, Penjadwalan Operasi Elektronik, Hasil Operasi Elektronik, Konsul Ruangan Elektronik, Catatan Terintegrasi Elektronik hingga sistem pertukaran data/bridging dengan instansi-instansi terkait (Dinkes Kota, Dinkes Prov, Kemkes, BPJS dll).

Aplikasi Catatan Terintegrasi versi Web base

Sebagai salah satu programmer SIMRS RSUD KRMT Wonsonegoro (RSWN), aku juga ingin memberikan inovasi baru yang bisa memudahkan pengguna/user dan memberikan nilai positif bagi Rumah Sakit. Inovasi yang ada dalam angan-anganku adalah membuat aplikasi Catatan Terintegrasi versi web base. Saat ini kami sudah mengembangkan sistem Catatan Terintegrasi namun dalam versi desktop. 

 

Aplikasi Desktop vs Aplikasi Web Base

Aplikasi desktop adalah aplikasi yang berbentuk file binary (ekstensi .exe), aplikasi ini berjalan mandiri tidak harus melalui software tertentu. Kelebihan aplikasi ini adalah kemampuannya dalam berinteraksi dengan hardware komputer. Sehingga dapat berjalan lebih maksimal. Sedangkan aplikasi web base adalah aplikasi yang dibangun dengan teknologi web. Sebenarnya aplikasi web berjalan di sisi server, meski akhirnya dengan perkembangan teknologi yang makin pesat, aplikasi web base bisa berjalan di sisi client. Namun untuk berjalan aplikasi web base membutuhkan browser. Browser yang bertugas menterjemahkan logika pemrograman ke user.
Karena aplikasi web base sebenarnya tidak berjalan sendiri, maka aplikasi web base memiliki keterbatasan dalam akses hardware. Kelebihan dari aplikasi web base adalah portabilitasnya. Aplikasi web base bisa dijalankan di device manapun asalkan terkoneksi dengan jaringan/internet dan memiliki web browser.

Catatan Terintegrasi

Mungkin banyak yang belum tahu catatan terintegrasi itu apa. Catatan terintegrasi adalah catatan medis pasien yang ditulis oleh semua pemeriksa pasien sesuai dengan pemeriksaan yang mereka lakukan. Dengan melihat Catatan Terintegrasi, dokter, perawat, ahli gizi dan apoteker bisa melihat/membaca riwayat/catatan pemeriksaan yang sudah dilakukan sesuai urutan waktu. Catatan Terintegrasi memudahkan para pelaku tindakan medis untuk melakukan monitoring dan evaluasi pasien.

Kelebihan Catatan Terintegrasi versi Web Base

Seperti yang sudah aku jelaskan diatas. Aplikasi catatan terintegrasi di tempat kami saat ini masih aplikasi desktop. Untuk mengisi  Catatan Terintegrasi  pemeriksa memeriksa pasien terlebih dahulu kemudian baru datang ke ruang administrasi untuk memasukkan data pemeriksaan. Dengan adanya aplikasi berbasis web base, pemeriksa bisa memasukkan data ke aplikasi simrs secara langsung pada saat pemeriksa melakukan pemeriksaan ke pasien.


Pengembangan aplikasi berbasis dekstop dengan aplikasi berbasis web base memiliki perbedaan yang cukup signifikan. Untuk membuat aplikasi web base yang bisa terlihat bagus dimana (layar) saja, aku membutuhkan device yang mumpuni juga. Yang agak merepotkan menurutku ketika kita harus melakukan testing tampilan di mode desktop atau mobile. Apalagi kalau nantinya aplikasi ini mau dikembangkan ke versi android. Minimal butuh laptop dengan prosesor core I5 dan ram minimal 9 GB.


Sebenarnya setiap browser sudah memiliki kemampuan ini, namun sayangnya tidak ada shorcut khusus ke menu ini, jadi masih harus banyak klik yang tentu saja memecah konsentrasi. Beberapa bulan yang lalu aku pernah mendengar Asus sedang mengembangkan teknologi screenpad. Namun sayang belum ada kepastian kapan akan diluncurkan dan apakah akan dijual sebagai pheriperal atau sebagai bagian dari laptop premiumnya. Menurutku screenpad ini sangat menarik, dengan bentang layar sebesar 5 inchi, screenpad bisa dijadikan sebagai emulator handphone.

ASUS Year End Microsoft Blogger Gathering

Hari Sabtu tanggal 15 Desember 2018 lalu aku dan teman-teman blogger semarang diundang untuk mengikuti event Asus Year End Microsoft Blogger Gathering. Alhamdulilah anak-anak mau dititipkan, akhirnya aku bisa ikut acara bareng istriku. Disana kami diperkenalkan dengan Asus ZENBOOK PRO 15 UX580 oleh Mas Yahya Kurniawan. Mas Yahya seorang penulis buku komputer yang lumayan aktif. Kalau berbicara tentang keunggulan Asus ZENBOOK PRO 15 UX580. Maka semua yang ada dalam laptop Asus ini adalah keunggulan. Mulai dari body, design, spesifikasi hingga teknologi yang digunakan pun semuanya unggul. Yang paling membuatku bahagia adalah terjawabnya pertanyaan yang tidak pernah kulontarkan ke ASUS, apakah screenpad akan diluncurkan sebagai pheriperal atau satu bagian dengan laptop premium ASUS. Lewat acara ini aku jadi tahu, ternyata ASUS mengeluarkan screenpad sebagai bagian dari laptop premiumnya, yaitu ASUS ZENBOOK PRO 15 UX580.

ASUS ZENBOOK PRO 15 UX580

 

ASUS ZENBOOK PRO 15 UX580 adalah produk premium dari ASUS. Laptop ini merupakan Laptop pertama di dunia yang menggunakan dua layar dengan spesifikasi tingkat dewa. Layar utama menggunakan resolusi 4K, sedangkan layar kedua menggunakan resolusi full HD.

Sehari setelah acara ASUS Year End Microsoft Blogger Gathering aku sempat berdiskusi dengan temanku yang punya kemampuan lebih dalam menerawang hardware. Dia itu mirip paranormal tapi dalam versi pengetahuan hardware computer.  Menurut temanku Asus ZENBOOK PRO 15 UX580 memiliki  nilai gamut yang tinggi. Dengan kemampuan itu reproduksi warna di ASUS ZENBOOK PRO 15 UX580 sangat akurat. 

SCREENPAD, touch pad multifungsi kekinian

 

ASUS ZENBOOK PRO 15 UX580 adalah laptop pertama didunia yang menggunakan dua layar.  Layar pertama adalah layar utama dengan resolusi 4K, sedangkan layar kedua adalah layar 5 inchi dengan resolusi full HD.

ASUS ZENBOOK PRO 15 UX580 membuat inovasi yang benar-benar dasyat dan mengguncang dunia IT, yaitu Screenpad
.

Screenpad adalah sebuah inovasi pengganti  touchpad. Screenpad berfungsi layaknya touchpad, namun juga bisa difungsikan untuk hal-hal yang lain. Berikut ini beberapa keunggulan/fungsi screenpad 

1.       TOUCH PAD

 

Screenpad yang terpasang pada laptop ASUS ZENBOOK PRO UX580 sebenarnya adalah touchpad. Sebagaimana sebuah touchpad,  Screenpad memiliki fitur-fitur touchpad kekinian seperti mendeteksi sentuhan satu jari, dua jari, ketukan, belaian, atau tarikan.  

2.       LAYAR KEDUA

Selain sebagai touchpad, Screenpad juga bisa digunakan sebagai layar kedua. Kamu bisa menggunakannya seperti kalau kamu menggunakan fitur dua layar. Kamu bisa menggunakan mode extended atau mode copy.

Bedanya apa sih?

Mode copy artinya tampilan di layar utama diduplikasi di layar kedua, sedangkan mode extended berarti layar kedua adalah kepanjangan atau sambungan dari layar pertama.

Mode extended ini sangat aku butuhkan dalam design web. FYI Proses koding web base application membutuhkan dua alat kerja. Yang pertama adalah IDE (integrate Development Environment), yaitu aplikasi yang digunakan untuk menulis program. Dan yang kedua adalah browser untuk meload/melihat hasil jadi aplikasi.

Kalau hanya memakai satu layar, aku harus bergantian melihat tampilannya. Dengan fasilitas dua layar dari ASUS ZENBOOK PRO 15 UX580, proses pembuatan aplikasi akan lebih efisien.
IDE dibuka dan proses pembuatan aplikasi dilakukan di layar utama, kemudian layar kedua untuk melihat hasil jadi aplikasi.

3. PEMUTAR MUSIK 

 

Hampir semua orang pasti suka mendengarkan musik sambil bekerja. Apalagi kalau kamu bekerja di insdustri kreatif. Musik memperkaya dan menjaga mood kita untuk bekerja lebih produktif dan kreatif. Dengan Screenpad, aktifitas memutar lagi menjadi lebih mudah dan menyenangkan. Kamu tidak perlu menutup sebagian aplikasi di layar utama. Cukup lewat Screenpad, kamu bisa memilih dan memutar lagu kesukaanmu.

4. KALKULATOR

Fungsi kecil tapi manfaatnya besar. Suatu saat kita pasti akan berada pada posisi dimana kita membutuhkan kalkulator, tapi malas mengambil handphone. Mau membuka excel tapi ternyata yang kita butuhkan hanya perhitungan biasa. 

5.       KALENDER

Screenpad juga memiliki fungsi kalender. Selayaknya kalender pintar, Kalender di Screenpad bisa menampilkan daftar kegiatan atau schedule milik kita. Syaratnya kamu harus punya akun outlook. karena Screenpad Kalendar menggunakan aplikasi Windows Calendar.

6. NUMKEY 

Screenpad juga bisa berfungsi sebagai numkey. Sering kali aku harus mengevaluasi transaksi harian yang jumlahnya ribuan, numkey ini sangat berguna bagiku dan juga mungkin bagi emak-emak dan bos-bos diluar sana.

7.       APPLICATION LAUNCHER

Kalau kamu menggunakan handphone android pasti sudah mengenal application launcher. Screenpad juga bisa digunakan sebagai application launcher seperti di handphone kamu. bedanya aplikasinya nggak muncul di layar handphone, tetapi aplikasi akan muncul di layar utama laptop.

8.       CUSTOMIZED MENU BASE ON APPLICATION.

Screenpad bisa menampilkan beragam menu sesuai dengan aplikasi yang kita buka. Misalnya kita sedang membuka Microsoft Word. Screenpad akan menampilkan menu-menu yang mempermudah kita dalam menggunakan Microsoft Word. Kemudian kalau kita menggunakan Microsoft Powerpoint. Menu yang tampil di Screenpad akan menyesuaikan.

9. SETTING

Screenpad bisa kamu setting sesuai dengan keinginanmu. Ada banyak hal yang bisa kamu setting disini. 

10.       Programmable

Ini fitur yang menurut aku sangat-sangat keren. Screenpad ini memiliki api. Kita bisa ikut mengembangkan aplikasi untuk menambah kemampuan Screenpad. Sebagai programmer cupu, aku sangat senang sekali dengan fitur ini.

Teknologi Screenpad ASUS ZENBOOK PRO 15 UX580 bukan sekedar laptop canggih. Lebih dari itu. Screenpad ASUS ZENBOOK PRO 15 UX580 adalah asisten pribadi. Kalau kamu ingin punya asisten pribadi yang bening tapi takut istri atau pacarmu marah, kamu bisa membeli ASUS ZENBOOK PRO 15 UX580 ini.

TINGKATKAN KREATIVITAS TANPA BATAS

 

Asus ZENBOOK PRO 15 UX580 menggunakan body berbahan metal dan sudah mengantongi sertifikat standart militer MIL STD-810G. Asus ZENBOOK PRO 15 UX580 telah lolos dalam berbagai pengujian ekstrem seperti  test ketinggian, test suhu dan lain sebagainya. Bentuknya sangat elegan dan ringkas, dengan ketebalan hanya 18,9 mm dan bobot yang hanya 1.88 kg, Asus ZENBOOK PRO 15 UX580 cukup ringkas dan mudah dibawa kemana-mana.

Asus ZENBOOK PRO 15 UX580 dirancang untuk para profesional , terutama di industri kreatif seperti 3D designer, video editing, photografer, web designer, programmer.  Laptop ASUS ZENBOOK PRO 15 UX580 punya segudang fitur dan fasilitas untuk menunjang pekerjaan mereka karena layar 4K ASUS ZENBOOK PRO 15 UX580 mampu mereproduksi warna dengan akurat.

 ZENBOOK PRO 15 UX580 menggunakan layar dengan resolusi sebesar 4K UHD (3840x2160 pixel) dengan tingkat kecerahan 400 nits. Tingkat reproduksi warna Adobe RGB hingga 100% dan Delta E < 2. Artinya, warna yang dihasilkan di layar ZenBook Pro UX580 sangat realistis dan mendekati aslinya.

Laptop ZENBOOK PRO 15 UX580 menggunakan tenaga penggerak prosesor Intel Core i7-8750H, kartu grafis yang digunakan adalah Nvidia GeForce GTX 1050. ASUS ZENBOOK PRO 15 UX580 memiliki RAM sebesar 16 GB dan penyimpanan internal  M.2 NVMe PCIe SSD sebesar 1TB. Dari komponen-komponen diatas sudah menunjukkan kalau ASUS ZENBOOK PRO 15 UX580 ini bukan laptop biasa.

ASUS ZENBOOK PRO 15 UX580 dirancang untuk mobilitas tinggi. ASUS ZENBOOK PRO 15 UX580 didukung oleh battery lithion Ion 8-cell yang mampu memasok daya hingga 9.5 jam yang sudah didukung dengan teknologi fast charging. Tersedia juga dual-band 802.11ac gigabit-class Wi-Fi serta Bluetooth 5.0 untuk menunjang konektivitas.  ASUS juga menyediakan USB to LAN port dongle agar bisa terhubung ke jaringan melalui kabel.


Sebenarnya kalau boleh jujur, ASUS ZENBOOK PRO 15 UX580 dengan Screenpadnya sudah melakukan disrupsi di bidang hardware komputer. Mari kita lihat bersama, apakah ada vendor laptop lain yang akan melakukan inovasi yang lebih bagus dari ASUS ZENBOOK PRO 15 UX580

SPESIFIKASI LENGKAP ASUS ZENBOOK PRO 15 UX580

Main Spec.
CPU	Intel Core i7 8750H Processor Hexa Core (9M Cache, up to 4.1GHz)
Operating System	Windows 10
Memory	16GB DDR4 2400MHz SDRAM
Storage	1TB M.2 NVMe PCIe SSD
Display	15,6” (16:9) 4K UHD (1920x1080) PANTONE validated with NanoEdge Display
Graphics	Discrete graphics Nvidia GeForce GTX 1050 4GB GDDR5 VRAM Integrated Intel UHD Graphics 630
Input/Output	2 x USB3.1 Type-C (GEN 2) with Thunderbolt 3 support, 2x USB 3.1 port (Gen 2), 1 x HDMI, 1 x Microphone-in/Headphone-out jack, 1 x MicroSD Card Reader
Camera	VGA Web Camera
Connectivity	Dual-band 802.11ac gigabit-class Wi-Fi, Bluetooth 5.0
Audio	Harman Kardon certified audio system with ASUS SonicMaster surround-sound technology, Array microphone with Cortana voice-recognition support
CPU	Intel Core i7 8750H Processor Hexa Core (9M Cache, up to 4.1GHz)
Battery	71Wh 8-cell lithium-polymer battery up to 9.5 hours battery life
Dimension	(WxDxH) 365 x 241 x 189 mm
Weight	1,88Kg with Battery
Colors	Deep Dive Blue
Price	Rp35.999.000
Warranty	2 tahun garansi global

BPJS lumayan sering mengupdate sistemnya sesuai dengan alur dan teknologi yang mereka inginkan. Dan kita sebagai pengembang SIMRS faskes harus mampu beradaptasi dengan sistemdikembangkan oleh BPJS. Terhitung sudah 3x ini saya membuat artikel tentang bridging web API BPJS. Kalau teman-teman menemukan error, jangan segan2 menghubungi saya, siapa tahu ada perubahan dari API BPJS.

Sebelumnya saya juga meminta maaf kalau release source code ini agak lama. Terus terang dari pertengahan bulan kemarin agak sibuk dengan kodingan yang lain, sehingga koding bridging ini gak terbengkalai. Padahal kemarin sempat di deadline BPJS tanggal 15 September harus sudah UAT. Untungnya kemarin dapat pemberitahuan dari IT BPJS kalau deadline diundur sampai tanggal 1 Oktober 2018.

Source code bridging ini sudah lumayan lengkap dan lebih lengkap dari source code bridging saya yang lalu. Dan kalau saya sempat akan saya lengkapi lagi sesuai dengan service-service web api BPJS yang sering dipakai atau dibutuhkan. 

Ditur-fitur source code ini masih sebatas pencarian data peserta, referensi dan create SEP. 

Perbedaan VCLAIM 1 dengan VCLAIM 1.1

HTTP to HTTPS

Perbedaan paling besar antara bridging VCLAIM versi 1 dengan versi 1.1 adalah penggunaan https di alamat url. Penggunaan https ini tentunya untuk membuat koneksi yang lebih aman antara RS dengan BPJS. Namun ada masalah tersendiri dengan penerapan https di web service BPJS. modul ssl di alamat dvlp bermasalah, sehingga akan muncul error you not authority saat kita mengaksesnya. Untuk mengatasi masalah ini kita tinggal menambahkan 1 baris perintah saja di koneksi winhttpnya. Perintahnya seperti berikut:

  "Option(WinHttpRequestOption_SslErrorIgnoreFlags) = 13056" 

NB. SSL BPJS sudah tidak error lagi, jadi script diatas tidak usah dipakai

No Rujukan

VCLAIM 1.1 mengharuskan norujukan selalu menyertai pendaftaran pasien rawat jalan. Kalau di vclaim versi 1, no rujukan cukup ditulis waktu pasien datang pertama kali, pada VCLAIM 1.1 no rujukan harus selalu ditulis. Gunanya untuk apa? Hanya Tuhan dan BPJS yang tahu.

No Kontrol

Setiap kedatangan ke-2, 3 dan seterusnya yang masih dalam 1 sesi rawat jalan, selain No Rujukan, faskes 2 juga wajib mengisi nokontrol. Panjang field no kontrol ini sudah ditentukan oleh BPJS yaitu 6 digit, harus angka dan unik (tidak boleh sama) dan direset setelah 1 bulan. Khusus untuk nokontrol rehab medik, no kontrol ini harus sama dalam 1 bulan. Tapi saya sudah konfirmasi dengan tim IT BPJS, karena jujur kalau disuruh membuat seperti itu saya agak kesulitan dan alhamdulilah, kata tim IT BPJS nokontrol rehab medik boleh beda-beda.

Dokumen-dokumen yang harus memiliki no kontrol adalah rujuk balik rumah sakit dan admission note.

No Suplesi

No Suplesi ini saya agak bingung juga menjelaskannya. No Suplesi biasanya digunakan untuk kasus KKL jasa raharja. Platform jaminan Jasa Raharja saat artikel ini dibuat sebesar 20 juta. Kalau penggunaan pasien kurang dari 20 juta. Pasien bisa datang lagi meneruskan perawatan yang kemarin. Untuk perawatan terusan ini, maka faskes 2 harus menyertakan No SEP awal/No SEP Suplesi untuk menandakan bahwa ini adalah perawatan terusan yang kemarin. Untuk mengecek riwayat kemungkinan adanya suplesi, BPJS menyediakan fitur pencarian potensi Suplesi.

Kode Propinsi, Kode Kabupaten, Kode Kecamatan Tempat Kejadian Laka Harus ambil dari Service BPJS

Menurut keterangan dari tim IT BPJS, fitur ini adalah permintaan dari Jasa Raharja, data propinsi, kabupaten dan kecamatan tempat Laka harus sesuai dengan kode wilayah yang dimiliki oleh Jasa Raharja.

Struktur Koding

Sebenarnya saya lagi pengen belajar konsep class/pemrograman berorientasi obyek. Terus terang sampai sudah setua ini saya masih belum mudeng alias belum paham tentang konsep pemrograman berorientasi obyek. Selain class yang dipakai untuk enkripsi dan memparsing json. Saya membuat 3 class untuk keperluan koding bridging ini.

 clssetting 

clssetting adalah class untuk menyimpan konfigurasi bridging BPJS. Sebelum menjalankan source code ini, data-data di class ini harus diisi terlebih dahulu.

    ConsID = "xxxx"
    SecretKey = "xxxxxxxx"
    urlWebService = "https://dvlp.bpjs-kesehatan.go.id/vclaim-rest/"
    NoPPK = "xxxxxx"
    NamaPPK = "RSUD KRMT WONGSONEGORO - KOTA SEMARANG"

SETTING SUDAH DIRUBAH KE DATABASE DI TABEL SETTING

 

CallWS

Terus terang saya ini termasuk programmer pemalas. Seorang pemalas pasti akan mencari cara yang bisa membuat pekerjaannya menjadi lebih simple. Class ini adalah bukti kemalasan saya, hanya karena ingin menyimpelkan pemanggilan yang tadinya tidak sampai 20han baris tapi saya tulis di semua koneksi (sebenarnya nggak ditulis, tapi di copy paste). sekarang saya sendirikan ke class tersendiri. Sebenarnya kalau teman-teman mau class ini bisa digabungkan dengan class vclaim.

vclaim

Class vclaim adalah class yang berisi modul-modul atau service-service web api BPJS. Semua service web api BPJS dikumpulkan disini. 

Daftar Service API VCLAIM BPJS Yang sudah dibuat di Source Code ini:

1. Pencarian Peserta by No Kartu

2. Pencarian Peserta by No NIK

3. Pencarian Peserta by No Rujukan

4. Pencarian Faskes

5. Pencarian Potensi Suplesi

6. Pencarian Diagnosa

7. Pencarian Dokter DPJP

8. Pencarian Wilayah

9. Create SEP

10. Detail SEP

11. Hapus SEP

Sementara baru service itu dulu yang dikover dan inyaAllah sudah cukup untuk membuat UAT dengan BPJS. Untuk service lain insyaAllah saya tambahkan kalau saya sudah lulus UAT :P

Struktur Menu

Referensi

      Cari Peserta

      Cari Faskes

      Cari Potensi Suplesi

      Diagnosa

      Dokter DPJP

      Wilayah

SEP

     Create SEP

     Detail SEP

     

sebagai bukti saya sertakan screenshot nih:

 

Cari Data Peserta

Pembuatan SEP

Detail SEP

DOWNLOAD

Sudah penasaran belum sama source codenya? Source codenya bisa diunduh di sini: 

  Klik disini untuk mendownload Source Code

 

NOTE: Status bridging ditempat saya masih dikembangkan dan belum live, kemungkinan bila sudah live ada perbendaan pada baris kode koneksi

Terima kasih sudah mampir, semoga bermanfaat

 

Assalamualaikum wr. wb

Ada kalanya kita harus menghubungkan aplikasi visual basic 6 kita dengan web service yang menggunakan https di URLnya. Https singkatan dari Hypertext Transfer Protocol Secure, yaitu ekstensi dari http. Protokol ini memberikan keamanan lebih dibandingkan dengan method http.

Di Visual Basic 6 ada 2 komponen yang sering digunakan untuk mengakses wes service. Yaitu winhttp dan xmlHttp, karena itu saya juga membuat 2 kod.

1. Dengan winhttp

dim req As WinHttp.WinHttpRequest
dim url as string
set req = New WinHttp.WinHttpRequest

  url = "someurl.com"
req.Open "GET", Url, False
  req.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = 13056
req.send

keterangan kode: perintah yang digunakan untuk membypass SSL adalah
  "req.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = 13056".

2. Dengan xmlHTTP

dim req As MSXML2.ServerXMLHTTP60
    dim url as string
Set req = CreateObject("MSXML2.ServerXMLHTTP.6.0")

    url="someurl.com"
Call req.setOption(2, 13056)
Call req.Open("GET", Url, False)
req.Send
 

keterangan kode: perintah yang digunakan untuk membypass SSL adalah
 " Call req.setOption(2, 13056)".  

Terima kasih sudah mampir, dan semoga bermanfaat

Tanggal 18 Juli 2018 Acer mengadakan kegiatan Acer Day 2018 di Semarang. Acara ini digelar secara serentak di 12 negara. Jadi nggak cuma di Semarang saja, tapi juga di kota-kota lain dan negara-negara lain.
Acer Day tahun ini mengusung  "musik" sebagai tema utamanya. Acer. Acer mengajak siapa saja unutj menjelajahi dunia Acer yang fun, trendy dan inovative dengan berbagai kegiatan seru melalui saluran online dan offline yang terintegrasi.
Acer menghadirkan acara Acer Day Lucky Draw dan banyak penawaran terbaik di pasaran. Di Indonesia Acer Day dimeriahkan dengan exhibition roadshow yang akan digelar di 8 kota besar di Indonesia. Salah satunya di Semarang.

Selama periode Acer Day (16 Juli - 18 September 2018) pembeli juga akan mendapatkan shopping voucher atau free office 365 selama 1 tahun.

Herbet Ang, President Director Acer Indonesia mengatakan, “Di Acer Day tahun ini, kami memanjakan seluruh pelanggan kami dengan beragam penawaran sensasional. Penawaran terbaik di tahun ini adalah Swift 3 Acer Day Edition yang didesain eksklusif dengan spesifikasi terbaik yang ditawarkan mulai Rp. 6 jutaan. Pelanggan juga bisa mendapatkan Predator gaming series & Nitro 5 Intel® Core™ Generasi ke-8 dengan harga mulai dari Rp. 11 jutaan. Hal semacam ini gak ada lawannya di pasar. Semuanya hanya bisa didapatkan selama periode Acer Day berlangsung.”

Acer Day Rewards: FUN Friends dan FUN Festivals

Acer Day tahun ini hadir dengan program “FUN Friends” yaitu pengumpulan poin dengan undian dengan hadiah utama perjalanan eksklusif ke Taiwan. Siapapun dapat berpartisipasi dengan mengikuti berbagai tantangan online menarik bertema musik setiap harinya mulai dari 21 Juli hingga 31 Agustus 2018.



Khusus untuk Indonesia, Acer Indonesia menyemarakkan Acer Day dengan menggelar program lokal “FUN Festivals” yang memungkinkan setiap orang untuk mengumpulkan poin dengan melakukan pembelian laptop selama periode campaign Acer Day berlangsung dan mendaftarkan pembelian produknya di www.acerid.com/acer-day. Pelanggan dengan poin terbanyak berkesempatan untuk mengikuti lucky draw untuk hadiah utama tiket nonton konser musik internasional di Singapura. Program ini berlangsung sejak 16 Juli - 18 September 2018.

Special Offers:

Swift 3 Acer Day Edition

Yang menarik dari penyelenggaraan Acer Day tau ini adalah kehadiran Swift 3 Acer Day Edition, yaitu Swift 3 dengan tiga warna elegan dan sleek yang belum ada sebelumnya di pasaran; Blue, Pink dan Silver. Swift 3 Acer Day Edition dipersenjatai dengan spesifikasi terbaik menarik seperti Intel Core i3, WIndows 10 Home dan 1TB HDD. Dengan spesifikasi tersebut, perangkat ini ditawarkan dengan harga sangat kompetitif mulai Rp. 6 jutaan rupiah.

Nitro 5 Intel® Core™ Generasi ke-8

Acer juga memamerkan rangkaian lini gaming series yang diklaim sebagai the best in class secara performa dan harga. Untuk para gamers, pada Acer Day ini turut diperkenalkan Nitro 5 dengan Intel® Core™ Generasi ke-8 yang hadir dengan spesifikasi yang didesain khusus untuk pasar Indonesia dan ditawarkan dengan harga spesial mulai dari Rp. 11 jutaan. Tersedia juga varian baru Nitro 5 Core i7 dan NVIDIA GeForce GTX1060 dengan harga mulai dari Rp. 17 jutaan.

Penambahan Predator Warriors Baru

Sebagai bentuk agresivitas Acer Indonesia dalam memenangkan pasar, Acer Indonesia juga mengumumkan penambahan keluarga baru Predator Warriors dengan sejumlah profesional gamers ternama di dunia gaming Indonesia seperti Melondoto - shoutcaster profesional di Indonesia dan Franzeska Edelyn - cosplayer terkenal di dunia gaming Indonesia. Hal ini sekaligus mengukuhkan komitmen perusahaan sebagai leader dalam industri gaming tanah air.

Untuk informasi lebih lanjut mengenai Acer Day, silahkan kunjungi: www.acer-day.com. Untuk informasi selengkanya mengenai program lokal Acer Day Indonesia, silahkan kunjungi: www.acerid.com/acerday

Assalamualaikum wr. wb, selamat apa saja.

Suatu disuatu grup facebook ada yg menanyakan tentang kelebihan aplikasi web dibanding aplikasi desktop. Lucunya tuh orang mosting pertanyaan di grup pengembang aplikasi web. Ya jelas pada banyak yang mengunggulkan aplikasi web base dibanding desktop. Dan seringnya tanpa tabayun dulu sama aplikasi desktop. Bahkan ada yang bilang aplikasi desktop sudah nggak relevan dan sudah digantikan sama aplikasi web base. Hallow, memangnya dikomputermu aplikasi web base bisa jalan sendiri tanpa browser? Aplikasi browser itu aplikasi berbasis web base apa desktop?

Terus apa kelebihan aplikasi web base dibanding aplikasi desktop? kelebihannya banyak. Tapi kelebihan aplikasi desktop dibanding aplikasi web base juga banyak. Jadi sama aja kan, pemilihan platform aplikasi sebenarnya tergantung kebutuhan. Mau pakai web base atau desktop base sama aja.


Tapi ada 1 kelemahan aplikasi desktop yang dijadikan salah satu senjata pamungkas pemuja aplikasi web base:

Aplikasi Desktop Harus Install satu-satu di client.

Ya, itu benar. Karena aplikasi desktop biasanya berbasis compiler maka seyogyanya aplikasi itu berada di komputer yang menjalankan. Karena ini adalah salah satu kelebihan aplikasi desktop juga. Karena dia berbasis compiler, dia punya hak spesial untuk menjalankan resource komputer. Berbeda dengan aplikasi berbasis web yang berjalan di browser yang notabene adalah aplikasi desktop. Aplikasi web tidak bisa mengakses hardware dengan maksimal. Dia hanya bisa mengakses resource yang dimiliki oleh browsernya. Dari segi kecepatan dan fungsi akses harware, Aplikasi berbasis web seharusnya mengaku kalah.

Namun dibalik kelebihan ini ada yang harus dibayar oleh IT perusahaan tersebut. kalau ada update aplikasi, mereka harus rela mengupdate satu persatu komputer.

Mengupdate memang hal yang melelahkan. Tapi itu dulu, setelah ada klinik Tongfang, sekarang aku udah nggak kurus lagi.

FYI, aku kerja di salah satu rumah sakit negeri Kota Semarang dengan jumlah komputer client lebih dari 300 komputer.

Dengan semakin aware-nya user terhadap pemakaian aplikasi komputer maka aplikasi makin berkembang sesuai kebutuhan user. Mau nggak mau proses update jadi makin sering. Ditambah lagi jumlah komputer yang semakin banyak seiring dengan pertumbuhan rumah sakit. Jadi meningkat deh capeknya.

Untuk itu dibutuhkan suatu terobosan di bidang update mengupdate aplikasi, dan salah satu solusi yang aku pikirkan saat itu adalah:

APLIKASI UPDATER

Aplikasi updater adalah aplikasi kecil yang aku kembangkan untuk memudahkan teman-teman bagian operator/teknisi dalam mengupdate aplikasi simrs di tempat kerjaku.

Sebenarnya ada banyak cara untuk membuat aplikasi updater. Kita bisa menggunakan tehnik download seperti yang digunakan oleh aplikasi-aplikasi antivirus atau kalau cuma buat jaringan pakai method copy paste saja sudah cukup.

Konsep aplikasi updater yang aku buat ini sangat sederhana. Aplikasi updater akan membandingkan versi aplikasi (exe) yang ada di server dengan versi aplikasi (exe). Jika versi aplikasi (exe) diserver lebih tinggi, maka apliasi(exe) yang dilokal akan ditimpa dengan aplikasi (exe) dari server. Jika tidak ada versi aplikasi (exe) terbaru, maka Aplikasi updater akan membuka aplikasi yang ada di komputer lokal.

KOMPONEN/OBJECT YANG DIBUTUHKAN

Komponen yang dibutuhkan sebenarnya cuma 1, yaitu FileSystemObyek. File System Obyek sebenarnya bukan bagian dari VB6, tetapi bagian dari Windows Scripting. Karena itu untuk menggunakan obyek ini kita harus menambahkan Microsoft Scripting Runtime di reference aplikasi.

File System Obyek digunakan untuk memperoleh data dan memanipulasi file/folder. Ada banyak perintah yang bisa dilakukan dengan obyek ini, salah banyaknya adalah mengecek versi, mengetahui nama file, folder, melakukan copy, paste, delete dile/folder dsb.

CONTOH PENGGUNAAN UNTUK MENGKOPI FILE

Sebelum melanjutkan ke contoh penggunaannya, tambahkan dulu Microsoft Scriping Runtime di reference Visual Basic 6.
selanjutnya masukkan perintah berikut:

dim fso as FileSystemObyek
dim pathSource as string
dim pathDestination as string

pathSource = "\\xxx.xxx.xx.xxx\simrs.exe"
pathDestination = "D:\FolderApp\simrs.exe"
set fso = new FileSystemObyek
fso.CopyFile pathSource, pathDestination, True

Penjelasan Syntak

dim fso as FileSystemObyek = mendeklarasikan fso sebagai file system obyek
dim pathSource as string       = Path lengkap file yang mau dikopi
dim pathDestination as string = Path Lengkap File hasil kopi dari source

set fso = new FileSystemObyek = menginisiasi fso sebagai obyek baru

fso.CopyFile pathSource, pathDestination, True = fungsi perintah kopi file dengan file system obyek. Formatnya adalah fso.CopyFile PathlengkapFileSumber, PathLengkapHasilKopi, Overwrite atau tidak (true/false).

PENUTUP

Metode updater ini sangat sederhana, namun sangat berguna sekali terutama bagiku, dan mungkin untuk teman-teman IT SIMRS yang menggunakan aplikasi berbasis desktop.

Namun aplikasi ini juga punya kekurangan besar. Karena menggunakan sistem Copy Paste, maka komputer tersebut harus berada di 1 domain.

Lalu bagaimana kalau jaringannya tidak dalam domain?
Tengan saja, masih bisa diakali dengan membuat server samba dengan guest mode. Kalau kita mau berusaha pasti ada jalan :).


TAMBAHAN

TUTORIAL PENGGUNAAN SOURCE CODE APLIKASI UPDATER BUATANKU

di artikel ini aku sertakan source code aplikasi updater versiku, sebelum teman-teman menjalankan/run source codenya ada beberapa setting yang harus disesuaikan.

1. Aku sudah menyertakan file test.exe dengan 2 versi berbeda untuk percobaan. File test.exe yang versinya lebih tinggi diletakkan di server dan yang lebih rendah di komputer lokal
2. Sebagai contoh file lokal aku letakkan di drive D, folder App, sedangkan file server aku masukkan ke folder "exeterbaru"

Aplikasi test versi 1.0.0.1 di komputer lokal

Aplikasi test versi 1.0.0.2 di server

3. Buka Source code, Class Module, kemudian klik file konfugurasi(konfigurasi.cls)

4. Masukkan Path lengkap file di server di PathFileServer dan path lengkap file destinasinya di PathFileLokal

5. Jalankan aplikasi

6. Kalau berhasil tandanya seperti ini nih:

Aplkasi updater mendeteksi versi di server lebih tinggi

7. Kalau form di gambar nggak keluar berarti prosesnya kembali ke nomor 1.

CARA SETTING VERSI APLIKASI DARI VISUAL BASIC 6

Kalau teman-teman belum tahu cara mengeset versi aplikasi di VB6, begini langkah-langkahnya:

1. Buka project
2. Pilih Menu Project ->Project Properties

menu project propertis

3. Klik tab "Make",   disitu teman-teman akan menemukan bagian version number. teman-teman bisa menset versi aplikasinya disitu. Saranku setting di bagian revision terlebih dahulu, kalau sudah penuh baru naik ke minor, kalau minor slotnya sudah penuh baru naik ke major.

setting version number aplikasi

Untuk Source Codenya bisa diambil disini:
DOWNLOAD