function list_data($hal = 0) { $paging = new MyPagina; $paging->rows_on_page = 20; $paging->sql = "SELECT id, nama, alamat FROM ref_perujuk ORDER BY nama"; $paging->get_page_result(); $paging->hal = $hal; $_SESSION[hal] = $hal; $paging->get_page_result(); $data = $paging->data; $no = $paging->start_number(); $navi = $paging->navi(); $table = new Table; $table->tbody_height = 420; $table->addTh("No", "Nama", "Alamat", "Hapus"); $table->addExtraTh(" style=\"width: 50px;\"", " style=\"width: 200px;\"", "", " style=\"width: 70px;\" "); for($i=0;$i<sizeof($data);$i++) { $table->addRow( ($no+$i), $data[$i][nama], $data[$i][alamat], "<a href=\"javascript:void(0)\" title=\"Hapus\" onclick=\"hapus_perujuk('".$data[$i][id]."', this)\" class=\"tombol_hapus\"><img src=\"".IMAGES_URL."remove.png\" alt=\"Hapus\" border=\"0\" /></a>"); $table->addExtraTd( " onclick=\"xajax_get_perujuk('".$data[$i][id]."')\" ", " onclick=\"xajax_get_perujuk('".$data[$i][id]."')\" ", " onclick=\"xajax_get_perujuk('".$data[$i][id]."')\" "); } $ret = $table->build(); $objResponse = new xajaxResponse(); $objResponse->addAssign("navi", "innerHTML", $navi); $objResponse->addAssign("list_data", "innerHTML", $ret); return $objResponse; }
function buka_tbi($idkk) { unset($_SESSION[ranap][kunjungan][jasa_cetak]); $kon = new Konek; //$kon->debug = 1; $objResponse = new xajaxResponse; //get data pasien $kon->sql = " SELECT CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as id_display, p.nama as nama, p.tgl_lahir as tgl_lahir, CONCAT(p.alamat, ' ', IF(p.rt = '','',CONCAT(' RT ', p.rt)), IF(p.rw = '','',CONCAT(' RW ', p.rw)), ', ', des.nama, ', ', kec.nama, ', ', kab.nama) as alamat, kk.tgl_periksa as tgl_periksa, pel.nama as nama_pelayanan, p.sex as jk, kk.cara_bayar as cara_bayar, kk.jenis_askes as jenis_askes, kk.nomor as nomor FROM kunjungan_kamar kk JOIN kunjungan k ON (k.id = kk.kunjungan_id) JOIN pasien p ON (p.id = k.pasien_id) JOIN kamar kmr ON (kmr.id = kk.kamar_id) JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id) JOIN ref_desa des ON (des.id = p.desa_id) JOIN ref_kecamatan kec ON (kec.id = des.kecamatan_id) JOIN ref_kabupaten kab ON (kab.id = kec.kabupaten_id) JOIN ref_propinsi prop ON (prop.id = kab.propinsi_id) WHERE kk.id = '".$idkk."' GROUP BY p.id "; $kon->execute(); $data_pasien = $kon->getOne(); $arr_usia = hitungUmur($data_pasien[tgl_lahir], $data_pasien[tgl_periksa]); $usia = empty($arr_usia[tahun])?"":$arr_usia[tahun] . " thn "; $usia .= empty($arr_usia[bulan])?"":$arr_usia[bulan] . " bln "; $usia .= empty($arr_usia[hari])?"":$arr_usia[hari] . " hr "; $tabel = new Table; $tabel->scroll = false; $tabel->css_table = ""; $tabel->cellspacing = "5"; $tabel->anime_bg_color = ""; $tabel->extra_table = "style=\"width:10cm;\""; $tabel->addRow("Bangsal", $data_pasien[nama_pelayanan]); $tabel->addExtraTd("style=\"width:3cm\""); $tabel->addRow("No. RM", $data_pasien[id_display]); $tabel->addRow("Nama", $data_pasien[nama]); $tabel->addRow("Usia", $usia); $tabel->addRow("Jenis Kelamin", $data_pasien[jk]); $tabel->addRow("Alamat", $data_pasien[alamat]); $tabel->addRow("Tgl Periksa", tanggalIndo($data_pasien[tgl_periksa], 'j F Y')); $tabel->addRow("Cara Pembayaran", $data_pasien[cara_bayar]); $tabel->addRow("Jenis Askes", empty($data_pasien[jenis_askes])?"-":$data_pasien[jenis_askes]); $tabel->addRow("Nomor", empty($data_pasien[nomor])?"-":$data_pasien[nomor]); $tabel_pasien = $tabel->build(); $tabel = new Table; $tabel->scroll = false; $tabel->extra_table = "style=\"width:10cm;\""; $tabel->addTh("No", "Jasa", "Harga"); $tabel->addExtraTh("style=\"width:0.7cm;\"", "style=\"width:6.5cm;\"", ""); //get data tindakan $kon->sql = " SELECT CONCAT(i.kode, ' - ', i.nama) as nama FROM icopim i JOIN kunjungan_kamar_icopim kki ON (kki.icopim_id = i.id) JOIN kunjungan_kamar kk ON (kk.id = kki.kunjungan_kamar_id) WHERE kk.id = '".$idkk."' GROUP BY kki.id "; $kon->execute(); $data_tindakan = $kon->getAll(); if(!empty($data_tindakan)) { $tabel->addRow("","<b>Tindakan</b>",""); for($i=0;$i<sizeof($data_tindakan);$i++) { $tabel->addRow( ($i+1), " - " . $data_tindakan[$i][nama], "" ); } } //get data bhp $kon->sql = " SELECT b.nama as nama FROM bhp b JOIN kunjungan_kamar_bhp kkb ON (kkb.bhp_id = b.id) JOIN kunjungan_kamar kk ON (kk.id = kkb.kunjungan_kamar_id) WHERE kk.id = '".$idkk."' GROUP BY kkb.id "; $kon->execute(); $data_bhp = $kon->getAll(); if(!empty($data_bhp)) { $tabel->addRow("","<b>Bahan Habis Pakai</b>",""); for($i=0;$i<sizeof($data_bhp);$i++) { $tabel->addRow( ($i+1), " - " . $data_bhp[$i][nama], "" ); } } //get data imunisasi $kon->sql = " SELECT im.nama as nama FROM imunisasi im JOIN kunjungan_kamar_imunisasi kkim ON (kkim.imunisasi_id = im.id) JOIN kunjungan_kamar kk ON (kk.id = kkim.kunjungan_kamar_id) WHERE kk.id = '".$idkk."' GROUP BY kkim.id "; $kon->execute(); $data_imunisasi = $kon->getAll(); if(!empty($data_imunisasi)) { $tabel->addRow("","<b>Imunisasi</b>",""); for($i=0;$i<sizeof($data_imunisasi);$i++) { $tabel->addRow( ($i+1), " - " . $data_imunisasi[$i][nama], "" ); } } $tabel->addRow("","<b>Total</b>",""); $tabel_jasa = $tabel->build(); $modal = new Modal; $modal->cetak_lebar = 400; $modal->cetak_tinggi = 600; $modal->setTitle("Daftar Pemberian Tindakan, BHP, dan Imunisasi"); $modal->setContent($tabel_pasien); $modal->setContent($tabel_jasa); $modal->setCloseButtonOnclick("tutup_daftar_tbi()"); $modal->setPrintButtonUrl(URL . "ranap/kunjungan_jasa_cetak/"); $modal_cnt = $modal->build(); $_SESSION[ranap][kunjungan][jasa_cetak] = $tabel_pasien . $tabel_jasa; $objResponse->addClear("list_daftar_tbi", "style.display"); $objResponse->addAssign("list_daftar_tbi", "innerHTML", $modal_cnt); return $objResponse; }
function 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($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; }