<?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();
}

?>