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

IBDEI09Y.m

Go to the documentation of this file.
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