124 lines
5.0 KiB
PHP
124 lines
5.0 KiB
PHP
<?php
|
|
defined('BASEPATH') OR exit('No direct script access allowed');
|
|
class ResultCalc{
|
|
public function auto($id)
|
|
{
|
|
$CI =& get_instance();
|
|
$this->db = $CI->load->database("onedev",true);
|
|
$sql = "select
|
|
T_TestCalculationID,T_TestCalculationFormula,
|
|
T_OrderDetailID, T_OrderDetailT_TestID, T_TestNat_TestID Nat_TestID,
|
|
T_TestCalculationID,T_OrderDetailResult,
|
|
fn_global_age_count_day(M_PatientDOB, date(T_OrderHeaderDate)) / 365 AgeInYear,
|
|
T_TestCalculationNat_SexID
|
|
from t_orderdetail
|
|
join t_orderheader on T_OrderDetailT_OrderHeaderID = T_OrderHeaderID
|
|
and T_OrderHeaderID = ?
|
|
join m_patient on T_OrderHeaderM_PatientID = M_PatientID
|
|
join t_test on T_OrderDetailT_TestID = T_TestID
|
|
and T_OrderDetailIsActive = 'Y' and T_TestIsActive = 'Y'
|
|
join t_testcalculation on T_TestNat_TestID = T_TestCalculationNat_TestID
|
|
and T_TestCalculationIsActive = 'Y'
|
|
and (
|
|
T_TestCalculationNat_SexID = M_PatientM_SexID
|
|
or
|
|
T_TestCalculationNat_SexID = 0
|
|
)
|
|
";
|
|
|
|
$sql_det = "select T_TestCalculationDetailCode, T_OrderDetailResult
|
|
from
|
|
t_testcalculation_detail td
|
|
join t_testcalculation on T_TestCalculationID = T_TestCalculationDetailT_TestCalculationID
|
|
and T_TestCalculationID = ? and T_TestCalculationDetailIsActive = 'Y'
|
|
join t_test t on td.T_TestCalculationDetailNat_TestID = T_TestNat_TestID
|
|
left join t_orderdetail on T_TestID = T_OrderDetailT_TestID and T_OrderDetailIsActive = 'Y'
|
|
and T_OrderDetailT_OrderHeaderID = ?
|
|
where T_OrderDetailID is not null";
|
|
|
|
|
|
$qry = $this->db->query($sql, array($id));
|
|
$rows = $qry->result_array();
|
|
if ( count($rows) > 0 ) {
|
|
foreach($rows as $r) {
|
|
$tc_id = $r["T_TestCalculationID"];
|
|
$qry_det = $this->db->query($sql_det, array($tc_id, $id));
|
|
$drows = $qry_det->result_array();
|
|
$formula = $r["T_TestCalculationFormula"];
|
|
$have_all = true;
|
|
$have_one = false;
|
|
$formula = str_replace("AGE",$r["AgeInYear"], $formula);
|
|
$flag_recursive = false;
|
|
if (strpos($formula,"[REC]") > -1 ) {
|
|
$flag_recursive = true;
|
|
}
|
|
//echo "$formula " . $r["T_OrderDetailResult"] . "\n";
|
|
if ( ! $flag_recursive ) {
|
|
if( trim($r["T_OrderDetailResult"]) != "") continue;
|
|
}
|
|
|
|
$formula = str_replace("[REC]","", $formula);
|
|
$s_code_value = "";
|
|
foreach($drows as $dr) {
|
|
$code = $dr["T_TestCalculationDetailCode"];
|
|
$value = $dr["T_OrderDetailResult"];
|
|
$s_code_value .= "^$code=$value";
|
|
//echo "$code , $value , $formula \n";
|
|
if($dr["T_OrderDetailResult"] == "" ) {
|
|
$have_all = false;
|
|
break;
|
|
}
|
|
$have_one = true;
|
|
$formula = str_replace($code, $value,$formula);
|
|
}
|
|
if ($have_all && $have_one) {
|
|
|
|
eval("\$f_value = $formula;");
|
|
//formating
|
|
//echo "\n$f_value ..";
|
|
$f_value = $this->format_value($f_value,$r["Nat_TestID"]);
|
|
if (is_numeric($f_value)) {
|
|
$f_value = $this->format_value($f_value,$r["Nat_TestID"]);
|
|
}
|
|
$od_id = $r["T_OrderDetailID"];
|
|
$sql = "update t_orderdetail set T_OrderDetailResult = ?
|
|
where T_OrderDetailID = ?";
|
|
$this->db->query($sql, array($f_value,$od_id));
|
|
try {
|
|
if ($tc_id == 2 ) {
|
|
$sql = "insert into t_order_calc(T_OrderCalcT_OrderDetailID,
|
|
T_OrderCalcFormula,T_OrderCalcResult) values(?,?,?)";
|
|
$this->db->query($sql, array($od_id,$formula . " | " . $s_code_value ,$f_value));
|
|
}
|
|
} catch(Exception $e) {
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
function format_value($f_value, $nat_test_id){
|
|
$CI =& get_instance();
|
|
$this->db = $CI->load->database("onedev",true);
|
|
$sql = "select * from m_instrumentmethode
|
|
where M_InstrumentMethodeIsActive = 'Y'
|
|
and M_InstrumentMethodeNat_TestID = ?
|
|
limit 0,1";
|
|
$qry = $this->db->query($sql, array($nat_test_id) );
|
|
if ($qry) {
|
|
$rows = $qry->result_array();
|
|
if (count($rows) > 0 ) {
|
|
if ($f_value > 0 ) {
|
|
$fmt = $rows[0]["M_InstrumentMethodeResultFormatAboveSF"];
|
|
} else {
|
|
$fmt = $rows[0]["M_InstrumentMethodeResultFormatSF"];
|
|
}
|
|
$idx = strpos($fmt,".");
|
|
$dec = strlen($fmt) - $idx;
|
|
if ($dec > 0 ) $dec = $dec -1;
|
|
return number_format($f_value,$dec);
|
|
}
|
|
}
|
|
return number_format($f_value,0,".",",");
|
|
}
|
|
}
|