<?php
defined('BASEPATH') or exit('No direct script access allowed');

/**
 * Rpt_lab_result — FPDF-based lab result report
 * Endpoint: GET /tools/rpt_lab_result/pdf?token=...&PT_OrderHeaderID=...
 *
 * Menggunakan sp_rpt_hasil_header untuk data pasien,
 * query langsung untuk detail hasil pemeriksaan.
 * Cache PDP di-populate sebelum call SP lalu dihapus setelah selesai.
 */
class Rpt_lab_result extends MY_Controller
{
    public $db_onedev;

    public function __construct()
    {
        parent::__construct();
        $this->db_onedev = $this->load->database('onedev', true);
        $this->load->library('ibl_patient_decrypt');
    }

    public function index()
    {
        $this->sys_ok(['message' => 'Use /tools/rpt_lab_result/pdf?PT_OrderHeaderID=<id>']);
    }

    public function pdf()
    {
        try {
            $order_id = $this->_get_order_id();
            if ($order_id <= 0) {
                $this->sys_error('PT_OrderHeaderID wajib diisi');
                return;
            }

            $username = trim($this->input->get('username', true) ?? $this->input->post('username', true) ?? '');
            if ($username === '') {
                $username = $this->sys_user['M_StaffName'] ?? $this->sys_user['M_UserUsername'] ?? 'ADMIN';
            }

            // Populate cache PDP
            $cache_id = $this->ibl_patient_decrypt->populate_cache_by_order($order_id);

            // Header data via SP
            $header = $this->_fetch_header($order_id, $username);
            if (!$header) {
                $this->ibl_patient_decrypt->delete_cache($cache_id);
                $this->sys_error('Data order tidak ditemukan');
                return;
            }

            // Detail hasil pemeriksaan
            $details = $this->_fetch_details($order_id);

            // Company info (address, phone IBL)
            $company_info = $this->_fetch_company_info();

            // Delete cache setelah data diambil
            $this->ibl_patient_decrypt->delete_cache($cache_id);

            // Generate PDF
            $pdf_bytes = $this->_build_pdf($header, $details, $company_info, $username);

            $filename = 'lab_result_' . $order_id . '_' . date('Ymd') . '.pdf';
            header('Content-Type: application/pdf');
            header('Content-Disposition: inline; filename="' . $filename . '"');
            header('Content-Length: ' . strlen($pdf_bytes));
            echo $pdf_bytes;
            exit;

        } catch (Exception $e) {
            $this->sys_error($e->getMessage());
        }
    }

    // -------------------------------------------------------------------------
    // Data fetching
    // -------------------------------------------------------------------------

    private function _fetch_header($order_id, $username)
    {
        $qry = $this->db_onedev->query('CALL sp_rpt_hasil_header(?, ?)', [$order_id, $username]);
        if (!$qry) return null;
        $row = $qry->row_array();
        $this->_clean_multi_result();
        return $row ?: null;
    }

    private function _fetch_details($order_id)
    {
        $sql = "SELECT
                    IFNULL(gr.Group_ResultName, '')          AS group_name,
                    IFNULL(gr.Group_ResultSort, 999)         AS group_sort,
                    IFNULL(grd.Group_ResultDetailSort, 999)  AS detail_sort,
                    tt.T_TestName                            AS test_name,
                    IFNULL(tod.T_OrderDetailResult, '')      AS result,
                    CASE
                        WHEN nv.Nat_NormalValueMin IS NOT NULL AND nv.Nat_NormalValueMin != ''
                             AND nv.Nat_NormalValueMax IS NOT NULL AND nv.Nat_NormalValueMax != ''
                        THEN CONCAT(nv.Nat_NormalValueMin, ' - ', nv.Nat_NormalValueMax)
                        WHEN nv.Nat_NormalValueText IS NOT NULL AND nv.Nat_NormalValueText != ''
                        THEN nv.Nat_NormalValueText
                        ELSE IFNULL(tod.T_OrderDetailNormalValueNote, '')
                    END                                      AS normal_range,
                    IFNULL(nt.Nat_TestUnit, '')              AS unit,
                    IFNULL(nm.Nat_MethodeName, '')           AS method,
                    IFNULL(tod.T_OrderDetailIsAbnormal, 'N') AS is_abnormal
                FROM t_orderdetail tod
                JOIN t_test tt  ON tod.T_OrderDetailT_TestID = tt.T_TestID AND tt.T_TestIsResult = 'Y'
                JOIN nat_test nt ON tt.T_TestNat_TestID = nt.Nat_TestID
                LEFT JOIN nat_normalvalue nv  ON tod.T_OrderDetailNat_NormalValueID = nv.Nat_NormalValueID
                LEFT JOIN nat_methode nm      ON tod.T_OrderDetailNat_MethodeID = nm.Nat_MethodeID
                LEFT JOIN group_resultdetail grd
                    ON grd.Group_ResultDetailT_TestID = tt.T_TestID AND grd.Group_ResultDetailIsActive = 'Y'
                LEFT JOIN group_result gr
                    ON grd.Group_ResultDetailGroup_ResultID = gr.Group_ResultID
                    AND gr.Group_ResultIsActive = 'Y'
                    AND gr.Group_ResultFlagNonLab = 'N'
                WHERE tod.T_OrderDetailT_OrderHeaderID = ?
                  AND tod.T_OrderDetailIsActive = 'Y'
                  AND tod.T_OrderDetailResult IS NOT NULL
                  AND tod.T_OrderDetailResult != ''
                ORDER BY gr.Group_ResultSort, grd.Group_ResultDetailSort";

        $qry = $this->db_onedev->query($sql, [$order_id]);
        return $qry ? $qry->result_array() : [];
    }

    private function _fetch_company_info()
    {
        $row = $this->db_onedev->query(
            "SELECT S_SystemsCompanyAddress, S_SystemsCompanyPhone, S_SystemsCompanyName FROM s_systems LIMIT 1"
        )->row_array();
        return $row ?: [];
    }

    // -------------------------------------------------------------------------
    // PDF builder
    // -------------------------------------------------------------------------

    private function _build_pdf(array $h, array $details, array $co, $username)
    {
        require_once APPPATH . 'third_party/fpdf/fpdf.php';

        $pdf = new FPDF('P', 'mm', 'A4');
        $pdf->SetMargins(10, 8, 10);
        $pdf->SetAutoPageBreak(true, 10);
        $pdf->AddPage();

        $pw   = $pdf->GetPageWidth();   // 210
        $ml   = 10;
        $mr   = 10;
        $cw   = $pw - $ml - $mr;        // 190

        // ── Page header ──────────────────────────────────────────────────────
        $company_addr  = $this->_s($co['S_SystemsCompanyAddress'] ?? 'Jl. LL. RE. Martadinata No. 135 Bandung');
        $company_phone = $this->_s($co['S_SystemsCompanyPhone'] ?? '(022)7271946');
        $addr_line     = $company_addr . '  Telp. ' . $company_phone;

        $pj_label = 'Penanggung Jawab : ';
        $pj_name  = $this->_s($h['M_DoctorName'] ?? '');

        $pdf->SetFont('Arial', '', 8);
        $pdf->SetXY($ml, 8);
        $pdf->Cell($cw / 2, 5, $addr_line, 0, 0, 'L');
        $pdf->SetX($ml + $cw / 2);
        $pdf->Cell($cw / 2, 5, $pj_label . $pj_name, 0, 1, 'R');

        $pdf->SetX($ml);
        $pdf->Cell($cw, 0.3, '', 'T', 1);   // horizontal line
        $pdf->Ln(1);

        // ── Patient info (2 columns) ──────────────────────────────────────────
        $lw     = $cw * 0.50;   // left column width
        $rw     = $cw * 0.50;   // right column width
        $lbl_w  = 32;
        $col_w  = 4;
        $val_w  = $lw - $lbl_w - $col_w;

        $lbl_rw  = 34;
        $val_rw  = $rw - $lbl_rw - $col_w;

        $noReg   = $this->_s($h['M_PatientNoReg'] ?? '-');
        $nama    = $this->_s($h['M_PatientName']  ?? '-');
        $pengirim = '-';
        $kelPel  = $this->_s($h['CorporateName']  ?? '-');
        $alamat  = $this->_s($h['M_PatientAddress'] ?? '-');

        $tglReg  = $this->_s($h['T_OrderHeaderDate'] ?? '-');
        $pid     = $this->_s($h['T_OrderHeaderLabNumber'] ?? '-');
        $jk      = $this->_s($h['Gender'] ?? '-');
        $tglLahir = $this->_s($h['M_PatientDOB'] ?? '-');
        $usia    = $this->_s($h['T_OrderHeaderM_PatientAge'] ?? '-');
        $hp      = $this->_s($h['M_PatientHp'] ?? '-');

        $left_rows = [
            ['NO. REG',        $noReg],
            ['NAMA',           $nama],
            ['PENGIRIM',       $pengirim],
            ['KEL. PELANGGAN*',$kelPel],
            ['ALAMAT',         $alamat],
        ];
        $right_rows = [
            ['TANGGAL REG',      $tglReg],
            ['PID',              $pid],
            ['JENIS KELAMIN',    $jk],
            ['TGL. LAHIR / USIA', $tglLahir . ' / ' . $usia],
            ['NO. TLP. / HP',    $hp],
        ];

        $pdf->SetFont('Arial', '', 8);
        $y_info_start = $pdf->GetY();

        // Barcode area (top-right, above right column rows)
        $pdf->SetXY($ml + $lw + 2, $y_info_start);
        $pdf->SetFont('Arial', 'B', 7);
        $pdf->Cell($rw - 2, 5, '||| ' . $pid . ' |||', 0, 1, 'C');
        $pdf->SetFont('Arial', '', 8);

        $y_right_start = $pdf->GetY();
        $y_left        = $y_info_start;
        $y_right       = $y_right_start;

        // Left column
        foreach ($left_rows as $row) {
            $y_left = $pdf->GetY();
            $pdf->SetXY($ml, $y_left);
            $pdf->SetFont('Arial', '', 8);
            $pdf->Cell($lbl_w, 5, $row[0], 0, 0);
            $pdf->Cell($col_w, 5, ':', 0, 0, 'C');
            $pdf->SetFont('Arial', '', 8);
            $y0 = $pdf->GetY();
            $pdf->SetXY($ml + $lbl_w + $col_w, $y0);
            $pdf->MultiCell($val_w, 5, $row[1], 0, 'L');
        }

        // Right column
        $pdf->SetY($y_right);
        foreach ($right_rows as $row) {
            $y_right = $pdf->GetY();
            $pdf->SetXY($ml + $lw, $y_right);
            $pdf->SetFont('Arial', '', 8);
            $pdf->Cell($lbl_rw, 5, $row[0], 0, 0);
            $pdf->Cell($col_w, 5, ':', 0, 0, 'C');
            $pdf->SetFont('Arial', '', 8);
            $y0 = $pdf->GetY();
            $pdf->SetXY($ml + $lw + $lbl_rw + $col_w, $y0);
            $pdf->MultiCell($val_rw, 5, $row[1], 0, 'L');
        }

        $pdf->SetY(max($pdf->GetY(), $y_left) + 2);
        $pdf->SetX($ml);
        $pdf->Cell($cw, 0.3, '', 'T', 1);
        $pdf->Ln(1);

        // ── Table header ─────────────────────────────────────────────────────
        $col = ['JENIS PEMERIKSAAN' => 67, 'HASIL' => 25, 'NILAI RUJUKAN' => 51, 'SATUAN' => 20, 'METODE' => 27];
        $row_h = 5;

        $pdf->SetFont('Arial', 'B', 8);
        $pdf->SetFillColor(240, 240, 240);
        $pdf->SetX($ml);
        foreach ($col as $label => $w) {
            $pdf->Cell($w, $row_h + 1, $label, 'LRB', 0, 'C', true);
        }
        $pdf->Ln();

        // ── Table rows ────────────────────────────────────────────────────────
        $prev_group = null;
        $pdf->SetFont('Arial', '', 8);

        foreach ($details as $d) {
            $group = strtoupper(trim($d['group_name']));

            // Group header row
            if ($group !== '' && $group !== $prev_group) {
                $pdf->SetX($ml);
                $pdf->SetFont('Arial', 'B', 8);
                $pdf->Cell($cw, $row_h, $group, 'LR', 1, 'L');
                $prev_group = $group;
            }

            // Test row
            $test_name   = $this->_s($d['test_name']);
            $result      = $this->_s($d['result']);
            $normal      = $this->_s($d['normal_range']);
            $unit        = $this->_s($d['unit']);
            $method      = $this->_s($d['method']);
            $is_abnormal = ($d['is_abnormal'] === 'Y');

            $pdf->SetX($ml);
            if ($is_abnormal) {
                $pdf->SetFont('Arial', 'B', 8);
            } else {
                $pdf->SetFont('Arial', '', 8);
            }

            // JENIS PEMERIKSAAN — pakai MultiCell, sinkronkan Y manual
            $x_start = $pdf->GetX();
            $y_start = $pdf->GetY();

            $col_widths  = array_values($col);
            $col_data    = [$test_name, $result, $normal, $unit, $method];
            $col_aligns  = ['L', 'C', 'C', 'C', 'L'];

            // Hitung tinggi baris dari MultiCell terpanjang
            $row_height = $row_h;
            foreach ($col_data as $i => $text) {
                $lines = $pdf->GetStringWidth($text) > ($col_widths[$i] - 2)
                    ? ceil($pdf->GetStringWidth($text) / ($col_widths[$i] - 2))
                    : 1;
                $row_height = max($row_height, $lines * $row_h);
            }

            foreach ($col_data as $i => $text) {
                $pdf->SetXY($x_start + array_sum(array_slice($col_widths, 0, $i)), $y_start);
                $pdf->Cell($col_widths[$i], $row_height, $text, 'LR', 0, $col_aligns[$i]);
            }
            $pdf->SetXY($ml, $y_start + $row_height);

            // Bottom border seluruh row
            $pdf->SetX($ml);
            $pdf->Cell($cw, 0, '', 'T', 1);

            $pdf->SetFont('Arial', '', 8);
        }

        // Tutup tabel
        $pdf->SetX($ml);
        $pdf->Cell($cw, 0, '', 'T', 1);

        return $pdf->Output('S');
    }

    // -------------------------------------------------------------------------
    // Helpers
    // -------------------------------------------------------------------------

    private function _get_order_id()
    {
        foreach (['PT_OrderHeaderID', 'PID', 'order_id'] as $k) {
            $v = $this->input->get($k, true) ?? $this->input->post($k, true) ?? ($this->sys_input[$k] ?? null);
            if ($v !== null && $v !== '') return intval($v);
        }
        return 0;
    }

    private function _s($text)
    {
        return iconv('UTF-8', 'windows-1252//TRANSLIT', (string) $text);
    }

    private function _clean_multi_result()
    {
        if (isset($this->db_onedev->conn_id) && $this->db_onedev->conn_id instanceof mysqli) {
            while ($this->db_onedev->conn_id->more_results()) {
                $this->db_onedev->conn_id->next_result();
            }
        }
    }
}