$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; # pass the variable as reference $DRG_obj->setDataArray($data); # Now insert the data $DRG_obj->insertDataFromInternalArray();