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.
  1. IBDEI09Y ; ; 01-AUG-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,24345,1,4,0)
  1. ;;=4^C7A.090
  1. ;;^UTILITY(U,$J,358.3,24345,2)
  1. ;;=^5001371
  1. ;;^UTILITY(U,$J,358.3,24346,0)
  1. ;;=C34.02^^74^971^11
  1. ;;^UTILITY(U,$J,358.3,24346,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24346,1,3,0)
  1. ;;=3^Malig Neop Left Main Bronchus
  1. ;;^UTILITY(U,$J,358.3,24346,1,4,0)
  1. ;;=4^C34.02
  1. ;;^UTILITY(U,$J,358.3,24346,2)
  1. ;;=^5000959
  1. ;;^UTILITY(U,$J,358.3,24347,0)
  1. ;;=C34.32^^74^971^10
  1. ;;^UTILITY(U,$J,358.3,24347,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24347,1,3,0)
  1. ;;=3^Malig Neop Left Lower Lobe Bronchus/Lung
  1. ;;^UTILITY(U,$J,358.3,24347,1,4,0)
  1. ;;=4^C34.32
  1. ;;^UTILITY(U,$J,358.3,24347,2)
  1. ;;=^5133322
  1. ;;^UTILITY(U,$J,358.3,24348,0)
  1. ;;=C34.31^^74^971^19
  1. ;;^UTILITY(U,$J,358.3,24348,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24348,1,3,0)
  1. ;;=3^Malig Neop Right Lower Lobe Bronchus/Lung
  1. ;;^UTILITY(U,$J,358.3,24348,1,4,0)
  1. ;;=4^C34.31
  1. ;;^UTILITY(U,$J,358.3,24348,2)
  1. ;;=^5133321
  1. ;;^UTILITY(U,$J,358.3,24349,0)
  1. ;;=C39.9^^74^971^13
  1. ;;^UTILITY(U,$J,358.3,24349,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24349,1,3,0)
  1. ;;=3^Malig Neop Lower Respiratory Tract,Unspec Part
  1. ;;^UTILITY(U,$J,358.3,24349,1,4,0)
  1. ;;=4^C39.9
  1. ;;^UTILITY(U,$J,358.3,24349,2)
  1. ;;=^5000972
  1. ;;^UTILITY(U,$J,358.3,24350,0)
  1. ;;=C34.2^^74^971^14
  1. ;;^UTILITY(U,$J,358.3,24350,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24350,1,3,0)
  1. ;;=3^Malig Neop Middle Lobe Bronchus/Lung
  1. ;;^UTILITY(U,$J,358.3,24350,1,4,0)
  1. ;;=4^C34.2
  1. ;;^UTILITY(U,$J,358.3,24350,2)
  1. ;;=^267137
  1. ;;^UTILITY(U,$J,358.3,24351,0)
  1. ;;=C34.82^^74^971^15
  1. ;;^UTILITY(U,$J,358.3,24351,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24351,1,3,0)
  1. ;;=3^Malig Neop Ovrlp Sites Left Bronchus/Lung
  1. ;;^UTILITY(U,$J,358.3,24351,1,4,0)
  1. ;;=4^C34.82
  1. ;;^UTILITY(U,$J,358.3,24351,2)
  1. ;;=^5000965
  1. ;;^UTILITY(U,$J,358.3,24352,0)
  1. ;;=C34.81^^74^971^16
  1. ;;^UTILITY(U,$J,358.3,24352,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24352,1,3,0)
  1. ;;=3^Malig Neop Ovrlp Sites Right Bronchus/Lung
  1. ;;^UTILITY(U,$J,358.3,24352,1,4,0)
  1. ;;=4^C34.81
  1. ;;^UTILITY(U,$J,358.3,24352,2)
  1. ;;=^5000964
  1. ;;^UTILITY(U,$J,358.3,24353,0)
  1. ;;=C38.4^^74^971^17
  1. ;;^UTILITY(U,$J,358.3,24353,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24353,1,3,0)
  1. ;;=3^Malig Neop Pleura
  1. ;;^UTILITY(U,$J,358.3,24353,1,4,0)
  1. ;;=4^C38.4
  1. ;;^UTILITY(U,$J,358.3,24353,2)
  1. ;;=^267140
  1. ;;^UTILITY(U,$J,358.3,24354,0)
  1. ;;=C34.01^^74^971^20
  1. ;;^UTILITY(U,$J,358.3,24354,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24354,1,3,0)
  1. ;;=3^Malig Neop Right Main Bronchus
  1. ;;^UTILITY(U,$J,358.3,24354,1,4,0)
  1. ;;=4^C34.01
  1. ;;^UTILITY(U,$J,358.3,24354,2)
  1. ;;=^5000958
  1. ;;^UTILITY(U,$J,358.3,24355,0)
  1. ;;=C34.92^^74^971^9
  1. ;;^UTILITY(U,$J,358.3,24355,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24355,1,3,0)
  1. ;;=3^Malig Neop Left Bronchus/Lung,Unspec Part
  1. ;;^UTILITY(U,$J,358.3,24355,1,4,0)
  1. ;;=4^C34.92
  1. ;;^UTILITY(U,$J,358.3,24355,2)
  1. ;;=^5000968
  1. ;;^UTILITY(U,$J,358.3,24356,0)
  1. ;;=C34.91^^74^971^18
  1. ;;^UTILITY(U,$J,358.3,24356,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24356,1,3,0)
  1. ;;=3^Malig Neop Right Bronchus/Lung,Unspec Part
  1. ;;^UTILITY(U,$J,358.3,24356,1,4,0)
  1. ;;=4^C34.91
  1. ;;^UTILITY(U,$J,358.3,24356,2)
  1. ;;=^5000967
  1. ;;^UTILITY(U,$J,358.3,24357,0)
  1. ;;=C34.12^^74^971^12
  1. ;;^UTILITY(U,$J,358.3,24357,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24357,1,3,0)
  1. ;;=3^Malig Neop Left Upper Lobe Bronchus/Lung
  1. ;;^UTILITY(U,$J,358.3,24357,1,4,0)
  1. ;;=4^C34.12
  1. ;;^UTILITY(U,$J,358.3,24357,2)
  1. ;;=^5000962
  1. ;;^UTILITY(U,$J,358.3,24358,0)
  1. ;;=C34.11^^74^971^21
  1. ;;^UTILITY(U,$J,358.3,24358,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24358,1,3,0)
  1. ;;=3^Malig Neop Right Upper Lobe Bronchus/Lung
  1. ;;^UTILITY(U,$J,358.3,24358,1,4,0)
  1. ;;=4^C34.11
  1. ;;^UTILITY(U,$J,358.3,24358,2)
  1. ;;=^5000961
  1. ;;^UTILITY(U,$J,358.3,24359,0)
  1. ;;=C39.0^^74^971^22
  1. ;;^UTILITY(U,$J,358.3,24359,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24359,1,3,0)
  1. ;;=3^Malig Neop Upper Respiratory Tract,Unspec Part
  1. ;;^UTILITY(U,$J,358.3,24359,1,4,0)
  1. ;;=4^C39.0
  1. ;;^UTILITY(U,$J,358.3,24359,2)
  1. ;;=^5000971
  1. ;;^UTILITY(U,$J,358.3,24360,0)
  1. ;;=C78.02^^74^971^23
  1. ;;^UTILITY(U,$J,358.3,24360,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24360,1,3,0)
  1. ;;=3^Secondary Malig Neop Left Lung
  1. ;;^UTILITY(U,$J,358.3,24360,1,4,0)
  1. ;;=4^C78.02
  1. ;;^UTILITY(U,$J,358.3,24360,2)
  1. ;;=^5001336
  1. ;;^UTILITY(U,$J,358.3,24361,0)
  1. ;;=C78.01^^74^971^24
  1. ;;^UTILITY(U,$J,358.3,24361,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24361,1,3,0)
  1. ;;=3^Secondary Malig Neop Right Lung
  1. ;;^UTILITY(U,$J,358.3,24361,1,4,0)
  1. ;;=4^C78.01
  1. ;;^UTILITY(U,$J,358.3,24361,2)
  1. ;;=^5001335
  1. ;;^UTILITY(U,$J,358.3,24362,0)
  1. ;;=I50.41^^74^972^1
  1. ;;^UTILITY(U,$J,358.3,24362,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24362,1,3,0)
  1. ;;=3^AC Combined Systolic & Diastolic Congestive Hrt Failure
  1. ;;^UTILITY(U,$J,358.3,24362,1,4,0)
  1. ;;=4^I50.41
  1. ;;^UTILITY(U,$J,358.3,24362,2)
  1. ;;=^5007248
  1. ;;^UTILITY(U,$J,358.3,24363,0)
  1. ;;=I50.31^^74^972^2
  1. ;;^UTILITY(U,$J,358.3,24363,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24363,1,3,0)
  1. ;;=3^AC Diastolic Congestive Hrt Failure
  1. ;;^UTILITY(U,$J,358.3,24363,1,4,0)
  1. ;;=4^I50.31
  1. ;;^UTILITY(U,$J,358.3,24363,2)
  1. ;;=^5007244
  1. ;;^UTILITY(U,$J,358.3,24364,0)
  1. ;;=I50.43^^74^972^5
  1. ;;^UTILITY(U,$J,358.3,24364,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24364,1,3,0)
  1. ;;=3^AC on Chr Combined Systolic & Diastolic Congestive Hrt Failure
  1. ;;^UTILITY(U,$J,358.3,24364,1,4,0)
  1. ;;=4^I50.43
  1. ;;^UTILITY(U,$J,358.3,24364,2)
  1. ;;=^5007250
  1. ;;^UTILITY(U,$J,358.3,24365,0)
  1. ;;=I50.33^^74^972^6
  1. ;;^UTILITY(U,$J,358.3,24365,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24365,1,3,0)
  1. ;;=3^AC on Chr Diastolic Congestive Hrt Failure
  1. ;;^UTILITY(U,$J,358.3,24365,1,4,0)
  1. ;;=4^I50.33
  1. ;;^UTILITY(U,$J,358.3,24365,2)
  1. ;;=^5007246
  1. ;;^UTILITY(U,$J,358.3,24366,0)
  1. ;;=I50.23^^74^972^8
  1. ;;^UTILITY(U,$J,358.3,24366,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24366,1,3,0)
  1. ;;=3^AC on Chr Systolic Congestive Hrt Failure
  1. ;;^UTILITY(U,$J,358.3,24366,1,4,0)
  1. ;;=4^I50.23
  1. ;;^UTILITY(U,$J,358.3,24366,2)
  1. ;;=^5007242
  1. ;;^UTILITY(U,$J,358.3,24367,0)
  1. ;;=I50.21^^74^972^4
  1. ;;^UTILITY(U,$J,358.3,24367,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24367,1,3,0)
  1. ;;=3^AC Systolic Congestive Hrt Failure
  1. ;;^UTILITY(U,$J,358.3,24367,1,4,0)
  1. ;;=4^I50.21
  1. ;;^UTILITY(U,$J,358.3,24367,2)
  1. ;;=^5007240
  1. ;;^UTILITY(U,$J,358.3,24368,0)
  1. ;;=I20.9^^74^972^10
  1. ;;^UTILITY(U,$J,358.3,24368,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24368,1,3,0)
  1. ;;=3^Angina Pectoris,Unspec
  1. ;;^UTILITY(U,$J,358.3,24368,1,4,0)
  1. ;;=4^I20.9
  1. ;;^UTILITY(U,$J,358.3,24368,2)
  1. ;;=^5007079
  1. ;;^UTILITY(U,$J,358.3,24369,0)
  1. ;;=I25.721^^74^972^11
  1. ;;^UTILITY(U,$J,358.3,24369,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24369,1,3,0)
  1. ;;=3^Athscl Autologous Artery CABG w/ Ang Pctrs w/ Documented Spasm
  1. ;;^UTILITY(U,$J,358.3,24369,1,4,0)
  1. ;;=4^I25.721
  1. ;;^UTILITY(U,$J,358.3,24369,2)
  1. ;;=^5007126
  1. ;;^UTILITY(U,$J,358.3,24370,0)
  1. ;;=I25.728^^74^972^12
  1. ;;^UTILITY(U,$J,358.3,24370,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24370,1,3,0)
  1. ;;=3^Athscl Autologous Artery CABG w/ Ang Pctrs NEC
  1. ;;^UTILITY(U,$J,358.3,24370,1,4,0)
  1. ;;=4^I25.728
  1. ;;^UTILITY(U,$J,358.3,24370,2)
  1. ;;=^5133560
  1. ;;^UTILITY(U,$J,358.3,24371,0)
  1. ;;=I25.729^^74^972^13
  1. ;;^UTILITY(U,$J,358.3,24371,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24371,1,3,0)
  1. ;;=3^Athscl Autologous Artery CABG w/ Ang Pctrs,Unspec
  1. ;;^UTILITY(U,$J,358.3,24371,1,4,0)
  1. ;;=4^I25.729
  1. ;;^UTILITY(U,$J,358.3,24371,2)
  1. ;;=^5133561
  1. ;;^UTILITY(U,$J,358.3,24372,0)
  1. ;;=I25.720^^74^972^14
  1. ;;^UTILITY(U,$J,358.3,24372,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24372,1,3,0)
  1. ;;=3^Athscl Autologous Artery CABG w/ Unstable Ang Pctrs
  1. ;;^UTILITY(U,$J,358.3,24372,1,4,0)
  1. ;;=4^I25.720
  1. ;;^UTILITY(U,$J,358.3,24372,2)
  1. ;;=^5007125
  1. ;;^UTILITY(U,$J,358.3,24373,0)
  1. ;;=I25.711^^74^972^15
  1. ;;^UTILITY(U,$J,358.3,24373,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24373,1,3,0)
  1. ;;=3^Athscl Autologous Vein CABG w/ Ang Pctrs w/ Documented Spasm
  1. ;;^UTILITY(U,$J,358.3,24373,1,4,0)
  1. ;;=4^I25.711
  1. ;;^UTILITY(U,$J,358.3,24373,2)
  1. ;;=^5007122
  1. ;;^UTILITY(U,$J,358.3,24374,0)
  1. ;;=I25.718^^74^972^16
  1. ;;^UTILITY(U,$J,358.3,24374,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24374,1,3,0)
  1. ;;=3^Athscl Autologous Vein CABG w/ Ang Pctrs NEC
  1. ;;^UTILITY(U,$J,358.3,24374,1,4,0)
  1. ;;=4^I25.718
  1. ;;^UTILITY(U,$J,358.3,24374,2)
  1. ;;=^5007123
  1. ;;^UTILITY(U,$J,358.3,24375,0)
  1. ;;=I25.719^^74^972^17
  1. ;;^UTILITY(U,$J,358.3,24375,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24375,1,3,0)
  1. ;;=3^Athscl Autologous Vein CABG w/ Ang Pctrs,Unspec
  1. ;;^UTILITY(U,$J,358.3,24375,1,4,0)
  1. ;;=4^I25.719
  1. ;;^UTILITY(U,$J,358.3,24375,2)
  1. ;;=^5007124
  1. ;;^UTILITY(U,$J,358.3,24376,0)
  1. ;;=I25.710^^74^972^18
  1. ;;^UTILITY(U,$J,358.3,24376,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24376,1,3,0)
  1. ;;=3^Athscl Autologous Vein CABG w/ Unstable Ang Pctrs
  1. ;;^UTILITY(U,$J,358.3,24376,1,4,0)
  1. ;;=4^I25.710
  1. ;;^UTILITY(U,$J,358.3,24376,2)
  1. ;;=^5007121
  1. ;;^UTILITY(U,$J,358.3,24377,0)
  1. ;;=I25.761^^74^972^19
  1. ;;^UTILITY(U,$J,358.3,24377,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24377,1,3,0)
  1. ;;=3^Athscl Bypass Cor Art Transplt Hrt w/ Ang Pctrs w/ Documented Spasm
  1. ;;^UTILITY(U,$J,358.3,24377,1,4,0)
  1. ;;=4^I25.761
  1. ;;^UTILITY(U,$J,358.3,24377,2)
  1. ;;=^5007136
  1. ;;^UTILITY(U,$J,358.3,24378,0)
  1. ;;=I25.768^^74^972^20
  1. ;;^UTILITY(U,$J,358.3,24378,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24378,1,3,0)
  1. ;;=3^Athscl Bypass Cor Art Transplt Hrt w/ Ang Pctrs NEC
  1. ;;^UTILITY(U,$J,358.3,24378,1,4,0)
  1. ;;=4^I25.768
  1. ;;^UTILITY(U,$J,358.3,24378,2)
  1. ;;=^5007137
  1. ;;^UTILITY(U,$J,358.3,24379,0)
  1. ;;=I25.769^^74^972^21
  1. ;;^UTILITY(U,$J,358.3,24379,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24379,1,3,0)
  1. ;;=3^Athscl Bypass Cor Art Transplt Hrt w/ Ang Pctrs,Unspec
  1. ;;^UTILITY(U,$J,358.3,24379,1,4,0)
  1. ;;=4^I25.769
  1. ;;^UTILITY(U,$J,358.3,24379,2)
  1. ;;=^5007138
  1. ;;^UTILITY(U,$J,358.3,24380,0)
  1. ;;=I25.760^^74^972^22
  1. ;;^UTILITY(U,$J,358.3,24380,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24380,1,3,0)
  1. ;;=3^Athscl Bypass Cor Art Transplt Hrt w/ Unstable Angina
  1. ;;^UTILITY(U,$J,358.3,24380,1,4,0)
  1. ;;=4^I25.760
  1. ;;^UTILITY(U,$J,358.3,24380,2)
  1. ;;=^5007135
  1. ;;^UTILITY(U,$J,358.3,24381,0)
  1. ;;=I25.701^^74^972^25
  1. ;;^UTILITY(U,$J,358.3,24381,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24381,1,3,0)
  1. ;;=3^Athscl CABG w/ Ang Pctrs w/ Documented Spasm
  1. ;;^UTILITY(U,$J,358.3,24381,1,4,0)
  1. ;;=4^I25.701
  1. ;;^UTILITY(U,$J,358.3,24381,2)
  1. ;;=^5007118
  1. ;;^UTILITY(U,$J,358.3,24382,0)
  1. ;;=I25.708^^74^972^23
  1. ;;^UTILITY(U,$J,358.3,24382,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24382,1,3,0)
  1. ;;=3^Athscl CABG w/ Ang Pctrs NEC
  1. ;;^UTILITY(U,$J,358.3,24382,1,4,0)
  1. ;;=4^I25.708
  1. ;;^UTILITY(U,$J,358.3,24382,2)
  1. ;;=^5007119
  1. ;;^UTILITY(U,$J,358.3,24383,0)
  1. ;;=I25.709^^74^972^27
  1. ;;^UTILITY(U,$J,358.3,24383,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24383,1,3,0)
  1. ;;=3^Athscl CABG w/ Ang Pctrs,Unspec
  1. ;;^UTILITY(U,$J,358.3,24383,1,4,0)
  1. ;;=4^I25.709
  1. ;;^UTILITY(U,$J,358.3,24383,2)
  1. ;;=^5007120
  1. ;;^UTILITY(U,$J,358.3,24384,0)
  1. ;;=I25.700^^74^972^29
  1. ;;^UTILITY(U,$J,358.3,24384,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24384,1,3,0)
  1. ;;=3^Athscl CABG w/ Unstable Angina
  1. ;;^UTILITY(U,$J,358.3,24384,1,4,0)
  1. ;;=4^I25.700
  1. ;;^UTILITY(U,$J,358.3,24384,2)
  1. ;;=^5007117
  1. ;;^UTILITY(U,$J,358.3,24385,0)
  1. ;;=I25.751^^74^972^36
  1. ;;^UTILITY(U,$J,358.3,24385,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24385,1,3,0)
  1. ;;=3^Athscl Native Cor Art of Transplt Hrt w/ Ang Pctrs w/ Documented Spasm
  1. ;;^UTILITY(U,$J,358.3,24385,1,4,0)
  1. ;;=4^I25.751
  1. ;;^UTILITY(U,$J,358.3,24385,2)
  1. ;;=^5007132
  1. ;;^UTILITY(U,$J,358.3,24386,0)
  1. ;;=I25.758^^74^972^37
  1. ;;^UTILITY(U,$J,358.3,24386,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24386,1,3,0)
  1. ;;=3^Athscl Native Cor Art of Transplt Hrt w/ Ang Pctrs NEC
  1. ;;^UTILITY(U,$J,358.3,24386,1,4,0)
  1. ;;=4^I25.758
  1. ;;^UTILITY(U,$J,358.3,24386,2)
  1. ;;=^5007133
  1. ;;^UTILITY(U,$J,358.3,24387,0)
  1. ;;=I25.759^^74^972^38
  1. ;;^UTILITY(U,$J,358.3,24387,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24387,1,3,0)
  1. ;;=3^Athscl Native Cor Art of Transplt Hrt w/ Ang Pctrs,Unspec
  1. ;;^UTILITY(U,$J,358.3,24387,1,4,0)
  1. ;;=4^I25.759
  1. ;;^UTILITY(U,$J,358.3,24387,2)
  1. ;;=^5007134
  1. ;;^UTILITY(U,$J,358.3,24388,0)
  1. ;;=I25.750^^74^972^39
  1. ;;^UTILITY(U,$J,358.3,24388,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24388,1,3,0)
  1. ;;=3^Athscl Native Cor Art of Transplt Hrt w/ Unstable Angina
  1. ;;^UTILITY(U,$J,358.3,24388,1,4,0)
  1. ;;=4^I25.750
  1. ;;^UTILITY(U,$J,358.3,24388,2)
  1. ;;=^5007131
  1. ;;^UTILITY(U,$J,358.3,24389,0)
  1. ;;=I25.731^^74^972^41
  1. ;;^UTILITY(U,$J,358.3,24389,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24389,1,3,0)
  1. ;;=3^Athscl Nonaut Bio CABG w/ Ang Pctrs w/ Documented Spasm
  1. ;;^UTILITY(U,$J,358.3,24389,1,4,0)
  1. ;;=4^I25.731
  1. ;;^UTILITY(U,$J,358.3,24389,2)
  1. ;;=^5007128
  1. ;;^UTILITY(U,$J,358.3,24390,0)
  1. ;;=I25.738^^74^972^40
  1. ;;^UTILITY(U,$J,358.3,24390,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24390,1,3,0)
  1. ;;=3^Athscl Nonaut Bio CABG w/ Ang Pctrs NEC
  1. ;;^UTILITY(U,$J,358.3,24390,1,4,0)
  1. ;;=4^I25.738
  1. ;;^UTILITY(U,$J,358.3,24390,2)
  1. ;;=^5007129
  1. ;;^UTILITY(U,$J,358.3,24391,0)
  1. ;;=I25.739^^74^972^42
  1. ;;^UTILITY(U,$J,358.3,24391,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24391,1,3,0)
  1. ;;=3^Athscl Nonaut Bio CABG w/ Ang Pctrs,Unspec
  1. ;;^UTILITY(U,$J,358.3,24391,1,4,0)
  1. ;;=4^I25.739
  1. ;;^UTILITY(U,$J,358.3,24391,2)
  1. ;;=^5007130
  1. ;;^UTILITY(U,$J,358.3,24392,0)
  1. ;;=I25.730^^74^972^43
  1. ;;^UTILITY(U,$J,358.3,24392,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24392,1,3,0)
  1. ;;=3^Athscl Nonaut Bio CABG w/ Unstable Angina
  1. ;;^UTILITY(U,$J,358.3,24392,1,4,0)
  1. ;;=4^I25.730
  1. ;;^UTILITY(U,$J,358.3,24392,2)
  1. ;;=^5007127
  1. ;;^UTILITY(U,$J,358.3,24393,0)
  1. ;;=I25.791^^74^972^26
  1. ;;^UTILITY(U,$J,358.3,24393,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24393,1,3,0)
  1. ;;=3^Athscl CABG w/ Ang Pctrs w/ Documented Spasm
  1. ;;^UTILITY(U,$J,358.3,24393,1,4,0)
  1. ;;=4^I25.791
  1. ;;^UTILITY(U,$J,358.3,24393,2)
  1. ;;=^5007140
  1. ;;^UTILITY(U,$J,358.3,24394,0)
  1. ;;=I25.798^^74^972^24
  1. ;;^UTILITY(U,$J,358.3,24394,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24394,1,3,0)
  1. ;;=3^Athscl CABG w/ Ang Pctrs NEC
  1. ;;^UTILITY(U,$J,358.3,24394,1,4,0)
  1. ;;=4^I25.798
  1. ;;^UTILITY(U,$J,358.3,24394,2)
  1. ;;=^5133558
  1. ;;^UTILITY(U,$J,358.3,24395,0)
  1. ;;=I25.799^^74^972^28
  1. ;;^UTILITY(U,$J,358.3,24395,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24395,1,3,0)
  1. ;;=3^Athscl CABG w/ Ang Pctrs,Unspec
  1. ;;^UTILITY(U,$J,358.3,24395,1,4,0)
  1. ;;=4^I25.799
  1. ;;^UTILITY(U,$J,358.3,24395,2)
  1. ;;=^5133559
  1. ;;^UTILITY(U,$J,358.3,24396,0)
  1. ;;=I25.790^^74^972^30
  1. ;;^UTILITY(U,$J,358.3,24396,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24396,1,3,0)
  1. ;;=3^Athscl CABG w/ Unstable Angina
  1. ;;^UTILITY(U,$J,358.3,24396,1,4,0)
  1. ;;=4^I25.790
  1. ;;^UTILITY(U,$J,358.3,24396,2)
  1. ;;=^5007139
  1. ;;^UTILITY(U,$J,358.3,24397,0)
  1. ;;=I25.111^^74^972^31
  1. ;;^UTILITY(U,$J,358.3,24397,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24397,1,3,0)
  1. ;;=3^Athscl Hrt Disease Native Cor Art w/ Ang Pctrs w/ Documented Spasm
  1. ;;^UTILITY(U,$J,358.3,24397,1,4,0)
  1. ;;=4^I25.111
  1. ;;^UTILITY(U,$J,358.3,24397,2)
  1. ;;=^5007109
  1. ;;^UTILITY(U,$J,358.3,24398,0)
  1. ;;=I25.118^^74^972^32
  1. ;;^UTILITY(U,$J,358.3,24398,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24398,1,3,0)
  1. ;;=3^Athscl Hrt Disease Native Cor Art w/ Ang Pctrs NEC
  1. ;;^UTILITY(U,$J,358.3,24398,1,4,0)
  1. ;;=4^I25.118
  1. ;;^UTILITY(U,$J,358.3,24398,2)
  1. ;;=^5007110
  1. ;;^UTILITY(U,$J,358.3,24399,0)
  1. ;;=I25.119^^74^972^33
  1. ;;^UTILITY(U,$J,358.3,24399,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24399,1,3,0)
  1. ;;=3^Athscl Hrt Disease Native Cor Art w/ Ang Pctrs,Unspec
  1. ;;^UTILITY(U,$J,358.3,24399,1,4,0)
  1. ;;=4^I25.119
  1. ;;^UTILITY(U,$J,358.3,24399,2)
  1. ;;=^5007111
  1. ;;^UTILITY(U,$J,358.3,24400,0)
  1. ;;=I25.110^^74^972^34
  1. ;;^UTILITY(U,$J,358.3,24400,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24400,1,3,0)
  1. ;;=3^Athscl Hrt Disease Native Cor Art w/ Unstable Angina
  1. ;;^UTILITY(U,$J,358.3,24400,1,4,0)
  1. ;;=4^I25.110
  1. ;;^UTILITY(U,$J,358.3,24400,2)
  1. ;;=^5007108
  1. ;;^UTILITY(U,$J,358.3,24401,0)
  1. ;;=I25.10^^74^972^35
  1. ;;^UTILITY(U,$J,358.3,24401,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24401,1,3,0)
  1. ;;=3^Athscl Hrt Disease Native Cor Art w/o Ang Pctrs
  1. ;;^UTILITY(U,$J,358.3,24401,1,4,0)
  1. ;;=4^I25.10
  1. ;;^UTILITY(U,$J,358.3,24401,2)
  1. ;;=^5007107
  1. ;;^UTILITY(U,$J,358.3,24402,0)
  1. ;;=I48.0^^74^972^47
  1. ;;^UTILITY(U,$J,358.3,24402,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24402,1,3,0)
  1. ;;=3^Atrial Fibrillation,Paroxysmal
  1. ;;^UTILITY(U,$J,358.3,24402,1,4,0)
  1. ;;=4^I48.0
  1. ;;^UTILITY(U,$J,358.3,24402,2)
  1. ;;=^90473
  1. ;;^UTILITY(U,$J,358.3,24403,0)
  1. ;;=I49.9^^74^972^50
  1. ;;^UTILITY(U,$J,358.3,24403,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24403,1,3,0)
  1. ;;=3^Cardiac Arrhythmia,Unspec
  1. ;;^UTILITY(U,$J,358.3,24403,1,4,0)
  1. ;;=4^I49.9
  1. ;;^UTILITY(U,$J,358.3,24403,2)
  1. ;;=^5007237
  1. ;;^UTILITY(U,$J,358.3,24404,0)
  1. ;;=I42.9^^74^972^51
  1. ;;^UTILITY(U,$J,358.3,24404,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24404,1,3,0)
  1. ;;=3^Cardiomyopathy,Unspec
  1. ;;^UTILITY(U,$J,358.3,24404,1,4,0)
  1. ;;=4^I42.9
  1. ;;^UTILITY(U,$J,358.3,24404,2)
  1. ;;=^5007200
  1. ;;^UTILITY(U,$J,358.3,24405,0)
  1. ;;=I50.42^^74^972^53
  1. ;;^UTILITY(U,$J,358.3,24405,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24405,1,3,0)
  1. ;;=3^Chr Combined Systolic & Diastolic Congestive Hrt Failure
  1. ;;^UTILITY(U,$J,358.3,24405,1,4,0)
  1. ;;=4^I50.42
  1. ;;^UTILITY(U,$J,358.3,24405,2)
  1. ;;=^5007249
  1. ;;^UTILITY(U,$J,358.3,24406,0)
  1. ;;=I50.32^^74^972^54
  1. ;;^UTILITY(U,$J,358.3,24406,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24406,1,3,0)
  1. ;;=3^Chr Diastolic Congestive Hrt Failure
  1. ;;^UTILITY(U,$J,358.3,24406,1,4,0)
  1. ;;=4^I50.32
  1. ;;^UTILITY(U,$J,358.3,24406,2)
  1. ;;=^5007245
  1. ;;^UTILITY(U,$J,358.3,24407,0)
  1. ;;=I27.82^^74^972^55
  1. ;;^UTILITY(U,$J,358.3,24407,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24407,1,3,0)
  1. ;;=3^Chr Pulmonary Embolism
  1. ;;^UTILITY(U,$J,358.3,24407,1,4,0)
  1. ;;=4^I27.82
  1. ;;^UTILITY(U,$J,358.3,24407,2)
  1. ;;=^338238
  1. ;;^UTILITY(U,$J,358.3,24408,0)
  1. ;;=I50.22^^74^972^57
  1. ;;^UTILITY(U,$J,358.3,24408,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24408,1,3,0)
  1. ;;=3^Chr Systolic Congestive Hrt Failure
  1. ;;^UTILITY(U,$J,358.3,24408,1,4,0)
  1. ;;=4^I50.22
  1. ;;^UTILITY(U,$J,358.3,24408,2)
  1. ;;=^5007241
  1. ;;^UTILITY(U,$J,358.3,24409,0)
  1. ;;=I42.0^^74^972^60
  1. ;;^UTILITY(U,$J,358.3,24409,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24409,1,3,0)
  1. ;;=3^Dilated Cardiomyopathy
  1. ;;^UTILITY(U,$J,358.3,24409,1,4,0)
  1. ;;=4^I42.0
  1. ;;^UTILITY(U,$J,358.3,24409,2)
  1. ;;=^5007194
  1. ;;^UTILITY(U,$J,358.3,24410,0)
  1. ;;=I10.^^74^972^62
  1. ;;^UTILITY(U,$J,358.3,24410,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24410,1,3,0)
  1. ;;=3^Essential Hypertension
  1. ;;^UTILITY(U,$J,358.3,24410,1,4,0)
  1. ;;=4^I10.
  1. ;;^UTILITY(U,$J,358.3,24410,2)
  1. ;;=^5007062
  1. ;;^UTILITY(U,$J,358.3,24411,0)
  1. ;;=I50.9^^74^972^67
  1. ;;^UTILITY(U,$J,358.3,24411,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24411,1,3,0)
  1. ;;=3^Heart Failure,Unspec
  1. ;;^UTILITY(U,$J,358.3,24411,1,4,0)
  1. ;;=4^I50.9