396 lines
14 KiB
PHP
396 lines
14 KiB
PHP
<?php
|
|
|
|
class Inform_consent_cpmi extends MY_Controller
|
|
{
|
|
private $mediaRoot = null;
|
|
|
|
public function __construct()
|
|
{
|
|
parent::__construct();
|
|
$this->db_onedev = $this->load->database('onedev', true);
|
|
}
|
|
|
|
public function index()
|
|
{
|
|
$this->sys_ok([
|
|
'message' => 'Use /tools/inform_consent_cpmi/pdf?T_OrderHeaderID=<id>'
|
|
]);
|
|
}
|
|
|
|
public function pdf()
|
|
{
|
|
try {
|
|
$orderHeaderId = intval($this->input->get('T_OrderHeaderID', true));
|
|
if ($orderHeaderId <= 0) {
|
|
$orderHeaderId = intval($this->input->get('PID', true));
|
|
}
|
|
if ($orderHeaderId <= 0) {
|
|
$this->sys_error('T_OrderHeaderID mandatory');
|
|
return;
|
|
}
|
|
|
|
$patient = $this->get_patient_data($orderHeaderId);
|
|
if (!$patient) {
|
|
$this->sys_error('Order not found');
|
|
return;
|
|
}
|
|
|
|
$content = $this->get_consent_content();
|
|
$printBy = trim((string)$this->input->get('username', true));
|
|
if ($printBy === '') {
|
|
$printBy = 'ADMIN';
|
|
}
|
|
$printDate = date('M j, Y g:i A');
|
|
|
|
require_once APPPATH . 'third_party/fpdf/fpdf.php';
|
|
$pdf = new FPDF('P', 'mm', 'A4');
|
|
$pdf->SetAutoPageBreak(false);
|
|
$pdf->SetMargins(10, 10, 10);
|
|
|
|
$this->render_report($pdf, $patient, $content, $printBy, $printDate);
|
|
|
|
header('Content-Type: application/pdf');
|
|
header('Content-Disposition: inline; filename="inform_consent_cpmi_' . $orderHeaderId . '.pdf"');
|
|
echo $pdf->Output('S');
|
|
} catch (Exception $e) {
|
|
$this->sys_error($e->getMessage());
|
|
}
|
|
}
|
|
|
|
private function get_patient_data($orderHeaderId)
|
|
{
|
|
$sql = "SELECT
|
|
h.T_OrderHeaderID,
|
|
DATE_FORMAT(h.T_OrderHeaderDate, '%d-%m-%Y') as tanggal,
|
|
IFNULL(h.T_OrderHeaderM_PatientAge, '') as age,
|
|
p.M_PatientID,
|
|
CONCAT(TRIM(IFNULL(t.M_TitleName,'')), ' ', TRIM(IFNULL(p.M_PatientPrefix,'')), ' ', TRIM(IFNULL(p.M_PatientName,'')), ' ', TRIM(IFNULL(p.M_PatientSuffix,''))) AS patient_name,
|
|
IFNULL(s.M_SexCode, '') as sex_code,
|
|
DATE_FORMAT(p.M_PatientDOB, '%d-%m-%Y') as dob,
|
|
IFNULL(pa.M_PatientAddressDescription,'') as alamat,
|
|
(
|
|
SELECT ps.Patient_SignatureUrl
|
|
FROM patient_signature ps
|
|
WHERE ps.Patient_SignatureM_PatientID = p.M_PatientID
|
|
AND ps.Patient_SignatureIsActive = 'Y'
|
|
ORDER BY ps.Patient_SignatureID DESC
|
|
LIMIT 1
|
|
) AS signature_url
|
|
FROM t_orderheader h
|
|
JOIN m_patient p ON p.M_PatientID = h.T_OrderHeaderM_PatientID
|
|
LEFT JOIN m_title t ON t.M_TitleID = p.M_PatientM_TitleID
|
|
LEFT JOIN m_sex s ON s.M_SexID = p.M_PatientM_SexID
|
|
LEFT JOIN m_patientaddress pa ON pa.M_PatientAddressM_PatientID = p.M_PatientID
|
|
AND pa.M_PatientAddressNote = 'Utama'
|
|
AND pa.M_PatientAddressIsActive = 'Y'
|
|
WHERE h.T_OrderHeaderID = ?
|
|
LIMIT 1";
|
|
$qry = $this->db_onedev->query($sql, [$orderHeaderId]);
|
|
return $qry ? $qry->row_array() : null;
|
|
}
|
|
|
|
private function get_consent_content()
|
|
{
|
|
$sql = "SELECT M_InformConsentContent
|
|
FROM m_informconsent
|
|
WHERE M_InformConsentType = 'cpmi' AND M_InformConsentIsActive = 'Y'
|
|
LIMIT 1";
|
|
$qry = $this->db_onedev->query($sql);
|
|
if (!$qry || !$qry->row_array()) {
|
|
return '';
|
|
}
|
|
return (string)$qry->row_array()['M_InformConsentContent'];
|
|
}
|
|
|
|
private function render_report($pdf, $patient, $contentHtml, $printBy, $printDate)
|
|
{
|
|
$pdf->AddPage();
|
|
|
|
$logoPath = APPPATH . '../assets/images/logo-ibl-round.png';
|
|
if (is_file($logoPath)) {
|
|
$pdf->Image($logoPath, 14, 21, 22);
|
|
}
|
|
|
|
$pdf->SetFont('Times', 'B', 17);
|
|
$pdf->SetXY(40, 18);
|
|
$pdf->Cell(70, 8, 'KLINIK UTAMA', 0, 1, 'L');
|
|
|
|
$pdf->SetFont('Times', 'BI', 18);
|
|
$pdf->SetXY(40, 26);
|
|
$pdf->Cell(70, 8, 'IMAM', 0, 1, 'L');
|
|
$pdf->SetXY(40, 34);
|
|
$pdf->Cell(70, 8, 'BONJOL', 0, 1, 'L');
|
|
$pdf->SetFont('Arial', '', 9);
|
|
$pdf->SetXY(40, 42);
|
|
$pdf->Cell(70, 6, 'Jl. Imam Bonjol 173 Semarang', 0, 1, 'L');
|
|
|
|
$pdf->SetFont('Times', '', 10);
|
|
$pdf->SetXY(140, 12);
|
|
$pdf->Cell(55, 6, 'FR/IBL-IB/Lab/PM-4.2/02', 0, 1, 'R');
|
|
$pdf->SetFont('Arial', '', 11);
|
|
$pdf->SetXY(98, 32);
|
|
$pdf->MultiCell(80, 6, "GENERAL CONSENT\nMEDICAL TEST CPMI", 0, 'L');
|
|
|
|
$y = 56;
|
|
$pdf->SetFont('Arial', '', 9);
|
|
$pdf->SetXY(14, $y);
|
|
$pdf->Cell(80, 5, 'Saya yang bertanda tangan dibawah ini :', 0, 1, 'L');
|
|
$y += 8;
|
|
|
|
$y = $this->line_form($pdf, $y, 'Nama lengkap', trim(preg_replace('/\s+/', ' ', $patient['patient_name'])));
|
|
$y = $this->line_form($pdf, $y, 'Bin / Binti', '...............................................................');
|
|
$ttlUsia = trim($patient['dob']) . ' / ' . trim((string)$patient['age']);
|
|
$y = $this->line_form($pdf, $y, 'Tanggal lahir / Usia', $ttlUsia . ' tahun');
|
|
$y = $this->line_form($pdf, $y, 'Status', 'Kawin / Tidak Kawin');
|
|
$y = $this->line_form($pdf, $y, 'Alamat', $patient['alamat']);
|
|
|
|
$y += 2;
|
|
$blocks = $this->html_to_blocks($contentHtml);
|
|
$pdf->SetFont('Arial', '', 8.2);
|
|
$lineH = 5.2;
|
|
foreach ($blocks as $b) {
|
|
$indent = (float)$b['indent'];
|
|
$style = (string)$b['style'];
|
|
$text = (string)$b['text'];
|
|
$w = max(20, 182 - $indent);
|
|
if ($y > 228) {
|
|
break;
|
|
}
|
|
$pdf->SetFont('Arial', $style, 8.2);
|
|
$pdf->SetXY(14 + $indent, $y);
|
|
$pdf->MultiCell($w, $lineH, $this->safe_text($text), 0, 'L');
|
|
$y = $pdf->GetY();
|
|
}
|
|
|
|
$y += 3;
|
|
$pdf->SetFont('Arial', '', 8);
|
|
$pdf->SetXY(104, $y - 4);
|
|
$pdf->Cell(90, 5, 'Semarang, ' . $patient['tanggal'], 0, 1, 'R');
|
|
$pdf->SetXY(14, $y);
|
|
$pdf->Cell(90, 5, 'Petugas yang memberi penjelasan', 0, 0, 'L');
|
|
$pdf->Cell(90, 5, 'Yang membuat pernyataan', 0, 1, 'R');
|
|
$y += 12;
|
|
$pdf->SetXY(14, $y);
|
|
$pdf->Cell(90, 5, '( ................................ )', 0, 0, 'L');
|
|
$signaturePath = $this->resolve_signature_path(isset($patient['signature_url']) ? $patient['signature_url'] : '');
|
|
if ($signaturePath !== null) {
|
|
$pdf->Image($signaturePath, 156, $y - 8, 34, 10);
|
|
}
|
|
$pdf->SetFont('Arial', 'U', 8.5);
|
|
$pdf->SetXY(149, $y);
|
|
$pdf->Cell(54, 5, $this->safe_text(trim(preg_replace('/\s+/', ' ', $patient['patient_name']))), 0, 1, 'C');
|
|
|
|
$y += 8;
|
|
$pdf->Line(14, $y, 196, $y);
|
|
$y += 4;
|
|
$pdf->SetFont('Arial', '', 10);
|
|
$pdf->SetXY(14, $y);
|
|
$pdf->Cell(182, 5, 'CHECK LIST PEMERIKSAAN', 0, 1, 'C');
|
|
|
|
$y += 6;
|
|
$labelsPage1 = ['Online Sidik Jari', 'Foto', 'Fisik', 'Darah + Urine', 'Feses', 'Sputum', 'Radiologi'];
|
|
$this->draw_checklist_table($pdf, 26, $y, $labelsPage1);
|
|
|
|
$pdf->SetFont('Times', '', 7);
|
|
$pdf->SetXY(14, 286);
|
|
$pdf->Cell(22, 4, 'Print Oleh :', 0, 0, 'L');
|
|
$pdf->Cell(50, 4, $this->safe_text($printBy), 0, 0, 'L');
|
|
$pdf->Cell(12, 4, '1', 0, 0, 'C');
|
|
$pdf->Cell(6, 4, '/', 0, 0, 'C');
|
|
$pdf->Cell(12, 4, '2', 0, 0, 'C');
|
|
$date = $this->safe_text($printDate);
|
|
$dateW = $pdf->GetStringWidth($date);
|
|
$xDate = max(120, 196 - $dateW);
|
|
$pdf->SetXY($xDate, 286);
|
|
$pdf->Cell($dateW + 1, 4, $date, 0, 1, 'L');
|
|
|
|
$this->render_second_checklist_page($pdf, $printBy, $printDate);
|
|
}
|
|
|
|
private function render_second_checklist_page($pdf, $printBy, $printDate)
|
|
{
|
|
$pdf->AddPage();
|
|
$pdf->SetFont('Arial', '', 10);
|
|
$pdf->SetXY(140, 12);
|
|
$pdf->Cell(55, 6, 'FR/IBL-IB/Lab/PM-4.2/02', 0, 1, 'R');
|
|
|
|
$labelsPage2 = ['EKG', 'Audiometri', 'Lain-Lain', 'Cetak Hasil', 'Cek I', 'Cek II', 'Revisi'];
|
|
$this->draw_checklist_table($pdf, 26, 30, $labelsPage2);
|
|
|
|
$pdf->SetFont('Times', '', 7);
|
|
$pdf->SetXY(14, 286);
|
|
$pdf->Cell(22, 4, 'Print Oleh :', 0, 0, 'L');
|
|
$pdf->Cell(50, 4, $this->safe_text($printBy), 0, 0, 'L');
|
|
$pdf->Cell(12, 4, '2', 0, 0, 'C');
|
|
$pdf->Cell(6, 4, '/', 0, 0, 'C');
|
|
$pdf->Cell(12, 4, '2', 0, 0, 'C');
|
|
$date = $this->safe_text($printDate);
|
|
$dateW = $pdf->GetStringWidth($date);
|
|
$xDate = max(120, 196 - $dateW);
|
|
$pdf->SetXY($xDate, 286);
|
|
$pdf->Cell($dateW + 1, 4, $date, 0, 1, 'L');
|
|
}
|
|
|
|
private function draw_checklist_table($pdf, $xStart, $yStart, $labels)
|
|
{
|
|
$cols = count($labels);
|
|
if ($cols < 1) {
|
|
return;
|
|
}
|
|
$tableW = 156;
|
|
$colW = $tableW / $cols;
|
|
$topH = 11;
|
|
$bottomH = 10;
|
|
|
|
for ($i = 0; $i < $cols; $i++) {
|
|
$x = $xStart + ($i * $colW);
|
|
$pdf->Rect($x, $yStart, $colW, $topH);
|
|
$pdf->Rect($x, $yStart + $topH, $colW, $bottomH);
|
|
$pdf->Rect($x + 1, $yStart + 1, 4, 4);
|
|
|
|
$label = $labels[$i];
|
|
if ($label === 'Online Sidik Jari') {
|
|
$label = "Online\nSidik Jari";
|
|
} elseif ($label === 'Darah + Urine') {
|
|
$label = "Darah +\nUrine";
|
|
}
|
|
$pdf->SetFont('Arial', '', 8);
|
|
$pdf->SetXY($x + 5.5, $yStart + 1.5);
|
|
$pdf->MultiCell($colW - 6, 4, $this->safe_text($label), 0, 'C');
|
|
}
|
|
}
|
|
|
|
private function line_form($pdf, $y, $label, $value)
|
|
{
|
|
$pdf->SetFont('Arial', '', 9);
|
|
$pdf->SetXY(16, $y);
|
|
$pdf->Cell(28, 5, $this->safe_text($label), 0, 0, 'L');
|
|
$pdf->Cell(3, 5, ':', 0, 0, 'C');
|
|
$pdf->SetXY(47, $y);
|
|
$pdf->MultiCell(147, 5, $this->safe_text($value), 0, 'L');
|
|
return $pdf->GetY() + 1;
|
|
}
|
|
|
|
private function html_to_blocks($html)
|
|
{
|
|
$input = (string)$html;
|
|
$input = str_replace(['\\r\\n', '\\n', '\\r'], "\n", $input);
|
|
$input = str_replace(["\r\n", "\r"], "\n", $input);
|
|
|
|
$blocks = [];
|
|
$s = preg_replace('/<br\s*\/?>/i', "\n", $input);
|
|
$s = preg_replace('/<\/(div|p|h[1-6]|li)>/i', "$0\n", $s);
|
|
preg_match_all('/<(h[1-6]|p|li)[^>]*>(.*?)<\/\1>/is', $s, $matches, PREG_SET_ORDER);
|
|
foreach ($matches as $m) {
|
|
$tag = strtolower($m[1]);
|
|
$inner = preg_replace('/<(ul|ol)[^>]*>.*?<\/\1>/is', '', (string)$m[2]);
|
|
$plain = trim(preg_replace('/\s+/', ' ', html_entity_decode(strip_tags($inner), ENT_QUOTES | ENT_HTML5, 'UTF-8')));
|
|
if ($plain === '' || $plain === ':') {
|
|
continue;
|
|
}
|
|
$indent = 0;
|
|
$style = '';
|
|
$text = $plain;
|
|
|
|
if ($tag === 'h1' || $tag === 'h2' || $tag === 'h3' || $tag === 'h4' || $tag === 'h5' || $tag === 'h6') {
|
|
$style = 'B';
|
|
} elseif ($tag === 'li') {
|
|
if (preg_match('/^[0-9]+\./', $plain) || preg_match('/^[IVX]+\./i', $plain)) {
|
|
$text = $plain;
|
|
$indent = 0;
|
|
} else {
|
|
$text = '• ' . $plain;
|
|
$indent = 5;
|
|
}
|
|
} elseif ($tag === 'p' && (stripos((string)$m[2], '<strong') !== false || preg_match('/^[IVX]+\./i', $plain))) {
|
|
$style = 'B';
|
|
}
|
|
|
|
$blocks[] = [
|
|
'text' => $text,
|
|
'indent' => $indent,
|
|
'style' => $style
|
|
];
|
|
}
|
|
return $blocks;
|
|
}
|
|
|
|
private function safe_text($text)
|
|
{
|
|
return iconv('UTF-8', 'windows-1252//TRANSLIT', (string)$text);
|
|
}
|
|
|
|
private function resolve_signature_path($signatureUrl)
|
|
{
|
|
$url = trim((string)$signatureUrl);
|
|
if ($url === '') {
|
|
return null;
|
|
}
|
|
|
|
if (preg_match('#^https?://#i', $url)) {
|
|
$tmp = sys_get_temp_dir() . '/sig_' . md5($url) . '.png';
|
|
if (!is_file($tmp)) {
|
|
$ctx = stream_context_create([
|
|
'http' => ['timeout' => 3],
|
|
'ssl' => ['verify_peer' => false, 'verify_peer_name' => false]
|
|
]);
|
|
$bin = @file_get_contents($url, false, $ctx);
|
|
if ($bin !== false && strlen($bin) > 0) {
|
|
@file_put_contents($tmp, $bin);
|
|
}
|
|
}
|
|
return is_file($tmp) ? $tmp : null;
|
|
}
|
|
|
|
if (strpos($url, '/one-media/') === 0) {
|
|
$absMedia = rtrim($this->get_media_root(), '/') . $url;
|
|
if (is_file($absMedia)) {
|
|
return $absMedia;
|
|
}
|
|
$httpHost = isset($_SERVER['HTTP_HOST']) ? trim((string)$_SERVER['HTTP_HOST']) : '';
|
|
if ($httpHost === '') {
|
|
$httpHost = '10.9.20.31';
|
|
}
|
|
return $this->resolve_signature_path('http://' . $httpHost . $url);
|
|
}
|
|
|
|
if (strpos($url, '/') === 0) {
|
|
$abs = FCPATH . ltrim($url, '/');
|
|
if (is_file($abs)) {
|
|
return $abs;
|
|
}
|
|
}
|
|
|
|
$abs2 = FCPATH . 'assets/uploads/signature/' . ltrim($url, '/');
|
|
if (is_file($abs2)) {
|
|
return $abs2;
|
|
}
|
|
|
|
return is_file($url) ? $url : null;
|
|
}
|
|
|
|
private function get_media_root()
|
|
{
|
|
if ($this->mediaRoot !== null) {
|
|
return $this->mediaRoot;
|
|
}
|
|
|
|
$defaultRoot = '/home/one/project/one/';
|
|
$sql = "SELECT S_SystemsMediaUrl
|
|
FROM conf_systems
|
|
WHERE S_SystemsID > 0
|
|
LIMIT 1";
|
|
$qry = $this->db_onedev->query($sql);
|
|
if ($qry && $qry->row()) {
|
|
$root = trim((string)$qry->row()->S_SystemsMediaUrl);
|
|
if ($root !== '') {
|
|
$this->mediaRoot = rtrim($root, '/') . '/';
|
|
return $this->mediaRoot;
|
|
}
|
|
}
|
|
|
|
$this->mediaRoot = $defaultRoot;
|
|
return $this->mediaRoot;
|
|
}
|
|
}
|