IBDEI098 ; ; 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,22557,0)
;;=Z96.21^^71^915^6
;;^UTILITY(U,$J,358.3,22557,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22557,1,3,0)
;;=3^Cochlear Implant Status
;;^UTILITY(U,$J,358.3,22557,1,4,0)
;;=4^Z96.21
;;^UTILITY(U,$J,358.3,22557,2)
;;=^5063684
;;^UTILITY(U,$J,358.3,22558,0)
;;=Z96.41^^71^915^132
;;^UTILITY(U,$J,358.3,22558,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22558,1,3,0)
;;=3^Presence of Insulin Pump
;;^UTILITY(U,$J,358.3,22558,1,4,0)
;;=4^Z96.41
;;^UTILITY(U,$J,358.3,22558,2)
;;=^5063688
;;^UTILITY(U,$J,358.3,22559,0)
;;=Z96.641^^71^915^140
;;^UTILITY(U,$J,358.3,22559,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22559,1,3,0)
;;=3^Presence of Right Artificial Hip Jt
;;^UTILITY(U,$J,358.3,22559,1,4,0)
;;=4^Z96.641
;;^UTILITY(U,$J,358.3,22559,2)
;;=^5063701
;;^UTILITY(U,$J,358.3,22560,0)
;;=Z96.642^^71^915^135
;;^UTILITY(U,$J,358.3,22560,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22560,1,3,0)
;;=3^Presence of Left Artificial Hip Jt
;;^UTILITY(U,$J,358.3,22560,1,4,0)
;;=4^Z96.642
;;^UTILITY(U,$J,358.3,22560,2)
;;=^5063702
;;^UTILITY(U,$J,358.3,22561,0)
;;=Z96.643^^71^915^119
;;^UTILITY(U,$J,358.3,22561,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22561,1,3,0)
;;=3^Presence of Artificial Hip Jt,Bilateral
;;^UTILITY(U,$J,358.3,22561,1,4,0)
;;=4^Z96.643
;;^UTILITY(U,$J,358.3,22561,2)
;;=^5063703
;;^UTILITY(U,$J,358.3,22562,0)
;;=Z96.651^^71^915^141
;;^UTILITY(U,$J,358.3,22562,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22562,1,3,0)
;;=3^Presence of Right Artificial Knee Jt
;;^UTILITY(U,$J,358.3,22562,1,4,0)
;;=4^Z96.651
;;^UTILITY(U,$J,358.3,22562,2)
;;=^5063705
;;^UTILITY(U,$J,358.3,22563,0)
;;=Z96.652^^71^915^136
;;^UTILITY(U,$J,358.3,22563,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22563,1,3,0)
;;=3^Presence of Left Artificial Knee Jt
;;^UTILITY(U,$J,358.3,22563,1,4,0)
;;=4^Z96.652
;;^UTILITY(U,$J,358.3,22563,2)
;;=^5063706
;;^UTILITY(U,$J,358.3,22564,0)
;;=Z96.653^^71^915^120
;;^UTILITY(U,$J,358.3,22564,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22564,1,3,0)
;;=3^Presence of Artificial Knee Jt,Bilateral
;;^UTILITY(U,$J,358.3,22564,1,4,0)
;;=4^Z96.653
;;^UTILITY(U,$J,358.3,22564,2)
;;=^5063707
;;^UTILITY(U,$J,358.3,22565,0)
;;=Z96.7^^71^915^125
;;^UTILITY(U,$J,358.3,22565,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22565,1,3,0)
;;=3^Presence of Bone/Tendon Implants NEC
;;^UTILITY(U,$J,358.3,22565,1,4,0)
;;=4^Z96.7
;;^UTILITY(U,$J,358.3,22565,2)
;;=^5063716
;;^UTILITY(U,$J,358.3,22566,0)
;;=Z97.11^^71^915^139
;;^UTILITY(U,$J,358.3,22566,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22566,1,3,0)
;;=3^Presence of Right Artificial Arm
;;^UTILITY(U,$J,358.3,22566,1,4,0)
;;=4^Z97.11
;;^UTILITY(U,$J,358.3,22566,2)
;;=^5063722
;;^UTILITY(U,$J,358.3,22567,0)
;;=Z97.12^^71^915^134
;;^UTILITY(U,$J,358.3,22567,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22567,1,3,0)
;;=3^Presence of Left Artificial Arm
;;^UTILITY(U,$J,358.3,22567,1,4,0)
;;=4^Z97.12
;;^UTILITY(U,$J,358.3,22567,2)
;;=^5063723
;;^UTILITY(U,$J,358.3,22568,0)
;;=Z97.13^^71^915^142
;;^UTILITY(U,$J,358.3,22568,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22568,1,3,0)
;;=3^Presence of Right Artificial Leg
;;^UTILITY(U,$J,358.3,22568,1,4,0)
;;=4^Z97.13
;;^UTILITY(U,$J,358.3,22568,2)
;;=^5063724
;;^UTILITY(U,$J,358.3,22569,0)
;;=Z97.14^^71^915^137
;;^UTILITY(U,$J,358.3,22569,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22569,1,3,0)
;;=3^Presence of Left Artificial Leg
;;^UTILITY(U,$J,358.3,22569,1,4,0)
;;=4^Z97.14
;;^UTILITY(U,$J,358.3,22569,2)
;;=^5063725
;;^UTILITY(U,$J,358.3,22570,0)
;;=Z97.15^^71^915^116
;;^UTILITY(U,$J,358.3,22570,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22570,1,3,0)
;;=3^Presence of Artificial Arms,Bilateral
;;^UTILITY(U,$J,358.3,22570,1,4,0)
;;=4^Z97.15
;;^UTILITY(U,$J,358.3,22570,2)
;;=^5063726
;;^UTILITY(U,$J,358.3,22571,0)
;;=Z97.16^^71^915^121
;;^UTILITY(U,$J,358.3,22571,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22571,1,3,0)
;;=3^Presence of Artificial Legs,Bilateral
;;^UTILITY(U,$J,358.3,22571,1,4,0)
;;=4^Z97.16
;;^UTILITY(U,$J,358.3,22571,2)
;;=^5063727
;;^UTILITY(U,$J,358.3,22572,0)
;;=Z98.61^^71^915^9
;;^UTILITY(U,$J,358.3,22572,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22572,1,3,0)
;;=3^Coronary Angioplasty Status
;;^UTILITY(U,$J,358.3,22572,1,4,0)
;;=4^Z98.61
;;^UTILITY(U,$J,358.3,22572,2)
;;=^5063742
;;^UTILITY(U,$J,358.3,22573,0)
;;=Z98.62^^71^915^66
;;^UTILITY(U,$J,358.3,22573,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22573,1,3,0)
;;=3^Peripheral Vascular Angioplasty Status w/o Graft
;;^UTILITY(U,$J,358.3,22573,1,4,0)
;;=4^Z98.62
;;^UTILITY(U,$J,358.3,22573,2)
;;=^5063743
;;^UTILITY(U,$J,358.3,22574,0)
;;=Z98.84^^71^915^4
;;^UTILITY(U,$J,358.3,22574,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22574,1,3,0)
;;=3^Bariatric Surgery Status
;;^UTILITY(U,$J,358.3,22574,1,4,0)
;;=4^Z98.84
;;^UTILITY(U,$J,358.3,22574,2)
;;=^5063749
;;^UTILITY(U,$J,358.3,22575,0)
;;=Z99.2^^71^915^147
;;^UTILITY(U,$J,358.3,22575,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22575,1,3,0)
;;=3^Renal Dialysis Dependence
;;^UTILITY(U,$J,358.3,22575,1,4,0)
;;=4^Z99.2
;;^UTILITY(U,$J,358.3,22575,2)
;;=^5063758
;;^UTILITY(U,$J,358.3,22576,0)
;;=Z99.81^^71^915^150
;;^UTILITY(U,$J,358.3,22576,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22576,1,3,0)
;;=3^Supplemental Oxygen Dependence
;;^UTILITY(U,$J,358.3,22576,1,4,0)
;;=4^Z99.81
;;^UTILITY(U,$J,358.3,22576,2)
;;=^5063760
;;^UTILITY(U,$J,358.3,22577,0)
;;=Z98.1^^71^915^2
;;^UTILITY(U,$J,358.3,22577,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22577,1,3,0)
;;=3^Arthrodesis Status
;;^UTILITY(U,$J,358.3,22577,1,4,0)
;;=4^Z98.1
;;^UTILITY(U,$J,358.3,22577,2)
;;=^5063734
;;^UTILITY(U,$J,358.3,22578,0)
;;=Z94.7^^71^915^8
;;^UTILITY(U,$J,358.3,22578,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22578,1,3,0)
;;=3^Corneal Transplant Status
;;^UTILITY(U,$J,358.3,22578,1,4,0)
;;=4^Z94.7
;;^UTILITY(U,$J,358.3,22578,2)
;;=^5063661
;;^UTILITY(U,$J,358.3,22579,0)
;;=Z83.511^^71^915^23
;;^UTILITY(U,$J,358.3,22579,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22579,1,3,0)
;;=3^Family Hx of Glaucoma
;;^UTILITY(U,$J,358.3,22579,1,4,0)
;;=4^Z83.511
;;^UTILITY(U,$J,358.3,22579,2)
;;=^5063382
;;^UTILITY(U,$J,358.3,22580,0)
;;=Z80.52^^71^915^26
;;^UTILITY(U,$J,358.3,22580,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22580,1,3,0)
;;=3^Family Hx of Malig Neop of Baldder
;;^UTILITY(U,$J,358.3,22580,1,4,0)
;;=4^Z80.52
;;^UTILITY(U,$J,358.3,22580,2)
;;=^5063352
;;^UTILITY(U,$J,358.3,22581,0)
;;=Z80.51^^71^915^29
;;^UTILITY(U,$J,358.3,22581,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22581,1,3,0)
;;=3^Family Hx of Malig Neop of Kidney
;;^UTILITY(U,$J,358.3,22581,1,4,0)
;;=4^Z80.51
;;^UTILITY(U,$J,358.3,22581,2)
;;=^321159
;;^UTILITY(U,$J,358.3,22582,0)
;;=Z83.41^^71^915^36
;;^UTILITY(U,$J,358.3,22582,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22582,1,3,0)
;;=3^Family Hx of Mult Endocrine Neoplasia Syndrome
;;^UTILITY(U,$J,358.3,22582,1,4,0)
;;=4^Z83.41
;;^UTILITY(U,$J,358.3,22582,2)
;;=^5063380
;;^UTILITY(U,$J,358.3,22583,0)
;;=Z81.8^^71^915^43
;;^UTILITY(U,$J,358.3,22583,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22583,1,3,0)
;;=3^Family Hx of Substance Abuse/Dependence,Psychoactive
;;^UTILITY(U,$J,358.3,22583,1,4,0)
;;=4^Z81.8
;;^UTILITY(U,$J,358.3,22583,2)
;;=^5063363
;;^UTILITY(U,$J,358.3,22584,0)
;;=Z81.4^^71^915^44
;;^UTILITY(U,$J,358.3,22584,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22584,1,3,0)
;;=3^Family Hx of Substance Abuse/Dependence NEC
;;^UTILITY(U,$J,358.3,22584,1,4,0)
;;=4^Z81.4
;;^UTILITY(U,$J,358.3,22584,2)
;;=^5063362
;;^UTILITY(U,$J,358.3,22585,0)
;;=Z98.0^^71^915^55
;;^UTILITY(U,$J,358.3,22585,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22585,1,3,0)
;;=3^Intestinal Bypass/Anastomosis Status
;;^UTILITY(U,$J,358.3,22585,1,4,0)
;;=4^Z98.0
;;^UTILITY(U,$J,358.3,22585,2)
;;=^5063733
;;^UTILITY(U,$J,358.3,22586,0)
;;=Z91.128^^71^915^54
;;^UTILITY(U,$J,358.3,22586,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22586,1,3,0)
;;=3^Intentional Underdose of Meds d/t Other Reasons
;;^UTILITY(U,$J,358.3,22586,1,4,0)
;;=4^Z91.128
;;^UTILITY(U,$J,358.3,22586,2)
;;=^5063613
;;^UTILITY(U,$J,358.3,22587,0)
;;=Z77.120^^71^915^60
;;^UTILITY(U,$J,358.3,22587,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22587,1,3,0)
;;=3^Mold (Toxic) Contact/Exposure
;;^UTILITY(U,$J,358.3,22587,1,4,0)
;;=4^Z77.120
;;^UTILITY(U,$J,358.3,22587,2)
;;=^5063318
;;^UTILITY(U,$J,358.3,22588,0)
;;=Z86.74^^71^915^103
;;^UTILITY(U,$J,358.3,22588,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22588,1,3,0)
;;=3^Personal Hx of Sudden Cardiac Arrest
;;^UTILITY(U,$J,358.3,22588,1,4,0)
;;=4^Z86.74
;;^UTILITY(U,$J,358.3,22588,2)
;;=^5063478
;;^UTILITY(U,$J,358.3,22589,0)
;;=Z86.718^^71^915^111
;;^UTILITY(U,$J,358.3,22589,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22589,1,3,0)
;;=3^Personal Hx of Venous Thrombosis/Embolism (DVT)
;;^UTILITY(U,$J,358.3,22589,1,4,0)
;;=4^Z86.718
;;^UTILITY(U,$J,358.3,22589,2)
;;=^5063475
;;^UTILITY(U,$J,358.3,22590,0)
;;=Z96.1^^71^915^133
;;^UTILITY(U,$J,358.3,22590,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22590,1,3,0)
;;=3^Presence of Intraocular Lens
;;^UTILITY(U,$J,358.3,22590,1,4,0)
;;=4^Z96.1
;;^UTILITY(U,$J,358.3,22590,2)
;;=^5063682
;;^UTILITY(U,$J,358.3,22591,0)
;;=Z96.612^^71^915^138
;;^UTILITY(U,$J,358.3,22591,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22591,1,3,0)
;;=3^Presence of Left Artificial Shoulder Joint
;;^UTILITY(U,$J,358.3,22591,1,4,0)
;;=4^Z96.612
;;^UTILITY(U,$J,358.3,22591,2)
;;=^5063693
;;^UTILITY(U,$J,358.3,22592,0)
;;=Z96.611^^71^915^143
;;^UTILITY(U,$J,358.3,22592,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22592,1,3,0)
;;=3^Presence of Right Artificial Shoulder Joint
;;^UTILITY(U,$J,358.3,22592,1,4,0)
;;=4^Z96.611
;;^UTILITY(U,$J,358.3,22592,2)
;;=^5063692
;;^UTILITY(U,$J,358.3,22593,0)
;;=Z93.0^^71^915^151
;;^UTILITY(U,$J,358.3,22593,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22593,1,3,0)
;;=3^Tracheostomy Status
;;^UTILITY(U,$J,358.3,22593,1,4,0)
;;=4^Z93.0
;;^UTILITY(U,$J,358.3,22593,2)
;;=^5063642
;;^UTILITY(U,$J,358.3,22594,0)
;;=Z99.3^^71^915^156
;;^UTILITY(U,$J,358.3,22594,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22594,1,3,0)
;;=3^Wheelchair Dependence
;;^UTILITY(U,$J,358.3,22594,1,4,0)
;;=4^Z99.3
;;^UTILITY(U,$J,358.3,22594,2)
;;=^5063759
;;^UTILITY(U,$J,358.3,22595,0)
;;=Z83.42^^71^915^21
;;^UTILITY(U,$J,358.3,22595,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22595,1,3,0)
;;=3^Family Hx of Familial Hypercholesterolemia
;;^UTILITY(U,$J,358.3,22595,1,4,0)
;;=4^Z83.42
;;^UTILITY(U,$J,358.3,22595,2)
;;=^8132985
;;^UTILITY(U,$J,358.3,22596,0)
;;=Z98.890^^71^915^114
;;^UTILITY(U,$J,358.3,22596,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22596,1,3,0)
;;=3^Postprocedural States/HX of Surgery NEC
;;^UTILITY(U,$J,358.3,22596,1,4,0)
;;=4^Z98.890
;;^UTILITY(U,$J,358.3,22596,2)
;;=^5063754
;;^UTILITY(U,$J,358.3,22597,0)
;;=Z95.1^^71^915^115
;;^UTILITY(U,$J,358.3,22597,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22597,1,3,0)
;;=3^Presence of Aortocoronary Bypass
;;^UTILITY(U,$J,358.3,22597,1,4,0)
;;=4^Z95.1
;;^UTILITY(U,$J,358.3,22597,2)
;;=^5063669
;;^UTILITY(U,$J,358.3,22598,0)
;;=Z98.2^^71^915^127
;;^UTILITY(U,$J,358.3,22598,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22598,1,3,0)
;;=3^Presence of Cerebrospinal Fluid Drainage Device
;;^UTILITY(U,$J,358.3,22598,1,4,0)
;;=4^Z98.2
;;^UTILITY(U,$J,358.3,22598,2)
;;=^5063735
;;^UTILITY(U,$J,358.3,22599,0)
;;=Z97.5^^71^915^128
;;^UTILITY(U,$J,358.3,22599,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22599,1,3,0)
;;=3^Presence of Contraceptive (Intrauterine) Device
;;^UTILITY(U,$J,358.3,22599,1,4,0)
;;=4^Z97.5
;;^UTILITY(U,$J,358.3,22599,2)
;;=^5063731
;;^UTILITY(U,$J,358.3,22600,0)
;;=Z95.5^^71^915^129
;;^UTILITY(U,$J,358.3,22600,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22600,1,3,0)
;;=3^Presence of Coronary Angioplasty Implant/Graft
;;^UTILITY(U,$J,358.3,22600,1,4,0)
;;=4^Z95.5
;;^UTILITY(U,$J,358.3,22600,2)
;;=^5063673
;;^UTILITY(U,$J,358.3,22601,0)
;;=Z97.2^^71^915^130
;;^UTILITY(U,$J,358.3,22601,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22601,1,3,0)
;;=3^Presence of Dental Prosthetic Device
;;^UTILITY(U,$J,358.3,22601,1,4,0)
;;=4^Z97.2
;;^UTILITY(U,$J,358.3,22601,2)
;;=^5063728
;;^UTILITY(U,$J,358.3,22602,0)
;;=Z97.4^^71^915^131
;;^UTILITY(U,$J,358.3,22602,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22602,1,3,0)
;;=3^Presence of External Hearing Aid
;;^UTILITY(U,$J,358.3,22602,1,4,0)
;;=4^Z97.4
;;^UTILITY(U,$J,358.3,22602,2)
;;=^5063730
;;^UTILITY(U,$J,358.3,22603,0)
;;=Z96.622^^71^915^117
;;^UTILITY(U,$J,358.3,22603,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22603,1,3,0)
;;=3^Presence of Artificial Elbow Joint,Left
;;^UTILITY(U,$J,358.3,22603,1,4,0)
;;=4^Z96.622
;;^UTILITY(U,$J,358.3,22603,2)
;;=^5063696
;;^UTILITY(U,$J,358.3,22604,0)
;;=Z96.632^^71^915^122
;;^UTILITY(U,$J,358.3,22604,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22604,1,3,0)
;;=3^Presence of Artificial Wrist Joint,Left
;;^UTILITY(U,$J,358.3,22604,1,4,0)
;;=4^Z96.632
;;^UTILITY(U,$J,358.3,22604,2)
;;=^5063699
;;^UTILITY(U,$J,358.3,22605,0)
;;=Z96.621^^71^915^118
;;^UTILITY(U,$J,358.3,22605,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22605,1,3,0)
;;=3^Presence of Artificial Elbow Joint,Right
;;^UTILITY(U,$J,358.3,22605,1,4,0)
;;=4^Z96.621
;;^UTILITY(U,$J,358.3,22605,2)
;;=^5063695
;;^UTILITY(U,$J,358.3,22606,0)
;;=Z96.631^^71^915^123
;;^UTILITY(U,$J,358.3,22606,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22606,1,3,0)
;;=3^Presence of Artificial Wrist Joint,Right
;;^UTILITY(U,$J,358.3,22606,1,4,0)
;;=4^Z96.631
;;^UTILITY(U,$J,358.3,22606,2)
;;=^5063698
;;^UTILITY(U,$J,358.3,22607,0)
;;=Z93.6^^71^915^154
;;^UTILITY(U,$J,358.3,22607,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22607,1,3,0)
;;=3^Urostomy Status
;;^UTILITY(U,$J,358.3,22607,1,4,0)
;;=4^Z93.6
;;^UTILITY(U,$J,358.3,22607,2)
;;=^5063651
;;^UTILITY(U,$J,358.3,22608,0)
;;=Z95.820^^71^915^67
;;^UTILITY(U,$J,358.3,22608,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22608,1,3,0)
;;=3^Peripheral Vascular Angioplasty Status w/ Graft
;;^UTILITY(U,$J,358.3,22608,1,4,0)
;;=4^Z95.820
;;^UTILITY(U,$J,358.3,22608,2)
;;=^5063678
;;^UTILITY(U,$J,358.3,22609,0)
;;=Z95.0^^71^915^126
;;^UTILITY(U,$J,358.3,22609,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22609,1,3,0)
;;=3^Presence of Cardiac Pacemaker
;;^UTILITY(U,$J,358.3,22609,1,4,0)
;;=4^Z95.0
;;^UTILITY(U,$J,358.3,22609,2)
;;=^5063668
;;^UTILITY(U,$J,358.3,22610,0)
;;=Z95.810^^71^915^124
;;^UTILITY(U,$J,358.3,22610,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22610,1,3,0)
;;=3^Presence of Automatic Cardiac Debribrillator
;;^UTILITY(U,$J,358.3,22610,1,4,0)
;;=4^Z95.810
;;^UTILITY(U,$J,358.3,22610,2)
;;=^5063674
;;^UTILITY(U,$J,358.3,22611,0)
;;=Z91.51^^71^915^104
;;^UTILITY(U,$J,358.3,22611,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22611,1,3,0)
;;=3^Personal Hx of Suicidal Behavior
;;^UTILITY(U,$J,358.3,22611,1,4,0)
;;=4^Z91.51
;;^UTILITY(U,$J,358.3,22611,2)
;;=^5161317
;;^UTILITY(U,$J,358.3,22612,0)
;;=A15.0^^71^916^91
;;^UTILITY(U,$J,358.3,22612,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22612,1,3,0)
;;=3^Tuberculosis of Lung
;;^UTILITY(U,$J,358.3,22612,1,4,0)
;;=4^A15.0
;;^UTILITY(U,$J,358.3,22612,2)
;;=^5000062
;;^UTILITY(U,$J,358.3,22613,0)
;;=B20.^^71^916^34
;;^UTILITY(U,$J,358.3,22613,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22613,1,3,0)
;;=3^HIV Disease
;;^UTILITY(U,$J,358.3,22613,1,4,0)
;;=4^B20.
;;^UTILITY(U,$J,358.3,22613,2)
;;=^5000555
;;^UTILITY(U,$J,358.3,22614,0)
;;=B02.9^^71^916^100
;;^UTILITY(U,$J,358.3,22614,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22614,1,3,0)
;;=3^Zoster w/o Complications
;;^UTILITY(U,$J,358.3,22614,1,4,0)
;;=4^B02.9
;;^UTILITY(U,$J,358.3,22614,2)
;;=^5000501
;;^UTILITY(U,$J,358.3,22615,0)
;;=A60.9^^71^916^2
;;^UTILITY(U,$J,358.3,22615,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22615,1,3,0)
;;=3^Anogenital Herpesviral Infection,Unspec
;;^UTILITY(U,$J,358.3,22615,1,4,0)
;;=4^A60.9
;;^UTILITY(U,$J,358.3,22615,2)
;;=^5000359
;;^UTILITY(U,$J,358.3,22616,0)
;;=A60.04^^71^916^37
;;^UTILITY(U,$J,358.3,22616,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22616,1,3,0)
;;=3^Herpesviral Vulvovaginitis
;;^UTILITY(U,$J,358.3,22616,1,4,0)
;;=4^A60.04
;;^UTILITY(U,$J,358.3,22616,2)
;;=^5000356
;;^UTILITY(U,$J,358.3,22617,0)
;;=A60.01^^71^916^35
;;^UTILITY(U,$J,358.3,22617,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22617,1,3,0)
;;=3^Herpesviral Infection of Penis
;;^UTILITY(U,$J,358.3,22617,1,4,0)
;;=4^A60.01
;;^UTILITY(U,$J,358.3,22617,2)
;;=^5000353
;;^UTILITY(U,$J,358.3,22618,0)
;;=B00.1^^71^916^36
;;^UTILITY(U,$J,358.3,22618,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22618,1,3,0)
;;=3^Herpesviral Vesicular Dermatitis
;;^UTILITY(U,$J,358.3,22618,1,4,0)
;;=4^B00.1
;;^UTILITY(U,$J,358.3,22618,2)
;;=^5000468
;;^UTILITY(U,$J,358.3,22619,0)
;;=B97.89^^71^916^96
;;^UTILITY(U,$J,358.3,22619,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22619,1,3,0)
;;=3^Viral Agent Cause of Disease
;;^UTILITY(U,$J,358.3,22619,1,4,0)
;;=4^B97.89
;;^UTILITY(U,$J,358.3,22619,2)
;;=^5000879
;;^UTILITY(U,$J,358.3,22620,0)
;;=B97.10^^71^916^24
;;^UTILITY(U,$J,358.3,22620,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22620,1,3,0)
;;=3^Enterovirus Cause of Disease
;;^UTILITY(U,$J,358.3,22620,1,4,0)
;;=4^B97.10
;;^UTILITY(U,$J,358.3,22620,2)
;;=^5000861
;;^UTILITY(U,$J,358.3,22621,0)
;;=B34.9^^71^916^97
;;^UTILITY(U,$J,358.3,22621,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22621,1,3,0)
;;=3^Viral Infection,Unspec
;;^UTILITY(U,$J,358.3,22621,1,4,0)
;;=4^B34.9
;;^UTILITY(U,$J,358.3,22621,2)
;;=^5000603
;;^UTILITY(U,$J,358.3,22622,0)
;;=A69.20^^71^916^53
;;^UTILITY(U,$J,358.3,22622,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22622,1,3,0)
;;=3^Lyme Disease,Unspec
;;^UTILITY(U,$J,358.3,22622,1,4,0)
;;=4^A69.20
;;^UTILITY(U,$J,358.3,22622,2)
;;=^5000375
;;^UTILITY(U,$J,358.3,22623,0)
;;=A69.22^^71^916^55
;;^UTILITY(U,$J,358.3,22623,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22623,1,3,0)
;;=3^Neurologic Disorders d/t Lyme Disease
;;^UTILITY(U,$J,358.3,22623,1,4,0)
;;=4^A69.22
;;^UTILITY(U,$J,358.3,22623,2)
;;=^5000377
;;^UTILITY(U,$J,358.3,22624,0)
;;=A69.21^^71^916^54
;;^UTILITY(U,$J,358.3,22624,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22624,1,3,0)
;;=3^Meningitis d/t Lyme Disease
;;^UTILITY(U,$J,358.3,22624,1,4,0)
;;=4^A69.21
;;^UTILITY(U,$J,358.3,22624,2)
;;=^5000376
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI098 19746 printed Sep 23, 2025@19:20:07 Page 2
IBDEI098 ; ; 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,22557,0)
+2 ;;=Z96.21^^71^915^6
+3 ;;^UTILITY(U,$J,358.3,22557,1,0)
+4 ;;=^358.31IA^4^2
+5 ;;^UTILITY(U,$J,358.3,22557,1,3,0)
+6 ;;=3^Cochlear Implant Status
+7 ;;^UTILITY(U,$J,358.3,22557,1,4,0)
+8 ;;=4^Z96.21
+9 ;;^UTILITY(U,$J,358.3,22557,2)
+10 ;;=^5063684
+11 ;;^UTILITY(U,$J,358.3,22558,0)
+12 ;;=Z96.41^^71^915^132
+13 ;;^UTILITY(U,$J,358.3,22558,1,0)
+14 ;;=^358.31IA^4^2
+15 ;;^UTILITY(U,$J,358.3,22558,1,3,0)
+16 ;;=3^Presence of Insulin Pump
+17 ;;^UTILITY(U,$J,358.3,22558,1,4,0)
+18 ;;=4^Z96.41
+19 ;;^UTILITY(U,$J,358.3,22558,2)
+20 ;;=^5063688
+21 ;;^UTILITY(U,$J,358.3,22559,0)
+22 ;;=Z96.641^^71^915^140
+23 ;;^UTILITY(U,$J,358.3,22559,1,0)
+24 ;;=^358.31IA^4^2
+25 ;;^UTILITY(U,$J,358.3,22559,1,3,0)
+26 ;;=3^Presence of Right Artificial Hip Jt
+27 ;;^UTILITY(U,$J,358.3,22559,1,4,0)
+28 ;;=4^Z96.641
+29 ;;^UTILITY(U,$J,358.3,22559,2)
+30 ;;=^5063701
+31 ;;^UTILITY(U,$J,358.3,22560,0)
+32 ;;=Z96.642^^71^915^135
+33 ;;^UTILITY(U,$J,358.3,22560,1,0)
+34 ;;=^358.31IA^4^2
+35 ;;^UTILITY(U,$J,358.3,22560,1,3,0)
+36 ;;=3^Presence of Left Artificial Hip Jt
+37 ;;^UTILITY(U,$J,358.3,22560,1,4,0)
+38 ;;=4^Z96.642
+39 ;;^UTILITY(U,$J,358.3,22560,2)
+40 ;;=^5063702
+41 ;;^UTILITY(U,$J,358.3,22561,0)
+42 ;;=Z96.643^^71^915^119
+43 ;;^UTILITY(U,$J,358.3,22561,1,0)
+44 ;;=^358.31IA^4^2
+45 ;;^UTILITY(U,$J,358.3,22561,1,3,0)
+46 ;;=3^Presence of Artificial Hip Jt,Bilateral
+47 ;;^UTILITY(U,$J,358.3,22561,1,4,0)
+48 ;;=4^Z96.643
+49 ;;^UTILITY(U,$J,358.3,22561,2)
+50 ;;=^5063703
+51 ;;^UTILITY(U,$J,358.3,22562,0)
+52 ;;=Z96.651^^71^915^141
+53 ;;^UTILITY(U,$J,358.3,22562,1,0)
+54 ;;=^358.31IA^4^2
+55 ;;^UTILITY(U,$J,358.3,22562,1,3,0)
+56 ;;=3^Presence of Right Artificial Knee Jt
+57 ;;^UTILITY(U,$J,358.3,22562,1,4,0)
+58 ;;=4^Z96.651
+59 ;;^UTILITY(U,$J,358.3,22562,2)
+60 ;;=^5063705
+61 ;;^UTILITY(U,$J,358.3,22563,0)
+62 ;;=Z96.652^^71^915^136
+63 ;;^UTILITY(U,$J,358.3,22563,1,0)
+64 ;;=^358.31IA^4^2
+65 ;;^UTILITY(U,$J,358.3,22563,1,3,0)
+66 ;;=3^Presence of Left Artificial Knee Jt
+67 ;;^UTILITY(U,$J,358.3,22563,1,4,0)
+68 ;;=4^Z96.652
+69 ;;^UTILITY(U,$J,358.3,22563,2)
+70 ;;=^5063706
+71 ;;^UTILITY(U,$J,358.3,22564,0)
+72 ;;=Z96.653^^71^915^120
+73 ;;^UTILITY(U,$J,358.3,22564,1,0)
+74 ;;=^358.31IA^4^2
+75 ;;^UTILITY(U,$J,358.3,22564,1,3,0)
+76 ;;=3^Presence of Artificial Knee Jt,Bilateral
+77 ;;^UTILITY(U,$J,358.3,22564,1,4,0)
+78 ;;=4^Z96.653
+79 ;;^UTILITY(U,$J,358.3,22564,2)
+80 ;;=^5063707
+81 ;;^UTILITY(U,$J,358.3,22565,0)
+82 ;;=Z96.7^^71^915^125
+83 ;;^UTILITY(U,$J,358.3,22565,1,0)
+84 ;;=^358.31IA^4^2
+85 ;;^UTILITY(U,$J,358.3,22565,1,3,0)
+86 ;;=3^Presence of Bone/Tendon Implants NEC
+87 ;;^UTILITY(U,$J,358.3,22565,1,4,0)
+88 ;;=4^Z96.7
+89 ;;^UTILITY(U,$J,358.3,22565,2)
+90 ;;=^5063716
+91 ;;^UTILITY(U,$J,358.3,22566,0)
+92 ;;=Z97.11^^71^915^139
+93 ;;^UTILITY(U,$J,358.3,22566,1,0)
+94 ;;=^358.31IA^4^2
+95 ;;^UTILITY(U,$J,358.3,22566,1,3,0)
+96 ;;=3^Presence of Right Artificial Arm
+97 ;;^UTILITY(U,$J,358.3,22566,1,4,0)
+98 ;;=4^Z97.11
+99 ;;^UTILITY(U,$J,358.3,22566,2)
+100 ;;=^5063722
+101 ;;^UTILITY(U,$J,358.3,22567,0)
+102 ;;=Z97.12^^71^915^134
+103 ;;^UTILITY(U,$J,358.3,22567,1,0)
+104 ;;=^358.31IA^4^2
+105 ;;^UTILITY(U,$J,358.3,22567,1,3,0)
+106 ;;=3^Presence of Left Artificial Arm
+107 ;;^UTILITY(U,$J,358.3,22567,1,4,0)
+108 ;;=4^Z97.12
+109 ;;^UTILITY(U,$J,358.3,22567,2)
+110 ;;=^5063723
+111 ;;^UTILITY(U,$J,358.3,22568,0)
+112 ;;=Z97.13^^71^915^142
+113 ;;^UTILITY(U,$J,358.3,22568,1,0)
+114 ;;=^358.31IA^4^2
+115 ;;^UTILITY(U,$J,358.3,22568,1,3,0)
+116 ;;=3^Presence of Right Artificial Leg
+117 ;;^UTILITY(U,$J,358.3,22568,1,4,0)
+118 ;;=4^Z97.13
+119 ;;^UTILITY(U,$J,358.3,22568,2)
+120 ;;=^5063724
+121 ;;^UTILITY(U,$J,358.3,22569,0)
+122 ;;=Z97.14^^71^915^137
+123 ;;^UTILITY(U,$J,358.3,22569,1,0)
+124 ;;=^358.31IA^4^2
+125 ;;^UTILITY(U,$J,358.3,22569,1,3,0)
+126 ;;=3^Presence of Left Artificial Leg
+127 ;;^UTILITY(U,$J,358.3,22569,1,4,0)
+128 ;;=4^Z97.14
+129 ;;^UTILITY(U,$J,358.3,22569,2)
+130 ;;=^5063725
+131 ;;^UTILITY(U,$J,358.3,22570,0)
+132 ;;=Z97.15^^71^915^116
+133 ;;^UTILITY(U,$J,358.3,22570,1,0)
+134 ;;=^358.31IA^4^2
+135 ;;^UTILITY(U,$J,358.3,22570,1,3,0)
+136 ;;=3^Presence of Artificial Arms,Bilateral
+137 ;;^UTILITY(U,$J,358.3,22570,1,4,0)
+138 ;;=4^Z97.15
+139 ;;^UTILITY(U,$J,358.3,22570,2)
+140 ;;=^5063726
+141 ;;^UTILITY(U,$J,358.3,22571,0)
+142 ;;=Z97.16^^71^915^121
+143 ;;^UTILITY(U,$J,358.3,22571,1,0)
+144 ;;=^358.31IA^4^2
+145 ;;^UTILITY(U,$J,358.3,22571,1,3,0)
+146 ;;=3^Presence of Artificial Legs,Bilateral
+147 ;;^UTILITY(U,$J,358.3,22571,1,4,0)
+148 ;;=4^Z97.16
+149 ;;^UTILITY(U,$J,358.3,22571,2)
+150 ;;=^5063727
+151 ;;^UTILITY(U,$J,358.3,22572,0)
+152 ;;=Z98.61^^71^915^9
+153 ;;^UTILITY(U,$J,358.3,22572,1,0)
+154 ;;=^358.31IA^4^2
+155 ;;^UTILITY(U,$J,358.3,22572,1,3,0)
+156 ;;=3^Coronary Angioplasty Status
+157 ;;^UTILITY(U,$J,358.3,22572,1,4,0)
+158 ;;=4^Z98.61
+159 ;;^UTILITY(U,$J,358.3,22572,2)
+160 ;;=^5063742
+161 ;;^UTILITY(U,$J,358.3,22573,0)
+162 ;;=Z98.62^^71^915^66
+163 ;;^UTILITY(U,$J,358.3,22573,1,0)
+164 ;;=^358.31IA^4^2
+165 ;;^UTILITY(U,$J,358.3,22573,1,3,0)
+166 ;;=3^Peripheral Vascular Angioplasty Status w/o Graft
+167 ;;^UTILITY(U,$J,358.3,22573,1,4,0)
+168 ;;=4^Z98.62
+169 ;;^UTILITY(U,$J,358.3,22573,2)
+170 ;;=^5063743
+171 ;;^UTILITY(U,$J,358.3,22574,0)
+172 ;;=Z98.84^^71^915^4
+173 ;;^UTILITY(U,$J,358.3,22574,1,0)
+174 ;;=^358.31IA^4^2
+175 ;;^UTILITY(U,$J,358.3,22574,1,3,0)
+176 ;;=3^Bariatric Surgery Status
+177 ;;^UTILITY(U,$J,358.3,22574,1,4,0)
+178 ;;=4^Z98.84
+179 ;;^UTILITY(U,$J,358.3,22574,2)
+180 ;;=^5063749
+181 ;;^UTILITY(U,$J,358.3,22575,0)
+182 ;;=Z99.2^^71^915^147
+183 ;;^UTILITY(U,$J,358.3,22575,1,0)
+184 ;;=^358.31IA^4^2
+185 ;;^UTILITY(U,$J,358.3,22575,1,3,0)
+186 ;;=3^Renal Dialysis Dependence
+187 ;;^UTILITY(U,$J,358.3,22575,1,4,0)
+188 ;;=4^Z99.2
+189 ;;^UTILITY(U,$J,358.3,22575,2)
+190 ;;=^5063758
+191 ;;^UTILITY(U,$J,358.3,22576,0)
+192 ;;=Z99.81^^71^915^150
+193 ;;^UTILITY(U,$J,358.3,22576,1,0)
+194 ;;=^358.31IA^4^2
+195 ;;^UTILITY(U,$J,358.3,22576,1,3,0)
+196 ;;=3^Supplemental Oxygen Dependence
+197 ;;^UTILITY(U,$J,358.3,22576,1,4,0)
+198 ;;=4^Z99.81
+199 ;;^UTILITY(U,$J,358.3,22576,2)
+200 ;;=^5063760
+201 ;;^UTILITY(U,$J,358.3,22577,0)
+202 ;;=Z98.1^^71^915^2
+203 ;;^UTILITY(U,$J,358.3,22577,1,0)
+204 ;;=^358.31IA^4^2
+205 ;;^UTILITY(U,$J,358.3,22577,1,3,0)
+206 ;;=3^Arthrodesis Status
+207 ;;^UTILITY(U,$J,358.3,22577,1,4,0)
+208 ;;=4^Z98.1
+209 ;;^UTILITY(U,$J,358.3,22577,2)
+210 ;;=^5063734
+211 ;;^UTILITY(U,$J,358.3,22578,0)
+212 ;;=Z94.7^^71^915^8
+213 ;;^UTILITY(U,$J,358.3,22578,1,0)
+214 ;;=^358.31IA^4^2
+215 ;;^UTILITY(U,$J,358.3,22578,1,3,0)
+216 ;;=3^Corneal Transplant Status
+217 ;;^UTILITY(U,$J,358.3,22578,1,4,0)
+218 ;;=4^Z94.7
+219 ;;^UTILITY(U,$J,358.3,22578,2)
+220 ;;=^5063661
+221 ;;^UTILITY(U,$J,358.3,22579,0)
+222 ;;=Z83.511^^71^915^23
+223 ;;^UTILITY(U,$J,358.3,22579,1,0)
+224 ;;=^358.31IA^4^2
+225 ;;^UTILITY(U,$J,358.3,22579,1,3,0)
+226 ;;=3^Family Hx of Glaucoma
+227 ;;^UTILITY(U,$J,358.3,22579,1,4,0)
+228 ;;=4^Z83.511
+229 ;;^UTILITY(U,$J,358.3,22579,2)
+230 ;;=^5063382
+231 ;;^UTILITY(U,$J,358.3,22580,0)
+232 ;;=Z80.52^^71^915^26
+233 ;;^UTILITY(U,$J,358.3,22580,1,0)
+234 ;;=^358.31IA^4^2
+235 ;;^UTILITY(U,$J,358.3,22580,1,3,0)
+236 ;;=3^Family Hx of Malig Neop of Baldder
+237 ;;^UTILITY(U,$J,358.3,22580,1,4,0)
+238 ;;=4^Z80.52
+239 ;;^UTILITY(U,$J,358.3,22580,2)
+240 ;;=^5063352
+241 ;;^UTILITY(U,$J,358.3,22581,0)
+242 ;;=Z80.51^^71^915^29
+243 ;;^UTILITY(U,$J,358.3,22581,1,0)
+244 ;;=^358.31IA^4^2
+245 ;;^UTILITY(U,$J,358.3,22581,1,3,0)
+246 ;;=3^Family Hx of Malig Neop of Kidney
+247 ;;^UTILITY(U,$J,358.3,22581,1,4,0)
+248 ;;=4^Z80.51
+249 ;;^UTILITY(U,$J,358.3,22581,2)
+250 ;;=^321159
+251 ;;^UTILITY(U,$J,358.3,22582,0)
+252 ;;=Z83.41^^71^915^36
+253 ;;^UTILITY(U,$J,358.3,22582,1,0)
+254 ;;=^358.31IA^4^2
+255 ;;^UTILITY(U,$J,358.3,22582,1,3,0)
+256 ;;=3^Family Hx of Mult Endocrine Neoplasia Syndrome
+257 ;;^UTILITY(U,$J,358.3,22582,1,4,0)
+258 ;;=4^Z83.41
+259 ;;^UTILITY(U,$J,358.3,22582,2)
+260 ;;=^5063380
+261 ;;^UTILITY(U,$J,358.3,22583,0)
+262 ;;=Z81.8^^71^915^43
+263 ;;^UTILITY(U,$J,358.3,22583,1,0)
+264 ;;=^358.31IA^4^2
+265 ;;^UTILITY(U,$J,358.3,22583,1,3,0)
+266 ;;=3^Family Hx of Substance Abuse/Dependence,Psychoactive
+267 ;;^UTILITY(U,$J,358.3,22583,1,4,0)
+268 ;;=4^Z81.8
+269 ;;^UTILITY(U,$J,358.3,22583,2)
+270 ;;=^5063363
+271 ;;^UTILITY(U,$J,358.3,22584,0)
+272 ;;=Z81.4^^71^915^44
+273 ;;^UTILITY(U,$J,358.3,22584,1,0)
+274 ;;=^358.31IA^4^2
+275 ;;^UTILITY(U,$J,358.3,22584,1,3,0)
+276 ;;=3^Family Hx of Substance Abuse/Dependence NEC
+277 ;;^UTILITY(U,$J,358.3,22584,1,4,0)
+278 ;;=4^Z81.4
+279 ;;^UTILITY(U,$J,358.3,22584,2)
+280 ;;=^5063362
+281 ;;^UTILITY(U,$J,358.3,22585,0)
+282 ;;=Z98.0^^71^915^55
+283 ;;^UTILITY(U,$J,358.3,22585,1,0)
+284 ;;=^358.31IA^4^2
+285 ;;^UTILITY(U,$J,358.3,22585,1,3,0)
+286 ;;=3^Intestinal Bypass/Anastomosis Status
+287 ;;^UTILITY(U,$J,358.3,22585,1,4,0)
+288 ;;=4^Z98.0
+289 ;;^UTILITY(U,$J,358.3,22585,2)
+290 ;;=^5063733
+291 ;;^UTILITY(U,$J,358.3,22586,0)
+292 ;;=Z91.128^^71^915^54
+293 ;;^UTILITY(U,$J,358.3,22586,1,0)
+294 ;;=^358.31IA^4^2
+295 ;;^UTILITY(U,$J,358.3,22586,1,3,0)
+296 ;;=3^Intentional Underdose of Meds d/t Other Reasons
+297 ;;^UTILITY(U,$J,358.3,22586,1,4,0)
+298 ;;=4^Z91.128
+299 ;;^UTILITY(U,$J,358.3,22586,2)
+300 ;;=^5063613
+301 ;;^UTILITY(U,$J,358.3,22587,0)
+302 ;;=Z77.120^^71^915^60
+303 ;;^UTILITY(U,$J,358.3,22587,1,0)
+304 ;;=^358.31IA^4^2
+305 ;;^UTILITY(U,$J,358.3,22587,1,3,0)
+306 ;;=3^Mold (Toxic) Contact/Exposure
+307 ;;^UTILITY(U,$J,358.3,22587,1,4,0)
+308 ;;=4^Z77.120
+309 ;;^UTILITY(U,$J,358.3,22587,2)
+310 ;;=^5063318
+311 ;;^UTILITY(U,$J,358.3,22588,0)
+312 ;;=Z86.74^^71^915^103
+313 ;;^UTILITY(U,$J,358.3,22588,1,0)
+314 ;;=^358.31IA^4^2
+315 ;;^UTILITY(U,$J,358.3,22588,1,3,0)
+316 ;;=3^Personal Hx of Sudden Cardiac Arrest
+317 ;;^UTILITY(U,$J,358.3,22588,1,4,0)
+318 ;;=4^Z86.74
+319 ;;^UTILITY(U,$J,358.3,22588,2)
+320 ;;=^5063478
+321 ;;^UTILITY(U,$J,358.3,22589,0)
+322 ;;=Z86.718^^71^915^111
+323 ;;^UTILITY(U,$J,358.3,22589,1,0)
+324 ;;=^358.31IA^4^2
+325 ;;^UTILITY(U,$J,358.3,22589,1,3,0)
+326 ;;=3^Personal Hx of Venous Thrombosis/Embolism (DVT)
+327 ;;^UTILITY(U,$J,358.3,22589,1,4,0)
+328 ;;=4^Z86.718
+329 ;;^UTILITY(U,$J,358.3,22589,2)
+330 ;;=^5063475
+331 ;;^UTILITY(U,$J,358.3,22590,0)
+332 ;;=Z96.1^^71^915^133
+333 ;;^UTILITY(U,$J,358.3,22590,1,0)
+334 ;;=^358.31IA^4^2
+335 ;;^UTILITY(U,$J,358.3,22590,1,3,0)
+336 ;;=3^Presence of Intraocular Lens
+337 ;;^UTILITY(U,$J,358.3,22590,1,4,0)
+338 ;;=4^Z96.1
+339 ;;^UTILITY(U,$J,358.3,22590,2)
+340 ;;=^5063682
+341 ;;^UTILITY(U,$J,358.3,22591,0)
+342 ;;=Z96.612^^71^915^138
+343 ;;^UTILITY(U,$J,358.3,22591,1,0)
+344 ;;=^358.31IA^4^2
+345 ;;^UTILITY(U,$J,358.3,22591,1,3,0)
+346 ;;=3^Presence of Left Artificial Shoulder Joint
+347 ;;^UTILITY(U,$J,358.3,22591,1,4,0)
+348 ;;=4^Z96.612
+349 ;;^UTILITY(U,$J,358.3,22591,2)
+350 ;;=^5063693
+351 ;;^UTILITY(U,$J,358.3,22592,0)
+352 ;;=Z96.611^^71^915^143
+353 ;;^UTILITY(U,$J,358.3,22592,1,0)
+354 ;;=^358.31IA^4^2
+355 ;;^UTILITY(U,$J,358.3,22592,1,3,0)
+356 ;;=3^Presence of Right Artificial Shoulder Joint
+357 ;;^UTILITY(U,$J,358.3,22592,1,4,0)
+358 ;;=4^Z96.611
+359 ;;^UTILITY(U,$J,358.3,22592,2)
+360 ;;=^5063692
+361 ;;^UTILITY(U,$J,358.3,22593,0)
+362 ;;=Z93.0^^71^915^151
+363 ;;^UTILITY(U,$J,358.3,22593,1,0)
+364 ;;=^358.31IA^4^2
+365 ;;^UTILITY(U,$J,358.3,22593,1,3,0)
+366 ;;=3^Tracheostomy Status
+367 ;;^UTILITY(U,$J,358.3,22593,1,4,0)
+368 ;;=4^Z93.0
+369 ;;^UTILITY(U,$J,358.3,22593,2)
+370 ;;=^5063642
+371 ;;^UTILITY(U,$J,358.3,22594,0)
+372 ;;=Z99.3^^71^915^156
+373 ;;^UTILITY(U,$J,358.3,22594,1,0)
+374 ;;=^358.31IA^4^2
+375 ;;^UTILITY(U,$J,358.3,22594,1,3,0)
+376 ;;=3^Wheelchair Dependence
+377 ;;^UTILITY(U,$J,358.3,22594,1,4,0)
+378 ;;=4^Z99.3
+379 ;;^UTILITY(U,$J,358.3,22594,2)
+380 ;;=^5063759
+381 ;;^UTILITY(U,$J,358.3,22595,0)
+382 ;;=Z83.42^^71^915^21
+383 ;;^UTILITY(U,$J,358.3,22595,1,0)
+384 ;;=^358.31IA^4^2
+385 ;;^UTILITY(U,$J,358.3,22595,1,3,0)
+386 ;;=3^Family Hx of Familial Hypercholesterolemia
+387 ;;^UTILITY(U,$J,358.3,22595,1,4,0)
+388 ;;=4^Z83.42
+389 ;;^UTILITY(U,$J,358.3,22595,2)
+390 ;;=^8132985
+391 ;;^UTILITY(U,$J,358.3,22596,0)
+392 ;;=Z98.890^^71^915^114
+393 ;;^UTILITY(U,$J,358.3,22596,1,0)
+394 ;;=^358.31IA^4^2
+395 ;;^UTILITY(U,$J,358.3,22596,1,3,0)
+396 ;;=3^Postprocedural States/HX of Surgery NEC
+397 ;;^UTILITY(U,$J,358.3,22596,1,4,0)
+398 ;;=4^Z98.890
+399 ;;^UTILITY(U,$J,358.3,22596,2)
+400 ;;=^5063754
+401 ;;^UTILITY(U,$J,358.3,22597,0)
+402 ;;=Z95.1^^71^915^115
+403 ;;^UTILITY(U,$J,358.3,22597,1,0)
+404 ;;=^358.31IA^4^2
+405 ;;^UTILITY(U,$J,358.3,22597,1,3,0)
+406 ;;=3^Presence of Aortocoronary Bypass
+407 ;;^UTILITY(U,$J,358.3,22597,1,4,0)
+408 ;;=4^Z95.1
+409 ;;^UTILITY(U,$J,358.3,22597,2)
+410 ;;=^5063669
+411 ;;^UTILITY(U,$J,358.3,22598,0)
+412 ;;=Z98.2^^71^915^127
+413 ;;^UTILITY(U,$J,358.3,22598,1,0)
+414 ;;=^358.31IA^4^2
+415 ;;^UTILITY(U,$J,358.3,22598,1,3,0)
+416 ;;=3^Presence of Cerebrospinal Fluid Drainage Device
+417 ;;^UTILITY(U,$J,358.3,22598,1,4,0)
+418 ;;=4^Z98.2
+419 ;;^UTILITY(U,$J,358.3,22598,2)
+420 ;;=^5063735
+421 ;;^UTILITY(U,$J,358.3,22599,0)
+422 ;;=Z97.5^^71^915^128
+423 ;;^UTILITY(U,$J,358.3,22599,1,0)
+424 ;;=^358.31IA^4^2
+425 ;;^UTILITY(U,$J,358.3,22599,1,3,0)
+426 ;;=3^Presence of Contraceptive (Intrauterine) Device
+427 ;;^UTILITY(U,$J,358.3,22599,1,4,0)
+428 ;;=4^Z97.5
+429 ;;^UTILITY(U,$J,358.3,22599,2)
+430 ;;=^5063731
+431 ;;^UTILITY(U,$J,358.3,22600,0)
+432 ;;=Z95.5^^71^915^129
+433 ;;^UTILITY(U,$J,358.3,22600,1,0)
+434 ;;=^358.31IA^4^2
+435 ;;^UTILITY(U,$J,358.3,22600,1,3,0)
+436 ;;=3^Presence of Coronary Angioplasty Implant/Graft
+437 ;;^UTILITY(U,$J,358.3,22600,1,4,0)
+438 ;;=4^Z95.5
+439 ;;^UTILITY(U,$J,358.3,22600,2)
+440 ;;=^5063673
+441 ;;^UTILITY(U,$J,358.3,22601,0)
+442 ;;=Z97.2^^71^915^130
+443 ;;^UTILITY(U,$J,358.3,22601,1,0)
+444 ;;=^358.31IA^4^2
+445 ;;^UTILITY(U,$J,358.3,22601,1,3,0)
+446 ;;=3^Presence of Dental Prosthetic Device
+447 ;;^UTILITY(U,$J,358.3,22601,1,4,0)
+448 ;;=4^Z97.2
+449 ;;^UTILITY(U,$J,358.3,22601,2)
+450 ;;=^5063728
+451 ;;^UTILITY(U,$J,358.3,22602,0)
+452 ;;=Z97.4^^71^915^131
+453 ;;^UTILITY(U,$J,358.3,22602,1,0)
+454 ;;=^358.31IA^4^2
+455 ;;^UTILITY(U,$J,358.3,22602,1,3,0)
+456 ;;=3^Presence of External Hearing Aid
+457 ;;^UTILITY(U,$J,358.3,22602,1,4,0)
+458 ;;=4^Z97.4
+459 ;;^UTILITY(U,$J,358.3,22602,2)
+460 ;;=^5063730
+461 ;;^UTILITY(U,$J,358.3,22603,0)
+462 ;;=Z96.622^^71^915^117
+463 ;;^UTILITY(U,$J,358.3,22603,1,0)
+464 ;;=^358.31IA^4^2
+465 ;;^UTILITY(U,$J,358.3,22603,1,3,0)
+466 ;;=3^Presence of Artificial Elbow Joint,Left
+467 ;;^UTILITY(U,$J,358.3,22603,1,4,0)
+468 ;;=4^Z96.622
+469 ;;^UTILITY(U,$J,358.3,22603,2)
+470 ;;=^5063696
+471 ;;^UTILITY(U,$J,358.3,22604,0)
+472 ;;=Z96.632^^71^915^122
+473 ;;^UTILITY(U,$J,358.3,22604,1,0)
+474 ;;=^358.31IA^4^2
+475 ;;^UTILITY(U,$J,358.3,22604,1,3,0)
+476 ;;=3^Presence of Artificial Wrist Joint,Left
+477 ;;^UTILITY(U,$J,358.3,22604,1,4,0)
+478 ;;=4^Z96.632
+479 ;;^UTILITY(U,$J,358.3,22604,2)
+480 ;;=^5063699
+481 ;;^UTILITY(U,$J,358.3,22605,0)
+482 ;;=Z96.621^^71^915^118
+483 ;;^UTILITY(U,$J,358.3,22605,1,0)
+484 ;;=^358.31IA^4^2
+485 ;;^UTILITY(U,$J,358.3,22605,1,3,0)
+486 ;;=3^Presence of Artificial Elbow Joint,Right
+487 ;;^UTILITY(U,$J,358.3,22605,1,4,0)
+488 ;;=4^Z96.621
+489 ;;^UTILITY(U,$J,358.3,22605,2)
+490 ;;=^5063695
+491 ;;^UTILITY(U,$J,358.3,22606,0)
+492 ;;=Z96.631^^71^915^123
+493 ;;^UTILITY(U,$J,358.3,22606,1,0)
+494 ;;=^358.31IA^4^2
+495 ;;^UTILITY(U,$J,358.3,22606,1,3,0)
+496 ;;=3^Presence of Artificial Wrist Joint,Right
+497 ;;^UTILITY(U,$J,358.3,22606,1,4,0)
+498 ;;=4^Z96.631
+499 ;;^UTILITY(U,$J,358.3,22606,2)
+500 ;;=^5063698
+501 ;;^UTILITY(U,$J,358.3,22607,0)
+502 ;;=Z93.6^^71^915^154
+503 ;;^UTILITY(U,$J,358.3,22607,1,0)
+504 ;;=^358.31IA^4^2
+505 ;;^UTILITY(U,$J,358.3,22607,1,3,0)
+506 ;;=3^Urostomy Status
+507 ;;^UTILITY(U,$J,358.3,22607,1,4,0)
+508 ;;=4^Z93.6
+509 ;;^UTILITY(U,$J,358.3,22607,2)
+510 ;;=^5063651
+511 ;;^UTILITY(U,$J,358.3,22608,0)
+512 ;;=Z95.820^^71^915^67
+513 ;;^UTILITY(U,$J,358.3,22608,1,0)
+514 ;;=^358.31IA^4^2
+515 ;;^UTILITY(U,$J,358.3,22608,1,3,0)
+516 ;;=3^Peripheral Vascular Angioplasty Status w/ Graft
+517 ;;^UTILITY(U,$J,358.3,22608,1,4,0)
+518 ;;=4^Z95.820
+519 ;;^UTILITY(U,$J,358.3,22608,2)
+520 ;;=^5063678
+521 ;;^UTILITY(U,$J,358.3,22609,0)
+522 ;;=Z95.0^^71^915^126
+523 ;;^UTILITY(U,$J,358.3,22609,1,0)
+524 ;;=^358.31IA^4^2
+525 ;;^UTILITY(U,$J,358.3,22609,1,3,0)
+526 ;;=3^Presence of Cardiac Pacemaker
+527 ;;^UTILITY(U,$J,358.3,22609,1,4,0)
+528 ;;=4^Z95.0
+529 ;;^UTILITY(U,$J,358.3,22609,2)
+530 ;;=^5063668
+531 ;;^UTILITY(U,$J,358.3,22610,0)
+532 ;;=Z95.810^^71^915^124
+533 ;;^UTILITY(U,$J,358.3,22610,1,0)
+534 ;;=^358.31IA^4^2
+535 ;;^UTILITY(U,$J,358.3,22610,1,3,0)
+536 ;;=3^Presence of Automatic Cardiac Debribrillator
+537 ;;^UTILITY(U,$J,358.3,22610,1,4,0)
+538 ;;=4^Z95.810
+539 ;;^UTILITY(U,$J,358.3,22610,2)
+540 ;;=^5063674
+541 ;;^UTILITY(U,$J,358.3,22611,0)
+542 ;;=Z91.51^^71^915^104
+543 ;;^UTILITY(U,$J,358.3,22611,1,0)
+544 ;;=^358.31IA^4^2
+545 ;;^UTILITY(U,$J,358.3,22611,1,3,0)
+546 ;;=3^Personal Hx of Suicidal Behavior
+547 ;;^UTILITY(U,$J,358.3,22611,1,4,0)
+548 ;;=4^Z91.51
+549 ;;^UTILITY(U,$J,358.3,22611,2)
+550 ;;=^5161317
+551 ;;^UTILITY(U,$J,358.3,22612,0)
+552 ;;=A15.0^^71^916^91
+553 ;;^UTILITY(U,$J,358.3,22612,1,0)
+554 ;;=^358.31IA^4^2
+555 ;;^UTILITY(U,$J,358.3,22612,1,3,0)
+556 ;;=3^Tuberculosis of Lung
+557 ;;^UTILITY(U,$J,358.3,22612,1,4,0)
+558 ;;=4^A15.0
+559 ;;^UTILITY(U,$J,358.3,22612,2)
+560 ;;=^5000062
+561 ;;^UTILITY(U,$J,358.3,22613,0)
+562 ;;=B20.^^71^916^34
+563 ;;^UTILITY(U,$J,358.3,22613,1,0)
+564 ;;=^358.31IA^4^2
+565 ;;^UTILITY(U,$J,358.3,22613,1,3,0)
+566 ;;=3^HIV Disease
+567 ;;^UTILITY(U,$J,358.3,22613,1,4,0)
+568 ;;=4^B20.
+569 ;;^UTILITY(U,$J,358.3,22613,2)
+570 ;;=^5000555
+571 ;;^UTILITY(U,$J,358.3,22614,0)
+572 ;;=B02.9^^71^916^100
+573 ;;^UTILITY(U,$J,358.3,22614,1,0)
+574 ;;=^358.31IA^4^2
+575 ;;^UTILITY(U,$J,358.3,22614,1,3,0)
+576 ;;=3^Zoster w/o Complications
+577 ;;^UTILITY(U,$J,358.3,22614,1,4,0)
+578 ;;=4^B02.9
+579 ;;^UTILITY(U,$J,358.3,22614,2)
+580 ;;=^5000501
+581 ;;^UTILITY(U,$J,358.3,22615,0)
+582 ;;=A60.9^^71^916^2
+583 ;;^UTILITY(U,$J,358.3,22615,1,0)
+584 ;;=^358.31IA^4^2
+585 ;;^UTILITY(U,$J,358.3,22615,1,3,0)
+586 ;;=3^Anogenital Herpesviral Infection,Unspec
+587 ;;^UTILITY(U,$J,358.3,22615,1,4,0)
+588 ;;=4^A60.9
+589 ;;^UTILITY(U,$J,358.3,22615,2)
+590 ;;=^5000359
+591 ;;^UTILITY(U,$J,358.3,22616,0)
+592 ;;=A60.04^^71^916^37
+593 ;;^UTILITY(U,$J,358.3,22616,1,0)
+594 ;;=^358.31IA^4^2
+595 ;;^UTILITY(U,$J,358.3,22616,1,3,0)
+596 ;;=3^Herpesviral Vulvovaginitis
+597 ;;^UTILITY(U,$J,358.3,22616,1,4,0)
+598 ;;=4^A60.04
+599 ;;^UTILITY(U,$J,358.3,22616,2)
+600 ;;=^5000356
+601 ;;^UTILITY(U,$J,358.3,22617,0)
+602 ;;=A60.01^^71^916^35
+603 ;;^UTILITY(U,$J,358.3,22617,1,0)
+604 ;;=^358.31IA^4^2
+605 ;;^UTILITY(U,$J,358.3,22617,1,3,0)
+606 ;;=3^Herpesviral Infection of Penis
+607 ;;^UTILITY(U,$J,358.3,22617,1,4,0)
+608 ;;=4^A60.01
+609 ;;^UTILITY(U,$J,358.3,22617,2)
+610 ;;=^5000353
+611 ;;^UTILITY(U,$J,358.3,22618,0)
+612 ;;=B00.1^^71^916^36
+613 ;;^UTILITY(U,$J,358.3,22618,1,0)
+614 ;;=^358.31IA^4^2
+615 ;;^UTILITY(U,$J,358.3,22618,1,3,0)
+616 ;;=3^Herpesviral Vesicular Dermatitis
+617 ;;^UTILITY(U,$J,358.3,22618,1,4,0)
+618 ;;=4^B00.1
+619 ;;^UTILITY(U,$J,358.3,22618,2)
+620 ;;=^5000468
+621 ;;^UTILITY(U,$J,358.3,22619,0)
+622 ;;=B97.89^^71^916^96
+623 ;;^UTILITY(U,$J,358.3,22619,1,0)
+624 ;;=^358.31IA^4^2
+625 ;;^UTILITY(U,$J,358.3,22619,1,3,0)
+626 ;;=3^Viral Agent Cause of Disease
+627 ;;^UTILITY(U,$J,358.3,22619,1,4,0)
+628 ;;=4^B97.89
+629 ;;^UTILITY(U,$J,358.3,22619,2)
+630 ;;=^5000879
+631 ;;^UTILITY(U,$J,358.3,22620,0)
+632 ;;=B97.10^^71^916^24
+633 ;;^UTILITY(U,$J,358.3,22620,1,0)
+634 ;;=^358.31IA^4^2
+635 ;;^UTILITY(U,$J,358.3,22620,1,3,0)
+636 ;;=3^Enterovirus Cause of Disease
+637 ;;^UTILITY(U,$J,358.3,22620,1,4,0)
+638 ;;=4^B97.10
+639 ;;^UTILITY(U,$J,358.3,22620,2)
+640 ;;=^5000861
+641 ;;^UTILITY(U,$J,358.3,22621,0)
+642 ;;=B34.9^^71^916^97
+643 ;;^UTILITY(U,$J,358.3,22621,1,0)
+644 ;;=^358.31IA^4^2
+645 ;;^UTILITY(U,$J,358.3,22621,1,3,0)
+646 ;;=3^Viral Infection,Unspec
+647 ;;^UTILITY(U,$J,358.3,22621,1,4,0)
+648 ;;=4^B34.9
+649 ;;^UTILITY(U,$J,358.3,22621,2)
+650 ;;=^5000603
+651 ;;^UTILITY(U,$J,358.3,22622,0)
+652 ;;=A69.20^^71^916^53
+653 ;;^UTILITY(U,$J,358.3,22622,1,0)
+654 ;;=^358.31IA^4^2
+655 ;;^UTILITY(U,$J,358.3,22622,1,3,0)
+656 ;;=3^Lyme Disease,Unspec
+657 ;;^UTILITY(U,$J,358.3,22622,1,4,0)
+658 ;;=4^A69.20
+659 ;;^UTILITY(U,$J,358.3,22622,2)
+660 ;;=^5000375
+661 ;;^UTILITY(U,$J,358.3,22623,0)
+662 ;;=A69.22^^71^916^55
+663 ;;^UTILITY(U,$J,358.3,22623,1,0)
+664 ;;=^358.31IA^4^2
+665 ;;^UTILITY(U,$J,358.3,22623,1,3,0)
+666 ;;=3^Neurologic Disorders d/t Lyme Disease
+667 ;;^UTILITY(U,$J,358.3,22623,1,4,0)
+668 ;;=4^A69.22
+669 ;;^UTILITY(U,$J,358.3,22623,2)
+670 ;;=^5000377
+671 ;;^UTILITY(U,$J,358.3,22624,0)
+672 ;;=A69.21^^71^916^54
+673 ;;^UTILITY(U,$J,358.3,22624,1,0)
+674 ;;=^358.31IA^4^2
+675 ;;^UTILITY(U,$J,358.3,22624,1,3,0)
+676 ;;=3^Meningitis d/t Lyme Disease
+677 ;;^UTILITY(U,$J,358.3,22624,1,4,0)
+678 ;;=4^A69.21
+679 ;;^UTILITY(U,$J,358.3,22624,2)
+680 ;;=^5000376
