IBDEI038 ; ; 01-FEB-2021
;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2021
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,7182,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7182,1,3,0)
;;=3^Athscl Nonautologous Biological CABG w/ Ang Pctrs w/ Documented Spasm
;;^UTILITY(U,$J,358.3,7182,1,4,0)
;;=4^I25.731
;;^UTILITY(U,$J,358.3,7182,2)
;;=^5007128
;;^UTILITY(U,$J,358.3,7183,0)
;;=I25.738^^55^478^26
;;^UTILITY(U,$J,358.3,7183,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7183,1,3,0)
;;=3^Athscl Nonautologous Biological CABG w/ Oth Ang Pctrs
;;^UTILITY(U,$J,358.3,7183,1,4,0)
;;=4^I25.738
;;^UTILITY(U,$J,358.3,7183,2)
;;=^5007129
;;^UTILITY(U,$J,358.3,7184,0)
;;=I25.739^^55^478^27
;;^UTILITY(U,$J,358.3,7184,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7184,1,3,0)
;;=3^Athscl Nonautologous Biological CABG w/ Unspec Ang Pctrs
;;^UTILITY(U,$J,358.3,7184,1,4,0)
;;=4^I25.739
;;^UTILITY(U,$J,358.3,7184,2)
;;=^5007130
;;^UTILITY(U,$J,358.3,7185,0)
;;=I25.751^^55^478^21
;;^UTILITY(U,$J,358.3,7185,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7185,1,3,0)
;;=3^Athscl Native Cor Art of Transplanted Hrt w/ Ang Pctrs w/ Spasm
;;^UTILITY(U,$J,358.3,7185,1,4,0)
;;=4^I25.751
;;^UTILITY(U,$J,358.3,7185,2)
;;=^5007132
;;^UTILITY(U,$J,358.3,7186,0)
;;=I25.758^^55^478^22
;;^UTILITY(U,$J,358.3,7186,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7186,1,3,0)
;;=3^Athscl Native Cor Art of Transplanted Hrt w/ Oth Ang Pctrs
;;^UTILITY(U,$J,358.3,7186,1,4,0)
;;=4^I25.758
;;^UTILITY(U,$J,358.3,7186,2)
;;=^5007133
;;^UTILITY(U,$J,358.3,7187,0)
;;=I25.759^^55^478^23
;;^UTILITY(U,$J,358.3,7187,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7187,1,3,0)
;;=3^Athscl Native Cor Art of Transplanted Hrt w/ Unspec Ang Pctrs
;;^UTILITY(U,$J,358.3,7187,1,4,0)
;;=4^I25.759
;;^UTILITY(U,$J,358.3,7187,2)
;;=^5007134
;;^UTILITY(U,$J,358.3,7188,0)
;;=I20.8^^55^478^1
;;^UTILITY(U,$J,358.3,7188,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7188,1,3,0)
;;=3^Angina Pectoris NEC
;;^UTILITY(U,$J,358.3,7188,1,4,0)
;;=4^I20.8
;;^UTILITY(U,$J,358.3,7188,2)
;;=^5007078
;;^UTILITY(U,$J,358.3,7189,0)
;;=I20.9^^55^478^2
;;^UTILITY(U,$J,358.3,7189,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7189,1,3,0)
;;=3^Angina Pectoris,Unspec
;;^UTILITY(U,$J,358.3,7189,1,4,0)
;;=4^I20.9
;;^UTILITY(U,$J,358.3,7189,2)
;;=^5007079
;;^UTILITY(U,$J,358.3,7190,0)
;;=R07.9^^55^478^38
;;^UTILITY(U,$J,358.3,7190,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7190,1,3,0)
;;=3^Chest Pain,Unspec
;;^UTILITY(U,$J,358.3,7190,1,4,0)
;;=4^R07.9
;;^UTILITY(U,$J,358.3,7190,2)
;;=^5019201
;;^UTILITY(U,$J,358.3,7191,0)
;;=R07.2^^55^478^41
;;^UTILITY(U,$J,358.3,7191,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7191,1,3,0)
;;=3^Precordial Pain
;;^UTILITY(U,$J,358.3,7191,1,4,0)
;;=4^R07.2
;;^UTILITY(U,$J,358.3,7191,2)
;;=^5019197
;;^UTILITY(U,$J,358.3,7192,0)
;;=R07.1^^55^478^37
;;^UTILITY(U,$J,358.3,7192,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7192,1,3,0)
;;=3^Chest Pain on Breathing
;;^UTILITY(U,$J,358.3,7192,1,4,0)
;;=4^R07.1
;;^UTILITY(U,$J,358.3,7192,2)
;;=^5019196
;;^UTILITY(U,$J,358.3,7193,0)
;;=R07.81^^55^478^40
;;^UTILITY(U,$J,358.3,7193,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7193,1,3,0)
;;=3^Pleurodynia
;;^UTILITY(U,$J,358.3,7193,1,4,0)
;;=4^R07.81
;;^UTILITY(U,$J,358.3,7193,2)
;;=^5019198
;;^UTILITY(U,$J,358.3,7194,0)
;;=R07.82^^55^478^39
;;^UTILITY(U,$J,358.3,7194,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7194,1,3,0)
;;=3^Intercostal Pain
;;^UTILITY(U,$J,358.3,7194,1,4,0)
;;=4^R07.82
;;^UTILITY(U,$J,358.3,7194,2)
;;=^5019199
;;^UTILITY(U,$J,358.3,7195,0)
;;=R07.89^^55^478^36
;;^UTILITY(U,$J,358.3,7195,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7195,1,3,0)
;;=3^Chest Pain NEC
;;^UTILITY(U,$J,358.3,7195,1,4,0)
;;=4^R07.89
;;^UTILITY(U,$J,358.3,7195,2)
;;=^5019200
;;^UTILITY(U,$J,358.3,7196,0)
;;=I26.09^^55^479^63
;;^UTILITY(U,$J,358.3,7196,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7196,1,3,0)
;;=3^Pulmonary Embolism w/ Acute Cor Pulmonale
;;^UTILITY(U,$J,358.3,7196,1,4,0)
;;=4^I26.09
;;^UTILITY(U,$J,358.3,7196,2)
;;=^5007147
;;^UTILITY(U,$J,358.3,7197,0)
;;=I26.90^^55^479^70
;;^UTILITY(U,$J,358.3,7197,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7197,1,3,0)
;;=3^Septic Pulmonary Embolism w/o Acute Cor Pulmonale
;;^UTILITY(U,$J,358.3,7197,1,4,0)
;;=4^I26.90
;;^UTILITY(U,$J,358.3,7197,2)
;;=^5007148
;;^UTILITY(U,$J,358.3,7198,0)
;;=I26.99^^55^479^64
;;^UTILITY(U,$J,358.3,7198,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7198,1,3,0)
;;=3^Pulmonary Embolism w/o Acute Cor Pulmonale NEC
;;^UTILITY(U,$J,358.3,7198,1,4,0)
;;=4^I26.99
;;^UTILITY(U,$J,358.3,7198,2)
;;=^5007150
;;^UTILITY(U,$J,358.3,7199,0)
;;=T80.0XXA^^55^479^10
;;^UTILITY(U,$J,358.3,7199,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7199,1,3,0)
;;=3^Air Embolism Following Infusion/Transfusion/Therapeutic Inj,Init Encntr
;;^UTILITY(U,$J,358.3,7199,1,4,0)
;;=4^T80.0XXA
;;^UTILITY(U,$J,358.3,7199,2)
;;=^5054344
;;^UTILITY(U,$J,358.3,7200,0)
;;=T81.718A^^55^479^21
;;^UTILITY(U,$J,358.3,7200,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7200,1,3,0)
;;=3^Complication of Artery Following Procedure NEC,Init Encntr
;;^UTILITY(U,$J,358.3,7200,1,4,0)
;;=4^T81.718A
;;^UTILITY(U,$J,358.3,7200,2)
;;=^5054644
;;^UTILITY(U,$J,358.3,7201,0)
;;=T81.72XA^^55^479^26
;;^UTILITY(U,$J,358.3,7201,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7201,1,3,0)
;;=3^Complication of Vein Following Procedure NEC,Init Encntr
;;^UTILITY(U,$J,358.3,7201,1,4,0)
;;=4^T81.72XA
;;^UTILITY(U,$J,358.3,7201,2)
;;=^5054650
;;^UTILITY(U,$J,358.3,7202,0)
;;=T82.817A^^55^479^30
;;^UTILITY(U,$J,358.3,7202,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7202,1,3,0)
;;=3^Embolism of Cardiac Prosthetic Device/Implant/Graft,Init Encntr
;;^UTILITY(U,$J,358.3,7202,1,4,0)
;;=4^T82.817A
;;^UTILITY(U,$J,358.3,7202,2)
;;=^5054914
;;^UTILITY(U,$J,358.3,7203,0)
;;=T82.818A^^55^479^31
;;^UTILITY(U,$J,358.3,7203,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7203,1,3,0)
;;=3^Embolism of Vascular Prosthetic Device/Implant/Graft,Init Encntr
;;^UTILITY(U,$J,358.3,7203,1,4,0)
;;=4^T82.818A
;;^UTILITY(U,$J,358.3,7203,2)
;;=^5054917
;;^UTILITY(U,$J,358.3,7204,0)
;;=I27.0^^55^479^61
;;^UTILITY(U,$J,358.3,7204,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7204,1,3,0)
;;=3^Primary Pulmonary Hypertension
;;^UTILITY(U,$J,358.3,7204,1,4,0)
;;=4^I27.0
;;^UTILITY(U,$J,358.3,7204,2)
;;=^265310
;;^UTILITY(U,$J,358.3,7205,0)
;;=I27.1^^55^479^47
;;^UTILITY(U,$J,358.3,7205,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7205,1,3,0)
;;=3^Kyphoscoliotic Hrt Disease
;;^UTILITY(U,$J,358.3,7205,1,4,0)
;;=4^I27.1
;;^UTILITY(U,$J,358.3,7205,2)
;;=^265120
;;^UTILITY(U,$J,358.3,7206,0)
;;=I27.89^^55^479^66
;;^UTILITY(U,$J,358.3,7206,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7206,1,3,0)
;;=3^Pulmonary Hrt Diseases NEC
;;^UTILITY(U,$J,358.3,7206,1,4,0)
;;=4^I27.89
;;^UTILITY(U,$J,358.3,7206,2)
;;=^5007153
;;^UTILITY(U,$J,358.3,7207,0)
;;=I27.81^^55^479^29
;;^UTILITY(U,$J,358.3,7207,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7207,1,3,0)
;;=3^Cor Pulmonale,Chronic
;;^UTILITY(U,$J,358.3,7207,1,4,0)
;;=4^I27.81
;;^UTILITY(U,$J,358.3,7207,2)
;;=^5007152
;;^UTILITY(U,$J,358.3,7208,0)
;;=I42.1^^55^479^51
;;^UTILITY(U,$J,358.3,7208,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7208,1,3,0)
;;=3^Obstructive Hypertrophic Cardiomyopathy
;;^UTILITY(U,$J,358.3,7208,1,4,0)
;;=4^I42.1
;;^UTILITY(U,$J,358.3,7208,2)
;;=^340520
;;^UTILITY(U,$J,358.3,7209,0)
;;=I42.2^^55^479^46
;;^UTILITY(U,$J,358.3,7209,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7209,1,3,0)
;;=3^Hypertrophic Cardiomyopathy NEC
;;^UTILITY(U,$J,358.3,7209,1,4,0)
;;=4^I42.2
;;^UTILITY(U,$J,358.3,7209,2)
;;=^340521
;;^UTILITY(U,$J,358.3,7210,0)
;;=I42.5^^55^479^67
;;^UTILITY(U,$J,358.3,7210,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7210,1,3,0)
;;=3^Restrictive Cardiomyopathy NEC
;;^UTILITY(U,$J,358.3,7210,1,4,0)
;;=4^I42.5
;;^UTILITY(U,$J,358.3,7210,2)
;;=^5007196
;;^UTILITY(U,$J,358.3,7211,0)
;;=I42.6^^55^479^11
;;^UTILITY(U,$J,358.3,7211,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7211,1,3,0)
;;=3^Alcoholic Cardiomyopathy
;;^UTILITY(U,$J,358.3,7211,1,4,0)
;;=4^I42.6
;;^UTILITY(U,$J,358.3,7211,2)
;;=^5007197
;;^UTILITY(U,$J,358.3,7212,0)
;;=I43.^^55^479^16
;;^UTILITY(U,$J,358.3,7212,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7212,1,3,0)
;;=3^Cardiomyopathy in Diseases Classified Elsewhere
;;^UTILITY(U,$J,358.3,7212,1,4,0)
;;=4^I43.
;;^UTILITY(U,$J,358.3,7212,2)
;;=^5007201
;;^UTILITY(U,$J,358.3,7213,0)
;;=I42.7^^55^479^15
;;^UTILITY(U,$J,358.3,7213,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7213,1,3,0)
;;=3^Cardiomyopathy d/t Drug/External Agent
;;^UTILITY(U,$J,358.3,7213,1,4,0)
;;=4^I42.7
;;^UTILITY(U,$J,358.3,7213,2)
;;=^5007198
;;^UTILITY(U,$J,358.3,7214,0)
;;=I42.9^^55^479^17
;;^UTILITY(U,$J,358.3,7214,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7214,1,3,0)
;;=3^Cardiomyopathy,Unspec
;;^UTILITY(U,$J,358.3,7214,1,4,0)
;;=4^I42.9
;;^UTILITY(U,$J,358.3,7214,2)
;;=^5007200
;;^UTILITY(U,$J,358.3,7215,0)
;;=I50.9^^55^479^35
;;^UTILITY(U,$J,358.3,7215,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7215,1,3,0)
;;=3^Heart Failure,Unspec
;;^UTILITY(U,$J,358.3,7215,1,4,0)
;;=4^I50.9
;;^UTILITY(U,$J,358.3,7215,2)
;;=^5007251
;;^UTILITY(U,$J,358.3,7216,0)
;;=I50.1^^55^479^48
;;^UTILITY(U,$J,358.3,7216,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7216,1,3,0)
;;=3^Left Ventricular Failure
;;^UTILITY(U,$J,358.3,7216,1,4,0)
;;=4^I50.1
;;^UTILITY(U,$J,358.3,7216,2)
;;=^5007238
;;^UTILITY(U,$J,358.3,7217,0)
;;=I50.20^^55^479^72
;;^UTILITY(U,$J,358.3,7217,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7217,1,3,0)
;;=3^Systolic Congestive Heart Failure,Unspec
;;^UTILITY(U,$J,358.3,7217,1,4,0)
;;=4^I50.20
;;^UTILITY(U,$J,358.3,7217,2)
;;=^5007239
;;^UTILITY(U,$J,358.3,7218,0)
;;=I50.40^^55^479^71
;;^UTILITY(U,$J,358.3,7218,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7218,1,3,0)
;;=3^Systolic & Diastolic Congestive Heart Failure,Unspec
;;^UTILITY(U,$J,358.3,7218,1,4,0)
;;=4^I50.40
;;^UTILITY(U,$J,358.3,7218,2)
;;=^5007247
;;^UTILITY(U,$J,358.3,7219,0)
;;=I51.7^^55^479^14
;;^UTILITY(U,$J,358.3,7219,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7219,1,3,0)
;;=3^Cardiomegaly
;;^UTILITY(U,$J,358.3,7219,1,4,0)
;;=4^I51.7
;;^UTILITY(U,$J,358.3,7219,2)
;;=^5007257
;;^UTILITY(U,$J,358.3,7220,0)
;;=I97.111^^55^479^57
;;^UTILITY(U,$J,358.3,7220,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7220,1,3,0)
;;=3^Postprocedural Cardiac Insufficiency Following Oth Surgery
;;^UTILITY(U,$J,358.3,7220,1,4,0)
;;=4^I97.111
;;^UTILITY(U,$J,358.3,7220,2)
;;=^5008084
;;^UTILITY(U,$J,358.3,7221,0)
;;=I97.120^^55^479^53
;;^UTILITY(U,$J,358.3,7221,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7221,1,3,0)
;;=3^Postprocedural Cardiac Arrest Following Cardiac Surgery
;;^UTILITY(U,$J,358.3,7221,1,4,0)
;;=4^I97.120
;;^UTILITY(U,$J,358.3,7221,2)
;;=^5008085
;;^UTILITY(U,$J,358.3,7222,0)
;;=I97.121^^55^479^54
;;^UTILITY(U,$J,358.3,7222,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7222,1,3,0)
;;=3^Postprocedural Cardiac Arrest Following Oth Surgery
;;^UTILITY(U,$J,358.3,7222,1,4,0)
;;=4^I97.121
;;^UTILITY(U,$J,358.3,7222,2)
;;=^5008086
;;^UTILITY(U,$J,358.3,7223,0)
;;=I97.130^^55^479^59
;;^UTILITY(U,$J,358.3,7223,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7223,1,3,0)
;;=3^Postprocedural Heart Failure Following Cardiac Surgery
;;^UTILITY(U,$J,358.3,7223,1,4,0)
;;=4^I97.130
;;^UTILITY(U,$J,358.3,7223,2)
;;=^5008087
;;^UTILITY(U,$J,358.3,7224,0)
;;=I97.131^^55^479^60
;;^UTILITY(U,$J,358.3,7224,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7224,1,3,0)
;;=3^Postprocedural Heart Failure Following Oth Surgery
;;^UTILITY(U,$J,358.3,7224,1,4,0)
;;=4^I97.131
;;^UTILITY(U,$J,358.3,7224,2)
;;=^5008088
;;^UTILITY(U,$J,358.3,7225,0)
;;=I97.190^^55^479^55
;;^UTILITY(U,$J,358.3,7225,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7225,1,3,0)
;;=3^Postprocedural Cardiac Function Disturbance Following Cardiac Surgery
;;^UTILITY(U,$J,358.3,7225,1,4,0)
;;=4^I97.190
;;^UTILITY(U,$J,358.3,7225,2)
;;=^5008089
;;^UTILITY(U,$J,358.3,7226,0)
;;=I97.191^^55^479^56
;;^UTILITY(U,$J,358.3,7226,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7226,1,3,0)
;;=3^Postprocedural Cardiac Function Disturbance Following Oth Surgery
;;^UTILITY(U,$J,358.3,7226,1,4,0)
;;=4^I97.191
;;^UTILITY(U,$J,358.3,7226,2)
;;=^5008090
;;^UTILITY(U,$J,358.3,7227,0)
;;=I97.0^^55^479^52
;;^UTILITY(U,$J,358.3,7227,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7227,1,3,0)
;;=3^Postcardiotomy Syndrome
;;^UTILITY(U,$J,358.3,7227,1,4,0)
;;=4^I97.0
;;^UTILITY(U,$J,358.3,7227,2)
;;=^5008082
;;^UTILITY(U,$J,358.3,7228,0)
;;=I97.110^^55^479^58
;;^UTILITY(U,$J,358.3,7228,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7228,1,3,0)
;;=3^Postprocedural Cardiac Insufficiency Following Cardiac Surgery
;;^UTILITY(U,$J,358.3,7228,1,4,0)
;;=4^I97.110
;;^UTILITY(U,$J,358.3,7228,2)
;;=^5008083
;;^UTILITY(U,$J,358.3,7229,0)
;;=T86.20^^55^479^22
;;^UTILITY(U,$J,358.3,7229,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7229,1,3,0)
;;=3^Complication of Heart Transplant,Unspec
;;^UTILITY(U,$J,358.3,7229,1,4,0)
;;=4^T86.20
;;^UTILITY(U,$J,358.3,7229,2)
;;=^5055713
;;^UTILITY(U,$J,358.3,7230,0)
;;=T86.21^^55^479^38
;;^UTILITY(U,$J,358.3,7230,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7230,1,3,0)
;;=3^Heart Transplant Rejection
;;^UTILITY(U,$J,358.3,7230,1,4,0)
;;=4^T86.21
;;^UTILITY(U,$J,358.3,7230,2)
;;=^5055714
;;^UTILITY(U,$J,358.3,7231,0)
;;=T86.22^^55^479^36
;;^UTILITY(U,$J,358.3,7231,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7231,1,3,0)
;;=3^Heart Transplant Failure
;;^UTILITY(U,$J,358.3,7231,1,4,0)
;;=4^T86.22
;;^UTILITY(U,$J,358.3,7231,2)
;;=^5055715
;;^UTILITY(U,$J,358.3,7232,0)
;;=T86.23^^55^479^37
;;^UTILITY(U,$J,358.3,7232,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7232,1,3,0)
;;=3^Heart Transplant Infection
;;^UTILITY(U,$J,358.3,7232,1,4,0)
;;=4^T86.23
;;^UTILITY(U,$J,358.3,7232,2)
;;=^5055716
;;^UTILITY(U,$J,358.3,7233,0)
;;=T86.290^^55^479^13
;;^UTILITY(U,$J,358.3,7233,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7233,1,3,0)
;;=3^Cardiac Allograft Vasculopathy
;;^UTILITY(U,$J,358.3,7233,1,4,0)
;;=4^T86.290
;;^UTILITY(U,$J,358.3,7233,2)
;;=^5055717
;;^UTILITY(U,$J,358.3,7234,0)
;;=T86.298^^55^479^27
;;^UTILITY(U,$J,358.3,7234,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7234,1,3,0)
;;=3^Complications of Heart Transplant NEC
;;^UTILITY(U,$J,358.3,7234,1,4,0)
;;=4^T86.298
;;^UTILITY(U,$J,358.3,7234,2)
;;=^5055718
;;^UTILITY(U,$J,358.3,7235,0)
;;=T86.30^^55^479^23
;;^UTILITY(U,$J,358.3,7235,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7235,1,3,0)
;;=3^Complication of Heart-Lung Transplant,Unspec
;;^UTILITY(U,$J,358.3,7235,1,4,0)
;;=4^T86.30
;;^UTILITY(U,$J,358.3,7235,2)
;;=^5055719
;;^UTILITY(U,$J,358.3,7236,0)
;;=T86.39^^55^479^28
;;^UTILITY(U,$J,358.3,7236,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7236,1,3,0)
;;=3^Complications of Heart-Lung Transplant NEC
;;^UTILITY(U,$J,358.3,7236,1,4,0)
;;=4^T86.39
;;^UTILITY(U,$J,358.3,7236,2)
;;=^5055723
;;^UTILITY(U,$J,358.3,7237,0)
;;=T86.31^^55^479^43
;;^UTILITY(U,$J,358.3,7237,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7237,1,3,0)
;;=3^Heart-Lung Transplant Rejection
;;^UTILITY(U,$J,358.3,7237,1,4,0)
;;=4^T86.31
;;^UTILITY(U,$J,358.3,7237,2)
;;=^5055720
;;^UTILITY(U,$J,358.3,7238,0)
;;=T86.32^^55^479^41
;;^UTILITY(U,$J,358.3,7238,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7238,1,3,0)
;;=3^Heart-Lung Transplant Failure
;;^UTILITY(U,$J,358.3,7238,1,4,0)
;;=4^T86.32
;;^UTILITY(U,$J,358.3,7238,2)
;;=^5055721
;;^UTILITY(U,$J,358.3,7239,0)
;;=T86.33^^55^479^42
;;^UTILITY(U,$J,358.3,7239,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7239,1,3,0)
;;=3^Heart-Lung Transplant Infection
;;^UTILITY(U,$J,358.3,7239,1,4,0)
;;=4^T86.33
;;^UTILITY(U,$J,358.3,7239,2)
;;=^5055722
;;^UTILITY(U,$J,358.3,7240,0)
;;=T86.810^^55^479^50
;;^UTILITY(U,$J,358.3,7240,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7240,1,3,0)
;;=3^Lung Transplant Rejection
;;^UTILITY(U,$J,358.3,7240,1,4,0)
;;=4^T86.810
;;^UTILITY(U,$J,358.3,7240,2)
;;=^5055730
;;^UTILITY(U,$J,358.3,7241,0)
;;=T86.811^^55^479^49
;;^UTILITY(U,$J,358.3,7241,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7241,1,3,0)
;;=3^Lung Transplant Failure
;;^UTILITY(U,$J,358.3,7241,1,4,0)
;;=4^T86.811
;;^UTILITY(U,$J,358.3,7241,2)
;;=^5055731
;;^UTILITY(U,$J,358.3,7242,0)
;;=T86.819^^55^479^25
;;^UTILITY(U,$J,358.3,7242,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7242,1,3,0)
;;=3^Complication of Lung Transplant,Unspec
;;^UTILITY(U,$J,358.3,7242,1,4,0)
;;=4^T86.819
;;^UTILITY(U,$J,358.3,7242,2)
;;=^5137975
;;^UTILITY(U,$J,358.3,7243,0)
;;=T86.818^^55^479^24
;;^UTILITY(U,$J,358.3,7243,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7243,1,3,0)
;;=3^Complication of Lung Transplant NEC
;;^UTILITY(U,$J,358.3,7243,1,4,0)
;;=4^T86.818
;;^UTILITY(U,$J,358.3,7243,2)
;;=^5055733
;;^UTILITY(U,$J,358.3,7244,0)
;;=Z94.1^^55^479^39
;;^UTILITY(U,$J,358.3,7244,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7244,1,3,0)
;;=3^Heart Transplant Status
;;^UTILITY(U,$J,358.3,7244,1,4,0)
;;=4^Z94.1
;;^UTILITY(U,$J,358.3,7244,2)
;;=^5063655
;;^UTILITY(U,$J,358.3,7245,0)
;;=Z94.3^^55^479^40
;;^UTILITY(U,$J,358.3,7245,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7245,1,3,0)
;;=3^Heart and Lungs Transplant Status
;;^UTILITY(U,$J,358.3,7245,1,4,0)
;;=4^Z94.3
;;^UTILITY(U,$J,358.3,7245,2)
;;=^5063657
;;^UTILITY(U,$J,358.3,7246,0)
;;=Z48.21^^55^479^8
;;^UTILITY(U,$J,358.3,7246,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7246,1,3,0)
;;=3^Aftercare Following Heart Transplant
;;^UTILITY(U,$J,358.3,7246,1,4,0)
;;=4^Z48.21
;;^UTILITY(U,$J,358.3,7246,2)
;;=^5063038
;;^UTILITY(U,$J,358.3,7247,0)
;;=Z48.280^^55^479^9
;;^UTILITY(U,$J,358.3,7247,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7247,1,3,0)
;;=3^Aftercare Following Heart-Lung Transplant
;;^UTILITY(U,$J,358.3,7247,1,4,0)
;;=4^Z48.280
;;^UTILITY(U,$J,358.3,7247,2)
;;=^5063042
;;^UTILITY(U,$J,358.3,7248,0)
;;=I50.41^^55^479^1
;;^UTILITY(U,$J,358.3,7248,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7248,1,3,0)
;;=3^Acute Combined Systolic & Diastolic Hrt Failure
;;^UTILITY(U,$J,358.3,7248,1,4,0)
;;=4^I50.41
;;^UTILITY(U,$J,358.3,7248,2)
;;=^5007248
;;^UTILITY(U,$J,358.3,7249,0)
;;=I50.30^^55^479^2
;;^UTILITY(U,$J,358.3,7249,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7249,1,3,0)
;;=3^Acute Diastolic Heart Failure
;;^UTILITY(U,$J,358.3,7249,1,4,0)
;;=4^I50.30
;;^UTILITY(U,$J,358.3,7249,2)
;;=^5007243
;;^UTILITY(U,$J,358.3,7250,0)
;;=I50.33^^55^479^5
;;^UTILITY(U,$J,358.3,7250,1,0)
;;=^358.31IA^4^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI038 19783 printed Apr 07, 2021@14:57:39 Page 2
IBDEI038 ; ; 01-FEB-2021
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2021
+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,7182,1,0)
+2 ;;=^358.31IA^4^2
+3 ;;^UTILITY(U,$J,358.3,7182,1,3,0)
+4 ;;=3^Athscl Nonautologous Biological CABG w/ Ang Pctrs w/ Documented Spasm
+5 ;;^UTILITY(U,$J,358.3,7182,1,4,0)
+6 ;;=4^I25.731
+7 ;;^UTILITY(U,$J,358.3,7182,2)
+8 ;;=^5007128
+9 ;;^UTILITY(U,$J,358.3,7183,0)
+10 ;;=I25.738^^55^478^26
+11 ;;^UTILITY(U,$J,358.3,7183,1,0)
+12 ;;=^358.31IA^4^2
+13 ;;^UTILITY(U,$J,358.3,7183,1,3,0)
+14 ;;=3^Athscl Nonautologous Biological CABG w/ Oth Ang Pctrs
+15 ;;^UTILITY(U,$J,358.3,7183,1,4,0)
+16 ;;=4^I25.738
+17 ;;^UTILITY(U,$J,358.3,7183,2)
+18 ;;=^5007129
+19 ;;^UTILITY(U,$J,358.3,7184,0)
+20 ;;=I25.739^^55^478^27
+21 ;;^UTILITY(U,$J,358.3,7184,1,0)
+22 ;;=^358.31IA^4^2
+23 ;;^UTILITY(U,$J,358.3,7184,1,3,0)
+24 ;;=3^Athscl Nonautologous Biological CABG w/ Unspec Ang Pctrs
+25 ;;^UTILITY(U,$J,358.3,7184,1,4,0)
+26 ;;=4^I25.739
+27 ;;^UTILITY(U,$J,358.3,7184,2)
+28 ;;=^5007130
+29 ;;^UTILITY(U,$J,358.3,7185,0)
+30 ;;=I25.751^^55^478^21
+31 ;;^UTILITY(U,$J,358.3,7185,1,0)
+32 ;;=^358.31IA^4^2
+33 ;;^UTILITY(U,$J,358.3,7185,1,3,0)
+34 ;;=3^Athscl Native Cor Art of Transplanted Hrt w/ Ang Pctrs w/ Spasm
+35 ;;^UTILITY(U,$J,358.3,7185,1,4,0)
+36 ;;=4^I25.751
+37 ;;^UTILITY(U,$J,358.3,7185,2)
+38 ;;=^5007132
+39 ;;^UTILITY(U,$J,358.3,7186,0)
+40 ;;=I25.758^^55^478^22
+41 ;;^UTILITY(U,$J,358.3,7186,1,0)
+42 ;;=^358.31IA^4^2
+43 ;;^UTILITY(U,$J,358.3,7186,1,3,0)
+44 ;;=3^Athscl Native Cor Art of Transplanted Hrt w/ Oth Ang Pctrs
+45 ;;^UTILITY(U,$J,358.3,7186,1,4,0)
+46 ;;=4^I25.758
+47 ;;^UTILITY(U,$J,358.3,7186,2)
+48 ;;=^5007133
+49 ;;^UTILITY(U,$J,358.3,7187,0)
+50 ;;=I25.759^^55^478^23
+51 ;;^UTILITY(U,$J,358.3,7187,1,0)
+52 ;;=^358.31IA^4^2
+53 ;;^UTILITY(U,$J,358.3,7187,1,3,0)
+54 ;;=3^Athscl Native Cor Art of Transplanted Hrt w/ Unspec Ang Pctrs
+55 ;;^UTILITY(U,$J,358.3,7187,1,4,0)
+56 ;;=4^I25.759
+57 ;;^UTILITY(U,$J,358.3,7187,2)
+58 ;;=^5007134
+59 ;;^UTILITY(U,$J,358.3,7188,0)
+60 ;;=I20.8^^55^478^1
+61 ;;^UTILITY(U,$J,358.3,7188,1,0)
+62 ;;=^358.31IA^4^2
+63 ;;^UTILITY(U,$J,358.3,7188,1,3,0)
+64 ;;=3^Angina Pectoris NEC
+65 ;;^UTILITY(U,$J,358.3,7188,1,4,0)
+66 ;;=4^I20.8
+67 ;;^UTILITY(U,$J,358.3,7188,2)
+68 ;;=^5007078
+69 ;;^UTILITY(U,$J,358.3,7189,0)
+70 ;;=I20.9^^55^478^2
+71 ;;^UTILITY(U,$J,358.3,7189,1,0)
+72 ;;=^358.31IA^4^2
+73 ;;^UTILITY(U,$J,358.3,7189,1,3,0)
+74 ;;=3^Angina Pectoris,Unspec
+75 ;;^UTILITY(U,$J,358.3,7189,1,4,0)
+76 ;;=4^I20.9
+77 ;;^UTILITY(U,$J,358.3,7189,2)
+78 ;;=^5007079
+79 ;;^UTILITY(U,$J,358.3,7190,0)
+80 ;;=R07.9^^55^478^38
+81 ;;^UTILITY(U,$J,358.3,7190,1,0)
+82 ;;=^358.31IA^4^2
+83 ;;^UTILITY(U,$J,358.3,7190,1,3,0)
+84 ;;=3^Chest Pain,Unspec
+85 ;;^UTILITY(U,$J,358.3,7190,1,4,0)
+86 ;;=4^R07.9
+87 ;;^UTILITY(U,$J,358.3,7190,2)
+88 ;;=^5019201
+89 ;;^UTILITY(U,$J,358.3,7191,0)
+90 ;;=R07.2^^55^478^41
+91 ;;^UTILITY(U,$J,358.3,7191,1,0)
+92 ;;=^358.31IA^4^2
+93 ;;^UTILITY(U,$J,358.3,7191,1,3,0)
+94 ;;=3^Precordial Pain
+95 ;;^UTILITY(U,$J,358.3,7191,1,4,0)
+96 ;;=4^R07.2
+97 ;;^UTILITY(U,$J,358.3,7191,2)
+98 ;;=^5019197
+99 ;;^UTILITY(U,$J,358.3,7192,0)
+100 ;;=R07.1^^55^478^37
+101 ;;^UTILITY(U,$J,358.3,7192,1,0)
+102 ;;=^358.31IA^4^2
+103 ;;^UTILITY(U,$J,358.3,7192,1,3,0)
+104 ;;=3^Chest Pain on Breathing
+105 ;;^UTILITY(U,$J,358.3,7192,1,4,0)
+106 ;;=4^R07.1
+107 ;;^UTILITY(U,$J,358.3,7192,2)
+108 ;;=^5019196
+109 ;;^UTILITY(U,$J,358.3,7193,0)
+110 ;;=R07.81^^55^478^40
+111 ;;^UTILITY(U,$J,358.3,7193,1,0)
+112 ;;=^358.31IA^4^2
+113 ;;^UTILITY(U,$J,358.3,7193,1,3,0)
+114 ;;=3^Pleurodynia
+115 ;;^UTILITY(U,$J,358.3,7193,1,4,0)
+116 ;;=4^R07.81
+117 ;;^UTILITY(U,$J,358.3,7193,2)
+118 ;;=^5019198
+119 ;;^UTILITY(U,$J,358.3,7194,0)
+120 ;;=R07.82^^55^478^39
+121 ;;^UTILITY(U,$J,358.3,7194,1,0)
+122 ;;=^358.31IA^4^2
+123 ;;^UTILITY(U,$J,358.3,7194,1,3,0)
+124 ;;=3^Intercostal Pain
+125 ;;^UTILITY(U,$J,358.3,7194,1,4,0)
+126 ;;=4^R07.82
+127 ;;^UTILITY(U,$J,358.3,7194,2)
+128 ;;=^5019199
+129 ;;^UTILITY(U,$J,358.3,7195,0)
+130 ;;=R07.89^^55^478^36
+131 ;;^UTILITY(U,$J,358.3,7195,1,0)
+132 ;;=^358.31IA^4^2
+133 ;;^UTILITY(U,$J,358.3,7195,1,3,0)
+134 ;;=3^Chest Pain NEC
+135 ;;^UTILITY(U,$J,358.3,7195,1,4,0)
+136 ;;=4^R07.89
+137 ;;^UTILITY(U,$J,358.3,7195,2)
+138 ;;=^5019200
+139 ;;^UTILITY(U,$J,358.3,7196,0)
+140 ;;=I26.09^^55^479^63
+141 ;;^UTILITY(U,$J,358.3,7196,1,0)
+142 ;;=^358.31IA^4^2
+143 ;;^UTILITY(U,$J,358.3,7196,1,3,0)
+144 ;;=3^Pulmonary Embolism w/ Acute Cor Pulmonale
+145 ;;^UTILITY(U,$J,358.3,7196,1,4,0)
+146 ;;=4^I26.09
+147 ;;^UTILITY(U,$J,358.3,7196,2)
+148 ;;=^5007147
+149 ;;^UTILITY(U,$J,358.3,7197,0)
+150 ;;=I26.90^^55^479^70
+151 ;;^UTILITY(U,$J,358.3,7197,1,0)
+152 ;;=^358.31IA^4^2
+153 ;;^UTILITY(U,$J,358.3,7197,1,3,0)
+154 ;;=3^Septic Pulmonary Embolism w/o Acute Cor Pulmonale
+155 ;;^UTILITY(U,$J,358.3,7197,1,4,0)
+156 ;;=4^I26.90
+157 ;;^UTILITY(U,$J,358.3,7197,2)
+158 ;;=^5007148
+159 ;;^UTILITY(U,$J,358.3,7198,0)
+160 ;;=I26.99^^55^479^64
+161 ;;^UTILITY(U,$J,358.3,7198,1,0)
+162 ;;=^358.31IA^4^2
+163 ;;^UTILITY(U,$J,358.3,7198,1,3,0)
+164 ;;=3^Pulmonary Embolism w/o Acute Cor Pulmonale NEC
+165 ;;^UTILITY(U,$J,358.3,7198,1,4,0)
+166 ;;=4^I26.99
+167 ;;^UTILITY(U,$J,358.3,7198,2)
+168 ;;=^5007150
+169 ;;^UTILITY(U,$J,358.3,7199,0)
+170 ;;=T80.0XXA^^55^479^10
+171 ;;^UTILITY(U,$J,358.3,7199,1,0)
+172 ;;=^358.31IA^4^2
+173 ;;^UTILITY(U,$J,358.3,7199,1,3,0)
+174 ;;=3^Air Embolism Following Infusion/Transfusion/Therapeutic Inj,Init Encntr
+175 ;;^UTILITY(U,$J,358.3,7199,1,4,0)
+176 ;;=4^T80.0XXA
+177 ;;^UTILITY(U,$J,358.3,7199,2)
+178 ;;=^5054344
+179 ;;^UTILITY(U,$J,358.3,7200,0)
+180 ;;=T81.718A^^55^479^21
+181 ;;^UTILITY(U,$J,358.3,7200,1,0)
+182 ;;=^358.31IA^4^2
+183 ;;^UTILITY(U,$J,358.3,7200,1,3,0)
+184 ;;=3^Complication of Artery Following Procedure NEC,Init Encntr
+185 ;;^UTILITY(U,$J,358.3,7200,1,4,0)
+186 ;;=4^T81.718A
+187 ;;^UTILITY(U,$J,358.3,7200,2)
+188 ;;=^5054644
+189 ;;^UTILITY(U,$J,358.3,7201,0)
+190 ;;=T81.72XA^^55^479^26
+191 ;;^UTILITY(U,$J,358.3,7201,1,0)
+192 ;;=^358.31IA^4^2
+193 ;;^UTILITY(U,$J,358.3,7201,1,3,0)
+194 ;;=3^Complication of Vein Following Procedure NEC,Init Encntr
+195 ;;^UTILITY(U,$J,358.3,7201,1,4,0)
+196 ;;=4^T81.72XA
+197 ;;^UTILITY(U,$J,358.3,7201,2)
+198 ;;=^5054650
+199 ;;^UTILITY(U,$J,358.3,7202,0)
+200 ;;=T82.817A^^55^479^30
+201 ;;^UTILITY(U,$J,358.3,7202,1,0)
+202 ;;=^358.31IA^4^2
+203 ;;^UTILITY(U,$J,358.3,7202,1,3,0)
+204 ;;=3^Embolism of Cardiac Prosthetic Device/Implant/Graft,Init Encntr
+205 ;;^UTILITY(U,$J,358.3,7202,1,4,0)
+206 ;;=4^T82.817A
+207 ;;^UTILITY(U,$J,358.3,7202,2)
+208 ;;=^5054914
+209 ;;^UTILITY(U,$J,358.3,7203,0)
+210 ;;=T82.818A^^55^479^31
+211 ;;^UTILITY(U,$J,358.3,7203,1,0)
+212 ;;=^358.31IA^4^2
+213 ;;^UTILITY(U,$J,358.3,7203,1,3,0)
+214 ;;=3^Embolism of Vascular Prosthetic Device/Implant/Graft,Init Encntr
+215 ;;^UTILITY(U,$J,358.3,7203,1,4,0)
+216 ;;=4^T82.818A
+217 ;;^UTILITY(U,$J,358.3,7203,2)
+218 ;;=^5054917
+219 ;;^UTILITY(U,$J,358.3,7204,0)
+220 ;;=I27.0^^55^479^61
+221 ;;^UTILITY(U,$J,358.3,7204,1,0)
+222 ;;=^358.31IA^4^2
+223 ;;^UTILITY(U,$J,358.3,7204,1,3,0)
+224 ;;=3^Primary Pulmonary Hypertension
+225 ;;^UTILITY(U,$J,358.3,7204,1,4,0)
+226 ;;=4^I27.0
+227 ;;^UTILITY(U,$J,358.3,7204,2)
+228 ;;=^265310
+229 ;;^UTILITY(U,$J,358.3,7205,0)
+230 ;;=I27.1^^55^479^47
+231 ;;^UTILITY(U,$J,358.3,7205,1,0)
+232 ;;=^358.31IA^4^2
+233 ;;^UTILITY(U,$J,358.3,7205,1,3,0)
+234 ;;=3^Kyphoscoliotic Hrt Disease
+235 ;;^UTILITY(U,$J,358.3,7205,1,4,0)
+236 ;;=4^I27.1
+237 ;;^UTILITY(U,$J,358.3,7205,2)
+238 ;;=^265120
+239 ;;^UTILITY(U,$J,358.3,7206,0)
+240 ;;=I27.89^^55^479^66
+241 ;;^UTILITY(U,$J,358.3,7206,1,0)
+242 ;;=^358.31IA^4^2
+243 ;;^UTILITY(U,$J,358.3,7206,1,3,0)
+244 ;;=3^Pulmonary Hrt Diseases NEC
+245 ;;^UTILITY(U,$J,358.3,7206,1,4,0)
+246 ;;=4^I27.89
+247 ;;^UTILITY(U,$J,358.3,7206,2)
+248 ;;=^5007153
+249 ;;^UTILITY(U,$J,358.3,7207,0)
+250 ;;=I27.81^^55^479^29
+251 ;;^UTILITY(U,$J,358.3,7207,1,0)
+252 ;;=^358.31IA^4^2
+253 ;;^UTILITY(U,$J,358.3,7207,1,3,0)
+254 ;;=3^Cor Pulmonale,Chronic
+255 ;;^UTILITY(U,$J,358.3,7207,1,4,0)
+256 ;;=4^I27.81
+257 ;;^UTILITY(U,$J,358.3,7207,2)
+258 ;;=^5007152
+259 ;;^UTILITY(U,$J,358.3,7208,0)
+260 ;;=I42.1^^55^479^51
+261 ;;^UTILITY(U,$J,358.3,7208,1,0)
+262 ;;=^358.31IA^4^2
+263 ;;^UTILITY(U,$J,358.3,7208,1,3,0)
+264 ;;=3^Obstructive Hypertrophic Cardiomyopathy
+265 ;;^UTILITY(U,$J,358.3,7208,1,4,0)
+266 ;;=4^I42.1
+267 ;;^UTILITY(U,$J,358.3,7208,2)
+268 ;;=^340520
+269 ;;^UTILITY(U,$J,358.3,7209,0)
+270 ;;=I42.2^^55^479^46
+271 ;;^UTILITY(U,$J,358.3,7209,1,0)
+272 ;;=^358.31IA^4^2
+273 ;;^UTILITY(U,$J,358.3,7209,1,3,0)
+274 ;;=3^Hypertrophic Cardiomyopathy NEC
+275 ;;^UTILITY(U,$J,358.3,7209,1,4,0)
+276 ;;=4^I42.2
+277 ;;^UTILITY(U,$J,358.3,7209,2)
+278 ;;=^340521
+279 ;;^UTILITY(U,$J,358.3,7210,0)
+280 ;;=I42.5^^55^479^67
+281 ;;^UTILITY(U,$J,358.3,7210,1,0)
+282 ;;=^358.31IA^4^2
+283 ;;^UTILITY(U,$J,358.3,7210,1,3,0)
+284 ;;=3^Restrictive Cardiomyopathy NEC
+285 ;;^UTILITY(U,$J,358.3,7210,1,4,0)
+286 ;;=4^I42.5
+287 ;;^UTILITY(U,$J,358.3,7210,2)
+288 ;;=^5007196
+289 ;;^UTILITY(U,$J,358.3,7211,0)
+290 ;;=I42.6^^55^479^11
+291 ;;^UTILITY(U,$J,358.3,7211,1,0)
+292 ;;=^358.31IA^4^2
+293 ;;^UTILITY(U,$J,358.3,7211,1,3,0)
+294 ;;=3^Alcoholic Cardiomyopathy
+295 ;;^UTILITY(U,$J,358.3,7211,1,4,0)
+296 ;;=4^I42.6
+297 ;;^UTILITY(U,$J,358.3,7211,2)
+298 ;;=^5007197
+299 ;;^UTILITY(U,$J,358.3,7212,0)
+300 ;;=I43.^^55^479^16
+301 ;;^UTILITY(U,$J,358.3,7212,1,0)
+302 ;;=^358.31IA^4^2
+303 ;;^UTILITY(U,$J,358.3,7212,1,3,0)
+304 ;;=3^Cardiomyopathy in Diseases Classified Elsewhere
+305 ;;^UTILITY(U,$J,358.3,7212,1,4,0)
+306 ;;=4^I43.
+307 ;;^UTILITY(U,$J,358.3,7212,2)
+308 ;;=^5007201
+309 ;;^UTILITY(U,$J,358.3,7213,0)
+310 ;;=I42.7^^55^479^15
+311 ;;^UTILITY(U,$J,358.3,7213,1,0)
+312 ;;=^358.31IA^4^2
+313 ;;^UTILITY(U,$J,358.3,7213,1,3,0)
+314 ;;=3^Cardiomyopathy d/t Drug/External Agent
+315 ;;^UTILITY(U,$J,358.3,7213,1,4,0)
+316 ;;=4^I42.7
+317 ;;^UTILITY(U,$J,358.3,7213,2)
+318 ;;=^5007198
+319 ;;^UTILITY(U,$J,358.3,7214,0)
+320 ;;=I42.9^^55^479^17
+321 ;;^UTILITY(U,$J,358.3,7214,1,0)
+322 ;;=^358.31IA^4^2
+323 ;;^UTILITY(U,$J,358.3,7214,1,3,0)
+324 ;;=3^Cardiomyopathy,Unspec
+325 ;;^UTILITY(U,$J,358.3,7214,1,4,0)
+326 ;;=4^I42.9
+327 ;;^UTILITY(U,$J,358.3,7214,2)
+328 ;;=^5007200
+329 ;;^UTILITY(U,$J,358.3,7215,0)
+330 ;;=I50.9^^55^479^35
+331 ;;^UTILITY(U,$J,358.3,7215,1,0)
+332 ;;=^358.31IA^4^2
+333 ;;^UTILITY(U,$J,358.3,7215,1,3,0)
+334 ;;=3^Heart Failure,Unspec
+335 ;;^UTILITY(U,$J,358.3,7215,1,4,0)
+336 ;;=4^I50.9
+337 ;;^UTILITY(U,$J,358.3,7215,2)
+338 ;;=^5007251
+339 ;;^UTILITY(U,$J,358.3,7216,0)
+340 ;;=I50.1^^55^479^48
+341 ;;^UTILITY(U,$J,358.3,7216,1,0)
+342 ;;=^358.31IA^4^2
+343 ;;^UTILITY(U,$J,358.3,7216,1,3,0)
+344 ;;=3^Left Ventricular Failure
+345 ;;^UTILITY(U,$J,358.3,7216,1,4,0)
+346 ;;=4^I50.1
+347 ;;^UTILITY(U,$J,358.3,7216,2)
+348 ;;=^5007238
+349 ;;^UTILITY(U,$J,358.3,7217,0)
+350 ;;=I50.20^^55^479^72
+351 ;;^UTILITY(U,$J,358.3,7217,1,0)
+352 ;;=^358.31IA^4^2
+353 ;;^UTILITY(U,$J,358.3,7217,1,3,0)
+354 ;;=3^Systolic Congestive Heart Failure,Unspec
+355 ;;^UTILITY(U,$J,358.3,7217,1,4,0)
+356 ;;=4^I50.20
+357 ;;^UTILITY(U,$J,358.3,7217,2)
+358 ;;=^5007239
+359 ;;^UTILITY(U,$J,358.3,7218,0)
+360 ;;=I50.40^^55^479^71
+361 ;;^UTILITY(U,$J,358.3,7218,1,0)
+362 ;;=^358.31IA^4^2
+363 ;;^UTILITY(U,$J,358.3,7218,1,3,0)
+364 ;;=3^Systolic & Diastolic Congestive Heart Failure,Unspec
+365 ;;^UTILITY(U,$J,358.3,7218,1,4,0)
+366 ;;=4^I50.40
+367 ;;^UTILITY(U,$J,358.3,7218,2)
+368 ;;=^5007247
+369 ;;^UTILITY(U,$J,358.3,7219,0)
+370 ;;=I51.7^^55^479^14
+371 ;;^UTILITY(U,$J,358.3,7219,1,0)
+372 ;;=^358.31IA^4^2
+373 ;;^UTILITY(U,$J,358.3,7219,1,3,0)
+374 ;;=3^Cardiomegaly
+375 ;;^UTILITY(U,$J,358.3,7219,1,4,0)
+376 ;;=4^I51.7
+377 ;;^UTILITY(U,$J,358.3,7219,2)
+378 ;;=^5007257
+379 ;;^UTILITY(U,$J,358.3,7220,0)
+380 ;;=I97.111^^55^479^57
+381 ;;^UTILITY(U,$J,358.3,7220,1,0)
+382 ;;=^358.31IA^4^2
+383 ;;^UTILITY(U,$J,358.3,7220,1,3,0)
+384 ;;=3^Postprocedural Cardiac Insufficiency Following Oth Surgery
+385 ;;^UTILITY(U,$J,358.3,7220,1,4,0)
+386 ;;=4^I97.111
+387 ;;^UTILITY(U,$J,358.3,7220,2)
+388 ;;=^5008084
+389 ;;^UTILITY(U,$J,358.3,7221,0)
+390 ;;=I97.120^^55^479^53
+391 ;;^UTILITY(U,$J,358.3,7221,1,0)
+392 ;;=^358.31IA^4^2
+393 ;;^UTILITY(U,$J,358.3,7221,1,3,0)
+394 ;;=3^Postprocedural Cardiac Arrest Following Cardiac Surgery
+395 ;;^UTILITY(U,$J,358.3,7221,1,4,0)
+396 ;;=4^I97.120
+397 ;;^UTILITY(U,$J,358.3,7221,2)
+398 ;;=^5008085
+399 ;;^UTILITY(U,$J,358.3,7222,0)
+400 ;;=I97.121^^55^479^54
+401 ;;^UTILITY(U,$J,358.3,7222,1,0)
+402 ;;=^358.31IA^4^2
+403 ;;^UTILITY(U,$J,358.3,7222,1,3,0)
+404 ;;=3^Postprocedural Cardiac Arrest Following Oth Surgery
+405 ;;^UTILITY(U,$J,358.3,7222,1,4,0)
+406 ;;=4^I97.121
+407 ;;^UTILITY(U,$J,358.3,7222,2)
+408 ;;=^5008086
+409 ;;^UTILITY(U,$J,358.3,7223,0)
+410 ;;=I97.130^^55^479^59
+411 ;;^UTILITY(U,$J,358.3,7223,1,0)
+412 ;;=^358.31IA^4^2
+413 ;;^UTILITY(U,$J,358.3,7223,1,3,0)
+414 ;;=3^Postprocedural Heart Failure Following Cardiac Surgery
+415 ;;^UTILITY(U,$J,358.3,7223,1,4,0)
+416 ;;=4^I97.130
+417 ;;^UTILITY(U,$J,358.3,7223,2)
+418 ;;=^5008087
+419 ;;^UTILITY(U,$J,358.3,7224,0)
+420 ;;=I97.131^^55^479^60
+421 ;;^UTILITY(U,$J,358.3,7224,1,0)
+422 ;;=^358.31IA^4^2
+423 ;;^UTILITY(U,$J,358.3,7224,1,3,0)
+424 ;;=3^Postprocedural Heart Failure Following Oth Surgery
+425 ;;^UTILITY(U,$J,358.3,7224,1,4,0)
+426 ;;=4^I97.131
+427 ;;^UTILITY(U,$J,358.3,7224,2)
+428 ;;=^5008088
+429 ;;^UTILITY(U,$J,358.3,7225,0)
+430 ;;=I97.190^^55^479^55
+431 ;;^UTILITY(U,$J,358.3,7225,1,0)
+432 ;;=^358.31IA^4^2
+433 ;;^UTILITY(U,$J,358.3,7225,1,3,0)
+434 ;;=3^Postprocedural Cardiac Function Disturbance Following Cardiac Surgery
+435 ;;^UTILITY(U,$J,358.3,7225,1,4,0)
+436 ;;=4^I97.190
+437 ;;^UTILITY(U,$J,358.3,7225,2)
+438 ;;=^5008089
+439 ;;^UTILITY(U,$J,358.3,7226,0)
+440 ;;=I97.191^^55^479^56
+441 ;;^UTILITY(U,$J,358.3,7226,1,0)
+442 ;;=^358.31IA^4^2
+443 ;;^UTILITY(U,$J,358.3,7226,1,3,0)
+444 ;;=3^Postprocedural Cardiac Function Disturbance Following Oth Surgery
+445 ;;^UTILITY(U,$J,358.3,7226,1,4,0)
+446 ;;=4^I97.191
+447 ;;^UTILITY(U,$J,358.3,7226,2)
+448 ;;=^5008090
+449 ;;^UTILITY(U,$J,358.3,7227,0)
+450 ;;=I97.0^^55^479^52
+451 ;;^UTILITY(U,$J,358.3,7227,1,0)
+452 ;;=^358.31IA^4^2
+453 ;;^UTILITY(U,$J,358.3,7227,1,3,0)
+454 ;;=3^Postcardiotomy Syndrome
+455 ;;^UTILITY(U,$J,358.3,7227,1,4,0)
+456 ;;=4^I97.0
+457 ;;^UTILITY(U,$J,358.3,7227,2)
+458 ;;=^5008082
+459 ;;^UTILITY(U,$J,358.3,7228,0)
+460 ;;=I97.110^^55^479^58
+461 ;;^UTILITY(U,$J,358.3,7228,1,0)
+462 ;;=^358.31IA^4^2
+463 ;;^UTILITY(U,$J,358.3,7228,1,3,0)
+464 ;;=3^Postprocedural Cardiac Insufficiency Following Cardiac Surgery
+465 ;;^UTILITY(U,$J,358.3,7228,1,4,0)
+466 ;;=4^I97.110
+467 ;;^UTILITY(U,$J,358.3,7228,2)
+468 ;;=^5008083
+469 ;;^UTILITY(U,$J,358.3,7229,0)
+470 ;;=T86.20^^55^479^22
+471 ;;^UTILITY(U,$J,358.3,7229,1,0)
+472 ;;=^358.31IA^4^2
+473 ;;^UTILITY(U,$J,358.3,7229,1,3,0)
+474 ;;=3^Complication of Heart Transplant,Unspec
+475 ;;^UTILITY(U,$J,358.3,7229,1,4,0)
+476 ;;=4^T86.20
+477 ;;^UTILITY(U,$J,358.3,7229,2)
+478 ;;=^5055713
+479 ;;^UTILITY(U,$J,358.3,7230,0)
+480 ;;=T86.21^^55^479^38
+481 ;;^UTILITY(U,$J,358.3,7230,1,0)
+482 ;;=^358.31IA^4^2
+483 ;;^UTILITY(U,$J,358.3,7230,1,3,0)
+484 ;;=3^Heart Transplant Rejection
+485 ;;^UTILITY(U,$J,358.3,7230,1,4,0)
+486 ;;=4^T86.21
+487 ;;^UTILITY(U,$J,358.3,7230,2)
+488 ;;=^5055714
+489 ;;^UTILITY(U,$J,358.3,7231,0)
+490 ;;=T86.22^^55^479^36
+491 ;;^UTILITY(U,$J,358.3,7231,1,0)
+492 ;;=^358.31IA^4^2
+493 ;;^UTILITY(U,$J,358.3,7231,1,3,0)
+494 ;;=3^Heart Transplant Failure
+495 ;;^UTILITY(U,$J,358.3,7231,1,4,0)
+496 ;;=4^T86.22
+497 ;;^UTILITY(U,$J,358.3,7231,2)
+498 ;;=^5055715
+499 ;;^UTILITY(U,$J,358.3,7232,0)
+500 ;;=T86.23^^55^479^37
+501 ;;^UTILITY(U,$J,358.3,7232,1,0)
+502 ;;=^358.31IA^4^2
+503 ;;^UTILITY(U,$J,358.3,7232,1,3,0)
+504 ;;=3^Heart Transplant Infection
+505 ;;^UTILITY(U,$J,358.3,7232,1,4,0)
+506 ;;=4^T86.23
+507 ;;^UTILITY(U,$J,358.3,7232,2)
+508 ;;=^5055716
+509 ;;^UTILITY(U,$J,358.3,7233,0)
+510 ;;=T86.290^^55^479^13
+511 ;;^UTILITY(U,$J,358.3,7233,1,0)
+512 ;;=^358.31IA^4^2
+513 ;;^UTILITY(U,$J,358.3,7233,1,3,0)
+514 ;;=3^Cardiac Allograft Vasculopathy
+515 ;;^UTILITY(U,$J,358.3,7233,1,4,0)
+516 ;;=4^T86.290
+517 ;;^UTILITY(U,$J,358.3,7233,2)
+518 ;;=^5055717
+519 ;;^UTILITY(U,$J,358.3,7234,0)
+520 ;;=T86.298^^55^479^27
+521 ;;^UTILITY(U,$J,358.3,7234,1,0)
+522 ;;=^358.31IA^4^2
+523 ;;^UTILITY(U,$J,358.3,7234,1,3,0)
+524 ;;=3^Complications of Heart Transplant NEC
+525 ;;^UTILITY(U,$J,358.3,7234,1,4,0)
+526 ;;=4^T86.298
+527 ;;^UTILITY(U,$J,358.3,7234,2)
+528 ;;=^5055718
+529 ;;^UTILITY(U,$J,358.3,7235,0)
+530 ;;=T86.30^^55^479^23
+531 ;;^UTILITY(U,$J,358.3,7235,1,0)
+532 ;;=^358.31IA^4^2
+533 ;;^UTILITY(U,$J,358.3,7235,1,3,0)
+534 ;;=3^Complication of Heart-Lung Transplant,Unspec
+535 ;;^UTILITY(U,$J,358.3,7235,1,4,0)
+536 ;;=4^T86.30
+537 ;;^UTILITY(U,$J,358.3,7235,2)
+538 ;;=^5055719
+539 ;;^UTILITY(U,$J,358.3,7236,0)
+540 ;;=T86.39^^55^479^28
+541 ;;^UTILITY(U,$J,358.3,7236,1,0)
+542 ;;=^358.31IA^4^2
+543 ;;^UTILITY(U,$J,358.3,7236,1,3,0)
+544 ;;=3^Complications of Heart-Lung Transplant NEC
+545 ;;^UTILITY(U,$J,358.3,7236,1,4,0)
+546 ;;=4^T86.39
+547 ;;^UTILITY(U,$J,358.3,7236,2)
+548 ;;=^5055723
+549 ;;^UTILITY(U,$J,358.3,7237,0)
+550 ;;=T86.31^^55^479^43
+551 ;;^UTILITY(U,$J,358.3,7237,1,0)
+552 ;;=^358.31IA^4^2
+553 ;;^UTILITY(U,$J,358.3,7237,1,3,0)
+554 ;;=3^Heart-Lung Transplant Rejection
+555 ;;^UTILITY(U,$J,358.3,7237,1,4,0)
+556 ;;=4^T86.31
+557 ;;^UTILITY(U,$J,358.3,7237,2)
+558 ;;=^5055720
+559 ;;^UTILITY(U,$J,358.3,7238,0)
+560 ;;=T86.32^^55^479^41
+561 ;;^UTILITY(U,$J,358.3,7238,1,0)
+562 ;;=^358.31IA^4^2
+563 ;;^UTILITY(U,$J,358.3,7238,1,3,0)
+564 ;;=3^Heart-Lung Transplant Failure
+565 ;;^UTILITY(U,$J,358.3,7238,1,4,0)
+566 ;;=4^T86.32
+567 ;;^UTILITY(U,$J,358.3,7238,2)
+568 ;;=^5055721
+569 ;;^UTILITY(U,$J,358.3,7239,0)
+570 ;;=T86.33^^55^479^42
+571 ;;^UTILITY(U,$J,358.3,7239,1,0)
+572 ;;=^358.31IA^4^2
+573 ;;^UTILITY(U,$J,358.3,7239,1,3,0)
+574 ;;=3^Heart-Lung Transplant Infection
+575 ;;^UTILITY(U,$J,358.3,7239,1,4,0)
+576 ;;=4^T86.33
+577 ;;^UTILITY(U,$J,358.3,7239,2)
+578 ;;=^5055722
+579 ;;^UTILITY(U,$J,358.3,7240,0)
+580 ;;=T86.810^^55^479^50
+581 ;;^UTILITY(U,$J,358.3,7240,1,0)
+582 ;;=^358.31IA^4^2
+583 ;;^UTILITY(U,$J,358.3,7240,1,3,0)
+584 ;;=3^Lung Transplant Rejection
+585 ;;^UTILITY(U,$J,358.3,7240,1,4,0)
+586 ;;=4^T86.810
+587 ;;^UTILITY(U,$J,358.3,7240,2)
+588 ;;=^5055730
+589 ;;^UTILITY(U,$J,358.3,7241,0)
+590 ;;=T86.811^^55^479^49
+591 ;;^UTILITY(U,$J,358.3,7241,1,0)
+592 ;;=^358.31IA^4^2
+593 ;;^UTILITY(U,$J,358.3,7241,1,3,0)
+594 ;;=3^Lung Transplant Failure
+595 ;;^UTILITY(U,$J,358.3,7241,1,4,0)
+596 ;;=4^T86.811
+597 ;;^UTILITY(U,$J,358.3,7241,2)
+598 ;;=^5055731
+599 ;;^UTILITY(U,$J,358.3,7242,0)
+600 ;;=T86.819^^55^479^25
+601 ;;^UTILITY(U,$J,358.3,7242,1,0)
+602 ;;=^358.31IA^4^2
+603 ;;^UTILITY(U,$J,358.3,7242,1,3,0)
+604 ;;=3^Complication of Lung Transplant,Unspec
+605 ;;^UTILITY(U,$J,358.3,7242,1,4,0)
+606 ;;=4^T86.819
+607 ;;^UTILITY(U,$J,358.3,7242,2)
+608 ;;=^5137975
+609 ;;^UTILITY(U,$J,358.3,7243,0)
+610 ;;=T86.818^^55^479^24
+611 ;;^UTILITY(U,$J,358.3,7243,1,0)
+612 ;;=^358.31IA^4^2
+613 ;;^UTILITY(U,$J,358.3,7243,1,3,0)
+614 ;;=3^Complication of Lung Transplant NEC
+615 ;;^UTILITY(U,$J,358.3,7243,1,4,0)
+616 ;;=4^T86.818
+617 ;;^UTILITY(U,$J,358.3,7243,2)
+618 ;;=^5055733
+619 ;;^UTILITY(U,$J,358.3,7244,0)
+620 ;;=Z94.1^^55^479^39
+621 ;;^UTILITY(U,$J,358.3,7244,1,0)
+622 ;;=^358.31IA^4^2
+623 ;;^UTILITY(U,$J,358.3,7244,1,3,0)
+624 ;;=3^Heart Transplant Status
+625 ;;^UTILITY(U,$J,358.3,7244,1,4,0)
+626 ;;=4^Z94.1
+627 ;;^UTILITY(U,$J,358.3,7244,2)
+628 ;;=^5063655
+629 ;;^UTILITY(U,$J,358.3,7245,0)
+630 ;;=Z94.3^^55^479^40
+631 ;;^UTILITY(U,$J,358.3,7245,1,0)
+632 ;;=^358.31IA^4^2
+633 ;;^UTILITY(U,$J,358.3,7245,1,3,0)
+634 ;;=3^Heart and Lungs Transplant Status
+635 ;;^UTILITY(U,$J,358.3,7245,1,4,0)
+636 ;;=4^Z94.3
+637 ;;^UTILITY(U,$J,358.3,7245,2)
+638 ;;=^5063657
+639 ;;^UTILITY(U,$J,358.3,7246,0)
+640 ;;=Z48.21^^55^479^8
+641 ;;^UTILITY(U,$J,358.3,7246,1,0)
+642 ;;=^358.31IA^4^2
+643 ;;^UTILITY(U,$J,358.3,7246,1,3,0)
+644 ;;=3^Aftercare Following Heart Transplant
+645 ;;^UTILITY(U,$J,358.3,7246,1,4,0)
+646 ;;=4^Z48.21
+647 ;;^UTILITY(U,$J,358.3,7246,2)
+648 ;;=^5063038
+649 ;;^UTILITY(U,$J,358.3,7247,0)
+650 ;;=Z48.280^^55^479^9
+651 ;;^UTILITY(U,$J,358.3,7247,1,0)
+652 ;;=^358.31IA^4^2
+653 ;;^UTILITY(U,$J,358.3,7247,1,3,0)
+654 ;;=3^Aftercare Following Heart-Lung Transplant
+655 ;;^UTILITY(U,$J,358.3,7247,1,4,0)
+656 ;;=4^Z48.280
+657 ;;^UTILITY(U,$J,358.3,7247,2)
+658 ;;=^5063042
+659 ;;^UTILITY(U,$J,358.3,7248,0)
+660 ;;=I50.41^^55^479^1
+661 ;;^UTILITY(U,$J,358.3,7248,1,0)
+662 ;;=^358.31IA^4^2
+663 ;;^UTILITY(U,$J,358.3,7248,1,3,0)
+664 ;;=3^Acute Combined Systolic & Diastolic Hrt Failure
+665 ;;^UTILITY(U,$J,358.3,7248,1,4,0)
+666 ;;=4^I50.41
+667 ;;^UTILITY(U,$J,358.3,7248,2)
+668 ;;=^5007248
+669 ;;^UTILITY(U,$J,358.3,7249,0)
+670 ;;=I50.30^^55^479^2
+671 ;;^UTILITY(U,$J,358.3,7249,1,0)
+672 ;;=^358.31IA^4^2
+673 ;;^UTILITY(U,$J,358.3,7249,1,3,0)
+674 ;;=3^Acute Diastolic Heart Failure
+675 ;;^UTILITY(U,$J,358.3,7249,1,4,0)
+676 ;;=4^I50.30
+677 ;;^UTILITY(U,$J,358.3,7249,2)
+678 ;;=^5007243
+679 ;;^UTILITY(U,$J,358.3,7250,0)
+680 ;;=I50.33^^55^479^5
+681 ;;^UTILITY(U,$J,358.3,7250,1,0)
+682 ;;=^358.31IA^4^2
