L2 using using using using using using using using
System; System.Collections.Generic; System.Linq; System.Web; System.Web.Services; System.Data.SqlClient; System.Data.SqlTypes; System.Data;
namespace wspus { /// <summary> /// Summary description for Service1 /// [WebService(Namespace = "http://microsoft.com/webservices/")] [WebServiceBinding(ConformsTo = WsiProfiles.None)] [System.ComponentModel.ToolboxItem(false)] // To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line. // [System.Web.Script.Services.ScriptService] public class Service1 : System.Web.Services.WebService { string constring = "Data Source=.;Initial Catalog=puskesmas2;integrated security=SSPI"; [WebMethod] public bool login(string un, string pwd) { string sql = "select * from [user] where username='" + un + "'and password='" + pwd + "'"; SqlConnection con = new SqlConnection(constring); SqlCommand cmd = new SqlCommand(sql, con); bool status = false; try { con.Open(); SqlDataReader dr = cmd.ExecuteReader(); if (dr.Read()) { status = true; }
return status; } catch (Exception ex) { throw ex; } finally { con.Close(); con = null; } }
L3 [WebMethod] public DataSet get(string sql) { SqlConnection con = new SqlConnection(constring); DataSet ds = new DataSet(); SqlDataAdapter da = new SqlDataAdapter(sql, con); try { con.Open(); da.Fill(ds, "puskesmas"); return ds; } catch (Exception ex) { throw ex; } finally { con.Close(); con = null; } } [WebMethod] public DataSet getData(string tablename) { string cmd = "select * from " + tablename; SqlConnection con = new SqlConnection(constring); DataSet ds = new DataSet(); SqlDataAdapter da = new SqlDataAdapter(cmd, con); try { con.Open(); da.Fill(ds, "puskesmas"); return ds; } catch (Exception ex) { throw ex; } finally { con.Close(); con = null; } } [WebMethod] public DataSet cari_data_pasien(string crit1, string crit2, string val1, string val2) { string cmd = "select * from pasien,puskesmas where " + crit1 + " like '%" + val1 + "%' and " + crit2 + " like '%" + val2 + "%' ";
L4 SqlConnection con = new SqlConnection(constring); DataSet ds = new DataSet(); SqlDataAdapter da = new SqlDataAdapter(cmd, con); try { con.Open(); da.Fill(ds, "puskesmas"); return ds; } catch (Exception ex) { throw ex; } finally { con.Close(); con = null; } } [WebMethod(MessageName="cari_data_pasien1")] public DataSet cari_data_pasien(string crit1, string val1) { string cmd = "select * from pasien,puskesmas where " + crit1 + " like '%"+ val1 + "%'"; SqlConnection con = new SqlConnection(constring); DataSet ds = new DataSet(); SqlDataAdapter da = new SqlDataAdapter(cmd, con); try { con.Open(); da.Fill(ds, "puskesmas"); return ds; } catch (Exception ex) { throw ex; } finally { con.Close(); con = null; } } [WebMethod] public DataSet getRMP(string id, string top) { string cmd = "select top "+top+" * from rekam_medis_pasien where id_pasien='"+id+"'"; SqlConnection con = new SqlConnection(constring); DataSet ds = new DataSet(); SqlDataAdapter da = new SqlDataAdapter(cmd, con);
L5 try { con.Open(); da.Fill(ds, "puskesmas"); return ds; } catch (Exception ex) { throw ex; } finally { con.Close(); con = null; } } [WebMethod(MessageName = "getRMP1")] public DataSet getRMP(string id) { string cmd = "select * from rekam_medis_pasien where id_pasien='" + id + "'"; SqlConnection con = new SqlConnection(constring); DataSet ds = new DataSet(); SqlDataAdapter da = new SqlDataAdapter(cmd, con); try { con.Open(); da.Fill(ds, "puskesmas"); return ds; } catch (Exception ex) { throw ex; } finally { con.Close(); con = null; } } [WebMethod] public string Registrasi_pasien_baru(string id, string nama, string pekerjaan, string namakk, string alamat, string gender, int usia) { string cmd = "insert INTO pasien values ( @id, @nama,@pekerjaan,@namakk, @alamat, @gender,@usia)"; string result = ""; try { SqlConnection con = new SqlConnection(constring); System.Data.SqlClient.SqlCommand dataCommand = new SqlCommand(); dataCommand.Connection = con;
L6 dataCommand.CommandText = cmd; dataCommand.Parameters.AddWithValue("@id", id); dataCommand.Parameters.AddWithValue("@nama", nama); dataCommand.Parameters.AddWithValue("@pekerjaan", pekerjaan); dataCommand.Parameters.AddWithValue("@namakk", namakk); dataCommand.Parameters.AddWithValue("@alamat", alamat); dataCommand.Parameters.AddWithValue("@usia", usia); dataCommand.Parameters.AddWithValue("@gender", gender); con.Open(); dataCommand.ExecuteNonQuery(); result = "Data pasien telah disimpan"; return result; } catch (Exception ex) { throw ex; } } [WebMethod] public string Simpan_keterangan_pasien(string idpasien, string tanggal, string hslpemeriksaan, string diagnosa, string tindakan, string resepobt, string nama_pemeriksa) { string cmd = "insert INTO rekam_medis_pasien values ( @idpasien, @tanggal, @hslpemeriksaan, @diagnosa, @tindakan, @resepobt, @nama_pemeriksa)"; string result = ""; try { SqlConnection con = new SqlConnection(constring); System.Data.SqlClient.SqlCommand dataCommand = new SqlCommand(); dataCommand.Connection = con; dataCommand.CommandText = cmd; dataCommand.Parameters.AddWithValue("@idpasien", idpasien); dataCommand.Parameters.AddWithValue("@tanggal", tanggal); dataCommand.Parameters.AddWithValue("@hslpemeriksaan", hslpemeriksaan); dataCommand.Parameters.AddWithValue("@diagnosa", diagnosa); dataCommand.Parameters.AddWithValue("@tindakan", tindakan); dataCommand.Parameters.AddWithValue("@resepobt", resepobt); dataCommand.Parameters.AddWithValue("@nama_pemeriksa", nama_pemeriksa); con.Open(); dataCommand.ExecuteNonQuery(); result = "Rekam medis telah ditambahkan ke data pasien"; return result; } catch (Exception ex) { throw ex; } } } }
L7
Nama Jabatan Waktu, Tempat
Drs Suprijanto Kepala Puskesmas Bagian Tata Usaha 21 – 03 – 2013, Puskesmas Duta Mas, Jakarta Barat
Subject: Analisis masalah Daftar Pertanyaan: 1. Apakah Puskesmas sudah memiliki sistem informasi? Sudah 2. Apakah sistem yang berjalan sudah online? Ya 3. Apakah ada permasalahan yang sedang dihadapi pada sistem yang sedang berjalan? Apa? Ya, database pada setiap puskesmas masih berdiri sendiri – sendiri, tapi hanya sebatas untuk pencatatan data saja, dan modul-modul yang tersedia masih belum lengkap, sehingga proses pengumpulan data berjalan lama dan masih belum tersedianya sistem yang dapat menampung riwayat berobat yang berisi rekam medis setiap pasien yang digunakan dokter untuk melakukan diagnosa. 4. Lalu sekarang tidak ada data rekam medis pasien yang disimpan? Rekam medis pasien saat ini masih disimpan secara manual, manual dalam arti data masih disimpan dalam kartu berobat pasien yang disimpan dalam arsip – arsip yang disimpan dalam lemari dokumen pada setiap puskesmas. 4. Apakah proses yang diterapkan di setiap puskesmas sama? Ya, sama 5. Jika misalnya saya, hari ini mendaftar di puskesmas A, kemudian, bulan depan saya mendaftar lagi di puskesmas B, apakah data saya bisa dicari lewat sistem yg sedang berjalan sekarang? Masih belum bisa, oleh karena itu pengumpulan informasi semacam itu masih susah karena belum adanya sistem yg tersentralisasi.
L8 Nama Jabatan Waktu, Tempat
Ika. Purwantini, S.pd Tata Usaha 21 – 03 – 2013, Puskesmas Tanjung Duren Selatan, Jakarta Barat Subject: Identifikasi tipe data yang dibutuhkan Daftar Pertanyaan: 1. Data apa saja yang dibutuhkan dalam pencatatan pasien? Nama, alamat, pekerjaan, nama KK, jenis kelamin, usia 2. Di sistem yang berjalan sekarang, data pasien sudah ada, pencarian data didasarkan pada data apa? Secara orang yang bernama sama ada banyak. Cari berdasarkan alamat, karena alamat yang dimiliki pasti spesifik dengan pasien tersebut 3. Data pasien dapat digunakan sebagai apa ketika disimpan? Sebenarnya data pasien hanya digunakan selain untuk informasi, digunakan juga untuk melacak rekam medis pasien tersebut. 4. Tapi dari informasi yang saya dapat sistem puskesmas sekarang ini belum memiliki sistem yang dapat menampung rekam medis pasien? Ya, jadi sekarang ini data pasien hanya digunakan untuk sebagai informasi yang nantinya akan ditulis di kartu berobat ketika kartu berobatnya sudah penuh atau hilang. 5. Saya ingin tahu, bagaimana sih proses yang diterapkan yang menyangkut data pasien dan rekam medis pasien ini? Pasien yang baru pertama kali datang, mendaftarkan dirinya dulu lalu data – datanya dicatat dan dimasukkan ke dalam sistem. Kemudian staff administrasi mengisi data-data yang dibutuhkan pada kartu berobat. Setelah kartu berobat diisi, pasien baru masuk ke dalam antrian dan ketika gilirannya sudah tiba, pasien akan dipanggil dan kartu berobat pasien tersebut diberikan kepada dokter, supaya dokter bisa mengisi kartu berobat itu dengan data – data yang disebut nantinya sebagai rekam medis pasien. Setelah dokter melakukan pemeriksaan, kartu tersebut bisa dibawa ke apotik yang ada di tiap puskesmas untuk membeli obat yang telah diberikan dan kemudian akan dikembalikan lagi ke bagian administrasi.
L9 Nama Jabatan Waktu, Tempat
Dr. Robin Andriyanto Dokter Poli Umum 21 – 03 – 2013, Puskesmas Tanjung Duren Selatan, Jakarta Barat Subject: Identifikasi tipe data yang dibutuhkan Daftar Pertanyaan: 1. Data apa saja yang dibutuhkan dalam mengisi rekam medis pasien? Tanggal pemeriksaan dilakukan, Hasil pemeriksaan, Diagnosa, Tindakan yang dilakukan, obat yang diberikan, dan nama pemeriksa 2. Bisa tolong dijelaskan apa yang dimaksud dari data – data tersebut pak? Tanggal pemeriksaan adalah tanggal dilakukannya pemeriksaan tersebut, Hasil pemeriksaan adalah data2 seperti suhu tubuh pasien, tekanan darah, respiratory rate, dll, Diagnosa berarti dari keluhan pasien dan hasil pemeriksaan dapat disimpulkan penyakit apa yang sedang diidap oleh pasien, penyakit itu dimasukkan ke kolom diagnose, Tindakan berarti apa yang dokter lakukan untuk menanggulangi diagnose tersebut, seperti misalnya diberikan obat, cabut gigi, dll. Obat yang diberikan berarti obat apa yang diberikan saat tindakan sedang dilakukan atau setelah tindakan dilakukan. Nama pemeriksa diperlukan karena di beberapa puskesmas ada beberapa dokter yang sifatnya tidak menetap atau sekedar pengganti oleh karena itu nama pemeriksa juga harus dicantumkan.
