$ht = $height/100; } $bmi = number_format(($weight / ( $ht * $ht)), 2); $sql111 = "Select dbirth From opcard where hn='$hn' "; $result111 = Mysql_Query($sql111); list($dbirth) = Mysql_fetch_row($result111); $cAge = calcage($dbirth); $pdf = new SHSPdf('L', 'mm', array( 80, 50)); $pdf->SetThaiFont(); // �絿�� $pdf->SetFont('THSarabun','',14); // ���¡��ҹ������������� $pdf->SetAutoPageBreak(true, 2); $pdf->SetMargins(2, 2); $pdf->AddPage(); $full_text = "HN: $hn, $thidate, $cAge\n"; $full_text .= "VN: $vn, T: $temperature C, P: $pause ����/�ҷ�, R: $rate ����/�ҷ�\n"; $full_text .= "BP: $bp1 / $bp2 mmHg, ��: $weight ��., ��: $height ��.\n"; $full_text .= "������: $cigarette, ����: $alcohol, bmi: $bmi, PS: $painscore\n"; $full_text .= "�ѡɳ�: $type, ��Թԡ: ".(substr($clinic,3))."\n"; $full_text .= "�ä��Шӵ��: ".trim($congenital_disease)."\n"; $full_text .= "�ҡ��: ".trim($organ); $pdf->MultiCell(0, 6, $full_text); $pdf->AutoPrint(true); $pdf->Output(); ?>
$cbedname = input_get('cbedname'); $db = Mysql::load(); $sql = "SELECT `hn`,`an`,`ptname`,`age`,`ptright`,`bedcode`,`doctor`,`bed`,`diagnos` FROM `bed` WHERE `an` = :an "; $data = array( ':an' => $an ); $db->select($sql, $data); $item = $db->get_item(); $pdf = new SHSPdf('L', 'mm', array(82, 35)); $pdf->SetThaiFont(); // аЂзµњЌєµм $pdf->SetAutoPageBreak(false, 0); $pdf->SetMargins(2, 2); // left, top, right $pdf->AddPage(); $pdf->SetFont('THSarabun','',16); // а√’¬°г™йІ“єњЌєµмЈ’иаµ√’¬Ѕд«й // $pdf->Rect(0, 0, 84, 37); $pdf->Cell(0, 5, $cbedname.' '.$item['bed'], 0, 1); $pdf->Cell(0, 5, 'AN: '.$item['an'].' HN: '.$item['hn'], 0, 1); $pdf->Cell(0, 5, $item['ptname'].' Ќ“¬Ў '.$item['age'], 0, 1); $pdf->Cell(0, 5, 'в√§: '.$item['diagnos'], 0, 1); $pdf->Cell(0, 5, ' ‘ЈЄ‘: '.$item['ptright'], 0, 1); $pdf->Cell(0, 5, 'бЊЈ¬м: '.$item['doctor'], 0, 1); $pdf->AutoPrint(true); $pdf->Output();
// Save data to database // refer_nhso_sso $run_number = input_post('run_number'); $select_day = input_post('select_day'); $select_month = input_post('select_month'); $select_year = input_post('select_year') + 543; $to = input_post('to'); $type = input_post('type'); $thai_date = to_thai_number($select_day).' '.$def_fullm_th[$select_month].' '.to_thai_number($select_year); $pdf = new SHSPdf('P', 'mm', 'A4'); $pdf->SetThaiFont(); // �絿�� $pdf->SetAutoPageBreak(false, 0); $pdf->SetMargins(30, 19, 20, 25); // left, top, right $pdf->AddPage(); $pdf->SetFont('THSarabun','',16); // ���¡��ҹ������������� $pdf->SetXY(30, 19); $pdf->Image('images/ks_025_2.png', 94, 19, 30, 30, 'PNG'); $pdf->SetXY(30, 39); $pdf->Cell(47, 5, '��� �� ����.��.�/'.to_thai_number($run_number), 1, 1); $pdf->SetXY(145, 39); $pdf->MultiCell(45, 5, '�ç��Һ�Ť�������ѡ��������'."\n".'�ӺžԪ�� ��������ͧ'."\n".'�ѧ��Ѵ�ӻҧ �����', 1, 'L'); $pdf->SetXY(110, 59); $pdf->Cell(0, 5, $thai_date, 1, 1, 'L');
return $pAge; } $Can = input_get('Can'); $Chn = input_get('Chn'); $db = Mysql::load(); $sql = "SELECT a.an, a.hn, a.date, a.bedcode, b.yot, b.name, b.surname, b.idcard, b.ptright, b.dbirth, b.sex, b.address, b.tambol, b.ampur, b.changwat, b.phone, b.ptf, b.ptfadd, b.ptffone, b.camp \nFROM `ipcard` AS a\nLEFT JOIN `opcard` AS b ON a.`hn` = b.`hn` \nWHERE a.`an` = '{$Can}'"; $db->select($sql); $item = $db->get_item(); list($adate, $tdate) = explode(' ', $item['date']); $age = calcage($item['dbirth']); $sex = $item['sex'] === 'ª' ? 'ªÒÂ' : 'ËÔ§'; $pdf = new SHSPdf('P', 'mm', 'A4'); $pdf->SetThaiFont(); // à«çµ¿Í¹µì $pdf->SetAutoPageBreak(false, 0); $pdf->SetMargins(3, 3, 3); // left, top, right $pdf->AddPage(); $pdf->SetFont('THSarabun', '', 14); // àÃÕ¡ãªé§Ò¹¿Í¹µì·ÕèàµÃÕÂÁäÇé $pdf->Cell(197, 7, 'DISCHARGE SUMMARY', 0, 1, 'C'); $pdf->Cell(197, 7, 'FORT SURASAKMONTRI HOSPITAL FR-MDO-001/1 , 05, 01 , Ê.¤. 52', 0, 1, 'C'); $x = $pdf->GetX(); $y = $pdf->GetY(); // ¨Ø´ x,y µÒÁ˹éÒ¡ÃдÒÉ Êèǹ¤ÇÒÁ¡ÇéÒ§ÊÙ§¢Í§¡ÃͺµÒÁ¢Í§à´ÔÁ // µÑǹÕéà»ç¹¡ÃͺãËè $pdf->Rect($x, $y, 197, 35); $pdf->SetXY(3, 17); $pdf->Cell(85, 7, "ADMIT: {$adate} àÇÅÒ: {$tdate}", 0, 1); $pdf->SetXY(88, 17); $pdf->SetFont('THSarabun', 'B');