function list_kamar($hal = 0) { $paging = new MyPagina; $paging->sql = "select p.nama as bangsal, k.id as kamar_id, k.nama as nama_kamar, rk.nomor as no_kamar, rk.status as status from kamar k, ref_kamar rk, pelayanan p where k.id = rk.kamar_id and k.pelayanan_id = p.id and p.jenis = 'RAWAT INAP' order by p.nama, k.kelas, k.nama"; $paging->rows_on_page = 15; $paging->hal = $hal; $_SESSION[modul_setting][no_kamar][hal] = $hal; $paging->get_page_result(); $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $table = new Table; $table->tbody_height = 350; $table->addTh( "No", "Nama Bangsal", "Nama Kamar", "No Bed", "Status", "Hapus" ); $table->addExtraTh("style=\"width:50px;\"","style=\"width:200px;\"","","","","","","style=\"width:70px;\""); $kon = new Konek; for($i=0;$i<sizeof($data);$i++) { $table->addRow( ($no+$i), $data[$i][bangsal], $data[$i][nama_kamar], $data[$i][no_kamar], $data[$i][status], "<a href=\"javascript:void(0)\" title=\"Hapus\" onclick=\"hapus_kamar('".$data[$i][id]."', this)\" class=\"tombol_hapus\"><img src=\"".IMAGES_URL."remove.png\" alt=\"Hapus\" border=\"0\" /></a>" ); $table->addOnclickTd( "xajax_get_info('".$data[$i][id]."')", "xajax_get_info('".$data[$i][id]."')", "xajax_get_info('".$data[$i][id]."')", "xajax_get_info('".$data[$i][id]."')", "xajax_get_info('".$data[$i][id]."')" ); } $buka = $table->build(); $objResponse = new xajaxResponse(); $objResponse->addAssign("navi", "innerHTML", $navi); $objResponse->addAssign("list_kamar", "innerHTML", $buka); return $objResponse; }
function list_data_radio($hal = 0) { $_SESSION[setting_radiologi_spesimen][hal] = $hal; $objResponse = new xajaxResponse(); $paging = new MyPagina; $paging->rows_on_page = 15; $paging->sql = " SELECT rp.id as id, rp.nama as nama, rp.biaya_bhp as biaya_bhp, rpd.biaya_jasa as biaya_jasa, rpd.kelas as kelas FROM radio_pemeriksaan rp JOIN radio_pemeriksaan_detil rpd ON (rpd.tingkat = rp.tingkat) ORDER BY rp.nama "; $paging->hal = $hal; $paging->get_page_result(); $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $table = new Table; $table->tbody_height = 350; $table->addTh( "No", "Nama", "Biaya BHP", "Biaya Jasa", "Kelas", "Hapus" ); //$table->addExtraTh("style=\"width:50px;\"","style=\"width:200px;\"","","",""); //$kon = new Konek; for($i=0;$i<sizeof($data);$i++) { $table->addRow( ($no+$i), $data[$i][nama], $data[$i][biaya_bhp], $data[$i][biaya_jasa], $data[$i][kelas], "<a href=\"javascript:void(0)\" title=\"Hapus\" onclick=\"hapus_kamar('".$data[$i][id]."', this)\" class=\"tombol_hapus\"><img src=\"".IMAGES_URL."remove.png\" alt=\"Hapus\" border=\"0\" /></a>" ); $table->addOnclickTd( "xajax_get_info('".$data[$i][id]."')", "xajax_get_info('".$data[$i][id]."')", "xajax_get_info('".$data[$i][id]."')", "xajax_get_info('".$data[$i][id]."')", "xajax_get_info('".$data[$i][id]."')" ); } $buka = $table->build(); $objResponse->addAssign("list_data_radio", "innerHTML", $buka); $objResponse->addAssign("navi", "innerHTML", $navi); return $objResponse; }
function list_data($hal = 0) { $_SESSION[hal] = $hal; $objResponse = new xajaxResponse(); $paging = new MyPagina; $paging->rows_on_page = 20; $paging->sql = "SELECT i.id as icid, i.kode as kode, i.nama as nama, id.id as idid, id.* FROM icopim i LEFT JOIN icopim_detil id ON (id.tingkat = i.tingkat) GROUP BY i.id, id.kelas ORDER BY i.nama, id.kelas "; $paging->hal = $hal; $paging->get_page_result(); $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $tabel = new Table; $tabel->tbody_height = 400; $tabel->addTh( "No", "Kode", "Tindakan", "Tingkat", "Kelas", "Biaya", "Hapus" ); for($i=0;$i<sizeof($data);$i++) { $tabel->addRow( ($no+$i), $data[$i][kode], $data[$i][nama], $data[$i][tingkat], $data[$i][kelas], $data[$i][biaya], "<a href=\"javascript:void(0)\" title=\"Hapus\" onclick=\"hapus_tindakan('".$data[$i][icid]."', '".$data[$i][idid]."', this)\" class=\"tombol_hapus\"><img src=\"".IMAGES_URL."remove.png\" alt=\"Hapus\" border=\"0\" /></a>"); $tabel->addOnclickTd( "xajax_get_tindakan('".$data[$i][icid]."', '".$data[$i][tingkat]."', '".$data[$i][kelas]."')", "xajax_get_tindakan('".$data[$i][icid]."', '".$data[$i][tingkat]."', '".$data[$i][kelas]."')", "xajax_get_tindakan('".$data[$i][icid]."', '".$data[$i][tingkat]."', '".$data[$i][kelas]."')", "xajax_get_tindakan('".$data[$i][icid]."', '".$data[$i][tingkat]."', '".$data[$i][kelas]."')", "xajax_get_tindakan('".$data[$i][icid]."', '".$data[$i][tingkat]."', '".$data[$i][kelas]."')", "xajax_get_tindakan('".$data[$i][icid]."', '".$data[$i][tingkat]."', '".$data[$i][kelas]."')" ); } $buka = $tabel->build(); $objResponse->addAssign("list_data", "innerHTML", $buka); $objResponse->addAssign("navi", "innerHTML", $navi); return $objResponse; }
function list_data($hal = 0, $prop_id = "", $kab_id = "") { $_SESSION[setting_kecamatan][hal] = $hal; //$all_id = @explode("|", $prop_kab_id); if($prop_id) $s .= " AND p.id = '".$prop_id."'"; if($kab_id) $s .= " AND k.id = '".$kab_id."'"; $objResponse = new xajaxResponse(); $paging = new MyPagina; $paging->rows_on_page = 20; $paging->setOnclickValue($prop_id, $kab_id); //$paging->onclick2_value = "'" . $prop_kab_id . "'"; $paging->sql = " SELECT kec.id AS id, p.id AS prop_id, p.nama AS prop, k.id AS kab_id, k.nama AS kab, kec.nama AS nama, COUNT(d.id) as jml_desa FROM ref_kecamatan kec JOIN ref_kabupaten k ON (k.id = kec.kabupaten_id) JOIN ref_propinsi p ON (p.id = k.propinsi_id) LEFT JOIN ref_desa d ON (d.kecamatan_id = kec.id) WHERE 1=1 $s GROUP BY kec.id ORDER BY p.nama, k.nama, kec.nama "; $paging->hal = $hal; $paging->get_page_result(); $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $tabel = new Table; $tabel->tbody_height = 370; $tabel->addTh("No", "Propinsi", "Kabupaten", "Kecamatan", "Jml<br />Kelurahan", "Hapus"); $tabel->addExtraTh(" style=\"width: 50px;\"", " style=\"width: 200px;\"", "", "", "style=\"width: 100px;\"", " style=\"width: 70px;\" "); for($i=0;$i<sizeof($data);$i++) { if($data[$i][prop_id] != $data[$i-1][prop_id]) $prop = $data[$i][prop]; else $prop = ""; if($data[$i][kab_id] != $data[$i-1][kab_id]) $kab = $data[$i][kab]; else $kab = ""; $tabel->addRow(($no+$i), $prop, $kab, $data[$i][nama], $data[$i][jml_desa], "<a href=\"javascript:void(0)\" title=\"Hapus\" onclick=\"hapus_kecamatan('".$data[$i][id]."', this)\" class=\"tombol_hapus\"><img src=\"".IMAGES_URL."remove.png\" alt=\"Hapus\" border=\"0\" /></a>"); $tabel->addOnclickTd("xajax_get_kecamatan('".$data[$i][id]."')","xajax_get_kecamatan('".$data[$i][id]."')", "xajax_get_kecamatan('".$data[$i][id]."')", "xajax_get_kecamatan('".$data[$i][id]."')"); } $buka = $tabel->build(); $objResponse->addAssign("list_data", "innerHTML", $buka); $objResponse->addAssign("navi", "innerHTML", $navi); return $objResponse; }
function list_data($hal = 0) { $_SESSION[hal] = $hal; $objResponse = new xajaxResponse(); $paging = new MyPagina; $paging->rows_on_page = 20; $paging->sql = " SELECT d.id as id, d.nama as nama, spc.id as spc_id, spc.nama as spc_nama, sub.id as sub_id, sub.nama as sub_nama, d.telp as telp, d.aktif as aktif, CASE WHEN (d.aktif = '1') THEN 'Ya' ELSE 'Tidak' END AS aktif_nama FROM dokter d JOIN subspesialisasi sub ON (sub.id = d.subspesialisasi_id) JOIN spesialisasi spc ON (spc.id = sub.spesialisasi_id) ORDER BY spc.nama, sub.nama, d.nama "; $paging->hal = $hal; $paging->get_page_result(); $_SESSION[modul_setting][dokter][hal] = $hal; $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $tabel = new Table; $tabel->tbody_height = 380; $tabel->addTh("No", "Nama", "Spesialisasi/<br />Sub Spesialisasi", "Telp", "Aktif", "Hapus"); $tabel->addExtraTh(" style=\"width:50px;\"", "style=\"width:200px;\"", "", "", "", " style=\"width:70px;\" "); for($i=0;$i<sizeof($data);$i++) { $tabel->addRow( ($no+$i), $data[$i][nama], $data[$i][spc_nama] . "<br />" . $data[$i][sub_nama], $data[$i][telp], $data[$i][aktif_nama], "<a href=\"javascript:void(0)\" title=\"Hapus\" onclick=\"hapus_dokter('".$data[$i][id]."', this)\" class=\"tombol_hapus\"><img src=\"".IMAGES_URL."remove.png\" alt=\"Hapus\" border=\"0\" /></a>"); $tabel->addOnclickTd( "xajax_get_dokter('".$data[$i][id]."')", "xajax_get_dokter('".$data[$i][id]."')", "xajax_get_dokter('".$data[$i][id]."')", "xajax_get_dokter('".$data[$i][id]."')" ); } $buka = $tabel->build(); $objResponse->addAssign("list_data", "innerHTML", $buka); $objResponse->addAssign("navi", "innerHTML", $navi); return $objResponse; }
function list_data($hal = 0) { $paging = new MyPagina; $paging->rows_on_page = 20; $paging->sql = "SELECT p.id as id, p.nama as nama, p.username as username, pg.nama as `group`, pel.nama as pelayanan FROM pengguna p JOIN pengguna_group pg ON (pg.id = p.pengguna_group_id) LEFT JOIN pelayanan pel ON (pel.id = p.pelayanan_id) WHERE pg.id <> 1 ORDER BY pg.nama, p.nama"; $paging->get_page_result(); $paging->hal = $hal; $_SESSION[hal] = $hal; $paging->get_page_result(); $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $table = new Table; $table->tbody_height = 300; $table->addTh("No", "Nama", "Username", "Group", "Bangsal/<br />Klinik", "Hapus"); $table->addExtraTh(" style=\"width: 50px;\"", "", "", "", "", " style=\"width: 70px;\" "); for($i=0;$i<sizeof($data);$i++) { $table->addRow( ($no+$i), $data[$i][nama], $data[$i][username], $data[$i][group], $data[$i][pelayanan], "<a href=\"javascript:void(0)\" title=\"Hapus\" onclick=\"hapus_pengguna('".$data[$i][id]."', this)\" class=\"tombol_hapus\"><img src=\"".IMAGES_URL."remove.png\" alt=\"Hapus\" border=\"0\" /></a>"); $table->addOnclickTd( "xajax_get_pengguna('".$data[$i][id]."')", "xajax_get_pengguna('".$data[$i][id]."')", "xajax_get_pengguna('".$data[$i][id]."')", "xajax_get_pengguna('".$data[$i][id]."')", "xajax_get_pengguna('".$data[$i][id]."')" ); } $ret = $table->build(); $objResponse = new xajaxResponse(); $objResponse->addAssign("navi", "innerHTML", $navi); $objResponse->addAssign("list_data", "innerHTML", $ret); return $objResponse; }
function list_data($hal = 0) { $paging = new MyPagina; $paging->sql = " SELECT pel.id as id, pel.jenis as jenis, pel.nama as nama, spc.nama as spec, pel.hari_buka as hari_buka FROM pelayanan pel JOIN spesialisasi spc ON (spc.id = pel.spesialisasi_id) WHERE pel.jenis IN ('RAWAT JALAN', 'RAWAT INAP') ORDER BY pel.jenis, spc.nama"; $paging->rows_on_page = 20; $paging->hal = $hal; $paging->get_page_result(); $_SESSION[hal] = $hal; $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $table = new Table; $table->addTh("No", "Jenis<br />Pelayanan", "Spesialisasi", "Nama Poliklinik/<br />Bangsal", "Hari Buka<br />Seminggu", "Hapus"); $table->addExtraTh("style=\"width:50px;\"","","","","","style=\"width:70px;\""); for($i=0;$i<sizeof($data);$i++) { if($data[$i][jenis] == $data[$i-1][jenis]) $jenis = ""; else $jenis = $data[$i][jenis]; $table->addRow( ($no+$i), $jenis, $data[$i][spec], $data[$i][nama], $data[$i][hari_buka], "<input type=\"button\" value=\"[ x ]\" name=\"hapus\" class=\"inputan\" onclick=\"xajax_hapus_pelayanan_confirm('".$data[$i][id]."', '".addslashes($data[$i][nama])."')\" />" ); $table->addOnclickTd( "xajax_get_pelayanan('".$data[$i][id]."')", "xajax_get_pelayanan('".$data[$i][id]."')", "xajax_get_pelayanan('".$data[$i][id]."')", "xajax_get_pelayanan('".$data[$i][id]."')", "xajax_get_pelayanan('".$data[$i][id]."')" ); } $ret = $table->build(); $objResponse = new xajaxResponse(); $objResponse->addAssign("navi", "innerHTML", $navi); $objResponse->addAssign("list_data", "innerHTML", $ret); return $objResponse; }
function list_data($hal = 0) { $paging = new MyPagina; $paging->sql = " SELECT pel.id as id, pel.nama as nama, spc.nama as spec, pel.hari_buka as hari_buka, pel.tarif as tarif FROM pelayanan pel JOIN spesialisasi spc ON (spc.id = pel.spesialisasi_id) WHERE pel.jenis ='RAWAT JALAN' ORDER BY spc.nama"; $paging->rows_on_page = 20; $paging->hal = $hal; $paging->get_page_result(); $_SESSION[hal] = $hal; $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $table = new Table; $table->tbody_height = 390; $table->addTh("No", "Nama Poliklinik", "Spesialisasi", "Hari Buka<br />Seminggu", "Tarif","Hapus"); $table->addExtraTh("style=\"width:50px;\"","","","","","style=\"width:70px;\""); for($i=0;$i<sizeof($data);$i++) { $table->addRow( ($no+$i), $data[$i][nama], $data[$i][spec], $data[$i][hari_buka],$data[$i][tarif], "<a href=\"javascript:void(0)\" title=\"Hapus\" onclick=\"hapus_pelayanan('".$data[$i][id]."', this)\" class=\"tombol_hapus\"><img src=\"".IMAGES_URL."remove.png\" alt=\"Hapus\" border=\"0\" /></a>" ); $table->addOnclickTd( "xajax_get_pelayanan('".$data[$i][id]."')", "xajax_get_pelayanan('".$data[$i][id]."')", "xajax_get_pelayanan('".$data[$i][id]."')", "xajax_get_pelayanan('".$data[$i][id]."')", "xajax_get_pelayanan('".$data[$i][id]."')" ); } $ret = $table->build(); $objResponse = new xajaxResponse(); $objResponse->addAssign("navi", "innerHTML", $navi); $objResponse->addAssign("list_data", "innerHTML", $ret); return $objResponse; }
function list_data($hal = 0) { $_SESSION[setting_bhp][hal] = $hal; $objResponse = new xajaxResponse(); $paging = new MyPagina; $paging->rows_on_page = 20; $paging->sql = "SELECT id, nama, biaya, bhp_p, bhp_rs, bhp_rs_adm, bhp_rs_op FROM bhp ORDER BY nama"; $paging->hal = $hal; $paging->get_page_result(); $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $tabel = new Table; $tabel->tbody_height = 430; $tabel->addTh("No", "BHP", "Biaya", "bhp p", "bhp rs", "bhp rs adm", "bhp rs op", "Hapus"); //$tabel->addExtraTh("style=\"width: 50px;\"", "", " style=\"width: 70px;\""); for($i=0;$i<sizeof($data);$i++) { $tabel->addRow( ($no+$i), $data[$i][nama], $data[$i][biaya], $data[$i][bhp_p], $data[$i][bhp_rs], $data[$i][bhp_rs_adm], $data[$i][bhp_rs_op], "<a href=\"javascript:void(0)\" title=\"Hapus\" onclick=\"hapus_bhp('".$data[$i][id]."', this)\" class=\"tombol_hapus\"><img src=\"".IMAGES_URL."remove.png\" alt=\"Hapus\" border=\"0\" /></a>"); $tabel->addOnclickTd( "xajax_get_bhp('".$data[$i][id]."')", "xajax_get_bhp('".$data[$i][id]."')", "xajax_get_bhp('".$data[$i][id]."')", "xajax_get_bhp('".$data[$i][id]."')", "xajax_get_bhp('".$data[$i][id]."')", "xajax_get_bhp('".$data[$i][id]."')", "xajax_get_bhp('".$data[$i][id]."')" ); } $buka = $tabel->build(); $objResponse->addAssign("list_data", "innerHTML", $buka); $objResponse->addAssign("navi", "innerHTML", $navi); return $objResponse; }
function list_data($hal = 0) { $_SESSION[setting_karcis][hal] = $hal; $objResponse = new xajaxResponse(); $paging = new MyPagina; $paging->rows_on_page = 20; $paging->sql = "SELECT * FROM karcis ORDER BY jenis, nama"; $paging->hal = $hal; $paging->get_page_result(); $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $tabel = new Table; $tabel->tbody_height = 430; $tabel->addTh("No", "Nama", "Jenis", "Kelas", "Jasa", "Hapus"); //$tabel->addExtraTh("style=\"width: 50px;\"", "", " style=\"width: 70px;\""); for($i=0;$i<sizeof($data);$i++) { if($data[$i][jenis] == "IGD") $jenis = "IRD"; else $jenis = $data[$i][jenis]; $tabel->addRow( ($no+$i), $data[$i][nama], $jenis, $data[$i][kelas], $data[$i][biaya_jasa], "<a href=\"javascript:void(0)\" title=\"Hapus\" onclick=\"hapus_karcis('".$data[$i][id]."', this)\" class=\"tombol_hapus\"><img src=\"".IMAGES_URL."remove.png\" alt=\"Hapus\" border=\"0\" /></a>"); $tabel->addOnclickTd( "xajax_get_karcis('".$data[$i][id]."')", "xajax_get_karcis('".$data[$i][id]."')", "xajax_get_karcis('".$data[$i][id]."')", "xajax_get_karcis('".$data[$i][id]."')", "xajax_get_karcis('".$data[$i][id]."')" ); } $buka = $tabel->build(); $objResponse->addAssign("list_data", "innerHTML", $buka); $objResponse->addAssign("navi", "innerHTML", $navi); return $objResponse; }
function list_data($hal = 0) { $_SESSION[setting_imunisasi][hal] = $hal; $objResponse = new xajaxResponse(); $paging = new MyPagina; $paging->rows_on_page = 20; $paging->sql = " SELECT id as id, nama as nama, sebab_sakit as sebab_sakit FROM imunisasi ORDER BY nama "; $paging->hal = $hal; $paging->get_page_result(); $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $tabel = new Table; $tabel->tbody_height = 350; $tabel->addTh("No", "Nama", "Sebab Sakit", "Hapus"); $tabel->addExtraTh(" style=\"width:50px;\"", "style=\"width:200px;\"", "", " style=\"width:70px;\""); for($i=0;$i<sizeof($data);$i++) { $tabel->addRow(($i+1), $data[$i][nama], $data[$i][sebab_sakit], "<a href=\"javascript:void(0)\" title=\"Hapus\" onclick=\"hapus_imunisasi('".$data[$i][id]."', this)\" class=\"tombol_hapus\"><img src=\"".IMAGES_URL."remove.png\" alt=\"Hapus\" border=\"0\" /></a>"); $tabel->addOnclickTd( "xajax_get_imunisasi('".$data[$i][id]."')", "xajax_get_imunisasi('".$data[$i][id]."')", "xajax_get_imunisasi('".$data[$i][id]."')" ); } $buka = $tabel->build(); $objResponse->addAssign("list_data", "innerHTML", $buka); $objResponse->addAssign("navi", "innerHTML", $navi); return $objResponse; }
function list_data($hal = 0) { $_SESSION[setting_propinsi][hal] = $hal; $objResponse = new xajaxResponse(); $paging = new MyPagina; $paging->rows_on_page = 20; $paging->sql = " SELECT p.id AS id, p.nama AS nama, COUNT(k.id) AS jml_kab FROM ref_propinsi p LEFT JOIN ref_kabupaten k ON (k.propinsi_id = p.id) GROUP BY p.id ORDER BY p.nama "; $paging->hal = $hal; $paging->get_page_result(); $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $tabel = new Table; $tabel->tbody_height = 420; $tabel->addTh("No", "Propinsi", "Jml<br />Kabupaten", "Hapus"); $tabel->addExtraTh(" style=\"width: 50px;\"", "", " style=\"width: 100px;\"", " style=\"width: 70px;\" "); for($i=0;$i<sizeof($data);$i++) { $tabel->addRow(($no+$i), $data[$i][nama], $data[$i][jml_kab], "<a href=\"javascript:void(0)\" title=\"Hapus\" onclick=\"hapus_propinsi('".$data[$i][id]."', this)\" class=\"tombol_hapus\"><img src=\"".IMAGES_URL."remove.png\" alt=\"Hapus\" border=\"0\" /></a>"); $tabel->addOnclickTd("xajax_get_propinsi('".$data[$i][id]."')", "xajax_get_propinsi('".$data[$i][id]."')", "xajax_get_propinsi('".$data[$i][id]."')"); } $buka = $tabel->build(); $objResponse->addAssign("list_data", "innerHTML", $buka); $objResponse->addAssign("navi", "innerHTML", $navi); return $objResponse; }
function list_data($hal=0, $val="") { if($val[pasien_id]) { $s = "p.id = '".$val[pasien_id]."'"; } elseif($val[nama]) { $s = "p.nama LIKE '%".$val[nama]."%'"; } elseif ($val[telp]){ $s = "p.telp LIKE '%".$val[telp]."%'"; } $tgl_periksa_dari = $val[tgl_mulai_thn] . "-" . $val[tgl_mulai_bln] . "-" . $val[tgl_mulai_tgl]; $tgl_periksa_sampai = $val[tgl_selesai_thn] . "-" . $val[tgl_selesai_bln] . "-" . $val[tgl_selesai_tgl]; $paging = new MyPagina; $kon = new Konek; $paging->setOnclickValue("xajax.getFormValues('form_kunjungan')"); if ($val[pasien_id]=='' AND $val[nama]=='' AND $val[telp]=='') { //pemilihan untuk list if ($val[cara_masuk_p]=='RAWAT JALAN') { $sql = " SELECT k.id as id_kunjungan, kk.id as id_kunjungan_kamar, kk.kunjungan_id as kunjungan_id, k.kunjungan_ke as kunjungan_ke, kk.no_antrian as no_antrian, CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as no_rm, p.id as pasien_id, p.nama as nama, pel.nama as pelayanan, CASE WHEN jenis = 'PASIEN LUAR' THEN 'PASIEN LUAR' WHEN jenis = 'IGD' THEN 'IRD' ELSE CONCAT_WS(' - ', jenis, kmr.nama) END as asal, kmr.nama as kamar, kk.tgl_periksa as tgl_periksa, d.nama as pengirim, kk.kelanjutan as kelanjutan FROM kunjungan k JOIN pasien p ON (p.id = k.pasien_id) JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id) JOIN kamar kmr ON (kmr.id = kk.kamar_id) JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id) LEFT JOIN dokter d ON (d.id = kk.dokter_id) WHERE DATE(kk.tgl_periksa) BETWEEN '".$tgl_periksa_dari."' AND '".$tgl_periksa_sampai."' AND pel.jenis = 'RAWAT JALAN' ORDER BY kmr.nama, d.nama, kk.no_antrian "; } elseif ($val[cara_masuk_p]=='RAWAT INAP') { $sql = " SELECT k.id as id_kunjungan, kk.id as id_kunjungan_kamar, kk.kunjungan_id as kunjungan_id, k.kunjungan_ke as kunjungan_ke, kk.no_antrian as no_antrian, CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as no_rm, p.id as pasien_id, p.nama as nama, pel.nama as pelayanan, CASE WHEN jenis = 'PASIEN LUAR' THEN 'PASIEN LUAR' WHEN jenis = 'IGD' THEN 'IRD' ELSE CONCAT_WS(' - ', jenis, kmr.nama) END as asal, kmr.nama as kamar, kk.tgl_periksa as tgl_periksa, d.nama as pengirim, kk.kelanjutan as kelanjutan FROM kunjungan k JOIN pasien p ON (p.id = k.pasien_id) JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id) JOIN kamar kmr ON (kmr.id = kk.kamar_id) JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id) LEFT JOIN dokter d ON (d.id = kk.dokter_id) WHERE DATE(kk.tgl_periksa) BETWEEN '".$tgl_periksa_dari."' AND '".$tgl_periksa_sampai."' AND pel.jenis = 'RAWAT INAP' ORDER BY kmr.nama, d.nama, kk.no_antrian "; } elseif ($val[cara_masuk_p]=='PASIEN LUAR') { $sql = " SELECT kk.kunjungan_id as kunjungan_id, rk.id as id_kunjungan_radio, CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as no_rm, p.id as pasien_id, p.nama as nama, CASE WHEN cara_masuk = 'PASIEN LUAR' THEN 'PASIEN LUAR' WHEN cara_masuk = 'IGD' THEN 'IRD' ELSE CONCAT_WS(' - ', cara_masuk, kmr.nama) END as asal, rk.tgl_periksa as tgl_periksa, pengirim as pengirim FROM radio_kunjungan rk JOIN pasien p ON (p.id = rk.pasien_id) LEFT JOIN kunjungan_kamar kk ON (kk.id = rk.kunjungan_kamar_id) LEFT JOIN kamar kmr ON (kmr.id = kk.kamar_id) WHERE DATE(rk.tgl_periksa) BETWEEN '".$tgl_periksa_dari."' AND '".$tgl_periksa_sampai."' AND rk.cara_masuk = 'PASIEN LUAR' ORDER BY rk.id DESC "; } elseif ($val[cara_masuk_p]=='IGD') { $sql = " SELECT k.id as id_kunjungan, kk.id as id_kunjungan_kamar, kk.kunjungan_id as kunjungan_id, k.kunjungan_ke as kunjungan_ke, kk.no_antrian as no_antrian, CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as no_rm, p.id as pasien_id, p.nama as nama, pel.nama as pelayanan, CASE WHEN jenis = 'PASIEN LUAR' THEN 'PASIEN LUAR' WHEN jenis = 'IGD' THEN 'IRD' ELSE CONCAT_WS(' - ', jenis, kmr.nama) END as asal, kmr.nama as kamar, kk.tgl_periksa as tgl_periksa, d.nama as pengirim, kk.kelanjutan as kelanjutan FROM kunjungan k JOIN pasien p ON (p.id = k.pasien_id) JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id) JOIN kamar kmr ON (kmr.id = kk.kamar_id) JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id) LEFT JOIN dokter d ON (d.id = kk.dokter_id) WHERE DATE(kk.tgl_periksa) BETWEEN '".$tgl_periksa_dari."' AND '".$tgl_periksa_sampai."' AND pel.jenis = 'IGD' ORDER BY kmr.nama, d.nama, kk.no_antrian "; } } else { $sql = " SELECT k.id as id_kunjungan, kk.id as id_kunjungan_kamar, kk.kunjungan_id as kunjungan_id, k.kunjungan_ke as kunjungan_ke, kk.no_antrian as no_antrian, CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as no_rm, p.id as pasien_id, p.nama as nama, pel.nama as pelayanan, CASE WHEN jenis = 'PASIEN LUAR' THEN 'PASIEN LUAR' WHEN jenis = 'IGD' THEN 'IRD' ELSE CONCAT_WS(' - ', jenis, kmr.nama) END as asal, kmr.nama as kamar, kk.tgl_periksa as tgl_periksa, d.nama as pengirim, kk.kelanjutan as kelanjutan FROM kunjungan k JOIN pasien p ON (p.id = k.pasien_id) JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id) JOIN kamar kmr ON (kmr.id = kk.kamar_id) JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id) LEFT JOIN dokter d ON (d.id = kk.dokter_id) WHERE $s ORDER BY kmr.nama, d.nama, kk.no_antrian "; } $paging->sql = $sql; $paging->rows_on_page = 10; $paging->hal = $hal; $paging->get_page_result(); $_SESSION[radio_kunjungan][hal] = $hal; $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $table = new Table; $table->tbody_height = 310; $table->addTh( "No", "No.<br />Kjg", "No. RM", "Pasien", "Tgl<br />Periksa", "Asal<br />Pasien", "Dokter<br />Pengirim", "Status Bayar" /*,"Hapus"*/ ); //$table->addExtraTh("style=\"width:50px;\"","style=\"width:50px;\"","style=\"width:80px;\"","style=\"width:200px;\"","","","","","","","style=\"width:70px;\""); $table->addExtraTh("style=\"width:50px;\"","style=\"width:50px;\"","style=\"width:80px;\"","style=\"width:200px;\"","","","",""); for($i=0;$i<sizeof($data);$i++) { //get data radio $kon->sql = " SELECT kb.nama as nama, kb.bayar_bhp+kb.bayar_jasa as bayar, kb.mampu_bayar_bhp+kb.mampu_bayar_jasa as mampu_bayar, kwd.kwitansi_id as kwitansi_id, kw.status as status FROM kunjungan_bayar kb JOIN radio_kunjungan lk ON (lk.id = kb.lab_kunjungan_id) JOIN kunjungan_kamar kk ON (kk.id = lk.kunjungan_kamar_id) LEFT JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id) LEFT JOIN kwitansi kw ON (kw.id = kwd.kwitansi_id) WHERE kb.radio_specimen_id IS NOT NULL AND kk.kunjungan_id = '".$data[$i][kunjungan_id]."' GROUP BY kb.id ORDER BY kb.id "; $kon->execute(); $data_r = $kon->getOne(); if(!empty($data_r)){ if (!empty($data_r[status])){ $status_bayar = "<font color = blue><b>LUNAS</b></font>"; } else { $status_bayar = "<font color = red><b>BELUM LUNAS</b></font>"; } }else {$status_bayar = "<font color = red><b>BELUM LUNAS</b></font>";} $table->addRow( ($no+$i), $data[$i][id_kunjungan_radio], $data[$i][no_rm], $data[$i][nama], tanggalIndo($data[$i][tgl_periksa], 'j M Y'), $data[$i][asal], $data[$i][pengirim], $status_bayar /*,"<input type=\"button\" value=\"[ x ]\" name=\"hapus\" class=\"inputan\" onclick=\"xajax_hapus_kunjungan_kamar_confirm('".$data[$i][id_kunjungan]."','".$data[$i][id_kunjungan_kamar]."', this)\" />"*/ ); if ($val[cara_masuk_p]=='PASIEN LUAR') { $table->addOnclickTd( "xajax_buka_kunjungan('".$data[$i][id_kunjungan_radio]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_radio]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_radio]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_radio]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_radio]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_radio]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_radio]."')" ); } else { $table->addOnclickTd( "buka_daftar_penunjang('".$data[$i][id_kunjungan_kamar]."')", "buka_daftar_penunjang('".$data[$i][id_kunjungan_kamar]."')", "buka_daftar_penunjang('".$data[$i][id_kunjungan_kamar]."')", "buka_daftar_penunjang('".$data[$i][id_kunjungan_kamar]."')", "buka_daftar_penunjang('".$data[$i][id_kunjungan_kamar]."')", "buka_daftar_penunjang('".$data[$i][id_kunjungan_kamar]."')", "buka_daftar_penunjang('".$data[$i][id_kunjungan_kamar]."')" ); } } $ret = $table->build(); $objResponse = new xajaxResponse(); //$objResponse->addAssign("debug", "innerHTML", $sql); /* BIKIN SESSION HAK DAN SIFAT, AGAR NGIRIT MEMORI DI MODAL KUNJUNGAN */ $kon = new Konek; $kon->sql = "SELECT id, nama FROM hak ORDER BY nama"; $kon->execute(); $_SESSION[radio][hak] = $kon->getAll(); $kon->sql = "SELECT * FROM sifat"; $kon->execute(); $_SESSION[radio][sifat] = $kon->getAll(); $objResponse->addAssign("navi", "innerHTML", $navi); $objResponse->addAssign("list_data", "innerHTML", $ret); return $objResponse; }
function list_data($hal = 0, $val) { $paging = new MyPagina; $objResponse = new xajaxResponse(); if($val[is_cari] == "1") { if($val[cari_id]) { $q = " AND p.id = '".$val[cari_id]."' "; } else { if($val[cari_nama]) $q .= " AND p.nama LIKE '%".$val[cari_nama]."%' "; if($val[cari_sex]) $q .= " AND p.sex = '".$val[cari_sex]."' "; if($val[cari_alamat]) $q .= " AND p.alamat LIKE '%".$val[cari_alamat]."%' "; if($val[cari_rt]) $q .= " AND p.rt LIKE '%".$val[cari_rt]."%' "; if($val[cari_rw]) $q .= " AND p.rw LIKE '%".$val[cari_rw]."%' "; if($val[cari_telp]) $q .= " AND p.telp LIKE '%".$val[cari_telp]."%' "; /*if($tgl_lahir) $q .= " AND DATE(p.tgl_lahir) = '".$tgl_lahir."' "; */ if ($val[tgl_lahir_thn] == "" && $val[tgl_lahir_bln] == "" && $val[tgl_lahir_tgl] == ""){ $tgl_lahir = ""; } else { $tgl_lahir = $val[tgl_lahir_thn] . "-" . $val[tgl_lahir_bln] . "-" . $val[tgl_lahir_tgl]; $q .= " AND DATE(p.tgl_lahir) = '".$tgl_lahir."' "; } if($val[cari_desa_id]) $q .= " AND des.id = '".$val[cari_desa_id]."' "; elseif($val[cari_kecamatan_id]) $q .= " AND kec.id = '".$val[cari_kecamatan_id]. "' "; elseif($val[cari_kabupaten_id]) $q .= " AND kab.id = '".$val[cari_kabupaten_id]. "' "; elseif($val[cari_propinsi_id]) $q .= " AND prop.id = '".$val[cari_propinsi_id]. "' "; } } $sql = " SELECT p.id as id, CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as id_display, REPLACE((p.nama), ('".$val[cari_nama]."'), ('<b>".$val[cari_nama]. "</b>')) as nama, CONCAT(p.alamat, ' ', 'RT ', p.rt, '/ RW ', p.rw, '<br />',des.nama, ', ', kec.nama, ', ', kab.nama, '<br />', prop.nama) as alamat FROM pasien p LEFT OUTER JOIN ref_desa des ON (des.id = p.desa_id) LEFT OUTER JOIN ref_kecamatan kec ON (kec.id = des.kecamatan_id) LEFT OUTER JOIN ref_kabupaten kab ON (kab.id = kec.kabupaten_id) LEFT OUTER JOIN ref_propinsi prop ON (prop.id = kab.propinsi_id) WHERE 1=1 $q ORDER BY p.nama "; //echo $sql; //$objResponse->addAssign("debug", "innerHTML", $sql); $paging->hal = $hal; $paging->sql = $sql; $paging->setOnclickValue("xajax.getFormValues('cari_pasien')"); $paging->get_page_result(); $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $table = new Table; $table->tbody_height = 270; $table->addTh("No", "No. RM", "NAMA", "ALAMAT", "HAPUS"); $table->addExtraTh(" style=\"width:40px\" ", " style=\"width:100px\" ", " style=\"width:200px\" ", "", " style=\"width:50px\" "); for($i = 0; $i < sizeof($data); $i++) { $table->addRow(($no + $i), $data[$i][id_display], $data[$i][nama], $data[$i][alamat], "<a href=\"javascript:void(0)\" title=\"Hapus Pasien\" onclick=\"hapus_pasien('". $data[$i][id]."', 'tr_".$i."')\" class=\"tombol_hapus\"><img src=\"".IMAGES_URL. "remove.png\" alt=\"Hapus Pasien\" border=\"0\" /></a>"); $table->addExtraTr("id=\"tr_".$i."\""); $table->addOnclickTd("xajax_get_pasien('".$data[$i][id]."')", "xajax_get_pasien('".$data[$i][id]."')", "xajax_get_pasien('".$data[$i][id]. "')", "xajax_get_pasien('".$data[$i][id]."')"); } $ret = $table->build(); $objResponse->addAssign("cari_navi", "innerHTML", $navi); $objResponse->addAssign("list_data", "innerHTML", $ret); return $objResponse; }
function list_data($hal=0, $semua_pasien = "0", $val="") { if($_SESSION[pelayanan_id]) $s = " AND pel.id = '" .$_SESSION[pelayanan_id]. "'"; if($semua_pasien == "0") $s .= " AND kk.kelanjutan IS NULL"; else { $tgl_daftar_dari = $val[tgl_mulai_thn] . "-" . $val[tgl_mulai_bln] . "-" . $val[tgl_mulai_tgl]; $tgl_daftar_sampai = $val[tgl_selesai_thn] . "-" . $val[tgl_selesai_bln] . "-" . $val[tgl_selesai_tgl]; $s .= "AND DATE(kk.tgl_daftar) BETWEEN '".$tgl_daftar_dari."' AND '".$tgl_daftar_sampai."'"; } $paging = new MyPagina; $paging->setOnclickValue("'".$semua_pasien."'", "xajax.getFormValues('form_kunjungan')"); $sql = " SELECT k.id as id_kunjungan, kk.id as id_kunjungan_kamar, k.kunjungan_ke as kunjungan_ke, kk.no_antrian as no_antrian, CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as no_rm, p.id as pasien_id, p.nama as nama, pel.nama as pelayanan, kmr.nama as kamar, kmr.kelas as kelas, kk.tgl_daftar as tgl_daftar, kk.tgl_keluar as tgl_keluar, d.nama as dokter, kk.kelanjutan as kelanjutan, rk.nomor as no_kamar FROM kunjungan k JOIN pasien p ON (p.id = k.pasien_id) JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id) JOIN ref_kamar rk ON (rk.id = kk.no_kamar) JOIN kamar kmr ON (kmr.id = kk.kamar_id) JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id) LEFT JOIN dokter d ON (d.id = kk.dokter_id) WHERE pel.jenis = 'RAWAT INAP' $s ORDER BY kmr.nama, d.nama, kk.no_antrian "; $paging->sql = $sql; $paging->rows_on_page = 20; $paging->hal = $hal; $paging->get_page_result(); $_SESSION[hal] = $hal; $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $table = new Table; $table->tbody_height = 270; //$table->anime_bg_color = ""; $table->addTh( "No", "No.<br />Kjg", "No. RM", "Pasien", "Kamar", "Dokter", "Tgl<br />Masuk", "Tgl<br />Keluar", "Kelanjutan" /*,"Hapus"*/ ); $table->addExtraTh("style=\"width:30px;\"","style=\"width:30px;\"","style=\"width:80px;\"","style=\"width:200px;\"","","","","","",""/*,"style=\"width:70px;\""*/); $kon = new Konek; for($i=0;$i<sizeof($data);$i++) { /* id kelanjutan == 'PINDAH KAMAR' adalah kelanjutan pindah kamar jika id kelanjutan == 'PINDAH KAMAR' maka diedit, jika diedit, maka harus membawa id child yang merupakan pindahan dari kamar tersebut jika id kelanjutan != 'PINDAH KAMAR' maka ditambah */ if($data[$i][kelanjutan] == "PINDAH KAMAR") { $table->addExtraTr(); $table->extra_td[$i][] = ""; $table->extra_td[$i][] = "style=\"background-color:#dcdcdc\""; $table->extra_td[$i][] = "style=\"background-color:#dcdcdc\""; $table->extra_td[$i][] = "style=\"background-color:#dcdcdc\""; $table->extra_td[$i][] = "style=\"background-color:#dcdcdc\""; $table->extra_td[$i][] = "style=\"background-color:#dcdcdc\""; $table->extra_td[$i][] = "style=\"background-color:#dcdcdc\""; $table->extra_td[$i][] = "style=\"background-color:#dcdcdc\""; $table->extra_td[$i][] = "style=\"background-color:#dcdcdc\""; } else $table->addExtraTr(); $table->addRow( ($no+$i), $data[$i][id_kunjungan], $data[$i][no_rm], $data[$i][nama], $data[$i][kamar], $data[$i][dokter], tanggalIndo($data[$i][tgl_daftar], 'j M Y') . "<br>" . tanggalIndo($data[$i][tgl_daftar], 'H:i'), tanggalIndo($data[$i][tgl_keluar], 'j M Y') . "<br>" . tanggalIndo($data[$i][tgl_keluar], 'H:i'), $data[$i][kelanjutan] /*"<input type=\"button\" value=\"[ x ]\" name=\"hapus\" class=\"inputan\" onclick=\"xajax_hapus_kunjungan_kamar_confirm('".$data[$i][id_kunjungan]."','".$data[$i][id_kunjungan_kamar]."', this)\" />"*/ ); if($data[$i][kelanjutan] == "PINDAH KAMAR") { //maka diedit /* mendapatkan kunjungan kamar setelah dipindah dengan parent id = id_kunjungan_kamar untuk diedit */ $kon->sql = " SELECT id FROM kunjungan_kamar WHERE parent_id = '".$data[$i][id_kunjungan_kamar]."' "; $kon->execute(); $stl_pindah = $kon->getOne(); $table->addOnclickTd( "xajax_buka_edit_pindah_kamar('".$data[$i][id_kunjungan_kamar]."', '".$stl_pindah[id]."')", "xajax_buka_edit_pindah_kamar('".$data[$i][id_kunjungan_kamar]."', '".$stl_pindah[id]."')", "xajax_buka_edit_pindah_kamar('".$data[$i][id_kunjungan_kamar]."', '".$stl_pindah[id]."')", "xajax_buka_edit_pindah_kamar('".$data[$i][id_kunjungan_kamar]."', '".$stl_pindah[id]."')", "xajax_buka_edit_pindah_kamar('".$data[$i][id_kunjungan_kamar]."', '".$stl_pindah[id]."')", "xajax_buka_edit_pindah_kamar('".$data[$i][id_kunjungan_kamar]."', '".$stl_pindah[id]."')", "xajax_buka_edit_pindah_kamar('".$data[$i][id_kunjungan_kamar]."', '".$stl_pindah[id]."')", "xajax_buka_edit_pindah_kamar('".$data[$i][id_kunjungan_kamar]."', '".$stl_pindah[id]."')", "xajax_buka_edit_pindah_kamar('".$data[$i][id_kunjungan_kamar]."', '".$stl_pindah[id]."')" ); } else { $table->addOnclickTd( "xajax_buka_daftar_pindah_kamar('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_daftar_pindah_kamar('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_daftar_pindah_kamar('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_daftar_pindah_kamar('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_daftar_pindah_kamar('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_daftar_pindah_kamar('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_daftar_pindah_kamar('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_daftar_pindah_kamar('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_daftar_pindah_kamar('".$data[$i][id_kunjungan_kamar]."')" ); } } $ret = $table->build(); $objResponse = new xajaxResponse(); //$objResponse->addAssign("debug", "innerHTML", $sql); $objResponse->addAssign("navi", "innerHTML", $navi); $objResponse->addAssign("list_data", "innerHTML", $ret); return $objResponse; }
function cari_imunisasi($hal = 0, $val) { $val[imunisasi] = addslashes($val[imunisasi]); $q = " AND nama LIKE '%".$val[imunisasi]."%' "; $paging = new MyPagina; $paging->rows_on_page = 10; $paging->hal = $hal; $paging->sql = " SELECT id, REPLACE(UPPER(nama), '".$val[imunisasi]."','<b>".$val[imunisasi]."</b>') as nama, usia FROM imunisasi WHERE 1 = 1 $q ORDER BY nama "; $paging->onclick_func = "xajax_cari_imunisasi"; $paging->setOnclickValue("xajax.getFormValues('cari_imunisasi')"); $paging->get_page_result(); $imunisasi_data = $paging->data; $imunisasi_no = $paging->start_number(); $imunisasi_navi = $paging->navi(); $objResponse = new xajaxResponse(); $table = new Table; $table->addTh("No", "Nama", "Usia"); $table->addExtraTh("style=\"width:40px\"", "style=\"width:200px\""); for($i=0;$i<sizeof($imunisasi_data);$i++) { $table->addRow(($imunisasi_no+$i), $imunisasi_data[$i]['nama'], $imunisasi_data[$i]['usia']); $table->addOnclickTd( "get_imunisasi(" . $imunisasi_data[$i][id] . ", '" . addslashes($imunisasi_data[$i]['nama']) . "', '".$val[add_btn_imunisasi_again]."');", "get_imunisasi(" . $imunisasi_data[$i][id] . ", '" . addslashes($imunisasi_data[$i]['nama']) . "', '".$val[add_btn_imunisasi_again]."');", "get_imunisasi(" . $imunisasi_data[$i][id] . ", '" . addslashes($imunisasi_data[$i]['nama']) . "', '".$val[add_btn_imunisasi_again]."');" ); } $tabel = $table->build(); $objResponse->addAssign("imunisasi_navi", "innerHTML", $imunisasi_navi); $objResponse->addAssign("list_imunisasi","innerHTML", $tabel); return $objResponse; }
function list_data($hal = 0) { $paging = new MyPagina; $paging->sql = " SELECT k.id as id, pel.id as pelid, pel.nama as pel, k.nama as nama, k.jml_bed as jml_bed, k.kelas as kelas, k.tarif_umum as tarif_umum, k.tarif_asuransi FROM pelayanan pel JOIN kamar k ON (k.pelayanan_id = pel.id) WHERE pel.jenis = 'RAWAT INAP' ORDER BY pel.nama, k.kelas, k.nama"; $paging->rows_on_page = 15; $paging->hal = $hal; $_SESSION[modul_setting][kamar][hal] = $hal; $paging->get_page_result(); $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $table = new Table; $table->tbody_height = 350; $table->addTh( "No", "Nama Bangsal", "Kamar", "Kelas", "Jml<br />TT", "Tarif Umum", "Tarif asuransi", "Hapus" ); $table->addExtraTh("style=\"width:50px;\"","style=\"width:200px;\"","","","","","","style=\"width:70px;\""); $kon = new Konek; for($i=0;$i<sizeof($data);$i++) { if($data[$i][pelid] == $data[$i-1][pelid]) $pel = ""; else { $kon->sql = "SELECT SUM(jml_bed) as jml FROM kamar WHERE pelayanan_id = '".$data[$i][pelid]."'"; $kon->execute(); $tt = $kon->getOne(); $pel = "<b>" . $data[$i][pel] . "</b> [" . $tt[jml] . " tt]"; } $table->addRow( ($no+$i), $pel, $data[$i][nama], $data[$i][kelas], $data[$i][jml_bed],"<align=right>".number_format($data[$i][tarif_umum]),number_format($data[$i][tarif_asuransi]), "<a href=\"javascript:void(0)\" title=\"Hapus\" onclick=\"hapus_kamar('".$data[$i][id]."', this)\" class=\"tombol_hapus\"><img src=\"".IMAGES_URL."remove.png\" alt=\"Hapus\" border=\"0\" /></a>" ); $table->addOnclickTd( "xajax_get_kamar('".$data[$i][id]."')", "xajax_get_kamar('".$data[$i][id]."')", "xajax_get_kamar('".$data[$i][id]."')", "xajax_get_kamar('".$data[$i][id]."')", "xajax_get_kamar('".$data[$i][id]."')" ); } $ret = $table->build(); $objResponse = new xajaxResponse(); $objResponse->addAssign("navi", "innerHTML", $navi); $objResponse->addAssign("list_data", "innerHTML", $ret); return $objResponse; }
function list_data($hal=0, $val="") { $kon = new konek; if($val[pasien_id]) { $q = " p.no_rm = '".$val[pasien_id]."' "; } elseif($val[nama]) { $tgl_daftar_dari = $val[tgl_mulai_thn] . "-" . $val[tgl_mulai_bln] . "-" . $val[tgl_mulai_tgl]; $tgl_daftar_sampai = $val[tgl_selesai_thn] . "-" . $val[tgl_selesai_bln] . "-" . $val[tgl_selesai_tgl]; $q = " p.nama LIKE '%".$val[nama]."%' AND DATE(kk.tgl_daftar) BETWEEN '".$tgl_daftar_dari."' AND '".$tgl_daftar_sampai."' "; } elseif ($val[pilih]){ $tgl_daftar_dari = $val[tgl_mulai_thn] . "-" . $val[tgl_mulai_bln] . "-" . $val[tgl_mulai_tgl]; $tgl_daftar_sampai = $val[tgl_selesai_thn] . "-" . $val[tgl_selesai_bln] . "-" . $val[tgl_selesai_tgl]; $q = " DATE(kk.tgl_daftar) BETWEEN '".$tgl_daftar_dari."' AND '".$tgl_daftar_sampai."' "; }elseif ($val[telp]){ $q = " p.telp LIKE '%".$val[telp]."%' "; } //$tgl_daftar_dari = $val[tgl_mulai_thn] . "-" . $val[tgl_mulai_bln] . "-" . $val[tgl_mulai_tgl]; //$tgl_daftar_sampai = $val[tgl_selesai_thn] . "-" . $val[tgl_selesai_bln] . "-" . $val[tgl_selesai_tgl]; $paging = new MyPagina; $paging->setOnclickValue("xajax.getFormValues('form_kunjungan')"); $sql = " SELECT k.id as id_kunjungan, kk.id as id_kunjungan_kamar, k.kunjungan_ke as kunjungan_ke, kk.no_antrian as no_antrian, CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as no_rm, p.id as pasien_id, p.nama as nama, pel.nama as pelayanan, kmr.nama as kamar, kk.tgl_daftar as tgl_daftar, kk.tgl_periksa as tgl_periksa, d.nama as dokter, kk.kelanjutan as kelanjutan, pel.jenis as jenis FROM kunjungan k JOIN pasien p ON (p.id = k.pasien_id) JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id) JOIN kamar kmr ON (kmr.id = kk.kamar_id) JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id) LEFT JOIN dokter d ON (d.id = kk.dokter_id) WHERE $q ORDER BY k.id DESC, kk.id ASC "; $paging->sql = $sql; $paging->rows_on_page = 20; $paging->hal = $hal; $paging->get_page_result(); $_SESSION[hal] = $hal; $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $table = new Table; $table->tbody_height = 310; $table->anime_bg_color = ""; $table->addTh( "No", "No.<br />Kjg", "No. RM", "Pasien", "Kjg<br />Ke", "No<br />Antri", "Pelayanan", "Dokter", "Tgl<br />Daftar", "Tgl<br />Periksa", "Kunjungan <br/>Terakhir", "Kelanjutan", "Hapus" ); $table->addExtraTh("style=\"width:30px;\"","style=\"width:30px;\"","style=\"width:80px;\"","style=\"width:200px;\"","","","","","","","","style=\"width:70px;\""); for($i=0;$i<sizeof($data);$i++) { $kunj_sbl = $data[$i][kunjungan_ke]-1 ; $sql_kunjungan = "select kk.tgl_daftar as tgl_daftar from kunjungan k,pasien p, kunjungan_kamar kk where p.id = k.pasien_id and k.id = kk.kunjungan_id and p.id = '".$data[$i][pasien_id]."' and LAST_INSERT_ID(k.id) and k.kunjungan_ke ='".$kunj_sbl."' ORDER BY k.id DESC LIMIT 1"; $kon->sql = $sql_kunjungan; $kon->execute(); $k = $kon->getOne(); if (empty($k[tgl_daftar])): $tgl_daftar = '-'; else: $tgl_daftar = $k[tgl_daftar]; endif; if($data[$i][jenis] == 'RAWAT INAP') { $table->addExtraTr("style=\"background-color:#dcdcdc\""); } else $table->addExtraTr(); $table->addRow( ($no+$i), $data[$i][id_kunjungan], $data[$i][no_rm], $data[$i][nama], $data[$i][kunjungan_ke], $data[$i][no_antrian], $data[$i][kamar], $data[$i][dokter], tanggalIndo($data[$i][tgl_daftar], 'j M Y'), tanggalIndo($data[$i][tgl_periksa], 'j M Y'), $tgl_daftar, $data[$i][kelanjutan], "<a href=\"javascript:void(0)\" title=\"Hapus\" onclick=\"hapus_kunjungan_kamar('".$data[$i][id_kunjungan]."','".$data[$i][id_kunjungan_kamar]."', this)\" class=\"tombol_hapus\"><img src=\"".IMAGES_URL."remove.png\" alt=\"Hapus\" border=\"0\" /></a>"); if($data[$i][jenis] == 'RAWAT INAP') { //jika rawat inap, maka diedit $table->addOnclickTd( "xajax_buka_edit_ranap('".$data[$i][id_kunjungan_kamar]."', '".$data[$i-1][id_kunjungan_kamar]."')", "xajax_buka_edit_ranap('".$data[$i][id_kunjungan_kamar]."', '".$data[$i-1][id_kunjungan_kamar]."')", "xajax_buka_edit_ranap('".$data[$i][id_kunjungan_kamar]."', '".$data[$i-1][id_kunjungan_kamar]."')", "xajax_buka_edit_ranap('".$data[$i][id_kunjungan_kamar]."', '".$data[$i-1][id_kunjungan_kamar]."')", "xajax_buka_edit_ranap('".$data[$i][id_kunjungan_kamar]."', '".$data[$i-1][id_kunjungan_kamar]."')", "xajax_buka_edit_ranap('".$data[$i][id_kunjungan_kamar]."', '".$data[$i-1][id_kunjungan_kamar]."')", "xajax_buka_edit_ranap('".$data[$i][id_kunjungan_kamar]."', '".$data[$i-1][id_kunjungan_kamar]."')", "xajax_buka_edit_ranap('".$data[$i][id_kunjungan_kamar]."', '".$data[$i-1][id_kunjungan_kamar]."')", "xajax_buka_edit_ranap('".$data[$i][id_kunjungan_kamar]."', '".$data[$i-1][id_kunjungan_kamar]."')", "xajax_buka_edit_ranap('".$data[$i][id_kunjungan_kamar]."', '".$data[$i-1][id_kunjungan_kamar]."')", "xajax_buka_edit_ranap('".$data[$i][id_kunjungan_kamar]."', '".$data[$i-1][id_kunjungan_kamar]."')" ); } elseif($data[$i][kelanjutan] == "DIRAWAT" && $data[$i][pasien_id] == $data[$i+1][pasien_id] && $data[$i+1][jenis] == 'RAWAT INAP') { $table->addOnclickTd( "alert('Pasien sudah mendaftar rawat inap')", "alert('Pasien sudah mendaftar rawat inap')", "alert('Pasien sudah mendaftar rawat inap')", "alert('Pasien sudah mendaftar rawat inap')", "alert('Pasien sudah mendaftar rawat inap')", "alert('Pasien sudah mendaftar rawat inap')", "alert('Pasien sudah mendaftar rawat inap')", "alert('Pasien sudah mendaftar rawat inap')", "alert('Pasien sudah mendaftar rawat inap')", "alert('Pasien sudah mendaftar rawat inap')", "alert('Pasien sudah mendaftar rawat inap')" ); } else { $table->addOnclickTd( "xajax_buka_daftar_ranap('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_daftar_ranap('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_daftar_ranap('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_daftar_ranap('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_daftar_ranap('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_daftar_ranap('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_daftar_ranap('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_daftar_ranap('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_daftar_ranap('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_daftar_ranap('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_daftar_ranap('".$data[$i][id_kunjungan_kamar]."')" ); } } $ret = $table->build(); $objResponse = new xajaxResponse(); //$objResponse->addAssign("debug", "innerHTML", $sql); $objResponse->addAssign("navi", "innerHTML", $navi); $objResponse->addAssign("list_data", "innerHTML", $ret); return $objResponse; }
function list_data($hal = 0, $val) { if(!empty($val)) { $val[cari_nama] = addslashes($val[cari_nama]); $q = " AND (kode_icd_group LIKE '%".$val[cari_nama]."%' OR kode_icd LIKE '%".$val[cari_nama]."%' OR no_dtd LIKE '%".$val[cari_nama]."%' OR nama LIKE '%".$val[cari_nama]."%' OR gol_sebab_sakit LIKE '%".$val[cari_nama]."%')"; } $objResponse = new xajaxResponse(); $paging = new MyPagina; $paging->setOnclickValue("xajax.getFormValues('form_icd')"); $paging->sql = " SELECT id, REPLACE(kode_icd_group, '".$val[cari_nama]."','<b>".$val[cari_nama]."</b>') as kode_icd_group, REPLACE(kode_icd, '".$val[cari_nama]."','<b>".$val[cari_nama]."</b>') as kode_icd, REPLACE(no_dtd, '".$val[cari_nama]."','<b>".$val[cari_nama]."</b>') as no_dtd, REPLACE(nama, '".$val[cari_nama]."','<b>".$val[cari_nama]."</b>') as nama, REPLACE(gol_sebab_sakit, '".$val[cari_nama]."','<b>".$val[cari_nama]."</b>') as gol_sebab_sakit FROM icd WHERE 1=1 $q ORDER BY kode_icd "; $paging->rows_on_page = 20; $paging->hal = $hal; $paging->get_page_result(); $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $_SESSION[modul_setting][penyakit][hal] = $hal; $tabel = new Table; $tabel->tbody_height = 300; $tabel->addTh("No", "Kode ICD Group", "Kode ICD", "No. DTD", "Nama Penyakit", "Gol. Sebab Sakit", "Hapus"); $tabel->addExtraTh(" style=\"width: 50px;\"", " style=\"width: 50px;\"", " style=\"width: 70px;\" ", " style=\"width: 70px;\" ", "", "", " style=\"width: 70px;\" "); for($i=0;$i<sizeof($data);$i++) { $tabel->addExtraTr("id=\"tr_".$i."\""); $tabel->addRow( ($no+$i), $data[$i][kode_icd_group], $data[$i][kode_icd], $data[$i][no_dtd], $data[$i][nama], $data[$i][gol_sebab_sakit], "<a href=\"javascript:void(0)\" title=\"Hapus\" onclick=\"hapus_icd('".$data[$i][id]."', 'tr_".$i."')\" class=\"tombol_hapus\"><img src=\"".IMAGES_URL."remove.png\" alt=\"Hapus\" border=\"0\" /></a>"); $tabel->addOnclickTd( "xajax_get_icd('".$data[$i][id]."')", "xajax_get_icd('".$data[$i][id]."')", "xajax_get_icd('".$data[$i][id]."')", "xajax_get_icd('".$data[$i][id]."')", "xajax_get_icd('".$data[$i][id]."')", "xajax_get_icd('".$data[$i][id]."')" ); } $buka = $tabel->build(); $objResponse->addAssign("list_data", "innerHTML", $buka); $objResponse->addAssign("navi", "innerHTML", $navi); return $objResponse; }
function cari_bhp($hal = 0, $val) { $val[bhp] = addslashes($val[bhp]); $q = " AND nama LIKE '%".$val[bhp]."%' "; $paging = new MyPagina; $paging->rows_on_page = 10; $paging->hal = $hal; /*$paging->sql = " SELECT id as id, REPLACE(nama, '".$val[bhp]."','<b>".$val[bhp]."</b>') as nama_replace, nama as nama, biaya as biaya FROM bhp WHERE 1=1 $q ORDER BY nama ";*/ $paging->sql = "select db_apotek.ms_barang.id as id, db_apotek.ms_barang.kd_barang as kd_barang,db_apotek.ms_barang.nama as nama, barang_unit.stok as stok, db_apotek.barang_unit.fld02 as biaya from db_apotek.ms_barang, db_apotek.barang_unit where db_apotek.ms_barang.id = db_apotek.barang_unit.barang_id"; $paging->onclick_func = "xajax_cari_obat"; $paging->setOnclickValue("xajax.getFormValues('cari_obat')"); $paging->get_page_result(); $bhp_data = $paging->data; $bhp_no = $paging->start_number(); $bhp_navi = $paging->navi(); $objResponse = new xajaxResponse(); $table = new Table; $table->tbody_height = 200; $table->addTh("No", "Obat", "Harga"); $table->addExtraTh("style=\"width:30px\"", "", ""); for($i = 0; $i < sizeof($bhp_data); $i++) { $table->addRow(($bhp_no + $i), $bhp_data[$i]['nama'], uangIndo($bhp_data[$i]['biaya'])); $table->addOnclickTd("xajax_get_bhp(".$bhp_data[$i]['id'].", '".addslashes($bhp_data[$i]['nama']). "', '".($bhp_data[$i]['biaya'])."');", "xajax_get_bhp(".$bhp_data[$i]['id'].", '". addslashes($bhp_data[$i]['nama'])."', '".($bhp_data[$i]['biaya'])."');", "xajax_get_bhp(".$bhp_data[$i]['id'].", '".addslashes($bhp_data[$i]['nama']). "', '".($bhp_data[$i]['biaya'])."');"); } $tabel = $table->build(); $objResponse->addAssign("bhp_navi", "innerHTML", $bhp_navi); $objResponse->addAssign("list_bhp", "innerHTML", $tabel); return $objResponse; }
function list_data($hal = 0, $val) { $paging = new MyPagina; $objResponse = new xajaxResponse(); if($val[is_cari] == "1") { if($val[cari_id]) { $q = " AND p.id = '".$val[cari_id]."' "; } else { if($val[cari_nama]) $q .= " AND p.nama LIKE '%".$val[cari_nama]."%' "; if($val[cari_sex]) $q .= " AND p.sex = '".$val[cari_sex]."' "; if($val[cari_alamat]) $q .= " AND p.alamat LIKE '%".$val[cari_alamat]."%' "; if($val[cari_rt]) $q .= " AND p.rt LIKE '%".$val[cari_rt]."%' "; if($val[cari_rw]) $q .= " AND p.rw LIKE '%".$val[cari_rw]."%' "; if($val[cari_desa_id]) $q .= " AND des.id = '".$val[cari_desa_id]."' "; elseif($val[cari_kecamatan_id]) $q .= " AND kec.id = '".$val[cari_kecamatan_id]."' "; elseif($val[cari_kabupaten_id]) $q .= " AND kab.id = '".$val[cari_kabupaten_id]."' "; elseif($val[cari_propinsi_id]) $q .= " AND prop.id = '".$val[cari_propinsi_id]."' "; } } $sql = " SELECT p.id as id, CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as id_display, REPLACE((p.nama), ('".$val[cari_nama]."'), ('<b>".$val[cari_nama]."</b>')) as nama, CONCAT(p.alamat, ' ', 'RT ', p.rt, '/ RW ', p.rw, '<br />',des.nama, ', ', kec.nama, ', ', kab.nama, '<br />', prop.nama) as alamat FROM pasien p JOIN ref_desa des ON (des.id = p.desa_id) JOIN ref_kecamatan kec ON (kec.id = des.kecamatan_id) JOIN ref_kabupaten kab ON (kab.id = kec.kabupaten_id) JOIN ref_propinsi prop ON (prop.id = kab.propinsi_id) WHERE 1=1 $q ORDER BY p.nama "; //echo $sql; //$objResponse->addAssign("debug", "innerHTML", $sql); $paging->hal = $hal; $paging->sql = $sql; $paging->setOnclickValue("xajax.getFormValues('cari_pasien')"); $paging->get_page_result(); $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $table = new Table; $table->tbody_height = 270; $table->addTh("No", "No. RM", "NAMA", "ALAMAT", "HAPUS"); $table->addExtraTh(" style=\"width:40px\" ", " style=\"width:100px\" ", " style=\"width:200px\" ", "", " style=\"width:50px\" "); for($i=0;$i<sizeof($data);$i++) { $table->addRow( ($no+$i), $data[$i][id_display], $data[$i][nama], $data[$i][alamat], "<input type=\"button\" value=\"[ x ]\" name=\"hapus\" class=\"inputan\" onclick=\"xajax_hapus_pasien_confirm('".$data[$i][id]."', '')\" />" ); $table->addOnclickTd( "xajax_get_pasien('".$data[$i][id]."')", "xajax_get_pasien('".$data[$i][id]."')", "xajax_get_pasien('".$data[$i][id]."')", "xajax_get_pasien('".$data[$i][id]."')" ); } $ret = $table->build(); $objResponse->addAssign("cari_navi", "innerHTML", $navi); $objResponse->addAssign("list_data", "innerHTML", $ret); return $objResponse; }
function get_penyakit($val) { $tgl_start = @date("Y-m-d", @mktime(1,1,1,$val[tgl_periksa_bln_start], $val[tgl_periksa_tgl_start], $val[tgl_periksa_thn_start])); $tgl_end = @date("Y-m-d", @mktime(1,1,1,$val[tgl_periksa_bln_end], $val[tgl_periksa_tgl_end], $val[tgl_periksa_thn_end])); if($val[tampilkan] != "Semua") { $batas = $val[tampilkan]; $title = "Statistik ".$val[tampilkan]." Besar Penyakit Rawat Inap"; } else { $batas = 0; $title = "Statistik Penyakit Rawat Inap"; } unset($_SESSION[rekmed][statistik_penyakit_ranap]); $kon = new Konek; if($val[pelayanan_id]) { $kon->sql = "SELECT nama FROM pelayanan WHERE id = '".$val[pelayanan_id]."'"; $kon->execute(); $pel = $kon->getOne(); $title .= "\nBangsal " . $pel[nama]; $_q = "AND pel.id = '".$val[pelayanan_id]."'"; } if($val[jangka_waktu] == "hari") { $tanggal_awal = tanggalIndo($tgl_start, "j F Y"); $tanggal_akhir = tanggalIndo($tgl_end, "j F Y"); $_q .= "AND DATE(kk.tgl_periksa) BETWEEN '" . $tgl_start . "' AND '" . $tgl_end . "'"; } elseif($val[jangka_waktu] == "bulan") { $tanggal_awal = tanggalIndo($tgl_start, "F Y"); $tanggal_akhir = tanggalIndo($tgl_end, "F Y"); $_q .= "AND EXTRACT(YEAR_MONTH FROM kk.tgl_periksa) BETWEEN EXTRACT(YEAR_MONTH FROM '" . $tgl_start . "') AND EXTRACT(YEAR_MONTH FROM '" . $tgl_end . "')"; } else { $tanggal_awal = tanggalIndo($tgl_start, "Y"); $tanggal_akhir = tanggalIndo($tgl_end, "Y"); $_q .= "AND YEAR(kk.tgl_periksa) BETWEEN YEAR('" . $tgl_start . "') AND YEAR ('" . $tgl_end . "')"; } $title .= "\nPeriode " . $tanggal_awal . " s.d. " . $tanggal_akhir; $_SESSION[rekmed][statistik_penyakit_ranap][title] = $title; $sql = " SELECT i.nama as nama, i.id as id_icd, i.kode_icd as kode_icd, 1 as jml, DATE(kk.tgl_periksa) as tgl_periksa FROM icd i JOIN kunjungan_kamar kk ON (kk.diagnosa_utama_id = i.id) JOIN kunjungan k ON (k.id = kk.kunjungan_id) JOIN pasien p ON (p.id = k.pasien_id) JOIN kamar kmr ON (kmr.id = kk.kamar_id) JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id) WHERE kk.kelanjutan IN('DIRUJUK', 'PULANG') AND pel.jenis = 'RAWAT INAP' $_q GROUP BY i.id, k.pasien_id ORDER BY 2 DESC, kk.id ASC "; $kon->sql = $sql; $kon->execute(); $data = $kon->getAll(); $objResponse = new xajaxResponse(); //$objResponse->addAssign("debug", "innerHTML", $sql); $table = new Table; $table->scroll = false; $table->addTh("No", "Kode ICD", "Diagnosa", "Kasus", "%"); $table->addExtraTh( "style=\"width:50px\"", "style=\"width:150px\"", "", "", "style=\"width:70px\"", "style=\"width:70px\"" ); $table->addTh("1", "2", "3", "4", "5"); $n=0; for($i=0;$i<sizeof($data);$i++) { if($data[$i][id_icd] != $data[$i-1][id_icd]) { $new_data[$n][jml] = 1; $new_data[$n][id_icd] = $data[$i][id_icd]; $new_data[$n][nama] = $data[$i][nama]; $new_data[$n][kode_icd] = $data[$i][kode_icd]; $n++; } else { $new_data[$n-1][jml]++; } } //sorting for($i=0;$i<sizeof($new_data);$i++) { //0-10 for($j=($i+1);$j<=sizeof($new_data);$j++) { //1-10 if($new_data[$j][jml] > $new_data[$i][jml]) { $tmp = $new_data[$i]; $new_data[$i] = $new_data[$j]; $new_data[$j] = $tmp; } } } for($i=0;$i<sizeof($new_data);$i++) { if($batas != 0 && $i == $batas) break; $total += $new_data[$i][jml]; } for($i=0;$i<sizeof($new_data);$i++) { if($batas != 0 && $i == $batas) break; $persen = round($new_data[$i][jml]/$total * 100, 2); $table->addRow(($i+1), $new_data[$i][kode_icd], $new_data[$i][nama], $new_data[$i][jml], $persen); $table->addOnclickTd( "xajax_list_pasien('0', '".$new_data[$i][id_icd]."', xajax.getFormValues('sepuluh_besar'))", "xajax_list_pasien('0', '".$new_data[$i][id_icd]."', xajax.getFormValues('sepuluh_besar'))", "xajax_list_pasien('0', '".$new_data[$i][id_icd]."', xajax.getFormValues('sepuluh_besar'))", "xajax_list_pasien('0', '".$new_data[$i][id_icd]."', xajax.getFormValues('sepuluh_besar'))"); $_SESSION[rekmed][statistik_penyakit_ranap][no][$i] = ($i+1); $_SESSION[rekmed][statistik_penyakit_ranap][kode][$i] = $new_data[$i][kode_icd]; $_SESSION[rekmed][statistik_penyakit_ranap][nama][$i] = $new_data[$i][nama]; $_SESSION[rekmed][statistik_penyakit_ranap][jml][$i] = $new_data[$i][jml]; $_SESSION[rekmed][statistik_penyakit_ranap][persen][$i] = $persen; $persen_total += $persen; } $table->addRow("", "<b>Total</b>", "", $total, round($persen_total)); $_SESSION[rekmed][statistik_penyakit_ranap][total] = $total; $_SESSION[rekmed][statistik_penyakit_ranap][persen_total] = round($persen_total); if(empty($_SESSION[rekmed][statistik_penyakit_ranap][jml])) $_SESSION[rekmed][statistik_penyakit_ranap][jml][0] = 1; if(empty($_SESSION[rekmed][statistik_penyakit_ranap][kode])) $_SESSION[rekmed][statistik_penyakit_ranap][kode][0] = "No Data"; $ret = $table->build(); $objResponse->addAssign("list_data", "innerHTML", $ret); $objResponse->addAssign("title", "innerHTML", nl2br($_SESSION[rekmed][statistik_penyakit_ranap][title])); $_SESSION[rekmed][statistik_penyakit_ranap][graph] = "<img src=\"" . URL . "rekmed/statistik_penyakit_ranap_graph_pie/?md5=".md5(date("Ymdhis"))."\" alt=\"Penyakit\" />"; $objResponse->addAssign("graph", "innerHTML", $_SESSION[rekmed][statistik_penyakit_ranap][graph]); return $objResponse; }
function list_data($hal=0,$val="") { //if($_SESSION[pelayanan_id]) $s = " AND pel.id = '" .$_SESSION[pelayanan_id]. "' AND kk.kelanjutan IS NULL"; /* if($semua_pasien == "0") $s .= " AND kk.kelanjutan IS NULL"; else { $tgl_daftar_dari = $val[tgl_mulai_thn] . "-" . $val[tgl_mulai_bln] . "-" . $val[tgl_mulai_tgl]; $tgl_daftar_sampai = $val[tgl_selesai_thn] . "-" . $val[tgl_selesai_bln] . "-" . $val[tgl_selesai_tgl]; $s .= "AND DATE(kk.tgl_daftar) BETWEEN '".$tgl_daftar_dari."' AND '".$tgl_daftar_sampai."'"; } */ /* $kon = new konek; */ $tgl_lahir = $val[tgl_lahir_thn] . "-" . $val[tgl_lahir_bln] . "-" . $val[tgl_lahir_tgl]; if($val[pasien_id]) { $s .= " AND p.id = '".$val[pasien_id]."' AND kk.kelanjutan IS NULL"; } elseif($val[nama]) { $s .= " AND p.nama LIKE '%".$val[nama]."%' AND kk.kelanjutan IS NULL "; } elseif ($val[pilih]){ $tgl_daftar_dari = $val[tgl_mulai_thn] . "-" . $val[tgl_mulai_bln] . "-" . $val[tgl_mulai_tgl]; $tgl_daftar_sampai = $val[tgl_selesai_thn] . "-" . $val[tgl_selesai_bln] . "-" . $val[tgl_selesai_tgl]; $s .= " AND DATE(kk.tgl_daftar) BETWEEN '".$tgl_daftar_dari."' AND '".$tgl_daftar_sampai."' AND kk.kelanjutan IS NULL"; }elseif ($val[telp]){ $s .= " AND p.telp LIKE '%".$val[telp]."%' AND kk.kelanjutan IS NULL "; }elseif ($val[bangsal]){ $s .= " AND kmr.pelayanan_id = '".$val[bangsal]."' AND kk.kelanjutan IS NULL "; }elseif($tgl_lahir){ $s .= " AND DATE(p.tgl_lahir) = '".$tgl_lahir."' AND kk.kelanjutan IS NULL "; }else{ $s .= " AND pel.id = '" .$_SESSION[pelayanan_id]. "' AND kk.kelanjutan IS NULL"; } $paging = new MyPagina; $kon = new Konek; $objResponse = new xajaxResponse(); $paging->setOnclickValue("xajax.getFormValues('form_kunjungan')"); $sql = " SELECT k.id as id_kunjungan, kk.id as id_kunjungan_kamar, kk.parent_id as parent_id, kk.kunjungan_id as kunjungan_id, k.kunjungan_ke as kunjungan_ke, CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as no_rm, p.id as pasien_id, p.nama as nama, pel.nama as pelayanan, kmr.nama as kamar, kmr.kelas as kelas, k.resep as resep, kk.tgl_daftar as tgl_daftar, kk.tgl_periksa as tgl_periksa, kk.tgl_keluar as tgl_keluar, d.nama as dokter, kk.kelanjutan as kelanjutan, CASE WHEN (kk.tgl_keluar IS NULL) THEN DATEDIFF(DATE(NOW()), kk.tgl_daftar) ELSE DATEDIFF(kk.tgl_keluar, kk.tgl_daftar) END as lama_dirawat FROM kunjungan k JOIN pasien p ON (p.id = k.pasien_id) JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id) JOIN kamar kmr ON (kmr.id = kk.kamar_id) JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id) LEFT JOIN dokter d ON (d.id = kk.dokter_id) WHERE pel.jenis = 'RAWAT INAP' $s ORDER BY kmr.nama, d.nama, kk.id "; $paging->sql = $sql; $paging->rows_on_page = 10; $paging->hal = $hal; $paging->get_page_result(); $_SESSION[hal] = $hal; $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $table = new Table; $table->tbody_height = 290; $table->addTh( "No", "No.<br />Kjg", "No. RM", "Pasien", "Kjg<br />Ke", "Kamar", "Dokter", "Tgl<br />Masuk", "Tgl<br />Keluar", "Lama<br />Dirawat<br />(hari)", "Kelanjutan", "Diberi<br />Resep", "Kjg<br />Sebelumnya", "Daftar<br />Penunjang", "Tagihan", "Status Bayar" /*, "Cetak" ,"Hapus"*/ ); $table->addExtraTh( "style=\"width:50px;\"", "style=\"width:50px;\"", "style=\"width:80px;\"", "style=\"width:200px;\"", "", "", "", "", "", "", "", "", "", "style=\"width:80px;\"" /*,"style=\"width:70px;\""*/ ); $x = 0; for($i=0;$i<sizeof($data);$i++) { //status bayar $kon->sql = " SELECT kb.nama as nama, kb.bayar_bhp+kb.bayar_jasa as bayar, kb.mampu_bayar_bhp+kb.mampu_bayar_jasa as mampu_bayar, kwd.kwitansi_id as kwitansi_id, kw.status as status FROM kunjungan_bayar kb JOIN pelayanan pel ON (pel.id = kb.poli_id) JOIN kunjungan_kamar kk ON (kk.id = kb.kunjungan_kamar_id) LEFT JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id) LEFT JOIN kwitansi kw ON (kw.id = kwd.kwitansi_id) WHERE kb.poli_id IS NOT NULL AND kk.kunjungan_id = '".$data[$i][kunjungan_id]."' GROUP BY kb.id ORDER BY kb.id"; $kon->execute(); $data_poli = $kon->getOne(); if(!empty($data_poli)){ if (!empty($data_poli[status])){ $status_bayar = "<font color = blue><b>LUNAS</b></font>"; } else { $status_bayar = "<font color = red><b>BELUM LUNAS</b></font>"; } }else {$status_bayar = "<font color = red><b>BELUM LUNAS</b></font>";} if($data[$i][lama_dirawat] == 0) $lama_dirawat = 1; else $lama_dirawat = $data[$i][lama_dirawat]; $table->addRow( ($no+$i), $data[$i][id_kunjungan], $data[$i][no_rm], $data[$i][nama], $data[$i][kunjungan_ke], $data[$i][kamar], $data[$i][dokter], tanggalIndo($data[$i][tgl_daftar], 'j M Y') . "<br>" . tanggalIndo($data[$i][tgl_daftar], 'H:i'), tanggalIndo($data[$i][tgl_keluar], 'j M Y') . "<br>" . tanggalIndo($data[$i][tgl_keluar], 'H:i'), $lama_dirawat, $data[$i][kelanjutan], $data[$i][resep], "<a href=\"javascript:void(0)\" style=\"display:block;\" title=\"Kunjungan Sebelumnya\" onclick=\"xajax_buka_list_kunjungan('0','".$data[$i][pasien_id]."')\"><img src=\"".IMAGES_URL."kunjungan24.png\" alt=\"Kunjungan Sebelumnya\" border=\"0\" /></a>", "<a href=\"javascript:void(0)\" style=\"display:block;\" title=\"Daftar Penunjang\" onclick=\"buka_daftar_penunjang('".$data[$i][id_kunjungan_kamar]."', '".$data[$i][kelas]."')\"><img src=\"".IMAGES_URL."edu_science.png\" alt=\"Daftar Penunjang\" border=\"0\" /></a>", "<a href=\"javascript:void(0)\" style=\"display:block;\" title=\"Tagihan\" onclick=\"xajax_buka_langsung_bayar('".$data[$i][id_kunjungan_kamar]."')\"><img src=\"".IMAGES_URL."uang.png\" alt=\"Tagihan\" border=\"0\" /></a>",$status_bayar.""/*, "<a href=\"javascript:void(0)\" style=\"display:block;\" title=\"Cetak Tindakan, BHP, dan Imunisasi\" onclick=\"xajax_buka_tbi('".$data[$i][id_kunjungan_kamar]."')\"><img src=\"".IMAGES_URL."pengobatan.png\" alt=\"Cetak Tindakan, BHP, dan Imunisasi\" border=\"0\" /></a>" ,"<input type=\"button\" value=\"[ x ]\" name=\"hapus\" class=\"inputan\" onclick=\"xajax_hapus_kunjungan_kamar_confirm('".$data[$i][id_kunjungan]."','".$data[$i][id_kunjungan_kamar]."', this)\" />"*/ ); $table->addOnclickTd( "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."', '".$data[$i][parent_id]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."', '".$data[$i][parent_id]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."', '".$data[$i][parent_id]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."', '".$data[$i][parent_id]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."', '".$data[$i][parent_id]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."', '".$data[$i][parent_id]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."', '".$data[$i][parent_id]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."', '".$data[$i][parent_id]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."', '".$data[$i][parent_id]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."', '".$data[$i][parent_id]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."', '".$data[$i][parent_id]."')" ); } $ret = $table->build(); $objResponse = new xajaxResponse(); /* BIKIN SESSION HAK DAN SIFAT, AGAR NGIRIT MEMORI DI MODAL KUNJUNGAN */ $kon = new Konek; $kon->sql = "SELECT id, nama FROM hak ORDER BY nama"; $kon->execute(); $_SESSION[ranap][hak] = $kon->getAll(); $kon->sql = "SELECT * FROM sifat"; $kon->execute(); $_SESSION[ranap][sifat] = $kon->getAll(); //$objResponse->addAssign("debug", "innerHTML", $sql); //$objResponse->addAssign("debug", "innerHTML", $s); $objResponse->addAssign("navi", "innerHTML", $navi); $objResponse->addAssign("list_data", "innerHTML", $ret); return $objResponse; }
function list_data($hal=0, $val="") { if($val[pelayanan_id]) $s .= " AND pel.id = '" .$val[pelayanan_id]. "'"; $tgl_periksa_dari = $val[tgl_mulai_thn] . "-" . $val[tgl_mulai_bln] . "-" . $val[tgl_mulai_tgl]; $tgl_periksa_sampai = $val[tgl_selesai_thn] . "-" . $val[tgl_selesai_bln] . "-" . $val[tgl_selesai_tgl]; //$tgl_periksa_dari = $val[tgl_mulai_bln] . "/" . $val[tgl_mulai_tgl] . "/" . $val[tgl_mulai_thn]; //$tgl_periksa_sampai = $val[tgl_selesai_bln] . "/" . $val[tgl_selesai_tgl] . "/" . $val[tgl_selesai_thn]; $paging = new MyPagina; $paging->setOnclickValue("xajax.getFormValues('form_kunjungan')"); $sql = " SELECT k.id as id_kunjungan, kk.id as id_kunjungan_kamar, k.kunjungan_ke as kunjungan_ke, kk.no_antrian as no_antrian, CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as no_rm, p.id as pasien_id, p.nama as nama, pel.nama as pelayanan, kk.tgl_daftar as tgl_daftar, kk.tgl_periksa as tgl_periksa, kk.tgl_keluar as tgl_keluar FROM kunjungan k JOIN pasien p ON (p.id = k.pasien_id) JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id) JOIN kamar kmr ON (kmr.id = kk.kamar_id) JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id) WHERE DATE(kk.tgl_periksa) BETWEEN '".$tgl_periksa_dari."' AND '".$tgl_periksa_sampai."' AND pel.jenis = 'RAWAT JALAN' $s ORDER BY k.id DESC, kk.id ASC "; $paging->sql = $sql; $paging->rows_on_page = 20; $paging->hal = $hal; $paging->get_page_result(); $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $table = new Table; $table->tbody_height = 300; $table->addTh( "No", "No.<br />Kjg", "No. RM", "Pasien", "Poliklinik", "Tgl<br />Daftar", "Tgl<br />Keluar", "Hapus" ); $table->addExtraTh("style=\"width:50px;\"","style=\"width:50px;\"","style=\"width:80px;\"","style=\"width:400px;\"","","","","style=\"width:70px;\""); for($i=0;$i<sizeof($data);$i++) { $table->addRow( ($no+$i), $data[$i][id_kunjungan], $data[$i][no_rm], $data[$i][nama], $data[$i][pelayanan], tanggalIndo($data[$i][tgl_daftar], 'j M Y') . "<br />" . tanggalIndo($data[$i][tgl_daftar], 'H:i'), tanggalIndo($data[$i][tgl_keluar], 'j M Y') . "<br />" . tanggalIndo($data[$i][tgl_keluar], 'H:i'), "<a href=\"javascript:void(0)\" title=\"Hapus Kunjungan\" onclick=\"hapus_kunjungan_kamar('".$data[$i][id_kunjungan]."','".$data[$i][id_kunjungan_kamar]."', this)\" class=\"tombol_hapus\"><img src=\"".IMAGES_URL."remove.png\" alt=\"Hapus Kunjungan\" border=\"0\" /></a>"); $table->addOnclickTd( "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."')" ); } $ret = $table->build(); $objResponse = new xajaxResponse(); //$objResponse->addAssign("debug", "innerHTML", $sql); $objResponse->addAssign("navi", "innerHTML", $navi); $objResponse->addAssign("list_data", "innerHTML", $ret); return $objResponse; }
function cari_kendaraan() { $objResponse = new xajaxResponse; $table = new Table; $table->tbody_height = 200; $table->addTh("No", "Jenis Kendaraan"); $table->addExtraTh("style=\"width:30px\"", ""); $table->addRow("1", "SEWA AMBULANCE"); $table->addOnclickTd("xajax_get_kendaraan('SEWA AMBULANCE');","xajax_get_kendaraan('SEWA AMBULANCE', xajax.getFormValues('input_kunjungan'));"); $table->addRow("2", "SEWA MOBIL JENAZAH"); $table->addOnclickTd("xajax_get_kendaraan('SEWA MOBIL JENAZAH');","xajax_get_kendaraan('SEWA MOBIL JENAZAH', xajax.getFormValues('input_kunjungan'));"); $tabel = $table->build(); $objResponse->addAssign("list_kendaraan","innerHTML", $tabel); return $objResponse; }
function list_data($hal=0, $val="") { $tgl_periksa_dari = $val[tgl_mulai_thn] . "-" . $val[tgl_mulai_bln] . "-" . $val[tgl_mulai_tgl]; $tgl_periksa_sampai = $val[tgl_selesai_thn] . "-" . $val[tgl_selesai_bln] . "-" . $val[tgl_selesai_tgl]; $paging = new MyPagina; $paging->setOnclickValue("xajax.getFormValues('form_kunjungan')"); $sql = " SELECT k.id as id_kunjungan, kk.id as id_kunjungan_kamar, k.kunjungan_ke as kunjungan_ke, kk.no_antrian as no_antrian, CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as no_rm, p.id as pasien_id, p.nama as nama, pel.nama as pelayanan, kmr.nama as kamar, kk.tgl_periksa as tgl_periksa, d.nama as dokter, kk.kelanjutan as kelanjutan FROM kunjungan k JOIN pasien p ON (p.id = k.pasien_id) JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id) JOIN kamar kmr ON (kmr.id = kk.kamar_id) JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id) LEFT JOIN dokter d ON (d.id = kk.dokter_id) WHERE DATE(kk.tgl_periksa) BETWEEN '".$tgl_periksa_dari."' AND '".$tgl_periksa_sampai."' AND pel.jenis = 'IGD' AND pel.id = 1 ORDER BY kk.id DESC "; $paging->sql = $sql; $paging->rows_on_page = 10; $paging->hal = $hal; $paging->get_page_result(); $_SESSION[igd_kunjungan][hal] = $hal; $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $table = new Table; $table->tbody_height = 310; $table->addTh( "No", "No.<br />Kjg", "No. RM", "Pasien", "Kjg<br />Ke", "Dokter", "Tgl<br />Periksa", "Kelanjutan", "Kjg<br />Sebelumnya", "Daftar<br />Penunjang", "Lsg<br />Bayar" /*,"Hapus"*/ ); //$table->addExtraTh("style=\"width:50px;\"","style=\"width:50px;\"","style=\"width:80px;\"","style=\"width:200px;\"","","","","","","","style=\"width:70px;\""); $table->addExtraTh( "style=\"width:50px;\"", "style=\"width:50px;\"", "style=\"width:80px;\"", "style=\"width:200px;\"", "", "", "", "", "style=\"width:80px;\"", "style=\"width:80px;\"", "style=\"width:80px;\""); for($i=0;$i<sizeof($data);$i++) { $table->addRow( ($no+$i), $data[$i][id_kunjungan], $data[$i][no_rm], $data[$i][nama], $data[$i][kunjungan_ke], $data[$i][dokter], tanggalIndo($data[$i][tgl_periksa], 'j M Y'), $data[$i][kelanjutan], "<a href=\"javascript:void(0)\" style=\"display:block;\" title=\"Kunjungan Sebelumnya\" onclick=\"xajax_buka_list_kunjungan('0','".$data[$i][pasien_id]."')\"><img src=\"".IMAGES_URL."kunjungan24.png\" alt=\"Kunjungan Sebelumnya\" border=\"0\" /></a>", "<a href=\"javascript:void(0)\" style=\"display:block;\" title=\"Daftar Penunjang\" onclick=\"buka_daftar_penunjang('".$data[$i][id_kunjungan_kamar]."')\"><img src=\"".IMAGES_URL."edu_science.png\" alt=\"Daftar Penunjang\" border=\"0\" /></a>", "<a href=\"javascript:void(0)\" style=\"display:block;\" title=\"Langsung Bayar\" onclick=\"xajax_buka_langsung_bayar('".$data[$i][id_kunjungan_kamar]."')\"><img src=\"".IMAGES_URL."uang.png\" alt=\"Langsung Bayar\" border=\"0\" /></a>" /*,"<input type=\"button\" value=\"[ x ]\" name=\"hapus\" class=\"inputan\" onclick=\"xajax_hapus_kunjungan_kamar_confirm('".$data[$i][id_kunjungan]."','".$data[$i][id_kunjungan_kamar]."', this)\" />"*/ ); $table->addOnclickTd( "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."')" ); } $ret = $table->build(); $objResponse = new xajaxResponse(); //$objResponse->addAssign("debug", "innerHTML", $sql); /* BIKIN SESSION HAK DAN SIFAT, AGAR NGIRIT MEMORI DI MODAL KUNJUNGAN */ $kon = new Konek; $kon->sql = "SELECT id, nama FROM hak ORDER BY nama"; $kon->execute(); $_SESSION[igd][hak] = $kon->getAll(); $kon->sql = "SELECT * FROM sifat"; $kon->execute(); $_SESSION[igd][sifat] = $kon->getAll(); $objResponse->addAssign("navi", "innerHTML", $navi); $objResponse->addAssign("list_data", "innerHTML", $ret); return $objResponse; }
function list_data($jenis = "BELUM", $limit = 5, $auto = "0", $tgl="") { if($jenis == "BELUM") $s .= " AND trc.cetak = 'BELUM' "; elseif($jenis == "SUDAH") $s .= " AND trc.cetak = 'SUDAH' "; if($tgl) $s .= "AND DATE(trc.tgl_keluar) = '".$tgl."' "; $kon = new Konek; $sql = " SELECT k.id as id_kunjungan, kk.id as id_kunjungan_kamar, CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as no_rm, p.id as pasien_id, p.nama as nama, kmr.nama as kamar, kk.tgl_daftar as tgl_daftar, kk.tgl_periksa as tgl_periksa, d.nama as nama_dokter, trc.cetak as tercetak FROM kunjungan k JOIN pasien p ON (p.id = k.pasien_id) JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id) JOIN tracer trc ON (trc.kunjungan_kamar_id = kk.id) JOIN kamar kmr ON (kmr.id = kk.kamar_id) LEFT JOIN dokter d ON (d.id = kk.dokter_id) WHERE trc.cetak IS NOT NULL $s ORDER BY kk.id "; $kon->sql = $sql; $kon->execute(); $data = $kon->getAll(); $table = new Table; $table->tbody_height = 340; $table->addTh( "No", "No.<br />Kjg", "No. RM", "Pasien", "Pelayanan", "Dokter", "Tgl<br />Daftar", "Tgl<br />Periksa", "Tracer<br />Tercetak", "Cetak<br />Sendiri" ); $table->addExtraTh("style=\"width:50px;\"","style=\"width:50px;\"","style=\"width:80px;\"","style=\"width:200px;\"","","","","","","style=\"width:50px;\""); for($i=0;$i<sizeof($data);$i++) { $table->addRow( ($i+1), $data[$i][id_kunjungan], $data[$i][no_rm], $data[$i][nama], $data[$i][kamar], $data[$i][nama_dokter], tanggalIndo($data[$i][tgl_daftar], 'j M Y'), tanggalIndo($data[$i][tgl_periksa], 'j M Y'), $data[$i][tercetak], "<a href=\"javascript:void(0)\" title=\"Cetak ini saja\" style=\"display:block;\" onclick=\"cetak('".URL."filing/cetak_tracer_cetak/?kkid=".$data[$i][id_kunjungan_kamar]."',350,300)\"><img src=\"".IMAGES_URL."printer_hitam.png\" alt=\"Cetak\" border=\"0\" /></a>"); $table->addOnclickTd( "xajax_list_semua_kunjungan('0', '".$data[$i][pasien_id]."')", "xajax_list_semua_kunjungan('0', '".$data[$i][pasien_id]."')", "xajax_list_semua_kunjungan('0', '".$data[$i][pasien_id]."')", "xajax_list_semua_kunjungan('0', '".$data[$i][pasien_id]."')", "xajax_list_semua_kunjungan('0', '".$data[$i][pasien_id]."')", "xajax_list_semua_kunjungan('0', '".$data[$i][pasien_id]."')", "xajax_list_semua_kunjungan('0', '".$data[$i][pasien_id]."')", "xajax_list_semua_kunjungan('0', '".$data[$i][pasien_id]."')", "xajax_list_semua_kunjungan('0', '".$data[$i][pasien_id]."')" ); } $ret = $table->build(); $objResponse = new xajaxResponse(); //$objResponse->addAssign("debug", "innerHTML", $auto); $objResponse->addAssign("navi", "innerHTML", $navi); $objResponse->addAssign("list_data", "innerHTML", $ret); //jika ada pasien dan auto cetak dihidupkan, maka jalankan skrip membuka window cetak if(!empty($data) && $auto == "1") { $tgl = str_replace("-", "|", $tgl); $objResponse->addScriptCall("cetak_tracer", URL . "filing/cetak_tracer_cetak/?jenis=" . $jenis . "&limit=" . $limit . "&tgl=" . $tgl, 350, 600); } return $objResponse; }
function list_data($hal=0, $val="") { if($val[cara_bayar]) $q = " AND kk.cara_bayar = '".$val[cara_bayar]."' "; if($val[pasien_id]) { $q .= " AND p.id = '".$val[pasien_id]."' "; } elseif($val[nama]) { $q .= " AND p.nama LIKE '%".$val[nama]."%' "; } elseif($val[kwitansi_id]) { $q .= " AND kw.id = '".$val[kwitansi_id]."' "; } else { $tgl_daftar_dari = $val[tgl_mulai_thn] . "-" . $val[tgl_mulai_bln] . "-" . $val[tgl_mulai_tgl]; $tgl_daftar_sampai = $val[tgl_selesai_thn] . "-" . $val[tgl_selesai_bln] . "-" . $val[tgl_selesai_tgl]; $q .= " AND DATE(kk.tgl_keluar) BETWEEN '".$tgl_daftar_dari."' AND '".$tgl_daftar_sampai."' "; } if(!$val[semua]) $q .= " AND kw.status = 'ANGSUR' "; $paging = new MyPagina; $paging->setOnclickValue("xajax.getFormValues('form_kunjungan')"); $sql = " SELECT k.id as id_kunjungan, kk.id as id_kunjungan_kamar, CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as no_rm, p.id as pasien_id, REPLACE((p.nama), ('".$val[nama]."'), ('<b>".$val[nama]."</b>')) as nama, kk.cara_bayar as cara_bayar, CONCAT(p.alamat, ' ', 'RT ', p.rt, '/ RW ', p.rw, '<br />',des.nama, ', ', kec.nama, ', ', kab.nama, '<br />', prop.nama) as alamat, CONCAT_WS('-', kw.tempat_pembayaran, kw.id) as no_kwitansi, kw.id as kwitansi_id, kw.bayar as bayar, SUM(kb.bayar_bhp+kb.bayar_jasa)-kw.bayar as kurang, kw.tgl as tgl FROM kunjungan k JOIN pasien p ON (p.id = k.pasien_id) JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id) JOIN kamar kmr ON (kmr.id = kk.kamar_id) JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id) JOIN kunjungan_bayar kb ON (kb.kunjungan_kamar_id = kk.id) JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id) JOIN kwitansi kw ON (kw.id = kwd.kwitansi_id) JOIN ref_desa des ON (des.id = p.desa_id) JOIN ref_kecamatan kec ON (kec.id = des.kecamatan_id) JOIN ref_kabupaten kab ON (kab.id = kec.kabupaten_id) JOIN ref_propinsi prop ON (prop.id = kab.propinsi_id) WHERE 1=1 $q GROUP BY kw.id ORDER BY kw.id "; $paging->sql = $sql; $paging->rows_on_page = 20; $paging->hal = $hal; $paging->get_page_result(); $_SESSION[keuangan_kunjungan][hal] = $hal; $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $table = new Table; $table->tbody_height = 310; $table->addTh( "No", "No. RM", "Nama Pasien", "Alamat", "Cara Bayar", "Nomor Kwitansi", "Bayar", "Kurang" ); $table->addExtraTh("style=\"width:20px;\"","style=\"width:100px;\"","","","","","",""); for($i=0;$i<sizeof($data);$i++) { //if(!empty($baru[$i][kamar])) $kamar = implode("<br />", $baru[$i][kamar]); //else $kamar = $baru[$i][kamar][0]; $table->addRow( ($no+$i), $data[$i][no_rm], $data[$i][nama], $data[$i][alamat], $data[$i][cara_bayar], $data[$i][no_kwitansi], uangIndo($data[$i][bayar]), uangIndo($data[$i][kurang]) ); $table->addOnclickTd( "xajax_buka_langsung_bayar('".$data[$i][kwitansi_id]."')", "xajax_buka_langsung_bayar('".$data[$i][kwitansi_id]."')", "xajax_buka_langsung_bayar('".$data[$i][kwitansi_id]."')", "xajax_buka_langsung_bayar('".$data[$i][kwitansi_id]."')", "xajax_buka_langsung_bayar('".$data[$i][kwitansi_id]."')", "xajax_buka_langsung_bayar('".$data[$i][kwitansi_id]."')", "xajax_buka_langsung_bayar('".$data[$i][kwitansi_id]."')", "xajax_buka_langsung_bayar('".$data[$i][kwitansi_id]."')" ); } $ret = $table->build(); $objResponse = new xajaxResponse(); //$objResponse->addAssign("debug", "innerHTML", $val[semua]); $objResponse->addAssign("navi", "innerHTML", $navi); $objResponse->addAssign("list_data", "innerHTML", $ret); return $objResponse; }
function get_pasien($val) { $tgl_start = @date("Y-m-d", @mktime(1,1,1,$val[tgl_periksa_bln_start], $val[tgl_periksa_tgl_start], $val[tgl_periksa_thn_start])); $tgl_end = @date("Y-m-d", @mktime(1,1,1,$val[tgl_periksa_bln_end], $val[tgl_periksa_tgl_end], $val[tgl_periksa_thn_end])); $title = "Distribusi Pasien Menurut Pekerjaan"; unset($_SESSION[rekmed][statistik_pasien_semua_pekerjaan]); $kon = new Konek; if($val[jangka_waktu] == "hari") { $tanggal_awal = tanggalIndo($tgl_start, "j F Y"); $tanggal_akhir = tanggalIndo($tgl_end, "j F Y"); $_q .= "AND DATE(p.tgl_daftar) BETWEEN '" . $tgl_start . "' AND '" . $tgl_end . "'"; } elseif($val[jangka_waktu] == "bulan") { $tanggal_awal = tanggalIndo($tgl_start, "F Y"); $tanggal_akhir = tanggalIndo($tgl_end, "F Y"); $_q .= "AND EXTRACT(YEAR_MONTH FROM p.tgl_daftar) BETWEEN EXTRACT(YEAR_MONTH FROM '" . $tgl_start . "') AND EXTRACT(YEAR_MONTH FROM '" . $tgl_end . "')"; } else { $tanggal_awal = tanggalIndo($tgl_start, "Y"); $tanggal_akhir = tanggalIndo($tgl_end, "Y"); $_q .= "AND YEAR(p.tgl_daftar) BETWEEN YEAR('" . $tgl_start . "') AND YEAR ('" . $tgl_end . "')"; } $title .= "\nPeriode " . $tanggal_awal . " s.d. " . $tanggal_akhir; $_SESSION[rekmed][statistik_pasien_semua_pekerjaan][title] = $title; $sql = " SELECT rp.id as id, rp.nama as nama, COUNT(p.id) as jml FROM ref_pekerjaan rp JOIN pasien p ON (p.pekerjaan_id = rp.id) WHERE 1=1 $_q GROUP BY rp.id ORDER BY 3 DESC "; $kon->sql = $sql; $kon->execute(); $data = $kon->getAll(); $objResponse = new xajaxResponse(); //$objResponse->addAssign("debug", "innerHTML", $sql); $table = new Table; $table->scroll = false; $table->addTh("No", "Pekerjaan", "Jumlah", "%"); $table->addExtraTh( "style=\"width:50px\"", "style=\"width:200px\"", "", "style=\"width:70px\"" ); $table->addTh("1", "2", "3", "4"); for($i=0;$i<sizeof($data);$i++) { $total = $total+$data[$i][jml]; } for($i=0;$i<sizeof($data);$i++) { $persen = round($data[$i][jml]/$total * 100, 2); $table->addRow(($i+1), $data[$i][nama], $data[$i][jml], $persen); $table->addOnclickTd( "xajax_list_pasien('0', '".$data[$i][id]."', xajax.getFormValues('statistik_pasien_semua_pekerjaan'))", "xajax_list_pasien('0', '".$data[$i][id]."', xajax.getFormValues('statistik_pasien_semua_pekerjaan'))", "xajax_list_pasien('0', '".$data[$i][id]."', xajax.getFormValues('statistik_pasien_semua_pekerjaan'))", "xajax_list_pasien('0', '".$data[$i][id]."', xajax.getFormValues('statistik_pasien_semua_pekerjaan'))"); $_SESSION[rekmed][statistik_pasien_semua_pekerjaan][no][$i] = ($i+1); $_SESSION[rekmed][statistik_pasien_semua_pekerjaan][nama][$i] = $data[$i][nama]; $_SESSION[rekmed][statistik_pasien_semua_pekerjaan][jml][$i] = $data[$i][jml]; $_SESSION[rekmed][statistik_pasien_semua_pekerjaan][persen][$i] = $persen; $persen_total += $persen; } $_SESSION[rekmed][statistik_pasien_semua_pekerjaan][total] = $total; $_SESSION[rekmed][statistik_pasien_semua_pekerjaan][persen_total] = round($persen_total); $table->addRow("", "<b>Total</b>", $_SESSION[rekmed][statistik_pasien_semua_pekerjaan][total], $_SESSION[rekmed][statistik_pasien_semua_pekerjaan][persen_total]); $ret = $table->build(); if(empty($_SESSION[rekmed][statistik_pasien_semua_pekerjaan][jml])) $_SESSION[rekmed][statistik_pasien_semua_pekerjaan][jml][0] = 1; if(empty($_SESSION[rekmed][statistik_pasien_semua_pekerjaan][nama])) $_SESSION[rekmed][statistik_pasien_semua_pekerjaan][nama][0] = "No Data"; $objResponse->addAssign("list_data", "innerHTML", $ret); $objResponse->addAssign("title", "innerHTML", nl2br($_SESSION[rekmed][statistik_pasien_semua_pekerjaan][title])); $_SESSION[rekmed][statistik_pasien_semua_pekerjaan][graph] = "<img src=\"" . URL . "rekmed/statistik_pasien_semua_pekerjaan_graph_pie/?md5=".md5(date("Ymdhis"))."\" alt=\"Pasien\" />"; $objResponse->addAssign("graph", "innerHTML", $_SESSION[rekmed][statistik_pasien_semua_pekerjaan][graph]); return $objResponse; }
function list_data($hal=0, $semua_pasien = "0", $val="") { if($_SESSION[pelayanan_id]) $s = " AND pel.id = '" .$_SESSION[pelayanan_id]. "'"; if($semua_pasien == "0") $s .= " AND kk.kelanjutan IS NULL"; else { $tgl_daftar_dari = $val[tgl_mulai_thn] . "-" . $val[tgl_mulai_bln] . "-" . $val[tgl_mulai_tgl]; $tgl_daftar_sampai = $val[tgl_selesai_thn] . "-" . $val[tgl_selesai_bln] . "-" . $val[tgl_selesai_tgl]; $s .= "AND DATE(kk.tgl_daftar) BETWEEN '".$tgl_daftar_dari."' AND '".$tgl_daftar_sampai."'"; } $paging = new MyPagina; $paging->setOnclickValue("'".$semua_pasien."'", "xajax.getFormValues('form_kunjungan')"); $sql = " SELECT k.id as id_kunjungan, kk.id as id_kunjungan_kamar, kk.parent_id as parent_id, k.kunjungan_ke as kunjungan_ke, CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as no_rm, p.id as pasien_id, p.nama as nama, pel.nama as pelayanan, kmr.nama as kamar, kmr.kelas as kelas, kk.tgl_daftar as tgl_daftar, kk.tgl_periksa as tgl_periksa, kk.tgl_keluar as tgl_keluar, d.nama as dokter, kk.kelanjutan as kelanjutan, CASE WHEN (kk.tgl_keluar IS NULL) THEN DATEDIFF(DATE(NOW()), kk.tgl_daftar) ELSE DATEDIFF(kk.tgl_keluar, kk.tgl_daftar) END as lama_dirawat FROM kunjungan k JOIN pasien p ON (p.id = k.pasien_id) JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id) JOIN kamar kmr ON (kmr.id = kk.kamar_id) JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id) LEFT JOIN dokter d ON (d.id = kk.dokter_id) WHERE pel.jenis = 'RAWAT INAP' $s ORDER BY kmr.nama, d.nama, kk.no_antrian "; $paging->sql = $sql; $paging->rows_on_page = 10; $paging->hal = $hal; $paging->get_page_result(); $_SESSION[hal] = $hal; $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $table = new Table; $table->tbody_height = 310; $table->addTh( "No", "No.<br />Kjg", "No. RM", "Pasien", "Kjg<br />Ke", "Kamar", "Dokter", "Tgl<br />Masuk", "Tgl<br />Keluar", "Lama<br />Dirawat<br />(hari)", "Kelanjutan" /*,"Hapus"*/ ); $table->addExtraTh( "style=\"width:50px;\"", "style=\"width:50px;\"", "style=\"width:80px;\"", "style=\"width:200px;\"", "", "", "", "", "", "", "" /*,"style=\"width:70px;\""*/ ); $x = 0; for($i=0;$i<sizeof($data);$i++) { if($data[$i][lama_dirawat] == 0) $lama_dirawat = 1; else $lama_dirawat = $data[$i][lama_dirawat]; $table->addRow( ($no+$i), $data[$i][id_kunjungan], $data[$i][no_rm], $data[$i][nama], $data[$i][kunjungan_ke], $data[$i][kamar], $data[$i][dokter], tanggalIndo($data[$i][tgl_daftar], 'j M Y') . "<br>" . tanggalIndo($data[$i][tgl_daftar], 'H:i'), tanggalIndo($data[$i][tgl_keluar], 'j M Y') . "<br>" . tanggalIndo($data[$i][tgl_keluar], 'H:i'), $lama_dirawat, $data[$i][kelanjutan] /*,"<input type=\"button\" value=\"[ x ]\" name=\"hapus\" class=\"inputan\" onclick=\"xajax_hapus_kunjungan_kamar_confirm('".$data[$i][id_kunjungan]."','".$data[$i][id_kunjungan_kamar]."', this)\" />"*/ ); $table->addOnclickTd( "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."', '".$data[$i][parent_id]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."', '".$data[$i][parent_id]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."', '".$data[$i][parent_id]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."', '".$data[$i][parent_id]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."', '".$data[$i][parent_id]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."', '".$data[$i][parent_id]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."', '".$data[$i][parent_id]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."', '".$data[$i][parent_id]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."', '".$data[$i][parent_id]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."', '".$data[$i][parent_id]."')", "xajax_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."', '".$data[$i][parent_id]."')" ); } $ret = $table->build(); $objResponse = new xajaxResponse(); //$objResponse->addAssign("debug", "innerHTML", $sql); $objResponse->addAssign("navi", "innerHTML", $navi); $objResponse->addAssign("list_data", "innerHTML", $ret); return $objResponse; }