423 lines
18 KiB
PHP
Executable File
423 lines
18 KiB
PHP
Executable File
<?php
|
|
|
|
class Re_px extends MY_Controller
|
|
{
|
|
var $db_smartone;
|
|
|
|
public function index()
|
|
{
|
|
echo "RE Px API";
|
|
}
|
|
|
|
public function __construct()
|
|
{
|
|
parent::__construct();
|
|
|
|
$this->db_smartone = $this->load->database("onedev", true);
|
|
}
|
|
|
|
public function search()
|
|
{
|
|
$prm = $this->sys_input;
|
|
$max_rst = 99;
|
|
|
|
$id = $prm["order_id"];
|
|
$lang = $this->lang_default_code;
|
|
$lang_id = isset($prm['lang_id']) ? $prm['lang_id'] : '0';
|
|
|
|
if ($lang_id != 0)
|
|
{
|
|
$l = $this->db_smartone->where("Nat_LangID", $lang_id)->get("nat_lang")->row();
|
|
$lang = $l->Nat_LangCode;
|
|
}
|
|
|
|
$tot_count = 0;
|
|
$lq = "";
|
|
$group_id = 0;
|
|
if (isset($prm['group_id']))
|
|
$group_id = $prm['group_id'];
|
|
|
|
if ($group_id != 0)
|
|
{
|
|
$sql = "select distinct T_WorklistDetailNat_TestID Nat_TestID
|
|
from t_worklistdetailv2
|
|
where T_WorklistDetailT_WorklistID = {$group_id}";
|
|
$qry = $this->db_smartone->query($sql);
|
|
$rows = $qry->result_array();
|
|
$nat_test_ids = "0";
|
|
foreach($rows as $r) {
|
|
$nat_test_ids .= ", " . $r["Nat_TestID"];
|
|
}
|
|
$q_group = " ( $nat_test_ids ) ";
|
|
|
|
$sql = "
|
|
SELECT a1.*, cOUNT(a2.T_OrderDetailID) level
|
|
FROM (
|
|
SELECT IFNULL(y.T_OrderDetailT_TestID, x.T_OrderDetailT_TestID) t_testid,
|
|
IFNULL(y.T_OrderDetailT_TestName, y.T_OrderDetailT_TestName) t_testname,
|
|
y.T_OrderDetailResult result, y.T_OrderDetailResult result_old, y.T_OrderDetailNote note, y.T_OrderDetailNote note_old,
|
|
y.T_OrderDetailID id,
|
|
y.T_OrderDetailT_TestIsResult is_result, a.T_TestIsQuantitative is_quantitative,
|
|
y.T_OrderDetailResultFlag result_flag,
|
|
y.T_OrderDetailNat_NormalValueID normal_id,
|
|
y.T_OrderDetailNormalValueNote normal_note, y.T_OrderDetailNat_UnitName unit_name,
|
|
y.T_OrderdetailNat_MethodeID methode_id, y.T_OrderdetailNat_MethodeName methode_name,
|
|
a.T_TestNat_TestID nattest_id, a.T_TestID tx_id, count(T_ResultInstrumentID) as result_instrument_n,
|
|
y.T_OrderDetailVerification, T_OrderSampleReceive sample_receive,
|
|
T_OrderSampleProcessing sample_processing, T_OrderSampleWorklistReceive sample_worklist_receive,
|
|
IF(T_OrderDetailAddOnPreAnalytic = 'Y', T_OrderDetailAddOnPreAnalytic, PreAnalyticIsOk) pre_analytic,
|
|
T_OrderDetailAddOnPreAnalytic,
|
|
T_OrderHeaderID order_id, y.T_OrderDetailT_TestSasCode test_sas_code,
|
|
tx.T_TestSasCode,
|
|
T_OrderDetailAddOnResample `resample`, T_OrderDetailAddOnResampleStatus resample_status,
|
|
T_OrderDetailAddOnRef ref, y.T_OrderDetailVerification verification, y.T_OrderDetailValidation validation,
|
|
T_OrderPromiseDateTime, fn_process_group_result(x.T_OrderDetailT_TestID) ResultGroupName
|
|
FROM t_orderdetail x
|
|
left join t_orderpromise on x.T_OrderDetailT_OrderPromiseID = T_OrderPromiseID
|
|
JOIN t_test tx ON x.T_OrderDetailT_TestID = T_TestID
|
|
JOIN t_test tcheck on tcheck.T_TestNat_TestID in {$q_group}
|
|
and ( tx.T_TestID = tcheck.T_TestID or tx.T_TestSasCode like concat(tcheck.T_TestSasCode,'%'))
|
|
JOIN documentation_group_detail ON DocumentationGroupDetailNat_SubGroupID = tx.T_TestNat_SubGroupID
|
|
JOIN documentation_group ON DocumentationGroupDetailDocumentationGroupID = DocumentationGroupID
|
|
AND DocumentationGroupName = 'lab'
|
|
LEFT JOIN t_orderdetail y ON x.T_OrderDetailT_TestSasCode LIKE CONCAT(y.T_OrderDetailT_TestSasCode, '%')
|
|
AND x.T_OrderDetailT_OrderHeaderID = y.T_OrderDetailT_OrderHeaderID
|
|
AND y.T_OrderDetailIsActive = 'Y'
|
|
LEFT JOIN t_orderdetailaddon ON x.T_OrderDetailID = T_OrderDetailAddOnT_OrderDetailID
|
|
JOIN t_orderheader ON y.T_OrderDetailT_OrderHeaderID = T_OrderHeaderID
|
|
LEFT JOIN t_test a ON y.T_OrderDetailT_TestID = a.T_TestID
|
|
AND a.T_TestIsNonLab = ''
|
|
LEFT JOIN (SELECT T_OrderSampleT_SampleTypeID, T_OrderSampleReceive, T_OrderSampleProcessing, T_OrderSampleWorklistReceive
|
|
FROM t_ordersample WHERE T_OrderSampleT_OrderHeaderID = ?
|
|
AND T_OrderSampleIsactive = 'Y'
|
|
GROUP BY T_OrderSampleT_SampleTypeID) os ON a.T_TestT_SampleTypeID = os.T_OrderSampleT_SampleTypeID
|
|
|
|
LEFT JOIN t_resultinstrument ON T_ResultInstrumentT_OrderDetailID = x.T_OrderDetailID
|
|
LEFT JOIN pre_analytic ON PreAnalyticNat_TestID = a.T_TestNat_TestID AND PreAnalyticDate = date(now()) and PreAnalyticIsActive = 'Y'
|
|
WHERE x.T_OrderDetailT_OrderHeaderID = ?
|
|
AND x.T_OrderDetailIsActive = 'Y'
|
|
GROUP BY y.T_OrderDetailT_TestID
|
|
ORDER BY y.T_OrderDetailT_TestSasCode ASC
|
|
) a1
|
|
|
|
LEFT JOIN t_orderdetail a2 ON a2.T_OrderDetailT_OrderHeaderID = a1.order_id
|
|
AND a2.T_OrderDetailIsActive = 'Y'
|
|
AND a1.test_sas_code LIKE CONCAT(a2.T_OrderDetailT_testSasCode, '%')
|
|
GROUP BY a1.t_testid
|
|
order by a1.T_TestSasCode
|
|
";
|
|
$query = $this->db_smartone->query($sql, [$id, $id]);
|
|
$lq = $this->db_smartone->last_query();
|
|
}
|
|
else
|
|
{
|
|
$sql = "
|
|
SELECT a1.*, cOUNT(a2.T_OrderDetailID) level
|
|
FROM (
|
|
SELECT IFNULL(y.T_OrderDetailT_TestID, x.T_OrderDetailT_TestID) t_testid,
|
|
IFNULL(y.T_OrderDetailT_TestName, y.T_OrderDetailT_TestName) t_testname,
|
|
y.T_OrderDetailResult result, y.T_OrderDetailResult result_old, y.T_OrderDetailNote note, y.T_OrderDetailNote note_old,
|
|
y.T_OrderDetailID id,
|
|
y.T_OrderDetailT_TestIsResult is_result, a.T_TestIsQuantitative is_quantitative,
|
|
y.T_OrderDetailResultFlag result_flag,
|
|
y.T_OrderDetailNat_NormalValueID normal_id,
|
|
y.T_OrderDetailNormalValueNote normal_note, y.T_OrderDetailNat_UnitName unit_name,
|
|
y.T_OrderdetailNat_MethodeID methode_id, y.T_OrderdetailNat_MethodeName methode_name,
|
|
a.T_TestNat_TestID nattest_id, a.T_TestID tx_id, count(T_ResultInstrumentID) as result_instrument_n,
|
|
y.T_OrderDetailVerification, T_OrderSampleReceive sample_receive,
|
|
T_OrderSampleProcessing sample_processing, T_OrderSampleWorklistReceive sample_worklist_receive,
|
|
IF(T_OrderDetailAddOnPreAnalytic = 'Y', T_OrderDetailAddOnPreAnalytic, PreAnalyticIsOk) pre_analytic,
|
|
T_OrderDetailAddOnPreAnalytic,
|
|
T_OrderHeaderID order_id, y.T_OrderDetailT_TestSasCode test_sas_code,
|
|
tx.T_TestSasCode,
|
|
T_OrderDetailAddOnResample `resample`, T_OrderDetailAddOnResampleStatus resample_status,
|
|
T_OrderDetailAddOnRef ref, y.T_OrderDetailVerification verification, y.T_OrderDetailValidation validation,
|
|
T_OrderPromiseDateTime , fn_process_group_result(x.T_OrderDetailT_TestID) ResultGroupName
|
|
FROM t_orderdetail x
|
|
left join t_orderpromise on x.T_OrderDetailT_OrderPromiseID = T_OrderPromiseID
|
|
JOIN t_test tx ON x.T_OrderDetailT_TestID = T_TestID
|
|
JOIN documentation_group_detail ON DocumentationGroupDetailNat_SubGroupID = tx.T_TestNat_SubGroupID
|
|
JOIN documentation_group ON DocumentationGroupDetailDocumentationGroupID = DocumentationGroupID
|
|
AND DocumentationGroupName = 'lab'
|
|
|
|
LEFT JOIN t_orderdetail y ON x.T_OrderDetailT_TestSasCode LIKE CONCAT(y.T_OrderDetailT_TestSasCode, '%')
|
|
AND x.T_OrderDetailT_OrderHeaderID = y.T_OrderDetailT_OrderHeaderID
|
|
AND y.T_OrderDetailIsActive = 'Y'
|
|
|
|
LEFT JOIN t_orderdetailaddon ON x.T_OrderDetailID = T_OrderDetailAddOnT_OrderDetailID
|
|
|
|
JOIN t_orderheader ON y.T_OrderDetailT_OrderHeaderID = T_OrderHeaderID
|
|
LEFT JOIN t_test a ON y.T_OrderDetailT_TestID = a.T_TestID
|
|
AND a.T_TestIsNonLab = ''
|
|
LEFT JOIN (SELECT T_OrderSampleT_SampleTypeID, T_OrderSampleReceive, T_OrderSampleProcessing, T_OrderSampleWorklistReceive
|
|
FROM t_ordersample WHERE T_OrderSampleT_OrderHeaderID = ?
|
|
AND T_OrderSampleIsactive = 'Y'
|
|
GROUP BY T_OrderSampleT_SampleTypeID) os ON a.T_TestT_SampleTypeID = os.T_OrderSampleT_SampleTypeID
|
|
|
|
LEFT JOIN t_resultinstrument ON T_ResultInstrumentT_OrderDetailID = x.T_OrderDetailID
|
|
LEFT JOIN pre_analytic ON PreAnalyticNat_TestID = a.T_TestNat_TestID AND PreAnalyticDate = date(now()) and PreAnalyticIsActive = 'Y'
|
|
WHERE x.T_OrderDetailT_OrderHeaderID = ?
|
|
AND x.T_OrderDetailIsActive = 'Y'
|
|
GROUP BY y.T_OrderDetailT_TestID
|
|
ORDER BY y.T_OrderDetailT_TestSasCode ASC
|
|
) a1
|
|
|
|
LEFT JOIN t_orderdetail a2 ON a2.T_OrderDetailT_OrderHeaderID = a1.order_id
|
|
AND a2.T_OrderDetailIsActive = 'Y'
|
|
AND a1.test_sas_code LIKE CONCAT(a2.T_OrderDetailT_testSasCode, '%')
|
|
GROUP BY a1.t_testid
|
|
order by a1.T_TestSasCode
|
|
";
|
|
$query = $this->db_smartone->query($sql, [$id, $id]);
|
|
$lq = $this->db_smartone->last_query();
|
|
}
|
|
// file_put_contents("/xtmp/re-query.sql",$lq);
|
|
|
|
if ($query) {
|
|
$rst = [];
|
|
$rows = $query->result_array();
|
|
|
|
foreach($rows as $k => $v)
|
|
{
|
|
if ($v['is_result'] == "Y" && $v['is_quantitative'] == "N")
|
|
{
|
|
$v['template'] = [];
|
|
$x = $this->db_smartone->query("CALL sp_master_resulttemplate_get('{$v['t_testid']}')");
|
|
$this->clean_mysqli_connection($this->db_smartone->conn_id);
|
|
if ($x)
|
|
$v['template'] = $x->result_array();
|
|
}
|
|
|
|
// IF Rujukan, by pas Pre Analytik
|
|
if ($v['ref'] == 'Y')
|
|
$v['pre_analytic'] = 'Y';
|
|
|
|
$rst[] = $v;
|
|
}
|
|
|
|
$result = array("total" => $tot_count, "records" => $rst, "total_display" => sizeof($rows), "q" => $lq);
|
|
$this->sys_ok($result);
|
|
}
|
|
else {
|
|
$this->sys_error_db("RE Px rows", $this->db_smartone);
|
|
exit;
|
|
}
|
|
}
|
|
|
|
public function save()
|
|
{
|
|
$prm = $this->sys_input;
|
|
$data = json_decode($prm["data"]);
|
|
$lang = $this->lang_default_code;
|
|
$lang_id = isset($prm['lang_id']) ? $prm['lang_id'] : '0';
|
|
|
|
if ($lang_id != 0)
|
|
{
|
|
$l = $this->db_smartone->where("Nat_LangID", $lang_id)->get("nat_lang")->row();
|
|
$lang = $l->Nat_LangCode;
|
|
}
|
|
|
|
$sql_norm = "select T_OrderDetailMinValue, T_OrderDetailMaxValue,
|
|
T_OrderDetailMinValueInclusive, T_OrderDetailMaxValueInclusive,
|
|
Nat_TestFlagLow, Nat_TestFlagHigh
|
|
from t_orderdetail
|
|
join t_test on T_OrderDetailT_TestID = T_TestID
|
|
join nat_test on T_TestNat_TestID = Nat_TestID and T_TestIsActive = 'Y'
|
|
where T_OrderDetailID = ? ";
|
|
|
|
$ids = [];
|
|
foreach ($data as $k => $v)
|
|
{
|
|
$y = $this->db_smartone->query("SELECT fn_process_sample_handling_perfect('{$v->order_id}', '{$v->test_id}') c")
|
|
->row();
|
|
$req_status = $y->c;
|
|
$qry_norm = $this->db_smartone->query($sql_norm,$v->id);
|
|
$result_flag = "";
|
|
if ($qry_norm) {
|
|
$rows_norm = $qry_norm->result_array();
|
|
if (count($rows_norm) > 0 ) {
|
|
$r = $rows_norm[0];
|
|
if (is_numeric($v->result)) {
|
|
|
|
if ( $r["T_OrderDetailMinValueInclusive"] == "Y" && $v->result < $r["T_OrderDetailMinValue"] ) {
|
|
$result_flag = $r["Nat_TestFlagLow"];
|
|
}
|
|
if ( $r["T_OrderDetailMinValueInclusive"] == "N" && $v->result <= $r["T_OrderDetailMinValue"] ) {
|
|
$result_flag = $r["Nat_TestFlagLow"];
|
|
}
|
|
if ( $r["T_OrderDetailMaxValueInclusive"] == "Y" && $v->result > $r["T_OrderDetailMaxValue"] ) {
|
|
$result_flag = $r["Nat_TestFlagHigh"];
|
|
}
|
|
if ( $r["T_OrderDetailMaxValueInclusive"] == "N" && $v->result >= $r["T_OrderDetailMaxValue"] ) {
|
|
$result_flag = $r["Nat_TestFlagHigh"];
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if ($lang == $this->lang_default_code)
|
|
{
|
|
$this->db_smartone->set('T_OrderDetailResult', $v->result)
|
|
->set('T_OrderDetailResultFlag', $result_flag)
|
|
->set('T_OrderDetailNote', $v->note)
|
|
->set('T_OrderDetailReqStatus', $req_status)
|
|
->where('T_OrderDetailID', $v->id)
|
|
->update('t_orderdetail');
|
|
}
|
|
else
|
|
{
|
|
$this->db_smartone->set('T_OrderDetailLangResult', $v->result)
|
|
->set('T_OrderDetailLangNote', $v->note)
|
|
->where('T_OrderDetailLangID', $v->id)
|
|
->update('t_orderdetaillang');
|
|
}
|
|
|
|
$ids[] = $v->id;
|
|
}
|
|
|
|
// LOG Process
|
|
$order = $this->db_smartone->select('T_OrderDetailT_OrderHeaderID id, T_OrderHeaderLabNumber lab_number', false)
|
|
->join('t_orderheader', 'T_OrderHeaderID = T_OrderDetailT_OrderHeaderID')
|
|
->where('T_OrderDetailID', $data[0]->id)
|
|
->get('t_orderdetail')
|
|
->row();
|
|
|
|
$dblog = $this->load->database("onelog", true);
|
|
$dblog->set('Log_ProcessCode', 'PROCESS.Result.Entry')
|
|
->set('Log_ProcessOrderID', $order->id)
|
|
->set('Log_ProcessOrderNumber', $order->lab_number)
|
|
->set('Log_ProcessJson', json_encode($data))
|
|
->set('Log_ProcessUserID', $this->sys_user['M_UserID'])
|
|
->insert('log_process');
|
|
// END OF Log Process
|
|
//auto calculation
|
|
$this->load->library("Resultcalc");
|
|
$rows = $this->resultcalc->auto($order->id);
|
|
|
|
try {
|
|
foreach($ids as $id ) {
|
|
$this->db_smartone->query("call sp_set_normal_value_flag($id)");
|
|
$this->clean_mysqli_connection($this->db_smartone->conn_id);
|
|
}
|
|
} catch(Exception $e) {
|
|
}
|
|
|
|
$this->sys_ok($ids);
|
|
}
|
|
|
|
public function save_template()
|
|
{
|
|
$prm = $this->sys_input;
|
|
|
|
$n = $this->db_smartone->select("COUNT(T_ResultTemplateID) n")
|
|
->where("T_ResultTemplateT_TestID", $prm['test_id'])
|
|
->where("T_ResultTemplateIsActive", "Y")
|
|
->where("T_ResultTemplateValue", $prm['value'])
|
|
->get('t_resulttemplate')
|
|
->row();
|
|
if ($n->n > 0)
|
|
{
|
|
$this->sys_error_db("Insert Result Template", $this->db_smartone);
|
|
return;
|
|
}
|
|
|
|
$r = $this->db_smartone->set("T_ResultTemplateT_TestID", $prm['test_id'])
|
|
->set("T_ResultTemplateValue", $prm['value'])
|
|
->insert('t_resulttemplate');
|
|
if ($r)
|
|
{
|
|
$template = [];
|
|
$x = $this->db_smartone->query("CALL sp_master_resulttemplate_get('{$prm['test_id']}')");
|
|
$this->clean_mysqli_connection($this->db_smartone->conn_id);
|
|
if ($x)
|
|
$template = $x->result_array();
|
|
|
|
$this->sys_ok($template);
|
|
}
|
|
}
|
|
|
|
public function export()
|
|
{
|
|
$prm = $this->sys_input;
|
|
|
|
$sql = "CALL sp_process_result_lang(?, ?, ?, ?)";
|
|
$query = $this->db_smartone->query($sql, [$prm['order_id'], $prm['lang_id'], $prm['is_si'], $this->sys_user['M_UserID']]);
|
|
if ($query)
|
|
{
|
|
$r = $query->row();
|
|
if ($r->status == "OK")
|
|
{
|
|
$this->sys_ok($r->data);
|
|
return;
|
|
}
|
|
|
|
$this->sys_error_db("Message : " . $r->message, $this->db_smartone);
|
|
}
|
|
else
|
|
{
|
|
$this->sys_error_db("Lang Result", $this->db_smartone);
|
|
return;
|
|
}
|
|
}
|
|
|
|
public function search_group()
|
|
{
|
|
$prm = $this->sys_input;
|
|
$max_rst = 100;
|
|
|
|
// QUERY TOTAL
|
|
$sql = "select count(*) total
|
|
from t_worklist
|
|
where T_WorklistIsActive = 'Y'
|
|
order by T_WorklistName ASC";
|
|
$query = $this->db_smartone->query($sql);
|
|
|
|
if ($query) {
|
|
$tot_count = $query->result_array()[0]["total"];
|
|
}
|
|
else {
|
|
$this->sys_error_db("worklist count", $this->db_smartone);
|
|
exit;
|
|
}
|
|
|
|
$sql = "select T_WorklistID group_id, T_WorklistName group_name
|
|
from t_worklist
|
|
where T_WorklistIsActive = 'Y'
|
|
order by T_WorklistName ASC
|
|
limit 0, {$max_rst}";
|
|
$query = $this->db_smartone->query($sql);
|
|
|
|
if ($query) {
|
|
$rows = $query->result_array();
|
|
foreach ($rows as $k => $v)
|
|
$rows[$k]['data'] = json_decode($v['data']);
|
|
$result = array("total" => $tot_count, "records" => $rows, "total_display" => sizeof($rows), "q" => $this->db_smartone->last_query());
|
|
$this->sys_ok($result);
|
|
}
|
|
else {
|
|
$this->sys_error_db("worklist rows", $this->db_smartone);
|
|
exit;
|
|
}
|
|
}
|
|
|
|
public function search_rerun()
|
|
{
|
|
$prm = $this->sys_input;
|
|
$id = $prm["detail_id"];
|
|
|
|
$sql = "CALL sp_process_result_rerun(?)";
|
|
$query = $this->db_smartone->query($sql, [$id]);
|
|
|
|
if ($query)
|
|
{
|
|
$rows = $query->result_array();
|
|
$this->sys_ok(["records"=>$rows]);
|
|
}
|
|
else {
|
|
$this->sys_error_db("Rerun rows", $this->db_smartone);
|
|
exit;
|
|
}
|
|
}
|
|
|
|
}
|
|
|