PHP DRG::useDiagnosis示例

$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;