include_once $root_path . 'include/inc_visual_signalling_fx.php';
         // Set the visual signal
         setEventSignalColor($pn, SIGNAL_COLOR_RADIOLOGY_REPORT);
         header("location:{$thisfile}?sid={$sid}&lang={$lang}&edit={$edit}&saved=insert&mode=edit&pn={$pn}&station={$station}&user_origin={$user_origin}&status={$status}&target={$target}&subtarget={$subtarget}&noresize={$noresize}&batch_nr={$batch_nr}&entry_date={$entry_date}");
         exit;
     } else {
         echo "<p>{$sql}<p>{$LDDbNoSave}";
         $mode = '';
     }
     break;
     // end of case 'save'
 // end of case 'save'
 case 'update':
     $sql = "UPDATE care_test_findings_" . $db_request_table . "  SET \n\t\t\t\t\t\t\t\t\t\t   findings='" . addslashes(htmlspecialchars($findings)) . "', \n\t\t\t\t\t\t\t\t\t\t   diagnosis='" . addslashes(htmlspecialchars($diagnosis)) . "',\n\t\t\t\t\t\t\t\t\t\t   doctor_id='" . htmlspecialchars($doctor_id) . "', \n\t\t\t\t\t\t\t\t\t\t   findings_date='" . formatDate2Std($findings_date, $date_format) . "',\n\t\t\t\t\t\t\t\t\t\t   findings_time='" . date('H:i:s') . "', \n\t\t\t\t\t\t\t\t\t\t   history=" . $enc_obj->ConcatHistory("Update: " . date('Y-m-d H:i:s') . " = " . $HTTP_SESSION_VARS['sess_user_name'] . "\n") . ",\n\t\t\t\t\t\t\t\t\t\t   modify_id = '" . $HTTP_SESSION_VARS['sess_user_name'] . "',\n\t\t\t\t\t\t\t\t\t\t   modify_time='" . date('YmdHis') . "'\n\t\t\t\t\t\t\t\t\t\t   WHERE batch_nr = '" . $batch_nr . "'";
     if ($ergebnis = $enc_obj->Transact($sql)) {
         signalNewDiagnosticsReportEvent($findings_date);
         //echo $sql;
         header("location:{$thisfile}?sid={$sid}&lang={$lang}&edit={$edit}&saved=insert&mode=edit&pn={$pn}&station={$station}&user_origin={$user_origin}&status={$status}&target={$target}&subtarget={$subtarget}&noresize={$noresize}&batch_nr={$batch_nr}&entry_date={$entry_date}");
         exit;
     } else {
         echo "<p>{$sql}<p>{$LDDbNoSave}";
         $mode = '';
     }
     break;
     // end of case 'save'
 // end of case 'save'
 case 'done':
     $sql = "UPDATE care_test_findings_" . $db_request_table . " SET \n\t\t\t\t\t\t\t\t\t\t   status='done',\n\t\t\t\t\t\t\t\t\t\t   history=" . $enc_obj->ConcatHistory("Done: " . date('Y-m-d H:i:s') . " = " . $HTTP_SESSION_VARS['sess_user_name'] . "\n") . ",\n\t\t\t\t\t\t\t\t\t\t   modify_id = '" . $HTTP_SESSION_VARS['sess_user_name'] . "',\n\t\t\t\t\t\t\t\t\t\t   modify_time='" . date('YmdHis') . "'\n\t\t\t\t\t\t\t\t\t\t   WHERE batch_nr = '" . $batch_nr . "'";
     if ($ergebnis = $enc_obj->Transact($sql)) {
         //echo $sql;
         $sql = "UPDATE care_test_request_" . $db_request_table . " SET \n\t\t\t\t\t\t\t\t\t\t   status='done',\n\t\t\t\t\t\t\t\t\t\t   history=" . $enc_obj->ConcatHistory("Done: " . date('Y-m-d H:i:s') . " = " . $HTTP_SESSION_VARS['sess_user_name'] . "\n") . ",\n\t\t\t\t\t\t\t\t\t\t   modify_id = '" . $HTTP_SESSION_VARS['sess_user_name'] . "',\n\t\t\t\t\t\t\t\t\t\t   modify_time='" . date('YmdHis') . "'\n\t\t\t\t\t\t\t\t\t\t   WHERE batch_nr = '" . $batch_nr . "'";
$enc_obj = new Encounter();
require_once $root_path . 'include/care_api_classes/class_lab.php';
$lab_obj = new Lab();
/* Here begins the real work */
if (!isset($mode)) {
    $mode = '';
}
switch ($mode) {
    case 'done':
        $sql = "UPDATE care_test_request_" . $subtarget . "\r\n\t\t\t\t\t\t\t\t\t\t\tSET status = 'done',\r\n\t\t\t\t\t\t\t\t\t\t\t\t\thistory=" . $enc_obj->ConcatHistory("Done: " . date('Y-m-d H:i:s') . " = " . $_SESSION['sess_user_name'] . "\n") . ",\r\n\t\t\t\t\t\t\t\t\t\t\t\t\tmodify_id = '" . $_SESSION['sess_user_name'] . "',\r\n\t\t\t\t\t\t\t\t\t\t\t\t\tmodify_time = '" . date('YmdHis') . "'\r\n\t\t\t\t\t\t\t\t\t\t\tWHERE batch_nr = '" . $batch_nr . "'";
        if ($ergebnis = $enc_obj->Transact($sql)) {
            include_once $root_path . 'include/inc_diagnostics_report_fx.php';
            //echo $sql;
            /* If the findings are saved, signal the availability of report
             */
            signalNewDiagnosticsReportEvent('', 'labor_test_request_printpop.php');
            if (!$discharge) {
                header("location:" . $thisfile . URL_REDIRECT_APPEND . "&edit={$edit}&pn={$pn}&user_origin={$user_origin}&status={$status}&target={$target}&subtarget={$subtarget}&noresize={$noresize}");
            } else {
                header('Location: ../ambulatory/amb_clinic_discharge.php' . URL_REDIRECT_APPEND . '&pn=' . $pn . '&pyear=' . date("Y") . '&pmonth=' . date("n") . '&pday=' . date(j) . '&tb=' . str_replace("#", "", $cfg['top_bgcolor']) . '&tt=' . str_replace("#", "", $cfg['top_txtcolor']) . '&bb=' . str_replace("#", "", $cfg['body_bgcolor']) . '&d=' . $cfg['dhtml'] . '&station=' . $station . '&backpath=' . urlencode('../laboratory/labor_test_request_admin_chemlabor.php') . '&dept_nr=' . $dept_nr);
            }
            exit;
        } else {
            echo "<p>{$sql}<p>{$LDDbNoSave}";
            $mode = "";
        }
        break;
}
// end of switch($mode)
if (!$mode) {
    $sql = "SELECT care_person.pid, care_person.selian_pid, name_first, name_last, batch_nr, tr.encounter_nr,tr.send_date,dept_nr,room_nr FROM care_test_request_" . $subtarget . " tr,\r\n\t\t\t\t\tcare_encounter, care_person\r\n\t\t\t\t\t\t         WHERE (tr.status='pending' OR tr.status='') AND\r\n\t\t\t\t\t\t         tr.encounter_nr = care_encounter.encounter_nr AND\r\n\t\t\t\t\t\t         care_encounter.pid = care_person.pid\r\n\t\t\t\t\t\t         ORDER BY  tr.send_date DESC";
//$db->debug=1;
require_once $root_path . 'include/care_api_classes/class_department.php';
$dept_obj = new Department();
/* Here begins the real work */
require_once $root_path . 'include/inc_date_format_functions.php';
if (!isset($mode)) {
    $mode = '';
}
switch ($mode) {
    case 'update':
        $sql = "UPDATE care_test_request_" . $db_request_table . " SET \n                                          result='" . htmlentities(addslashes($result)) . "',\n\t\t\t\t\t\t\t\t\t\t  result_date='" . formatDate2Std($result_date, $date_format) . "',\n\t\t\t\t\t\t\t\t\t\t  result_doctor='" . $result_doctor . "',\n\t\t\t\t\t\t\t\t\t\t   history=" . $dept_obj->ConcatHistory("Update: " . date('Y-m-d H:i:s') . " = " . $_SESSION['sess_user_name'] . "\n") . ",\n\t\t\t\t\t\t\t\t\t\t   modify_id = '" . $_SESSION['sess_user_name'] . "',\n\t\t\t\t\t\t\t\t\t\t   modify_time = '" . date('YmdHis') . "'\n\t\t\t\t\t\t\t\t\t\t   WHERE batch_nr = '" . $batch_nr . "'";
        if ($ergebnis = $dept_obj->Transact($sql)) {
            /* If the findings are succesfully saved, make an entry into the care_nursing_station_patients_diagnostics_report table
             *  for signalling purposes
             */
            signalNewDiagnosticsReportEvent($result_date, 'labor_test_request_printpop.php');
            //echo $sql;
            header("location:" . $thisfile . "?sid={$sid}&lang={$lang}&edit={$edit}&saved=update&pn={$pn}&station={$station}&user_origin={$user_origin}&status={$status}&target={$target}&subtarget={$subtarget}&batch_nr={$batch_nr}&noresize={$noresize}");
            exit;
        } else {
            echo "<p>{$sql}<p>{$LDDbNoSave}";
            $mode = '';
        }
        break;
        // end of case 'save'
    // end of case 'save'
    case 'done':
        $sql = "UPDATE care_test_request_" . $db_request_table . " SET \n                                          status='done',\n\t\t\t\t\t\t\t\t\t\t   history=" . $dept_obj->ConcatHistory("Done: " . date('Y-m-d H:i:s') . " = " . $_SESSION['sess_user_name'] . "\n") . ",\n\t\t\t\t\t\t\t\t\t\t   modify_id = '" . $_SESSION['sess_user_name'] . "',\n\t\t\t\t\t\t\t\t\t\t   modify_time = '" . date('YmdHis') . "'\n\t\t\t\t\t\t\t\t\t\t   WHERE batch_nr = '" . $batch_nr . "'";
        if ($ergebnis = $dept_obj->Transact($sql)) {
            //echo $sql;
            // Load the visual signalling functions
     if ($ergebnis = $enc_obj->Transact($sql)) {
         signalNewDiagnosticsReportEvent();
         //echo $sql;
         header("location:{$thisfile}?sid={$sid}&lang={$lang}&edit={$edit}&saved=insert&mode=edit_findings&pn={$pn}&station={$station}&user_origin={$user_origin}&status={$status}&target={$target}&subtarget={$subtarget}&noresize={$noresize}&batch_nr={$batch_nr}&entry_date={$entry_date}");
         exit;
     } else {
         echo "<p>{$sql}<p>{$LDDbNoSave}";
         $mode = "";
     }
     break;
     // end of case 'save'
 // end of case 'save'
 case 'update':
     $sql = "UPDATE care_test_findings_" . $db_request_table . " SET \n                                           notes = '" . htmlspecialchars($notes) . "', findings_init = '" . $findings_init . "', findings_current = '" . $findings_current . "', \n\t\t\t\t\t\t\t\t\t\t   findings_final = '" . $findings_final . "', entry_nr = '" . $entry_nr . "', rec_date = '" . formatDate2Std($rec_date, $date_format) . "', \n\t\t\t\t\t\t\t\t\t\t   type_general = '" . $type_general . "', resist_anaerob ='" . $resist_anaerob . "', resist_aerob = '" . $resist_aerob . "', \n\t\t\t\t\t\t\t\t\t\t   findings = '" . $findings . "', doctor_id = '', findings_date = '" . date('Y-m-d') . "', \n\t\t\t\t\t\t\t\t\t\t   findings_time = '" . date('H:i') . "',  \n\t\t\t\t\t\t\t\t\t\t   history =" . $enc_obj->ConcatHistory("Update: " . date('Y-m-d H:i:s') . " = " . $_SESSION['sess_user_name'] . "\n") . ",\n\t\t\t\t\t\t\t\t\t\t   modify_id = '" . $_SESSION['sess_user_name'] . "',\n\t\t\t\t\t\t\t\t\t\t   modify_time='" . date('YmdHis') . "'\n\t\t\t\t\t\t\t\t\t\t   WHERE batch_nr = '{$batch_nr}'";
     if ($ergebnis = $enc_obj->Transact($sql)) {
         signalNewDiagnosticsReportEvent();
         //echo $sql;
         header("location:{$thisfile}?sid={$sid}&lang={$lang}&edit={$edit}&saved=insert&mode=edit_findings&pn={$pn}&station={$station}&user_origin={$user_origin}&status={$status}&target={$target}&subtarget={$subtarget}&noresize={$noresize}&batch_nr={$batch_nr}&entry_date={$entry_date}");
         exit;
     } else {
         echo "<p>{$sql}<p>{$LDDbNoSave}";
         $mode = "";
     }
     break;
     // end of case 'save'
 // end of case 'save'
 case 'done':
     $sql = "UPDATE care_test_findings_" . $db_request_table . " SET \n\t\t\t\t\t\t\t\t\t\t   status='done', \n\t\t\t\t\t\t\t\t\t\t   history =" . $enc_obj->ConcatHistory("Done: " . date('Y-m-d H:i:s') . " = " . $_SESSION['sess_user_name'] . "\n") . ",\n\t\t\t\t\t\t\t\t\t\t   modify_id = '" . $_SESSION['sess_user_name'] . "',\n\t\t\t\t\t\t\t\t\t\t   modify_time='" . date('YmdHis') . "'\n\t\t\t\t\t\t\t\t\t\t   WHERE batch_nr = '" . $batch_nr . "'";
     if ($ergebnis = $enc_obj->Transact($sql)) {
         //echo $sql;
         $sql = "UPDATE care_test_request_" . $db_request_table . " SET \n\t\t\t\t\t\t\t\t\t\t   status='done',\n\t\t\t\t\t\t\t\t\t\t   history =" . $enc_obj->ConcatHistory("Done: " . date('Y-m-d H:i:s') . " = " . $_SESSION['sess_user_name'] . "\n") . ",\n\t\t\t\t\t\t\t\t\t\t   modify_id = '" . $_SESSION['sess_user_name'] . "',\n\t\t\t\t\t\t\t\t\t\t   modify_time='" . date('YmdHis') . "'\n\t\t\t\t\t\t\t\t\t\t   WHERE batch_nr = '" . $batch_nr . "'";