IBDEI0DT ; ; 03-MAY-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,34637,0)
;;=Z91.130^^105^1434^152
;;^UTILITY(U,$J,358.3,34637,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34637,1,3,0)
;;=3^Underdose of Med Regiment d/t Age-Related Debility
;;^UTILITY(U,$J,358.3,34637,1,4,0)
;;=4^Z91.130
;;^UTILITY(U,$J,358.3,34637,2)
;;=^5063614
;;^UTILITY(U,$J,358.3,34638,0)
;;=Z91.138^^105^1434^153
;;^UTILITY(U,$J,358.3,34638,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34638,1,3,0)
;;=3^Underdose of Med Regiment for Other Reason
;;^UTILITY(U,$J,358.3,34638,1,4,0)
;;=4^Z91.138
;;^UTILITY(U,$J,358.3,34638,2)
;;=^5063615
;;^UTILITY(U,$J,358.3,34639,0)
;;=Z91.14^^105^1434^64
;;^UTILITY(U,$J,358.3,34639,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34639,1,3,0)
;;=3^Noncompliance w/ Medication Regimen
;;^UTILITY(U,$J,358.3,34639,1,4,0)
;;=4^Z91.14
;;^UTILITY(U,$J,358.3,34639,2)
;;=^5063616
;;^UTILITY(U,$J,358.3,34640,0)
;;=Z91.19^^105^1434^63
;;^UTILITY(U,$J,358.3,34640,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34640,1,3,0)
;;=3^Noncompliance w/ Medical Treatment & Regimen
;;^UTILITY(U,$J,358.3,34640,1,4,0)
;;=4^Z91.19
;;^UTILITY(U,$J,358.3,34640,2)
;;=^5063618
;;^UTILITY(U,$J,358.3,34641,0)
;;=Z93.1^^105^1434^45
;;^UTILITY(U,$J,358.3,34641,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34641,1,3,0)
;;=3^Gastrostomy Status
;;^UTILITY(U,$J,358.3,34641,1,4,0)
;;=4^Z93.1
;;^UTILITY(U,$J,358.3,34641,2)
;;=^5063643
;;^UTILITY(U,$J,358.3,34642,0)
;;=Z93.2^^105^1434^51
;;^UTILITY(U,$J,358.3,34642,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34642,1,3,0)
;;=3^Ileostomy Status
;;^UTILITY(U,$J,358.3,34642,1,4,0)
;;=4^Z93.2
;;^UTILITY(U,$J,358.3,34642,2)
;;=^5063644
;;^UTILITY(U,$J,358.3,34643,0)
;;=Z93.3^^105^1434^7
;;^UTILITY(U,$J,358.3,34643,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34643,1,3,0)
;;=3^Colostomy Status
;;^UTILITY(U,$J,358.3,34643,1,4,0)
;;=4^Z93.3
;;^UTILITY(U,$J,358.3,34643,2)
;;=^5063645
;;^UTILITY(U,$J,358.3,34644,0)
;;=Z94.0^^105^1434^56
;;^UTILITY(U,$J,358.3,34644,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34644,1,3,0)
;;=3^Kidney Transplant Status
;;^UTILITY(U,$J,358.3,34644,1,4,0)
;;=4^Z94.0
;;^UTILITY(U,$J,358.3,34644,2)
;;=^5063654
;;^UTILITY(U,$J,358.3,34645,0)
;;=Z94.1^^105^1434^49
;;^UTILITY(U,$J,358.3,34645,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34645,1,3,0)
;;=3^Heart Transplant Status
;;^UTILITY(U,$J,358.3,34645,1,4,0)
;;=4^Z94.1
;;^UTILITY(U,$J,358.3,34645,2)
;;=^5063655
;;^UTILITY(U,$J,358.3,34646,0)
;;=Z94.2^^105^1434^59
;;^UTILITY(U,$J,358.3,34646,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34646,1,3,0)
;;=3^Lung Transplant Status
;;^UTILITY(U,$J,358.3,34646,1,4,0)
;;=4^Z94.2
;;^UTILITY(U,$J,358.3,34646,2)
;;=^5063656
;;^UTILITY(U,$J,358.3,34647,0)
;;=Z94.3^^105^1434^48
;;^UTILITY(U,$J,358.3,34647,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34647,1,3,0)
;;=3^Heart & Lungs Transplant Status
;;^UTILITY(U,$J,358.3,34647,1,4,0)
;;=4^Z94.3
;;^UTILITY(U,$J,358.3,34647,2)
;;=^5063657
;;^UTILITY(U,$J,358.3,34648,0)
;;=Z94.4^^105^1434^58
;;^UTILITY(U,$J,358.3,34648,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34648,1,3,0)
;;=3^Liver Transplant Status
;;^UTILITY(U,$J,358.3,34648,1,4,0)
;;=4^Z94.4
;;^UTILITY(U,$J,358.3,34648,2)
;;=^5063658
;;^UTILITY(U,$J,358.3,34649,0)
;;=Z94.84^^105^1434^149
;;^UTILITY(U,$J,358.3,34649,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34649,1,3,0)
;;=3^Stem Cell Transplant Status
;;^UTILITY(U,$J,358.3,34649,1,4,0)
;;=4^Z94.84
;;^UTILITY(U,$J,358.3,34649,2)
;;=^5063665
;;^UTILITY(U,$J,358.3,34650,0)
;;=Z96.21^^105^1434^6
;;^UTILITY(U,$J,358.3,34650,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34650,1,3,0)
;;=3^Cochlear Implant Status
;;^UTILITY(U,$J,358.3,34650,1,4,0)
;;=4^Z96.21
;;^UTILITY(U,$J,358.3,34650,2)
;;=^5063684
;;^UTILITY(U,$J,358.3,34651,0)
;;=Z96.41^^105^1434^132
;;^UTILITY(U,$J,358.3,34651,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34651,1,3,0)
;;=3^Presence of Insulin Pump
;;^UTILITY(U,$J,358.3,34651,1,4,0)
;;=4^Z96.41
;;^UTILITY(U,$J,358.3,34651,2)
;;=^5063688
;;^UTILITY(U,$J,358.3,34652,0)
;;=Z96.641^^105^1434^140
;;^UTILITY(U,$J,358.3,34652,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34652,1,3,0)
;;=3^Presence of Right Artificial Hip Jt
;;^UTILITY(U,$J,358.3,34652,1,4,0)
;;=4^Z96.641
;;^UTILITY(U,$J,358.3,34652,2)
;;=^5063701
;;^UTILITY(U,$J,358.3,34653,0)
;;=Z96.642^^105^1434^135
;;^UTILITY(U,$J,358.3,34653,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34653,1,3,0)
;;=3^Presence of Left Artificial Hip Jt
;;^UTILITY(U,$J,358.3,34653,1,4,0)
;;=4^Z96.642
;;^UTILITY(U,$J,358.3,34653,2)
;;=^5063702
;;^UTILITY(U,$J,358.3,34654,0)
;;=Z96.643^^105^1434^119
;;^UTILITY(U,$J,358.3,34654,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34654,1,3,0)
;;=3^Presence of Artificial Hip Jt,Bilateral
;;^UTILITY(U,$J,358.3,34654,1,4,0)
;;=4^Z96.643
;;^UTILITY(U,$J,358.3,34654,2)
;;=^5063703
;;^UTILITY(U,$J,358.3,34655,0)
;;=Z96.651^^105^1434^141
;;^UTILITY(U,$J,358.3,34655,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34655,1,3,0)
;;=3^Presence of Right Artificial Knee Jt
;;^UTILITY(U,$J,358.3,34655,1,4,0)
;;=4^Z96.651
;;^UTILITY(U,$J,358.3,34655,2)
;;=^5063705
;;^UTILITY(U,$J,358.3,34656,0)
;;=Z96.652^^105^1434^136
;;^UTILITY(U,$J,358.3,34656,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34656,1,3,0)
;;=3^Presence of Left Artificial Knee Jt
;;^UTILITY(U,$J,358.3,34656,1,4,0)
;;=4^Z96.652
;;^UTILITY(U,$J,358.3,34656,2)
;;=^5063706
;;^UTILITY(U,$J,358.3,34657,0)
;;=Z96.653^^105^1434^120
;;^UTILITY(U,$J,358.3,34657,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34657,1,3,0)
;;=3^Presence of Artificial Knee Jt,Bilateral
;;^UTILITY(U,$J,358.3,34657,1,4,0)
;;=4^Z96.653
;;^UTILITY(U,$J,358.3,34657,2)
;;=^5063707
;;^UTILITY(U,$J,358.3,34658,0)
;;=Z96.7^^105^1434^125
;;^UTILITY(U,$J,358.3,34658,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34658,1,3,0)
;;=3^Presence of Bone/Tendon Implants NEC
;;^UTILITY(U,$J,358.3,34658,1,4,0)
;;=4^Z96.7
;;^UTILITY(U,$J,358.3,34658,2)
;;=^5063716
;;^UTILITY(U,$J,358.3,34659,0)
;;=Z97.11^^105^1434^139
;;^UTILITY(U,$J,358.3,34659,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34659,1,3,0)
;;=3^Presence of Right Artificial Arm
;;^UTILITY(U,$J,358.3,34659,1,4,0)
;;=4^Z97.11
;;^UTILITY(U,$J,358.3,34659,2)
;;=^5063722
;;^UTILITY(U,$J,358.3,34660,0)
;;=Z97.12^^105^1434^134
;;^UTILITY(U,$J,358.3,34660,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34660,1,3,0)
;;=3^Presence of Left Artificial Arm
;;^UTILITY(U,$J,358.3,34660,1,4,0)
;;=4^Z97.12
;;^UTILITY(U,$J,358.3,34660,2)
;;=^5063723
;;^UTILITY(U,$J,358.3,34661,0)
;;=Z97.13^^105^1434^142
;;^UTILITY(U,$J,358.3,34661,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34661,1,3,0)
;;=3^Presence of Right Artificial Leg
;;^UTILITY(U,$J,358.3,34661,1,4,0)
;;=4^Z97.13
;;^UTILITY(U,$J,358.3,34661,2)
;;=^5063724
;;^UTILITY(U,$J,358.3,34662,0)
;;=Z97.14^^105^1434^137
;;^UTILITY(U,$J,358.3,34662,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34662,1,3,0)
;;=3^Presence of Left Artificial Leg
;;^UTILITY(U,$J,358.3,34662,1,4,0)
;;=4^Z97.14
;;^UTILITY(U,$J,358.3,34662,2)
;;=^5063725
;;^UTILITY(U,$J,358.3,34663,0)
;;=Z97.15^^105^1434^116
;;^UTILITY(U,$J,358.3,34663,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34663,1,3,0)
;;=3^Presence of Artificial Arms,Bilateral
;;^UTILITY(U,$J,358.3,34663,1,4,0)
;;=4^Z97.15
;;^UTILITY(U,$J,358.3,34663,2)
;;=^5063726
;;^UTILITY(U,$J,358.3,34664,0)
;;=Z97.16^^105^1434^121
;;^UTILITY(U,$J,358.3,34664,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34664,1,3,0)
;;=3^Presence of Artificial Legs,Bilateral
;;^UTILITY(U,$J,358.3,34664,1,4,0)
;;=4^Z97.16
;;^UTILITY(U,$J,358.3,34664,2)
;;=^5063727
;;^UTILITY(U,$J,358.3,34665,0)
;;=Z98.61^^105^1434^9
;;^UTILITY(U,$J,358.3,34665,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34665,1,3,0)
;;=3^Coronary Angioplasty Status
;;^UTILITY(U,$J,358.3,34665,1,4,0)
;;=4^Z98.61
;;^UTILITY(U,$J,358.3,34665,2)
;;=^5063742
;;^UTILITY(U,$J,358.3,34666,0)
;;=Z98.62^^105^1434^66
;;^UTILITY(U,$J,358.3,34666,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34666,1,3,0)
;;=3^Peripheral Vascular Angioplasty Status w/o Graft
;;^UTILITY(U,$J,358.3,34666,1,4,0)
;;=4^Z98.62
;;^UTILITY(U,$J,358.3,34666,2)
;;=^5063743
;;^UTILITY(U,$J,358.3,34667,0)
;;=Z98.84^^105^1434^4
;;^UTILITY(U,$J,358.3,34667,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34667,1,3,0)
;;=3^Bariatric Surgery Status
;;^UTILITY(U,$J,358.3,34667,1,4,0)
;;=4^Z98.84
;;^UTILITY(U,$J,358.3,34667,2)
;;=^5063749
;;^UTILITY(U,$J,358.3,34668,0)
;;=Z99.2^^105^1434^147
;;^UTILITY(U,$J,358.3,34668,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34668,1,3,0)
;;=3^Renal Dialysis Dependence
;;^UTILITY(U,$J,358.3,34668,1,4,0)
;;=4^Z99.2
;;^UTILITY(U,$J,358.3,34668,2)
;;=^5063758
;;^UTILITY(U,$J,358.3,34669,0)
;;=Z99.81^^105^1434^150
;;^UTILITY(U,$J,358.3,34669,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34669,1,3,0)
;;=3^Supplemental Oxygen Dependence
;;^UTILITY(U,$J,358.3,34669,1,4,0)
;;=4^Z99.81
;;^UTILITY(U,$J,358.3,34669,2)
;;=^5063760
;;^UTILITY(U,$J,358.3,34670,0)
;;=Z98.1^^105^1434^2
;;^UTILITY(U,$J,358.3,34670,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34670,1,3,0)
;;=3^Arthrodesis Status
;;^UTILITY(U,$J,358.3,34670,1,4,0)
;;=4^Z98.1
;;^UTILITY(U,$J,358.3,34670,2)
;;=^5063734
;;^UTILITY(U,$J,358.3,34671,0)
;;=Z94.7^^105^1434^8
;;^UTILITY(U,$J,358.3,34671,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34671,1,3,0)
;;=3^Corneal Transplant Status
;;^UTILITY(U,$J,358.3,34671,1,4,0)
;;=4^Z94.7
;;^UTILITY(U,$J,358.3,34671,2)
;;=^5063661
;;^UTILITY(U,$J,358.3,34672,0)
;;=Z83.511^^105^1434^23
;;^UTILITY(U,$J,358.3,34672,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34672,1,3,0)
;;=3^Family Hx of Glaucoma
;;^UTILITY(U,$J,358.3,34672,1,4,0)
;;=4^Z83.511
;;^UTILITY(U,$J,358.3,34672,2)
;;=^5063382
;;^UTILITY(U,$J,358.3,34673,0)
;;=Z80.52^^105^1434^26
;;^UTILITY(U,$J,358.3,34673,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34673,1,3,0)
;;=3^Family Hx of Malig Neop of Baldder
;;^UTILITY(U,$J,358.3,34673,1,4,0)
;;=4^Z80.52
;;^UTILITY(U,$J,358.3,34673,2)
;;=^5063352
;;^UTILITY(U,$J,358.3,34674,0)
;;=Z80.51^^105^1434^29
;;^UTILITY(U,$J,358.3,34674,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34674,1,3,0)
;;=3^Family Hx of Malig Neop of Kidney
;;^UTILITY(U,$J,358.3,34674,1,4,0)
;;=4^Z80.51
;;^UTILITY(U,$J,358.3,34674,2)
;;=^321159
;;^UTILITY(U,$J,358.3,34675,0)
;;=Z83.41^^105^1434^36
;;^UTILITY(U,$J,358.3,34675,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34675,1,3,0)
;;=3^Family Hx of Mult Endocrine Neoplasia Syndrome
;;^UTILITY(U,$J,358.3,34675,1,4,0)
;;=4^Z83.41
;;^UTILITY(U,$J,358.3,34675,2)
;;=^5063380
;;^UTILITY(U,$J,358.3,34676,0)
;;=Z81.8^^105^1434^43
;;^UTILITY(U,$J,358.3,34676,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34676,1,3,0)
;;=3^Family Hx of Substance Abuse/Dependence,Psychoactive
;;^UTILITY(U,$J,358.3,34676,1,4,0)
;;=4^Z81.8
;;^UTILITY(U,$J,358.3,34676,2)
;;=^5063363
;;^UTILITY(U,$J,358.3,34677,0)
;;=Z81.4^^105^1434^44
;;^UTILITY(U,$J,358.3,34677,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34677,1,3,0)
;;=3^Family Hx of Substance Abuse/Dependence NEC
;;^UTILITY(U,$J,358.3,34677,1,4,0)
;;=4^Z81.4
;;^UTILITY(U,$J,358.3,34677,2)
;;=^5063362
;;^UTILITY(U,$J,358.3,34678,0)
;;=Z98.0^^105^1434^55
;;^UTILITY(U,$J,358.3,34678,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34678,1,3,0)
;;=3^Intestinal Bypass/Anastomosis Status
;;^UTILITY(U,$J,358.3,34678,1,4,0)
;;=4^Z98.0
;;^UTILITY(U,$J,358.3,34678,2)
;;=^5063733
;;^UTILITY(U,$J,358.3,34679,0)
;;=Z91.128^^105^1434^54
;;^UTILITY(U,$J,358.3,34679,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34679,1,3,0)
;;=3^Intentional Underdose of Meds d/t Other Reasons
;;^UTILITY(U,$J,358.3,34679,1,4,0)
;;=4^Z91.128
;;^UTILITY(U,$J,358.3,34679,2)
;;=^5063613
;;^UTILITY(U,$J,358.3,34680,0)
;;=Z77.120^^105^1434^60
;;^UTILITY(U,$J,358.3,34680,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34680,1,3,0)
;;=3^Mold (Toxic) Contact/Exposure
;;^UTILITY(U,$J,358.3,34680,1,4,0)
;;=4^Z77.120
;;^UTILITY(U,$J,358.3,34680,2)
;;=^5063318
;;^UTILITY(U,$J,358.3,34681,0)
;;=Z86.74^^105^1434^103
;;^UTILITY(U,$J,358.3,34681,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34681,1,3,0)
;;=3^Personal Hx of Sudden Cardiac Arrest
;;^UTILITY(U,$J,358.3,34681,1,4,0)
;;=4^Z86.74
;;^UTILITY(U,$J,358.3,34681,2)
;;=^5063478
;;^UTILITY(U,$J,358.3,34682,0)
;;=Z86.718^^105^1434^111
;;^UTILITY(U,$J,358.3,34682,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34682,1,3,0)
;;=3^Personal Hx of Venous Thrombosis/Embolism (DVT)
;;^UTILITY(U,$J,358.3,34682,1,4,0)
;;=4^Z86.718
;;^UTILITY(U,$J,358.3,34682,2)
;;=^5063475
;;^UTILITY(U,$J,358.3,34683,0)
;;=Z96.1^^105^1434^133
;;^UTILITY(U,$J,358.3,34683,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34683,1,3,0)
;;=3^Presence of Intraocular Lens
;;^UTILITY(U,$J,358.3,34683,1,4,0)
;;=4^Z96.1
;;^UTILITY(U,$J,358.3,34683,2)
;;=^5063682
;;^UTILITY(U,$J,358.3,34684,0)
;;=Z96.612^^105^1434^138
;;^UTILITY(U,$J,358.3,34684,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34684,1,3,0)
;;=3^Presence of Left Artificial Shoulder Joint
;;^UTILITY(U,$J,358.3,34684,1,4,0)
;;=4^Z96.612
;;^UTILITY(U,$J,358.3,34684,2)
;;=^5063693
;;^UTILITY(U,$J,358.3,34685,0)
;;=Z96.611^^105^1434^143
;;^UTILITY(U,$J,358.3,34685,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34685,1,3,0)
;;=3^Presence of Right Artificial Shoulder Joint
;;^UTILITY(U,$J,358.3,34685,1,4,0)
;;=4^Z96.611
;;^UTILITY(U,$J,358.3,34685,2)
;;=^5063692
;;^UTILITY(U,$J,358.3,34686,0)
;;=Z93.0^^105^1434^151
;;^UTILITY(U,$J,358.3,34686,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34686,1,3,0)
;;=3^Tracheostomy Status
;;^UTILITY(U,$J,358.3,34686,1,4,0)
;;=4^Z93.0
;;^UTILITY(U,$J,358.3,34686,2)
;;=^5063642
;;^UTILITY(U,$J,358.3,34687,0)
;;=Z99.3^^105^1434^156
;;^UTILITY(U,$J,358.3,34687,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34687,1,3,0)
;;=3^Wheelchair Dependence
;;^UTILITY(U,$J,358.3,34687,1,4,0)
;;=4^Z99.3
;;^UTILITY(U,$J,358.3,34687,2)
;;=^5063759
;;^UTILITY(U,$J,358.3,34688,0)
;;=Z83.42^^105^1434^21
;;^UTILITY(U,$J,358.3,34688,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34688,1,3,0)
;;=3^Family Hx of Familial Hypercholesterolemia
;;^UTILITY(U,$J,358.3,34688,1,4,0)
;;=4^Z83.42
;;^UTILITY(U,$J,358.3,34688,2)
;;=^8132985
;;^UTILITY(U,$J,358.3,34689,0)
;;=Z98.890^^105^1434^114
;;^UTILITY(U,$J,358.3,34689,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34689,1,3,0)
;;=3^Postprocedural States/HX of Surgery NEC
;;^UTILITY(U,$J,358.3,34689,1,4,0)
;;=4^Z98.890
;;^UTILITY(U,$J,358.3,34689,2)
;;=^5063754
;;^UTILITY(U,$J,358.3,34690,0)
;;=Z95.1^^105^1434^115
;;^UTILITY(U,$J,358.3,34690,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34690,1,3,0)
;;=3^Presence of Aortocoronary Bypass
;;^UTILITY(U,$J,358.3,34690,1,4,0)
;;=4^Z95.1
;;^UTILITY(U,$J,358.3,34690,2)
;;=^5063669
;;^UTILITY(U,$J,358.3,34691,0)
;;=Z98.2^^105^1434^127
;;^UTILITY(U,$J,358.3,34691,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34691,1,3,0)
;;=3^Presence of Cerebrospinal Fluid Drainage Device
;;^UTILITY(U,$J,358.3,34691,1,4,0)
;;=4^Z98.2
;;^UTILITY(U,$J,358.3,34691,2)
;;=^5063735
;;^UTILITY(U,$J,358.3,34692,0)
;;=Z97.5^^105^1434^128
;;^UTILITY(U,$J,358.3,34692,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34692,1,3,0)
;;=3^Presence of Contraceptive (Intrauterine) Device
;;^UTILITY(U,$J,358.3,34692,1,4,0)
;;=4^Z97.5
;;^UTILITY(U,$J,358.3,34692,2)
;;=^5063731
;;^UTILITY(U,$J,358.3,34693,0)
;;=Z95.5^^105^1434^129
;;^UTILITY(U,$J,358.3,34693,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34693,1,3,0)
;;=3^Presence of Coronary Angioplasty Implant/Graft
;;^UTILITY(U,$J,358.3,34693,1,4,0)
;;=4^Z95.5
;;^UTILITY(U,$J,358.3,34693,2)
;;=^5063673
;;^UTILITY(U,$J,358.3,34694,0)
;;=Z97.2^^105^1434^130
;;^UTILITY(U,$J,358.3,34694,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34694,1,3,0)
;;=3^Presence of Dental Prosthetic Device
;;^UTILITY(U,$J,358.3,34694,1,4,0)
;;=4^Z97.2
;;^UTILITY(U,$J,358.3,34694,2)
;;=^5063728
;;^UTILITY(U,$J,358.3,34695,0)
;;=Z97.4^^105^1434^131
;;^UTILITY(U,$J,358.3,34695,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34695,1,3,0)
;;=3^Presence of External Hearing Aid
;;^UTILITY(U,$J,358.3,34695,1,4,0)
;;=4^Z97.4
;;^UTILITY(U,$J,358.3,34695,2)
;;=^5063730
;;^UTILITY(U,$J,358.3,34696,0)
;;=Z96.622^^105^1434^117
;;^UTILITY(U,$J,358.3,34696,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34696,1,3,0)
;;=3^Presence of Artificial Elbow Joint,Left
;;^UTILITY(U,$J,358.3,34696,1,4,0)
;;=4^Z96.622
;;^UTILITY(U,$J,358.3,34696,2)
;;=^5063696
;;^UTILITY(U,$J,358.3,34697,0)
;;=Z96.632^^105^1434^122
;;^UTILITY(U,$J,358.3,34697,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34697,1,3,0)
;;=3^Presence of Artificial Wrist Joint,Left
;;^UTILITY(U,$J,358.3,34697,1,4,0)
;;=4^Z96.632
;;^UTILITY(U,$J,358.3,34697,2)
;;=^5063699
;;^UTILITY(U,$J,358.3,34698,0)
;;=Z96.621^^105^1434^118
;;^UTILITY(U,$J,358.3,34698,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34698,1,3,0)
;;=3^Presence of Artificial Elbow Joint,Right
;;^UTILITY(U,$J,358.3,34698,1,4,0)
;;=4^Z96.621
;;^UTILITY(U,$J,358.3,34698,2)
;;=^5063695
;;^UTILITY(U,$J,358.3,34699,0)
;;=Z96.631^^105^1434^123
;;^UTILITY(U,$J,358.3,34699,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34699,1,3,0)
;;=3^Presence of Artificial Wrist Joint,Right
;;^UTILITY(U,$J,358.3,34699,1,4,0)
;;=4^Z96.631
;;^UTILITY(U,$J,358.3,34699,2)
;;=^5063698
;;^UTILITY(U,$J,358.3,34700,0)
;;=Z93.6^^105^1434^154
;;^UTILITY(U,$J,358.3,34700,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34700,1,3,0)
;;=3^Urostomy Status
;;^UTILITY(U,$J,358.3,34700,1,4,0)
;;=4^Z93.6
;;^UTILITY(U,$J,358.3,34700,2)
;;=^5063651
;;^UTILITY(U,$J,358.3,34701,0)
;;=Z95.820^^105^1434^67
;;^UTILITY(U,$J,358.3,34701,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34701,1,3,0)
;;=3^Peripheral Vascular Angioplasty Status w/ Graft
;;^UTILITY(U,$J,358.3,34701,1,4,0)
;;=4^Z95.820
;;^UTILITY(U,$J,358.3,34701,2)
;;=^5063678
;;^UTILITY(U,$J,358.3,34702,0)
;;=Z95.0^^105^1434^126
;;^UTILITY(U,$J,358.3,34702,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34702,1,3,0)
;;=3^Presence of Cardiac Pacemaker
;;^UTILITY(U,$J,358.3,34702,1,4,0)
;;=4^Z95.0
;;^UTILITY(U,$J,358.3,34702,2)
;;=^5063668
;;^UTILITY(U,$J,358.3,34703,0)
;;=Z95.810^^105^1434^124
;;^UTILITY(U,$J,358.3,34703,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34703,1,3,0)
;;=3^Presence of Automatic Cardiac Debribrillator
;;^UTILITY(U,$J,358.3,34703,1,4,0)
;;=4^Z95.810
;;^UTILITY(U,$J,358.3,34703,2)
;;=^5063674
;;^UTILITY(U,$J,358.3,34704,0)
;;=Z91.51^^105^1434^104
;;^UTILITY(U,$J,358.3,34704,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34704,1,3,0)
;;=3^Personal Hx of Suicidal Behavior
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0DT 19816 printed Sep 23, 2025@19:22:42 Page 2
IBDEI0DT ; ; 03-MAY-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,34637,0)
+2 ;;=Z91.130^^105^1434^152
+3 ;;^UTILITY(U,$J,358.3,34637,1,0)
+4 ;;=^358.31IA^4^2
+5 ;;^UTILITY(U,$J,358.3,34637,1,3,0)
+6 ;;=3^Underdose of Med Regiment d/t Age-Related Debility
+7 ;;^UTILITY(U,$J,358.3,34637,1,4,0)
+8 ;;=4^Z91.130
+9 ;;^UTILITY(U,$J,358.3,34637,2)
+10 ;;=^5063614
+11 ;;^UTILITY(U,$J,358.3,34638,0)
+12 ;;=Z91.138^^105^1434^153
+13 ;;^UTILITY(U,$J,358.3,34638,1,0)
+14 ;;=^358.31IA^4^2
+15 ;;^UTILITY(U,$J,358.3,34638,1,3,0)
+16 ;;=3^Underdose of Med Regiment for Other Reason
+17 ;;^UTILITY(U,$J,358.3,34638,1,4,0)
+18 ;;=4^Z91.138
+19 ;;^UTILITY(U,$J,358.3,34638,2)
+20 ;;=^5063615
+21 ;;^UTILITY(U,$J,358.3,34639,0)
+22 ;;=Z91.14^^105^1434^64
+23 ;;^UTILITY(U,$J,358.3,34639,1,0)
+24 ;;=^358.31IA^4^2
+25 ;;^UTILITY(U,$J,358.3,34639,1,3,0)
+26 ;;=3^Noncompliance w/ Medication Regimen
+27 ;;^UTILITY(U,$J,358.3,34639,1,4,0)
+28 ;;=4^Z91.14
+29 ;;^UTILITY(U,$J,358.3,34639,2)
+30 ;;=^5063616
+31 ;;^UTILITY(U,$J,358.3,34640,0)
+32 ;;=Z91.19^^105^1434^63
+33 ;;^UTILITY(U,$J,358.3,34640,1,0)
+34 ;;=^358.31IA^4^2
+35 ;;^UTILITY(U,$J,358.3,34640,1,3,0)
+36 ;;=3^Noncompliance w/ Medical Treatment & Regimen
+37 ;;^UTILITY(U,$J,358.3,34640,1,4,0)
+38 ;;=4^Z91.19
+39 ;;^UTILITY(U,$J,358.3,34640,2)
+40 ;;=^5063618
+41 ;;^UTILITY(U,$J,358.3,34641,0)
+42 ;;=Z93.1^^105^1434^45
+43 ;;^UTILITY(U,$J,358.3,34641,1,0)
+44 ;;=^358.31IA^4^2
+45 ;;^UTILITY(U,$J,358.3,34641,1,3,0)
+46 ;;=3^Gastrostomy Status
+47 ;;^UTILITY(U,$J,358.3,34641,1,4,0)
+48 ;;=4^Z93.1
+49 ;;^UTILITY(U,$J,358.3,34641,2)
+50 ;;=^5063643
+51 ;;^UTILITY(U,$J,358.3,34642,0)
+52 ;;=Z93.2^^105^1434^51
+53 ;;^UTILITY(U,$J,358.3,34642,1,0)
+54 ;;=^358.31IA^4^2
+55 ;;^UTILITY(U,$J,358.3,34642,1,3,0)
+56 ;;=3^Ileostomy Status
+57 ;;^UTILITY(U,$J,358.3,34642,1,4,0)
+58 ;;=4^Z93.2
+59 ;;^UTILITY(U,$J,358.3,34642,2)
+60 ;;=^5063644
+61 ;;^UTILITY(U,$J,358.3,34643,0)
+62 ;;=Z93.3^^105^1434^7
+63 ;;^UTILITY(U,$J,358.3,34643,1,0)
+64 ;;=^358.31IA^4^2
+65 ;;^UTILITY(U,$J,358.3,34643,1,3,0)
+66 ;;=3^Colostomy Status
+67 ;;^UTILITY(U,$J,358.3,34643,1,4,0)
+68 ;;=4^Z93.3
+69 ;;^UTILITY(U,$J,358.3,34643,2)
+70 ;;=^5063645
+71 ;;^UTILITY(U,$J,358.3,34644,0)
+72 ;;=Z94.0^^105^1434^56
+73 ;;^UTILITY(U,$J,358.3,34644,1,0)
+74 ;;=^358.31IA^4^2
+75 ;;^UTILITY(U,$J,358.3,34644,1,3,0)
+76 ;;=3^Kidney Transplant Status
+77 ;;^UTILITY(U,$J,358.3,34644,1,4,0)
+78 ;;=4^Z94.0
+79 ;;^UTILITY(U,$J,358.3,34644,2)
+80 ;;=^5063654
+81 ;;^UTILITY(U,$J,358.3,34645,0)
+82 ;;=Z94.1^^105^1434^49
+83 ;;^UTILITY(U,$J,358.3,34645,1,0)
+84 ;;=^358.31IA^4^2
+85 ;;^UTILITY(U,$J,358.3,34645,1,3,0)
+86 ;;=3^Heart Transplant Status
+87 ;;^UTILITY(U,$J,358.3,34645,1,4,0)
+88 ;;=4^Z94.1
+89 ;;^UTILITY(U,$J,358.3,34645,2)
+90 ;;=^5063655
+91 ;;^UTILITY(U,$J,358.3,34646,0)
+92 ;;=Z94.2^^105^1434^59
+93 ;;^UTILITY(U,$J,358.3,34646,1,0)
+94 ;;=^358.31IA^4^2
+95 ;;^UTILITY(U,$J,358.3,34646,1,3,0)
+96 ;;=3^Lung Transplant Status
+97 ;;^UTILITY(U,$J,358.3,34646,1,4,0)
+98 ;;=4^Z94.2
+99 ;;^UTILITY(U,$J,358.3,34646,2)
+100 ;;=^5063656
+101 ;;^UTILITY(U,$J,358.3,34647,0)
+102 ;;=Z94.3^^105^1434^48
+103 ;;^UTILITY(U,$J,358.3,34647,1,0)
+104 ;;=^358.31IA^4^2
+105 ;;^UTILITY(U,$J,358.3,34647,1,3,0)
+106 ;;=3^Heart & Lungs Transplant Status
+107 ;;^UTILITY(U,$J,358.3,34647,1,4,0)
+108 ;;=4^Z94.3
+109 ;;^UTILITY(U,$J,358.3,34647,2)
+110 ;;=^5063657
+111 ;;^UTILITY(U,$J,358.3,34648,0)
+112 ;;=Z94.4^^105^1434^58
+113 ;;^UTILITY(U,$J,358.3,34648,1,0)
+114 ;;=^358.31IA^4^2
+115 ;;^UTILITY(U,$J,358.3,34648,1,3,0)
+116 ;;=3^Liver Transplant Status
+117 ;;^UTILITY(U,$J,358.3,34648,1,4,0)
+118 ;;=4^Z94.4
+119 ;;^UTILITY(U,$J,358.3,34648,2)
+120 ;;=^5063658
+121 ;;^UTILITY(U,$J,358.3,34649,0)
+122 ;;=Z94.84^^105^1434^149
+123 ;;^UTILITY(U,$J,358.3,34649,1,0)
+124 ;;=^358.31IA^4^2
+125 ;;^UTILITY(U,$J,358.3,34649,1,3,0)
+126 ;;=3^Stem Cell Transplant Status
+127 ;;^UTILITY(U,$J,358.3,34649,1,4,0)
+128 ;;=4^Z94.84
+129 ;;^UTILITY(U,$J,358.3,34649,2)
+130 ;;=^5063665
+131 ;;^UTILITY(U,$J,358.3,34650,0)
+132 ;;=Z96.21^^105^1434^6
+133 ;;^UTILITY(U,$J,358.3,34650,1,0)
+134 ;;=^358.31IA^4^2
+135 ;;^UTILITY(U,$J,358.3,34650,1,3,0)
+136 ;;=3^Cochlear Implant Status
+137 ;;^UTILITY(U,$J,358.3,34650,1,4,0)
+138 ;;=4^Z96.21
+139 ;;^UTILITY(U,$J,358.3,34650,2)
+140 ;;=^5063684
+141 ;;^UTILITY(U,$J,358.3,34651,0)
+142 ;;=Z96.41^^105^1434^132
+143 ;;^UTILITY(U,$J,358.3,34651,1,0)
+144 ;;=^358.31IA^4^2
+145 ;;^UTILITY(U,$J,358.3,34651,1,3,0)
+146 ;;=3^Presence of Insulin Pump
+147 ;;^UTILITY(U,$J,358.3,34651,1,4,0)
+148 ;;=4^Z96.41
+149 ;;^UTILITY(U,$J,358.3,34651,2)
+150 ;;=^5063688
+151 ;;^UTILITY(U,$J,358.3,34652,0)
+152 ;;=Z96.641^^105^1434^140
+153 ;;^UTILITY(U,$J,358.3,34652,1,0)
+154 ;;=^358.31IA^4^2
+155 ;;^UTILITY(U,$J,358.3,34652,1,3,0)
+156 ;;=3^Presence of Right Artificial Hip Jt
+157 ;;^UTILITY(U,$J,358.3,34652,1,4,0)
+158 ;;=4^Z96.641
+159 ;;^UTILITY(U,$J,358.3,34652,2)
+160 ;;=^5063701
+161 ;;^UTILITY(U,$J,358.3,34653,0)
+162 ;;=Z96.642^^105^1434^135
+163 ;;^UTILITY(U,$J,358.3,34653,1,0)
+164 ;;=^358.31IA^4^2
+165 ;;^UTILITY(U,$J,358.3,34653,1,3,0)
+166 ;;=3^Presence of Left Artificial Hip Jt
+167 ;;^UTILITY(U,$J,358.3,34653,1,4,0)
+168 ;;=4^Z96.642
+169 ;;^UTILITY(U,$J,358.3,34653,2)
+170 ;;=^5063702
+171 ;;^UTILITY(U,$J,358.3,34654,0)
+172 ;;=Z96.643^^105^1434^119
+173 ;;^UTILITY(U,$J,358.3,34654,1,0)
+174 ;;=^358.31IA^4^2
+175 ;;^UTILITY(U,$J,358.3,34654,1,3,0)
+176 ;;=3^Presence of Artificial Hip Jt,Bilateral
+177 ;;^UTILITY(U,$J,358.3,34654,1,4,0)
+178 ;;=4^Z96.643
+179 ;;^UTILITY(U,$J,358.3,34654,2)
+180 ;;=^5063703
+181 ;;^UTILITY(U,$J,358.3,34655,0)
+182 ;;=Z96.651^^105^1434^141
+183 ;;^UTILITY(U,$J,358.3,34655,1,0)
+184 ;;=^358.31IA^4^2
+185 ;;^UTILITY(U,$J,358.3,34655,1,3,0)
+186 ;;=3^Presence of Right Artificial Knee Jt
+187 ;;^UTILITY(U,$J,358.3,34655,1,4,0)
+188 ;;=4^Z96.651
+189 ;;^UTILITY(U,$J,358.3,34655,2)
+190 ;;=^5063705
+191 ;;^UTILITY(U,$J,358.3,34656,0)
+192 ;;=Z96.652^^105^1434^136
+193 ;;^UTILITY(U,$J,358.3,34656,1,0)
+194 ;;=^358.31IA^4^2
+195 ;;^UTILITY(U,$J,358.3,34656,1,3,0)
+196 ;;=3^Presence of Left Artificial Knee Jt
+197 ;;^UTILITY(U,$J,358.3,34656,1,4,0)
+198 ;;=4^Z96.652
+199 ;;^UTILITY(U,$J,358.3,34656,2)
+200 ;;=^5063706
+201 ;;^UTILITY(U,$J,358.3,34657,0)
+202 ;;=Z96.653^^105^1434^120
+203 ;;^UTILITY(U,$J,358.3,34657,1,0)
+204 ;;=^358.31IA^4^2
+205 ;;^UTILITY(U,$J,358.3,34657,1,3,0)
+206 ;;=3^Presence of Artificial Knee Jt,Bilateral
+207 ;;^UTILITY(U,$J,358.3,34657,1,4,0)
+208 ;;=4^Z96.653
+209 ;;^UTILITY(U,$J,358.3,34657,2)
+210 ;;=^5063707
+211 ;;^UTILITY(U,$J,358.3,34658,0)
+212 ;;=Z96.7^^105^1434^125
+213 ;;^UTILITY(U,$J,358.3,34658,1,0)
+214 ;;=^358.31IA^4^2
+215 ;;^UTILITY(U,$J,358.3,34658,1,3,0)
+216 ;;=3^Presence of Bone/Tendon Implants NEC
+217 ;;^UTILITY(U,$J,358.3,34658,1,4,0)
+218 ;;=4^Z96.7
+219 ;;^UTILITY(U,$J,358.3,34658,2)
+220 ;;=^5063716
+221 ;;^UTILITY(U,$J,358.3,34659,0)
+222 ;;=Z97.11^^105^1434^139
+223 ;;^UTILITY(U,$J,358.3,34659,1,0)
+224 ;;=^358.31IA^4^2
+225 ;;^UTILITY(U,$J,358.3,34659,1,3,0)
+226 ;;=3^Presence of Right Artificial Arm
+227 ;;^UTILITY(U,$J,358.3,34659,1,4,0)
+228 ;;=4^Z97.11
+229 ;;^UTILITY(U,$J,358.3,34659,2)
+230 ;;=^5063722
+231 ;;^UTILITY(U,$J,358.3,34660,0)
+232 ;;=Z97.12^^105^1434^134
+233 ;;^UTILITY(U,$J,358.3,34660,1,0)
+234 ;;=^358.31IA^4^2
+235 ;;^UTILITY(U,$J,358.3,34660,1,3,0)
+236 ;;=3^Presence of Left Artificial Arm
+237 ;;^UTILITY(U,$J,358.3,34660,1,4,0)
+238 ;;=4^Z97.12
+239 ;;^UTILITY(U,$J,358.3,34660,2)
+240 ;;=^5063723
+241 ;;^UTILITY(U,$J,358.3,34661,0)
+242 ;;=Z97.13^^105^1434^142
+243 ;;^UTILITY(U,$J,358.3,34661,1,0)
+244 ;;=^358.31IA^4^2
+245 ;;^UTILITY(U,$J,358.3,34661,1,3,0)
+246 ;;=3^Presence of Right Artificial Leg
+247 ;;^UTILITY(U,$J,358.3,34661,1,4,0)
+248 ;;=4^Z97.13
+249 ;;^UTILITY(U,$J,358.3,34661,2)
+250 ;;=^5063724
+251 ;;^UTILITY(U,$J,358.3,34662,0)
+252 ;;=Z97.14^^105^1434^137
+253 ;;^UTILITY(U,$J,358.3,34662,1,0)
+254 ;;=^358.31IA^4^2
+255 ;;^UTILITY(U,$J,358.3,34662,1,3,0)
+256 ;;=3^Presence of Left Artificial Leg
+257 ;;^UTILITY(U,$J,358.3,34662,1,4,0)
+258 ;;=4^Z97.14
+259 ;;^UTILITY(U,$J,358.3,34662,2)
+260 ;;=^5063725
+261 ;;^UTILITY(U,$J,358.3,34663,0)
+262 ;;=Z97.15^^105^1434^116
+263 ;;^UTILITY(U,$J,358.3,34663,1,0)
+264 ;;=^358.31IA^4^2
+265 ;;^UTILITY(U,$J,358.3,34663,1,3,0)
+266 ;;=3^Presence of Artificial Arms,Bilateral
+267 ;;^UTILITY(U,$J,358.3,34663,1,4,0)
+268 ;;=4^Z97.15
+269 ;;^UTILITY(U,$J,358.3,34663,2)
+270 ;;=^5063726
+271 ;;^UTILITY(U,$J,358.3,34664,0)
+272 ;;=Z97.16^^105^1434^121
+273 ;;^UTILITY(U,$J,358.3,34664,1,0)
+274 ;;=^358.31IA^4^2
+275 ;;^UTILITY(U,$J,358.3,34664,1,3,0)
+276 ;;=3^Presence of Artificial Legs,Bilateral
+277 ;;^UTILITY(U,$J,358.3,34664,1,4,0)
+278 ;;=4^Z97.16
+279 ;;^UTILITY(U,$J,358.3,34664,2)
+280 ;;=^5063727
+281 ;;^UTILITY(U,$J,358.3,34665,0)
+282 ;;=Z98.61^^105^1434^9
+283 ;;^UTILITY(U,$J,358.3,34665,1,0)
+284 ;;=^358.31IA^4^2
+285 ;;^UTILITY(U,$J,358.3,34665,1,3,0)
+286 ;;=3^Coronary Angioplasty Status
+287 ;;^UTILITY(U,$J,358.3,34665,1,4,0)
+288 ;;=4^Z98.61
+289 ;;^UTILITY(U,$J,358.3,34665,2)
+290 ;;=^5063742
+291 ;;^UTILITY(U,$J,358.3,34666,0)
+292 ;;=Z98.62^^105^1434^66
+293 ;;^UTILITY(U,$J,358.3,34666,1,0)
+294 ;;=^358.31IA^4^2
+295 ;;^UTILITY(U,$J,358.3,34666,1,3,0)
+296 ;;=3^Peripheral Vascular Angioplasty Status w/o Graft
+297 ;;^UTILITY(U,$J,358.3,34666,1,4,0)
+298 ;;=4^Z98.62
+299 ;;^UTILITY(U,$J,358.3,34666,2)
+300 ;;=^5063743
+301 ;;^UTILITY(U,$J,358.3,34667,0)
+302 ;;=Z98.84^^105^1434^4
+303 ;;^UTILITY(U,$J,358.3,34667,1,0)
+304 ;;=^358.31IA^4^2
+305 ;;^UTILITY(U,$J,358.3,34667,1,3,0)
+306 ;;=3^Bariatric Surgery Status
+307 ;;^UTILITY(U,$J,358.3,34667,1,4,0)
+308 ;;=4^Z98.84
+309 ;;^UTILITY(U,$J,358.3,34667,2)
+310 ;;=^5063749
+311 ;;^UTILITY(U,$J,358.3,34668,0)
+312 ;;=Z99.2^^105^1434^147
+313 ;;^UTILITY(U,$J,358.3,34668,1,0)
+314 ;;=^358.31IA^4^2
+315 ;;^UTILITY(U,$J,358.3,34668,1,3,0)
+316 ;;=3^Renal Dialysis Dependence
+317 ;;^UTILITY(U,$J,358.3,34668,1,4,0)
+318 ;;=4^Z99.2
+319 ;;^UTILITY(U,$J,358.3,34668,2)
+320 ;;=^5063758
+321 ;;^UTILITY(U,$J,358.3,34669,0)
+322 ;;=Z99.81^^105^1434^150
+323 ;;^UTILITY(U,$J,358.3,34669,1,0)
+324 ;;=^358.31IA^4^2
+325 ;;^UTILITY(U,$J,358.3,34669,1,3,0)
+326 ;;=3^Supplemental Oxygen Dependence
+327 ;;^UTILITY(U,$J,358.3,34669,1,4,0)
+328 ;;=4^Z99.81
+329 ;;^UTILITY(U,$J,358.3,34669,2)
+330 ;;=^5063760
+331 ;;^UTILITY(U,$J,358.3,34670,0)
+332 ;;=Z98.1^^105^1434^2
+333 ;;^UTILITY(U,$J,358.3,34670,1,0)
+334 ;;=^358.31IA^4^2
+335 ;;^UTILITY(U,$J,358.3,34670,1,3,0)
+336 ;;=3^Arthrodesis Status
+337 ;;^UTILITY(U,$J,358.3,34670,1,4,0)
+338 ;;=4^Z98.1
+339 ;;^UTILITY(U,$J,358.3,34670,2)
+340 ;;=^5063734
+341 ;;^UTILITY(U,$J,358.3,34671,0)
+342 ;;=Z94.7^^105^1434^8
+343 ;;^UTILITY(U,$J,358.3,34671,1,0)
+344 ;;=^358.31IA^4^2
+345 ;;^UTILITY(U,$J,358.3,34671,1,3,0)
+346 ;;=3^Corneal Transplant Status
+347 ;;^UTILITY(U,$J,358.3,34671,1,4,0)
+348 ;;=4^Z94.7
+349 ;;^UTILITY(U,$J,358.3,34671,2)
+350 ;;=^5063661
+351 ;;^UTILITY(U,$J,358.3,34672,0)
+352 ;;=Z83.511^^105^1434^23
+353 ;;^UTILITY(U,$J,358.3,34672,1,0)
+354 ;;=^358.31IA^4^2
+355 ;;^UTILITY(U,$J,358.3,34672,1,3,0)
+356 ;;=3^Family Hx of Glaucoma
+357 ;;^UTILITY(U,$J,358.3,34672,1,4,0)
+358 ;;=4^Z83.511
+359 ;;^UTILITY(U,$J,358.3,34672,2)
+360 ;;=^5063382
+361 ;;^UTILITY(U,$J,358.3,34673,0)
+362 ;;=Z80.52^^105^1434^26
+363 ;;^UTILITY(U,$J,358.3,34673,1,0)
+364 ;;=^358.31IA^4^2
+365 ;;^UTILITY(U,$J,358.3,34673,1,3,0)
+366 ;;=3^Family Hx of Malig Neop of Baldder
+367 ;;^UTILITY(U,$J,358.3,34673,1,4,0)
+368 ;;=4^Z80.52
+369 ;;^UTILITY(U,$J,358.3,34673,2)
+370 ;;=^5063352
+371 ;;^UTILITY(U,$J,358.3,34674,0)
+372 ;;=Z80.51^^105^1434^29
+373 ;;^UTILITY(U,$J,358.3,34674,1,0)
+374 ;;=^358.31IA^4^2
+375 ;;^UTILITY(U,$J,358.3,34674,1,3,0)
+376 ;;=3^Family Hx of Malig Neop of Kidney
+377 ;;^UTILITY(U,$J,358.3,34674,1,4,0)
+378 ;;=4^Z80.51
+379 ;;^UTILITY(U,$J,358.3,34674,2)
+380 ;;=^321159
+381 ;;^UTILITY(U,$J,358.3,34675,0)
+382 ;;=Z83.41^^105^1434^36
+383 ;;^UTILITY(U,$J,358.3,34675,1,0)
+384 ;;=^358.31IA^4^2
+385 ;;^UTILITY(U,$J,358.3,34675,1,3,0)
+386 ;;=3^Family Hx of Mult Endocrine Neoplasia Syndrome
+387 ;;^UTILITY(U,$J,358.3,34675,1,4,0)
+388 ;;=4^Z83.41
+389 ;;^UTILITY(U,$J,358.3,34675,2)
+390 ;;=^5063380
+391 ;;^UTILITY(U,$J,358.3,34676,0)
+392 ;;=Z81.8^^105^1434^43
+393 ;;^UTILITY(U,$J,358.3,34676,1,0)
+394 ;;=^358.31IA^4^2
+395 ;;^UTILITY(U,$J,358.3,34676,1,3,0)
+396 ;;=3^Family Hx of Substance Abuse/Dependence,Psychoactive
+397 ;;^UTILITY(U,$J,358.3,34676,1,4,0)
+398 ;;=4^Z81.8
+399 ;;^UTILITY(U,$J,358.3,34676,2)
+400 ;;=^5063363
+401 ;;^UTILITY(U,$J,358.3,34677,0)
+402 ;;=Z81.4^^105^1434^44
+403 ;;^UTILITY(U,$J,358.3,34677,1,0)
+404 ;;=^358.31IA^4^2
+405 ;;^UTILITY(U,$J,358.3,34677,1,3,0)
+406 ;;=3^Family Hx of Substance Abuse/Dependence NEC
+407 ;;^UTILITY(U,$J,358.3,34677,1,4,0)
+408 ;;=4^Z81.4
+409 ;;^UTILITY(U,$J,358.3,34677,2)
+410 ;;=^5063362
+411 ;;^UTILITY(U,$J,358.3,34678,0)
+412 ;;=Z98.0^^105^1434^55
+413 ;;^UTILITY(U,$J,358.3,34678,1,0)
+414 ;;=^358.31IA^4^2
+415 ;;^UTILITY(U,$J,358.3,34678,1,3,0)
+416 ;;=3^Intestinal Bypass/Anastomosis Status
+417 ;;^UTILITY(U,$J,358.3,34678,1,4,0)
+418 ;;=4^Z98.0
+419 ;;^UTILITY(U,$J,358.3,34678,2)
+420 ;;=^5063733
+421 ;;^UTILITY(U,$J,358.3,34679,0)
+422 ;;=Z91.128^^105^1434^54
+423 ;;^UTILITY(U,$J,358.3,34679,1,0)
+424 ;;=^358.31IA^4^2
+425 ;;^UTILITY(U,$J,358.3,34679,1,3,0)
+426 ;;=3^Intentional Underdose of Meds d/t Other Reasons
+427 ;;^UTILITY(U,$J,358.3,34679,1,4,0)
+428 ;;=4^Z91.128
+429 ;;^UTILITY(U,$J,358.3,34679,2)
+430 ;;=^5063613
+431 ;;^UTILITY(U,$J,358.3,34680,0)
+432 ;;=Z77.120^^105^1434^60
+433 ;;^UTILITY(U,$J,358.3,34680,1,0)
+434 ;;=^358.31IA^4^2
+435 ;;^UTILITY(U,$J,358.3,34680,1,3,0)
+436 ;;=3^Mold (Toxic) Contact/Exposure
+437 ;;^UTILITY(U,$J,358.3,34680,1,4,0)
+438 ;;=4^Z77.120
+439 ;;^UTILITY(U,$J,358.3,34680,2)
+440 ;;=^5063318
+441 ;;^UTILITY(U,$J,358.3,34681,0)
+442 ;;=Z86.74^^105^1434^103
+443 ;;^UTILITY(U,$J,358.3,34681,1,0)
+444 ;;=^358.31IA^4^2
+445 ;;^UTILITY(U,$J,358.3,34681,1,3,0)
+446 ;;=3^Personal Hx of Sudden Cardiac Arrest
+447 ;;^UTILITY(U,$J,358.3,34681,1,4,0)
+448 ;;=4^Z86.74
+449 ;;^UTILITY(U,$J,358.3,34681,2)
+450 ;;=^5063478
+451 ;;^UTILITY(U,$J,358.3,34682,0)
+452 ;;=Z86.718^^105^1434^111
+453 ;;^UTILITY(U,$J,358.3,34682,1,0)
+454 ;;=^358.31IA^4^2
+455 ;;^UTILITY(U,$J,358.3,34682,1,3,0)
+456 ;;=3^Personal Hx of Venous Thrombosis/Embolism (DVT)
+457 ;;^UTILITY(U,$J,358.3,34682,1,4,0)
+458 ;;=4^Z86.718
+459 ;;^UTILITY(U,$J,358.3,34682,2)
+460 ;;=^5063475
+461 ;;^UTILITY(U,$J,358.3,34683,0)
+462 ;;=Z96.1^^105^1434^133
+463 ;;^UTILITY(U,$J,358.3,34683,1,0)
+464 ;;=^358.31IA^4^2
+465 ;;^UTILITY(U,$J,358.3,34683,1,3,0)
+466 ;;=3^Presence of Intraocular Lens
+467 ;;^UTILITY(U,$J,358.3,34683,1,4,0)
+468 ;;=4^Z96.1
+469 ;;^UTILITY(U,$J,358.3,34683,2)
+470 ;;=^5063682
+471 ;;^UTILITY(U,$J,358.3,34684,0)
+472 ;;=Z96.612^^105^1434^138
+473 ;;^UTILITY(U,$J,358.3,34684,1,0)
+474 ;;=^358.31IA^4^2
+475 ;;^UTILITY(U,$J,358.3,34684,1,3,0)
+476 ;;=3^Presence of Left Artificial Shoulder Joint
+477 ;;^UTILITY(U,$J,358.3,34684,1,4,0)
+478 ;;=4^Z96.612
+479 ;;^UTILITY(U,$J,358.3,34684,2)
+480 ;;=^5063693
+481 ;;^UTILITY(U,$J,358.3,34685,0)
+482 ;;=Z96.611^^105^1434^143
+483 ;;^UTILITY(U,$J,358.3,34685,1,0)
+484 ;;=^358.31IA^4^2
+485 ;;^UTILITY(U,$J,358.3,34685,1,3,0)
+486 ;;=3^Presence of Right Artificial Shoulder Joint
+487 ;;^UTILITY(U,$J,358.3,34685,1,4,0)
+488 ;;=4^Z96.611
+489 ;;^UTILITY(U,$J,358.3,34685,2)
+490 ;;=^5063692
+491 ;;^UTILITY(U,$J,358.3,34686,0)
+492 ;;=Z93.0^^105^1434^151
+493 ;;^UTILITY(U,$J,358.3,34686,1,0)
+494 ;;=^358.31IA^4^2
+495 ;;^UTILITY(U,$J,358.3,34686,1,3,0)
+496 ;;=3^Tracheostomy Status
+497 ;;^UTILITY(U,$J,358.3,34686,1,4,0)
+498 ;;=4^Z93.0
+499 ;;^UTILITY(U,$J,358.3,34686,2)
+500 ;;=^5063642
+501 ;;^UTILITY(U,$J,358.3,34687,0)
+502 ;;=Z99.3^^105^1434^156
+503 ;;^UTILITY(U,$J,358.3,34687,1,0)
+504 ;;=^358.31IA^4^2
+505 ;;^UTILITY(U,$J,358.3,34687,1,3,0)
+506 ;;=3^Wheelchair Dependence
+507 ;;^UTILITY(U,$J,358.3,34687,1,4,0)
+508 ;;=4^Z99.3
+509 ;;^UTILITY(U,$J,358.3,34687,2)
+510 ;;=^5063759
+511 ;;^UTILITY(U,$J,358.3,34688,0)
+512 ;;=Z83.42^^105^1434^21
+513 ;;^UTILITY(U,$J,358.3,34688,1,0)
+514 ;;=^358.31IA^4^2
+515 ;;^UTILITY(U,$J,358.3,34688,1,3,0)
+516 ;;=3^Family Hx of Familial Hypercholesterolemia
+517 ;;^UTILITY(U,$J,358.3,34688,1,4,0)
+518 ;;=4^Z83.42
+519 ;;^UTILITY(U,$J,358.3,34688,2)
+520 ;;=^8132985
+521 ;;^UTILITY(U,$J,358.3,34689,0)
+522 ;;=Z98.890^^105^1434^114
+523 ;;^UTILITY(U,$J,358.3,34689,1,0)
+524 ;;=^358.31IA^4^2
+525 ;;^UTILITY(U,$J,358.3,34689,1,3,0)
+526 ;;=3^Postprocedural States/HX of Surgery NEC
+527 ;;^UTILITY(U,$J,358.3,34689,1,4,0)
+528 ;;=4^Z98.890
+529 ;;^UTILITY(U,$J,358.3,34689,2)
+530 ;;=^5063754
+531 ;;^UTILITY(U,$J,358.3,34690,0)
+532 ;;=Z95.1^^105^1434^115
+533 ;;^UTILITY(U,$J,358.3,34690,1,0)
+534 ;;=^358.31IA^4^2
+535 ;;^UTILITY(U,$J,358.3,34690,1,3,0)
+536 ;;=3^Presence of Aortocoronary Bypass
+537 ;;^UTILITY(U,$J,358.3,34690,1,4,0)
+538 ;;=4^Z95.1
+539 ;;^UTILITY(U,$J,358.3,34690,2)
+540 ;;=^5063669
+541 ;;^UTILITY(U,$J,358.3,34691,0)
+542 ;;=Z98.2^^105^1434^127
+543 ;;^UTILITY(U,$J,358.3,34691,1,0)
+544 ;;=^358.31IA^4^2
+545 ;;^UTILITY(U,$J,358.3,34691,1,3,0)
+546 ;;=3^Presence of Cerebrospinal Fluid Drainage Device
+547 ;;^UTILITY(U,$J,358.3,34691,1,4,0)
+548 ;;=4^Z98.2
+549 ;;^UTILITY(U,$J,358.3,34691,2)
+550 ;;=^5063735
+551 ;;^UTILITY(U,$J,358.3,34692,0)
+552 ;;=Z97.5^^105^1434^128
+553 ;;^UTILITY(U,$J,358.3,34692,1,0)
+554 ;;=^358.31IA^4^2
+555 ;;^UTILITY(U,$J,358.3,34692,1,3,0)
+556 ;;=3^Presence of Contraceptive (Intrauterine) Device
+557 ;;^UTILITY(U,$J,358.3,34692,1,4,0)
+558 ;;=4^Z97.5
+559 ;;^UTILITY(U,$J,358.3,34692,2)
+560 ;;=^5063731
+561 ;;^UTILITY(U,$J,358.3,34693,0)
+562 ;;=Z95.5^^105^1434^129
+563 ;;^UTILITY(U,$J,358.3,34693,1,0)
+564 ;;=^358.31IA^4^2
+565 ;;^UTILITY(U,$J,358.3,34693,1,3,0)
+566 ;;=3^Presence of Coronary Angioplasty Implant/Graft
+567 ;;^UTILITY(U,$J,358.3,34693,1,4,0)
+568 ;;=4^Z95.5
+569 ;;^UTILITY(U,$J,358.3,34693,2)
+570 ;;=^5063673
+571 ;;^UTILITY(U,$J,358.3,34694,0)
+572 ;;=Z97.2^^105^1434^130
+573 ;;^UTILITY(U,$J,358.3,34694,1,0)
+574 ;;=^358.31IA^4^2
+575 ;;^UTILITY(U,$J,358.3,34694,1,3,0)
+576 ;;=3^Presence of Dental Prosthetic Device
+577 ;;^UTILITY(U,$J,358.3,34694,1,4,0)
+578 ;;=4^Z97.2
+579 ;;^UTILITY(U,$J,358.3,34694,2)
+580 ;;=^5063728
+581 ;;^UTILITY(U,$J,358.3,34695,0)
+582 ;;=Z97.4^^105^1434^131
+583 ;;^UTILITY(U,$J,358.3,34695,1,0)
+584 ;;=^358.31IA^4^2
+585 ;;^UTILITY(U,$J,358.3,34695,1,3,0)
+586 ;;=3^Presence of External Hearing Aid
+587 ;;^UTILITY(U,$J,358.3,34695,1,4,0)
+588 ;;=4^Z97.4
+589 ;;^UTILITY(U,$J,358.3,34695,2)
+590 ;;=^5063730
+591 ;;^UTILITY(U,$J,358.3,34696,0)
+592 ;;=Z96.622^^105^1434^117
+593 ;;^UTILITY(U,$J,358.3,34696,1,0)
+594 ;;=^358.31IA^4^2
+595 ;;^UTILITY(U,$J,358.3,34696,1,3,0)
+596 ;;=3^Presence of Artificial Elbow Joint,Left
+597 ;;^UTILITY(U,$J,358.3,34696,1,4,0)
+598 ;;=4^Z96.622
+599 ;;^UTILITY(U,$J,358.3,34696,2)
+600 ;;=^5063696
+601 ;;^UTILITY(U,$J,358.3,34697,0)
+602 ;;=Z96.632^^105^1434^122
+603 ;;^UTILITY(U,$J,358.3,34697,1,0)
+604 ;;=^358.31IA^4^2
+605 ;;^UTILITY(U,$J,358.3,34697,1,3,0)
+606 ;;=3^Presence of Artificial Wrist Joint,Left
+607 ;;^UTILITY(U,$J,358.3,34697,1,4,0)
+608 ;;=4^Z96.632
+609 ;;^UTILITY(U,$J,358.3,34697,2)
+610 ;;=^5063699
+611 ;;^UTILITY(U,$J,358.3,34698,0)
+612 ;;=Z96.621^^105^1434^118
+613 ;;^UTILITY(U,$J,358.3,34698,1,0)
+614 ;;=^358.31IA^4^2
+615 ;;^UTILITY(U,$J,358.3,34698,1,3,0)
+616 ;;=3^Presence of Artificial Elbow Joint,Right
+617 ;;^UTILITY(U,$J,358.3,34698,1,4,0)
+618 ;;=4^Z96.621
+619 ;;^UTILITY(U,$J,358.3,34698,2)
+620 ;;=^5063695
+621 ;;^UTILITY(U,$J,358.3,34699,0)
+622 ;;=Z96.631^^105^1434^123
+623 ;;^UTILITY(U,$J,358.3,34699,1,0)
+624 ;;=^358.31IA^4^2
+625 ;;^UTILITY(U,$J,358.3,34699,1,3,0)
+626 ;;=3^Presence of Artificial Wrist Joint,Right
+627 ;;^UTILITY(U,$J,358.3,34699,1,4,0)
+628 ;;=4^Z96.631
+629 ;;^UTILITY(U,$J,358.3,34699,2)
+630 ;;=^5063698
+631 ;;^UTILITY(U,$J,358.3,34700,0)
+632 ;;=Z93.6^^105^1434^154
+633 ;;^UTILITY(U,$J,358.3,34700,1,0)
+634 ;;=^358.31IA^4^2
+635 ;;^UTILITY(U,$J,358.3,34700,1,3,0)
+636 ;;=3^Urostomy Status
+637 ;;^UTILITY(U,$J,358.3,34700,1,4,0)
+638 ;;=4^Z93.6
+639 ;;^UTILITY(U,$J,358.3,34700,2)
+640 ;;=^5063651
+641 ;;^UTILITY(U,$J,358.3,34701,0)
+642 ;;=Z95.820^^105^1434^67
+643 ;;^UTILITY(U,$J,358.3,34701,1,0)
+644 ;;=^358.31IA^4^2
+645 ;;^UTILITY(U,$J,358.3,34701,1,3,0)
+646 ;;=3^Peripheral Vascular Angioplasty Status w/ Graft
+647 ;;^UTILITY(U,$J,358.3,34701,1,4,0)
+648 ;;=4^Z95.820
+649 ;;^UTILITY(U,$J,358.3,34701,2)
+650 ;;=^5063678
+651 ;;^UTILITY(U,$J,358.3,34702,0)
+652 ;;=Z95.0^^105^1434^126
+653 ;;^UTILITY(U,$J,358.3,34702,1,0)
+654 ;;=^358.31IA^4^2
+655 ;;^UTILITY(U,$J,358.3,34702,1,3,0)
+656 ;;=3^Presence of Cardiac Pacemaker
+657 ;;^UTILITY(U,$J,358.3,34702,1,4,0)
+658 ;;=4^Z95.0
+659 ;;^UTILITY(U,$J,358.3,34702,2)
+660 ;;=^5063668
+661 ;;^UTILITY(U,$J,358.3,34703,0)
+662 ;;=Z95.810^^105^1434^124
+663 ;;^UTILITY(U,$J,358.3,34703,1,0)
+664 ;;=^358.31IA^4^2
+665 ;;^UTILITY(U,$J,358.3,34703,1,3,0)
+666 ;;=3^Presence of Automatic Cardiac Debribrillator
+667 ;;^UTILITY(U,$J,358.3,34703,1,4,0)
+668 ;;=4^Z95.810
+669 ;;^UTILITY(U,$J,358.3,34703,2)
+670 ;;=^5063674
+671 ;;^UTILITY(U,$J,358.3,34704,0)
+672 ;;=Z91.51^^105^1434^104
+673 ;;^UTILITY(U,$J,358.3,34704,1,0)
+674 ;;=^358.31IA^4^2
+675 ;;^UTILITY(U,$J,358.3,34704,1,3,0)
+676 ;;=3^Personal Hx of Suicidal Behavior
