* 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') {