// Set the core variables
$DRG_obj->setDataArray($_POST);
// transfer the data
if ($DRG_obj->insertDataFromInternalArray()) {
$oid = $db->Insert_ID();
// Get the insert ID
$group_nr = $DRG_obj->LastInsertPK('nr', $oid);
$saveok = true;
//header("location:$thisfile?sid=$sid&lang=$lang&saveok=1&pn=$pn&opnr=$opnr&group_nr=$group_nr&ln=$ln&fn=$fn&bd=$bd&dept_nr=$dept_nr&oprm=$oprm&y=$y&m=$m&d=$d&display=$display&target=$target");
//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;
}
}
}
$data['diagnosing_dept_nr'] = $dept_nr;
$DRG_obj->useDiagnosis();
$qlist_type = 'diagnosis';
break;
case 'ops_code':
$data['code_version'] = $DRG_obj->OPSVersion();
$data['responsible_clinician'] = $_SESSION['sess_user_name'];
$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) {
