function get_dokter($id) {
$kon = new Konek;
$kon->sql = "
SELECT
d.id as id,
d.nama as nama,
d.alamat as alamat,
d.telp as telp,
d.aktif as aktif,
sub.id as sub_id,
sub.spesialisasi_id as spc_id
FROM
dokter d
JOIN subspesialisasi sub ON (sub.id = d.subspesialisasi_id)
WHERE
d.id = '".$id."'";
$kon->execute();
$data = $kon->getOne();
$objResponse = new xajaxResponse();
$objResponse->addAssign("id_dokter", "value", $data[id]);
$objResponse->addAssign("spesialisasi_id", "value", $data[spc_id]);
$objResponse->addScriptCall("xajax_ref_get_subspesialisasi", "subspesialisasi_id", $data[spc_id], $data[sub_id]);
$objResponse->addAssign("nama", "value", $data[nama]);
$objResponse->addAssign("alamat", "value", $data[alamat]);
$objResponse->addAssign("telp", "value", $data[telp]);
$objResponse->addAssign("aktif", "value", $data[aktif]);
$objResponse->addScriptCall("fokus", "spesialisasi_id");
return $objResponse;
}
function get_tindakan($id, $tingkat, $kelas) {
$kon = new Konek;
if($tingkat) $q .= " AND i.tingkat = '".$tingkat."' ";
if($kelas) $q .= " AND id.kelas = '".$kelas."' ";
$sql = "SELECT
i.id as icid,
id.id as idid,
i.kode as kode,
i.nama as nama,
id.*,
i.jenis_tindakan as jenis_tindakan
FROM
icopim i
LEFT JOIN icopim_detil id ON (id.tingkat = i.tingkat)
WHERE i.id = '".$id."' $q ";
$kon->sql = $sql;
$kon->execute();
$data = $kon->getOne();
$objResponse = new xajaxResponse();
//$objResponse->addAssign("debug", "innerHTML", $sql);
$objResponse->addAssign("tindakan_id", "value", $data[jenis_tindakan]);
$objResponse->addAssign("id_icopim", "value", $data[icid]);
$objResponse->addAssign("id_icopim_detil", "value", $data[idid]);
$objResponse->addAssign("nama", "value", $data[nama]);
$objResponse->addAssign("kode", "value", $data[kode]);
$objResponse->addAssign("tingkat", "value", $data[tingkat]);
$objResponse->addAssign("kelas", "value", $data[kelas]);
$objResponse->addAssign("biaya", "value", $data[biaya]);
$objResponse->addScriptCall("fokus", "nama");
return $objResponse;
}
function get_karcis($id) {
$kon = new Konek;
$kon->sql = "SELECT * FROM karcis WHERE id = '".$id."'";
$kon->execute();
$data = $kon->getOne();
$objResponse = new xajaxResponse();
/*
$data[$i][kelas],
$data[$i][biaya_bhp],
$data[$i][biaya_jasa],
$data[$i][bhp_p],
$data[$i][bhp_rs],
$data[$i][bhp_rs_adm],
$data[$i][bhp_rs_op],
$data[$i][jasa_p],
$data[$i][jasa_rs],
$data[$i][jasa_rs_op],
$data[$i][jasa_rs_kembang],
$data[$i][jasa_rs_adm],
$data[$i][jasa_rs_sdm],
$data[$i][spesialis],
$data[$i][spesialis_pendamping],
$data[$i][ugp],
$data[$i][grabaf],
$data[$i][perawat],
$data[$i][penunjang],
$data[$i][zakat],
$data[$i][pajak],
$data[$i][netto],
*/
$objResponse->addAssign("id_karcis", "value", $data[id]);
$objResponse->addAssign("nama", "value", $data[nama]);
$objResponse->addAssign("jenis", "value", $data[jenis]);
$objResponse->addAssign("kelas", "value", $data[kelas]);
$objResponse->addAssign("biaya_bhp", "value", $data[biaya_bhp]);
$objResponse->addAssign("biaya_jasa", "value", $data[biaya_jasa]);
$objResponse->addAssign("bhp_p", "value", $data[bhp_p]);
$objResponse->addAssign("bhp_rs", "value", $data[bhp_rs]);
$objResponse->addAssign("bhp_rs_adm", "value", $data[bhp_rs_adm]);
$objResponse->addAssign("bhp_rs_op", "value", $data[bhp_rs_op]);
$objResponse->addAssign("jasa_p", "value", $data[jasa_p]);
$objResponse->addAssign("jasa_rs", "value", $data[jasa_rs]);
$objResponse->addAssign("jasa_rs_op", "value", $data[jasa_rs_op]);
$objResponse->addAssign("jasa_rs_kembang", "value", $data[jasa_rs_kembang]);
$objResponse->addAssign("jasa_rs_adm", "value", $data[jasa_rs_adm]);
$objResponse->addAssign("jasa_rs_sdm", "value", $data[jasa_rs_sdm]);
$objResponse->addAssign("spesialis", "value", $data[spesialis]);
$objResponse->addAssign("spesialis_pendamping", "value", $data[spesialis_pendamping]);
$objResponse->addAssign("ugp", "value", $data[ugp]);
$objResponse->addAssign("grabaf", "value", $data[grabaf]);
$objResponse->addAssign("perawat", "value", $data[perawat]);
$objResponse->addAssign("penunjang", "value", $data[penunjang]);
$objResponse->addAssign("zakat", "value", $data[zakat]);
$objResponse->addAssign("pajak", "value", $data[pajak]);
$objResponse->addAssign("netto", "value", $data[netto]);
$objResponse->addScriptCall("fokus", "nama");
return $objResponse;
}
function get_imunisasi($id) {
$objResponse = new xajaxResponse();
$objResponse->addScript("document.getElementById('sebab_sakit_1').checked=false;");
$objResponse->addScript("document.getElementById('sebab_sakit_2').checked=false;");
$objResponse->addScript("document.getElementById('sebab_sakit_3').checked=false;");
$objResponse->addScript("document.getElementById('sebab_sakit_4').checked=false;");
$objResponse->addScript("document.getElementById('sebab_sakit_5').checked=false;");
$objResponse->addScript("document.getElementById('sebab_sakit_6').checked=false;");
$objResponse->addScript("document.getElementById('sebab_sakit_7').checked=false;");
$objResponse->addScript("document.getElementById('sebab_sakit_8').checked=false;");
$kon = new Konek;
$kon->sql = "
SELECT
id as id,
nama as nama,
sebab_sakit as sebab_sakit
FROM
imunisasi
WHERE
id = '".$id."'
GROUP BY id
";
$kon->execute();
$data = $kon->getOne();
$objResponse->addAssign("id_imunisasi", "value", $data[id]);
$objResponse->addAssign("nama", "value", $data[nama]);
$arr_sebab_sakit = explode(",", $data[sebab_sakit]);
if(in_array("Dipteri", $arr_sebab_sakit)) {
$objResponse->addScript("document.getElementById('sebab_sakit_1').checked=true;");
}
if(in_array("Pertusis", $arr_sebab_sakit)) {
$objResponse->addScript("document.getElementById('sebab_sakit_2').checked=true;");
}
if(in_array("Tetanus", $arr_sebab_sakit)) {
$objResponse->addScript("document.getElementById('sebab_sakit_3').checked=true;");
}
if(in_array("Tetanus Neonatorum", $arr_sebab_sakit)) {
$objResponse->addScript("document.getElementById('sebab_sakit_4').checked=true;");
}
if(in_array("TBC Paru", $arr_sebab_sakit)) {
$objResponse->addScript("document.getElementById('sebab_sakit_5').checked=true;");
}
if(in_array("Campak", $arr_sebab_sakit)) {
$objResponse->addScript("document.getElementById('sebab_sakit_6').checked=true;");
}
if(in_array("Polio", $arr_sebab_sakit)) {
$objResponse->addScript("document.getElementById('sebab_sakit_7').checked=true;");
}
if(in_array("Hepatitis", $arr_sebab_sakit)) {
$objResponse->addScript("document.getElementById('sebab_sakit_8').checked=true;");
}
$objResponse->addScriptCall("fokus", "nama");
return $objResponse;
}
function get_pendidikan($id) {
$kon = new Konek;
$kon->sql = "SELECT id, nama FROM ref_pendidikan WHERE id = '".$id."'";
$kon->execute();
$data = $kon->getOne();
$objResponse = new xajaxResponse();
$objResponse->addAssign("id_pendidikan", "value", $data[id]);
$objResponse->addAssign("nama", "value", $data[nama]);
$objResponse->addScriptCall("fokus", "nama");
return $objResponse;
}
function get_bhp($id) {
$kon = new Konek;
$kon->sql = "SELECT id, nama, biaya FROM bhp WHERE id = '".$id."'";
$kon->execute();
$data = $kon->getOne();
$objResponse = new xajaxResponse();
$objResponse->addAssign("id_bhp", "value", $data[id]);
$objResponse->addAssign("nama", "value", $data[nama]);
$objResponse->addAssign("biaya", "value", $data[biaya]);
$objResponse->addScriptCall("fokus", "nama");
return $objResponse;
}
function get_pasien($id) {
$kon = new Konek;
$sql = "
SELECT p.id as id, p.nama as nama, p.tempat_lahir as tempat_lahir, p.tgl_lahir as tgl_lahir, p.gol_darah as gol_darah, p.alamat as alamat, p.rt as rt, p.rw as rw, p.desa_id as des_id, kec.id as kec_id, kab.id as kab_id, prop.id as prop_id, p.telp as telp, p.agama as agama, p.sex as sex, p.pendidikan_id as pendidikan_id, p.pekerjaan_id as pekerjaan_id, p.status_nikah as status_nikah, p.tgl_daftar as tgl_daftar
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 p.id = '".$id."'";
$kon->sql = $sql;
$kon->execute();
$data = $kon->getOne();
$objResponse = new xajaxResponse();
$objResponse->addScriptCall("show_hide_form", "form_tambah");
$objResponse->addAssign("propinsi_id", "value", $data[prop_id]);
$objResponse->addScriptCall("xajax_ref_get_kabupaten", "kabupaten_id", $data[prop_id], $data[kab_id], true);
$objResponse->addScriptCall("xajax_ref_get_kecamatan", "kecamatan_id", $data[kab_id], $data[kec_id], true);
$objResponse->addScriptCall("xajax_ref_get_desa", "desa_id", $data[kec_id], $data[des_id], true);
$tgl_lahir = explode("-", $data[tgl_lahir]);
$skr = date("Y-m-d");
$usia = hitungUmur($data[tgl_lahir], $skr);
//$objResponse->addAssign("debug", "innerHTML", $tgl_lahir[2] . ":" . $tgl_lahir[1] . ":" . $tgl_lahir[0]);
//jika data ditemukan
if(!empty($data)) {
$objResponse->addAssign("id", "value", $data[id]);
$objResponse->addAssign("id_pasien", "value", $data[id]);
$objResponse->addAssign("nama", "value", $data[nama]);
$objResponse->addAssign("usia_tahun", "value", $usia[tahun]);
$objResponse->addAssign("usia_bulan", "value", $usia[bulan]);
$objResponse->addAssign("usia_hari", "value", $usia[hari]);
$objResponse->addAssign("tempat_lahir", "value", $data[tempat_lahir]);
$objResponse->addAssign("tgl_lahir_tgl", "value", $tgl_lahir[2]);
$objResponse->addAssign("tgl_lahir_bln", "value", $tgl_lahir[1]);
$objResponse->addAssign("tgl_lahir_thn", "value", $tgl_lahir[0]);
$objResponse->addAssign("gol_darah", "value", $data[gol_darah]);
$objResponse->addAssign("alamat", "value", $data[alamat]);
$objResponse->addAssign("rt", "value", $data[rt]);
$objResponse->addAssign("rw", "value", $data[rw]);
$objResponse->addAssign("telp", "value", $data[telp]);
$objResponse->addAssign("agama", "value", $data[agama]);
$objResponse->addAssign("sex", "value", $data[sex]);
$objResponse->addAssign("pendidikan_id", "value", $data[pendidikan_id]);
$objResponse->addAssign("pekerjaan_id", "value", $data[pekerjaan_id]);
$objResponse->addAssign("status_nikah", "value", $data[status_nikah]);
$objResponse->addScriptCall("fokus", "nama");
} else {
//jika tidak ada data pasien dengan no rm $id
$objResponse->addScript("document.tambah_pasien.reset()");
$objResponse->addAssign("id", "value", $id);
$objResponse->addScriptCall("fokus", "nama");
}
return $objResponse;
}
function get_pelayanan($id) {
$kon = new Konek;
$kon->sql = "SELECT * FROM pelayanan WHERE id = '".$id."'";
$kon->execute();
$data = $kon->getOne();
$objResponse = new xajaxResponse();
$objResponse->addAssign("id_pelayanan", "value", $data[id]);
$objResponse->addAssign("nama", "value", $data[nama]);
$objResponse->addAssign("spesialisasi_id", "value", $data[spesialisasi_id]);
$objResponse->addAssign("hari_buka", "value", $data[hari_buka]);
$objResponse->addScriptCall("fokus", "nama");
return $objResponse;
}
function get_icd($id) {
$kon = new Konek;
$kon->sql = "SELECT * FROM icd WHERE id = '".$id."'";
$kon->execute();
$data = $kon->getOne();
$objResponse = new xajaxResponse();
$objResponse->addAssign("id_icd", "value", $data[id]);
$objResponse->addAssign("kode_icd_group", "value", $data[kode_icd_group]);
$objResponse->addAssign("kode_icd", "value", $data[kode_icd]);
$objResponse->addAssign("no_dtd", "value", $data[no_dtd]);
$objResponse->addAssign("nama", "value", $data[nama]);
$objResponse->addAssign("gol_sebab_sakit", "value", $data[gol_sebab_sakit]);
$objResponse->addScriptCall("fokus", "kode_icd_group");
return $objResponse;
}
function getPasien($pasien_id = null) {
if(!$pasien_id) $pasien_id = $this->pasien_id;
$kon = new Konek;
$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 no_rm,
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
p.id = '".$pasien_id."'
";
$kon->execute();
$data = $kon->getOne();
return $data;
}
function get_kecamatan($id) {
$kon = new Konek;
$kon->sql = "
SELECT
kec.id as id,
kec.nama as nama,
k.id as kab_id,
k.propinsi_id as prop_id
FROM
ref_kecamatan kec
JOIN ref_kabupaten k ON (k.id = kec.kabupaten_id)
WHERE
kec.id = '".$id."'";
$kon->execute();
$data = $kon->getOne();
$objResponse = new xajaxResponse();
$objResponse->addAssign("id_kecamatan", "value", $data[id]);
$objResponse->addAssign("nama", "value", $data[nama]);
$objResponse->addAssign("propinsi_id", "value", $data[prop_id]);
$objResponse->addScriptCall("xajax_get_kabupaten", $data[prop_id], $data[kab_id]);
$objResponse->addScriptCall("fokus", "nama");
return $objResponse;
}
function get_lab($id) {
$kon = new Konek;
$kon->sql = "
SELECT
ls.id as id,
ls.nama as nama,
ls.biaya_bhp as biaya_bhp,
lsd.biaya_jasa as biaya_jasa,
lsd.kelas as kelas
FROM
lab_specimen ls
JOIN lab_specimen_detil lsd ON (lsd.tingkat = ls.tingkat)
WHERE
ls.id = '".$id."'";
$kon->execute();
$data = $kon->getOne();
$objResponse = new xajaxResponse();
$objResponse->addAssign("id", "value", $data[id]);
$objResponse->addAssign("nama", "value", $data[nama]);
$objResponse->addAssign("biaya_bhp", "value", $data[biaya_bhp]);
$objResponse->addAssign("biaya_jasa", "value", $data[biaya_jasa]);
$objResponse->addAssign("kelas", "value", $data[kelas]);
return $objResponse;
}
function get_radio($id) {
$kon = new Konek;
$kon->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)
WHERE
rp.id = '".$id."'";
$kon->execute();
$data = $kon->getOne();
$objResponse = new xajaxResponse();
$objResponse->addAssign("id", "value", $data[id]);
$objResponse->addAssign("nama", "value", $data[nama]);
$objResponse->addAssign("biaya_bhp", "value", $data[biaya_bhp]);
$objResponse->addAssign("biaya_jasa", "value", $data[biaya_jasa]);
$objResponse->addAssign("kelas", "value", $data[kelas]);
return $objResponse;
}
function get_no_antrian($val) {
$tgl_periksa = $val[tgl_periksa_thn]."-".$val[tgl_periksa_bln]."-".$val[tgl_periksa_tgl];
if($val[dokter_id]) $s = " AND dokter_id = '".$val[dokter_id]."' ";
else $s = " AND dokter_id IS NULL ";
$kon = new Konek;
$sql = "
SELECT
CASE
WHEN (MAX(no_antrian) IS NULL) THEN '1'
ELSE (MAX(no_antrian) + 1)
END AS no_antrian
FROM
kunjungan_kamar
WHERE
kamar_id = '".$val[kamar_id]."'
AND DATE(tgl_periksa) = '".$tgl_periksa."'
$s
";
$kon->sql = $sql;
$kon->execute();
$data = $kon->getOne();
$objResponse = new xajaxResponse;
$objResponse->addClear("tr_no_antrian", "style.display");
$objResponse->addAssign("div_no_antrian", "innerHTML", $data[no_antrian]);
$objResponse->addAssign("no_antrian", "value", $data[no_antrian]);
return $objResponse;
}
function buka_daftar_penunjang($idkk) {
$kon = new Konek;
$objResponse = new xajaxResponse;
$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 no_rm,
p.nama as nama,
p.sex as sex,
d.nama as dokter
FROM
kunjungan k
JOIN pasien p ON (p.id = k.pasien_id)
JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id)
LEFT JOIN dokter d ON (d.id = kk.dokter_id)
WHERE
kk.id = '".$idkk."'
";
$kon->execute();
$data = $kon->getOne();
$objResponse->addAssign("dp_no_rm", "innerHTML", $data[no_rm]);
$objResponse->addAssign("dp_nama", "innerHTML", $data[nama]);
$objResponse->addAssign("dp_sex", "innerHTML", $data[sex]);
$objResponse->addAssign("dp_pengirim", "value", $data[dokter]);
return $objResponse;
}
function ke_kunjungan($val) {
$kon = new Konek;
$objResponse = new xajaxResponse;
$sql = "
SELECT
rk.id
FROM
radio_kunjungan rk
WHERE
rk.kunjungan_kamar_id = '".$val[dp_idkk]."'
";
$kon->sql = $sql;
$kon->execute();
$d = $kon->getOne();
$id_d = $d[id];
$sql = "
SELECT
*
FROM
kunjungan_bayar
WHERE
radio_kunjungan_id = '$id_d' AND
kwid IS NULL
";
$kon->sql = $sql;
$kon->execute();
$d = $kon->getOne();
if (!$d)
{
$sql = "
INSERT INTO radio_kunjungan(
pasien_id,
kunjungan_kamar_id,
kelas,
tgl_daftar,
tgl_periksa,
pengirim,
cara_masuk,
cara_bayar,
jenis_askes,
perusahaan_id,
nomor,
pj_nama,
pj_alamat,
pj_telp,
pj_hubungan_keluarga)
SELECT
k.pasien_id,
kk.id,
pel.jenis,
NOW(),
NOW(),
'".$val[dp_pengirim]."',
pel.jenis,
kk.cara_bayar,
kk.jenis_askes,
kk.perusahaan_id,
kk.nomor,
kk.pj_nama,
kk.pj_alamat,
kk.pj_telp,
kk.pj_hubungan_keluarga
FROM
kunjungan k
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
kk.id = '".$val[dp_idkk]."'
";
}
else
{
$sql = "
SELECT
k.pasien_id,
kk.id,
pel.jenis,
NOW(),
NOW(),
'".$val[dp_pengirim]."',
pel.jenis,
kk.cara_bayar,
kk.jenis_askes,
kk.perusahaan_id,
kk.nomor,
kk.pj_nama,
kk.pj_alamat,
kk.pj_telp,
kk.pj_hubungan_keluarga
FROM
kunjungan k
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
kk.id = '".$val[dp_idkk]."'
";
}
$kon->sql = $sql;
$kon->execute();
//for($i=0;$i<sizeof($data);$i++) {
$sql = "
SELECT
rk.id
FROM
radio_kunjungan rk
WHERE
rk.kunjungan_kamar_id = '".$val[dp_idkk]."'
";
//$objResponse->addAssign("id_kunjungan_lab", "innerHTML", $data[no_rm]);
$kon->sql = $sql;
$kon->execute();
//$objResponse->addAlert($sql);
//$id_kunjungan_lab = $kon;
//$dp_idkk = $val[dp_idkk];
$data = $kon->getOne();
//$objResponse->addAssign("dp_no_rm", "innerHTML", $data[no_rm]);
$id_kunjungan_radio = $data[id];
//$objResponse->addAlert($id_kunjungan_lab);
//}
$objResponse->addScriptCall("tutup_daftar_penunjang");
$objResponse->addScriptCall("xajax_buka_kunjungan",$id_kunjungan_radio);
return $objResponse;
}
function buka_langsung_bayar($idkw) {
unset($_SESSION[kasir][kunjungan][jasa_cetak]);
$kon = new Konek;
//$kon->debug = 1;
$objResponse = new xajaxResponse;
//get data pasien
$sql = "
SELECT
k.id as kunjungan_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,
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_daftar as tgl_daftar,
kk.tgl_periksa as tgl_periksa,
pel.nama as nama_pelayanan,
p.sex as jk,
CONCAT_WS(' - ', kk.cara_bayar, kk.jenis_askes, rper.nama) as cara_bayar,
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 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)
LEFT JOIN ref_perusahaan rper ON (rper.id = kk.perusahaan_id)
WHERE
kw.id = '".$idkw."'
GROUP BY
p.id
";
//$objResponse->addAssign("debug", "innerHTML", $sql);
$kon->sql = $sql;
$kon->execute();
$data_pasien = $kon->getOne();
$arr_usia = hitungUmur($data_pasien[tgl_lahir], $data_pasien[tgl_periksa]);
$data_pasien[usia] = empty($arr_usia[tahun])?"":$arr_usia[tahun] . " thn ";
$data_pasien[usia] .= empty($arr_usia[bulan])?"":$arr_usia[bulan] . " bln ";
$data_pasien[usia] .= empty($arr_usia[hari])?"":$arr_usia[hari] . " hr ";
$objResponse->addClear("modal_lb", "style.display");
$objResponse->addAssign("lb_id_kunjungan", "value", $data_pasien[kunjungan_id]);
$objResponse->addAssign("lb_id_kwitansi", "value", $idkw);
$objResponse->addAssign("lb_no_rm", "innerHTML", $data_pasien[id_display]);
$objResponse->addAssign("lb_pasien", "innerHTML", $data_pasien[nama]);
$objResponse->addAssign("lb_sex", "innerHTML", $data_pasien[jk]);
$objResponse->addAssign("lb_usia", "innerHTML", $data_pasien[usia]);
$objResponse->addAssign("lb_alamat", "innerHTML", $data_pasien[alamat]);
$objResponse->addAssign("lb_tgl_daftar", "innerHTML", tanggalIndo($data_pasien[tgl_daftar], 'j F Y'));
$objResponse->addAssign("lb_cara_bayar", "innerHTML", $data_pasien[cara_bayar]);
$objResponse->addAssign("lb_nomor", "innerHTML", empty($data_pasien[nomor])?"-":$data_pasien[nomor]);
//BIKIN SESSION UNTUK DICETAK
$_SESSION[igd][langsung_bayar][data_px] = $data_pasien;
$tabel = new Table;
$tabel->cellspacing = "0";
$tabel->scroll = false;
$tabel->extra_table = "style=\"width:9cm;\"";
$tabel->addTh("No", "Jasa", "Biaya");
$tabel->addExtraTh("style=\"width:0.7cm;\"", "style=\"width:6.5cm;\"", "");
//get data karcis
$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
FROM
kunjungan_bayar kb
JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
JOIN kunjungan_kamar kk ON (kk.id = kb.kunjungan_kamar_id)
WHERE
kb.karcis_id IS NOT NULL
AND kwd.kwitansi_id = '".$idkw."'
GROUP BY
kb.id
ORDER BY kb.id
";
$kon->execute();
$data_karcis = $kon->getAll();
if(!empty($data_karcis)) {
$tabel->addRow("","<b>Karcis</b>","");
for($i=0;$i<sizeof($data_karcis);$i++) {
$tabel->addRow(
($i+1),
$data_karcis[$i][nama],
uangIndo($data_karcis[$i][bayar])
);
$total += $data_karcis[$i][bayar];
$sudah_dibayar += $data_karcis[$i][mampu_bayar];
//belum bayar
$kurang += $data_karcis[$i][bayar]-$data_karcis[$i][mampu_bayar];
}
}
//get data tindakan
$kon->sql = "
SELECT
kki.nama as nama,
SUM(kb.bayar_jasa) as bayar,
SUM(kb.mampu_bayar_jasa) as mampu_bayar,
kwd.kwitansi_id as kwitansi_id
FROM
kunjungan_kamar_icopim kki
JOIN kunjungan_bayar kb ON (kb.kunjungan_kamar_icopim_id = kki.id)
JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
JOIN kunjungan_kamar kk ON (kk.id = kki.kunjungan_kamar_id)
WHERE
kb.icopim_detil_id IS NOT NULL
AND kwd.kwitansi_id = '".$idkw."'
GROUP BY
kki.id
ORDER 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],
uangIndo($data_tindakan[$i][bayar])
);
$total += $data_tindakan[$i][bayar];
$sudah_dibayar += $data_tindakan[$i][mampu_bayar];
//belum bayar
$kurang += $data_tindakan[$i][bayar]-$data_tindakan[$i][mampu_bayar];
}
}
//get data specimen
$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
FROM
kunjungan_bayar kb
JOIN lab_kunjungan lk ON (lk.id = kb.lab_kunjungan_id)
JOIN kunjungan_kamar kk ON (kk.id = lk.kunjungan_kamar_id)
JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
WHERE
kb.lab_specimen_id IS NOT NULL
AND kwd.kwitansi_id = '".$idkw."'
GROUP BY
kb.id
ORDER BY kb.id
";
$kon->execute();
$data_specimen = $kon->getAll();
if(!empty($data_specimen)) {
$tabel->addRow("","<b>Pemeriksaan Specimen</b>","");
for($i=0;$i<sizeof($data_specimen);$i++) {
$tabel->addRow(
($i+1),
$data_specimen[$i][nama],
uangIndo($data_specimen[$i][bayar])
);
$total += $data_specimen[$i][bayar];
$sudah_dibayar += $data_specimen[$i][mampu_bayar];
//belum bayar
$kurang += $data_specimen[$i][bayar]-$data_specimen[$i][mampu_bayar];
}
}
//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
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)
JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
WHERE
kb.radio_specimen_id IS NOT NULL
AND kwd.kwitansi_id = '".$idkw."'
GROUP BY
kb.id
ORDER BY kb.id
";
$kon->execute();
$data_radio = $kon->getAll();
if(!empty($data_radio)) {
$tabel->addRow("","<b>Pemeriksaan Radiologi</b>","");
for($i=0;$i<sizeof($data_radio);$i++) {
$tabel->addRow(
($i+1),
$data_radio[$i][nama],
uangIndo($data_radio[$i][bayar])
);
$total += $data_radio[$i][bayar];
$sudah_dibayar += $data_radio[$i][mampu_bayar];
//belum bayar
$kurang += $data_radio[$i][bayar]-$data_radio[$i][mampu_bayar];
}
}
//get data bhp
$kon->sql = "
SELECT
kb.nama as nama,
kb.bayar_bhp as bayar,
kb.mampu_bayar_bhp as mampu_bayar,
kwd.kwitansi_id as kwitansi_id
FROM
kunjungan_bayar kb
JOIN kunjungan_kamar kk ON (kk.id = kb.kunjungan_kamar_id)
JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
WHERE
kb.bhp_id IS NOT NULL
AND kwd.kwitansi_id = '".$idkw."'
GROUP BY
kb.id
ORDER BY kb.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],
uangIndo($data_bhp[$i][bayar])
);
$total += $data_bhp[$i][bayar];
$sudah_dibayar += $data_bhp[$i][mampu_bayar];
//belum bayar
$kurang += $data_bhp[$i][bayar]-$data_bhp[$i][mampu_bayar];
}
}
//get data kendaraan
$kon->sql = "
SELECT
kkd.nama as nama,
SUM(kb.bayar_bhp+kb.bayar_jasa) as bayar,
SUM(kb.mampu_bayar_bhp+kb.mampu_bayar_jasa) as mampu_bayar,
kwd.kwitansi_id as kwitansi_id
FROM
kunjungan_kendaraan kkd
JOIN kunjungan_bayar kb ON (kb.kunjungan_kendaraan_id = kkd.id)
JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
JOIN kunjungan_kamar kk ON (kk.id = kb.kunjungan_kamar_id)
WHERE
kwd.kwitansi_id = '".$idkw."'
GROUP BY
kkd.id
ORDER BY kkd.id
";
$kon->execute();
$data_kendaraan = $kon->getAll();
if(!empty($data_kendaraan)) {
$tabel->addRow("","<b>Sewa Kendaraan</b>","");
for($i=0;$i<sizeof($data_kendaraan);$i++) {
$tabel->addRow(
($i+1),
$data_kendaraan[$i][nama],
uangIndo($data_kendaraan[$i][bayar])
);
$total += $data_kendaraan[$i][bayar];
$sudah_dibayar += $data_kendaraan[$i][mampu_bayar];
//belum bayar
$kurang += $data_kendaraan[$i][bayar]-$data_kendaraan[$i][mampu_bayar];
}
}
$tabel->addRow("","<b>Total</b>", uangIndo($total));
$tabel_jasa = $tabel->build();
$objResponse->addAssign("lb_list_jasa", "innerHTML", $tabel_jasa);
$objResponse->addAssign("lb_total_display", "value", uangIndo($total));
$objResponse->addAssign("lb_total_display", "title", terbilang($total));
$objResponse->addAssign("lb_sudah_dibayar", "value", $sudah_dibayar);
$objResponse->addAssign("lb_sudah_dibayar_display", "value", uangIndo($sudah_dibayar));
$objResponse->addAssign("lb_sudah_dibayar_display", "title", terbilang($sudah_dibayar));
$objResponse->addAssign("lb_kurang_display", "value", uangIndo($kurang));
$objResponse->addAssign("lb_kurang", "value", $kurang);
$objResponse->addAssign("lb_kurang_display", "title", terbilang($kurang));
$objResponse->addAssign("lb_mampu_bayar", "value", $kurang);
$objResponse->addAssign("mampu_terbilang", "innerHTML", terbilang($kurang));
$objResponse->addScriptCall("disable_mainbar", "#E5E6E1");
$objResponse->addScriptCall("fokus", "lb_mampu_bayar");
//get data kwitansi :
$kon->sql = "
SELECT
CONCAT_WS('-', kw.tempat_pembayaran, kw.id) as no_kwitansi,
kw.bayar as mampu_bayar,
kw.tgl as tgl
FROM
kunjungan_bayar kb
JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
JOIN kwitansi kw ON (kw.id = kwd.kwitansi_id)
JOIN kunjungan_kamar kk ON (kk.id = kb.kunjungan_kamar_id)
WHERE
kw.id = '".$idkw."'
GROUP BY
kw.id
ORDER BY
kw.id
";
$kon->execute();
$data_kw = $kon->getAll();
if($kurang) {
//ada yang belum dibayar
$objResponse->addAssign("lb_simpan", "style.display", "");
}
if(!empty($data_kw)) {
//ada yang sudah dibayar
for($i=0;$i<sizeof($data_kw);$i++) {
$kw .= "<br /><input type=\"button\" name=\"lb_cetak\" id=\"lb_cetak\" value=\"Cetak Kwitansi ".$data_kw[$i][no_kwitansi]."\" class=\"inputan\" onclick=\"cetak_kwitansi('".$data_kw[$i][no_kwitansi]."');\" /> <br /> <em>Rp. ".uangIndo($data_kw[$i][mampu_bayar])." - ".tanggalIndo($data_kw[$i][tgl], "j F Y H:i")."</em><br />";
}
$objResponse->addAssign("fieldset_lb_button_kwitansi", "style.display", "");
$objResponse->addAssign("lb_button_kwitansi", "innerHTML", $kw);
if(!$kurang) $objResponse->addAssign("lb_simpan", "style.display", "none");
} else {
$objResponse->addAssign("fieldset_lb_button_kwitansi", "style.display", "none");
}
return $objResponse;
}
function get_icopim($id, $detil_id, $nama, $biaya) {
$kon = new Konek;
$objResponse = new xajaxResponse;
$parent = md5(microtime());
//get icopim_detil
$kon->sql = "SELECT * FROM icopim_detil WHERE id = '".$detil_id."'";
$kon->execute();
$data_icopim_detil = $kon->getOne();
$field_icopim_detil = $kon->getField();
$ret .= "<tr id=\"input_icopim_tr_".$parent."\" style=\"background-color: #EDEDED;\">";
//Tindakan
$ret .= "<td><b>".$nama."</b></td>";
$ret .= "<td><a href=\"javascript:void(0)\" title=\"Hapus Tindakan\" onclick=\"hapus_kunjungan_kamar_icopim('','input_icopim_tr_".$parent."','input_icopim_table_".$parent."')\"><img src=\"".IMAGES_URL."remove.png\" alt=\"Hapus Tindakan\" border=\"0\" /></a>";
$ret .= "<input type=\"hidden\" name=\"input_kunjungan_icopim_id[".$parent."]\" value=\"\" />";
$ret .= "<input type=\"hidden\" name=\"input_icopim[".$parent."]\" value=\"".$id."\" />";
$ret .= "<input type=\"hidden\" name=\"input_icopim_nama[".$parent."]\" value=\"".$nama."\" />";
$ret .= "<input type=\"hidden\" name=\"input_icopim_parent[]\" value=\"".$parent."\" />";
$ret .= "<input type=\"hidden\" name=\"input_icopim_detil[".$parent."]\" value=\"".$data_icopim_detil[id]."\" />";
$ret .= "</td>";
$ret .= "<tr id=\"input_icopim_table_".$parent."\"><td colspan=\"2\">";
$ret .= "<table cellpadding=\"0\" cellspacing=\"0\" border=\"0\" class=\"tabel_biaya\"><tr><th style=\"width:200px;\">Jasa</th><th>Hak</th><th>Biaya</th><th>Sifat</th><th style=\"width:70px;\">Jml</th><th style=\"width:100px;\">Bayar</th><th style=\"width:20px;\"> </th></tr>";
//get hak
$data_hak = $_SESSION[igd][hak];
$opt_hak = "";
for($i=0;$i<sizeof($data_hak);$i++) {
if($data_hak[$i][id] == 25) $opt_hak .= "<option value=\"".$data_hak[$i][id]."\" selected=\"\">".$data_hak[$i][nama]."</option>";
else $opt_hak .= "<option value=\"".$data_hak[$i][id]."\">".$data_hak[$i][nama]."</option>";
}
//get sifat
$data_sifat = $_SESSION[igd][sifat];
$opt_sifat = "";
for($i=0;$i<sizeof($data_sifat);$i++) {
$opt_sifat .= "<option value=\"".$data_sifat[$i][nilai]."\">".$data_sifat[$i][nama]."</option>";
}
for($j=11;$j<26;$j++) {
if($data_icopim_detil[$field_icopim_detil[$j]->name] == "0") continue;
$n = md5(microtime());
$nama_baris = ucwords(str_replace("_", " ", $field_icopim_detil[$j]->name));
$ret .= "<tr id=\"input_icopim_detil_tr_".$n."\">";
$ret .= "<td>".$nama_baris."</td>";
//HAK
$hak = "<select name=\"input_icopim_detil_hak[".$parent."][]\" id=\"input_icopim_detil_hak_".$n."\" class=\"inputan\" onkeypress=\"focusNext( 'input_icopim_detil_biaya_".$n."', event, 'input_icopim_detil_bayar_".$n."', this)\">" . $opt_hak . "</select>";
$ret .= "<td style=\"text-align:center;\">".$hak."</td>";
//BIAYA
$ret .= "<td style=\"text-align:right;\">";
$ret .= "<input type=\"text\" name=\"input_icopim_detil_biaya[".$parent."][]\" id=\"input_icopim_detil_biaya_".$n."\" value=\"".$data_icopim_detil[$field_icopim_detil[$j]->name]."\" class=\"inputan_angka\" size=\"10\" onkeyup=\"kaliKan2('input_icopim_detil_bayar_".$n."', this.value, document.getElementById('input_icopim_detil_sifat_".$n."').value, document.getElementById('input_icopim_detil_jml_".$n."').value);\" onkeypress=\"focusNext( 'input_icopim_detil_sifat_".$n."', event, 'input_icopim_detil_hak_".$n."', this)\" />";
$ret .= "</td>";
//SIFAT
$sifat = "<select name=\"input_icopim_detil_sifat[".$parent."][]\" id=\"input_icopim_detil_sifat_".$n."\" class=\"inputan\" onchange=\"kaliKan2('input_icopim_detil_bayar_".$n."', this.value, document.getElementById('input_icopim_detil_biaya_".$n."').value, document.getElementById('input_icopim_detil_jml_".$n."').value);\" onkeypress=\"focusNext( 'input_icopim_detil_jml_".$n."', event, 'input_icopim_detil_biaya_".$n."', this)\">" . $opt_sifat . "</select>";
$ret .= "<td style=\"text-align:center;\">".$sifat."</td>";
//JUMLAH
$ret .= "<td style=\"text-align:center;\">";
$ret .= "<input type=\"text\" name=\"input_icopim_detil_jml[".$parent."][]\" id=\"input_icopim_detil_jml_".$n."\" value=\"1\" class=\"inputan_angka\" size=\"3\" onkeyup=\"kaliKan2('input_icopim_detil_bayar_".$n."', this.value, document.getElementById('input_icopim_detil_sifat_".$n."').value, document.getElementById('input_icopim_detil_biaya_".$n."').value);\" onkeypress=\"focusNext( 'input_icopim_detil_bayar_".$n."', event, 'input_icopim_detil_sifat_".$n."', this)\" />";
$ret .= "</td>";
//BAYAR
$ret .= "<td style=\"text-align:right;\">";
$ret .= "<input type=\"text\" name=\"input_icopim_detil_bayar[".$parent."][]\" id=\"input_icopim_detil_bayar_".$n."\" value=\"".$data_icopim_detil[$field_icopim_detil[$j]->name]."\" class=\"inputan_angka\" size=\"10\" onkeypress=\"focusNext( 'input_icopim_detil_hak_".$n."', event, 'input_icopim_detil_jml_".$n."', this)\" />";
$ret .= "</td>";
//HAPUS
$ret .= "<td><a href=\"javascript:void(0)\" title=\"Hapus ".$nama_baris."\" onclick=\"hapus_kunjungan_bayar('','input_icopim_detil_tr_".$n."')\" class=\"tombol_hapus\"><img src=\"".IMAGES_URL."remove.png\" alt=\"Hapus ".$nama_baris."\" border=\"0\" /></a>";
$ret .= "<input type=\"hidden\" name=\"input_kunjungan_icopim_detil_id[".$parent."][]\" value=\"\" />";
$ret .= "<input type=\"hidden\" name=\"input_icopim_detil_field[".$parent."][]\" value=\"".$field_icopim_detil[$j]->name."\" />";
$ret .= "</td>";
$ret .= "</tr>";
}
$ret .= "</table></td></tr>";
$objResponse->addAppend("tbody_input_icopim", "innerHTML", $ret);
return $objResponse;
}
function buka_langsung_bayar($idkk) {
unset($_SESSION[igd][langsung_bayar]);
$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,
CONCAT_WS(' - ', pel.jenis, pel.nama) as nama_pelayanan,
p.sex as jk,
CONCAT_WS(' - ', kk.cara_bayar, kk.jenis_askes, rper.nama) as cara_bayar,
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)
LEFT JOIN ref_perusahaan rper ON (rper.id = kk.perusahaan_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]);
$data_pasien[usia] = empty($arr_usia[tahun])?"":$arr_usia[tahun] . " thn ";
$data_pasien[usia] .= empty($arr_usia[bulan])?"":$arr_usia[bulan] . " bln ";
$data_pasien[usia] .= empty($arr_usia[hari])?"":$arr_usia[hari] . " hr ";
$objResponse->addClear("modal_lb", "style.display");
$objResponse->addAssign("lb_id_kunjungan_kamar", "value", $idkk);
$objResponse->addAssign("lb_no_rm", "innerHTML", $data_pasien[id_display]);
$objResponse->addAssign("lb_pasien", "innerHTML", $data_pasien[nama]);
$objResponse->addAssign("lb_sex", "innerHTML", $data_pasien[jk]);
$objResponse->addAssign("lb_usia", "innerHTML", $data_pasien[usia]);
$objResponse->addAssign("lb_alamat", "innerHTML", $data_pasien[alamat]);
$objResponse->addAssign("lb_tgl_periksa", "innerHTML", tanggalIndo($data_pasien[tgl_periksa], 'j F Y'));
$objResponse->addAssign("lb_cara_bayar", "innerHTML", $data_pasien[cara_bayar]);
$objResponse->addAssign("lb_pelayanan", "innerHTML", $data_pasien[nama_pelayanan]);
$objResponse->addAssign("lb_nomor", "innerHTML", empty($data_pasien[nomor])?"-":$data_pasien[nomor]);
//BIKIN SESSION UNTUK DICETAK
$_SESSION[igd][langsung_bayar][data_px] = $data_pasien;
$tabel = new Table;
$tabel->cellspacing = "0";
$tabel->scroll = false;
$tabel->extra_table = "style=\"width:9cm;\"";
$tabel->addTh("No", "Jasa", "Biaya");
$tabel->addExtraTh("style=\"width:0.7cm;\"", "style=\"width:6.5cm;\"", "");
//get data karcis
$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
FROM
kunjungan_bayar kb
JOIN kunjungan_kamar kk ON (kk.id = kb.kunjungan_kamar_id)
LEFT JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
WHERE
kb.karcis_id IS NOT NULL
AND kk.id = '".$idkk."'
GROUP BY
kb.id
ORDER BY kb.id
";
$kon->execute();
$data_karcis = $kon->getAll();
if(!empty($data_karcis)) {
$tabel->addRow("","<b>Karcis</b>","");
for($i=0;$i<sizeof($data_karcis);$i++) {
$tabel->addRow(
($i+1),
$data_karcis[$i][nama],
uangIndo($data_karcis[$i][bayar])
);
$total += $data_karcis[$i][bayar];
$sudah_dibayar += $data_karcis[$i][mampu_bayar];
//belum bayar
if(!$data_karcis[$i][kwitansi_id]) $kurang += $data_karcis[$i][bayar];
}
}
//get data tindakan
$kon->sql = "
SELECT
kki.nama as nama,
SUM(kb.bayar_jasa) as bayar,
SUM(kb.mampu_bayar_jasa) as mampu_bayar,
kwd.kwitansi_id as kwitansi_id
FROM
kunjungan_kamar_icopim kki
JOIN kunjungan_bayar kb ON (kb.kunjungan_kamar_icopim_id = kki.id)
LEFT JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
WHERE
kb.icopim_detil_id IS NOT NULL
AND kki.kunjungan_kamar_id = '".$idkk."'
GROUP BY
kki.id
ORDER 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],
uangIndo($data_tindakan[$i][bayar])
);
$total += $data_tindakan[$i][bayar];
$sudah_dibayar += $data_tindakan[$i][mampu_bayar];
//belum bayar
if(!$data_tindakan[$i][kwitansi_id]) $kurang += $data_tindakan[$i][bayar];
}
}
//get data bhp
$kon->sql = "
SELECT
kb.nama as nama,
kb.bayar_bhp as bayar,
kb.mampu_bayar_bhp as mampu_bayar,
kwd.kwitansi_id as kwitansi_id
FROM
kunjungan_bayar kb
JOIN kunjungan_kamar kk ON (kk.id = kb.kunjungan_kamar_id)
LEFT JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
WHERE
kb.bhp_id IS NOT NULL
AND kk.id = '".$idkk."'
GROUP BY
kb.id
ORDER BY kb.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],
uangIndo($data_bhp[$i][bayar])
);
$total += $data_bhp[$i][bayar];
$sudah_dibayar += $data_bhp[$i][mampu_bayar];
//belum bayar
if(!$data_bhp[$i][kwitansi_id]) $kurang += $data_bhp[$i][bayar];
}
}
$tabel->addRow("","<b>Total</b>", uangIndo($total));
$tabel_jasa = $tabel->build();
$tabel_jasa .= "<br />Terbilang : <i>" . terbilang($total) . "</i>";
$objResponse->addAssign("lb_list_jasa", "innerHTML", $tabel_jasa);
$objResponse->addScriptCall("disable_mainbar", "#E5E6E1");
return $objResponse;
}
function get_kunjungan($val) {
unset($_SESSION[ranap][statistik_kunjungan_ranap]);
$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 = "Statistik Kunjungan Rawat Inap";
$objResponse = new xajaxResponse();
$kon = new Konek;
if($_SESSION[pelayanan_id]) {
$kon->sql = "SELECT nama FROM pelayanan WHERE id = '".$_SESSION[pelayanan_id]."'";
$kon->execute();
$poli = $kon->getOne();
$title .= "\nBangsal " . $poli[nama];
$q = "AND pel.id = '".$_SESSION[pelayanan_id]."'";
}
if($val[tampilkan] == "hari") {
$selisih = datediff('d', $tgl_start, $tgl_end);
$tanggal_awal = tanggalIndo($tgl_start, "j F Y");
$tanggal_akhir = tanggalIndo($tgl_end, "j F Y");
} elseif($val[tampilkan] == "bulan") {
$selisih = datediff('m', $tgl_start, $tgl_end);
$tanggal_awal = tanggalIndo($tgl_start, "F Y");
$tanggal_akhir = tanggalIndo($tgl_end, "F Y");
} else {
$selisih = datediff('y', $tgl_start, $tgl_end);
$tanggal_awal = tanggalIndo($tgl_start, "Y");
$tanggal_akhir = tanggalIndo($tgl_end, "Y");
}
$title .= "\nPeriode " . $tanggal_awal . " s.d. " . $tanggal_akhir;
$arr_tgl_start = explode("-",$tgl_start);
$tgl_start_tgl = $arr_tgl_start[2];
$tgl_start_bln = $arr_tgl_start[1];
$tgl_start_thn = $arr_tgl_start[0];
$arr_tgl_end = explode("-",$tgl_end);
$tgl_end_tgl = $arr_tgl_end[2];
$tgl_end_bln = $arr_tgl_end[1];
$tgl_end_thn = $arr_tgl_end[0];
for($i=0;$i<=$selisih;$i++) {
if($val[tampilkan] == "hari") {
$tgl[$i] = @date("Y-m-d", @mktime(1, 1, 1, $tgl_start_bln, ($i+$tgl_start_tgl), $tgl_start_thn));
$tgl_periksa[$i] = tanggalIndo($tgl[$i], "j M\nY");
$_SESSION[ranap][statistik_kunjungan_ranap][label_tick][$i] = @date("j", @mktime(1, 1, 1,$tgl_start_bln, ($tgl_start_tgl+$i), $tgl_start_thn));
$label_x[$i] = @date("M Y", @mktime(1, 1, 1, $tgl_start_bln, ($tgl_start_tgl+$i), $tgl_start_thn));
$where = " AND DATE(kk.tgl_periksa) = '" . $tgl[$i] . "' ";
$where_keluar = " AND DATE(kk.tgl_keluar) = '" . $tgl[$i] . "' ";
} elseif($val[tampilkan] == "bulan") {
$tgl[$i] = @date("Y-m-d", @mktime(1, 1, 1, ($tgl_start_bln+$i), 1, $tgl_start_thn));
$tgl_periksa[$i] = tanggalIndo($tgl[$i], "M\nY");
$_SESSION[ranap][statistik_kunjungan_ranap][label_tick][$i] = @date("M y", @mktime(1, 1, 1, ($tgl_start_bln+$i), 1, $tgl_start_thn));
$label_x[$i] = @date("Y", @mktime(1, 1, 1, ($tgl_start_bln+$i), 1, $tgl_start_thn));
$where = " AND EXTRACT(YEAR_MONTH FROM kk.tgl_periksa) = EXTRACT(YEAR_MONTH FROM '" . $tgl[$i] . "') ";
$where_keluar = " AND EXTRACT(YEAR_MONTH FROM kk.tgl_keluar) = EXTRACT(YEAR_MONTH FROM '" . $tgl[$i] . "') ";
} else {
$tgl[$i] = @date("Y-m-d", @mktime(1, 1, 1, 1, 1, ($tgl_start_thn + $i)));
$tgl_periksa[$i] = tanggalIndo($tgl[$i], "Y");
$_SESSION[ranap][statistik_kunjungan_ranap][label_tick][$i] = @date("Y", @mktime(1, 1, 1, 1, 1, ($tgl_start_thn+$i)));
$label_x[$i] = "Tahun";
$where = " AND YEAR(kk.tgl_periksa) = YEAR('" . $tgl[$i] . "') ";
$where_keluar = " AND YEAR(kk.tgl_keluar) = YEAR('" . $tgl[$i] . "') ";
}
$sql = "
SELECT
COUNT(kk.id) as jml
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)
WHERE
pel.jenis = 'RAWAT INAP'
$q
$where
";
$kon->sql = $sql;
$kon->execute();
$masuk[$i] = $kon->getOne();
if(!$masuk[$i][jml]) $masuk[$i][jml] = 0;
$_SESSION[ranap][statistik_kunjungan_ranap][jml_masuk][$i] = $masuk[$i][jml];
$_SESSION[ranap][statistik_kunjungan_ranap][tgl_periksa][$i] = $tgl_periksa[$i];
//GET DATA PX KELUAR
$sql2 = "
SELECT
COUNT(kk.id) as jml
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)
WHERE
pel.jenis = 'RAWAT INAP'
$q
$where_keluar
";
$kon->sql = $sql2;
$kon->execute();
$keluar[$i] = $kon->getOne();
if(!$keluar[$i][jml]) $keluar[$i][jml] = 0;
$_SESSION[ranap][statistik_kunjungan_ranap][jml_keluar][$i] = $keluar[$i][jml];
}
//$objResponse->addAlert(print_r($lama));
$_SESSION[ranap][statistik_kunjungan_ranap][title] = $title . "\nPeriode " . tanggalIndo($tgl_start, "j F Y") . " s.d. " . tanggalIndo($tgl_end, "j F Y");
$labelx = @array_unique($label_x);
$_SESSION[ranap][statistik_kunjungan_ranap][label_x] = @implode(", ",$labelx);
$table = new Table;
$table->scroll = false;
for($i=0;$i<=$selisih;$i++) {
$table->Th[0][] = $tgl_periksa[$i];
$table->extra_th[0][] = "colspan=\"2\"";
$table->Row[0][$i*2] = $masuk[$i][jml];
$table->Row[0][$i*2+1] = $keluar[$i][jml];
}
for($i=0;$i<=($selisih*2+1);$i++) {
$x = $i;
if($i % 2 == 0) {
$table->Th[1][] = "Masuk";
} else {
$table->Th[1][] = "Keluar";
}
$table->Th[2][] = ($i+1);
}
$ret = $table->build();
$_SESSION[ranap][statistik_kunjungan_ranap][th_0] = $table->Th[0];
$_SESSION[ranap][statistik_kunjungan_ranap][th_1] = $table->Th[1];
$_SESSION[ranap][statistik_kunjungan_ranap][extra_th_0] = $table->extra_th[0];
$_SESSION[ranap][statistik_kunjungan_ranap][row] = $table->Row[0];
$objResponse->addAssign("list_data", "innerHTML", $ret);
$_SESSION[ranap][statistik_kunjungan_ranap][graph] = "<img src=\"" . URL . "ranap/statistik_kunjungan_ranap_graph_bar/?md5=".md5(date("Ymdhis"))."\" alt=\"Kunjungan\" />";
$_SESSION[ranap][statistik_kunjungan_ranap][title] = $title;
$objResponse->addAssign("title", "innerHTML", nl2br($_SESSION[ranap][statistik_kunjungan_ranap][title]));
$objResponse->addAssign("graph", "innerHTML", $_SESSION[ranap][statistik_kunjungan_ranap][graph]);
return $objResponse;
}
function get_lap_rl1($val) {
$objResponse = new xajaxResponse;
$kon = new Konek;
$sql = "
SELECT
id,
nama as nama_lain
FROM
pelayanan
WHERE
jenis = 'RAWAT INAP'
";
$kon->sql = $sql;
$kon->execute();
$data = $kon->getAll();
$baru = array();
$s = 0;
/*
I : 1 januari - 31 maret
II : 1 april - 30 juni
III : 1 juli - 30 september
IV : 1 oktober - 31 desember
*/
switch($val[tw]) {
case "I" :
$tgl_awal = $val[tahun] . "-01-01";
$tgl_akhir = $val[tahun] . "-03-31";
$tgl_start_bln = 1;
break;
case "II" :
$tgl_awal = $val[tahun] . "-04-01";
$tgl_akhir = $val[tahun] . "-06-30";
$tgl_start_bln = 4;
break;
case "III" :
$tgl_awal = $val[tahun] . "-07-01";
$tgl_akhir = $val[tahun] . "-09-30";
$tgl_start_bln = 7;
break;
default :
$tgl_awal = $val[tahun] . "-10-01";
$tgl_akhir = $val[tahun] . "-12-31";
$tgl_start_bln = 10;
break;
}
$selisih_hari = datediff("d", $tgl_awal, $tgl_akhir);
for($i=0;$i<sizeof($data);$i++) {
$baru[$i][nama] = $data[$i][nama_lain];
/*
get px awal triwulan ~ pasien sisa / pasien yg masih dirawat
syarat : tgl masuk < tgl_awal
tgl_keluar > tgl_awal
*/
$kon->sql = "
SELECT
COUNT(kk.id) as jml
FROM
kunjungan_kamar kk
JOIN kamar kmr ON (kmr.id = kk.kamar_id)
JOIN kunjungan k ON (k.id = kk.kunjungan_id)
WHERE
kmr.pelayanan_id = '".$data[$i][id]."'
AND (DATE(kk.tgl_daftar) < '".$tgl_awal."' AND (DATE(kk.tgl_keluar) >= '".$tgl_awal."' OR kk.tgl_keluar IS NULL))
";
$kon->execute();
$px_awal = $kon->getOne();
$baru[$i][px_awal] = $px_awal[jml];
$total[px_awal] += $baru[$i][px_awal];
/*
get px masuk
ASUMSI SEMENTARA : PASIEN PINDAHAN DIHITUNG
syarat : tgl masuk diantara tgl_awal dan tgl_keluar
*/
$kon->sql = "
SELECT
COUNT(kk.id) as jml
FROM
kunjungan_kamar kk
JOIN kamar kmr ON (kmr.id = kk.kamar_id)
JOIN kunjungan k ON (k.id = kk.kunjungan_id)
WHERE
kmr.pelayanan_id = '".$data[$i][id]."'
AND (DATE(kk.tgl_daftar) BETWEEN '".$tgl_awal."' AND '".$tgl_akhir."')
";
$kon->execute();
$px_masuk = $kon->getOne();
$baru[$i][px_masuk] = $px_masuk[jml];
$total[px_masuk] += $baru[$i][px_masuk];
/*
get px keluar
syarat : tgl keluar diantara tgl_awal dan tgl_keluar dan keadaan keluar = sembuh, belum sembuh
*/
$kon->sql = "
SELECT
COUNT(kk.id) as jml,
k.keadaan_keluar as keadaan_keluar
FROM
kunjungan_kamar kk
JOIN kamar kmr ON (kmr.id = kk.kamar_id)
JOIN kunjungan k ON (k.id = kk.kunjungan_id)
WHERE
kmr.pelayanan_id = '".$data[$i][id]."'
AND (DATE(kk.tgl_keluar) BETWEEN '".$tgl_awal."' AND '".$tgl_akhir."')
GROUP BY kk.id
";
$kon->execute();
$px_keluar = $kon->getAll();
for($j=0;$j<sizeof($px_keluar);$j++) {
switch($px_keluar[$j][keadaan_keluar]) {
case "MATI < 48 JAM" :
$baru[$i][px_keluar_mati_kurang_dari] += $px_keluar[$j][jml];
break;
case "MATI >= 48 JAM" :
$baru[$i][px_keluar_mati_lebih_dari] += $px_keluar[$j][jml];
break;
default :
$baru[$i][px_keluar_hidup] += $px_keluar[$j][jml];
break;
}
}
$total[px_keluar_mati_kurang_dari] += $baru[$i][px_keluar_mati_kurang_dari];
$total[px_keluar_mati_lebih_dari] += $baru[$i][px_keluar_mati_lebih_dari];
$total[px_keluar_hidup] += $baru[$i][px_keluar_hidup];
$baru[$i][px_keluar_mati] = $baru[$i][px_keluar_mati_kurang_dari] + $baru[$i][px_keluar_mati_lebih_dari];
$total[px_keluar_mati] += $baru[$i][px_keluar_mati];
/*
get jumlah lama dirawat ~ lamanya seorang pasien dirawat
syarat : tgl keluar diantara tgl_awal dan tgl_keluar
hitung tgl_keluar-tanggal_daftar
cara : cari dulu px yg keluar pada tw tsb
hitung tgl_keluar-tanggal_daftar
jika tgl_keluar = tgl_daftar -> dihitung 1 hari lama dirawat
*/
$kon->sql = "
SELECT
kk.id as kkid,
CASE
WHEN (DATE(kk.tgl_daftar) = DATE(kk.tgl_keluar)) THEN 1
ELSE DATEDIFF(kk.tgl_keluar, kk.tgl_daftar)
END as jml
FROM
kunjungan_kamar kk
JOIN kamar kmr ON (kmr.id = kk.kamar_id)
WHERE
kmr.pelayanan_id = '".$data[$i][id]."'
AND (DATE(kk.tgl_keluar) BETWEEN '".$tgl_awal."' AND '".$tgl_akhir."')
GROUP BY kk.id
";
$kon->execute();
$ld = $kon->getAll();
for($j=0;$j<sizeof($ld);$j++) {
$baru[$i][lama_dirawat] += $ld[$j][jml];
}
$total[lama_dirawat] += $baru[$i][lama_dirawat];
/*
get px akhir triwulan ~ pasien sisa / pasien yg masih dirawat
syarat : tgl masuk < tgl_akhir
tgl_keluar > tgl_akhir
*/
$kon->sql = "
SELECT
COUNT(kk.id) as jml
FROM
kunjungan_kamar kk
JOIN kamar kmr ON (kmr.id = kk.kamar_id)
JOIN kunjungan k ON (k.id = kk.kunjungan_id)
WHERE
kmr.pelayanan_id = '".$data[$i][id]."'
AND (DATE(kk.tgl_daftar) < '".$tgl_akhir."' AND (DATE(kk.tgl_keluar) > '".$tgl_akhir."' OR kk.tgl_keluar IS NULL))
";
$kon->execute();
$px_akhir = $kon->getOne();
$baru[$i][px_akhir] = $px_akhir[jml];
$total[px_akhir] += $baru[$i][px_akhir];
/*
get jumlah hari perawatan ~ pasien sisa per hari
sampe sini
*/
//sampe sini 7/4/2007
for($j=0;$j<=$selisih_hari;$j++) {
$tgl = @date("Y-m-d", @mktime(1, 1, 1, $tgl_start_bln, ($j+1), $val[tahun]));
$kon->sql = "
SELECT
COUNT(kk.id) as jml,
kmr.kelas as kelas
FROM
kunjungan_kamar kk
JOIN kamar kmr ON (kmr.id = kk.kamar_id)
JOIN kunjungan k ON (k.id = kk.kunjungan_id)
WHERE
kmr.pelayanan_id = '".$data[$i][id]."'
AND (DATE(kk.tgl_daftar) <= '".$tgl."' AND (DATE(kk.tgl_keluar) > '".$tgl."' OR kk.tgl_keluar IS NULL))
GROUP BY kmr.kelas
";
$kon->execute();
$px_hari_ini[$j] = $kon->getAll();
for($k=0;$k<sizeof($px_hari_ini[$j]);$k++) {
switch($px_hari_ini[$j][$k][kelas]) {
case "I" :
$baru[$i][hp_kelas_i] += $px_hari_ini[$j][$k][jml];
break;
case "II" :
$baru[$i][hp_kelas_ii] += $px_hari_ini[$j][$k][jml];
break;
case "III" :
$baru[$i][hp_kelas_iii] += $px_hari_ini[$j][$k][jml];
break;
case "VIP" :
$baru[$i][hp_kelas_vip] += $px_hari_ini[$j][$k][jml];
break;
default :
$baru[$i][hp_kelas_tanpa_kelas] += $px_hari_ini[$j][$k][jml];
break;
}
}
}
$total[hp_kelas_i] += $baru[$i][hp_kelas_i];
$total[hp_kelas_ii] += $baru[$i][hp_kelas_ii];
$total[hp_kelas_iii] += $baru[$i][hp_kelas_iii];
$total[hp_kelas_vip] += $baru[$i][hp_kelas_vip];
$total[hp_kelas_tanpa_kelas] += $baru[$i][hp_kelas_tanpa_kelas];
$baru[$i][hp_total] +=$baru[$i][hp_kelas_i] + $baru[$i][hp_kelas_ii] + $baru[$i][hp_kelas_iii] + $baru[$i][hp_kelas_vip] + $baru[$i][hp_kelas_tanpa_kelas];
$total[hp_total] += $baru[$i][hp_total];
}
$tabel_all = new Table;
$tabel_all->scroll = false;
$tabel_all->extra_table = "style=\"width:27cm;margin:0\"";
$tabel_all->cellspacing="0";
$tabel_all->css_table="";
$tabel_all->anime_bg_color="";
$tabel_header = new Table;
$tabel_header->scroll = false;
$tabel_header->extra_tr_th = "";
$tabel_header->cellspacing="0";
$tabel_header->css_table="";
$tabel_header->anime_bg_color="";
$tabel_header->extra_table = "style=\"width:27cm;border:0;\"";
$tabel_header->addTh("","DATA KEGIATAN RUMAH SAKIT<br />TRIWULAN : ".$val[tw]."<br />TAHUN : ".$val[tahun]."");
//$tabel_header->addExtraTh("colspan=\"3\"");
$tabel_header->addRow("","","Formulir RL1");
//$tabel_header->addExtraTh();
$tabel_header->addRow($_SESSION[setting][rs_nama], "", "No. Kode RS : " . $_SESSION[setting][rs_kode]);
//$tabel_header->addExtraTh("colspan=\"3\"");
$tabel_isi = new Table;
$tabel_isi->scroll = false;
$tabel_isi->cellspacing="0";
$tabel_isi->extra_table = "style=\"width:27cm;font-size:7pt;\"";
$tabel_header->css_table="";
$tabel_isi->addTh(
"No.",
"JENIS PELAYANAN",
"Pasien<br />Awal<br />Triwulan",
"Pasien<br />Masuk",
"Pasien<br />Keluar<br />Hidup",
"Pasien Keluar Mati",
"Jumlah<br />Lama<br />Dirawat",
"Pasien<br />Akhir<br />Triwulan",
"Jumlah<br />Hari Pe-<br />rawatan",
"Rincian Hari Perawatan per Kelas",
"No."
);
$tabel_isi->addExtraTh(
"rowspan=\"2\"",
"rowspan=\"2\"",
"rowspan=\"2\"",
"rowspan=\"2\"",
"rowspan=\"2\"",
"colspan=\"3\"",
"rowspan=\"2\"",
"rowspan=\"2\"",
"rowspan=\"2\"",
"colspan=\"5\"",
"rowspan=\"2\""
);
$tabel_isi->addTh("< 48 jam", "≥ 48 jam", "jumlah", "Kelas<br />Utama", "Kelas I", "Kelas II", "Kelas III", "Tanpa<br />Kelas");
$tabel_isi->addTh("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17");
for($i=0;$i<sizeof($baru);$i++) {
$tabel_isi->addRow(
($i+1),
$baru[$i][nama],
$baru[$i][px_awal],
$baru[$i][px_masuk],
$baru[$i][px_keluar_hidup],
$baru[$i][px_keluar_mati_kurang_dari],
$baru[$i][px_keluar_mati_lebih_dari],
$baru[$i][px_keluar_mati],
$baru[$i][lama_dirawat],
$baru[$i][px_akhir],
$baru[$i][hp_total],
$baru[$i][hp_kelas_vip],
$baru[$i][hp_kelas_i],
$baru[$i][hp_kelas_ii],
$baru[$i][hp_kelas_iii],
$baru[$i][hp_kelas_tanpa_kelas],
($i+1)
);
}
$tabel_isi->addRow(
99,
"TOTAL",
$total[px_awal],
$total[px_masuk],
$total[px_keluar_hidup],
$total[px_keluar_mati_kurang_dari],
$total[px_keluar_mati_lebih_dari],
$total[px_keluar_mati],
$total[lama_dirawat],
$total[px_akhir],
$total[hp_total],
$total[hp_kelas_vip],
$total[hp_kelas_i],
$total[hp_kelas_ii],
$total[hp_kelas_iii],
$total[hp_kelas_tanpa_kelas],
99
);
$ret_tabel_header = $tabel_header->build();
$ret_tabel_isi = $tabel_isi->build();
$tabel_all->addRow($ret_tabel_header);
$tabel_all->addRow($ret_tabel_isi);
$ret = $tabel_all->build();
unset($_SESSION[rekmed][lap_rl1]);
$cetak = new Cetak;
$tanda_tangan = $cetak->setTandaTangan();
$ret .= $tanda_tangan;
$_SESSION[rekmed][lap_rl1] = $ret;
$objResponse->addAssign("list_data", "innerHTML", $ret);
return $objResponse;
}
function buka_kunjungan($id_kunjungan_lab) {
$objResponse = new xajaxResponse;
$kon = new Konek;
$sql = "
SELECT
lk.kunjungan_kamar_id as kunjungan_kamar_id,
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,
p.sex as sex,
p.tgl_lahir as tgl_lahir,
DATE(lk.tgl_daftar) as tgl_daftar,
DATE(lk.tgl_periksa) as tgl_periksa,
lk.kelas as kelas,
lk.pengirim as pengirim,
CONCAT_WS(' - ', lk.cara_masuk, kmr.nama) as cara_masuk,
CONCAT_WS(' - ', lk.cara_bayar, lk.jenis_askes, rper.nama) as cara_bayar
FROM
lab_kunjungan lk
JOIN pasien p ON (p.id = lk.pasien_id)
LEFT JOIN kunjungan_kamar kk ON (kk.id = lk.kunjungan_kamar_id)
LEFT JOIN kamar kmr ON (kmr.id = kk.kamar_id)
LEFT JOIN ref_perusahaan rper ON (rper.id = lk.perusahaan_id)
WHERE
lk.id = '".$id_kunjungan_lab."'
";
$kon->sql = $sql;
$kon->execute();
$data = $kon->getOne();
//get data specimen
$kon->sql = "
SELECT
id as kunjungan_bayar_id,
nama as nama,
hak_id as hak_id,
jumlah as jumlah,
biaya_bhp as biaya_bhp,
biaya_jasa as biaya_jasa,
bayar_bhp as bayar_bhp,
bayar_jasa as bayar_jasa
FROM
kunjungan_bayar
WHERE
lab_kunjungan_id = '".$id_kunjungan_lab."'
AND lab_specimen_id IS NOT NULL
GROUP BY
id
";
$kon->execute();
$data_spc = $kon->getAll();
//get data BHP
$kon->sql = "
SELECT
id as kunjungan_bayar_id,
nama as nama,
hak_id as hak_id,
jumlah as jumlah,
sifat as sifat,
biaya_bhp as biaya,
bayar_bhp as bayar
FROM
kunjungan_bayar
WHERE
lab_kunjungan_id = '".$id_kunjungan_lab."'
AND bhp_id IS NOT NULL
GROUP BY
id
";
$kon->execute();
$data_bhp = $kon->getAll();
$skr = date("Y-m-d");
$usia = hitungUmur($data[tgl_lahir], $skr);
$umur = empty($usia[tahun])?"":$usia[tahun] . " th ";
$umur .= empty($usia[bulan])?"":$usia[bulan] . " bl ";
$umur .= empty($usia[hari])?"":$usia[hari] . " hr ";
//$objResponse->addAssign("debug", "innerHTML", $sql);
//info utama
$objResponse->addAssign("input_no_rm", "innerHTML", $data[no_rm]);
$objResponse->addAssign("input_pasien", "innerHTML", $data[nama]);
$objResponse->addAssign("input_sex", "innerHTML", $data[sex]);
$objResponse->addAssign("input_usia", "innerHTML", $umur);
$objResponse->addAssign("input_cara_masuk", "innerHTML", $data[cara_masuk]);
$objResponse->addAssign("input_cara_bayar", "innerHTML", $data[cara_bayar]);
$objResponse->addAssign("input_id_kunjungan_lab", "value", $id_kunjungan_lab);
$objResponse->addAssign("input_id_kunjungan_kamar", "value", $data[kunjungan_kamar_id]);
$objResponse->addAssign("input_kelas", "value", $data[kelas]);
$objResponse->addAssign("display_kelas", "innerHTML", $data[kelas]);
$objResponse->addAssign("kelas", "value", $data[kelas]);
$objResponse->addAssign("input_kunjungan_ke", "innerHTML", $data[kunjungan_ke]);
$objResponse->addAssign("input_spesialisasi", "innerHTML", $data[spesialisasi]);
$objResponse->addScriptCall("xajax_ref_get_dokter_from_kamar", "input_dokter_id", $data[id_kamar], $data[id_dokter]);
$objResponse->addAssign("input_tgl_daftar", "innerHTML", tanggalIndo($data[tgl_daftar], 'j F Y'));
$objResponse->addAssign("input_tgl_periksa", "innerHTML", tanggalIndo($data[tgl_daftar], 'j F Y'));
$objResponse->addAssign("input_pengirim", "innerHTML", $data[pengirim]);
if(!empty($data_spc)) $objResponse->addScriptCall("xajax_get_specimen_from_kunjungan", $data_spc);
if(!empty($data_bhp)) $objResponse->addScriptCall("xajax_get_bhp_from_kunjungan", $data_bhp);
//tampilkan modal window input kunjungan
$objResponse->addClear("modal_kunjungan", "style.display");
$objResponse->addScriptCall("disable_mainbar", "#E5E6E1");
$objResponse->addScriptCall("fokus", "input_dokter_id");
return $objResponse;
}
function hapus_kunjungan_kamar($kunjungan_id, $kunjungan_kamar_id) {
$kon = new Konek;
//jika row kunjungan_kamar = 1, hapus kunjungan juga
$kon->sql = "SELECT COUNT(*) as jml FROM kunjungan_kamar WHERE kunjungan_id = '".$kunjungan_id."'";
$kon->execute();
$data = $kon->getOne();
if($data[jml] > 1) {
$kon->sql = "DELETE FROM kunjungan_kamar WHERE id = '".$kunjungan_kamar_id."'";
} else {
$kon->sql = "DELETE FROM kunjungan WHERE id = '".$kunjungan_id."'";
}
$kon->execute();
$ret = $kon->affected_rows;
$objResponse = new xajaxResponse();
if($ret<0) {
$objResponse->addAlert("Data Tidak Dapat Dihapus.");
} else {
$objResponse->addScriptCall("list_data", "0");
$objResponse->addScriptCall("fokus");
}
return $objResponse;
}
$tabel->cellspacing = "0";
$tabel->scroll = false;
$tabel->extra_table = "style=\"width:100%;\"";
$tabel->addTh("No", "Keterangan", "Jumlah Biaya", "Biaya Tagihan");
$tabel->addExtraTh("style=\"width:0.7cm;\"", "style=\"width:6cm;\"", "");
/* End Detail Prepared */
$id_kwitansi = explode("-", $_GET[id_kwitansi]);
$tempat_pembayaran = $id_kwitansi[0];
$no_kwitansi = $id_kwitansi[1];
$kon = new Konek;
//get data kwitansi
$kon->sql = "SELECT tgl FROM kwitansi WHERE id = '".$no_kwitansi."'";
$kon->execute();
$data_kw = $kon->getOne();
$idk = $_COOKIE[idk];
$lama = $_COOKIE[lama];
$kamar_id = $_COOKIE[kamar_id];
$objResponse->addAlert($kamar_id);
//bayar kamar
if ($lama==0) :
//cek dulu dikunjungan kamar
//$objResponse->addAlert($data_pasien[lama_dirawat]);
$sql = "
SELECT
kk.id as kunjungan_id,kk.kamar_id as kamar_id,
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,
function get_desa($id) {
$kon = new Konek;
$kon->sql = "
SELECT
p.id AS prop_id,
k.id AS kab_id,
kec.id AS kec_id,
d.id as id,
d.nama as nama
FROM
ref_desa d
JOIN ref_kecamatan kec ON (kec.id = d.kecamatan_id)
JOIN ref_kabupaten k ON (k.id = kec.kabupaten_id)
JOIN ref_propinsi p ON (p.id = k.propinsi_id)
WHERE
d.id = '".$id."'";
$kon->execute();
$data = $kon->getOne();
$objResponse = new xajaxResponse();
$objResponse->addAssign("id_desa", "value", $data[id]);
$objResponse->addAssign("nama", "value", $data[nama]);
$objResponse->addAssign("propinsi_id", "value", $data[prop_id]);
$objResponse->addScriptCall("xajax_get_kabupaten", $data[prop_id], $data[kab_id]);
$objResponse->addScriptCall("xajax_get_kecamatan", $data[kab_id], $data[kec_id]);
$objResponse->addScriptCall("fokus", "nama");
return $objResponse;
}
function get_kamar($id) {
$kon = new Konek;
$kon->sql = "
SELECT
k.id as id,
k.nama as nama,
k.kelas as kelas,
k.jml_bed as jml_bed,
p.id as pelayanan_id,
k.tarif_asuransi as tarif_asuransi,k.tarif_umum as tarif_umum,
k.no_kamar as no_kamar
FROM
kamar k
JOIN pelayanan p ON (p.id = k.pelayanan_id)
WHERE
k.id = '".$id."'";
$kon->execute();
$data = $kon->getOne();
$objResponse = new xajaxResponse();
$objResponse->addAssign("id_kamar", "value", $data[id]);
$objResponse->addAssign("pelayanan_id", "value", $data[pelayanan_id]);
$objResponse->addAssign("nama", "value", $data[nama]);
$objResponse->addAssign("kelas", "value", $data[kelas]);
$objResponse->addAssign("jml_bed", "value", $data[jml_bed]);
$objResponse->addAssign("no_kamar", "value", $data[no_kamar]);
$objResponse->addAssign("tarif_umum", "value", $data[tarif_umum]);
$objResponse->addAssign("tarif_asuransi", "value", $data[tarif_asuransi]);
$objResponse->addScriptCall("fokus", "pelayanan_id");
return $objResponse;
}
function get_kunjungan($val) {
unset($_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk]);
$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 = "Statistik Kunjungan Radiologi Berdasar Cara Masuk";
if($val[tampilkan] == "hari") {
$selisih = datediff('d', $tgl_start, $tgl_end);
$tanggal_awal = tanggalIndo($tgl_start, "j F Y");
$tanggal_akhir = tanggalIndo($tgl_end, "j F Y");
} elseif($val[tampilkan] == "bulan") {
$selisih = datediff('m', $tgl_start, $tgl_end);
$tanggal_awal = tanggalIndo($tgl_start, "F Y");
$tanggal_akhir = tanggalIndo($tgl_end, "F Y");
} else {
$selisih = datediff('y', $tgl_start, $tgl_end);
$tanggal_awal = tanggalIndo($tgl_start, "Y");
$tanggal_akhir = tanggalIndo($tgl_end, "Y");
}
$title .= "\nPeriode " . $tanggal_awal . " s.d. " . $tanggal_akhir;
$arr_tgl_start = explode("-",$tgl_start);
$tgl_start_tgl = $arr_tgl_start[2];
$tgl_start_bln = $arr_tgl_start[1];
$tgl_start_thn = $arr_tgl_start[0];
$arr_tgl_end = explode("-",$tgl_end);
$tgl_end_tgl = $arr_tgl_end[2];
$tgl_end_bln = $arr_tgl_end[1];
$tgl_end_thn = $arr_tgl_end[0];
$objResponse = new xajaxResponse();
$kon = new Konek;
for($i=0;$i<=$selisih;$i++) {
if($val[tampilkan] == "hari") {
$tgl[$i] = @date("Y-m-d", @mktime(1, 1, 1, $tgl_start_bln, ($i+$tgl_start_tgl), $tgl_start_thn));
$tgl_periksa[$i] = tanggalIndo($tgl[$i], "j M\nY");
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][radioel_tick][$i] = @date("j", @mktime(1, 1, 1,$tgl_start_bln, ($tgl_start_tgl+$i), $tgl_start_thn));
$radioel_x[$i] = @date("M Y", @mktime(1, 1, 1, $tgl_start_bln, ($tgl_start_tgl+$i), $tgl_start_thn));
$where = " AND DATE(lk.tgl_periksa) = '" . $tgl[$i] . "' ";
} elseif($val[tampilkan] == "bulan") {
$tgl[$i] = @date("Y-m-d", @mktime(1, 1, 1, ($tgl_start_bln+$i), 1, $tgl_start_thn));
$tgl_periksa[$i] = tanggalIndo($tgl[$i], "M\nY");
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][radioel_tick][$i] = @date("M y", @mktime(1, 1, 1, ($tgl_start_bln+$i), 1, $tgl_start_thn));
$radioel_x[$i] = @date("Y", @mktime(1, 1, 1, ($tgl_start_bln+$i), 1, $tgl_start_thn));
$where = " AND EXTRACT(YEAR_MONTH FROM lk.tgl_periksa) = EXTRACT(YEAR_MONTH FROM '" . $tgl[$i] . "') ";
} else {
$tgl[$i] = @date("Y-m-d", @mktime(1, 1, 1, 1, 1, ($tgl_start_thn + $i)));
$tgl_periksa[$i] = tanggalIndo($tgl[$i], "Y");
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][radioel_tick][$i] = @date("Y", @mktime(1, 1, 1, 1, 1, ($tgl_start_thn+$i)));
$radioel_x[$i] = "Tahun";
$where = " AND YEAR(lk.tgl_periksa) = YEAR('" . $tgl[$i] . "') ";
}
//dari IRD
$kon->sql = "
SELECT
COUNT(lk.id) as jml_igd
FROM
radio_kunjungan lk
JOIN pasien p ON (p.id = lk.pasien_id)
WHERE
lk.cara_masuk = 'IGD'
$where
";
$kon->execute();
$igd[$i] = $kon->getOne();
if(!$igd[$i][jml_igd]) $igd[$i][jml_igd] = "-";
//dari RAWAT JALAN
$kon->sql = "
SELECT
COUNT(lk.id) as jml_rajal
FROM
radio_kunjungan lk
JOIN pasien p ON (p.id = lk.pasien_id)
WHERE
lk.cara_masuk = 'RAWAT JALAN'
$where
";
$kon->execute();
$rajal[$i] = $kon->getOne();
if(!$rajal[$i][jml_rajal]) $rajal[$i][jml_rajal] = "-";
//dari RAWAT INAP
$kon->sql = "
SELECT
COUNT(lk.id) as jml_ranap
FROM
radio_kunjungan lk
JOIN pasien p ON (p.id = lk.pasien_id)
WHERE
lk.cara_masuk = 'RAWAT INAP'
$where
";
$kon->execute();
$ranap[$i] = $kon->getOne();
if(!$ranap[$i][jml_ranap]) $ranap[$i][jml_ranap] = "-";
//dari RAWAT INAP
$kon->sql = "
SELECT
COUNT(lk.id) as jml_luar
FROM
radio_kunjungan lk
JOIN pasien p ON (p.id = lk.pasien_id)
WHERE
lk.cara_masuk = 'PASIEN LUAR'
$where
";
$kon->execute();
$luar[$i] = $kon->getOne();
if(!$luar[$i][jml_luar]) $luar[$i][jml_luar] = "-";
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][jml_igd][$i] = $igd[$i][jml_igd];
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][jml_rajal][$i] = $rajal[$i][jml_rajal];
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][jml_ranap][$i] = $ranap[$i][jml_ranap];
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][jml_luar][$i] = $luar[$i][jml_luar];
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][tgl_periksa][$i] = $tgl_periksa[$i];
}
//$objResponse->addAlert(print_r($lama));
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][title] = $title . "\nPeriode " . tanggalIndo($tgl_start, "j F Y") . " s.d. " . tanggalIndo($tgl_end, "j F Y");
$radioelx = @array_unique($radioel_x);
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][radioel_x] = @implode(", ",$radioelx);
$table = new Table;
$table->scroll = false;
//$table->Th[0][] = "Pelayanan";
//$table->extra_th[0][] = "rowspan=\"2\"";
for($i=0;$i<=$selisih;$i++) {
$table->Th[0][] = $tgl_periksa[$i];
$table->extra_th[0][] = "colspan=\"4\"";
}
$table->Th[0][] = "Jumlah";
$table->extra_th[0][] = "colspan=\"4\"";
$kolom = $selisih*4+3;
for($i=0;$i<=$selisih;$i++) {
$table->Th[1][] = "IRD";
$table->Th[1][] = "Rajal";
$table->Th[1][] = "Ranap";
$table->Th[1][] = "Px Luar";
$table->Th[2][] = $i*4+1;
$table->Th[2][] = $i*4+2;
$table->Th[2][] = $i*4+3;
$table->Th[2][] = $i*4+4;
}
$table->Th[2][] = $i*4+1;
$table->Th[2][] = $i*4+2;
$table->Th[2][] = $i*4+3;
$table->Th[2][] = $i*4+4;
//kolom jumlah
$table->Th[1][] = "IRD";
$table->Th[1][] = "Rajal";
$table->Th[1][] = "Ranap";
$table->Th[1][] = "Px Luar";
//isinya
//$table->Row[0][0] = "IGD";
for($i=0;$i<=$selisih;$i++) {
$table->Row[0][] = $igd[$i][jml_igd];
$table->Row[0][] = $rajal[$i][jml_rajal];
$table->Row[0][] = $ranap[$i][jml_ranap];
$table->Row[0][] = $luar[$i][jml_luar];
$jumlah[igd] += $igd[$i][jml_igd];
$jumlah[rajal] += $rajal[$i][jml_rajal];
$jumlah[ranap] += $ranap[$i][jml_ranap];
$jumlah[luar] += $luar[$i][jml_luar];
}
//kolom terakhir
$table->Row[0][] = $jumlah[igd];
$table->Row[0][] = $jumlah[rajal];
$table->Row[0][] = $jumlah[ranap];
$table->Row[0][] = $jumlah[luar];
$ret = $table->build();
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][th_0] = $table->Th[0];
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][th_1] = $table->Th[1];
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][extra_th_0] = $table->extra_th[0];
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][row] = $table->Row[0];
$objResponse->addAssign("list_data", "innerHTML", $ret);
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][graph] = "<img src=\"" . URL . "rekmed/statistik_kunjungan_radio_semua_cara_masuk_graph_line/?md5=".md5(date("Ymdhis"))."\" alt=\"Kunjungan\" />";
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][title] = $title;
$objResponse->addAssign("title", "innerHTML", nl2br($_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][title]));
$objResponse->addAssign("graph", "innerHTML", $_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][graph]);
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;
}
function simpan_pasien($value) {
global $last_id;
$objResponse = new xajaxResponse();
$kon = new Konek;
if(!$value['id_pasien']) {
if(!$value['id']) {
$sql = "
INSERT INTO pasien(
nama,
tempat_lahir,
tgl_lahir,
gol_darah,
sex,
agama,
pendidikan_id,
pekerjaan_id,
status_nikah,
alamat,
rt,
rw,
desa_id,
telp,
tgl_daftar,
nama_ayah,
nama_ibu,
nama_suami,
nama_istri,
no_ktp_sim,
created_datetime,
created_user,
kode_petugas
)
VALUES (
'".$value[nama]."',
'".$value[tempat_lahir]."',
'".$value[tgl_lahir_thn]."-".$value[tgl_lahir_bln]."-".$value[tgl_lahir_tgl].
"',
NULLIF('".$value[gol_darah_id]."',''),
'".$value[sex]."',
'".$value[agama]."',
'".$value[pendidikan_id]."',
'".$value[pekerjaan_id]."',
'".$value[status_nikah]."',
'".$value[alamat]."',
'".$value[rt]."',
'".$value[rw]."',
'".$value[desa_id]."',
'".$value[telp]."',
NOW(),
'".$value[nama_ayah]."',
'".$value[nama_ibu]."',
'".$value[nama_suami]."',
'".$value[nama_istri]."',
'".$value[no_ktp_sim]."',
NOW(),
'".$_SESSION[username]."',
'".$value[nama_petugas]."'
)";
$kon->sql = $sql;
$kon->execute();
$afek = $kon->affected_rows;
$last_id = $kon->last_id;
//update no rekam medis
$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 FROM pasien p WHERE id='".$last_id."'";
$kon->sql = $sql;
$kon->execute();
$data = $kon->getOne();
$sql = "UPDATE pasien SET no_rm ='".$data[id_display]."' WHERE id = '".$last_id."'";
$kon->sql = $sql;
$kon->execute();
} else {
$sql = "
INSERT INTO pasien(
id,
nama,
tempat_lahir,
tgl_lahir,
gol_darah,
sex,
agama,
pendidikan_id,
pekerjaan_id,
status_nikah,
alamat,
rt,
rw,
desa_id,
telp,
tgl_daftar,
nama_ayah,
nama_ibu,
nama_suami,
nama_istri,
no_ktp_sim,
created_datetime,
created_user,
kode_petugas
)
VALUES (
'".$value[id]."',
'".$value[nama]."',
'".$value[tempat_lahir]."',
'".$value[tgl_lahir_thn]."-".$value[tgl_lahir_bln]."-".$value[tgl_lahir_tgl].
"',
NULLIF('".$value[gol_darah_id]."',''),
'".$value[sex]."',
'".$value[agama]."',
'".$value[pendidikan_id]."',
'".$value[pekerjaan_id]."',
'".$value[status_nikah]."',
'".$value[alamat]."',
'".$value[rt]."',
'".$value[rw]."',
'".$value[desa_id]."',
'".$value[telp]."',
NOW(),
'".$value[nama_ayah]."',
'".$value[nama_ibu]."',
'".$value[nama_suami]."',
'".$value[nama_istri]."',
'".$value[no_ktp_sim]."',
NOW(),
'".$_SESSION[username]."',
'".$value[nama_petugas]."'
)";
$kon->sql = $sql;
$kon->execute();
$afek = $kon->affected_rows;
$last_id = $kon->last_id;
$_SESSION[id] = $kon->last_id;
}
//update no rekam medis
$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
FROM pasien p WHERE id='".$last_id."'";
$kon->sql = $sql;
$kon->execute();
$data = $kon->getOne();
$sql = "UPDATE pasien SET no_rm ='".$data[id_display]."' WHERE id = '".$last_id."'";
$kon->sql = $sql;
$kon->execute();
} else {
$sql1 = "
UPDATE pasien SET
id = '".$value[id]."',
nama= '".$value[nama]."',
tempat_lahir = '".$value[tempat_lahir]."',
tgl_lahir= '".$value[tgl_lahir_thn]."-".$value[tgl_lahir_bln]."-".$value[tgl_lahir_tgl].
"',
gol_darah = NULLIF('".$value[gol_darah_id]."', ''),
sex= '".$value[sex]."',
agama= '".$value[agama]."',
pendidikan_id= '".$value[pendidikan_id]."',
pekerjaan_id= '".$value[pekerjaan_id]."',
status_nikah= '".$value[status_nikah]."',
alamat= '".$value[alamat]."',
rt= '".$value[rt]."',
rw= '".$value[rw]."',
desa_id= '".$value[desa_id]."',
telp= '".$value[telp]."',
nama_ayah= '".$value[nama_ayah]."',
nama_ibu= '".$value[nama_ibu]."',
nama_suami= '".$value[nama_suami]."',
nama_istri= '".$value[nama_istri]."',
no_ktp_sim= '".$value[no_ktp_sim]."',
update_time=NOW(),
update_user='******',
kode_petugas='".$value[nama_petugas]."'
WHERE
id = '".$value[id_pasien]."'";
$kon->sql = $sql1;
$kon->execute();
//$afek = $kon->affected_rows;
$afek = $kon->getJml();
$last_id = $value[id];
//$last_id = $kon->last_id;
//$_SESSION[id] = $kon->last_id;
//update no rekam medis
$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
FROM pasien p WHERE id='".$value[id_pasien]."'";
$kon->sql = $sql;
$kon->execute();
$data = $kon->getOne();
$sql = "UPDATE pasien SET no_rm ='".$data[id_display]."' WHERE id = '".$value[id_pasien]."'";
$kon->sql = $sql;
$kon->execute();
$id_pasien = $last_id;
}
if($afek < 0) {
$objResponse->addAlert("ewe");
//$objResponse->addAssign("debug", "innerHTML", $sql);
$objResponse->addScriptCall("fokus", "id");
} else {
//$objResponse->addAssign("debug", "innerHTML", $sql);
/*
tambah data kunjungan
*/
$sql_kunjungan_ke = "
SELECT
CASE
WHEN (MAX(kunjungan_ke) IS NULL) THEN '1'
ELSE (MAX(kunjungan_ke) + 1)
END AS kunjungan_ke
FROM
kunjungan
WHERE
pasien_id = '".$last_id."'
";
$kon->sql = $sql_kunjungan_ke;
$kon->execute();
$kunjungan_ke = $kon->getOne();
$sql_kunjungan = "
INSERT INTO
kunjungan(
kunjungan_ke,
pasien_id,
perujuk_id,
cara_masuk
) VALUES(
'".$kunjungan_ke[kunjungan_ke]."',
'".$last_id."',
NULLIF('".$value[perujuk_id]."', ''),
'".$value[cara_masuk]."'
)";
$kon->sql = $sql_kunjungan;
$kon->execute();
//$id_kunjungan = $kon->last_id;
$sql_last = "SELECT * FROM kunjungan WHERE LAST_INSERT_ID(id) ORDER BY id DESC LIMIT 1";
$kon->sql = $sql_last;
$kon->execute();
$idk = $kon->getOne();
$id_kunjungan = $idk[id];
//$objResponse->addAssign("debug", "innerHTML", $sql_kunjungan);
/*
masuk IGD
*/
$sql_kamar = "
INSERT INTO
kunjungan_kamar(
kunjungan_id,
kamar_id,
tgl_daftar,
tgl_periksa,
tgl_keluar,
cara_bayar,
jenis_askes,
perusahaan_id,
nomor,
pj_nama,
pj_alamat,
pj_telp,
pj_hubungan_keluarga
) VALUES (
'".$id_kunjungan."',
1,
NOW(),
NOW(),
NOW(),
'".$value[cara_bayar]."',
NULLIF('".$value[jenis_askes]."',''),
NULLIF('".$value[perusahaan_id]."',''),
NULLIF('".$value[nomor]."',''),
'".$value[pj_nama]."',
'".$value[pj_alamat]."',
'".$value[pj_telp]."',
NULLIF('".$value[pj_hubungan_keluarga]."', '')
)
";
$kon->sql = $sql_kamar;
$kon->execute();
$objResponse->addAlert("'".$sql_kamar."'");
//$id_kunjungan_kamar = $kon->last_id;
$sql_last = "select * from kunjungan_kamar where LAST_INSERT_ID(id) ORDER BY id DESC LIMIT 1";
$kon->sql = $sql_last;
$kon->execute();
$id_kamar = $kon->getOne();
$id_kunjungan_kamar = $id_kamar[id];
$kon->sql = "INSERT INTO tracer (kunjungan_kamar_id, pasien_id, keperluan, tgl_keluar, cetak) VALUES ('".
$id_kunjungan_kamar."', '".$last_id."', 'PEMERIKSAAN', NOW(), 'BELUM')";
$kon->execute();
$afek_kunjungan = $kon->affected_rows;
//$objResponse->addAppend("debug", "innerHTML", $sql_kamar);
if($afek_kunjungan < 0) {
$objResponse->addAlert("Data Kunjungan Tidak Dapat Disimpan.\nCek kembali.");
//$objResponse->addAssign("debug", "innerHTML", $sql);
$objResponse->addScriptCall("fokus", "id");
} else {
if($value[bayar_karcis] == "1") {
$kon->sql = "SELECT biaya_jasa FROM karcis WHERE id='34'";
$kon->execute();
$bayar = $kon->getOne();
//$id_kwitansi = bikinKwitansi("IRD", $bayar[biaya_jasa], "LUNAS");
$sql = "
INSERT INTO
kunjungan_bayar (
nama,
kunjungan_kamar_id,
karcis_id,
hak_id,
biaya_bhp,
biaya_jasa,
jumlah,
bayar_bhp,
bayar_jasa,
mampu_bayar_bhp,
mampu_bayar_jasa,
jasa_p,
jasa_rs,
jasa_rs_op,
jasa_rs_kembang,
jasa_rs_adm,
jasa_rs_sdm,
spesialis,
spesialis_pendamping,
ugp,
grabaf,
perawat,
penunjang,
zakat,
pajak,
kwid
) SELECT
nama,
'".$id_kunjungan_kamar."',
'34',
'25',
biaya_bhp,
biaya_jasa,
'1',
biaya_bhp,
biaya_jasa,
biaya_bhp,
biaya_jasa,
jasa_p,
jasa_rs,
jasa_rs_op,
jasa_rs_kembang,
jasa_rs_adm,
jasa_rs_sdm,
spesialis,
spesialis_pendamping,
ugp,
grabaf,
perawat,
penunjang,
zakat,
pajak,
'".$id_kwitansi."'
FROM
karcis
WHERE
id = '34'
";
$kon->sql = $sql;
//$objResponse->addAppend("debug", "innerHTML", $sql);
$kon->execute();
/*$idkb = $kon->last_id;
$kon->sql = "INSERT INTO kwitansi_detil(kunjungan_bayar_id, kwitansi_id, angsuran_bhp, angsuran_jasa) SELECT '".
$idkb."', '".$id_kwitansi."', biaya_bhp, biaya_jasa FROM karcis WHERE id='34'";
$kon->execute();*/
}
$objResponse->addConfirmCommands(1, "Cetak Kartu Periksa?");
$objResponse->addScriptCall("cetak", URL."pendaftaran/kartu_periksa_cetak/?id=".
$last_id, 350, 210);
$objResponse->addScriptCall("show_status_simpan");
$objResponse->addScriptCall("xajax_reset_pasien");
$objResponse->addScriptCall("get_sidebar_content");
$objResponse->addScriptCall("fokus", "id");
}
}
//$objResponse->addScriptCall("xajax_list_data_dua", $_SESSION[hal], $_SESSION[val]);
return $objResponse;
}
function add_perujuk_check($nama, $alamat) {
$objResponse = new xajaxResponse();
$nama = addslashes($nama);
$alamat = addslashes($alamat);
$kon = new Konek;
$kon->sql = "
SELECT
id,
nama,
alamat
FROM
ref_perujuk
WHERE
TRIM(LOWER(nama)) = TRIM(LOWER('".$nama."'))
";
$kon->execute();
$data = $kon->getOne();
if($data[id]) {
$objResponse->addConfirmCommands(2, "Nama Perujuk\n " . $nama . "\n mirip dengan Perujuk\n" . $data[nama] . "\n dengan Alamat " . $data[alamat] . "\nKlik Ok untuk menambah perujuk baru\n Klik Cancel untuk menggunakan perujuk yang telah ada");
$objResponse->addScriptCall("xajax_ref_add_perujuk", $nama, $alamat);
$objResponse->addScriptCall("fokus", "perujuk_id");
$objResponse->addAssign("perujuk_id", "value", $data[id]);
$objResponse->addScriptCall("fokus", "perujuk_id");
} else {
$objResponse->addScriptCall("xajax_ref_add_perujuk", $nama, $alamat);
$objResponse->addScriptCall("fokus", "perujuk_id");
}
return $objResponse;
}
