<? $_TITLE = "Rata-rata Jumlah Pasien Kunjungan Poliklinik per Dokter"; $cetak = new Cetak; $cetak->layout = "landscape"; $cetak->page_one = 5; $cetak->page_other = 10; $cetak->addThFromArray($_SESSION[rekmed][rekap_kunjungan_rajal_per_dokter][th_0]); $cetak->addThFromArray($_SESSION[rekmed][rekap_kunjungan_rajal_per_dokter][th_1]); $cetak->addLastRowFromArray($_SESSION[rekmed][rekap_kunjungan_rajal_per_dokter][last_row]); $cetak->addRowFromArray($_SESSION[rekmed][rekap_kunjungan_rajal_per_dokter][row]); $cetak->setSubTitle(nl2br($_SESSION[rekmed][rekap_kunjungan_rajal_per_dokter][title])); $cetak->setContentBefore($_SESSION[rekmed][rekap_kunjungan_rajal_per_dokter][graph]); $ret = $cetak->build(); ?>
<?
$_TITLE = "Data Sepuluh Besar Penyakit IGD";
$judul = nl2br($_SESSION[rekmed][statistik_penyakit_igd][title]);
$cetak = new Cetak;
$cetak->page_one = 15;
$cetak->page_other = 30;
$cetak->addTh("No", "Kode ICD", "Diagnosa", "Kasus", "%");
$cetak->addTh("1", "2", "3", "4", "5");
$cetak->setSubTitle($judul);
$cetak->setContentBefore($_SESSION[rekmed][statistik_penyakit_igd][graph]);
$cetak->addLastRow("", "<b>Total</b>", "", $_SESSION[rekmed][statistik_penyakit_igd][total],$_SESSION[rekmed][statistik_penyakit_igd][persen_total]);
$ret = $cetak->build($_SESSION[rekmed][statistik_penyakit_igd][no], $_SESSION[rekmed][statistik_penyakit_igd][kode], $_SESSION[rekmed][statistik_penyakit_igd][nama], $_SESSION[rekmed][statistik_penyakit_igd][jml], $_SESSION[rekmed][statistik_penyakit_igd][persen]);
?>
<? $_TITLE = "Distribusi Pasien Menurut Pekerjaan"; $cetak = new Cetak; $cetak->setSubTitle(nl2br($_SESSION[rekmed][statistik_pasien_semua_pekerjaan][list_pasien][title])); $ret = $cetak->buildPage($_SESSION[rekmed][statistik_pasien_semua_pekerjaan][list_pasien][content], false, $_SESSION[rekmed][statistik_pasien_semua_pekerjaan][list_pasien][is_last_page], false, $_SESSION[rekmed][statistik_pasien_semua_pekerjaan][list_pasien][ket_hal]); ?>
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_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;
}
<? $_TITLE = "Statistik Kunjungan Laboratorium"; $cetak = new Cetak; $cetak->layout = "landscape"; $cetak->page_one = 5; $cetak->page_other = 10; $cetak->addThFromArray($_SESSION[radio][statistik_kunjungan_semua_cara_masuk][th_0]); $cetak->addExtraThFromArray($_SESSION[radio][statistik_kunjungan_semua_cara_masuk][extra_th_0]); $cetak->addThFromArray($_SESSION[radio][statistik_kunjungan_semua_cara_masuk][th_1]); $cetak->addLastRowFromArray($_SESSION[radio][statistik_kunjungan_semua_cara_masuk][row]); //$cetak->addRowFromArray($_SESSION[radio][statistik_kunjungan_semua_cara_masuk][row]); $cetak->setSubTitle(nl2br($_SESSION[radio][statistik_kunjungan_semua_cara_masuk][title])); $cetak->setContentBefore($_SESSION[radio][statistik_kunjungan_semua_cara_masuk][graph]); $ret = $cetak->build(); ?>
<? $_TITLE = "Pasien Penderita"; $cetak = new Cetak; $cetak->setSubTitle(nl2br($_SESSION[rekmed][statistik_penyakit_daerah][list_pasien][cetak][title])); $ret = $cetak->buildPage($_SESSION[rekmed][statistik_penyakit_daerah][list_pasien][cetak][content], false, $_SESSION[rekmed][statistik_penyakit_daerah][list_pasien][cetak][is_last_page], false, $_SESSION[rekmed][statistik_penyakit_daerah][list_pasien][cetak][ket_hal]); ?>
<?
$_TITLE = "Statistik Kunjungan Berdasar Cara Masuk";
$judul = nl2br($_SESSION[rekmed][statistik_kunjungan_semua_cara_masuk][title]);
$cetak = new Cetak;
$cetak->page_one = 20;
$cetak->page_other = 30;
$cetak->addTh("No", "Cara Masuk", "Jumlah", "%");
$cetak->addTh("1", "2", "3", "4");
$cetak->setSubTitle($judul);
$cetak->setContentBefore($_SESSION[rekmed][statistik_kunjungan_semua_cara_masuk][graph]);
$cetak->addLastRow("", "<b>Total</b>", $_SESSION[rekmed][statistik_kunjungan_semua_cara_masuk][total],$_SESSION[rekmed][statistik_kunjungan_semua_cara_masuk][persen_total]);
$ret = $cetak->build($_SESSION[rekmed][statistik_kunjungan_semua_cara_masuk][no], $_SESSION[rekmed][statistik_kunjungan_semua_cara_masuk][nama], $_SESSION[rekmed][statistik_kunjungan_semua_cara_masuk][jml], $_SESSION[rekmed][statistik_kunjungan_semua_cara_masuk][persen]);
?>
<?
$_TITLE = "Distribusi Pasien Menurut Golongan Umur";
$judul = nl2br($_SESSION[rekmed][statistik_pasien_semua_umur][title]);
$cetak = new Cetak;
$cetak->page_one = 20;
$cetak->page_other = 30;
$cetak->addTh("No", "Golongan Umur", "Jumlah", "%");
$cetak->addTh("1", "2", "3", "4");
$cetak->setSubTitle($judul);
$cetak->setContentBefore($_SESSION[rekmed][statistik_pasien_semua_umur][graph]);
$cetak->addLastRow("", "<b>Total</b>", $_SESSION[rekmed][statistik_pasien_semua_umur][total],$_SESSION[rekmed][statistik_pasien_semua_umur][persen_total]);
$ret = $cetak->build($_SESSION[rekmed][statistik_pasien_semua_umur][no], $_SESSION[rekmed][statistik_pasien_semua_umur][nama], $_SESSION[rekmed][statistik_pasien_semua_umur][jml], $_SESSION[rekmed][statistik_pasien_semua_umur][persen]);
?>
<? $_TITLE = "Rekapitulasi Jumlah Cara Pembayaran di Unit Rawat Inap"; $cetak = new Cetak; $cetak->layout = "landscape"; $cetak->page_one = 5; $cetak->page_other = 10; $cetak->addThFromArray($_SESSION[rekmed][rekap_kunjungan_ranap_per_cara_bayar][th_0]); $cetak->addThFromArray($_SESSION[rekmed][rekap_kunjungan_ranap_per_cara_bayar][th_1]); $cetak->addRowFromArray($_SESSION[rekmed][rekap_kunjungan_ranap_per_cara_bayar][row]); $cetak->setSubTitle(nl2br($_SESSION[rekmed][rekap_kunjungan_ranap_per_cara_bayar][title])); $cetak->setContentBefore($_SESSION[rekmed][rekap_kunjungan_ranap_per_cara_bayar][graph]); $ret = $cetak->build(); ?>
<? $_TITLE = "Performance Rumah Sakit"; $cetak = new Cetak; $cetak->page_one = 10; $cetak->page_other = 10; $cetak->addThFromArray($_SESSION[rekmed][performance][th_0]); $cetak->addRowFromArray($_SESSION[rekmed][performance][row]); $cetak->setSubTitle(nl2br($_SESSION[rekmed][performance][title])); $cetak->setContentBefore($_SESSION[rekmed][performance][graph_resize]); $ret = $cetak->build(); ?>
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;
}
<? $_TITLE = "Statistik Perkembangan Penyakit"; $cetak = new Cetak; $cetak->layout = "landscape"; $cetak->page_one = 5; $cetak->page_other = 10; $cetak->addThFromArray($_SESSION[rekmed][statistik_perkembangan_penyakit][th_0]); $cetak->addThFromArray($_SESSION[rekmed][statistik_perkembangan_penyakit][th_1]); $cetak->addRowFromArray($_SESSION[rekmed][statistik_perkembangan_penyakit][row]); $cetak->setSubTitle(nl2br($_SESSION[rekmed][statistik_perkembangan_penyakit][title])); $cetak->setContentBefore($_SESSION[rekmed][statistik_perkembangan_penyakit][graph]); $ret = $cetak->build(); ?>
<?php
$tahun = date('Y');
$pdf = new Cetak();
$pdf->FPDF('L', 'mm', 'Legal');
$pdf->AddPage();
$pdf->AliasNbPages();
//$pdf->SetMargins(100,150,100);
$pdf->SetFont('Arial', 'B', '9');
$pdf->Cell(330, 6, 'LAPORAN PERKEMBANGAN KEGIATAN DI LINGKUNGAN DINAS PEKERJAAN UMUM KABUPATEN PEMALANG TAHUN ANGGARAN ' . $tahun, 0, 0, 'C');
$pdf->Ln();
$pdf->Cell(330, 6, 'PELAKSANAAN SAMPAI DENGAN BULAN : ' . strtoupper($this->fungsiku->bulan_full((int) $bulan)) . ' ' . $tahun, 0, 0, 'C');
$pdf->Ln(10);
//$pdf->Cell(341,5,'Hal : '.$pdf->PageNo().' dari {nb}',0,0,'R');
$pdf->setFont('Arial', 'B', '7');
$pdf->SetWidths(array('7', '40'));
$pdf->SetAligns(array('C', 'C'));
$pdf->Row(array("No.", "Kode Program dan\nKegiatan\n "));
$pdf->SetY($pdf->GetY() - 15);
$pdf->SetX($pdf->GetX() + 47);
$pdf->Cell(75, 15, 'Program dan Kegiatan', 1, 0, 'C');
$pdf->Cell(50, 15, 'Anggaran', 1, 0, 'C');
$pdf->Cell(45, 6, 'Pelaksanaan Kegiatan', 1, 0, 'C');
$pdf->Cell(45, 6, 'Realisasi Penyerapan', 1, 0, 'C');
$pdf->SetWidths(array('15', '15', '15', '13', '13'));
$pdf->SetAligns(array('C', 'C', 'C', 'C', 'C'));
$pdf->Row(array('Realisasi Fisik', "Target Serapan\nper Bulan", "Kesenjangan per bulan", "Sudah\nLap", "Belum\nLap"));
$pdf->Ln();
$pdf->SetY($pdf->GetY() - 14);
$pdf->SetX($pdf->GetX() + 172);
$pdf->Cell(21, 9, 'Swakelola', 1, 0, 'C');
<?php
$tahun = date('Y');
$pdf = new Cetak();
$pdf->FPDF('L', 'mm', 'Legal');
$pdf->AddPage();
$pdf->AliasNbPages();
//$pdf->SetMargins(100,150,100);
$pdf->SetFont('Arial', 'B', '8');
$pdf->Cell(330, 4, 'LAPORAN KEMAJUAN PER TRIWULAN ', 0, 0, 'C');
$pdf->Ln();
$pdf->Cell(330, 4, 'DANA ALOKASI KHUSUS (DAK)', 0, 0, 'C');
$pdf->Ln();
$pdf->Cell(330, 4, 'DINAS PEKERJAAN UMUM KABUPATEN PEMALANG TAHUN ANGGARAN ' . $tahun, 0, 0, 'C');
$pdf->Ln();
$pdf->SetFont('Arial', '', 8);
$pdf->Cell(50, 4, 'Propinsi ', 0, 0);
$pdf->Cell(5, 4, ':', 0, 0);
$pdf->Cell(50, 4, 'Jawa Tengah', 0, 0);
$pdf->Ln();
$pdf->Cell(50, 4, 'Kabupaten/Kota ', 0, 0);
$pdf->Cell(5, 4, ':', 0, 0);
$pdf->Cell(50, 4, 'Kabupaten Pemalang', 0, 0);
$pdf->Ln();
$pdf->Cell(50, 4, 'Bulan ', 0, 0);
$pdf->Cell(5, 4, ':', 0, 0);
$pdf->Cell(50, 4, $this->fungsiku->bulan_full((int) $bulan), 0, 0);
$pdf->Ln(8);
$pdf->SetFont('Arial', 'B', 7);
$pdf->Cell(5, 20, 'No', 1, 0, 'C');
$pdf->Cell(70, 20, 'KEGIATAN', 1, 0, 'C');
