- 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 Feb 18, 2025@23:10:55 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