<?php
namespace App\Controllers;

class PrinterController extends BaseController {

    // Data ZPL untuk mencetak label
    // $startSection = "^XA\n^PW400\n^LL224\n";
    // $nameSection = "^FO10,2\n^A0N,23,23\n^FD MRS. I PUTU AYU PUTRI PERTIWI ^FS\n";
    // $yearSection = "^FO12,25\n^A0N,22,22\n^FD F 24Y ^FS\n";
    // $labelBarcodeSection = "^FO85,50\n^BY2,2.0,45\n^BCN,100,N,N,N\n^FD25082257^FS\n"; 
    // $numberCodeSection = "^FO374,43\n^A0B,25,25\n^FD 25082257 ^FS\n";
    // $sampleSection = "^FO19,45\n^A0B,27,27\n^FD $sample ^FS\n";
    // $parameterSection = "^FO10,165\n^A0N,23,23\n^FD PSA, HDL, LDL, BUN, SGOT ^FS\n";
    // $lisNumSection = "^FO10,195\n^A0N,17,20\n^FD LIS  4112082257 ^FS\n";
    // $hisNumSection = "^FO10,210\n^A0N,20,20\n^FD HIS  01241101855 ^FS\n";
    // $numSampleSection = "^FO240,200\n^A0N,27,27\n^FD $access 115 ^FS\n";
    // $endSection = "^XZ";

    public function printSingleSampleBarcode($access, $sample) {

        $time = microtime(true);
        $logTime = date('d-m-Y_H_i_s', $time) . sprintf('_%03d', ($time - floor($time)) * 1000);
        $filename = "sample_".$logTime;
        
        $role = session()->get('userrole');
        $networkPath = "";

        $db = \Config\Database::connect();
        $sql = "select p.PATNUMBER as UHID, sr.HOSTORDERNUMBER as BV, p.NAME, p.SEX, p.BIRTHDATE, st.SAMPLETYPE, ds.FULLTEXT, st.SAMPLETYPE+right(sr.SP_ACCESSNUMBER,5) as barcode
                from SP_TUBES st
                left join SP_REQUESTS sr on st.SP_ACCESSNUMBER=sr.SP_ACCESSNUMBER
                left join PATIENTS p on p.PATID=sr.PATID
                left join DICT_SAMPLES_TYPES ds on ds.SAMPCODE=st.SAMPLETYPE
                where st.SP_ACCESSNUMBER='$access' AND ds.FULLTEXT = '$sample'";

        $query = $db->query($sql);
        $results = $query->getResultArray();
        $item = $results[0];

        $uhid = substr($item['UHID'], -10);
        $bv = $item['BV'];
        $sex = $item['SEX'] == 1 ? "M" : "F";
        $title = $item['SEX'] == 1 ? "Mr" : "Mrs";
        $name = $item['NAME'];
        $sample = $item['FULLTEXT'];
        $barcode = $item['barcode'];

        // Ruang Analis Printer POSTEK C168/200s
        if ($role === 'admin' || $role === 'user') {

            // Buka Mapping Drive PC Laboratorium
            exec('net use L: \\\\10.148.5.20\\Labelshare /user:Administrator 2>&1', $output, $return_var);
            $pathNetworkFolder = 'L:/Sampling_Labels/';
            $letterPath = 'L:';

            // Printer Posteck
            $sampleLable ="N
OD
q400
Q200,10+0
I8,A,001
D10
A4,3,0,2,1,1,N,\"$title.$name\"
A4,25,0,2,1,1,N,\"$sex USIA\"
A4,55,0,2,1,1,N,\"$sample\"
A4,75,0,2,1,1,N,\"Chapter\"
B149,35,0,1,3,8,70,N,\"$barcode\"
A199,110,0,2,1,1,N,\"LAB $barcode\"
A4,140,0,2,1,1,N,\"UH : $uhid\"
A4,160,0,2,1,1,N,\"BV : $bv\"
A195,156,0,2,1,1,N,\"Tgl Coll\"

P1
";

        // Ruang Analis Printer Zebra
        } else if ($role === 'sampling') {

            // Buka Mapping Drive PC Sampling
            exec('net use S: \\\\10.148.3.169\\Labelshare /user:Administrator 2>&1', $output, $return_var);
            $pathNetworkFolder = 'S:/Sampling_Labels/';
            $letterPath = 'S:';

            // Printer Zebra
            $sampleLable ="N
OD
q400
Q185,10+0
I8,A,001
D10
A4,3,0,2,1,1,N,\"$title.$name\"
A4,25,0,2,1,1,N,\"$sex USIA\"
A4,55,0,2,1,1,N,\"$sample\"
A4,75,0,2,1,1,N,\"Chapter\"
B149,35,0,1,3,8,70,N,\"$barcode\"
A199,110,0,2,1,1,N,\"LAB $barcode\"
A4,140,0,2,1,1,N,\"UH : $uhid\"
A4,160,0,2,1,1,N,\"BV : $bv\"
A195,156,0,2,1,1,N,\"Tgl Coll\"

P1
";
        } else {
            // Eksekusi Kode Berikut Apabila Role Bukan Analis atau Sampling
            return $this->response->setJSON([
                'message'   => "Akses Tidak Berwenang",
                'error'     => "Hak Akses Anda Tidak Dikenali",
                'status'    => false,
            ]);
        }

        $fullPath = $pathNetworkFolder . $filename;
		
        // Tulis file ke folder tujuan
        if (!file_put_contents($fullPath, $sampleLable)) {

            exec('net use '. $letterPath .' /delete 2>&1', $output, $return_var);    
            // Eksekusi Kode Berikut Apabila Ada Error
            return $this->response->setJSON([
				'error'   => $output,
				'message' => "Gagal Melakukan Print, Mohon Ulangi Atau Cek Koneksi Printer Anda",
				'status'  => false,
			]);

		} else {

            // Hapus Koneksi
            exec('net use '. $letterPath .' /delete 2>&1', $output, $return_var);
            return $this->response->setJSON(
                [
                    'message' => "Print Berhasil",
                    'status'   => true,
                ]
            );
        }
    }

    public function printAllSampleBarcode($access) {
        
        $role = session()->get('userrole');
        $networkPath = "";

        $db = \Config\Database::connect();
        $sql = "select p.PATNUMBER as UHID, sr.HOSTORDERNUMBER as BV, p.NAME, p.SEX, p.BIRTHDATE, st.SAMPLETYPE, ds.FULLTEXT, st.SAMPLETYPE+right(sr.SP_ACCESSNUMBER,5) as barcode
                from SP_TUBES st
                left join SP_REQUESTS sr on st.SP_ACCESSNUMBER=sr.SP_ACCESSNUMBER
                left join PATIENTS p on p.PATID=sr.PATID
                left join DICT_SAMPLES_TYPES ds on ds.SAMPCODE=st.SAMPLETYPE
                where st.SP_ACCESSNUMBER='$access'";

        $query = $db->query($sql);
        $results = $query->getResultArray();

        // Ruang Analis Printer POSTEK
        if ($role === 'admin' || $role === 'user') {

            // Buka Mapping Drive PC Laboratorium
            exec('net use L: \\\\10.148.5.20\\Labelshare /user:Administrator 2>&1', $output, $return_var);
            $pathNetworkFolder = 'L:/Sampling_Labels/';
            $letterPath = 'L:';

            // for ($i=0; $i<$data; $i++) {

            foreach($results as $item) {
                
                $time = microtime(true);
                $logTime = date('d-m-Y_H_i_s', $time) . sprintf('_%03d', ($time - floor($time)) * 1000);
                $filename = "sample_".$logTime;

                $uhid = substr($item['UHID'], -10);
                $bv = $item['BV'];
                $sex = $item['SEX'] == 1 ? "M" : "F";
                $title = $item['SEX'] == 1 ? "Mr" : "Mrs";
                $name = $item['NAME'];
                $sample = $item['FULLTEXT'];
                $barcode = $item['barcode'];

                // Printer Posteck
                $sampleLable ="N
OD
q400
Q200,10+0
I8,A,001
D10
A4,3,0,2,1,1,N,\"$title.$name\"
A4,25,0,2,1,1,N,\"$sex USIA\"
A4,55,0,2,1,1,N,\"$sample\"
A4,75,0,2,1,1,N,\"Chapter\"
B149,35,0,1,3,8,70,N,\"$barcode\"
A199,110,0,2,1,1,N,\"LAB $barcode\"
A4,140,0,2,1,1,N,\"UH : $uhid\"
A4,160,0,2,1,1,N,\"BV : $bv\"
A195,156,0,2,1,1,N,\"Tgl Coll\"

P1
";
                $fullPath = $pathNetworkFolder . $filename;
                                        
                // Tulis file ke folder tujuan
                if (!file_put_contents($fullPath, $sampleLable)) {

                    exec('net use '. $letterPath .' /delete 2>&1', $output, $return_var);    
                    // Eksekusi Kode Berikut Apabila Ada Error
                    return $this->response->setJSON([
                        'error'   => $output,
                        'message' => "Gagal Melakukan Print, Mohon Ulangi Atau Cek Koneksi Printer Anda",
                        'status'  => false,
                    ]);
                }
            }

        // Ruang Analis Printer Zebra
        } else if ($role === 'sampling') {

            // Buka Mapping Drive PC Sampling
            exec('net use S: \\\\10.148.3.169\\Labelshare /user:Administrator 2>&1', $output, $return_var);
            $pathNetworkFolder = 'S:/Sampling_Labels/';
            $letterPath = 'S:';

            foreach($results as $item) {
                
                $time = microtime(true);
                $logTime = date('d-m-Y_H_i_s', $time) . sprintf('_%03d', ($time - floor($time)) * 1000);
                $filename = "sample_".$logTime;

                $uhid = substr($item['UHID'], -10);
                $bv = $item['BV'];
                $sex = $item['SEX'] == 1 ? "M" : "F";
                $title = $item['SEX'] == 1 ? "Mr" : "Mrs";
                $name = $item['NAME'];
                $sample = $item['FULLTEXT'];
                $barcode = $item['barcode'];

                // Printer Zebra
                $sampleLable ="N
OD
q400
Q185,10+0
I8,A,001
D10
A4,3,0,2,1,1,N,\"$title.$name\"
A4,25,0,2,1,1,N,\"$sex USIA\"
A4,55,0,2,1,1,N,\"$sample\"
A4,75,0,2,1,1,N,\"Chapter\"
B149,35,0,1,3,8,70,N,\"$barcode\"
A199,110,0,2,1,1,N,\"LAB $barcode\"
A4,140,0,2,1,1,N,\"UH : $uhid\"
A4,160,0,2,1,1,N,\"BV : $bv\"
A195,156,0,2,1,1,N,\"Tgl Coll\"

P1
";
                $fullPath = $pathNetworkFolder . $filename;
                
                // Tulis file ke folder tujuan
                if (!file_put_contents($fullPath, $sampleLable)) {

                    exec('net use '. $letterPath .' /delete 2>&1', $output, $return_var);    
                    // Eksekusi Kode Berikut Apabila Ada Error
                    return $this->response->setJSON([
                        'error'   => $output,
                        'message' => "Gagal Melakukan Print, Mohon Ulangi Atau Cek Koneksi Printer Anda",
                        'status'  => false,
                    ]);

                }
            }

        } else {
            // Eksekusi Kode Berikut Apabila Role Bukan Analis atau Sampling
            return $this->response->setJSON([
				'message'   => "Akses Tidak Berwenang",
				'error'     => "Hak Akses Anda Tidak Dikenali",
				'status'    => false,
			]);
        }

        // Hapus Koneksi
        exec('net use '. $letterPath .' /delete 2>&1', $output, $return_var);
        return $this->response->setJSON(
            [
                'message' => "Print Berhasil",
                'status'   => true,
            ]
        );

    }

	public function otherTests($access){

		$fullPage="";
		$headPage = "
		<div id='page'>
			<div id='pagetop' style='height:0.01cm'> </div>
			<img src='".base_url()."assets/img/padma-header.png' class='img' />
	
			<div id='dinfo'>
	
				<table class='information t_center'>
					<tr>
						<th class='padmaColor' colspan='6' align='center'>CLINICAL LABORATORY</th>
					</tr>
	
					<tr>
						<th style='width:12%' align='left'>UHID</th>
						<td style='width:2%'>:</td>
						<td style='width:44%'>1BCJJAJSDK</td>
						<th style='width:20%' align='left'>Sample ID</th>
						<td style='width:2%'>:</td>
						<td style='width:20%'>LAB2420076951</td>
					</tr>
	
					<tr>
						<th align='left'>Name</th>
						<td>:</td>
						<td>Ni Luh Putu Eka Putri Saraswati </td>
						<th align='left'>Specimen</th>
						<td>:</td>
						<td>Serum</td>
					</tr>
	
					<tr>
						<th align='left'>Age/Gender</th>
						<td>:</td>
						<td>22 year(s) / Male</td>
						<th align='left'>Collection Date/Time</th>
						<td>:</td>
						<td>26-10-2024 / 11:55:04</td>
					</tr>
					<tr>
						<th align='left'>Speciality</th>
						<td>:</td>
						<td></td>
						<th align='left'>Result Date/Time</th>
						<td>:</td>
						<td>26-10-2024 / 11:52:04</td>
					</tr>
	
				</table>
			
			</div>
			
			<div id='dresult'>
			<br>
				<table class='result t_center'>
					
					<tr align='left'>
						<th class='padmaColor' style='width:35%'>Parameter</th>
						<th class='padmaColor' style='width:14%'>Result</th>
						<th class='padmaColor' style='width:14%'>Unit</th>
						<th class='padmaColor' style='width:17%'>Normal Range</th>
						<th class='padmaColor' style='width:20%'>Notes</th>
					</tr>
	
			";
	
		$resultTest ="";

        $item = end($access);

		$resultNoteandSpecimen = "
				<br>
	
				<table class='result t_center'>
					<tr>
						<th align='left' class='padmaColor'>Notes</th>
					</tr>
					<tr>
						<td>
						".$item['RESVALUE']."
						</td>
					</tr>
				</table>
				
				<br>
	
				<table class='t_center table_collection' >
					<tr>
						<td><pre>Collection datetime : - </pre></td>
					</tr>
					<tr>
						<td><pre>Reception datetime  : - </pre></td>
					</tr>
				</table>
		";
		$footerPage = "
		<div id='footer'>
			<table class='table_footer t_center'>
				<tr>
					<td></td>
					<td align='right'><img src='http://cmod.id/assets/img/ttd.png' alt=''></td>
				</tr>
				<tr>
					<td><u>Entered By</u></td>
					<td align='right'><u>Verified By</u></td>
				</tr>
				<tr>
					<td>Lab Technician</td>
					<td align='right'>dr. I Komang Parwata Sp.PK</td>
				</tr>
				<tr>
					<td>Mrs. Gst Ayu Riska Mastari</td>
					<td align='right'>Reg. No:   570/SIPDS/0001/I/DPMPTSP/2023</td>
				</tr>
			</table>
		</div>
		";
		$lastDiv="</div>";


        $tempChapEng = "";
        $tempChapInd = "";

        array_pop($access);

		$i=0;
		foreach ($access as $item) {

            if ($tempChapEng != $item['chap_eng']) {
                $tempChapEng = $item['chap_eng'];
                $tempChapInd = $item['chap_ind'];
                
                $i++;
                // Untuk Chapter
                $resultTest .= "
                    <tr align='left' class='chapter'>
                        <td colspan='5'>
                            <pre><b>".$tempChapEng."</b></pre>
                            <pre> <small><b>".$tempChapInd."</b></small></pre>
                        </td>
                    </tr>
                ";
                
            }

            // Melebihi batas Kertas
            if($i % 24 == 0) {
                $resultTest .= "</table></div>";
                $fullPage .= $headPage.$resultTest.$footerPage.$lastDiv;
                $i=0;
                $resultTest = "";
            }

            $i++;
            if ($item['RESTYPE'] == "CE"){
                $resvalue = $item['RESULT'];
            } else {
                $resvalue = $item['RESVALUE'];
            }
            $resultTest .= "
                <tr>
                    <td colspan='1' class=''>
                        <pre> ".$item["test_eng"]."</pre>
                        <pre>  <small>".$item["test_ind"]."</small></pre>
                    </td>
                    <td class=''>" . $resvalue . "</td>
                    <td class=''>" . $item["UNIT"] . "</td>
                    <td class=''>" . $item["REFRANGE"] . "</td>
                    <td class=''>" . " " . "</td>
                </tr>
            ";
            

            // Melebihi batas Kertas
            if($i % 24 == 0) {
                $resultTest .= "</table></div>";
                $fullPage .= $headPage.$resultTest.$footerPage.$lastDiv;
                $i=0;
                $resultTest = "";
            }
	
		}

		$resultTest .= "
				</table>
				".$resultNoteandSpecimen."
				</div>";
		
		$fullPage .= $headPage.$resultTest.$footerPage.$lastDiv;

		return $fullPage;
	}

    public function printResultTest($access) {
        $db = \Config\Database::connect();
        $sql = "
            select dc.CHAPID, dc.FULLTEXT as chap_eng,dc.FULLTEXT as chap_ind, 
            RESULT=case when cr.RESTYPE in('NM','TX') then cr.RESVALUE when cr.RESTYPE='CE' then tx.FULLTEXT end,
            cr.*, cdt.TEXT1 as test_eng, cdt.TEXT2 as test_ind 
            from cmod.dbo.CM_RESULTS cr 
            left join REQUESTS r on r.ACCESSNUMBER=cr.ACCESSNUMBER
            left join cmod.dbo.CM_DICT_TESTS cdt on cr.TESTCODE=cdt.TESTCODE
            left join DICT_TESTS dt on dt.TESTCODE=cr.TESTCODE and dt.ENDVALIDDATE is null
            left join TESTS t on t.REQUESTID = r.REQUESTID and t.TESTID=dt.TESTID
            left join DICT_TEXTS tx on tx.TEXTID=t.CODEDRESULTID
            left join DICT_CHAPTERS	dc on dc.CHAPID=dt.CHAPID and dc.ENDVALIDDATE is null
            left join cmod.dbo.CM_DICT_CHAPTERS cdc on cdc.CHAPCODE=dc.CHAPCODE
            where cr.ACCESSNUMBER='$access' 
            ORDER BY 
                CASE 
                    WHEN cr.TESTCODE = 'NOTE' THEN 1
                    ELSE 0
                END, 
                t.TESTORDER;
            ";

        $query = $db->query($sql);
        $results = $query->getResultArray();


        $data_urine = array_filter($results, function($item) {
            $chapterid = $item["CHAPID"];
            // Memfilter data dengan CHAPID 3, 61, atau 62
            return $chapterid == 3 || $chapterid == 61 || $chapterid == 62;
        });

        // Seleksi data yang mengandung "FESES"
        $data_feces = array_filter($results, function($item) {
            $chapterid = $item["CHAPID"];
            // Memfilter data yang 4
            return $chapterid == 4;
        });
        // Seleksi data yang tidak mengandung "urine" dan "feces"
        $data_others = array_filter($results, function($item) {
            $chapterid = $item["CHAPID"];
            // Memfilter data yang bukan 61 atau 3
            return $chapterid !== 3 && $chapterid !== 4 && $chapterid !== 61 && $chapterid !== 62;
        });

        $fullPage = "";

        if ($data_urine != null) {
            $fullPage .= $this->otherTests($data_urine);
        }
        if ($data_feces != null) {
            $fullPage .= $this->otherTests($data_feces);
        }
        if ($data_others != null) {
            $fullPage .= $this->otherTests($data_others);
        }

        return view('result_report', ['data' => $fullPage]);
    }
    
}