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

IBDEI038.m

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