$data['encounter_nr'] = $pn; $data['date'] = date('Y-m-d H:i:s'); $data['op_nr'] = $opnr; $data['group_nr'] = $group_nr; $data['category_nr'] = 99; // This is a dummy entry to force the new entries to appear below the current entries in the table $data['history'] = "Create " . date('Y-m-d H:i:s') . " " . $_SESSION['sess_user_name'] . "\n"; $data['modify_id'] = $_SESSION['sess_user_name']; $data['create_id'] = $_SESSION['sess_user_name']; $data['create_time'] = date('YmdHis'); switch ($element) { case 'icd_code': $data['code_version'] = $DRG_obj->ICDVersion(); $data['diagnosing_clinician'] = $_SESSION['sess_user_name']; $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;