IBDEI06D ; ; 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,15436,1,3,0)
;;=3^Malig Neop,Unspec Primary or Secondary
;;^UTILITY(U,$J,358.3,15436,1,4,0)
;;=4^C80.0
;;^UTILITY(U,$J,358.3,15436,2)
;;=^5001388
;;^UTILITY(U,$J,358.3,15437,0)
;;=E28.39^^56^644^96
;;^UTILITY(U,$J,358.3,15437,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15437,1,3,0)
;;=3^Hypogonadism,Ovarian
;;^UTILITY(U,$J,358.3,15437,1,4,0)
;;=4^E28.39
;;^UTILITY(U,$J,358.3,15437,2)
;;=^5002752
;;^UTILITY(U,$J,358.3,15438,0)
;;=E29.1^^56^644^97
;;^UTILITY(U,$J,358.3,15438,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15438,1,3,0)
;;=3^Hypogonadism,Testicular
;;^UTILITY(U,$J,358.3,15438,1,4,0)
;;=4^E29.1
;;^UTILITY(U,$J,358.3,15438,2)
;;=^5002754
;;^UTILITY(U,$J,358.3,15439,0)
;;=C96.20^^56^644^111
;;^UTILITY(U,$J,358.3,15439,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15439,1,3,0)
;;=3^Malig Mast Cell Neoplasm,Unspec
;;^UTILITY(U,$J,358.3,15439,1,4,0)
;;=4^C96.20
;;^UTILITY(U,$J,358.3,15439,2)
;;=^5151293
;;^UTILITY(U,$J,358.3,15440,0)
;;=C96.22^^56^644^173
;;^UTILITY(U,$J,358.3,15440,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15440,1,3,0)
;;=3^Mast Cell Sarcoma
;;^UTILITY(U,$J,358.3,15440,1,4,0)
;;=4^C96.22
;;^UTILITY(U,$J,358.3,15440,2)
;;=^5151295
;;^UTILITY(U,$J,358.3,15441,0)
;;=D64.9^^56^644^26
;;^UTILITY(U,$J,358.3,15441,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15441,1,3,0)
;;=3^Anemia,Unspec
;;^UTILITY(U,$J,358.3,15441,1,4,0)
;;=4^D64.9
;;^UTILITY(U,$J,358.3,15441,2)
;;=^5002351
;;^UTILITY(U,$J,358.3,15442,0)
;;=D59.10^^56^644^32
;;^UTILITY(U,$J,358.3,15442,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15442,1,3,0)
;;=3^Autoimmune Hemolytic Anemia,Unspec
;;^UTILITY(U,$J,358.3,15442,1,4,0)
;;=4^D59.10
;;^UTILITY(U,$J,358.3,15442,2)
;;=^5159101
;;^UTILITY(U,$J,358.3,15443,0)
;;=D59.11^^56^644^33
;;^UTILITY(U,$J,358.3,15443,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15443,1,3,0)
;;=3^Autoimmune Hemolytic Anemia,Warm
;;^UTILITY(U,$J,358.3,15443,1,4,0)
;;=4^D59.11
;;^UTILITY(U,$J,358.3,15443,2)
;;=^5159102
;;^UTILITY(U,$J,358.3,15444,0)
;;=D59.12^^56^644^29
;;^UTILITY(U,$J,358.3,15444,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15444,1,3,0)
;;=3^Autoimmune Hemolytic Anemia,Cold
;;^UTILITY(U,$J,358.3,15444,1,4,0)
;;=4^D59.12
;;^UTILITY(U,$J,358.3,15444,2)
;;=^5159103
;;^UTILITY(U,$J,358.3,15445,0)
;;=D59.13^^56^644^30
;;^UTILITY(U,$J,358.3,15445,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15445,1,3,0)
;;=3^Autoimmune Hemolytic Anemia,Mixed Type
;;^UTILITY(U,$J,358.3,15445,1,4,0)
;;=4^D59.13
;;^UTILITY(U,$J,358.3,15445,2)
;;=^5159104
;;^UTILITY(U,$J,358.3,15446,0)
;;=D59.19^^56^644^31
;;^UTILITY(U,$J,358.3,15446,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15446,1,3,0)
;;=3^Autoimmune Hemolytic Anemia,Other
;;^UTILITY(U,$J,358.3,15446,1,4,0)
;;=4^D59.19
;;^UTILITY(U,$J,358.3,15446,2)
;;=^5159105
;;^UTILITY(U,$J,358.3,15447,0)
;;=D57.20^^56^644^201
;;^UTILITY(U,$J,358.3,15447,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15447,1,3,0)
;;=3^Sickle-Cell/Hb-C Disease w/o Crisis
;;^UTILITY(U,$J,358.3,15447,1,4,0)
;;=4^D57.20
;;^UTILITY(U,$J,358.3,15447,2)
;;=^330080
;;^UTILITY(U,$J,358.3,15448,0)
;;=D57.211^^56^644^196
;;^UTILITY(U,$J,358.3,15448,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15448,1,3,0)
;;=3^Sickle-Cell/Hb-C Disease w/ Acute Chest Syndrome
;;^UTILITY(U,$J,358.3,15448,1,4,0)
;;=4^D57.211
;;^UTILITY(U,$J,358.3,15448,2)
;;=^5002310
;;^UTILITY(U,$J,358.3,15449,0)
;;=D57.212^^56^644^200
;;^UTILITY(U,$J,358.3,15449,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15449,1,3,0)
;;=3^Sickle-Cell/Hb-C Disease w/ Splenic Sequestration
;;^UTILITY(U,$J,358.3,15449,1,4,0)
;;=4^D57.212
;;^UTILITY(U,$J,358.3,15449,2)
;;=^5002311
;;^UTILITY(U,$J,358.3,15450,0)
;;=D57.213^^56^644^197
;;^UTILITY(U,$J,358.3,15450,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15450,1,3,0)
;;=3^Sickle-Cell/Hb-C Disease w/ Cerebral Vascular Involvement
;;^UTILITY(U,$J,358.3,15450,1,4,0)
;;=4^D57.213
;;^UTILITY(U,$J,358.3,15450,2)
;;=^5159080
;;^UTILITY(U,$J,358.3,15451,0)
;;=D57.218^^56^644^198
;;^UTILITY(U,$J,358.3,15451,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15451,1,3,0)
;;=3^Sickle-Cell/Hb-C Disease w/ Crisis w/ Oth Complication
;;^UTILITY(U,$J,358.3,15451,1,4,0)
;;=4^D57.218
;;^UTILITY(U,$J,358.3,15451,2)
;;=^5159081
;;^UTILITY(U,$J,358.3,15452,0)
;;=D57.219^^56^644^199
;;^UTILITY(U,$J,358.3,15452,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15452,1,3,0)
;;=3^Sickle-Cell/Hb-C Disease w/ Crisis,Unspec
;;^UTILITY(U,$J,358.3,15452,1,4,0)
;;=4^D57.219
;;^UTILITY(U,$J,358.3,15452,2)
;;=^5002312
;;^UTILITY(U,$J,358.3,15453,0)
;;=D57.3^^56^644^195
;;^UTILITY(U,$J,358.3,15453,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15453,1,3,0)
;;=3^Sickle-Cell Trait
;;^UTILITY(U,$J,358.3,15453,1,4,0)
;;=4^D57.3
;;^UTILITY(U,$J,358.3,15453,2)
;;=^5002313
;;^UTILITY(U,$J,358.3,15454,0)
;;=D57.40^^56^644^192
;;^UTILITY(U,$J,358.3,15454,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15454,1,3,0)
;;=3^Sickle-Cell Thalassemia w/o Crisis
;;^UTILITY(U,$J,358.3,15454,1,4,0)
;;=4^D57.40
;;^UTILITY(U,$J,358.3,15454,2)
;;=^329908
;;^UTILITY(U,$J,358.3,15455,0)
;;=D57.411^^56^644^193
;;^UTILITY(U,$J,358.3,15455,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15455,1,3,0)
;;=3^Sickle-Cell Thalassemia,Unspec w/ Acute Chest Syndrome
;;^UTILITY(U,$J,358.3,15455,1,4,0)
;;=4^D57.411
;;^UTILITY(U,$J,358.3,15455,2)
;;=^5002314
;;^UTILITY(U,$J,358.3,15456,0)
;;=D57.412^^56^644^194
;;^UTILITY(U,$J,358.3,15456,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15456,1,3,0)
;;=3^Sickle-Cell Thalassemia,Unspec w/ Splenic Sequestration
;;^UTILITY(U,$J,358.3,15456,1,4,0)
;;=4^D57.412
;;^UTILITY(U,$J,358.3,15456,2)
;;=^5002315
;;^UTILITY(U,$J,358.3,15457,0)
;;=M31.10^^56^644^215
;;^UTILITY(U,$J,358.3,15457,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15457,1,3,0)
;;=3^Thrombotic Microangiopathy,Unspec
;;^UTILITY(U,$J,358.3,15457,1,4,0)
;;=4^M31.10
;;^UTILITY(U,$J,358.3,15457,2)
;;=^5161189
;;^UTILITY(U,$J,358.3,15458,0)
;;=Z85.818^^56^645^86
;;^UTILITY(U,$J,358.3,15458,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15458,1,3,0)
;;=3^Personal Hx of Malig Neop of Lip,Oral Cavity & Pharynx
;;^UTILITY(U,$J,358.3,15458,1,4,0)
;;=4^Z85.818
;;^UTILITY(U,$J,358.3,15458,2)
;;=^5063439
;;^UTILITY(U,$J,358.3,15459,0)
;;=Z85.819^^56^645^87
;;^UTILITY(U,$J,358.3,15459,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15459,1,3,0)
;;=3^Personal Hx of Malig Neop of Lip,Oral Cavity & Pharynx,Unspec
;;^UTILITY(U,$J,358.3,15459,1,4,0)
;;=4^Z85.819
;;^UTILITY(U,$J,358.3,15459,2)
;;=^5063440
;;^UTILITY(U,$J,358.3,15460,0)
;;=Z85.01^^56^645^82
;;^UTILITY(U,$J,358.3,15460,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15460,1,3,0)
;;=3^Personal Hx of Malig Neop of Esophagus
;;^UTILITY(U,$J,358.3,15460,1,4,0)
;;=4^Z85.01
;;^UTILITY(U,$J,358.3,15460,2)
;;=^5063395
;;^UTILITY(U,$J,358.3,15461,0)
;;=Z85.028^^56^645^93
;;^UTILITY(U,$J,358.3,15461,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15461,1,3,0)
;;=3^Personal Hx of Malig Neop of Stomach
;;^UTILITY(U,$J,358.3,15461,1,4,0)
;;=4^Z85.028
;;^UTILITY(U,$J,358.3,15461,2)
;;=^5063397
;;^UTILITY(U,$J,358.3,15462,0)
;;=Z85.038^^56^645^84
;;^UTILITY(U,$J,358.3,15462,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15462,1,3,0)
;;=3^Personal Hx of Malig Neop of Large Intestine
;;^UTILITY(U,$J,358.3,15462,1,4,0)
;;=4^Z85.038
;;^UTILITY(U,$J,358.3,15462,2)
;;=^5063399
;;^UTILITY(U,$J,358.3,15463,0)
;;=Z85.048^^56^645^91
;;^UTILITY(U,$J,358.3,15463,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15463,1,3,0)
;;=3^Personal Hx of Malig Neop of Rectum,Rectosig Junct & Anus
;;^UTILITY(U,$J,358.3,15463,1,4,0)
;;=4^Z85.048
;;^UTILITY(U,$J,358.3,15463,2)
;;=^5063401
;;^UTILITY(U,$J,358.3,15464,0)
;;=Z85.118^^56^645^80
;;^UTILITY(U,$J,358.3,15464,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15464,1,3,0)
;;=3^Personal Hx of Malig Neop of Bronchus & Lung
;;^UTILITY(U,$J,358.3,15464,1,4,0)
;;=4^Z85.118
;;^UTILITY(U,$J,358.3,15464,2)
;;=^5063408
;;^UTILITY(U,$J,358.3,15465,0)
;;=Z85.21^^56^645^85
;;^UTILITY(U,$J,358.3,15465,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15465,1,3,0)
;;=3^Personal Hx of Malig Neop of Larynx
;;^UTILITY(U,$J,358.3,15465,1,4,0)
;;=4^Z85.21
;;^UTILITY(U,$J,358.3,15465,2)
;;=^5063411
;;^UTILITY(U,$J,358.3,15466,0)
;;=Z85.3^^56^645^79
;;^UTILITY(U,$J,358.3,15466,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15466,1,3,0)
;;=3^Personal Hx of Malig Neop of Breast
;;^UTILITY(U,$J,358.3,15466,1,4,0)
;;=4^Z85.3
;;^UTILITY(U,$J,358.3,15466,2)
;;=^5063416
;;^UTILITY(U,$J,358.3,15467,0)
;;=Z85.41^^56^645^81
;;^UTILITY(U,$J,358.3,15467,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15467,1,3,0)
;;=3^Personal Hx of Malig Neop of Cervix Uteri
;;^UTILITY(U,$J,358.3,15467,1,4,0)
;;=4^Z85.41
;;^UTILITY(U,$J,358.3,15467,2)
;;=^5063418
;;^UTILITY(U,$J,358.3,15468,0)
;;=Z85.43^^56^645^89
;;^UTILITY(U,$J,358.3,15468,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15468,1,3,0)
;;=3^Personal Hx of Malig Neop of Ovary
;;^UTILITY(U,$J,358.3,15468,1,4,0)
;;=4^Z85.43
;;^UTILITY(U,$J,358.3,15468,2)
;;=^5063420
;;^UTILITY(U,$J,358.3,15469,0)
;;=Z85.46^^56^645^90
;;^UTILITY(U,$J,358.3,15469,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15469,1,3,0)
;;=3^Personal Hx of Malig Neop of Prostate
;;^UTILITY(U,$J,358.3,15469,1,4,0)
;;=4^Z85.46
;;^UTILITY(U,$J,358.3,15469,2)
;;=^5063423
;;^UTILITY(U,$J,358.3,15470,0)
;;=Z85.47^^56^645^94
;;^UTILITY(U,$J,358.3,15470,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15470,1,3,0)
;;=3^Personal Hx of Malig Neop of Testis
;;^UTILITY(U,$J,358.3,15470,1,4,0)
;;=4^Z85.47
;;^UTILITY(U,$J,358.3,15470,2)
;;=^5063424
;;^UTILITY(U,$J,358.3,15471,0)
;;=Z85.51^^56^645^78
;;^UTILITY(U,$J,358.3,15471,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15471,1,3,0)
;;=3^Personal Hx of Malig Neop of Bladder
;;^UTILITY(U,$J,358.3,15471,1,4,0)
;;=4^Z85.51
;;^UTILITY(U,$J,358.3,15471,2)
;;=^5063428
;;^UTILITY(U,$J,358.3,15472,0)
;;=Z85.528^^56^645^83
;;^UTILITY(U,$J,358.3,15472,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15472,1,3,0)
;;=3^Personal Hx of Malig Neop of Kidney
;;^UTILITY(U,$J,358.3,15472,1,4,0)
;;=4^Z85.528
;;^UTILITY(U,$J,358.3,15472,2)
;;=^5063430
;;^UTILITY(U,$J,358.3,15473,0)
;;=Z85.6^^56^645^74
;;^UTILITY(U,$J,358.3,15473,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15473,1,3,0)
;;=3^Personal Hx of Leukemia
;;^UTILITY(U,$J,358.3,15473,1,4,0)
;;=4^Z85.6
;;^UTILITY(U,$J,358.3,15473,2)
;;=^5063434
;;^UTILITY(U,$J,358.3,15474,0)
;;=Z85.72^^56^645^98
;;^UTILITY(U,$J,358.3,15474,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15474,1,3,0)
;;=3^Personal Hx of Non-Hodgkin Lymphomas
;;^UTILITY(U,$J,358.3,15474,1,4,0)
;;=4^Z85.72
;;^UTILITY(U,$J,358.3,15474,2)
;;=^5063436
;;^UTILITY(U,$J,358.3,15475,0)
;;=Z85.79^^56^645^88
;;^UTILITY(U,$J,358.3,15475,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15475,1,3,0)
;;=3^Personal Hx of Malig Neop of Lymphoid,Hematpoetc & Rel Tissue
;;^UTILITY(U,$J,358.3,15475,1,4,0)
;;=4^Z85.79
;;^UTILITY(U,$J,358.3,15475,2)
;;=^5063437
;;^UTILITY(U,$J,358.3,15476,0)
;;=Z85.820^^56^645^77
;;^UTILITY(U,$J,358.3,15476,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15476,1,3,0)
;;=3^Personal Hx of Malig Melanoma of Skin
;;^UTILITY(U,$J,358.3,15476,1,4,0)
;;=4^Z85.820
;;^UTILITY(U,$J,358.3,15476,2)
;;=^5063441
;;^UTILITY(U,$J,358.3,15477,0)
;;=Z85.828^^56^645^92
;;^UTILITY(U,$J,358.3,15477,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15477,1,3,0)
;;=3^Personal Hx of Malig Neop of Skin
;;^UTILITY(U,$J,358.3,15477,1,4,0)
;;=4^Z85.828
;;^UTILITY(U,$J,358.3,15477,2)
;;=^5063443
;;^UTILITY(U,$J,358.3,15478,0)
;;=Z85.71^^56^645^72
;;^UTILITY(U,$J,358.3,15478,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15478,1,3,0)
;;=3^Personal Hx of Hodgkin Lymphoma
;;^UTILITY(U,$J,358.3,15478,1,4,0)
;;=4^Z85.71
;;^UTILITY(U,$J,358.3,15478,2)
;;=^5063435
;;^UTILITY(U,$J,358.3,15479,0)
;;=Z65.8^^56^645^144
;;^UTILITY(U,$J,358.3,15479,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15479,1,3,0)
;;=3^Psychosocial Circumstance Related Problems
;;^UTILITY(U,$J,358.3,15479,1,4,0)
;;=4^Z65.8
;;^UTILITY(U,$J,358.3,15479,2)
;;=^5063185
;;^UTILITY(U,$J,358.3,15480,0)
;;=Z86.11^^56^645^109
;;^UTILITY(U,$J,358.3,15480,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15480,1,3,0)
;;=3^Personal Hx of Tuberculosis
;;^UTILITY(U,$J,358.3,15480,1,4,0)
;;=4^Z86.11
;;^UTILITY(U,$J,358.3,15480,2)
;;=^5063461
;;^UTILITY(U,$J,358.3,15481,0)
;;=Z86.13^^56^645^76
;;^UTILITY(U,$J,358.3,15481,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15481,1,3,0)
;;=3^Personal Hx of Malaria
;;^UTILITY(U,$J,358.3,15481,1,4,0)
;;=4^Z86.13
;;^UTILITY(U,$J,358.3,15481,2)
;;=^5063463
;;^UTILITY(U,$J,358.3,15482,0)
;;=Z86.73^^56^645^106
;;^UTILITY(U,$J,358.3,15482,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15482,1,3,0)
;;=3^Personal Hx of TIA & Cereb Infrc w/o Residual Deficits
;;^UTILITY(U,$J,358.3,15482,1,4,0)
;;=4^Z86.73
;;^UTILITY(U,$J,358.3,15482,2)
;;=^5063477
;;^UTILITY(U,$J,358.3,15483,0)
;;=Z86.79^^56^645^69
;;^UTILITY(U,$J,358.3,15483,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15483,1,3,0)
;;=3^Personal Hx of Circulatory System Diseases
;;^UTILITY(U,$J,358.3,15483,1,4,0)
;;=4^Z86.79
;;^UTILITY(U,$J,358.3,15483,2)
;;=^5063479
;;^UTILITY(U,$J,358.3,15484,0)
;;=Z91.040^^56^645^57
;;^UTILITY(U,$J,358.3,15484,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15484,1,3,0)
;;=3^Latex Allergy Status
;;^UTILITY(U,$J,358.3,15484,1,4,0)
;;=4^Z91.040
;;^UTILITY(U,$J,358.3,15484,2)
;;=^5063607
;;^UTILITY(U,$J,358.3,15485,0)
;;=Z92.3^^56^645^73
;;^UTILITY(U,$J,358.3,15485,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15485,1,3,0)
;;=3^Personal Hx of Irradiation
;;^UTILITY(U,$J,358.3,15485,1,4,0)
;;=4^Z92.3
;;^UTILITY(U,$J,358.3,15485,2)
;;=^5063637
;;^UTILITY(U,$J,358.3,15486,0)
;;=Z91.120^^56^645^53
;;^UTILITY(U,$J,358.3,15486,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15486,1,3,0)
;;=3^Intentional Underdose of Meds d/t Financial Hardship
;;^UTILITY(U,$J,358.3,15486,1,4,0)
;;=4^Z91.120
;;^UTILITY(U,$J,358.3,15486,2)
;;=^5063612
;;^UTILITY(U,$J,358.3,15487,0)
;;=Z91.11^^56^645^62
;;^UTILITY(U,$J,358.3,15487,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15487,1,3,0)
;;=3^Noncompliance w/ Dietary Regimen
;;^UTILITY(U,$J,358.3,15487,1,4,0)
;;=4^Z91.11
;;^UTILITY(U,$J,358.3,15487,2)
;;=^5063611
;;^UTILITY(U,$J,358.3,15488,0)
;;=Z87.891^^56^645^97
;;^UTILITY(U,$J,358.3,15488,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15488,1,3,0)
;;=3^Personal Hx of Nicotine Dependence
;;^UTILITY(U,$J,358.3,15488,1,4,0)
;;=4^Z87.891
;;^UTILITY(U,$J,358.3,15488,2)
;;=^5063518
;;^UTILITY(U,$J,358.3,15489,0)
;;=Z77.090^^56^645^3
;;^UTILITY(U,$J,358.3,15489,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15489,1,3,0)
;;=3^Asbestos Contact/Exposure
;;^UTILITY(U,$J,358.3,15489,1,4,0)
;;=4^Z77.090
;;^UTILITY(U,$J,358.3,15489,2)
;;=^5063312
;;^UTILITY(U,$J,358.3,15490,0)
;;=Z57.8^^56^645^65
;;^UTILITY(U,$J,358.3,15490,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15490,1,3,0)
;;=3^Occupational Exposure to Other Risk Factors
;;^UTILITY(U,$J,358.3,15490,1,4,0)
;;=4^Z57.8
;;^UTILITY(U,$J,358.3,15490,2)
;;=^5063127
;;^UTILITY(U,$J,358.3,15491,0)
;;=Z77.21^^56^645^46
;;^UTILITY(U,$J,358.3,15491,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15491,1,3,0)
;;=3^Hazardous Body Fluid Contact/Exposure
;;^UTILITY(U,$J,358.3,15491,1,4,0)
;;=4^Z77.21
;;^UTILITY(U,$J,358.3,15491,2)
;;=^5063323
;;^UTILITY(U,$J,358.3,15492,0)
;;=Z91.81^^56^645^50
;;^UTILITY(U,$J,358.3,15492,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15492,1,3,0)
;;=3^History of Falling
;;^UTILITY(U,$J,358.3,15492,1,4,0)
;;=4^Z91.81
;;^UTILITY(U,$J,358.3,15492,2)
;;=^5063625
;;^UTILITY(U,$J,358.3,15493,0)
;;=Z91.89^^56^645^112
;;^UTILITY(U,$J,358.3,15493,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15493,1,3,0)
;;=3^Personal Risk Factors NEC
;;^UTILITY(U,$J,358.3,15493,1,4,0)
;;=4^Z91.89
;;^UTILITY(U,$J,358.3,15493,2)
;;=^5063628
;;^UTILITY(U,$J,358.3,15494,0)
;;=Z92.89^^56^645^100
;;^UTILITY(U,$J,358.3,15494,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15494,1,3,0)
;;=3^Personal Hx of Other Medical Treatment
;;^UTILITY(U,$J,358.3,15494,1,4,0)
;;=4^Z92.89
;;^UTILITY(U,$J,358.3,15494,2)
;;=^5063641
;;^UTILITY(U,$J,358.3,15495,0)
;;=Z77.110^^56^645^1
;;^UTILITY(U,$J,358.3,15495,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15495,1,3,0)
;;=3^Air Pollution Contact/Exposure
;;^UTILITY(U,$J,358.3,15495,1,4,0)
;;=4^Z77.110
;;^UTILITY(U,$J,358.3,15495,2)
;;=^5063314
;;^UTILITY(U,$J,358.3,15496,0)
;;=Z77.112^^56^645^148
;;^UTILITY(U,$J,358.3,15496,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15496,1,3,0)
;;=3^Soil Pollution Contact/Exposure
;;^UTILITY(U,$J,358.3,15496,1,4,0)
;;=4^Z77.112
;;^UTILITY(U,$J,358.3,15496,2)
;;=^5063316
;;^UTILITY(U,$J,358.3,15497,0)
;;=Z77.111^^56^645^155
;;^UTILITY(U,$J,358.3,15497,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15497,1,3,0)
;;=3^Water Pollution Contact/Exposure
;;^UTILITY(U,$J,358.3,15497,1,4,0)
;;=4^Z77.111
;;^UTILITY(U,$J,358.3,15497,2)
;;=^5063315
;;^UTILITY(U,$J,358.3,15498,0)
;;=Z77.128^^56^645^113
;;^UTILITY(U,$J,358.3,15498,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15498,1,3,0)
;;=3^Physical Environment Hazards Contact/Exposure
;;^UTILITY(U,$J,358.3,15498,1,4,0)
;;=4^Z77.128
;;^UTILITY(U,$J,358.3,15498,2)
;;=^5063322
;;^UTILITY(U,$J,358.3,15499,0)
;;=Z77.123^^56^645^146
;;^UTILITY(U,$J,358.3,15499,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15499,1,3,0)
;;=3^Radon/Radiation Contact/Exposure
;;^UTILITY(U,$J,358.3,15499,1,4,0)
;;=4^Z77.123
;;^UTILITY(U,$J,358.3,15499,2)
;;=^5063321
;;^UTILITY(U,$J,358.3,15500,0)
;;=Z77.122^^56^645^61
;;^UTILITY(U,$J,358.3,15500,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15500,1,3,0)
;;=3^Noise Contact/Exposure
;;^UTILITY(U,$J,358.3,15500,1,4,0)
;;=4^Z77.122
;;^UTILITY(U,$J,358.3,15500,2)
;;=^5063320
;;^UTILITY(U,$J,358.3,15501,0)
;;=Z77.118^^56^645^11
;;^UTILITY(U,$J,358.3,15501,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15501,1,3,0)
;;=3^Environmental Pollution Contact/Exposure
;;^UTILITY(U,$J,358.3,15501,1,4,0)
;;=4^Z77.118
;;^UTILITY(U,$J,358.3,15501,2)
;;=^5063317
;;^UTILITY(U,$J,358.3,15502,0)
;;=Z77.9^^56^645^47
;;^UTILITY(U,$J,358.3,15502,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15502,1,3,0)
;;=3^Health Hazard Contact/Exposure
;;^UTILITY(U,$J,358.3,15502,1,4,0)
;;=4^Z77.9
;;^UTILITY(U,$J,358.3,15502,2)
;;=^5063326
;;^UTILITY(U,$J,358.3,15503,0)
;;=Z77.22^^56^645^10
;;^UTILITY(U,$J,358.3,15503,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15503,1,3,0)
;;=3^Environmental Exposure Tobacco Smoke/Second-Hand Smoke
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI06D 19789 printed Apr 09, 2024@21:56:55 Page 2
IBDEI06D ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
+2 if 'DIFQR(358.3)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,15436,1,3,0)
+2 ;;=3^Malig Neop,Unspec Primary or Secondary
+3 ;;^UTILITY(U,$J,358.3,15436,1,4,0)
+4 ;;=4^C80.0
+5 ;;^UTILITY(U,$J,358.3,15436,2)
+6 ;;=^5001388
+7 ;;^UTILITY(U,$J,358.3,15437,0)
+8 ;;=E28.39^^56^644^96
+9 ;;^UTILITY(U,$J,358.3,15437,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,15437,1,3,0)
+12 ;;=3^Hypogonadism,Ovarian
+13 ;;^UTILITY(U,$J,358.3,15437,1,4,0)
+14 ;;=4^E28.39
+15 ;;^UTILITY(U,$J,358.3,15437,2)
+16 ;;=^5002752
+17 ;;^UTILITY(U,$J,358.3,15438,0)
+18 ;;=E29.1^^56^644^97
+19 ;;^UTILITY(U,$J,358.3,15438,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,15438,1,3,0)
+22 ;;=3^Hypogonadism,Testicular
+23 ;;^UTILITY(U,$J,358.3,15438,1,4,0)
+24 ;;=4^E29.1
+25 ;;^UTILITY(U,$J,358.3,15438,2)
+26 ;;=^5002754
+27 ;;^UTILITY(U,$J,358.3,15439,0)
+28 ;;=C96.20^^56^644^111
+29 ;;^UTILITY(U,$J,358.3,15439,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,15439,1,3,0)
+32 ;;=3^Malig Mast Cell Neoplasm,Unspec
+33 ;;^UTILITY(U,$J,358.3,15439,1,4,0)
+34 ;;=4^C96.20
+35 ;;^UTILITY(U,$J,358.3,15439,2)
+36 ;;=^5151293
+37 ;;^UTILITY(U,$J,358.3,15440,0)
+38 ;;=C96.22^^56^644^173
+39 ;;^UTILITY(U,$J,358.3,15440,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,15440,1,3,0)
+42 ;;=3^Mast Cell Sarcoma
+43 ;;^UTILITY(U,$J,358.3,15440,1,4,0)
+44 ;;=4^C96.22
+45 ;;^UTILITY(U,$J,358.3,15440,2)
+46 ;;=^5151295
+47 ;;^UTILITY(U,$J,358.3,15441,0)
+48 ;;=D64.9^^56^644^26
+49 ;;^UTILITY(U,$J,358.3,15441,1,0)
+50 ;;=^358.31IA^4^2
+51 ;;^UTILITY(U,$J,358.3,15441,1,3,0)
+52 ;;=3^Anemia,Unspec
+53 ;;^UTILITY(U,$J,358.3,15441,1,4,0)
+54 ;;=4^D64.9
+55 ;;^UTILITY(U,$J,358.3,15441,2)
+56 ;;=^5002351
+57 ;;^UTILITY(U,$J,358.3,15442,0)
+58 ;;=D59.10^^56^644^32
+59 ;;^UTILITY(U,$J,358.3,15442,1,0)
+60 ;;=^358.31IA^4^2
+61 ;;^UTILITY(U,$J,358.3,15442,1,3,0)
+62 ;;=3^Autoimmune Hemolytic Anemia,Unspec
+63 ;;^UTILITY(U,$J,358.3,15442,1,4,0)
+64 ;;=4^D59.10
+65 ;;^UTILITY(U,$J,358.3,15442,2)
+66 ;;=^5159101
+67 ;;^UTILITY(U,$J,358.3,15443,0)
+68 ;;=D59.11^^56^644^33
+69 ;;^UTILITY(U,$J,358.3,15443,1,0)
+70 ;;=^358.31IA^4^2
+71 ;;^UTILITY(U,$J,358.3,15443,1,3,0)
+72 ;;=3^Autoimmune Hemolytic Anemia,Warm
+73 ;;^UTILITY(U,$J,358.3,15443,1,4,0)
+74 ;;=4^D59.11
+75 ;;^UTILITY(U,$J,358.3,15443,2)
+76 ;;=^5159102
+77 ;;^UTILITY(U,$J,358.3,15444,0)
+78 ;;=D59.12^^56^644^29
+79 ;;^UTILITY(U,$J,358.3,15444,1,0)
+80 ;;=^358.31IA^4^2
+81 ;;^UTILITY(U,$J,358.3,15444,1,3,0)
+82 ;;=3^Autoimmune Hemolytic Anemia,Cold
+83 ;;^UTILITY(U,$J,358.3,15444,1,4,0)
+84 ;;=4^D59.12
+85 ;;^UTILITY(U,$J,358.3,15444,2)
+86 ;;=^5159103
+87 ;;^UTILITY(U,$J,358.3,15445,0)
+88 ;;=D59.13^^56^644^30
+89 ;;^UTILITY(U,$J,358.3,15445,1,0)
+90 ;;=^358.31IA^4^2
+91 ;;^UTILITY(U,$J,358.3,15445,1,3,0)
+92 ;;=3^Autoimmune Hemolytic Anemia,Mixed Type
+93 ;;^UTILITY(U,$J,358.3,15445,1,4,0)
+94 ;;=4^D59.13
+95 ;;^UTILITY(U,$J,358.3,15445,2)
+96 ;;=^5159104
+97 ;;^UTILITY(U,$J,358.3,15446,0)
+98 ;;=D59.19^^56^644^31
+99 ;;^UTILITY(U,$J,358.3,15446,1,0)
+100 ;;=^358.31IA^4^2
+101 ;;^UTILITY(U,$J,358.3,15446,1,3,0)
+102 ;;=3^Autoimmune Hemolytic Anemia,Other
+103 ;;^UTILITY(U,$J,358.3,15446,1,4,0)
+104 ;;=4^D59.19
+105 ;;^UTILITY(U,$J,358.3,15446,2)
+106 ;;=^5159105
+107 ;;^UTILITY(U,$J,358.3,15447,0)
+108 ;;=D57.20^^56^644^201
+109 ;;^UTILITY(U,$J,358.3,15447,1,0)
+110 ;;=^358.31IA^4^2
+111 ;;^UTILITY(U,$J,358.3,15447,1,3,0)
+112 ;;=3^Sickle-Cell/Hb-C Disease w/o Crisis
+113 ;;^UTILITY(U,$J,358.3,15447,1,4,0)
+114 ;;=4^D57.20
+115 ;;^UTILITY(U,$J,358.3,15447,2)
+116 ;;=^330080
+117 ;;^UTILITY(U,$J,358.3,15448,0)
+118 ;;=D57.211^^56^644^196
+119 ;;^UTILITY(U,$J,358.3,15448,1,0)
+120 ;;=^358.31IA^4^2
+121 ;;^UTILITY(U,$J,358.3,15448,1,3,0)
+122 ;;=3^Sickle-Cell/Hb-C Disease w/ Acute Chest Syndrome
+123 ;;^UTILITY(U,$J,358.3,15448,1,4,0)
+124 ;;=4^D57.211
+125 ;;^UTILITY(U,$J,358.3,15448,2)
+126 ;;=^5002310
+127 ;;^UTILITY(U,$J,358.3,15449,0)
+128 ;;=D57.212^^56^644^200
+129 ;;^UTILITY(U,$J,358.3,15449,1,0)
+130 ;;=^358.31IA^4^2
+131 ;;^UTILITY(U,$J,358.3,15449,1,3,0)
+132 ;;=3^Sickle-Cell/Hb-C Disease w/ Splenic Sequestration
+133 ;;^UTILITY(U,$J,358.3,15449,1,4,0)
+134 ;;=4^D57.212
+135 ;;^UTILITY(U,$J,358.3,15449,2)
+136 ;;=^5002311
+137 ;;^UTILITY(U,$J,358.3,15450,0)
+138 ;;=D57.213^^56^644^197
+139 ;;^UTILITY(U,$J,358.3,15450,1,0)
+140 ;;=^358.31IA^4^2
+141 ;;^UTILITY(U,$J,358.3,15450,1,3,0)
+142 ;;=3^Sickle-Cell/Hb-C Disease w/ Cerebral Vascular Involvement
+143 ;;^UTILITY(U,$J,358.3,15450,1,4,0)
+144 ;;=4^D57.213
+145 ;;^UTILITY(U,$J,358.3,15450,2)
+146 ;;=^5159080
+147 ;;^UTILITY(U,$J,358.3,15451,0)
+148 ;;=D57.218^^56^644^198
+149 ;;^UTILITY(U,$J,358.3,15451,1,0)
+150 ;;=^358.31IA^4^2
+151 ;;^UTILITY(U,$J,358.3,15451,1,3,0)
+152 ;;=3^Sickle-Cell/Hb-C Disease w/ Crisis w/ Oth Complication
+153 ;;^UTILITY(U,$J,358.3,15451,1,4,0)
+154 ;;=4^D57.218
+155 ;;^UTILITY(U,$J,358.3,15451,2)
+156 ;;=^5159081
+157 ;;^UTILITY(U,$J,358.3,15452,0)
+158 ;;=D57.219^^56^644^199
+159 ;;^UTILITY(U,$J,358.3,15452,1,0)
+160 ;;=^358.31IA^4^2
+161 ;;^UTILITY(U,$J,358.3,15452,1,3,0)
+162 ;;=3^Sickle-Cell/Hb-C Disease w/ Crisis,Unspec
+163 ;;^UTILITY(U,$J,358.3,15452,1,4,0)
+164 ;;=4^D57.219
+165 ;;^UTILITY(U,$J,358.3,15452,2)
+166 ;;=^5002312
+167 ;;^UTILITY(U,$J,358.3,15453,0)
+168 ;;=D57.3^^56^644^195
+169 ;;^UTILITY(U,$J,358.3,15453,1,0)
+170 ;;=^358.31IA^4^2
+171 ;;^UTILITY(U,$J,358.3,15453,1,3,0)
+172 ;;=3^Sickle-Cell Trait
+173 ;;^UTILITY(U,$J,358.3,15453,1,4,0)
+174 ;;=4^D57.3
+175 ;;^UTILITY(U,$J,358.3,15453,2)
+176 ;;=^5002313
+177 ;;^UTILITY(U,$J,358.3,15454,0)
+178 ;;=D57.40^^56^644^192
+179 ;;^UTILITY(U,$J,358.3,15454,1,0)
+180 ;;=^358.31IA^4^2
+181 ;;^UTILITY(U,$J,358.3,15454,1,3,0)
+182 ;;=3^Sickle-Cell Thalassemia w/o Crisis
+183 ;;^UTILITY(U,$J,358.3,15454,1,4,0)
+184 ;;=4^D57.40
+185 ;;^UTILITY(U,$J,358.3,15454,2)
+186 ;;=^329908
+187 ;;^UTILITY(U,$J,358.3,15455,0)
+188 ;;=D57.411^^56^644^193
+189 ;;^UTILITY(U,$J,358.3,15455,1,0)
+190 ;;=^358.31IA^4^2
+191 ;;^UTILITY(U,$J,358.3,15455,1,3,0)
+192 ;;=3^Sickle-Cell Thalassemia,Unspec w/ Acute Chest Syndrome
+193 ;;^UTILITY(U,$J,358.3,15455,1,4,0)
+194 ;;=4^D57.411
+195 ;;^UTILITY(U,$J,358.3,15455,2)
+196 ;;=^5002314
+197 ;;^UTILITY(U,$J,358.3,15456,0)
+198 ;;=D57.412^^56^644^194
+199 ;;^UTILITY(U,$J,358.3,15456,1,0)
+200 ;;=^358.31IA^4^2
+201 ;;^UTILITY(U,$J,358.3,15456,1,3,0)
+202 ;;=3^Sickle-Cell Thalassemia,Unspec w/ Splenic Sequestration
+203 ;;^UTILITY(U,$J,358.3,15456,1,4,0)
+204 ;;=4^D57.412
+205 ;;^UTILITY(U,$J,358.3,15456,2)
+206 ;;=^5002315
+207 ;;^UTILITY(U,$J,358.3,15457,0)
+208 ;;=M31.10^^56^644^215
+209 ;;^UTILITY(U,$J,358.3,15457,1,0)
+210 ;;=^358.31IA^4^2
+211 ;;^UTILITY(U,$J,358.3,15457,1,3,0)
+212 ;;=3^Thrombotic Microangiopathy,Unspec
+213 ;;^UTILITY(U,$J,358.3,15457,1,4,0)
+214 ;;=4^M31.10
+215 ;;^UTILITY(U,$J,358.3,15457,2)
+216 ;;=^5161189
+217 ;;^UTILITY(U,$J,358.3,15458,0)
+218 ;;=Z85.818^^56^645^86
+219 ;;^UTILITY(U,$J,358.3,15458,1,0)
+220 ;;=^358.31IA^4^2
+221 ;;^UTILITY(U,$J,358.3,15458,1,3,0)
+222 ;;=3^Personal Hx of Malig Neop of Lip,Oral Cavity & Pharynx
+223 ;;^UTILITY(U,$J,358.3,15458,1,4,0)
+224 ;;=4^Z85.818
+225 ;;^UTILITY(U,$J,358.3,15458,2)
+226 ;;=^5063439
+227 ;;^UTILITY(U,$J,358.3,15459,0)
+228 ;;=Z85.819^^56^645^87
+229 ;;^UTILITY(U,$J,358.3,15459,1,0)
+230 ;;=^358.31IA^4^2
+231 ;;^UTILITY(U,$J,358.3,15459,1,3,0)
+232 ;;=3^Personal Hx of Malig Neop of Lip,Oral Cavity & Pharynx,Unspec
+233 ;;^UTILITY(U,$J,358.3,15459,1,4,0)
+234 ;;=4^Z85.819
+235 ;;^UTILITY(U,$J,358.3,15459,2)
+236 ;;=^5063440
+237 ;;^UTILITY(U,$J,358.3,15460,0)
+238 ;;=Z85.01^^56^645^82
+239 ;;^UTILITY(U,$J,358.3,15460,1,0)
+240 ;;=^358.31IA^4^2
+241 ;;^UTILITY(U,$J,358.3,15460,1,3,0)
+242 ;;=3^Personal Hx of Malig Neop of Esophagus
+243 ;;^UTILITY(U,$J,358.3,15460,1,4,0)
+244 ;;=4^Z85.01
+245 ;;^UTILITY(U,$J,358.3,15460,2)
+246 ;;=^5063395
+247 ;;^UTILITY(U,$J,358.3,15461,0)
+248 ;;=Z85.028^^56^645^93
+249 ;;^UTILITY(U,$J,358.3,15461,1,0)
+250 ;;=^358.31IA^4^2
+251 ;;^UTILITY(U,$J,358.3,15461,1,3,0)
+252 ;;=3^Personal Hx of Malig Neop of Stomach
+253 ;;^UTILITY(U,$J,358.3,15461,1,4,0)
+254 ;;=4^Z85.028
+255 ;;^UTILITY(U,$J,358.3,15461,2)
+256 ;;=^5063397
+257 ;;^UTILITY(U,$J,358.3,15462,0)
+258 ;;=Z85.038^^56^645^84
+259 ;;^UTILITY(U,$J,358.3,15462,1,0)
+260 ;;=^358.31IA^4^2
+261 ;;^UTILITY(U,$J,358.3,15462,1,3,0)
+262 ;;=3^Personal Hx of Malig Neop of Large Intestine
+263 ;;^UTILITY(U,$J,358.3,15462,1,4,0)
+264 ;;=4^Z85.038
+265 ;;^UTILITY(U,$J,358.3,15462,2)
+266 ;;=^5063399
+267 ;;^UTILITY(U,$J,358.3,15463,0)
+268 ;;=Z85.048^^56^645^91
+269 ;;^UTILITY(U,$J,358.3,15463,1,0)
+270 ;;=^358.31IA^4^2
+271 ;;^UTILITY(U,$J,358.3,15463,1,3,0)
+272 ;;=3^Personal Hx of Malig Neop of Rectum,Rectosig Junct & Anus
+273 ;;^UTILITY(U,$J,358.3,15463,1,4,0)
+274 ;;=4^Z85.048
+275 ;;^UTILITY(U,$J,358.3,15463,2)
+276 ;;=^5063401
+277 ;;^UTILITY(U,$J,358.3,15464,0)
+278 ;;=Z85.118^^56^645^80
+279 ;;^UTILITY(U,$J,358.3,15464,1,0)
+280 ;;=^358.31IA^4^2
+281 ;;^UTILITY(U,$J,358.3,15464,1,3,0)
+282 ;;=3^Personal Hx of Malig Neop of Bronchus & Lung
+283 ;;^UTILITY(U,$J,358.3,15464,1,4,0)
+284 ;;=4^Z85.118
+285 ;;^UTILITY(U,$J,358.3,15464,2)
+286 ;;=^5063408
+287 ;;^UTILITY(U,$J,358.3,15465,0)
+288 ;;=Z85.21^^56^645^85
+289 ;;^UTILITY(U,$J,358.3,15465,1,0)
+290 ;;=^358.31IA^4^2
+291 ;;^UTILITY(U,$J,358.3,15465,1,3,0)
+292 ;;=3^Personal Hx of Malig Neop of Larynx
+293 ;;^UTILITY(U,$J,358.3,15465,1,4,0)
+294 ;;=4^Z85.21
+295 ;;^UTILITY(U,$J,358.3,15465,2)
+296 ;;=^5063411
+297 ;;^UTILITY(U,$J,358.3,15466,0)
+298 ;;=Z85.3^^56^645^79
+299 ;;^UTILITY(U,$J,358.3,15466,1,0)
+300 ;;=^358.31IA^4^2
+301 ;;^UTILITY(U,$J,358.3,15466,1,3,0)
+302 ;;=3^Personal Hx of Malig Neop of Breast
+303 ;;^UTILITY(U,$J,358.3,15466,1,4,0)
+304 ;;=4^Z85.3
+305 ;;^UTILITY(U,$J,358.3,15466,2)
+306 ;;=^5063416
+307 ;;^UTILITY(U,$J,358.3,15467,0)
+308 ;;=Z85.41^^56^645^81
+309 ;;^UTILITY(U,$J,358.3,15467,1,0)
+310 ;;=^358.31IA^4^2
+311 ;;^UTILITY(U,$J,358.3,15467,1,3,0)
+312 ;;=3^Personal Hx of Malig Neop of Cervix Uteri
+313 ;;^UTILITY(U,$J,358.3,15467,1,4,0)
+314 ;;=4^Z85.41
+315 ;;^UTILITY(U,$J,358.3,15467,2)
+316 ;;=^5063418
+317 ;;^UTILITY(U,$J,358.3,15468,0)
+318 ;;=Z85.43^^56^645^89
+319 ;;^UTILITY(U,$J,358.3,15468,1,0)
+320 ;;=^358.31IA^4^2
+321 ;;^UTILITY(U,$J,358.3,15468,1,3,0)
+322 ;;=3^Personal Hx of Malig Neop of Ovary
+323 ;;^UTILITY(U,$J,358.3,15468,1,4,0)
+324 ;;=4^Z85.43
+325 ;;^UTILITY(U,$J,358.3,15468,2)
+326 ;;=^5063420
+327 ;;^UTILITY(U,$J,358.3,15469,0)
+328 ;;=Z85.46^^56^645^90
+329 ;;^UTILITY(U,$J,358.3,15469,1,0)
+330 ;;=^358.31IA^4^2
+331 ;;^UTILITY(U,$J,358.3,15469,1,3,0)
+332 ;;=3^Personal Hx of Malig Neop of Prostate
+333 ;;^UTILITY(U,$J,358.3,15469,1,4,0)
+334 ;;=4^Z85.46
+335 ;;^UTILITY(U,$J,358.3,15469,2)
+336 ;;=^5063423
+337 ;;^UTILITY(U,$J,358.3,15470,0)
+338 ;;=Z85.47^^56^645^94
+339 ;;^UTILITY(U,$J,358.3,15470,1,0)
+340 ;;=^358.31IA^4^2
+341 ;;^UTILITY(U,$J,358.3,15470,1,3,0)
+342 ;;=3^Personal Hx of Malig Neop of Testis
+343 ;;^UTILITY(U,$J,358.3,15470,1,4,0)
+344 ;;=4^Z85.47
+345 ;;^UTILITY(U,$J,358.3,15470,2)
+346 ;;=^5063424
+347 ;;^UTILITY(U,$J,358.3,15471,0)
+348 ;;=Z85.51^^56^645^78
+349 ;;^UTILITY(U,$J,358.3,15471,1,0)
+350 ;;=^358.31IA^4^2
+351 ;;^UTILITY(U,$J,358.3,15471,1,3,0)
+352 ;;=3^Personal Hx of Malig Neop of Bladder
+353 ;;^UTILITY(U,$J,358.3,15471,1,4,0)
+354 ;;=4^Z85.51
+355 ;;^UTILITY(U,$J,358.3,15471,2)
+356 ;;=^5063428
+357 ;;^UTILITY(U,$J,358.3,15472,0)
+358 ;;=Z85.528^^56^645^83
+359 ;;^UTILITY(U,$J,358.3,15472,1,0)
+360 ;;=^358.31IA^4^2
+361 ;;^UTILITY(U,$J,358.3,15472,1,3,0)
+362 ;;=3^Personal Hx of Malig Neop of Kidney
+363 ;;^UTILITY(U,$J,358.3,15472,1,4,0)
+364 ;;=4^Z85.528
+365 ;;^UTILITY(U,$J,358.3,15472,2)
+366 ;;=^5063430
+367 ;;^UTILITY(U,$J,358.3,15473,0)
+368 ;;=Z85.6^^56^645^74
+369 ;;^UTILITY(U,$J,358.3,15473,1,0)
+370 ;;=^358.31IA^4^2
+371 ;;^UTILITY(U,$J,358.3,15473,1,3,0)
+372 ;;=3^Personal Hx of Leukemia
+373 ;;^UTILITY(U,$J,358.3,15473,1,4,0)
+374 ;;=4^Z85.6
+375 ;;^UTILITY(U,$J,358.3,15473,2)
+376 ;;=^5063434
+377 ;;^UTILITY(U,$J,358.3,15474,0)
+378 ;;=Z85.72^^56^645^98
+379 ;;^UTILITY(U,$J,358.3,15474,1,0)
+380 ;;=^358.31IA^4^2
+381 ;;^UTILITY(U,$J,358.3,15474,1,3,0)
+382 ;;=3^Personal Hx of Non-Hodgkin Lymphomas
+383 ;;^UTILITY(U,$J,358.3,15474,1,4,0)
+384 ;;=4^Z85.72
+385 ;;^UTILITY(U,$J,358.3,15474,2)
+386 ;;=^5063436
+387 ;;^UTILITY(U,$J,358.3,15475,0)
+388 ;;=Z85.79^^56^645^88
+389 ;;^UTILITY(U,$J,358.3,15475,1,0)
+390 ;;=^358.31IA^4^2
+391 ;;^UTILITY(U,$J,358.3,15475,1,3,0)
+392 ;;=3^Personal Hx of Malig Neop of Lymphoid,Hematpoetc & Rel Tissue
+393 ;;^UTILITY(U,$J,358.3,15475,1,4,0)
+394 ;;=4^Z85.79
+395 ;;^UTILITY(U,$J,358.3,15475,2)
+396 ;;=^5063437
+397 ;;^UTILITY(U,$J,358.3,15476,0)
+398 ;;=Z85.820^^56^645^77
+399 ;;^UTILITY(U,$J,358.3,15476,1,0)
+400 ;;=^358.31IA^4^2
+401 ;;^UTILITY(U,$J,358.3,15476,1,3,0)
+402 ;;=3^Personal Hx of Malig Melanoma of Skin
+403 ;;^UTILITY(U,$J,358.3,15476,1,4,0)
+404 ;;=4^Z85.820
+405 ;;^UTILITY(U,$J,358.3,15476,2)
+406 ;;=^5063441
+407 ;;^UTILITY(U,$J,358.3,15477,0)
+408 ;;=Z85.828^^56^645^92
+409 ;;^UTILITY(U,$J,358.3,15477,1,0)
+410 ;;=^358.31IA^4^2
+411 ;;^UTILITY(U,$J,358.3,15477,1,3,0)
+412 ;;=3^Personal Hx of Malig Neop of Skin
+413 ;;^UTILITY(U,$J,358.3,15477,1,4,0)
+414 ;;=4^Z85.828
+415 ;;^UTILITY(U,$J,358.3,15477,2)
+416 ;;=^5063443
+417 ;;^UTILITY(U,$J,358.3,15478,0)
+418 ;;=Z85.71^^56^645^72
+419 ;;^UTILITY(U,$J,358.3,15478,1,0)
+420 ;;=^358.31IA^4^2
+421 ;;^UTILITY(U,$J,358.3,15478,1,3,0)
+422 ;;=3^Personal Hx of Hodgkin Lymphoma
+423 ;;^UTILITY(U,$J,358.3,15478,1,4,0)
+424 ;;=4^Z85.71
+425 ;;^UTILITY(U,$J,358.3,15478,2)
+426 ;;=^5063435
+427 ;;^UTILITY(U,$J,358.3,15479,0)
+428 ;;=Z65.8^^56^645^144
+429 ;;^UTILITY(U,$J,358.3,15479,1,0)
+430 ;;=^358.31IA^4^2
+431 ;;^UTILITY(U,$J,358.3,15479,1,3,0)
+432 ;;=3^Psychosocial Circumstance Related Problems
+433 ;;^UTILITY(U,$J,358.3,15479,1,4,0)
+434 ;;=4^Z65.8
+435 ;;^UTILITY(U,$J,358.3,15479,2)
+436 ;;=^5063185
+437 ;;^UTILITY(U,$J,358.3,15480,0)
+438 ;;=Z86.11^^56^645^109
+439 ;;^UTILITY(U,$J,358.3,15480,1,0)
+440 ;;=^358.31IA^4^2
+441 ;;^UTILITY(U,$J,358.3,15480,1,3,0)
+442 ;;=3^Personal Hx of Tuberculosis
+443 ;;^UTILITY(U,$J,358.3,15480,1,4,0)
+444 ;;=4^Z86.11
+445 ;;^UTILITY(U,$J,358.3,15480,2)
+446 ;;=^5063461
+447 ;;^UTILITY(U,$J,358.3,15481,0)
+448 ;;=Z86.13^^56^645^76
+449 ;;^UTILITY(U,$J,358.3,15481,1,0)
+450 ;;=^358.31IA^4^2
+451 ;;^UTILITY(U,$J,358.3,15481,1,3,0)
+452 ;;=3^Personal Hx of Malaria
+453 ;;^UTILITY(U,$J,358.3,15481,1,4,0)
+454 ;;=4^Z86.13
+455 ;;^UTILITY(U,$J,358.3,15481,2)
+456 ;;=^5063463
+457 ;;^UTILITY(U,$J,358.3,15482,0)
+458 ;;=Z86.73^^56^645^106
+459 ;;^UTILITY(U,$J,358.3,15482,1,0)
+460 ;;=^358.31IA^4^2
+461 ;;^UTILITY(U,$J,358.3,15482,1,3,0)
+462 ;;=3^Personal Hx of TIA & Cereb Infrc w/o Residual Deficits
+463 ;;^UTILITY(U,$J,358.3,15482,1,4,0)
+464 ;;=4^Z86.73
+465 ;;^UTILITY(U,$J,358.3,15482,2)
+466 ;;=^5063477
+467 ;;^UTILITY(U,$J,358.3,15483,0)
+468 ;;=Z86.79^^56^645^69
+469 ;;^UTILITY(U,$J,358.3,15483,1,0)
+470 ;;=^358.31IA^4^2
+471 ;;^UTILITY(U,$J,358.3,15483,1,3,0)
+472 ;;=3^Personal Hx of Circulatory System Diseases
+473 ;;^UTILITY(U,$J,358.3,15483,1,4,0)
+474 ;;=4^Z86.79
+475 ;;^UTILITY(U,$J,358.3,15483,2)
+476 ;;=^5063479
+477 ;;^UTILITY(U,$J,358.3,15484,0)
+478 ;;=Z91.040^^56^645^57
+479 ;;^UTILITY(U,$J,358.3,15484,1,0)
+480 ;;=^358.31IA^4^2
+481 ;;^UTILITY(U,$J,358.3,15484,1,3,0)
+482 ;;=3^Latex Allergy Status
+483 ;;^UTILITY(U,$J,358.3,15484,1,4,0)
+484 ;;=4^Z91.040
+485 ;;^UTILITY(U,$J,358.3,15484,2)
+486 ;;=^5063607
+487 ;;^UTILITY(U,$J,358.3,15485,0)
+488 ;;=Z92.3^^56^645^73
+489 ;;^UTILITY(U,$J,358.3,15485,1,0)
+490 ;;=^358.31IA^4^2
+491 ;;^UTILITY(U,$J,358.3,15485,1,3,0)
+492 ;;=3^Personal Hx of Irradiation
+493 ;;^UTILITY(U,$J,358.3,15485,1,4,0)
+494 ;;=4^Z92.3
+495 ;;^UTILITY(U,$J,358.3,15485,2)
+496 ;;=^5063637
+497 ;;^UTILITY(U,$J,358.3,15486,0)
+498 ;;=Z91.120^^56^645^53
+499 ;;^UTILITY(U,$J,358.3,15486,1,0)
+500 ;;=^358.31IA^4^2
+501 ;;^UTILITY(U,$J,358.3,15486,1,3,0)
+502 ;;=3^Intentional Underdose of Meds d/t Financial Hardship
+503 ;;^UTILITY(U,$J,358.3,15486,1,4,0)
+504 ;;=4^Z91.120
+505 ;;^UTILITY(U,$J,358.3,15486,2)
+506 ;;=^5063612
+507 ;;^UTILITY(U,$J,358.3,15487,0)
+508 ;;=Z91.11^^56^645^62
+509 ;;^UTILITY(U,$J,358.3,15487,1,0)
+510 ;;=^358.31IA^4^2
+511 ;;^UTILITY(U,$J,358.3,15487,1,3,0)
+512 ;;=3^Noncompliance w/ Dietary Regimen
+513 ;;^UTILITY(U,$J,358.3,15487,1,4,0)
+514 ;;=4^Z91.11
+515 ;;^UTILITY(U,$J,358.3,15487,2)
+516 ;;=^5063611
+517 ;;^UTILITY(U,$J,358.3,15488,0)
+518 ;;=Z87.891^^56^645^97
+519 ;;^UTILITY(U,$J,358.3,15488,1,0)
+520 ;;=^358.31IA^4^2
+521 ;;^UTILITY(U,$J,358.3,15488,1,3,0)
+522 ;;=3^Personal Hx of Nicotine Dependence
+523 ;;^UTILITY(U,$J,358.3,15488,1,4,0)
+524 ;;=4^Z87.891
+525 ;;^UTILITY(U,$J,358.3,15488,2)
+526 ;;=^5063518
+527 ;;^UTILITY(U,$J,358.3,15489,0)
+528 ;;=Z77.090^^56^645^3
+529 ;;^UTILITY(U,$J,358.3,15489,1,0)
+530 ;;=^358.31IA^4^2
+531 ;;^UTILITY(U,$J,358.3,15489,1,3,0)
+532 ;;=3^Asbestos Contact/Exposure
+533 ;;^UTILITY(U,$J,358.3,15489,1,4,0)
+534 ;;=4^Z77.090
+535 ;;^UTILITY(U,$J,358.3,15489,2)
+536 ;;=^5063312
+537 ;;^UTILITY(U,$J,358.3,15490,0)
+538 ;;=Z57.8^^56^645^65
+539 ;;^UTILITY(U,$J,358.3,15490,1,0)
+540 ;;=^358.31IA^4^2
+541 ;;^UTILITY(U,$J,358.3,15490,1,3,0)
+542 ;;=3^Occupational Exposure to Other Risk Factors
+543 ;;^UTILITY(U,$J,358.3,15490,1,4,0)
+544 ;;=4^Z57.8
+545 ;;^UTILITY(U,$J,358.3,15490,2)
+546 ;;=^5063127
+547 ;;^UTILITY(U,$J,358.3,15491,0)
+548 ;;=Z77.21^^56^645^46
+549 ;;^UTILITY(U,$J,358.3,15491,1,0)
+550 ;;=^358.31IA^4^2
+551 ;;^UTILITY(U,$J,358.3,15491,1,3,0)
+552 ;;=3^Hazardous Body Fluid Contact/Exposure
+553 ;;^UTILITY(U,$J,358.3,15491,1,4,0)
+554 ;;=4^Z77.21
+555 ;;^UTILITY(U,$J,358.3,15491,2)
+556 ;;=^5063323
+557 ;;^UTILITY(U,$J,358.3,15492,0)
+558 ;;=Z91.81^^56^645^50
+559 ;;^UTILITY(U,$J,358.3,15492,1,0)
+560 ;;=^358.31IA^4^2
+561 ;;^UTILITY(U,$J,358.3,15492,1,3,0)
+562 ;;=3^History of Falling
+563 ;;^UTILITY(U,$J,358.3,15492,1,4,0)
+564 ;;=4^Z91.81
+565 ;;^UTILITY(U,$J,358.3,15492,2)
+566 ;;=^5063625
+567 ;;^UTILITY(U,$J,358.3,15493,0)
+568 ;;=Z91.89^^56^645^112
+569 ;;^UTILITY(U,$J,358.3,15493,1,0)
+570 ;;=^358.31IA^4^2
+571 ;;^UTILITY(U,$J,358.3,15493,1,3,0)
+572 ;;=3^Personal Risk Factors NEC
+573 ;;^UTILITY(U,$J,358.3,15493,1,4,0)
+574 ;;=4^Z91.89
+575 ;;^UTILITY(U,$J,358.3,15493,2)
+576 ;;=^5063628
+577 ;;^UTILITY(U,$J,358.3,15494,0)
+578 ;;=Z92.89^^56^645^100
+579 ;;^UTILITY(U,$J,358.3,15494,1,0)
+580 ;;=^358.31IA^4^2
+581 ;;^UTILITY(U,$J,358.3,15494,1,3,0)
+582 ;;=3^Personal Hx of Other Medical Treatment
+583 ;;^UTILITY(U,$J,358.3,15494,1,4,0)
+584 ;;=4^Z92.89
+585 ;;^UTILITY(U,$J,358.3,15494,2)
+586 ;;=^5063641
+587 ;;^UTILITY(U,$J,358.3,15495,0)
+588 ;;=Z77.110^^56^645^1
+589 ;;^UTILITY(U,$J,358.3,15495,1,0)
+590 ;;=^358.31IA^4^2
+591 ;;^UTILITY(U,$J,358.3,15495,1,3,0)
+592 ;;=3^Air Pollution Contact/Exposure
+593 ;;^UTILITY(U,$J,358.3,15495,1,4,0)
+594 ;;=4^Z77.110
+595 ;;^UTILITY(U,$J,358.3,15495,2)
+596 ;;=^5063314
+597 ;;^UTILITY(U,$J,358.3,15496,0)
+598 ;;=Z77.112^^56^645^148
+599 ;;^UTILITY(U,$J,358.3,15496,1,0)
+600 ;;=^358.31IA^4^2
+601 ;;^UTILITY(U,$J,358.3,15496,1,3,0)
+602 ;;=3^Soil Pollution Contact/Exposure
+603 ;;^UTILITY(U,$J,358.3,15496,1,4,0)
+604 ;;=4^Z77.112
+605 ;;^UTILITY(U,$J,358.3,15496,2)
+606 ;;=^5063316
+607 ;;^UTILITY(U,$J,358.3,15497,0)
+608 ;;=Z77.111^^56^645^155
+609 ;;^UTILITY(U,$J,358.3,15497,1,0)
+610 ;;=^358.31IA^4^2
+611 ;;^UTILITY(U,$J,358.3,15497,1,3,0)
+612 ;;=3^Water Pollution Contact/Exposure
+613 ;;^UTILITY(U,$J,358.3,15497,1,4,0)
+614 ;;=4^Z77.111
+615 ;;^UTILITY(U,$J,358.3,15497,2)
+616 ;;=^5063315
+617 ;;^UTILITY(U,$J,358.3,15498,0)
+618 ;;=Z77.128^^56^645^113
+619 ;;^UTILITY(U,$J,358.3,15498,1,0)
+620 ;;=^358.31IA^4^2
+621 ;;^UTILITY(U,$J,358.3,15498,1,3,0)
+622 ;;=3^Physical Environment Hazards Contact/Exposure
+623 ;;^UTILITY(U,$J,358.3,15498,1,4,0)
+624 ;;=4^Z77.128
+625 ;;^UTILITY(U,$J,358.3,15498,2)
+626 ;;=^5063322
+627 ;;^UTILITY(U,$J,358.3,15499,0)
+628 ;;=Z77.123^^56^645^146
+629 ;;^UTILITY(U,$J,358.3,15499,1,0)
+630 ;;=^358.31IA^4^2
+631 ;;^UTILITY(U,$J,358.3,15499,1,3,0)
+632 ;;=3^Radon/Radiation Contact/Exposure
+633 ;;^UTILITY(U,$J,358.3,15499,1,4,0)
+634 ;;=4^Z77.123
+635 ;;^UTILITY(U,$J,358.3,15499,2)
+636 ;;=^5063321
+637 ;;^UTILITY(U,$J,358.3,15500,0)
+638 ;;=Z77.122^^56^645^61
+639 ;;^UTILITY(U,$J,358.3,15500,1,0)
+640 ;;=^358.31IA^4^2
+641 ;;^UTILITY(U,$J,358.3,15500,1,3,0)
+642 ;;=3^Noise Contact/Exposure
+643 ;;^UTILITY(U,$J,358.3,15500,1,4,0)
+644 ;;=4^Z77.122
+645 ;;^UTILITY(U,$J,358.3,15500,2)
+646 ;;=^5063320
+647 ;;^UTILITY(U,$J,358.3,15501,0)
+648 ;;=Z77.118^^56^645^11
+649 ;;^UTILITY(U,$J,358.3,15501,1,0)
+650 ;;=^358.31IA^4^2
+651 ;;^UTILITY(U,$J,358.3,15501,1,3,0)
+652 ;;=3^Environmental Pollution Contact/Exposure
+653 ;;^UTILITY(U,$J,358.3,15501,1,4,0)
+654 ;;=4^Z77.118
+655 ;;^UTILITY(U,$J,358.3,15501,2)
+656 ;;=^5063317
+657 ;;^UTILITY(U,$J,358.3,15502,0)
+658 ;;=Z77.9^^56^645^47
+659 ;;^UTILITY(U,$J,358.3,15502,1,0)
+660 ;;=^358.31IA^4^2
+661 ;;^UTILITY(U,$J,358.3,15502,1,3,0)
+662 ;;=3^Health Hazard Contact/Exposure
+663 ;;^UTILITY(U,$J,358.3,15502,1,4,0)
+664 ;;=4^Z77.9
+665 ;;^UTILITY(U,$J,358.3,15502,2)
+666 ;;=^5063326
+667 ;;^UTILITY(U,$J,358.3,15503,0)
+668 ;;=Z77.22^^56^645^10
+669 ;;^UTILITY(U,$J,358.3,15503,1,0)
+670 ;;=^358.31IA^4^2
+671 ;;^UTILITY(U,$J,358.3,15503,1,3,0)
+672 ;;=3^Environmental Exposure Tobacco Smoke/Second-Hand Smoke
