IBDEI09Y ; ; 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,24345,1,4,0)
;;=4^C7A.090
;;^UTILITY(U,$J,358.3,24345,2)
;;=^5001371
;;^UTILITY(U,$J,358.3,24346,0)
;;=C34.02^^74^971^11
;;^UTILITY(U,$J,358.3,24346,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24346,1,3,0)
;;=3^Malig Neop Left Main Bronchus
;;^UTILITY(U,$J,358.3,24346,1,4,0)
;;=4^C34.02
;;^UTILITY(U,$J,358.3,24346,2)
;;=^5000959
;;^UTILITY(U,$J,358.3,24347,0)
;;=C34.32^^74^971^10
;;^UTILITY(U,$J,358.3,24347,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24347,1,3,0)
;;=3^Malig Neop Left Lower Lobe Bronchus/Lung
;;^UTILITY(U,$J,358.3,24347,1,4,0)
;;=4^C34.32
;;^UTILITY(U,$J,358.3,24347,2)
;;=^5133322
;;^UTILITY(U,$J,358.3,24348,0)
;;=C34.31^^74^971^19
;;^UTILITY(U,$J,358.3,24348,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24348,1,3,0)
;;=3^Malig Neop Right Lower Lobe Bronchus/Lung
;;^UTILITY(U,$J,358.3,24348,1,4,0)
;;=4^C34.31
;;^UTILITY(U,$J,358.3,24348,2)
;;=^5133321
;;^UTILITY(U,$J,358.3,24349,0)
;;=C39.9^^74^971^13
;;^UTILITY(U,$J,358.3,24349,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24349,1,3,0)
;;=3^Malig Neop Lower Respiratory Tract,Unspec Part
;;^UTILITY(U,$J,358.3,24349,1,4,0)
;;=4^C39.9
;;^UTILITY(U,$J,358.3,24349,2)
;;=^5000972
;;^UTILITY(U,$J,358.3,24350,0)
;;=C34.2^^74^971^14
;;^UTILITY(U,$J,358.3,24350,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24350,1,3,0)
;;=3^Malig Neop Middle Lobe Bronchus/Lung
;;^UTILITY(U,$J,358.3,24350,1,4,0)
;;=4^C34.2
;;^UTILITY(U,$J,358.3,24350,2)
;;=^267137
;;^UTILITY(U,$J,358.3,24351,0)
;;=C34.82^^74^971^15
;;^UTILITY(U,$J,358.3,24351,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24351,1,3,0)
;;=3^Malig Neop Ovrlp Sites Left Bronchus/Lung
;;^UTILITY(U,$J,358.3,24351,1,4,0)
;;=4^C34.82
;;^UTILITY(U,$J,358.3,24351,2)
;;=^5000965
;;^UTILITY(U,$J,358.3,24352,0)
;;=C34.81^^74^971^16
;;^UTILITY(U,$J,358.3,24352,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24352,1,3,0)
;;=3^Malig Neop Ovrlp Sites Right Bronchus/Lung
;;^UTILITY(U,$J,358.3,24352,1,4,0)
;;=4^C34.81
;;^UTILITY(U,$J,358.3,24352,2)
;;=^5000964
;;^UTILITY(U,$J,358.3,24353,0)
;;=C38.4^^74^971^17
;;^UTILITY(U,$J,358.3,24353,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24353,1,3,0)
;;=3^Malig Neop Pleura
;;^UTILITY(U,$J,358.3,24353,1,4,0)
;;=4^C38.4
;;^UTILITY(U,$J,358.3,24353,2)
;;=^267140
;;^UTILITY(U,$J,358.3,24354,0)
;;=C34.01^^74^971^20
;;^UTILITY(U,$J,358.3,24354,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24354,1,3,0)
;;=3^Malig Neop Right Main Bronchus
;;^UTILITY(U,$J,358.3,24354,1,4,0)
;;=4^C34.01
;;^UTILITY(U,$J,358.3,24354,2)
;;=^5000958
;;^UTILITY(U,$J,358.3,24355,0)
;;=C34.92^^74^971^9
;;^UTILITY(U,$J,358.3,24355,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24355,1,3,0)
;;=3^Malig Neop Left Bronchus/Lung,Unspec Part
;;^UTILITY(U,$J,358.3,24355,1,4,0)
;;=4^C34.92
;;^UTILITY(U,$J,358.3,24355,2)
;;=^5000968
;;^UTILITY(U,$J,358.3,24356,0)
;;=C34.91^^74^971^18
;;^UTILITY(U,$J,358.3,24356,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24356,1,3,0)
;;=3^Malig Neop Right Bronchus/Lung,Unspec Part
;;^UTILITY(U,$J,358.3,24356,1,4,0)
;;=4^C34.91
;;^UTILITY(U,$J,358.3,24356,2)
;;=^5000967
;;^UTILITY(U,$J,358.3,24357,0)
;;=C34.12^^74^971^12
;;^UTILITY(U,$J,358.3,24357,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24357,1,3,0)
;;=3^Malig Neop Left Upper Lobe Bronchus/Lung
;;^UTILITY(U,$J,358.3,24357,1,4,0)
;;=4^C34.12
;;^UTILITY(U,$J,358.3,24357,2)
;;=^5000962
;;^UTILITY(U,$J,358.3,24358,0)
;;=C34.11^^74^971^21
;;^UTILITY(U,$J,358.3,24358,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24358,1,3,0)
;;=3^Malig Neop Right Upper Lobe Bronchus/Lung
;;^UTILITY(U,$J,358.3,24358,1,4,0)
;;=4^C34.11
;;^UTILITY(U,$J,358.3,24358,2)
;;=^5000961
;;^UTILITY(U,$J,358.3,24359,0)
;;=C39.0^^74^971^22
;;^UTILITY(U,$J,358.3,24359,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24359,1,3,0)
;;=3^Malig Neop Upper Respiratory Tract,Unspec Part
;;^UTILITY(U,$J,358.3,24359,1,4,0)
;;=4^C39.0
;;^UTILITY(U,$J,358.3,24359,2)
;;=^5000971
;;^UTILITY(U,$J,358.3,24360,0)
;;=C78.02^^74^971^23
;;^UTILITY(U,$J,358.3,24360,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24360,1,3,0)
;;=3^Secondary Malig Neop Left Lung
;;^UTILITY(U,$J,358.3,24360,1,4,0)
;;=4^C78.02
;;^UTILITY(U,$J,358.3,24360,2)
;;=^5001336
;;^UTILITY(U,$J,358.3,24361,0)
;;=C78.01^^74^971^24
;;^UTILITY(U,$J,358.3,24361,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24361,1,3,0)
;;=3^Secondary Malig Neop Right Lung
;;^UTILITY(U,$J,358.3,24361,1,4,0)
;;=4^C78.01
;;^UTILITY(U,$J,358.3,24361,2)
;;=^5001335
;;^UTILITY(U,$J,358.3,24362,0)
;;=I50.41^^74^972^1
;;^UTILITY(U,$J,358.3,24362,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24362,1,3,0)
;;=3^AC Combined Systolic & Diastolic Congestive Hrt Failure
;;^UTILITY(U,$J,358.3,24362,1,4,0)
;;=4^I50.41
;;^UTILITY(U,$J,358.3,24362,2)
;;=^5007248
;;^UTILITY(U,$J,358.3,24363,0)
;;=I50.31^^74^972^2
;;^UTILITY(U,$J,358.3,24363,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24363,1,3,0)
;;=3^AC Diastolic Congestive Hrt Failure
;;^UTILITY(U,$J,358.3,24363,1,4,0)
;;=4^I50.31
;;^UTILITY(U,$J,358.3,24363,2)
;;=^5007244
;;^UTILITY(U,$J,358.3,24364,0)
;;=I50.43^^74^972^5
;;^UTILITY(U,$J,358.3,24364,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24364,1,3,0)
;;=3^AC on Chr Combined Systolic & Diastolic Congestive Hrt Failure
;;^UTILITY(U,$J,358.3,24364,1,4,0)
;;=4^I50.43
;;^UTILITY(U,$J,358.3,24364,2)
;;=^5007250
;;^UTILITY(U,$J,358.3,24365,0)
;;=I50.33^^74^972^6
;;^UTILITY(U,$J,358.3,24365,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24365,1,3,0)
;;=3^AC on Chr Diastolic Congestive Hrt Failure
;;^UTILITY(U,$J,358.3,24365,1,4,0)
;;=4^I50.33
;;^UTILITY(U,$J,358.3,24365,2)
;;=^5007246
;;^UTILITY(U,$J,358.3,24366,0)
;;=I50.23^^74^972^8
;;^UTILITY(U,$J,358.3,24366,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24366,1,3,0)
;;=3^AC on Chr Systolic Congestive Hrt Failure
;;^UTILITY(U,$J,358.3,24366,1,4,0)
;;=4^I50.23
;;^UTILITY(U,$J,358.3,24366,2)
;;=^5007242
;;^UTILITY(U,$J,358.3,24367,0)
;;=I50.21^^74^972^4
;;^UTILITY(U,$J,358.3,24367,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24367,1,3,0)
;;=3^AC Systolic Congestive Hrt Failure
;;^UTILITY(U,$J,358.3,24367,1,4,0)
;;=4^I50.21
;;^UTILITY(U,$J,358.3,24367,2)
;;=^5007240
;;^UTILITY(U,$J,358.3,24368,0)
;;=I20.9^^74^972^10
;;^UTILITY(U,$J,358.3,24368,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24368,1,3,0)
;;=3^Angina Pectoris,Unspec
;;^UTILITY(U,$J,358.3,24368,1,4,0)
;;=4^I20.9
;;^UTILITY(U,$J,358.3,24368,2)
;;=^5007079
;;^UTILITY(U,$J,358.3,24369,0)
;;=I25.721^^74^972^11
;;^UTILITY(U,$J,358.3,24369,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24369,1,3,0)
;;=3^Athscl Autologous Artery CABG w/ Ang Pctrs w/ Documented Spasm
;;^UTILITY(U,$J,358.3,24369,1,4,0)
;;=4^I25.721
;;^UTILITY(U,$J,358.3,24369,2)
;;=^5007126
;;^UTILITY(U,$J,358.3,24370,0)
;;=I25.728^^74^972^12
;;^UTILITY(U,$J,358.3,24370,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24370,1,3,0)
;;=3^Athscl Autologous Artery CABG w/ Ang Pctrs NEC
;;^UTILITY(U,$J,358.3,24370,1,4,0)
;;=4^I25.728
;;^UTILITY(U,$J,358.3,24370,2)
;;=^5133560
;;^UTILITY(U,$J,358.3,24371,0)
;;=I25.729^^74^972^13
;;^UTILITY(U,$J,358.3,24371,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24371,1,3,0)
;;=3^Athscl Autologous Artery CABG w/ Ang Pctrs,Unspec
;;^UTILITY(U,$J,358.3,24371,1,4,0)
;;=4^I25.729
;;^UTILITY(U,$J,358.3,24371,2)
;;=^5133561
;;^UTILITY(U,$J,358.3,24372,0)
;;=I25.720^^74^972^14
;;^UTILITY(U,$J,358.3,24372,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24372,1,3,0)
;;=3^Athscl Autologous Artery CABG w/ Unstable Ang Pctrs
;;^UTILITY(U,$J,358.3,24372,1,4,0)
;;=4^I25.720
;;^UTILITY(U,$J,358.3,24372,2)
;;=^5007125
;;^UTILITY(U,$J,358.3,24373,0)
;;=I25.711^^74^972^15
;;^UTILITY(U,$J,358.3,24373,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24373,1,3,0)
;;=3^Athscl Autologous Vein CABG w/ Ang Pctrs w/ Documented Spasm
;;^UTILITY(U,$J,358.3,24373,1,4,0)
;;=4^I25.711
;;^UTILITY(U,$J,358.3,24373,2)
;;=^5007122
;;^UTILITY(U,$J,358.3,24374,0)
;;=I25.718^^74^972^16
;;^UTILITY(U,$J,358.3,24374,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24374,1,3,0)
;;=3^Athscl Autologous Vein CABG w/ Ang Pctrs NEC
;;^UTILITY(U,$J,358.3,24374,1,4,0)
;;=4^I25.718
;;^UTILITY(U,$J,358.3,24374,2)
;;=^5007123
;;^UTILITY(U,$J,358.3,24375,0)
;;=I25.719^^74^972^17
;;^UTILITY(U,$J,358.3,24375,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24375,1,3,0)
;;=3^Athscl Autologous Vein CABG w/ Ang Pctrs,Unspec
;;^UTILITY(U,$J,358.3,24375,1,4,0)
;;=4^I25.719
;;^UTILITY(U,$J,358.3,24375,2)
;;=^5007124
;;^UTILITY(U,$J,358.3,24376,0)
;;=I25.710^^74^972^18
;;^UTILITY(U,$J,358.3,24376,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24376,1,3,0)
;;=3^Athscl Autologous Vein CABG w/ Unstable Ang Pctrs
;;^UTILITY(U,$J,358.3,24376,1,4,0)
;;=4^I25.710
;;^UTILITY(U,$J,358.3,24376,2)
;;=^5007121
;;^UTILITY(U,$J,358.3,24377,0)
;;=I25.761^^74^972^19
;;^UTILITY(U,$J,358.3,24377,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24377,1,3,0)
;;=3^Athscl Bypass Cor Art Transplt Hrt w/ Ang Pctrs w/ Documented Spasm
;;^UTILITY(U,$J,358.3,24377,1,4,0)
;;=4^I25.761
;;^UTILITY(U,$J,358.3,24377,2)
;;=^5007136
;;^UTILITY(U,$J,358.3,24378,0)
;;=I25.768^^74^972^20
;;^UTILITY(U,$J,358.3,24378,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24378,1,3,0)
;;=3^Athscl Bypass Cor Art Transplt Hrt w/ Ang Pctrs NEC
;;^UTILITY(U,$J,358.3,24378,1,4,0)
;;=4^I25.768
;;^UTILITY(U,$J,358.3,24378,2)
;;=^5007137
;;^UTILITY(U,$J,358.3,24379,0)
;;=I25.769^^74^972^21
;;^UTILITY(U,$J,358.3,24379,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24379,1,3,0)
;;=3^Athscl Bypass Cor Art Transplt Hrt w/ Ang Pctrs,Unspec
;;^UTILITY(U,$J,358.3,24379,1,4,0)
;;=4^I25.769
;;^UTILITY(U,$J,358.3,24379,2)
;;=^5007138
;;^UTILITY(U,$J,358.3,24380,0)
;;=I25.760^^74^972^22
;;^UTILITY(U,$J,358.3,24380,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24380,1,3,0)
;;=3^Athscl Bypass Cor Art Transplt Hrt w/ Unstable Angina
;;^UTILITY(U,$J,358.3,24380,1,4,0)
;;=4^I25.760
;;^UTILITY(U,$J,358.3,24380,2)
;;=^5007135
;;^UTILITY(U,$J,358.3,24381,0)
;;=I25.701^^74^972^25
;;^UTILITY(U,$J,358.3,24381,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24381,1,3,0)
;;=3^Athscl CABG w/ Ang Pctrs w/ Documented Spasm
;;^UTILITY(U,$J,358.3,24381,1,4,0)
;;=4^I25.701
;;^UTILITY(U,$J,358.3,24381,2)
;;=^5007118
;;^UTILITY(U,$J,358.3,24382,0)
;;=I25.708^^74^972^23
;;^UTILITY(U,$J,358.3,24382,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24382,1,3,0)
;;=3^Athscl CABG w/ Ang Pctrs NEC
;;^UTILITY(U,$J,358.3,24382,1,4,0)
;;=4^I25.708
;;^UTILITY(U,$J,358.3,24382,2)
;;=^5007119
;;^UTILITY(U,$J,358.3,24383,0)
;;=I25.709^^74^972^27
;;^UTILITY(U,$J,358.3,24383,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24383,1,3,0)
;;=3^Athscl CABG w/ Ang Pctrs,Unspec
;;^UTILITY(U,$J,358.3,24383,1,4,0)
;;=4^I25.709
;;^UTILITY(U,$J,358.3,24383,2)
;;=^5007120
;;^UTILITY(U,$J,358.3,24384,0)
;;=I25.700^^74^972^29
;;^UTILITY(U,$J,358.3,24384,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24384,1,3,0)
;;=3^Athscl CABG w/ Unstable Angina
;;^UTILITY(U,$J,358.3,24384,1,4,0)
;;=4^I25.700
;;^UTILITY(U,$J,358.3,24384,2)
;;=^5007117
;;^UTILITY(U,$J,358.3,24385,0)
;;=I25.751^^74^972^36
;;^UTILITY(U,$J,358.3,24385,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24385,1,3,0)
;;=3^Athscl Native Cor Art of Transplt Hrt w/ Ang Pctrs w/ Documented Spasm
;;^UTILITY(U,$J,358.3,24385,1,4,0)
;;=4^I25.751
;;^UTILITY(U,$J,358.3,24385,2)
;;=^5007132
;;^UTILITY(U,$J,358.3,24386,0)
;;=I25.758^^74^972^37
;;^UTILITY(U,$J,358.3,24386,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24386,1,3,0)
;;=3^Athscl Native Cor Art of Transplt Hrt w/ Ang Pctrs NEC
;;^UTILITY(U,$J,358.3,24386,1,4,0)
;;=4^I25.758
;;^UTILITY(U,$J,358.3,24386,2)
;;=^5007133
;;^UTILITY(U,$J,358.3,24387,0)
;;=I25.759^^74^972^38
;;^UTILITY(U,$J,358.3,24387,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24387,1,3,0)
;;=3^Athscl Native Cor Art of Transplt Hrt w/ Ang Pctrs,Unspec
;;^UTILITY(U,$J,358.3,24387,1,4,0)
;;=4^I25.759
;;^UTILITY(U,$J,358.3,24387,2)
;;=^5007134
;;^UTILITY(U,$J,358.3,24388,0)
;;=I25.750^^74^972^39
;;^UTILITY(U,$J,358.3,24388,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24388,1,3,0)
;;=3^Athscl Native Cor Art of Transplt Hrt w/ Unstable Angina
;;^UTILITY(U,$J,358.3,24388,1,4,0)
;;=4^I25.750
;;^UTILITY(U,$J,358.3,24388,2)
;;=^5007131
;;^UTILITY(U,$J,358.3,24389,0)
;;=I25.731^^74^972^41
;;^UTILITY(U,$J,358.3,24389,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24389,1,3,0)
;;=3^Athscl Nonaut Bio CABG w/ Ang Pctrs w/ Documented Spasm
;;^UTILITY(U,$J,358.3,24389,1,4,0)
;;=4^I25.731
;;^UTILITY(U,$J,358.3,24389,2)
;;=^5007128
;;^UTILITY(U,$J,358.3,24390,0)
;;=I25.738^^74^972^40
;;^UTILITY(U,$J,358.3,24390,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24390,1,3,0)
;;=3^Athscl Nonaut Bio CABG w/ Ang Pctrs NEC
;;^UTILITY(U,$J,358.3,24390,1,4,0)
;;=4^I25.738
;;^UTILITY(U,$J,358.3,24390,2)
;;=^5007129
;;^UTILITY(U,$J,358.3,24391,0)
;;=I25.739^^74^972^42
;;^UTILITY(U,$J,358.3,24391,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24391,1,3,0)
;;=3^Athscl Nonaut Bio CABG w/ Ang Pctrs,Unspec
;;^UTILITY(U,$J,358.3,24391,1,4,0)
;;=4^I25.739
;;^UTILITY(U,$J,358.3,24391,2)
;;=^5007130
;;^UTILITY(U,$J,358.3,24392,0)
;;=I25.730^^74^972^43
;;^UTILITY(U,$J,358.3,24392,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24392,1,3,0)
;;=3^Athscl Nonaut Bio CABG w/ Unstable Angina
;;^UTILITY(U,$J,358.3,24392,1,4,0)
;;=4^I25.730
;;^UTILITY(U,$J,358.3,24392,2)
;;=^5007127
;;^UTILITY(U,$J,358.3,24393,0)
;;=I25.791^^74^972^26
;;^UTILITY(U,$J,358.3,24393,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24393,1,3,0)
;;=3^Athscl CABG w/ Ang Pctrs w/ Documented Spasm
;;^UTILITY(U,$J,358.3,24393,1,4,0)
;;=4^I25.791
;;^UTILITY(U,$J,358.3,24393,2)
;;=^5007140
;;^UTILITY(U,$J,358.3,24394,0)
;;=I25.798^^74^972^24
;;^UTILITY(U,$J,358.3,24394,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24394,1,3,0)
;;=3^Athscl CABG w/ Ang Pctrs NEC
;;^UTILITY(U,$J,358.3,24394,1,4,0)
;;=4^I25.798
;;^UTILITY(U,$J,358.3,24394,2)
;;=^5133558
;;^UTILITY(U,$J,358.3,24395,0)
;;=I25.799^^74^972^28
;;^UTILITY(U,$J,358.3,24395,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24395,1,3,0)
;;=3^Athscl CABG w/ Ang Pctrs,Unspec
;;^UTILITY(U,$J,358.3,24395,1,4,0)
;;=4^I25.799
;;^UTILITY(U,$J,358.3,24395,2)
;;=^5133559
;;^UTILITY(U,$J,358.3,24396,0)
;;=I25.790^^74^972^30
;;^UTILITY(U,$J,358.3,24396,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24396,1,3,0)
;;=3^Athscl CABG w/ Unstable Angina
;;^UTILITY(U,$J,358.3,24396,1,4,0)
;;=4^I25.790
;;^UTILITY(U,$J,358.3,24396,2)
;;=^5007139
;;^UTILITY(U,$J,358.3,24397,0)
;;=I25.111^^74^972^31
;;^UTILITY(U,$J,358.3,24397,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24397,1,3,0)
;;=3^Athscl Hrt Disease Native Cor Art w/ Ang Pctrs w/ Documented Spasm
;;^UTILITY(U,$J,358.3,24397,1,4,0)
;;=4^I25.111
;;^UTILITY(U,$J,358.3,24397,2)
;;=^5007109
;;^UTILITY(U,$J,358.3,24398,0)
;;=I25.118^^74^972^32
;;^UTILITY(U,$J,358.3,24398,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24398,1,3,0)
;;=3^Athscl Hrt Disease Native Cor Art w/ Ang Pctrs NEC
;;^UTILITY(U,$J,358.3,24398,1,4,0)
;;=4^I25.118
;;^UTILITY(U,$J,358.3,24398,2)
;;=^5007110
;;^UTILITY(U,$J,358.3,24399,0)
;;=I25.119^^74^972^33
;;^UTILITY(U,$J,358.3,24399,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24399,1,3,0)
;;=3^Athscl Hrt Disease Native Cor Art w/ Ang Pctrs,Unspec
;;^UTILITY(U,$J,358.3,24399,1,4,0)
;;=4^I25.119
;;^UTILITY(U,$J,358.3,24399,2)
;;=^5007111
;;^UTILITY(U,$J,358.3,24400,0)
;;=I25.110^^74^972^34
;;^UTILITY(U,$J,358.3,24400,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24400,1,3,0)
;;=3^Athscl Hrt Disease Native Cor Art w/ Unstable Angina
;;^UTILITY(U,$J,358.3,24400,1,4,0)
;;=4^I25.110
;;^UTILITY(U,$J,358.3,24400,2)
;;=^5007108
;;^UTILITY(U,$J,358.3,24401,0)
;;=I25.10^^74^972^35
;;^UTILITY(U,$J,358.3,24401,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24401,1,3,0)
;;=3^Athscl Hrt Disease Native Cor Art w/o Ang Pctrs
;;^UTILITY(U,$J,358.3,24401,1,4,0)
;;=4^I25.10
;;^UTILITY(U,$J,358.3,24401,2)
;;=^5007107
;;^UTILITY(U,$J,358.3,24402,0)
;;=I48.0^^74^972^47
;;^UTILITY(U,$J,358.3,24402,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24402,1,3,0)
;;=3^Atrial Fibrillation,Paroxysmal
;;^UTILITY(U,$J,358.3,24402,1,4,0)
;;=4^I48.0
;;^UTILITY(U,$J,358.3,24402,2)
;;=^90473
;;^UTILITY(U,$J,358.3,24403,0)
;;=I49.9^^74^972^50
;;^UTILITY(U,$J,358.3,24403,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24403,1,3,0)
;;=3^Cardiac Arrhythmia,Unspec
;;^UTILITY(U,$J,358.3,24403,1,4,0)
;;=4^I49.9
;;^UTILITY(U,$J,358.3,24403,2)
;;=^5007237
;;^UTILITY(U,$J,358.3,24404,0)
;;=I42.9^^74^972^51
;;^UTILITY(U,$J,358.3,24404,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24404,1,3,0)
;;=3^Cardiomyopathy,Unspec
;;^UTILITY(U,$J,358.3,24404,1,4,0)
;;=4^I42.9
;;^UTILITY(U,$J,358.3,24404,2)
;;=^5007200
;;^UTILITY(U,$J,358.3,24405,0)
;;=I50.42^^74^972^53
;;^UTILITY(U,$J,358.3,24405,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24405,1,3,0)
;;=3^Chr Combined Systolic & Diastolic Congestive Hrt Failure
;;^UTILITY(U,$J,358.3,24405,1,4,0)
;;=4^I50.42
;;^UTILITY(U,$J,358.3,24405,2)
;;=^5007249
;;^UTILITY(U,$J,358.3,24406,0)
;;=I50.32^^74^972^54
;;^UTILITY(U,$J,358.3,24406,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24406,1,3,0)
;;=3^Chr Diastolic Congestive Hrt Failure
;;^UTILITY(U,$J,358.3,24406,1,4,0)
;;=4^I50.32
;;^UTILITY(U,$J,358.3,24406,2)
;;=^5007245
;;^UTILITY(U,$J,358.3,24407,0)
;;=I27.82^^74^972^55
;;^UTILITY(U,$J,358.3,24407,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24407,1,3,0)
;;=3^Chr Pulmonary Embolism
;;^UTILITY(U,$J,358.3,24407,1,4,0)
;;=4^I27.82
;;^UTILITY(U,$J,358.3,24407,2)
;;=^338238
;;^UTILITY(U,$J,358.3,24408,0)
;;=I50.22^^74^972^57
;;^UTILITY(U,$J,358.3,24408,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24408,1,3,0)
;;=3^Chr Systolic Congestive Hrt Failure
;;^UTILITY(U,$J,358.3,24408,1,4,0)
;;=4^I50.22
;;^UTILITY(U,$J,358.3,24408,2)
;;=^5007241
;;^UTILITY(U,$J,358.3,24409,0)
;;=I42.0^^74^972^60
;;^UTILITY(U,$J,358.3,24409,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24409,1,3,0)
;;=3^Dilated Cardiomyopathy
;;^UTILITY(U,$J,358.3,24409,1,4,0)
;;=4^I42.0
;;^UTILITY(U,$J,358.3,24409,2)
;;=^5007194
;;^UTILITY(U,$J,358.3,24410,0)
;;=I10.^^74^972^62
;;^UTILITY(U,$J,358.3,24410,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24410,1,3,0)
;;=3^Essential Hypertension
;;^UTILITY(U,$J,358.3,24410,1,4,0)
;;=4^I10.
;;^UTILITY(U,$J,358.3,24410,2)
;;=^5007062
;;^UTILITY(U,$J,358.3,24411,0)
;;=I50.9^^74^972^67
;;^UTILITY(U,$J,358.3,24411,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24411,1,3,0)
;;=3^Heart Failure,Unspec
;;^UTILITY(U,$J,358.3,24411,1,4,0)
;;=4^I50.9
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI09Y 19788 printed Sep 23, 2025@19:20:32 Page 2
IBDEI09Y ; ; 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,24345,1,4,0)
+2 ;;=4^C7A.090
+3 ;;^UTILITY(U,$J,358.3,24345,2)
+4 ;;=^5001371
+5 ;;^UTILITY(U,$J,358.3,24346,0)
+6 ;;=C34.02^^74^971^11
+7 ;;^UTILITY(U,$J,358.3,24346,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,24346,1,3,0)
+10 ;;=3^Malig Neop Left Main Bronchus
+11 ;;^UTILITY(U,$J,358.3,24346,1,4,0)
+12 ;;=4^C34.02
+13 ;;^UTILITY(U,$J,358.3,24346,2)
+14 ;;=^5000959
+15 ;;^UTILITY(U,$J,358.3,24347,0)
+16 ;;=C34.32^^74^971^10
+17 ;;^UTILITY(U,$J,358.3,24347,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,24347,1,3,0)
+20 ;;=3^Malig Neop Left Lower Lobe Bronchus/Lung
+21 ;;^UTILITY(U,$J,358.3,24347,1,4,0)
+22 ;;=4^C34.32
+23 ;;^UTILITY(U,$J,358.3,24347,2)
+24 ;;=^5133322
+25 ;;^UTILITY(U,$J,358.3,24348,0)
+26 ;;=C34.31^^74^971^19
+27 ;;^UTILITY(U,$J,358.3,24348,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,24348,1,3,0)
+30 ;;=3^Malig Neop Right Lower Lobe Bronchus/Lung
+31 ;;^UTILITY(U,$J,358.3,24348,1,4,0)
+32 ;;=4^C34.31
+33 ;;^UTILITY(U,$J,358.3,24348,2)
+34 ;;=^5133321
+35 ;;^UTILITY(U,$J,358.3,24349,0)
+36 ;;=C39.9^^74^971^13
+37 ;;^UTILITY(U,$J,358.3,24349,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,24349,1,3,0)
+40 ;;=3^Malig Neop Lower Respiratory Tract,Unspec Part
+41 ;;^UTILITY(U,$J,358.3,24349,1,4,0)
+42 ;;=4^C39.9
+43 ;;^UTILITY(U,$J,358.3,24349,2)
+44 ;;=^5000972
+45 ;;^UTILITY(U,$J,358.3,24350,0)
+46 ;;=C34.2^^74^971^14
+47 ;;^UTILITY(U,$J,358.3,24350,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,24350,1,3,0)
+50 ;;=3^Malig Neop Middle Lobe Bronchus/Lung
+51 ;;^UTILITY(U,$J,358.3,24350,1,4,0)
+52 ;;=4^C34.2
+53 ;;^UTILITY(U,$J,358.3,24350,2)
+54 ;;=^267137
+55 ;;^UTILITY(U,$J,358.3,24351,0)
+56 ;;=C34.82^^74^971^15
+57 ;;^UTILITY(U,$J,358.3,24351,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,24351,1,3,0)
+60 ;;=3^Malig Neop Ovrlp Sites Left Bronchus/Lung
+61 ;;^UTILITY(U,$J,358.3,24351,1,4,0)
+62 ;;=4^C34.82
+63 ;;^UTILITY(U,$J,358.3,24351,2)
+64 ;;=^5000965
+65 ;;^UTILITY(U,$J,358.3,24352,0)
+66 ;;=C34.81^^74^971^16
+67 ;;^UTILITY(U,$J,358.3,24352,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,24352,1,3,0)
+70 ;;=3^Malig Neop Ovrlp Sites Right Bronchus/Lung
+71 ;;^UTILITY(U,$J,358.3,24352,1,4,0)
+72 ;;=4^C34.81
+73 ;;^UTILITY(U,$J,358.3,24352,2)
+74 ;;=^5000964
+75 ;;^UTILITY(U,$J,358.3,24353,0)
+76 ;;=C38.4^^74^971^17
+77 ;;^UTILITY(U,$J,358.3,24353,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,24353,1,3,0)
+80 ;;=3^Malig Neop Pleura
+81 ;;^UTILITY(U,$J,358.3,24353,1,4,0)
+82 ;;=4^C38.4
+83 ;;^UTILITY(U,$J,358.3,24353,2)
+84 ;;=^267140
+85 ;;^UTILITY(U,$J,358.3,24354,0)
+86 ;;=C34.01^^74^971^20
+87 ;;^UTILITY(U,$J,358.3,24354,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,24354,1,3,0)
+90 ;;=3^Malig Neop Right Main Bronchus
+91 ;;^UTILITY(U,$J,358.3,24354,1,4,0)
+92 ;;=4^C34.01
+93 ;;^UTILITY(U,$J,358.3,24354,2)
+94 ;;=^5000958
+95 ;;^UTILITY(U,$J,358.3,24355,0)
+96 ;;=C34.92^^74^971^9
+97 ;;^UTILITY(U,$J,358.3,24355,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,24355,1,3,0)
+100 ;;=3^Malig Neop Left Bronchus/Lung,Unspec Part
+101 ;;^UTILITY(U,$J,358.3,24355,1,4,0)
+102 ;;=4^C34.92
+103 ;;^UTILITY(U,$J,358.3,24355,2)
+104 ;;=^5000968
+105 ;;^UTILITY(U,$J,358.3,24356,0)
+106 ;;=C34.91^^74^971^18
+107 ;;^UTILITY(U,$J,358.3,24356,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,24356,1,3,0)
+110 ;;=3^Malig Neop Right Bronchus/Lung,Unspec Part
+111 ;;^UTILITY(U,$J,358.3,24356,1,4,0)
+112 ;;=4^C34.91
+113 ;;^UTILITY(U,$J,358.3,24356,2)
+114 ;;=^5000967
+115 ;;^UTILITY(U,$J,358.3,24357,0)
+116 ;;=C34.12^^74^971^12
+117 ;;^UTILITY(U,$J,358.3,24357,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,24357,1,3,0)
+120 ;;=3^Malig Neop Left Upper Lobe Bronchus/Lung
+121 ;;^UTILITY(U,$J,358.3,24357,1,4,0)
+122 ;;=4^C34.12
+123 ;;^UTILITY(U,$J,358.3,24357,2)
+124 ;;=^5000962
+125 ;;^UTILITY(U,$J,358.3,24358,0)
+126 ;;=C34.11^^74^971^21
+127 ;;^UTILITY(U,$J,358.3,24358,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,24358,1,3,0)
+130 ;;=3^Malig Neop Right Upper Lobe Bronchus/Lung
+131 ;;^UTILITY(U,$J,358.3,24358,1,4,0)
+132 ;;=4^C34.11
+133 ;;^UTILITY(U,$J,358.3,24358,2)
+134 ;;=^5000961
+135 ;;^UTILITY(U,$J,358.3,24359,0)
+136 ;;=C39.0^^74^971^22
+137 ;;^UTILITY(U,$J,358.3,24359,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,24359,1,3,0)
+140 ;;=3^Malig Neop Upper Respiratory Tract,Unspec Part
+141 ;;^UTILITY(U,$J,358.3,24359,1,4,0)
+142 ;;=4^C39.0
+143 ;;^UTILITY(U,$J,358.3,24359,2)
+144 ;;=^5000971
+145 ;;^UTILITY(U,$J,358.3,24360,0)
+146 ;;=C78.02^^74^971^23
+147 ;;^UTILITY(U,$J,358.3,24360,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,24360,1,3,0)
+150 ;;=3^Secondary Malig Neop Left Lung
+151 ;;^UTILITY(U,$J,358.3,24360,1,4,0)
+152 ;;=4^C78.02
+153 ;;^UTILITY(U,$J,358.3,24360,2)
+154 ;;=^5001336
+155 ;;^UTILITY(U,$J,358.3,24361,0)
+156 ;;=C78.01^^74^971^24
+157 ;;^UTILITY(U,$J,358.3,24361,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,24361,1,3,0)
+160 ;;=3^Secondary Malig Neop Right Lung
+161 ;;^UTILITY(U,$J,358.3,24361,1,4,0)
+162 ;;=4^C78.01
+163 ;;^UTILITY(U,$J,358.3,24361,2)
+164 ;;=^5001335
+165 ;;^UTILITY(U,$J,358.3,24362,0)
+166 ;;=I50.41^^74^972^1
+167 ;;^UTILITY(U,$J,358.3,24362,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,24362,1,3,0)
+170 ;;=3^AC Combined Systolic & Diastolic Congestive Hrt Failure
+171 ;;^UTILITY(U,$J,358.3,24362,1,4,0)
+172 ;;=4^I50.41
+173 ;;^UTILITY(U,$J,358.3,24362,2)
+174 ;;=^5007248
+175 ;;^UTILITY(U,$J,358.3,24363,0)
+176 ;;=I50.31^^74^972^2
+177 ;;^UTILITY(U,$J,358.3,24363,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,24363,1,3,0)
+180 ;;=3^AC Diastolic Congestive Hrt Failure
+181 ;;^UTILITY(U,$J,358.3,24363,1,4,0)
+182 ;;=4^I50.31
+183 ;;^UTILITY(U,$J,358.3,24363,2)
+184 ;;=^5007244
+185 ;;^UTILITY(U,$J,358.3,24364,0)
+186 ;;=I50.43^^74^972^5
+187 ;;^UTILITY(U,$J,358.3,24364,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,24364,1,3,0)
+190 ;;=3^AC on Chr Combined Systolic & Diastolic Congestive Hrt Failure
+191 ;;^UTILITY(U,$J,358.3,24364,1,4,0)
+192 ;;=4^I50.43
+193 ;;^UTILITY(U,$J,358.3,24364,2)
+194 ;;=^5007250
+195 ;;^UTILITY(U,$J,358.3,24365,0)
+196 ;;=I50.33^^74^972^6
+197 ;;^UTILITY(U,$J,358.3,24365,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,24365,1,3,0)
+200 ;;=3^AC on Chr Diastolic Congestive Hrt Failure
+201 ;;^UTILITY(U,$J,358.3,24365,1,4,0)
+202 ;;=4^I50.33
+203 ;;^UTILITY(U,$J,358.3,24365,2)
+204 ;;=^5007246
+205 ;;^UTILITY(U,$J,358.3,24366,0)
+206 ;;=I50.23^^74^972^8
+207 ;;^UTILITY(U,$J,358.3,24366,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,24366,1,3,0)
+210 ;;=3^AC on Chr Systolic Congestive Hrt Failure
+211 ;;^UTILITY(U,$J,358.3,24366,1,4,0)
+212 ;;=4^I50.23
+213 ;;^UTILITY(U,$J,358.3,24366,2)
+214 ;;=^5007242
+215 ;;^UTILITY(U,$J,358.3,24367,0)
+216 ;;=I50.21^^74^972^4
+217 ;;^UTILITY(U,$J,358.3,24367,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,24367,1,3,0)
+220 ;;=3^AC Systolic Congestive Hrt Failure
+221 ;;^UTILITY(U,$J,358.3,24367,1,4,0)
+222 ;;=4^I50.21
+223 ;;^UTILITY(U,$J,358.3,24367,2)
+224 ;;=^5007240
+225 ;;^UTILITY(U,$J,358.3,24368,0)
+226 ;;=I20.9^^74^972^10
+227 ;;^UTILITY(U,$J,358.3,24368,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,24368,1,3,0)
+230 ;;=3^Angina Pectoris,Unspec
+231 ;;^UTILITY(U,$J,358.3,24368,1,4,0)
+232 ;;=4^I20.9
+233 ;;^UTILITY(U,$J,358.3,24368,2)
+234 ;;=^5007079
+235 ;;^UTILITY(U,$J,358.3,24369,0)
+236 ;;=I25.721^^74^972^11
+237 ;;^UTILITY(U,$J,358.3,24369,1,0)
+238 ;;=^358.31IA^4^2
+239 ;;^UTILITY(U,$J,358.3,24369,1,3,0)
+240 ;;=3^Athscl Autologous Artery CABG w/ Ang Pctrs w/ Documented Spasm
+241 ;;^UTILITY(U,$J,358.3,24369,1,4,0)
+242 ;;=4^I25.721
+243 ;;^UTILITY(U,$J,358.3,24369,2)
+244 ;;=^5007126
+245 ;;^UTILITY(U,$J,358.3,24370,0)
+246 ;;=I25.728^^74^972^12
+247 ;;^UTILITY(U,$J,358.3,24370,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,24370,1,3,0)
+250 ;;=3^Athscl Autologous Artery CABG w/ Ang Pctrs NEC
+251 ;;^UTILITY(U,$J,358.3,24370,1,4,0)
+252 ;;=4^I25.728
+253 ;;^UTILITY(U,$J,358.3,24370,2)
+254 ;;=^5133560
+255 ;;^UTILITY(U,$J,358.3,24371,0)
+256 ;;=I25.729^^74^972^13
+257 ;;^UTILITY(U,$J,358.3,24371,1,0)
+258 ;;=^358.31IA^4^2
+259 ;;^UTILITY(U,$J,358.3,24371,1,3,0)
+260 ;;=3^Athscl Autologous Artery CABG w/ Ang Pctrs,Unspec
+261 ;;^UTILITY(U,$J,358.3,24371,1,4,0)
+262 ;;=4^I25.729
+263 ;;^UTILITY(U,$J,358.3,24371,2)
+264 ;;=^5133561
+265 ;;^UTILITY(U,$J,358.3,24372,0)
+266 ;;=I25.720^^74^972^14
+267 ;;^UTILITY(U,$J,358.3,24372,1,0)
+268 ;;=^358.31IA^4^2
+269 ;;^UTILITY(U,$J,358.3,24372,1,3,0)
+270 ;;=3^Athscl Autologous Artery CABG w/ Unstable Ang Pctrs
+271 ;;^UTILITY(U,$J,358.3,24372,1,4,0)
+272 ;;=4^I25.720
+273 ;;^UTILITY(U,$J,358.3,24372,2)
+274 ;;=^5007125
+275 ;;^UTILITY(U,$J,358.3,24373,0)
+276 ;;=I25.711^^74^972^15
+277 ;;^UTILITY(U,$J,358.3,24373,1,0)
+278 ;;=^358.31IA^4^2
+279 ;;^UTILITY(U,$J,358.3,24373,1,3,0)
+280 ;;=3^Athscl Autologous Vein CABG w/ Ang Pctrs w/ Documented Spasm
+281 ;;^UTILITY(U,$J,358.3,24373,1,4,0)
+282 ;;=4^I25.711
+283 ;;^UTILITY(U,$J,358.3,24373,2)
+284 ;;=^5007122
+285 ;;^UTILITY(U,$J,358.3,24374,0)
+286 ;;=I25.718^^74^972^16
+287 ;;^UTILITY(U,$J,358.3,24374,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,24374,1,3,0)
+290 ;;=3^Athscl Autologous Vein CABG w/ Ang Pctrs NEC
+291 ;;^UTILITY(U,$J,358.3,24374,1,4,0)
+292 ;;=4^I25.718
+293 ;;^UTILITY(U,$J,358.3,24374,2)
+294 ;;=^5007123
+295 ;;^UTILITY(U,$J,358.3,24375,0)
+296 ;;=I25.719^^74^972^17
+297 ;;^UTILITY(U,$J,358.3,24375,1,0)
+298 ;;=^358.31IA^4^2
+299 ;;^UTILITY(U,$J,358.3,24375,1,3,0)
+300 ;;=3^Athscl Autologous Vein CABG w/ Ang Pctrs,Unspec
+301 ;;^UTILITY(U,$J,358.3,24375,1,4,0)
+302 ;;=4^I25.719
+303 ;;^UTILITY(U,$J,358.3,24375,2)
+304 ;;=^5007124
+305 ;;^UTILITY(U,$J,358.3,24376,0)
+306 ;;=I25.710^^74^972^18
+307 ;;^UTILITY(U,$J,358.3,24376,1,0)
+308 ;;=^358.31IA^4^2
+309 ;;^UTILITY(U,$J,358.3,24376,1,3,0)
+310 ;;=3^Athscl Autologous Vein CABG w/ Unstable Ang Pctrs
+311 ;;^UTILITY(U,$J,358.3,24376,1,4,0)
+312 ;;=4^I25.710
+313 ;;^UTILITY(U,$J,358.3,24376,2)
+314 ;;=^5007121
+315 ;;^UTILITY(U,$J,358.3,24377,0)
+316 ;;=I25.761^^74^972^19
+317 ;;^UTILITY(U,$J,358.3,24377,1,0)
+318 ;;=^358.31IA^4^2
+319 ;;^UTILITY(U,$J,358.3,24377,1,3,0)
+320 ;;=3^Athscl Bypass Cor Art Transplt Hrt w/ Ang Pctrs w/ Documented Spasm
+321 ;;^UTILITY(U,$J,358.3,24377,1,4,0)
+322 ;;=4^I25.761
+323 ;;^UTILITY(U,$J,358.3,24377,2)
+324 ;;=^5007136
+325 ;;^UTILITY(U,$J,358.3,24378,0)
+326 ;;=I25.768^^74^972^20
+327 ;;^UTILITY(U,$J,358.3,24378,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,24378,1,3,0)
+330 ;;=3^Athscl Bypass Cor Art Transplt Hrt w/ Ang Pctrs NEC
+331 ;;^UTILITY(U,$J,358.3,24378,1,4,0)
+332 ;;=4^I25.768
+333 ;;^UTILITY(U,$J,358.3,24378,2)
+334 ;;=^5007137
+335 ;;^UTILITY(U,$J,358.3,24379,0)
+336 ;;=I25.769^^74^972^21
+337 ;;^UTILITY(U,$J,358.3,24379,1,0)
+338 ;;=^358.31IA^4^2
+339 ;;^UTILITY(U,$J,358.3,24379,1,3,0)
+340 ;;=3^Athscl Bypass Cor Art Transplt Hrt w/ Ang Pctrs,Unspec
+341 ;;^UTILITY(U,$J,358.3,24379,1,4,0)
+342 ;;=4^I25.769
+343 ;;^UTILITY(U,$J,358.3,24379,2)
+344 ;;=^5007138
+345 ;;^UTILITY(U,$J,358.3,24380,0)
+346 ;;=I25.760^^74^972^22
+347 ;;^UTILITY(U,$J,358.3,24380,1,0)
+348 ;;=^358.31IA^4^2
+349 ;;^UTILITY(U,$J,358.3,24380,1,3,0)
+350 ;;=3^Athscl Bypass Cor Art Transplt Hrt w/ Unstable Angina
+351 ;;^UTILITY(U,$J,358.3,24380,1,4,0)
+352 ;;=4^I25.760
+353 ;;^UTILITY(U,$J,358.3,24380,2)
+354 ;;=^5007135
+355 ;;^UTILITY(U,$J,358.3,24381,0)
+356 ;;=I25.701^^74^972^25
+357 ;;^UTILITY(U,$J,358.3,24381,1,0)
+358 ;;=^358.31IA^4^2
+359 ;;^UTILITY(U,$J,358.3,24381,1,3,0)
+360 ;;=3^Athscl CABG w/ Ang Pctrs w/ Documented Spasm
+361 ;;^UTILITY(U,$J,358.3,24381,1,4,0)
+362 ;;=4^I25.701
+363 ;;^UTILITY(U,$J,358.3,24381,2)
+364 ;;=^5007118
+365 ;;^UTILITY(U,$J,358.3,24382,0)
+366 ;;=I25.708^^74^972^23
+367 ;;^UTILITY(U,$J,358.3,24382,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,24382,1,3,0)
+370 ;;=3^Athscl CABG w/ Ang Pctrs NEC
+371 ;;^UTILITY(U,$J,358.3,24382,1,4,0)
+372 ;;=4^I25.708
+373 ;;^UTILITY(U,$J,358.3,24382,2)
+374 ;;=^5007119
+375 ;;^UTILITY(U,$J,358.3,24383,0)
+376 ;;=I25.709^^74^972^27
+377 ;;^UTILITY(U,$J,358.3,24383,1,0)
+378 ;;=^358.31IA^4^2
+379 ;;^UTILITY(U,$J,358.3,24383,1,3,0)
+380 ;;=3^Athscl CABG w/ Ang Pctrs,Unspec
+381 ;;^UTILITY(U,$J,358.3,24383,1,4,0)
+382 ;;=4^I25.709
+383 ;;^UTILITY(U,$J,358.3,24383,2)
+384 ;;=^5007120
+385 ;;^UTILITY(U,$J,358.3,24384,0)
+386 ;;=I25.700^^74^972^29
+387 ;;^UTILITY(U,$J,358.3,24384,1,0)
+388 ;;=^358.31IA^4^2
+389 ;;^UTILITY(U,$J,358.3,24384,1,3,0)
+390 ;;=3^Athscl CABG w/ Unstable Angina
+391 ;;^UTILITY(U,$J,358.3,24384,1,4,0)
+392 ;;=4^I25.700
+393 ;;^UTILITY(U,$J,358.3,24384,2)
+394 ;;=^5007117
+395 ;;^UTILITY(U,$J,358.3,24385,0)
+396 ;;=I25.751^^74^972^36
+397 ;;^UTILITY(U,$J,358.3,24385,1,0)
+398 ;;=^358.31IA^4^2
+399 ;;^UTILITY(U,$J,358.3,24385,1,3,0)
+400 ;;=3^Athscl Native Cor Art of Transplt Hrt w/ Ang Pctrs w/ Documented Spasm
+401 ;;^UTILITY(U,$J,358.3,24385,1,4,0)
+402 ;;=4^I25.751
+403 ;;^UTILITY(U,$J,358.3,24385,2)
+404 ;;=^5007132
+405 ;;^UTILITY(U,$J,358.3,24386,0)
+406 ;;=I25.758^^74^972^37
+407 ;;^UTILITY(U,$J,358.3,24386,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,24386,1,3,0)
+410 ;;=3^Athscl Native Cor Art of Transplt Hrt w/ Ang Pctrs NEC
+411 ;;^UTILITY(U,$J,358.3,24386,1,4,0)
+412 ;;=4^I25.758
+413 ;;^UTILITY(U,$J,358.3,24386,2)
+414 ;;=^5007133
+415 ;;^UTILITY(U,$J,358.3,24387,0)
+416 ;;=I25.759^^74^972^38
+417 ;;^UTILITY(U,$J,358.3,24387,1,0)
+418 ;;=^358.31IA^4^2
+419 ;;^UTILITY(U,$J,358.3,24387,1,3,0)
+420 ;;=3^Athscl Native Cor Art of Transplt Hrt w/ Ang Pctrs,Unspec
+421 ;;^UTILITY(U,$J,358.3,24387,1,4,0)
+422 ;;=4^I25.759
+423 ;;^UTILITY(U,$J,358.3,24387,2)
+424 ;;=^5007134
+425 ;;^UTILITY(U,$J,358.3,24388,0)
+426 ;;=I25.750^^74^972^39
+427 ;;^UTILITY(U,$J,358.3,24388,1,0)
+428 ;;=^358.31IA^4^2
+429 ;;^UTILITY(U,$J,358.3,24388,1,3,0)
+430 ;;=3^Athscl Native Cor Art of Transplt Hrt w/ Unstable Angina
+431 ;;^UTILITY(U,$J,358.3,24388,1,4,0)
+432 ;;=4^I25.750
+433 ;;^UTILITY(U,$J,358.3,24388,2)
+434 ;;=^5007131
+435 ;;^UTILITY(U,$J,358.3,24389,0)
+436 ;;=I25.731^^74^972^41
+437 ;;^UTILITY(U,$J,358.3,24389,1,0)
+438 ;;=^358.31IA^4^2
+439 ;;^UTILITY(U,$J,358.3,24389,1,3,0)
+440 ;;=3^Athscl Nonaut Bio CABG w/ Ang Pctrs w/ Documented Spasm
+441 ;;^UTILITY(U,$J,358.3,24389,1,4,0)
+442 ;;=4^I25.731
+443 ;;^UTILITY(U,$J,358.3,24389,2)
+444 ;;=^5007128
+445 ;;^UTILITY(U,$J,358.3,24390,0)
+446 ;;=I25.738^^74^972^40
+447 ;;^UTILITY(U,$J,358.3,24390,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,24390,1,3,0)
+450 ;;=3^Athscl Nonaut Bio CABG w/ Ang Pctrs NEC
+451 ;;^UTILITY(U,$J,358.3,24390,1,4,0)
+452 ;;=4^I25.738
+453 ;;^UTILITY(U,$J,358.3,24390,2)
+454 ;;=^5007129
+455 ;;^UTILITY(U,$J,358.3,24391,0)
+456 ;;=I25.739^^74^972^42
+457 ;;^UTILITY(U,$J,358.3,24391,1,0)
+458 ;;=^358.31IA^4^2
+459 ;;^UTILITY(U,$J,358.3,24391,1,3,0)
+460 ;;=3^Athscl Nonaut Bio CABG w/ Ang Pctrs,Unspec
+461 ;;^UTILITY(U,$J,358.3,24391,1,4,0)
+462 ;;=4^I25.739
+463 ;;^UTILITY(U,$J,358.3,24391,2)
+464 ;;=^5007130
+465 ;;^UTILITY(U,$J,358.3,24392,0)
+466 ;;=I25.730^^74^972^43
+467 ;;^UTILITY(U,$J,358.3,24392,1,0)
+468 ;;=^358.31IA^4^2
+469 ;;^UTILITY(U,$J,358.3,24392,1,3,0)
+470 ;;=3^Athscl Nonaut Bio CABG w/ Unstable Angina
+471 ;;^UTILITY(U,$J,358.3,24392,1,4,0)
+472 ;;=4^I25.730
+473 ;;^UTILITY(U,$J,358.3,24392,2)
+474 ;;=^5007127
+475 ;;^UTILITY(U,$J,358.3,24393,0)
+476 ;;=I25.791^^74^972^26
+477 ;;^UTILITY(U,$J,358.3,24393,1,0)
+478 ;;=^358.31IA^4^2
+479 ;;^UTILITY(U,$J,358.3,24393,1,3,0)
+480 ;;=3^Athscl CABG w/ Ang Pctrs w/ Documented Spasm
+481 ;;^UTILITY(U,$J,358.3,24393,1,4,0)
+482 ;;=4^I25.791
+483 ;;^UTILITY(U,$J,358.3,24393,2)
+484 ;;=^5007140
+485 ;;^UTILITY(U,$J,358.3,24394,0)
+486 ;;=I25.798^^74^972^24
+487 ;;^UTILITY(U,$J,358.3,24394,1,0)
+488 ;;=^358.31IA^4^2
+489 ;;^UTILITY(U,$J,358.3,24394,1,3,0)
+490 ;;=3^Athscl CABG w/ Ang Pctrs NEC
+491 ;;^UTILITY(U,$J,358.3,24394,1,4,0)
+492 ;;=4^I25.798
+493 ;;^UTILITY(U,$J,358.3,24394,2)
+494 ;;=^5133558
+495 ;;^UTILITY(U,$J,358.3,24395,0)
+496 ;;=I25.799^^74^972^28
+497 ;;^UTILITY(U,$J,358.3,24395,1,0)
+498 ;;=^358.31IA^4^2
+499 ;;^UTILITY(U,$J,358.3,24395,1,3,0)
+500 ;;=3^Athscl CABG w/ Ang Pctrs,Unspec
+501 ;;^UTILITY(U,$J,358.3,24395,1,4,0)
+502 ;;=4^I25.799
+503 ;;^UTILITY(U,$J,358.3,24395,2)
+504 ;;=^5133559
+505 ;;^UTILITY(U,$J,358.3,24396,0)
+506 ;;=I25.790^^74^972^30
+507 ;;^UTILITY(U,$J,358.3,24396,1,0)
+508 ;;=^358.31IA^4^2
+509 ;;^UTILITY(U,$J,358.3,24396,1,3,0)
+510 ;;=3^Athscl CABG w/ Unstable Angina
+511 ;;^UTILITY(U,$J,358.3,24396,1,4,0)
+512 ;;=4^I25.790
+513 ;;^UTILITY(U,$J,358.3,24396,2)
+514 ;;=^5007139
+515 ;;^UTILITY(U,$J,358.3,24397,0)
+516 ;;=I25.111^^74^972^31
+517 ;;^UTILITY(U,$J,358.3,24397,1,0)
+518 ;;=^358.31IA^4^2
+519 ;;^UTILITY(U,$J,358.3,24397,1,3,0)
+520 ;;=3^Athscl Hrt Disease Native Cor Art w/ Ang Pctrs w/ Documented Spasm
+521 ;;^UTILITY(U,$J,358.3,24397,1,4,0)
+522 ;;=4^I25.111
+523 ;;^UTILITY(U,$J,358.3,24397,2)
+524 ;;=^5007109
+525 ;;^UTILITY(U,$J,358.3,24398,0)
+526 ;;=I25.118^^74^972^32
+527 ;;^UTILITY(U,$J,358.3,24398,1,0)
+528 ;;=^358.31IA^4^2
+529 ;;^UTILITY(U,$J,358.3,24398,1,3,0)
+530 ;;=3^Athscl Hrt Disease Native Cor Art w/ Ang Pctrs NEC
+531 ;;^UTILITY(U,$J,358.3,24398,1,4,0)
+532 ;;=4^I25.118
+533 ;;^UTILITY(U,$J,358.3,24398,2)
+534 ;;=^5007110
+535 ;;^UTILITY(U,$J,358.3,24399,0)
+536 ;;=I25.119^^74^972^33
+537 ;;^UTILITY(U,$J,358.3,24399,1,0)
+538 ;;=^358.31IA^4^2
+539 ;;^UTILITY(U,$J,358.3,24399,1,3,0)
+540 ;;=3^Athscl Hrt Disease Native Cor Art w/ Ang Pctrs,Unspec
+541 ;;^UTILITY(U,$J,358.3,24399,1,4,0)
+542 ;;=4^I25.119
+543 ;;^UTILITY(U,$J,358.3,24399,2)
+544 ;;=^5007111
+545 ;;^UTILITY(U,$J,358.3,24400,0)
+546 ;;=I25.110^^74^972^34
+547 ;;^UTILITY(U,$J,358.3,24400,1,0)
+548 ;;=^358.31IA^4^2
+549 ;;^UTILITY(U,$J,358.3,24400,1,3,0)
+550 ;;=3^Athscl Hrt Disease Native Cor Art w/ Unstable Angina
+551 ;;^UTILITY(U,$J,358.3,24400,1,4,0)
+552 ;;=4^I25.110
+553 ;;^UTILITY(U,$J,358.3,24400,2)
+554 ;;=^5007108
+555 ;;^UTILITY(U,$J,358.3,24401,0)
+556 ;;=I25.10^^74^972^35
+557 ;;^UTILITY(U,$J,358.3,24401,1,0)
+558 ;;=^358.31IA^4^2
+559 ;;^UTILITY(U,$J,358.3,24401,1,3,0)
+560 ;;=3^Athscl Hrt Disease Native Cor Art w/o Ang Pctrs
+561 ;;^UTILITY(U,$J,358.3,24401,1,4,0)
+562 ;;=4^I25.10
+563 ;;^UTILITY(U,$J,358.3,24401,2)
+564 ;;=^5007107
+565 ;;^UTILITY(U,$J,358.3,24402,0)
+566 ;;=I48.0^^74^972^47
+567 ;;^UTILITY(U,$J,358.3,24402,1,0)
+568 ;;=^358.31IA^4^2
+569 ;;^UTILITY(U,$J,358.3,24402,1,3,0)
+570 ;;=3^Atrial Fibrillation,Paroxysmal
+571 ;;^UTILITY(U,$J,358.3,24402,1,4,0)
+572 ;;=4^I48.0
+573 ;;^UTILITY(U,$J,358.3,24402,2)
+574 ;;=^90473
+575 ;;^UTILITY(U,$J,358.3,24403,0)
+576 ;;=I49.9^^74^972^50
+577 ;;^UTILITY(U,$J,358.3,24403,1,0)
+578 ;;=^358.31IA^4^2
+579 ;;^UTILITY(U,$J,358.3,24403,1,3,0)
+580 ;;=3^Cardiac Arrhythmia,Unspec
+581 ;;^UTILITY(U,$J,358.3,24403,1,4,0)
+582 ;;=4^I49.9
+583 ;;^UTILITY(U,$J,358.3,24403,2)
+584 ;;=^5007237
+585 ;;^UTILITY(U,$J,358.3,24404,0)
+586 ;;=I42.9^^74^972^51
+587 ;;^UTILITY(U,$J,358.3,24404,1,0)
+588 ;;=^358.31IA^4^2
+589 ;;^UTILITY(U,$J,358.3,24404,1,3,0)
+590 ;;=3^Cardiomyopathy,Unspec
+591 ;;^UTILITY(U,$J,358.3,24404,1,4,0)
+592 ;;=4^I42.9
+593 ;;^UTILITY(U,$J,358.3,24404,2)
+594 ;;=^5007200
+595 ;;^UTILITY(U,$J,358.3,24405,0)
+596 ;;=I50.42^^74^972^53
+597 ;;^UTILITY(U,$J,358.3,24405,1,0)
+598 ;;=^358.31IA^4^2
+599 ;;^UTILITY(U,$J,358.3,24405,1,3,0)
+600 ;;=3^Chr Combined Systolic & Diastolic Congestive Hrt Failure
+601 ;;^UTILITY(U,$J,358.3,24405,1,4,0)
+602 ;;=4^I50.42
+603 ;;^UTILITY(U,$J,358.3,24405,2)
+604 ;;=^5007249
+605 ;;^UTILITY(U,$J,358.3,24406,0)
+606 ;;=I50.32^^74^972^54
+607 ;;^UTILITY(U,$J,358.3,24406,1,0)
+608 ;;=^358.31IA^4^2
+609 ;;^UTILITY(U,$J,358.3,24406,1,3,0)
+610 ;;=3^Chr Diastolic Congestive Hrt Failure
+611 ;;^UTILITY(U,$J,358.3,24406,1,4,0)
+612 ;;=4^I50.32
+613 ;;^UTILITY(U,$J,358.3,24406,2)
+614 ;;=^5007245
+615 ;;^UTILITY(U,$J,358.3,24407,0)
+616 ;;=I27.82^^74^972^55
+617 ;;^UTILITY(U,$J,358.3,24407,1,0)
+618 ;;=^358.31IA^4^2
+619 ;;^UTILITY(U,$J,358.3,24407,1,3,0)
+620 ;;=3^Chr Pulmonary Embolism
+621 ;;^UTILITY(U,$J,358.3,24407,1,4,0)
+622 ;;=4^I27.82
+623 ;;^UTILITY(U,$J,358.3,24407,2)
+624 ;;=^338238
+625 ;;^UTILITY(U,$J,358.3,24408,0)
+626 ;;=I50.22^^74^972^57
+627 ;;^UTILITY(U,$J,358.3,24408,1,0)
+628 ;;=^358.31IA^4^2
+629 ;;^UTILITY(U,$J,358.3,24408,1,3,0)
+630 ;;=3^Chr Systolic Congestive Hrt Failure
+631 ;;^UTILITY(U,$J,358.3,24408,1,4,0)
+632 ;;=4^I50.22
+633 ;;^UTILITY(U,$J,358.3,24408,2)
+634 ;;=^5007241
+635 ;;^UTILITY(U,$J,358.3,24409,0)
+636 ;;=I42.0^^74^972^60
+637 ;;^UTILITY(U,$J,358.3,24409,1,0)
+638 ;;=^358.31IA^4^2
+639 ;;^UTILITY(U,$J,358.3,24409,1,3,0)
+640 ;;=3^Dilated Cardiomyopathy
+641 ;;^UTILITY(U,$J,358.3,24409,1,4,0)
+642 ;;=4^I42.0
+643 ;;^UTILITY(U,$J,358.3,24409,2)
+644 ;;=^5007194
+645 ;;^UTILITY(U,$J,358.3,24410,0)
+646 ;;=I10.^^74^972^62
+647 ;;^UTILITY(U,$J,358.3,24410,1,0)
+648 ;;=^358.31IA^4^2
+649 ;;^UTILITY(U,$J,358.3,24410,1,3,0)
+650 ;;=3^Essential Hypertension
+651 ;;^UTILITY(U,$J,358.3,24410,1,4,0)
+652 ;;=4^I10.
+653 ;;^UTILITY(U,$J,358.3,24410,2)
+654 ;;=^5007062
+655 ;;^UTILITY(U,$J,358.3,24411,0)
+656 ;;=I50.9^^74^972^67
+657 ;;^UTILITY(U,$J,358.3,24411,1,0)
+658 ;;=^358.31IA^4^2
+659 ;;^UTILITY(U,$J,358.3,24411,1,3,0)
+660 ;;=3^Heart Failure,Unspec
+661 ;;^UTILITY(U,$J,358.3,24411,1,4,0)
+662 ;;=4^I50.9
