function list_semua_kunjungan($hal, $pasien_id) {
$paging = new MyPagina;
$paging->hal = $hal;
$paging->rows_on_page = 5;
$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,
kmr.nama as kamar,
kk.tgl_periksa as tgl_periksa,
d.nama as nama_dokter
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)
LEFT JOIN dokter d ON (d.id = kk.dokter_id)
WHERE
p.id = '".$pasien_id."'
ORDER BY
kk.id ASC
";
$paging->sql = $sql;
$paging->onclick_func = "xajax_list_semua_kunjungan";
$paging->setOnclickValue($pasien_id);
$paging->get_page_result();
$data = $paging->data;
$no = $paging->start_number();
$navi = $paging->navi();
$objResponse = new xajaxResponse();
//$objResponse->addAssign('debug', 'innerHTML', $sql);
$objResponse->addScriptCall("buka_semua_kunjungan");
$ret .= "<br /><b>No.RM : " . $data[0][no_rm] . "</b>";
$ret .= "<br /><b>Pasien : " . $data[0][nama] . "</b>";
$ret .= "<hr />";
for($i=0;$i<sizeof($data);$i++) {
$ret .= "<table cellpadding=\"0\" cellspacing=\"2\" border=\"0\">";
$ret .= "<tr><td colspan=\"2\"><b>Kunjungan Ke-" . $data[$i][kunjungan_ke] ."</b></td></tr>";
$ret .= "<tr><td style=\"width:150px\">Tanggal Kunjung</td><td>" . tanggalIndo($data[$i][tgl_periksa], "j F Y") . "</td></tr>";
$ret .= "<tr><td>Pelayanan</td><td>" . $data[$i][kamar] . "</td></tr>";
$ret .= "<tr><td>Dokter</td><td>" . $data[$i][nama_dokter] . "</td></tr>";
$ret .= "</table>";
$ret .= "<hr />";
}
$modal = new Modal;
$modal->setNavi($navi);
$modal->setTitle("Daftar Kunjungan");
$modal->setContent($ret);
$modal->setCloseButtonOnclick("tutup_semua_kunjungan()");
$modal_cnt = $modal->build();
//$objResponse->addAssign("list_semua_kunjungan_navi", "innerHTML", $navi);
$objResponse->addAssign("list_semua_kunjungan", "innerHTML", $modal_cnt);
return $objResponse;
}
function buka_tbi($idkk) {
unset($_SESSION[ranap][kunjungan][jasa_cetak]);
$kon = new Konek;
//$kon->debug = 1;
$objResponse = new xajaxResponse;
//get data pasien
$kon->sql = "
SELECT
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,
p.nama as nama,
p.tgl_lahir as tgl_lahir,
CONCAT(p.alamat, ' ', IF(p.rt = '','',CONCAT(' RT ', p.rt)), IF(p.rw = '','',CONCAT(' RW ', p.rw)), ', ', des.nama, ', ', kec.nama, ', ', kab.nama) as alamat,
kk.tgl_periksa as tgl_periksa,
pel.nama as nama_pelayanan,
p.sex as jk,
kk.cara_bayar as cara_bayar,
kk.jenis_askes as jenis_askes,
kk.nomor as nomor
FROM
kunjungan_kamar kk
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)
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
kk.id = '".$idkk."'
GROUP BY
p.id
";
$kon->execute();
$data_pasien = $kon->getOne();
$arr_usia = hitungUmur($data_pasien[tgl_lahir], $data_pasien[tgl_periksa]);
$usia = empty($arr_usia[tahun])?"":$arr_usia[tahun] . " thn ";
$usia .= empty($arr_usia[bulan])?"":$arr_usia[bulan] . " bln ";
$usia .= empty($arr_usia[hari])?"":$arr_usia[hari] . " hr ";
$tabel = new Table;
$tabel->scroll = false;
$tabel->css_table = "";
$tabel->cellspacing = "5";
$tabel->anime_bg_color = "";
$tabel->extra_table = "style=\"width:10cm;\"";
$tabel->addRow("Bangsal", $data_pasien[nama_pelayanan]);
$tabel->addExtraTd("style=\"width:3cm\"");
$tabel->addRow("No. RM", $data_pasien[id_display]);
$tabel->addRow("Nama", $data_pasien[nama]);
$tabel->addRow("Usia", $usia);
$tabel->addRow("Jenis Kelamin", $data_pasien[jk]);
$tabel->addRow("Alamat", $data_pasien[alamat]);
$tabel->addRow("Tgl Periksa", tanggalIndo($data_pasien[tgl_periksa], 'j F Y'));
$tabel->addRow("Cara Pembayaran", $data_pasien[cara_bayar]);
$tabel->addRow("Jenis Askes", empty($data_pasien[jenis_askes])?"-":$data_pasien[jenis_askes]);
$tabel->addRow("Nomor", empty($data_pasien[nomor])?"-":$data_pasien[nomor]);
$tabel_pasien = $tabel->build();
$tabel = new Table;
$tabel->scroll = false;
$tabel->extra_table = "style=\"width:10cm;\"";
$tabel->addTh("No", "Jasa", "Harga");
$tabel->addExtraTh("style=\"width:0.7cm;\"", "style=\"width:6.5cm;\"", "");
//get data tindakan
$kon->sql = "
SELECT
CONCAT(i.kode, ' - ', i.nama) as nama
FROM
icopim i
JOIN kunjungan_kamar_icopim kki ON (kki.icopim_id = i.id)
JOIN kunjungan_kamar kk ON (kk.id = kki.kunjungan_kamar_id)
WHERE
kk.id = '".$idkk."'
GROUP BY
kki.id
";
$kon->execute();
$data_tindakan = $kon->getAll();
if(!empty($data_tindakan)) {
$tabel->addRow("","<b>Tindakan</b>","");
for($i=0;$i<sizeof($data_tindakan);$i++) {
$tabel->addRow(
($i+1),
" - " . $data_tindakan[$i][nama],
""
);
}
}
//get data bhp
$kon->sql = "
SELECT
b.nama as nama
FROM
bhp b
JOIN kunjungan_kamar_bhp kkb ON (kkb.bhp_id = b.id)
JOIN kunjungan_kamar kk ON (kk.id = kkb.kunjungan_kamar_id)
WHERE
kk.id = '".$idkk."'
GROUP BY
kkb.id
";
$kon->execute();
$data_bhp = $kon->getAll();
if(!empty($data_bhp)) {
$tabel->addRow("","<b>Bahan Habis Pakai</b>","");
for($i=0;$i<sizeof($data_bhp);$i++) {
$tabel->addRow(
($i+1),
" - " . $data_bhp[$i][nama],
""
);
}
}
//get data imunisasi
$kon->sql = "
SELECT
im.nama as nama
FROM
imunisasi im
JOIN kunjungan_kamar_imunisasi kkim ON (kkim.imunisasi_id = im.id)
JOIN kunjungan_kamar kk ON (kk.id = kkim.kunjungan_kamar_id)
WHERE
kk.id = '".$idkk."'
GROUP BY
kkim.id
";
$kon->execute();
$data_imunisasi = $kon->getAll();
if(!empty($data_imunisasi)) {
$tabel->addRow("","<b>Imunisasi</b>","");
for($i=0;$i<sizeof($data_imunisasi);$i++) {
$tabel->addRow(
($i+1),
" - " . $data_imunisasi[$i][nama],
""
);
}
}
$tabel->addRow("","<b>Total</b>","");
$tabel_jasa = $tabel->build();
$modal = new Modal;
$modal->cetak_lebar = 400;
$modal->cetak_tinggi = 600;
$modal->setTitle("Daftar Pemberian Tindakan, BHP, dan Imunisasi");
$modal->setContent($tabel_pasien);
$modal->setContent($tabel_jasa);
$modal->setCloseButtonOnclick("tutup_daftar_tbi()");
$modal->setPrintButtonUrl(URL . "ranap/kunjungan_jasa_cetak/");
$modal_cnt = $modal->build();
$_SESSION[ranap][kunjungan][jasa_cetak] = $tabel_pasien . $tabel_jasa;
$objResponse->addClear("list_daftar_tbi", "style.display");
$objResponse->addAssign("list_daftar_tbi", "innerHTML", $modal_cnt);
return $objResponse;
}
