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

IBDEI05L.m

Go to the documentation of this file.
IBDEI05L ; ; 03-MAY-2021
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2021
 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,13438,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13438,1,3,0)
 ;;=3^Anemia in Vitamin B12 Deficiency
 ;;^UTILITY(U,$J,358.3,13438,1,4,0)
 ;;=4^D51.9
 ;;^UTILITY(U,$J,358.3,13438,2)
 ;;=^5002289
 ;;^UTILITY(U,$J,358.3,13439,0)
 ;;=C79.51^^62^652^35
 ;;^UTILITY(U,$J,358.3,13439,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13439,1,3,0)
 ;;=3^Bone Mets
 ;;^UTILITY(U,$J,358.3,13439,1,4,0)
 ;;=4^C79.51
 ;;^UTILITY(U,$J,358.3,13439,2)
 ;;=^5001350
 ;;^UTILITY(U,$J,358.3,13440,0)
 ;;=C80.1^^62^652^171
 ;;^UTILITY(U,$J,358.3,13440,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13440,1,3,0)
 ;;=3^Malig Neop,Primary,Unspec Site
 ;;^UTILITY(U,$J,358.3,13440,1,4,0)
 ;;=4^C80.1
 ;;^UTILITY(U,$J,358.3,13440,2)
 ;;=^5001389
 ;;^UTILITY(U,$J,358.3,13441,0)
 ;;=C80.0^^62^652^172
 ;;^UTILITY(U,$J,358.3,13441,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13441,1,3,0)
 ;;=3^Malig Neop,Unspec Primary or Secondary
 ;;^UTILITY(U,$J,358.3,13441,1,4,0)
 ;;=4^C80.0
 ;;^UTILITY(U,$J,358.3,13441,2)
 ;;=^5001388
 ;;^UTILITY(U,$J,358.3,13442,0)
 ;;=E28.39^^62^652^96
 ;;^UTILITY(U,$J,358.3,13442,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13442,1,3,0)
 ;;=3^Hypogonadism,Ovarian
 ;;^UTILITY(U,$J,358.3,13442,1,4,0)
 ;;=4^E28.39
 ;;^UTILITY(U,$J,358.3,13442,2)
 ;;=^5002752
 ;;^UTILITY(U,$J,358.3,13443,0)
 ;;=E29.1^^62^652^97
 ;;^UTILITY(U,$J,358.3,13443,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13443,1,3,0)
 ;;=3^Hypogonadism,Testicular
 ;;^UTILITY(U,$J,358.3,13443,1,4,0)
 ;;=4^E29.1
 ;;^UTILITY(U,$J,358.3,13443,2)
 ;;=^5002754
 ;;^UTILITY(U,$J,358.3,13444,0)
 ;;=C96.20^^62^652^111
 ;;^UTILITY(U,$J,358.3,13444,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13444,1,3,0)
 ;;=3^Malig Mast Cell Neoplasm,Unspec
 ;;^UTILITY(U,$J,358.3,13444,1,4,0)
 ;;=4^C96.20
 ;;^UTILITY(U,$J,358.3,13444,2)
 ;;=^5151293
 ;;^UTILITY(U,$J,358.3,13445,0)
 ;;=C96.22^^62^652^173
 ;;^UTILITY(U,$J,358.3,13445,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13445,1,3,0)
 ;;=3^Mast Cell Sarcoma
 ;;^UTILITY(U,$J,358.3,13445,1,4,0)
 ;;=4^C96.22
 ;;^UTILITY(U,$J,358.3,13445,2)
 ;;=^5151295
 ;;^UTILITY(U,$J,358.3,13446,0)
 ;;=D64.9^^62^652^26
 ;;^UTILITY(U,$J,358.3,13446,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13446,1,3,0)
 ;;=3^Anemia,Unspec
 ;;^UTILITY(U,$J,358.3,13446,1,4,0)
 ;;=4^D64.9
 ;;^UTILITY(U,$J,358.3,13446,2)
 ;;=^5002351
 ;;^UTILITY(U,$J,358.3,13447,0)
 ;;=D59.10^^62^652^32
 ;;^UTILITY(U,$J,358.3,13447,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13447,1,3,0)
 ;;=3^Autoimmune Hemolytic Anemia,Unspec
 ;;^UTILITY(U,$J,358.3,13447,1,4,0)
 ;;=4^D59.10
 ;;^UTILITY(U,$J,358.3,13447,2)
 ;;=^5159101
 ;;^UTILITY(U,$J,358.3,13448,0)
 ;;=D59.11^^62^652^33
 ;;^UTILITY(U,$J,358.3,13448,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13448,1,3,0)
 ;;=3^Autoimmune Hemolytic Anemia,Warm
 ;;^UTILITY(U,$J,358.3,13448,1,4,0)
 ;;=4^D59.11
 ;;^UTILITY(U,$J,358.3,13448,2)
 ;;=^5159102
 ;;^UTILITY(U,$J,358.3,13449,0)
 ;;=D59.12^^62^652^29
 ;;^UTILITY(U,$J,358.3,13449,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13449,1,3,0)
 ;;=3^Autoimmune Hemolytic Anemia,Cold
 ;;^UTILITY(U,$J,358.3,13449,1,4,0)
 ;;=4^D59.12
 ;;^UTILITY(U,$J,358.3,13449,2)
 ;;=^5159103
 ;;^UTILITY(U,$J,358.3,13450,0)
 ;;=D59.13^^62^652^30
 ;;^UTILITY(U,$J,358.3,13450,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13450,1,3,0)
 ;;=3^Autoimmune Hemolytic Anemia,Mixed Type
 ;;^UTILITY(U,$J,358.3,13450,1,4,0)
 ;;=4^D59.13
 ;;^UTILITY(U,$J,358.3,13450,2)
 ;;=^5159104
 ;;^UTILITY(U,$J,358.3,13451,0)
 ;;=D59.19^^62^652^31
 ;;^UTILITY(U,$J,358.3,13451,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13451,1,3,0)
 ;;=3^Autoimmune Hemolytic Anemia,Other
 ;;^UTILITY(U,$J,358.3,13451,1,4,0)
 ;;=4^D59.19
 ;;^UTILITY(U,$J,358.3,13451,2)
 ;;=^5159105
 ;;^UTILITY(U,$J,358.3,13452,0)
 ;;=D57.20^^62^652^201
 ;;^UTILITY(U,$J,358.3,13452,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13452,1,3,0)
 ;;=3^Sickle-Cell/Hb-C Disease w/o Crisis
 ;;^UTILITY(U,$J,358.3,13452,1,4,0)
 ;;=4^D57.20
 ;;^UTILITY(U,$J,358.3,13452,2)
 ;;=^330080
 ;;^UTILITY(U,$J,358.3,13453,0)
 ;;=D57.211^^62^652^196
 ;;^UTILITY(U,$J,358.3,13453,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13453,1,3,0)
 ;;=3^Sickle-Cell/Hb-C Disease w/ Acute Chest Syndrome
 ;;^UTILITY(U,$J,358.3,13453,1,4,0)
 ;;=4^D57.211
 ;;^UTILITY(U,$J,358.3,13453,2)
 ;;=^5002310
 ;;^UTILITY(U,$J,358.3,13454,0)
 ;;=D57.212^^62^652^200
 ;;^UTILITY(U,$J,358.3,13454,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13454,1,3,0)
 ;;=3^Sickle-Cell/Hb-C Disease w/ Splenic Sequestration
 ;;^UTILITY(U,$J,358.3,13454,1,4,0)
 ;;=4^D57.212
 ;;^UTILITY(U,$J,358.3,13454,2)
 ;;=^5002311
 ;;^UTILITY(U,$J,358.3,13455,0)
 ;;=D57.213^^62^652^197
 ;;^UTILITY(U,$J,358.3,13455,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13455,1,3,0)
 ;;=3^Sickle-Cell/Hb-C Disease w/ Cerebral Vascular Involvement
 ;;^UTILITY(U,$J,358.3,13455,1,4,0)
 ;;=4^D57.213
 ;;^UTILITY(U,$J,358.3,13455,2)
 ;;=^5159080
 ;;^UTILITY(U,$J,358.3,13456,0)
 ;;=D57.218^^62^652^198
 ;;^UTILITY(U,$J,358.3,13456,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13456,1,3,0)
 ;;=3^Sickle-Cell/Hb-C Disease w/ Crisis w/ Oth Complication
 ;;^UTILITY(U,$J,358.3,13456,1,4,0)
 ;;=4^D57.218
 ;;^UTILITY(U,$J,358.3,13456,2)
 ;;=^5159081
 ;;^UTILITY(U,$J,358.3,13457,0)
 ;;=D57.219^^62^652^199
 ;;^UTILITY(U,$J,358.3,13457,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13457,1,3,0)
 ;;=3^Sickle-Cell/Hb-C Disease w/ Crisis,Unspec
 ;;^UTILITY(U,$J,358.3,13457,1,4,0)
 ;;=4^D57.219
 ;;^UTILITY(U,$J,358.3,13457,2)
 ;;=^5002312
 ;;^UTILITY(U,$J,358.3,13458,0)
 ;;=D57.3^^62^652^195
 ;;^UTILITY(U,$J,358.3,13458,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13458,1,3,0)
 ;;=3^Sickle-Cell Trait
 ;;^UTILITY(U,$J,358.3,13458,1,4,0)
 ;;=4^D57.3
 ;;^UTILITY(U,$J,358.3,13458,2)
 ;;=^5002313
 ;;^UTILITY(U,$J,358.3,13459,0)
 ;;=D57.40^^62^652^192
 ;;^UTILITY(U,$J,358.3,13459,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13459,1,3,0)
 ;;=3^Sickle-Cell Thalassemia w/o Crisis
 ;;^UTILITY(U,$J,358.3,13459,1,4,0)
 ;;=4^D57.40
 ;;^UTILITY(U,$J,358.3,13459,2)
 ;;=^329908
 ;;^UTILITY(U,$J,358.3,13460,0)
 ;;=D57.411^^62^652^193
 ;;^UTILITY(U,$J,358.3,13460,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13460,1,3,0)
 ;;=3^Sickle-Cell Thalassemia,Unspec w/ Acute Chest Syndrome
 ;;^UTILITY(U,$J,358.3,13460,1,4,0)
 ;;=4^D57.411
 ;;^UTILITY(U,$J,358.3,13460,2)
 ;;=^5002314
 ;;^UTILITY(U,$J,358.3,13461,0)
 ;;=D57.412^^62^652^194
 ;;^UTILITY(U,$J,358.3,13461,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13461,1,3,0)
 ;;=3^Sickle-Cell Thalassemia,Unspec w/ Splenic Sequestration
 ;;^UTILITY(U,$J,358.3,13461,1,4,0)
 ;;=4^D57.412
 ;;^UTILITY(U,$J,358.3,13461,2)
 ;;=^5002315
 ;;^UTILITY(U,$J,358.3,13462,0)
 ;;=Z85.818^^62^653^86
 ;;^UTILITY(U,$J,358.3,13462,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13462,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Lip,Oral Cavity & Pharynx
 ;;^UTILITY(U,$J,358.3,13462,1,4,0)
 ;;=4^Z85.818
 ;;^UTILITY(U,$J,358.3,13462,2)
 ;;=^5063439
 ;;^UTILITY(U,$J,358.3,13463,0)
 ;;=Z85.819^^62^653^87
 ;;^UTILITY(U,$J,358.3,13463,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13463,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Lip,Oral Cavity & Pharynx,Unspec
 ;;^UTILITY(U,$J,358.3,13463,1,4,0)
 ;;=4^Z85.819
 ;;^UTILITY(U,$J,358.3,13463,2)
 ;;=^5063440
 ;;^UTILITY(U,$J,358.3,13464,0)
 ;;=Z85.01^^62^653^82
 ;;^UTILITY(U,$J,358.3,13464,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13464,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Esophagus
 ;;^UTILITY(U,$J,358.3,13464,1,4,0)
 ;;=4^Z85.01
 ;;^UTILITY(U,$J,358.3,13464,2)
 ;;=^5063395
 ;;^UTILITY(U,$J,358.3,13465,0)
 ;;=Z85.028^^62^653^93
 ;;^UTILITY(U,$J,358.3,13465,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13465,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Stomach
 ;;^UTILITY(U,$J,358.3,13465,1,4,0)
 ;;=4^Z85.028
 ;;^UTILITY(U,$J,358.3,13465,2)
 ;;=^5063397
 ;;^UTILITY(U,$J,358.3,13466,0)
 ;;=Z85.038^^62^653^84
 ;;^UTILITY(U,$J,358.3,13466,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13466,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Large Intestine
 ;;^UTILITY(U,$J,358.3,13466,1,4,0)
 ;;=4^Z85.038
 ;;^UTILITY(U,$J,358.3,13466,2)
 ;;=^5063399
 ;;^UTILITY(U,$J,358.3,13467,0)
 ;;=Z85.048^^62^653^91
 ;;^UTILITY(U,$J,358.3,13467,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13467,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Rectum,Rectosig Junct & Anus
 ;;^UTILITY(U,$J,358.3,13467,1,4,0)
 ;;=4^Z85.048
 ;;^UTILITY(U,$J,358.3,13467,2)
 ;;=^5063401
 ;;^UTILITY(U,$J,358.3,13468,0)
 ;;=Z85.118^^62^653^80
 ;;^UTILITY(U,$J,358.3,13468,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13468,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Bronchus & Lung
 ;;^UTILITY(U,$J,358.3,13468,1,4,0)
 ;;=4^Z85.118
 ;;^UTILITY(U,$J,358.3,13468,2)
 ;;=^5063408
 ;;^UTILITY(U,$J,358.3,13469,0)
 ;;=Z85.21^^62^653^85
 ;;^UTILITY(U,$J,358.3,13469,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13469,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Larynx
 ;;^UTILITY(U,$J,358.3,13469,1,4,0)
 ;;=4^Z85.21
 ;;^UTILITY(U,$J,358.3,13469,2)
 ;;=^5063411
 ;;^UTILITY(U,$J,358.3,13470,0)
 ;;=Z85.3^^62^653^79
 ;;^UTILITY(U,$J,358.3,13470,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13470,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Breast
 ;;^UTILITY(U,$J,358.3,13470,1,4,0)
 ;;=4^Z85.3
 ;;^UTILITY(U,$J,358.3,13470,2)
 ;;=^5063416
 ;;^UTILITY(U,$J,358.3,13471,0)
 ;;=Z85.41^^62^653^81
 ;;^UTILITY(U,$J,358.3,13471,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13471,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Cervix Uteri
 ;;^UTILITY(U,$J,358.3,13471,1,4,0)
 ;;=4^Z85.41
 ;;^UTILITY(U,$J,358.3,13471,2)
 ;;=^5063418
 ;;^UTILITY(U,$J,358.3,13472,0)
 ;;=Z85.43^^62^653^89
 ;;^UTILITY(U,$J,358.3,13472,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13472,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Ovary
 ;;^UTILITY(U,$J,358.3,13472,1,4,0)
 ;;=4^Z85.43
 ;;^UTILITY(U,$J,358.3,13472,2)
 ;;=^5063420
 ;;^UTILITY(U,$J,358.3,13473,0)
 ;;=Z85.46^^62^653^90
 ;;^UTILITY(U,$J,358.3,13473,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13473,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Prostate
 ;;^UTILITY(U,$J,358.3,13473,1,4,0)
 ;;=4^Z85.46
 ;;^UTILITY(U,$J,358.3,13473,2)
 ;;=^5063423
 ;;^UTILITY(U,$J,358.3,13474,0)
 ;;=Z85.47^^62^653^94
 ;;^UTILITY(U,$J,358.3,13474,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13474,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Testis
 ;;^UTILITY(U,$J,358.3,13474,1,4,0)
 ;;=4^Z85.47
 ;;^UTILITY(U,$J,358.3,13474,2)
 ;;=^5063424
 ;;^UTILITY(U,$J,358.3,13475,0)
 ;;=Z85.51^^62^653^78
 ;;^UTILITY(U,$J,358.3,13475,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13475,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Bladder
 ;;^UTILITY(U,$J,358.3,13475,1,4,0)
 ;;=4^Z85.51
 ;;^UTILITY(U,$J,358.3,13475,2)
 ;;=^5063428
 ;;^UTILITY(U,$J,358.3,13476,0)
 ;;=Z85.528^^62^653^83
 ;;^UTILITY(U,$J,358.3,13476,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13476,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Kidney
 ;;^UTILITY(U,$J,358.3,13476,1,4,0)
 ;;=4^Z85.528
 ;;^UTILITY(U,$J,358.3,13476,2)
 ;;=^5063430
 ;;^UTILITY(U,$J,358.3,13477,0)
 ;;=Z85.6^^62^653^74
 ;;^UTILITY(U,$J,358.3,13477,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13477,1,3,0)
 ;;=3^Personal Hx of Leukemia
 ;;^UTILITY(U,$J,358.3,13477,1,4,0)
 ;;=4^Z85.6
 ;;^UTILITY(U,$J,358.3,13477,2)
 ;;=^5063434
 ;;^UTILITY(U,$J,358.3,13478,0)
 ;;=Z85.72^^62^653^98
 ;;^UTILITY(U,$J,358.3,13478,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13478,1,3,0)
 ;;=3^Personal Hx of Non-Hodgkin Lymphomas
 ;;^UTILITY(U,$J,358.3,13478,1,4,0)
 ;;=4^Z85.72
 ;;^UTILITY(U,$J,358.3,13478,2)
 ;;=^5063436
 ;;^UTILITY(U,$J,358.3,13479,0)
 ;;=Z85.79^^62^653^88
 ;;^UTILITY(U,$J,358.3,13479,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13479,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Lymphoid,Hematpoetc & Rel Tissue
 ;;^UTILITY(U,$J,358.3,13479,1,4,0)
 ;;=4^Z85.79
 ;;^UTILITY(U,$J,358.3,13479,2)
 ;;=^5063437
 ;;^UTILITY(U,$J,358.3,13480,0)
 ;;=Z85.820^^62^653^77
 ;;^UTILITY(U,$J,358.3,13480,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13480,1,3,0)
 ;;=3^Personal Hx of Malig Melanoma of Skin
 ;;^UTILITY(U,$J,358.3,13480,1,4,0)
 ;;=4^Z85.820
 ;;^UTILITY(U,$J,358.3,13480,2)
 ;;=^5063441
 ;;^UTILITY(U,$J,358.3,13481,0)
 ;;=Z85.828^^62^653^92
 ;;^UTILITY(U,$J,358.3,13481,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13481,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Skin
 ;;^UTILITY(U,$J,358.3,13481,1,4,0)
 ;;=4^Z85.828
 ;;^UTILITY(U,$J,358.3,13481,2)
 ;;=^5063443
 ;;^UTILITY(U,$J,358.3,13482,0)
 ;;=Z85.71^^62^653^72
 ;;^UTILITY(U,$J,358.3,13482,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13482,1,3,0)
 ;;=3^Personal Hx of Hodgkin Lymphoma
 ;;^UTILITY(U,$J,358.3,13482,1,4,0)
 ;;=4^Z85.71
 ;;^UTILITY(U,$J,358.3,13482,2)
 ;;=^5063435
 ;;^UTILITY(U,$J,358.3,13483,0)
 ;;=Z65.8^^62^653^144
 ;;^UTILITY(U,$J,358.3,13483,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13483,1,3,0)
 ;;=3^Psychosocial Circumstance Related Problems
 ;;^UTILITY(U,$J,358.3,13483,1,4,0)
 ;;=4^Z65.8
 ;;^UTILITY(U,$J,358.3,13483,2)
 ;;=^5063185
 ;;^UTILITY(U,$J,358.3,13484,0)
 ;;=Z86.11^^62^653^109
 ;;^UTILITY(U,$J,358.3,13484,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13484,1,3,0)
 ;;=3^Personal Hx of Tuberculosis
 ;;^UTILITY(U,$J,358.3,13484,1,4,0)
 ;;=4^Z86.11
 ;;^UTILITY(U,$J,358.3,13484,2)
 ;;=^5063461
 ;;^UTILITY(U,$J,358.3,13485,0)
 ;;=Z86.13^^62^653^76
 ;;^UTILITY(U,$J,358.3,13485,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13485,1,3,0)
 ;;=3^Personal Hx of Malaria
 ;;^UTILITY(U,$J,358.3,13485,1,4,0)
 ;;=4^Z86.13
 ;;^UTILITY(U,$J,358.3,13485,2)
 ;;=^5063463
 ;;^UTILITY(U,$J,358.3,13486,0)
 ;;=Z86.73^^62^653^106
 ;;^UTILITY(U,$J,358.3,13486,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13486,1,3,0)
 ;;=3^Personal Hx of TIA & Cereb Infrc w/o Residual Deficits
 ;;^UTILITY(U,$J,358.3,13486,1,4,0)
 ;;=4^Z86.73
 ;;^UTILITY(U,$J,358.3,13486,2)
 ;;=^5063477
 ;;^UTILITY(U,$J,358.3,13487,0)
 ;;=Z86.79^^62^653^69
 ;;^UTILITY(U,$J,358.3,13487,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13487,1,3,0)
 ;;=3^Personal Hx of Circulatory System Diseases
 ;;^UTILITY(U,$J,358.3,13487,1,4,0)
 ;;=4^Z86.79
 ;;^UTILITY(U,$J,358.3,13487,2)
 ;;=^5063479
 ;;^UTILITY(U,$J,358.3,13488,0)
 ;;=Z91.040^^62^653^57
 ;;^UTILITY(U,$J,358.3,13488,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13488,1,3,0)
 ;;=3^Latex Allergy Status
 ;;^UTILITY(U,$J,358.3,13488,1,4,0)
 ;;=4^Z91.040
 ;;^UTILITY(U,$J,358.3,13488,2)
 ;;=^5063607
 ;;^UTILITY(U,$J,358.3,13489,0)
 ;;=Z92.3^^62^653^73
 ;;^UTILITY(U,$J,358.3,13489,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13489,1,3,0)
 ;;=3^Personal Hx of Irradiation
 ;;^UTILITY(U,$J,358.3,13489,1,4,0)
 ;;=4^Z92.3
 ;;^UTILITY(U,$J,358.3,13489,2)
 ;;=^5063637
 ;;^UTILITY(U,$J,358.3,13490,0)
 ;;=Z91.120^^62^653^53
 ;;^UTILITY(U,$J,358.3,13490,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13490,1,3,0)
 ;;=3^Intentional Underdose of Meds d/t Financial Hardship
 ;;^UTILITY(U,$J,358.3,13490,1,4,0)
 ;;=4^Z91.120
 ;;^UTILITY(U,$J,358.3,13490,2)
 ;;=^5063612
 ;;^UTILITY(U,$J,358.3,13491,0)
 ;;=Z91.11^^62^653^62
 ;;^UTILITY(U,$J,358.3,13491,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13491,1,3,0)
 ;;=3^Noncompliance w/ Dietary Regimen
 ;;^UTILITY(U,$J,358.3,13491,1,4,0)
 ;;=4^Z91.11
 ;;^UTILITY(U,$J,358.3,13491,2)
 ;;=^5063611
 ;;^UTILITY(U,$J,358.3,13492,0)
 ;;=Z87.891^^62^653^97
 ;;^UTILITY(U,$J,358.3,13492,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13492,1,3,0)
 ;;=3^Personal Hx of Nicotine Dependence
 ;;^UTILITY(U,$J,358.3,13492,1,4,0)
 ;;=4^Z87.891
 ;;^UTILITY(U,$J,358.3,13492,2)
 ;;=^5063518
 ;;^UTILITY(U,$J,358.3,13493,0)
 ;;=Z77.090^^62^653^3
 ;;^UTILITY(U,$J,358.3,13493,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13493,1,3,0)
 ;;=3^Asbestos Contact/Exposure
 ;;^UTILITY(U,$J,358.3,13493,1,4,0)
 ;;=4^Z77.090
 ;;^UTILITY(U,$J,358.3,13493,2)
 ;;=^5063312
 ;;^UTILITY(U,$J,358.3,13494,0)
 ;;=Z57.8^^62^653^65
 ;;^UTILITY(U,$J,358.3,13494,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13494,1,3,0)
 ;;=3^Occupational Exposure to Other Risk Factors
 ;;^UTILITY(U,$J,358.3,13494,1,4,0)
 ;;=4^Z57.8
 ;;^UTILITY(U,$J,358.3,13494,2)
 ;;=^5063127
 ;;^UTILITY(U,$J,358.3,13495,0)
 ;;=Z77.21^^62^653^46
 ;;^UTILITY(U,$J,358.3,13495,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13495,1,3,0)
 ;;=3^Hazardous Body Fluid Contact/Exposure
 ;;^UTILITY(U,$J,358.3,13495,1,4,0)
 ;;=4^Z77.21
 ;;^UTILITY(U,$J,358.3,13495,2)
 ;;=^5063323
 ;;^UTILITY(U,$J,358.3,13496,0)
 ;;=Z91.81^^62^653^50
 ;;^UTILITY(U,$J,358.3,13496,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13496,1,3,0)
 ;;=3^History of Falling
 ;;^UTILITY(U,$J,358.3,13496,1,4,0)
 ;;=4^Z91.81
 ;;^UTILITY(U,$J,358.3,13496,2)
 ;;=^5063625
 ;;^UTILITY(U,$J,358.3,13497,0)
 ;;=Z91.89^^62^653^112
 ;;^UTILITY(U,$J,358.3,13497,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13497,1,3,0)
 ;;=3^Personal Risk Factors NEC
 ;;^UTILITY(U,$J,358.3,13497,1,4,0)
 ;;=4^Z91.89
 ;;^UTILITY(U,$J,358.3,13497,2)
 ;;=^5063628
 ;;^UTILITY(U,$J,358.3,13498,0)
 ;;=Z92.89^^62^653^100
 ;;^UTILITY(U,$J,358.3,13498,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13498,1,3,0)
 ;;=3^Personal Hx of Other Medical Treatment
 ;;^UTILITY(U,$J,358.3,13498,1,4,0)
 ;;=4^Z92.89
 ;;^UTILITY(U,$J,358.3,13498,2)
 ;;=^5063641
 ;;^UTILITY(U,$J,358.3,13499,0)
 ;;=Z77.110^^62^653^1
 ;;^UTILITY(U,$J,358.3,13499,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13499,1,3,0)
 ;;=3^Air Pollution Contact/Exposure
 ;;^UTILITY(U,$J,358.3,13499,1,4,0)
 ;;=4^Z77.110
 ;;^UTILITY(U,$J,358.3,13499,2)
 ;;=^5063314
 ;;^UTILITY(U,$J,358.3,13500,0)
 ;;=Z77.112^^62^653^148
 ;;^UTILITY(U,$J,358.3,13500,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13500,1,3,0)
 ;;=3^Soil Pollution Contact/Exposure
 ;;^UTILITY(U,$J,358.3,13500,1,4,0)
 ;;=4^Z77.112
 ;;^UTILITY(U,$J,358.3,13500,2)
 ;;=^5063316
 ;;^UTILITY(U,$J,358.3,13501,0)
 ;;=Z77.111^^62^653^155
 ;;^UTILITY(U,$J,358.3,13501,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13501,1,3,0)
 ;;=3^Water Pollution Contact/Exposure
 ;;^UTILITY(U,$J,358.3,13501,1,4,0)
 ;;=4^Z77.111
 ;;^UTILITY(U,$J,358.3,13501,2)
 ;;=^5063315
 ;;^UTILITY(U,$J,358.3,13502,0)
 ;;=Z77.128^^62^653^113
 ;;^UTILITY(U,$J,358.3,13502,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13502,1,3,0)
 ;;=3^Physical Environment Hazards Contact/Exposure
 ;;^UTILITY(U,$J,358.3,13502,1,4,0)
 ;;=4^Z77.128
 ;;^UTILITY(U,$J,358.3,13502,2)
 ;;=^5063322
 ;;^UTILITY(U,$J,358.3,13503,0)
 ;;=Z77.123^^62^653^146
 ;;^UTILITY(U,$J,358.3,13503,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13503,1,3,0)
 ;;=3^Radon/Radiation Contact/Exposure
 ;;^UTILITY(U,$J,358.3,13503,1,4,0)
 ;;=4^Z77.123
 ;;^UTILITY(U,$J,358.3,13503,2)
 ;;=^5063321
 ;;^UTILITY(U,$J,358.3,13504,0)
 ;;=Z77.122^^62^653^61
 ;;^UTILITY(U,$J,358.3,13504,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13504,1,3,0)
 ;;=3^Noise Contact/Exposure
 ;;^UTILITY(U,$J,358.3,13504,1,4,0)
 ;;=4^Z77.122
 ;;^UTILITY(U,$J,358.3,13504,2)
 ;;=^5063320
 ;;^UTILITY(U,$J,358.3,13505,0)
 ;;=Z77.118^^62^653^11
 ;;^UTILITY(U,$J,358.3,13505,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13505,1,3,0)
 ;;=3^Environmental Pollution Contact/Exposure