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; }