function get_lap_rl1($val) { $objResponse = new xajaxResponse; $kon = new Konek; $sql = " SELECT id, nama as nama_lain FROM pelayanan WHERE jenis = 'RAWAT INAP' "; $kon->sql = $sql; $kon->execute(); $data = $kon->getAll(); $baru = array(); $s = 0; /* I : 1 januari - 31 maret II : 1 april - 30 juni III : 1 juli - 30 september IV : 1 oktober - 31 desember */ switch($val[tw]) { case "I" : $tgl_awal = $val[tahun] . "-01-01"; $tgl_akhir = $val[tahun] . "-03-31"; $tgl_start_bln = 1; break; case "II" : $tgl_awal = $val[tahun] . "-04-01"; $tgl_akhir = $val[tahun] . "-06-30"; $tgl_start_bln = 4; break; case "III" : $tgl_awal = $val[tahun] . "-07-01"; $tgl_akhir = $val[tahun] . "-09-30"; $tgl_start_bln = 7; break; default : $tgl_awal = $val[tahun] . "-10-01"; $tgl_akhir = $val[tahun] . "-12-31"; $tgl_start_bln = 10; break; } $selisih_hari = datediff("d", $tgl_awal, $tgl_akhir); for($i=0;$i<sizeof($data);$i++) { $baru[$i][nama] = $data[$i][nama_lain]; /* get px awal triwulan ~ pasien sisa / pasien yg masih dirawat syarat : tgl masuk < tgl_awal tgl_keluar > tgl_awal */ $kon->sql = " SELECT COUNT(kk.id) as jml FROM kunjungan_kamar kk JOIN kamar kmr ON (kmr.id = kk.kamar_id) JOIN kunjungan k ON (k.id = kk.kunjungan_id) WHERE kmr.pelayanan_id = '".$data[$i][id]."' AND (DATE(kk.tgl_daftar) < '".$tgl_awal."' AND (DATE(kk.tgl_keluar) >= '".$tgl_awal."' OR kk.tgl_keluar IS NULL)) "; $kon->execute(); $px_awal = $kon->getOne(); $baru[$i][px_awal] = $px_awal[jml]; $total[px_awal] += $baru[$i][px_awal]; /* get px masuk ASUMSI SEMENTARA : PASIEN PINDAHAN DIHITUNG syarat : tgl masuk diantara tgl_awal dan tgl_keluar */ $kon->sql = " SELECT COUNT(kk.id) as jml FROM kunjungan_kamar kk JOIN kamar kmr ON (kmr.id = kk.kamar_id) JOIN kunjungan k ON (k.id = kk.kunjungan_id) WHERE kmr.pelayanan_id = '".$data[$i][id]."' AND (DATE(kk.tgl_daftar) BETWEEN '".$tgl_awal."' AND '".$tgl_akhir."') "; $kon->execute(); $px_masuk = $kon->getOne(); $baru[$i][px_masuk] = $px_masuk[jml]; $total[px_masuk] += $baru[$i][px_masuk]; /* get px keluar syarat : tgl keluar diantara tgl_awal dan tgl_keluar dan keadaan keluar = sembuh, belum sembuh */ $kon->sql = " SELECT COUNT(kk.id) as jml, k.keadaan_keluar as keadaan_keluar FROM kunjungan_kamar kk JOIN kamar kmr ON (kmr.id = kk.kamar_id) JOIN kunjungan k ON (k.id = kk.kunjungan_id) WHERE kmr.pelayanan_id = '".$data[$i][id]."' AND (DATE(kk.tgl_keluar) BETWEEN '".$tgl_awal."' AND '".$tgl_akhir."') GROUP BY kk.id "; $kon->execute(); $px_keluar = $kon->getAll(); for($j=0;$j<sizeof($px_keluar);$j++) { switch($px_keluar[$j][keadaan_keluar]) { case "MATI < 48 JAM" : $baru[$i][px_keluar_mati_kurang_dari] += $px_keluar[$j][jml]; break; case "MATI >= 48 JAM" : $baru[$i][px_keluar_mati_lebih_dari] += $px_keluar[$j][jml]; break; default : $baru[$i][px_keluar_hidup] += $px_keluar[$j][jml]; break; } } $total[px_keluar_mati_kurang_dari] += $baru[$i][px_keluar_mati_kurang_dari]; $total[px_keluar_mati_lebih_dari] += $baru[$i][px_keluar_mati_lebih_dari]; $total[px_keluar_hidup] += $baru[$i][px_keluar_hidup]; $baru[$i][px_keluar_mati] = $baru[$i][px_keluar_mati_kurang_dari] + $baru[$i][px_keluar_mati_lebih_dari]; $total[px_keluar_mati] += $baru[$i][px_keluar_mati]; /* get jumlah lama dirawat ~ lamanya seorang pasien dirawat syarat : tgl keluar diantara tgl_awal dan tgl_keluar hitung tgl_keluar-tanggal_daftar cara : cari dulu px yg keluar pada tw tsb hitung tgl_keluar-tanggal_daftar jika tgl_keluar = tgl_daftar -> dihitung 1 hari lama dirawat */ $kon->sql = " SELECT kk.id as kkid, CASE WHEN (DATE(kk.tgl_daftar) = DATE(kk.tgl_keluar)) THEN 1 ELSE DATEDIFF(kk.tgl_keluar, kk.tgl_daftar) END as jml FROM kunjungan_kamar kk JOIN kamar kmr ON (kmr.id = kk.kamar_id) WHERE kmr.pelayanan_id = '".$data[$i][id]."' AND (DATE(kk.tgl_keluar) BETWEEN '".$tgl_awal."' AND '".$tgl_akhir."') GROUP BY kk.id "; $kon->execute(); $ld = $kon->getAll(); for($j=0;$j<sizeof($ld);$j++) { $baru[$i][lama_dirawat] += $ld[$j][jml]; } $total[lama_dirawat] += $baru[$i][lama_dirawat]; /* get px akhir triwulan ~ pasien sisa / pasien yg masih dirawat syarat : tgl masuk < tgl_akhir tgl_keluar > tgl_akhir */ $kon->sql = " SELECT COUNT(kk.id) as jml FROM kunjungan_kamar kk JOIN kamar kmr ON (kmr.id = kk.kamar_id) JOIN kunjungan k ON (k.id = kk.kunjungan_id) WHERE kmr.pelayanan_id = '".$data[$i][id]."' AND (DATE(kk.tgl_daftar) < '".$tgl_akhir."' AND (DATE(kk.tgl_keluar) > '".$tgl_akhir."' OR kk.tgl_keluar IS NULL)) "; $kon->execute(); $px_akhir = $kon->getOne(); $baru[$i][px_akhir] = $px_akhir[jml]; $total[px_akhir] += $baru[$i][px_akhir]; /* get jumlah hari perawatan ~ pasien sisa per hari sampe sini */ //sampe sini 7/4/2007 for($j=0;$j<=$selisih_hari;$j++) { $tgl = @date("Y-m-d", @mktime(1, 1, 1, $tgl_start_bln, ($j+1), $val[tahun])); $kon->sql = " SELECT COUNT(kk.id) as jml, kmr.kelas as kelas FROM kunjungan_kamar kk JOIN kamar kmr ON (kmr.id = kk.kamar_id) JOIN kunjungan k ON (k.id = kk.kunjungan_id) WHERE kmr.pelayanan_id = '".$data[$i][id]."' AND (DATE(kk.tgl_daftar) <= '".$tgl."' AND (DATE(kk.tgl_keluar) > '".$tgl."' OR kk.tgl_keluar IS NULL)) GROUP BY kmr.kelas "; $kon->execute(); $px_hari_ini[$j] = $kon->getAll(); for($k=0;$k<sizeof($px_hari_ini[$j]);$k++) { switch($px_hari_ini[$j][$k][kelas]) { case "I" : $baru[$i][hp_kelas_i] += $px_hari_ini[$j][$k][jml]; break; case "II" : $baru[$i][hp_kelas_ii] += $px_hari_ini[$j][$k][jml]; break; case "III" : $baru[$i][hp_kelas_iii] += $px_hari_ini[$j][$k][jml]; break; case "VIP" : $baru[$i][hp_kelas_vip] += $px_hari_ini[$j][$k][jml]; break; default : $baru[$i][hp_kelas_tanpa_kelas] += $px_hari_ini[$j][$k][jml]; break; } } } $total[hp_kelas_i] += $baru[$i][hp_kelas_i]; $total[hp_kelas_ii] += $baru[$i][hp_kelas_ii]; $total[hp_kelas_iii] += $baru[$i][hp_kelas_iii]; $total[hp_kelas_vip] += $baru[$i][hp_kelas_vip]; $total[hp_kelas_tanpa_kelas] += $baru[$i][hp_kelas_tanpa_kelas]; $baru[$i][hp_total] +=$baru[$i][hp_kelas_i] + $baru[$i][hp_kelas_ii] + $baru[$i][hp_kelas_iii] + $baru[$i][hp_kelas_vip] + $baru[$i][hp_kelas_tanpa_kelas]; $total[hp_total] += $baru[$i][hp_total]; } $tabel_all = new Table; $tabel_all->scroll = false; $tabel_all->extra_table = "style=\"width:27cm;margin:0\""; $tabel_all->cellspacing="0"; $tabel_all->css_table=""; $tabel_all->anime_bg_color=""; $tabel_header = new Table; $tabel_header->scroll = false; $tabel_header->extra_tr_th = ""; $tabel_header->cellspacing="0"; $tabel_header->css_table=""; $tabel_header->anime_bg_color=""; $tabel_header->extra_table = "style=\"width:27cm;border:0;\""; $tabel_header->addTh("","DATA KEGIATAN RUMAH SAKIT<br />TRIWULAN : ".$val[tw]."<br />TAHUN : ".$val[tahun].""); //$tabel_header->addExtraTh("colspan=\"3\""); $tabel_header->addRow("","","Formulir RL1"); //$tabel_header->addExtraTh(); $tabel_header->addRow($_SESSION[setting][rs_nama], "", "No. Kode RS : " . $_SESSION[setting][rs_kode]); //$tabel_header->addExtraTh("colspan=\"3\""); $tabel_isi = new Table; $tabel_isi->scroll = false; $tabel_isi->cellspacing="0"; $tabel_isi->extra_table = "style=\"width:27cm;font-size:7pt;\""; $tabel_header->css_table=""; $tabel_isi->addTh( "No.", "JENIS PELAYANAN", "Pasien<br />Awal<br />Triwulan", "Pasien<br />Masuk", "Pasien<br />Keluar<br />Hidup", "Pasien Keluar Mati", "Jumlah<br />Lama<br />Dirawat", "Pasien<br />Akhir<br />Triwulan", "Jumlah<br />Hari Pe-<br />rawatan", "Rincian Hari Perawatan per Kelas", "No." ); $tabel_isi->addExtraTh( "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "colspan=\"3\"", "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "colspan=\"5\"", "rowspan=\"2\"" ); $tabel_isi->addTh("< 48 jam", "≥ 48 jam", "jumlah", "Kelas<br />Utama", "Kelas I", "Kelas II", "Kelas III", "Tanpa<br />Kelas"); $tabel_isi->addTh("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17"); for($i=0;$i<sizeof($baru);$i++) { $tabel_isi->addRow( ($i+1), $baru[$i][nama], $baru[$i][px_awal], $baru[$i][px_masuk], $baru[$i][px_keluar_hidup], $baru[$i][px_keluar_mati_kurang_dari], $baru[$i][px_keluar_mati_lebih_dari], $baru[$i][px_keluar_mati], $baru[$i][lama_dirawat], $baru[$i][px_akhir], $baru[$i][hp_total], $baru[$i][hp_kelas_vip], $baru[$i][hp_kelas_i], $baru[$i][hp_kelas_ii], $baru[$i][hp_kelas_iii], $baru[$i][hp_kelas_tanpa_kelas], ($i+1) ); } $tabel_isi->addRow( 99, "TOTAL", $total[px_awal], $total[px_masuk], $total[px_keluar_hidup], $total[px_keluar_mati_kurang_dari], $total[px_keluar_mati_lebih_dari], $total[px_keluar_mati], $total[lama_dirawat], $total[px_akhir], $total[hp_total], $total[hp_kelas_vip], $total[hp_kelas_i], $total[hp_kelas_ii], $total[hp_kelas_iii], $total[hp_kelas_tanpa_kelas], 99 ); $ret_tabel_header = $tabel_header->build(); $ret_tabel_isi = $tabel_isi->build(); $tabel_all->addRow($ret_tabel_header); $tabel_all->addRow($ret_tabel_isi); $ret = $tabel_all->build(); unset($_SESSION[rekmed][lap_rl1]); $cetak = new Cetak; $tanda_tangan = $cetak->setTandaTangan(); $ret .= $tanda_tangan; $_SESSION[rekmed][lap_rl1] = $ret; $objResponse->addAssign("list_data", "innerHTML", $ret); return $objResponse; }
function get_lap_rl2a($val) { $objResponse = new xajaxResponse; $dtd = array('292.0','292.2','292.4','292.6','292.8'); $dtd_kecuali = implode("','", $dtd); switch($val[tw]) { case "IV" : $s = " AND kk.tgl_keluar BETWEEN '".$val[tahun]."-10-01' AND '".$val[tahun]."-12-31'"; break; case "III" : $s = " AND kk.tgl_keluar BETWEEN '".$val[tahun]."-07-01' AND '".$val[tahun]."-09-30'"; break; case "II" : $s = " AND kk.tgl_keluar BETWEEN '".$val[tahun]."-04-01' AND '".$val[tahun]."-06-30'"; break; default : $s = " AND kk.tgl_keluar BETWEEN '".$val[tahun]."-01-01' AND '".$val[tahun]."-03-31'"; break; } $kon = new Konek; $sql = " SELECT i.no_dtd as no_dtd, i.kode_icd as kode_icd, i.gol_sebab_sakit as gol_sebab_sakit, p.tgl_lahir as tgl_lahir, kk.tgl_keluar as tgl_keluar, p.sex as sex, k.keadaan_keluar as keadaan_keluar FROM kunjungan_kamar kk JOIN kunjungan k ON (k.id = kk.kunjungan_id) JOIN pasien p ON (p.id = k.pasien_id) JOIN kamar kmr ON (kmr.id = kk.kamar_id) JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id) JOIN icd i ON (i.id = kk.diagnosa_utama_id) WHERE kk.tgl_keluar IS NOT NULL AND pel.jenis = 'RAWAT INAP' AND kk.kelanjutan IN ('DIRUJUK', 'PULANG') AND i.no_dtd NOT IN ('" . $dtd_kecuali . "') $s ORDER BY i.no_dtd "; //$objResponse->addAssign("debug", "innerHTML", $sql); $kon->sql = $sql; $kon->execute(); $data = $kon->getAll(); $baru = array(); $s = 0; for($i=0;$i<sizeof($data);$i++) { $umur = hitungUmur($data[$i][tgl_lahir], $data[$i][tgl_keluar]); $umur_tahun = $umur[tahun]; $umur_hari = $umur[hari]; if($data[$i][no_dtd] == $data[$i-1][no_dtd]) { //bikin anak //nggabungin kode icd if($baru[$s][kode_icd] != $data[$i][kode_icd]) $baru[$s][kode_icd] = $baru[$s][kode_icd] . ", " . $data[$i][kode_icd]; if($umur[tahun] > 64) { $baru[$s]['nam_lima'] += 1; $total['nam_lima'] += 1; } elseif ($umur[tahun] > 44) { $baru[$s]['pat_lima'] += 1; $total['pat_lima'] += 1; } elseif ($umur[tahun] > 24) { $baru[$s]['dua_lima'] += 1; $total['dua_lima'] += 1; } elseif ($umur[tahun] > 14) { $baru[$s]['lima_belas'] += 1; $total['lima_belas'] += 1; } elseif ($umur[tahun] > 4) { $baru[$s]['lima'] += 1; $total['lima'] += 1; } elseif ($umur[tahun] >=1) { $baru[$s]['satu'] += 1; $total['satu'] += 1; } elseif ($umur[hari] > 27) { $baru[$s]['dua_lapan'] += 1; $total['dua_lapan'] += 1; } else { $baru[$s]['nol'] += 1; $total['nol'] += 1; } //sex if($data[$i][sex] == "LAKI-LAKI") { $baru[$s][sex_laki] += 1; $total['sex_laki'] += 1; $total['total'] += 1; } else { $baru[$s][sex_prp] += 1; $total['sex_prp'] += 1; $total['total'] += 1; } if($data[$i][keadaan_keluar] == "MATI < 48 JAM" || $data[$i][keadaan_keluar] == "MATI >= 48 JAM") { $baru[$s][mati] += 1; $total['mati'] += 1; } $baru[$s][total] = $baru[$s][sex_prp] + $baru[$s][sex_laki]; } else { //bikin embok if($i!=0) { $s++; } $baru[$s][no_dtd] = $data[$i][no_dtd]; $baru[$s][kode_icd] = $data[$i][kode_icd]; $baru[$s][gol_sebab_sakit] = $data[$i][gol_sebab_sakit]; $baru[$s][tgl_lahir] = $data[$i][tgl_lahir]; $baru[$s][tgl_keluar] = $data[$i][tgl_keluar]; if($umur[tahun] > 64) { $baru[$s]['nam_lima'] = 1; $total['nam_lima'] += 1; } elseif ($umur[tahun] > 44) { $baru[$s]['pat_lima'] = 1; $total['pat_lima'] += 1; } elseif ($umur[tahun] > 24) { $baru[$s]['dua_lima'] = 1; $total['dua_lima'] += 1; } elseif ($umur[tahun] > 14) { $baru[$s]['lima_belas'] = 1; $total['lima_belas'] += 1; } elseif ($umur[tahun] > 4) { $baru[$s]['lima'] = 1; $total['lima'] += 1; } elseif ($umur[tahun] >=1) { $baru[$s]['satu'] = 1; $total['satu'] += 1; } elseif ($umur[hari] > 27) { $baru[$s]['dua_lapan'] = 1; $total['dua_lapan'] += 1; } else { $baru[$s]['nol'] = 1; $total['nol'] += 1; } //sex if($data[$i][sex] == "LAKI-LAKI") { $baru[$s][sex_laki] = 1; $total['sex_laki'] += 1; $total['total'] += 1; } else { $baru[$s][sex_prp] = 1; $total['sex_prp'] += 1; $total['total'] += 1; } if($data[$i][keadaan_keluar] == "MATI < 48 JAM" || $data[$i][keadaan_keluar] == "MATI >= 48 JAM") { $baru[$s][mati] = 1; $total['mati'] += 1; } $baru[$s][total] = $baru[$s][sex_prp] + $baru[$s][sex_laki]; } } $tabel_all = new Table; $tabel_all->scroll = false; $tabel_all->extra_table = "style=\"width:21.5cm;margin:0\""; $tabel_all->cellspacing="0"; $tabel_all->css_table=""; $tabel_all->anime_bg_color=""; $tabel_header = new Table; $tabel_header->scroll = false; $tabel_header->extra_tr_th = ""; $tabel_header->cellspacing="0"; $tabel_header->css_table=""; $tabel_header->anime_bg_color=""; $tabel_header->extra_table = "style=\"width:20cm;border:0;\""; $tabel_header->addTh("","DATA KEADAAN MORBIDITAS PASIEN RAWAT INAP RUMAH SAKIT<br />TRIWULAN : ".$val[tw]." TAHUN : ".$val[tahun],""); //$tabel_header->addExtraTh("colspan=\"3\""); $tabel_header->addRow("","","Formulir RL2a"); //$tabel_header->addExtraTh(); $tabel_header->addRow($_SESSION[setting][rs_nama], "", "No. Kode RS : " . $_SESSION[setting][rs_kode]); //$tabel_header->addExtraTh("colspan=\"3\""); $tabel_isi = new Table; $tabel_isi->scroll = false; $tabel_isi->cellspacing="0"; $tabel_isi->extra_table = "style=\"width:20cm;font-size:7pt;\""; $tabel_header->css_table=""; $tabel_isi->addTh( "NO. URUT", "NO. DTD", "NO. DAFTAR TERPERINCI", "GOLONGAN SEBAB-SEBAB SAKIT", "PASIEN KELUAR (HIDUP & MATI) MENURUT GOLONGAN UMUR", "PASIEN KELUAR (HIDUP & MATI) MENURUT SEX", "JUMLAH PASIEN KELUAR <br />(13 + 14)", "JUMLAH PASIEN KELUAR MATI" ); $tabel_isi->addExtraTh("rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "colspan=\"8\"", "colspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\""); $tabel_isi->addTh("0-28 HR", "28 HR - <1 TH", "1-4 TH", "5-14 TH", "15-24 TH", "25-44 TH", "45-64 TH", "65+ TH", "LK", "PR"); $tabel_isi->addTh("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16"); for($i=0;$i<sizeof($baru);$i++) { $tabel_isi->addRow( ($i+1), $baru[$i][no_dtd], $baru[$i][kode_icd], $baru[$i][gol_sebab_sakit], $baru[$i][nol], $baru[$i][dua_lapan], $baru[$i][satu], $baru[$i][lima], $baru[$i][lima_belas], $baru[$i][dua_lima], $baru[$i][pat_lima], $baru[$i][nam_lima], $baru[$i][sex_laki], $baru[$i][sex_prp], $baru[$i][total], $baru[$i][mati] ); } $tabel_isi->addRow( "","","","Total", $total[nol], $total[dua_lapan], $total[satu], $total[lima], $total[lima_belas], $total[dua_lima], $total[pat_lima], $total[nam_lima], $total[sex_laki], $total[sex_prp], $total[total], $total[mati] ); $ret_tabel_header = $tabel_header->build(); $ret_tabel_isi = $tabel_isi->build(); $tabel_all->addRow($ret_tabel_header); $tabel_all->addRow($ret_tabel_isi); $ret = $tabel_all->build(); unset($_SESSION[rekmed][lap_rl2a]); $cetak = new Cetak; $tanda_tangan = $cetak->setTandaTangan(); $ret .= $tanda_tangan; $_SESSION[rekmed][lap_rl2a] = $ret; $objResponse->addAssign("list_data", "innerHTML", $ret); return $objResponse; }
function get_lap_rl2b1($val) { $objResponse = new xajaxResponse; $kon = new Konek; $sql = " SELECT MIN(kk.id), i.id as icd_id, i.no_dtd as no_dtd, i.kode_icd as kode_icd, i.gol_sebab_sakit as gol_sebab_sakit, p.tgl_lahir as tgl_lahir, kk.tgl_keluar as tgl_keluar, p.sex as sex, k.keadaan_keluar as keadaan_keluar, p.id as pasien_id FROM kunjungan_kamar kk JOIN kunjungan k ON (k.id = kk.kunjungan_id) JOIN pasien p ON (p.id = k.pasien_id) JOIN kamar kmr ON (kmr.id = kk.kamar_id) JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id) JOIN icd i ON (i.id = kk.diagnosa_utama_id) WHERE kk.tgl_keluar IS NOT NULL AND pel.jenis = 'RAWAT JALAN' AND kk.kelanjutan IN ('DIRUJUK', 'PULANG') AND EXTRACT(YEAR_MONTH FROM kk.tgl_periksa) = EXTRACT(YEAR_MONTH FROM '".$val[tahun]."-".$val[bulan]."-01') GROUP BY kk.id ORDER BY i.id, p.id "; //$objResponse->addAssign("debug", "innerHTML", $sql); $kon->sql = $sql; $kon->execute(); $data = $kon->getAll(); $baru = array(); $s = 0; for($i=0;$i<sizeof($data);$i++) { $umur = hitungUmur($data[$i][tgl_lahir], $data[$i][tgl_keluar]); $umur_tahun = $umur[tahun]; $umur_hari = $umur[hari]; if($data[$i][no_dtd] == $data[$i-1][no_dtd]) { //bikin anak //nggabungin kode icd $baru[$s][jml_kjg] += 1; $total[jml_kjg] += 1; if($baru[$s][kode_icd] != $data[$i][kode_icd]) $baru[$s][kode_icd] = $baru[$s][kode_icd] . ", " . $data[$i][kode_icd]; if($data[$s][pasien_id] != $data[$i][pasien_id]) { /* kasus lama, cuma nambah jumlah kunjungan pada kolom 16 */ if($umur[tahun] > 64) { $baru[$s]['nam_lima'] += 1; $total['nam_lima'] += 1; } elseif ($umur[tahun] > 44) { $baru[$s]['pat_lima'] += 1; $total['pat_lima'] += 1; } elseif ($umur[tahun] > 24) { $baru[$s]['dua_lima'] += 1; $total['dua_lima'] += 1; } elseif ($umur[tahun] > 14) { $baru[$s]['lima_belas'] += 1; $total['lima_belas'] += 1; } elseif ($umur[tahun] > 4) { $baru[$s]['lima'] += 1; $total['lima'] += 1; } elseif ($umur[tahun] >=1) { $baru[$s]['satu'] += 1; $total['satu'] += 1; } elseif ($umur[hari] > 27) { $baru[$s]['dua_lapan'] += 1; $total['dua_lapan'] += 1; } else { $baru[$s]['nol'] += 1; $total['nol'] += 1; } //sex if($data[$i][sex] == "LAKI-LAKI") { $baru[$s][sex_laki] += 1; $total['sex_laki'] += 1; $total['total'] += 1; } else { $baru[$s][sex_prp] += 1; $total['sex_prp'] += 1; $total['total'] += 1; } $baru[$s][total] = $baru[$s][sex_prp] + $baru[$s][sex_laki]; } } else { //bikin embok if($i!=0) { $s++; } $baru[$s][pasien_id] = $data[$i][pasien_id]; $baru[$s][no_dtd] = $data[$i][no_dtd]; $baru[$s][kode_icd] = $data[$i][kode_icd]; $baru[$s][gol_sebab_sakit] = $data[$i][gol_sebab_sakit]; $baru[$s][tgl_lahir] = $data[$i][tgl_lahir]; $baru[$s][tgl_keluar] = $data[$i][tgl_keluar]; if($umur[tahun] > 64) { $baru[$s]['nam_lima'] = 1; $total['nam_lima'] += 1; } elseif ($umur[tahun] > 44) { $baru[$s]['pat_lima'] = 1; $total['pat_lima'] += 1; } elseif ($umur[tahun] > 24) { $baru[$s]['dua_lima'] = 1; $total['dua_lima'] += 1; } elseif ($umur[tahun] > 14) { $baru[$s]['lima_belas'] = 1; $total['lima_belas'] += 1; } elseif ($umur[tahun] > 4) { $baru[$s]['lima'] = 1; $total['lima'] += 1; } elseif ($umur[tahun] >=1) { $baru[$s]['satu'] = 1; $total['satu'] += 1; } elseif ($umur[hari] > 27) { $baru[$s]['dua_lapan'] = 1; $total['dua_lapan'] += 1; } else { $baru[$s]['nol'] = 1; $total['nol'] += 1; } //sex if($data[$i][sex] == "LAKI-LAKI") { $baru[$s][sex_laki] = 1; $total['sex_laki'] += 1; $total['total'] += 1; } else { $baru[$s][sex_prp] = 1; $total['sex_prp'] += 1; $total['total'] += 1; } $baru[$s][total] = $baru[$s][sex_prp] + $baru[$s][sex_laki]; $baru[$s][jml_kjg] = 1; $total[jml_kjg] += 1; } } $tabel_all = new Table; $tabel_all->scroll = false; $tabel_all->extra_table = "style=\"width:27cm;margin:0\""; $tabel_all->cellspacing="0"; $tabel_all->css_table=""; $tabel_all->anime_bg_color=""; $tabel_header = new Table; $tabel_header->scroll = false; $tabel_header->extra_tr_th = ""; $tabel_header->cellspacing="0"; $tabel_header->css_table=""; $tabel_header->anime_bg_color=""; $tabel_header->extra_table = "style=\"width:27cm;border:0;\""; $tabel_header->addTh("","DATA KEADAAN MORBIDITAS RAWAT JALAN SURVEILANS TERPADU RUMAH SAKIT<br />BULAN : ".bulanIndo($val[bulan], "F")."<br />TAHUN : ".$val[tahun],""); //$tabel_header->addExtraTh("colspan=\"3\""); $tabel_header->addRow("","","Formulir RL2b1"); //$tabel_header->addExtraTh(); $tabel_header->addRow($_SESSION[setting][rs_nama], "", "No. Kode RS : " . $_SESSION[setting][rs_kode]); //$tabel_header->addExtraTh("colspan=\"3\""); $tabel_isi = new Table; $tabel_isi->scroll = false; $tabel_isi->cellspacing="0"; $tabel_isi->extra_table = "style=\"width:27cm;font-size:7pt;\""; $tabel_header->css_table=""; $tabel_isi->addTh( "NO. URUT", "NO. DTD", "NO. DAFTAR TERPERINCI", "GOLONGAN SEBAB-SEBAB SAKIT", "KASUS BARU MENURUT GOLONGAN UMUR", "KASUS BARU MENURUT SEX", "JUMLAH KASUS BARU<br />(13 + 14)", "JUMLAH KUNJUNGAN" ); $tabel_isi->addExtraTh("rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\"", "colspan=\"8\"", "colspan=\"2\"", "rowspan=\"2\"", "rowspan=\"2\""); $tabel_isi->addTh("0-28 HR", "28 HR - <1 TH", "1-4 TH", "5-14 TH", "15-24 TH", "25-44 TH", "45-64 TH", "65+ TH", "LK", "PR"); $tabel_isi->addTh("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16"); for($i=0;$i<sizeof($baru);$i++) { $tabel_isi->addRow( ($i+1), $baru[$i][no_dtd], $baru[$i][kode_icd], $baru[$i][gol_sebab_sakit], $baru[$i][nol], $baru[$i][dua_lapan], $baru[$i][satu], $baru[$i][lima], $baru[$i][lima_belas], $baru[$i][dua_lima], $baru[$i][pat_lima], $baru[$i][nam_lima], $baru[$i][sex_laki], $baru[$i][sex_prp], $baru[$i][total], $baru[$i][jml_kjg] ); } $tabel_isi->addRow( "","","","Total", $total[nol], $total[dua_lapan], $total[satu], $total[lima], $total[lima_belas], $total[dua_lima], $total[pat_lima], $total[nam_lima], $total[sex_laki], $total[sex_prp], $total[total], $total[jml_kjg] ); $ret_tabel_header = $tabel_header->build(); $ret_tabel_isi = $tabel_isi->build(); $tabel_all->addRow($ret_tabel_header); $tabel_all->addRow($ret_tabel_isi); $ret = $tabel_all->build(); unset($_SESSION[rekmed][lap_rl2b1]); $cetak = new Cetak; $tanda_tangan = $cetak->setTandaTangan(); $ret .= $tanda_tangan; $_SESSION[rekmed][lap_rl2b1] = $ret; $objResponse->addAssign("list_data", "innerHTML", $ret); return $objResponse; }