* Copyright 2002,2003,2004,2005 Elpidio Latorilla
* elpidio@care2x.org,
*
* See the file "copy_notice.txt" for the licence notice
*/
$lang_tables[] = 'prompt.php';
define('LANG_FILE', 'drg.php');
require_once 'drg_inc_local_user.php';
require_once $root_path . 'include/inc_front_chain_lang.php';
/* Load the date formatter */
require_once $root_path . 'include/inc_date_format_functions.php';
require_once $root_path . 'include/care_api_classes/class_drg.php';
$enc_obj = new DRG($pn);
//$db->debug=true;
if (isset($mode) && $mode == 'save_group' && isset($group_nr) && $group_nr) {
$enc_obj->groupNonGroupedItems($group_nr);
header("location:{$thisfile}?sid={$sid}&lang={$lang}&saveok=1&pn={$pn}&opnr={$opnr}&group_nr={$group_nr}&edit={$edit}&is_discharged={$is_discharged}&ln={$ln}&fn={$fn}&dept_nr={$dept_nr}&oprm={$oprm}&display={$display}");
exit;
}
$toggle = 0;
$thisfile = basename($_SERVER['PHP_SELF']);
if (isset($mode) && $mode == 'delete' && $item) {
$buf = $enc_obj->ungroupDiagnoses($group_nr);
$buf2 = $enc_obj->ungroupProcedures($group_nr);
$enc_obj->deleteEncounterDRGGroup($item);
header("location:{$thisfile}?sid={$sid}&lang={$lang}&pn={$pn}&opnr={$opnr}&group_nr=0&edit={$edit}&is_discharged={$is_discharged}&ln={$ln}&fn={$fn}&dept_nr={$dept_nr}&oprm={$oprm}&display={$display}");
exit;
}
$non_grouped = false;
if (!isset($group_nr)) {
$group_nr = 0;
//exit;
} else {
$saveok = false;
}
break;
case 'linkgroup':
if (!$DRG_obj->EncounterDRGGroupExists($group_nr)) {
$DRG_obj->useInternalDRG();
// Set the core variables to encounter DRG table
$_POST['clinician'] = $_SESSION['sess_user_name'];
$_POST['encounter_nr'] = $pn;
$_POST['date'] = date('Y-m-d H:i:s');
$DRG_obj->setDataArray($_POST);
// transfer the data
if ($DRG_obj->insertDataFromInternalArray()) {
$DRG_obj->groupNonGroupedItems($group_nr);
$saveok = true;
}
exit;
}
}
}
if ($saveok && $mode == 'linkgroup') {
?>
<script language="javascript" >
window.opener.parent.location.replace('drg-composite-start.php?sid=<?php
echo "{$sid}&lang={$lang}&pn={$pn}&opnr={$opnr}&group_nr={$group_nr}&edit={$edit}&ln={$ln}&fn={$fn}&bd={$bd}&dept_nr={$dept_nr}&oprm={$oprm}&y={$y}&m={$m}&d={$d}&display=composite&newsave=1";
?>
');
//window.opener.parent.INTERN.location.reload();
$data['responsible_dept_nr'] = $dept_nr;
$DRG_obj->useProcedure();
$qlist_type = 'procedure';
break;
case 'ops_intern_code':
$DRG_obj->useInternalDRG();
$qlist_type = 'drg_intern';
if (isset($current) && $current) {
if (!$DRG_obj->EncounterDRGGroupExists($sel)) {
$data['group_nr'] = $sel;
# pass the variable as reference
$DRG_obj->setDataArray($data);
# Now insert the data
$DRG_obj->insertDataFromInternalArray();
# Set all non-grouped diagnoses and procedures to this group number
$DRG_obj->groupNonGroupedItems($sel);
$saveok = 1;
$multiple_save = false;
$group_nr = $sel;
//echo $thisfile;
}
}
}
if ($multiple_save) {
for ($i = 0; $i < $lastindex; $i++) {
$selx = "{$itemselector}{$i}";
$hidx = "{$hidselector}{$i}";
if (${$selx} == '') {
continue;
}
if ($element == 'ops_intern_code') {
