Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBDEI096

IBDEI096.m

Go to the documentation of this file.
IBDEI096 ; ; 01-AUG-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
 Q:'DIFQR(358.3)  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
Q Q
 ;;^UTILITY(U,$J,358.3,22421,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22421,1,3,0)
 ;;=3^Waldenstrom Macroglobulinemia
 ;;^UTILITY(U,$J,358.3,22421,1,4,0)
 ;;=4^C88.0
 ;;^UTILITY(U,$J,358.3,22421,2)
 ;;=^5001748
 ;;^UTILITY(U,$J,358.3,22422,0)
 ;;=C91.02^^71^914^3
 ;;^UTILITY(U,$J,358.3,22422,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22422,1,3,0)
 ;;=3^Acute Lymphoblastic Leukemia,In Relapse
 ;;^UTILITY(U,$J,358.3,22422,1,4,0)
 ;;=4^C91.02
 ;;^UTILITY(U,$J,358.3,22422,2)
 ;;=^5001764
 ;;^UTILITY(U,$J,358.3,22423,0)
 ;;=C92.02^^71^914^6
 ;;^UTILITY(U,$J,358.3,22423,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22423,1,3,0)
 ;;=3^Acute Myeloblastic Leukemia,In Relapse
 ;;^UTILITY(U,$J,358.3,22423,1,4,0)
 ;;=4^C92.02
 ;;^UTILITY(U,$J,358.3,22423,2)
 ;;=^5001791
 ;;^UTILITY(U,$J,358.3,22424,0)
 ;;=D09.3^^71^914^50
 ;;^UTILITY(U,$J,358.3,22424,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22424,1,3,0)
 ;;=3^Carcinoma in Situ of Thyroid/Oth Endocrine Glands
 ;;^UTILITY(U,$J,358.3,22424,1,4,0)
 ;;=4^D09.3
 ;;^UTILITY(U,$J,358.3,22424,2)
 ;;=^5001955
 ;;^UTILITY(U,$J,358.3,22425,0)
 ;;=C22.0^^71^914^91
 ;;^UTILITY(U,$J,358.3,22425,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22425,1,3,0)
 ;;=3^Hepatocellular Carcinoma
 ;;^UTILITY(U,$J,358.3,22425,1,4,0)
 ;;=4^C22.0
 ;;^UTILITY(U,$J,358.3,22425,2)
 ;;=^5000933
 ;;^UTILITY(U,$J,358.3,22426,0)
 ;;=C24.9^^71^914^118
 ;;^UTILITY(U,$J,358.3,22426,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22426,1,3,0)
 ;;=3^Malig Neop Biliary Tract,Unspec
 ;;^UTILITY(U,$J,358.3,22426,1,4,0)
 ;;=4^C24.9
 ;;^UTILITY(U,$J,358.3,22426,2)
 ;;=^5000942
 ;;^UTILITY(U,$J,358.3,22427,0)
 ;;=C50.922^^71^914^142
 ;;^UTILITY(U,$J,358.3,22427,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22427,1,3,0)
 ;;=3^Malig Neop Left Male Breast,Unspec Site
 ;;^UTILITY(U,$J,358.3,22427,1,4,0)
 ;;=4^C50.922
 ;;^UTILITY(U,$J,358.3,22427,2)
 ;;=^5133340
 ;;^UTILITY(U,$J,358.3,22428,0)
 ;;=C34.91^^71^914^160
 ;;^UTILITY(U,$J,358.3,22428,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22428,1,3,0)
 ;;=3^Malig Neop Right Bronchus/Lung,Unspec Part
 ;;^UTILITY(U,$J,358.3,22428,1,4,0)
 ;;=4^C34.91
 ;;^UTILITY(U,$J,358.3,22428,2)
 ;;=^5000967
 ;;^UTILITY(U,$J,358.3,22429,0)
 ;;=C50.921^^71^914^164
 ;;^UTILITY(U,$J,358.3,22429,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22429,1,3,0)
 ;;=3^Malig Neop Right Male Breast,Unspec Site
 ;;^UTILITY(U,$J,358.3,22429,1,4,0)
 ;;=4^C50.921
 ;;^UTILITY(U,$J,358.3,22429,2)
 ;;=^5001198
 ;;^UTILITY(U,$J,358.3,22430,0)
 ;;=C90.02^^71^914^176
 ;;^UTILITY(U,$J,358.3,22430,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22430,1,3,0)
 ;;=3^Multiple Myeloma,In Relapse
 ;;^UTILITY(U,$J,358.3,22430,1,4,0)
 ;;=4^C90.02
 ;;^UTILITY(U,$J,358.3,22430,2)
 ;;=^5001753
 ;;^UTILITY(U,$J,358.3,22431,0)
 ;;=D51.9^^71^914^25
 ;;^UTILITY(U,$J,358.3,22431,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22431,1,3,0)
 ;;=3^Anemia in Vitamin B12 Deficiency
 ;;^UTILITY(U,$J,358.3,22431,1,4,0)
 ;;=4^D51.9
 ;;^UTILITY(U,$J,358.3,22431,2)
 ;;=^5002289
 ;;^UTILITY(U,$J,358.3,22432,0)
 ;;=C79.51^^71^914^35
 ;;^UTILITY(U,$J,358.3,22432,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22432,1,3,0)
 ;;=3^Bone Mets
 ;;^UTILITY(U,$J,358.3,22432,1,4,0)
 ;;=4^C79.51
 ;;^UTILITY(U,$J,358.3,22432,2)
 ;;=^5001350
 ;;^UTILITY(U,$J,358.3,22433,0)
 ;;=C80.1^^71^914^171
 ;;^UTILITY(U,$J,358.3,22433,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22433,1,3,0)
 ;;=3^Malig Neop,Primary,Unspec Site
 ;;^UTILITY(U,$J,358.3,22433,1,4,0)
 ;;=4^C80.1
 ;;^UTILITY(U,$J,358.3,22433,2)
 ;;=^5001389
 ;;^UTILITY(U,$J,358.3,22434,0)
 ;;=C80.0^^71^914^172
 ;;^UTILITY(U,$J,358.3,22434,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22434,1,3,0)
 ;;=3^Malig Neop,Unspec Primary or Secondary
 ;;^UTILITY(U,$J,358.3,22434,1,4,0)
 ;;=4^C80.0
 ;;^UTILITY(U,$J,358.3,22434,2)
 ;;=^5001388
 ;;^UTILITY(U,$J,358.3,22435,0)
 ;;=E28.39^^71^914^96
 ;;^UTILITY(U,$J,358.3,22435,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22435,1,3,0)
 ;;=3^Hypogonadism,Ovarian
 ;;^UTILITY(U,$J,358.3,22435,1,4,0)
 ;;=4^E28.39
 ;;^UTILITY(U,$J,358.3,22435,2)
 ;;=^5002752
 ;;^UTILITY(U,$J,358.3,22436,0)
 ;;=E29.1^^71^914^97
 ;;^UTILITY(U,$J,358.3,22436,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22436,1,3,0)
 ;;=3^Hypogonadism,Testicular
 ;;^UTILITY(U,$J,358.3,22436,1,4,0)
 ;;=4^E29.1
 ;;^UTILITY(U,$J,358.3,22436,2)
 ;;=^5002754
 ;;^UTILITY(U,$J,358.3,22437,0)
 ;;=C96.20^^71^914^111
 ;;^UTILITY(U,$J,358.3,22437,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22437,1,3,0)
 ;;=3^Malig Mast Cell Neoplasm,Unspec
 ;;^UTILITY(U,$J,358.3,22437,1,4,0)
 ;;=4^C96.20
 ;;^UTILITY(U,$J,358.3,22437,2)
 ;;=^5151293
 ;;^UTILITY(U,$J,358.3,22438,0)
 ;;=C96.22^^71^914^173
 ;;^UTILITY(U,$J,358.3,22438,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22438,1,3,0)
 ;;=3^Mast Cell Sarcoma
 ;;^UTILITY(U,$J,358.3,22438,1,4,0)
 ;;=4^C96.22
 ;;^UTILITY(U,$J,358.3,22438,2)
 ;;=^5151295
 ;;^UTILITY(U,$J,358.3,22439,0)
 ;;=D64.9^^71^914^26
 ;;^UTILITY(U,$J,358.3,22439,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22439,1,3,0)
 ;;=3^Anemia,Unspec
 ;;^UTILITY(U,$J,358.3,22439,1,4,0)
 ;;=4^D64.9
 ;;^UTILITY(U,$J,358.3,22439,2)
 ;;=^5002351
 ;;^UTILITY(U,$J,358.3,22440,0)
 ;;=D59.10^^71^914^32
 ;;^UTILITY(U,$J,358.3,22440,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22440,1,3,0)
 ;;=3^Autoimmune Hemolytic Anemia,Unspec
 ;;^UTILITY(U,$J,358.3,22440,1,4,0)
 ;;=4^D59.10
 ;;^UTILITY(U,$J,358.3,22440,2)
 ;;=^5159101
 ;;^UTILITY(U,$J,358.3,22441,0)
 ;;=D59.11^^71^914^33
 ;;^UTILITY(U,$J,358.3,22441,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22441,1,3,0)
 ;;=3^Autoimmune Hemolytic Anemia,Warm
 ;;^UTILITY(U,$J,358.3,22441,1,4,0)
 ;;=4^D59.11
 ;;^UTILITY(U,$J,358.3,22441,2)
 ;;=^5159102
 ;;^UTILITY(U,$J,358.3,22442,0)
 ;;=D59.12^^71^914^29
 ;;^UTILITY(U,$J,358.3,22442,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22442,1,3,0)
 ;;=3^Autoimmune Hemolytic Anemia,Cold
 ;;^UTILITY(U,$J,358.3,22442,1,4,0)
 ;;=4^D59.12
 ;;^UTILITY(U,$J,358.3,22442,2)
 ;;=^5159103
 ;;^UTILITY(U,$J,358.3,22443,0)
 ;;=D59.13^^71^914^30
 ;;^UTILITY(U,$J,358.3,22443,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22443,1,3,0)
 ;;=3^Autoimmune Hemolytic Anemia,Mixed Type
 ;;^UTILITY(U,$J,358.3,22443,1,4,0)
 ;;=4^D59.13
 ;;^UTILITY(U,$J,358.3,22443,2)
 ;;=^5159104
 ;;^UTILITY(U,$J,358.3,22444,0)
 ;;=D59.19^^71^914^31
 ;;^UTILITY(U,$J,358.3,22444,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22444,1,3,0)
 ;;=3^Autoimmune Hemolytic Anemia,Other
 ;;^UTILITY(U,$J,358.3,22444,1,4,0)
 ;;=4^D59.19
 ;;^UTILITY(U,$J,358.3,22444,2)
 ;;=^5159105
 ;;^UTILITY(U,$J,358.3,22445,0)
 ;;=D57.20^^71^914^201
 ;;^UTILITY(U,$J,358.3,22445,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22445,1,3,0)
 ;;=3^Sickle-Cell/Hb-C Disease w/o Crisis
 ;;^UTILITY(U,$J,358.3,22445,1,4,0)
 ;;=4^D57.20
 ;;^UTILITY(U,$J,358.3,22445,2)
 ;;=^330080
 ;;^UTILITY(U,$J,358.3,22446,0)
 ;;=D57.211^^71^914^196
 ;;^UTILITY(U,$J,358.3,22446,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22446,1,3,0)
 ;;=3^Sickle-Cell/Hb-C Disease w/ Acute Chest Syndrome
 ;;^UTILITY(U,$J,358.3,22446,1,4,0)
 ;;=4^D57.211
 ;;^UTILITY(U,$J,358.3,22446,2)
 ;;=^5002310
 ;;^UTILITY(U,$J,358.3,22447,0)
 ;;=D57.212^^71^914^200
 ;;^UTILITY(U,$J,358.3,22447,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22447,1,3,0)
 ;;=3^Sickle-Cell/Hb-C Disease w/ Splenic Sequestration
 ;;^UTILITY(U,$J,358.3,22447,1,4,0)
 ;;=4^D57.212
 ;;^UTILITY(U,$J,358.3,22447,2)
 ;;=^5002311
 ;;^UTILITY(U,$J,358.3,22448,0)
 ;;=D57.213^^71^914^197
 ;;^UTILITY(U,$J,358.3,22448,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22448,1,3,0)
 ;;=3^Sickle-Cell/Hb-C Disease w/ Cerebral Vascular Involvement
 ;;^UTILITY(U,$J,358.3,22448,1,4,0)
 ;;=4^D57.213
 ;;^UTILITY(U,$J,358.3,22448,2)
 ;;=^5159080
 ;;^UTILITY(U,$J,358.3,22449,0)
 ;;=D57.218^^71^914^198
 ;;^UTILITY(U,$J,358.3,22449,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22449,1,3,0)
 ;;=3^Sickle-Cell/Hb-C Disease w/ Crisis w/ Oth Complication
 ;;^UTILITY(U,$J,358.3,22449,1,4,0)
 ;;=4^D57.218
 ;;^UTILITY(U,$J,358.3,22449,2)
 ;;=^5159081
 ;;^UTILITY(U,$J,358.3,22450,0)
 ;;=D57.219^^71^914^199
 ;;^UTILITY(U,$J,358.3,22450,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22450,1,3,0)
 ;;=3^Sickle-Cell/Hb-C Disease w/ Crisis,Unspec
 ;;^UTILITY(U,$J,358.3,22450,1,4,0)
 ;;=4^D57.219
 ;;^UTILITY(U,$J,358.3,22450,2)
 ;;=^5002312
 ;;^UTILITY(U,$J,358.3,22451,0)
 ;;=D57.3^^71^914^195
 ;;^UTILITY(U,$J,358.3,22451,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22451,1,3,0)
 ;;=3^Sickle-Cell Trait
 ;;^UTILITY(U,$J,358.3,22451,1,4,0)
 ;;=4^D57.3
 ;;^UTILITY(U,$J,358.3,22451,2)
 ;;=^5002313
 ;;^UTILITY(U,$J,358.3,22452,0)
 ;;=D57.40^^71^914^192
 ;;^UTILITY(U,$J,358.3,22452,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22452,1,3,0)
 ;;=3^Sickle-Cell Thalassemia w/o Crisis
 ;;^UTILITY(U,$J,358.3,22452,1,4,0)
 ;;=4^D57.40
 ;;^UTILITY(U,$J,358.3,22452,2)
 ;;=^329908
 ;;^UTILITY(U,$J,358.3,22453,0)
 ;;=D57.411^^71^914^193
 ;;^UTILITY(U,$J,358.3,22453,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22453,1,3,0)
 ;;=3^Sickle-Cell Thalassemia,Unspec w/ Acute Chest Syndrome
 ;;^UTILITY(U,$J,358.3,22453,1,4,0)
 ;;=4^D57.411
 ;;^UTILITY(U,$J,358.3,22453,2)
 ;;=^5002314
 ;;^UTILITY(U,$J,358.3,22454,0)
 ;;=D57.412^^71^914^194
 ;;^UTILITY(U,$J,358.3,22454,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22454,1,3,0)
 ;;=3^Sickle-Cell Thalassemia,Unspec w/ Splenic Sequestration
 ;;^UTILITY(U,$J,358.3,22454,1,4,0)
 ;;=4^D57.412
 ;;^UTILITY(U,$J,358.3,22454,2)
 ;;=^5002315
 ;;^UTILITY(U,$J,358.3,22455,0)
 ;;=M31.10^^71^914^215
 ;;^UTILITY(U,$J,358.3,22455,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22455,1,3,0)
 ;;=3^Thrombotic Microangiopathy,Unspec
 ;;^UTILITY(U,$J,358.3,22455,1,4,0)
 ;;=4^M31.10
 ;;^UTILITY(U,$J,358.3,22455,2)
 ;;=^5161189
 ;;^UTILITY(U,$J,358.3,22456,0)
 ;;=Z85.818^^71^915^86
 ;;^UTILITY(U,$J,358.3,22456,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22456,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Lip,Oral Cavity & Pharynx
 ;;^UTILITY(U,$J,358.3,22456,1,4,0)
 ;;=4^Z85.818
 ;;^UTILITY(U,$J,358.3,22456,2)
 ;;=^5063439
 ;;^UTILITY(U,$J,358.3,22457,0)
 ;;=Z85.819^^71^915^87
 ;;^UTILITY(U,$J,358.3,22457,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22457,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Lip,Oral Cavity & Pharynx,Unspec
 ;;^UTILITY(U,$J,358.3,22457,1,4,0)
 ;;=4^Z85.819
 ;;^UTILITY(U,$J,358.3,22457,2)
 ;;=^5063440
 ;;^UTILITY(U,$J,358.3,22458,0)
 ;;=Z85.01^^71^915^82
 ;;^UTILITY(U,$J,358.3,22458,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22458,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Esophagus
 ;;^UTILITY(U,$J,358.3,22458,1,4,0)
 ;;=4^Z85.01
 ;;^UTILITY(U,$J,358.3,22458,2)
 ;;=^5063395
 ;;^UTILITY(U,$J,358.3,22459,0)
 ;;=Z85.028^^71^915^93
 ;;^UTILITY(U,$J,358.3,22459,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22459,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Stomach
 ;;^UTILITY(U,$J,358.3,22459,1,4,0)
 ;;=4^Z85.028
 ;;^UTILITY(U,$J,358.3,22459,2)
 ;;=^5063397
 ;;^UTILITY(U,$J,358.3,22460,0)
 ;;=Z85.038^^71^915^84
 ;;^UTILITY(U,$J,358.3,22460,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22460,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Large Intestine
 ;;^UTILITY(U,$J,358.3,22460,1,4,0)
 ;;=4^Z85.038
 ;;^UTILITY(U,$J,358.3,22460,2)
 ;;=^5063399
 ;;^UTILITY(U,$J,358.3,22461,0)
 ;;=Z85.048^^71^915^91
 ;;^UTILITY(U,$J,358.3,22461,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22461,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Rectum,Rectosig Junct & Anus
 ;;^UTILITY(U,$J,358.3,22461,1,4,0)
 ;;=4^Z85.048
 ;;^UTILITY(U,$J,358.3,22461,2)
 ;;=^5063401
 ;;^UTILITY(U,$J,358.3,22462,0)
 ;;=Z85.118^^71^915^80
 ;;^UTILITY(U,$J,358.3,22462,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22462,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Bronchus & Lung
 ;;^UTILITY(U,$J,358.3,22462,1,4,0)
 ;;=4^Z85.118
 ;;^UTILITY(U,$J,358.3,22462,2)
 ;;=^5063408
 ;;^UTILITY(U,$J,358.3,22463,0)
 ;;=Z85.21^^71^915^85
 ;;^UTILITY(U,$J,358.3,22463,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22463,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Larynx
 ;;^UTILITY(U,$J,358.3,22463,1,4,0)
 ;;=4^Z85.21
 ;;^UTILITY(U,$J,358.3,22463,2)
 ;;=^5063411
 ;;^UTILITY(U,$J,358.3,22464,0)
 ;;=Z85.3^^71^915^79
 ;;^UTILITY(U,$J,358.3,22464,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22464,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Breast
 ;;^UTILITY(U,$J,358.3,22464,1,4,0)
 ;;=4^Z85.3
 ;;^UTILITY(U,$J,358.3,22464,2)
 ;;=^5063416
 ;;^UTILITY(U,$J,358.3,22465,0)
 ;;=Z85.41^^71^915^81
 ;;^UTILITY(U,$J,358.3,22465,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22465,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Cervix Uteri
 ;;^UTILITY(U,$J,358.3,22465,1,4,0)
 ;;=4^Z85.41
 ;;^UTILITY(U,$J,358.3,22465,2)
 ;;=^5063418
 ;;^UTILITY(U,$J,358.3,22466,0)
 ;;=Z85.43^^71^915^89
 ;;^UTILITY(U,$J,358.3,22466,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22466,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Ovary
 ;;^UTILITY(U,$J,358.3,22466,1,4,0)
 ;;=4^Z85.43
 ;;^UTILITY(U,$J,358.3,22466,2)
 ;;=^5063420
 ;;^UTILITY(U,$J,358.3,22467,0)
 ;;=Z85.46^^71^915^90
 ;;^UTILITY(U,$J,358.3,22467,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22467,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Prostate
 ;;^UTILITY(U,$J,358.3,22467,1,4,0)
 ;;=4^Z85.46
 ;;^UTILITY(U,$J,358.3,22467,2)
 ;;=^5063423
 ;;^UTILITY(U,$J,358.3,22468,0)
 ;;=Z85.47^^71^915^94
 ;;^UTILITY(U,$J,358.3,22468,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22468,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Testis
 ;;^UTILITY(U,$J,358.3,22468,1,4,0)
 ;;=4^Z85.47
 ;;^UTILITY(U,$J,358.3,22468,2)
 ;;=^5063424
 ;;^UTILITY(U,$J,358.3,22469,0)
 ;;=Z85.51^^71^915^78
 ;;^UTILITY(U,$J,358.3,22469,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22469,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Bladder
 ;;^UTILITY(U,$J,358.3,22469,1,4,0)
 ;;=4^Z85.51
 ;;^UTILITY(U,$J,358.3,22469,2)
 ;;=^5063428
 ;;^UTILITY(U,$J,358.3,22470,0)
 ;;=Z85.528^^71^915^83
 ;;^UTILITY(U,$J,358.3,22470,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22470,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Kidney
 ;;^UTILITY(U,$J,358.3,22470,1,4,0)
 ;;=4^Z85.528
 ;;^UTILITY(U,$J,358.3,22470,2)
 ;;=^5063430
 ;;^UTILITY(U,$J,358.3,22471,0)
 ;;=Z85.6^^71^915^74
 ;;^UTILITY(U,$J,358.3,22471,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22471,1,3,0)
 ;;=3^Personal Hx of Leukemia
 ;;^UTILITY(U,$J,358.3,22471,1,4,0)
 ;;=4^Z85.6
 ;;^UTILITY(U,$J,358.3,22471,2)
 ;;=^5063434
 ;;^UTILITY(U,$J,358.3,22472,0)
 ;;=Z85.72^^71^915^98
 ;;^UTILITY(U,$J,358.3,22472,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22472,1,3,0)
 ;;=3^Personal Hx of Non-Hodgkin Lymphomas
 ;;^UTILITY(U,$J,358.3,22472,1,4,0)
 ;;=4^Z85.72
 ;;^UTILITY(U,$J,358.3,22472,2)
 ;;=^5063436
 ;;^UTILITY(U,$J,358.3,22473,0)
 ;;=Z85.79^^71^915^88
 ;;^UTILITY(U,$J,358.3,22473,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22473,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Lymphoid,Hematpoetc & Rel Tissue
 ;;^UTILITY(U,$J,358.3,22473,1,4,0)
 ;;=4^Z85.79
 ;;^UTILITY(U,$J,358.3,22473,2)
 ;;=^5063437
 ;;^UTILITY(U,$J,358.3,22474,0)
 ;;=Z85.820^^71^915^77
 ;;^UTILITY(U,$J,358.3,22474,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22474,1,3,0)
 ;;=3^Personal Hx of Malig Melanoma of Skin
 ;;^UTILITY(U,$J,358.3,22474,1,4,0)
 ;;=4^Z85.820
 ;;^UTILITY(U,$J,358.3,22474,2)
 ;;=^5063441
 ;;^UTILITY(U,$J,358.3,22475,0)
 ;;=Z85.828^^71^915^92
 ;;^UTILITY(U,$J,358.3,22475,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22475,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Skin
 ;;^UTILITY(U,$J,358.3,22475,1,4,0)
 ;;=4^Z85.828
 ;;^UTILITY(U,$J,358.3,22475,2)
 ;;=^5063443
 ;;^UTILITY(U,$J,358.3,22476,0)
 ;;=Z85.71^^71^915^72
 ;;^UTILITY(U,$J,358.3,22476,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22476,1,3,0)
 ;;=3^Personal Hx of Hodgkin Lymphoma
 ;;^UTILITY(U,$J,358.3,22476,1,4,0)
 ;;=4^Z85.71
 ;;^UTILITY(U,$J,358.3,22476,2)
 ;;=^5063435
 ;;^UTILITY(U,$J,358.3,22477,0)
 ;;=Z65.8^^71^915^144
 ;;^UTILITY(U,$J,358.3,22477,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22477,1,3,0)
 ;;=3^Psychosocial Circumstance Related Problems
 ;;^UTILITY(U,$J,358.3,22477,1,4,0)
 ;;=4^Z65.8
 ;;^UTILITY(U,$J,358.3,22477,2)
 ;;=^5063185
 ;;^UTILITY(U,$J,358.3,22478,0)
 ;;=Z86.11^^71^915^109
 ;;^UTILITY(U,$J,358.3,22478,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22478,1,3,0)
 ;;=3^Personal Hx of Tuberculosis
 ;;^UTILITY(U,$J,358.3,22478,1,4,0)
 ;;=4^Z86.11
 ;;^UTILITY(U,$J,358.3,22478,2)
 ;;=^5063461
 ;;^UTILITY(U,$J,358.3,22479,0)
 ;;=Z86.13^^71^915^76
 ;;^UTILITY(U,$J,358.3,22479,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22479,1,3,0)
 ;;=3^Personal Hx of Malaria
 ;;^UTILITY(U,$J,358.3,22479,1,4,0)
 ;;=4^Z86.13
 ;;^UTILITY(U,$J,358.3,22479,2)
 ;;=^5063463
 ;;^UTILITY(U,$J,358.3,22480,0)
 ;;=Z86.73^^71^915^106
 ;;^UTILITY(U,$J,358.3,22480,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22480,1,3,0)
 ;;=3^Personal Hx of TIA & Cereb Infrc w/o Residual Deficits
 ;;^UTILITY(U,$J,358.3,22480,1,4,0)
 ;;=4^Z86.73
 ;;^UTILITY(U,$J,358.3,22480,2)
 ;;=^5063477
 ;;^UTILITY(U,$J,358.3,22481,0)
 ;;=Z86.79^^71^915^69
 ;;^UTILITY(U,$J,358.3,22481,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22481,1,3,0)
 ;;=3^Personal Hx of Circulatory System Diseases
 ;;^UTILITY(U,$J,358.3,22481,1,4,0)
 ;;=4^Z86.79
 ;;^UTILITY(U,$J,358.3,22481,2)
 ;;=^5063479
 ;;^UTILITY(U,$J,358.3,22482,0)
 ;;=Z91.040^^71^915^57
 ;;^UTILITY(U,$J,358.3,22482,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22482,1,3,0)
 ;;=3^Latex Allergy Status
 ;;^UTILITY(U,$J,358.3,22482,1,4,0)
 ;;=4^Z91.040
 ;;^UTILITY(U,$J,358.3,22482,2)
 ;;=^5063607
 ;;^UTILITY(U,$J,358.3,22483,0)
 ;;=Z92.3^^71^915^73
 ;;^UTILITY(U,$J,358.3,22483,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22483,1,3,0)
 ;;=3^Personal Hx of Irradiation
 ;;^UTILITY(U,$J,358.3,22483,1,4,0)
 ;;=4^Z92.3
 ;;^UTILITY(U,$J,358.3,22483,2)
 ;;=^5063637
 ;;^UTILITY(U,$J,358.3,22484,0)
 ;;=Z91.120^^71^915^53
 ;;^UTILITY(U,$J,358.3,22484,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22484,1,3,0)
 ;;=3^Intentional Underdose of Meds d/t Financial Hardship
 ;;^UTILITY(U,$J,358.3,22484,1,4,0)
 ;;=4^Z91.120
 ;;^UTILITY(U,$J,358.3,22484,2)
 ;;=^5063612
 ;;^UTILITY(U,$J,358.3,22485,0)
 ;;=Z91.11^^71^915^62
 ;;^UTILITY(U,$J,358.3,22485,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22485,1,3,0)
 ;;=3^Noncompliance w/ Dietary Regimen
 ;;^UTILITY(U,$J,358.3,22485,1,4,0)
 ;;=4^Z91.11
 ;;^UTILITY(U,$J,358.3,22485,2)
 ;;=^5063611
 ;;^UTILITY(U,$J,358.3,22486,0)
 ;;=Z87.891^^71^915^97
 ;;^UTILITY(U,$J,358.3,22486,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22486,1,3,0)
 ;;=3^Personal Hx of Nicotine Dependence
 ;;^UTILITY(U,$J,358.3,22486,1,4,0)
 ;;=4^Z87.891
 ;;^UTILITY(U,$J,358.3,22486,2)
 ;;=^5063518
 ;;^UTILITY(U,$J,358.3,22487,0)
 ;;=Z77.090^^71^915^3
 ;;^UTILITY(U,$J,358.3,22487,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22487,1,3,0)
 ;;=3^Asbestos Contact/Exposure
 ;;^UTILITY(U,$J,358.3,22487,1,4,0)
 ;;=4^Z77.090
 ;;^UTILITY(U,$J,358.3,22487,2)
 ;;=^5063312
 ;;^UTILITY(U,$J,358.3,22488,0)
 ;;=Z57.8^^71^915^65
 ;;^UTILITY(U,$J,358.3,22488,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22488,1,3,0)
 ;;=3^Occupational Exposure to Other Risk Factors