public function ambil_data()
{
$param = $this->input->post();
$data = $this->mp->ambil_data($param);
// print_r($data);exit;
$data->date_show = tanggalIndo($data->date);
echo json_encode($data);
}
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;
}
public function grafik_omset()
{
$this->load->library('highcharts');
$param['tgl_awal'] = date('Y-m-01');
$param['tgl_akhir'] = date('Y-m-t');
// print_r($param);exit;
$omset = $this->mg->get_omset($param);
$count = $omset->num_rows();
// echo $this->db->last_query();exit;
$bulan = '';
if ($count > 0) {
foreach ($omset->result() as $key => $value) {
$output[] = (object) array('tanggal' => tanggalIndo($value->date), 'omset' => $value->grand_total);
}
// print_r($output);exit;
$dat2['x_labels'] = 'tanggal';
// optionnal, set axis categories from result row
$dat2['series'] = array('omset' => 'omset');
// set values to create series, values are result rows
$dat2['data'] = $output;
$this->highcharts->set_type('line')->set_title('Grafik Omset', 'Periode ' . tanggalIndo($param['tgl_awal']) . ' s/d ' . tanggalIndo($param['tgl_akhir']))->set_axis_titles('tanggal', 'omset')->set_dimensions('', 400)->from_result($dat2)->add();
// second graph
$data['charts'] = $this->highcharts->render();
echo $data['charts'];
} else {
echo "<span>Tidak ada Data</span>";
}
}
function get_kunjungan($val) {
unset($_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk]);
$tgl_start = @date("Y-m-d", @mktime(1,1,1,$val[tgl_periksa_bln_start], $val[tgl_periksa_tgl_start], $val[tgl_periksa_thn_start]));
$tgl_end = @date("Y-m-d", @mktime(1,1,1,$val[tgl_periksa_bln_end], $val[tgl_periksa_tgl_end], $val[tgl_periksa_thn_end]));
$title = "Statistik Kunjungan Radiologi Berdasar Cara Masuk";
if($val[tampilkan] == "hari") {
$selisih = datediff('d', $tgl_start, $tgl_end);
$tanggal_awal = tanggalIndo($tgl_start, "j F Y");
$tanggal_akhir = tanggalIndo($tgl_end, "j F Y");
} elseif($val[tampilkan] == "bulan") {
$selisih = datediff('m', $tgl_start, $tgl_end);
$tanggal_awal = tanggalIndo($tgl_start, "F Y");
$tanggal_akhir = tanggalIndo($tgl_end, "F Y");
} else {
$selisih = datediff('y', $tgl_start, $tgl_end);
$tanggal_awal = tanggalIndo($tgl_start, "Y");
$tanggal_akhir = tanggalIndo($tgl_end, "Y");
}
$title .= "\nPeriode " . $tanggal_awal . " s.d. " . $tanggal_akhir;
$arr_tgl_start = explode("-",$tgl_start);
$tgl_start_tgl = $arr_tgl_start[2];
$tgl_start_bln = $arr_tgl_start[1];
$tgl_start_thn = $arr_tgl_start[0];
$arr_tgl_end = explode("-",$tgl_end);
$tgl_end_tgl = $arr_tgl_end[2];
$tgl_end_bln = $arr_tgl_end[1];
$tgl_end_thn = $arr_tgl_end[0];
$objResponse = new xajaxResponse();
$kon = new Konek;
for($i=0;$i<=$selisih;$i++) {
if($val[tampilkan] == "hari") {
$tgl[$i] = @date("Y-m-d", @mktime(1, 1, 1, $tgl_start_bln, ($i+$tgl_start_tgl), $tgl_start_thn));
$tgl_periksa[$i] = tanggalIndo($tgl[$i], "j M\nY");
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][radioel_tick][$i] = @date("j", @mktime(1, 1, 1,$tgl_start_bln, ($tgl_start_tgl+$i), $tgl_start_thn));
$radioel_x[$i] = @date("M Y", @mktime(1, 1, 1, $tgl_start_bln, ($tgl_start_tgl+$i), $tgl_start_thn));
$where = " AND DATE(lk.tgl_periksa) = '" . $tgl[$i] . "' ";
} elseif($val[tampilkan] == "bulan") {
$tgl[$i] = @date("Y-m-d", @mktime(1, 1, 1, ($tgl_start_bln+$i), 1, $tgl_start_thn));
$tgl_periksa[$i] = tanggalIndo($tgl[$i], "M\nY");
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][radioel_tick][$i] = @date("M y", @mktime(1, 1, 1, ($tgl_start_bln+$i), 1, $tgl_start_thn));
$radioel_x[$i] = @date("Y", @mktime(1, 1, 1, ($tgl_start_bln+$i), 1, $tgl_start_thn));
$where = " AND EXTRACT(YEAR_MONTH FROM lk.tgl_periksa) = EXTRACT(YEAR_MONTH FROM '" . $tgl[$i] . "') ";
} else {
$tgl[$i] = @date("Y-m-d", @mktime(1, 1, 1, 1, 1, ($tgl_start_thn + $i)));
$tgl_periksa[$i] = tanggalIndo($tgl[$i], "Y");
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][radioel_tick][$i] = @date("Y", @mktime(1, 1, 1, 1, 1, ($tgl_start_thn+$i)));
$radioel_x[$i] = "Tahun";
$where = " AND YEAR(lk.tgl_periksa) = YEAR('" . $tgl[$i] . "') ";
}
//dari IRD
$kon->sql = "
SELECT
COUNT(lk.id) as jml_igd
FROM
radio_kunjungan lk
JOIN pasien p ON (p.id = lk.pasien_id)
WHERE
lk.cara_masuk = 'IGD'
$where
";
$kon->execute();
$igd[$i] = $kon->getOne();
if(!$igd[$i][jml_igd]) $igd[$i][jml_igd] = "-";
//dari RAWAT JALAN
$kon->sql = "
SELECT
COUNT(lk.id) as jml_rajal
FROM
radio_kunjungan lk
JOIN pasien p ON (p.id = lk.pasien_id)
WHERE
lk.cara_masuk = 'RAWAT JALAN'
$where
";
$kon->execute();
$rajal[$i] = $kon->getOne();
if(!$rajal[$i][jml_rajal]) $rajal[$i][jml_rajal] = "-";
//dari RAWAT INAP
$kon->sql = "
SELECT
COUNT(lk.id) as jml_ranap
FROM
radio_kunjungan lk
JOIN pasien p ON (p.id = lk.pasien_id)
WHERE
lk.cara_masuk = 'RAWAT INAP'
$where
";
$kon->execute();
$ranap[$i] = $kon->getOne();
if(!$ranap[$i][jml_ranap]) $ranap[$i][jml_ranap] = "-";
//dari RAWAT INAP
$kon->sql = "
SELECT
COUNT(lk.id) as jml_luar
FROM
radio_kunjungan lk
JOIN pasien p ON (p.id = lk.pasien_id)
WHERE
lk.cara_masuk = 'PASIEN LUAR'
$where
";
$kon->execute();
$luar[$i] = $kon->getOne();
if(!$luar[$i][jml_luar]) $luar[$i][jml_luar] = "-";
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][jml_igd][$i] = $igd[$i][jml_igd];
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][jml_rajal][$i] = $rajal[$i][jml_rajal];
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][jml_ranap][$i] = $ranap[$i][jml_ranap];
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][jml_luar][$i] = $luar[$i][jml_luar];
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][tgl_periksa][$i] = $tgl_periksa[$i];
}
//$objResponse->addAlert(print_r($lama));
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][title] = $title . "\nPeriode " . tanggalIndo($tgl_start, "j F Y") . " s.d. " . tanggalIndo($tgl_end, "j F Y");
$radioelx = @array_unique($radioel_x);
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][radioel_x] = @implode(", ",$radioelx);
$table = new Table;
$table->scroll = false;
//$table->Th[0][] = "Pelayanan";
//$table->extra_th[0][] = "rowspan=\"2\"";
for($i=0;$i<=$selisih;$i++) {
$table->Th[0][] = $tgl_periksa[$i];
$table->extra_th[0][] = "colspan=\"4\"";
}
$table->Th[0][] = "Jumlah";
$table->extra_th[0][] = "colspan=\"4\"";
$kolom = $selisih*4+3;
for($i=0;$i<=$selisih;$i++) {
$table->Th[1][] = "IRD";
$table->Th[1][] = "Rajal";
$table->Th[1][] = "Ranap";
$table->Th[1][] = "Px Luar";
$table->Th[2][] = $i*4+1;
$table->Th[2][] = $i*4+2;
$table->Th[2][] = $i*4+3;
$table->Th[2][] = $i*4+4;
}
$table->Th[2][] = $i*4+1;
$table->Th[2][] = $i*4+2;
$table->Th[2][] = $i*4+3;
$table->Th[2][] = $i*4+4;
//kolom jumlah
$table->Th[1][] = "IRD";
$table->Th[1][] = "Rajal";
$table->Th[1][] = "Ranap";
$table->Th[1][] = "Px Luar";
//isinya
//$table->Row[0][0] = "IGD";
for($i=0;$i<=$selisih;$i++) {
$table->Row[0][] = $igd[$i][jml_igd];
$table->Row[0][] = $rajal[$i][jml_rajal];
$table->Row[0][] = $ranap[$i][jml_ranap];
$table->Row[0][] = $luar[$i][jml_luar];
$jumlah[igd] += $igd[$i][jml_igd];
$jumlah[rajal] += $rajal[$i][jml_rajal];
$jumlah[ranap] += $ranap[$i][jml_ranap];
$jumlah[luar] += $luar[$i][jml_luar];
}
//kolom terakhir
$table->Row[0][] = $jumlah[igd];
$table->Row[0][] = $jumlah[rajal];
$table->Row[0][] = $jumlah[ranap];
$table->Row[0][] = $jumlah[luar];
$ret = $table->build();
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][th_0] = $table->Th[0];
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][th_1] = $table->Th[1];
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][extra_th_0] = $table->extra_th[0];
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][row] = $table->Row[0];
$objResponse->addAssign("list_data", "innerHTML", $ret);
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][graph] = "<img src=\"" . URL . "rekmed/statistik_kunjungan_radio_semua_cara_masuk_graph_line/?md5=".md5(date("Ymdhis"))."\" alt=\"Kunjungan\" />";
$_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][title] = $title;
$objResponse->addAssign("title", "innerHTML", nl2br($_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][title]));
$objResponse->addAssign("graph", "innerHTML", $_SESSION[rekmed][statistik_kunjungan_radio_semua_cara_masuk][graph]);
return $objResponse;
}
$no = 1;
$i = 0;
$total = 0;
$this->thoni_fpdf->SetFont('helvetica', '', 9);
foreach ($stock as $key => $value) {
$this->thoni_fpdf->SetAligns(array('C', 'C', 'C', 'C', 'C', 'C'));
$this->thoni_fpdf->Row(array($no, $value->product_code, $value->product_name, $value->rak_name, $value->saldo));
// $total += $value->saldo;
$no++;
}
// $status = ($total < 0) ? '(Kurang)' : '(Kelebihan)';
// $this->thoni_fpdf->SetWidths(array(9, 3));
// $this->thoni_fpdf->SetAligns(array('C','R'));
// $this->thoni_fpdf->Row(array('TOTAL ',format_rupiah(abs($total))));
//The first param should be the width of text area
//0 value will make the FPDF automate the width
//The second param is the line spacing for this paragraph
//The third param is the text
// $this->thoni_fpdf->WriteTag(19,0.7, $text, 1, "J", 0, 7);
/* setting posisi footer 3 cm dari bawah */
$this->thoni_fpdf->SetY(-3);
/* setting font untuk footer */
$this->thoni_fpdf->SetFont('helvetica', '', 9);
/* setting cell untuk waktu pencetakan */
$this->thoni_fpdf->Cell(19, 0.5, 'Printed on : ' . tanggalIndo(date('Y-m-d')) . ' | ' . date('H:i:s'), 0, 'LR', 'L');
$this->thoni_fpdf->Cell(-3.5);
$this->thoni_fpdf->Cell(19, 0.5, 'Created by : ATOMBIZZ', 0, 'LR', 'L');
/* setting cell untuk page number */
// $this->thoni_fpdf->Cell(24.5, 0.5, 'Page '.$this->thoni_fpdf->PageNo().'/{nb}',0,0,'R');
/* generate pdf jika semua konstruktor, data yang akan ditampilkan, dll sudah selesai */
$this->thoni_fpdf->Output("laporan_stock.pdf", "I");
<td>Tgl Periksa</td>
<td><?=tanggalIndo($_SESSION[igd][langsung_bayar][data_px][tgl_periksa], "j F Y")?></td>
</tr>
<tr>
<td style="vertical-align:top">Cara Bayar</td>
<td><?=$_SESSION[igd][langsung_bayar][data_px][cara_bayar]?></td>
</tr>
<tr>
<td>Nomor</td>
<td><?=$_SESSION[igd][langsung_bayar][data_px][nomor]?></td>
</tr>
</table>
</td>
</tr>
<tr>
<td><?=$tabel_jasa?></td>
</tr>
<tr>
<td>
<?=$_SESSION[setting][rs_kabupaten] . ", " . tanggalIndo(date('Y-m-d'), 'j F Y')?>
<br />
Petugas,
<br />
<br />
<br />
<br />
( )
</td>
</tr>
</table>
<? include KOMPONEN_DIR . "footer_cetak.php"; ?>
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;
}
<div class="portlet-body">
<div class="row">
<div class="col-md-6">
<div class="note note-info">
<span style="font-weight:bold;"><i class="icon-file-text"></i> KD Order Stok</span>
<span id="reference_no" class="pull-right"><?php
echo $distribusi->reference_no;
?>
</span>
</div>
</div>
<div class="col-md-6">
<div class="note note-info">
<span style="font-weight:bold;"><i class="icon-calendar"></i> Tanggal</span>
<span id="date_show" class="pull-right"><?php
echo tanggalIndo($distribusi->date);
?>
</span>
<span id="date" style="display:none"><?php
echo $distribusi->date;
?>
</span>
</div>
</div>
</div>
<div class="row">
<div class="col-md-12">
<span id="flash_message"></span>
</div>
</div>
<br/>
<td>7. </td> <td>Surat Ijin Penetapan</td> <td>:</td> <td></td> </tr> <tr> <td></td> <td>a. Nomor</td> <td>:</td> <td><?=$_SESSION[setting][si_nomor]?></td> </tr> <tr> <td></td> <td>b. Tanggal</td> <td>:</td> <td><?=tanggalIndo($_SESSION[setting][si_tanggal], "d F Y")?></td> </tr> <tr> <td></td> <td>c. Oleh</td> <td>:</td> <td><?=$_SESSION[setting][si_oleh]?></td> </tr> <tr> <td></td> <td>d. Sifat</td> <td>:</td> <td> <table cellpadding="0" cellspacing="2" border="0"> <tr> <?if ($_SESSION[si_sifat] == "Sementara") :?>
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;
}
function print_slip($param)
{
$karyawan = $this->mp->get_paramedik($param['id_karyawan']);
$karyawan = $karyawan[0];
$tmpdir = sys_get_temp_dir();
# ambil direktori temporary untuk simpan file.
$file = tempnam($tmpdir, 'cetak-slip');
# nama file temporary yang akan dicetak
$handle = fopen($file, 'w');
$config = $this->config->item('astro');
$cnt = 40;
//ata = "1234567890123456789012345678901234567890\n";
$Data = align_center($cnt, $config['bas_branch_name']) . "\n";
$Data .= align_center($cnt, $config['bas_branch_address']) . "\n";
$Data .= align_center($cnt, $config['bas_branch_phone']) . "\n";
$Data .= cetak_garis($cnt) . "\n";
$Data .= "Tanggal : " . tanggalIndo(date('Y-m-d')) . "\n";
$Data .= "Nomor : " . $param['no_slip'] . "\n";
$Data .= cetak_garis($cnt) . "\n";
$Data .= align_left($cnt / 2, "Nama") . align_right($cnt / 2, $karyawan->name) . "\n";
$Data .= align_left($cnt / 2, "NIK") . align_right($cnt / 2, $karyawan->code) . "\n";
$Data .= align_left($cnt / 2, "Gaji Pokok") . align_right($cnt / 2, format_rupiah($param['gaji'])) . "\n";
$Data .= align_left($cnt / 2, "Bonus") . align_right($cnt / 2, format_rupiah($param['bonus'])) . "\n";
$Data .= align_left($cnt / 2, "Kasbon") . align_right($cnt / 2, format_rupiah($param['casbon'])) . "\n";
$Data .= cetak_garis($cnt) . "\n";
$Data .= align_left($cnt / 2, "Total") . align_right($cnt / 2, format_rupiah($param['total'])) . "\n";
print_r($Data);
//exit();
$handle = printer_open('Canon_iP2700_series');
// $handle = printer_open('Microsoft XPS Document Writer');
printer_set_option($handle, PRINTER_MODE, "TEXT");
printer_write($handle, $Data);
printer_close($handle);
}
function get_kunjungan($val) {
unset($_SESSION[ranap][statistik_kunjungan_ranap]);
$tgl_start = @date("Y-m-d", @mktime(1,1,1,$val[tgl_periksa_bln_start], $val[tgl_periksa_tgl_start], $val[tgl_periksa_thn_start]));
$tgl_end = @date("Y-m-d", @mktime(1,1,1,$val[tgl_periksa_bln_end], $val[tgl_periksa_tgl_end], $val[tgl_periksa_thn_end]));
$title = "Statistik Kunjungan Rawat Inap";
$objResponse = new xajaxResponse();
$kon = new Konek;
if($_SESSION[pelayanan_id]) {
$kon->sql = "SELECT nama FROM pelayanan WHERE id = '".$_SESSION[pelayanan_id]."'";
$kon->execute();
$poli = $kon->getOne();
$title .= "\nBangsal " . $poli[nama];
$q = "AND pel.id = '".$_SESSION[pelayanan_id]."'";
}
if($val[tampilkan] == "hari") {
$selisih = datediff('d', $tgl_start, $tgl_end);
$tanggal_awal = tanggalIndo($tgl_start, "j F Y");
$tanggal_akhir = tanggalIndo($tgl_end, "j F Y");
} elseif($val[tampilkan] == "bulan") {
$selisih = datediff('m', $tgl_start, $tgl_end);
$tanggal_awal = tanggalIndo($tgl_start, "F Y");
$tanggal_akhir = tanggalIndo($tgl_end, "F Y");
} else {
$selisih = datediff('y', $tgl_start, $tgl_end);
$tanggal_awal = tanggalIndo($tgl_start, "Y");
$tanggal_akhir = tanggalIndo($tgl_end, "Y");
}
$title .= "\nPeriode " . $tanggal_awal . " s.d. " . $tanggal_akhir;
$arr_tgl_start = explode("-",$tgl_start);
$tgl_start_tgl = $arr_tgl_start[2];
$tgl_start_bln = $arr_tgl_start[1];
$tgl_start_thn = $arr_tgl_start[0];
$arr_tgl_end = explode("-",$tgl_end);
$tgl_end_tgl = $arr_tgl_end[2];
$tgl_end_bln = $arr_tgl_end[1];
$tgl_end_thn = $arr_tgl_end[0];
for($i=0;$i<=$selisih;$i++) {
if($val[tampilkan] == "hari") {
$tgl[$i] = @date("Y-m-d", @mktime(1, 1, 1, $tgl_start_bln, ($i+$tgl_start_tgl), $tgl_start_thn));
$tgl_periksa[$i] = tanggalIndo($tgl[$i], "j M\nY");
$_SESSION[ranap][statistik_kunjungan_ranap][label_tick][$i] = @date("j", @mktime(1, 1, 1,$tgl_start_bln, ($tgl_start_tgl+$i), $tgl_start_thn));
$label_x[$i] = @date("M Y", @mktime(1, 1, 1, $tgl_start_bln, ($tgl_start_tgl+$i), $tgl_start_thn));
$where = " AND DATE(kk.tgl_periksa) = '" . $tgl[$i] . "' ";
$where_keluar = " AND DATE(kk.tgl_keluar) = '" . $tgl[$i] . "' ";
} elseif($val[tampilkan] == "bulan") {
$tgl[$i] = @date("Y-m-d", @mktime(1, 1, 1, ($tgl_start_bln+$i), 1, $tgl_start_thn));
$tgl_periksa[$i] = tanggalIndo($tgl[$i], "M\nY");
$_SESSION[ranap][statistik_kunjungan_ranap][label_tick][$i] = @date("M y", @mktime(1, 1, 1, ($tgl_start_bln+$i), 1, $tgl_start_thn));
$label_x[$i] = @date("Y", @mktime(1, 1, 1, ($tgl_start_bln+$i), 1, $tgl_start_thn));
$where = " AND EXTRACT(YEAR_MONTH FROM kk.tgl_periksa) = EXTRACT(YEAR_MONTH FROM '" . $tgl[$i] . "') ";
$where_keluar = " AND EXTRACT(YEAR_MONTH FROM kk.tgl_keluar) = EXTRACT(YEAR_MONTH FROM '" . $tgl[$i] . "') ";
} else {
$tgl[$i] = @date("Y-m-d", @mktime(1, 1, 1, 1, 1, ($tgl_start_thn + $i)));
$tgl_periksa[$i] = tanggalIndo($tgl[$i], "Y");
$_SESSION[ranap][statistik_kunjungan_ranap][label_tick][$i] = @date("Y", @mktime(1, 1, 1, 1, 1, ($tgl_start_thn+$i)));
$label_x[$i] = "Tahun";
$where = " AND YEAR(kk.tgl_periksa) = YEAR('" . $tgl[$i] . "') ";
$where_keluar = " AND YEAR(kk.tgl_keluar) = YEAR('" . $tgl[$i] . "') ";
}
$sql = "
SELECT
COUNT(kk.id) as jml
FROM
kunjungan_kamar kk
JOIN kunjungan k ON (k.id = kk.kunjungan_id)
JOIN pasien p ON (p.id = k.pasien_id)
JOIN kamar kmr ON (kmr.id = kk.kamar_id)
JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id)
WHERE
pel.jenis = 'RAWAT INAP'
$q
$where
";
$kon->sql = $sql;
$kon->execute();
$masuk[$i] = $kon->getOne();
if(!$masuk[$i][jml]) $masuk[$i][jml] = 0;
$_SESSION[ranap][statistik_kunjungan_ranap][jml_masuk][$i] = $masuk[$i][jml];
$_SESSION[ranap][statistik_kunjungan_ranap][tgl_periksa][$i] = $tgl_periksa[$i];
//GET DATA PX KELUAR
$sql2 = "
SELECT
COUNT(kk.id) as jml
FROM
kunjungan_kamar kk
JOIN kunjungan k ON (k.id = kk.kunjungan_id)
JOIN pasien p ON (p.id = k.pasien_id)
JOIN kamar kmr ON (kmr.id = kk.kamar_id)
JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id)
WHERE
pel.jenis = 'RAWAT INAP'
$q
$where_keluar
";
$kon->sql = $sql2;
$kon->execute();
$keluar[$i] = $kon->getOne();
if(!$keluar[$i][jml]) $keluar[$i][jml] = 0;
$_SESSION[ranap][statistik_kunjungan_ranap][jml_keluar][$i] = $keluar[$i][jml];
}
//$objResponse->addAlert(print_r($lama));
$_SESSION[ranap][statistik_kunjungan_ranap][title] = $title . "\nPeriode " . tanggalIndo($tgl_start, "j F Y") . " s.d. " . tanggalIndo($tgl_end, "j F Y");
$labelx = @array_unique($label_x);
$_SESSION[ranap][statistik_kunjungan_ranap][label_x] = @implode(", ",$labelx);
$table = new Table;
$table->scroll = false;
for($i=0;$i<=$selisih;$i++) {
$table->Th[0][] = $tgl_periksa[$i];
$table->extra_th[0][] = "colspan=\"2\"";
$table->Row[0][$i*2] = $masuk[$i][jml];
$table->Row[0][$i*2+1] = $keluar[$i][jml];
}
for($i=0;$i<=($selisih*2+1);$i++) {
$x = $i;
if($i % 2 == 0) {
$table->Th[1][] = "Masuk";
} else {
$table->Th[1][] = "Keluar";
}
$table->Th[2][] = ($i+1);
}
$ret = $table->build();
$_SESSION[ranap][statistik_kunjungan_ranap][th_0] = $table->Th[0];
$_SESSION[ranap][statistik_kunjungan_ranap][th_1] = $table->Th[1];
$_SESSION[ranap][statistik_kunjungan_ranap][extra_th_0] = $table->extra_th[0];
$_SESSION[ranap][statistik_kunjungan_ranap][row] = $table->Row[0];
$objResponse->addAssign("list_data", "innerHTML", $ret);
$_SESSION[ranap][statistik_kunjungan_ranap][graph] = "<img src=\"" . URL . "ranap/statistik_kunjungan_ranap_graph_bar/?md5=".md5(date("Ymdhis"))."\" alt=\"Kunjungan\" />";
$_SESSION[ranap][statistik_kunjungan_ranap][title] = $title;
$objResponse->addAssign("title", "innerHTML", nl2br($_SESSION[ranap][statistik_kunjungan_ranap][title]));
$objResponse->addAssign("graph", "innerHTML", $_SESSION[ranap][statistik_kunjungan_ranap][graph]);
return $objResponse;
}
<tr>
<td><?php
echo $item['code'];
?>
</td>
<td><?php
echo $item['name'];
?>
</td>
<td><?php
echo $item['payment'];
?>
</td>
<td><?php
echo tanggalIndo($item['registered']);
?>
</td>
<td><?php
echo cek_status($item['status']);
?>
</td>
<td><?php
echo get_detail_edit_delete($item['id']);
?>
</td>
</tr>
<?php
}
?>
?>
" readonly>
</div>
</div>
</div>
<!--/span-->
<div class="row">
<div class="col-md-2">
<div class="form-group">
<label class="control-label">Tanggal</label>
</div>
</div>
<div class="col-md-4">
<div class="form-group">
<input type="text" class="form-control" value="<?php
echo tanggalIndo($akunting[0]->tanggal);
?>
" readonly>
</div>
</div>
</div>
<div class="row">
<div class="col-md-2">
<div class="form-group">
<label class="control-label">Keterangan</label>
</div>
</div>
<div class="col-md-4">
<div class="form-group">
<textarea type="text" class="form-control" value="" readonly><?php
function get_info_jadwal_dokter($inputId, $kamar_id, $tgl, $bln, $thn, $dokterInputId = "dokter_id") {
$objResponse = new xajaxResponse();
if(!$kamar_id) {
$ret = "Klinik belum dipilih";
} else {
$hari = date("l", mktime(1, 1, 1, $bln, $tgl, $thn));
$nama_hari = tanggalIndo($thn . "-" . $bln . "-" . $tgl, "l");
$kon = new Konek;
$sql = "
SELECT
d.id as id,
d.nama as nama,
CONCAT(' : ',DATE_FORMAT(j.jam_mulai, '%H:%i'), ' - ', DATE_FORMAT(j.jam_selesai, '%H:%i')) as jadwal
FROM
jadwal_dokter j
JOIN dokter d ON (d.id = j.dokter_id)
JOIN pelayanan pel ON (pel.id = j.pelayanan_id)
JOIN kamar kmr ON (kmr.pelayanan_id = pel.id)
WHERE
d.aktif = '1'
AND kmr.id = '".$kamar_id."'
AND j.hari = '".$hari."'
GROUP BY
j.id
ORDER BY
j.jam_mulai, d.nama
";
$kon->sql = $sql;
$kon->execute();
$data = $kon->getAll();
if(!empty($data)) {
$ret = "Jadwal dokter hari " . $nama_hari . " :";
$ret .= "<ol>";
for($i=0;$i<sizeof($data);$i++) {
$ret .= "<li style=\"margin-bottom:5px;\">";
if($dokterInputId) {
$ret .= "<a href=\"javascript:void(0)\" title=\"pilih dokter ini\" onclick=\"javascript:document.getElementById('".$dokterInputId."').value='".$data[$i][id]."';javascript:fokus('".$dokterInputId."')\">" . $data[$i][nama] . "<em><b>" . $data[$i][jadwal] . "</b></em></a>";
} else {
$ret .= $data[$i][nama] . "<em><b>" . $data[$i][jadwal] . "</b></em>";
}
$ret .= "</li>";
}
$ret .= "</ol>";
} else {
$ret = "Tidak Ada jadwal dokter pada hari " . $nama_hari;
}
}
$objResponse->addAssign($inputId, "innerHTML", $ret);
return $objResponse;
}
function buka_kunjungan($id_kunjungan_kamar) {
$objResponse = new xajaxResponse;
$kon = new Konek;
$sql = "
SELECT
k.kunjungan_ke as kunjungan_ke,
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,
kk.id as id_kunjungan_kamar,
k.id as id_kunjungan,
DATE(kk.tgl_daftar) as tgl_daftar,
DATE(kk.tgl_periksa) as tgl_periksa,
DATE(kk.tgl_keluar) as tgl_keluar,
TIME(kk.tgl_keluar) as wkt_keluar,
kk.dokter_id as id_dokter,
kk.kelanjutan as kelanjutan,
k.keadaan_keluar as keadaan_keluar,
kmr.id as id_kamar,
kmr.kelas as kelas,
kmr.nama as spesialisasi,
kk.diagnosa_utama_id as diagnosa_utama_id,
IF(i.id IS NULL, ' ', CONCAT(i.kode_icd, ' - ', i.nama)) as diagnosa_utama_nama,
CONCAT_WS(' - ', k.cara_masuk, rp.nama) as cara_masuk,
CONCAT_WS(' - ', kk.cara_bayar, kk.jenis_askes, rper.nama) as cara_bayar
FROM
kunjungan k
JOIN pasien p ON (p.id = k.pasien_id)
JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id)
JOIN kamar kmr ON (kmr.id = kk.kamar_id)
LEFT JOIN icd i ON (i.id = kk.diagnosa_utama_id)
LEFT JOIN ref_perujuk rp ON (rp.id = k.perujuk_id)
LEFT JOIN ref_perusahaan rper ON (rper.id = kk.perusahaan_id)
WHERE
kk.id = '".$id_kunjungan_kamar."'
";
$kon->sql = $sql;
$kon->execute();
$data = $kon->getOne();
//get data karcis
$kon->sql = "
SELECT
id as kunjungan_bayar_id,
karcis_id as karcis_id,
nama as nama,
hak_id as hak_id,
jumlah as jumlah,
biaya_bhp+biaya_jasa as biaya,
bayar_bhp as bayar_bhp,
bayar_jasa as bayar_jasa
FROM
kunjungan_bayar
WHERE
kunjungan_kamar_id = '".$id_kunjungan_kamar."'
AND karcis_id IS NOT NULL
GROUP BY
id
";
$kon->execute();
$data_kc = $kon->getAll();
//get data tindakan
$kon->sql = "
SELECT
kkic.id as kunjungan_icopim_id,
kby.id as kunjungan_bayar_id,
kkic.nama as nama,
kby.nama as kolom,
kby.hak_id as hak_id,
kby.sifat as sifat,
kby.biaya_jasa as biaya,
kby.jumlah as jumlah,
kby.bayar_jasa as bayar
FROM
kunjungan_kamar_icopim kkic
JOIN kunjungan_bayar kby ON (kby.kunjungan_kamar_icopim_id = kkic.id)
WHERE
kkic.kunjungan_kamar_id = '".$id_kunjungan_kamar."'
GROUP BY
kby.id
ORDER BY
kkic.id, kby.id
";
$kon->execute();
$data_ic = $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
kunjungan_kamar_id = '".$id_kunjungan_kamar."'
AND bhp_id IS NOT NULL
GROUP BY
id
";
$kon->execute();
$data_bhp = $kon->getAll();
//get data kendaraan
$sqlkd = "
SELECT
kkd.id as kunjungan_kendaraan_id,
kkd.jarak_tempuh as jarak_tempuh,
kkd.harga_bbm as harga_bbm,
kb.id as kunjungan_bayar_id,
kkd.nama as nama,
kb.hak_id as hak_id,
kb.nama as kolom,
kb.biaya_bhp+kb.biaya_jasa as biaya,
kb.bayar_bhp+kb.bayar_jasa as bayar
FROM
kunjungan_kendaraan kkd
JOIN kunjungan_bayar kb ON (kb.kunjungan_kendaraan_id = kkd.id)
WHERE
kkd.kunjungan_kamar_id = '".$id_kunjungan_kamar."'
GROUP BY
kkd.id, kb.id
ORDER BY
kkd.id, kb.id
";
$kon->sql = $sqlkd;
$kon->execute();
$data_kd = $kon->getAll();
//get obat
$kon->sql = "SELECT db_apotek.resep_head.param_no, db_apotek.resep_head.tgl FROM db_apotek.resep_head.resep_head WHERE LAST_INSERT_ID(db_apotek.resep_head.param_no)
and db_apotek.resep_head.no_resep like 'RRJ%' ORDER BY db_apotek.resep_head.id DESC LIMIT 1";
$kon->execute();
$data_obat = $kon->getOne();
$tanggal_sekarang=date("d/m/Y");
//$month=substr($rp['tgl'],3,2);
$date=date("m");
$tgl = substr($data_obat['tgl'],3,2);
if ($tgl == $date)
{
$temp = $data_obat['param_no'];
$count = $temp + 1;
}
else
{
$temp = 1;
$count = $temp;
}
//cek untuk ketersediaan record
if (!$data_obat)
{
$temp = 1;
$count = $temp;
}
$digit1 = (int) ($count % 10);
$digit2 = (int) (($count % 100) / 10);
$digit3 = (int) (($count % 1000) / 100);
$digit4 = (int) (($count % 10000) / 1000);
$kd="RUGD/";
$no_resep = $kd . date("dmy")."$digit7" . "$digit6" . "$digit5" . "$digit4" . "$digit3" . "$digit2" . "$digit1";
$param_no = $count;
$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_pasien_id", "value", $data[pasien_id]);
$objResponse->addAssign("input_param_no", "value", $param_no);
$objResponse->addAssign("input_no_resep", "value", $no_resep);
$objResponse->addAssign("no_resep", "innerHTML", $no_resep);
$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_kamar", "value", $data[id_kunjungan_kamar]);
$objResponse->addAssign("input_id_kunjungan", "value", $data[id_kunjungan]);
$objResponse->addAssign("icopim_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]);
//set default
$kelanjutan = empty($data[kelanjutan])?"PULANG":$data[kelanjutan];
$objResponse->addAssign("input_kelanjutan", "value", $kelanjutan);
$keadaan_keluar = empty($data[keadaan_keluar])?"SEMBUH":$data[keadaan_keluar];
$objResponse->addAssign("input_keadaan_keluar", "value", $keadaan_keluar);
//tanggal keluar
$tgl_keluar = explode("-", $data[tgl_keluar]);
$objResponse->addAssign("input_tgl_keluar_thn", "value", $tgl_keluar[2]);
$objResponse->addAssign("input_tgl_keluar_bln", "value", $tgl_keluar[1]);
$objResponse->addAssign("input_tgl_keluar_tgl", "value", $tgl_keluar[0]);
$wkt_keluar = explode(":", $data[wkt_keluar]);
$objResponse->addAssign("input_tgl_keluar_jam", "value", $wkt_keluar[0]);
$objResponse->addAssign("input_tgl_keluar_mnt", "value", $wkt_keluar[1]);
$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'));
//tab diagnosa_tindakan
$objResponse->addAssign("input_diagnosa_utama", "value", $data[diagnosa_utama_id]);
$objResponse->addAssign("input_diagnosa_utama_nama", "innerHTML", $data[diagnosa_utama_nama]);
if(!empty($data_kc)) $objResponse->addScriptCall("xajax_get_karcis_from_kunjungan", $data_kc);
if(!empty($data_bhp)) $objResponse->addScriptCall("xajax_get_bhp_from_kunjungan", $data_bhp);
if(!empty($data_ic)) $objResponse->addScriptCall("xajax_get_icopim_from_kunjungan", $data_ic);
if(!empty($data_kd)) {
$objResponse->addScriptCall("xajax_get_kendaraan_from_kunjungan", $data_kd);
$objResponse->addAssign("input_harga_bbm", "value", $data_kd[0][harga_bbm]);
$objResponse->addAssign("input_jarak_tempuh", "value", $data_kd[0][jarak_tempuh]);
} else {
$objResponse->addAssign("input_harga_bbm", "value", $_SESSION[setting][harga_bbm]);
$objResponse->addClear("input_jarak_tempuh", "value");
}
//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 buka_langsung_bayar($idkw) {
unset($_SESSION[kasir][kunjungan][jasa_cetak]);
$kon = new Konek;
//$kon->debug = 1;
$objResponse = new xajaxResponse;
//get data pasien
$sql = "
SELECT
k.id as kunjungan_id,
CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as id_display,
p.nama as nama,
p.tgl_lahir as tgl_lahir,
CONCAT(p.alamat, ' ', IF(p.rt = '','',CONCAT(' RT ', p.rt)), IF(p.rw = '','',CONCAT(' RW ', p.rw)), ', ', des.nama, ', ', kec.nama, ', ', kab.nama) as alamat,
kk.tgl_daftar as tgl_daftar,
kk.tgl_periksa as tgl_periksa,
pel.nama as nama_pelayanan,
p.sex as jk,
CONCAT_WS(' - ', kk.cara_bayar, kk.jenis_askes, rper.nama) as cara_bayar,
kk.nomor as nomor
FROM
kunjungan_kamar kk
JOIN kunjungan k ON (k.id = kk.kunjungan_id)
JOIN pasien p ON (p.id = k.pasien_id)
JOIN kamar kmr ON (kmr.id = kk.kamar_id)
JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id)
JOIN kunjungan_bayar kb ON (kb.kunjungan_kamar_id = kk.id)
JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
JOIN kwitansi kw ON (kw.id = kwd.kwitansi_id)
JOIN ref_desa des ON (des.id = p.desa_id)
JOIN ref_kecamatan kec ON (kec.id = des.kecamatan_id)
JOIN ref_kabupaten kab ON (kab.id = kec.kabupaten_id)
JOIN ref_propinsi prop ON (prop.id = kab.propinsi_id)
LEFT JOIN ref_perusahaan rper ON (rper.id = kk.perusahaan_id)
WHERE
kw.id = '".$idkw."'
GROUP BY
p.id
";
//$objResponse->addAssign("debug", "innerHTML", $sql);
$kon->sql = $sql;
$kon->execute();
$data_pasien = $kon->getOne();
$arr_usia = hitungUmur($data_pasien[tgl_lahir], $data_pasien[tgl_periksa]);
$data_pasien[usia] = empty($arr_usia[tahun])?"":$arr_usia[tahun] . " thn ";
$data_pasien[usia] .= empty($arr_usia[bulan])?"":$arr_usia[bulan] . " bln ";
$data_pasien[usia] .= empty($arr_usia[hari])?"":$arr_usia[hari] . " hr ";
$objResponse->addClear("modal_lb", "style.display");
$objResponse->addAssign("lb_id_kunjungan", "value", $data_pasien[kunjungan_id]);
$objResponse->addAssign("lb_id_kwitansi", "value", $idkw);
$objResponse->addAssign("lb_no_rm", "innerHTML", $data_pasien[id_display]);
$objResponse->addAssign("lb_pasien", "innerHTML", $data_pasien[nama]);
$objResponse->addAssign("lb_sex", "innerHTML", $data_pasien[jk]);
$objResponse->addAssign("lb_usia", "innerHTML", $data_pasien[usia]);
$objResponse->addAssign("lb_alamat", "innerHTML", $data_pasien[alamat]);
$objResponse->addAssign("lb_tgl_daftar", "innerHTML", tanggalIndo($data_pasien[tgl_daftar], 'j F Y'));
$objResponse->addAssign("lb_cara_bayar", "innerHTML", $data_pasien[cara_bayar]);
$objResponse->addAssign("lb_nomor", "innerHTML", empty($data_pasien[nomor])?"-":$data_pasien[nomor]);
//BIKIN SESSION UNTUK DICETAK
$_SESSION[igd][langsung_bayar][data_px] = $data_pasien;
$tabel = new Table;
$tabel->cellspacing = "0";
$tabel->scroll = false;
$tabel->extra_table = "style=\"width:9cm;\"";
$tabel->addTh("No", "Jasa", "Biaya");
$tabel->addExtraTh("style=\"width:0.7cm;\"", "style=\"width:6.5cm;\"", "");
//get data karcis
$kon->sql = "
SELECT
kb.nama as nama,
kb.bayar_bhp+kb.bayar_jasa as bayar,
kb.mampu_bayar_bhp+kb.mampu_bayar_jasa as mampu_bayar,
kwd.kwitansi_id as kwitansi_id
FROM
kunjungan_bayar kb
JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
JOIN kunjungan_kamar kk ON (kk.id = kb.kunjungan_kamar_id)
WHERE
kb.karcis_id IS NOT NULL
AND kwd.kwitansi_id = '".$idkw."'
GROUP BY
kb.id
ORDER BY kb.id
";
$kon->execute();
$data_karcis = $kon->getAll();
if(!empty($data_karcis)) {
$tabel->addRow("","<b>Karcis</b>","");
for($i=0;$i<sizeof($data_karcis);$i++) {
$tabel->addRow(
($i+1),
$data_karcis[$i][nama],
uangIndo($data_karcis[$i][bayar])
);
$total += $data_karcis[$i][bayar];
$sudah_dibayar += $data_karcis[$i][mampu_bayar];
//belum bayar
$kurang += $data_karcis[$i][bayar]-$data_karcis[$i][mampu_bayar];
}
}
//get data tindakan
$kon->sql = "
SELECT
kki.nama as nama,
SUM(kb.bayar_jasa) as bayar,
SUM(kb.mampu_bayar_jasa) as mampu_bayar,
kwd.kwitansi_id as kwitansi_id
FROM
kunjungan_kamar_icopim kki
JOIN kunjungan_bayar kb ON (kb.kunjungan_kamar_icopim_id = kki.id)
JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
JOIN kunjungan_kamar kk ON (kk.id = kki.kunjungan_kamar_id)
WHERE
kb.icopim_detil_id IS NOT NULL
AND kwd.kwitansi_id = '".$idkw."'
GROUP BY
kki.id
ORDER BY kki.id
";
$kon->execute();
$data_tindakan = $kon->getAll();
if(!empty($data_tindakan)) {
$tabel->addRow("","<b>Tindakan</b>","");
for($i=0;$i<sizeof($data_tindakan);$i++) {
$tabel->addRow(
($i+1),
$data_tindakan[$i][nama],
uangIndo($data_tindakan[$i][bayar])
);
$total += $data_tindakan[$i][bayar];
$sudah_dibayar += $data_tindakan[$i][mampu_bayar];
//belum bayar
$kurang += $data_tindakan[$i][bayar]-$data_tindakan[$i][mampu_bayar];
}
}
//get data specimen
$kon->sql = "
SELECT
kb.nama as nama,
kb.bayar_bhp+kb.bayar_jasa as bayar,
kb.mampu_bayar_bhp+kb.mampu_bayar_jasa as mampu_bayar,
kwd.kwitansi_id as kwitansi_id
FROM
kunjungan_bayar kb
JOIN lab_kunjungan lk ON (lk.id = kb.lab_kunjungan_id)
JOIN kunjungan_kamar kk ON (kk.id = lk.kunjungan_kamar_id)
JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
WHERE
kb.lab_specimen_id IS NOT NULL
AND kwd.kwitansi_id = '".$idkw."'
GROUP BY
kb.id
ORDER BY kb.id
";
$kon->execute();
$data_specimen = $kon->getAll();
if(!empty($data_specimen)) {
$tabel->addRow("","<b>Pemeriksaan Specimen</b>","");
for($i=0;$i<sizeof($data_specimen);$i++) {
$tabel->addRow(
($i+1),
$data_specimen[$i][nama],
uangIndo($data_specimen[$i][bayar])
);
$total += $data_specimen[$i][bayar];
$sudah_dibayar += $data_specimen[$i][mampu_bayar];
//belum bayar
$kurang += $data_specimen[$i][bayar]-$data_specimen[$i][mampu_bayar];
}
}
//get data radio
$kon->sql = "
SELECT
kb.nama as nama,
kb.bayar_bhp+kb.bayar_jasa as bayar,
kb.mampu_bayar_bhp+kb.mampu_bayar_jasa as mampu_bayar,
kwd.kwitansi_id as kwitansi_id
FROM
kunjungan_bayar kb
JOIN radio_kunjungan lk ON (lk.id = kb.lab_kunjungan_id)
JOIN kunjungan_kamar kk ON (kk.id = lk.kunjungan_kamar_id)
JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
WHERE
kb.radio_specimen_id IS NOT NULL
AND kwd.kwitansi_id = '".$idkw."'
GROUP BY
kb.id
ORDER BY kb.id
";
$kon->execute();
$data_radio = $kon->getAll();
if(!empty($data_radio)) {
$tabel->addRow("","<b>Pemeriksaan Radiologi</b>","");
for($i=0;$i<sizeof($data_radio);$i++) {
$tabel->addRow(
($i+1),
$data_radio[$i][nama],
uangIndo($data_radio[$i][bayar])
);
$total += $data_radio[$i][bayar];
$sudah_dibayar += $data_radio[$i][mampu_bayar];
//belum bayar
$kurang += $data_radio[$i][bayar]-$data_radio[$i][mampu_bayar];
}
}
//get data bhp
$kon->sql = "
SELECT
kb.nama as nama,
kb.bayar_bhp as bayar,
kb.mampu_bayar_bhp as mampu_bayar,
kwd.kwitansi_id as kwitansi_id
FROM
kunjungan_bayar kb
JOIN kunjungan_kamar kk ON (kk.id = kb.kunjungan_kamar_id)
JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
WHERE
kb.bhp_id IS NOT NULL
AND kwd.kwitansi_id = '".$idkw."'
GROUP BY
kb.id
ORDER BY kb.id
";
$kon->execute();
$data_bhp = $kon->getAll();
if(!empty($data_bhp)) {
$tabel->addRow("","<b>Bahan Habis Pakai</b>","");
for($i=0;$i<sizeof($data_bhp);$i++) {
$tabel->addRow(
($i+1),
$data_bhp[$i][nama],
uangIndo($data_bhp[$i][bayar])
);
$total += $data_bhp[$i][bayar];
$sudah_dibayar += $data_bhp[$i][mampu_bayar];
//belum bayar
$kurang += $data_bhp[$i][bayar]-$data_bhp[$i][mampu_bayar];
}
}
//get data kendaraan
$kon->sql = "
SELECT
kkd.nama as nama,
SUM(kb.bayar_bhp+kb.bayar_jasa) as bayar,
SUM(kb.mampu_bayar_bhp+kb.mampu_bayar_jasa) as mampu_bayar,
kwd.kwitansi_id as kwitansi_id
FROM
kunjungan_kendaraan kkd
JOIN kunjungan_bayar kb ON (kb.kunjungan_kendaraan_id = kkd.id)
JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
JOIN kunjungan_kamar kk ON (kk.id = kb.kunjungan_kamar_id)
WHERE
kwd.kwitansi_id = '".$idkw."'
GROUP BY
kkd.id
ORDER BY kkd.id
";
$kon->execute();
$data_kendaraan = $kon->getAll();
if(!empty($data_kendaraan)) {
$tabel->addRow("","<b>Sewa Kendaraan</b>","");
for($i=0;$i<sizeof($data_kendaraan);$i++) {
$tabel->addRow(
($i+1),
$data_kendaraan[$i][nama],
uangIndo($data_kendaraan[$i][bayar])
);
$total += $data_kendaraan[$i][bayar];
$sudah_dibayar += $data_kendaraan[$i][mampu_bayar];
//belum bayar
$kurang += $data_kendaraan[$i][bayar]-$data_kendaraan[$i][mampu_bayar];
}
}
$tabel->addRow("","<b>Total</b>", uangIndo($total));
$tabel_jasa = $tabel->build();
$objResponse->addAssign("lb_list_jasa", "innerHTML", $tabel_jasa);
$objResponse->addAssign("lb_total_display", "value", uangIndo($total));
$objResponse->addAssign("lb_total_display", "title", terbilang($total));
$objResponse->addAssign("lb_sudah_dibayar", "value", $sudah_dibayar);
$objResponse->addAssign("lb_sudah_dibayar_display", "value", uangIndo($sudah_dibayar));
$objResponse->addAssign("lb_sudah_dibayar_display", "title", terbilang($sudah_dibayar));
$objResponse->addAssign("lb_kurang_display", "value", uangIndo($kurang));
$objResponse->addAssign("lb_kurang", "value", $kurang);
$objResponse->addAssign("lb_kurang_display", "title", terbilang($kurang));
$objResponse->addAssign("lb_mampu_bayar", "value", $kurang);
$objResponse->addAssign("mampu_terbilang", "innerHTML", terbilang($kurang));
$objResponse->addScriptCall("disable_mainbar", "#E5E6E1");
$objResponse->addScriptCall("fokus", "lb_mampu_bayar");
//get data kwitansi :
$kon->sql = "
SELECT
CONCAT_WS('-', kw.tempat_pembayaran, kw.id) as no_kwitansi,
kw.bayar as mampu_bayar,
kw.tgl as tgl
FROM
kunjungan_bayar kb
JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
JOIN kwitansi kw ON (kw.id = kwd.kwitansi_id)
JOIN kunjungan_kamar kk ON (kk.id = kb.kunjungan_kamar_id)
WHERE
kw.id = '".$idkw."'
GROUP BY
kw.id
ORDER BY
kw.id
";
$kon->execute();
$data_kw = $kon->getAll();
if($kurang) {
//ada yang belum dibayar
$objResponse->addAssign("lb_simpan", "style.display", "");
}
if(!empty($data_kw)) {
//ada yang sudah dibayar
for($i=0;$i<sizeof($data_kw);$i++) {
$kw .= "<br /><input type=\"button\" name=\"lb_cetak\" id=\"lb_cetak\" value=\"Cetak Kwitansi ".$data_kw[$i][no_kwitansi]."\" class=\"inputan\" onclick=\"cetak_kwitansi('".$data_kw[$i][no_kwitansi]."');\" /> <br /> <em>Rp. ".uangIndo($data_kw[$i][mampu_bayar])." - ".tanggalIndo($data_kw[$i][tgl], "j F Y H:i")."</em><br />";
}
$objResponse->addAssign("fieldset_lb_button_kwitansi", "style.display", "");
$objResponse->addAssign("lb_button_kwitansi", "innerHTML", $kw);
if(!$kurang) $objResponse->addAssign("lb_simpan", "style.display", "none");
} else {
$objResponse->addAssign("fieldset_lb_button_kwitansi", "style.display", "none");
}
return $objResponse;
}
</div>
</div>
<div class="col-md-4">
<div class="note note-warning">
<span style="font-weight:bold;"><i class="icon-truck"></i> Kode Outlet</span>
<span id="outlet_code" class="pull-right"><?php
echo $purchase->dept;
?>
</span>
</div>
</div>
<div class="col-md-3">
<div class="note note-warning">
<span style="font-weight:bold;"><i class="icon-calendar"></i> Tanggal</span>
<span id="tanggal" class="pull-right"><?php
echo tanggalIndo($purchase->date);
?>
</span>
</div>
</div>
</div>
<br/>
<div class="table-responsive">
<table id="example_datatable" class="table table-striped table-bordered table-advance table-hover">
<thead>
<tr>
<th width="50px">No.</th>
<th>Product Code</th>
<th>Product Name</th>
<th width="">Qty</th>
<th>Price</th>
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;
}
public function table_perawatan()
{
$param = $this->input->post();
$data = $this->mlp->get_daftar_perawatan($param);
$table = '';
$i = 1;
foreach ($data as $key => $value) {
$table .= '
<tr>
<td width="50px">' . $i . '</td>
<td>' . tanggalIndo($value->date) . '</td>
<td>' . $value->selling_code . '</td>
<td>' . $value->therapist_name . '</td>
</tr>
';
$i++;
}
echo $table;
}
function list_semua_kunjungan($hal, $pasien_id) {
$paging = new MyPagina;
$paging->hal = $hal;
$paging->rows_on_page = 5;
$sql = "
SELECT
k.id as id_kunjungan,
kk.id as id_kunjungan_kamar,
k.kunjungan_ke as kunjungan_ke,
kk.no_antrian as no_antrian,
CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as no_rm,
p.id as pasien_id,
p.nama as nama,
kmr.nama as kamar,
kk.tgl_periksa as tgl_periksa,
d.nama as nama_dokter
FROM
kunjungan k
JOIN pasien p ON (p.id = k.pasien_id)
JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id)
JOIN kamar kmr ON (kmr.id = kk.kamar_id)
LEFT JOIN dokter d ON (d.id = kk.dokter_id)
WHERE
p.id = '".$pasien_id."'
ORDER BY
kk.id ASC
";
$paging->sql = $sql;
$paging->onclick_func = "xajax_list_semua_kunjungan";
$paging->setOnclickValue($pasien_id);
$paging->get_page_result();
$data = $paging->data;
$no = $paging->start_number();
$navi = $paging->navi();
$objResponse = new xajaxResponse();
//$objResponse->addAssign('debug', 'innerHTML', $sql);
$objResponse->addScriptCall("buka_semua_kunjungan");
$ret .= "<br /><b>No.RM : " . $data[0][no_rm] . "</b>";
$ret .= "<br /><b>Pasien : " . $data[0][nama] . "</b>";
$ret .= "<hr />";
for($i=0;$i<sizeof($data);$i++) {
$ret .= "<table cellpadding=\"0\" cellspacing=\"2\" border=\"0\">";
$ret .= "<tr><td colspan=\"2\"><b>Kunjungan Ke-" . $data[$i][kunjungan_ke] ."</b></td></tr>";
$ret .= "<tr><td style=\"width:150px\">Tanggal Kunjung</td><td>" . tanggalIndo($data[$i][tgl_periksa], "j F Y") . "</td></tr>";
$ret .= "<tr><td>Pelayanan</td><td>" . $data[$i][kamar] . "</td></tr>";
$ret .= "<tr><td>Dokter</td><td>" . $data[$i][nama_dokter] . "</td></tr>";
$ret .= "</table>";
$ret .= "<hr />";
}
$modal = new Modal;
$modal->setNavi($navi);
$modal->setTitle("Daftar Kunjungan");
$modal->setContent($ret);
$modal->setCloseButtonOnclick("tutup_semua_kunjungan()");
$modal_cnt = $modal->build();
//$objResponse->addAssign("list_semua_kunjungan_navi", "innerHTML", $navi);
$objResponse->addAssign("list_semua_kunjungan", "innerHTML", $modal_cnt);
return $objResponse;
}
<td><b>Pasien</b></td> <td>:</td> <td><?=$data[$i][nama]?></td> </tr> <? if($data[$i][dokter]) : ?> <tr> <td><b>Dokter</b></td> <td>:</td> <td><?=$data[$i][dokter]?></td> </tr> <? endif; ?> <? if($data[$i][tgl_periksa]) : ?> <tr> <td><b>Tgl Kunjung</b></td> <td>:</td> <td><?=tanggalIndo($data[$i][tgl_periksa], 'j F Y')?></td> </tr> <? endif; ?> <? if($data[$i][peminjam]) : ?> <tr> <td><b>Peminjam</b></td> <td>:</td> <td><?=$data[$i][peminjam]?></td> </tr> <? endif; ?> <tr> <td><b>Keperluan</b></td> <td>:</td> <td><?=$data[$i][keperluan]?></td> </tr> </table>
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 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;
}
<label class="control-label col-md-3">No. KTP:</label>
<div class="col-md-9">
<p class="form-control-static"><?php
echo @$paramedik->identification_number;
?>
</p>
</div>
</div>
</div>
<!--/span-->
<div class="col-md-6">
<div class="form-group">
<label class="control-label col-md-3">Tanggal Lahir:</label>
<div class="col-md-9">
<p class="form-control-static"><?php
echo tanggalIndo(@$paramedik->born_date);
?>
</p>
</div>
</div>
</div>
<!--/span-->
</div>
<!--/row-->
<div class="row">
<div class="col-md-6">
<div class="form-group">
<label class="control-label col-md-3">No. Telp.:</label>
<div class="col-md-9">
<p class="form-control-static"><?php
echo @$paramedik->phone;
echo @$karyawan->no_ktp;
?>
</p>
</div>
</div>
</div>
<!--/span-->
</div>
<!--/row-->
<div class="row">
<div class="col-md-6">
<div class="form-group">
<label class="control-label col-md-3">Tanggal Lahir:</label>
<div class="col-md-9">
<p class="form-control-static"><?php
echo tanggalIndo(@$karyawan->tgl_lahir);
?>
</p>
</div>
</div>
</div>
<!--/span-->
<div class="col-md-6">
<div class="form-group">
<label class="control-label col-md-3">Compliment:</label>
<div class="col-md-9">
<p class="form-control-static"><?php
if (@$karyawan->compliment == 1) {
echo 'Berhak';
} else {
echo 'Tidak Berhak';
function list_pasien($hal, $id_pekerjaan, $val) {
unset($_SESSION[rekmed][statistik_pasien_semua_pekerjaan][list_pasien]);
/*cek tanggal untuk menghindari 2007-02-31=>mundur 1 hari atw 1 bulan*/
$val[tgl_periksa_tgl_start] = empty($val[tgl_periksa_tgl_start])?"1":$val[tgl_periksa_tgl_start];
$val[tgl_periksa_bln_start] = empty($val[tgl_periksa_bln_start])?"1":$val[tgl_periksa_bln_start];
$val[tgl_periksa_tgl_end] = empty($val[tgl_periksa_tgl_end])?"1":$val[tgl_periksa_tgl_end];
$val[tgl_periksa_bln_end] = empty($val[tgl_periksa_bln_end])?"1":$val[tgl_periksa_bln_end];
$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]));
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 '" . $val[tgl_periksa_thn_start] . $val[tgl_periksa_bln_start] . "' AND '" . $val[tgl_periksa_thn_end] . $val[tgl_periksa_bln_end] . "'";
} else {
$tanggal_awal = tanggalIndo($tgl_start, "Y");
$tanggal_akhir = tanggalIndo($tgl_end, "Y");
$_q = "AND YEAR(p.tgl_daftar) BETWEEN '" . $val[tgl_periksa_thn_start] . "' AND '" . $val[tgl_periksa_thn_end] . "'";
}
$objResponse = new xajaxResponse();
$paging = new MyPagina;
$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 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,
p.tgl_daftar as tgl_daftar,
p.sex as jk,
rp.nama as nama_pekerjaan
FROM
pasien p
JOIN ref_desa des ON (des.id = p.desa_id)
JOIN ref_kecamatan kec ON (kec.id = des.kecamatan_id)
JOIN ref_kabupaten kab ON (kab.id = kec.kabupaten_id)
JOIN ref_propinsi prop ON (prop.id = kab.propinsi_id)
JOIN ref_pekerjaan rp ON (rp.id = p.pekerjaan_id)
WHERE
rp.id = '".$id_pekerjaan."'
$_q
GROUP BY p.id
ORDER BY
p.tgl_daftar
";
//echo $sql;
//$objResponse->addAssign("debug", "innerHTML", $sql);
$paging->onclick_func = "xajax_list_pasien";
$paging->setOnclickValue($id_pekerjaan, "xajax.getFormValues('statistik_pasien_semua_pekerjaan')");
$paging->sql = $sql;
$paging->get_page_result();
$ket_hal = $paging->ket_hal_ini();
$no = $paging->start_number();
$data = $paging->data;
$navi = $paging->navi();
$is_last_page = $paging->is_last_page();
$title = "Daftar Pasien Pasien Dengan Pekerjaan ".$data[0][nama_pekerjaan]. "\nPeriode " . $tanggal_awal . " s.d. " . $tanggal_akhir;
$objResponse->addClear("list_pasien", "style.display");
$atas = "<div style=\"text-align:right;width:100%;\">";
$atas .= "<img src=\"". IMAGES_URL . "printer.gif\" alt=\"Cetak\" onclick=\"cetak('".URL."rekmed/statistik_pasien_semua_pekerjaan_list_pasien_cetak/?hal=".$hal."');\" class=\"printer_button\" />";
$atas .= "<img src=\"". IMAGES_URL . "close.gif\" alt=\"Tutup\" onclick=\"tutup_list_pasien();\" class=\"close_button2\" />";
$atas .= "</div>";
$atas .= "<h3>".nl2br($title)."</h3>";
$atas .= "<div class=\"navi\">" . $navi . "</div>";
$atas .= "<hr />";
for($i=0;$i<sizeof($data);$i++) {
$arr_usia = hitungUmur($data[$i][tgl_lahir], $data[$i][tgl_daftar]);
$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 ";
$ret .= "<table cellpadding=\"0\" cellspacing=\"2\" border=\"0\">";
$ret .= "<tr><td style=\"width:30px;vertical-align:top;\" rowspan=\"6\">".($no+$i).".</td><td style=\"width:150px\">No. RM</td><td>" . $data[$i][id_display] . "</td></tr>";
$ret .= "<tr><td>Nama</td><td>" . $data[$i][nama] . "</td></tr>";
$ret .= "<tr><td>Usia</td><td>" . (empty($usia)?"-":$usia) . "</td></tr>";
$ret .= "<tr><td>Jenis Kelamin</td><td>" . $data[$i][jk] . "</td></tr>";
$ret .= "<tr><td style=\"vertical-align:top;\">Alamat</td><td>" . $data[$i][alamat] . "</td></tr>";
$ret .= "<tr><td>Tgl Daftar</td><td>" . tanggalIndo($data[$i][tgl_daftar], "j F Y") . "</td></tr>";
$ret .= "</table>";
$ret .= "<hr />";
}
$_SESSION[rekmed][statistik_pasien_semua_pekerjaan][list_pasien][is_last_page] = $is_last_page;
$_SESSION[rekmed][statistik_pasien_semua_pekerjaan][list_pasien][title] = $title;
$_SESSION[rekmed][statistik_pasien_semua_pekerjaan][list_pasien][content] = $ret;
$_SESSION[rekmed][statistik_pasien_semua_pekerjaan][list_pasien][ket_hal] = $ket_hal;
$objResponse->addAssign("list_pasien", "innerHTML", $atas.$ret);
return $objResponse;
}
function get_jml_rm() {
$kon = new Konek;
$kon->sql = "
SELECT
kmr.id as id,
kmr.nama as nama,
CASE
WHEN (kk.dokter_id IS NULL) THEN 'Dokter Lain'
ELSE d.nama
END as dokter,
COUNT(kk.id) as jml
FROM
kamar kmr
JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id)
JOIN kunjungan_kamar kk ON (kk.kamar_id = kmr.id)
LEFT JOIN dokter d ON (d.id = kk.dokter_id)
WHERE
DATE(kk.tgl_periksa) = DATE(NOW())
GROUP BY
kmr.id, d.id
ORDER BY
kmr.nama, d.nama
";
$kon->execute();
$data = $kon->getAll();
$objResponse = new xajaxResponse;
for($i=0;$i<sizeof($data);$i++) {
$ret .= "<li>";
if($data[$i][id] != $data[$i-1][id]) {
if($i!=0) $ret .= "<br />";
$ret .= "<b>" . $data[$i][nama] . "</b>";
$ret .= "<br />";
$ret .= " - " . $data[$i][dokter];
$ret .= " : ... ".$data[$i][jml];
} else {
$ret .= " - " . $data[$i][dokter];
$ret .= " : ... ".$data[$i][jml];
}
$ret .= "</li>";
$total += $data[$i][jml];
}
$ret .= "<li><hr /></li>";
$ret .= "<li>TOTAL : ".$total." px</li>";
$objResponse->addAssign("infobar_tgl", "innerHTML", "— " . tanggalIndo(date("Y-m-d"), "l, j F Y") . " —");
// $objResponse->addAssign("infobar_rajal", "innerHTML", "— Pasien Rawat Jalan — ");
$objResponse->addAssign("infobar_jml_pasien_rm", "innerHTML", $ret);
return $objResponse;
}
dashboard">Home</a>
<i class="icon-angle-right"></i>
</li>
<li><a href="<?php
echo base_url($this->module);
?>
">stok_bahan</a><i class="icon-angle-right"></i></li>
<li><a href="<?php
echo base_url($this->cname);
?>
">Retur Internal</a></li>
<li class="pull-right">
<div style="display:block; background-color:#271000 ; color:#fff; margin-right:-30px; padding:10px; top:-10px; position:relative">
<i class="icon-calendar"></i>
<span><?php
echo tanggalIndo(date('Y-m-d'));
?>
</span>
</div>
</li>
</ul>
<!-- END PAGE TITLE & BREADCRUMB-->
</div>
</div>
<!-- END PAGE HEADER-->
<div class="row">
<div class="col-md-12">
<div class="tiles" style="padding:10px; margin-right:0px; background-color:#eee; height:155px">
<div class="tile bg-green" onclick="window.location='<?php
echo base_url($this->cname);
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;
}
