mahdahar
440f8b0362
This commit adds a print-friendly HTML version of the UAT checklist and enhances the report generation system with collection date tracking. New Features: - Add UAT_GDC_CMOD_Checklist.html with interactive checkboxes and print-friendly layout - Simplify UAT markdown checklist by removing 'No.' column and refining instructions Report Generation Enhancements: - Add collection date tracking to report generation workflow - ReportController now passes collection date to PDF spooler - ReportHelper fetches collection date from SP_REQUESTS table via getCollectionDateRaw() - Node spooler receives collection date parameter for report generation UI Improvements (content_requests.php): - Add new 'Result' column showing Ready/Pending status with visual indicators - Move Print, Generate PDF, and Retry PDF actions from Actions menu to Result dropdown - Result dropdown shows green 'Ready' for duavalidated requests, yellow 'Pending' otherwise - Actions appropriately restricted by role and validation status - Simplify Actions menu by relocating report-related functions
798 lines
35 KiB
PHP
798 lines
35 KiB
PHP
<?php
|
|
namespace App\Libraries;
|
|
|
|
class ReportHelper
|
|
{
|
|
protected $db;
|
|
|
|
public function __construct($db)
|
|
{
|
|
$this->db = $db;
|
|
}
|
|
|
|
public function getReportData(string $accessnumber, int $eng): array
|
|
{
|
|
$hostnumber = $this->getHost($accessnumber);
|
|
$result = $this->getResult($accessnumber, $eng);
|
|
$info = $this->getData2($accessnumber);
|
|
$notes = $this->getNotes($accessnumber);
|
|
$others = $this->getOthers($accessnumber, $eng);
|
|
$collData = $this->getCollData($accessnumber);
|
|
$recvData = $this->getRecvData($accessnumber);
|
|
$noSample = $this->getNoSample($accessnumber);
|
|
|
|
$collData = $this->cutData($collData);
|
|
$recvData = $this->cutData($recvData);
|
|
|
|
if ($noSample == '') {
|
|
$status = $this->getStatus($accessnumber);
|
|
} else {
|
|
$status = "PENDING";
|
|
}
|
|
|
|
$valBy = $this->getValBy($accessnumber);
|
|
$valData = $this->getValData($accessnumber);
|
|
$collectionDate = $this->getCollectionDateRaw($accessnumber);
|
|
return [
|
|
'hostnumber' => $hostnumber,
|
|
'result' => $result,
|
|
'info' => $info,
|
|
'notes' => $notes,
|
|
'others' => $others,
|
|
'collData' => $collData,
|
|
'recvData' => $recvData,
|
|
'noSample' => $noSample,
|
|
'status' => $status,
|
|
'valBy' => $valBy,
|
|
'val1User' => $valData['VAL1USER'] ?? '',
|
|
'val2User' => $valData['VAL2USER'] ?? '',
|
|
'date' => date('d-m-Y H:i'),
|
|
'collectionDate' => $collectionDate
|
|
];
|
|
}
|
|
|
|
private function cutData(string $text): string
|
|
{
|
|
if (strlen($text) > 95) {
|
|
$split_text = explode(" ", $text);
|
|
$cut_length = 11;
|
|
$split_text_cut1 = array_slice($split_text, 0, $cut_length);
|
|
$split_text_cut2 = array_slice($split_text, $cut_length, count($split_text));
|
|
$text1 = implode(" ", $split_text_cut1);
|
|
$text2 = implode(" ", $split_text_cut2);
|
|
$text = $text1 . "\r\n" . $text2;
|
|
}
|
|
return $text;
|
|
}
|
|
|
|
private function getHost(string $accessnumber): string
|
|
{
|
|
$sql = "SELECT EXTERNALORDERNUMBER FROM REQUESTS WHERE ACCESSNUMBER=?";
|
|
$row = $this->db->query($sql, [$accessnumber])->getRowArray();
|
|
return $row['EXTERNALORDERNUMBER'] ?? '';
|
|
}
|
|
|
|
private function getData2(string $accessnumber): string
|
|
{
|
|
$sql = "SELECT R.EXTERNALORDERNUMBER AS EXTERNALORDERNUMBER,
|
|
FORMAT(SR.COLLECTIONDATE,'dd-MM-yyyy') AS REQDATE,
|
|
P.NAME AS NAME,
|
|
RIGHT(P.PATNUMBER,16) AS PATNUM,
|
|
dmg.DMG_CADDRESS AS DMG_CADDRESS,
|
|
P.TELEPHON AS TELEPHON,
|
|
P.EMAIL AS EMAIL,
|
|
CASE
|
|
WHEN P.SEX=1 THEN 'Male'
|
|
WHEN P.SEX=2 THEN 'Female'
|
|
ELSE 'Unknown'
|
|
END AS SEX,
|
|
CASE WHEN FORMAT(P.BIRTHDATE,'MMdd')=FORMAT(R.COLLECTIONDATE,'MMdd')
|
|
THEN DATEDIFF(YEAR,P.BIRTHDATE, R.COLLECTIONDATE)
|
|
ELSE FLOOR(DATEDIFF(DAY, P.BIRTHDATE, R.COLLECTIONDATE) / 365.25)
|
|
END AS AGE,
|
|
CASE WHEN DATEPART(day,R.COLLECTIONDATE) >= DATEPART(day,P.BIRTHDATE)
|
|
THEN DATEDIFF(MONTH,P.BIRTHDATE, R.COLLECTIONDATE)%12
|
|
ELSE DATEDIFF(MONTH, P.BIRTHDATE, DATEADD(MONTH,-1,R.COLLECTIONDATE))%12
|
|
END AS AGEMONTHS,
|
|
RO.COMMENTTEXT AS COMMENTTEXT,
|
|
dmg.DMG_CCITY AS DMG_CCITY,
|
|
P.BIRTHDATE AS BIRTHDATE,
|
|
T.SHORTTEXT AS SHORTTEXT
|
|
FROM REQUESTS R
|
|
LEFT JOIN SP_REQUESTS SR ON SR.SP_ACCESSNUMBER=R.ACCESSNUMBER
|
|
LEFT JOIN PATIENTS P ON P.PATID=R.PATID
|
|
LEFT JOIN REQUESTS_OCOM RO ON RO.REQUESTID=R.REQUESTID
|
|
LEFT JOIN DICT_TEXTS T ON P.TITLEID=T.TEXTID
|
|
LEFT JOIN GDC_CMOD.dbo.TDL_DEMOGRAPHIC dmg ON RIGHT(P.PATNUMBER,16)=dmg.DMG_CPATNUMBER COLLATE Latin1_general_CS_AS
|
|
WHERE R.ACCESSNUMBER=?";
|
|
|
|
$row = $this->db->query($sql, [$accessnumber])->getRowArray();
|
|
|
|
$regno = $row['EXTERNALORDERNUMBER'] ?? '';
|
|
$reqdate = $row['REQDATE'] ?? '';
|
|
$pname = $row['NAME'] ?? '';
|
|
$pnum = $row['PATNUM'] ?? '';
|
|
$paddress = $row['DMG_CADDRESS'] ?? '';
|
|
$pphone = $row['TELEPHON'] ?? '';
|
|
$pemail = $row['EMAIL'] ?? '';
|
|
$psex = $row['SEX'] ?? '';
|
|
$pAge = $row['AGE'] ?? '';
|
|
$pAgeM = $row['AGEMONTHS'] ?? '';
|
|
$rcomment = $row['COMMENTTEXT'] ?? '';
|
|
$pcity = $row['DMG_CCITY'] ?? '';
|
|
$pdob = '';
|
|
if (isset($row['BIRTHDATE']) && $row['BIRTHDATE'] != null) {
|
|
$pdob = date('d-m-Y', strtotime($row['BIRTHDATE']));
|
|
}
|
|
$title = $row['SHORTTEXT'] ?? '';
|
|
if ($title != '') {
|
|
$pname = "$pname, $title";
|
|
}
|
|
|
|
$sql = "SELECT ODR_CRESULT_TO, ODR_CREFERENCENAME, ODR_CREFERENCEDOCNAME FROM GDC_CMOD.dbo.TDL_ORDER WHERE ODR_CNOLAB=?";
|
|
$row2 = $this->db->query($sql, [$regno])->getRowArray();
|
|
|
|
$sendto = $row2['ODR_CRESULT_TO'] ?? '';
|
|
$loc = $row2['ODR_CREFERENCENAME'] ?? '';
|
|
$doc = $row2['ODR_CREFERENCEDOCNAME'] ?? '';
|
|
|
|
if ($loc == 'PT. BANGUN GUNUNG SARI (BGS)') {
|
|
$loc = "PT. BANGUN GUNUNG SARI (BGS";
|
|
} elseif ($loc == 'PT. PUTRA DUTA PEMBANGUNAN') {
|
|
$loc = "PT. PUTRA DUTA PEMBANGUNAN";
|
|
} elseif ($loc == 'PT. BENSA ADHI CIPTA') {
|
|
$loc = "-";
|
|
} elseif ($loc == 'PT. LIM SIANG HUAT BALINDO') {
|
|
$loc = "-";
|
|
} elseif ($loc == '') {
|
|
$loc = 'WALK IN';
|
|
}
|
|
if ($doc == '') {
|
|
$doc = $loc;
|
|
}
|
|
|
|
$data = "<table class='info'>
|
|
<tr style='border-bottom:solid 1px black'><th colspan='5'>CLINICAL LABORATORY</th></tr>
|
|
<tr> <td>Reg#</td> <td>:</td> <td>$regno</td> <td>Date</td> <td><pre>: $reqdate $sendto</pre></td></tr>
|
|
<tr> <td>Lab#</td> <td>:</td> <td>$accessnumber</td> <td>DoB</td> <td>: $pdob (D-M-Y)</td> </tr>
|
|
<tr> <td>MR</td> <td>:</td> <td>$pnum</td> <td>Age</td> <td>: $pAge years, $pAgeM months</td> </tr>
|
|
<tr> <td>Name</td> <td>:</td> <td colspan='3'>$pname</td> </tr>
|
|
<tr> <td>Address</td> <td>:</td> <td colspan='3'>$paddress</td> </tr>
|
|
<tr> <td>Phone/Email</td> <td>:</td> <td colspan='3'>$pphone / $pemail</td> </tr>
|
|
<tr> <td>City</td> <td>:</td> <td colspan='3'>$pcity</td> </tr>
|
|
<tr> <td>Sex</td> <td>:</td> <td colspan='3'>$psex</td> </tr>
|
|
<tr> <td>Reff</td> <td>:</td> <td colspan='3'>$loc</td></tr>
|
|
<tr> <td>Doctor</td> <td>:</td> <td colspan='3'>$doc</td></tr>
|
|
</table>";
|
|
|
|
return $data;
|
|
}
|
|
|
|
private function getResult(string $accessnumber, int $eng): array
|
|
{
|
|
$_chinese = [
|
|
"HBSAG" => "B型肝炎抗原", "GGT" => "丙种谷氨酰转肽酶", "NEUT" => "中性粒细胞",
|
|
"HBSAT" => "乙肝表面抗体", "AHBS" => "乙肝表面抗体", "AHBST" => "乙肝表面抗体效价",
|
|
"LDH" => "乳酸脱氢酶", "LDL" => "<br/>低密度脂蛋白", "PROLA" => "促乳素",
|
|
"TPHCG" => "促绒毛膜性激素测验", "PSA" => "前列腺特异性抗原", "MONO" => "单核细胞",
|
|
"HSV1G" => "单纯疱疹病毒抗体1IgG", "HSV1M" => "单纯疱疹病毒抗体1IgM",
|
|
"HSV2G" => "单纯疱疹病毒抗体2IgG", "HSV2M" => "单纯疱疹病毒抗体2IgM",
|
|
"CRPQN" => "反应蛋白质量", "2SWTH" => "咽喉", "2DIPT" => "咽喉",
|
|
"BASO" => "嗜性粒血球数", "EOS" => "嗜酸性粒血球", "EOSC" => "嗜酸性粒血球",
|
|
"PBF" => "<br/>外周血沈淀率", "UA" => "尿酸", "CMVG" => "巨细胞病毒IgG",
|
|
"CMVM" => "巨细胞病毒IgM", "MCHC" => "平均含血红素浓度", "MCH" => "平均含血红素量",
|
|
"ACAG" => "异常冠状动脉IgG", "ACAM" => "异常冠状动脉IgM", "GDS" => "当时",
|
|
"VDRL" => "性病研究实验试验", "CHOL" => "总胆固醇", "UBIL" => "总胆红素",
|
|
"TP" => "总蛋白质(量)", "EBVEA" => "抗EB病毒定量免疫A", "EBVVA" => "抗EB病毒滴度免疫A",
|
|
"SALMG" => "抗沙门菌IgG", "SALMM" => "抗沙门菌IgM", "DENGG" => "抗登革热IgG",
|
|
"DENGR" => "抗登革热IgG/IgM快速", "DENGM" => "抗登革热IgM", "ICTTB" => "抗结核菌抗体线测试",
|
|
"ASTO" => "抗链球菌", "AMUBA" => "抗阿米巴", "TPHA" => "梅毒螺旋体血凝集测定",
|
|
"PAPS" => "涂片", "LYM" => "淋巴细胞", "1GO" => "淋病", "FPSA" => "游离前列腺特异性抗原",
|
|
"GLOB" => "球蛋白", "TG" => "甘油三脂", "GROW" => "生长荷尔蒙",
|
|
"PTH" => "甲状旁腺激素", "TPO" => "甲状腺过氧化物酶抗体", "AFP" => "甲胎蛋白",
|
|
"CA125" => "癌抗体125", "CA153" => "癌抗体15-3", "CA199" => "癌抗体19-9",
|
|
"CA724" => "癌抗体72-4", "CEA" => "癌胚抗原", "1NEIS" => "白喉（咽）",
|
|
"2DIPN" => "白喉（鼻）", "WBC" => "白细胞", "FWBC" => "白细胞",
|
|
"ULEUX" => "白细胞数目", "ALB" => "白蛋白", "CORPG" => "皮质醇",
|
|
"CORSR" => "皮质醇", "DBIL" => "直接", "TESTO" => "睾酮", "ALP" => "<br/>碱性磷酸",
|
|
"NSE" => "神经原特异性烯醇化酶", "GLUP" => "空腹", "HBA1C" => "空腹与餐后血糖水平",
|
|
"2SPER" => "精虫", "SPERM" => "精虫", "RBC" => "红细胞", "FRBC" => "红细胞",
|
|
"UERY" => "红细胞数目", "LED" => "红细胞沈降率", "MCV" => "红血球平均体积",
|
|
"PCV" => "红血球积压", "PASMS" => "组织学 病理", "CYSMS" => "细胞学",
|
|
"CKMB" => "细胞角蛋白", "CREA" => "肌酸酐,肌酸内酰胺酸", "BTGN" => "肾石化验",
|
|
"BATU" => "胆石化验", "CHE" => "胆碱酯酶", "INSL" => "胰岛素", "CYSTC" => "胱硫醚",
|
|
"APN" => "脂联素", "LIPO" => "脂蛋白", "2PUS" => "脓", "DHEAS" => "脱氢表雄酮硫酸酯",
|
|
"UGLU" => "葡萄糖", "UPROT" => "蛋白", "GOLRH" => "血型", "PLT" => "血小板",
|
|
"BUN" => "血尿素氮", "TBIL" => "血清谷丙转氨酶", "SGPT" => "血清谷丙转氨酶",
|
|
"SGOT" => "血清谷草转氨酶", "HB" => "血红素", "CHLAA" => "衣原体素",
|
|
"CHLAG" => "衣原体素IgG", "CHLAM" => "衣原体素IgM", "HSCRP" => "赵敏反应蛋白",
|
|
"APOA1" => "载脂蛋白", "APOB" => "载脂蛋白", "APOR" => "载脂蛋白比率",
|
|
"SDLDL" => "载脂蛋白比率", "ALDO" => "醛固酮", "DIFF" => "鉴别",
|
|
"ESTRI" => "雌三醇", "FESTR" => "雌三醇", "RUBG" => "风疹IgG",
|
|
"RUBM" => "风疹IgM", "GLU2P" => "餐后两个小时", "HDL" => "高密度脂蛋白"
|
|
];
|
|
|
|
$_italic = ["UTRI","ITALIC","PLSFC", "PLSOV", "PLSML", "PLSVI"];
|
|
|
|
$sql = "SELECT DC.FULLTEXT AS CHAPTER,
|
|
DT.TESTCODE AS TESTCODE,
|
|
T.VALIDATIONSTATUS AS VALIDATIONSTATUS,
|
|
RESULT = CASE
|
|
WHEN T.RESTYPE=0 THEN 'Pending'
|
|
WHEN T.RESTYPE=4 AND T.RESVALUE='' AND T.RESSTATUS=1 THEN '.'
|
|
WHEN T.RESTYPE IN (7,15,4) THEN T.RESVALUE
|
|
WHEN T.RESTYPE=9 THEN +'< '+T.RESVALUE
|
|
WHEN T.RESTYPE=10 THEN +'> '+T.RESVALUE
|
|
WHEN T.RESVALUE IS NULL THEN
|
|
CASE
|
|
WHEN T.CODEDRESULTID IS NULL AND DT.TESTTYPE IN (4,5) THEN NULL
|
|
WHEN T.CODEDRESULTID IS NULL THEN TC.COMMENTTEXT
|
|
WHEN T.CODEDRESULTID IS NOT NULL AND T.RESTYPE=6 AND SUBSTRING(DX.FULLTEXT,1,3) NOT LIKE '%#%' THEN DX.FULLTEXT
|
|
END
|
|
ELSE T.RESVALUE
|
|
END,
|
|
T.MINIMUM AS MINIMUM,
|
|
T.MAXIMUM AS MAXIMUM,
|
|
DT.FULLTEXT AS FULLTEXT,
|
|
DT.RESPRECISION AS PRECISION1,
|
|
DT.RESPRECISION2 AS PRECISION2,
|
|
DT.OPERAND AS OPERAND,
|
|
DT.SOFTCONVERSION AS SOFTCONVERSION,
|
|
DT.UNITS AS U1,
|
|
DT.UNITS2 AS U2,
|
|
T.RESTYPE AS RESTYPE,
|
|
VI.FULLTEXT AS I,
|
|
CASE
|
|
WHEN TC.COMMENTTEXT IS NULL THEN DX2.FULLTEXT
|
|
ELSE TC.COMMENTTEXT
|
|
END AS RESCOM,
|
|
T.RERUN AS RERUN
|
|
FROM TESTS T
|
|
JOIN DICT_TESTS DT ON DT.TESTID=T.TESTID
|
|
LEFT JOIN DICT_TEXTS DX ON DX.TEXTID=T.CODEDRESULTID
|
|
LEFT JOIN TESTS_COMMENTS TC ON TC.REQTESTID=T.REQTESTID
|
|
LEFT JOIN DICT_TEXTS DX2 ON DX2.TEXTID=TC.COMMENTCODEDID
|
|
LEFT JOIN REQUESTS R ON R.REQUESTID=T.REQUESTID
|
|
LEFT JOIN DICT_CHAPTERS DC ON DC.CHAPID=T.CHAPID
|
|
LEFT JOIN GDC_CMOD.dbo.V_INTER2 VI ON VI.ATR_ACCESSNUMBER=R.ACCESSNUMBER AND DT.TESTCODE=VI.ATR_TESTCODE
|
|
WHERE R.ACCESSNUMBER=? AND T.NOTPRINTABLE IS NULL AND DT.TESTCODE<>'STATS' AND ISNUMERIC(DT.TESTCODE)=0
|
|
ORDER BY T.TESTORDER";
|
|
|
|
$stmt = $this->db->query($sql, [$accessnumber]);
|
|
$rows = $stmt->getResultArray();
|
|
|
|
$CHAP = "";
|
|
$i = 0;
|
|
$page = 1;
|
|
$line = 0;
|
|
$lpp = 38;
|
|
$done[1] = "";
|
|
$nline = 0;
|
|
$RERUN = 1;
|
|
|
|
foreach ($rows as $row) {
|
|
$CHAPTER = $row['CHAPTER'];
|
|
$TESTCODE = $row['TESTCODE'];
|
|
$VALIDATIONSTATUS = $row['VALIDATIONSTATUS'];
|
|
$R1 = $row['RESULT'];
|
|
if ($R1 == '****') {
|
|
$R1 = '-';
|
|
}
|
|
$L1 = $row['MINIMUM'];
|
|
$H1 = $row['MAXIMUM'];
|
|
$FULLTEXT = $row['FULLTEXT'];
|
|
$PRECISION1 = $row['PRECISION1'];
|
|
$PRECISION2 = $row['PRECISION2'];
|
|
$OPERAND = $row['OPERAND'];
|
|
$SOFTCONVERSION = $row['SOFTCONVERSION'];
|
|
$U1 = $row['U1'];
|
|
$U2 = $row['U2'];
|
|
$RESTYPE = $row['RESTYPE'];
|
|
$I = $row['I'];
|
|
$RESCOM = $row['RESCOM'];
|
|
|
|
if ($eng == 1) {
|
|
$ICHAPTER = substr($CHAPTER, strpos($CHAPTER, '#E') + 2, strrpos($CHAPTER, '#E') - strpos($CHAPTER, '#E') - 2);
|
|
if ($ICHAPTER != $CHAP) {
|
|
$raw[$i] = " <tr><td colspan='7'><pre>$ICHAPTER</pre></td> </tr>\r\n";
|
|
$nline += 1;
|
|
}
|
|
$CHAP = $ICHAPTER;
|
|
$ITEXT = substr($FULLTEXT, strpos($FULLTEXT, '#E') + 2, strrpos($FULLTEXT, '#E') - strpos($FULLTEXT, '#E') - 2);
|
|
} else {
|
|
$ICHAPTER = substr($CHAPTER, 2, strrpos($CHAPTER, '#I') - 2);
|
|
if ($ICHAPTER != $CHAP) {
|
|
$raw[$i] = " <tr><td colspan='7'><pre>$ICHAPTER</pre></td> </tr>\r\n";
|
|
$nline += 1;
|
|
}
|
|
$CHAP = $ICHAPTER;
|
|
$ITEXT = substr($FULLTEXT, 2, strrpos($FULLTEXT, '#I') - 2);
|
|
}
|
|
|
|
if ($TESTCODE == 'PCRN') {
|
|
$raw[$i] .= " <tr> <td></td> <td colspan='6'><br/><pre>$ITEXT</pre></td></tr>";
|
|
$done[$page] .= $raw[$i];
|
|
} elseif (!is_numeric($RESTYPE)) {
|
|
if (array_key_exists($TESTCODE, $_chinese)) {
|
|
$ITEXT = rtrim($ITEXT)." <span class='textC'>".$_chinese[$TESTCODE].'</span>';
|
|
}
|
|
if ($ITEXT != '') {
|
|
$ITEXT = " <tr> <td colspan='7'><pre>$ITEXT</pre></td> </tr>\r\n";
|
|
$nline += 1;
|
|
$raw[$i] .= $ITEXT;
|
|
}
|
|
|
|
$RERUN = $row['RERUN'];
|
|
} else {
|
|
if (substr($R1, 0, 2) == '< ' && is_numeric(substr($R1, 2, strlen($R1)))) {
|
|
$r1 = substr($R1, 2, strlen($R1));
|
|
$r1 -= 1;
|
|
} elseif (substr($R1, 0, 2) == '> ' && is_numeric(substr($R1, 2, strlen($R1)))) {
|
|
$r1 = substr($R1, 2, strlen($R1));
|
|
$r1 += 1;
|
|
} else {
|
|
$r1 = $R1;
|
|
}
|
|
$F = "";
|
|
if ($TESTCODE != 'TROPI') {
|
|
if ($r1 < $L1 && is_numeric($r1) && is_numeric($L1)) {
|
|
$F = "*L";
|
|
} elseif ($r1 > $H1 && is_numeric($r1) && is_numeric($H1)) {
|
|
$F = "*H";
|
|
}
|
|
}
|
|
|
|
if ($RESTYPE == '9' && $TESTCODE == 'LH') {
|
|
$qr1 = preg_replace('/<|>| |/', '', $r1);
|
|
if ($qr1 < $L1 && is_numeric($qr1) && is_numeric($L1)) {
|
|
$F = "*L";
|
|
} elseif ($qr1 > $H1 && is_numeric($qr1) && is_numeric($H1)) {
|
|
$F = "*H";
|
|
}
|
|
}
|
|
|
|
if ($RESTYPE == 0) {
|
|
$R2 = "";
|
|
$L1 = "";
|
|
$H1 = "";
|
|
$L2 = "";
|
|
$H2 = "";
|
|
} else {
|
|
if (is_numeric($L1) && $PRECISION1 != 0) {
|
|
$L1 = number_format($L1, $PRECISION1);
|
|
} else {
|
|
$L1 = number_format($L1);
|
|
}
|
|
if (is_numeric($H1) && $PRECISION1 != 0) {
|
|
$H1 = number_format($H1, $PRECISION1);
|
|
} else {
|
|
$H1 = number_format($H1);
|
|
}
|
|
if (in_array($RESTYPE, [7, 15, 4]) && $OPERAND == 3) {
|
|
if (is_numeric($R1)) {
|
|
$R2 = number_format($R1 * $SOFTCONVERSION, $PRECISION2, '.', '');
|
|
} else {
|
|
$R2 = '';
|
|
}
|
|
if ($L1 != 0) {
|
|
$L2 = number_format($L1 * $SOFTCONVERSION, $PRECISION2);
|
|
} else {
|
|
$L2 = 0;
|
|
}
|
|
if (is_numeric($H1) && $H1 != 0) {
|
|
$H2 = number_format($H1 * $SOFTCONVERSION, $PRECISION2);
|
|
} else {
|
|
$H2 = 0;
|
|
}
|
|
} elseif (in_array($RESTYPE, [7, 15, 4]) && $OPERAND == 4) {
|
|
if (is_numeric($R1)) {
|
|
$R2 = number_format($R1 / $SOFTCONVERSION, $PRECISION2);
|
|
} else {
|
|
$R2 = '';
|
|
}
|
|
if (is_numeric($L1) && $L1 != 0) {
|
|
$L2 = number_format($L1 / $SOFTCONVERSION, $PRECISION2);
|
|
} else {
|
|
$L2 = 0;
|
|
}
|
|
if (is_numeric($H1) && $H1 != 0) {
|
|
$H2 = number_format($H1 / $SOFTCONVERSION, $PRECISION2);
|
|
} else {
|
|
$H2 = 0;
|
|
}
|
|
} elseif (in_array($RESTYPE, [9, 10]) & $OPERAND == 3) {
|
|
$r21 = substr($R1, 0, 2);
|
|
$r22 = substr($R1, 2, 10);
|
|
if (strlen($r22) > 5) {
|
|
$r21 = substr($r21, 0, 1);
|
|
}
|
|
$R1 = $r21.$r22;
|
|
$r22 = number_format($r22 * $SOFTCONVERSION, $PRECISION2, '.', '');
|
|
$R2 = $r21.$r22;
|
|
if ($L1 != 0) {
|
|
$L2 = number_format($L1 * $SOFTCONVERSION, $PRECISION2);
|
|
} else {
|
|
$L2 = '';
|
|
}
|
|
if ($H1 != 0) {
|
|
$H2 = number_format($H1 * $SOFTCONVERSION, $PRECISION2);
|
|
} else {
|
|
$H2 = '';
|
|
}
|
|
} elseif (in_array($RESTYPE, [9, 10]) & $OPERAND == 4) {
|
|
$r21 = substr($R1, 0, 2);
|
|
$r22 = substr($R1, 2, 10);
|
|
$r22 = number_format($r22 / $SOFTCONVERSION, $PRECISION2, '.', '');
|
|
$R2 = $r21.$r22;
|
|
if ($L1 != 0) {
|
|
$L2 = number_format($L1 / $SOFTCONVERSION, $PRECISION2);
|
|
} else {
|
|
$L2 = '';
|
|
}
|
|
if ($H1 != 0) {
|
|
$H2 = number_format($H1 / $SOFTCONVERSION, $PRECISION2);
|
|
} else {
|
|
$H2 = '';
|
|
}
|
|
} else {
|
|
$R2 = $R1;
|
|
$L2 = $L1;
|
|
$H2 = $H1;
|
|
}
|
|
}
|
|
|
|
if (($L1 == 0) && ($H1 == 0)) {
|
|
$L1 = '';
|
|
$H1 = '';
|
|
$L2 = '';
|
|
$H2 = '';
|
|
}
|
|
|
|
if (is_numeric($R1) && is_numeric($PRECISION1)) {
|
|
$R1 = number_format($R1, $PRECISION1, '.', ',');
|
|
}
|
|
if (is_numeric($R2) && is_numeric($PRECISION2)) {
|
|
$R2 = number_format($R2, $PRECISION2, '.', ',');
|
|
}
|
|
|
|
$TEXT = explode("\r\n", $ITEXT);
|
|
$test = [];
|
|
$res = [];
|
|
foreach ($TEXT as $text_item) {
|
|
$test[] = substr($text_item, 0, 33);
|
|
$res[] = substr($text_item, 33, strlen($text_item));
|
|
}
|
|
$space = (strlen($test[0]) - strlen(ltrim($test[0]))) * 7;
|
|
$test = rtrim(implode("\r\n", $test));
|
|
$res = implode("\r\n", $res);
|
|
|
|
if (in_array($TESTCODE, $_italic)) {
|
|
$test = "<i>$test</i>";
|
|
}
|
|
if (array_key_exists($TESTCODE, $_chinese)) {
|
|
$test .= " <span class='textC'>".$_chinese[$TESTCODE].'</span>';
|
|
}
|
|
|
|
$tline = count(explode(PHP_EOL, $test));
|
|
$rline = count(explode(PHP_EOL, $res));
|
|
$r1line = count(explode(PHP_EOL, $R1));
|
|
if ($rline < $r1line) {
|
|
$rline = $r1line;
|
|
}
|
|
|
|
if ($test == ' Note') {
|
|
$ITEXT = " <tr> <td style='padding-left:".$space."px'><br/>$test</td> <td colspan='6'><br/><pre>$res </pre></td> </tr>\r\n";
|
|
} elseif (strlen($RESCOM) < 2) {
|
|
$ITEXT = " <tr> <td style='padding-left:".$space."px'>$test</td> <td colspan='6'><pre>$res </pre></td> </tr>\r\n";
|
|
} else {
|
|
$rline += count(explode(PHP_EOL, $RESCOM));
|
|
$res = rtrim($res);
|
|
$ITEXT = " <tr> <td style='padding-left:".$space."px'>$test</td> <td colspan='6'><pre>$res \r\n$RESCOM</pre></td> </tr>\r\n ";
|
|
}
|
|
|
|
if ($tline > $rline) {
|
|
$nline += $tline;
|
|
} else {
|
|
$nline += $rline;
|
|
}
|
|
|
|
$posR1 = strpos($ITEXT, "{R1");
|
|
$posR12 = strrpos($ITEXT, "{R1");
|
|
$posR2 = strpos($ITEXT, "{R2");
|
|
$posR22 = strrpos($ITEXT, "{R2");
|
|
$posI1 = strpos($ITEXT, "{I");
|
|
$posI2 = strrpos($ITEXT, "{I");
|
|
|
|
$posL1 = strpos($ITEXT, "{L1");
|
|
$posL12 = strrpos($ITEXT, "{L1");
|
|
$posH1 = strpos($ITEXT, "{H1");
|
|
$posH12 = strrpos($ITEXT, "{H1");
|
|
$posL2 = strpos($ITEXT, "{L2");
|
|
$posL22 = strrpos($ITEXT, "{L2");
|
|
$posH2 = strpos($ITEXT, "{H2");
|
|
$posH22 = strrpos($ITEXT, "{H2");
|
|
$posU1 = strpos($ITEXT, "{U1");
|
|
$posU2 = strpos($ITEXT, "{U2");
|
|
|
|
$ITEXT = str_replace("{R1", " ", $ITEXT);
|
|
$ITEXT = str_replace("{R2", " ", $ITEXT);
|
|
$ITEXT = str_replace("{I", " ", $ITEXT);
|
|
$ITEXT = str_replace("{L1", " ", $ITEXT);
|
|
$ITEXT = str_replace("{H1", " ", $ITEXT);
|
|
$ITEXT = str_replace("{L2", " ", $ITEXT);
|
|
$ITEXT = str_replace("{H2", " ", $ITEXT);
|
|
$ITEXT = str_replace("{U1", " ", $ITEXT);
|
|
$ITEXT = str_replace("{U2", " ", $ITEXT);
|
|
|
|
if (in_array($RESTYPE, [4, 6, 7, 9, 10, 15])) {
|
|
if ($R1 == 'Negatif') {
|
|
$R2 = 'Negative';
|
|
}
|
|
if ($R1 == 'Positif') {
|
|
$R2 = 'Positive';
|
|
}
|
|
$ITEXT = $this->f_repl($ITEXT, $R1.' '.$F, $posR1);
|
|
if ($posR1 != $posR12) {
|
|
$ITEXT = $this->f_repl($ITEXT, $R1.' '.$F, $posR12);
|
|
}
|
|
$ITEXT = $this->f_repl($ITEXT, $L1 ?? '', $posL1);
|
|
if ($posL1 != $posL12) {
|
|
$ITEXT = $this->f_repl($ITEXT, $L1 ?? '', $posL12);
|
|
}
|
|
$ITEXT = $this->f_repl($ITEXT, $H1 ?? '', $posH1);
|
|
if ($posH1 != $posH12) {
|
|
$ITEXT = $this->f_repl($ITEXT, $H1 ?? '', $posH12);
|
|
}
|
|
if (isset($R2)) {
|
|
$ITEXT = $this->f_repl($ITEXT, $R2.' '.$F, $posR2);
|
|
if ($posR2 != $posR22) {
|
|
$ITEXT = $this->f_repl($ITEXT, $R2.' '.$F, $posR22);
|
|
}
|
|
}
|
|
if (isset($L2)) {
|
|
$ITEXT = $this->f_repl($ITEXT, $L2 ?? '', $posL2);
|
|
}
|
|
if ($posL2 != $posL22) {
|
|
$ITEXT = $this->f_repl($ITEXT, $L2 ?? '', $posL22);
|
|
}
|
|
if (isset($H2)) {
|
|
$ITEXT = $this->f_repl($ITEXT, $H2 ?? '', $posH2);
|
|
}
|
|
if ($posH2 != $posH22) {
|
|
$ITEXT = $this->f_repl($ITEXT, $H2 ?? '', $posH22);
|
|
}
|
|
if ($I == 'Negative' || $I == 'Negatif') {
|
|
$I1 = "Negatif";
|
|
$I2 = "Negative";
|
|
$ITEXT = $this->f_repl($ITEXT, $I1, $posI1);
|
|
$ITEXT = $this->f_repl($ITEXT, $I2, $posI2);
|
|
} else {
|
|
$ITEXT = $this->f_repl($ITEXT, $I ?? '', $posI1);
|
|
$ITEXT = $this->f_repl($ITEXT, $I ?? '', $posI2);
|
|
}
|
|
$ITEXT = $this->f_repl($ITEXT, $U1 ?? '', $posU1);
|
|
$ITEXT = $this->f_repl($ITEXT, $U2 ?? '', $posU2);
|
|
} elseif (in_array($RESTYPE, [2, 0, 5])) {
|
|
if (strlen($RESCOM) < 2) {
|
|
if ($TESTCODE == 'BUCRR') {
|
|
$ITEXT = $this->f_repl($ITEXT, $R1 ?? '', $posR1);
|
|
$ITEXT = $this->f_repl($ITEXT, $R1 ?? '', $posR2);
|
|
} else {
|
|
$ITEXT = substr($ITEXT, 0, $posR1);
|
|
$ITEXT .= $R1."</pre></td> </tr>";
|
|
}
|
|
} else {
|
|
$ITEXT = substr($ITEXT, 0, $posR1);
|
|
$ITEXT .= "$R1 \r\n$RESCOM</pre></td> </tr>";
|
|
}
|
|
}
|
|
|
|
$raw[$i] .= $ITEXT;
|
|
$line += $nline;
|
|
|
|
if ($TESTCODE != 'COVGG') {
|
|
if ($line > $lpp) {
|
|
$page++;
|
|
$done[$page] = "";
|
|
$line = $nline;
|
|
}
|
|
} else {
|
|
if ($line > $lpp - 14) {
|
|
$page++;
|
|
$done[$page] = "";
|
|
$line = $nline;
|
|
}
|
|
}
|
|
|
|
if ($line > $lpp) {
|
|
$page++;
|
|
$done[$page] = "";
|
|
$line = $nline;
|
|
}
|
|
$done[$page] .= $raw[$i];
|
|
$i++;
|
|
$raw[$i] = "";
|
|
$nline = 0;
|
|
}
|
|
}
|
|
|
|
return $done;
|
|
}
|
|
|
|
private function f_repl(string $text, string $ntext, int $pos): string
|
|
{
|
|
if ($pos != 0) {
|
|
$len = strlen($ntext);
|
|
if (substr($text, $pos, 1) == ' ') {
|
|
$text = substr_replace($text, $ntext, $pos, $len);
|
|
}
|
|
}
|
|
return $text;
|
|
}
|
|
|
|
private function getNotes(string $accessnumber): string
|
|
{
|
|
$sql = "SELECT RO.COMMENTTEXT FROM REQUESTS R
|
|
LEFT JOIN REQUESTS_OCOM RO ON RO.REQUESTID=R.REQUESTID
|
|
WHERE R.ACCESSNUMBER=?";
|
|
$row = $this->db->query($sql, [$accessnumber])->getRowArray();
|
|
return $row['COMMENTTEXT'] ?? '';
|
|
}
|
|
|
|
private function getOthers(string $accessnumber, int $eng): string
|
|
{
|
|
$sql = "SELECT DT.FULLTEXT AS FULLTEXT FROM TESTS T
|
|
LEFT JOIN REQUESTS R ON R.REQUESTID=T.REQUESTID
|
|
LEFT JOIN DICT_TESTS DT ON DT.TESTID=T.TESTID
|
|
WHERE R.ACCESSNUMBER=? AND ISNUMERIC(DT.TESTCODE)=1
|
|
ORDER BY T.TESTORDER";
|
|
$stmt = $this->db->query($sql, [$accessnumber]);
|
|
$rows = $stmt->getResultArray();
|
|
|
|
$i = 1;
|
|
$raw = "";
|
|
foreach ($rows as $row) {
|
|
$text = $row['FULLTEXT'];
|
|
if ($eng == 1) {
|
|
$text = substr($text, strpos($text, '#E') + 2, strrpos($text, '#E') - strpos($text, '#E') - 2);
|
|
} else {
|
|
$text = substr($text, strpos($text, '#I') + 2, strrpos($text, '#I') - strpos($text, '#I') - 2);
|
|
}
|
|
$text = str_replace("{R1", " ", $text);
|
|
$text = str_replace("{R2", " ", $text);
|
|
$text = str_replace("{I", " ", $text);
|
|
$text = str_replace("{L1", " ", $text);
|
|
$text = str_replace("{H1", " ", $text);
|
|
$text = str_replace("{L2", " ", $text);
|
|
$text = str_replace("{H2", " ", $text);
|
|
$text = str_replace("{U1", " ", $text);
|
|
$text = str_replace("{U2", " ", $text);
|
|
$text = trim($text);
|
|
$raw .= "$i. $text <br/>\r\n";
|
|
$i++;
|
|
}
|
|
return $raw;
|
|
}
|
|
|
|
private function getCollData(string $accessnumber): string
|
|
{
|
|
$collData = "";
|
|
$sql = "SELECT DISTINCT FORMAT(COLLECTIONDATE,'dd-MM-yyyy') AS COLLDATE, FORMAT(COLLECTIONDATE,'HH:mm') AS COLLTIME, STUFF(
|
|
(SELECT ', ' + dst.SHORTTEXT FROM GDC_CMOD.dbo.TUBES t1
|
|
LEFT JOIN glendb.dbo.DICT_SAMPLES_TYPES dst ON t1.TUBENUMBER=dst.SAMPCODE
|
|
WHERE t1.ACCESSNUMBER=t.ACCESSNUMBER
|
|
AND FORMAT(t1.COLLECTIONDATE,'dd-MM-yyyy HH:mm')=FORMAT(t.COLLECTIONDATE,'dd-MM-yyyy HH:mm')
|
|
FOR XML PATH('')),
|
|
1,1, '') AS SAMPLES
|
|
FROM GDC_CMOD.dbo.TUBES t WHERE t.ACCESSNUMBER=? AND STATUS=1";
|
|
$stmt = $this->db->query($sql, [$accessnumber]);
|
|
$rows = $stmt->getResultArray();
|
|
|
|
$date1 = '';
|
|
foreach ($rows as $row) {
|
|
if ($date1 == $row['COLLDATE']) {
|
|
$collData .= $row['COLLTIME'].$row['SAMPLES'].'. ';
|
|
} else {
|
|
$collData .= $row['COLLDATE'].' '.$row['COLLTIME'].$row['SAMPLES'].'. ';
|
|
}
|
|
$date1 = $row['COLLDATE'];
|
|
}
|
|
return $collData;
|
|
}
|
|
|
|
private function getRecvData(string $accessnumber): string
|
|
{
|
|
$recvData = "";
|
|
$sql = "SELECT ds.SHORTTEXT AS SHORTTEXT, FORMAT(st.COLLECTIONDATE,'dd-MM-yyyy') AS RECVDATE, FORMAT(st.COLLECTIONDATE,'HH:mm') AS RECVTIME FROM SP_TUBES st
|
|
LEFT JOIN DICT_SAMPLES_TYPES ds ON ds.SAMPCODE=st.SAMPLETYPE
|
|
WHERE st.SP_ACCESSNUMBER=? AND st.TUBESTATUS=4";
|
|
$stmt = $this->db->query($sql, [$accessnumber]);
|
|
$rows = $stmt->getResultArray();
|
|
|
|
$date1 = '';
|
|
$time1 = '';
|
|
foreach ($rows as $row) {
|
|
$x = $row['SHORTTEXT'];
|
|
$date = $row['RECVDATE'];
|
|
$time = $row['RECVTIME'];
|
|
if ($date1 == $date) {
|
|
if ($time1 == $time) {
|
|
$recvData .= $x.'. ';
|
|
} else {
|
|
$recvData .= $time.' '.$x.'. ';
|
|
}
|
|
} else {
|
|
$recvData .= $date.' '.$time.' '.$x.'. ';
|
|
}
|
|
$date1 = $date;
|
|
$time1 = $time;
|
|
}
|
|
return $recvData;
|
|
}
|
|
|
|
private function getNoSample(string $accessnumber): string
|
|
{
|
|
$sql = "SELECT DST.SHORTTEXT AS SHORTTEXT FROM SP_TUBES ST
|
|
LEFT JOIN DICT_SAMPLES_TYPES DST ON DST.SAMPCODE=ST.TUBETYPE
|
|
WHERE ST.SP_ACCESSNUMBER=? AND ST.TUBESTATUS<>4";
|
|
$stmt = $this->db->query($sql, [$accessnumber]);
|
|
$rows = $stmt->getResultArray();
|
|
|
|
$noSample = '';
|
|
foreach ($rows as $row) {
|
|
$sample = $row['SHORTTEXT'];
|
|
$noSample .= "<tr> <td>$sample</td> <td colspan='6'>No Sample</td> </tr>\r";
|
|
}
|
|
return $noSample;
|
|
}
|
|
|
|
private function getStatus(string $accessnumber): string
|
|
{
|
|
$sql = "SELECT STATS FROM GDC_CMOD.dbo.V_DASHBOARD WHERE SP_ACCESSNUMBER=?";
|
|
$row = $this->db->query($sql, [$accessnumber])->getRowArray();
|
|
|
|
if (isset($row['STATS'])) {
|
|
$status = $row['STATS'];
|
|
if ($status == 'Comp') {
|
|
$status = 'FINAL';
|
|
} else {
|
|
$status = 'PENDING';
|
|
}
|
|
} else {
|
|
$status = '';
|
|
}
|
|
return $status;
|
|
}
|
|
|
|
private function getValBy(string $accessnumber): string
|
|
{
|
|
$sql = "SELECT TOP 1 a.INITUSER, MAX(STEPDATE) as STEPDATE
|
|
FROM glendb.dbo.AUDIT_TRAIL a WHERE (a.LIS_SESSION='VAL' OR (a.LIS_SESSION='ERM' AND a.VALIDATION=5))
|
|
AND a.ATR_ACCESSNUMBER=?
|
|
GROUP BY a.INITUSER, a.STEPDATE
|
|
ORDER BY a.STEPDATE DESC";
|
|
$row = $this->db->query($sql, [$accessnumber])->getRowArray();
|
|
|
|
$valBy = $row['INITUSER'] ?? '';
|
|
if ($valBy == '' || $valBy == 'LIS') {
|
|
$valBy = "AHT";
|
|
}
|
|
return $valBy;
|
|
}
|
|
|
|
private function getValData(string $accessnumber): array {
|
|
$sql = "SELECT TOP 1 * FROM GDC_CMOD.dbo.CM_REQUESTS WHERE ACCESSNUMBER=?";
|
|
$row = $this->db->query($sql, [$accessnumber])->getRowArray();
|
|
return $row ?? [];
|
|
}
|
|
|
|
private function getCollectionDateRaw(string $accessnumber): string {
|
|
$sql = "SELECT FORMAT(SR.COLLECTIONDATE,'yyyy-MM-dd') AS COLLDATE
|
|
FROM REQUESTS R
|
|
LEFT JOIN SP_REQUESTS SR ON SR.SP_ACCESSNUMBER=R.ACCESSNUMBER
|
|
WHERE R.ACCESSNUMBER=?";
|
|
$row = $this->db->query($sql, [$accessnumber])->getRowArray();
|
|
return $row['COLLDATE'] ?? '';
|
|
}
|
|
}
|