1418 lines
58 KiB
PHP
1418 lines
58 KiB
PHP
<?php
|
|
// script perbandingan nilai CostDasar masteritem dengan Harga RO terakhir
|
|
include "pdo_db.php";
|
|
$conn = new PDOConn();
|
|
$exe = (empty($_REQUEST['exe']))? "fn_bandingkan" : $_REQUEST['exe'];
|
|
$exe($conn);
|
|
|
|
function fn_bandingkan($db){
|
|
include "config.php";
|
|
require_once "Spreadsheet/Excel/Writer.php";
|
|
|
|
$tanggal=$_GET['tanggal'];
|
|
$tanggal2=$_GET['tanggal2'];
|
|
$b = new Spreadsheet_Excel_Writer();
|
|
$sh =& $b->addWorksheet('Perbandingan');
|
|
|
|
$title =& $b->addFormat(array('size' => 15, 'Align' => 'center', 'Bold' => 1));
|
|
$header =& $b->addFormat(array('size' => 12, 'Align' => 'center', 'Bold' => 1, 'Border' => 1));
|
|
$header_gl =& $b->addFormat(array('size' => 10, 'Align' => 'left', 'Bold' => 1, 'Border' => 1));
|
|
$header_gr =& $b->addFormat(array('size' => 10, 'Align' => 'right', 'Bold' => 1, 'Border' => 1));
|
|
$isi_l =& $b->addFormat(array('size' => 8, 'Align' => 'left'));
|
|
$isi_r =& $b->addFormat(array('size' => 8, 'Align' => 'right'));
|
|
$isi_c =& $b->addFormat(array('size' => 8, 'Align' => 'center'));
|
|
$footer_l =& $b->addFormat(array('size' => 12, 'Align' => 'left', 'Bold' => 1, 'Border' => 1));
|
|
$footer_r =& $b->addFormat(array('size' => 12, 'Align' => 'right', 'Bold' => 1, 'Border' => 1));
|
|
|
|
//~~~~~ sheet rekap
|
|
$sh->setMerge(0, 0, 0, 18);
|
|
$sh->setMerge(1, 0, 1, 18);
|
|
$sh->setMerge(2, 0, 2, 18);
|
|
$sh->write(0, 0, strtoupper($_RS_Nama), $title);
|
|
$sh->write(1, 0, "Laporan MCU", $title);
|
|
$sh->write(2, 0, "Periode Tarik Data: $tanggal hingga: $tanggal2 " , $title);
|
|
|
|
// Set lebar kolom
|
|
$sh->setColumn(0, 0, 5);
|
|
$sh->setColumn(1, 1, 15);
|
|
$sh->setColumn(2, 2, 20);
|
|
$sh->setColumn(3, 3, 15);
|
|
$sh->setColumn(4, 4, 12);
|
|
$sh->setColumn(5, 5, 12);
|
|
$sh->setColumn(6, 6, 12);
|
|
$sh->setColumn(7, 7, 20);
|
|
$sh->setColumn(8, 8, 20);
|
|
$sh->setColumn(9, 9, 20);
|
|
|
|
$n=4;
|
|
$sh->write($n, 0, 'No', $header);
|
|
$sh->write($n, 1, 'RegID', $header);
|
|
$sh->write($n, 2, 'MEDRECID', $header);
|
|
$sh->write($n, 3, 'Nama Pasien', $header);
|
|
$sh->write($n, 4, 'Jenis Kelamin', $header);
|
|
$sh->write($n, 5, 'Tanggal Lahir', $header);
|
|
$sh->write($n, 6, 'Umur', $header);
|
|
$sh->write($n, 7, 'Tanggal MCU', $header);
|
|
//$sh->write($n, 8, 'Nama Paket', $header); //hapus
|
|
$sh->write($n, 8, 'Nama Penanggung', $header);
|
|
$sh->write($n, 9, 'Dokter MCU', $header);
|
|
$sh->write($n, 10, 'Instansi Kerja', $header);
|
|
$sh->write($n, 11, 'Tinggi Badan', $header);
|
|
$sh->write($n, 12, 'Berat Badan', $header);
|
|
$sh->write($n, 13, 'Tekanan Darah', $header);
|
|
$sh->write($n, 14, 'Nadi', $header);
|
|
$sh->write($n, 15, 'Suhu', $header);
|
|
$sh->write($n, 16, 'Pernafasan', $header);
|
|
$sh->write($n, 17, 'Diabetes', $header);
|
|
$sh->write($n, 18, 'Hipertensi', $header);
|
|
$sh->write($n, 19, 'Dyslipidemia ', $header);
|
|
$sh->write($n, 20, 'Jantung', $header);
|
|
$sh->write($n, 21, 'Stroke', $header);
|
|
$sh->write($n, 22, 'Asma', $header);
|
|
$sh->write($n, 23, 'Paru', $header);
|
|
$sh->write($n, 24, 'Riwayat Cidera', $header);
|
|
$sh->write($n, 25, 'Riwayat Rawat Inap', $header);
|
|
$sh->write($n, 26, 'Riwayat Operasi', $header);
|
|
$sh->write($n, 27, 'Lain - Lain', $header);
|
|
$sh->write($n, 28, 'Diabetes Keluarga', $header);
|
|
$sh->write($n, 29, 'Hipertensi Keluarga', $header);
|
|
$sh->write($n, 30, 'Dyslipidemia Keluarga', $header);
|
|
$sh->write($n, 31, 'Jantung Keluarga', $header);
|
|
$sh->write($n, 32, 'Stroke Keluarga', $header);
|
|
$sh->write($n, 33, 'Asma Keluarga', $header);
|
|
$sh->write($n, 34, 'Paru Keluarga', $header);
|
|
$sh->write($n, 35, 'Riwayat Cidera Keluarga', $header);
|
|
$sh->write($n, 36, 'Riwayat Rawat Inap Keluarga', $header);
|
|
$sh->write($n, 37, 'Riwayat Operasi Keluarga', $header);
|
|
$sh->write($n, 38, 'Lain - Lain Keluarga', $header);
|
|
$sh->write($n, 39, 'Alergi Obat', $header);
|
|
$sh->write($n, 40, 'Alergi Makanan', $header);
|
|
$sh->write($n, 41, 'Alergi Lain', $header);
|
|
$sh->write($n, 42, 'Merokok', $header);
|
|
$sh->write($n, 43, 'Alkohol', $header);
|
|
$sh->write($n, 44, 'Olahraga', $header);
|
|
$sh->write($n, 45, 'Keadaan Umum', $header);
|
|
$sh->write($n, 46, 'Keadaan Sakit', $header);
|
|
$sh->write($n, 47, 'StatusGizi', $header);
|
|
$sh->write($n, 48, 'Kesadaran', $header);
|
|
//$sh->write($n, 50, 'Habitus', $header);//hapus
|
|
//$sh->write($n, 51, 'Bentuk Kepala Kelainan', $header);
|
|
//$sh->write($n, 52, 'Kelainan Kepala Lain', $header);
|
|
//$sh->write($n, 53, 'Sianosis', $header);
|
|
//$sh->write($n, 54, 'Efloresensi', $header);
|
|
//$sh->write($n, 55, 'Turgor', $header);
|
|
//$sh->write($n, 56, 'Keringat', $header);
|
|
//$sh->write($n, 57, 'Allergis', $header);
|
|
//$sh->write($n, 58, 'Panu', $header);
|
|
// $sh->write($n, 59, 'Exemalodes', $header);
|
|
//$sh->write($n, 59, 'Kulit Lain', $header);
|
|
//$sh->write($n, 60, 'Pterigium', $header);
|
|
//$sh->write($n, 61, 'Exopthalmus', $header);
|
|
//$sh->write($n, 62, 'Conjunctivitis', $header);
|
|
//$sh->write($n, 63, 'Cataract', $header);
|
|
//$sh->write($n, 64, 'Strabismus', $header);
|
|
//$sh->write($n, 65, 'Nebula Macula', $header);
|
|
//$sh->write($n, 66, 'Icterus', $header);
|
|
//$sh->write($n, 67, 'Arcus Senilis', $header);
|
|
$sh->write($n, 49, 'Colour Blindness', $header);
|
|
//$sh->write($n, 69, 'Anemie', $header);
|
|
//$sh->write($n, 70, 'Pupil', $header);
|
|
//$sh->write($n, 71, 'Visus Jauh', $header);
|
|
//$sh->write($n, 72, 'Depth Perception', $header);
|
|
$sh->write($n, 50, 'Visus Dekat', $header);
|
|
//$sh->write($n, 74, 'Lapang Pandang Horizontal', $header);
|
|
$sh->write($n, 51, 'Kelainanan Mata Lain', $header);
|
|
//$sh->write($n, 76, 'Cerumen', $header);
|
|
//$sh->write($n, 77, 'Otitis', $header);
|
|
//$sh->write($n, 78, 'Membrane Tympani', $header);
|
|
//$sh->write($n, 80, 'Membrane Tympani Kelainan', $header);
|
|
//$sh->write($n, 79, 'Mastoid Region', $header);
|
|
//$sh->write($n, 80, 'Telinga Lain Lain', $header);
|
|
//$sh->write($n, 81, 'Septum', $header);
|
|
//$sh->write($n, 82, 'Selaput Lendir Kelainan', $header);
|
|
//$sh->write($n, 83, 'Pendarahan', $header);
|
|
//$sh->write($n, 84, 'Polip', $header);
|
|
//$sh->write($n, 85, 'Peradangan', $header);
|
|
//$sh->write($n, 86, 'Hidung Lain Lain', $header);
|
|
$sh->write($n, 52, 'Faring', $header);
|
|
$sh->write($n, 53, 'Tonsil', $header);
|
|
//$sh->write($n, 89, 'Lidah Kelainan', $header);
|
|
//$sh->write($n, 90, 'Bibir Kelainan', $header);
|
|
//$sh->write($n, 91, 'Gusi Kelainan', $header);
|
|
$sh->write($n, 54, 'Mulut Lain Lain', $header);
|
|
$sh->write($n, 55, 'Kelainan Gigi', $header);
|
|
//$sh->write($n, 94, 'Fetor ExOre', $header);
|
|
//$sh->write($n, 95, 'Karang Gigi', $header);
|
|
//$sh->write($n, 96, 'Prothesa', $header);
|
|
//$sh->write($n, 97, 'Kelenjar Limphe', $header);
|
|
//$sh->write($n, 98, 'Desakan Vena', $header);
|
|
//$sh->write($n, 99, 'Pembuluh darah', $header);
|
|
//$sh->write($n, 100, 'Kelenjar Gondok', $header);
|
|
//$sh->write($n, 101, 'Trachea', $header);
|
|
//$sh->write($n, 102, 'Kaku Kuduk', $header);
|
|
//$sh->write($n, 103, 'Bentuk Dada', $header);
|
|
//$sh->write($n, 104, 'Ictus Cordis', $header);
|
|
//$sh->write($n, 105, 'Sternum Kelainan', $header);
|
|
//$sh->write($n, 106, 'Sesak Napas', $header);
|
|
//$sh->write($n, 107, 'Mammae', $header);
|
|
//$sh->write($n, 108, 'Dada Lain', $header);
|
|
//$sh->write($n, 109, 'Suara Perkusi', $header);
|
|
//$sh->write($n, 110, 'Ronchi', $header);
|
|
//$sh->write($n, 111, 'Wheezing', $header);
|
|
//$sh->write($n, 112, 'Krepitasi', $header);
|
|
//$sh->write($n, 113, 'Suara Bronchial', $header);
|
|
//$sh->write($n, 114, 'Pleura Friction Rub', $header);
|
|
$sh->write($n, 56, 'Paru Lain', $header);
|
|
//$sh->write($n, 116, 'Voussure Cardiac', $header);
|
|
//$sh->write($n, 117, 'Thrill', $header);
|
|
//$sh->write($n, 118, 'Pembesaran', $header);
|
|
//$sh->write($n, 119, 'Bunyi Jantung', $header);
|
|
//$sh->write($n, 120, 'Gallop', $header);
|
|
//$sh->write($n, 121, 'Irama Jantung', $header);
|
|
$sh->write($n, 57, 'Jantung Lain', $header);
|
|
//$sh->write($n, 123, 'Bentuk Abdomen', $header);
|
|
//$sh->write($n, 124, 'Hati Membesar', $header);
|
|
//$sh->write($n, 125, 'Limpa Membesar', $header);
|
|
//$sh->write($n, 126, 'Asites', $header);
|
|
//$sh->write($n, 127, 'Peristaltik', $header);
|
|
$sh->write($n, 58, 'Hernia', $header);
|
|
//$sh->write($n, 129, 'Defans Muscular', $header);
|
|
//$sh->write($n, 130, 'Nyeri Tekan', $header);
|
|
//$sh->write($n, 131, 'Tumor', $header);
|
|
//$sh->write($n, 132, 'Abdomen Lain', $header);
|
|
//$sh->write($n, 133, 'Pergerakan Kelainan', $header);
|
|
//$sh->write($n, 134, 'Jari Tangan', $header);
|
|
//$sh->write($n, 135, 'Edema', $header);
|
|
//$sh->write($n, 136, 'Refleks Kelainan', $header);
|
|
//$sh->write($n, 137, 'Tremor', $header);
|
|
//$sh->write($n, 138, 'Bengkak Sendi', $header);
|
|
//$sh->write($n, 139, 'Simetrisitas', $header);
|
|
//$sh->write($n, 140, 'Kekuatan', $header);
|
|
//$sh->write($n, 141, 'Cicatrix', $header);
|
|
//$sh->write($n, 142, 'Deformitas', $header);
|
|
//$sh->write($n, 143, 'Amputasi', $header);
|
|
//$sh->write($n, 144, 'Varices', $header);
|
|
//$sh->write($n, 145, 'Tapak Ceper', $header);
|
|
//$sh->write($n, 146, 'Anggota Tubuh Lain', $header);
|
|
$sh->write($n, 59, 'Keluhan Utama', $header);
|
|
$sh->write($n, 60, 'Penyakit Sekarang', $header);
|
|
$sh->write($n, 61, 'Penyakit Dahulu', $header);
|
|
//$sh->write($n, 150, 'Pemeriksaan Fisik', $header);//hapus
|
|
//$sh->write($n, 151, 'Pemeriksaan Penunjang Laboratorium', $header);
|
|
//$sh->write($n, 152, 'Pemeriksaan Penunjang Radiologi', $header);
|
|
$sh->write($n, 62, 'E.C.G', $header);
|
|
//$sh->write($n, 154, 'Optic Service', $header);
|
|
$sh->write($n, 63, 'Audiometri', $header);
|
|
$sh->write($n, 64, 'Spirometri', $header);
|
|
$sh->write($n, 65, 'Pemeriksaan lain-lain', $header);
|
|
//$sh->write($n, 158, 'Kesimpulan', $header);
|
|
//$sh->write($n, 159, 'Pengobatan Yang Diberikan', $header);
|
|
//$sh->write($n, 160, 'Saran-Saran & Motivasi', $header);
|
|
$sh->write($n, 66, 'Saran Kesehatan Kerja', $header);
|
|
//tambahan penyakit akibar kerja
|
|
$sh->write($n, 67, 'Kebisingan akibat kerja', $header);
|
|
$sh->write($n, 68, 'SuhuPanas akibat kerja', $header);
|
|
$sh->write($n, 69, 'SuhuDingin akibat kerja', $header);
|
|
$sh->write($n, 70, 'RadiasiBukanPengion akibat kerja', $header);
|
|
$sh->write($n, 71, 'RadiasiPengion akibat kerja', $header);
|
|
$sh->write($n, 72, 'GetaranLokal akibat kerja', $header);
|
|
$sh->write($n, 73, 'GetaranSeluruhTubun akibat kerja', $header);
|
|
$sh->write($n, 74, 'Ketinggian akibat kerja', $header);
|
|
|
|
$sh->write($n, 75, 'Lainlain akibat kerja', $header);
|
|
$sh->write($n, 76, 'DebuOrganik akibat kerja', $header);
|
|
$sh->write($n, 77, 'DebuAnorganik akibat kerja', $header);
|
|
$sh->write($n, 78, 'Asap akibat kerja', $header);
|
|
//bahan kimia
|
|
$sh->write($n, 79, 'LogamBerat akibat kerja', $header);
|
|
$sh->write($n, 80, 'PelarutOrganik akibat kerja', $header);
|
|
$sh->write($n, 81, 'IritanAsam akibat kerja', $header);
|
|
$sh->write($n, 82, 'IritanBasa akibat kerja', $header);
|
|
$sh->write($n, 83, 'CairanPembersih akibat kerja', $header);
|
|
$sh->write($n, 84, 'Pestisida akibat kerja', $header);
|
|
$sh->write($n, 85, 'UapLogam akibat kerja', $header);
|
|
$sh->write($n, 86, 'BahamKimiaLain akibat kerja', $header);
|
|
//Biologi
|
|
$sh->write($n, 87, 'Bakteri akibat kerja', $header);
|
|
$sh->write($n, 88, 'CairanTubuh akibat kerja', $header);
|
|
$sh->write($n, 89, 'Serangga akibat kerja', $header);
|
|
$sh->write($n, 90, 'Limbah akibat kerja', $header);
|
|
$sh->write($n, 91, 'BiologiLain akibat kerja', $header);
|
|
//Psikologis
|
|
$sh->write($n, 92, 'Overload akibat kerja', $header);
|
|
$sh->write($n, 93, 'Mismatch akibat kerja', $header);
|
|
$sh->write($n, 94, 'KetidakJelasan akibat kerja', $header);
|
|
$sh->write($n, 95, 'HambatanJenjangKarir akibat kerja', $header);
|
|
$sh->write($n, 96, 'KerjaShift akibat kerja', $header);
|
|
$sh->write($n, 97, 'KonflikTeman akibat kerja', $header);
|
|
$sh->write($n, 98, 'KonflikKeluarga akibat kerja', $header);
|
|
$sh->write($n, 99, 'PsikologisLain akibat kerja', $header);
|
|
//Ergonomis
|
|
$sh->write($n, 100, 'TanganBergerakUlang akibat kerja', $header);
|
|
$sh->write($n, 101, 'AngkatBerat akibat kerja', $header);
|
|
$sh->write($n, 102, 'DudukLama akibat kerja', $header);
|
|
$sh->write($n, 103, 'BerdiriLama akibat kerja', $header);
|
|
$sh->write($n, 104, 'PosisiTubuhTidakErgonomis akibat kerja', $header);
|
|
$sh->write($n, 105, 'PencahayaanTidakSesuai akibat kerja', $header);
|
|
$sh->write($n, 106, 'LihatMonitorLama akibat kerja', $header);
|
|
$sh->write($n, 107, 'ErgonomisLain akibat kerja', $header);
|
|
$sh->write($n, 108, 'VisusJauhTanpaKoreksiVOD', $header);
|
|
$sh->write($n, 109, 'VisusJauhTanpaKoreksiVOS', $header);
|
|
$sh->write($n, 110, 'VisusJauhDenganKoreksiVOD', $header);
|
|
$sh->write($n, 112, 'VisusJauhDenganKoreksiVOS', $header);
|
|
$sh->write($n, 113, 'Pekerjaan', $header);
|
|
$sh->write($n, 114, 'DokterPemeriksa', $header);
|
|
|
|
|
|
$tanggal=$_GET['tanggal'];
|
|
$tanggal2=$_GET['tanggal2'];
|
|
|
|
$no=0;
|
|
|
|
$s = "SELECT RegID from regpas where Tanggal between '$tanggal 00:00:01' and '$tanggal2 23:59:59' and JenisRegID = '2' and NA='N'";
|
|
|
|
$db->query($s);
|
|
$rows = $db->resultset();
|
|
foreach ($rows as $row){
|
|
$n++;$no++;
|
|
$RegID = $row['RegID'];
|
|
$db->query("SELECT r.RegID, r.Nama as NamaPasien, r.MEDRECID, r.Tanggal as TanggalDaftar, r.PaketLayananID, r.DokterID, pm.DepartemenKerja, pm.KesimpulanRingkasan,
|
|
pm.SaranMotivasiRingkasan, pm.SaranKesehatanKerjaRingkasan, pm.KeluhanAnamnesis, r.AsuransiID, pm.RiwayatPenyakitSekarangAnamnesis, pm.KeluhanUtamaRingkasan, pm.PenyakitSekarangRingkasan, pm.PenyakitDahuluRingkasan, pm.PemeriksaanFisikRingkasan, pm.PemeriksaanLainLainRingkasan, pm.KesimpulanRingkasan, pm.PengobatanDiberiRingkasan, pm.SaranMotivasiRingkasan, pm.DokterIDPengkaji
|
|
from regpas r
|
|
LEFT JOIN pengkajianmcu pm on r.RegID=pm.RegID
|
|
where r.RegID = '$RegID' limit 1");
|
|
$DJ1x = $db->single();
|
|
$RegID = $DJ1x['RegID'];
|
|
$NamaPasiennya = $DJ1x['NamaPasien'];
|
|
$MEDRECID = $DJ1x['MEDRECID'];
|
|
$TanggalDaftar = $DJ1x['TanggalDaftar'];
|
|
$PaketLayananIDnya = $DJ1x['PaketLayananID'];
|
|
$DokterIDnya = $DJ1x['DokterID'];
|
|
$DepartemenKerjanya = $DJ1x['DepartemenKerja'];
|
|
$KesimpulanRingkasannya = $DJ1x['KesimpulanRingkasan'];
|
|
$SaranMotivasiRingkasannya = $DJ1x['SaranMotivasiRingkasan'];
|
|
$SaranKesehatanKerjaRingkasannya = $DJ1x['SaranKesehatanKerjaRingkasan'];
|
|
$KeluhanAnamnesisnya = $DJ1x['KeluhanAnamnesis'];
|
|
$AsuransiIDnya = $DJ1x['AsuransiID'];
|
|
$RiwayatPenyakitSekarangAnamnesisNya = $DJ1x['RiwayatPenyakitSekarangAnamnesis'];
|
|
$KeluhanUtamaRingkasanNya = $DJ1x['KeluhanUtamaRingkasan'];
|
|
$PenyakitSekarangRingkasanNya = $DJ1x['PenyakitSekarangRingkasan'];
|
|
$PenyakitDahuluRingkasanNya = $DJ1x['PenyakitDahuluRingkasan'];
|
|
$PemeriksaanFisikRingkasanNya = $DJ1x['PemeriksaanFisikRingkasan'];
|
|
$PemeriksaanLainLainRingkasanNya = $DJ1x['PemeriksaanLainLainRingkasan'];
|
|
$KesimpulanRingkasanNya = $DJ1x['KesimpulanRingkasan'];
|
|
$PengobatanDiberiRingkasanNya = $DJ1x['PengobatanDiberiRingkasan'];
|
|
$SaranMotivasiRingkasanNya = $DJ1x['SaranMotivasiRingkasan'];
|
|
$DokterIDPengkaji = $DJ1x['DokterIDPengkaji'];
|
|
|
|
|
|
|
|
//querry lihat medrec
|
|
$db->query("select Kelamin, TanggalLahir, TIMESTAMPDIFF(YEAR, TanggalLahir, CURDATE()) AS umur, Pekerjaan from medrec where MEDRECID = '$MEDRECID'");
|
|
$DJ2x = $db->single();
|
|
$kelaminnya = $DJ2x['Kelamin'];
|
|
$TanggalLahirnya = $DJ2x['TanggalLahir'];
|
|
$Umurnya = $DJ2x['umur'];
|
|
$Pekerjaan = $DJ2x['Pekerjaan'];
|
|
|
|
if($DJ2x['Kelamin']=='L'){
|
|
$kelamin='Laki - Laki';
|
|
}else{ $kelamin= 'Perempuan';}
|
|
|
|
|
|
//query lihat Dokternya-----------------------------------------------------
|
|
$db->query("select Nama from dokter where DokterID = '$DokterIDnya' limit 1 ");
|
|
$DJ3x = $db->single();
|
|
$NamaDokterNya = $DJ3x['Nama'];
|
|
|
|
//query lihat Asuransi-----------------------------------------------------
|
|
$db->query("select Nama from perusahaan where PerusahaanID = '$AsuransiIDnya' limit 1 ");
|
|
$DJ0x = $db->single();
|
|
$NamaperusahaanNya = $DJ0x['Nama'];
|
|
|
|
if($DJ0x['Nama']==''){
|
|
$perusahaan='UMUM';
|
|
}else{ $perusahaan= $DJ0x['Nama'];}
|
|
|
|
//query ambil PaketID
|
|
$db->query("select PaketID from paket_dispenser_header where RegID = '$RegID' limit 1 ");
|
|
$DJ88x = $db->single();
|
|
$PaketID = $D88x['PaketID'];
|
|
|
|
//query lihat Nama Paket------------------------------------------------------
|
|
$db->query("select Nama from paket_header where PaketID = '$PaketID' limit 1 ");
|
|
$DJ4x = $db->single();
|
|
$NamaPaketNya = $DJ4x['Nama'];
|
|
|
|
//query lihat Nama Paket lama------------------------------------------------------
|
|
//$db->query("select Nama from paket where PaketID = '$PaketLayananIDnya' limit 1 ");
|
|
//$DJ4x = $db->single();
|
|
//$NamaPaketNya = $DJ4x['Nama'];
|
|
|
|
//query lihat Tanda Vital Pasien-----------------------------------------------
|
|
$db->query("select Tekanandarah, Nadi, Pernafasan, Suhu from tandavital_pasien where RegID = '$RegID' and Tekanandarah not like '' limit 1 ");
|
|
$DJ5x = $db->single();
|
|
$TekanandarahNya = $DJ5x['Tekanandarah'];
|
|
$NadiNya = $DJ5x['Nadi'];
|
|
$PernafasanNya = $DJ5x['Pernafasan'];
|
|
$SuhuNya = $DJ5x['Suhu'];
|
|
|
|
//query lihat Detail Berat dan Tinggi--------------------------------------
|
|
$db->query("select TinggiBadan, BeratBadan from regpas_detail where RegID = '$RegID' limit 1 ");
|
|
$DJ6x = $db->single();
|
|
$TinggiBadanNya = $DJ6x['TinggiBadan'];
|
|
$BeratBadanNya = $DJ6x['BeratBadan'];
|
|
|
|
|
|
//query lihat Gaya Hidup------------------------------------------------
|
|
$db->query("select SejakKapanMerokok, SejakKapanAlkohol, KebiasaanOlahragaAda from gayahidup where RegID = '$RegID' limit 1 ");
|
|
$DJ7x = $db->single();
|
|
$SejakKapanMerokokNya = $DJ7x['SejakKapanMerokok'];
|
|
$SejakKapanAlkoholNya = $DJ7x['SejakKapanAlkohol'];
|
|
$KebiasaanOlahragaAdaNya = $DJ7x['KebiasaanOlahragaAda'];
|
|
|
|
if($DJ7x['SejakKapanMerokok']==''){
|
|
$merokok='Tidak Merokok';
|
|
}else{ $merokok= $DJ7x['SejakKapanMerokok'];}
|
|
|
|
if($DJ7x['SejakKapanAlkohol']==''){
|
|
$alkohol='Tidak Minum ALkohol';
|
|
}else{ $alkohol= $DJ7x['SejakKapanAlkohol'];}
|
|
|
|
if($DJ7x['KebiasaanOlahragaAda']==''){
|
|
$olahraga='Tidak Olahraga';
|
|
}else{ $olahraga=$DJ7x['KebiasaanOlahragaAda'];}
|
|
|
|
//query lihat Riwayat penyakit Dahulu--------------------------------------------
|
|
$db->query("select DiabetesDahuluAda,HipertensiDahuluAda, KelebihanLemakDahuluAda, JantungDahuluAda,
|
|
StrokeDahuluAda, AsmaDahuluAda, ParuDahuluAda, CideraDahuluAda, RawatInapDahuluAda, OperasiDahuluAda, LainLainDahuluAda from riwayatpenyakitdahulu where RegID = '$RegID' limit 1 ");
|
|
$DJ8x = $db->single();
|
|
$DiabetesDahuluAdaNya = $DJ8x['DiabetesDahuluAda'];
|
|
$HipertensiDahuluAdaNya = $DJ8x['HipertensiDahuluAda'];
|
|
$KelebihanLemakDahuluAdaNya = $DJ8x['KelebihanLemakDahuluAda'];
|
|
$JantungDahuluAdaNya = $DJ8x['JantungDahuluAda'];
|
|
$StrokeDahuluAdaNya = $DJ8x['StrokeDahuluAda'];
|
|
$AsmaDahuluAdaNya = $DJ8x['AsmaDahuluAda'];
|
|
$ParuDahuluAdaNya = $DJ8x['ParuDahuluAda'];
|
|
$CideraDahuluAdaNya = $DJ8x['CideraDahuluAda'];
|
|
$RawatInapDahuluAdaNya = $DJ8x['RawatInapDahuluAda'];
|
|
$OperasiDahuluAdaNya = $DJ8x['OperasiDahuluAda'];
|
|
$LainLainDahuluAdaNya = $DJ8x['LainLainDahuluAda'];
|
|
|
|
if($DJ8x['DiabetesDahuluAda']==''){
|
|
$diabetes='Tidak Ada';
|
|
}else{ $diabetes= $DJ8x['DiabetesDahuluAda'];}
|
|
|
|
if($DJ8x['HipertensiDahuluAda']==''){
|
|
$hipertensi='Tidak Ada';
|
|
}else{ $hipertensi= $DJ8x['HipertensiDahuluAda'];}
|
|
|
|
if($DJ8x['KelebihanLemakDahuluAda']==''){
|
|
$lemak='Tidak Ada';
|
|
}else{ $lemak= $DJ8x['KelebihanLemakDahuluAda'];}
|
|
|
|
if($DJ8x['JantungDahuluAda']==''){
|
|
$jantung='Tidak Ada';
|
|
}else{ $jantung= $DJ8x['JantungDahuluAda'];}
|
|
|
|
if($DJ8x['StrokeDahuluAda']==''){
|
|
$stroke='Tidak Ada';
|
|
}else{ $stroke= $DJ8x['StrokeDahuluAda'];}
|
|
|
|
if($DJ8x['AsmaDahuluAda']==''){
|
|
$asma='Tidak Ada';
|
|
}else{ $asma= $DJ8x['AsmaDahuluAda'];}
|
|
|
|
if($DJ8x['ParuDahuluAda']==''){
|
|
$paru='Tidak Ada';
|
|
}else{ $paru= $DJ8x['ParuDahuluAda'];}
|
|
|
|
if($DJ8x['CideraDahuluAda']==''){
|
|
$cidera='Tidak Ada';
|
|
}else{ $cidera= $DJ8x['CideraDahuluAda'];}
|
|
|
|
if($DJ8x['RawatInapDahuluAda']==''){
|
|
$rawatinap='Tidak Ada';
|
|
}else{ $rawatinap= $DJ8x['RawatInapDahuluAda'];}
|
|
|
|
if($DJ8x['OperasiDahuluAda']==''){
|
|
$operasi='Tidak Ada';
|
|
}else{ $operasi= $DJ8x['OperasiDahuluAda'];}
|
|
|
|
if($DJ8x['LainLainDahuluAda']==''){
|
|
$lain2='Tidak Ada';
|
|
}else{ $lain2= $DJ8x['LainLainDahuluAda'];}
|
|
|
|
|
|
//query lihat Riwayat penyakit Keluarga--------------------------------------------
|
|
$db->query("select DiabetesAda, HypertensiAda, KelebihanLemakAda , JantungAda, StrokeAda, AsmaAda, ParuAda , CideraAda ,RawatInapAda , OperasiAda ,LainLainAda from riwayatpenyakitkeluarga where RegID = '$RegID' limit 1 ");
|
|
$DJ9x = $db->single();
|
|
$DiabetesAdaNya = $DJ9x['DiabetesAda'];
|
|
$HypertensiAdaNya = $DJ9x['HypertensiAda'];
|
|
$KelebihanLemakAdaNya = $DJ9x['KelebihanLemakAda'];
|
|
$JantungAdaNya = $DJ9x['JantungAda'];
|
|
$StrokeAdaNya = $DJ9x['StrokeAda'];
|
|
$AsmaAdaNya = $DJ9x['AsmaAda'];
|
|
$ParuAdaNya = $DJ9x['ParuAda'];
|
|
$CideraAdaNya = $DJ9x['CideraAda'];
|
|
$RawatInapAdaNya = $DJ9x['RawatInapAda'];
|
|
$OperasiAdaNya = $DJ9x['OperasiAda'];
|
|
$LainLainAdaNya = $DJ9x['LainLainAda'];
|
|
|
|
if($DJ9x['DiabetesAda']==''){
|
|
$diabetes1='Tidak Ada';
|
|
}else{ $diabetes1= $DJ9x['DiabetesAda'];}
|
|
|
|
if($DJ9x['HipertensiAda']==''){
|
|
$hipertensi1='Tidak Ada';
|
|
}else{ $hipertensi1= $DJ9x['HipertensiAda'];}
|
|
|
|
if($DJ9x['KelebihanLemakAda']==''){
|
|
$lemak1='Tidak Ada';
|
|
}else{ $lemak1= $DJ9x['KelebihanLemakAda'];}
|
|
|
|
if($DJ9x['JantungAda']==''){
|
|
$jantung1='Tidak Ada';
|
|
}else{ $jantung1= $DJ9x['JantungAda'];}
|
|
|
|
if($DJ9x['StrokeAda']==''){
|
|
$stroke1='Tidak Ada';
|
|
}else{ $stroke1= $DJ9x['StrokeAda'];}
|
|
|
|
if($DJ9x['AsmaAda']==''){
|
|
$asma1='Tidak Ada';
|
|
}else{ $asma1= $DJ9x['AsmaAda'];}
|
|
|
|
if($DJ9x['ParuAda']==''){
|
|
$paru1='Tidak Ada';
|
|
}else{ $paru1= $DJ9x['ParuAda'];}
|
|
|
|
if($DJ9x['CideraAda']==''){
|
|
$cidera1='Tidak Ada';
|
|
}else{ $cidera1= $DJ9x['CideraAda'];}
|
|
|
|
if($DJ9x['RawatInapAda']==''){
|
|
$rawatinap1='Tidak Ada';
|
|
}else{ $rawatinap1= $DJ9x['RawatInapAda'];}
|
|
|
|
if($DJ9x['OperasiAda']==''){
|
|
$operasi1='Tidak Ada';
|
|
}else{ $operasi1= $DJ9x['OperasiAda'];}
|
|
|
|
if($DJ9x['LainLainAda']==''){
|
|
$lain21='Tidak Ada';
|
|
}else{ $lain21= $DJ9x['LainLainAda'];}
|
|
|
|
|
|
|
|
//query lihat Riwayat Alergi-----------------------------------------------
|
|
$db->query("select AlergiObatAda , AlergiMakananAda, AlergiLainAda from riwayatalergi where MEDRECID = '$MEDRECID' limit 1 ");
|
|
$DJ10x = $db->single();
|
|
$AlergiObatAdaNya = $DJ10x['AlergiObatAda'];
|
|
$AlergiMakananAdaNya = $DJ10x['AlergiMakananAda'];
|
|
$AlergiLainAdaNya = $DJ10x['AlergiLainAda'];
|
|
|
|
|
|
if($DJ10x['AlergiObatAda']==''){
|
|
$alergiobat='Tidak Ada';
|
|
}else{ $alergiobat= $DJ10x['AlergiObatAda'];}
|
|
|
|
if($DJ10x['AlergiMakananAda']==''){
|
|
$alergimakanan='Tidak Ada';
|
|
}else{ $alergimakanan= $DJ10x['AlergiMakananAda'];}
|
|
|
|
if($DJ10x['AlergiLainAda']==''){
|
|
$alergilain='Tidak Ada';
|
|
}else{ $alergilain= $DJ10x['AlergiLainAda'];}
|
|
|
|
|
|
//query lihat Fisik Umum-----------------------------------------------
|
|
$db->query("select KeadaanUmum, KeadaanSakit, Kesadaran, StatusGizi, Habitus from pemeriksaanfisik_umum where RegID = '$RegID' limit 1 ");
|
|
$DJ11x = $db->single();
|
|
$KeadaanUmumNya = $DJ11x['KeadaanUmum'];
|
|
$KeadaanSakitNya = $DJ11x['KeadaanSakit'];
|
|
$KesadaranNya = $DJ11x['Kesadaran'];
|
|
$StatusGiziNya = $DJ11x['StatusGizi'];
|
|
$HabitusNya = $DJ11x['Habitus'];
|
|
|
|
|
|
//query lihat Fisik Kepala-----------------------------------------------
|
|
$db->query("select BentukKepalaKelainan , KepalaLainLainAda from pemeriksaanfisik_kepala where RegID = '$RegID' limit 1 ");
|
|
$DJ12x = $db->single();
|
|
$BentukKepalaKelainanNya = $DJ12x['BentukKepalaKelainan'];
|
|
$KepalaLainLainAdaNya = $DJ12x['KepalaLainLainAda'];
|
|
|
|
|
|
if($DJ12x['BentukKepalaKelainan']==''){
|
|
$kepala='Normal';
|
|
}else{ $kepala= $DJ12x['BentukKepalaKelainan'];}
|
|
|
|
if($DJ12x['KepalaLainLainAda']==''){
|
|
$kepalalain='Tidak Ada';
|
|
}else{ $kepalalain= $DJ12x['KepalaLainLainAda'];}
|
|
|
|
|
|
//query lihat Fisik Kulit-----------------------------------------------
|
|
$db->query("select SianosisAda, EfloresensiAda , Turgor, Keringat, AllergisAda,
|
|
PanuAda, ExemalodesAda , KulitLainLainAda from pemeriksaanfisik_kulit where RegID = '$RegID' limit 1 ");
|
|
$DJ13x = $db->single();
|
|
$SianosisAdaNya = $DJ13x['SianosisAda'];
|
|
$EfloresensiAdaNya = $DJ13x['EfloresensiAda'];
|
|
$TurgorNya = $DJ13x['Turgor'];
|
|
$KeringatNya = $DJ13x['Keringat'];
|
|
$AllergisAdaNya = $DJ13x['AllergisAda'];
|
|
$PanuAdaNya = $DJ13x['PanuAda'];
|
|
$ExemalodesAdaNya = $DJ13x['ExemalodesAda'];
|
|
$KulitLainLainAdaNya = $DJ13x['KulitLainLainAda'];
|
|
|
|
if($DJ13x['SianosisAda']==''){
|
|
$sianosis='Tidak Ada';
|
|
}else{ $sianosis= $DJ13x['SianosisAda'];}
|
|
|
|
if($DJ13x['EfloresensiAda']==''){
|
|
$efloresensi='Tidak Ada';
|
|
}else{ $efloresensi= $DJ13x['EfloresensiAda'];}
|
|
|
|
if($DJ13x['AllergisAda']==''){
|
|
$allergis='Tidak Ada';
|
|
}else{ $allergis= $DJ13x['AllergisAda'];}
|
|
|
|
if($DJ13x['PanuAda']==''){
|
|
$panu='Tidak Ada';
|
|
}else{ $panu= $DJ13x['PanuAda'];}
|
|
|
|
if($DJ13x['ExemalodesAda']==''){
|
|
$exemalodes='Tidak Ada';
|
|
}else{ $exemalodes= $DJ13x['ExemalodesAda'];}
|
|
|
|
if($DJ13x['KulitLainLainAda']==''){
|
|
$kulitlain='Tidak Ada';
|
|
}else{ $kulitlain= $DJ13x['KulitLainLainAda'];}
|
|
|
|
|
|
//query lihat Fisik Mata--------------------------------------------
|
|
//$db->query("select Pterigium, Exopthalmus, Conjunctivitis , Cataract, Strabismus, NebulaMacula, Icterus , ArcusSenilis ,ColourBlindness , Anemie ,Pupil, VisusJauh, DepthPerception, VisusDekatKelainan, LapangPandangHorizontal, MataLainLainAda from pemeriksaanfisik_mata where RegID = '$RegID' limit 1 ");
|
|
$db->query("select Pterigium, Exopthalmus, Conjunctivitis , Cataract, Strabismus, NebulaMacula, Icterus , ArcusSenilis ,ColourBlindness , Anemie ,Pupil, VisusJauh, DepthPerception, VisusDekatKelainan, LapangPandangHorizontal, MataLainLainAda, VisusJauhTanpaKoreksiVOD, VisusJauhTanpaKoreksiVOS,
|
|
VisusJauhDenganKoreksiVOD, VisusJauhDenganKoreksiVOS from pemeriksaanfisik_mata where RegID = '$RegID' limit 1 ");
|
|
|
|
$DJ14x = $db->single();
|
|
$PterigiumNya = $DJ14x['Pterigium'];
|
|
$ExopthalmusNya = $DJ14x['Exopthalmus'];
|
|
$ConjunctivitisNya = $DJ14x['Conjunctivitis'];
|
|
$CataractNya = $DJ14x['Cataract'];
|
|
$StrabismusNya = $DJ14x['Strabismus'];
|
|
$NebulaMaculaNya = $DJ14x['NebulaMacula'];
|
|
$IcterusNya = $DJ14x['Icterus'];
|
|
$ArcusSenilisNya = $DJ14x['ArcusSenilis'];
|
|
$ColourBlindnessNya = $DJ14x['ColourBlindness'];
|
|
$AnemieNya = $DJ14x['Anemie'];
|
|
$PupilNya = $DJ14x['Pupil'];
|
|
$VisusJauhNya = $DJ14x['VisusJauh'];
|
|
$DepthPerceptionNya = $DJ14x['DepthPerception'];
|
|
$VisusDekatKelainanNya = $DJ14x['VisusDekatKelainan'];
|
|
$LapangPandangHorizontalNya = $DJ14x['LapangPandangHorizontal'];
|
|
$MataLainLainAdaNya = $DJ14x['MataLainLainAda'];
|
|
$VisusJauhTanpaKoreksiVOD = $DJ14x['VisusJauhTanpaKoreksiVOD'];
|
|
$VisusJauhTanpaKoreksiVOS = $DJ14x['VisusJauhTanpaKoreksiVOS'];
|
|
$VisusJauhDenganKoreksiVOD = $DJ14x['VisusJauhDenganKoreksiVOD'];
|
|
$VisusJauhDenganKoreksiVOS = $DJ14x['VisusJauhDenganKoreksiVOS'];
|
|
|
|
|
|
if($DJ14x['VisusJauh']==''){
|
|
$visusjauh='Normal';
|
|
}else{ $visusjauh= $DJ14x['VisusJauh'];}
|
|
|
|
if($DJ14x['VisusDekatKelainan']==''){
|
|
$visusdekat='Normal';
|
|
}else{ $visusdekat= $DJ14x['VisusDekatKelainan'];}
|
|
|
|
if($DJ14x['MataLainLainAda']==''){
|
|
$matalain='Tidak Ada';
|
|
}else{ $matalain= $DJ14x['MataLainLainAda'];}
|
|
|
|
//query lihat Fisik Telinga-----------------------------------------------
|
|
$db->query("select Cerumen, Otitis, MembraneTympani, MembraneTympaniKelainan, MastoidRegion, TelingaLainLainAda from pemeriksaanfisik_telinga where RegID = '$RegID' limit 1 ");
|
|
$DJ14x = $db->single();
|
|
$CerumenNya = $DJ14x['Cerumen'];
|
|
$OtitisNya = $DJ14x['Otitis'];
|
|
$MembraneTympaniNya = $DJ14x['MembraneTympani'];
|
|
$MembraneTympaniKelainanNya = $DJ14x['MembraneTympaniKelainan'];
|
|
$MastoidRegionNya = $DJ14x['MastoidRegion'];
|
|
$TelingaLainLainAdaNya = $DJ14x['TelingaLainLainAda'];
|
|
|
|
if($DJ14x['TelingaLainLainAda']==''){
|
|
$telingalain='Tidak Ada';
|
|
}else{ $telingalain= $DJ14x['TelingaLainLainAda'];}
|
|
|
|
|
|
|
|
//query lihat Fisik Hidung-----------------------------------------------
|
|
$db->query("select Septum , SelaputLendirKelainan, Pendarahan, Polip, Peradangan, HidungLainLainAda from pemeriksaanfisik_hidung where RegID = '$RegID' limit 1 ");
|
|
$DJ15x = $db->single();
|
|
$SeptumNya = $DJ15x['Septum'];
|
|
$SelaputLendirKelainanNya = $DJ15x['SelaputLendirKelainan'];
|
|
$PendarahanNya = $DJ15x['Pendarahan'];
|
|
$PolipNya = $DJ15x['Polip'];
|
|
$PeradanganNya = $DJ15x['Peradangan'];
|
|
$HidungLainLainAdaNya = $DJ15x['HidungLainLainAda'];
|
|
|
|
if($DJ15x['SelaputLendirKelainan']==''){
|
|
$selaput='Normal';
|
|
}else{ $selaput= $DJ15x['SelaputLendirKelainan'];}
|
|
|
|
if($DJ15x['HidungLainLainAda']==''){
|
|
$hidunglain='Tidak Ada';
|
|
}else{ $hidunglain= $DJ15x['HidungLainLainAda'];}
|
|
|
|
|
|
//query lihat Fisik Tenggorokan-----------------------------------------------
|
|
$db->query("select FaringKelainan , TonsilKelainan from pemeriksaanfisik_tenggorokan where RegID = '$RegID' limit 1 ");
|
|
$DJ26x = $db->single();
|
|
$FaringKelainanNya = $DJ26x['FaringKelainan'];
|
|
$TonsilKelainanNya = $DJ26x['TonsilKelainan'];
|
|
|
|
|
|
if($DJ26x['FaringKelainan']==''){
|
|
$faring='Normal';
|
|
}else{ $faring= $DJ26x['FaringKelainan'];}
|
|
|
|
if($DJ26x['TonsilKelainan']==''){
|
|
$tonsil='Tidak Ada';
|
|
}else{ $tonsil= $DJ26x['TonsilKelainan'];}
|
|
|
|
//query lihat Fisik Mulut-----------------------------------------------
|
|
$db->query("select LidahKelainan, BibirKelainan, GusiKelainan, MulutLainLainAda from pemeriksaanfisik_mulut where RegID = '$RegID' limit 1 ");
|
|
$DJ16x = $db->single();
|
|
$LidahKelainanNya = $DJ16x['LidahKelainan'];
|
|
$BibirKelainanNya = $DJ16x['BibirKelainan'];
|
|
$GusiKelainanNya = $DJ16x['GusiKelainan'];
|
|
$MulutLainLainAdaNya = $DJ16x['MulutLainLainAda'];
|
|
|
|
if($DJ16x['LidahKelainan']==''){
|
|
$lidah='Normal';
|
|
}else{ $lidah= $DJ16x['LidahKelainan'];}
|
|
|
|
if($DJ16x['BibirKelainan']==''){
|
|
$bibir='Normal';
|
|
}else{ $bibir= $DJ16x['BibirKelainan'];}
|
|
|
|
if($DJ16x['GusiKelainan']==''){
|
|
$gusi='Normal';
|
|
}else{ $gusi= $DJ16x['GusiKelainan'];}
|
|
|
|
if($DJ16x['MulutLainLainAda']==''){
|
|
$mulut='Tidak Ada';
|
|
}else{ $mulut= $DJ16x['MulutLainLainAda'];}
|
|
|
|
|
|
//query lihat Fisik Gigi-----------------------------------------------
|
|
$db->query("select KelainanGigiAda , FetorExOreAda, KarangGigiAda, ProthesaAda from pemeriksaanfisik_gigi where RegID = '$RegID' limit 1 ");
|
|
$DJ17x = $db->single();
|
|
$KelainanGigiAdaNya = $DJ17x['KelainanGigiAda'];
|
|
$FetorExOreAdaNya = $DJ17x['FetorExOreAda'];
|
|
$KarangGigiAdaNya = $DJ17x['KarangGigiAda'];
|
|
$ProthesaAdaNya = $DJ17x['ProthesaAda'];
|
|
|
|
if($DJ17x['KelainanGigiAda']==''){
|
|
$gigi='Tidak Ada';
|
|
}else{ $gigi= $DJ17x['KelainanGigiAda'];}
|
|
|
|
if($DJ17x['FetorExOreAda']==''){
|
|
$fetorexore='Tidak Ada';
|
|
}else{ $fetorexore= $DJ17x['FetorExOreAda'];}
|
|
|
|
if($DJ17x['KarangGigiAda']==''){
|
|
$karanggigi='Tidak Ada';
|
|
}else{ $karanggigi= $DJ17x['KarangGigiAda'];}
|
|
|
|
if($DJ17x['ProthesaAda']==''){
|
|
$prothesa='Tidak Ada';
|
|
}else{ $prothesa= $DJ17x['ProthesaAda'];}
|
|
|
|
|
|
//query lihat Fisik Leher-----------------------------------------------
|
|
$db->query("select KelenjarLimpheTeraba, DesakanVenaMeninggi, PembuluhdarahMelebar, KelenjarGondokMelebar, Trachea, KakuKudukTeraba from pemeriksaanfisik_leher where RegID = '$RegID' limit 1 ");
|
|
$DJ18x = $db->single();
|
|
$KelenjarLimpheTerabaNya = $DJ18x['KelenjarLimpheTeraba'];
|
|
$DesakanVenaMeninggiNya = $DJ18x['DesakanVenaMeninggi'];
|
|
$PembuluhdarahMelebarNya = $DJ18x['PembuluhdarahMelebar'];
|
|
$KelenjarGondokMelebarNya = $DJ18x['KelenjarGondokMelebar'];
|
|
$TracheaNya = $DJ18x['Trachea'];
|
|
$KakuKudukTerabaNya = $DJ18x['KakuKudukTeraba'];
|
|
|
|
if($DJ18x['KelenjarLimpheTeraba']==''){
|
|
$limphe='Tidak Teraba';
|
|
}else{ $limphe= $DJ18x['KelenjarLimpheTeraba'];}
|
|
|
|
if($DJ18x['DesakanVenaMeninggi']==''){
|
|
$vena='Normal';
|
|
}else{ $vena= $DJ18x['DesakanVenaMeninggi'];}
|
|
|
|
if($DJ18x['PembuluhdarahMelebar']==''){
|
|
$darah='Normal';
|
|
}else{ $darah= $DJ18x['PembuluhdarahMelebar'];}
|
|
|
|
if($DJ18x['KelenjarGondokMelebar']==''){
|
|
$gondok='Normal';
|
|
}else{ $gondok= $DJ18x['KelenjarGondokMelebar'];}
|
|
|
|
if($DJ18x['KakuKudukTeraba']==''){
|
|
$kuduk='Tidak Teraba';
|
|
}else{ $kuduk= $DJ18x['KakuKudukTeraba'];}
|
|
|
|
//query lihat Fisik Dada-----------------------------------------------
|
|
$db->query("select BentukDadaAsimetris, IctusCordisAda, SternumKelainan, SesakNapasAda, Mammae, DadaLainLainAda from pemeriksaanfisik_dada where RegID = '$RegID' limit 1 ");
|
|
$DJ19x = $db->single();
|
|
$BentukDadaAsimetrisNya = $DJ19x['BentukDadaAsimetris'];
|
|
$IctusCordisAdaNya = $DJ19x['IctusCordisAda'];
|
|
$SternumKelainanNya = $DJ19x['SternumKelainan'];
|
|
$SesakNapasAdaNya = $DJ19x['SesakNapasAda'];
|
|
$MammaeNya = $DJ19x['Mammae'];
|
|
$DadaLainLainAdaNya = $DJ19x['DadaLainLainAda'];
|
|
|
|
if($DJ19x['BentukDadaAsimetris']==''){
|
|
$dada='Simetris';
|
|
}else{ $dada= $DJ19x['BentukDadaAsimetris'];}
|
|
|
|
if($DJ19x['IctusCordisAda']==''){
|
|
$ictuscordis='Tidak Ada';
|
|
}else{ $ictuscordis= $DJ19x['IctusCordisAda'];}
|
|
|
|
if($DJ19x['SternumKelainan']==''){
|
|
$sternum='Normal';
|
|
}else{ $sternum= $DJ19x['SternumKelainan'];}
|
|
|
|
if($DJ19x['SesakNapasAda']==''){
|
|
$sesak='Tidak Ada';
|
|
}else{ $sesak= $DJ19x['SesakNapasAda'];}
|
|
|
|
if($DJ19x['DadaLainLainAda']==''){
|
|
$dadalain='Tidak Ada';
|
|
}else{ $dadalain= $DJ19x['DadaLainLainAda'];}
|
|
|
|
|
|
//query lihat Fisik Paru-----------------------------------------------
|
|
$db->query("select SuaraPerkusiKelainan , Ronchi, Wheezing, Krepitasi, SuaraBronchial, PleuraFrictionRub, ParuLainLainAda from pemeriksaanfisik_paru where RegID = '$RegID' limit 1 ");
|
|
$DJ20x = $db->single();
|
|
$SuaraPerkusiKelainanNya = $DJ20x['SuaraPerkusiKelainan'];
|
|
$RonchiNya = $DJ20x['Ronchi'];
|
|
$WheezingNya = $DJ20x['Wheezing'];
|
|
$KrepitasiNya = $DJ20x['Krepitasi'];
|
|
$SuaraBronchialNya = $DJ20x['SuaraBronchial'];
|
|
$PleuraFrictionRubNya = $DJ20x['PleuraFrictionRub'];
|
|
$ParuLainLainAdaNya = $DJ20x['ParuLainLainAda'];
|
|
|
|
if($DJ20x['SuaraPerkusiKelainan']==''){
|
|
$perkusi='Normal';
|
|
}else{ $perkusi= $DJ20x['SuaraPerkusiKelainan'];}
|
|
|
|
if($DJ20x['ParuLainLainAda']==''){
|
|
$parulain='Tidak Ada';
|
|
}else{ $parulain= $DJ20x['ParuLainLainAda'];}
|
|
|
|
|
|
|
|
//query lihat Fisik Jantung-----------------------------------------------
|
|
$db->query("select VoussureCardiacAda , ThrillAda, PembesaranAda, BunyiJantungKelainan, GallopAda, IramaJantungKelainan, JantungLainLainAda from pemeriksaanfisik_jantung where RegID = '$RegID' limit 1 ");
|
|
$DJ21x = $db->single();
|
|
$VoussureCardiacAdaNya = $DJ21x['VoussureCardiacAda'];
|
|
$ThrillAdaNya = $DJ21x['ThrillAda'];
|
|
$PembesaranAdaNya = $DJ21x['PembesaranAda'];
|
|
$BunyiJantungKelainanNya = $DJ21x['BunyiJantungKelainan'];
|
|
$GallopAdaNya = $DJ21x['GallopAda'];
|
|
$IramaJantungKelainanNya = $DJ21x['IramaJantungKelainan'];
|
|
$JantungLainLainAdaNya = $DJ21x['JantungLainLainAda'];
|
|
|
|
if($DJ21x['VoussureCardiacAda']==''){
|
|
$voussure='Tidak Ada';
|
|
}else{ $voussure= $DJ21x['VoussureCardiacAda'];}
|
|
|
|
if($DJ21x['ThrillAda']==''){
|
|
$thrill='Tidak Ada';
|
|
}else{ $thrill= $DJ21x['ThrillAda'];}
|
|
|
|
if($DJ21x['PembesaranAda']==''){
|
|
$pembesaran='Tidak Ada';
|
|
}else{ $pembesaran= $DJ21x['PembesaranAda'];}
|
|
|
|
if($DJ21x['BunyiJantungKelainan']==''){
|
|
$bunyijantung='Normal';
|
|
}else{ $bunyijantung= $DJ21x['BunyiJantungKelainan'];}
|
|
|
|
if($DJ21x['GallopAda']==''){
|
|
$gallop='Tidak Ada';
|
|
}else{ $gallop= $DJ21x['GallopAda'];}
|
|
|
|
if($DJ21x['IramaJantungKelainan']==''){
|
|
$irama='Normal';
|
|
}else{ $irama= $DJ21x['IramaJantungKelainan'];}
|
|
|
|
if($DJ21x['JantungLainLainAda']==''){
|
|
$jantunglain='Tidak Ada';
|
|
}else{ $jantunglain= $DJ21x['JantungLainLainAda'];}
|
|
|
|
|
|
//query lihat Fisik Abdomen-----------------------------------------------
|
|
$db->query("select BentukAbdomenLain , HatiMembesar, LimpaMembesar, AsitesAda, PeristaltikKelainan, HerniaAda, DefansMuscularAda, NyeriTekanAda, TumorAda, AbdomenLainLainAda from pemeriksaanfisik_abdomen where RegID = '$RegID' limit 1 ");
|
|
$DJ22x = $db->single();
|
|
$BentukAbdomenLainNya = $DJ22x['BentukAbdomenLain'];
|
|
$HatiMembesarNya = $DJ22x['HatiMembesar'];
|
|
$LimpaMembesarNya = $DJ22x['LimpaMembesar'];
|
|
$AsitesAdaNya = $DJ22x['AsitesAda'];
|
|
$PeristaltikKelainanNya = $DJ22x['PeristaltikKelainan'];
|
|
$HerniaAdaNya = $DJ22x['HerniaAda'];
|
|
$DefansMuscularAdaNya = $DJ22x['DefansMuscularAda'];
|
|
$NyeriTekanAdaNya = $DJ22x['NyeriTekanAda'];
|
|
$TumorAdaNya = $DJ22x['TumorAda'];
|
|
$AbdomenLainLainAdaNya = $DJ22x['AbdomenLainLainAda'];
|
|
|
|
if($DJ22x['BentukAbdomenLain']==''){
|
|
$abdomen='Soepel';
|
|
}else{ $abdomen= $DJ22x['BentukAbdomenLain'];}
|
|
|
|
if($DJ22x['HatiMembesar']==''){
|
|
$hati='Tidak Membesar';
|
|
}else{ $hati= $DJ22x['HatiMembesar'];}
|
|
|
|
if($DJ22x['LimpaMembesar']==''){
|
|
$limpa='Tidak Membesar';
|
|
}else{ $limpa= $DJ22x['LimpaMembesar'];}
|
|
|
|
if($DJ22x['AsitesAda']==''){
|
|
$asites='Tidak Ada';
|
|
}else{ $asites= $DJ22x['AsitesAda'];}
|
|
|
|
if($DJ22x['PeristaltikKelainan']==''){
|
|
$peristal='Normal';
|
|
}else{ $peristal= $DJ22x['PeristaltikKelainan'];}
|
|
|
|
if($DJ22x['HerniaAda']==''){
|
|
$hernia='Tidak Ada';
|
|
}else{ $hernia= $DJ22x['HerniaAda'];}
|
|
|
|
if($DJ22x['DefansMuscularAda']==''){
|
|
$defans='Tidak Ada';
|
|
}else{ $defans= $DJ22x['DefansMuscularAda'];}
|
|
|
|
if($DJ22x['NyeriTekanAda']==''){
|
|
$nyeritekan='Tidak Ada';
|
|
}else{ $nyeritekan= $DJ22x['NyeriTekanAda'];}
|
|
|
|
if($DJ22x['TumorAda']==''){
|
|
$tumor='Tidak Ada';
|
|
}else{ $tumor= $DJ22x['TumorAda'];}
|
|
|
|
if($DJ22x['AbdomenLainLainAda']==''){
|
|
$abdomenlain='Tidak Ada';
|
|
}else{ $abdomenlain= $DJ22x['AbdomenLainLainAda'];}
|
|
|
|
|
|
//query lihat Fisik Anggota Tubuh-----------------------------------------------
|
|
$db->query("select PergerakanKelainan , JariTanganKelainan, EdemaAda, RefleksKelainan, TremorAda, BengkakSendiAda, SimetrisitasAsimetris, KekuatanTidakNormal, CicatrixAda, DeformitasAda, AmputasiAda, VaricesAda, TapakCeperAda, AnggotaTubuhLainLainAda from pemeriksaanfisik_anggota_tubuh where RegID = '$RegID' limit 1 ");
|
|
$DJ23x = $db->single();
|
|
$PergerakanKelainanNya = $DJ23x['PergerakanKelainan'];
|
|
$JariTanganKelainanNya = $DJ23x['JariTanganKelainan'];
|
|
$EdemaAdaNya = $DJ23x['EdemaAda'];
|
|
$RefleksKelainanNya = $DJ23x['RefleksKelainan'];
|
|
$TremorAdaNya = $DJ23x['TremorAda'];
|
|
$BengkakSendiAdaNya = $DJ23x['BengkakSendiAda'];
|
|
$SimetrisitasAsimetrisNya = $DJ23x['SimetrisitasAsimetris'];
|
|
$KekuatanTidakNormalNya = $DJ23x['KekuatanTidakNormal'];
|
|
$CicatrixAdaNya = $DJ23x['CicatrixAda'];
|
|
$DeformitasAdaNya = $DJ23x['DeformitasAda'];
|
|
$AmputasiAdaNya = $DJ23x['AmputasiAda'];
|
|
$VaricesAdaNya = $DJ23x['VaricesAda'];
|
|
$TapakCeperAdaNya = $DJ23x['TapakCeperAda'];
|
|
$AnggotaTubuhLainLainAdaNya = $DJ23x['AnggotaTubuhLainLainAda'];
|
|
|
|
if($DJ23x['PergerakanKelainan']==''){
|
|
$pergerakan='Normal';
|
|
}else{ $pergerakan= $DJ23x['PergerakanKelainan'];}
|
|
|
|
if($DJ23x['JariTanganKelainan']==''){
|
|
$jaritangan='Normal';
|
|
}else{ $jaritangan= $DJ23x['JariTanganKelainan'];}
|
|
|
|
if($DJ23x['EdemaAda']==''){
|
|
$edema='Tidak Ada';
|
|
}else{ $edema= $DJ23x['EdemaAda'];}
|
|
|
|
if($DJ23x['RefleksKelainan']==''){
|
|
$refleks='Normal';
|
|
}else{ $refleks= $DJ23x['RefleksKelainan'];}
|
|
|
|
if($DJ23x['TremorAda']==''){
|
|
$tremor='Tidak Ada';
|
|
}else{ $tremor= $DJ23x['TremorAda'];}
|
|
|
|
if($DJ23x['BengkakSendiAda']==''){
|
|
$bengkak='Tidak Ada';
|
|
}else{ $bengkak= $DJ23x['BengkakSendiAda'];}
|
|
|
|
if($DJ23x['SimetrisitasAsimetris']==''){
|
|
$simetris='Simetris';
|
|
}else{ $simetris= $DJ23x['SimetrisitasAsimetris'];}
|
|
|
|
if($DJ23x['KekuatanTidakNormal']==''){
|
|
$kekuatan='Normal';
|
|
}else{ $kekuatan= $DJ23x['KekuatanTidakNormal'];}
|
|
|
|
if($DJ23x['CicatrixAda']==''){
|
|
$cicatrix='Tidak Ada';
|
|
}else{ $cicatrix= $DJ23x['CicatrixAda'];}
|
|
|
|
if($DJ23x['DeformitasAda']==''){
|
|
$deformitas='Tidak Ada';
|
|
}else{ $deformitas= $DJ23x['DeformitasAda'];}
|
|
|
|
if($DJ23x['AmputasiAda']==''){
|
|
$amputasi='Tidak Ada';
|
|
}else{ $amputasi= $DJ23x['AmputasiAda'];}
|
|
|
|
if($DJ23x['VaricesAda']==''){
|
|
$varices='Tidak Ada';
|
|
}else{ $varices= $DJ23x['VaricesAda'];}
|
|
|
|
if($DJ23x['TapakCeperAda']==''){
|
|
$tapak='Tidak Ada';
|
|
}else{ $tapak= $DJ23x['TapakCeperAda'];}
|
|
|
|
if($DJ23x['AnggotaTubuhLainLainAda']==''){
|
|
$tubuhlain='Tidak Ada';
|
|
}else{ $tubuhlain= $DJ23x['AnggotaTubuhLainLainAda'];}
|
|
|
|
//query lihat Fisik Khusus-----------------------------------------------
|
|
$db->query("select ECG , OpticService, Audiometri, Spirometri from pemeriksaankhusus where RegID = '$RegID' limit 1 ");
|
|
$DJ24x = $db->single();
|
|
$ECGNya = $DJ24x['ECG'];
|
|
$OpticServiceNya = $DJ24x['OpticService'];
|
|
$AudiometriNya = $DJ24x['Audiometri'];
|
|
$SpirometriNya = $DJ24x['Spirometri'];
|
|
|
|
//query lihat Penunjang-----------------------------------------------
|
|
$db->query("select KeteranganLaboratorium , KeteranganRadiologi from pemeriksaanpenunjang where RegID = '$RegID' limit 1 ");
|
|
$DJ25x = $db->single();
|
|
$KeteranganLaboratoriumNya = $DJ25x['KeteranganLaboratorium'];
|
|
$KeteranganRadiologiNya = $DJ25x['KeteranganRadiologi'];
|
|
|
|
//query lihat Pajanan Pekerjaan-----------------------------------------------
|
|
$db->query("select * from penyakitakibatkerja where RegID = '$RegID' limit 1 ");
|
|
$DJ26x = $db->single();
|
|
$kebisingan = $DJ26x['KebisinganAda'];
|
|
$suhupanas = $DJ26x['SuhuPanasAda'];
|
|
$suhudingin = $DJ26x['SuhuDinginAda'];
|
|
$radiasibp = $DJ26x['RadiasiBukanPengionAda'];
|
|
$radiasip = $DJ26x['RadiasiPengionAda'];
|
|
$getaran = $DJ26x['GetaranLokalAda'];
|
|
$ketinggian = $DJ26x['KetinggianAda'];
|
|
$fisiklain = $DJ26x['FisikLainAda'];
|
|
$debuanorganik = $DJ26x['DebuAnorganikAda'];
|
|
$debuorganik = $DJ26x['DebuOragnikAda'];
|
|
$asap = $DJ26x['AsapAda'];
|
|
$logamberat = $DJ26x['LogamBeratAda'];
|
|
// $asap = $DJ26x['AsapAda'];
|
|
$pelarutorganik = $DJ26x['PelarutOrganikAda'];
|
|
$iritanasam = $DJ26x['IritanAsamAda'];
|
|
$iritanbasa = $DJ26x['IritanBasaAda'];
|
|
$cairanpembersih = $DJ26x['CairanPembersihAda'];
|
|
$pestisida = $DJ26x['PestisidaAda'];
|
|
$uaplogam = $DJ26x['UapLogamAda'];
|
|
$bahayakimialain = $DJ26x['BahayaKimiaBerbahayaLainLainAda'];
|
|
$bakteri = $DJ26x['BakteriAda'];
|
|
$cairantubuh = $DJ26x['CairanTubuhAda'];
|
|
$serangga = $DJ26x['SeranggaAda'];
|
|
$limbah = $DJ26x['LimbahAda'];
|
|
$biologilain = $DJ26x['BiologiLainLainAda'];
|
|
$overloadkerjaan = $DJ26x['OverloadKerjaanAda'];
|
|
$mismatchkerjaan = $DJ26x['MismatchKerjaanAda'];
|
|
$ketidakjelasantugas = $DJ26x['KetidakjelasanTugasAda'];
|
|
$hambatanjenjangKarir = $DJ26x['HambatanjenjangKarirAda'];
|
|
$kerjashift = $DJ26x['KerjaShiftAda'];
|
|
$konfliktemankerja = $DJ26x['KonflikTemanKerjaAda'];
|
|
$konflikkeluarga = $DJ26x['KonflikKeluargaAda'];
|
|
$psikologislainlain = $DJ26x['PsikologisLainLainAda'];
|
|
$tanganbergerakberulang = $DJ26x['TanganBergerakBerulanAda'];
|
|
$angkatberat = $DJ26x['AngkatBeratAda'];
|
|
$duduklama = $DJ26x['DudukLamaAda'];
|
|
$berdirilama = $DJ26x['BerdiriLamaAda'];
|
|
$posisitubuh = $DJ26x['PosisiTubuhTidakErgonomisAda'];
|
|
$pencahayaan = $DJ26x['PencahayaanTidakSesuaiAda'];
|
|
$lihatmonitor = $DJ26x['LihatMonitorLamaAda'];
|
|
$ergonomislain = $DJ26x['ErgonomisLainLainAda'];
|
|
$getaranseluruhtubuh = $DJ26x['GetaranSeluruhTubuhAda'];
|
|
|
|
if($DJ26x['KebisinganAda']==''){
|
|
$kebisingan='TidakAda';
|
|
}else{ $kebisingan= $DJ26x['KebisinganAda'];}
|
|
if($DJ26x['SuhuPanasAda']==''){
|
|
$suhupanas='TidakAda';
|
|
}else{ $suhupanas= $DJ26x['SuhuPanasAda'];}
|
|
if($DJ26x['SuhuDinginAda']==''){
|
|
$suhudingin='TidakAda';
|
|
}else{ $suhudingin= $DJ26x['SuhuDinginAda'];}
|
|
if($DJ26x['RadiasiBukanPengionAda']==''){
|
|
$radiasibp='TidakAda';
|
|
}else{ $radiasibp= $DJ26x['RadiasiBukanPengionAda'];}
|
|
if($DJ26x['RadiasiPengionAda']==''){
|
|
$radiasip='TidakAda';
|
|
}else{ $radiasip= $DJ26x['RadiasiPengionAda'];}
|
|
if($DJ26x['GetaranLokalAda']==''){
|
|
$getaran='TidakAda';
|
|
}else{ $getaran= $DJ26x['GetaranLokalAda'];}
|
|
if($DJ26x['KetinggianAda']==''){
|
|
$ketinggian='TidakAda';
|
|
}else{ $ketinggian= $DJ26x['KetinggianAda'];}
|
|
if($DJ26x['FisikLainAda']==''){
|
|
$fisiklain='TidakAda';
|
|
}else{ $fisiklain= $DJ26x['FisikLainAda'];}
|
|
if($DJ26x['DebuOrganikAda']==''){
|
|
$debuorganik='TidakAda';
|
|
}else{ $debuorganik= $DJ26x['DebuOrganikAda'];}
|
|
if($DJ26x['DebuAnorganikAda']==''){
|
|
$debuanorganik='TidakAda';
|
|
}else{ $debuorganik= $DJ26x['DebuOrganikAda'];}
|
|
if($DJ26x['AsapAda']==''){
|
|
$asap='TidakAda';
|
|
}else{ $asap= $DJ26x['AsapAda'];}
|
|
if($DJ26x['LogamBeratAda']==''){
|
|
$logamberat='TidakAda';
|
|
}else{ $logamberat= $DJ26x['LogamBeratAda'];}
|
|
if($DJ26x['PelarutOrganikAda']==''){
|
|
$pelarutorganik='TidakAda';
|
|
}else{ $pelarutorganik= $DJ26x['PelarutOranikAda'];}
|
|
if($DJ26x['IritanAsamAda']==''){
|
|
$iritanasam='TidakAda';
|
|
}else{ $iritanasam= $DJ26x['IritanAsamAda'];}
|
|
if($DJ26x['IritanBasaAda']==''){
|
|
$iritanbasa='TidakAda';
|
|
}else{ $iritanbasa= $DJ26x['IritanBasaAda'];}
|
|
if($DJ26x['CairanPembersihAda']==''){
|
|
$cairanpembersih='TidakAda';
|
|
}else{ $cairanpembersih= $DJ26x['CairanPembersihAda'];}
|
|
if($DJ26x['PestisidaAda']==''){
|
|
$pestisida='TidakAda';
|
|
}else{ $pestisida= $DJ26x['PestisidaAda'];}
|
|
if($DJ26x['UapLogamAda']==''){
|
|
$uaplogam='TidakAda';
|
|
}else{ $uaplogam= $DJ26x['UapLogamAda'];}
|
|
if($DJ26x['BahayaKimiaBerbahayaLainLainAda']==''){
|
|
$bahayakimialain='TidakAda';
|
|
}else{ $bahayakimialain= $DJ26x['BahayaKimiaBerbahayaLainAda'];}
|
|
if($DJ26x['BakteriAda']==''){
|
|
$bakteri='TidakAda';
|
|
}else{ $bakteri= $DJ26x['BakteriAda'];}
|
|
if($DJ26x['CairanTubuhAda']==''){
|
|
$cairantubuh='TidakAda';
|
|
}else{ $cairantubuh= $DJ26x['CairanTubuhAda'];}
|
|
if($DJ26x['SeranggaAda']==''){
|
|
$serangga='TidakAda';
|
|
}else{ $serangga= $DJ26x['SeranggaAda'];}
|
|
if($DJ26x['LimbahAda']==''){
|
|
$limbah='TidakAda';
|
|
}else{ $limbah= $DJ26x['LimbahAda'];}
|
|
if($DJ26x['BiologiLainLainAda']==''){
|
|
$biologilain='TidakAda';
|
|
}else{ $biologilain= $DJ26x['BiologiLainLainAda'];}
|
|
if($DJ26x['OverLoadKerjaanAda']==''){
|
|
$overloadkerjaan='TidakAda';
|
|
}else{ $overloadkerjaan= $DJ26x['OverLoadKerjaanAda'];}
|
|
if($DJ26x['mismatchKerjaanAda']==''){
|
|
$mismatch='TidakAda';
|
|
}else{ $mismatch= $DJ26x['MismatchKerjaanAda'];}
|
|
if($DJ26x['KetidakjelasanTugasAda']==''){
|
|
$ketidakjelasantugas='TidakAda';
|
|
}else{ $ketidakjelasantugas= $DJ26x['KetidakjelasanTugasAda'];}
|
|
if($DJ26x['HambatanJenjangKarirAda']==''){
|
|
$hambatanjenjangkarir='TidakAda';
|
|
}else{ $hambatanjenjangkarir= $DJ26x['HambatanJenjangKarirAda'];}
|
|
if($DJ26x['KerjaShiftAda']==''){
|
|
$kerjashift='TidakAda';
|
|
}else{ $kerjashift= $DJ26x['KerjaShiftAda'];}
|
|
if($DJ26x['KonflikTemanKerjaAda']==''){
|
|
$konfliktemankerja='TidakAda';
|
|
}else{ $konfliktemankerja= $DJ26x['KonflikTemanKerjaAda'];}
|
|
if($DJ26x['KonflikKeluargaAda']==''){
|
|
$konflikkeluarga='TidakAda';
|
|
}else{ $konflikkeluarga= $DJ26x['KonflikKeluargaAda'];}
|
|
if($DJ26x['PsikologisLainLainAda']==''){
|
|
$psikologislainlain='TidakAda';
|
|
}else{ $psikologislainlain= $DJ26x['PsikologisLainLainAda'];}
|
|
if($DJ26x['TanganBergerakBerulangAda']==''){
|
|
$tanganbergerakberulang='TidakAda';
|
|
}else{ $tanganbergerakberulang= $DJ26x['TanganBergerakBerulangAda'];}
|
|
if($DJ26x['AngkatBeratAda']==''){
|
|
$angkatberat='TidakAda';
|
|
}else{ $angkatberat= $DJ26x['AngkatBeratAda'];}
|
|
if($DJ26x['DudukLamaAda']==''){
|
|
$duduklama='TidakAda';
|
|
}else{ $duduklama= $DJ26x['DudukLamaAda'];}
|
|
if($DJ26x['BerdiriLamaAda']==''){
|
|
$berdirilama='TidakAda';
|
|
}else{ $berdirilama= $DJ26x['BerdiriLamaAda'];}
|
|
if($DJ26x['PosisiTubuhTidakErgonomisAda']==''){
|
|
$posisitubuh='TidakAda';
|
|
}else{ $posisitubuh= $DJ26x['PosisiTubuhTidakErgonomisAda'];}
|
|
if($DJ26x['PencahayaanTidakSesuaiAda']==''){
|
|
$pencahayaan='TidakAda';
|
|
}else{ $pencahayaan= $DJ26x['PencahayaanTidakSesuaiAda'];}
|
|
if($DJ26x['LihatMonitorLamaAda']==''){
|
|
$lihatmonitor='TidakAda';
|
|
}else{ $lihatmonitor= $DJ26x['LihatMonitorLamaAda'];}
|
|
if($DJ26x['ErgonomisLainLainAda']==''){
|
|
$ergonomislain='TidakAda';
|
|
}else{ $ergonomislain= $DJ26x['ErgonomisLainLainAda'];}
|
|
if($DJ26x['GetaranSeluruhTubuhAda']==''){
|
|
$getaranseluruhtubuh='TidakAda';
|
|
}else{ $getaranseluruhtubuh= $DJ26x['GetaranSeluruhTubuhAda'];
|
|
|
|
//query lihat Pekerjaaan-----------------------------------------------
|
|
// $db->query("select m.Pekerjaan from regpas r left join medrec m on r.MEDRECID=m.MEDRECID where r.RegID = '$RegID' limit 1 ");
|
|
//$DJ27x = $db->single();
|
|
//$Pekerjaan = $DJ27x['Pekerjaan'];
|
|
#$KeteranganRadiologiNya = $DJ25x['KeteranganRadiologi'];
|
|
|
|
//query lihat Dokternya-----------------------------------------------------
|
|
$db->query("select Nama from dokter where DokterID = '$DokterIDPengkaji' limit 1 ");
|
|
$DJ27x = $db->single();
|
|
$NamaDokterPengkaji = $DJ27x['Nama'];
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
//tuliskan isinya ke sini
|
|
$sh->write($n, 0, $no, $isi_c);
|
|
$sh->writestring($n, 1, $RegID, $isi_c);
|
|
$sh->writestring($n, 2, $MEDRECID, $isi_l);
|
|
$sh->write($n, 3, $NamaPasiennya, $isi_l);
|
|
$sh->write($n, 4, $kelamin, $isi_l);
|
|
$sh->write($n, 5, $TanggalLahirnya, $isi_r);
|
|
$sh->write($n, 6, $Umurnya, $isi_l);
|
|
$sh->write($n, 7, $TanggalDaftar, $isi_l);
|
|
//$sh->write($n, 8, $NamaPaketNya, $isi_l);
|
|
$sh->write($n, 8, $perusahaan, $isi_l);
|
|
$sh->write($n, 9, $NamaDokterNya, $isi_l);
|
|
$sh->write($n, 10, $DepartemenKerjanya, $isi_l);
|
|
$sh->write($n, 11, $TinggiBadanNya, $isi_l);
|
|
$sh->write($n, 12, $BeratBadanNya, $isi_l);
|
|
$sh->write($n, 13, $TekanandarahNya, $isi_l);
|
|
$sh->write($n, 14, $NadiNya, $isi_l);
|
|
$sh->write($n, 15, $SuhuNya, $isi_l);
|
|
$sh->write($n, 16, $PernafasanNya, $isi_l);
|
|
$sh->write($n, 17, $diabetes, $isi_l);
|
|
$sh->write($n, 18, $hipertensi, $isi_l);
|
|
$sh->write($n, 19, $lemak, $isi_l);
|
|
$sh->write($n, 20, $jantung, $isi_l);
|
|
$sh->write($n, 21, $stroke, $isi_l);
|
|
$sh->write($n, 22, $asma, $isi_l);
|
|
$sh->write($n, 23, $paru, $isi_l);
|
|
$sh->write($n, 24, $cidera, $isi_l);
|
|
$sh->write($n, 25, $rawatinap, $isi_l);
|
|
$sh->write($n, 26, $operasi, $isi_l);
|
|
$sh->write($n, 27, $lain2, $isi_l);
|
|
$sh->write($n, 28, $diabetes1, $isi_l);
|
|
$sh->write($n, 29, $hipertensi1, $isi_l);
|
|
$sh->write($n, 30, $lemak1, $isi_l);
|
|
$sh->write($n, 31, $jantung1, $isi_l);
|
|
$sh->write($n, 32, $stroke1, $isi_l);
|
|
$sh->write($n, 33, $asma1, $isi_l);
|
|
$sh->write($n, 34, $paru1, $isi_l);
|
|
$sh->write($n, 35, $cidera1, $isi_l);
|
|
$sh->write($n, 36, $rawatinap1, $isi_l);
|
|
$sh->write($n, 37, $operasi1, $isi_l);
|
|
$sh->write($n, 38, $lain21, $isi_l);
|
|
$sh->write($n, 39, $alergiobat, $isi_l);
|
|
$sh->write($n, 40, $alergimakanan, $isi_l);
|
|
$sh->write($n, 41, $alergilain, $isi_l);
|
|
$sh->write($n, 42, $merokok, $isi_l);
|
|
$sh->write($n, 43, $alkohol, $isi_l);
|
|
$sh->write($n, 44, $olahraga, $isi_l);
|
|
$sh->write($n, 45, $KeadaanUmumNya, $isi_l);
|
|
$sh->write($n, 46, $KeadaanSakitNya, $isi_l);
|
|
$sh->write($n, 47, $StatusGiziNya, $isi_l);
|
|
$sh->write($n, 48, $KesadaranNya, $isi_l);
|
|
/*$sh->write($n, 50, $HabitusNya, $isi_l);
|
|
$sh->write($n, 51, $kepala, $isi_l);
|
|
$sh->write($n, 52, $kepalalain, $isi_l);
|
|
$sh->write($n, 53, $sianosis, $isi_l);
|
|
$sh->write($n, 54, $efloresensi, $isi_l);
|
|
$sh->write($n, 55, $TurgorNya, $isi_l);
|
|
$sh->write($n, 56, $KeringatNya, $isi_l);
|
|
$sh->write($n, 57, $allergis, $isi_l);
|
|
$sh->write($n, 58, $panu, $isi_l);
|
|
// $sh->write($n, 59, $exemalodes, $isi_l);
|
|
$sh->write($n, 59, $kulitlain, $isi_l);
|
|
$sh->write($n, 60, $PterigiumNya, $isi_l);
|
|
$sh->write($n, 61, $ExopthalmusNya, $isi_l);
|
|
$sh->write($n, 62, $ConjunctivitisNya, $isi_l);
|
|
$sh->write($n, 63, $CataractNya, $isi_l);
|
|
$sh->write($n, 64, $StrabismusNya, $isi_l);
|
|
$sh->write($n, 65, $NebulaMaculaNya, $isi_l);
|
|
$sh->write($n, 66, $IcterusNya, $isi_l);
|
|
$sh->write($n, 67, $ArcusSenilisNya, $isi_l);*/
|
|
$sh->write($n, 49, $ColourBlindnessNya, $isi_l);
|
|
/*$sh->write($n, 69, $AnemieNya, $isi_l);
|
|
$sh->write($n, 70, $PupilNya, $isi_l);
|
|
$sh->write($n, 71, $visusjauh, $isi_l);
|
|
$sh->write($n, 72, $DepthPerceptionNya, $isi_l);*/
|
|
$sh->write($n, 50, $visusdekat, $isi_l);
|
|
//$sh->write($n, 74, $LapangPandangHorizontalNya, $isi_l);
|
|
$sh->write($n, 51, $matalain, $isi_l);
|
|
/*$sh->write($n, 76, $CerumenNya, $isi_l);
|
|
$sh->write($n, 77, $OtitisNya, $isi_l);
|
|
$sh->write($n, 78, $MembraneTympaniNya, $isi_l);
|
|
// $sh->write($n, 80, $MembraneTympaniKelainanNya, $isi_l);
|
|
$sh->write($n, 79, $MastoidRegionNya, $isi_l);
|
|
$sh->write($n, 80, $telingalain, $isi_l);
|
|
$sh->write($n, 81, $SeptumNya, $isi_l);
|
|
$sh->write($n, 82, $selaput, $isi_l);
|
|
$sh->write($n, 83, $PendarahanNya, $isi_l);
|
|
$sh->write($n, 84, $PolipNya, $isi_l);
|
|
$sh->write($n, 85, $PeradanganNya, $isi_l);
|
|
$sh->write($n, 86, $hidunglain, $isi_l);*/
|
|
$sh->write($n, 52, $faring, $isi_l);
|
|
$sh->write($n, 53, $tonsil, $isi_l);
|
|
/* $sh->write($n, 89, $lidah, $isi_l);
|
|
$sh->write($n, 90, $bibir, $isi_l);
|
|
$sh->write($n, 91, $gusi, $isi_l);*/
|
|
$sh->write($n, 54, $mulut, $isi_l);
|
|
$sh->write($n, 55, $gigi, $isi_l);
|
|
/*$sh->write($n, 94, $fetorexore, $isi_l);
|
|
$sh->write($n, 95, $karanggigi, $isi_l);
|
|
$sh->write($n, 96, $prothesa, $isi_l);
|
|
$sh->write($n, 97, $limphe, $isi_l);
|
|
$sh->write($n, 98, $vena, $isi_l);
|
|
$sh->write($n, 99, $darah, $isi_l);
|
|
$sh->write($n, 100, $gondok, $isi_l);
|
|
$sh->write($n, 101, $TracheaNya, $isi_l);
|
|
$sh->write($n, 102, $kuduk, $isi_l);
|
|
$sh->write($n, 103, $dada, $isi_l);
|
|
$sh->write($n, 104, $ictuscordis, $isi_l);
|
|
$sh->write($n, 105, $sternum, $isi_l);
|
|
$sh->write($n, 106, $sesak, $isi_l);
|
|
$sh->write($n, 107, $MammaeNya, $isi_l);
|
|
$sh->write($n, 108, $dadalain, $isi_l);
|
|
$sh->write($n, 109, $perkusi, $isi_l);
|
|
$sh->write($n, 110, $RonchiNya, $isi_l);
|
|
$sh->write($n, 111, $WheezingNya, $isi_l);
|
|
$sh->write($n, 112, $KrepitasiNya, $isi_l);
|
|
$sh->write($n, 113, $SuaraBronchialNya, $isi_l);
|
|
$sh->write($n, 114, $PleuraFrictionRubNya, $isi_l);*/
|
|
$sh->write($n, 56, $parulain, $isi_l);
|
|
/* $sh->write($n, 116, $voussure, $isi_l);
|
|
$sh->write($n, 117, $thrill, $isi_l);
|
|
$sh->write($n, 118, $pembesaran, $isi_l);
|
|
$sh->write($n, 119, $bunyijantung, $isi_l);
|
|
$sh->write($n, 120, $gallop, $isi_l);
|
|
$sh->write($n, 121, $irama, $isi_l);*/
|
|
$sh->write($n, 57, $jantunglain, $isi_l);
|
|
/* $sh->write($n, 123, $abdomen, $isi_l);
|
|
$sh->write($n, 124, $hati, $isi_l);
|
|
$sh->write($n, 125, $limpa, $isi_l);
|
|
$sh->write($n, 126, $asites, $isi_l);
|
|
$sh->write($n, 127, $peristal, $isi_l);*/
|
|
$sh->write($n, 58, $hernia, $isi_l);
|
|
/* $sh->write($n, 129, $defans, $isi_l);
|
|
$sh->write($n, 130, $nyeritekan, $isi_l);
|
|
$sh->write($n, 131, $tumor, $isi_l);
|
|
$sh->write($n, 132, $abdomenlain, $isi_l);
|
|
$sh->write($n, 133, $pergerakan, $isi_l);
|
|
$sh->write($n, 134, $jaritangan, $isi_l);
|
|
$sh->write($n, 135, $edema, $isi_l);
|
|
$sh->write($n, 136, $refleks, $isi_l);
|
|
$sh->write($n, 137, $tremor, $isi_l);
|
|
$sh->write($n, 138, $bengkak, $isi_l);
|
|
$sh->write($n, 139, $simetris, $isi_l);
|
|
$sh->write($n, 140, $kekuatan, $isi_l);
|
|
$sh->write($n, 141, $cicatrix, $isi_l);
|
|
$sh->write($n, 142, $deformitas, $isi_l);
|
|
$sh->write($n, 143, $amputasi, $isi_l);
|
|
$sh->write($n, 144, $varices, $isi_l);
|
|
$sh->write($n, 145, $tapak, $isi_l);
|
|
$sh->write($n, 146, $tubuhlain, $isi_l);*/
|
|
$sh->write($n, 59, $KeluhanUtamaRingkasanNya, $isi_l);
|
|
$sh->write($n, 60, $PenyakitSekarangRingkasanNya, $isi_l);//ini hapus
|
|
$sh->write($n, 61, $PenyakitDahuluRingkasanNya, $isi_l);//ini hapus
|
|
/* $sh->write($n, 150, $PemeriksaanFisikRingkasanNya, $isi_l);//ini hapus
|
|
$sh->write($n, 151, $KeteranganLaboratoriumNya, $isi_l);//ini hapus
|
|
$sh->write($n, 152, $KeteranganRadiologiNya, $isi_l); //ini hapus*/
|
|
$sh->write($n, 62, $ECGNya, $isi_l);
|
|
// $sh->write($n, 154, $OpticServiceNya, $isi_l);
|
|
$sh->write($n, 63, $AudiometriNya, $isi_l);
|
|
$sh->write($n, 64, $SpirometriNya, $isi_l);
|
|
$sh->write($n, 65, $PemeriksaanLainLainRingkasanNya, $isi_l);
|
|
/*$sh->write($n, 158, $KesimpulanRingkasanNya, $isi_l);//ini hapus
|
|
$sh->write($n, 159, $PengobatanDiberiRingkasanNya, $isi_l);
|
|
$sh->write($n, 160, $SaranMotivasiRingkasanNya, $isi_l); //ini hapus*/
|
|
$sh->write($n, 66, $SaranKesehatanKerjaRingkasannya, $isi_l);
|
|
|
|
//Tambahan penyakit akibat kerja
|
|
|
|
$sh->write($n, 67, $kebisingan, $isi_l);
|
|
$sh->write($n, 68, $suhupanas, $isi_l);
|
|
$sh->write($n, 69, $suhudingin, $isi_l);
|
|
$sh->write($n, 70, $radiasibp, $isi_l);
|
|
$sh->write($n, 71, $radiasip, $isi_l);
|
|
$sh->write($n, 72, $getaran, $isi_l);
|
|
$sh->write($n, 73, $getaranseluruhtubuh, $isi_l);
|
|
|
|
$sh->write($n, 74, $ketinggian, $isi_l);
|
|
$sh->write($n, 75, $fisiklain, $isi_l);
|
|
|
|
$sh->write($n, 76, $debuorganik, $isi_l);
|
|
$sh->write($n, 77, $debuanorganik, $isi_l);
|
|
$sh->write($n, 78, $asap, $isi_l);
|
|
$sh->write($n, 79, $logamberat, $isi_l);
|
|
$sh->write($n, 80, $pelarutorganik, $isi_l);
|
|
$sh->write($n, 81, $iritanasam, $isi_l);
|
|
$sh->write($n, 82, $iritanbasa, $isi_l);
|
|
$sh->write($n, 83, $cairanpembersih, $isi_l);
|
|
$sh->write($n, 84, $pestisida, $isi_l);
|
|
$sh->write($n, 85, $uaplogam, $isi_l);
|
|
$sh->write($n, 86, $bahayakimialain, $isi_l);
|
|
//
|
|
$sh->write($n, 87, $bakteri, $isi_l);
|
|
$sh->write($n, 88, $cairantubuh, $isi_l);
|
|
$sh->write($n, 89, $serangga, $isi_l);
|
|
$sh->write($n, 90, $limbah, $isi_l);
|
|
$sh->write($n, 91, $biologilain, $isi_l);
|
|
|
|
|
|
//
|
|
$sh->write($n, 92, $overloadkerjaan, $isi_l);
|
|
$sh->write($n, 93, $mismatch, $isi_l);
|
|
$sh->write($n, 94, $ketidakjelasantugas, $isi_l);
|
|
$sh->write($n, 95, $hambatanjenjangkarir, $isi_l);
|
|
$sh->write($n, 96, $kerjashift, $isi_l);
|
|
$sh->write($n, 97, $konfliktemankerja, $isi_l);
|
|
$sh->write($n, 98, $konflikkeluarga, $isi_l);
|
|
$sh->write($n, 99, $psikologislainlain, $isi_l);
|
|
$sh->write($n, 100, $tanganbergerakberulang, $isi_l);
|
|
$sh->write($n, 101, $angkatberat, $isi_l);
|
|
$sh->write($n, 102, $duduklama, $isi_l);
|
|
$sh->write($n, 103, $berdirilama, $isi_l);
|
|
$sh->write($n, 104, $posisitubuh, $isi_l);
|
|
$sh->write($n, 105, $pencahayaan, $isi_l);
|
|
$sh->write($n, 106, $lihatmonitor, $isi_l);
|
|
$sh->write($n, 107, $ergonomislain, $isi_l);
|
|
$sh->write($n, 108, $VisusJauhTanpaKoreksiVOD, $isi_l);
|
|
$sh->write($n, 109, $VisusJauhTanpaKoreksiVOS, $isi_l);
|
|
$sh->write($n, 110, $VisusJauhDenganKoreksiVOD, $isi_l);
|
|
$sh->write($n, 112, $VisusJauhDenganKoreksiVOS, $isi_l);
|
|
$sh->write($n, 113, $Pekerjaan, $isi_l);
|
|
$sh->write($n, 114, $NamaDokterPengkaji, $isi_l);
|
|
|
|
}
|
|
|
|
|
|
// Kirim utk download
|
|
$b->send("mcu.xls");
|
|
$b->close();
|
|
}
|
|
|
|
?>
|