DVB429PT.m

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 ---DVB429PT   7684     printed  Apr 23, 2025@18:11:59                                                                                                                                                                                                    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