function simpan_tracer_check($value) {
$cleaner = new FormCleaner;
$cleaner->setValue($value);
$cleaner->clean();
$val = $cleaner->getValue();
$objResponse = new xajaxResponse;
if(!$val[no_rm]) {
$objResponse->addAlert("Silakan Isi Nomor Rekam Medis");
$objResponse->addScriptCall("fokus", "no_rm");
} elseif(!$val[peminjam]) {
$objResponse->addAlert("Silakan Isi Peminjam");
$objResponse->addScriptCall("fokus", "peminjam");
} else {
$kon = new Konek;
$arr_no_rm = explode("\n", $val[no_rm]);
$str_no_rm = str_replace("\n", ", ", $val[no_rm]);
//$objResponse->addAlert($str_no_rm);
$kon->sql = "
SELECT
CONCAT_WS('-', SUBSTRING(trc.pasien_id, 1,2), SUBSTRING(trc.pasien_id, 3,2), SUBSTRING(trc.pasien_id, 5,2), SUBSTRING(trc.pasien_id, 7,2)) as no_rm,
kmr.nama as nama_kamar,
trc.peminjam as peminjam,
DATE_FORMAT(trc.tgl_keluar, '%d/%m/%y') as tgl_keluar,
p.nama as nama
FROM
tracer trc
LEFT JOIN kunjungan_kamar kk ON (kk.id = trc.kunjungan_kamar_id)
LEFT JOIN kamar kmr ON (kmr.id = kk.kamar_id)
JOIN pasien p ON (p.id = trc.pasien_id)
WHERE
trc.pasien_id IN (".$str_no_rm.")
AND trc.tgl_kembali IS NULL
";
$kon->execute();
$data = $kon->getAll();
if(!empty($data)) {
$str = "\n";
for($i=0;$i<sizeof($data);$i++) {
$str .= "---------------------------------------\n";
$str .= "No RM : " . $data[$i][no_rm] . "\n";
$str .= "Pasien : " . $data[$i][nama] . "\n";
$str .= "Tgl Keluar : " . $data[$i][tgl_keluar] . "\n";
if( $data[$i][peminjam]) $str .= "Peminjam : " . $data[$i][peminjam] . "\n";
if( $data[$i][nama_kamar]) $str .= "Pelayanan : " . $data[$i][nama_kamar] . "\n";
$str .= "---------------------------------------\n";
}
$objResponse->addAlert("Data Tidak Dapat Disimpan.\nNomor Rekam Medis Berikut Belum Kembali Ke Rak Penyimpanan :\n" . $str);
$objResponse->addScriptCall("fokus", "no_rm");
} else {
$objResponse->addScriptCall("xajax_simpan_tracer", $val, $arr_no_rm);
}
}
return $objResponse;
}
function get_bed($inputId, $id, $id_sel = NULL) {
$objResponse = new xajaxResponse();
$kon = new Konek;
$kon->sql = "SELECT id,nomor FROM ref_kamar WHERE pelayanan_id = '".$id."' AND status=0 ORDER BY nomor";
$kon->execute();
$data = $kon->getAll();
$objResponse->addAssign($inputId, "options.length", "1");
for($i=0;$i<sizeof($data);$i++) {
if($data[$i][id] == $id_sel)
$objResponse->addScript("addOption('".$inputId."','".$inputId."kamar_".$data[$i][id]."','".$data[$i][nama]."','".$data[$i][id]."',false,true);");
else
$objResponse->addScript("addOption('".$inputId."','".$inputId."_kamar_".$data[$i][id]."','".$data[$i][nama]."','".$data[$i][id]."',false,false);");
}
//$objResponse->addScript("addOption('".$inputId."','".$inputId."_tidak_ada_dokter','Dokter Lain','',false,false);");
return $objResponse;
}
function get_kabupaten($id_propinsi, $id_sel = NULL) {
$kon = new Konek;
$kon->sql = "
SELECT
id,
nama
FROM
ref_kabupaten
WHERE
propinsi_id = '".$id_propinsi."'
ORDER BY
nama
";
$kon->execute();
$data = $kon->getAll();
$objResponse = new xajaxResponse();
$objResponse->addAssign("kabupaten_id", "options.length", "1");
for($i=0;$i<sizeof($data);$i++) {
if($data[$i][id] == $id_sel) {
$objResponse->addScript("addOption('kabupaten_id','kabupaten_".$data[$i][id]."','".$data[$i][nama]."','".$data[$i][id]."',false,true);");
} else {
$objResponse->addScript("addOption('kabupaten_id','kabupaten_".$data[$i][id]."','".$data[$i][nama]."','".$data[$i][id]."',false,false);");
}
}
//$objResponse->addScript("addOption('kabupaten_id','add_kabupaten','--- TAMBAH KABUPATEN ---','add_kabupaten');");
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 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 get_lap_rl2a($val) {
$objResponse = new xajaxResponse;
$dtd = array('292.0','292.2','292.4','292.6','292.8');
$dtd_kecuali = implode("','", $dtd);
switch($val[tw]) {
case "IV" :
$s = " AND kk.tgl_keluar BETWEEN '".$val[tahun]."-10-01' AND '".$val[tahun]."-12-31'";
break;
case "III" :
$s = " AND kk.tgl_keluar BETWEEN '".$val[tahun]."-07-01' AND '".$val[tahun]."-09-30'";
break;
case "II" :
$s = " AND kk.tgl_keluar BETWEEN '".$val[tahun]."-04-01' AND '".$val[tahun]."-06-30'";
break;
default :
$s = " AND kk.tgl_keluar BETWEEN '".$val[tahun]."-01-01' AND '".$val[tahun]."-03-31'";
break;
}
$kon = new Konek;
$sql = "
SELECT
i.no_dtd as no_dtd,
i.kode_icd as kode_icd,
i.gol_sebab_sakit as gol_sebab_sakit,
p.tgl_lahir as tgl_lahir,
kk.tgl_keluar as tgl_keluar,
p.sex as sex,
k.keadaan_keluar as keadaan_keluar
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 icd i ON (i.id = kk.diagnosa_utama_id)
WHERE
kk.tgl_keluar IS NOT NULL
AND pel.jenis = 'RAWAT INAP'
AND kk.kelanjutan IN ('DIRUJUK', 'PULANG')
AND i.no_dtd NOT IN ('" . $dtd_kecuali . "')
$s
ORDER BY i.no_dtd
";
//$objResponse->addAssign("debug", "innerHTML", $sql);
$kon->sql = $sql;
$kon->execute();
$data = $kon->getAll();
$baru = array();
$s = 0;
for($i=0;$i<sizeof($data);$i++) {
$umur = hitungUmur($data[$i][tgl_lahir], $data[$i][tgl_keluar]);
$umur_tahun = $umur[tahun];
$umur_hari = $umur[hari];
if($data[$i][no_dtd] == $data[$i-1][no_dtd]) {
//bikin anak
//nggabungin kode icd
if($baru[$s][kode_icd] != $data[$i][kode_icd]) $baru[$s][kode_icd] = $baru[$s][kode_icd] . ", " . $data[$i][kode_icd];
if($umur[tahun] > 64) {
$baru[$s]['nam_lima'] += 1;
$total['nam_lima'] += 1;
} elseif ($umur[tahun] > 44) {
$baru[$s]['pat_lima'] += 1;
$total['pat_lima'] += 1;
} elseif ($umur[tahun] > 24) {
$baru[$s]['dua_lima'] += 1;
$total['dua_lima'] += 1;
} elseif ($umur[tahun] > 14) {
$baru[$s]['lima_belas'] += 1;
$total['lima_belas'] += 1;
} elseif ($umur[tahun] > 4) {
$baru[$s]['lima'] += 1;
$total['lima'] += 1;
} elseif ($umur[tahun] >=1) {
$baru[$s]['satu'] += 1;
$total['satu'] += 1;
} elseif ($umur[hari] > 27) {
$baru[$s]['dua_lapan'] += 1;
$total['dua_lapan'] += 1;
} else {
$baru[$s]['nol'] += 1;
$total['nol'] += 1;
}
//sex
if($data[$i][sex] == "LAKI-LAKI") {
$baru[$s][sex_laki] += 1;
$total['sex_laki'] += 1;
$total['total'] += 1;
} else {
$baru[$s][sex_prp] += 1;
$total['sex_prp'] += 1;
$total['total'] += 1;
}
if($data[$i][keadaan_keluar] == "MATI < 48 JAM" || $data[$i][keadaan_keluar] == "MATI >= 48 JAM") {
$baru[$s][mati] += 1;
$total['mati'] += 1;
}
$baru[$s][total] = $baru[$s][sex_prp] + $baru[$s][sex_laki];
} else {
//bikin embok
if($i!=0) {
$s++;
}
$baru[$s][no_dtd] = $data[$i][no_dtd];
$baru[$s][kode_icd] = $data[$i][kode_icd];
$baru[$s][gol_sebab_sakit] = $data[$i][gol_sebab_sakit];
$baru[$s][tgl_lahir] = $data[$i][tgl_lahir];
$baru[$s][tgl_keluar] = $data[$i][tgl_keluar];
if($umur[tahun] > 64) {
$baru[$s]['nam_lima'] = 1;
$total['nam_lima'] += 1;
} elseif ($umur[tahun] > 44) {
$baru[$s]['pat_lima'] = 1;
$total['pat_lima'] += 1;
} elseif ($umur[tahun] > 24) {
$baru[$s]['dua_lima'] = 1;
$total['dua_lima'] += 1;
} elseif ($umur[tahun] > 14) {
$baru[$s]['lima_belas'] = 1;
$total['lima_belas'] += 1;
} elseif ($umur[tahun] > 4) {
$baru[$s]['lima'] = 1;
$total['lima'] += 1;
} elseif ($umur[tahun] >=1) {
$baru[$s]['satu'] = 1;
$total['satu'] += 1;
} elseif ($umur[hari] > 27) {
$baru[$s]['dua_lapan'] = 1;
$total['dua_lapan'] += 1;
} else {
$baru[$s]['nol'] = 1;
$total['nol'] += 1;
}
//sex
if($data[$i][sex] == "LAKI-LAKI") {
$baru[$s][sex_laki] = 1;
$total['sex_laki'] += 1;
$total['total'] += 1;
} else {
$baru[$s][sex_prp] = 1;
$total['sex_prp'] += 1;
$total['total'] += 1;
}
if($data[$i][keadaan_keluar] == "MATI < 48 JAM" || $data[$i][keadaan_keluar] == "MATI >= 48 JAM") {
$baru[$s][mati] = 1;
$total['mati'] += 1;
}
$baru[$s][total] = $baru[$s][sex_prp] + $baru[$s][sex_laki];
}
}
$tabel_all = new Table;
$tabel_all->scroll = false;
$tabel_all->extra_table = "style=\"width:21.5cm;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:20cm;border:0;\"";
$tabel_header->addTh("","DATA KEADAAN MORBIDITAS PASIEN RAWAT INAP RUMAH SAKIT<br />TRIWULAN : ".$val[tw]." TAHUN : ".$val[tahun],"");
//$tabel_header->addExtraTh("colspan=\"3\"");
$tabel_header->addRow("","","Formulir RL2a");
//$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:20cm;font-size:7pt;\"";
$tabel_header->css_table="";
$tabel_isi->addTh(
"NO. URUT",
"NO. DTD",
"NO. DAFTAR TERPERINCI",
"GOLONGAN SEBAB-SEBAB SAKIT",
"PASIEN KELUAR (HIDUP & MATI) MENURUT GOLONGAN UMUR",
"PASIEN KELUAR (HIDUP & MATI) MENURUT SEX",
"JUMLAH PASIEN KELUAR <br />(13 + 14)",
"JUMLAH PASIEN KELUAR MATI"
);
$tabel_isi->addExtraTh("rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "colspan=\"8\"", "colspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"");
$tabel_isi->addTh("0-28 HR", "28 HR - <1 TH", "1-4 TH", "5-14 TH", "15-24 TH", "25-44 TH", "45-64 TH", "65+ TH", "LK", "PR");
$tabel_isi->addTh("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16");
for($i=0;$i<sizeof($baru);$i++) {
$tabel_isi->addRow(
($i+1),
$baru[$i][no_dtd],
$baru[$i][kode_icd],
$baru[$i][gol_sebab_sakit],
$baru[$i][nol],
$baru[$i][dua_lapan],
$baru[$i][satu],
$baru[$i][lima],
$baru[$i][lima_belas],
$baru[$i][dua_lima],
$baru[$i][pat_lima],
$baru[$i][nam_lima],
$baru[$i][sex_laki],
$baru[$i][sex_prp],
$baru[$i][total],
$baru[$i][mati]
);
}
$tabel_isi->addRow(
"","","","Total",
$total[nol],
$total[dua_lapan],
$total[satu],
$total[lima],
$total[lima_belas],
$total[dua_lima],
$total[pat_lima],
$total[nam_lima],
$total[sex_laki],
$total[sex_prp],
$total[total],
$total[mati]
);
$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_rl2a]);
$cetak = new Cetak;
$tanda_tangan = $cetak->setTandaTangan();
$ret .= $tanda_tangan;
$_SESSION[rekmed][lap_rl2a] = $ret;
$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, $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($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 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 bayar_uang_muka($val){
$kon = new Konek;
$objResponse= new xajaxResponse;
$kon->sql = "SELECT kb.id as id, kb.bayar_bhp as bayar_bhp, kb.biaya_jasa as bayar_jasa 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 kk.kunjungan_id = '".$val[lb_id_kunjungan]."' AND kwd.kwitansi_id IS NULL";
$_SESSION[idkk] = $val[lb_id_kunjungan];
$kon->execute();
$data = $kon->getAll();
if(!empty($data)) {
for($i=0;$i<sizeof($data);$i++){
$kon->sql= "update kunjungan_bayar set uang_muka = '".$data[$i][lb_uang_muka]."' WHERE id = '".$data[$i][id]."'";
$kon->execute();
}
}
return $objResponse;
}
function get_kunjungan($val) {
unset($_SESSION[radio][statistik_kunjungan_radio]);
$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";
if($val[tampilkan] == "hari") {
$selisih = datediff('d', $tgl_start, $tgl_end);
} elseif($val[tampilkan] == "bulan") {
$selisih = datediff('m', $tgl_start, $tgl_end);
} else {
$selisih = datediff('y', $tgl_start, $tgl_end);
}
if($val[tampilkan] == "hari") {
$tanggal_awal = tanggalIndo($tgl_start, "j F Y");
$tanggal_akhir = tanggalIndo($tgl_end, "j F Y");
} elseif($val[tampilkan] == "bulan") {
$tanggal_awal = tanggalIndo($tgl_start, "F Y");
$tanggal_akhir = tanggalIndo($tgl_end, "F Y");
} else {
$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;
$kon->sql = "SELECT id, nama, hari_buka FROM pelayanan WHERE jenis = 'RAWAT JALAN'";
$kon->execute();
$poli = $kon->getAll();
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[radio][statistik_kunjungan_radio][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[radio][statistik_kunjungan_radio][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[radio][statistik_kunjungan_radio][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] . "') ";
}
$sql = "
SELECT
COUNT(lk.id) as jml_baru
FROM
radio_kunjungan lk
JOIN pasien p ON (p.id = lk.pasien_id)
WHERE
DATE(lk.tgl_daftar) = DATE(p.tgl_daftar)
$where
";
$kon->sql = $sql;
$kon->execute();
$baru[$i] = $kon->getOne();
if(!$baru[$i][jml_baru]) $baru[$i][jml_baru] = 0;
$sql = "
SELECT
COUNT(lk.id) as jml_lama
FROM
radio_kunjungan lk
JOIN pasien p ON (p.id = lk.pasien_id)
WHERE
DATE(lk.tgl_daftar) <> DATE(p.tgl_daftar)
$where
";
$kon->sql = $sql;
$kon->execute();
$lama[$i] = $kon->getOne();
if(!$lama[$i][jml_lama]) $lama[$i][jml_lama] = 0;
//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] = "-";
$_SESSION[radio][statistik_kunjungan_radio][jml_baru][$i] = $baru[$i][jml_baru];
$_SESSION[radio][statistik_kunjungan_radio][jml_lama][$i] = $lama[$i][jml_lama];
$_SESSION[radio][statistik_kunjungan_radio][jml_igd][$i] = $igd[$i][jml_igd];
$_SESSION[radio][statistik_kunjungan_radio][jml_rajal][$i] = $rajal[$i][jml_rajal];
$_SESSION[radio][statistik_kunjungan_radio][jml_ranap][$i] = $ranap[$i][jml_ranap];
$_SESSION[radio][statistik_kunjungan_radio][tgl_periksa][$i] = $tgl_periksa[$i];
}
//$objResponse->addAlert(print_r($lama));
$_SESSION[radio][statistik_kunjungan_radio][title] = $title . "\nPeriode " . tanggalIndo($tgl_start, "j F Y") . " s.d. " . tanggalIndo($tgl_end, "j F Y");
$radioelx = @array_unique($radioel_x);
$_SESSION[radio][statistik_kunjungan_radio][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=\"2\"";
}
$table->Th[0][] = "Jumlah";
$table->extra_th[0][] = "colspan=\"2\"";
$kolom = $selisih*2+1;
for($i=0;$i<=$kolom;$i++) {
if($i%2 == 0) {
$table->Th[1][] = "Lama";
} else $table->Th[1][] = "Baru";
}
//kolom jumlah
$table->Th[1][] = "Lama";
$table->Th[1][] = "Baru";
//isinya
//$table->Row[0][0] = "IGD";
for($i=0;$i<=$selisih;$i++) {
$table->Row[0][] = $lama[$i][jml_lama];
$table->Row[0][] = $baru[$i][jml_baru];
$jumlah[lama] += $lama[$i][jml_lama];
$jumlah[baru] += $baru[$i][jml_baru];
}
//kolom terakhir
$table->Row[0][] = $jumlah[lama];
$table->Row[0][] = $jumlah[baru];
$ret = $table->build();
$_SESSION[radio][statistik_kunjungan_radio][th_0] = $table->Th[0];
$_SESSION[radio][statistik_kunjungan_radio][th_1] = $table->Th[1];
$_SESSION[radio][statistik_kunjungan_radio][extra_th_0] = $table->extra_th[0];
$_SESSION[radio][statistik_kunjungan_radio][row] = $table->Row[0];
$objResponse->addAssign("list_data", "innerHTML", $ret);
$_SESSION[radio][statistik_kunjungan_radio][graph] = "<img src=\"" . URL . "radio/statistik_kunjungan_radio_graph_bar/?md5=".md5(date("Ymdhis"))."\" alt=\"Kunjungan\" />";
$_SESSION[radio][statistik_kunjungan_radio][title] = $title;
$objResponse->addAssign("title", "innerHTML", nl2br($_SESSION[radio][statistik_kunjungan_radio][title]));
$objResponse->addAssign("graph", "innerHTML", $_SESSION[radio][statistik_kunjungan_radio][graph]);
return $objResponse;
}
}
return $objResponse;
}
function reset_kamar () {
$objResponse = new xajaxResponse();
$objResponse->addClear("id_kamar", "value");
$objResponse->addClear("nama", "value");
$objResponse->addClear("pelayanan_id", "value");
$objResponse->addClear("kelas", "value");
$objResponse->addClear("jml_bed", "value");
$objResponse->addScriptCall("fokus", "pelayanan_id");
return $objResponse;
}
}
$kon = new Konek;
$kon->sql = "SELECT * FROM pelayanan WHERE jenis = 'RAWAT INAP' ORDER BY nama";
$kon->execute();
$_data_pel = $kon->getAll();
//$_xajax->debugOn();
$_xajax->registerFunction(array("list_data", "Kamar", "list_data"));
$_xajax->registerFunction(array("get_kamar", "Kamar", "get_kamar"));
$_xajax->registerFunction(array("hapus_kamar", "Kamar", "hapus_kamar"));
$_xajax->registerFunction(array("simpan_kamar", "Kamar", "simpan_kamar"));
$_xajax->registerFunction(array("simpan_kamar_check", "Kamar", "simpan_kamar_check"));
$_xajax->registerFunction(array("reset_kamar", "Kamar", "reset_kamar"));
include AJAX_REF_DIR . "kunjungan.php";
?>
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 = "Statistik Kunjungan Berdasar Keadaan Keluar";
unset($_SESSION[rekmed][statistik_kunjungan_semua_keadaan_keluar]);
$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(kk.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 kk.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(kk.tgl_daftar) BETWEEN YEAR('" . $tgl_start . "') AND YEAR ('" . $tgl_end . "')";
}
$title .= "\nPeriode " . $tanggal_awal . " s.d. " . $tanggal_akhir;
$_SESSION[rekmed][statistik_kunjungan_semua_keadaan_keluar][title] = $title;
$sql = "
SELECT
k.keadaan_keluar as nama,
COUNT(k.id) as jml
FROM
kunjungan k
JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id)
WHERE
keadaan_keluar IS NOT NULL
$_q
GROUP BY
1
ORDER BY 1
";
$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", "Keadaan Keluar", "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);
$_SESSION[rekmed][statistik_kunjungan_semua_keadaan_keluar][no][$i] = ($i+1);
$_SESSION[rekmed][statistik_kunjungan_semua_keadaan_keluar][nama][$i] = $data[$i][nama];
$_SESSION[rekmed][statistik_kunjungan_semua_keadaan_keluar][jml][$i] = $data[$i][jml];
$_SESSION[rekmed][statistik_kunjungan_semua_keadaan_keluar][persen][$i] = $persen;
$persen_total += $persen;
}
$_SESSION[rekmed][statistik_kunjungan_semua_keadaan_keluar][total] = $total;
$_SESSION[rekmed][statistik_kunjungan_semua_keadaan_keluar][persen_total] = round($persen_total);
$table->addRow("", "<b>Total</b>", $_SESSION[rekmed][statistik_kunjungan_semua_keadaan_keluar][total], $_SESSION[rekmed][statistik_kunjungan_semua_keadaan_keluar][persen_total]);
$ret = $table->build();
if(empty($_SESSION[rekmed][statistik_kunjungan_semua_keadaan_keluar][jml])) $_SESSION[rekmed][statistik_kunjungan_semua_keadaan_keluar][jml][0] = 1;
if(empty($_SESSION[rekmed][statistik_kunjungan_semua_keadaan_keluar][nama])) $_SESSION[rekmed][statistik_kunjungan_semua_keadaan_keluar][nama][0] = "No Data";
$objResponse->addAssign("list_data", "innerHTML", $ret);
$objResponse->addAssign("title", "innerHTML", nl2br($_SESSION[rekmed][statistik_kunjungan_semua_keadaan_keluar][title]));
$_SESSION[rekmed][statistik_kunjungan_semua_keadaan_keluar][graph] = "<img src=\"" . URL . "rekmed/statistik_kunjungan_semua_keadaan_keluar_graph_pie/?md5=".md5(date("Ymdhis"))."\" alt=\"Pasien\" />";
$objResponse->addAssign("graph", "innerHTML", $_SESSION[rekmed][statistik_kunjungan_semua_keadaan_keluar][graph]);
return $objResponse;
}
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;
}
}
$kon = new Konek;
$kon->sql = "SELECT id, nama FROM pelayanan WHERE jenis = 'RAWAT INAP' ORDER BY nama";
$kon->execute();
$data_poli = $kon->getAll();
$_xajax->registerFunction(array("get_kunjungan", "Statistik_Kunjungan_Rawat_Inap", "get_kunjungan"));
$_xajax->registerFunction(array("get_kunjungan_check", "Statistik_Kunjungan_Rawat_Inap", "get_kunjungan_check"));
?>
function simpan_langsung_bayar($val) {
$kon = new Konek;
$objResponse = new xajaxResponse;
$kon->sql = "SELECT kb.id as id, kb.bayar_bhp as bayar_bhp, kb.bayar_jasa as bayar_jasa FROM kunjungan_bayar kb LEFT JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id) WHERE kb.kunjungan_kamar_id = '".$val[lb_id_kunjungan_kamar]."' AND kwd.kwitansi_id IS NULL";
$kon->execute();
$data = $kon->getAll();
if(!empty($data)) {
if($val[lb_mampu_bayar] < $val[lb_kurang]) $status = "ANGSUR";
else $status = "LUNAS";
$id_kwitansi = bikinKwitansi("IRD", $val[lb_mampu_bayar], $status);
$mampu = round($val[lb_mampu_bayar]/$val[lb_kurang], 2);
$tot = 0;
for($i=0;$i<sizeof($data);$i++) {
$data[$i][mampu_bayar_bhp] = round($data[$i][bayar_bhp] * $mampu);
$data[$i][mampu_bayar_jasa] = round($data[$i][bayar_jasa] * $mampu);
$tot += $data[$i][mampu_bayar_bhp] + $data[$i][mampu_bayar_jasa];
}
$selisih = $val[lb_mampu_bayar] - $tot;
if($data[0][mampu_bayar_jasa]) $data[0][mampu_bayar_jasa] += $selisih;
else $data[0][mampu_bayar_bhp] += $selisih;
for($i=0;$i<sizeof($data);$i++) {
$kon->sql = "UPDATE kunjungan_bayar SET mampu_bayar_bhp = '".$data[$i][mampu_bayar_bhp]."', mampu_bayar_jasa = '".$data[$i][mampu_bayar_jasa]."', kwid = '".$id_kwitansi."' WHERE id = '".$data[$i][id]."'";
$kon->execute();
//pembayaran angsuran
$kon->sql = "INSERT INTO kwitansi_detil(kunjungan_bayar_id, kwitansi_id, angsuran_bhp, angsuran_jasa) VALUES ('".$data[$i][id]."', '".$id_kwitansi."', '".$data[$i][mampu_bayar_bhp]."', '".$data[$i][mampu_bayar_jasa]."')";
$kon->execute();
}
$id_kwitansi = tambahNol($id_kwitansi, 20);
$objResponse->addScriptCall("cetak_kwitansi", "IRD-" . $id_kwitansi);
$objResponse->addScriptCall("show_status_simpan");
} else {
$objResponse->addAlert("Data Pembayaran Tidak Dapat Dirubah, karena : \n1. Kwitansi Sudah Dibuat atau\n2. Belum Terjadi Transaksi!");
}
$objResponse->addScriptCall("tutup_modal_lb");
//$objResponse->addAssign("debug", "innerHTML", $sql);
return $objResponse;
}
function get_status_poli($inputId, $input_poli, $id_sel = NULL) {
$objResponse = new xajaxResponse();
$objResponse->addAssign($inputId, "options.length", "1");
$kon = new Konek;
$kon->sql = "
SELECT
id,nama
FROM
pelayanan
WHERE
nama_lain IS NULL
ORDER BY
nama
";
$kon->execute();
$data = $kon->getAll();
for($i=0;$i<sizeof($data);$i++) {
if($data[$i][id] == $id_sel)
$objResponse->addScript("addOption('".$inputId."','".$inputId."_namar_".$data[$i][nama]."','".$data[$i][nama]."','".$data[$i][id]."',false,false);");
else
$objResponse->addScript("addOption('".$inputId."','".$inputId."_nama_".$data[$i][nama]."','".$data[$i][nama]."','".$data[$i][id]."',false,true);");
}
return $objResponse;
}
$lama_rawat = $data_rawat[lama_dirawat];
endif;
//$objResponse->addAlert($lama_dirawat);
//get informasi kamar
for ($n=1;$n<=$lama_rawat;$n++){
$sql ="
SELECT kk.kamar_id as kamar_id, k.nama as nama_kamar, k.kelas as kelas, p.nama as bangsal,
k.tarif_umum as tarif_umum, k.tarif_asuransi as tarif_asuransi ,rf.nomor as no_bed
FROM kunjungan_kamar kk, kamar k, pelayanan p, ref_kamar rf
WHERE kk.kamar_id = k.id AND k.pelayanan_id = p.id
AND kk.no_kamar = rf.id
AND kk.kamar_id ='".$data_rawat[kamar_id]."'";
$kon->sql = $sql;
$kon->execute();
$data_kamar = $kon->getAll();
//$objResponse->addAlert($sql);
if(!empty($data_kamar)) {
$tabel->addRow("","<b>Ruang dan Akomodasi</b>","","");
for($i=0;$i<sizeof($data_kamar);$i++) {
if ($data_pasien[jenis_bayar]=='UMUM'):
$tarif = $data_kamar[$i][tarif_umum];
else:
$tarif = $data_kamar[$i][tarif_asuransi];
endif;
$tabel->addRow(
($i+1),
$data_kamar[$i][bangsal]." Kamar ".$data_kamar[$i][nama_kamar]." - No Bed ". $data_kamar[$i][no_bed],
uangIndo($tarif),uangIndo($tarif)
function get_obat($id, $nama, $biaya) {
$kon = new Konek;
$n = md5(microtime());
//get hak
$data_hak = $_SESSION[rajal][hak];
$opt = "<select name=\"input_bhp_hak[]\" id=\"input_bhp_hak_".$n."\" class=\"inputan\" onkeypress=\"focusNext( 'input_bhp_biaya_".
$n."', event, 'input_bhp_bayar_".$n."', this)\">";
for($i = 0; $i < sizeof($data_hak); $i++) {
if($data_hak[$i][id] == 25) $opt .= "<option value=\"".$data_hak[$i][id]."\" selected=\"\">".
$data_hak[$i][nama]."</option>";
else $opt .= "<option value=\"".$data_hak[$i][id]."\">".$data_hak[$i][nama].
"</option>";
}
$opt .= "</select>";
$sql = "select * from db_apotek.dosis";
$kon->sql = $sql;
$kon->execute();
$rs_dosis = $kon->getAll();
$opt_dosis = "<select name=\"input_dosis[]\" id=\"input_dosis_".$n."\" class=\"inputan\" onkeypress=\"focusNext( 'input_bhp_biaya_".
$n."', event, 'input_bhp_bayar_".$n."', this)\">";
for($i = 0; $i < sizeof($rs_dosis); $i++) {
if($rs_dosis[$i][id] == 1){ $opt_dosis .= "<option value=\"".$rs_dosis[$i][id]."\" selected=\"\">".
$rs_dosen[$i][deskripsi]."</option>";
}
else { $opt_dosis .= "<option value=\"".$rs_dosis[$i][id]."\">".$rs_dosis[$i][deskripsi].
"</option>";
}
}
$opt_dosis .= "</select>";
//get sifat
//$data_sifat = $_SESSION[rajal][sifat];
//$opt_sifat = "<select name=\"input_bhp_sifat[]\" id=\"input_bhp_sifat_".$n."\" class=\"inputan\" onchange=\"kaliKan2('input_bhp_bayar_".
// $n."', this.value, document.getElementById('input_bhp_biaya_".$n.
// "').value, document.getElementById('input_bhp_jml_".$n."').value);\" onkeypress=\"focusNext( 'input_bhp_jml_".
// $n."', event, 'input_bhp_biaya_".$n."', this)\">";
//for($i = 0; $i < sizeof($data_sifat); $i++) {
// $opt_sifat .= "<option value=\"".$data_sifat[$i][nilai]."\">".$data_sifat[$i][nama].
// "</option>";
//}
//$opt_sifat .= "</select>";
$opt_sifat = "<select name=\"input_bhp_sifat[]\" id=\"input_bhp_sifat_".$n."\" class=\"inputan\" >";
$opt_sifat .= "<option value='YA'>YA</option>";
$opt_sifat .= "<option value=''>TIDAK</option>";
$opt_sifat .= "</select>";
$ret .= "<tr id=\"input_bhp_tr_".$n."\">";
//BHP
$ret .= "<td>".$nama."</td>";
//HAK
$ret .= "<td style=\"text-align:center;\">".$opt."</td>";
//BIAYA
$ret .= "<td style=\"text-align:right;\">";
$ret .= "<input type=\"text\" name=\"input_bhp_biaya[]\" id=\"input_bhp_biaya_".
$n."\" value=\"".$biaya."\" class=\"inputan_angka\" size=\"10\" onkeyup=\"kaliKan2('input_bhp_bayar_".
$n."', this.value, document.getElementById('input_bhp_sifat_".$n.
"').value, document.getElementById('input_bhp_jml_".$n."').value);\" onkeypress=\"focusNext( 'input_bhp_sifat_".
$n."', event, 'input_bhp_hak_".$n."', this)\" />";
$ret .= "</td>";
//SIFAT
$ret .= "<td style=\"text-align:center;\">".$opt_sifat."</td>";
//Dosis
$ret .= "<td style=\"text-align:center;\">".$opt_dosis."</td>";
//keterangan
$ret .= "<td style=\"text-align:center;\">";
$ret .= "<textarea name=\"input_ket[]\" id=\"input_ket_".$n.
"\" class=\"inputan\" /></textarea>";
$ret .= "</td>";
//JUMLAH
$ret .= "<td style=\"text-align:center;\">";
$ret .= "<input type=\"text\" name=\"input_bhp_jml[]\" id=\"input_bhp_jml_".$n.
"\" value=\"1\" class=\"inputan_angka\" size=\"3\" onkeyup=\"kaliKan3('input_bhp_bayar_".
$n."', this.value, document.getElementById('input_bhp_biaya_".$n."').value);\" onkeypress=\"focusNext( 'input_bhp_bayar_".
$n."', event, 'input_bhp_sifat_".$n."', this)\" />";
$ret .= "</td>";
$ret .= "<td style=\"text-align:right;\">";
$ret .= "<input type=\"text\" name=\"input_bhp_bayar[]\" id=\"input_bhp_bayar_".
$n."\" value=\"".$biaya."\" class=\"inputan_angka\" size=\"10\" onkeypress=\"focusNext( 'input_bhp_hak_".
$n."', event, 'input_bhp_jml_".$n."', this)\" />";
$ret .= "</td>";
$ret .= "<td><a href=\"javascript:void(0)\" title=\"Hapus BHP\" onclick=\"hapus_kunjungan_bayar('','input_bhp_tr_".
$n."')\" class=\"tombol_hapus\"><img src=\"".IMAGES_URL."remove.png\" alt=\"Hapus BHP\" border=\"0\" /></a>";
$ret .= "<input type=\"hidden\" name=\"input_kunjungan_bhp_id[]\" id=\"input_kunjungan_bhp_id_".
$n."\" value=\"\" />";
$ret .= "<input type=\"hidden\" name=\"input_bhp[]\" id=\"input_bhp_".$n."\" value=\"".
$id."\" />";
$ret .= "<input type=\"hidden\" name=\"input_bhp_nama[]\" value=\"".$nama."\" />";
$ret .= "</td>";
$ret .= "<tr>";
$objResponse = new xajaxResponse;
$objResponse->addAppend("tbody_input_bhp", "innerHTML", $ret);
return $objResponse;
}
function get_desa($id_kecamatan, $id_sel = null) {
$kon = new Konek;
$kon->sql = "
SELECT
id,
nama
FROM
ref_desa
WHERE
kecamatan_id = '".$id_kecamatan."'
ORDER BY
nama
";
$kon->execute();
$data = $kon->getAll();
$objResponse = new xajaxResponse();
$objResponse->addAssign("cari_desa_id", "options.length", "1");
for($i = 0; $i < sizeof($data); $i++) {
if($data[$i][id] == $id_sel) {
$objResponse->addScript("addOption('cari_desa_id','desa_".$data[$i][id]."','".$data[$i][nama].
"','".$data[$i][id]."',false,true);");
} else {
$objResponse->addScript("addOption('cari_desa_id','desa_".$data[$i][id]."','".$data[$i][nama].
"','".$data[$i][id]."',false,false);");
}
}
//$objResponse->addScript("addOption('desa_id','add_desa','--- TAMBAH KELURAHAN ---','add_desa');");
return $objResponse;
}
function getKarcis($id = null) {
if(!$id) $id = $this->id;
$kon = new Konek;
$kon->sql = "
SELECT
k.pasien_id as pasien_id,
k.kunjungan_id as kunjungan_id,
kk.id as kunjungan_kamar_id,
kkk.id as kunjungan_karcis_id,
kkk.kwitansi_id as kwitansi_id,
kw.tgl as tgl_kwitansi,
kar.id as karcis_id,
kar.nama as nama,
kkk.jumlah as jumlah,
kkk.biaya as biaya,
kkk.bayar as bayar
FROM
kunjungan_kamar_karcis kkk
JOIN karcis kar ON (kar.id = kkk.karcis_id)
JOIN kwitansi kw ON (kw.id = kkk.kwitansi_id)
JOIN kunjungan_kamar kk ON (kk.id = kkk.kunjungan_kamar_id)
JOIN kunjungan k ON (k.id = kk.kunjungan_id)
WHERE
kkk.kwitansi_id = '".$id."'
GROUP BY
kkk.id ";
$kon->execute();
$data = $kon->getAll();
$this->pasien_id = $data[0][pasien_id];
return $data;
}
function get_kunjungan($val) {
unset($_SESSION[rekmed][rekap_kunjungan_rajal_per_cara_bayar]);
$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 = "Rekapitulasi Jumlah Cara Pembayaran di Unit Rawat Jalan";
if($val[tampilkan] == "hari") {
$selisih = datediff('d', $tgl_start, $tgl_end);
} elseif($val[tampilkan] == "bulan") {
$selisih = datediff('m', $tgl_start, $tgl_end);
} else {
$selisih = datediff('y', $tgl_start, $tgl_end);
}
if($val[tampilkan] == "hari") {
$tanggal_awal = tanggalIndo($tgl_start, "j F Y");
$tanggal_akhir = tanggalIndo($tgl_end, "j F Y");
} elseif($val[tampilkan] == "bulan") {
$tanggal_awal = tanggalIndo($tgl_start, "F Y");
$tanggal_akhir = tanggalIndo($tgl_end, "F Y");
} else {
$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));
$data[$i][tgl_periksa] = tanggalIndo($tgl[$i], "j M Y");
$_SESSION[rekmed][rekap_kunjungan_rajal_per_cara_bayar][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] . "'";
} elseif($val[tampilkan] == "bulan") {
$tgl[$i] = @date("Y-m-d", @mktime(1, 1, 1, ($tgl_start_bln+$i), 1, $tgl_start_thn));
$data[$i][tgl_periksa] = tanggalIndo($tgl[$i], "M Y");
$_SESSION[rekmed][rekap_kunjungan_rajal_per_cara_bayar][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] . "')";
} else {
$tgl[$i] = @date("Y-m-d", @mktime(1, 1, 1, 1, 1, ($tgl_start_thn + $i)));
$data[$i][tgl_periksa] = tanggalIndo($tgl[$i], "Y");
$_SESSION[rekmed][rekap_kunjungan_rajal_per_cara_bayar][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] . "')";
}
$sql = "
SELECT
kk.cara_bayar as nama,
COUNT(kk.id) as jml
FROM
kunjungan_kamar kk
JOIN kamar kmr ON (kmr.id = kk.kamar_id)
JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id)
WHERE
pel.jenis = 'RAWAT JALAN'
$where
GROUP BY
kk.cara_bayar
ORDER BY
kk.cara_bayar
";
$kon->sql = $sql;
$kon->execute();
$baru[$i] = $kon->getAll();
}
$_SESSION[rekmed][rekap_kunjungan_rajal_per_cara_bayar][title] = $title . "\nPeriode " . tanggalIndo($tgl_start, "j F Y") . " s.d. " . tanggalIndo($tgl_end, "j F Y");
$labelx = @array_unique($label_x);
$_SESSION[rekmed][rekap_kunjungan_rajal_per_cara_bayar][label_x] = @implode(", ",$labelx);
$new = array();
for($i=0;$i<sizeof($baru);$i++) {
for($s=0;$s<sizeof($baru[$i]);$s++) {
$new[jml][$baru[$i][$s][nama]][$i] = $baru[$i][$s][jml];
}
}
$table = new Table;
$table->scroll = false;
$table->addExtraTh("style=\"width:300px;\"");
$table->Th[0][] = "Cara Pembayaran/ Periode";
$table->Th[1][] = "1";
for($i=0;$i<=$selisih;$i++) {
$table->Th[0][] = $data[$i][tgl_periksa];
$table->Th[1][] = ($i+2);
}
$_SESSION[rekmed][rekap_kunjungan_rajal_per_cara_bayar][th_0] = $table->Th[0];
$_SESSION[rekmed][rekap_kunjungan_rajal_per_cara_bayar][th_1] = $table->Th[1];
$cb = array('UMUM','JAMSOSTEK','DANA REKSA DESA','KONTRAK','LAIN-LAIN','ASKES');
for($i=0;$i<sizeof($cb);$i++) {
$table->Row[$i][] = $cb[$i];
$_SESSION[rekmed][rekap_kunjungan_rajal_per_cara_bayar][cb][$i] = $cb[$i];
for($s=0;$s<=$selisih;$s++) {
if(!$new[jml][$cb[$i]][$s]) $new[jml][$cb[$i]][$s]=0;
$table->Row[$i][] = $new[jml][$cb[$i]][$s];
$_SESSION[rekmed][rekap_kunjungan_rajal_per_cara_bayar][jml][$i][] = $new[jml][$cb[$i]][$s];
}
$_SESSION[rekmed][rekap_kunjungan_rajal_per_cara_bayar][row][$i] = $table->Row[$i];
}
$ret = $table->build();
$objResponse->addAssign("list_data", "innerHTML", $ret);
$_SESSION[rekmed][rekap_kunjungan_rajal_per_cara_bayar][graph] = "<img src=\"" . URL . "rekmed/rekap_kunjungan_rajal_per_cara_bayar_graph_line/?md5=".md5(date("Ymdhis"))."\" alt=\"Kunjungan\" />";
$_SESSION[rekmed][rekap_kunjungan_rajal_per_cara_bayar][title] = $title;
$objResponse->addAssign("title", "innerHTML", nl2br($_SESSION[rekmed][rekap_kunjungan_rajal_per_cara_bayar][title]));
$objResponse->addAssign("graph", "innerHTML", $_SESSION[rekmed][rekap_kunjungan_rajal_per_cara_bayar][graph]);
return $objResponse;
}
function list_data($val) {
unset($_SESSION[igd][pendapatan]);
//get data karcis dan BHP
$objResponse = new xajaxResponse;
$kon = new Konek;
$title = "Laporan Pembagian Jasa IRD";
if($val[jangka_waktu] == "tahun") {
$q = "AND YEAR(kw.tgl) BETWEEN '".$val[thn_start]."' AND '".$val[thn_end]."'";
$title .= "\nPeriode " . $val[thn_start] . " - " . $val[thn_end];
} elseif($val[jangka_waktu] == "bulan") {
$q = "AND EXTRACT(YEAR_MONTH FROM kw.tgl) BETWEEN '".$val[thn_start].$val[bln_start]."' AND '".$val[thn_end].$val[bln_end]."'";
$title .= "\nPeriode " . bulanIndo($val[bln_start], "F") . " " . $val[thn_start] . " - " . bulanIndo($val[bln_end], "F") . " " . $val[thn_end];
} else {
$q = "AND DATE(kw.tgl) BETWEEN '".$val[thn_start]."-".$val[bln_start]."-".$val[tgl_start]."' AND '".$val[thn_end]."-".$val[bln_end]."-".$val[tgl_end]."'";
$title .= "\nPeriode " . tanggalIndo($val[thn_start] . "-" . $val[bln_start] . "-" . $val[tgl_start], "j F Y") . " - " . tanggalIndo($val[thn_end] . "-" . $val[bln_end] . "-" . $val[tgl_end], "j F Y");
}
$sql = "
SELECT
kb.nama as nama,
hak.nama as nama_hak,
SUM(ROUND(kb.mampu_bayar_bhp * bhp_p)) as bhp_p,
SUM(ROUND(kb.mampu_bayar_bhp * bhp_rs_adm)) as bhp_rs_adm,
SUM(ROUND(kb.mampu_bayar_bhp * bhp_rs_op)) as bhp_rs_op,
SUM(ROUND(kb.mampu_bayar_jasa * jasa_p)) as jasa_p,
SUM(ROUND(kb.mampu_bayar_jasa * jasa_rs_adm)) as jasa_rs_adm,
SUM(ROUND(kb.mampu_bayar_jasa * jasa_rs_sdm)) as jasa_rs_sdm,
SUM(ROUND(kb.mampu_bayar_jasa * jasa_rs_kembang)) as jasa_rs_kembang,
SUM(ROUND(kb.mampu_bayar_jasa * jasa_rs_op)) as jasa_rs_op,
SUM(ROUND(kb.mampu_bayar_jasa * spesialis * netto)) as spesialis,
SUM(ROUND(kb.mampu_bayar_jasa * spesialis_pendamping * netto)) as spesialis_pendamping,
SUM(ROUND(kb.mampu_bayar_jasa * perawat_perinatologi * netto)) as perawat_perinatologi,
SUM(ROUND(kb.mampu_bayar_jasa * dr_umum * netto)) as dr_umum,
SUM(ROUND(kb.mampu_bayar_jasa * dr_gigi * netto)) as dr_gigi,
SUM(ROUND(kb.mampu_bayar_jasa * assisten_non_dokter * netto)) as assisten_non_dokter,
SUM(ROUND(kb.mampu_bayar_jasa * spesialis_anestesi * netto)) as spesialis_anestesi,
SUM(ROUND(kb.mampu_bayar_jasa * aknest * netto)) as aknest,
SUM(ROUND(kb.mampu_bayar_jasa * gizi * netto)) as gizi,
SUM(ROUND(kb.mampu_bayar_jasa * fisioterapi * netto)) as fisioterapi,
SUM(ROUND(kb.mampu_bayar_jasa * analis_pa * netto)) as analis_pa,
SUM(ROUND(kb.mampu_bayar_jasa * bidan * netto)) as bidan,
SUM(ROUND(kb.mampu_bayar_jasa * perawat * netto)) as perawat,
SUM(ROUND(kb.mampu_bayar_jasa * penunjang * netto)) as penunjang,
SUM(ROUND(kb.mampu_bayar_jasa * ugp * netto)) as ugp,
SUM(ROUND(kb.mampu_bayar_jasa * grabaf * netto)) as grabaf,
SUM(ROUND(kb.mampu_bayar_jasa * zakat * netto)) as zakat,
SUM(ROUND(pajak * (kb.mampu_bayar_jasa - kb.mampu_bayar_jasa * kb.jasa_p - kb.mampu_bayar_jasa * kb.jasa_rs_op - kb.mampu_bayar_jasa * kb.jasa_rs_kembang - kb.mampu_bayar_jasa * kb.jasa_rs_adm - kb.mampu_bayar_jasa * kb.jasa_rs_sdm))) as pajak,
SUM(kb.mampu_bayar_bhp+kb.mampu_bayar_jasa) as mampu_bayar
FROM
kunjungan_bayar kb
JOIN kunjungan_kamar kk ON (kk.id = kb.kunjungan_kamar_id)
JOIN hak ON (hak.id = kb.hak_id)
JOIN kwitansi kw ON (kw.id = kb.kwid)
WHERE
(kb.karcis_id IS NOT NULL OR kb.bhp_id IS NOT NULL)
AND kw.tempat_pembayaran = 'IRD'
$q
GROUP BY
kb.karcis_id, kb.bhp_id, kb.hak_id
";
//$objResponse->addAssign("debug", "innerHTML", nl2br($sql));
$kon->sql = $sql;
$kon->execute();
$data_karcis = $kon->getAll();
$table = new Table;
$table->anime_bg_color = false;
$table->addTh("Jasa", "Pemilik", "BHP", "JASA RS", "Sp", "Sp1", "SpAn", "UGP", "GRABAF", "Prwt", /*"Ass Non Dokter", "Aknest", "Gizi", "Fisio", "Analis PA", "Bidan", */"Pnjg", "Zakat", "Pajak", "Sub Total");
$table->addExtraTh("rowspan=\"2\"", "rowspan=\"2\"", "colspan=\"5\"", "colspan=\"5\"", "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"");
$table->addTh("Pemda", "Adm", "Op", "Rad", "Lab", "Pemda", "Adm", "Sdm", "Bang", "Op");
for($i=0;$i<sizeof($data_karcis);$i++) {
$table->addRow(
$data_karcis[$i][nama],
$data_karcis[$i][nama_hak],
$data_karcis[$i][bhp_p],
$data_karcis[$i][bhp_rs_adm],
$data_karcis[$i][bhp_rs_op],
"?",
"?",
uangIndo($data_karcis[$i][jasa_p], false),
uangIndo($data_karcis[$i][jasa_rs_adm], false),
uangIndo($data_karcis[$i][jasa_rs_sdm], false),
uangIndo($data_karcis[$i][jasa_rs_kembang], false),
uangIndo($data_karcis[$i][jasa_rs_op], false),
uangIndo($data_karcis[$i][spesialis], false),
uangIndo($data_karcis[$i][spesialis_pendamping], false),
uangIndo($data_karcis[$i][spesialis_anestesi], false),
//uangIndo($data_karcis[$i][dr_umum] + $data_karcis[$i][dr_gigi] + $data_karcis[$i][ugp], false),
uangIndo($data_karcis[$i][ugp], false),
uangIndo($data_karcis[$i][grabaf], false),
//uangIndo($data_karcis[$i][perawat] + $data_karcis[$i][perawat_perinatologi], false),
uangIndo($data_karcis[$i][perawat], false),
/*uangIndo($data_karcis[$i][assisten_non_dokter], false),
uangIndo($data_karcis[$i][aknest], false),
uangIndo($data_karcis[$i][gizi], false),
uangIndo($data_karcis[$i][fisioterapi], false),
uangIndo($data_karcis[$i][analis_pa], false),
uangIndo($data_karcis[$i][bidan], false),*/
uangIndo($data_karcis[$i][penunjang], false),
uangIndo($data_karcis[$i][zakat], false),
uangIndo($data_karcis[$i][pajak], false),
uangIndo($data_karcis[$i][mampu_bayar], false)
/*
$data_karcis[$i][assisten_non_dokter],
$data_karcis[$i][aknest],
$data_karcis[$i][gizi],
$data_karcis[$i][fisioterapi],
$data_karcis[$i][analis_pa],
$data_karcis[$i][bidan],
*/
);
$table->addExtraTr("onclick=\"setBg(this);\"");
$total[bhp_p] += $data_karcis[$i][bhp_p];
$total[bhp_rs_adm] += $data_karcis[$i][bhp_rs_adm];
$total[bhp_rs_op] += $data_karcis[$i][bhp_rs_op];
$total[jasa_p] += $data_karcis[$i][jasa_p];
$total[jasa_rs_adm] += $data_karcis[$i][jasa_rs_adm];
$total[jasa_rs_sdm] += $data_karcis[$i][jasa_rs_sdm];
$total[jasa_rs_kembang] += $data_karcis[$i][jasa_rs_kembang];
$total[jasa_rs_op] += $data_karcis[$i][jasa_rs_op];
$total[spesialis] += $data_karcis[$i][spesialis];
$total[spesialis_pendamping] += $data_karcis[$i][spesialis_pendamping];
$total[spesialis_anestesi] += $data_karcis[$i][spesialis_anestesi];
//$total[ugp] += $data_karcis[$i][dr_umum] + $data_karcis[$i][dr_gigi] + $data_karcis[$i][ugp];
$total[ugp] += $data_karcis[$i][ugp];
$total[grabaf] += $data_karcis[$i][grabaf];
//$total[perawat] += $data_karcis[$i][perawat]+$data_karcis[$i][perawat_perinatologi];
$total[perawat] += $data_karcis[$i][perawat];
/*$total[assisten_non_dokter] += $data_karcis[$i][assisten_non_dokter];
$total[aknest] += $data_karcis[$i][aknest];
$total[gizi] += $data_karcis[$i][gizi];
$total[fisioterapi] += $data_karcis[$i][fisioterapi];
$total[analis_pa] += $data_karcis[$i][analis_pa];
$total[bidan] += $data_karcis[$i][bidan];*/
$total[penunjang] += $data_karcis[$i][penunjang];
$total[zakat] += $data_karcis[$i][zakat];
$total[pajak] += $data_karcis[$i][pajak];
$total[mampu_bayar] += $data_karcis[$i][mampu_bayar];
}
$table->addTfoot(
"Total",
uangIndo($total[bhp_p], false),
uangIndo($total[bhp_rs_adm], false),
uangIndo($total[bhp_rs_op], false),
"?",
"?",
uangIndo($total[jasa_p], false),
uangIndo($total[jasa_rs_adm], false),
uangIndo($total[jasa_rs_sdm], false),
uangIndo($total[jasa_rs_kembang], false),
uangIndo($total[jasa_rs_op], false),
uangIndo($total[spesialis], false),
uangIndo($total[spesialis_pendamping], false),
uangIndo($total[spesialis_anestesi], false),
uangIndo($total[ugp], false),
uangIndo($total[grabaf], false),
uangIndo($total[perawat], false),
/*uangIndo($total[assisten_non_dokter], false),
uangIndo($total[aknest], false),
uangIndo($total[gizi], false),
uangIndo($total[fisioterapi], false),
uangIndo($total[analis_pa], false),
uangIndo($total[bidan], false), */
uangIndo($total[penunjang], false),
uangIndo($total[zakat], false),
uangIndo($total[pajak], false),
uangIndo($total[mampu_bayar], false)
);
$table->addExtraTfoot("colspan=\"2\"");
$content = $table->build();
$judul = nl2br($title);
$objResponse->addAssign("title", "innerHTML", $judul);
$objResponse->addAssign("list_data", "innerHTML", $content);
$_SESSION[igd][pendapatan][title] = $judul;
$_SESSION[igd][pendapatan][content] = $content;
return $objResponse;
}
}
return $objResponse;
}
function reset_dokter () {
$objResponse = new xajaxResponse();
$objResponse->addClear("id_dokter", "value");
$objResponse->addClear("nama", "value");
$objResponse->addClear("alamat", "value");
$objResponse->addClear("telp", "value");
$objResponse->addScriptCall("fokus", "spesialisasi_id");
return $objResponse;
}
}
$kon = new Konek;
$kon->sql = "SELECT id, nama FROM spesialisasi ORDER BY nama";
$kon->execute();
$_data_spc = $kon->getAll();
//$_xajax->debugOn();
$_xajax->registerFunction(array("list_data", "Dokter", "list_data"));
$_xajax->registerFunction(array("get_dokter", "Dokter", "get_dokter"));
$_xajax->registerFunction(array("hapus_dokter", "Dokter", "hapus_dokter"));
$_xajax->registerFunction(array("simpan_dokter", "Dokter", "simpan_dokter"));
$_xajax->registerFunction(array("simpan_dokter_check", "Dokter", "simpan_dokter_check"));
$_xajax->registerFunction(array("reset_dokter", "Dokter", "reset_dokter"));
include AJAX_REF_DIR . "kunjungan.php";
?>
function buka_list_kunjungan($hal=0, $pasien_id) {
$paging = new MyPagina;
$paging->onclick_func = "xajax_buka_list_kunjungan";
$paging->setOnclickValue("'".$pasien_id."'");
$paging->rows_on_page = 5;
$paging->hal = $hal;
$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,
k.id as id_kunjungan,
kk.id as id_kunjungan_kamar,
k.kunjungan_ke as kunjungan_ke,
pel.jenis as jenis_pelayanan,
pel.nama as pelayanan,
kmr.nama as kamar,
kk.tgl_periksa as tgl_periksa,
CONCAT(i.kode_icd,' - ', i.nama) as diagnosa,
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)
JOIN kamar kmr ON (kmr.id = kk.kamar_id)
JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id)
LEFT JOIN icd i ON (i.id = kk.diagnosa_utama_id)
LEFT JOIN dokter d ON (d.id = kk.dokter_id)
WHERE
p.id = '".$pasien_id."'
GROUP BY
kk.id
ORDER BY
kk.id
";
$paging->sql = $sql;
$paging->get_page_result();
$data = $paging->data;
$no = $paging->start_number();
$navi = $paging->navi();
$table = new Table;
$table->tbody_height = 300;
$table->addTh(
"No",
"Kunjungan Ke/<br />Tanggal Kunjung",
"Pemeriksaan"
);
$table->addExtraTh(
"style=\"width:30px;\"",
"style=\"width:90px;\"",
""
);
$kon = new Konek;
for($i=0;$i<sizeof($data);$i++) {
//get data tindakan
$kon->sql = "
SELECT
kkic.id as kunjungan_tindakan_id,
ic.id as tindakan_id,
ic.nama as tindakan_nama
FROM
kunjungan_kamar_icopim kkic
JOIN icopim ic ON (ic.id = kkic.icopim_id)
WHERE
kkic.kunjungan_kamar_id = '".$data[$i][id_kunjungan_kamar]."'
GROUP BY
kkic.id
";
$kon->execute();
$data_ic = $kon->getAll();
//get data bhp
$kon->sql = "
SELECT
kkbhp.id as kunjungan_bhp_id,
bhp.id as bhp_id,
bhp.nama as bhp_nama
FROM
kunjungan_bayar kkbhp
JOIN bhp ON (bhp.id = kkbhp.bhp_id)
WHERE
kkbhp.kunjungan_kamar_id = '".$data[$i][id_kunjungan_kamar]."'
GROUP BY
kkbhp.id
";
$kon->execute();
$data_bhp = $kon->getAll();
/*
//get data im
$kon->sql = "
SELECT
kki.id as kunjungan_imunisasi_id,
im.id as imunisasi_id,
im.nama as imunisasi_nama
FROM
kunjungan_kamar_imunisasi kki
JOIN imunisasi im ON (im.id = kki.imunisasi_id)
WHERE
kki.kunjungan_kamar_id = '".$data[$i][id_kunjungan_kamar]."'
GROUP BY
kki.id
";
$kon->execute();
$data_im = $kon->getAll();
*/
$pem = "<ul>";
$pem .= "<li><b>Pelayanan :</b> " . $data[$i][jenis_pelayanan] . " - " . $data[$i][kamar] . "</li>";
$pem .= "<li><b>Dokter :</b> " . (empty($data[$i][dokter])?"-":$data[$i][dokter]) . "</li>";
$pem .= "<li><b>Diagnosa :</b> " . (empty($data[$i][diagnosa])?"-":"<br />".$data[$i][diagnosa]) . "</li>";
$pem .= "<li><b>Tindakan :</b> ";
if(!empty($data_ic)) {
$pem .= "<ol>";
for($j=0;$j<sizeof($data_ic);$j++) {
$pem .= "<li>" . $data_ic[$j][tindakan_nama] . "</li>";
}
$pem .= "</ol>";
} else $pem .= "-";
$pem .= "</li>";
$pem .= "<li><b>BHP :</b> ";
if(!empty($data_bhp)) {
$pem .= "<ol>";
for($j=0;$j<sizeof($data_bhp);$j++) {
$pem .= "<li>" . $data_bhp[$j][bhp_nama] . "</li>";
}
$pem .= "</ol>";
} else $pem .= "-";
$pem .= "</li>";
/*
$pem .= "<li><b>Imunisasi :</b> ";
if(!empty($data_im)) {
$pem .= "<ol>";
for($j=0;$j<sizeof($data_im);$j++) {
$pem .= "<li>" . $data_im[$j][imunisasi_nama] . "</li>";
}
$pem .= "</ol>";
} else $pem .= "-";
$pem .= "</li>";
*/
$pem .= "</ul>";
$table->addRow(
($no+$i),
$data[$i][kunjungan_ke] . "<hr />" . tanggalIndo($data[$i][tgl_periksa], 'j M Y'),
$pem
);
/*
$table->addOnclickTd(
"xajax_tab_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."')",
"xajax_tab_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."')",
"xajax_tab_buka_kunjungan('".$data[$i][id_kunjungan_kamar]."')"
);
*/
}
$ret = $table->build();
$objResponse = new xajaxResponse();
//$objResponse->addAssign("debug", "innerHTML", $sql);
$objResponse->addAssign("modal_list_kunjungan", "style.display", "");
$objResponse->addAssign("tab_list_semua_kunjungan_navi", "innerHTML", $navi);
$objResponse->addAssign("mlk_no_rm", "innerHTML", $data[0][no_rm]);
$objResponse->addAssign("mlk_nama", "innerHTML", $data[0][nama]);
$objResponse->addAssign("mlk_sex", "innerHTML", $data[0][sex]);
$objResponse->addAssign("tab_list_semua_kunjungan", "innerHTML", $ret);
$objResponse->addScriptCall("disable_mainbar", "#E5E6E1");
return $objResponse;
}
function infobar_cari_px_cari($objId, $val) {
$kon = new Konek;
$objResponse = new xajaxResponse;
$sql = "
SELECT
p.nama as nama,
CONCAT(p.alamat, ', ', d.nama, ', ', kec.nama, ', ', kab.nama) as alamat,
kmr.nama as ruang,
CASE
WHEN kk.tgl_keluar IS NULL THEN 'Masih Dirawat'
ELSE 'Sudah Pulang'
END as status
FROM
pasien p
JOIN kunjungan k ON (k.pasien_id = p.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 ref_desa d ON (d.id = p.desa_id)
JOIN ref_kecamatan kec ON (kec.id = d.kecamatan_id)
JOIN ref_kabupaten kab ON (kab.id = kec.kabupaten_id)
WHERE
p.nama LIKE '%".$val."%'
AND pel.jenis = 'RAWAT INAP'
AND (kk.tgl_keluar IS NULL OR DATE(kk.tgl_keluar) = DATE(NOW()))
ORDER BY p.nama
";
$kon->sql = $sql;
$kon->execute();
$data = $kon->getAll();
$table = new Table;
$table->scroll = false;
$table->addTh("Nama", "Alamat", "Ruang", "Status");
for($i=0;$i<sizeof($data);$i++) {
$table->addRow($data[$i][nama], $data[$i][alamat], $data[$i][ruang], $data[$i][status]);
}
$ret = $table->build();
$objResponse->addAssign($objId, "innerHTML", $ret);
return $objResponse;
}
$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;
}
}
$kon = new Konek;
$kon->sql = "SELECT id, nama FROM ref_pendidikan";
$kon->execute();
$data_pendidikan = $kon->getAll();
$kon->sql = "SELECT id, nama FROM ref_pekerjaan";
$kon->execute();
$data_pekerjaan = $kon->getAll();
$kon->sql = "SELECT id, nama FROM ref_propinsi";
$kon->execute();
$data_propinsi = $kon->getAll();
$kon->sql = "SELECT kmr.id as id, kmr.nama as nama FROM kamar kmr JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id) WHERE pel.jenis = 'RAWAT JALAN' ORDER BY kmr.nama";
$kon->execute();
$data_kamar = $kon->getAll();
$kon->sql = "SELECT id, nama FROM dokter WHERE aktif = '1'";
$kon->execute();
trc.keperluan as keperluan
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 tracer trc ON (trc.kunjungan_kamar_id = kk.id)
LEFT JOIN dokter d ON (d.id = kk.dokter_id)
WHERE
trc.cetak IS NOT NULL
$s
ORDER BY
kk.id ASC
LIMIT 0, ".$_GET[limit]."
";
}
$kon->sql = $sql;
$kon->execute();
$data = $kon->getAll();
$arr = array();
for($i=0;$i<sizeof($data);$i++) {
if($data[$i][kmrid] != 1 && $data[$i][kmrid]) $poli[$i] = "POLIKLINIK " . $data[$i][klinik];
elseif($data[$i][kmrid]) $poli[$i] = $data[$i][klinik];
else $poli[$i] = "";
$arr[] = $data[$i][trcid];
}
$str = implode(", ", $arr);
$kon->sql = "UPDATE tracer SET cetak = 'SUDAH' WHERE id IN (".$str.")";
$kon->execute();
?>
$usia = hitungUmur($tgl_lahir, $skr);
$objResponse = new xajaxResponse();
$objResponse->addAssign("usia_tahun", "value", $usia[tahun]);
$objResponse->addAssign("usia_bulan", "value", $usia[bulan]);
$objResponse->addAssign("usia_hari", "value", $usia[hari]);
return $objResponse;
}
}
$kon = new Konek;
$kon->sql = "SELECT id, nama FROM ref_pendidikan";
$kon->execute();
$data_pendidikan = $kon->getAll();
$kon->sql = "SELECT id, nama FROM ref_pekerjaan";
$kon->execute();
$data_pekerjaan = $kon->getAll();
$kon->sql = "SELECT id, nama FROM ref_propinsi";
$kon->execute();
$data_propinsi = $kon->getAll();
$_xajax->registerFunction(array("get_pasien", "IRD", "get_pasien"));
$_xajax->registerFunction(array("simpan_pasien", "IRD", "simpan_pasien"));
$_xajax->registerFunction(array("simpan_pasien_check", "IRD", "simpan_pasien_check"));
$_xajax->registerFunction(array("reset_pasien", "IRD", "reset_pasien"));
$_xajax->registerFunction(array("get_tgl_lahir", "IRD", "get_tgl_lahir"));
$_xajax->registerFunction(array("hitung_umur", "IRD", "hitung_umur"));
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;
}
