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;
}
