IBDEI016 ; ; 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,2326,1,4,0)
;;=4^I25.760
;;^UTILITY(U,$J,358.3,2326,2)
;;=^5007135
;;^UTILITY(U,$J,358.3,2327,0)
;;=I25.790^^20^149^35
;;^UTILITY(U,$J,358.3,2327,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2327,1,3,0)
;;=3^Athscl of CABG w/ Unstable Ang Pctrs
;;^UTILITY(U,$J,358.3,2327,1,4,0)
;;=4^I25.790
;;^UTILITY(U,$J,358.3,2327,2)
;;=^5007139
;;^UTILITY(U,$J,358.3,2328,0)
;;=I20.0^^20^149^42
;;^UTILITY(U,$J,358.3,2328,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2328,1,3,0)
;;=3^Unstable Angina
;;^UTILITY(U,$J,358.3,2328,1,4,0)
;;=4^I20.0
;;^UTILITY(U,$J,358.3,2328,2)
;;=^5007076
;;^UTILITY(U,$J,358.3,2329,0)
;;=I25.759^^20^149^20
;;^UTILITY(U,$J,358.3,2329,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2329,1,3,0)
;;=3^Athscl Native Cor Art of Transplanted Hrt w/ Unspec Angina Pectoris
;;^UTILITY(U,$J,358.3,2329,1,4,0)
;;=4^I25.759
;;^UTILITY(U,$J,358.3,2329,2)
;;=^5007134
;;^UTILITY(U,$J,358.3,2330,0)
;;=I25.761^^20^149^12
;;^UTILITY(U,$J,358.3,2330,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2330,1,3,0)
;;=3^Athscl Bypass of Cor Art of Transplanted Hrt w/ Ang Pctrs w/ Spasm
;;^UTILITY(U,$J,358.3,2330,1,4,0)
;;=4^I25.761
;;^UTILITY(U,$J,358.3,2330,2)
;;=^5007136
;;^UTILITY(U,$J,358.3,2331,0)
;;=I25.768^^20^149^13
;;^UTILITY(U,$J,358.3,2331,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2331,1,3,0)
;;=3^Athscl Bypass of Cor Art of Transplanted Hrt w/ Oth Ang Pctrs
;;^UTILITY(U,$J,358.3,2331,1,4,0)
;;=4^I25.768
;;^UTILITY(U,$J,358.3,2331,2)
;;=^5007137
;;^UTILITY(U,$J,358.3,2332,0)
;;=I25.769^^20^149^14
;;^UTILITY(U,$J,358.3,2332,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2332,1,3,0)
;;=3^Athscl Bypass of Cor Art of Transplanted Hrt w/ Unspec Ang Pctrs
;;^UTILITY(U,$J,358.3,2332,1,4,0)
;;=4^I25.769
;;^UTILITY(U,$J,358.3,2332,2)
;;=^5007138
;;^UTILITY(U,$J,358.3,2333,0)
;;=I25.791^^20^149^28
;;^UTILITY(U,$J,358.3,2333,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2333,1,3,0)
;;=3^Athscl of CABG w/ Ang Pctrs w/ Documented Spasm
;;^UTILITY(U,$J,358.3,2333,1,4,0)
;;=4^I25.791
;;^UTILITY(U,$J,358.3,2333,2)
;;=^5007140
;;^UTILITY(U,$J,358.3,2334,0)
;;=I25.798^^20^149^30
;;^UTILITY(U,$J,358.3,2334,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2334,1,3,0)
;;=3^Athscl of CABG w/ Oth Ang Pctrs
;;^UTILITY(U,$J,358.3,2334,1,4,0)
;;=4^I25.798
;;^UTILITY(U,$J,358.3,2334,2)
;;=^5133558
;;^UTILITY(U,$J,358.3,2335,0)
;;=I25.799^^20^149^32
;;^UTILITY(U,$J,358.3,2335,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2335,1,3,0)
;;=3^Athscl of CABG w/ Unspec Ang Pctrs
;;^UTILITY(U,$J,358.3,2335,1,4,0)
;;=4^I25.799
;;^UTILITY(U,$J,358.3,2335,2)
;;=^5133559
;;^UTILITY(U,$J,358.3,2336,0)
;;=I25.111^^20^149^16
;;^UTILITY(U,$J,358.3,2336,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2336,1,3,0)
;;=3^Athscl Hrt Disease of Native Cor Art w/ Ang Pctrs w/ Spasm
;;^UTILITY(U,$J,358.3,2336,1,4,0)
;;=4^I25.111
;;^UTILITY(U,$J,358.3,2336,2)
;;=^5007109
;;^UTILITY(U,$J,358.3,2337,0)
;;=I25.118^^20^149^17
;;^UTILITY(U,$J,358.3,2337,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2337,1,3,0)
;;=3^Athscl Hrt Disease of Native Cor Art w/ Oth Ang Pctrs
;;^UTILITY(U,$J,358.3,2337,1,4,0)
;;=4^I25.118
;;^UTILITY(U,$J,358.3,2337,2)
;;=^5007110
;;^UTILITY(U,$J,358.3,2338,0)
;;=I25.119^^20^149^18
;;^UTILITY(U,$J,358.3,2338,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2338,1,3,0)
;;=3^Athscl Hrt Disease of Native Cor Art w/ Unspec Ang Pctrs
;;^UTILITY(U,$J,358.3,2338,1,4,0)
;;=4^I25.119
;;^UTILITY(U,$J,358.3,2338,2)
;;=^5007111
;;^UTILITY(U,$J,358.3,2339,0)
;;=I25.701^^20^149^29
;;^UTILITY(U,$J,358.3,2339,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2339,1,3,0)
;;=3^Athscl of CABG w/ Ang Pctrs w/ Documented Spasm,Unspec
;;^UTILITY(U,$J,358.3,2339,1,4,0)
;;=4^I25.701
;;^UTILITY(U,$J,358.3,2339,2)
;;=^5007118
;;^UTILITY(U,$J,358.3,2340,0)
;;=I25.708^^20^149^31
;;^UTILITY(U,$J,358.3,2340,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2340,1,3,0)
;;=3^Athscl of CABG w/ Oth Ang Pctrs,Unspec
;;^UTILITY(U,$J,358.3,2340,1,4,0)
;;=4^I25.708
;;^UTILITY(U,$J,358.3,2340,2)
;;=^5007119
;;^UTILITY(U,$J,358.3,2341,0)
;;=I25.709^^20^149^33
;;^UTILITY(U,$J,358.3,2341,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2341,1,3,0)
;;=3^Athscl of CABG w/ Unspec Ang Pctrs,Unspec
;;^UTILITY(U,$J,358.3,2341,1,4,0)
;;=4^I25.709
;;^UTILITY(U,$J,358.3,2341,2)
;;=^5007120
;;^UTILITY(U,$J,358.3,2342,0)
;;=I25.711^^20^149^7
;;^UTILITY(U,$J,358.3,2342,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2342,1,3,0)
;;=3^Athscl Autologous Vein CABG w/ Ang Pctrs w/ Documented Spasm
;;^UTILITY(U,$J,358.3,2342,1,4,0)
;;=4^I25.711
;;^UTILITY(U,$J,358.3,2342,2)
;;=^5007122
;;^UTILITY(U,$J,358.3,2343,0)
;;=I25.718^^20^149^8
;;^UTILITY(U,$J,358.3,2343,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2343,1,3,0)
;;=3^Athscl Autologous Vein CABG w/ Oth Ang Pctrs
;;^UTILITY(U,$J,358.3,2343,1,4,0)
;;=4^I25.718
;;^UTILITY(U,$J,358.3,2343,2)
;;=^5007123
;;^UTILITY(U,$J,358.3,2344,0)
;;=I25.719^^20^149^9
;;^UTILITY(U,$J,358.3,2344,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2344,1,3,0)
;;=3^Athscl Autologous Vein CABG w/ Unspec Ang Pctrs
;;^UTILITY(U,$J,358.3,2344,1,4,0)
;;=4^I25.719
;;^UTILITY(U,$J,358.3,2344,2)
;;=^5007124
;;^UTILITY(U,$J,358.3,2345,0)
;;=I25.721^^20^149^3
;;^UTILITY(U,$J,358.3,2345,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2345,1,3,0)
;;=3^Athscl Autologous Artery CABG w/ Ang Pctrs w/ Documented Spasm
;;^UTILITY(U,$J,358.3,2345,1,4,0)
;;=4^I25.721
;;^UTILITY(U,$J,358.3,2345,2)
;;=^5007126
;;^UTILITY(U,$J,358.3,2346,0)
;;=I25.728^^20^149^4
;;^UTILITY(U,$J,358.3,2346,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2346,1,3,0)
;;=3^Athscl Autologous Artery CABG w/ Oth Ang Pctrs
;;^UTILITY(U,$J,358.3,2346,1,4,0)
;;=4^I25.728
;;^UTILITY(U,$J,358.3,2346,2)
;;=^5133560
;;^UTILITY(U,$J,358.3,2347,0)
;;=I25.729^^20^149^5
;;^UTILITY(U,$J,358.3,2347,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2347,1,3,0)
;;=3^Athscl Autologous Artery CABG w/ Unspec Ang Pctrs
;;^UTILITY(U,$J,358.3,2347,1,4,0)
;;=4^I25.729
;;^UTILITY(U,$J,358.3,2347,2)
;;=^5133561
;;^UTILITY(U,$J,358.3,2348,0)
;;=I25.731^^20^149^25
;;^UTILITY(U,$J,358.3,2348,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2348,1,3,0)
;;=3^Athscl Nonautologous Biological CABG w/ Ang Pctrs w/ Documented Spasm
;;^UTILITY(U,$J,358.3,2348,1,4,0)
;;=4^I25.731
;;^UTILITY(U,$J,358.3,2348,2)
;;=^5007128
;;^UTILITY(U,$J,358.3,2349,0)
;;=I25.738^^20^149^26
;;^UTILITY(U,$J,358.3,2349,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2349,1,3,0)
;;=3^Athscl Nonautologous Biological CABG w/ Oth Ang Pctrs
;;^UTILITY(U,$J,358.3,2349,1,4,0)
;;=4^I25.738
;;^UTILITY(U,$J,358.3,2349,2)
;;=^5007129
;;^UTILITY(U,$J,358.3,2350,0)
;;=I25.739^^20^149^27
;;^UTILITY(U,$J,358.3,2350,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2350,1,3,0)
;;=3^Athscl Nonautologous Biological CABG w/ Unspec Ang Pctrs
;;^UTILITY(U,$J,358.3,2350,1,4,0)
;;=4^I25.739
;;^UTILITY(U,$J,358.3,2350,2)
;;=^5007130
;;^UTILITY(U,$J,358.3,2351,0)
;;=I25.751^^20^149^21
;;^UTILITY(U,$J,358.3,2351,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2351,1,3,0)
;;=3^Athscl Native Cor Art of Transplanted Hrt w/ Ang Pctrs w/ Spasm
;;^UTILITY(U,$J,358.3,2351,1,4,0)
;;=4^I25.751
;;^UTILITY(U,$J,358.3,2351,2)
;;=^5007132
;;^UTILITY(U,$J,358.3,2352,0)
;;=I25.758^^20^149^22
;;^UTILITY(U,$J,358.3,2352,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2352,1,3,0)
;;=3^Athscl Native Cor Art of Transplanted Hrt w/ Oth Ang Pctrs
;;^UTILITY(U,$J,358.3,2352,1,4,0)
;;=4^I25.758
;;^UTILITY(U,$J,358.3,2352,2)
;;=^5007133
;;^UTILITY(U,$J,358.3,2353,0)
;;=I25.759^^20^149^23
;;^UTILITY(U,$J,358.3,2353,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2353,1,3,0)
;;=3^Athscl Native Cor Art of Transplanted Hrt w/ Unspec Ang Pctrs
;;^UTILITY(U,$J,358.3,2353,1,4,0)
;;=4^I25.759
;;^UTILITY(U,$J,358.3,2353,2)
;;=^5007134
;;^UTILITY(U,$J,358.3,2354,0)
;;=I20.8^^20^149^1
;;^UTILITY(U,$J,358.3,2354,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2354,1,3,0)
;;=3^Angina Pectoris NEC
;;^UTILITY(U,$J,358.3,2354,1,4,0)
;;=4^I20.8
;;^UTILITY(U,$J,358.3,2354,2)
;;=^5007078
;;^UTILITY(U,$J,358.3,2355,0)
;;=I20.9^^20^149^2
;;^UTILITY(U,$J,358.3,2355,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2355,1,3,0)
;;=3^Angina Pectoris,Unspec
;;^UTILITY(U,$J,358.3,2355,1,4,0)
;;=4^I20.9
;;^UTILITY(U,$J,358.3,2355,2)
;;=^5007079
;;^UTILITY(U,$J,358.3,2356,0)
;;=R07.9^^20^149^38
;;^UTILITY(U,$J,358.3,2356,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2356,1,3,0)
;;=3^Chest Pain,Unspec
;;^UTILITY(U,$J,358.3,2356,1,4,0)
;;=4^R07.9
;;^UTILITY(U,$J,358.3,2356,2)
;;=^5019201
;;^UTILITY(U,$J,358.3,2357,0)
;;=R07.2^^20^149^41
;;^UTILITY(U,$J,358.3,2357,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2357,1,3,0)
;;=3^Precordial Pain
;;^UTILITY(U,$J,358.3,2357,1,4,0)
;;=4^R07.2
;;^UTILITY(U,$J,358.3,2357,2)
;;=^5019197
;;^UTILITY(U,$J,358.3,2358,0)
;;=R07.1^^20^149^37
;;^UTILITY(U,$J,358.3,2358,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2358,1,3,0)
;;=3^Chest Pain on Breathing
;;^UTILITY(U,$J,358.3,2358,1,4,0)
;;=4^R07.1
;;^UTILITY(U,$J,358.3,2358,2)
;;=^5019196
;;^UTILITY(U,$J,358.3,2359,0)
;;=R07.81^^20^149^40
;;^UTILITY(U,$J,358.3,2359,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2359,1,3,0)
;;=3^Pleurodynia
;;^UTILITY(U,$J,358.3,2359,1,4,0)
;;=4^R07.81
;;^UTILITY(U,$J,358.3,2359,2)
;;=^5019198
;;^UTILITY(U,$J,358.3,2360,0)
;;=R07.82^^20^149^39
;;^UTILITY(U,$J,358.3,2360,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2360,1,3,0)
;;=3^Intercostal Pain
;;^UTILITY(U,$J,358.3,2360,1,4,0)
;;=4^R07.82
;;^UTILITY(U,$J,358.3,2360,2)
;;=^5019199
;;^UTILITY(U,$J,358.3,2361,0)
;;=R07.89^^20^149^36
;;^UTILITY(U,$J,358.3,2361,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2361,1,3,0)
;;=3^Chest Pain NEC
;;^UTILITY(U,$J,358.3,2361,1,4,0)
;;=4^R07.89
;;^UTILITY(U,$J,358.3,2361,2)
;;=^5019200
;;^UTILITY(U,$J,358.3,2362,0)
;;=I26.09^^20^150^64
;;^UTILITY(U,$J,358.3,2362,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2362,1,3,0)
;;=3^Pulmonary Embolism w/ Acute Cor Pulmonale
;;^UTILITY(U,$J,358.3,2362,1,4,0)
;;=4^I26.09
;;^UTILITY(U,$J,358.3,2362,2)
;;=^5007147
;;^UTILITY(U,$J,358.3,2363,0)
;;=I26.90^^20^150^71
;;^UTILITY(U,$J,358.3,2363,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2363,1,3,0)
;;=3^Septic Pulmonary Embolism w/o Acute Cor Pulmonale
;;^UTILITY(U,$J,358.3,2363,1,4,0)
;;=4^I26.90
;;^UTILITY(U,$J,358.3,2363,2)
;;=^5007148
;;^UTILITY(U,$J,358.3,2364,0)
;;=I26.99^^20^150^65
;;^UTILITY(U,$J,358.3,2364,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2364,1,3,0)
;;=3^Pulmonary Embolism w/o Acute Cor Pulmonale NEC
;;^UTILITY(U,$J,358.3,2364,1,4,0)
;;=4^I26.99
;;^UTILITY(U,$J,358.3,2364,2)
;;=^5007150
;;^UTILITY(U,$J,358.3,2365,0)
;;=T80.0XXA^^20^150^10
;;^UTILITY(U,$J,358.3,2365,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2365,1,3,0)
;;=3^Air Embolism Following Infusion/Transfusion/Therapeutic Inj,Init Encntr
;;^UTILITY(U,$J,358.3,2365,1,4,0)
;;=4^T80.0XXA
;;^UTILITY(U,$J,358.3,2365,2)
;;=^5054344
;;^UTILITY(U,$J,358.3,2366,0)
;;=T81.718A^^20^150^22
;;^UTILITY(U,$J,358.3,2366,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2366,1,3,0)
;;=3^Complication of Artery Following Procedure NEC,Init Encntr
;;^UTILITY(U,$J,358.3,2366,1,4,0)
;;=4^T81.718A
;;^UTILITY(U,$J,358.3,2366,2)
;;=^5054644
;;^UTILITY(U,$J,358.3,2367,0)
;;=T81.72XA^^20^150^27
;;^UTILITY(U,$J,358.3,2367,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2367,1,3,0)
;;=3^Complication of Vein Following Procedure NEC,Init Encntr
;;^UTILITY(U,$J,358.3,2367,1,4,0)
;;=4^T81.72XA
;;^UTILITY(U,$J,358.3,2367,2)
;;=^5054650
;;^UTILITY(U,$J,358.3,2368,0)
;;=T82.817A^^20^150^31
;;^UTILITY(U,$J,358.3,2368,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2368,1,3,0)
;;=3^Embolism of Cardiac Prosthetic Device/Implant/Graft,Init Encntr
;;^UTILITY(U,$J,358.3,2368,1,4,0)
;;=4^T82.817A
;;^UTILITY(U,$J,358.3,2368,2)
;;=^5054914
;;^UTILITY(U,$J,358.3,2369,0)
;;=T82.818A^^20^150^32
;;^UTILITY(U,$J,358.3,2369,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2369,1,3,0)
;;=3^Embolism of Vascular Prosthetic Device/Implant/Graft,Init Encntr
;;^UTILITY(U,$J,358.3,2369,1,4,0)
;;=4^T82.818A
;;^UTILITY(U,$J,358.3,2369,2)
;;=^5054917
;;^UTILITY(U,$J,358.3,2370,0)
;;=I27.0^^20^150^62
;;^UTILITY(U,$J,358.3,2370,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2370,1,3,0)
;;=3^Primary Pulmonary Hypertension
;;^UTILITY(U,$J,358.3,2370,1,4,0)
;;=4^I27.0
;;^UTILITY(U,$J,358.3,2370,2)
;;=^265310
;;^UTILITY(U,$J,358.3,2371,0)
;;=I27.1^^20^150^48
;;^UTILITY(U,$J,358.3,2371,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2371,1,3,0)
;;=3^Kyphoscoliotic Hrt Disease
;;^UTILITY(U,$J,358.3,2371,1,4,0)
;;=4^I27.1
;;^UTILITY(U,$J,358.3,2371,2)
;;=^265120
;;^UTILITY(U,$J,358.3,2372,0)
;;=I27.89^^20^150^67
;;^UTILITY(U,$J,358.3,2372,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2372,1,3,0)
;;=3^Pulmonary Hrt Diseases NEC
;;^UTILITY(U,$J,358.3,2372,1,4,0)
;;=4^I27.89
;;^UTILITY(U,$J,358.3,2372,2)
;;=^5007153
;;^UTILITY(U,$J,358.3,2373,0)
;;=I27.81^^20^150^30
;;^UTILITY(U,$J,358.3,2373,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2373,1,3,0)
;;=3^Cor Pulmonale,Chronic
;;^UTILITY(U,$J,358.3,2373,1,4,0)
;;=4^I27.81
;;^UTILITY(U,$J,358.3,2373,2)
;;=^5007152
;;^UTILITY(U,$J,358.3,2374,0)
;;=I42.1^^20^150^52
;;^UTILITY(U,$J,358.3,2374,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2374,1,3,0)
;;=3^Obstructive Hypertrophic Cardiomyopathy
;;^UTILITY(U,$J,358.3,2374,1,4,0)
;;=4^I42.1
;;^UTILITY(U,$J,358.3,2374,2)
;;=^340520
;;^UTILITY(U,$J,358.3,2375,0)
;;=I42.2^^20^150^47
;;^UTILITY(U,$J,358.3,2375,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2375,1,3,0)
;;=3^Hypertrophic Cardiomyopathy NEC
;;^UTILITY(U,$J,358.3,2375,1,4,0)
;;=4^I42.2
;;^UTILITY(U,$J,358.3,2375,2)
;;=^340521
;;^UTILITY(U,$J,358.3,2376,0)
;;=I42.5^^20^150^68
;;^UTILITY(U,$J,358.3,2376,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2376,1,3,0)
;;=3^Restrictive Cardiomyopathy NEC
;;^UTILITY(U,$J,358.3,2376,1,4,0)
;;=4^I42.5
;;^UTILITY(U,$J,358.3,2376,2)
;;=^5007196
;;^UTILITY(U,$J,358.3,2377,0)
;;=I42.6^^20^150^11
;;^UTILITY(U,$J,358.3,2377,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2377,1,3,0)
;;=3^Alcoholic Cardiomyopathy
;;^UTILITY(U,$J,358.3,2377,1,4,0)
;;=4^I42.6
;;^UTILITY(U,$J,358.3,2377,2)
;;=^5007197
;;^UTILITY(U,$J,358.3,2378,0)
;;=I43.^^20^150^16
;;^UTILITY(U,$J,358.3,2378,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2378,1,3,0)
;;=3^Cardiomyopathy in Diseases Classified Elsewhere
;;^UTILITY(U,$J,358.3,2378,1,4,0)
;;=4^I43.
;;^UTILITY(U,$J,358.3,2378,2)
;;=^5007201
;;^UTILITY(U,$J,358.3,2379,0)
;;=I42.7^^20^150^15
;;^UTILITY(U,$J,358.3,2379,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2379,1,3,0)
;;=3^Cardiomyopathy d/t Drug/External Agent
;;^UTILITY(U,$J,358.3,2379,1,4,0)
;;=4^I42.7
;;^UTILITY(U,$J,358.3,2379,2)
;;=^5007198
;;^UTILITY(U,$J,358.3,2380,0)
;;=I42.9^^20^150^17
;;^UTILITY(U,$J,358.3,2380,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2380,1,3,0)
;;=3^Cardiomyopathy,Unspec
;;^UTILITY(U,$J,358.3,2380,1,4,0)
;;=4^I42.9
;;^UTILITY(U,$J,358.3,2380,2)
;;=^5007200
;;^UTILITY(U,$J,358.3,2381,0)
;;=I50.9^^20^150^36
;;^UTILITY(U,$J,358.3,2381,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2381,1,3,0)
;;=3^Heart Failure,Unspec
;;^UTILITY(U,$J,358.3,2381,1,4,0)
;;=4^I50.9
;;^UTILITY(U,$J,358.3,2381,2)
;;=^5007251
;;^UTILITY(U,$J,358.3,2382,0)
;;=I50.1^^20^150^49
;;^UTILITY(U,$J,358.3,2382,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2382,1,3,0)
;;=3^Left Ventricular Failure
;;^UTILITY(U,$J,358.3,2382,1,4,0)
;;=4^I50.1
;;^UTILITY(U,$J,358.3,2382,2)
;;=^5007238
;;^UTILITY(U,$J,358.3,2383,0)
;;=I50.20^^20^150^73
;;^UTILITY(U,$J,358.3,2383,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2383,1,3,0)
;;=3^Systolic Congestive Heart Failure,Unspec
;;^UTILITY(U,$J,358.3,2383,1,4,0)
;;=4^I50.20
;;^UTILITY(U,$J,358.3,2383,2)
;;=^5007239
;;^UTILITY(U,$J,358.3,2384,0)
;;=I50.40^^20^150^72
;;^UTILITY(U,$J,358.3,2384,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2384,1,3,0)
;;=3^Systolic & Diastolic Congestive Heart Failure,Unspec
;;^UTILITY(U,$J,358.3,2384,1,4,0)
;;=4^I50.40
;;^UTILITY(U,$J,358.3,2384,2)
;;=^5007247
;;^UTILITY(U,$J,358.3,2385,0)
;;=I51.7^^20^150^14
;;^UTILITY(U,$J,358.3,2385,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2385,1,3,0)
;;=3^Cardiomegaly
;;^UTILITY(U,$J,358.3,2385,1,4,0)
;;=4^I51.7
;;^UTILITY(U,$J,358.3,2385,2)
;;=^5007257
;;^UTILITY(U,$J,358.3,2386,0)
;;=I97.111^^20^150^58
;;^UTILITY(U,$J,358.3,2386,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2386,1,3,0)
;;=3^Postprocedural Cardiac Insufficiency Following Oth Surgery
;;^UTILITY(U,$J,358.3,2386,1,4,0)
;;=4^I97.111
;;^UTILITY(U,$J,358.3,2386,2)
;;=^5008084
;;^UTILITY(U,$J,358.3,2387,0)
;;=I97.120^^20^150^54
;;^UTILITY(U,$J,358.3,2387,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2387,1,3,0)
;;=3^Postprocedural Cardiac Arrest Following Cardiac Surgery
;;^UTILITY(U,$J,358.3,2387,1,4,0)
;;=4^I97.120
;;^UTILITY(U,$J,358.3,2387,2)
;;=^5008085
;;^UTILITY(U,$J,358.3,2388,0)
;;=I97.121^^20^150^55
;;^UTILITY(U,$J,358.3,2388,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2388,1,3,0)
;;=3^Postprocedural Cardiac Arrest Following Oth Surgery
;;^UTILITY(U,$J,358.3,2388,1,4,0)
;;=4^I97.121
;;^UTILITY(U,$J,358.3,2388,2)
;;=^5008086
;;^UTILITY(U,$J,358.3,2389,0)
;;=I97.130^^20^150^60
;;^UTILITY(U,$J,358.3,2389,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2389,1,3,0)
;;=3^Postprocedural Heart Failure Following Cardiac Surgery
;;^UTILITY(U,$J,358.3,2389,1,4,0)
;;=4^I97.130
;;^UTILITY(U,$J,358.3,2389,2)
;;=^5008087
;;^UTILITY(U,$J,358.3,2390,0)
;;=I97.131^^20^150^61
;;^UTILITY(U,$J,358.3,2390,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2390,1,3,0)
;;=3^Postprocedural Heart Failure Following Oth Surgery
;;^UTILITY(U,$J,358.3,2390,1,4,0)
;;=4^I97.131
;;^UTILITY(U,$J,358.3,2390,2)
;;=^5008088
;;^UTILITY(U,$J,358.3,2391,0)
;;=I97.190^^20^150^56
;;^UTILITY(U,$J,358.3,2391,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2391,1,3,0)
;;=3^Postprocedural Cardiac Function Disturbance Following Cardiac Surgery
;;^UTILITY(U,$J,358.3,2391,1,4,0)
;;=4^I97.190
;;^UTILITY(U,$J,358.3,2391,2)
;;=^5008089
;;^UTILITY(U,$J,358.3,2392,0)
;;=I97.191^^20^150^57
;;^UTILITY(U,$J,358.3,2392,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2392,1,3,0)
;;=3^Postprocedural Cardiac Function Disturbance Following Oth Surgery
;;^UTILITY(U,$J,358.3,2392,1,4,0)
;;=4^I97.191
;;^UTILITY(U,$J,358.3,2392,2)
;;=^5008090
;;^UTILITY(U,$J,358.3,2393,0)
;;=I97.0^^20^150^53
;;^UTILITY(U,$J,358.3,2393,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2393,1,3,0)
;;=3^Postcardiotomy Syndrome
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI016 19788 printed Dec 13, 2024@01:39:34 Page 2
IBDEI016 ; ; 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,2326,1,4,0)
+2 ;;=4^I25.760
+3 ;;^UTILITY(U,$J,358.3,2326,2)
+4 ;;=^5007135
+5 ;;^UTILITY(U,$J,358.3,2327,0)
+6 ;;=I25.790^^20^149^35
+7 ;;^UTILITY(U,$J,358.3,2327,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,2327,1,3,0)
+10 ;;=3^Athscl of CABG w/ Unstable Ang Pctrs
+11 ;;^UTILITY(U,$J,358.3,2327,1,4,0)
+12 ;;=4^I25.790
+13 ;;^UTILITY(U,$J,358.3,2327,2)
+14 ;;=^5007139
+15 ;;^UTILITY(U,$J,358.3,2328,0)
+16 ;;=I20.0^^20^149^42
+17 ;;^UTILITY(U,$J,358.3,2328,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,2328,1,3,0)
+20 ;;=3^Unstable Angina
+21 ;;^UTILITY(U,$J,358.3,2328,1,4,0)
+22 ;;=4^I20.0
+23 ;;^UTILITY(U,$J,358.3,2328,2)
+24 ;;=^5007076
+25 ;;^UTILITY(U,$J,358.3,2329,0)
+26 ;;=I25.759^^20^149^20
+27 ;;^UTILITY(U,$J,358.3,2329,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,2329,1,3,0)
+30 ;;=3^Athscl Native Cor Art of Transplanted Hrt w/ Unspec Angina Pectoris
+31 ;;^UTILITY(U,$J,358.3,2329,1,4,0)
+32 ;;=4^I25.759
+33 ;;^UTILITY(U,$J,358.3,2329,2)
+34 ;;=^5007134
+35 ;;^UTILITY(U,$J,358.3,2330,0)
+36 ;;=I25.761^^20^149^12
+37 ;;^UTILITY(U,$J,358.3,2330,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,2330,1,3,0)
+40 ;;=3^Athscl Bypass of Cor Art of Transplanted Hrt w/ Ang Pctrs w/ Spasm
+41 ;;^UTILITY(U,$J,358.3,2330,1,4,0)
+42 ;;=4^I25.761
+43 ;;^UTILITY(U,$J,358.3,2330,2)
+44 ;;=^5007136
+45 ;;^UTILITY(U,$J,358.3,2331,0)
+46 ;;=I25.768^^20^149^13
+47 ;;^UTILITY(U,$J,358.3,2331,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,2331,1,3,0)
+50 ;;=3^Athscl Bypass of Cor Art of Transplanted Hrt w/ Oth Ang Pctrs
+51 ;;^UTILITY(U,$J,358.3,2331,1,4,0)
+52 ;;=4^I25.768
+53 ;;^UTILITY(U,$J,358.3,2331,2)
+54 ;;=^5007137
+55 ;;^UTILITY(U,$J,358.3,2332,0)
+56 ;;=I25.769^^20^149^14
+57 ;;^UTILITY(U,$J,358.3,2332,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,2332,1,3,0)
+60 ;;=3^Athscl Bypass of Cor Art of Transplanted Hrt w/ Unspec Ang Pctrs
+61 ;;^UTILITY(U,$J,358.3,2332,1,4,0)
+62 ;;=4^I25.769
+63 ;;^UTILITY(U,$J,358.3,2332,2)
+64 ;;=^5007138
+65 ;;^UTILITY(U,$J,358.3,2333,0)
+66 ;;=I25.791^^20^149^28
+67 ;;^UTILITY(U,$J,358.3,2333,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,2333,1,3,0)
+70 ;;=3^Athscl of CABG w/ Ang Pctrs w/ Documented Spasm
+71 ;;^UTILITY(U,$J,358.3,2333,1,4,0)
+72 ;;=4^I25.791
+73 ;;^UTILITY(U,$J,358.3,2333,2)
+74 ;;=^5007140
+75 ;;^UTILITY(U,$J,358.3,2334,0)
+76 ;;=I25.798^^20^149^30
+77 ;;^UTILITY(U,$J,358.3,2334,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,2334,1,3,0)
+80 ;;=3^Athscl of CABG w/ Oth Ang Pctrs
+81 ;;^UTILITY(U,$J,358.3,2334,1,4,0)
+82 ;;=4^I25.798
+83 ;;^UTILITY(U,$J,358.3,2334,2)
+84 ;;=^5133558
+85 ;;^UTILITY(U,$J,358.3,2335,0)
+86 ;;=I25.799^^20^149^32
+87 ;;^UTILITY(U,$J,358.3,2335,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,2335,1,3,0)
+90 ;;=3^Athscl of CABG w/ Unspec Ang Pctrs
+91 ;;^UTILITY(U,$J,358.3,2335,1,4,0)
+92 ;;=4^I25.799
+93 ;;^UTILITY(U,$J,358.3,2335,2)
+94 ;;=^5133559
+95 ;;^UTILITY(U,$J,358.3,2336,0)
+96 ;;=I25.111^^20^149^16
+97 ;;^UTILITY(U,$J,358.3,2336,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,2336,1,3,0)
+100 ;;=3^Athscl Hrt Disease of Native Cor Art w/ Ang Pctrs w/ Spasm
+101 ;;^UTILITY(U,$J,358.3,2336,1,4,0)
+102 ;;=4^I25.111
+103 ;;^UTILITY(U,$J,358.3,2336,2)
+104 ;;=^5007109
+105 ;;^UTILITY(U,$J,358.3,2337,0)
+106 ;;=I25.118^^20^149^17
+107 ;;^UTILITY(U,$J,358.3,2337,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,2337,1,3,0)
+110 ;;=3^Athscl Hrt Disease of Native Cor Art w/ Oth Ang Pctrs
+111 ;;^UTILITY(U,$J,358.3,2337,1,4,0)
+112 ;;=4^I25.118
+113 ;;^UTILITY(U,$J,358.3,2337,2)
+114 ;;=^5007110
+115 ;;^UTILITY(U,$J,358.3,2338,0)
+116 ;;=I25.119^^20^149^18
+117 ;;^UTILITY(U,$J,358.3,2338,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,2338,1,3,0)
+120 ;;=3^Athscl Hrt Disease of Native Cor Art w/ Unspec Ang Pctrs
+121 ;;^UTILITY(U,$J,358.3,2338,1,4,0)
+122 ;;=4^I25.119
+123 ;;^UTILITY(U,$J,358.3,2338,2)
+124 ;;=^5007111
+125 ;;^UTILITY(U,$J,358.3,2339,0)
+126 ;;=I25.701^^20^149^29
+127 ;;^UTILITY(U,$J,358.3,2339,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,2339,1,3,0)
+130 ;;=3^Athscl of CABG w/ Ang Pctrs w/ Documented Spasm,Unspec
+131 ;;^UTILITY(U,$J,358.3,2339,1,4,0)
+132 ;;=4^I25.701
+133 ;;^UTILITY(U,$J,358.3,2339,2)
+134 ;;=^5007118
+135 ;;^UTILITY(U,$J,358.3,2340,0)
+136 ;;=I25.708^^20^149^31
+137 ;;^UTILITY(U,$J,358.3,2340,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,2340,1,3,0)
+140 ;;=3^Athscl of CABG w/ Oth Ang Pctrs,Unspec
+141 ;;^UTILITY(U,$J,358.3,2340,1,4,0)
+142 ;;=4^I25.708
+143 ;;^UTILITY(U,$J,358.3,2340,2)
+144 ;;=^5007119
+145 ;;^UTILITY(U,$J,358.3,2341,0)
+146 ;;=I25.709^^20^149^33
+147 ;;^UTILITY(U,$J,358.3,2341,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,2341,1,3,0)
+150 ;;=3^Athscl of CABG w/ Unspec Ang Pctrs,Unspec
+151 ;;^UTILITY(U,$J,358.3,2341,1,4,0)
+152 ;;=4^I25.709
+153 ;;^UTILITY(U,$J,358.3,2341,2)
+154 ;;=^5007120
+155 ;;^UTILITY(U,$J,358.3,2342,0)
+156 ;;=I25.711^^20^149^7
+157 ;;^UTILITY(U,$J,358.3,2342,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,2342,1,3,0)
+160 ;;=3^Athscl Autologous Vein CABG w/ Ang Pctrs w/ Documented Spasm
+161 ;;^UTILITY(U,$J,358.3,2342,1,4,0)
+162 ;;=4^I25.711
+163 ;;^UTILITY(U,$J,358.3,2342,2)
+164 ;;=^5007122
+165 ;;^UTILITY(U,$J,358.3,2343,0)
+166 ;;=I25.718^^20^149^8
+167 ;;^UTILITY(U,$J,358.3,2343,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,2343,1,3,0)
+170 ;;=3^Athscl Autologous Vein CABG w/ Oth Ang Pctrs
+171 ;;^UTILITY(U,$J,358.3,2343,1,4,0)
+172 ;;=4^I25.718
+173 ;;^UTILITY(U,$J,358.3,2343,2)
+174 ;;=^5007123
+175 ;;^UTILITY(U,$J,358.3,2344,0)
+176 ;;=I25.719^^20^149^9
+177 ;;^UTILITY(U,$J,358.3,2344,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,2344,1,3,0)
+180 ;;=3^Athscl Autologous Vein CABG w/ Unspec Ang Pctrs
+181 ;;^UTILITY(U,$J,358.3,2344,1,4,0)
+182 ;;=4^I25.719
+183 ;;^UTILITY(U,$J,358.3,2344,2)
+184 ;;=^5007124
+185 ;;^UTILITY(U,$J,358.3,2345,0)
+186 ;;=I25.721^^20^149^3
+187 ;;^UTILITY(U,$J,358.3,2345,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,2345,1,3,0)
+190 ;;=3^Athscl Autologous Artery CABG w/ Ang Pctrs w/ Documented Spasm
+191 ;;^UTILITY(U,$J,358.3,2345,1,4,0)
+192 ;;=4^I25.721
+193 ;;^UTILITY(U,$J,358.3,2345,2)
+194 ;;=^5007126
+195 ;;^UTILITY(U,$J,358.3,2346,0)
+196 ;;=I25.728^^20^149^4
+197 ;;^UTILITY(U,$J,358.3,2346,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,2346,1,3,0)
+200 ;;=3^Athscl Autologous Artery CABG w/ Oth Ang Pctrs
+201 ;;^UTILITY(U,$J,358.3,2346,1,4,0)
+202 ;;=4^I25.728
+203 ;;^UTILITY(U,$J,358.3,2346,2)
+204 ;;=^5133560
+205 ;;^UTILITY(U,$J,358.3,2347,0)
+206 ;;=I25.729^^20^149^5
+207 ;;^UTILITY(U,$J,358.3,2347,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,2347,1,3,0)
+210 ;;=3^Athscl Autologous Artery CABG w/ Unspec Ang Pctrs
+211 ;;^UTILITY(U,$J,358.3,2347,1,4,0)
+212 ;;=4^I25.729
+213 ;;^UTILITY(U,$J,358.3,2347,2)
+214 ;;=^5133561
+215 ;;^UTILITY(U,$J,358.3,2348,0)
+216 ;;=I25.731^^20^149^25
+217 ;;^UTILITY(U,$J,358.3,2348,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,2348,1,3,0)
+220 ;;=3^Athscl Nonautologous Biological CABG w/ Ang Pctrs w/ Documented Spasm
+221 ;;^UTILITY(U,$J,358.3,2348,1,4,0)
+222 ;;=4^I25.731
+223 ;;^UTILITY(U,$J,358.3,2348,2)
+224 ;;=^5007128
+225 ;;^UTILITY(U,$J,358.3,2349,0)
+226 ;;=I25.738^^20^149^26
+227 ;;^UTILITY(U,$J,358.3,2349,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,2349,1,3,0)
+230 ;;=3^Athscl Nonautologous Biological CABG w/ Oth Ang Pctrs
+231 ;;^UTILITY(U,$J,358.3,2349,1,4,0)
+232 ;;=4^I25.738
+233 ;;^UTILITY(U,$J,358.3,2349,2)
+234 ;;=^5007129
+235 ;;^UTILITY(U,$J,358.3,2350,0)
+236 ;;=I25.739^^20^149^27
+237 ;;^UTILITY(U,$J,358.3,2350,1,0)
+238 ;;=^358.31IA^4^2
+239 ;;^UTILITY(U,$J,358.3,2350,1,3,0)
+240 ;;=3^Athscl Nonautologous Biological CABG w/ Unspec Ang Pctrs
+241 ;;^UTILITY(U,$J,358.3,2350,1,4,0)
+242 ;;=4^I25.739
+243 ;;^UTILITY(U,$J,358.3,2350,2)
+244 ;;=^5007130
+245 ;;^UTILITY(U,$J,358.3,2351,0)
+246 ;;=I25.751^^20^149^21
+247 ;;^UTILITY(U,$J,358.3,2351,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,2351,1,3,0)
+250 ;;=3^Athscl Native Cor Art of Transplanted Hrt w/ Ang Pctrs w/ Spasm
+251 ;;^UTILITY(U,$J,358.3,2351,1,4,0)
+252 ;;=4^I25.751
+253 ;;^UTILITY(U,$J,358.3,2351,2)
+254 ;;=^5007132
+255 ;;^UTILITY(U,$J,358.3,2352,0)
+256 ;;=I25.758^^20^149^22
+257 ;;^UTILITY(U,$J,358.3,2352,1,0)
+258 ;;=^358.31IA^4^2
+259 ;;^UTILITY(U,$J,358.3,2352,1,3,0)
+260 ;;=3^Athscl Native Cor Art of Transplanted Hrt w/ Oth Ang Pctrs
+261 ;;^UTILITY(U,$J,358.3,2352,1,4,0)
+262 ;;=4^I25.758
+263 ;;^UTILITY(U,$J,358.3,2352,2)
+264 ;;=^5007133
+265 ;;^UTILITY(U,$J,358.3,2353,0)
+266 ;;=I25.759^^20^149^23
+267 ;;^UTILITY(U,$J,358.3,2353,1,0)
+268 ;;=^358.31IA^4^2
+269 ;;^UTILITY(U,$J,358.3,2353,1,3,0)
+270 ;;=3^Athscl Native Cor Art of Transplanted Hrt w/ Unspec Ang Pctrs
+271 ;;^UTILITY(U,$J,358.3,2353,1,4,0)
+272 ;;=4^I25.759
+273 ;;^UTILITY(U,$J,358.3,2353,2)
+274 ;;=^5007134
+275 ;;^UTILITY(U,$J,358.3,2354,0)
+276 ;;=I20.8^^20^149^1
+277 ;;^UTILITY(U,$J,358.3,2354,1,0)
+278 ;;=^358.31IA^4^2
+279 ;;^UTILITY(U,$J,358.3,2354,1,3,0)
+280 ;;=3^Angina Pectoris NEC
+281 ;;^UTILITY(U,$J,358.3,2354,1,4,0)
+282 ;;=4^I20.8
+283 ;;^UTILITY(U,$J,358.3,2354,2)
+284 ;;=^5007078
+285 ;;^UTILITY(U,$J,358.3,2355,0)
+286 ;;=I20.9^^20^149^2
+287 ;;^UTILITY(U,$J,358.3,2355,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,2355,1,3,0)
+290 ;;=3^Angina Pectoris,Unspec
+291 ;;^UTILITY(U,$J,358.3,2355,1,4,0)
+292 ;;=4^I20.9
+293 ;;^UTILITY(U,$J,358.3,2355,2)
+294 ;;=^5007079
+295 ;;^UTILITY(U,$J,358.3,2356,0)
+296 ;;=R07.9^^20^149^38
+297 ;;^UTILITY(U,$J,358.3,2356,1,0)
+298 ;;=^358.31IA^4^2
+299 ;;^UTILITY(U,$J,358.3,2356,1,3,0)
+300 ;;=3^Chest Pain,Unspec
+301 ;;^UTILITY(U,$J,358.3,2356,1,4,0)
+302 ;;=4^R07.9
+303 ;;^UTILITY(U,$J,358.3,2356,2)
+304 ;;=^5019201
+305 ;;^UTILITY(U,$J,358.3,2357,0)
+306 ;;=R07.2^^20^149^41
+307 ;;^UTILITY(U,$J,358.3,2357,1,0)
+308 ;;=^358.31IA^4^2
+309 ;;^UTILITY(U,$J,358.3,2357,1,3,0)
+310 ;;=3^Precordial Pain
+311 ;;^UTILITY(U,$J,358.3,2357,1,4,0)
+312 ;;=4^R07.2
+313 ;;^UTILITY(U,$J,358.3,2357,2)
+314 ;;=^5019197
+315 ;;^UTILITY(U,$J,358.3,2358,0)
+316 ;;=R07.1^^20^149^37
+317 ;;^UTILITY(U,$J,358.3,2358,1,0)
+318 ;;=^358.31IA^4^2
+319 ;;^UTILITY(U,$J,358.3,2358,1,3,0)
+320 ;;=3^Chest Pain on Breathing
+321 ;;^UTILITY(U,$J,358.3,2358,1,4,0)
+322 ;;=4^R07.1
+323 ;;^UTILITY(U,$J,358.3,2358,2)
+324 ;;=^5019196
+325 ;;^UTILITY(U,$J,358.3,2359,0)
+326 ;;=R07.81^^20^149^40
+327 ;;^UTILITY(U,$J,358.3,2359,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,2359,1,3,0)
+330 ;;=3^Pleurodynia
+331 ;;^UTILITY(U,$J,358.3,2359,1,4,0)
+332 ;;=4^R07.81
+333 ;;^UTILITY(U,$J,358.3,2359,2)
+334 ;;=^5019198
+335 ;;^UTILITY(U,$J,358.3,2360,0)
+336 ;;=R07.82^^20^149^39
+337 ;;^UTILITY(U,$J,358.3,2360,1,0)
+338 ;;=^358.31IA^4^2
+339 ;;^UTILITY(U,$J,358.3,2360,1,3,0)
+340 ;;=3^Intercostal Pain
+341 ;;^UTILITY(U,$J,358.3,2360,1,4,0)
+342 ;;=4^R07.82
+343 ;;^UTILITY(U,$J,358.3,2360,2)
+344 ;;=^5019199
+345 ;;^UTILITY(U,$J,358.3,2361,0)
+346 ;;=R07.89^^20^149^36
+347 ;;^UTILITY(U,$J,358.3,2361,1,0)
+348 ;;=^358.31IA^4^2
+349 ;;^UTILITY(U,$J,358.3,2361,1,3,0)
+350 ;;=3^Chest Pain NEC
+351 ;;^UTILITY(U,$J,358.3,2361,1,4,0)
+352 ;;=4^R07.89
+353 ;;^UTILITY(U,$J,358.3,2361,2)
+354 ;;=^5019200
+355 ;;^UTILITY(U,$J,358.3,2362,0)
+356 ;;=I26.09^^20^150^64
+357 ;;^UTILITY(U,$J,358.3,2362,1,0)
+358 ;;=^358.31IA^4^2
+359 ;;^UTILITY(U,$J,358.3,2362,1,3,0)
+360 ;;=3^Pulmonary Embolism w/ Acute Cor Pulmonale
+361 ;;^UTILITY(U,$J,358.3,2362,1,4,0)
+362 ;;=4^I26.09
+363 ;;^UTILITY(U,$J,358.3,2362,2)
+364 ;;=^5007147
+365 ;;^UTILITY(U,$J,358.3,2363,0)
+366 ;;=I26.90^^20^150^71
+367 ;;^UTILITY(U,$J,358.3,2363,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,2363,1,3,0)
+370 ;;=3^Septic Pulmonary Embolism w/o Acute Cor Pulmonale
+371 ;;^UTILITY(U,$J,358.3,2363,1,4,0)
+372 ;;=4^I26.90
+373 ;;^UTILITY(U,$J,358.3,2363,2)
+374 ;;=^5007148
+375 ;;^UTILITY(U,$J,358.3,2364,0)
+376 ;;=I26.99^^20^150^65
+377 ;;^UTILITY(U,$J,358.3,2364,1,0)
+378 ;;=^358.31IA^4^2
+379 ;;^UTILITY(U,$J,358.3,2364,1,3,0)
+380 ;;=3^Pulmonary Embolism w/o Acute Cor Pulmonale NEC
+381 ;;^UTILITY(U,$J,358.3,2364,1,4,0)
+382 ;;=4^I26.99
+383 ;;^UTILITY(U,$J,358.3,2364,2)
+384 ;;=^5007150
+385 ;;^UTILITY(U,$J,358.3,2365,0)
+386 ;;=T80.0XXA^^20^150^10
+387 ;;^UTILITY(U,$J,358.3,2365,1,0)
+388 ;;=^358.31IA^4^2
+389 ;;^UTILITY(U,$J,358.3,2365,1,3,0)
+390 ;;=3^Air Embolism Following Infusion/Transfusion/Therapeutic Inj,Init Encntr
+391 ;;^UTILITY(U,$J,358.3,2365,1,4,0)
+392 ;;=4^T80.0XXA
+393 ;;^UTILITY(U,$J,358.3,2365,2)
+394 ;;=^5054344
+395 ;;^UTILITY(U,$J,358.3,2366,0)
+396 ;;=T81.718A^^20^150^22
+397 ;;^UTILITY(U,$J,358.3,2366,1,0)
+398 ;;=^358.31IA^4^2
+399 ;;^UTILITY(U,$J,358.3,2366,1,3,0)
+400 ;;=3^Complication of Artery Following Procedure NEC,Init Encntr
+401 ;;^UTILITY(U,$J,358.3,2366,1,4,0)
+402 ;;=4^T81.718A
+403 ;;^UTILITY(U,$J,358.3,2366,2)
+404 ;;=^5054644
+405 ;;^UTILITY(U,$J,358.3,2367,0)
+406 ;;=T81.72XA^^20^150^27
+407 ;;^UTILITY(U,$J,358.3,2367,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,2367,1,3,0)
+410 ;;=3^Complication of Vein Following Procedure NEC,Init Encntr
+411 ;;^UTILITY(U,$J,358.3,2367,1,4,0)
+412 ;;=4^T81.72XA
+413 ;;^UTILITY(U,$J,358.3,2367,2)
+414 ;;=^5054650
+415 ;;^UTILITY(U,$J,358.3,2368,0)
+416 ;;=T82.817A^^20^150^31
+417 ;;^UTILITY(U,$J,358.3,2368,1,0)
+418 ;;=^358.31IA^4^2
+419 ;;^UTILITY(U,$J,358.3,2368,1,3,0)
+420 ;;=3^Embolism of Cardiac Prosthetic Device/Implant/Graft,Init Encntr
+421 ;;^UTILITY(U,$J,358.3,2368,1,4,0)
+422 ;;=4^T82.817A
+423 ;;^UTILITY(U,$J,358.3,2368,2)
+424 ;;=^5054914
+425 ;;^UTILITY(U,$J,358.3,2369,0)
+426 ;;=T82.818A^^20^150^32
+427 ;;^UTILITY(U,$J,358.3,2369,1,0)
+428 ;;=^358.31IA^4^2
+429 ;;^UTILITY(U,$J,358.3,2369,1,3,0)
+430 ;;=3^Embolism of Vascular Prosthetic Device/Implant/Graft,Init Encntr
+431 ;;^UTILITY(U,$J,358.3,2369,1,4,0)
+432 ;;=4^T82.818A
+433 ;;^UTILITY(U,$J,358.3,2369,2)
+434 ;;=^5054917
+435 ;;^UTILITY(U,$J,358.3,2370,0)
+436 ;;=I27.0^^20^150^62
+437 ;;^UTILITY(U,$J,358.3,2370,1,0)
+438 ;;=^358.31IA^4^2
+439 ;;^UTILITY(U,$J,358.3,2370,1,3,0)
+440 ;;=3^Primary Pulmonary Hypertension
+441 ;;^UTILITY(U,$J,358.3,2370,1,4,0)
+442 ;;=4^I27.0
+443 ;;^UTILITY(U,$J,358.3,2370,2)
+444 ;;=^265310
+445 ;;^UTILITY(U,$J,358.3,2371,0)
+446 ;;=I27.1^^20^150^48
+447 ;;^UTILITY(U,$J,358.3,2371,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,2371,1,3,0)
+450 ;;=3^Kyphoscoliotic Hrt Disease
+451 ;;^UTILITY(U,$J,358.3,2371,1,4,0)
+452 ;;=4^I27.1
+453 ;;^UTILITY(U,$J,358.3,2371,2)
+454 ;;=^265120
+455 ;;^UTILITY(U,$J,358.3,2372,0)
+456 ;;=I27.89^^20^150^67
+457 ;;^UTILITY(U,$J,358.3,2372,1,0)
+458 ;;=^358.31IA^4^2
+459 ;;^UTILITY(U,$J,358.3,2372,1,3,0)
+460 ;;=3^Pulmonary Hrt Diseases NEC
+461 ;;^UTILITY(U,$J,358.3,2372,1,4,0)
+462 ;;=4^I27.89
+463 ;;^UTILITY(U,$J,358.3,2372,2)
+464 ;;=^5007153
+465 ;;^UTILITY(U,$J,358.3,2373,0)
+466 ;;=I27.81^^20^150^30
+467 ;;^UTILITY(U,$J,358.3,2373,1,0)
+468 ;;=^358.31IA^4^2
+469 ;;^UTILITY(U,$J,358.3,2373,1,3,0)
+470 ;;=3^Cor Pulmonale,Chronic
+471 ;;^UTILITY(U,$J,358.3,2373,1,4,0)
+472 ;;=4^I27.81
+473 ;;^UTILITY(U,$J,358.3,2373,2)
+474 ;;=^5007152
+475 ;;^UTILITY(U,$J,358.3,2374,0)
+476 ;;=I42.1^^20^150^52
+477 ;;^UTILITY(U,$J,358.3,2374,1,0)
+478 ;;=^358.31IA^4^2
+479 ;;^UTILITY(U,$J,358.3,2374,1,3,0)
+480 ;;=3^Obstructive Hypertrophic Cardiomyopathy
+481 ;;^UTILITY(U,$J,358.3,2374,1,4,0)
+482 ;;=4^I42.1
+483 ;;^UTILITY(U,$J,358.3,2374,2)
+484 ;;=^340520
+485 ;;^UTILITY(U,$J,358.3,2375,0)
+486 ;;=I42.2^^20^150^47
+487 ;;^UTILITY(U,$J,358.3,2375,1,0)
+488 ;;=^358.31IA^4^2
+489 ;;^UTILITY(U,$J,358.3,2375,1,3,0)
+490 ;;=3^Hypertrophic Cardiomyopathy NEC
+491 ;;^UTILITY(U,$J,358.3,2375,1,4,0)
+492 ;;=4^I42.2
+493 ;;^UTILITY(U,$J,358.3,2375,2)
+494 ;;=^340521
+495 ;;^UTILITY(U,$J,358.3,2376,0)
+496 ;;=I42.5^^20^150^68
+497 ;;^UTILITY(U,$J,358.3,2376,1,0)
+498 ;;=^358.31IA^4^2
+499 ;;^UTILITY(U,$J,358.3,2376,1,3,0)
+500 ;;=3^Restrictive Cardiomyopathy NEC
+501 ;;^UTILITY(U,$J,358.3,2376,1,4,0)
+502 ;;=4^I42.5
+503 ;;^UTILITY(U,$J,358.3,2376,2)
+504 ;;=^5007196
+505 ;;^UTILITY(U,$J,358.3,2377,0)
+506 ;;=I42.6^^20^150^11
+507 ;;^UTILITY(U,$J,358.3,2377,1,0)
+508 ;;=^358.31IA^4^2
+509 ;;^UTILITY(U,$J,358.3,2377,1,3,0)
+510 ;;=3^Alcoholic Cardiomyopathy
+511 ;;^UTILITY(U,$J,358.3,2377,1,4,0)
+512 ;;=4^I42.6
+513 ;;^UTILITY(U,$J,358.3,2377,2)
+514 ;;=^5007197
+515 ;;^UTILITY(U,$J,358.3,2378,0)
+516 ;;=I43.^^20^150^16
+517 ;;^UTILITY(U,$J,358.3,2378,1,0)
+518 ;;=^358.31IA^4^2
+519 ;;^UTILITY(U,$J,358.3,2378,1,3,0)
+520 ;;=3^Cardiomyopathy in Diseases Classified Elsewhere
+521 ;;^UTILITY(U,$J,358.3,2378,1,4,0)
+522 ;;=4^I43.
+523 ;;^UTILITY(U,$J,358.3,2378,2)
+524 ;;=^5007201
+525 ;;^UTILITY(U,$J,358.3,2379,0)
+526 ;;=I42.7^^20^150^15
+527 ;;^UTILITY(U,$J,358.3,2379,1,0)
+528 ;;=^358.31IA^4^2
+529 ;;^UTILITY(U,$J,358.3,2379,1,3,0)
+530 ;;=3^Cardiomyopathy d/t Drug/External Agent
+531 ;;^UTILITY(U,$J,358.3,2379,1,4,0)
+532 ;;=4^I42.7
+533 ;;^UTILITY(U,$J,358.3,2379,2)
+534 ;;=^5007198
+535 ;;^UTILITY(U,$J,358.3,2380,0)
+536 ;;=I42.9^^20^150^17
+537 ;;^UTILITY(U,$J,358.3,2380,1,0)
+538 ;;=^358.31IA^4^2
+539 ;;^UTILITY(U,$J,358.3,2380,1,3,0)
+540 ;;=3^Cardiomyopathy,Unspec
+541 ;;^UTILITY(U,$J,358.3,2380,1,4,0)
+542 ;;=4^I42.9
+543 ;;^UTILITY(U,$J,358.3,2380,2)
+544 ;;=^5007200
+545 ;;^UTILITY(U,$J,358.3,2381,0)
+546 ;;=I50.9^^20^150^36
+547 ;;^UTILITY(U,$J,358.3,2381,1,0)
+548 ;;=^358.31IA^4^2
+549 ;;^UTILITY(U,$J,358.3,2381,1,3,0)
+550 ;;=3^Heart Failure,Unspec
+551 ;;^UTILITY(U,$J,358.3,2381,1,4,0)
+552 ;;=4^I50.9
+553 ;;^UTILITY(U,$J,358.3,2381,2)
+554 ;;=^5007251
+555 ;;^UTILITY(U,$J,358.3,2382,0)
+556 ;;=I50.1^^20^150^49
+557 ;;^UTILITY(U,$J,358.3,2382,1,0)
+558 ;;=^358.31IA^4^2
+559 ;;^UTILITY(U,$J,358.3,2382,1,3,0)
+560 ;;=3^Left Ventricular Failure
+561 ;;^UTILITY(U,$J,358.3,2382,1,4,0)
+562 ;;=4^I50.1
+563 ;;^UTILITY(U,$J,358.3,2382,2)
+564 ;;=^5007238
+565 ;;^UTILITY(U,$J,358.3,2383,0)
+566 ;;=I50.20^^20^150^73
+567 ;;^UTILITY(U,$J,358.3,2383,1,0)
+568 ;;=^358.31IA^4^2
+569 ;;^UTILITY(U,$J,358.3,2383,1,3,0)
+570 ;;=3^Systolic Congestive Heart Failure,Unspec
+571 ;;^UTILITY(U,$J,358.3,2383,1,4,0)
+572 ;;=4^I50.20
+573 ;;^UTILITY(U,$J,358.3,2383,2)
+574 ;;=^5007239
+575 ;;^UTILITY(U,$J,358.3,2384,0)
+576 ;;=I50.40^^20^150^72
+577 ;;^UTILITY(U,$J,358.3,2384,1,0)
+578 ;;=^358.31IA^4^2
+579 ;;^UTILITY(U,$J,358.3,2384,1,3,0)
+580 ;;=3^Systolic & Diastolic Congestive Heart Failure,Unspec
+581 ;;^UTILITY(U,$J,358.3,2384,1,4,0)
+582 ;;=4^I50.40
+583 ;;^UTILITY(U,$J,358.3,2384,2)
+584 ;;=^5007247
+585 ;;^UTILITY(U,$J,358.3,2385,0)
+586 ;;=I51.7^^20^150^14
+587 ;;^UTILITY(U,$J,358.3,2385,1,0)
+588 ;;=^358.31IA^4^2
+589 ;;^UTILITY(U,$J,358.3,2385,1,3,0)
+590 ;;=3^Cardiomegaly
+591 ;;^UTILITY(U,$J,358.3,2385,1,4,0)
+592 ;;=4^I51.7
+593 ;;^UTILITY(U,$J,358.3,2385,2)
+594 ;;=^5007257
+595 ;;^UTILITY(U,$J,358.3,2386,0)
+596 ;;=I97.111^^20^150^58
+597 ;;^UTILITY(U,$J,358.3,2386,1,0)
+598 ;;=^358.31IA^4^2
+599 ;;^UTILITY(U,$J,358.3,2386,1,3,0)
+600 ;;=3^Postprocedural Cardiac Insufficiency Following Oth Surgery
+601 ;;^UTILITY(U,$J,358.3,2386,1,4,0)
+602 ;;=4^I97.111
+603 ;;^UTILITY(U,$J,358.3,2386,2)
+604 ;;=^5008084
+605 ;;^UTILITY(U,$J,358.3,2387,0)
+606 ;;=I97.120^^20^150^54
+607 ;;^UTILITY(U,$J,358.3,2387,1,0)
+608 ;;=^358.31IA^4^2
+609 ;;^UTILITY(U,$J,358.3,2387,1,3,0)
+610 ;;=3^Postprocedural Cardiac Arrest Following Cardiac Surgery
+611 ;;^UTILITY(U,$J,358.3,2387,1,4,0)
+612 ;;=4^I97.120
+613 ;;^UTILITY(U,$J,358.3,2387,2)
+614 ;;=^5008085
+615 ;;^UTILITY(U,$J,358.3,2388,0)
+616 ;;=I97.121^^20^150^55
+617 ;;^UTILITY(U,$J,358.3,2388,1,0)
+618 ;;=^358.31IA^4^2
+619 ;;^UTILITY(U,$J,358.3,2388,1,3,0)
+620 ;;=3^Postprocedural Cardiac Arrest Following Oth Surgery
+621 ;;^UTILITY(U,$J,358.3,2388,1,4,0)
+622 ;;=4^I97.121
+623 ;;^UTILITY(U,$J,358.3,2388,2)
+624 ;;=^5008086
+625 ;;^UTILITY(U,$J,358.3,2389,0)
+626 ;;=I97.130^^20^150^60
+627 ;;^UTILITY(U,$J,358.3,2389,1,0)
+628 ;;=^358.31IA^4^2
+629 ;;^UTILITY(U,$J,358.3,2389,1,3,0)
+630 ;;=3^Postprocedural Heart Failure Following Cardiac Surgery
+631 ;;^UTILITY(U,$J,358.3,2389,1,4,0)
+632 ;;=4^I97.130
+633 ;;^UTILITY(U,$J,358.3,2389,2)
+634 ;;=^5008087
+635 ;;^UTILITY(U,$J,358.3,2390,0)
+636 ;;=I97.131^^20^150^61
+637 ;;^UTILITY(U,$J,358.3,2390,1,0)
+638 ;;=^358.31IA^4^2
+639 ;;^UTILITY(U,$J,358.3,2390,1,3,0)
+640 ;;=3^Postprocedural Heart Failure Following Oth Surgery
+641 ;;^UTILITY(U,$J,358.3,2390,1,4,0)
+642 ;;=4^I97.131
+643 ;;^UTILITY(U,$J,358.3,2390,2)
+644 ;;=^5008088
+645 ;;^UTILITY(U,$J,358.3,2391,0)
+646 ;;=I97.190^^20^150^56
+647 ;;^UTILITY(U,$J,358.3,2391,1,0)
+648 ;;=^358.31IA^4^2
+649 ;;^UTILITY(U,$J,358.3,2391,1,3,0)
+650 ;;=3^Postprocedural Cardiac Function Disturbance Following Cardiac Surgery
+651 ;;^UTILITY(U,$J,358.3,2391,1,4,0)
+652 ;;=4^I97.190
+653 ;;^UTILITY(U,$J,358.3,2391,2)
+654 ;;=^5008089
+655 ;;^UTILITY(U,$J,358.3,2392,0)
+656 ;;=I97.191^^20^150^57
+657 ;;^UTILITY(U,$J,358.3,2392,1,0)
+658 ;;=^358.31IA^4^2
+659 ;;^UTILITY(U,$J,358.3,2392,1,3,0)
+660 ;;=3^Postprocedural Cardiac Function Disturbance Following Oth Surgery
+661 ;;^UTILITY(U,$J,358.3,2392,1,4,0)
+662 ;;=4^I97.191
+663 ;;^UTILITY(U,$J,358.3,2392,2)
+664 ;;=^5008090
+665 ;;^UTILITY(U,$J,358.3,2393,0)
+666 ;;=I97.0^^20^150^53
+667 ;;^UTILITY(U,$J,358.3,2393,1,0)
+668 ;;=^358.31IA^4^2
+669 ;;^UTILITY(U,$J,358.3,2393,1,3,0)
+670 ;;=3^Postcardiotomy Syndrome