/**
* signalNewDiagnosticsReportEvent will set an event instance in the
* care_nursing_station_patients_diagnostics_report table
* signalling the availability of a report.
* param $report_date = the date (in local format) of the creation of the report
* param $script_name = the script string that will be used to run the display of the report
* return
*/
function signalNewDiagnosticsReportEvent($report_date = '', $script_name)
{
global $db, $local_user, $sid, $batch_nr, $pn, $target, $dept_nr, $formtitle, $subtarget, $LDDbNoRead, $LDDbNoSave, $date_format, $entry_date, $root_path;
// $_SESSION;
# Check if the formatDate2Local function is loaded
if (!function_exists('formatDate2Local')) {
include_once $root_path . 'include/inc_date_format_functions.php';
}
# Load the visual signalling defined constants
if (!function_exists('setEventSignalColor')) {
include_once $root_path . 'include/inc_visual_signalling_fx.php';
}
# Create a core object
include_once $root_path . 'include/care_api_classes/class_core.php';
$core =& new Core();
$entry_table = 'care_encounter_diagnostics_report';
$report_exits = 0;
# assume that report does not exist yet
if (empty($report_date)) {
$report_date = date('Y-m-d');
} else {
$report_date = formatDate2Std($report_date, $date_format);
}
# Check first if a copy is already existing. If yes = update entry, no = insert new entry
$sql = "SELECT item_nr FROM {$entry_table} WHERE report_nr={$batch_nr}";
if ($ergebnis = $db->Execute($sql)) {
if ($ergebnis->RecordCount()) {
$report = $ergebnis->FetchRow();
$sql = "UPDATE {$entry_table} SET\n\t\t\t\t\t\treport_date='" . $report_date . "',\n\t\t\t\t\t\treport_time='" . date('H:i:s') . "',\n\t\t\t\t\t\tstatus='pending',\n\t\t\t\t\t\thistory=" . $core->ConcatHistory("Update: " . date('Y-m-d H:i:s') . " " . $_SESSION['sess_user_name'] . "\n") . ",\n\t\t\t\t\t\tmodify_id='" . $_SESSION['sess_user_name'] . "',\n\t\t\t\t\t\tmodify_time='" . date('YmdHis') . "'\n\t\t\t\t\t\tWHERE item_nr='" . $report['item_nr'] . "'";
} else {
$sql = "INSERT INTO {$entry_table}\n\t\t\t\t\t(\n\t\t\t\t\t\treport_nr,\n\t\t\t\t\t\treport_date,\n\t\t\t\t\t\treport_time,\n\t\t\t\t\t\treporting_dept,\n\t\t\t\t\t\treporting_dept_nr,\n\t\t\t\t\t\tencounter_nr,\n\t\t\t\t\t\tscript_call,\n\t\t\t\t\t\tstatus,\n\t\t\t\t\t\thistory,\n\t\t\t\t\t\tcreate_id,\n\t\t\t\t\t\tcreate_time\n\t\t\t\t\t)\n\t\t\t\t\tVALUES\n\t\t\t\t\t(\n\t\t\t\t\t\t'{$batch_nr}',\n\t\t\t\t\t\t'" . $report_date . "',\n\t\t\t\t\t\t'" . date('H:i:s') . "',\n\t\t\t\t\t\t'{$formtitle}',\n\t\t\t\t\t\t'{$dept_nr}',\n\t\t\t\t\t\t'{$pn}',\n\t\t\t\t\t\t'" . $script_name . "?entry_date=" . $entry_date . "&target=" . $target . "&subtarget=" . $subtarget . "&dept_nr=" . $dept_nr . "&batch_nr=" . $batch_nr . "&pn=" . $pn . "',\n\t\t\t\t\t\t'pending',\n\t\t\t\t\t\t'Initial report: " . date('Y-m-d H:i:s') . " " . $_SESSION['sess_user_name'] . "\n\r',\n\t\t\t\t\t\t'" . $_SESSION['sess_user_name'] . "',\n\t\t\t\t\t\t'" . date('YmdHis') . "'\n\t\t\t\t\t)";
}
//echo $sql;
if ($ergebnis = $core->Transact($sql)) {
/* If the findings are succesfully saved, make an entry into the care_encounter_diagnostics_report table
* for signalling purposes
*/
if ($script_name == "labor_test_findings_radio") {
setEventSignalColor($pn, SIGNAL_COLOR_RADIOLOGY_REPORT, SIGNAL_COLOR_LEVEL_FULL);
} else {
setEventSignalColor($pn, SIGNAL_COLOR_DIAGNOSTICS_REPORT, SIGNAL_COLOR_LEVEL_FULL);
}
return true;
} else {
echo "{$sql} {$LDDbNoSave}";
// for debugging. comment out for normal runs
return false;
}
} else {
echo "{$sql} {$LDDbNoRead}";
// for debugging. comment out for normal runs
return false;
}
}
include_once $root_path . 'include/inc_visual_signalling_fx.php';
if ($presc_obj->GetClassOfItem($article_item_number) == 'drug_list') {
// Set the visual signal
setEventSignalColor($encounter_nr, SIGNAL_COLOR_DOCTOR_INFO);
} else {
if ($presc_obj->GetClassOfItem($article_item_number) == 'supplies') {
// Set the visual signal
setEventSignalColor($encounter_nr, SIGNAL_COLOR_CONSUMABLES);
} else {
if ($presc_obj->GetClassOfItem($article_item_number) == 'service') {
// Set the visual signal
setEventSignalColor($encounter_nr, SIGNAL_COLOR_SERVICES);
} else {
if ($presc_obj->GetClassOfItem($article_item_number) == 'dental' || $presc_obj->GetClassOfItem($article_item_number) == 'minor_proc_op' || $presc_obj->GetClassOfItem($article_item_number) == 'obgyne_op' || $presc_obj->GetClassOfItem($article_item_number) == 'ortho_op' || $presc_obj->GetClassOfItem($article_item_number) == 'surgical_op') {
// Set the visual signal
setEventSignalColor($encounter_nr, SIGNAL_COLOR_PROCEDURES);
}
}
}
}
//********
break;
//if (isset($externalcall))
// header("location:".$thisfile.URL_REDIRECT_APPEND."&target=$target&type_nr=$type_nr&allow_update=1&externalcall=".$externalcall."&pid=".$_SESSION['sess_pid']);
//exit;
//break;
//if (isset($externalcall))
// header("location:".$thisfile.URL_REDIRECT_APPEND."&target=$target&type_nr=$type_nr&allow_update=1&externalcall=".$externalcall."&pid=".$_SESSION['sess_pid']);
//exit;
//break;
case 'update':
exit;
} else {
echo "<p>{$sql}<p>{$LDDbNoSave}";
$mode = "";
}
break;
// end of case 'save'
// end of case 'save'
case 'update':
$sql = "UPDATE care_test_request_" . $db_request_table . " SET \n\t\t\t\t\t\t\t\t dept_nr = '" . $dept_nr . "', \n\t\t\t\t\t\t\t\t\t\t quick_cut = '" . $quick_cut . "', \n\t\t\t\t\t\t\t\t\t\t qc_phone = '" . $qc_phone . "', \n\t\t\t\t\t\t\t\t\t\t quick_diagnosis = '" . $quick_diagnosis . "',\n\t\t\t\t\t\t\t\t\t\t qd_phone = '" . $qd_phone . "', \n\t\t\t\t\t\t\t\t\t\t material_type = '" . $material_type . "',\n\t\t\t\t\t\t\t\t\t\t material_desc = '" . htmlspecialchars($material_desc) . "', \n\t\t\t\t\t\t\t\t\t\t localization = '" . htmlspecialchars($localization) . "',\n\t\t\t\t\t\t\t\t\t\t clinical_note = '" . htmlspecialchars($clinical_note) . "', \n\t\t\t\t\t\t\t\t\t\t extra_note = '" . htmlspecialchars($extra_note) . "', \n\t\t\t\t\t\t\t\t\t\t repeat_note = '" . htmlspecialchars($repeat_note) . "',\n\t\t\t\t\t\t\t\t\t\t gyn_last_period = '" . htmlspecialchars($gyn_last_period) . "', \n\t\t\t\t\t\t\t\t\t\t gyn_period_type = '" . htmlspecialchars($gyn_period_type) . "', \n\t\t\t\t\t\t\t\t\t\t gyn_gravida = '" . htmlspecialchars($gyn_gravida) . "',\n\t\t\t\t\t\t\t\t\t\t gyn_menopause_since = '" . htmlspecialchars($gyn_menopause_since) . "', \n\t\t\t\t\t\t\t\t\t\t gyn_hysterectomy = '" . htmlspecialchars($gyn_hysterectomy) . "',\n\t\t\t\t\t\t\t\t\t\t gyn_contraceptive = '" . htmlspecialchars($gyn_contraceptive) . "', \n\t\t\t\t\t\t\t\t\t\t gyn_iud = '" . htmlspecialchars($gyn_iud) . "', \n\t\t\t\t\t\t\t\t\t\t gyn_hormone_therapy = '" . htmlspecialchars($gyn_hormone_therapy) . "',\n\t\t\t\t\t\t\t\t\t\t doctor_sign = '" . htmlspecialchars($doctor_sign) . "', \n\t\t\t\t\t\t\t\t\t\t op_date = '" . formatDate2STD($op_date, $date_format) . "',\n\t\t\t\t\t\t\t\t\t\t status = '" . $status . "', \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)) {
//echo $sql;
// Load the visual signalling functions
include_once $root_path . 'include/inc_visual_signalling_fx.php';
// Set the visual signal
setEventSignalColor($pn, SIGNAL_COLOR_DIAGNOSTICS_REQUEST);
header("location:" . $root_path . "modules/laboratory/labor_test_request_aftersave.php" . URL_REDIRECT_APPEND . "&edit={$edit}&saved=update&pn={$pn}&station={$station}&user_origin={$user_origin}&status={$status}&target={$target}&batch_nr={$batch_nr}&noresize={$noresize}");
exit;
} else {
echo "<p>{$sql}<p>{$LDDbNoSave}";
$mode = "";
}
break;
// end of case 'save'
/* If mode is edit, get the stored test request when its status is either "pending" or "draft"
* otherwise it is not editable anymore which happens when the lab has already processed the request,
* or when it is discarded, hidden, locked, or otherwise.
*
* If the "parameter" element is not empty, parse it to the $stored_param variable
*/
// end of case 'save'
$radtests = $db->Execute($sql);
$stored_tests = $radtests->FetchRow();
if (!isset($mode) && $batch_nr && $pn) {
$mode = 'edit';
}
switch ($mode) {
case 'save':
$sql = "INSERT INTO care_test_findings_" . $db_request_table . " \n\t\t\t\t\t\t\t\t (\n\t\t\t\t\t\t\t\t\t\t batch_nr, encounter_nr, dept_nr, \n\t\t\t\t\t\t\t\t\t\t findings, diagnosis,\n\t\t\t\t\t\t\t\t\t\t doctor_id, findings_date, findings_time, \n\t\t\t\t\t\t\t\t\t\t status, \n\t\t\t\t\t\t\t\t\t\t history,\n\t\t\t\t\t\t\t\t\t\t create_id,\n\t\t\t\t\t\t\t\t\t\t create_time\n\t\t\t\t\t\t\t\t\t\t )\n\t\t\t\t\t\t\t\t\t\t VALUES\n\t\t\t\t\t\t\t\t\t\t (\n\t\t\t\t\t\t\t\t\t\t '" . $batch_nr . "','" . $pn . "','" . $dept_nr . "', \n\t\t\t\t\t\t\t\t\t\t '" . addslashes(htmlspecialchars($findings)) . "','" . addslashes(htmlspecialchars($diagnosis)) . "',\n\t\t\t\t\t\t\t\t\t\t '" . htmlspecialchars($doctor_id) . "', '" . formatDate2Std($findings_date, $date_format) . "', '" . date('H:i:s') . "',\n\t\t\t\t\t\t\t\t\t\t 'initial', \n\t\t\t\t\t\t\t\t\t\t 'Create: " . 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 '" . $HTTP_SESSION_VARS['sess_user_name'] . "',\n\t\t\t\t\t\t\t\t\t\t '" . date('YmdHis') . "'\n\t\t\t\t\t\t\t\t\t\t )";
$script_name = "labor_test_findings_radio";
if ($ergebnis = $enc_obj->Transact($sql)) {
signalNewDiagnosticsReportEvent($findings_date, $script_name);
//echo $sql;
// Load the visual signalling functions
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}");
} else {
$saved = false;
echo "<p>{$report_obj->sql}{$LDDbNoSave}";
}
}
if ($dateput2 && $berichtput2 && $author2) {
if (!$_POST['ref_notes_nr']) {
$_POST['timeput'] = date('H:i:s');
}
if ($dateput2) {
$_POST['dateput2'] = formatDate2STD($dateput2, $date_format);
}
$_POST['berichtput2'] = deactivateHotHtml($berichtput2);
if ($report_obj->saveEffectivityReport($_POST)) {
// Set the visual signal
setEventSignalColor($pn, SIGNAL_COLOR_NURSE_REPORT, SIGNAL_COLOR_LEVEL_FULL);
$saved = true;
} else {
$saved = false;
echo "<p>{$report_obj->sql}{$LDDbNoSave}";
}
}
if ($saved) {
header("location:{$thisfile}?sid={$sid}&lang={$lang}&saved=1&pn={$pn}&station={$station}&edit={$edit}");
}
} else {
$saved = false;
}
} else {
// end of if(mode==save)
$enc_obj->where = " encounter_nr={$pn}";
$parsedParamList['paramater_name'] = $key;
$parsedParamList['parameter_value'] = $value;
$lab_obj_sub->setDataArray($parsedParamList);
$lab_obj_sub->insertDataFromInternalArray();
}
}
$saved = true;
} else {
echo "<p>" . $lab_obj->getLastQuery() . "{$LDDbNoSave}";
}
}
# If save successful, jump to display values
if ($saved) {
include_once $root_path . 'include/inc_visual_signalling_fx.php';
# Set the visual signal
setEventSignalColor($encounter_nr, SIGNAL_COLOR_DIAGNOSTICS_REPORT);
header("location:labor_test_request_admin_chemlabor.php?sid={$sid}");
exit;
}
# end of if(mode==save)
} else {
#If mode is not "save" then get the basic personal data
if ($debug) {
echo "mode is not save then get the basic personal data<br>";
}
# If previously saved, get the values
if ($saved) {
if ($result =& $lab_obj->getBatchResult($batch_nr)) {
while ($row = $result->FetchRow()) {
$pdata[$row['paramater_name']] = $row['parameter_value'];
}
} else {
$saved = false;
echo "<p>{$report_obj->sql}{$LDDbNoSave}";
}
}
if ($dateput2 && $berichtput2 && $author2) {
if (!$_POST['ref_notes_nr']) {
$_POST['timeput'] = date('H:i:s');
}
if ($dateput2) {
$_POST['dateput2'] = formatDate2STD($dateput2, $date_format);
}
$_POST['berichtput2'] = deactivateHotHtml($berichtput2);
if ($report_obj->saveInquiry($_POST)) {
// Set the visual signal
setEventSignalColor($pn, SIGNAL_COLOR_QUERY_DOCTOR, SIGNAL_COLOR_LEVEL_FULL);
$saved = true;
} else {
$saved = false;
echo "<p>{$report_obj->sql}{$LDDbNoSave}";
}
}
if ($saved) {
header("location:{$thisfile}?sid={$sid}&lang={$lang}&saved=1&pn={$pn}&station={$station}&edit={$edit}");
}
} else {
$saved = false;
}
} else {
// end of if(mode==save)
$enc_obj->where = " encounter_nr={$pn}";
} else {
continue;
}
}
if ($saved) {
if ($mark_antibiotic) {
setEventSignalColor($pn, SIGNAL_COLOR_ANTIBIOTIC);
}
if ($mark_diuretic) {
setEventSignalColor($pn, SIGNAL_COLOR_DIURETIC);
}
if ($mark_anticoag) {
setEventSignalColor($pn, SIGNAL_COLOR_ANTICOAG);
}
if ($mark_iv) {
setEventSignalColor($pn, SIGNAL_COLOR_IV);
}
header("location:{$thisfile}?sid={$sid}&lang={$lang}&edit={$edit}&saved=1&pn={$pn}&station={$station}&winid={$winid}&yr={$yr}&mo={$mo}&dy={$dy}&dyidx={$dyidx}&dystart={$dystart}&dyname={$dyname}");
exit;
}
}
// end of if(mode==save)
$count = 0;
$medis = $charts_obj->getAllCurrentPrescription($pn);
if (is_object($medis)) {
$count = $medis->RecordCount();
}
?>
<?php
html_rtl($lang);
require './roots.php';
require $root_path . 'include/inc_environment_global.php';
/**
* CARE2X Integrated Hospital Information System Deployment 2.1 - 2004-10-02
* GNU General Public License
* Copyright 2005 Robert Meggle based on the development of Elpidio Latorilla (2002,2003,2004,2005)
* elpidio@care2x.org, meggle@merotech.de
*
* See the file "copy_notice.txt" for the licence notice
*/
//define('NO_2LEVEL_CHK',1);
//require($root_path.'include/inc_front_chain_lang.php');
$lang_tables[] = 'diagnoses_ICD10.php';
require $root_path . 'include/inc_front_chain_lang.php';
//Load the diagnstics-class:
require_once $root_path . 'include/care_api_classes/class_tz_diagnostics.php';
$diagnostic_obj = new Diagnostics();
/*
print_r ( $_SESSION );
echo "<br>";
echo "das will ich sehen: ".$_SESSION['sess_full_en'];
*/
if ($todo == 'submit') {
// Load the visual signalling functions
include_once $root_path . 'include/inc_visual_signalling_fx.php';
// Set the visual signal
setEventSignalColor($_SESSION['sess_en'], SIGNAL_COLOR_QUERY_DOCTOR);
$diagnostic_obj->EnterNewCase($_POST);
}
require "gui/gui_icd10_diagnose.php";