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;
}
function list_data($hal = 0, $val) {
if(!empty($val)) {
$val[cari_nama] = addslashes($val[cari_nama]);
$q = " AND (kode_icd_group LIKE '%".$val[cari_nama]."%' OR kode_icd LIKE '%".$val[cari_nama]."%' OR no_dtd LIKE '%".$val[cari_nama]."%' OR nama LIKE '%".$val[cari_nama]."%' OR gol_sebab_sakit LIKE '%".$val[cari_nama]."%')";
}
$objResponse = new xajaxResponse();
$paging = new MyPagina;
$paging->setOnclickValue("xajax.getFormValues('form_icd')");
$paging->sql = "
SELECT
id,
REPLACE(kode_icd_group, '".$val[cari_nama]."','<b>".$val[cari_nama]."</b>') as kode_icd_group,
REPLACE(kode_icd, '".$val[cari_nama]."','<b>".$val[cari_nama]."</b>') as kode_icd,
REPLACE(no_dtd, '".$val[cari_nama]."','<b>".$val[cari_nama]."</b>') as no_dtd,
REPLACE(nama, '".$val[cari_nama]."','<b>".$val[cari_nama]."</b>') as nama,
REPLACE(gol_sebab_sakit, '".$val[cari_nama]."','<b>".$val[cari_nama]."</b>') as gol_sebab_sakit
FROM
icd
WHERE
1=1
$q
ORDER BY
kode_icd
";
$paging->rows_on_page = 20;
$paging->hal = $hal;
$paging->get_page_result();
$data = $paging->data;
$no = $paging->start_number();
$navi = $paging->navi();
$_SESSION[modul_setting][penyakit][hal] = $hal;
$tabel = new Table;
$tabel->tbody_height = 300;
$tabel->addTh("No", "Kode ICD Group", "Kode ICD", "No. DTD", "Nama Penyakit", "Gol. Sebab Sakit", "Hapus");
$tabel->addExtraTh(" style=\"width: 50px;\"", " style=\"width: 50px;\"", " style=\"width: 70px;\" ", " style=\"width: 70px;\" ", "", "", " style=\"width: 70px;\" ");
for($i=0;$i<sizeof($data);$i++) {
$tabel->addExtraTr("id=\"tr_".$i."\"");
$tabel->addRow(
($no+$i),
$data[$i][kode_icd_group],
$data[$i][kode_icd],
$data[$i][no_dtd],
$data[$i][nama],
$data[$i][gol_sebab_sakit],
"<a href=\"javascript:void(0)\" title=\"Hapus\" onclick=\"hapus_icd('".$data[$i][id]."', 'tr_".$i."')\" class=\"tombol_hapus\"><img src=\"".IMAGES_URL."remove.png\" alt=\"Hapus\" border=\"0\" /></a>");
$tabel->addOnclickTd(
"xajax_get_icd('".$data[$i][id]."')",
"xajax_get_icd('".$data[$i][id]."')",
"xajax_get_icd('".$data[$i][id]."')",
"xajax_get_icd('".$data[$i][id]."')",
"xajax_get_icd('".$data[$i][id]."')",
"xajax_get_icd('".$data[$i][id]."')"
);
}
$buka = $tabel->build();
$objResponse->addAssign("list_data", "innerHTML", $buka);
$objResponse->addAssign("navi", "innerHTML", $navi);
return $objResponse;
}
function list_data($hal = 0, $val) {
$paging = new MyPagina;
$objResponse = new xajaxResponse();
if($val[is_cari] == "1") {
if($val[cari_id]) {
$q = " AND p.id = '".$val[cari_id]."' ";
} else {
if($val[cari_nama]) $q .= " AND p.nama LIKE '%".$val[cari_nama]."%' ";
if($val[cari_sex]) $q .= " AND p.sex = '".$val[cari_sex]."' ";
if($val[cari_alamat]) $q .= " AND p.alamat LIKE '%".$val[cari_alamat]."%' ";
if($val[cari_rt]) $q .= " AND p.rt LIKE '%".$val[cari_rt]."%' ";
if($val[cari_rw]) $q .= " AND p.rw LIKE '%".$val[cari_rw]."%' ";
if($val[cari_telp]) $q .= " AND p.telp LIKE '%".$val[cari_telp]."%' ";
/*if($tgl_lahir) $q .= " AND DATE(p.tgl_lahir) = '".$tgl_lahir."' "; */
if ($val[tgl_lahir_thn] == "" && $val[tgl_lahir_bln] == "" && $val[tgl_lahir_tgl] == ""){
$tgl_lahir = "";
}
else {
$tgl_lahir = $val[tgl_lahir_thn] . "-" . $val[tgl_lahir_bln] . "-" . $val[tgl_lahir_tgl];
$q .= " AND DATE(p.tgl_lahir) = '".$tgl_lahir."' ";
}
if($val[cari_desa_id]) $q .= " AND des.id = '".$val[cari_desa_id]."' ";
elseif($val[cari_kecamatan_id]) $q .= " AND kec.id = '".$val[cari_kecamatan_id].
"' ";
elseif($val[cari_kabupaten_id]) $q .= " AND kab.id = '".$val[cari_kabupaten_id].
"' ";
elseif($val[cari_propinsi_id]) $q .= " AND prop.id = '".$val[cari_propinsi_id].
"' ";
}
}
$sql = "
SELECT
p.id as id,
CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as id_display,
REPLACE((p.nama), ('".$val[cari_nama]."'), ('<b>".$val[cari_nama].
"</b>')) as nama,
CONCAT(p.alamat, ' ', 'RT ', p.rt, '/ RW ', p.rw, '<br />',des.nama, ', ', kec.nama, ', ', kab.nama, '<br />', prop.nama) as alamat
FROM
pasien p
LEFT OUTER JOIN ref_desa des ON (des.id = p.desa_id)
LEFT OUTER JOIN ref_kecamatan kec ON (kec.id = des.kecamatan_id)
LEFT OUTER JOIN ref_kabupaten kab ON (kab.id = kec.kabupaten_id)
LEFT OUTER JOIN ref_propinsi prop ON (prop.id = kab.propinsi_id)
WHERE
1=1
$q
ORDER BY p.nama
";
//echo $sql;
//$objResponse->addAssign("debug", "innerHTML", $sql);
$paging->hal = $hal;
$paging->sql = $sql;
$paging->setOnclickValue("xajax.getFormValues('cari_pasien')");
$paging->get_page_result();
$data = $paging->data;
$no = $paging->start_number();
$navi = $paging->navi();
$table = new Table;
$table->tbody_height = 270;
$table->addTh("No", "No. RM", "NAMA", "ALAMAT", "HAPUS");
$table->addExtraTh(" style=\"width:40px\" ", " style=\"width:100px\" ", " style=\"width:200px\" ",
"", " style=\"width:50px\" ");
for($i = 0; $i < sizeof($data); $i++) {
$table->addRow(($no + $i), $data[$i][id_display], $data[$i][nama], $data[$i][alamat],
"<a href=\"javascript:void(0)\" title=\"Hapus Pasien\" onclick=\"hapus_pasien('".
$data[$i][id]."', 'tr_".$i."')\" class=\"tombol_hapus\"><img src=\"".IMAGES_URL.
"remove.png\" alt=\"Hapus Pasien\" border=\"0\" /></a>");
$table->addExtraTr("id=\"tr_".$i."\"");
$table->addOnclickTd("xajax_get_pasien('".$data[$i][id]."')",
"xajax_get_pasien('".$data[$i][id]."')", "xajax_get_pasien('".$data[$i][id].
"')", "xajax_get_pasien('".$data[$i][id]."')");
}
$ret = $table->build();
$objResponse->addAssign("cari_navi", "innerHTML", $navi);
$objResponse->addAssign("list_data", "innerHTML", $ret);
return $objResponse;
}
function list_data($hal=0, $val="") {
$kon = new konek;
if($val[pasien_id]) {
$q = " p.no_rm = '".$val[pasien_id]."' ";
} elseif($val[nama]) {
$tgl_daftar_dari = $val[tgl_mulai_thn] . "-" . $val[tgl_mulai_bln] . "-" . $val[tgl_mulai_tgl];
$tgl_daftar_sampai = $val[tgl_selesai_thn] . "-" . $val[tgl_selesai_bln] . "-" . $val[tgl_selesai_tgl];
$q = " p.nama LIKE '%".$val[nama]."%' AND DATE(kk.tgl_daftar) BETWEEN '".$tgl_daftar_dari."' AND '".$tgl_daftar_sampai."' ";
} elseif ($val[pilih]){
$tgl_daftar_dari = $val[tgl_mulai_thn] . "-" . $val[tgl_mulai_bln] . "-" . $val[tgl_mulai_tgl];
$tgl_daftar_sampai = $val[tgl_selesai_thn] . "-" . $val[tgl_selesai_bln] . "-" . $val[tgl_selesai_tgl];
$q = " DATE(kk.tgl_daftar) BETWEEN '".$tgl_daftar_dari."' AND '".$tgl_daftar_sampai."' ";
}elseif ($val[telp]){
$q = " p.telp LIKE '%".$val[telp]."%' ";
}
//$tgl_daftar_dari = $val[tgl_mulai_thn] . "-" . $val[tgl_mulai_bln] . "-" . $val[tgl_mulai_tgl];
//$tgl_daftar_sampai = $val[tgl_selesai_thn] . "-" . $val[tgl_selesai_bln] . "-" . $val[tgl_selesai_tgl];
$paging = new MyPagina;
$paging->setOnclickValue("xajax.getFormValues('form_kunjungan')");
$sql = "
SELECT
k.id as id_kunjungan,
kk.id as id_kunjungan_kamar,
k.kunjungan_ke as kunjungan_ke,
kk.no_antrian as no_antrian,
CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as no_rm,
p.id as pasien_id,
p.nama as nama,
pel.nama as pelayanan,
kmr.nama as kamar,
kk.tgl_daftar as tgl_daftar,
kk.tgl_periksa as tgl_periksa,
d.nama as dokter,
kk.kelanjutan as kelanjutan,
pel.jenis as jenis
FROM
kunjungan k
JOIN pasien p ON (p.id = k.pasien_id)
JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id)
JOIN kamar kmr ON (kmr.id = kk.kamar_id)
JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id)
LEFT JOIN dokter d ON (d.id = kk.dokter_id)
WHERE
$q
ORDER BY
k.id DESC, kk.id ASC
";
$paging->sql = $sql;
$paging->rows_on_page = 20;
$paging->hal = $hal;
$paging->get_page_result();
$_SESSION[hal] = $hal;
$data = $paging->data;
$no = $paging->start_number();
$navi = $paging->navi();
$table = new Table;
$table->tbody_height = 310;
$table->anime_bg_color = "";
$table->addTh(
"No",
"No.<br />Kjg",
"No. RM",
"Pasien",
"Kjg<br />Ke",
"No<br />Antri",
"Pelayanan",
"Dokter",
"Tgl<br />Daftar",
"Tgl<br />Periksa",
"Kunjungan <br/>Terakhir",
"Kelanjutan",
"Hapus"
);
$table->addExtraTh("style=\"width:30px;\"","style=\"width:30px;\"","style=\"width:80px;\"","style=\"width:200px;\"","","","","","","","","style=\"width:70px;\"");
for($i=0;$i<sizeof($data);$i++) {
$kunj_sbl = $data[$i][kunjungan_ke]-1 ;
$sql_kunjungan = "select kk.tgl_daftar as tgl_daftar from kunjungan k,pasien p, kunjungan_kamar kk
where p.id = k.pasien_id
and k.id = kk.kunjungan_id
and p.id = '".$data[$i][pasien_id]."'
and LAST_INSERT_ID(k.id)
and k.kunjungan_ke ='".$kunj_sbl."'
ORDER BY k.id DESC LIMIT 1";
$kon->sql = $sql_kunjungan;
$kon->execute();
$k = $kon->getOne();
if (empty($k[tgl_daftar])):
$tgl_daftar = '-';
else:
$tgl_daftar = $k[tgl_daftar];
endif;
if($data[$i][jenis] == 'RAWAT INAP') {
$table->addExtraTr("style=\"background-color:#dcdcdc\"");
} else $table->addExtraTr();
$table->addRow(
($no+$i),
$data[$i][id_kunjungan],
$data[$i][no_rm],
$data[$i][nama],
$data[$i][kunjungan_ke],
$data[$i][no_antrian],
$data[$i][kamar],
$data[$i][dokter],
tanggalIndo($data[$i][tgl_daftar], 'j M Y'),
tanggalIndo($data[$i][tgl_periksa], 'j M Y'),
$tgl_daftar,
$data[$i][kelanjutan],
"<a href=\"javascript:void(0)\" title=\"Hapus\" onclick=\"hapus_kunjungan_kamar('".$data[$i][id_kunjungan]."','".$data[$i][id_kunjungan_kamar]."', this)\" class=\"tombol_hapus\"><img src=\"".IMAGES_URL."remove.png\" alt=\"Hapus\" border=\"0\" /></a>");
if($data[$i][jenis] == 'RAWAT INAP') {
//jika rawat inap, maka diedit
$table->addOnclickTd(
"xajax_buka_edit_ranap('".$data[$i][id_kunjungan_kamar]."', '".$data[$i-1][id_kunjungan_kamar]."')",
"xajax_buka_edit_ranap('".$data[$i][id_kunjungan_kamar]."', '".$data[$i-1][id_kunjungan_kamar]."')",
"xajax_buka_edit_ranap('".$data[$i][id_kunjungan_kamar]."', '".$data[$i-1][id_kunjungan_kamar]."')",
"xajax_buka_edit_ranap('".$data[$i][id_kunjungan_kamar]."', '".$data[$i-1][id_kunjungan_kamar]."')",
"xajax_buka_edit_ranap('".$data[$i][id_kunjungan_kamar]."', '".$data[$i-1][id_kunjungan_kamar]."')",
"xajax_buka_edit_ranap('".$data[$i][id_kunjungan_kamar]."', '".$data[$i-1][id_kunjungan_kamar]."')",
"xajax_buka_edit_ranap('".$data[$i][id_kunjungan_kamar]."', '".$data[$i-1][id_kunjungan_kamar]."')",
"xajax_buka_edit_ranap('".$data[$i][id_kunjungan_kamar]."', '".$data[$i-1][id_kunjungan_kamar]."')",
"xajax_buka_edit_ranap('".$data[$i][id_kunjungan_kamar]."', '".$data[$i-1][id_kunjungan_kamar]."')",
"xajax_buka_edit_ranap('".$data[$i][id_kunjungan_kamar]."', '".$data[$i-1][id_kunjungan_kamar]."')",
"xajax_buka_edit_ranap('".$data[$i][id_kunjungan_kamar]."', '".$data[$i-1][id_kunjungan_kamar]."')"
);
} elseif($data[$i][kelanjutan] == "DIRAWAT" && $data[$i][pasien_id] == $data[$i+1][pasien_id] && $data[$i+1][jenis] == 'RAWAT INAP') {
$table->addOnclickTd(
"alert('Pasien sudah mendaftar rawat inap')",
"alert('Pasien sudah mendaftar rawat inap')",
"alert('Pasien sudah mendaftar rawat inap')",
"alert('Pasien sudah mendaftar rawat inap')",
"alert('Pasien sudah mendaftar rawat inap')",
"alert('Pasien sudah mendaftar rawat inap')",
"alert('Pasien sudah mendaftar rawat inap')",
"alert('Pasien sudah mendaftar rawat inap')",
"alert('Pasien sudah mendaftar rawat inap')",
"alert('Pasien sudah mendaftar rawat inap')",
"alert('Pasien sudah mendaftar rawat inap')"
);
} else {
$table->addOnclickTd(
"xajax_buka_daftar_ranap('".$data[$i][id_kunjungan_kamar]."')",
"xajax_buka_daftar_ranap('".$data[$i][id_kunjungan_kamar]."')",
"xajax_buka_daftar_ranap('".$data[$i][id_kunjungan_kamar]."')",
"xajax_buka_daftar_ranap('".$data[$i][id_kunjungan_kamar]."')",
"xajax_buka_daftar_ranap('".$data[$i][id_kunjungan_kamar]."')",
"xajax_buka_daftar_ranap('".$data[$i][id_kunjungan_kamar]."')",
"xajax_buka_daftar_ranap('".$data[$i][id_kunjungan_kamar]."')",
"xajax_buka_daftar_ranap('".$data[$i][id_kunjungan_kamar]."')",
"xajax_buka_daftar_ranap('".$data[$i][id_kunjungan_kamar]."')",
"xajax_buka_daftar_ranap('".$data[$i][id_kunjungan_kamar]."')",
"xajax_buka_daftar_ranap('".$data[$i][id_kunjungan_kamar]."')"
);
}
}
$ret = $table->build();
$objResponse = new xajaxResponse();
//$objResponse->addAssign("debug", "innerHTML", $sql);
$objResponse->addAssign("navi", "innerHTML", $navi);
$objResponse->addAssign("list_data", "innerHTML", $ret);
return $objResponse;
}
function list_data($val) {
unset($_SESSION[keuangan][lap_keuangan_bulanan]);
//get data karcis dan BHP
$objResponse = new xajaxResponse;
$kon = new Konek;
$title = "Laporan Keuangan Bulanan";
$title .= "\nTahun " . $val[tahun];
$sql = "
SELECT
MONTH(kw.tgl) as bulan,
SUM(kb.mampu_bayar_bhp+kb.mampu_bayar_jasa) as bayar,
CASE
WHEN rk.cara_bayar IS NOT NULL THEN rk.cara_bayar
WHEN lk.cara_bayar IS NOT NULL THEN lk.cara_bayar
ELSE kk.cara_bayar
END as cara_bayar,
CASE
WHEN rk.jenis_askes IS NOT NULL THEN rk.jenis_askes
WHEN lk.jenis_askes IS NOT NULL THEN lk.jenis_askes
ELSE kk.jenis_askes
END as jenis_askes
FROM
kunjungan_bayar kb
LEFT JOIN kunjungan_kamar kk ON (kk.id = kb.kunjungan_kamar_id)
LEFT JOIN lab_kunjungan lk ON (lk.id = kb.lab_kunjungan_id)
LEFT JOIN radio_kunjungan rk ON (rk.id = kb.radio_kunjungan_id)
JOIN kwitansi kw ON (kw.id = kb.kwid)
WHERE
YEAR(kw.tgl) = '".$val[tahun]."'
AND kb.kwid IS NOT NULL
GROUP BY
MONTH(kw.tgl), kk.cara_bayar, lk.cara_bayar, rk.cara_bayar, kk.jenis_askes, lk.jenis_askes, rk.jenis_askes
ORDER BY
MONTH(kw.tgl)
";
//$objResponse->addAssign("debug", "innerHTML", nl2br($sql));
$kon->sql = $sql;
$kon->execute();
$data = $kon->getAll();
$table = new Table;
$table->cellspacing = "0";
$table->anime_bg_color = false;
$table->addTh("No", "Bulan", "Cara Pembayaran", "Jumlah", "Kumulatif", "Target", "% Pendapatan", "% Kumulatif");
$table->addExtraTh("rowspan=\"2\"", "rowspan=\"2\"", "colspan=\"7\"", "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"");
$table->addTh("Umum", "Jamsostek", "Dana Reksa Desa", "Kontrak", "Askeskin", "Askes Lain", "Lain-lain");
$table->addTh("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14");
$new = array();
for($i=0;$i<sizeof($data);$i++) {
if($data[$i][bulan] == $data[$i-1][bulan]) {
if($data[$i][cara_bayar] == "UMUM") {
$new[$data[$i][bulan]][UMUM] = $data[$i][bayar];
} elseif($data[$i][cara_bayar] == "JAMSOSTEK") {
$new[$data[$i][bulan]][JAMSOSTEK] = $data[$i][bayar];
} elseif($data[$i][cara_bayar] == "DANA REKSA DESA") {
$new[$data[$i][bulan]][DANA_REKSA_DESA] = $data[$i][bayar];
} elseif($data[$i][cara_bayar] == "KONTRAK") {
$new[$data[$i][bulan]][KONTRAK] = $data[$i][bayar];
} elseif($data[$i][cara_bayar] == "ASKES"){
if($data[$i][jenis_askes] == "Askes Kin") {
$new[$data[$i][bulan]][ASKESKIN] = $data[$i][bayar];
} else {
$new[$data[$i][bulan]][ASKES_LAIN] = $data[$i][bayar];
}
} else {
$new[$data[$i][bulan]][LAIN] = $data[$i][bayar];
}
$new[$data[$i][bulan]][JUMLAH] += $data[$i][bayar];
} else {
if($data[$i][cara_bayar] == "UMUM") {
$new[$data[$i][bulan]][UMUM] = $data[$i][bayar];
} elseif($data[$i][cara_bayar] == "JAMSOSTEK") {
$new[$data[$i][bulan]][JAMSOSTEK] = $data[$i][bayar];
} elseif($data[$i][cara_bayar] == "DANA REKSA DESA") {
$new[$data[$i][bulan]][DANA_REKSA_DESA] = $data[$i][bayar];
} elseif($data[$i][cara_bayar] == "KONTRAK") {
$new[$data[$i][bulan]][KONTRAK] = $data[$i][bayar];
} elseif($data[$i][cara_bayar] == "ASKES"){
if($data[$i][jenis_askes] == "Askes Kin") {
$new[$data[$i][bulan]][ASKESKIN] = $data[$i][bayar];
} else {
$new[$data[$i][bulan]][ASKES_LAIN] = $data[$i][bayar];
}
} else {
$new[$data[$i][bulan]][LAIN] = $data[$i][bayar];
}
$new[$data[$i][bulan]][JUMLAH] = $data[$i][bayar];
}
}
for($i=1;$i<13;$i++) {
$bulan = bulanIndo($i, "F");
$kumulatif += $new[$i][JUMLAH];
$persen_pendapatan = @round($new[$i][JUMLAH]*100/$kumulatif,2);
$persen_kumulatif = @round($kumulatif*100/$val["bulan_" . $i],2);
$table->addRow(
$i,
$bulan,
uangIndo($new[$i][UMUM], false),
uangIndo($new[$i][JAMSOSTEK], false),
uangIndo($new[$i][DANA_REKSA_DESA], false),
uangIndo($new[$i][KONTRAK], false),
uangIndo($new[$i][ASKESKIN], false),
uangIndo($new[$i][ASKES_LAIN], false),
uangIndo($new[$i][LAIN], false),
uangIndo($new[$i][JUMLAH], false),
uangIndo($kumulatif, false),
uangIndo($val["bulan_" . $i], false),
uangIndo($persen_pendapatan, false),
uangIndo($persen_kumulatif)
);
$table->addExtraTd(
"",
"",
"style=\"text-align:right\"",
"style=\"text-align:right\"",
"style=\"text-align:right\"",
"style=\"text-align:right\"",
"style=\"text-align:right\"",
"style=\"text-align:right\"",
"style=\"text-align:right\"",
"style=\"text-align:right\"",
"style=\"text-align:right\"",
"style=\"text-align:right\"",
"style=\"text-align:right\"",
"style=\"text-align:right\""
);
$total[UMUM] += $new[$i][UMUM];
$total[JAMSOSTEK] += $new[$i][JAMSOSTEK];
$total[DANA_REKSA_DESA] += $new[$i][DANA_REKSA_DESA];
$total[KONTRAK] += $new[$i][KONTRAK];
$total[ASKESKIN] += $new[$i][ASKESKIN];
$total[ASKES_LAIN] += $new[$i][ASKES_LAIN];
$total[LAIN] += $new[$i][LAIN];
$total[JUMLAH] += $new[$i][JUMLAH];
$total[kumulatif] += $kumulatif;
$total[target] += $val["bulan_" . $i];
$table->addExtraTr("onclick=\"setBg(this);\"");
}
$table->addTfoot(
"TOTAL",
uangIndo($total[UMUM], false),
uangIndo($total[JAMSOSTEK], false),
uangIndo($total[DANA_REKSA_DESA], false),
uangIndo($total[KONTRAK], false),
uangIndo($total[ASKESKIN], false),
uangIndo($total[ASKES_LAIN], false),
uangIndo($total[LAIN], false),
uangIndo($total[JUMLAH], false),
uangIndo($total[kumulatif], false),
uangIndo($total[target], false),
"-","-"
);
$table->addExtraTfoot("colspan=\"2\"");
$content = $table->build();
$judul = nl2br($title);
//$objResponse->addAlert(print_r($new));
$objResponse->addAssign("title", "innerHTML", $judul);
$objResponse->addAssign("list_data", "innerHTML", $content);
$_SESSION[keuangan][lap_keuangan_bulanan][title] = $judul;
$_SESSION[keuangan][lap_keuangan_bulanan][content] = $content;
return $objResponse;
}
function list_data($hal=0, $semua_pasien = "0", $val="") {
if($_SESSION[pelayanan_id]) $s = " AND pel.id = '" .$_SESSION[pelayanan_id]. "'";
if($semua_pasien == "0") $s .= " AND kk.kelanjutan IS NULL";
else {
$tgl_daftar_dari = $val[tgl_mulai_thn] . "-" . $val[tgl_mulai_bln] . "-" . $val[tgl_mulai_tgl];
$tgl_daftar_sampai = $val[tgl_selesai_thn] . "-" . $val[tgl_selesai_bln] . "-" . $val[tgl_selesai_tgl];
$s .= "AND DATE(kk.tgl_daftar) BETWEEN '".$tgl_daftar_dari."' AND '".$tgl_daftar_sampai."'";
}
$paging = new MyPagina;
$paging->setOnclickValue("'".$semua_pasien."'", "xajax.getFormValues('form_kunjungan')");
$sql = "
SELECT
k.id as id_kunjungan,
kk.id as id_kunjungan_kamar,
k.kunjungan_ke as kunjungan_ke,
kk.no_antrian as no_antrian,
CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as no_rm,
p.id as pasien_id,
p.nama as nama,
pel.nama as pelayanan,
kmr.nama as kamar,
kmr.kelas as kelas,
kk.tgl_daftar as tgl_daftar,
kk.tgl_keluar as tgl_keluar,
d.nama as dokter,
kk.kelanjutan as kelanjutan,
rk.nomor as no_kamar
FROM
kunjungan k
JOIN pasien p ON (p.id = k.pasien_id)
JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id)
JOIN ref_kamar rk ON (rk.id = kk.no_kamar)
JOIN kamar kmr ON (kmr.id = kk.kamar_id)
JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id)
LEFT JOIN dokter d ON (d.id = kk.dokter_id)
WHERE
pel.jenis = 'RAWAT INAP'
$s
ORDER BY
kmr.nama, d.nama, kk.no_antrian
";
$paging->sql = $sql;
$paging->rows_on_page = 20;
$paging->hal = $hal;
$paging->get_page_result();
$_SESSION[hal] = $hal;
$data = $paging->data;
$no = $paging->start_number();
$navi = $paging->navi();
$table = new Table;
$table->tbody_height = 270;
//$table->anime_bg_color = "";
$table->addTh(
"No",
"No.<br />Kjg",
"No. RM",
"Pasien",
"Kamar",
"Dokter",
"Tgl<br />Masuk",
"Tgl<br />Keluar",
"Kelanjutan"
/*,"Hapus"*/
);
$table->addExtraTh("style=\"width:30px;\"","style=\"width:30px;\"","style=\"width:80px;\"","style=\"width:200px;\"","","","","","",""/*,"style=\"width:70px;\""*/);
$kon = new Konek;
for($i=0;$i<sizeof($data);$i++) {
/*
id kelanjutan == 'PINDAH KAMAR' adalah kelanjutan pindah kamar
jika id kelanjutan == 'PINDAH KAMAR' maka diedit, jika diedit, maka harus membawa id child yang merupakan pindahan dari kamar tersebut
jika id kelanjutan != 'PINDAH KAMAR' maka ditambah
*/
if($data[$i][kelanjutan] == "PINDAH KAMAR") {
$table->addExtraTr();
$table->extra_td[$i][] = "";
$table->extra_td[$i][] = "style=\"background-color:#dcdcdc\"";
$table->extra_td[$i][] = "style=\"background-color:#dcdcdc\"";
$table->extra_td[$i][] = "style=\"background-color:#dcdcdc\"";
$table->extra_td[$i][] = "style=\"background-color:#dcdcdc\"";
$table->extra_td[$i][] = "style=\"background-color:#dcdcdc\"";
$table->extra_td[$i][] = "style=\"background-color:#dcdcdc\"";
$table->extra_td[$i][] = "style=\"background-color:#dcdcdc\"";
$table->extra_td[$i][] = "style=\"background-color:#dcdcdc\"";
} else $table->addExtraTr();
$table->addRow(
($no+$i),
$data[$i][id_kunjungan],
$data[$i][no_rm],
$data[$i][nama],
$data[$i][kamar],
$data[$i][dokter],
tanggalIndo($data[$i][tgl_daftar], 'j M Y') . "<br>" . tanggalIndo($data[$i][tgl_daftar], 'H:i'),
tanggalIndo($data[$i][tgl_keluar], 'j M Y') . "<br>" . tanggalIndo($data[$i][tgl_keluar], 'H:i'),
$data[$i][kelanjutan]
/*"<input type=\"button\" value=\"[ x ]\" name=\"hapus\" class=\"inputan\" onclick=\"xajax_hapus_kunjungan_kamar_confirm('".$data[$i][id_kunjungan]."','".$data[$i][id_kunjungan_kamar]."', this)\" />"*/
);
if($data[$i][kelanjutan] == "PINDAH KAMAR") {
//maka diedit
/*
mendapatkan kunjungan kamar setelah dipindah dengan parent id = id_kunjungan_kamar
untuk diedit
*/
$kon->sql = "
SELECT
id
FROM
kunjungan_kamar
WHERE
parent_id = '".$data[$i][id_kunjungan_kamar]."'
";
$kon->execute();
$stl_pindah = $kon->getOne();
$table->addOnclickTd(
"xajax_buka_edit_pindah_kamar('".$data[$i][id_kunjungan_kamar]."', '".$stl_pindah[id]."')",
"xajax_buka_edit_pindah_kamar('".$data[$i][id_kunjungan_kamar]."', '".$stl_pindah[id]."')",
"xajax_buka_edit_pindah_kamar('".$data[$i][id_kunjungan_kamar]."', '".$stl_pindah[id]."')",
"xajax_buka_edit_pindah_kamar('".$data[$i][id_kunjungan_kamar]."', '".$stl_pindah[id]."')",
"xajax_buka_edit_pindah_kamar('".$data[$i][id_kunjungan_kamar]."', '".$stl_pindah[id]."')",
"xajax_buka_edit_pindah_kamar('".$data[$i][id_kunjungan_kamar]."', '".$stl_pindah[id]."')",
"xajax_buka_edit_pindah_kamar('".$data[$i][id_kunjungan_kamar]."', '".$stl_pindah[id]."')",
"xajax_buka_edit_pindah_kamar('".$data[$i][id_kunjungan_kamar]."', '".$stl_pindah[id]."')",
"xajax_buka_edit_pindah_kamar('".$data[$i][id_kunjungan_kamar]."', '".$stl_pindah[id]."')"
);
} else {
$table->addOnclickTd(
"xajax_buka_daftar_pindah_kamar('".$data[$i][id_kunjungan_kamar]."')",
"xajax_buka_daftar_pindah_kamar('".$data[$i][id_kunjungan_kamar]."')",
"xajax_buka_daftar_pindah_kamar('".$data[$i][id_kunjungan_kamar]."')",
"xajax_buka_daftar_pindah_kamar('".$data[$i][id_kunjungan_kamar]."')",
"xajax_buka_daftar_pindah_kamar('".$data[$i][id_kunjungan_kamar]."')",
"xajax_buka_daftar_pindah_kamar('".$data[$i][id_kunjungan_kamar]."')",
"xajax_buka_daftar_pindah_kamar('".$data[$i][id_kunjungan_kamar]."')",
"xajax_buka_daftar_pindah_kamar('".$data[$i][id_kunjungan_kamar]."')",
"xajax_buka_daftar_pindah_kamar('".$data[$i][id_kunjungan_kamar]."')"
);
}
}
$ret = $table->build();
$objResponse = new xajaxResponse();
//$objResponse->addAssign("debug", "innerHTML", $sql);
$objResponse->addAssign("navi", "innerHTML", $navi);
$objResponse->addAssign("list_data", "innerHTML", $ret);
return $objResponse;
}
function list_data($val, $check = '0') {
if($check == '1') $str = "AND DATE(trc.tgl_keluar) = '".$val[tgl_keluar_thn]."-".$val[tgl_keluar_bln]."-".$val[tgl_keluar_tgl]."'";
$kon = new Konek;
$sql = "
SELECT
kk.id as kkid,
trc.id as trcid,
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,
trc.peminjam as peminjam,
trc.keperluan as keperluan,
trc.tgl_keluar as tgl_keluar
FROM
tracer trc
JOIN pasien p ON (p.id = trc.pasien_id)
LEFT JOIN kunjungan_kamar kk ON (kk.id = trc.kunjungan_kamar_id)
LEFT JOIN kamar kmr ON (kmr.id = kk.kamar_id)
WHERE
trc.tgl_kembali IS NULL
$str
ORDER BY
trc.id
";
$kon->sql = $sql;
$kon->execute();
$data = $kon->getAll();
$table = new Table;
$table->tbody_height = 340;
$table->anime_bg_color = "";
$table->addTh(
"No",
"No. RM",
"Pasien",
"Pelayanan/<br />Peminjam",
"Keperluan",
"Tgl<br />Berkas Keluar",
"Kembalikan",
"Cetak<br />Tracer"
);
$table->addExtraTh("style=\"width:50px;\"","style=\"width:80px;\"","style=\"width:200px;\"","","","","style=\"width:50px;\"","style=\"width:50px;\"");
for($i=0;$i<sizeof($data);$i++) {
if(($i+1) == sizeof($data)) $cekbox = "<input type=\"checkbox\" name=\"kembalikan[]\" id=\"kembalikan_".$i."\" class=\"inputan\" onkeypress=\"focusNext('tgl_kembali_tgl', event, 'kembalikan_".($i-1)."', this)\" onclick=\"setKembalikan('tr_".$i."', this)\" value=\"".$data[$i][trcid]."\" />";
elseif($i==0) $cekbox = "<input type=\"checkbox\" name=\"kembalikan[]\" id=\"kembalikan_".$i."\" class=\"inputan\" onkeypress=\"focusNext('kembalikan_".($i+1)."', event, 'simpan', this)\" onclick=\"setKembalikan('tr_".$i."', this)\" value=\"".$data[$i][trcid]."\" />";
else $cekbox = "<input type=\"checkbox\" name=\"kembalikan[]\" id=\"kembalikan_".$i."\" class=\"inputan\" onkeypress=\"focusNext('kembalikan_".($i+1)."', event, 'kembalikan_".($i-1)."', this)\" onclick=\"setKembalikan('tr_".$i."', this)\" value=\"".$data[$i][trcid]."\" />";
if($data[$i][kkid]) $link = "<a href=\"javascript:void(0)\" title=\"Cetak ini saja\" style=\"display:block;\" onclick=\"cetak('".URL."filing/cetak_tracer_cetak/?kkid=".$data[$i][kkid]."',350,300)\"><img src=\"".IMAGES_URL."printer_hitam.png\" alt=\"Cetak\" border=\"0\" /></a>";
else $link = "<a href=\"javascript:void(0)\" title=\"Cetak ini saja\" style=\"display:block;\" onclick=\"cetak('".URL."filing/cetak_tracer_cetak/?trcid=".$data[$i][trcid]."',350,300)\"><img src=\"".IMAGES_URL."printer_hitam.png\" alt=\"Cetak\" border=\"0\" /></a>";
$table->addRow(
($i+1),
$data[$i][no_rm],
$data[$i][nama],
$data[$i][kamar] . $data[$i][peminjam],
$data[$i][keperluan],
tanggalIndo($data[$i][tgl_keluar], 'j M Y'),
$cekbox,
$link);
/*
$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]."')"
);
*/
$table->addExtraTr("id=\"tr_".$i."\"");
}
$ret = $table->build();
$objResponse = new xajaxResponse();
//$objResponse->addAssign("debug", "innerHTML", $auto);
$objResponse->addAssign("navi", "innerHTML", $navi);
$objResponse->addAssign("list_data", "innerHTML", $ret);
$objResponse->addAssign("jml_baris", "value", $i);
return $objResponse;
}
function list_data($val) {
unset($_SESSION[keuangan][lap_keuangan_bulanan]);
//get data karcis dan BHP
$objResponse = new xajaxResponse;
$kon = new Konek;
$title = "Laporan Keuangan Per Pelayanan";
$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
CASE
WHEN kb.lab_kunjungan_id IS NOT NULL THEN 'LAB'
WHEN kb.radio_kunjungan_id IS NOT NULL THEN 'RADIO'
ELSE pel.id
END as id_pelayanan,
CASE
WHEN kb.lab_kunjungan_id IS NOT NULL THEN 'Laboratorium'
WHEN kb.radio_kunjungan_id IS NOT NULL THEN 'Radiologi'
WHEN pel.jenis = 'IGD' THEN 'IRD'
ELSE CONCAT_WS(' - ', pel.jenis, pel.nama)
END as nama_pelayanan,
SUM(kb.mampu_bayar_bhp+kb.mampu_bayar_jasa) as bayar,
CASE
WHEN rk.cara_bayar IS NOT NULL THEN rk.cara_bayar
WHEN lk.cara_bayar IS NOT NULL THEN lk.cara_bayar
ELSE kk.cara_bayar
END as cara_bayar,
CASE
WHEN rk.jenis_askes IS NOT NULL THEN rk.jenis_askes
WHEN lk.jenis_askes IS NOT NULL THEN lk.jenis_askes
ELSE kk.jenis_askes
END as jenis_askes
FROM
kunjungan_bayar kb
LEFT JOIN kunjungan_kamar kk ON (kk.id = kb.kunjungan_kamar_id)
LEFT JOIN kamar kmr ON (kmr.id = kk.kamar_id)
LEFT JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id)
LEFT JOIN lab_kunjungan lk ON (lk.id = kb.lab_kunjungan_id)
LEFT JOIN radio_kunjungan rk ON (rk.id = kb.radio_kunjungan_id)
JOIN kwitansi kw ON (kw.id = kb.kwid)
WHERE
DATE(kw.tgl) BETWEEN '".$val[thn_start]."-".$val[bln_start]."-".$val[tgl_start]."' AND '".$val[thn_end]."-".$val[bln_end]."-".$val[tgl_end]."'
AND kb.kwid IS NOT NULL
GROUP BY
id_pelayanan, kk.cara_bayar, lk.cara_bayar, rk.cara_bayar, kk.jenis_askes, lk.jenis_askes, rk.jenis_askes
ORDER BY
1
";
//$objResponse->addAssign("debug", "innerHTML", nl2br($sql));
$kon->sql = $sql;
$kon->execute();
$data = $kon->getAll();
$table = new Table;
$table->cellspacing = "0";
$table->anime_bg_color = false;
$table->addTh("No", "Pelayanan", "Cara Pembayaran", "Jumlah");
$table->addExtraTh("rowspan=\"2\"", "rowspan=\"2\"", "colspan=\"7\"", "rowspan=\"2\"");
$table->addTh("Umum", "Jamsostek", "Dana Reksa Desa", "Kontrak", "Askeskin", "Askes Lain", "Lain-lain");
$table->addTh("1", "2", "3", "4", "5", "6", "7", "8", "9", "10");
$new = array();
$s = 0;
for($i=0;$i<sizeof($data);$i++) {
if($data[$i][id_pelayanan] == $data[$i-1][id_pelayanan]) {
if($data[$i][cara_bayar] == "UMUM") {
$new[$s][UMUM] += $data[$i][bayar];
} elseif($data[$i][cara_bayar] == "JAMSOSTEK") {
$new[$s][JAMSOSTEK] += $data[$i][bayar];
} elseif($data[$i][cara_bayar] == "DANA REKSA DESA") {
$new[$s][DANA_REKSA_DESA] += $data[$i][bayar];
} elseif($data[$i][cara_bayar] == "KONTRAK") {
$new[$s][KONTRAK] += $data[$i][bayar];
} elseif($data[$i][cara_bayar] == "ASKES"){
if($data[$i][jenis_askes] == "Askes Kin") {
$new[$s][ASKESKIN] += $data[$i][bayar];
} else {
$new[$s][ASKES_LAIN] += $data[$i][bayar];
}
} else {
$new[$s][LAIN] += $data[$i][bayar];
}
$new[$s][JUMLAH] += $data[$i][bayar];
} else {
if($i !=0 ) $s++;
$new[$s][nama_pelayanan] = $data[$i][nama_pelayanan];
if($data[$i][cara_bayar] == "UMUM") {
$new[$s][UMUM] = $data[$i][bayar];
} elseif($data[$i][cara_bayar] == "JAMSOSTEK") {
$new[$s][JAMSOSTEK] = $data[$i][bayar];
} elseif($data[$i][cara_bayar] == "DANA REKSA DESA") {
$new[$s][DANA_REKSA_DESA] = $data[$i][bayar];
} elseif($data[$i][cara_bayar] == "KONTRAK") {
$new[$s][KONTRAK] = $data[$i][bayar];
} elseif($data[$i][cara_bayar] == "ASKES"){
if($data[$i][jenis_askes] == "Askes Kin") {
$new[$s][ASKESKIN] = $data[$i][bayar];
} else {
$new[$s][ASKES_LAIN] = $data[$i][bayar];
}
} else {
$new[$s][LAIN] = $data[$i][bayar];
}
$new[$s][JUMLAH] = $data[$i][bayar];
}
}
for($i=0;$i<sizeof($new);$i++) {
$table->addRow(
($i+1),
$new[$i][nama_pelayanan],
uangIndo($new[$i][UMUM], false),
uangIndo($new[$i][JAMSOSTEK], false),
uangIndo($new[$i][DANA_REKSA_DESA], false),
uangIndo($new[$i][KONTRAK], false),
uangIndo($new[$i][ASKESKIN], false),
uangIndo($new[$i][ASKES_LAIN], false),
uangIndo($new[$i][LAIN], false),
uangIndo($new[$i][JUMLAH], false)
);
$table->addExtraTd(
"",
"",
"style=\"text-align:right\"",
"style=\"text-align:right\"",
"style=\"text-align:right\"",
"style=\"text-align:right\"",
"style=\"text-align:right\"",
"style=\"text-align:right\"",
"style=\"text-align:right\"",
"style=\"text-align:right\""
);
$total[UMUM] += $new[$i][UMUM];
$total[JAMSOSTEK] += $new[$i][JAMSOSTEK];
$total[DANA_REKSA_DESA] += $new[$i][DANA_REKSA_DESA];
$total[KONTRAK] += $new[$i][KONTRAK];
$total[ASKESKIN] += $new[$i][ASKESKIN];
$total[ASKES_LAIN] += $new[$i][ASKES_LAIN];
$total[LAIN] += $new[$i][LAIN];
$total[JUMLAH] += $new[$i][JUMLAH];
$table->addExtraTr("onclick=\"setBg(this);\"");
}
$table->addTfoot(
"TOTAL",
uangIndo($total[UMUM], false),
uangIndo($total[JAMSOSTEK], false),
uangIndo($total[DANA_REKSA_DESA], false),
uangIndo($total[KONTRAK], false),
uangIndo($total[ASKESKIN], false),
uangIndo($total[ASKES_LAIN], false),
uangIndo($total[LAIN], false),
uangIndo($total[JUMLAH], false)
);
$table->addExtraTfoot("colspan=\"2\"");
$content = $table->build();
$judul = nl2br($title);
//$objResponse->addAlert(print_r($new));
$objResponse->addAssign("title", "innerHTML", $judul);
$objResponse->addAssign("list_data", "innerHTML", $content);
$_SESSION[keuangan][lap_keuangan_bulanan][title] = $judul;
$_SESSION[keuangan][lap_keuangan_bulanan][content] = $content;
return $objResponse;
}
