merge all TM to 1 controller
This commit is contained in:
parent
ceb78c19b6
commit
0073762894
@ -9,9 +9,15 @@ $routes->get('/', 'Pages::home');
|
|||||||
$routes->get('/loginsby', 'Auths::loginSBY');
|
$routes->get('/loginsby', 'Auths::loginSBY');
|
||||||
$routes->get('/logindps', 'Auths::loginDPS');
|
$routes->get('/logindps', 'Auths::loginDPS');
|
||||||
//$routes->get('/tests', 'Auths::tests');
|
//$routes->get('/tests', 'Auths::tests');
|
||||||
$routes->post('/api/requests/', 'API_Requests::requests');
|
$routes->post('/api/requests/', 'API_TM::requests');
|
||||||
$routes->get('/api/requests/orm/(:any)', 'API_Requests::orm/$1');
|
$routes->get('/api/requests/orm/(:any)', 'API_TM::orm/$1');
|
||||||
$routes->get('/api/requests/oc/(:any)/(:any)', 'API_Requests::oc/$1/$2');
|
$routes->get('/api/requests/oc/(:any)/(:any)', 'API_TM::oc/$1/$2');
|
||||||
$routes->get('/api/results/(:any)', 'API_Results::results_send/$1');
|
$routes->get('/api/results/(:any)', 'API_TM::results_send/$1');
|
||||||
$routes->get('/api/results_preview/(:any)', 'API_Results::results_preview/$1');
|
$routes->get('/api/results_preview/(:any)', 'API_TM::results_preview/$1');
|
||||||
|
|
||||||
|
// dashboard message from TM
|
||||||
|
// dashboard request TM - TD
|
||||||
|
// resend orm
|
||||||
|
// resend result
|
||||||
|
// send oc
|
||||||
|
// send new master
|
||||||
@ -1,223 +0,0 @@
|
|||||||
<?php
|
|
||||||
|
|
||||||
namespace App\Controllers;
|
|
||||||
|
|
||||||
use CodeIgniter\RESTful\ResourceController;
|
|
||||||
|
|
||||||
class API_Results extends ResourceController {
|
|
||||||
|
|
||||||
public function create_json($accessnumber) {
|
|
||||||
$db = \Config\Database::connect();
|
|
||||||
$sql = "select r.HOSTORDERNUMBER, r.SP_HOSPNUMBER, cr.REQNUMBER, cr.LOC, cr.COMPANY, cr.AGENT, cr.VISITDESC, cr.VISITTYPE,
|
|
||||||
p.PATNUMBER, p.NAME, p.FIRSTNAME, p.BIRTHDATE, p.SEX, p.TELEPHON, r.COLLECTIONDATE, cr.AGENT, cr.DOC, cr.BW, cr.BH
|
|
||||||
from SP_REQUESTS r
|
|
||||||
left join cmod.dbo.CM_TM_REQUESTS cr on cr.REFFID=r.HOSTORDERNUMBER
|
|
||||||
left join PATIENTS p on p.PATID=r.PATID
|
|
||||||
where r.SP_ACCESSNUMBER='$accessnumber'";
|
|
||||||
$query = $db->query($sql);
|
|
||||||
$results = $query->getResultArray();
|
|
||||||
|
|
||||||
$visitnumber = $results[0]['REQNUMBER'];
|
|
||||||
$reffid = $results[0]['HOSTORDERNUMBER'];
|
|
||||||
$location = $results[0]['LOC'];
|
|
||||||
$payer_name = $results[0]['AGENT'];
|
|
||||||
$company = $results[0]['COMPANY'];
|
|
||||||
$createdt = gmdate('Y-m-d\TH:i:s.v\Z');
|
|
||||||
$patnumber = substr($results[0]['PATNUMBER'],-9);
|
|
||||||
$firstname = $results[0]['NAME'];
|
|
||||||
$lastname = $results[0]['FIRSTNAME'];
|
|
||||||
$dob = $results[0]['BIRTHDATE'];
|
|
||||||
$sex = $results[0]['SEX'];
|
|
||||||
$phone = $results[0]['TELEPHON'];
|
|
||||||
$visitdesc = $results[0]['VISITDESC'];
|
|
||||||
$visittype = $results[0]['VISITTYPE'];
|
|
||||||
$visitdt = $results[0]['COLLECTIONDATE'];
|
|
||||||
$agent = $results[0]['AGENT'];
|
|
||||||
if($agent != '') {$bagent = true;}
|
|
||||||
else {$bagent=false;}
|
|
||||||
$doctor = $results[0]['DOC'];
|
|
||||||
$bw = $results[0]['BW'];
|
|
||||||
$bh = $results[0]['BH'];
|
|
||||||
|
|
||||||
|
|
||||||
$json = [
|
|
||||||
"reference_id" => "$reffid",
|
|
||||||
"created" => "$createdt",
|
|
||||||
"company_name" => $company,
|
|
||||||
"branch" => $location,
|
|
||||||
"visit_number" => $visitnumber,
|
|
||||||
"patient" => [
|
|
||||||
"rm_number" => $patnumber,
|
|
||||||
"patient_first_name" => $firstname,
|
|
||||||
"patient_last_name" => $lastname,
|
|
||||||
"patient_dob" => $dob,
|
|
||||||
"patient_sex" => $sex,
|
|
||||||
"patient_phone" => $phone,
|
|
||||||
"visit_number" => $visitnumber,
|
|
||||||
"visit_description"=> $visitdesc,
|
|
||||||
"visit_date_time" => $visitdt,
|
|
||||||
"agent_name" => $agent,
|
|
||||||
"agent" => $bagent,
|
|
||||||
"treating_doctor" => $doctor,
|
|
||||||
"visit_type" => $visittype,
|
|
||||||
"anthropometry" => [
|
|
||||||
"weight" => $bw,
|
|
||||||
"height" => $bh,
|
|
||||||
],
|
|
||||||
],
|
|
||||||
"test_results" => [],
|
|
||||||
"collects" => [],
|
|
||||||
"receives" => []
|
|
||||||
];
|
|
||||||
|
|
||||||
$sql = "select dc.CHAPID, t.DEPTH as depth_test, dc.FULLTEXT as chap_eng, dc.FULLTEXT as chap_ind, st.FULLTEXT as serum_type,
|
|
||||||
cdt.TEXT1 as test_eng, cdt.TEXT2 as test_ind, cdt.UNIT as UNITTEXT, cdt.REFFTEXT, t.NOTPRINTABLE, cr.RESSTATUS,
|
|
||||||
t.TESTORDER, t.RESTYPE as code_type, t.VALIDATIONINITIALS as validator, dt.SHORTTEXT,
|
|
||||||
RESULT = case when t.RESVALUE is null then tx.FULLTEXT else t.RESVALUE end, ct.REFFTESTID, m.HISCODE, m.LISCODE,
|
|
||||||
tub.TUBENAME, cr.REFRANGE, dt.TESTCODE, t.TESTORDER, dt.UNITS
|
|
||||||
from REQUESTS r
|
|
||||||
left join TESTS t on t.REQUESTID = r.REQUESTID
|
|
||||||
left join DICT_TESTS dt on dt.ENDVALIDDATE is null 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 DICT_TEST_SAMPLES ts on ts.TESTID=t.TESTID and dt.TESTID=ts.TESTID
|
|
||||||
left join DICT_SAMPLES_TYPES st on st.SAMPTYPEID=ts.SAMPTYPEID
|
|
||||||
left join cmod.dbo.CM_DICT_TESTS cdt on dt.TESTCODE=cdt.TESTCODE
|
|
||||||
left join cmod.dbo.CM_RESULTS cr on cr.ACCESSNUMBER=r.ACCESSNUMBER and cr.TESTCODE=cdt.TESTCODE and cr.TESTCODE=dt.TESTCODE
|
|
||||||
left join cmod.dbo.CM_DICT_MAPPINGS m on m.LISCODE=cr.TESTCODE
|
|
||||||
left join cmod.dbo.CM_TM_REQUESTS cq on cq.REFFID=r.EXTERNALORDERNUMBER
|
|
||||||
left join cmod.dbo.CM_TM_TESTS ct on ct.HISCODE=m.HISCODE and ct.REQID=cq.REQID
|
|
||||||
left join cmod.dbo.CM_DICT_TUBES tub on tub.TUBEID=m.TUBEID
|
|
||||||
where r.ACCESSNUMBER='$accessnumber' and t.NOTPRINTABLE is null ORDER BY t.TESTORDER";
|
|
||||||
$query = $db->query($sql);
|
|
||||||
$test_results = $query->getResultArray();
|
|
||||||
$d0=-1; $d1=-1; $d2=-1; $d3=-1;
|
|
||||||
foreach ($test_results as $result) {
|
|
||||||
$refftestid = trim($result['REFFTESTID']);
|
|
||||||
$testorder = $result['TESTORDER'];
|
|
||||||
if($refftestid == '') { $refftestid = $accessnumber . str_pad($testorder,3,0, STR_PAD_LEFT); }
|
|
||||||
$hiscode = $result['HISCODE'];
|
|
||||||
$tubename = $result['TUBENAME'];
|
|
||||||
$depth = $result['depth_test'];
|
|
||||||
$liscode = $result['LISCODE'];
|
|
||||||
$testcode = $result['TESTCODE'];
|
|
||||||
$testname = $result['test_eng'];
|
|
||||||
$sampletype = $result['serum_type'];
|
|
||||||
$chapter = $result['chap_eng'];
|
|
||||||
$testresult = $result['RESULT'];
|
|
||||||
$unit = $result['UNITS'];
|
|
||||||
$unittext = $result['UNITTEXT'];
|
|
||||||
$testunit = $unit;
|
|
||||||
if($unittext != '') { $testunit = $unittext; }
|
|
||||||
$refrange = $result['REFRANGE'];
|
|
||||||
$refftext = $result['REFFTEXT'];
|
|
||||||
$resstatus = $result['RESSTATUS'];
|
|
||||||
if($resstatus == 'F') { $testsum = 'APPROVE'; }
|
|
||||||
elseif($resstatus == 'C') { $testsum = 'PENDING'; }
|
|
||||||
else { $testsum = null; }
|
|
||||||
if($refftext != '') { $testreff = $refftext; }
|
|
||||||
else { $testreff = $refrange; }
|
|
||||||
if($liscode == '') {$liscode = $testcode;}
|
|
||||||
$data = [
|
|
||||||
"test_ref_id"=> "$refftestid",
|
|
||||||
"hiscode"=> "$hiscode",
|
|
||||||
"liscode"=> "$liscode",
|
|
||||||
"service_name"=> "$testname",
|
|
||||||
"test_medium"=> "$sampletype",
|
|
||||||
"test_container"=> "$tubename",
|
|
||||||
"chapter_type"=> "$chapter",
|
|
||||||
"test_result"=> "$testresult",
|
|
||||||
"test_unit"=> "$testunit",
|
|
||||||
"test_reff" => "$testreff",
|
|
||||||
"test_summary"=> "$testsum",
|
|
||||||
//"debug" => "d0=$d0 d1=$d1 d2=$d2",
|
|
||||||
];
|
|
||||||
if ( $depth == 0 || $depth == '' ) { // depth 0
|
|
||||||
$d0++;
|
|
||||||
$d1=-1;
|
|
||||||
$json['test_results'][] = $data;
|
|
||||||
} else if ($depth == 1) { // depth 1
|
|
||||||
$d1++;
|
|
||||||
$d2=-1;
|
|
||||||
$json['test_results'][$d0]['subtest_results'][] = $data;
|
|
||||||
} else if ($depth == 2) { // depth 2
|
|
||||||
$d2++;
|
|
||||||
$d3=-1;
|
|
||||||
$json['test_results'][$d0]['subtest_results'][$d1]['subtest_results'][] = $data;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
$sql = "SELECT ds.SHORTTEXT,
|
|
||||||
FORMAT(tu.COLLECTIONDATE, 'dd-MM-yyyy') AS RECVDATE,
|
|
||||||
FORMAT(tu.COLLECTIONDATE, 'HH:mm') AS RECVTIME,
|
|
||||||
FORMAT(ct.COLLECTIONDATE, 'dd-MM-yyyy') AS COLLDATE,
|
|
||||||
FORMAT(ct.COLLECTIONDATE, 'HH:mm') AS COLLTIME
|
|
||||||
FROM SP_TUBES tu
|
|
||||||
LEFT JOIN DICT_SAMPLES_TYPES ds ON ds.SAMPCODE = tu.SAMPLETYPE
|
|
||||||
LEFT JOIN cmod.dbo.CM_TUBES ct ON ct.SAMPLETYPE = tu.SAMPLETYPE AND ct.ACCESSNUMBER = tu.SP_ACCESSNUMBER
|
|
||||||
WHERE tu.SP_ACCESSNUMBER = '$accessnumber';";
|
|
||||||
$query = $db->query($sql);
|
|
||||||
$samples = $query->getResultArray();
|
|
||||||
foreach ($samples as $data) {
|
|
||||||
$sample = $data['SHORTTEXT'];
|
|
||||||
$recvdate = $data['RECVDATE'];
|
|
||||||
$recvtime = $data['RECVTIME'];
|
|
||||||
$colldate = $data['COLLDATE'];
|
|
||||||
$colltime = $data['COLLTIME'];
|
|
||||||
$json['collects'][] = [ "sample" => "$sample", "colldate" => "$colldate", "colltime" => "$colltime" ];
|
|
||||||
$json['receives'][] = [ "sample" => "$sample", "recvdate" => "$recvdate", "recvtime" => "$recvtime" ];
|
|
||||||
}
|
|
||||||
return $json;
|
|
||||||
}
|
|
||||||
|
|
||||||
public function results_send($accessnumber) {
|
|
||||||
//$TM_url = "https://api-transmedic1.transmedic.co.id/api/webhook/lis";
|
|
||||||
$TMSby_url = "http://10.10.4.123:8001/api/webhook/lis";
|
|
||||||
$TMBali_url = "http://10.10.12.90:8001/api/webhook/lis?tenant=PadmaBali";
|
|
||||||
$TMBali_bearerToken = file_get_contents('tokens/pbmc_dps.txt');
|
|
||||||
$TMSby_bearerToken = file_get_contents('tokens/pbmc_sby.txt');
|
|
||||||
|
|
||||||
$client = \Config\Services::curlrequest();
|
|
||||||
|
|
||||||
$json = $this->create_json($accessnumber);
|
|
||||||
$location = $json['branch'];
|
|
||||||
if($location == 'PBMC Surabaya') {
|
|
||||||
$token = $TMSby_bearerToken;
|
|
||||||
$url = $TMSby_url;
|
|
||||||
$headers = [
|
|
||||||
"Content-Type" => "application/json",
|
|
||||||
"Authorization" => "Bearer $token",
|
|
||||||
"appCode" => "2"
|
|
||||||
];
|
|
||||||
} else {
|
|
||||||
$token = $TMBali_bearerToken;
|
|
||||||
$url = $TMBali_url;
|
|
||||||
$headers = [ "Content-Type" => "application/json" ];
|
|
||||||
}
|
|
||||||
|
|
||||||
try {
|
|
||||||
$response = $client->request('POST', $url, [
|
|
||||||
"headers" => $headers,
|
|
||||||
"body" => json_encode($json),
|
|
||||||
"verify" => false
|
|
||||||
]);
|
|
||||||
|
|
||||||
if ($response->getStatusCode() == 200) {
|
|
||||||
print_r($response);
|
|
||||||
} else {
|
|
||||||
print_r($response);
|
|
||||||
}
|
|
||||||
|
|
||||||
} catch (\Exception $e) {
|
|
||||||
echo "<pre>$token \n".json_encode($json)."\n";
|
|
||||||
echo "Error: " . $e->getMessage();
|
|
||||||
log_message('error', 'API request exception: ' . $e->getMessage());
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
public function results_preview($accessnumber) {
|
|
||||||
$json = $this->create_json($accessnumber);
|
|
||||||
return $this->respond($json);
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
|
||||||
@ -4,7 +4,64 @@ namespace App\Controllers;
|
|||||||
use CodeIgniter\RESTful\ResourceController;
|
use CodeIgniter\RESTful\ResourceController;
|
||||||
use CodeIgniter\I18n\Time;
|
use CodeIgniter\I18n\Time;
|
||||||
|
|
||||||
class API_Requests extends ResourceController {
|
class API_TM extends ResourceController {
|
||||||
|
|
||||||
|
public function sendHL7Message($host, $port, $message, $timeout = 5) {
|
||||||
|
try {
|
||||||
|
// Create a TCP/IP socket
|
||||||
|
$socket = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
|
||||||
|
if ($socket === false) {
|
||||||
|
throw new Exception("socket_create() failed: " . socket_strerror(socket_last_error()));
|
||||||
|
}
|
||||||
|
|
||||||
|
// Set socket options (timeout)
|
||||||
|
socket_set_option($socket, SOL_SOCKET, SO_RCVTIMEO, array("sec" => $timeout, "usec" => 0));
|
||||||
|
socket_set_option($socket, SOL_SOCKET, SO_SNDTIMEO, array("sec" => $timeout, "usec" => 0));
|
||||||
|
|
||||||
|
// Connect to the remote host
|
||||||
|
$result = socket_connect($socket, $host, $port);
|
||||||
|
if ($result === false) {
|
||||||
|
throw new Exception("socket_connect() failed: " . socket_strerror(socket_last_error($socket)));
|
||||||
|
}
|
||||||
|
|
||||||
|
// Add MLLP framing (Minimal Lower Layer Protocol)
|
||||||
|
$mllpMessage = chr(0x0B) . $message . chr(0x1C) . chr(0x0D);
|
||||||
|
|
||||||
|
// Send the message
|
||||||
|
$bytesSent = socket_write($socket, $mllpMessage, strlen($mllpMessage));
|
||||||
|
if ($bytesSent === false) {
|
||||||
|
throw new Exception("socket_write() failed: " . socket_strerror(socket_last_error($socket)));
|
||||||
|
}
|
||||||
|
if($bytesSent != strlen($mllpMessage)){
|
||||||
|
throw new Exception("socket_write() only sent $bytesSent bytes out of ". strlen($mllpMessage));
|
||||||
|
}
|
||||||
|
|
||||||
|
// Read the acknowledgement (optional but recommended)
|
||||||
|
$ack = socket_read($socket, 8192); // Adjust buffer size as needed
|
||||||
|
if ($ack === false) {
|
||||||
|
// Handle cases where no ACK is received within the timeout
|
||||||
|
throw new Exception("socket_read() failed or timed out: " . socket_strerror(socket_last_error($socket)));
|
||||||
|
}
|
||||||
|
|
||||||
|
//Close the socket
|
||||||
|
socket_close($socket);
|
||||||
|
|
||||||
|
//Basic ACK check. More robust parsing is recommended.
|
||||||
|
if (strpos($ack, "MSA") !== false) {
|
||||||
|
return true; // Success (basic ACK check)
|
||||||
|
} else {
|
||||||
|
error_log("Unexpected ACK: " . $ack); // Log the unexpected ACK
|
||||||
|
return false; // Failure (unexpected ACK)
|
||||||
|
}
|
||||||
|
|
||||||
|
} catch (Exception $e) {
|
||||||
|
error_log("HL7 Sending Error: " . $e->getMessage()); // Log the error
|
||||||
|
if(isset($socket)){
|
||||||
|
socket_close($socket); // Ensure socket closure on error
|
||||||
|
}
|
||||||
|
return false; // Indicate failure
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
public function requests() {
|
public function requests() {
|
||||||
$db = \Config\Database::connect();
|
$db = \Config\Database::connect();
|
||||||
@ -192,60 +249,251 @@ class API_Requests extends ResourceController {
|
|||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
public function sendHL7Message($host, $port, $message, $timeout = 5) {
|
|
||||||
try {
|
|
||||||
// Create a TCP/IP socket
|
public function create_result_json($accessnumber) {
|
||||||
$socket = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
|
$db = \Config\Database::connect();
|
||||||
if ($socket === false) {
|
$sql = "select r.HOSTORDERNUMBER, r.SP_HOSPNUMBER, cr.REQNUMBER, cr.LOC, cr.COMPANY, cr.AGENT, cr.VISITDESC, cr.VISITTYPE,
|
||||||
throw new Exception("socket_create() failed: " . socket_strerror(socket_last_error()));
|
p.PATNUMBER, p.NAME, p.FIRSTNAME, p.BIRTHDATE, p.SEX, p.TELEPHON, r.COLLECTIONDATE, cr.AGENT, cr.DOC, cr.BW, cr.BH
|
||||||
|
from SP_REQUESTS r
|
||||||
|
left join cmod.dbo.CM_TM_REQUESTS cr on cr.REFFID=r.HOSTORDERNUMBER
|
||||||
|
left join PATIENTS p on p.PATID=r.PATID
|
||||||
|
where r.SP_ACCESSNUMBER='$accessnumber'";
|
||||||
|
$query = $db->query($sql);
|
||||||
|
$results = $query->getResultArray();
|
||||||
|
|
||||||
|
$visitnumber = $results[0]['REQNUMBER'];
|
||||||
|
$reffid = $results[0]['HOSTORDERNUMBER'];
|
||||||
|
$location = $results[0]['LOC'];
|
||||||
|
$payer_name = $results[0]['AGENT'];
|
||||||
|
$company = $results[0]['COMPANY'];
|
||||||
|
$createdt = gmdate('Y-m-d\TH:i:s.v\Z');
|
||||||
|
$patnumber = substr($results[0]['PATNUMBER'],-9);
|
||||||
|
$firstname = $results[0]['NAME'];
|
||||||
|
$lastname = $results[0]['FIRSTNAME'];
|
||||||
|
$dob = $results[0]['BIRTHDATE'];
|
||||||
|
$sex = $results[0]['SEX'];
|
||||||
|
$phone = $results[0]['TELEPHON'];
|
||||||
|
$visitdesc = $results[0]['VISITDESC'];
|
||||||
|
$visittype = $results[0]['VISITTYPE'];
|
||||||
|
$visitdt = $results[0]['COLLECTIONDATE'];
|
||||||
|
$agent = $results[0]['AGENT'];
|
||||||
|
if($agent != '') {$bagent = true;}
|
||||||
|
else {$bagent=false;}
|
||||||
|
$doctor = $results[0]['DOC'];
|
||||||
|
$bw = $results[0]['BW'];
|
||||||
|
$bh = $results[0]['BH'];
|
||||||
|
|
||||||
|
|
||||||
|
$json = [
|
||||||
|
"reference_id" => "$reffid",
|
||||||
|
"created" => "$createdt",
|
||||||
|
"company_name" => $company,
|
||||||
|
"branch" => $location,
|
||||||
|
"visit_number" => $visitnumber,
|
||||||
|
"patient" => [
|
||||||
|
"rm_number" => $patnumber,
|
||||||
|
"patient_first_name" => $firstname,
|
||||||
|
"patient_last_name" => $lastname,
|
||||||
|
"patient_dob" => $dob,
|
||||||
|
"patient_sex" => $sex,
|
||||||
|
"patient_phone" => $phone,
|
||||||
|
"visit_number" => $visitnumber,
|
||||||
|
"visit_description"=> $visitdesc,
|
||||||
|
"visit_date_time" => $visitdt,
|
||||||
|
"agent_name" => $agent,
|
||||||
|
"agent" => $bagent,
|
||||||
|
"treating_doctor" => $doctor,
|
||||||
|
"visit_type" => $visittype,
|
||||||
|
"anthropometry" => [
|
||||||
|
"weight" => $bw,
|
||||||
|
"height" => $bh,
|
||||||
|
],
|
||||||
|
],
|
||||||
|
"test_results" => [],
|
||||||
|
"collects" => [],
|
||||||
|
"receives" => []
|
||||||
|
];
|
||||||
|
|
||||||
|
$sql = "select dc.CHAPID, t.DEPTH as depth_test, dc.FULLTEXT as chap_eng, dc.FULLTEXT as chap_ind, st.FULLTEXT as serum_type,
|
||||||
|
cdt.TEXT1 as test_eng, cdt.TEXT2 as test_ind, cdt.UNIT as UNITTEXT, cdt.REFFTEXT, t.NOTPRINTABLE, cr.RESSTATUS,
|
||||||
|
t.TESTORDER, t.RESTYPE as code_type, t.VALIDATIONINITIALS as validator, dt.SHORTTEXT,
|
||||||
|
RESULT = case when t.RESVALUE is null then tx.FULLTEXT else t.RESVALUE end, ct.REFFTESTID, m.HISCODE, m.LISCODE,
|
||||||
|
tub.TUBENAME, cr.REFRANGE, dt.TESTCODE, t.TESTORDER, dt.UNITS, cr.RESDATE, cr.USERVAL
|
||||||
|
from REQUESTS r
|
||||||
|
left join TESTS t on t.REQUESTID = r.REQUESTID
|
||||||
|
left join DICT_TESTS dt on dt.ENDVALIDDATE is null 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 DICT_TEST_SAMPLES ts on ts.TESTID=t.TESTID and dt.TESTID=ts.TESTID
|
||||||
|
left join DICT_SAMPLES_TYPES st on st.SAMPTYPEID=ts.SAMPTYPEID
|
||||||
|
left join cmod.dbo.CM_DICT_TESTS cdt on dt.TESTCODE=cdt.TESTCODE
|
||||||
|
left join cmod.dbo.CM_RESULTS cr on cr.ACCESSNUMBER=r.ACCESSNUMBER and cr.TESTCODE=cdt.TESTCODE and cr.TESTCODE=dt.TESTCODE
|
||||||
|
left join cmod.dbo.CM_DICT_MAPPINGS m on m.LISCODE=cr.TESTCODE
|
||||||
|
left join cmod.dbo.CM_TM_REQUESTS cq on cq.REFFID=r.EXTERNALORDERNUMBER
|
||||||
|
left join cmod.dbo.CM_TM_TESTS ct on ct.HISCODE=m.HISCODE and ct.REQID=cq.REQID
|
||||||
|
left join cmod.dbo.CM_DICT_TUBES tub on tub.TUBEID=m.TUBEID
|
||||||
|
where r.ACCESSNUMBER='$accessnumber' and t.NOTPRINTABLE is null ORDER BY t.TESTORDER";
|
||||||
|
$query = $db->query($sql);
|
||||||
|
$test_results = $query->getResultArray();
|
||||||
|
$d0=-1; $d1=-1; $d2=-1; $d3=-1;
|
||||||
|
foreach ($test_results as $result) {
|
||||||
|
$refftestid = trim($result['REFFTESTID']);
|
||||||
|
$testorder = $result['TESTORDER'];
|
||||||
|
if($refftestid == '') { $refftestid = $accessnumber . str_pad($testorder,3,0, STR_PAD_LEFT); }
|
||||||
|
$hiscode = $result['HISCODE'];
|
||||||
|
$tubename = $result['TUBENAME'];
|
||||||
|
$depth = $result['depth_test'];
|
||||||
|
$liscode = $result['LISCODE'];
|
||||||
|
$testcode = $result['TESTCODE'];
|
||||||
|
$testname = $result['test_eng'];
|
||||||
|
$sampletype = $result['serum_type'];
|
||||||
|
$chapter = $result['chap_eng'];
|
||||||
|
$testresult = $result['RESULT'];
|
||||||
|
$unit = $result['UNITS'];
|
||||||
|
$unittext = $result['UNITTEXT'];
|
||||||
|
$testunit = $unit;
|
||||||
|
if($unittext != '') { $testunit = $unittext; }
|
||||||
|
$refrange = $result['REFRANGE'];
|
||||||
|
$refftext = $result['REFFTEXT'];
|
||||||
|
$resstatus = $result['RESSTATUS'];
|
||||||
|
if($resstatus == 'F') { $testsum = 'APPROVE'; }
|
||||||
|
elseif($resstatus == 'C') { $testsum = 'PENDING'; }
|
||||||
|
else { $testsum = null; }
|
||||||
|
if($refftext != '') { $testreff = $refftext; }
|
||||||
|
else { $testreff = $refrange; }
|
||||||
|
if($liscode == '') {$liscode = $testcode;}
|
||||||
|
$resdate = $result['RESDATE'];
|
||||||
|
if($resdate == "1900-01-01 00:00:00.000") { $resdate =''; }
|
||||||
|
$userval = $result['USERVAL'];
|
||||||
|
$data = [
|
||||||
|
"test_ref_id"=> "$refftestid",
|
||||||
|
"hiscode"=> "$hiscode",
|
||||||
|
"liscode"=> "$liscode",
|
||||||
|
"service_name"=> "$testname",
|
||||||
|
"test_medium"=> "$sampletype",
|
||||||
|
"test_container"=> "$tubename",
|
||||||
|
"chapter_type"=> "$chapter",
|
||||||
|
"test_result"=> "$testresult",
|
||||||
|
"test_unit"=> "$testunit",
|
||||||
|
"test_reff" => "$testreff",
|
||||||
|
"test_summary"=> "$testsum",
|
||||||
|
"resdate"=> "$resdate",
|
||||||
|
"userval"=> "$userval",
|
||||||
|
//"debug" => "d0=$d0 d1=$d1 d2=$d2",
|
||||||
|
];
|
||||||
|
if ( $depth == 0 || $depth == '' ) { // depth 0
|
||||||
|
$d0++;
|
||||||
|
$d1=-1;
|
||||||
|
$json['test_results'][] = $data;
|
||||||
|
} else if ($depth == 1) { // depth 1
|
||||||
|
$d1++;
|
||||||
|
$d2=-1;
|
||||||
|
$json['test_results'][$d0]['subtest_results'][] = $data;
|
||||||
|
} else if ($depth == 2) { // depth 2
|
||||||
|
$d2++;
|
||||||
|
$d3=-1;
|
||||||
|
$json['test_results'][$d0]['subtest_results'][$d1]['subtest_results'][] = $data;
|
||||||
}
|
}
|
||||||
|
|
||||||
// Set socket options (timeout)
|
|
||||||
socket_set_option($socket, SOL_SOCKET, SO_RCVTIMEO, array("sec" => $timeout, "usec" => 0));
|
|
||||||
socket_set_option($socket, SOL_SOCKET, SO_SNDTIMEO, array("sec" => $timeout, "usec" => 0));
|
|
||||||
|
|
||||||
// Connect to the remote host
|
|
||||||
$result = socket_connect($socket, $host, $port);
|
|
||||||
if ($result === false) {
|
|
||||||
throw new Exception("socket_connect() failed: " . socket_strerror(socket_last_error($socket)));
|
|
||||||
}
|
|
||||||
|
|
||||||
// Add MLLP framing (Minimal Lower Layer Protocol)
|
|
||||||
$mllpMessage = chr(0x0B) . $message . chr(0x1C) . chr(0x0D);
|
|
||||||
|
|
||||||
// Send the message
|
|
||||||
$bytesSent = socket_write($socket, $mllpMessage, strlen($mllpMessage));
|
|
||||||
if ($bytesSent === false) {
|
|
||||||
throw new Exception("socket_write() failed: " . socket_strerror(socket_last_error($socket)));
|
|
||||||
}
|
|
||||||
if($bytesSent != strlen($mllpMessage)){
|
|
||||||
throw new Exception("socket_write() only sent $bytesSent bytes out of ". strlen($mllpMessage));
|
|
||||||
}
|
|
||||||
|
|
||||||
// Read the acknowledgement (optional but recommended)
|
|
||||||
$ack = socket_read($socket, 8192); // Adjust buffer size as needed
|
|
||||||
if ($ack === false) {
|
|
||||||
// Handle cases where no ACK is received within the timeout
|
|
||||||
throw new Exception("socket_read() failed or timed out: " . socket_strerror(socket_last_error($socket)));
|
|
||||||
}
|
|
||||||
|
|
||||||
//Close the socket
|
|
||||||
socket_close($socket);
|
|
||||||
|
|
||||||
//Basic ACK check. More robust parsing is recommended.
|
|
||||||
if (strpos($ack, "MSA") !== false) {
|
|
||||||
return true; // Success (basic ACK check)
|
|
||||||
} else {
|
|
||||||
error_log("Unexpected ACK: " . $ack); // Log the unexpected ACK
|
|
||||||
return false; // Failure (unexpected ACK)
|
|
||||||
}
|
|
||||||
|
|
||||||
} catch (Exception $e) {
|
|
||||||
error_log("HL7 Sending Error: " . $e->getMessage()); // Log the error
|
|
||||||
if(isset($socket)){
|
|
||||||
socket_close($socket); // Ensure socket closure on error
|
|
||||||
}
|
|
||||||
return false; // Indicate failure
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
$sql = "SELECT ds.SHORTTEXT,
|
||||||
|
FORMAT(tu.COLLECTIONDATE, 'dd-MM-yyyy') AS RECVDATE,
|
||||||
|
FORMAT(tu.COLLECTIONDATE, 'HH:mm') AS RECVTIME,
|
||||||
|
FORMAT(ct.COLLECTIONDATE, 'dd-MM-yyyy') AS COLLDATE,
|
||||||
|
FORMAT(ct.COLLECTIONDATE, 'HH:mm') AS COLLTIME
|
||||||
|
FROM SP_TUBES tu
|
||||||
|
LEFT JOIN DICT_SAMPLES_TYPES ds ON ds.SAMPCODE = tu.SAMPLETYPE
|
||||||
|
LEFT JOIN cmod.dbo.CM_TUBES ct ON ct.SAMPLETYPE = tu.SAMPLETYPE AND ct.ACCESSNUMBER = tu.SP_ACCESSNUMBER
|
||||||
|
WHERE tu.SP_ACCESSNUMBER = '$accessnumber';";
|
||||||
|
$query = $db->query($sql);
|
||||||
|
$samples = $query->getResultArray();
|
||||||
|
foreach ($samples as $data) {
|
||||||
|
$sample = $data['SHORTTEXT'];
|
||||||
|
$recvdate = $data['RECVDATE'];
|
||||||
|
$recvtime = $data['RECVTIME'];
|
||||||
|
$colldate = $data['COLLDATE'];
|
||||||
|
$colltime = $data['COLLTIME'];
|
||||||
|
$json['collects'][] = [ "sample" => "$sample", "colldate" => "$colldate", "colltime" => "$colltime" ];
|
||||||
|
$json['receives'][] = [ "sample" => "$sample", "recvdate" => "$recvdate", "recvtime" => "$recvtime" ];
|
||||||
|
}
|
||||||
|
return $json;
|
||||||
|
}
|
||||||
|
|
||||||
|
public function sendjson( $method, $url, $message ) {
|
||||||
|
try {
|
||||||
|
$response = $client->request($method, $url, $message);
|
||||||
|
|
||||||
|
if ($response->getStatusCode() == 200) {
|
||||||
|
print_r($response);
|
||||||
|
} else {
|
||||||
|
print_r($response);
|
||||||
|
}
|
||||||
|
|
||||||
|
} catch (\Exception $e) {
|
||||||
|
echo "<pre>$token \n".json_encode($json)."\n";
|
||||||
|
echo "Error: " . $e->getMessage();
|
||||||
|
log_message('error', 'API request exception: ' . $e->getMessage());
|
||||||
|
}
|
||||||
|
}
|
||||||
|
public function results_send($accessnumber) {
|
||||||
|
//$TM_url = "https://api-transmedic1.transmedic.co.id/api/webhook/lis";
|
||||||
|
$TMSby_url = "http://10.10.4.123:8001/api/webhook/lis";
|
||||||
|
$TMBali_url = "http://10.10.12.90:8001/api/webhook/lis?tenant=PadmaBali";
|
||||||
|
$TMBali_bearerToken = file_get_contents('tokens/pbmc_dps.txt');
|
||||||
|
$TMSby_bearerToken = file_get_contents('tokens/pbmc_sby.txt');
|
||||||
|
|
||||||
|
$client = \Config\Services::curlrequest();
|
||||||
|
|
||||||
|
$json = $this->create_result_json($accessnumber);
|
||||||
|
$location = $json['branch'];
|
||||||
|
if($location == 'PBMC Surabaya') {
|
||||||
|
$token = $TMSby_bearerToken;
|
||||||
|
$url = $TMSby_url;
|
||||||
|
$headers = [
|
||||||
|
"Content-Type" => "application/json",
|
||||||
|
"Authorization" => "Bearer $token",
|
||||||
|
"appCode" => "2"
|
||||||
|
];
|
||||||
|
} else {
|
||||||
|
$token = $TMBali_bearerToken;
|
||||||
|
$url = $TMBali_url;
|
||||||
|
$headers = [ "Content-Type" => "application/json" ];
|
||||||
|
}
|
||||||
|
|
||||||
|
$method = "POST";
|
||||||
|
|
||||||
|
$message = [
|
||||||
|
"headers" => $headers,
|
||||||
|
"body" => json_encode($json),
|
||||||
|
"verify" => false
|
||||||
|
];
|
||||||
|
|
||||||
|
$this->sendjson($method, $url, $message);
|
||||||
|
/*
|
||||||
|
try {
|
||||||
|
$response = $client->request('POST', $url, [
|
||||||
|
"headers" => $headers,
|
||||||
|
"body" => json_encode($json),
|
||||||
|
"verify" => false
|
||||||
|
]);
|
||||||
|
|
||||||
|
if ($response->getStatusCode() == 200) {
|
||||||
|
print_r($response);
|
||||||
|
} else {
|
||||||
|
print_r($response);
|
||||||
|
}
|
||||||
|
|
||||||
|
} catch (\Exception $e) {
|
||||||
|
echo "<pre>$token \n".json_encode($json)."\n";
|
||||||
|
echo "Error: " . $e->getMessage();
|
||||||
|
log_message('error', 'API request exception: ' . $e->getMessage());
|
||||||
|
}
|
||||||
|
*/
|
||||||
|
}
|
||||||
|
|
||||||
|
public function results_preview($accessnumber) {
|
||||||
|
$json = $this->create_result_json($accessnumber);
|
||||||
|
return $this->respond($json);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
Loading…
x
Reference in New Issue
Block a user