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