Bridging Ketersediaan Kamar SIRS Online Dengan VB6
Beberapa waktu lalu aku dikabari kepala instalasiku, sebut saja bosque biar kelihatan akrab gitu. "Ketersediaan kamar Siranap wes gak update otomatis, sek tak cek". Padahal kami sudah membuat web service untuk bridging Siranap. Setelah diusut ternyata entrian di Siranap sama dengan entrian di SIRS Online.
Aku langsung konfirm ke mas Dody Naftali. Di group telegram IT Jateng dan DIY++. Selain sebagai tetua, mas Dody adalah rujukan kami buat bertanya tentang segala bernama bridging simrs ke aplikasi kemkes.
Ternyata sejak september 2020 aplikasi Siranap menggunakan entrian dari SIRS Online. Pantesan daftar ketersediaan bed di siranap kok nggak update perwaktu. Pantesan kemarin anak rekam medis nanyain bridging RS online, ternyata mereka disuruh update bed tiap hari wkwkwk.
Okey lets code
Kalau kalian pernah membuat bridging Eklaim dan Vclaim, percayalah bridging ketersediaan bed SIMRS ke RS Online lebih mudah asal datanya sudah benar.
Nah kan, yang sulit itu bukan bridgingnya, tapi collect datanya. Lalu memastikan datanya sudah benar sehingga laporan yang kita kirimkan sudah sesuai dengan keadaan sebenarnya.
Meski juknis bridging di RS Online sudah lengkap, tapi untuk bridging Ketersediaan kamar yang aku buat disini hanya untuk method update saja ya pren. Soalnya seperti yang sudah aku ceritain sebelumnya. Anak-anak rekam medis sudah memasukkan datanya setiap hari. Jadi aku tinggal meneruskan saja.
Lebih mudah mana meneruskan atau membuat baru? sama saja sih. Tapi kita harus menghargai perjuangan mereka mengentry setiap hari. Hanya saja kendalanya kita harus membuat mapping nama ruangan, karena bisa jadi mereka waktu nulis nama ruangan nggak sesuai dengan nama ruangan yang ada di rumah sakit. Kalau memang seperti ini, solusinya paling gampang, hapus semua trus bikin data baru. Tapi lewat sirs/RS online saja. Tidak semua hal harus dibridgingkan kok.
Selain itu karena kebutuhan bridging disini lebih ke percepatan dan otomatisasi pengiriman data ketersediaan bed, Tambah ruangan/data kan nggak setiap hari dan hanya sekali waktu, nggak usah terlalu dipikirin. Meski membuat service ini juga nggak susah. Tapi kita fokus saja ke update data OK!
PERSIAPAN DATA
Ambil Data Ketersediaan kamar yang sudah dientry di RS ONLINE
![]() |
Daftar Ketersediaan Kamar Yang Sudah Dikirim Ke RS Online |
Setelah mendapatkan data dari RS Online, sekarang kita petakan data tersebut ke sistem SIMRS. Cara paling mudah adalah buat query yang hasilnya sama dengan data yang mau dikirim.
Parameter yang dikirim:
- KdKelas SIRS
- NamaKelas
- Nama Ruangan
- Jumlah ruang
- terpakai
- kosong
- prepare
- prepare plan
- covid
For information, bridging RS Online digunakan untuk mengirim semua data ketersediaan bed, namun banyak rumah sakit yang hanya melakukan bridging Covid saja. Kalau dari aku sih mending dibuat semua sekalian wong sudah support untuk semua ruang.
Karena aku menggunakan SQL Server, aku menggunakan view supaya querynya menjadi lebih ringkas.
Aku membuat 5 view yang kemudian digabungkan menjadi satu sehingga mejadi kuat dan solid. 1 view juga terdiri dari beberapa query sesuai dengan kebutuhan.
Contoh viewku seperti ini:
Banyak ya hehe, tapi lebih enak buat maintenance sih, soalnya sudah aku pisah sesuai sub kategorynya. Kalau ada masalah di salah satu kategory, nggak perlu pusing untuk mencari dan memperbaikinya.
Contoh tampilan hasil query view, aku contohkan data covid dan beberapa data isolasi:
eh iya, ini bagian headernya
Setelah querynya jadi, sekarang tinggal bikin aplikasi buat kirim ke webapi sirs. Kodingnya gampang kok, kalau kamu pernah bikin koneksi vb6 ke vclaim, percayalah bridging Sirs Online ini lebih mudah.
Struktur rest api Ketersediaan Kamar RS Online
1. mengunakan unix time
2. header
3. post/get
Sekarang saatnya membuat aplikasinya:
Tambahkan Komponen winhttp
Sebelum mulai ngoding, tepatnya setelah membuka form dan berdoa. tambahkan terlebih dahulu komponen winhttp di bagian reference.
Caranya adalah:
klik Project->reference
kemudian cari Microsoft WinHTTP Service, version 5.1
Setelah komponen winhttp dimasukkan, visual basic 6mu sudah siap untuk beraksi. yoo yoo
Buka form1, masukkan satu command button, beri nama cmdkirim misalnya.
kemudian buka kodenya. Tuliskan kode dibawah ini dibagian paling atas.
Nama-nama variable nya terserah kamu ya, sesuiakan saja dengan kebutuhanmu.
Membuat Fungsi Untuk Menggenerate Unix Time
Sub Prosedure Kirim ke SIRS
Isi Kodingan Tombol Kirim
Sekarang tinggal bikin kodingan di tombol kirimnya. Seperti yang aku jelasin diatas sekali, data ketersediaan kamar diambil dari query yang dibuat sedemikian rupa hingga tidak membutuhkan data logic lainnya. kalaupun butuh logic jangan banyak-banyak dan susah-susah. Query punyaku juga masih disesuaikan lagi sih, soalnya nama kamar yang dikirim sama anak-anak RM berbeda dengan master ruangan SIMRS, kemudian status covid, menghilangkan namaruangan juga aku buat logicnya di vb6 sih, pokoknya kalau ribet diquerym baru Visual Basic 6 beraksi.
TESTING
SHOW CASE
tertarik membuat bridging ketersediaan kamar? cuzz langsung saja dibikin. Feel free to ask, kalau ingin menyampaikan terima kasih silahkan tuliskan di kolom komentar. Tapi kalau mau bertanya atau ada kendala lebih baik lewat japri. Insyaallah kalau cuma bertanya, konsultasi atau tracing error gratis kok.
Terima kasih sudah mampir
Inspiratif sekali...
ReplyDeleteTerima kasih kang, aku terinspirasi dirimu
DeleteMantulll sekali
ReplyDeleteMatur suwun mas
DeleteBelom nemu tombol download
ReplyDeleteHehehe...
Memang nggak ada, tinggal dikopas atau ditulis ulang kodenya. Insyaallah lebih bermanfaat dari pada langsung download
DeleteTerima kasih pak
ReplyDeletesangat membantu mass..
ReplyDeleteterima kasih mas
DeleteTerima kasih kang,
ReplyDeletetetapi ane terdapat error pada baris 24
$dbconn = getKoneksi();
pada file getEntrianrs.php
diilangin saja mas, kodenya nggak kepakai kok. Nanti habis jumatan tak edit
Deletematur suwun suhu
ReplyDeleteKancaku
ReplyDeleteguruku
Deletemas martin.. permisi, sya mau bertanya ...
ReplyDeleteuntuk dokumentasi bridging resmi (rsonline) yang paling update itu dimana yah? soalnya saya programmer baru yang ketinggalan info hehe. digoogle banyak dokumentasi bridging rsonline, tetapi yang paling bisa ya di post ini. di google x-pass nya ad yang di encrypt md5, ada juga yang x-timestampnya ada yang dikurangi 10 menit, tapi malah yg bisa disini.
dokumentasi ada di rsonline mas, login saja di rs online di menu kiri bawah. sekarang sudah tidak pakai encrypt md5
Deletemas, untuk yg vclaim v.2 kan ada tambahan user key lagi. bagaimana codingnya ya ?
ReplyDeletesama saja mas, cuma beda diheader ditambahi userkey
Delete