DVB429PT ;ALB/REV POST-INSTALL FOR PATCH DVB*4*29 ; 03/24/97
;;V4.0;HINQ;**29**;03/25/92
;
;This routine will be run as a post-installation for patch DVB*4*29.
;This routine will add new disability codes to and modify existing
;names/descriptions in the DISABILITY CONDITION file (#31).
;
POST ;entry point for post-install, setting up checkpoints
N %
S %=$$NEWCP^XPDUTL("DVBLINE","EN^DVB429PT",1)
Q
;
EN ;begin processing
;
N DVBLINE
;
D BMES^XPDUTL(" >> *** Updating DISABILITY CONDITION file (#31)")
D MES^XPDUTL(" ")
;
;get value from checkpoints, previous run
S DVBLINE=+$$PARCP^XPDUTL("DVBLINE")
;
DVBNEW ;add new codes or modify name
;
F DVBI=DVBLINE:1 S DVBJ=$P($T(NEWCODE+DVBI),";;",2) Q:DVBJ["$EXIT" D
.S DVBCODE=+DVBJ,DVBNAME=$E($P(DVBJ,"^",2),1,45),DVBLINE=DVBI
.S DVBDESC=$E($P(DVBJ,"^",3),1,200)
.;
.;add new code
.I '$D(^DIC(31,"C",DVBCODE)) D G UPDATECH
..K DD,DO
..S DIC="^DIC(31,",DIC(0)="L",DIC("DR")="2////"_DVBCODE_";10////"_DVBDESC
..S X=DVBNAME,DLAYGO=31
..D FILE^DICN
..D MES^XPDUTL(DVBCODE_": adding "_DVBCODE_" "_X)
..K DLAYGO,DIC,X
..Q
.;
.;modify name
.S DVBIEN=+$O(^DIC(31,"C",DVBCODE,0))
.S DVBREC=$G(^DIC(31,DVBIEN,0)),DVBOLDSC=$G(^DIC(31,DVBIEN,1)) I DVBREC']"" D G UPDATECH
..D MES^XPDUTL(" >>>> error "_DVBCODE_" in C x-reference and not in file 31")
..Q
.S DVBOLDN=$P(DVBREC,"^") I DVBOLDN=DVBNAME&(DVBOLDSC=DVBDESC) G UPDATECH
.S DA=DVBIEN,DIE="^DIC(31,",DR=".01////"_DVBNAME_";10////"_DVBDESC
.D ^DIE
.K DR,DA,DIE
.I DVBOLDN'=DVBNAME D
..D MES^XPDUTL(DVBCODE_": changing name from "_DVBOLDN)
..D MES^XPDUTL(" to "_DVBNAME)
.I DVBOLDSC'=DVBDESC D
..D MES^XPDUTL(DVBCODE_": changing description...")
..D MES^XPDUTL(" from: "_DVBOLDSC)
..D MES^XPDUTL(" to: "_DVBDESC)
.;
UPDATECH .;update checkpoint
.S %=$$UPCP^XPDUTL("DVBLINE",DVBLINE)
.Q
K DVBCODE,DVBI,DVBIEN,DVBJ,DVBNAME,DVBOLDN,DVBREC,DVBDESC,DVBOLDSC
Q
;
NEWCODE ; codes to be added or changed
;;5025^FIBROMYALGIA^FIBROSITIS, PRIMARY FIBROMYALGIA SYNDROME
;;6205^MENIERE'S SYNDROME^MENIERE'S SYNDROME
;;6207^LOSS, OR PARTIAL LOSS OF EAR(S)^AURICLE, LOSS OF
;;6305^FILARIASIS^LYMPHATIC FILARIASIS
;;6306^BARTONELLOSIS^OROYA FEVER (BARTONELLOSIS)
;;6310^TREPONEMAL INFECTIOUS CONDITION^SYPHILIS AND OTHER TREPONEMAL INFECTIONS
;;6316^UNDULANT FEVER (BRUCELLOSIS)^BRUCELLOSIS (MALTA OR UNDULANT FEVER)
;;6502^SEPTUM, NASAL, DEVIATION OF^SEPTUM, NASAL, DEVIATION OF - TRAUMATIC
;;6518^LARYNGECTOMY, TOTAL^LARYNGECTOMY, TOTAL
;;6520^LARYNX, STENOSIS OF^LARYNX, STENOSIS OF - INCL. RESIDUAL OF TRAUMA
;;7115^BUERGER'S DISEASE^THROMBOANGITIS OBLITERANS (BUERGER'S DISEASE)
;;7316^INFLAMMATION OF BILE DUCT^CHOLANGITIS, CHRONIC
;;7343^NEOPLASM, MALIGNANT, DIGESTIVE SYSTEM^NEW GROWTHS, MALIGNANT, EXCLUSIVE OF SKIN GROWTHS
;;7528^NEOPLASM, MALIGNANT, GENITOURINARY^MALIGNANT NEOPLASMS OF THE GENITOURINARY SYSTEM
;;7529^NEOPLASM, BENIGN, GENITOURINARY^BENIGN NEOPLASMS OF THE GENITOURINARY SYSTEM
;;7535^TOXIC NEPHROPATHY^TOXIC NEPHROPATHY
;;7540^DISSEMINATED INTRAVASCULAR COAGULATION^DISSEMINATED INTRAVASCULAR COAGULATION WITH RENAL CORTICAL NECROSIS
;;7610^VULVA, DISEASE OR INJURY OF^VULVA, DISEASE OR INJURY OF
;;7611^VAGINA, DISEASE OR INJURY OF^VAGINA, DISEASE OR INJURY OF
;;7612^CERVIX, DISEASE OR INJURY OF^CERVIX, DISEASE OR INJURY OF
;;7613^UTERUS, DISEASE, INJURY, OR ADHESIONS OF^UTERUS, DISEASE, INJURY, OR ADHESIONS OF
;;7614^FALLOPIAN TUBE,DISEASE,INJURY,OR ADHESIONS TO^FALLOPIAN TUBE,DISEASE,INJURY,OR ADHESIONS TO
;;7615^OVARY, DISEASE, INJURY, OR ADHESIONS OF^OVARY, DISEASE, INJURY, OR ADHESIONS OF
;;7624^RECTOVAGINAL FISTULA^FISTULA, RECTOVAGINAL
;;7625^URETHROVAGINAL FISTULA^FISTULA, URETHROVAGINAL
;;7626^BREAST, SURGERY OF^MAMMARY GLANDS, REMOVAL OR EXCISION OF
;;7627^NEOPLASM, MALIGNANT, GYNECOLOGICAL OR MAMMARY^NEW GROWTHS, MALIGNANT, GYNECOLOGICAL SYSTEM OR MAMMARY GLANDS
;;7628^NEOPLASM, BENIGN, GYNECOLOGICAL^
;;7700^ANEMIA^ANEMIA, HYPOCHROMIC-MICROCYTIC AND MEGALOBLASTIC
;;7704^POLYCYTHEMIA VERA^POLYCYTHEMIA, PRIMARY
;;7705^THROMBOCYTOPENIA^THROMBOCYTOPENIA,PRIMARY,IDEOPATHIC OR IMMUNE
;;7710^ADENITIS, TUBERCULOUS^ADENITIS, TUBERCULOUS, ACTIVE OR INACTIVE
;;7716^APLASTIC ANEMIA^APLASTIC ANEMIA
;;7818^NEOPLASM, MALIGNANT, SKIN^NEW GROWTHS, MALIGNANT, SKIN
;;7819^NEOPLASM, BENIGN, SKIN^NEW GROWTHS, BENIGN, SKIN
;;7908^ACROMEGALY^HYPERPITUITARISM (ACROMEGALY OR GIGANTISM)
;;7909^HYPOPITUITARISM (DIABETES INSIPIDUS)^HYPOPITUITARISM (DIABETES INSIPIDUS)
;;7911^ADDISON'S DISEASE, AN ADRENAL CONDITION^ADDISON'S DISEASE (ADRENAL CORTICAL HYPOFUNCTION)
;;7913^DIABETES MELLITUS^DIABETES MELLITUS
;;7914^NEOPLASM, MALIGNANT, ENDOCRINE^NEW GROWTHS, MALIGNANT, ANY SPECIFIED PART OF ENDOCRINE SYSTEM
;;7915^NEOPLASM, BENIGN, ENDOCRINE^NEW GROWTHS, BENIGN, ANY SPECIFIED PART OF ENDOCRINE SYSTEM
;;8105^SYDENHAM'S CHOREA^CHOREA, SYDENHAM'S
;;8106^HUNTINGTON'S CHOREA^CHOREA, HUNTINGTON'S
;;9201^PSYCHOSIS, DISORG SCHIZ^SCHIZOPHRENIA, DISORGANIZED TYPE
;;9202^PSYCHOSIS,CATATONIC SCHIZ^SCHIZOPHRENIA, CATATONIC TYPE
;;9203^PSYCHOSIS, SCHIZ PARA^SCHIZOPHRENIA, PARANOID TYPE
;;9204^PSYCHOSIS, SCHIZ UNDIFF^SCHIZOPHRENIA, UNDIFFERENTIATED TYPE
;;9205^PSYCHOSIS, SCHIZ RESIDUAL AND OTHER^SCHIZOPHRENIA, RESIDUAL TYPE/ OTHER AND UNSPEC. TYPES
;;9206^BIPOLAR PSYCHOSIS^BIPOLAR DISORDER, MANIC, DEPRESSED, OR MIXED
;;9207^MAJ DEP W/PSYCHOTIC FEAT.^MAJOR DEPRESSION WITH PSYCHOTIC FEATURES
;;9208^DELUS. DISORDERS^DELUSIONAL DISORDERS
;;9209^MAJ DEP W/MELANCHOLIA^MAJOR DEPRESSION WITH MELANCHOLIA
;;9210^ATYPICAL PSYCHOSIS^PSYCHOTIC DISORDER, NOS
;;9211^SCHIZOAFFECTIVE DISORDER^SCHIZOAFFECTIVE DISORDER
;;9300^BRAIN SYNDROME^DELIRIUM
;;9301^BRAIN SYNDROME^DEMENTIA DUE TO INFECTION (HIV,SYPHILIS,ETC.)
;;9304^BRAIN SYNDROME^DEMENTIA DUE TO HEAD TRAUMA
;;9305^BRAIN SYNDROME^VASCULAR DEMENTIA
;;9310^BRAIN SYNDROME^DEMENTIA OF UNKNOWN ETIOLOGY
;;9312^BRAIN SYNDROME^DEMENTIA OF ALZHEIMER'S TYPE
;;9326^BRAIN SYNDROME^DEMENTIA DUE TO OTHER NEURO OR GEN. MED. CONDITIONS
;;9327^BRAIN SYNDROME^ORGANIC MENTAL DISORDER, OTHER
;;9400^NEUROSIS, GEN ANX DIS^GENERALIZED ANXIETY DISORDER
;;9401^NEUROSIS, PSYCHOGENIC AMNESIA^PSYCHOGENIC AMNESIA
;;9402^NEUROSIS, CONV DISORDER^CONVERSION DISORDER
;;9403^NEUROSIS, PHOBIA^SPECIFIC (SIMPLE) PHOBIA
;;9404^NEUROSIS, OBS COMP DISORD^OBSESSIVE COMPULSIVE DISORDER
;;9405^NEUROSIS, DYSTHYMIC DISORD^DYSTHYMIC DISORDER
;;9408^NEUROSIS, DEPERS DISORD^DEPERSONALIZATION DISORDER
;;9409^NEUROSIS, HYPOCHONDRIASIS^HYPOCHONDRIASIS
;;9412^PANIC DISORDER^PANIC DISORDER AND/OR AGORAPHOBIA
;;9413^ANXIETY DISORDER^ANXIETY DISORDER, NOS
;;9416^DISSOCIATIVE AMNESIA^DISSOCIATIVE AMNESIA, FUGUE OR IDENTITY DISORDER
;;9417^DEPERSONALIZATION DISORDER^DEPERSONALIZATION DISORDER
;;9421^SOMATIZATION DISORDER^SOMATIZATION DISORDER
;;9422^PAIN DISORDER^PAIN DISORDER
;;9423^UNDIFFERENTIATED SOMATOFORM DISORDER^UNDIFFERENTIATED SOMATOFORM DISORDER
;;9424^CONVERSION DISORDER^CONVERSION DISORDER
;;9425^HYPOCHONDRIASIS^HYPOCHONDRIASIS
;;9431^CYCLOTHYMIC DISORDER^CYCLOTHYMIC DISORDER
;;9432^BIPOLAR DISORDER^BIPOLAR DISORDER
;;9433^DYSTHYMIC DISORDER^DYSTHYMIC DISORDER
;;9434^MAJOR DEPRESSIVE DISORDER^MAJOR DEPRESSIVE DISORDER
;;9435^MOOD DISORDER, NOT OTHERWISE SPECIFIED^MOOD DISORDER, NOT OTHERWISE SPECIFIED
;;9440^CHRONIC ADJUSTMENT DISORDER^CHRONIC ADJUSTMENT DISORDER
;;9520^ANOREXIA NERVOSA^ANOREXIA NERVOSA (EATING DISORDER)
;;9521^BULIMIA NERVOSA^BULIMIA NERVOSA (EATING DISORDER)
;;$EXIT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVB429PT 7684 printed Nov 22, 2024@17:07:41 Page 2
DVB429PT ;ALB/REV POST-INSTALL FOR PATCH DVB*4*29 ; 03/24/97
+1 ;;V4.0;HINQ;**29**;03/25/92
+2 ;
+3 ;This routine will be run as a post-installation for patch DVB*4*29.
+4 ;This routine will add new disability codes to and modify existing
+5 ;names/descriptions in the DISABILITY CONDITION file (#31).
+6 ;
POST ;entry point for post-install, setting up checkpoints
+1 NEW %
+2 SET %=$$NEWCP^XPDUTL("DVBLINE","EN^DVB429PT",1)
+3 QUIT
+4 ;
EN ;begin processing
+1 ;
+2 NEW DVBLINE
+3 ;
+4 DO BMES^XPDUTL(" >> *** Updating DISABILITY CONDITION file (#31)")
+5 DO MES^XPDUTL(" ")
+6 ;
+7 ;get value from checkpoints, previous run
+8 SET DVBLINE=+$$PARCP^XPDUTL("DVBLINE")
+9 ;
DVBNEW ;add new codes or modify name
+1 ;
+2 FOR DVBI=DVBLINE:1
SET DVBJ=$PIECE($TEXT(NEWCODE+DVBI),";;",2)
if DVBJ["$EXIT"
QUIT
Begin DoDot:1
+3 SET DVBCODE=+DVBJ
SET DVBNAME=$EXTRACT($PIECE(DVBJ,"^",2),1,45)
SET DVBLINE=DVBI
+4 SET DVBDESC=$EXTRACT($PIECE(DVBJ,"^",3),1,200)
+5 ;
+6 ;add new code
+7 IF '$DATA(^DIC(31,"C",DVBCODE))
Begin DoDot:2
+8 KILL DD,DO
+9 SET DIC="^DIC(31,"
SET DIC(0)="L"
SET DIC("DR")="2////"_DVBCODE_";10////"_DVBDESC
+10 SET X=DVBNAME
SET DLAYGO=31
+11 DO FILE^DICN
+12 DO MES^XPDUTL(DVBCODE_": adding "_DVBCODE_" "_X)
+13 KILL DLAYGO,DIC,X
+14 QUIT
End DoDot:2
GOTO UPDATECH
+15 ;
+16 ;modify name
+17 SET DVBIEN=+$ORDER(^DIC(31,"C",DVBCODE,0))
+18 SET DVBREC=$GET(^DIC(31,DVBIEN,0))
SET DVBOLDSC=$GET(^DIC(31,DVBIEN,1))
IF DVBREC']""
Begin DoDot:2
+19 DO MES^XPDUTL(" >>>> error "_DVBCODE_" in C x-reference and not in file 31")
+20 QUIT
End DoDot:2
GOTO UPDATECH
+21 SET DVBOLDN=$PIECE(DVBREC,"^")
IF DVBOLDN=DVBNAME&(DVBOLDSC=DVBDESC)
GOTO UPDATECH
+22 SET DA=DVBIEN
SET DIE="^DIC(31,"
SET DR=".01////"_DVBNAME_";10////"_DVBDESC
+23 DO ^DIE
+24 KILL DR,DA,DIE
+25 IF DVBOLDN'=DVBNAME
Begin DoDot:2
+26 DO MES^XPDUTL(DVBCODE_": changing name from "_DVBOLDN)
+27 DO MES^XPDUTL(" to "_DVBNAME)
End DoDot:2
+28 IF DVBOLDSC'=DVBDESC
Begin DoDot:2
+29 DO MES^XPDUTL(DVBCODE_": changing description...")
+30 DO MES^XPDUTL(" from: "_DVBOLDSC)
+31 DO MES^XPDUTL(" to: "_DVBDESC)
End DoDot:2
+32 ;
UPDATECH ;update checkpoint
+1 SET %=$$UPCP^XPDUTL("DVBLINE",DVBLINE)
+2 QUIT
End DoDot:1
+3 KILL DVBCODE,DVBI,DVBIEN,DVBJ,DVBNAME,DVBOLDN,DVBREC,DVBDESC,DVBOLDSC
+4 QUIT
+5 ;
NEWCODE ; codes to be added or changed
+1 ;;5025^FIBROMYALGIA^FIBROSITIS, PRIMARY FIBROMYALGIA SYNDROME
+2 ;;6205^MENIERE'S SYNDROME^MENIERE'S SYNDROME
+3 ;;6207^LOSS, OR PARTIAL LOSS OF EAR(S)^AURICLE, LOSS OF
+4 ;;6305^FILARIASIS^LYMPHATIC FILARIASIS
+5 ;;6306^BARTONELLOSIS^OROYA FEVER (BARTONELLOSIS)
+6 ;;6310^TREPONEMAL INFECTIOUS CONDITION^SYPHILIS AND OTHER TREPONEMAL INFECTIONS
+7 ;;6316^UNDULANT FEVER (BRUCELLOSIS)^BRUCELLOSIS (MALTA OR UNDULANT FEVER)
+8 ;;6502^SEPTUM, NASAL, DEVIATION OF^SEPTUM, NASAL, DEVIATION OF - TRAUMATIC
+9 ;;6518^LARYNGECTOMY, TOTAL^LARYNGECTOMY, TOTAL
+10 ;;6520^LARYNX, STENOSIS OF^LARYNX, STENOSIS OF - INCL. RESIDUAL OF TRAUMA
+11 ;;7115^BUERGER'S DISEASE^THROMBOANGITIS OBLITERANS (BUERGER'S DISEASE)
+12 ;;7316^INFLAMMATION OF BILE DUCT^CHOLANGITIS, CHRONIC
+13 ;;7343^NEOPLASM, MALIGNANT, DIGESTIVE SYSTEM^NEW GROWTHS, MALIGNANT, EXCLUSIVE OF SKIN GROWTHS
+14 ;;7528^NEOPLASM, MALIGNANT, GENITOURINARY^MALIGNANT NEOPLASMS OF THE GENITOURINARY SYSTEM
+15 ;;7529^NEOPLASM, BENIGN, GENITOURINARY^BENIGN NEOPLASMS OF THE GENITOURINARY SYSTEM
+16 ;;7535^TOXIC NEPHROPATHY^TOXIC NEPHROPATHY
+17 ;;7540^DISSEMINATED INTRAVASCULAR COAGULATION^DISSEMINATED INTRAVASCULAR COAGULATION WITH RENAL CORTICAL NECROSIS
+18 ;;7610^VULVA, DISEASE OR INJURY OF^VULVA, DISEASE OR INJURY OF
+19 ;;7611^VAGINA, DISEASE OR INJURY OF^VAGINA, DISEASE OR INJURY OF
+20 ;;7612^CERVIX, DISEASE OR INJURY OF^CERVIX, DISEASE OR INJURY OF
+21 ;;7613^UTERUS, DISEASE, INJURY, OR ADHESIONS OF^UTERUS, DISEASE, INJURY, OR ADHESIONS OF
+22 ;;7614^FALLOPIAN TUBE,DISEASE,INJURY,OR ADHESIONS TO^FALLOPIAN TUBE,DISEASE,INJURY,OR ADHESIONS TO
+23 ;;7615^OVARY, DISEASE, INJURY, OR ADHESIONS OF^OVARY, DISEASE, INJURY, OR ADHESIONS OF
+24 ;;7624^RECTOVAGINAL FISTULA^FISTULA, RECTOVAGINAL
+25 ;;7625^URETHROVAGINAL FISTULA^FISTULA, URETHROVAGINAL
+26 ;;7626^BREAST, SURGERY OF^MAMMARY GLANDS, REMOVAL OR EXCISION OF
+27 ;;7627^NEOPLASM, MALIGNANT, GYNECOLOGICAL OR MAMMARY^NEW GROWTHS, MALIGNANT, GYNECOLOGICAL SYSTEM OR MAMMARY GLANDS
+28 ;;7628^NEOPLASM, BENIGN, GYNECOLOGICAL^
+29 ;;7700^ANEMIA^ANEMIA, HYPOCHROMIC-MICROCYTIC AND MEGALOBLASTIC
+30 ;;7704^POLYCYTHEMIA VERA^POLYCYTHEMIA, PRIMARY
+31 ;;7705^THROMBOCYTOPENIA^THROMBOCYTOPENIA,PRIMARY,IDEOPATHIC OR IMMUNE
+32 ;;7710^ADENITIS, TUBERCULOUS^ADENITIS, TUBERCULOUS, ACTIVE OR INACTIVE
+33 ;;7716^APLASTIC ANEMIA^APLASTIC ANEMIA
+34 ;;7818^NEOPLASM, MALIGNANT, SKIN^NEW GROWTHS, MALIGNANT, SKIN
+35 ;;7819^NEOPLASM, BENIGN, SKIN^NEW GROWTHS, BENIGN, SKIN
+36 ;;7908^ACROMEGALY^HYPERPITUITARISM (ACROMEGALY OR GIGANTISM)
+37 ;;7909^HYPOPITUITARISM (DIABETES INSIPIDUS)^HYPOPITUITARISM (DIABETES INSIPIDUS)
+38 ;;7911^ADDISON'S DISEASE, AN ADRENAL CONDITION^ADDISON'S DISEASE (ADRENAL CORTICAL HYPOFUNCTION)
+39 ;;7913^DIABETES MELLITUS^DIABETES MELLITUS
+40 ;;7914^NEOPLASM, MALIGNANT, ENDOCRINE^NEW GROWTHS, MALIGNANT, ANY SPECIFIED PART OF ENDOCRINE SYSTEM
+41 ;;7915^NEOPLASM, BENIGN, ENDOCRINE^NEW GROWTHS, BENIGN, ANY SPECIFIED PART OF ENDOCRINE SYSTEM
+42 ;;8105^SYDENHAM'S CHOREA^CHOREA, SYDENHAM'S
+43 ;;8106^HUNTINGTON'S CHOREA^CHOREA, HUNTINGTON'S
+44 ;;9201^PSYCHOSIS, DISORG SCHIZ^SCHIZOPHRENIA, DISORGANIZED TYPE
+45 ;;9202^PSYCHOSIS,CATATONIC SCHIZ^SCHIZOPHRENIA, CATATONIC TYPE
+46 ;;9203^PSYCHOSIS, SCHIZ PARA^SCHIZOPHRENIA, PARANOID TYPE
+47 ;;9204^PSYCHOSIS, SCHIZ UNDIFF^SCHIZOPHRENIA, UNDIFFERENTIATED TYPE
+48 ;;9205^PSYCHOSIS, SCHIZ RESIDUAL AND OTHER^SCHIZOPHRENIA, RESIDUAL TYPE/ OTHER AND UNSPEC. TYPES
+49 ;;9206^BIPOLAR PSYCHOSIS^BIPOLAR DISORDER, MANIC, DEPRESSED, OR MIXED
+50 ;;9207^MAJ DEP W/PSYCHOTIC FEAT.^MAJOR DEPRESSION WITH PSYCHOTIC FEATURES
+51 ;;9208^DELUS. DISORDERS^DELUSIONAL DISORDERS
+52 ;;9209^MAJ DEP W/MELANCHOLIA^MAJOR DEPRESSION WITH MELANCHOLIA
+53 ;;9210^ATYPICAL PSYCHOSIS^PSYCHOTIC DISORDER, NOS
+54 ;;9211^SCHIZOAFFECTIVE DISORDER^SCHIZOAFFECTIVE DISORDER
+55 ;;9300^BRAIN SYNDROME^DELIRIUM
+56 ;;9301^BRAIN SYNDROME^DEMENTIA DUE TO INFECTION (HIV,SYPHILIS,ETC.)
+57 ;;9304^BRAIN SYNDROME^DEMENTIA DUE TO HEAD TRAUMA
+58 ;;9305^BRAIN SYNDROME^VASCULAR DEMENTIA
+59 ;;9310^BRAIN SYNDROME^DEMENTIA OF UNKNOWN ETIOLOGY
+60 ;;9312^BRAIN SYNDROME^DEMENTIA OF ALZHEIMER'S TYPE
+61 ;;9326^BRAIN SYNDROME^DEMENTIA DUE TO OTHER NEURO OR GEN. MED. CONDITIONS
+62 ;;9327^BRAIN SYNDROME^ORGANIC MENTAL DISORDER, OTHER
+63 ;;9400^NEUROSIS, GEN ANX DIS^GENERALIZED ANXIETY DISORDER
+64 ;;9401^NEUROSIS, PSYCHOGENIC AMNESIA^PSYCHOGENIC AMNESIA
+65 ;;9402^NEUROSIS, CONV DISORDER^CONVERSION DISORDER
+66 ;;9403^NEUROSIS, PHOBIA^SPECIFIC (SIMPLE) PHOBIA
+67 ;;9404^NEUROSIS, OBS COMP DISORD^OBSESSIVE COMPULSIVE DISORDER
+68 ;;9405^NEUROSIS, DYSTHYMIC DISORD^DYSTHYMIC DISORDER
+69 ;;9408^NEUROSIS, DEPERS DISORD^DEPERSONALIZATION DISORDER
+70 ;;9409^NEUROSIS, HYPOCHONDRIASIS^HYPOCHONDRIASIS
+71 ;;9412^PANIC DISORDER^PANIC DISORDER AND/OR AGORAPHOBIA
+72 ;;9413^ANXIETY DISORDER^ANXIETY DISORDER, NOS
+73 ;;9416^DISSOCIATIVE AMNESIA^DISSOCIATIVE AMNESIA, FUGUE OR IDENTITY DISORDER
+74 ;;9417^DEPERSONALIZATION DISORDER^DEPERSONALIZATION DISORDER
+75 ;;9421^SOMATIZATION DISORDER^SOMATIZATION DISORDER
+76 ;;9422^PAIN DISORDER^PAIN DISORDER
+77 ;;9423^UNDIFFERENTIATED SOMATOFORM DISORDER^UNDIFFERENTIATED SOMATOFORM DISORDER
+78 ;;9424^CONVERSION DISORDER^CONVERSION DISORDER
+79 ;;9425^HYPOCHONDRIASIS^HYPOCHONDRIASIS
+80 ;;9431^CYCLOTHYMIC DISORDER^CYCLOTHYMIC DISORDER
+81 ;;9432^BIPOLAR DISORDER^BIPOLAR DISORDER
+82 ;;9433^DYSTHYMIC DISORDER^DYSTHYMIC DISORDER
+83 ;;9434^MAJOR DEPRESSIVE DISORDER^MAJOR DEPRESSIVE DISORDER
+84 ;;9435^MOOD DISORDER, NOT OTHERWISE SPECIFIED^MOOD DISORDER, NOT OTHERWISE SPECIFIED
+85 ;;9440^CHRONIC ADJUSTMENT DISORDER^CHRONIC ADJUSTMENT DISORDER
+86 ;;9520^ANOREXIA NERVOSA^ANOREXIA NERVOSA (EATING DISORDER)
+87 ;;9521^BULIMIA NERVOSA^BULIMIA NERVOSA (EATING DISORDER)
+88 ;;$EXIT
+89 QUIT
