KIDS Distribution saved on Jun 28, 2002@17:54:41
AUM2.1 Patch8 Build1 cmbsyb:PRD,DSD 2002June28 4:58PM Tucson time.
**KIDS**:AUM*2.1*8^

**INSTALL NAME**
AUM*2.1*8
"BLD",223,0)
AUM*2.1*8^ICD UPDATE^0^3020628^n
"BLD",223,1,0)
^^315^315^3020628^
"BLD",223,1,1,0)
 INSTALLATION NOTES FOR AUM v 2.1 patch 8.
"BLD",223,1,2,0)
 ========================================================================
"BLD",223,1,3,0)
          PREFIX:  AUM
"BLD",223,1,4,0)
 CURRENT VERSION:  2.1
"BLD",223,1,5,0)
         PATCH #:  8
"BLD",223,1,6,0)
 ========================================================================
"BLD",223,1,7,0)
 
"BLD",223,1,8,0)
 **** NOTE ***** NOTE **** NOTE **** NOTE **** NOTE **** NOTE **** NOTE *
"BLD",223,1,9,0)
 ************************************************************************
"BLD",223,1,10,0)
 * READ THE ENTIRE NOTES FILE PRIOR TO ATTEMPTING ANY INSTALLATION!!!  *
"BLD",223,1,11,0)
 ************************************************************************
"BLD",223,1,12,0)
 **** NOTE ***** NOTE **** NOTE **** NOTE **** NOTE **** NOTE **** NOTE *
"BLD",223,1,13,0)
 
"BLD",223,1,14,0)
 1.  GENERAL INFORMATION
"BLD",223,1,15,0)
 
"BLD",223,1,16,0)
     a)  ICD DIAGNOSIS Code 305.1 has been found to incorrectly have an
"BLD",223,1,17,0)
         INACTIVE DATE.  The INACTIVE DATE, if it exists on the local RPMS
"BLD",223,1,18,0)
         system.
"BLD",223,1,19,0)
 
"BLD",223,1,20,0)
     b)  Approximately 200 ICD DIAGNOSIS Codes are inactive, have an
"BLD",223,1,21,0)
         INACTIVE FLAG, but no INACTIVE DATE.  The INACTIVE DATE is added.
"BLD",223,1,22,0)
 
"BLD",223,1,23,0)
     c)  Two entries are added to the MEASUREMENT TYPE file in response to
"BLD",223,1,24,0)
         a field request.
"BLD",223,1,25,0)
 
"BLD",223,1,26,0)
     d)  A mailman message containing the results of the attempted update
"BLD",223,1,27,0)
         for each change is generated and delivered to the user performing
"BLD",223,1,28,0)
         the update, and to all users holding the following security keys:
"BLD",223,1,29,0)
 
"BLD",223,1,30,0)
                  XUPROGMODE
"BLD",223,1,31,0)
                  AG TM MENU
"BLD",223,1,32,0)
                  ABMDZ TABLE MAINTENANCE
"BLD",223,1,33,0)
                  APCCZMGR
"BLD",223,1,34,0)
 
"BLD",223,1,35,0)
     e)  The KIDS install is Q'able to TaskMan.  Remember not to Q the
"BLD",223,1,36,0)
         install to the HOME device, and I suggest selecting the "NULL"
"BLD",223,1,37,0)
         device. There is no output other than the mail message and to the
"BLD",223,1,38,0)
         INSTALL file.
"BLD",223,1,39,0)
 
"BLD",223,1,40,0)
 2.  CONTENTS OF DISTRIBUTION
"BLD",223,1,41,0)
 
"BLD",223,1,42,0)
      aum_0210.08k   KIDS file
"BLD",223,1,43,0)
      aum_0210.08n   Notes file
"BLD",223,1,44,0)
 
"BLD",223,1,45,0)
 3.  REQUIREMENTS
"BLD",223,1,46,0)
 
"BLD",223,1,47,0)
         a)  Kernel v 8.0 or later
"BLD",223,1,48,0)
         b)  FileMan v 21.0 or later
"BLD",223,1,49,0)
         c)  AUM v 2.1
"BLD",223,1,50,0)
         d)  AUT 98.1 or later
"BLD",223,1,51,0)
         e)  Patch AVA*98.2*12
"BLD",223,1,52,0)
 
"BLD",223,1,53,0)
 4.  INSTALLATION INSTRUCTIONS
"BLD",223,1,54,0)
 
"BLD",223,1,55,0)
     Note that if translation of AUT* is on, it will do no harm to install
"BLD",223,1,56,0)
     this distribution in all UCIs.
"BLD",223,1,57,0)
 
"BLD",223,1,58,0)
     In all UCI's running AUM v 2.1 :
"BLD",223,1,59,0)
 
"BLD",223,1,60,0)
     a)  Load the Distribution into KIDS using option 1 on the
"BLD",223,1,61,0)
         Installation menu.  The distribution was released in a file named
"BLD",223,1,62,0)
         aum_0210.08k.
"BLD",223,1,63,0)
 
"BLD",223,1,64,0)
     b)  Verify the load using option 2 on the Installation menu.
"BLD",223,1,65,0)
 
"BLD",223,1,66,0)
     c)  Consider using options 3 and 4 to print and compare the
"BLD",223,1,67,0)
         Transport.
"BLD",223,1,68,0)
 
"BLD",223,1,69,0)
     d)  Install the distribution using option 6 on the Installation menu.
"BLD",223,1,70,0)
 
"BLD",223,1,71,0)
     e)  For results, read the generated MailMan message, or use the KIDS
"BLD",223,1,72,0)
         "Install File Print" option to view/print the "AUM*2.1*8" entry.
"BLD",223,1,73,0)
 
"BLD",223,1,74,0)
 5.  POINT OF CONTACT
"BLD",223,1,75,0)
 
"BLD",223,1,76,0)
     Programmer:  George T. Huggins, RPMS DBA, 520-670-4871
"BLD",223,1,77,0)
     or
"BLD",223,1,78,0)
     Division of Information Resources Software Support Desk
"BLD",223,1,79,0)
     Phone:  (505) 248-4371
"BLD",223,1,80,0)
     Fax:    (505) 248-4199
"BLD",223,1,81,0)
 
"BLD",223,1,82,0)
 ===============================================================
"BLD",223,1,83,0)
 
"BLD",223,1,84,0)
  -- ICD DIAGNOSIS CODES INACTIVATE
"BLD",223,1,85,0)
 
"BLD",223,1,86,0)
        CODE    DIAGNOSIS                       INACTIVE DATE
"BLD",223,1,87,0)
        ----    ---------                       -------------
"BLD",223,1,88,0)
        031.00  INFECTION LUNG M. BOVIS         OCTOBER 1 1998
"BLD",223,1,89,0)
        031.01  INF LUNG RUNYON GRP I           OCTOBER 1 1998
"BLD",223,1,90,0)
        031.02  INF LUNG MYCOBACTER EXCL TUBER  OCTOBER 1 1998
"BLD",223,1,91,0)
        031.03  INF LUNG RUNYON GRP II SCOTO    OCTOBER 1 1998
"BLD",223,1,92,0)
        031.04  INF LUNG RUNYON GRP III NONCHR  OCTOBER 1 1998
"BLD",223,1,93,0)
        031.05  INF LUNG M. AVIUM               OCTOBER 1 1998
"BLD",223,1,94,0)
        031.06  INF LUNG RUNYON GRP IV RAPID    OCTOBER 1 1998
"BLD",223,1,95,0)
        031.07  INF LUNG M. FORTUITUM           OCTOBER 1 1998
"BLD",223,1,96,0)
        031.08  INF LUNG S/P MYCOBACTERIAL      OCTOBER 1 1998
"BLD",223,1,97,0)
        031.09  INF LUNG SUSPECT MYCOBACTERIAL  OCTOBER 1 1998
"BLD",223,1,98,0)
        281.00  ADDISON'S (PERNICIOUS) ANEMIA   OCTOBER 1 1996
"BLD",223,1,99,0)
        281.01  CONGENITAL PERNICIOUS ANEMIA    OCTOBER 1 1996
"BLD",223,1,100,0)
        281.02  CONGENITAL INTRINSIC ANEMIA     OCTOBER 1 1996
"BLD",223,1,101,0)
        281.03  PERN ANEMIA W/DEGEN CORD        OCTOBER 1 1996
"BLD",223,1,102,0)
        281.09  PERNICIOUS ANEMIA, OTHER        OCTOBER 1 1996
"BLD",223,1,103,0)
        281.10  VEGAN'S ANEMIA                  OCTOBER 1 1996
"BLD",223,1,104,0)
        281.11  VIT B12 DEFICIENCY ANEMIA       OCTOBER 1 1996
"BLD",223,1,105,0)
        281.12  ANEMIA-VIT B MALABSORP          OCTOBER 1 1996
"BLD",223,1,106,0)
        281.13  IMERSLUND'S SYNDROME            OCTOBER 1 1996
"BLD",223,1,107,0)
        281.19  VIT B12 ANEMIA OTHER            OCTOBER 1 1996
"BLD",223,1,108,0)
        281.20  CONGENITAL FOLATE MALABSORP     OCTOBER 1 1991
"BLD",223,1,109,0)
        281.21  FOLATE OR FOLIC ACID ANEMIA     OCTOBER 1 1991
"BLD",223,1,110,0)
        281.22  GOAT'S MILK ANEMIA              OCTOBER 1 1991
"BLD",223,1,111,0)
        281.23  NUTRITIONAL MEGALOBLAST ANEMIA  OCTOBER 1 1991
"BLD",223,1,112,0)
        281.29  FOLATE ANEMIA, OTHER            OCTOBER 1 1991
"BLD",223,1,113,0)
        281.30  COMBINED B12 & FOLATE ANEMIA    OCTOBER 1 1991
"BLD",223,1,114,0)
        281.31  REFRACTORY MEGALOBLAST ANEMIA   OCTOBER 1 1991
"BLD",223,1,115,0)
        281.39  MEGALOBLASTIC ANEMIA, NEC       OCTOBER 1 1991
"BLD",223,1,116,0)
        281.90  DIMORPHIC ANEMIA                OCTOBER 1 1991
"BLD",223,1,117,0)
        281.91  MACROCYTIC ANEMIA               OCTOBER 1 1991
"BLD",223,1,118,0)
        281.92  MEGALOBLASTIC ANEMIA, NOS       OCTOBER 1 1991
"BLD",223,1,119,0)
        281.93  NUTRITIONAL ANEMIA, NOS         OCTOBER 1 1991
"BLD",223,1,120,0)
        281.94  SIMPLE CHRONIC ANEMIA           OCTOBER 1 1991
"BLD",223,1,121,0)
        281.99  DEFICIENCY ANEMIA, OTHER        OCTOBER 1 1991
"BLD",223,1,122,0)
        282.00  ACHOLURIC JAUNDICE              OCTOBER 1 1991
"BLD",223,1,123,0)
        282.01  CONGENITAL HEMOLYTIC ANEMIA     OCTOBER 1 1991
"BLD",223,1,124,0)
        282.02  CONGENITAL SPHEROCYTOSIS        OCTOBER 1 1991
"BLD",223,1,125,0)
        282.03  MINKOWSKI-CHAUFFARD SYNDROME    OCTOBER 1 1991
"BLD",223,1,126,0)
        282.04  SPHEROCYTOSIS (FAMILIAL)        OCTOBER 1 1991
"BLD",223,1,127,0)
        282.09  HEREDITARY SPHEROCYTOSIS OTHER  OCTOBER 1 1991
"BLD",223,1,128,0)
        282.10  ELLIPTOCYTOSIS(CONGENITAL)      OCTOBER 1 1991
"BLD",223,1,129,0)
        282.11  OVALOCYTOSIS                    OCTOBER 1 1991
"BLD",223,1,130,0)
        282.19  HEREDIT ELLIPTOCYTOSIS, OTHER   OCTOBER 1 1991
"BLD",223,1,131,0)
        282.30  HEMOLYTIC NONSPHEROCYTIC, II    OCTOBER 1 1991
"BLD",223,1,132,0)
        282.31  HEXOKINASE DEFICIENCY ANEMIA    OCTOBER 1 1991
"BLD",223,1,133,0)
        282.32  PK DEFICIENCY ANEMIA            OCTOBER 1 1991
"BLD",223,1,134,0)
        282.33  TRIOSEPHOSPHATE ISOMERASE       OCTOBER 1 1991
"BLD",223,1,135,0)
        282.40  COOLEY'S ANEMIA                 OCTOBER 1 1991
"BLD",223,1,136,0)
        282.41  HEREDITARY LEPTOCYTOSIS         OCTOBER 1 1991
"BLD",223,1,137,0)
        282.42  MEDITERRANEAN ANEMIA            OCTOBER 1 1991
"BLD",223,1,138,0)
        282.43  MICRODREPANOCYTOSIS             OCTOBER 1 1991
"BLD",223,1,139,0)
        282.44  SICKLE-CELL THALASSEMIA         OCTOBER 1 1991
"BLD",223,1,140,0)
        282.45  THALASSEMIA (ALPHA)             OCTOBER 1 1991
"BLD",223,1,141,0)
        282.46  THALASSEMIA (BETA)              OCTOBER 1 1991
"BLD",223,1,142,0)
        282.47  THALASSEMIA TRAIT               OCTOBER 1 1991
"BLD",223,1,143,0)
        282.48  THALASSEMIA W/OTHER HEMOGLOB    OCTOBER 1 1991
"BLD",223,1,144,0)
        282.49  THALASSEMIA, OTHER              OCTOBER 1 1991
"BLD",223,1,145,0)
        282.50  SICKLE-CELL TRAIT Hb-AS GENO    OCTOBER 1 1991
"BLD",223,1,146,0)
        282.59  SICKLE-CELL TRAIT, OTHER        OCTOBER 1 1991
"BLD",223,1,147,0)
        282.64  SICKLE-CELL DISEASE/Hb-D        OCTOBER 1 1998
"BLD",223,1,148,0)
        282.65  SICKLE-CELL DISEASE/Hb-E        OCTOBER 1 1998
"BLD",223,1,149,0)
        282.70  ABNORMAL HEMOGLOBIN, NOS        OCTOBER 1 1998
"BLD",223,1,150,0)
        282.71  CONGENITAL HEINZ-BODY           OCTOBER 1 1998
"BLD",223,1,151,0)
        282.72  HB-BART'S DISEASE/TRAIT         OCTOBER 1 1998
"BLD",223,1,152,0)
        282.73  HEMOGLOBIN C DISEASE/TRAIT      OCTOBER 1 1998
"BLD",223,1,153,0)
        282.74  HEMOGLOBIN D DISEASE/TRAIT      OCTOBER 1 1998
"BLD",223,1,154,0)
        282.75  HEMOGLOBIN E DISEASE/TRAIT      OCTOBER 1 1998
"BLD",223,1,155,0)
        282.76  HEMOGLOBIN ZURICH DIS/TRAIT     OCTOBER 1 1998
"BLD",223,1,156,0)
        282.77  HERED PERSISTENCE OF FETAL Hb   OCTOBER 1 1998
"BLD",223,1,157,0)
        282.78  UNSTABLE Hb/HEMOLYTIC DISEASE   OCTOBER 1 1998
"BLD",223,1,158,0)
        282.79  HEMOGLOBINOPATHIES, OTHER       OCTOBER 1 1998
"BLD",223,1,159,0)
        283.00  AUTOIMMUNE HEMOLYTIC DISEASE    OCTOBER 1 1998
"BLD",223,1,160,0)
        283.01  CHR COLD HEMAGGLUTININ DISEASE  OCTOBER 1 1998
"BLD",223,1,161,0)
        283.02  COLD AGGLUTININ DIS/HEMOGLOBIN  OCTOBER 1 1998
"BLD",223,1,162,0)
        283.03  HEMOLYTIC ANEMIA, COLD TYPE     OCTOBER 1 1998
"BLD",223,1,163,0)
        283.04  HEMOLYTIC ANEMIA,DRUG INDUCED   OCTOBER 1 1998
"BLD",223,1,164,0)
        283.05  HEMOLYTIC ANEMIA, WARM TYPE     OCTOBER 1 1998
"BLD",223,1,165,0)
        283.09  AUTOIMMUNE HEMOLYT, OTHER       OCTOBER 1 1998
"BLD",223,1,166,0)
        283.12  HEMOLYTIC ANEMIA, TOXIC         OCTOBER 1 1998
"BLD",223,1,167,0)
        283.13  HEMOLYTIC-UREMIC SYNDROME       OCTOBER 1 1998
"BLD",223,1,168,0)
        283.20  ACUTE INTRAVASCULAR HEMOLYSIS   OCTOBER 1 1998
"BLD",223,1,169,0)
        283.21  HEMOGLOBINURIA FROM EXERTION    OCTOBER 1 1998
"BLD",223,1,170,0)
        283.22  HEMOGLOBINLURIA, MARCH          OCTOBER 1 1998
"BLD",223,1,171,0)
        283.23  HEMOGLOBINURIA, PAROXYSMAL      OCTOBER 1 1998
"BLD",223,1,172,0)
        283.24  HEMOGLOBINURIA, DUE HEMOLYSIS   OCTOBER 1 1998
"BLD",223,1,173,0)
        283.25  MARCHIAFAVA-MICHELI             OCTOBER 1 1998
"BLD",223,1,174,0)
        283.29  HEMOGLOBINURIA-EXT CAUSE        OCTOBER 1 1998
"BLD",223,1,175,0)
        283.90  CHR IDIOPATHIC HEMOLYTIC        OCTOBER 1 1998
"BLD",223,1,176,0)
        283.99  ACQUIRED HEMOLYTIC, NOS         OCTOBER 1 1998
"BLD",223,1,177,0)
        284.00  APLASIA, RED CELL, CONGENITAL   OCTOBER 1 2001
"BLD",223,1,178,0)
        284.01  APLASIA, RED CELL, OF INFANTS   OCTOBER 1 2001
"BLD",223,1,179,0)
        284.02  APLASIA, RED CELL, PRIMARY      OCTOBER 1 2001
"BLD",223,1,180,0)
        284.03  BLACKFAN-DIAMOND SYNDROME       OCTOBER 1 2001
"BLD",223,1,181,0)
        284.04  FAMILIAL HYPOPLASTIC ANEMIA     OCTOBER 1 2001
"BLD",223,1,182,0)
        284.05  FANCONI'S ANEMIA                OCTOBER 1 2001
"BLD",223,1,183,0)
        284.06  PANCYTOPENIA W/MALFORMATIONS    OCTOBER 1 2001
"BLD",223,1,184,0)
        284.09  CONSTITUTIONAL APLASTIC ANEMIA  OCTOBER 1 2001
"BLD",223,1,185,0)
        284.80  APLASTIC-DUE TO SYSTEMIC DIS    OCTOBER 1 2001
"BLD",223,1,186,0)
        284.81  APLASTIC DUE TO DRUGS           OCTOBER 1 2001
"BLD",223,1,187,0)
        284.82  APLASTIC DUE TO INFECTION       OCTOBER 1 2001
"BLD",223,1,188,0)
        284.83  APLASTIC DUE TO RADIATION       OCTOBER 1 2001
"BLD",223,1,189,0)
        284.84  APLASTIC, TOXIC (PARALYTIC)     OCTOBER 1 2001
"BLD",223,1,190,0)
        284.85  PANCYTOPENIA (ACQUIRED)         OCTOBER 1 2001
"BLD",223,1,191,0)
        284.86  RED CELL APLASIA (PURE)         OCTOBER 1 2001
"BLD",223,1,192,0)
        284.87  RED CELL APLASIA (W/THYMOMA)    OCTOBER 1 2001
"BLD",223,1,193,0)
        284.89  OTHER SPECIFY APLASTIC, NEC     OCTOBER 1 2001
"BLD",223,1,194,0)
        284.90  APLASTIC (IDIOPATHIC), NOS      OCTOBER 1 2001
"BLD",223,1,195,0)
        284.91  ANEMIA, AREGENERATIVE           OCTOBER 1 2001
"BLD",223,1,196,0)
        284.92  ANEMIA, HYPOPLASTIC, NOS        OCTOBER 1 2001
"BLD",223,1,197,0)
        284.93  ANEMIA, NONREGENERATIVE         OCTOBER 1 2001
"BLD",223,1,198,0)
        284.94  ANEMIA, REFRACTORY              OCTOBER 1 2001
"BLD",223,1,199,0)
        284.95  MEDULLARY HYLPOPLASIA           OCTOBER 1 2001
"BLD",223,1,200,0)
        284.99  APLASTIC ANEMIA, OTHER          OCTOBER 1 2001
"BLD",223,1,201,0)
        285.00  HYPOCHROMIC W/IRON LOADING      OCTOBER 1 1991
"BLD",223,1,202,0)
        285.01  SIDEROACHRESTIC ANEMIA          OCTOBER 1 1991
"BLD",223,1,203,0)
        285.02  SIDEROBLASTIC ANEMIA, ACQUIRED  OCTOBER 1 1991
"BLD",223,1,204,0)
        285.03  SIDEROBLAST, CONGEN OR HERED    OCTOBER 1 1991
"BLD",223,1,205,0)
        285.04  SIDEROBLASTIC, PRIMARY          OCTOBER 1 1991
"BLD",223,1,206,0)
        285.05  SIDEROBLASTIC, REFRACTORY       OCTOBER 1 1991
"BLD",223,1,207,0)
        285.06  SIDEROBLASTIC, SECONDARY        OCTOBER 1 1991
"BLD",223,1,208,0)
        285.07  SIDEROBLASTIC, SEX-LINKED       OCTOBER 1 1991
"BLD",223,1,209,0)
        285.08  SIDEROBLASTIC, VIT B6           OCTOBER 1 1991
"BLD",223,1,210,0)
        285.09  SIDEROBLASTIC, OTHER            OCTOBER 1 1991
"BLD",223,1,211,0)
        285.80  DYSERYTHROPOIETIC ANEMIA        OCTOBER 1 1991
"BLD",223,1,212,0)
        285.81  DYSHEMATOPOIETIC ANEMIA         OCTOBER 1 1991
"BLD",223,1,213,0)
        285.82  LEUKOERYTHROBLASTIC ANEMIA      OCTOBER 1 1991
"BLD",223,1,214,0)
        285.83  VON JAKSCH'S ANEMIA             OCTOBER 1 1991
"BLD",223,1,215,0)
        285.84  INFANTILE PSEUDOLEUKEMIA        OCTOBER 1 1991
"BLD",223,1,216,0)
        285.89  OTHER SPEC ANEMIA, NEC          OCTOBER 1 1991
"BLD",223,1,217,0)
        285.90  ESSENTIAL ANEMIA                OCTOBER 1 1991
"BLD",223,1,218,0)
        285.91  NORMOCHROM NOT DU 2 BLOOD LOSS  OCTOBER 1 1991
"BLD",223,1,219,0)
        285.92  PROFOUND ANEMIA                 OCTOBER 1 1991
"BLD",223,1,220,0)
        285.93  PROGRESSIVE ANEMIA              OCTOBER 1 1991
"BLD",223,1,221,0)
        285.94  SECONDARY ANEMIA                OCTOBER 1 1991
"BLD",223,1,222,0)
        285.99  ANEMIA, NOS                     OCTOBER 1 1991
"BLD",223,1,223,0)
        291.20  DEMENTIA ASSOC W/ETOH, UNSPEC   OCTOBER 1 1998
"BLD",223,1,224,0)
        292.21  DEMENTIA ASSOC W/ETOH, MILD     OCTOBER 1 1998
"BLD",223,1,225,0)
        291.22  DEMENTIA ASSOC W/ETOH, MOD      OCTOBER 1 1998
"BLD",223,1,226,0)
        291.23  DEMENTIA ASSOC W/ETOH SEVERE    OCTOBER 1 1998
"BLD",223,1,227,0)
        304.14  PARALDEHYDE DEPENDENCE          OCTOBER 1 1998
"BLD",223,1,228,0)
        304.15  PLACIDYL, ETHCHLORUYNOL DEPEND  OCTOBER 1 1998
"BLD",223,1,229,0)
        304.16  VALIUM, DIAZEPAM DEPEND         OCTOBER 1 1998
"BLD",223,1,230,0)
        304.17  DORIDEN, GLUTETHIMIDE DEPEND    OCTOBER 1 1998
"BLD",223,1,231,0)
        304.18  BARBITURATE DEPENDENCE          OCTOBER 1 1998
"BLD",223,1,232,0)
        304.19  OTHER SEDATIVE OR HYPNOTIC      OCTOBER 1 1998
"BLD",223,1,233,0)
        304.39  OTHER CANNABIS DEPEND, NEC      OCTOBER 1 1998
"BLD",223,1,234,0)
        304.49  OTHER PSYCHOSTIM DEPEND         OCTOBER 1 1998
"BLD",223,1,235,0)
        304.59  OTHER HALLUCINOGEN DEPEND       OCTOBER 1 1998
"BLD",223,1,236,0)
        304.99  UNSPEC DRUG DEPEND, NEC         OCTOBER 1 1998
"BLD",223,1,237,0)
        304.600 PCP DEPENDENCE, UNSPECIFIED     OCTOBER 1 1987
"BLD",223,1,238,0)
        304.610 PCP DEPENDENCE, CONTINUOUS      OCTOBER 1 1987
"BLD",223,1,239,0)
        304.619 OTHER SPEC DRUG DEPEND, CONT    OCTOBER 1 1987
"BLD",223,1,240,0)
        304.620 PCP DEPENDENCE, EPISODIC        OCTOBER 1 1987
"BLD",223,1,241,0)
        304.629 OTHER SPEC DRUG DEPEND          OCTOBER 1 1987
"BLD",223,1,242,0)
        304.630 PCP DEPEND IN REMISSION         OCTOBER 1 1987
"BLD",223,1,243,0)
        304.639 OTHER SPEC DRUG DEPEND, REMISS  OCTOBER 1 1987
"BLD",223,1,244,0)
        304.609 OTHER SPEC DRUG DEPEND, UNSPEC  OCTOBER 1 1987
"BLD",223,1,245,0)
        305.29  OTHER CANNABIS USE, NEC         OCTOBER 1 1998
"BLD",223,1,246,0)
        305.39  OTHER HALLUCINOGEN ABUSE, NEC   OCTOBER 1 1998
"BLD",223,1,247,0)
        305.44  PARALDEHYDE ABUSE               OCTOBER 1 1998
"BLD",223,1,248,0)
        305.45  PLACIDYL, ETHCHLORUYNOL ABUSE   OCTOBER 1 1998
"BLD",223,1,249,0)
        305.46  VALIUM, DIAZEPAM ABUSE          OCTOBER 1 1998
"BLD",223,1,250,0)
        305.47  DORIDEN, GLUTETHIMIDE ABUSE     OCTOBER 1 1998
"BLD",223,1,251,0)
        305.48  BARBITURATES ABUSE              OCTOBER 1 1998
"BLD",223,1,252,0)
        305.49  OTHER SEDATIVE OR HYPNOT, NEC   OCTOBER 1 1998
"BLD",223,1,253,0)
        305.59  OTHER OPIOID ABUSE, NEC         OCTOBER 1 1998
"BLD",223,1,254,0)
        305.6   COCAINE ABUSE-UNSPEC            OCTOBER 1 2000
"BLD",223,1,255,0)
        305.79  OTHER SYMPATHOMIMETIC, NEC      OCTOBER 1 2000
"BLD",223,1,256,0)
        305.99  OTHER, MIXED, UNSPEC, NEC       OCTOBER 1 2000
"BLD",223,1,257,0)
        437.80  CEREBRAL/BRAIN QUADRIPLEGIA     OCTOBER 1 2000
"BLD",223,1,258,0)
        437.81  CEREBRAL/BRAIN PARAPLEGIA       OCTOBER 1 2000
"BLD",223,1,259,0)
        437.89  OTHER CEREBROVASCULAR DIS, NEC  OCTOBER 1 2000
"BLD",223,1,260,0)
        482.80  LEGIONNAIRE'S DISEASE           OCTOBER 1 2001
"BLD",223,1,261,0)
        518.8   LUNG DISEASE NEC                OCTOBER 1 2000
"BLD",223,1,262,0)
        662.32  DELAYED DELIV OF 2ND TWIN/TRIP  OCTOBER 1 2000
"BLD",223,1,263,0)
        669.31  ACUTE RENAL FAILURE W DELIVERY  OCTOBER 1 2001
"BLD",223,1,264,0)
        669.52  FORCEPS/VAC EXTRACTOR DELIVERY  OCTOBER 1 2001
"BLD",223,1,265,0)
        669.62  BREECH EXTRACTION, NOS, DELIVE  OCTOBER 1 2001
"BLD",223,1,266,0)
        669.72  CESAREAN DELIVERY, NOS, DELIVE  OCTOBER 1 2001
"BLD",223,1,267,0)
        706.10  CHLORACNE                       OCTOBER 1 2001
"BLD",223,1,268,0)
        706.19  OTHER ACNE, NEC                 OCTOBER 1 2001
"BLD",223,1,269,0)
        719.7   DIFFICULTY IN WALKING           OCTOBER 1 2001
"BLD",223,1,270,0)
        948.0   BODY SURFACE BURN < 10%         OCTOBER 1 2001
"BLD",223,1,271,0)
        948.1   10-19% BODY SURFACE BURN        OCTOBER 1 2001
"BLD",223,1,272,0)
        948.2   20-29% BODY SURFACE BURN        OCTOBER 1 2001
"BLD",223,1,273,0)
        948.3   30-39% BODY SURFACE BURN        OCTOBER 1 2001
"BLD",223,1,274,0)
        948.4   40-49% BODY SURFACE BURN        OCTOBER 1 2001
"BLD",223,1,275,0)
        948.5   50-59% BODY SURFACE BURN        OCTOBER 1 2001
"BLD",223,1,276,0)
        948.6   60-69% BODY SURFACE BURN        OCTOBER 1 2001
"BLD",223,1,277,0)
        948.7   70-79% BODY SURFACE BURN        OCTOBER 1 2001
"BLD",223,1,278,0)
        948.8   80-89% BODY SURFACE BURN        OCTOBER 1 2001
"BLD",223,1,279,0)
        948.9   *0% OR MORE BDY SURF BRN        OCTOBER 1 2001
"BLD",223,1,280,0)
        989.20  PHENOXY ACID HERBICIDES         OCTOBER 1 2001
"BLD",223,1,281,0)
        989.21  TCDD AND OTHER DIOXINS          OCTOBER 1 2001
"BLD",223,1,282,0)
        989.29  OTHER CHLORINATED HYDROCARBONS  OCTOBER 1 2001
"BLD",223,1,283,0)
        989.40  TOXIC EFFECT OF DIOXIN (AO)     OCTOBER 1 2001
"BLD",223,1,284,0)
        989.49  TOXIC EFFECT-OTHER PESTICIDES   OCTOBER 1 2001
"BLD",223,1,285,0)
        996.5   MALFUNC DEVICE/GRAFT NEC        OCTOBER 1 2000
"BLD",223,1,286,0)
        996.8   COMPL TRANSPLANTED ORGAN        OCTOBER 1 2001
"BLD",223,1,287,0)
        E956.1  SUICIDE ATTEMPTED BY CUTTING A  OCTOBER 1 2000
"BLD",223,1,288,0)
        E956.2  SUICIDE ACTUAL BY CUTTING AND   OCTOBER 1 2000
"BLD",223,1,289,0)
        V67.52  FOLLOW INACTIVE PULM TB         OCTOBER 1 2001
"BLD",223,1,290,0)
        V67.53  FOLLOW OTHER INACTIVE TB        OCTOBER 1 2001
"BLD",223,1,291,0)
        V67.54  FOLLOW INACTIVE INFECT LUNG     OCTOBER 1 2001
"BLD",223,1,292,0)
        V70.81  EXAM POTENTIAL ORGAN DONOR      OCTOBER 1 2001
"BLD",223,1,293,0)
        V70.82  EXAM OF FORMER POW              OCTOBER 1 2001
"BLD",223,1,294,0)
        V70.83  OTHER SPEC. GEN. MEDICAL EXAM   OCTOBER 1 2001
"BLD",223,1,295,0)
        V72.80  EXAM POSS EXPOSURE HERBICIDE    OCTOBER 1 2001
"BLD",223,1,296,0)
        V72.89  OTHER SPECIAL EXAMS             OCTOBER 1 2001
"BLD",223,1,297,0)
 
"BLD",223,1,298,0)
 ----------------------------------------------------------------
"BLD",223,1,299,0)
 
"BLD",223,1,300,0)
 -- ACTIVATE ICD DIAGNOSIS CODE 305.1
"BLD",223,1,301,0)
 
"BLD",223,1,302,0)
        CODE    DIAGNOSIS                       MAJOR DX CATERGORY
"BLD",223,1,303,0)
        ----    ---------                       ------------------
"BLD",223,1,304,0)
        305.1   TOBACCO USE DISORDER            HEALTH STATUS FACTORS
"BLD",223,1,305,0)
 
"BLD",223,1,306,0)
 -----------------------------------------------------------------
"BLD",223,1,307,0)
 
"BLD",223,1,308,0)
 -- NEW MEASUREMENT TYPE
"BLD",223,1,309,0)
 
"BLD",223,1,310,0)
             TYPE  DESCRIPTION                     CODE
"BLD",223,1,311,0)
             ----  -----------                     ----
"BLD",223,1,312,0)
     Added : O2    O2 SATURATION                   20
"BLD",223,1,313,0)
     Added : PF    PEAK FLOW                       21
"BLD",223,1,314,0)
 
"BLD",223,1,315,0)
 -----------------------------------------------------------------
"BLD",223,4,0)
^9.64PA^^0
"BLD",223,"INIT")
POST^AUM2108
"BLD",223,"KRN",0)
^9.67PA^19^18
"BLD",223,"KRN",.4,0)
.4
"BLD",223,"KRN",.4,"NM",0)
^9.68A^^
"BLD",223,"KRN",.401,0)
.401
"BLD",223,"KRN",.402,0)
.402
"BLD",223,"KRN",.403,0)
.403
"BLD",223,"KRN",.5,0)
.5
"BLD",223,"KRN",.84,0)
.84
"BLD",223,"KRN",3.6,0)
3.6
"BLD",223,"KRN",3.8,0)
3.8
"BLD",223,"KRN",9.2,0)
9.2
"BLD",223,"KRN",9.8,0)
9.8
"BLD",223,"KRN",9.8,"NM",0)
^9.68A^5^3
"BLD",223,"KRN",9.8,"NM",2,0)
AUM21081^^0^B26486983
"BLD",223,"KRN",9.8,"NM",4,0)
AUM2108A^^0^B96293845
"BLD",223,"KRN",9.8,"NM",5,0)
AUM2108M^^0^B787866
"BLD",223,"KRN",9.8,"NM","B","AUM21081",2)

"BLD",223,"KRN",9.8,"NM","B","AUM2108A",4)

"BLD",223,"KRN",9.8,"NM","B","AUM2108M",5)

"BLD",223,"KRN",19,0)
19
"BLD",223,"KRN",19.1,0)
19.1
"BLD",223,"KRN",101,0)
101
"BLD",223,"KRN",409.61,0)
409.61
"BLD",223,"KRN",771,0)
771
"BLD",223,"KRN",869.2,0)
869.2
"BLD",223,"KRN",870,0)
870
"BLD",223,"KRN",8994,0)
8994
"BLD",223,"KRN","B",.4,.4)

"BLD",223,"KRN","B",.401,.401)

"BLD",223,"KRN","B",.402,.402)

"BLD",223,"KRN","B",.403,.403)

"BLD",223,"KRN","B",.5,.5)

"BLD",223,"KRN","B",.84,.84)

"BLD",223,"KRN","B",3.6,3.6)

"BLD",223,"KRN","B",3.8,3.8)

"BLD",223,"KRN","B",9.2,9.2)

"BLD",223,"KRN","B",9.8,9.8)

"BLD",223,"KRN","B",19,19)

"BLD",223,"KRN","B",19.1,19.1)

"BLD",223,"KRN","B",101,101)

"BLD",223,"KRN","B",409.61,409.61)

"BLD",223,"KRN","B",771,771)

"BLD",223,"KRN","B",869.2,869.2)

"BLD",223,"KRN","B",870,870)

"BLD",223,"KRN","B",8994,8994)

"BLD",223,"PRE")
AUM2108
"BLD",223,"QUES",0)
^9.62^^
"INIT")
POST^AUM2108
"PKG",222,-1)
1^1
"PKG",222,0)
ICD UPDATE^AUM^AUMDO ICD Update Utility
"PKG",222,22,0)
^9.49I^1^1
"PKG",222,22,1,0)
2.1
"PKG",222,22,1,"PAH",1,0)
8^3020628
"PKG",222,22,1,"PAH",1,1,0)
^^315^315^3020628
"PKG",222,22,1,"PAH",1,1,1,0)
 INSTALLATION NOTES FOR AUM v 2.1 patch 8.
"PKG",222,22,1,"PAH",1,1,2,0)
 ========================================================================
"PKG",222,22,1,"PAH",1,1,3,0)
          PREFIX:  AUM
"PKG",222,22,1,"PAH",1,1,4,0)
 CURRENT VERSION:  2.1
"PKG",222,22,1,"PAH",1,1,5,0)
         PATCH #:  8
"PKG",222,22,1,"PAH",1,1,6,0)
 ========================================================================
"PKG",222,22,1,"PAH",1,1,7,0)
 
"PKG",222,22,1,"PAH",1,1,8,0)
 **** NOTE ***** NOTE **** NOTE **** NOTE **** NOTE **** NOTE **** NOTE *
"PKG",222,22,1,"PAH",1,1,9,0)
 ************************************************************************
"PKG",222,22,1,"PAH",1,1,10,0)
 * READ THE ENTIRE NOTES FILE PRIOR TO ATTEMPTING ANY INSTALLATION!!!  *
"PKG",222,22,1,"PAH",1,1,11,0)
 ************************************************************************
"PKG",222,22,1,"PAH",1,1,12,0)
 **** NOTE ***** NOTE **** NOTE **** NOTE **** NOTE **** NOTE **** NOTE *
"PKG",222,22,1,"PAH",1,1,13,0)
 
"PKG",222,22,1,"PAH",1,1,14,0)
 1.  GENERAL INFORMATION
"PKG",222,22,1,"PAH",1,1,15,0)
 
"PKG",222,22,1,"PAH",1,1,16,0)
     a)  ICD DIAGNOSIS Code 305.1 has been found to incorrectly have an
"PKG",222,22,1,"PAH",1,1,17,0)
         INACTIVE DATE.  The INACTIVE DATE, if it exists on the local RPMS
"PKG",222,22,1,"PAH",1,1,18,0)
         system.
"PKG",222,22,1,"PAH",1,1,19,0)
 
"PKG",222,22,1,"PAH",1,1,20,0)
     b)  Approximately 200 ICD DIAGNOSIS Codes are inactive, have an
"PKG",222,22,1,"PAH",1,1,21,0)
         INACTIVE FLAG, but no INACTIVE DATE.  The INACTIVE DATE is added.
"PKG",222,22,1,"PAH",1,1,22,0)
 
"PKG",222,22,1,"PAH",1,1,23,0)
     c)  Two entries are added to the MEASUREMENT TYPE file in response to
"PKG",222,22,1,"PAH",1,1,24,0)
         a field request.
"PKG",222,22,1,"PAH",1,1,25,0)
 
"PKG",222,22,1,"PAH",1,1,26,0)
     d)  A mailman message containing the results of the attempted update
"PKG",222,22,1,"PAH",1,1,27,0)
         for each change is generated and delivered to the user performing
"PKG",222,22,1,"PAH",1,1,28,0)
         the update, and to all users holding the following security keys:
"PKG",222,22,1,"PAH",1,1,29,0)
 
"PKG",222,22,1,"PAH",1,1,30,0)
                  XUPROGMODE
"PKG",222,22,1,"PAH",1,1,31,0)
                  AG TM MENU
"PKG",222,22,1,"PAH",1,1,32,0)
                  ABMDZ TABLE MAINTENANCE
"PKG",222,22,1,"PAH",1,1,33,0)
                  APCCZMGR
"PKG",222,22,1,"PAH",1,1,34,0)
 
"PKG",222,22,1,"PAH",1,1,35,0)
     e)  The KIDS install is Q'able to TaskMan.  Remember not to Q the
"PKG",222,22,1,"PAH",1,1,36,0)
         install to the HOME device, and I suggest selecting the "NULL"
"PKG",222,22,1,"PAH",1,1,37,0)
         device. There is no output other than the mail message and to the
"PKG",222,22,1,"PAH",1,1,38,0)
         INSTALL file.
"PKG",222,22,1,"PAH",1,1,39,0)
 
"PKG",222,22,1,"PAH",1,1,40,0)
 2.  CONTENTS OF DISTRIBUTION
"PKG",222,22,1,"PAH",1,1,41,0)
 
"PKG",222,22,1,"PAH",1,1,42,0)
      aum_0210.08k   KIDS file
"PKG",222,22,1,"PAH",1,1,43,0)
      aum_0210.08n   Notes file
"PKG",222,22,1,"PAH",1,1,44,0)
 
"PKG",222,22,1,"PAH",1,1,45,0)
 3.  REQUIREMENTS
"PKG",222,22,1,"PAH",1,1,46,0)
 
"PKG",222,22,1,"PAH",1,1,47,0)
         a)  Kernel v 8.0 or later
"PKG",222,22,1,"PAH",1,1,48,0)
         b)  FileMan v 21.0 or later
"PKG",222,22,1,"PAH",1,1,49,0)
         c)  AUM v 2.1
"PKG",222,22,1,"PAH",1,1,50,0)
         d)  AUT 98.1 or later
"PKG",222,22,1,"PAH",1,1,51,0)
         e)  Patch AVA*98.2*12
"PKG",222,22,1,"PAH",1,1,52,0)
 
"PKG",222,22,1,"PAH",1,1,53,0)
 4.  INSTALLATION INSTRUCTIONS
"PKG",222,22,1,"PAH",1,1,54,0)
 
"PKG",222,22,1,"PAH",1,1,55,0)
     Note that if translation of AUT* is on, it will do no harm to install
"PKG",222,22,1,"PAH",1,1,56,0)
     this distribution in all UCIs.
"PKG",222,22,1,"PAH",1,1,57,0)
 
"PKG",222,22,1,"PAH",1,1,58,0)
     In all UCI's running AUM v 2.1 :
"PKG",222,22,1,"PAH",1,1,59,0)
 
"PKG",222,22,1,"PAH",1,1,60,0)
     a)  Load the Distribution into KIDS using option 1 on the
"PKG",222,22,1,"PAH",1,1,61,0)
         Installation menu.  The distribution was released in a file named
"PKG",222,22,1,"PAH",1,1,62,0)
         aum_0210.08k.
"PKG",222,22,1,"PAH",1,1,63,0)
 
"PKG",222,22,1,"PAH",1,1,64,0)
     b)  Verify the load using option 2 on the Installation menu.
"PKG",222,22,1,"PAH",1,1,65,0)
 
"PKG",222,22,1,"PAH",1,1,66,0)
     c)  Consider using options 3 and 4 to print and compare the
"PKG",222,22,1,"PAH",1,1,67,0)
         Transport.
"PKG",222,22,1,"PAH",1,1,68,0)
 
"PKG",222,22,1,"PAH",1,1,69,0)
     d)  Install the distribution using option 6 on the Installation menu.
"PKG",222,22,1,"PAH",1,1,70,0)
 
"PKG",222,22,1,"PAH",1,1,71,0)
     e)  For results, read the generated MailMan message, or use the KIDS
"PKG",222,22,1,"PAH",1,1,72,0)
         "Install File Print" option to view/print the "AUM*2.1*8" entry.
"PKG",222,22,1,"PAH",1,1,73,0)
 
"PKG",222,22,1,"PAH",1,1,74,0)
 5.  POINT OF CONTACT
"PKG",222,22,1,"PAH",1,1,75,0)
 
"PKG",222,22,1,"PAH",1,1,76,0)
     Programmer:  George T. Huggins, RPMS DBA, 520-670-4871
"PKG",222,22,1,"PAH",1,1,77,0)
     or
"PKG",222,22,1,"PAH",1,1,78,0)
     Division of Information Resources Software Support Desk
"PKG",222,22,1,"PAH",1,1,79,0)
     Phone:  (505) 248-4371
"PKG",222,22,1,"PAH",1,1,80,0)
     Fax:    (505) 248-4199
"PKG",222,22,1,"PAH",1,1,81,0)
 
"PKG",222,22,1,"PAH",1,1,82,0)
 ===============================================================
"PKG",222,22,1,"PAH",1,1,83,0)
 
"PKG",222,22,1,"PAH",1,1,84,0)
  -- ICD DIAGNOSIS CODES INACTIVATE
"PKG",222,22,1,"PAH",1,1,85,0)
 
"PKG",222,22,1,"PAH",1,1,86,0)
        CODE    DIAGNOSIS                       INACTIVE DATE
"PKG",222,22,1,"PAH",1,1,87,0)
        ----    ---------                       -------------
"PKG",222,22,1,"PAH",1,1,88,0)
        031.00  INFECTION LUNG M. BOVIS         OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,89,0)
        031.01  INF LUNG RUNYON GRP I           OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,90,0)
        031.02  INF LUNG MYCOBACTER EXCL TUBER  OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,91,0)
        031.03  INF LUNG RUNYON GRP II SCOTO    OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,92,0)
        031.04  INF LUNG RUNYON GRP III NONCHR  OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,93,0)
        031.05  INF LUNG M. AVIUM               OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,94,0)
        031.06  INF LUNG RUNYON GRP IV RAPID    OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,95,0)
        031.07  INF LUNG M. FORTUITUM           OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,96,0)
        031.08  INF LUNG S/P MYCOBACTERIAL      OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,97,0)
        031.09  INF LUNG SUSPECT MYCOBACTERIAL  OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,98,0)
        281.00  ADDISON'S (PERNICIOUS) ANEMIA   OCTOBER 1 1996
"PKG",222,22,1,"PAH",1,1,99,0)
        281.01  CONGENITAL PERNICIOUS ANEMIA    OCTOBER 1 1996
"PKG",222,22,1,"PAH",1,1,100,0)
        281.02  CONGENITAL INTRINSIC ANEMIA     OCTOBER 1 1996
"PKG",222,22,1,"PAH",1,1,101,0)
        281.03  PERN ANEMIA W/DEGEN CORD        OCTOBER 1 1996
"PKG",222,22,1,"PAH",1,1,102,0)
        281.09  PERNICIOUS ANEMIA, OTHER        OCTOBER 1 1996
"PKG",222,22,1,"PAH",1,1,103,0)
        281.10  VEGAN'S ANEMIA                  OCTOBER 1 1996
"PKG",222,22,1,"PAH",1,1,104,0)
        281.11  VIT B12 DEFICIENCY ANEMIA       OCTOBER 1 1996
"PKG",222,22,1,"PAH",1,1,105,0)
        281.12  ANEMIA-VIT B MALABSORP          OCTOBER 1 1996
"PKG",222,22,1,"PAH",1,1,106,0)
        281.13  IMERSLUND'S SYNDROME            OCTOBER 1 1996
"PKG",222,22,1,"PAH",1,1,107,0)
        281.19  VIT B12 ANEMIA OTHER            OCTOBER 1 1996
"PKG",222,22,1,"PAH",1,1,108,0)
        281.20  CONGENITAL FOLATE MALABSORP     OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,109,0)
        281.21  FOLATE OR FOLIC ACID ANEMIA     OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,110,0)
        281.22  GOAT'S MILK ANEMIA              OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,111,0)
        281.23  NUTRITIONAL MEGALOBLAST ANEMIA  OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,112,0)
        281.29  FOLATE ANEMIA, OTHER            OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,113,0)
        281.30  COMBINED B12 & FOLATE ANEMIA    OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,114,0)
        281.31  REFRACTORY MEGALOBLAST ANEMIA   OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,115,0)
        281.39  MEGALOBLASTIC ANEMIA, NEC       OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,116,0)
        281.90  DIMORPHIC ANEMIA                OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,117,0)
        281.91  MACROCYTIC ANEMIA               OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,118,0)
        281.92  MEGALOBLASTIC ANEMIA, NOS       OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,119,0)
        281.93  NUTRITIONAL ANEMIA, NOS         OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,120,0)
        281.94  SIMPLE CHRONIC ANEMIA           OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,121,0)
        281.99  DEFICIENCY ANEMIA, OTHER        OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,122,0)
        282.00  ACHOLURIC JAUNDICE              OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,123,0)
        282.01  CONGENITAL HEMOLYTIC ANEMIA     OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,124,0)
        282.02  CONGENITAL SPHEROCYTOSIS        OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,125,0)
        282.03  MINKOWSKI-CHAUFFARD SYNDROME    OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,126,0)
        282.04  SPHEROCYTOSIS (FAMILIAL)        OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,127,0)
        282.09  HEREDITARY SPHEROCYTOSIS OTHER  OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,128,0)
        282.10  ELLIPTOCYTOSIS(CONGENITAL)      OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,129,0)
        282.11  OVALOCYTOSIS                    OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,130,0)
        282.19  HEREDIT ELLIPTOCYTOSIS, OTHER   OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,131,0)
        282.30  HEMOLYTIC NONSPHEROCYTIC, II    OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,132,0)
        282.31  HEXOKINASE DEFICIENCY ANEMIA    OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,133,0)
        282.32  PK DEFICIENCY ANEMIA            OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,134,0)
        282.33  TRIOSEPHOSPHATE ISOMERASE       OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,135,0)
        282.40  COOLEY'S ANEMIA                 OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,136,0)
        282.41  HEREDITARY LEPTOCYTOSIS         OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,137,0)
        282.42  MEDITERRANEAN ANEMIA            OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,138,0)
        282.43  MICRODREPANOCYTOSIS             OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,139,0)
        282.44  SICKLE-CELL THALASSEMIA         OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,140,0)
        282.45  THALASSEMIA (ALPHA)             OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,141,0)
        282.46  THALASSEMIA (BETA)              OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,142,0)
        282.47  THALASSEMIA TRAIT               OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,143,0)
        282.48  THALASSEMIA W/OTHER HEMOGLOB    OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,144,0)
        282.49  THALASSEMIA, OTHER              OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,145,0)
        282.50  SICKLE-CELL TRAIT Hb-AS GENO    OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,146,0)
        282.59  SICKLE-CELL TRAIT, OTHER        OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,147,0)
        282.64  SICKLE-CELL DISEASE/Hb-D        OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,148,0)
        282.65  SICKLE-CELL DISEASE/Hb-E        OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,149,0)
        282.70  ABNORMAL HEMOGLOBIN, NOS        OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,150,0)
        282.71  CONGENITAL HEINZ-BODY           OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,151,0)
        282.72  HB-BART'S DISEASE/TRAIT         OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,152,0)
        282.73  HEMOGLOBIN C DISEASE/TRAIT      OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,153,0)
        282.74  HEMOGLOBIN D DISEASE/TRAIT      OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,154,0)
        282.75  HEMOGLOBIN E DISEASE/TRAIT      OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,155,0)
        282.76  HEMOGLOBIN ZURICH DIS/TRAIT     OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,156,0)
        282.77  HERED PERSISTENCE OF FETAL Hb   OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,157,0)
        282.78  UNSTABLE Hb/HEMOLYTIC DISEASE   OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,158,0)
        282.79  HEMOGLOBINOPATHIES, OTHER       OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,159,0)
        283.00  AUTOIMMUNE HEMOLYTIC DISEASE    OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,160,0)
        283.01  CHR COLD HEMAGGLUTININ DISEASE  OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,161,0)
        283.02  COLD AGGLUTININ DIS/HEMOGLOBIN  OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,162,0)
        283.03  HEMOLYTIC ANEMIA, COLD TYPE     OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,163,0)
        283.04  HEMOLYTIC ANEMIA,DRUG INDUCED   OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,164,0)
        283.05  HEMOLYTIC ANEMIA, WARM TYPE     OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,165,0)
        283.09  AUTOIMMUNE HEMOLYT, OTHER       OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,166,0)
        283.12  HEMOLYTIC ANEMIA, TOXIC         OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,167,0)
        283.13  HEMOLYTIC-UREMIC SYNDROME       OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,168,0)
        283.20  ACUTE INTRAVASCULAR HEMOLYSIS   OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,169,0)
        283.21  HEMOGLOBINURIA FROM EXERTION    OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,170,0)
        283.22  HEMOGLOBINLURIA, MARCH          OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,171,0)
        283.23  HEMOGLOBINURIA, PAROXYSMAL      OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,172,0)
        283.24  HEMOGLOBINURIA, DUE HEMOLYSIS   OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,173,0)
        283.25  MARCHIAFAVA-MICHELI             OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,174,0)
        283.29  HEMOGLOBINURIA-EXT CAUSE        OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,175,0)
        283.90  CHR IDIOPATHIC HEMOLYTIC        OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,176,0)
        283.99  ACQUIRED HEMOLYTIC, NOS         OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,177,0)
        284.00  APLASIA, RED CELL, CONGENITAL   OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,178,0)
        284.01  APLASIA, RED CELL, OF INFANTS   OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,179,0)
        284.02  APLASIA, RED CELL, PRIMARY      OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,180,0)
        284.03  BLACKFAN-DIAMOND SYNDROME       OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,181,0)
        284.04  FAMILIAL HYPOPLASTIC ANEMIA     OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,182,0)
        284.05  FANCONI'S ANEMIA                OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,183,0)
        284.06  PANCYTOPENIA W/MALFORMATIONS    OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,184,0)
        284.09  CONSTITUTIONAL APLASTIC ANEMIA  OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,185,0)
        284.80  APLASTIC-DUE TO SYSTEMIC DIS    OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,186,0)
        284.81  APLASTIC DUE TO DRUGS           OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,187,0)
        284.82  APLASTIC DUE TO INFECTION       OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,188,0)
        284.83  APLASTIC DUE TO RADIATION       OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,189,0)
        284.84  APLASTIC, TOXIC (PARALYTIC)     OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,190,0)
        284.85  PANCYTOPENIA (ACQUIRED)         OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,191,0)
        284.86  RED CELL APLASIA (PURE)         OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,192,0)
        284.87  RED CELL APLASIA (W/THYMOMA)    OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,193,0)
        284.89  OTHER SPECIFY APLASTIC, NEC     OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,194,0)
        284.90  APLASTIC (IDIOPATHIC), NOS      OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,195,0)
        284.91  ANEMIA, AREGENERATIVE           OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,196,0)
        284.92  ANEMIA, HYPOPLASTIC, NOS        OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,197,0)
        284.93  ANEMIA, NONREGENERATIVE         OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,198,0)
        284.94  ANEMIA, REFRACTORY              OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,199,0)
        284.95  MEDULLARY HYLPOPLASIA           OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,200,0)
        284.99  APLASTIC ANEMIA, OTHER          OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,201,0)
        285.00  HYPOCHROMIC W/IRON LOADING      OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,202,0)
        285.01  SIDEROACHRESTIC ANEMIA          OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,203,0)
        285.02  SIDEROBLASTIC ANEMIA, ACQUIRED  OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,204,0)
        285.03  SIDEROBLAST, CONGEN OR HERED    OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,205,0)
        285.04  SIDEROBLASTIC, PRIMARY          OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,206,0)
        285.05  SIDEROBLASTIC, REFRACTORY       OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,207,0)
        285.06  SIDEROBLASTIC, SECONDARY        OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,208,0)
        285.07  SIDEROBLASTIC, SEX-LINKED       OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,209,0)
        285.08  SIDEROBLASTIC, VIT B6           OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,210,0)
        285.09  SIDEROBLASTIC, OTHER            OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,211,0)
        285.80  DYSERYTHROPOIETIC ANEMIA        OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,212,0)
        285.81  DYSHEMATOPOIETIC ANEMIA         OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,213,0)
        285.82  LEUKOERYTHROBLASTIC ANEMIA      OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,214,0)
        285.83  VON JAKSCH'S ANEMIA             OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,215,0)
        285.84  INFANTILE PSEUDOLEUKEMIA        OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,216,0)
        285.89  OTHER SPEC ANEMIA, NEC          OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,217,0)
        285.90  ESSENTIAL ANEMIA                OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,218,0)
        285.91  NORMOCHROM NOT DU 2 BLOOD LOSS  OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,219,0)
        285.92  PROFOUND ANEMIA                 OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,220,0)
        285.93  PROGRESSIVE ANEMIA              OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,221,0)
        285.94  SECONDARY ANEMIA                OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,222,0)
        285.99  ANEMIA, NOS                     OCTOBER 1 1991
"PKG",222,22,1,"PAH",1,1,223,0)
        291.20  DEMENTIA ASSOC W/ETOH, UNSPEC   OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,224,0)
        292.21  DEMENTIA ASSOC W/ETOH, MILD     OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,225,0)
        291.22  DEMENTIA ASSOC W/ETOH, MOD      OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,226,0)
        291.23  DEMENTIA ASSOC W/ETOH SEVERE    OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,227,0)
        304.14  PARALDEHYDE DEPENDENCE          OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,228,0)
        304.15  PLACIDYL, ETHCHLORUYNOL DEPEND  OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,229,0)
        304.16  VALIUM, DIAZEPAM DEPEND         OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,230,0)
        304.17  DORIDEN, GLUTETHIMIDE DEPEND    OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,231,0)
        304.18  BARBITURATE DEPENDENCE          OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,232,0)
        304.19  OTHER SEDATIVE OR HYPNOTIC      OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,233,0)
        304.39  OTHER CANNABIS DEPEND, NEC      OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,234,0)
        304.49  OTHER PSYCHOSTIM DEPEND         OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,235,0)
        304.59  OTHER HALLUCINOGEN DEPEND       OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,236,0)
        304.99  UNSPEC DRUG DEPEND, NEC         OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,237,0)
        304.600 PCP DEPENDENCE, UNSPECIFIED     OCTOBER 1 1987
"PKG",222,22,1,"PAH",1,1,238,0)
        304.610 PCP DEPENDENCE, CONTINUOUS      OCTOBER 1 1987
"PKG",222,22,1,"PAH",1,1,239,0)
        304.619 OTHER SPEC DRUG DEPEND, CONT    OCTOBER 1 1987
"PKG",222,22,1,"PAH",1,1,240,0)
        304.620 PCP DEPENDENCE, EPISODIC        OCTOBER 1 1987
"PKG",222,22,1,"PAH",1,1,241,0)
        304.629 OTHER SPEC DRUG DEPEND          OCTOBER 1 1987
"PKG",222,22,1,"PAH",1,1,242,0)
        304.630 PCP DEPEND IN REMISSION         OCTOBER 1 1987
"PKG",222,22,1,"PAH",1,1,243,0)
        304.639 OTHER SPEC DRUG DEPEND, REMISS  OCTOBER 1 1987
"PKG",222,22,1,"PAH",1,1,244,0)
        304.609 OTHER SPEC DRUG DEPEND, UNSPEC  OCTOBER 1 1987
"PKG",222,22,1,"PAH",1,1,245,0)
        305.29  OTHER CANNABIS USE, NEC         OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,246,0)
        305.39  OTHER HALLUCINOGEN ABUSE, NEC   OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,247,0)
        305.44  PARALDEHYDE ABUSE               OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,248,0)
        305.45  PLACIDYL, ETHCHLORUYNOL ABUSE   OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,249,0)
        305.46  VALIUM, DIAZEPAM ABUSE          OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,250,0)
        305.47  DORIDEN, GLUTETHIMIDE ABUSE     OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,251,0)
        305.48  BARBITURATES ABUSE              OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,252,0)
        305.49  OTHER SEDATIVE OR HYPNOT, NEC   OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,253,0)
        305.59  OTHER OPIOID ABUSE, NEC         OCTOBER 1 1998
"PKG",222,22,1,"PAH",1,1,254,0)
        305.6   COCAINE ABUSE-UNSPEC            OCTOBER 1 2000
"PKG",222,22,1,"PAH",1,1,255,0)
        305.79  OTHER SYMPATHOMIMETIC, NEC      OCTOBER 1 2000
"PKG",222,22,1,"PAH",1,1,256,0)
        305.99  OTHER, MIXED, UNSPEC, NEC       OCTOBER 1 2000
"PKG",222,22,1,"PAH",1,1,257,0)
        437.80  CEREBRAL/BRAIN QUADRIPLEGIA     OCTOBER 1 2000
"PKG",222,22,1,"PAH",1,1,258,0)
        437.81  CEREBRAL/BRAIN PARAPLEGIA       OCTOBER 1 2000
"PKG",222,22,1,"PAH",1,1,259,0)
        437.89  OTHER CEREBROVASCULAR DIS, NEC  OCTOBER 1 2000
"PKG",222,22,1,"PAH",1,1,260,0)
        482.80  LEGIONNAIRE'S DISEASE           OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,261,0)
        518.8   LUNG DISEASE NEC                OCTOBER 1 2000
"PKG",222,22,1,"PAH",1,1,262,0)
        662.32  DELAYED DELIV OF 2ND TWIN/TRIP  OCTOBER 1 2000
"PKG",222,22,1,"PAH",1,1,263,0)
        669.31  ACUTE RENAL FAILURE W DELIVERY  OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,264,0)
        669.52  FORCEPS/VAC EXTRACTOR DELIVERY  OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,265,0)
        669.62  BREECH EXTRACTION, NOS, DELIVE  OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,266,0)
        669.72  CESAREAN DELIVERY, NOS, DELIVE  OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,267,0)
        706.10  CHLORACNE                       OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,268,0)
        706.19  OTHER ACNE, NEC                 OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,269,0)
        719.7   DIFFICULTY IN WALKING           OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,270,0)
        948.0   BODY SURFACE BURN < 10%         OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,271,0)
        948.1   10-19% BODY SURFACE BURN        OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,272,0)
        948.2   20-29% BODY SURFACE BURN        OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,273,0)
        948.3   30-39% BODY SURFACE BURN        OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,274,0)
        948.4   40-49% BODY SURFACE BURN        OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,275,0)
        948.5   50-59% BODY SURFACE BURN        OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,276,0)
        948.6   60-69% BODY SURFACE BURN        OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,277,0)
        948.7   70-79% BODY SURFACE BURN        OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,278,0)
        948.8   80-89% BODY SURFACE BURN        OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,279,0)
        948.9   *0% OR MORE BDY SURF BRN        OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,280,0)
        989.20  PHENOXY ACID HERBICIDES         OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,281,0)
        989.21  TCDD AND OTHER DIOXINS          OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,282,0)
        989.29  OTHER CHLORINATED HYDROCARBONS  OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,283,0)
        989.40  TOXIC EFFECT OF DIOXIN (AO)     OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,284,0)
        989.49  TOXIC EFFECT-OTHER PESTICIDES   OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,285,0)
        996.5   MALFUNC DEVICE/GRAFT NEC        OCTOBER 1 2000
"PKG",222,22,1,"PAH",1,1,286,0)
        996.8   COMPL TRANSPLANTED ORGAN        OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,287,0)
        E956.1  SUICIDE ATTEMPTED BY CUTTING A  OCTOBER 1 2000
"PKG",222,22,1,"PAH",1,1,288,0)
        E956.2  SUICIDE ACTUAL BY CUTTING AND   OCTOBER 1 2000
"PKG",222,22,1,"PAH",1,1,289,0)
        V67.52  FOLLOW INACTIVE PULM TB         OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,290,0)
        V67.53  FOLLOW OTHER INACTIVE TB        OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,291,0)
        V67.54  FOLLOW INACTIVE INFECT LUNG     OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,292,0)
        V70.81  EXAM POTENTIAL ORGAN DONOR      OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,293,0)
        V70.82  EXAM OF FORMER POW              OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,294,0)
        V70.83  OTHER SPEC. GEN. MEDICAL EXAM   OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,295,0)
        V72.80  EXAM POSS EXPOSURE HERBICIDE    OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,296,0)
        V72.89  OTHER SPECIAL EXAMS             OCTOBER 1 2001
"PKG",222,22,1,"PAH",1,1,297,0)
 
"PKG",222,22,1,"PAH",1,1,298,0)
 ----------------------------------------------------------------
"PKG",222,22,1,"PAH",1,1,299,0)
 
"PKG",222,22,1,"PAH",1,1,300,0)
 -- ACTIVATE ICD DIAGNOSIS CODE 305.1
"PKG",222,22,1,"PAH",1,1,301,0)
 
"PKG",222,22,1,"PAH",1,1,302,0)
        CODE    DIAGNOSIS                       MAJOR DX CATERGORY
"PKG",222,22,1,"PAH",1,1,303,0)
        ----    ---------                       ------------------
"PKG",222,22,1,"PAH",1,1,304,0)
        305.1   TOBACCO USE DISORDER            HEALTH STATUS FACTORS
"PKG",222,22,1,"PAH",1,1,305,0)
 
"PKG",222,22,1,"PAH",1,1,306,0)
 -----------------------------------------------------------------
"PKG",222,22,1,"PAH",1,1,307,0)
 
"PKG",222,22,1,"PAH",1,1,308,0)
 -- NEW MEASUREMENT TYPE
"PKG",222,22,1,"PAH",1,1,309,0)
 
"PKG",222,22,1,"PAH",1,1,310,0)
             TYPE  DESCRIPTION                     CODE
"PKG",222,22,1,"PAH",1,1,311,0)
             ----  -----------                     ----
"PKG",222,22,1,"PAH",1,1,312,0)
     Added : O2    O2 SATURATION                   20
"PKG",222,22,1,"PAH",1,1,313,0)
     Added : PF    PEAK FLOW                       21
"PKG",222,22,1,"PAH",1,1,314,0)
 
"PKG",222,22,1,"PAH",1,1,315,0)
 -----------------------------------------------------------------
"PRE")
AUM2108
"QUES","XPF1",0)
Y
"QUES","XPF1","??")
^D REP^XPDH
"QUES","XPF1","A")
Shall I write over your |FLAG| File
"QUES","XPF1","B")
YES
"QUES","XPF1","M")
D XPF1^XPDIQ
"QUES","XPF2",0)
Y
"QUES","XPF2","??")
^D DTA^XPDH
"QUES","XPF2","A")
Want my data |FLAG| yours
"QUES","XPF2","B")
YES
"QUES","XPF2","M")
D XPF2^XPDIQ
"QUES","XPM1",0)
PO^VA(200,:EM
"QUES","XPM1","??")
^D MG^XPDH
"QUES","XPM1","A")
Enter the Coordinator for Mail Group '|FLAG|'
"QUES","XPM1","B")

"QUES","XPM1","M")
D XPM1^XPDIQ
"QUES","XPO1",0)
Y
"QUES","XPO1","??")
^D MENU^XPDH
"QUES","XPO1","A")
Want KIDS to Rebuild Menu Trees Upon Completion of Install
"QUES","XPO1","B")
YES
"QUES","XPO1","M")
D XPO1^XPDIQ
"QUES","XPZ1",0)
Y
"QUES","XPZ1","??")
^D OPT^XPDH
"QUES","XPZ1","A")
Want to DISABLE Scheduled Options, Menu Options, and Protocols
"QUES","XPZ1","B")
YES
"QUES","XPZ1","M")
D XPZ1^XPDIQ
"QUES","XPZ2",0)
Y
"QUES","XPZ2","??")
^D RTN^XPDH
"QUES","XPZ2","A")
Want to MOVE routines to other CPUs
"QUES","XPZ2","B")
NO
"QUES","XPZ2","M")
D XPZ2^XPDIQ
"RTN")
4
"RTN","AUM2108")
0^^B49045574
"RTN","AUM2108",1,0)
AUM2108 ;IHS/SET/GTH - ICD INACTIVE FLAG AND DATE ; [ 06/28/2002   5:53 PM ]
"RTN","AUM2108",2,0)
 ;;02.1;TABLE MAINTENANCE;**8**;SEP 28,2001
"RTN","AUM2108",3,0)
 ;
"RTN","AUM2108",4,0)
 I '$G(DUZ) W !,"DUZ UNDEFINED OR 0." D SORRY(2) Q
"RTN","AUM2108",5,0)
 ;
"RTN","AUM2108",6,0)
 I '$L($G(DUZ(0))) W !,"DUZ(0) UNDEFINED OR NULL." D SORRY(2) Q
"RTN","AUM2108",7,0)
 ;
"RTN","AUM2108",8,0)
 S X=$P(^VA(200,DUZ,0),U)
"RTN","AUM2108",9,0)
 W !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
"RTN","AUM2108",10,0)
 W !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_" Patch "_$P($T(+2),";",5)_".",IOM)
"RTN","AUM2108",11,0)
 ;
"RTN","AUM2108",12,0)
 I $$VCHK("AUM","2.1",2)
"RTN","AUM2108",13,0)
 I $$VCHK("DI","21.0",2)
"RTN","AUM2108",14,0)
 I $$VCHK("XU","8.0",2)
"RTN","AUM2108",15,0)
 ;
"RTN","AUM2108",16,0)
 S X=$$VERSION^XPDUTL("AUT")
"RTN","AUM2108",17,0)
 W !,$$CJ^XLFSTR("Need at least AUT 98.1.....AUT "_X_" Present",IOM)
"RTN","AUM2108",18,0)
 I X<98.1,+X'=1.1,+X'=2.1 D SORRY(2)
"RTN","AUM2108",19,0)
 ;
"RTN","AUM2108",20,0)
 NEW AUM
"RTN","AUM2108",21,0)
 S AUM=$$INSTALLD("AVA*93.2*12")
"RTN","AUM2108",22,0)
 W !,$$CJ^XLFSTR("Need Patch AVA*93.2*12....."_$S(AUM:"",1:"NOT ")_"Installed",IOM)
"RTN","AUM2108",23,0)
 I 'AUM D SORRY(2)
"RTN","AUM2108",24,0)
 ;
"RTN","AUM2108",25,0)
 NEW DA,DIC
"RTN","AUM2108",26,0)
 S X="AUM",DIC="^DIC(9.4,",DIC(0)="",D="C"
"RTN","AUM2108",27,0)
 D IX^DIC
"RTN","AUM2108",28,0)
 I Y<0,$D(^DIC(9.4,"C","AUM")) D
"RTN","AUM2108",29,0)
 . W !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""AUM"" prefix.",IOM)
"RTN","AUM2108",30,0)
 . W !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM)
"RTN","AUM2108",31,0)
 . D SORRY(2)
"RTN","AUM2108",32,0)
 .Q
"RTN","AUM2108",33,0)
 ;
"RTN","AUM2108",34,0)
 I $G(XPDQUIT) W !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,*7,*7,*7 Q
"RTN","AUM2108",35,0)
 ;
"RTN","AUM2108",36,0)
 W !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
"RTN","AUM2108",37,0)
 D HELP^XBHELP("INTROE","AUM2108")
"RTN","AUM2108",38,0)
 ;
"RTN","AUM2108",39,0)
 I $G(XPDENV)=1 D
"RTN","AUM2108",40,0)
 . ; The following line prevents the "Disable Options..." and "Move
"RTN","AUM2108",41,0)
 . ; Routines..." questions from being asked during the install.
"RTN","AUM2108",42,0)
 . S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
"RTN","AUM2108",43,0)
 . D HELP^XBHELP("INTROI","AUM2108")
"RTN","AUM2108",44,0)
 .Q
"RTN","AUM2108",45,0)
 ;
"RTN","AUM2108",46,0)
 I '$$DIR^XBDIR("E","","","","","",1) D SORRY(2)
"RTN","AUM2108",47,0)
 Q
"RTN","AUM2108",48,0)
 ;
"RTN","AUM2108",49,0)
SORRY(X) ;
"RTN","AUM2108",50,0)
 KILL DIFQ
"RTN","AUM2108",51,0)
 S XPDQUIT=X
"RTN","AUM2108",52,0)
 W *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
"RTN","AUM2108",53,0)
 Q
"RTN","AUM2108",54,0)
 ;
"RTN","AUM2108",55,0)
VCHK(AUMPRE,AUMVER,AUMQUIT) ; Check versions needed.
"RTN","AUM2108",56,0)
 ;  
"RTN","AUM2108",57,0)
 NEW AUMV
"RTN","AUM2108",58,0)
 S AUMV=$$VERSION^XPDUTL(AUMPRE)
"RTN","AUM2108",59,0)
 W !,$$CJ^XLFSTR("Need at least "_AUMPRE_" v "_AUMVER_"....."_AUMPRE_" v "_AUMV_" Present",IOM)
"RTN","AUM2108",60,0)
 I AUMV<AUMVER KILL DIFQ S XPDQUIT=AUMQUIT D SORRY(AUMQUIT) Q 0
"RTN","AUM2108",61,0)
 Q 1
"RTN","AUM2108",62,0)
 ;
"RTN","AUM2108",63,0)
INSTALLD(AUM) ;EP - Determine if patch AUM was installed, where AUM is
"RTN","AUM2108",64,0)
 ; the name of the INSTALL.  E.g "AVA*93.2*12".
"RTN","AUM2108",65,0)
 ;
"RTN","AUM2108",66,0)
 NEW DIC,X,Y
"RTN","AUM2108",67,0)
 ;  lookup package.
"RTN","AUM2108",68,0)
 S X=$P(AUM,"*",1)
"RTN","AUM2108",69,0)
 S DIC="^DIC(9.4,",DIC(0)="FM",D="C"
"RTN","AUM2108",70,0)
 D IX^DIC
"RTN","AUM2108",71,0)
 I Y<1 Q 0
"RTN","AUM2108",72,0)
 ;  lookup version.
"RTN","AUM2108",73,0)
 S DIC=DIC_+Y_",22,",X=$P(AUM,"*",2)
"RTN","AUM2108",74,0)
 D ^DIC
"RTN","AUM2108",75,0)
 I Y<1 Q 0
"RTN","AUM2108",76,0)
 ;  lookup patch.
"RTN","AUM2108",77,0)
 S DIC=DIC_+Y_",""PAH"",",X=$P(AUM,"*",3)
"RTN","AUM2108",78,0)
 D ^DIC
"RTN","AUM2108",79,0)
 Q $S(Y<1:0,1:1)
"RTN","AUM2108",80,0)
 ;
"RTN","AUM2108",81,0)
 ; -----------------------------------------------------
"RTN","AUM2108",82,0)
POST ;EP - From KIDS.
"RTN","AUM2108",83,0)
 ;
"RTN","AUM2108",84,0)
 NEW XMSUB,XMDUZ,XMTEXT,XMY
"RTN","AUM2108",85,0)
 KILL ^TMP("AUM2108",$J)
"RTN","AUM2108",86,0)
 D AUDS,START^AUM21081,AUDR
"RTN","AUM2108",87,0)
 S XMSUB=$P($P($T(+1),";",2)," ",3,99),XMDUZ=$G(DUZ,.5),XMTEXT="^TMP(""AUM2108"",$J,",XMY(1)="",XMY(DUZ)=""
"RTN","AUM2108",88,0)
 F %="XUPROGMODE","AG TM MENU","ABMDZ TABLE MAINTENANCE","APCCZMGR" D SINGLE(%)
"RTN","AUM2108",89,0)
 NEW DIFROM
"RTN","AUM2108",90,0)
 D ^XMD
"RTN","AUM2108",91,0)
 KILL ^TMP("AUM2108",$J)
"RTN","AUM2108",92,0)
 D BMES^XPDUTL("The results are in your MailMan 'IN' basket.")
"RTN","AUM2108",93,0)
 I $D(ZTQUEUED) S ZTREQ="@"
"RTN","AUM2108",94,0)
 Q:'$L($T(+1^AUMDELR))
"RTN","AUM2108",95,0)
 S ZTRTN="DEL^AUMDELR(""AUM2108"")",ZTDESC="Delete routines in the 'AUM2108' namespace.",ZTDTH=$$HADD^XLFDT($H,0,0,30,0),ZTIO="",ZTPRI=1
"RTN","AUM2108",96,0)
 D ^%ZTLOAD
"RTN","AUM2108",97,0)
 I '$D(ZTSK) D BMES^XPDUTL("Q to TaskMan to delete routines in background failed (?).") Q
"RTN","AUM2108",98,0)
 D BMES^XPDUTL("NOTE:  The routines in this update will be deleted in background"),MES^XPDUTL("30 minutes from now by Task #"_ZTSK_".")
"RTN","AUM2108",99,0)
 Q
"RTN","AUM2108",100,0)
 ; -----------------------------------------------------
"RTN","AUM2108",101,0)
SINGLE(K) ; Get holders of a single key K.
"RTN","AUM2108",102,0)
 NEW Y
"RTN","AUM2108",103,0)
 S Y=0
"RTN","AUM2108",104,0)
 Q:'$D(^XUSEC(K))
"RTN","AUM2108",105,0)
 F  S Y=$O(^XUSEC(K,Y)) Q:'Y  S XMY(Y)=""
"RTN","AUM2108",106,0)
 Q
"RTN","AUM2108",107,0)
 ;
"RTN","AUM2108",108,0)
 ; -----------------------------------------------------
"RTN","AUM2108",109,0)
 ; Data auditing at the file level is indicated by a lower case "a"
"RTN","AUM2108",110,0)
 ; in the 2nd piece of the 0th node of the global.
"RTN","AUM2108",111,0)
 ; Data auditing at the field level is indicated by a lower case "a"
"RTN","AUM2108",112,0)
 ; in the 2nd piece of the 0th node of the field definition in ^DD(.
"RTN","AUM2108",113,0)
AUDS ; Save current settings, and SET data auditing 'on'.
"RTN","AUM2108",114,0)
 S ^XTMP("AUM2108",0)=$$FMADD^XLFDT(DT,56)_"^"_DT_"^"_"2002 MAY 10 STANDARD TABLE UPDATES"
"RTN","AUM2108",115,0)
 NEW G,P
"RTN","AUM2108",116,0)
 F %=1:1 S G=$P($T(AUD+%),";",3) Q:G="END"  D
"RTN","AUM2108",117,0)
 . S P=$P(@(G_"0)"),"^",2)
"RTN","AUM2108",118,0)
 . I '$D(^XTMP("AUM2108",G)) S ^XTMP("AUM2108",G)=P
"RTN","AUM2108",119,0)
 . S:'(P["a") $P(@(G_"0)"),"^",2)=P_"a"
"RTN","AUM2108",120,0)
 . Q:'(G["^DD(")
"RTN","AUM2108",121,0)
 . I '$D(^XTMP("AUM2108",G,"AUDIT")) S ^XTMP("AUM2108",G,"AUDIT")=$G(@(G_"""AUDIT"")"))
"RTN","AUM2108",122,0)
 . S (@(G_"""AUDIT"")"))="y"
"RTN","AUM2108",123,0)
 .Q
"RTN","AUM2108",124,0)
 Q
"RTN","AUM2108",125,0)
 ; -----------------------------------------------------
"RTN","AUM2108",126,0)
AUDR ; Restore the file data audit values to their original values.
"RTN","AUM2108",127,0)
 NEW G,P
"RTN","AUM2108",128,0)
 F %=1:1 S G=$P($T(AUD+%),";",3) Q:G="END"  D
"RTN","AUM2108",129,0)
 . S $P(@(G_"0)"),"^",2)=^XTMP("AUM2108",G)
"RTN","AUM2108",130,0)
 . Q:'(G["^DD(")
"RTN","AUM2108",131,0)
 . S (@(G_"""AUDIT"")"))=^XTMP("AUM2108",G,"AUDIT")
"RTN","AUM2108",132,0)
 . K:@(G_"""AUDIT"")")="" @(G_"""AUDIT"")")
"RTN","AUM2108",133,0)
 .Q
"RTN","AUM2108",134,0)
 Q
"RTN","AUM2108",135,0)
 ; -----------------------------------------------------
"RTN","AUM2108",136,0)
AUD ; These are files/fields to be audited for this patch, only.
"RTN","AUM2108",137,0)
 ;;^AUTTMSR(
"RTN","AUM2108",138,0)
 ;;^DD(9999999.07,.01,
"RTN","AUM2108",139,0)
 ;;^DD(9999999.07,.02,
"RTN","AUM2108",140,0)
 ;;^DD(9999999.07,.03,
"RTN","AUM2108",141,0)
 ;;^ICD9(
"RTN","AUM2108",142,0)
 ;;^DD(80,.01,
"RTN","AUM2108",143,0)
 ;;^DD(80,3,
"RTN","AUM2108",144,0)
 ;;^DD(80,5,
"RTN","AUM2108",145,0)
 ;;^DD(80,100,
"RTN","AUM2108",146,0)
 ;;^DD(80,102,
"RTN","AUM2108",147,0)
 ;;^DD(80,2100000,
"RTN","AUM2108",148,0)
 ;;END
"RTN","AUM2108",149,0)
 ; -----------------------------------------------------
"RTN","AUM2108",150,0)
INTROE ; Intro text during KIDS Environment check.
"RTN","AUM2108",151,0)
 ;;This distribution:
"RTN","AUM2108",152,0)
 ;;(1) ICD DX code 305.1, delete INACTIVE DATE,
"RTN","AUM2108",153,0)
 ;;(2) Approx 200 ICD DX codes, add INACTIVE DATE,
"RTN","AUM2108",154,0)
 ;;(3) Add two MEASUREMENT TYPES.
"RTN","AUM2108",155,0)
 ;;###
"RTN","AUM2108",156,0)
 ;
"RTN","AUM2108",157,0)
INTROI ; Intro text during KIDS Install.
"RTN","AUM2108",158,0)
 ;;A standard message will be produced by this update.
"RTN","AUM2108",159,0)
 ;;  
"RTN","AUM2108",160,0)
 ;;If you run interactively, results will be displayed on your screen,
"RTN","AUM2108",161,0)
 ;;as well as in the mail message and the entry in the INSTALL file.
"RTN","AUM2108",162,0)
 ;;If you queue to TaskMan, please read the mail message for results of
"RTN","AUM2108",163,0)
 ;;this update, and remember not to Q to the HOME device.
"RTN","AUM2108",164,0)
 ;;###
"RTN","AUM2108",165,0)
 ;
"RTN","AUM2108",166,0)
GREET ;;EP - To add to mail message.
"RTN","AUM2108",167,0)
 ;;  
"RTN","AUM2108",168,0)
 ;;Greetings.
"RTN","AUM2108",169,0)
 ;;  
"RTN","AUM2108",170,0)
 ;;Standard tables on your RPMS system have been updated.
"RTN","AUM2108",171,0)
 ;;  
"RTN","AUM2108",172,0)
 ;;You are receiving this message because of the particular RPMS
"RTN","AUM2108",173,0)
 ;;security keys that you hold.  This is for your information, only.
"RTN","AUM2108",174,0)
 ;;You need do nothing in response to this message.
"RTN","AUM2108",175,0)
 ;;  
"RTN","AUM2108",176,0)
 ;;Requests for modifications or additions to RPMS standard tables,
"RTN","AUM2108",177,0)
 ;;whether they are or are not reflected in the IHS Standard Code
"RTN","AUM2108",178,0)
 ;;Book (SCB), can be submitted to your Area Information System
"RTN","AUM2108",179,0)
 ;;Coordinator (ISC).
"RTN","AUM2108",180,0)
 ;;  
"RTN","AUM2108",181,0)
 ;;Sections of the IHS Standard Code Book (SCB) can be viewed, printed,
"RTN","AUM2108",182,0)
 ;;and extracted from the NPIRS IntrAnet website at url:
"RTN","AUM2108",183,0)
 ;;  http://dpsntweb1.hqw.ihs.gov/ciweb/main.html
"RTN","AUM2108",184,0)
 ;;  
"RTN","AUM2108",185,0)
 ;;Questions about this patch, which is a product of the RPMS DBA
"RTN","AUM2108",186,0)
 ;;(George T. Huggins, 520-670-4871), can be directed to the DIR/RPMS
"RTN","AUM2108",187,0)
 ;;Support Center, at 505-248-4371, or via e-mail to
"RTN","AUM2108",188,0)
 ;;"hqwhd@mail.ihs.gov".  Please refer to patch "AUM*2.1*8".
"RTN","AUM2108",189,0)
 ;;  
"RTN","AUM2108",190,0)
 ;;###;NOTE: This line indicates the end of text in this message.
"RTN","AUM2108",191,0)
 ;
"RTN","AUM21081")
0^2^B26486983
"RTN","AUM21081",1,0)
AUM21081 ;IHS/SET/GTH - ICD INACTIVE FLAG AND DATE ; [ 06/28/2002   5:53 PM ]
"RTN","AUM21081",2,0)
 ;;02.1;TABLE MAINTENANCE;**8**;SEP 28,2001
"RTN","AUM21081",3,0)
 ;
"RTN","AUM21081",4,0)
START ;EP
"RTN","AUM21081",5,0)
SVARS ;;A,C,E,F,L,M,N,O,P,R,S,T,V;Single-character work variables.
"RTN","AUM21081",6,0)
 ;
"RTN","AUM21081",7,0)
 NEW DA,DIC,DIE,DINUM,DLAYGO,DR,@($P($T(SVARS),";",3))
"RTN","AUM21081",8,0)
 ;
"RTN","AUM21081",9,0)
 D RSLT($J("",5)_$P($T(UPDATE^AUM2108A),";",3))
"RTN","AUM21081",10,0)
 F L="GREET","INTROE","INTROI" F %=1:1 D RSLT($P($T(@L+%^AUM2108),";",3)) Q:$P($T(@L+%+1^AUM2108),";",3)="###"
"RTN","AUM21081",11,0)
 D DASH,ICD9INAC,DASH,ICD9MOD,DASH,MEASNEW,DASH
"RTN","AUM21081",12,0)
 Q
"RTN","AUM21081",13,0)
 ; -----------------------------------------------------
"RTN","AUM21081",14,0)
ADDOK D RSLT($J("",5)_"Added : "_L)
"RTN","AUM21081",15,0)
 Q
"RTN","AUM21081",16,0)
ADDFAIL D RSLT($J("",5)_$$M(0)_"ADD FAILED => "_L)
"RTN","AUM21081",17,0)
 Q
"RTN","AUM21081",18,0)
DASH D RSLT(""),RSLT($$REPEAT^XLFSTR("-",$S($G(IOM):IOM-10,1:70))),RSLT("")
"RTN","AUM21081",19,0)
 Q
"RTN","AUM21081",20,0)
DIE NEW @($P($T(SVARS),";",3))
"RTN","AUM21081",21,0)
 LOCK +(@(DIE_DA_")")):10 E  D RSLT($J("",5)_$$M(0)_"Entry '"_DIE_DA_"' IS LOCKED.  NOTIFY PROGRAMMER.") S Y=1 Q
"RTN","AUM21081",22,0)
 D ^DIE LOCK -(@(DIE_DA_")")) KILL DA,DIE,DR
"RTN","AUM21081",23,0)
 Q
"RTN","AUM21081",24,0)
E(L) Q $P($P($T(@L^AUM2108A),";",3),":",1)
"RTN","AUM21081",25,0)
IEN(X,%,Y) ;
"RTN","AUM21081",26,0)
 S Y=$O(@(X_"""C"",%,0)"))
"RTN","AUM21081",27,0)
 I 'Y S Y=$$VAL^AUM2108M(X,%) I Y D  S:Y<0 Y=""
"RTN","AUM21081",28,0)
 . NEW %,@($P($T(SVARS),";",3))
"RTN","AUM21081",29,0)
 . S L=Y
"RTN","AUM21081",30,0)
 . I X["AREA" NEW X D RSLT("(Add Missing Area)") D ADDAREA D RSLT("(END Add Missing Area)") Q
"RTN","AUM21081",31,0)
 . I X["SU" NEW X D RSLT("(Add Missing SU)") D ADDSU D RSLT("(END Add Missing SU)") Q
"RTN","AUM21081",32,0)
 . I X["CTY" NEW X D RSLT("(Add Missing County)") D ADDCNTY D RSLT("(END Add Missing County)") Q
"RTN","AUM21081",33,0)
 .Q
"RTN","AUM21081",34,0)
 D:'Y RSLT($J("",5)_$$M(0)_$P(@(X_"0)"),U)_" DOES NOT EXIST => "_%)
"RTN","AUM21081",35,0)
 Q +Y
"RTN","AUM21081",36,0)
DIK NEW @($P($T(SVARS),";",3)) D ^DIK KILL DIK
"RTN","AUM21081",37,0)
 Q
"RTN","AUM21081",38,0)
FILE NEW @($P($T(SVARS),";",3)) K DD,DO S DIC(0)="L" D FILE^DICN KILL DIC
"RTN","AUM21081",39,0)
 Q
"RTN","AUM21081",40,0)
M(%) Q $S(%=0:"ERROR : ",%=1:"NOT ADDED : ",1:"")
"RTN","AUM21081",41,0)
MODOK D RSLT($J("",5)_"Changed : "_L)
"RTN","AUM21081",42,0)
 Q
"RTN","AUM21081",43,0)
RSLT(%) S ^(0)=$G(^TMP("AUM2108",$J,0))+1,^(^(0))=% D MES(%)
"RTN","AUM21081",44,0)
 Q
"RTN","AUM21081",45,0)
MES(%) NEW @($P($T(SVARS),";",3)) D MES^XPDUTL(%)
"RTN","AUM21081",46,0)
 Q
"RTN","AUM21081",47,0)
IXDIC(DIC,DIC0,D,X,DLAYGO) NEW @($P($T(SVARS),";",3))
"RTN","AUM21081",48,0)
 S DIC(0)=DIC0
"RTN","AUM21081",49,0)
 KILL DIC0
"RTN","AUM21081",50,0)
 I '$G(DLAYGO) KILL DLAYGO
"RTN","AUM21081",51,0)
 D IX^DIC
"RTN","AUM21081",52,0)
 Q Y
"RTN","AUM21081",53,0)
 ; -----------------------------------------------------
"RTN","AUM21081",54,0)
ADDAREA ; PROGRAMMER NOTE:  This s/r is required for every patch.
"RTN","AUM21081",55,0)
 S L=$P(L,";;",2),A=$P(L,U),N=$P(L,U,2),R=$P(L,U,3),C=$P(L,U,4),L=A_" "_N_" "_R_" "_C
"RTN","AUM21081",56,0)
 I $D(^AUTTAREA("B",N)) D RSLT($J("",5)_$$M(1)_"NAME EXISTS => "_N) Q
"RTN","AUM21081",57,0)
 I $D(^AUTTAREA("C",A)) D RSLT($J("",5)_$$M(1)_"CODE EXISTS => "_A) Q
"RTN","AUM21081",58,0)
 S DLAYGO=9999999.21,DIC="^AUTTAREA(",X=N,DIC("DR")=".02///"_A_";.03///"_R_";.04///"_C
"RTN","AUM21081",59,0)
 D FILE,@$S(Y>0:"ADDOK",1:"ADDFAIL")
"RTN","AUM21081",60,0)
 KILL DLAYGO
"RTN","AUM21081",61,0)
 Q
"RTN","AUM21081",62,0)
 ; -----------------------------------------------------
"RTN","AUM21081",63,0)
ADDCNTY ; PROGRAMMER NOTE:  This s/r is required for every patch.
"RTN","AUM21081",64,0)
 S L=$P(L,";;",2),S=$P(L,U),C=$P(L,U,2),N=$P(L,U,3),A=$P(L,U,4),L=S_"    "_C_"    "_N_$J("",30-$L(N))_A
"RTN","AUM21081",65,0)
 I $D(^AUTTCTY("C",S_C)) D RSLT($J("",5)_$$M(1)_"CODE EXISTS => "_S_C) Q
"RTN","AUM21081",66,0)
 S P("S")=$$IEN("^DIC(5,",S)
"RTN","AUM21081",67,0)
 Q:'P("S")
"RTN","AUM21081",68,0)
 S DIC="^AUTTCTY(",X=N,DIC("DR")=".02////"_P("S")_";.03///"_C_";.06///"_A
"RTN","AUM21081",69,0)
 D FILE,@$S(Y>0:"ADDOK",1:"ADDFAIL")
"RTN","AUM21081",70,0)
 Q
"RTN","AUM21081",71,0)
 ; -----------------------------------------------------
"RTN","AUM21081",72,0)
ADDSU ; PROGRAMMER NOTE:  This s/r is required for every patch.
"RTN","AUM21081",73,0)
 S L=$P(L,";;",2),A=$P(L,U),S=$P(L,U,2),N=$P(L,U,3),L=A_" "_S_" "_N
"RTN","AUM21081",74,0)
 I $D(^AUTTSU("C",A_S)) D RSLT($J("",5)_$$M(1)_"ASU EXISTS => "_A_S) Q
"RTN","AUM21081",75,0)
 S P=$$IEN("^AUTTAREA(",A)
"RTN","AUM21081",76,0)
 Q:'P
"RTN","AUM21081",77,0)
 S DLAYGO=9999999.22,DIC="^AUTTSU(",X=N,DIC("DR")=".02////"_P_";.03///"_S
"RTN","AUM21081",78,0)
 D FILE,@$S(Y>0:"ADDOK",1:"ADDFAIL")
"RTN","AUM21081",79,0)
 KILL DLAYGO
"RTN","AUM21081",80,0)
 Q
"RTN","AUM21081",81,0)
 ; -----------------------------------------------------
"RTN","AUM21081",82,0)
 ;
"RTN","AUM21081",83,0)
ICD9INAC ;
"RTN","AUM21081",84,0)
 D RSLT($$E("ICD9INAC"))
"RTN","AUM21081",85,0)
 D RSLT($J("",8)_"CODE    "_$$LJ^XLFSTR("DIAGNOSIS",32)_"INACTIVE DATE")
"RTN","AUM21081",86,0)
 D RSLT($J("",8)_"----    "_$$LJ^XLFSTR("---------",32)_"-------------")
"RTN","AUM21081",87,0)
 NEW AUMI,DA,DIE,DR,X,Y
"RTN","AUM21081",88,0)
 F AUMI=1:1 S L=$P($T(ICD9INAC+AUMI^AUM2108A),";;",2) Q:L="END"  D
"RTN","AUM21081",89,0)
 . S C=$P(L,U,1),Y=$$IXDIC("^ICD9(","ILX","AB",C)
"RTN","AUM21081",90,0)
 . I Y=-1 D RSLT(" CODE '"_C_"' not found (that's OK).") Q
"RTN","AUM21081",91,0)
 . S M=$P(L,U,2),A=$P(L,U,3),DA=+Y,DIE="^ICD9(",DR="100///1;102///"_A_";2100000///"_DT
"RTN","AUM21081",92,0)
 . D DIE
"RTN","AUM21081",93,0)
 . I $D(Y) D RSLT("ERROR:  Edit of INACTIVE DATE field for CODE '"_C_"' FAILED.") Q
"RTN","AUM21081",94,0)
 . D RSLT($J("",8)_$$LJ^XLFSTR(C,8)_$$LJ^XLFSTR(M,32)_A)
"RTN","AUM21081",95,0)
 .Q
"RTN","AUM21081",96,0)
 Q
"RTN","AUM21081",97,0)
 ; -----------------------------------------------------
"RTN","AUM21081",98,0)
ICD9MOD ;
"RTN","AUM21081",99,0)
 D RSLT($$E("ICD9MOD"))
"RTN","AUM21081",100,0)
 D RSLT($J("",8)_"CODE    "_$$LJ^XLFSTR("DIAGNOSIS",32)_"MAJOR DX CATERGORY")
"RTN","AUM21081",101,0)
 D RSLT($J("",8)_"----    "_$$LJ^XLFSTR("---------",32)_"------------------")
"RTN","AUM21081",102,0)
 NEW AUMI,DA,DIE,DR
"RTN","AUM21081",103,0)
 F AUMI=1:1 S L=$P($T(ICD9MOD+AUMI^AUM2108A),";;",2) Q:L="END"  D
"RTN","AUM21081",104,0)
 . S C=$P(L,U,1),Y=$$IXDIC("^ICD9(","ILX","AB",C,80)
"RTN","AUM21081",105,0)
 . I Y=-1 D RSLT("ERROR:  Lookup/Add of CODE '"_C_"' FAILED.") Q
"RTN","AUM21081",106,0)
 . S DA=+Y,DR="3///"_$E($P(L,U,3),1,30)_";5///"_$P(L,U,3)_";10///"_$E($P(L,U,4),1,245)_";100///@;102///@;2100000///"_DT,DIE="^ICD9("
"RTN","AUM21081",107,0)
 . D DIE
"RTN","AUM21081",108,0)
 . I $D(Y) D RSLT("ERROR:  Edit of fields for CODE '"_C_"' FAILED.") Q
"RTN","AUM21081",109,0)
 . D RSLT($J("",8)_$$LJ^XLFSTR(C,8)_$$LJ^XLFSTR($P(L,U,2),32)_$P(L,U,3))
"RTN","AUM21081",110,0)
 .Q
"RTN","AUM21081",111,0)
 Q
"RTN","AUM21081",112,0)
 ; -----------------------------------------------------
"RTN","AUM21081",113,0)
MEASNEW ;
"RTN","AUM21081",114,0)
 D RSLT($$E("MEASNEW"))
"RTN","AUM21081",115,0)
 D RSLT($J("",13)_"TYPE  "_$$LJ^XLFSTR("DESCRIPTION",32)_"CODE")
"RTN","AUM21081",116,0)
 D RSLT($J("",13)_"----  "_$$LJ^XLFSTR("-----------",32)_"----")
"RTN","AUM21081",117,0)
 F T=1:1 S L=$T(MEASNEW+T^AUM2108A) Q:$P(L,";",3)="END"  D ADDMEAS
"RTN","AUM21081",118,0)
 Q
"RTN","AUM21081",119,0)
 ;
"RTN","AUM21081",120,0)
ADDMEAS ;
"RTN","AUM21081",121,0)
 S L=$P(L,";;",2),N=$P(L,U),S=$P(L,U,2),C=$P(L,U,3),L=$$LJ^XLFSTR(N,6)_$$LJ^XLFSTR(S,32)_C
"RTN","AUM21081",122,0)
 I $D(^AUTTMSR("C",C)) D RSLT($$M(1)_" : MEASUREMENT TYPE CODE EXISTS => "_C) Q
"RTN","AUM21081",123,0)
 S DLAYGO=9999999.07,DIC="^AUTTMSR(",X=N,DIC("DR")=".02///"_S_";.03///"_C
"RTN","AUM21081",124,0)
 D FILE,@$S(Y>0:"ADDOK",1:"ADDFAIL")
"RTN","AUM21081",125,0)
 Q
"RTN","AUM21081",126,0)
 ;
"RTN","AUM2108A")
0^4^B96293845
"RTN","AUM2108A",1,0)
AUM2108A ;IHS/SET/GTH - ICD INACTIVE FLAG AND DATE ; [ 06/28/2002   5:53 PM ]
"RTN","AUM2108A",2,0)
 ;;02.1;TABLE MAINTENANCE;**8**;SEP 28,2001
"RTN","AUM2108A",3,0)
 ;
"RTN","AUM2108A",4,0)
UPDATE ;;ICD DIAGNOSIS CODES, AND NEW MEASUREMENT TYPE - JUNE 2002
"RTN","AUM2108A",5,0)
 ;
"RTN","AUM2108A",6,0)
ICD9INAC ;;-- ICD DIAGNOSIS CODES INACTIVATE: CODE^DIAGNOSIS^INACTIVE DATE
"RTN","AUM2108A",7,0)
 ;;031.00^INFECTION LUNG M. BOVIS^OCTOBER 1 1998
"RTN","AUM2108A",8,0)
 ;;031.01^INF LUNG RUNYON GRP I^OCTOBER 1 1998
"RTN","AUM2108A",9,0)
 ;;031.02^INF LUNG MYCOBACTER EXCL TUBER^OCTOBER 1 1998
"RTN","AUM2108A",10,0)
 ;;031.03^INF LUNG RUNYON GRP II SCOTO^OCTOBER 1 1998
"RTN","AUM2108A",11,0)
 ;;031.04^INF LUNG RUNYON GRP III NONCHR^OCTOBER 1 1998
"RTN","AUM2108A",12,0)
 ;;031.05^INF LUNG M. AVIUM^OCTOBER 1 1998
"RTN","AUM2108A",13,0)
 ;;031.06^INF LUNG RUNYON GRP IV RAPID^OCTOBER 1 1998
"RTN","AUM2108A",14,0)
 ;;031.07^INF LUNG M. FORTUITUM^OCTOBER 1 1998
"RTN","AUM2108A",15,0)
 ;;031.08^INF LUNG S/P MYCOBACTERIAL^OCTOBER 1 1998
"RTN","AUM2108A",16,0)
 ;;031.09^INF LUNG SUSPECT MYCOBACTERIAL^OCTOBER 1 1998
"RTN","AUM2108A",17,0)
 ;;281.00^ADDISON'S (PERNICIOUS) ANEMIA^OCTOBER 1 1996
"RTN","AUM2108A",18,0)
 ;;281.01^CONGENITAL PERNICIOUS ANEMIA^OCTOBER 1 1996
"RTN","AUM2108A",19,0)
 ;;281.02^CONGENITAL INTRINSIC ANEMIA^OCTOBER 1 1996
"RTN","AUM2108A",20,0)
 ;;281.03^PERN ANEMIA W/DEGEN CORD^OCTOBER 1 1996
"RTN","AUM2108A",21,0)
 ;;281.09^PERNICIOUS ANEMIA, OTHER^OCTOBER 1 1996
"RTN","AUM2108A",22,0)
 ;;281.10^VEGAN'S ANEMIA^OCTOBER 1 1996
"RTN","AUM2108A",23,0)
 ;;281.11^VIT B12 DEFICIENCY ANEMIA^OCTOBER 1 1996
"RTN","AUM2108A",24,0)
 ;;281.12^ANEMIA-VIT B MALABSORP ^OCTOBER 1 1996
"RTN","AUM2108A",25,0)
 ;;281.13^IMERSLUND'S SYNDROME^OCTOBER 1 1996
"RTN","AUM2108A",26,0)
 ;;281.19^VIT B12 ANEMIA OTHER^OCTOBER 1 1996
"RTN","AUM2108A",27,0)
 ;;281.20^CONGENITAL FOLATE MALABSORP^OCTOBER 1 1991
"RTN","AUM2108A",28,0)
 ;;281.21^FOLATE OR FOLIC ACID ANEMIA^OCTOBER 1 1991
"RTN","AUM2108A",29,0)
 ;;281.22^GOAT'S MILK ANEMIA^OCTOBER 1 1991
"RTN","AUM2108A",30,0)
 ;;281.23^NUTRITIONAL MEGALOBLAST ANEMIA^OCTOBER 1 1991
"RTN","AUM2108A",31,0)
 ;;281.29^FOLATE ANEMIA, OTHER^OCTOBER 1 1991
"RTN","AUM2108A",32,0)
 ;;281.30^COMBINED B12 & FOLATE ANEMIA^OCTOBER 1 1991
"RTN","AUM2108A",33,0)
 ;;281.31^REFRACTORY MEGALOBLAST ANEMIA^OCTOBER 1 1991
"RTN","AUM2108A",34,0)
 ;;281.39^MEGALOBLASTIC ANEMIA, NEC^OCTOBER 1 1991
"RTN","AUM2108A",35,0)
 ;;281.90^DIMORPHIC ANEMIA^OCTOBER 1 1991
"RTN","AUM2108A",36,0)
 ;;281.91^MACROCYTIC ANEMIA^OCTOBER 1 1991
"RTN","AUM2108A",37,0)
 ;;281.92^MEGALOBLASTIC ANEMIA, NOS^OCTOBER 1 1991
"RTN","AUM2108A",38,0)
 ;;281.93^NUTRITIONAL ANEMIA, NOS^OCTOBER 1 1991
"RTN","AUM2108A",39,0)
 ;;281.94^SIMPLE CHRONIC ANEMIA^OCTOBER 1 1991
"RTN","AUM2108A",40,0)
 ;;281.99^DEFICIENCY ANEMIA, OTHER^OCTOBER 1 1991
"RTN","AUM2108A",41,0)
 ;;282.00^ACHOLURIC JAUNDICE^OCTOBER 1 1991
"RTN","AUM2108A",42,0)
 ;;282.01^CONGENITAL HEMOLYTIC ANEMIA^OCTOBER 1 1991
"RTN","AUM2108A",43,0)
 ;;282.02^CONGENITAL SPHEROCYTOSIS^OCTOBER 1 1991
"RTN","AUM2108A",44,0)
 ;;282.03^MINKOWSKI-CHAUFFARD SYNDROME^OCTOBER 1 1991
"RTN","AUM2108A",45,0)
 ;;282.04^SPHEROCYTOSIS (FAMILIAL)^OCTOBER 1 1991
"RTN","AUM2108A",46,0)
 ;;282.09^HEREDITARY SPHEROCYTOSIS OTHER^OCTOBER 1 1991
"RTN","AUM2108A",47,0)
 ;;282.10^ELLIPTOCYTOSIS(CONGENITAL)^OCTOBER 1 1991
"RTN","AUM2108A",48,0)
 ;;282.11^OVALOCYTOSIS^OCTOBER 1 1991
"RTN","AUM2108A",49,0)
 ;;282.19^HEREDIT ELLIPTOCYTOSIS, OTHER^OCTOBER 1 1991
"RTN","AUM2108A",50,0)
 ;;282.30^HEMOLYTIC NONSPHEROCYTIC, II^OCTOBER 1 1991
"RTN","AUM2108A",51,0)
 ;;282.31^HEXOKINASE DEFICIENCY ANEMIA^OCTOBER 1 1991
"RTN","AUM2108A",52,0)
 ;;282.32^PK DEFICIENCY ANEMIA^OCTOBER 1 1991
"RTN","AUM2108A",53,0)
 ;;282.33^TRIOSEPHOSPHATE ISOMERASE^OCTOBER 1 1991
"RTN","AUM2108A",54,0)
 ;;282.40^COOLEY'S ANEMIA^OCTOBER 1 1991
"RTN","AUM2108A",55,0)
 ;;282.41^HEREDITARY LEPTOCYTOSIS^OCTOBER 1 1991
"RTN","AUM2108A",56,0)
 ;;282.42^MEDITERRANEAN ANEMIA^OCTOBER 1 1991
"RTN","AUM2108A",57,0)
 ;;282.43^MICRODREPANOCYTOSIS^OCTOBER 1 1991
"RTN","AUM2108A",58,0)
 ;;282.44^SICKLE-CELL THALASSEMIA^OCTOBER 1 1991
"RTN","AUM2108A",59,0)
 ;;282.45^THALASSEMIA (ALPHA)^OCTOBER 1 1991
"RTN","AUM2108A",60,0)
 ;;282.46^THALASSEMIA (BETA)^OCTOBER 1 1991
"RTN","AUM2108A",61,0)
 ;;282.47^THALASSEMIA TRAIT^OCTOBER 1 1991
"RTN","AUM2108A",62,0)
 ;;282.48^THALASSEMIA W/OTHER HEMOGLOB^OCTOBER 1 1991
"RTN","AUM2108A",63,0)
 ;;282.49^THALASSEMIA, OTHER^OCTOBER 1 1991
"RTN","AUM2108A",64,0)
 ;;282.50^SICKLE-CELL TRAIT Hb-AS GENO^OCTOBER 1 1991
"RTN","AUM2108A",65,0)
 ;;282.59^SICKLE-CELL TRAIT, OTHER^OCTOBER 1 1991
"RTN","AUM2108A",66,0)
 ;;282.64^SICKLE-CELL DISEASE/Hb-D^OCTOBER 1 1998
"RTN","AUM2108A",67,0)
 ;;282.65^SICKLE-CELL DISEASE/Hb-E^OCTOBER 1 1998
"RTN","AUM2108A",68,0)
 ;;282.70^ABNORMAL HEMOGLOBIN, NOS^OCTOBER 1 1998
"RTN","AUM2108A",69,0)
 ;;282.71^CONGENITAL HEINZ-BODY^OCTOBER 1 1998
"RTN","AUM2108A",70,0)
 ;;282.72^HB-BART'S DISEASE/TRAIT^OCTOBER 1 1998
"RTN","AUM2108A",71,0)
 ;;282.73^HEMOGLOBIN C DISEASE/TRAIT^OCTOBER 1 1998
"RTN","AUM2108A",72,0)
 ;;282.74^HEMOGLOBIN D DISEASE/TRAIT^OCTOBER 1 1998
"RTN","AUM2108A",73,0)
 ;;282.75^HEMOGLOBIN E DISEASE/TRAIT^OCTOBER 1 1998
"RTN","AUM2108A",74,0)
 ;;282.76^HEMOGLOBIN ZURICH DIS/TRAIT^OCTOBER 1 1998
"RTN","AUM2108A",75,0)
 ;;282.77^HERED PERSISTENCE OF FETAL Hb^OCTOBER 1 1998
"RTN","AUM2108A",76,0)
 ;;282.78^UNSTABLE Hb/HEMOLYTIC DISEASE^OCTOBER 1 1998
"RTN","AUM2108A",77,0)
 ;;282.79^HEMOGLOBINOPATHIES, OTHER^OCTOBER 1 1998
"RTN","AUM2108A",78,0)
 ;;283.00^AUTOIMMUNE HEMOLYTIC DISEASE^OCTOBER 1 1998
"RTN","AUM2108A",79,0)
 ;;283.01^CHR COLD HEMAGGLUTININ DISEASE^OCTOBER 1 1998
"RTN","AUM2108A",80,0)
 ;;283.02^COLD AGGLUTININ DIS/HEMOGLOBIN^OCTOBER 1 1998
"RTN","AUM2108A",81,0)
 ;;283.03^HEMOLYTIC ANEMIA, COLD TYPE^OCTOBER 1 1998
"RTN","AUM2108A",82,0)
 ;;283.04^HEMOLYTIC ANEMIA,DRUG INDUCED^OCTOBER 1 1998
"RTN","AUM2108A",83,0)
 ;;283.05^HEMOLYTIC ANEMIA, WARM TYPE^OCTOBER 1 1998
"RTN","AUM2108A",84,0)
 ;;283.09^AUTOIMMUNE HEMOLYT, OTHER^OCTOBER 1 1998
"RTN","AUM2108A",85,0)
 ;;283.12^HEMOLYTIC ANEMIA, TOXIC^OCTOBER 1 1998
"RTN","AUM2108A",86,0)
 ;;283.13^HEMOLYTIC-UREMIC SYNDROME^OCTOBER 1 1998
"RTN","AUM2108A",87,0)
 ;;283.20^ACUTE INTRAVASCULAR HEMOLYSIS^OCTOBER 1 1998
"RTN","AUM2108A",88,0)
 ;;283.21^HEMOGLOBINURIA FROM EXERTION^OCTOBER 1 1998
"RTN","AUM2108A",89,0)
 ;;283.22^HEMOGLOBINLURIA, MARCH^OCTOBER 1 1998
"RTN","AUM2108A",90,0)
 ;;283.23^HEMOGLOBINURIA, PAROXYSMAL^OCTOBER 1 1998
"RTN","AUM2108A",91,0)
 ;;283.24^HEMOGLOBINURIA, DUE HEMOLYSIS^OCTOBER 1 1998
"RTN","AUM2108A",92,0)
 ;;283.25^MARCHIAFAVA-MICHELI^OCTOBER 1 1998
"RTN","AUM2108A",93,0)
 ;;283.29^HEMOGLOBINURIA-EXT CAUSE^OCTOBER 1 1998
"RTN","AUM2108A",94,0)
 ;;283.90^CHR IDIOPATHIC HEMOLYTIC^OCTOBER 1 1998
"RTN","AUM2108A",95,0)
 ;;283.99^ACQUIRED HEMOLYTIC, NOS^OCTOBER 1 1998
"RTN","AUM2108A",96,0)
 ;;284.00^APLASIA, RED CELL, CONGENITAL^OCTOBER 1 2001
"RTN","AUM2108A",97,0)
 ;;284.01^APLASIA, RED CELL, OF INFANTS^OCTOBER 1 2001
"RTN","AUM2108A",98,0)
 ;;284.02^APLASIA, RED CELL, PRIMARY^OCTOBER 1 2001
"RTN","AUM2108A",99,0)
 ;;284.03^BLACKFAN-DIAMOND SYNDROME^OCTOBER 1 2001
"RTN","AUM2108A",100,0)
 ;;284.04^FAMILIAL HYPOPLASTIC ANEMIA^OCTOBER 1 2001
"RTN","AUM2108A",101,0)
 ;;284.05^FANCONI'S ANEMIA^OCTOBER 1 2001
"RTN","AUM2108A",102,0)
 ;;284.06^PANCYTOPENIA W/MALFORMATIONS^OCTOBER 1 2001
"RTN","AUM2108A",103,0)
 ;;284.09^CONSTITUTIONAL APLASTIC ANEMIA^OCTOBER 1 2001
"RTN","AUM2108A",104,0)
 ;;284.80^APLASTIC-DUE TO SYSTEMIC DIS^OCTOBER 1 2001
"RTN","AUM2108A",105,0)
 ;;284.81^APLASTIC DUE TO DRUGS^OCTOBER 1 2001
"RTN","AUM2108A",106,0)
 ;;284.82^APLASTIC DUE TO INFECTION^OCTOBER 1 2001
"RTN","AUM2108A",107,0)
 ;;284.83^APLASTIC DUE TO RADIATION^OCTOBER 1 2001
"RTN","AUM2108A",108,0)
 ;;284.84^APLASTIC, TOXIC (PARALYTIC)^OCTOBER 1 2001
"RTN","AUM2108A",109,0)
 ;;284.85^PANCYTOPENIA (ACQUIRED)^OCTOBER 1 2001
"RTN","AUM2108A",110,0)
 ;;284.86^RED CELL APLASIA (PURE)^OCTOBER 1 2001
"RTN","AUM2108A",111,0)
 ;;284.87^RED CELL APLASIA (W/THYMOMA)^OCTOBER 1 2001
"RTN","AUM2108A",112,0)
 ;;284.89^OTHER SPECIFY APLASTIC, NEC^OCTOBER 1 2001
"RTN","AUM2108A",113,0)
 ;;284.90^APLASTIC (IDIOPATHIC), NOS^OCTOBER 1 2001
"RTN","AUM2108A",114,0)
 ;;284.91^ANEMIA, AREGENERATIVE^OCTOBER 1 2001
"RTN","AUM2108A",115,0)
 ;;284.92^ANEMIA, HYPOPLASTIC, NOS^OCTOBER 1 2001
"RTN","AUM2108A",116,0)
 ;;284.93^ANEMIA, NONREGENERATIVE^OCTOBER 1 2001
"RTN","AUM2108A",117,0)
 ;;284.94^ANEMIA, REFRACTORY^OCTOBER 1 2001
"RTN","AUM2108A",118,0)
 ;;284.95^MEDULLARY HYLPOPLASIA^OCTOBER 1 2001
"RTN","AUM2108A",119,0)
 ;;284.99^APLASTIC ANEMIA, OTHER^OCTOBER 1 2001
"RTN","AUM2108A",120,0)
 ;;285.00^HYPOCHROMIC W/IRON LOADING^OCTOBER 1 1991
"RTN","AUM2108A",121,0)
 ;;285.01^SIDEROACHRESTIC ANEMIA^OCTOBER 1 1991
"RTN","AUM2108A",122,0)
 ;;285.02^SIDEROBLASTIC ANEMIA, ACQUIRED^OCTOBER 1 1991
"RTN","AUM2108A",123,0)
 ;;285.03^SIDEROBLAST, CONGEN OR HERED^OCTOBER 1 1991
"RTN","AUM2108A",124,0)
 ;;285.04^SIDEROBLASTIC, PRIMARY^OCTOBER 1 1991
"RTN","AUM2108A",125,0)
 ;;285.05^SIDEROBLASTIC, REFRACTORY^OCTOBER 1 1991
"RTN","AUM2108A",126,0)
 ;;285.06^SIDEROBLASTIC, SECONDARY^OCTOBER 1 1991
"RTN","AUM2108A",127,0)
 ;;285.07^SIDEROBLASTIC, SEX-LINKED^OCTOBER 1 1991
"RTN","AUM2108A",128,0)
 ;;285.08^SIDEROBLASTIC, VIT B6^OCTOBER 1 1991
"RTN","AUM2108A",129,0)
 ;;285.09^SIDEROBLASTIC, OTHER^OCTOBER 1 1991
"RTN","AUM2108A",130,0)
 ;;285.80^DYSERYTHROPOIETIC ANEMIA^OCTOBER 1 1991
"RTN","AUM2108A",131,0)
 ;;285.81^DYSHEMATOPOIETIC ANEMIA^OCTOBER 1 1991
"RTN","AUM2108A",132,0)
 ;;285.82^LEUKOERYTHROBLASTIC ANEMIA^OCTOBER 1 1991
"RTN","AUM2108A",133,0)
 ;;285.83^VON JAKSCH'S ANEMIA^OCTOBER 1 1991
"RTN","AUM2108A",134,0)
 ;;285.84^INFANTILE PSEUDOLEUKEMIA^OCTOBER 1 1991
"RTN","AUM2108A",135,0)
 ;;285.89^OTHER SPEC ANEMIA, NEC^OCTOBER 1 1991
"RTN","AUM2108A",136,0)
 ;;285.90^ESSENTIAL ANEMIA^OCTOBER 1 1991
"RTN","AUM2108A",137,0)
 ;;285.91^NORMOCHROM NOT DU 2 BLOOD LOSS^OCTOBER 1 1991
"RTN","AUM2108A",138,0)
 ;;285.92^PROFOUND ANEMIA^OCTOBER 1 1991
"RTN","AUM2108A",139,0)
 ;;285.93^PROGRESSIVE ANEMIA^OCTOBER 1 1991
"RTN","AUM2108A",140,0)
 ;;285.94^SECONDARY ANEMIA^OCTOBER 1 1991
"RTN","AUM2108A",141,0)
 ;;285.99^ANEMIA, NOS^OCTOBER 1 1991
"RTN","AUM2108A",142,0)
 ;;291.20^DEMENTIA ASSOC W/ETOH, UNSPEC^OCTOBER 1 1998
"RTN","AUM2108A",143,0)
 ;;292.21^DEMENTIA ASSOC W/ETOH, MILD^OCTOBER 1 1998
"RTN","AUM2108A",144,0)
 ;;291.22^DEMENTIA ASSOC W/ETOH, MOD^OCTOBER 1 1998
"RTN","AUM2108A",145,0)
 ;;291.23^DEMENTIA ASSOC W/ETOH SEVERE^OCTOBER 1 1998
"RTN","AUM2108A",146,0)
 ;;304.14^PARALDEHYDE DEPENDENCE^OCTOBER 1 1998
"RTN","AUM2108A",147,0)
 ;;304.15^PLACIDYL, ETHCHLORUYNOL DEPEND^OCTOBER 1 1998
"RTN","AUM2108A",148,0)
 ;;304.16^VALIUM, DIAZEPAM DEPEND^OCTOBER 1 1998
"RTN","AUM2108A",149,0)
 ;;304.17^DORIDEN, GLUTETHIMIDE DEPEND^OCTOBER 1 1998
"RTN","AUM2108A",150,0)
 ;;304.18^BARBITURATE DEPENDENCE^OCTOBER 1 1998
"RTN","AUM2108A",151,0)
 ;;304.19^OTHER SEDATIVE OR HYPNOTIC^OCTOBER 1 1998
"RTN","AUM2108A",152,0)
 ;;304.39^OTHER CANNABIS DEPEND, NEC^OCTOBER 1 1998
"RTN","AUM2108A",153,0)
 ;;304.49^OTHER PSYCHOSTIM DEPEND^OCTOBER 1 1998
"RTN","AUM2108A",154,0)
 ;;304.59^OTHER HALLUCINOGEN DEPEND^OCTOBER 1 1998
"RTN","AUM2108A",155,0)
 ;;304.99^UNSPEC DRUG DEPEND, NEC^OCTOBER 1 1998
"RTN","AUM2108A",156,0)
 ;;304.600^PCP DEPENDENCE, UNSPECIFIED^OCTOBER 1 1987
"RTN","AUM2108A",157,0)
 ;;304.610^PCP DEPENDENCE, CONTINUOUS^OCTOBER 1 1987
"RTN","AUM2108A",158,0)
 ;;304.619^OTHER SPEC DRUG DEPEND, CONT^OCTOBER 1 1987
"RTN","AUM2108A",159,0)
 ;;304.620^PCP DEPENDENCE, EPISODIC^OCTOBER 1 1987
"RTN","AUM2108A",160,0)
 ;;304.629^OTHER SPEC DRUG DEPEND^OCTOBER 1 1987
"RTN","AUM2108A",161,0)
 ;;304.630^PCP DEPEND IN REMISSION^OCTOBER 1 1987
"RTN","AUM2108A",162,0)
 ;;304.639^OTHER SPEC DRUG DEPEND, REMISS^OCTOBER 1 1987
"RTN","AUM2108A",163,0)
 ;;304.609^OTHER SPEC DRUG DEPEND, UNSPEC^OCTOBER 1 1987
"RTN","AUM2108A",164,0)
 ;;305.29^OTHER CANNABIS USE, NEC^OCTOBER 1 1998
"RTN","AUM2108A",165,0)
 ;;305.39^OTHER HALLUCINOGEN ABUSE, NEC^OCTOBER 1 1998
"RTN","AUM2108A",166,0)
 ;;305.44^PARALDEHYDE ABUSE^OCTOBER 1 1998
"RTN","AUM2108A",167,0)
 ;;305.45^PLACIDYL, ETHCHLORUYNOL ABUSE^OCTOBER 1 1998
"RTN","AUM2108A",168,0)
 ;;305.46^VALIUM, DIAZEPAM ABUSE^OCTOBER 1 1998
"RTN","AUM2108A",169,0)
 ;;305.47^DORIDEN, GLUTETHIMIDE ABUSE^OCTOBER 1 1998
"RTN","AUM2108A",170,0)
 ;;305.48^BARBITURATES ABUSE^OCTOBER 1 1998
"RTN","AUM2108A",171,0)
 ;;305.49^OTHER SEDATIVE OR HYPNOT, NEC^OCTOBER 1 1998
"RTN","AUM2108A",172,0)
 ;;305.59^OTHER OPIOID ABUSE, NEC^OCTOBER 1 1998
"RTN","AUM2108A",173,0)
 ;;305.6^COCAINE ABUSE-UNSPEC^OCTOBER 1 2000
"RTN","AUM2108A",174,0)
 ;;305.79^OTHER SYMPATHOMIMETIC, NEC^OCTOBER 1 2000
"RTN","AUM2108A",175,0)
 ;;305.99^OTHER, MIXED, UNSPEC, NEC^OCTOBER 1 2000
"RTN","AUM2108A",176,0)
 ;;437.80^CEREBRAL/BRAIN QUADRIPLEGIA^OCTOBER 1 2000
"RTN","AUM2108A",177,0)
 ;;437.81^CEREBRAL/BRAIN PARAPLEGIA^OCTOBER 1 2000
"RTN","AUM2108A",178,0)
 ;;437.89^OTHER CEREBROVASCULAR DIS, NEC  ^OCTOBER 1 2000
"RTN","AUM2108A",179,0)
 ;;482.80^LEGIONNAIRE'S DISEASE^OCTOBER 1 2001
"RTN","AUM2108A",180,0)
 ;;518.8^LUNG DISEASE NEC^OCTOBER 1 2000
"RTN","AUM2108A",181,0)
 ;;662.32^DELAYED DELIV OF 2ND TWIN/TRIP^OCTOBER 1 2000
"RTN","AUM2108A",182,0)
 ;;669.31^ACUTE RENAL FAILURE W DELIVERY^OCTOBER 1 2001
"RTN","AUM2108A",183,0)
 ;;669.52^FORCEPS/VAC EXTRACTOR DELIVERY^OCTOBER 1 2001
"RTN","AUM2108A",184,0)
 ;;669.62^BREECH EXTRACTION, NOS, DELIVE^OCTOBER 1 2001
"RTN","AUM2108A",185,0)
 ;;669.72^CESAREAN DELIVERY, NOS, DELIVE^OCTOBER 1 2001
"RTN","AUM2108A",186,0)
 ;;706.10^CHLORACNE^OCTOBER 1 2001
"RTN","AUM2108A",187,0)
 ;;706.19^OTHER ACNE, NEC^OCTOBER 1 2001
"RTN","AUM2108A",188,0)
 ;;719.7^DIFFICULTY IN WALKING^OCTOBER 1 2001
"RTN","AUM2108A",189,0)
 ;;948.0^BODY SURFACE BURN < 10%^OCTOBER 1 2001
"RTN","AUM2108A",190,0)
 ;;948.1^10-19% BODY SURFACE BURN^OCTOBER 1 2001
"RTN","AUM2108A",191,0)
 ;;948.2^20-29% BODY SURFACE BURN^OCTOBER 1 2001
"RTN","AUM2108A",192,0)
 ;;948.3^30-39% BODY SURFACE BURN^OCTOBER 1 2001
"RTN","AUM2108A",193,0)
 ;;948.4^40-49% BODY SURFACE BURN^OCTOBER 1 2001
"RTN","AUM2108A",194,0)
 ;;948.5^50-59% BODY SURFACE BURN^OCTOBER 1 2001
"RTN","AUM2108A",195,0)
 ;;948.6^60-69% BODY SURFACE BURN^OCTOBER 1 2001
"RTN","AUM2108A",196,0)
 ;;948.7^70-79% BODY SURFACE BURN^OCTOBER 1 2001
"RTN","AUM2108A",197,0)
 ;;948.8^80-89% BODY SURFACE BURN^OCTOBER 1 2001
"RTN","AUM2108A",198,0)
 ;;948.9^*0% OR MORE BDY SURF BRN^OCTOBER 1 2001
"RTN","AUM2108A",199,0)
 ;;989.20^PHENOXY ACID HERBICIDES^OCTOBER 1 2001
"RTN","AUM2108A",200,0)
 ;;989.21^TCDD AND OTHER DIOXINS^OCTOBER 1 2001
"RTN","AUM2108A",201,0)
 ;;989.29^OTHER CHLORINATED HYDROCARBONS^OCTOBER 1 2001
"RTN","AUM2108A",202,0)
 ;;989.40^TOXIC EFFECT OF DIOXIN (AO)^OCTOBER 1 2001
"RTN","AUM2108A",203,0)
 ;;989.49^TOXIC EFFECT-OTHER PESTICIDES^OCTOBER 1 2001
"RTN","AUM2108A",204,0)
 ;;996.5^MALFUNC DEVICE/GRAFT NEC^OCTOBER 1 2000
"RTN","AUM2108A",205,0)
 ;;996.8^COMPL TRANSPLANTED ORGAN^OCTOBER 1 2001
"RTN","AUM2108A",206,0)
 ;;E956.1^SUICIDE ATTEMPTED BY CUTTING A^OCTOBER 1 2000
"RTN","AUM2108A",207,0)
 ;;E956.2^SUICIDE ACTUAL BY CUTTING AND^OCTOBER 1 2000
"RTN","AUM2108A",208,0)
 ;;V67.52^FOLLOW INACTIVE PULM TB^OCTOBER 1 2001
"RTN","AUM2108A",209,0)
 ;;V67.53^FOLLOW OTHER INACTIVE TB^OCTOBER 1 2001
"RTN","AUM2108A",210,0)
 ;;V67.54^FOLLOW INACTIVE INFECT LUNG^OCTOBER 1 2001
"RTN","AUM2108A",211,0)
 ;;V70.81^EXAM POTENTIAL ORGAN DONOR^OCTOBER 1 2001
"RTN","AUM2108A",212,0)
 ;;V70.82^EXAM OF FORMER POW^OCTOBER 1 2001
"RTN","AUM2108A",213,0)
 ;;V70.83^OTHER SPEC. GEN. MEDICAL EXAM^OCTOBER 1 2001
"RTN","AUM2108A",214,0)
 ;;V72.80^EXAM POSS EXPOSURE HERBICIDE^OCTOBER 1 2001
"RTN","AUM2108A",215,0)
 ;;V72.89^OTHER SPECIAL EXAMS^OCTOBER 1 2001
"RTN","AUM2108A",216,0)
 ;;END
"RTN","AUM2108A",217,0)
 ;
"RTN","AUM2108A",218,0)
ICD9MOD ;;-- ACTIVATE ICD DIAGNOSIS CODE 305.1: CODE^DIAGNOSIS^MAJOR DIAGNOSTIC CATEGORY^DESCRIPTION
"RTN","AUM2108A",219,0)
 ;;305.1^TOBACCO USE DISORDER^HEALTH STATUS FACTORS^TOBACCO USE DISORDER
"RTN","AUM2108A",220,0)
 ;;END
"RTN","AUM2108A",221,0)
 ;
"RTN","AUM2108A",222,0)
MEASNEW ;;-- NEW MEASUREMENT TYPE: TYPE^DESCRIPTION^CODE
"RTN","AUM2108A",223,0)
 ;;O2^O2 SATURATION^20
"RTN","AUM2108A",224,0)
 ;;PF^PEAK FLOW^21
"RTN","AUM2108A",225,0)
 ;;END
"RTN","AUM2108A",226,0)
 ;
"RTN","AUM2108M")
0^5^B787866
"RTN","AUM2108M",1,0)
AUM2108M ;IHS/SET/GTH - ICD INACTIVE FLAG AND DATE ; [ 06/28/2002   5:53 PM ]
"RTN","AUM2108M",2,0)
 ;;02.1;TABLE MAINTENANCE;**8**;SEP 28,2001
"RTN","AUM2108M",3,0)
 ;
"RTN","AUM2108M",4,0)
VAL(X,%,Y) ;EP - return background info.
"RTN","AUM2108M",5,0)
 I X["AREA" Q $T(@%)
"RTN","AUM2108M",6,0)
 S Y=0
"RTN","AUM2108M",7,0)
 I X["SU" D  Q Y
"RTN","AUM2108M",8,0)
 . NEW C,T
"RTN","AUM2108M",9,0)
 . F C=1:1 S T=$P($T(SU+C),";",3) Q:T="END"  I $P(T,U,1,2)=($E(%,1,2)_U_$E(%,3,4)) S Y=1_";;"_T Q
"RTN","AUM2108M",10,0)
 .Q
"RTN","AUM2108M",11,0)
 I '(X["CTY") Q 0
"RTN","AUM2108M",12,0)
 NEW C,T
"RTN","AUM2108M",13,0)
 F C=1:1 S T=$P($T(COUNTY+C),";",3) Q:T="END"  I $P(T,U,1,2)=($E(%,1,2)_U_$E(%,3,4)) S Y=1_";;"_T Q
"RTN","AUM2108M",14,0)
 Q Y
"RTN","AUM2108M",15,0)
 ;
"RTN","AUM2108M",16,0)
 ;
"RTN","AUM2108M",17,0)
AREA ; CODE^NAME^PREFIX/REGION^CAN PREFIX
"RTN","AUM2108M",18,0)
 ;;END
"RTN","AUM2108M",19,0)
 ;
"RTN","AUM2108M",20,0)
SU ; AREA^SU^NAME
"RTN","AUM2108M",21,0)
 ;;END
"RTN","AUM2108M",22,0)
 ;
"RTN","AUM2108M",23,0)
COUNTY ; STATE^COUNTY^NAME
"RTN","AUM2108M",24,0)
 ;;END
"RTN","AUM2108M",25,0)
 ;
"VER")
8.0T4^21.0
**END**
**END**