<?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;
      }
   }

}