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

IBDEI014.m

Go to the documentation of this file.
IBDEI014 ; ; 03-MAY-2021
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,2149,1,4,0)
 ;;=4^I38.
 ;;^UTILITY(U,$J,358.3,2149,2)
 ;;=^40327
 ;;^UTILITY(U,$J,358.3,2150,0)
 ;;=T82.01XA^^21^139^1
 ;;^UTILITY(U,$J,358.3,2150,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2150,1,3,0)
 ;;=3^Breakdown of Heart Valve Prosthesis,Init Encntr
 ;;^UTILITY(U,$J,358.3,2150,1,4,0)
 ;;=4^T82.01XA
 ;;^UTILITY(U,$J,358.3,2150,2)
 ;;=^5054668
 ;;^UTILITY(U,$J,358.3,2151,0)
 ;;=T82.02XA^^21^139^2
 ;;^UTILITY(U,$J,358.3,2151,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2151,1,3,0)
 ;;=3^Displacement of Heart Valve Prosthesis,Init Encntr
 ;;^UTILITY(U,$J,358.3,2151,1,4,0)
 ;;=4^T82.02XA
 ;;^UTILITY(U,$J,358.3,2151,2)
 ;;=^5054671
 ;;^UTILITY(U,$J,358.3,2152,0)
 ;;=T82.03XA^^21^139^5
 ;;^UTILITY(U,$J,358.3,2152,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2152,1,3,0)
 ;;=3^Leakage of Heart Valve Prosthesis,Init Encntr
 ;;^UTILITY(U,$J,358.3,2152,1,4,0)
 ;;=4^T82.03XA
 ;;^UTILITY(U,$J,358.3,2152,2)
 ;;=^5054674
 ;;^UTILITY(U,$J,358.3,2153,0)
 ;;=T82.09XA^^21^139^7
 ;;^UTILITY(U,$J,358.3,2153,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2153,1,3,0)
 ;;=3^Mech Compl of Heart Valve Prosthesis,Init Encntr
 ;;^UTILITY(U,$J,358.3,2153,1,4,0)
 ;;=4^T82.09XA
 ;;^UTILITY(U,$J,358.3,2153,2)
 ;;=^5054677
 ;;^UTILITY(U,$J,358.3,2154,0)
 ;;=T82.817A^^21^139^3
 ;;^UTILITY(U,$J,358.3,2154,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2154,1,3,0)
 ;;=3^Embolism of Cardiac Prosthetic Device/Implant/Graft,Init Encntr
 ;;^UTILITY(U,$J,358.3,2154,1,4,0)
 ;;=4^T82.817A
 ;;^UTILITY(U,$J,358.3,2154,2)
 ;;=^5054914
 ;;^UTILITY(U,$J,358.3,2155,0)
 ;;=T82.867A^^21^139^9
 ;;^UTILITY(U,$J,358.3,2155,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2155,1,3,0)
 ;;=3^Thrombosis of Cardiac Prosthetic Device/Implant/Graft,Init Encntr
 ;;^UTILITY(U,$J,358.3,2155,1,4,0)
 ;;=4^T82.867A
 ;;^UTILITY(U,$J,358.3,2155,2)
 ;;=^5054944
 ;;^UTILITY(U,$J,358.3,2156,0)
 ;;=Z95.2^^21^139^8
 ;;^UTILITY(U,$J,358.3,2156,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2156,1,3,0)
 ;;=3^Presence of Prosthetic Heart Valve
 ;;^UTILITY(U,$J,358.3,2156,1,4,0)
 ;;=4^Z95.2
 ;;^UTILITY(U,$J,358.3,2156,2)
 ;;=^5063670
 ;;^UTILITY(U,$J,358.3,2157,0)
 ;;=Z79.01^^21^139^6
 ;;^UTILITY(U,$J,358.3,2157,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2157,1,3,0)
 ;;=3^Long Term Current Use of Anticoagulants
 ;;^UTILITY(U,$J,358.3,2157,1,4,0)
 ;;=4^Z79.01
 ;;^UTILITY(U,$J,358.3,2157,2)
 ;;=^5063330
 ;;^UTILITY(U,$J,358.3,2158,0)
 ;;=I65.1^^21^140^85
 ;;^UTILITY(U,$J,358.3,2158,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2158,1,3,0)
 ;;=3^Occlusion/Stenosis of Basilar Artery
 ;;^UTILITY(U,$J,358.3,2158,1,4,0)
 ;;=4^I65.1
 ;;^UTILITY(U,$J,358.3,2158,2)
 ;;=^269747
 ;;^UTILITY(U,$J,358.3,2159,0)
 ;;=I63.22^^21^140^60
 ;;^UTILITY(U,$J,358.3,2159,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2159,1,3,0)
 ;;=3^Cerebral Infarction d/t Unspec Occl/Stenosis of Basilar Arteries
 ;;^UTILITY(U,$J,358.3,2159,1,4,0)
 ;;=4^I63.22
 ;;^UTILITY(U,$J,358.3,2159,2)
 ;;=^5007315
 ;;^UTILITY(U,$J,358.3,2160,0)
 ;;=I65.21^^21^140^91
 ;;^UTILITY(U,$J,358.3,2160,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2160,1,3,0)
 ;;=3^Occlusion/Stenosis of Right Carotid Artery
 ;;^UTILITY(U,$J,358.3,2160,1,4,0)
 ;;=4^I65.21
 ;;^UTILITY(U,$J,358.3,2160,2)
 ;;=^5007360
 ;;^UTILITY(U,$J,358.3,2161,0)
 ;;=I65.22^^21^140^88
 ;;^UTILITY(U,$J,358.3,2161,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2161,1,3,0)
 ;;=3^Occlusion/Stenosis of Left Carotid Artery
 ;;^UTILITY(U,$J,358.3,2161,1,4,0)
 ;;=4^I65.22
 ;;^UTILITY(U,$J,358.3,2161,2)
 ;;=^5007361
 ;;^UTILITY(U,$J,358.3,2162,0)
 ;;=I65.23^^21^140^86
 ;;^UTILITY(U,$J,358.3,2162,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2162,1,3,0)
 ;;=3^Occlusion/Stenosis of Bilateral Carotid Arteries
 ;;^UTILITY(U,$J,358.3,2162,1,4,0)
 ;;=4^I65.23
 ;;^UTILITY(U,$J,358.3,2162,2)
 ;;=^5007362
 ;;^UTILITY(U,$J,358.3,2163,0)
 ;;=I63.031^^21^140^59
 ;;^UTILITY(U,$J,358.3,2163,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2163,1,3,0)
 ;;=3^Cerebral Infarction d/t Thrombosis of Right Carotid Artery
 ;;^UTILITY(U,$J,358.3,2163,1,4,0)
 ;;=4^I63.031
 ;;^UTILITY(U,$J,358.3,2163,2)
 ;;=^5007299
 ;;^UTILITY(U,$J,358.3,2164,0)
 ;;=I65.01^^21^140^92
 ;;^UTILITY(U,$J,358.3,2164,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2164,1,3,0)
 ;;=3^Occlusion/Stenosis of Right Vertebral Artery
 ;;^UTILITY(U,$J,358.3,2164,1,4,0)
 ;;=4^I65.01
 ;;^UTILITY(U,$J,358.3,2164,2)
 ;;=^5007356
 ;;^UTILITY(U,$J,358.3,2165,0)
 ;;=I65.02^^21^140^89
 ;;^UTILITY(U,$J,358.3,2165,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2165,1,3,0)
 ;;=3^Occlusion/Stenosis of Left Vertebral Artery
 ;;^UTILITY(U,$J,358.3,2165,1,4,0)
 ;;=4^I65.02
 ;;^UTILITY(U,$J,358.3,2165,2)
 ;;=^5007357
 ;;^UTILITY(U,$J,358.3,2166,0)
 ;;=I65.03^^21^140^87
 ;;^UTILITY(U,$J,358.3,2166,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2166,1,3,0)
 ;;=3^Occlusion/Stenosis of Bilateral Vertebral Arteries
 ;;^UTILITY(U,$J,358.3,2166,1,4,0)
 ;;=4^I65.03
 ;;^UTILITY(U,$J,358.3,2166,2)
 ;;=^5007358
 ;;^UTILITY(U,$J,358.3,2167,0)
 ;;=I65.8^^21^140^90
 ;;^UTILITY(U,$J,358.3,2167,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2167,1,3,0)
 ;;=3^Occlusion/Stenosis of Precerebral Arteries NEC
 ;;^UTILITY(U,$J,358.3,2167,1,4,0)
 ;;=4^I65.8
 ;;^UTILITY(U,$J,358.3,2167,2)
 ;;=^5007364
 ;;^UTILITY(U,$J,358.3,2168,0)
 ;;=I63.032^^21^140^58
 ;;^UTILITY(U,$J,358.3,2168,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2168,1,3,0)
 ;;=3^Cerebral Infarction d/t Thrombosis of Left Carotid Artery
 ;;^UTILITY(U,$J,358.3,2168,1,4,0)
 ;;=4^I63.032
 ;;^UTILITY(U,$J,358.3,2168,2)
 ;;=^5007300
 ;;^UTILITY(U,$J,358.3,2169,0)
 ;;=I63.131^^21^140^56
 ;;^UTILITY(U,$J,358.3,2169,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2169,1,3,0)
 ;;=3^Cerebral Infarction d/t Embolism of Right Carotid Artery
 ;;^UTILITY(U,$J,358.3,2169,1,4,0)
 ;;=4^I63.131
 ;;^UTILITY(U,$J,358.3,2169,2)
 ;;=^5007308
 ;;^UTILITY(U,$J,358.3,2170,0)
 ;;=I63.132^^21^140^55
 ;;^UTILITY(U,$J,358.3,2170,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2170,1,3,0)
 ;;=3^Cerebral Infarction d/t Embolism of Left Carotid Artery
 ;;^UTILITY(U,$J,358.3,2170,1,4,0)
 ;;=4^I63.132
 ;;^UTILITY(U,$J,358.3,2170,2)
 ;;=^5007309
 ;;^UTILITY(U,$J,358.3,2171,0)
 ;;=I63.231^^21^140^61
 ;;^UTILITY(U,$J,358.3,2171,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2171,1,3,0)
 ;;=3^Cerebral Infarction d/t Unspec Occl/Stenosis of Right Carotid Artery
 ;;^UTILITY(U,$J,358.3,2171,1,4,0)
 ;;=4^I63.231
 ;;^UTILITY(U,$J,358.3,2171,2)
 ;;=^5007316
 ;;^UTILITY(U,$J,358.3,2172,0)
 ;;=I63.232^^21^140^62
 ;;^UTILITY(U,$J,358.3,2172,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2172,1,3,0)
 ;;=3^Cerebral Infarction d/t Unspec Occl/Stenosis of Left Carotid Artery
 ;;^UTILITY(U,$J,358.3,2172,1,4,0)
 ;;=4^I63.232
 ;;^UTILITY(U,$J,358.3,2172,2)
 ;;=^5007317
 ;;^UTILITY(U,$J,358.3,2173,0)
 ;;=I63.211^^21^140^63
 ;;^UTILITY(U,$J,358.3,2173,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2173,1,3,0)
 ;;=3^Cerebral Infarction d/t Unspec Occl/Stenosis of Right Vertebral Artery
 ;;^UTILITY(U,$J,358.3,2173,1,4,0)
 ;;=4^I63.211
 ;;^UTILITY(U,$J,358.3,2173,2)
 ;;=^5007313
 ;;^UTILITY(U,$J,358.3,2174,0)
 ;;=I63.212^^21^140^64
 ;;^UTILITY(U,$J,358.3,2174,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2174,1,3,0)
 ;;=3^Cerebral Infarction d/t Unspec Occl/Stenosis of Left Vertebral Artery
 ;;^UTILITY(U,$J,358.3,2174,1,4,0)
 ;;=4^I63.212
 ;;^UTILITY(U,$J,358.3,2174,2)
 ;;=^5007314
 ;;^UTILITY(U,$J,358.3,2175,0)
 ;;=G45.9^^21^140^106
 ;;^UTILITY(U,$J,358.3,2175,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2175,1,3,0)
 ;;=3^Transient Cerebral Ischemic Attack,Unspec
 ;;^UTILITY(U,$J,358.3,2175,1,4,0)
 ;;=4^G45.9
 ;;^UTILITY(U,$J,358.3,2175,2)
 ;;=^5003959
 ;;^UTILITY(U,$J,358.3,2176,0)
 ;;=I70.0^^21^140^16
 ;;^UTILITY(U,$J,358.3,2176,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2176,1,3,0)
 ;;=3^Atherosclerosis of Aorta
 ;;^UTILITY(U,$J,358.3,2176,1,4,0)
 ;;=4^I70.0
 ;;^UTILITY(U,$J,358.3,2176,2)
 ;;=^269759
 ;;^UTILITY(U,$J,358.3,2177,0)
 ;;=I70.1^^21^140^18
 ;;^UTILITY(U,$J,358.3,2177,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2177,1,3,0)
 ;;=3^Atherosclerosis of Renal Artery
 ;;^UTILITY(U,$J,358.3,2177,1,4,0)
 ;;=4^I70.1
 ;;^UTILITY(U,$J,358.3,2177,2)
 ;;=^269760
 ;;^UTILITY(U,$J,358.3,2178,0)
 ;;=I70.211^^21^140^38
 ;;^UTILITY(U,$J,358.3,2178,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2178,1,3,0)
 ;;=3^Athscl Native Arteries of Right Leg w/ Intrmt Claud
 ;;^UTILITY(U,$J,358.3,2178,1,4,0)
 ;;=4^I70.211
 ;;^UTILITY(U,$J,358.3,2178,2)
 ;;=^5007578
 ;;^UTILITY(U,$J,358.3,2179,0)
 ;;=I70.212^^21^140^34
 ;;^UTILITY(U,$J,358.3,2179,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2179,1,3,0)
 ;;=3^Athscl Native Arteries of Left Leg w/ Intrmt Claud
 ;;^UTILITY(U,$J,358.3,2179,1,4,0)
 ;;=4^I70.212
 ;;^UTILITY(U,$J,358.3,2179,2)
 ;;=^5007579
 ;;^UTILITY(U,$J,358.3,2180,0)
 ;;=I70.213^^21^140^30
 ;;^UTILITY(U,$J,358.3,2180,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2180,1,3,0)
 ;;=3^Athscl Native Arteries of Bilateral Legs w/ Intrmt Claud
 ;;^UTILITY(U,$J,358.3,2180,1,4,0)
 ;;=4^I70.213
 ;;^UTILITY(U,$J,358.3,2180,2)
 ;;=^5007580
 ;;^UTILITY(U,$J,358.3,2181,0)
 ;;=I70.221^^21^140^39
 ;;^UTILITY(U,$J,358.3,2181,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2181,1,3,0)
 ;;=3^Athscl Native Arteries of Right Leg w/ Rest Pain
 ;;^UTILITY(U,$J,358.3,2181,1,4,0)
 ;;=4^I70.221
 ;;^UTILITY(U,$J,358.3,2181,2)
 ;;=^5007583
 ;;^UTILITY(U,$J,358.3,2182,0)
 ;;=I70.222^^21^140^35
 ;;^UTILITY(U,$J,358.3,2182,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2182,1,3,0)
 ;;=3^Athscl Native Arteries of Left Leg w/ Rest Pain
 ;;^UTILITY(U,$J,358.3,2182,1,4,0)
 ;;=4^I70.222
 ;;^UTILITY(U,$J,358.3,2182,2)
 ;;=^5007584
 ;;^UTILITY(U,$J,358.3,2183,0)
 ;;=I70.223^^21^140^31
 ;;^UTILITY(U,$J,358.3,2183,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2183,1,3,0)
 ;;=3^Athscl Native Arteries of Bilateral Legs w/ Rest Pain
 ;;^UTILITY(U,$J,358.3,2183,1,4,0)
 ;;=4^I70.223
 ;;^UTILITY(U,$J,358.3,2183,2)
 ;;=^5007585
 ;;^UTILITY(U,$J,358.3,2184,0)
 ;;=I70.231^^21^140^40
 ;;^UTILITY(U,$J,358.3,2184,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2184,1,3,0)
 ;;=3^Athscl Native Arteries of Right Leg w/ Thigh Ulceration
 ;;^UTILITY(U,$J,358.3,2184,1,4,0)
 ;;=4^I70.231
 ;;^UTILITY(U,$J,358.3,2184,2)
 ;;=^5007588
 ;;^UTILITY(U,$J,358.3,2185,0)
 ;;=I70.234^^21^140^41
 ;;^UTILITY(U,$J,358.3,2185,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2185,1,3,0)
 ;;=3^Athscl Native Arteries of Right Leg w/ Heel/Midfoot Ulcer
 ;;^UTILITY(U,$J,358.3,2185,1,4,0)
 ;;=4^I70.234
 ;;^UTILITY(U,$J,358.3,2185,2)
 ;;=^5007591
 ;;^UTILITY(U,$J,358.3,2186,0)
 ;;=I70.239^^21^140^42
 ;;^UTILITY(U,$J,358.3,2186,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2186,1,3,0)
 ;;=3^Athscl Native Arteries of Right Leg w/ Ulcer of Unspec Site
 ;;^UTILITY(U,$J,358.3,2186,1,4,0)
 ;;=4^I70.239
 ;;^UTILITY(U,$J,358.3,2186,2)
 ;;=^5007594
 ;;^UTILITY(U,$J,358.3,2187,0)
 ;;=I70.241^^21^140^36
 ;;^UTILITY(U,$J,358.3,2187,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2187,1,3,0)
 ;;=3^Athscl Native Arteries of Left Leg w/ Thigh Ulceration
 ;;^UTILITY(U,$J,358.3,2187,1,4,0)
 ;;=4^I70.241
 ;;^UTILITY(U,$J,358.3,2187,2)
 ;;=^5007595
 ;;^UTILITY(U,$J,358.3,2188,0)
 ;;=I70.249^^21^140^37
 ;;^UTILITY(U,$J,358.3,2188,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2188,1,3,0)
 ;;=3^Athscl Native Arteries of Left Leg w/ Ulcer of Unspec Site
 ;;^UTILITY(U,$J,358.3,2188,1,4,0)
 ;;=4^I70.249
 ;;^UTILITY(U,$J,358.3,2188,2)
 ;;=^5007601
 ;;^UTILITY(U,$J,358.3,2189,0)
 ;;=I70.262^^21^140^33
 ;;^UTILITY(U,$J,358.3,2189,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2189,1,3,0)
 ;;=3^Athscl Native Arteries of Left Leg w/ Gangrene
 ;;^UTILITY(U,$J,358.3,2189,1,4,0)
 ;;=4^I70.262
 ;;^UTILITY(U,$J,358.3,2189,2)
 ;;=^5007604
 ;;^UTILITY(U,$J,358.3,2190,0)
 ;;=I70.261^^21^140^43
 ;;^UTILITY(U,$J,358.3,2190,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2190,1,3,0)
 ;;=3^Athscl Native Arteries of Right Leg w/ Gangrene
 ;;^UTILITY(U,$J,358.3,2190,1,4,0)
 ;;=4^I70.261
 ;;^UTILITY(U,$J,358.3,2190,2)
 ;;=^5007603
 ;;^UTILITY(U,$J,358.3,2191,0)
 ;;=I70.263^^21^140^32
 ;;^UTILITY(U,$J,358.3,2191,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2191,1,3,0)
 ;;=3^Athscl Native Arteries of Bilateral Legs w/ Gangrene
 ;;^UTILITY(U,$J,358.3,2191,1,4,0)
 ;;=4^I70.263
 ;;^UTILITY(U,$J,358.3,2191,2)
 ;;=^5007605
 ;;^UTILITY(U,$J,358.3,2192,0)
 ;;=I70.301^^21^140^52
 ;;^UTILITY(U,$J,358.3,2192,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2192,1,3,0)
 ;;=3^Athscl Unspec Type Bypass of Right Leg
 ;;^UTILITY(U,$J,358.3,2192,1,4,0)
 ;;=4^I70.301
 ;;^UTILITY(U,$J,358.3,2192,2)
 ;;=^5007611
 ;;^UTILITY(U,$J,358.3,2193,0)
 ;;=I70.302^^21^140^51
 ;;^UTILITY(U,$J,358.3,2193,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2193,1,3,0)
 ;;=3^Athscl Unspec Type Bypass of Left Leg
 ;;^UTILITY(U,$J,358.3,2193,1,4,0)
 ;;=4^I70.302
 ;;^UTILITY(U,$J,358.3,2193,2)
 ;;=^5007612
 ;;^UTILITY(U,$J,358.3,2194,0)
 ;;=I70.303^^21^140^50
 ;;^UTILITY(U,$J,358.3,2194,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2194,1,3,0)
 ;;=3^Athscl Unspec Type Bypass of Bilateral Legs
 ;;^UTILITY(U,$J,358.3,2194,1,4,0)
 ;;=4^I70.303
 ;;^UTILITY(U,$J,358.3,2194,2)
 ;;=^5007613
 ;;^UTILITY(U,$J,358.3,2195,0)
 ;;=I70.411^^21^140^26
 ;;^UTILITY(U,$J,358.3,2195,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2195,1,3,0)
 ;;=3^Athscl Autologous Vein Bypass of Right Leg w/ Intrmt Claud
 ;;^UTILITY(U,$J,358.3,2195,1,4,0)
 ;;=4^I70.411
 ;;^UTILITY(U,$J,358.3,2195,2)
 ;;=^5007654
 ;;^UTILITY(U,$J,358.3,2196,0)
 ;;=I70.412^^21^140^22
 ;;^UTILITY(U,$J,358.3,2196,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2196,1,3,0)
 ;;=3^Athscl Autologous Vein Bypass of Left Leg w/ Intrmt Claud
 ;;^UTILITY(U,$J,358.3,2196,1,4,0)
 ;;=4^I70.412
 ;;^UTILITY(U,$J,358.3,2196,2)
 ;;=^5007655
 ;;^UTILITY(U,$J,358.3,2197,0)
 ;;=I70.413^^21^140^19
 ;;^UTILITY(U,$J,358.3,2197,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2197,1,3,0)
 ;;=3^Athscl Autologous Vein Bypass of Bilateral Legs w/ Intrmt Claud
 ;;^UTILITY(U,$J,358.3,2197,1,4,0)
 ;;=4^I70.413
 ;;^UTILITY(U,$J,358.3,2197,2)
 ;;=^5007656
 ;;^UTILITY(U,$J,358.3,2198,0)
 ;;=I70.421^^21^140^27
 ;;^UTILITY(U,$J,358.3,2198,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2198,1,3,0)
 ;;=3^Athscl Autologous Vein Bypass of Right Leg w/ Rest Pain
 ;;^UTILITY(U,$J,358.3,2198,1,4,0)
 ;;=4^I70.421
 ;;^UTILITY(U,$J,358.3,2198,2)
 ;;=^5007659
 ;;^UTILITY(U,$J,358.3,2199,0)
 ;;=I70.422^^21^140^23
 ;;^UTILITY(U,$J,358.3,2199,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2199,1,3,0)
 ;;=3^Athscl Autologous Vein Bypass of Left Leg w/ Rest Pain
 ;;^UTILITY(U,$J,358.3,2199,1,4,0)
 ;;=4^I70.422
 ;;^UTILITY(U,$J,358.3,2199,2)
 ;;=^5007660
 ;;^UTILITY(U,$J,358.3,2200,0)
 ;;=I70.423^^21^140^20
 ;;^UTILITY(U,$J,358.3,2200,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2200,1,3,0)
 ;;=3^Athscl Autologous Vein Bypass of Bilateral Legs w/ Rest Pain
 ;;^UTILITY(U,$J,358.3,2200,1,4,0)
 ;;=4^I70.423
 ;;^UTILITY(U,$J,358.3,2200,2)
 ;;=^5007661
 ;;^UTILITY(U,$J,358.3,2201,0)
 ;;=I70.439^^21^140^28
 ;;^UTILITY(U,$J,358.3,2201,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2201,1,3,0)
 ;;=3^Athscl Autologous Vein Bypass of Right Leg w/ Ulcer of Unspec Site
 ;;^UTILITY(U,$J,358.3,2201,1,4,0)
 ;;=4^I70.439
 ;;^UTILITY(U,$J,358.3,2201,2)
 ;;=^5007670
 ;;^UTILITY(U,$J,358.3,2202,0)
 ;;=I70.449^^21^140^24
 ;;^UTILITY(U,$J,358.3,2202,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2202,1,3,0)
 ;;=3^Athscl Autologous Vein Bypass of Left Leg w/ Ulcer of Unspec Site
 ;;^UTILITY(U,$J,358.3,2202,1,4,0)
 ;;=4^I70.449
 ;;^UTILITY(U,$J,358.3,2202,2)
 ;;=^5007677
 ;;^UTILITY(U,$J,358.3,2203,0)
 ;;=I70.461^^21^140^29
 ;;^UTILITY(U,$J,358.3,2203,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2203,1,3,0)
 ;;=3^Athscl Autologous Vein Bypass of Right Leg w/ Gangrene
 ;;^UTILITY(U,$J,358.3,2203,1,4,0)
 ;;=4^I70.461
 ;;^UTILITY(U,$J,358.3,2203,2)
 ;;=^5007679
 ;;^UTILITY(U,$J,358.3,2204,0)
 ;;=I70.462^^21^140^25
 ;;^UTILITY(U,$J,358.3,2204,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2204,1,3,0)
 ;;=3^Athscl Autologous Vein Bypass of Left Leg w/ Gangrene
 ;;^UTILITY(U,$J,358.3,2204,1,4,0)
 ;;=4^I70.462
 ;;^UTILITY(U,$J,358.3,2204,2)
 ;;=^5007680
 ;;^UTILITY(U,$J,358.3,2205,0)
 ;;=I70.463^^21^140^21
 ;;^UTILITY(U,$J,358.3,2205,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2205,1,3,0)
 ;;=3^Athscl Autologous Vein Bypass of Bilateral Legs w/ Gangrene
 ;;^UTILITY(U,$J,358.3,2205,1,4,0)
 ;;=4^I70.463
 ;;^UTILITY(U,$J,358.3,2205,2)
 ;;=^5007681
 ;;^UTILITY(U,$J,358.3,2206,0)
 ;;=I70.561^^21^140^48
 ;;^UTILITY(U,$J,358.3,2206,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2206,1,3,0)
 ;;=3^Athscl Nonautologous Bio Bypass of Right Leg w/ Gangrene
 ;;^UTILITY(U,$J,358.3,2206,1,4,0)
 ;;=4^I70.561
 ;;^UTILITY(U,$J,358.3,2206,2)
 ;;=^5007717
 ;;^UTILITY(U,$J,358.3,2207,0)
 ;;=I70.562^^21^140^46
 ;;^UTILITY(U,$J,358.3,2207,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2207,1,3,0)
 ;;=3^Athscl Nonautologous Bio Bypass of Left Leg w/ Gangrene
 ;;^UTILITY(U,$J,358.3,2207,1,4,0)
 ;;=4^I70.562
 ;;^UTILITY(U,$J,358.3,2207,2)
 ;;=^5007718
 ;;^UTILITY(U,$J,358.3,2208,0)
 ;;=I70.563^^21^140^44
 ;;^UTILITY(U,$J,358.3,2208,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2208,1,3,0)
 ;;=3^Athscl Nonautologous Bio Bypass of Bilateral Legs w/ Gangrene
 ;;^UTILITY(U,$J,358.3,2208,1,4,0)
 ;;=4^I70.563
 ;;^UTILITY(U,$J,358.3,2208,2)
 ;;=^5007719
 ;;^UTILITY(U,$J,358.3,2209,0)
 ;;=I70.511^^21^140^49
 ;;^UTILITY(U,$J,358.3,2209,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2209,1,3,0)
 ;;=3^Athscl Nonautologous Bio Bypass of Right Leg w/ Intrmt Claud
 ;;^UTILITY(U,$J,358.3,2209,1,4,0)
 ;;=4^I70.511
 ;;^UTILITY(U,$J,358.3,2209,2)
 ;;=^5007692
 ;;^UTILITY(U,$J,358.3,2210,0)
 ;;=I70.512^^21^140^47
 ;;^UTILITY(U,$J,358.3,2210,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2210,1,3,0)
 ;;=3^Athscl Nonautologous Bio Bypass of Left Leg w/ Intrmt Claud
 ;;^UTILITY(U,$J,358.3,2210,1,4,0)
 ;;=4^I70.512
 ;;^UTILITY(U,$J,358.3,2210,2)
 ;;=^5007693
 ;;^UTILITY(U,$J,358.3,2211,0)
 ;;=I70.513^^21^140^45
 ;;^UTILITY(U,$J,358.3,2211,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2211,1,3,0)
 ;;=3^Athscl Nonautologous Bio Bypass of Bilateral Legs w/ Intrmt Claud
 ;;^UTILITY(U,$J,358.3,2211,1,4,0)
 ;;=4^I70.513
 ;;^UTILITY(U,$J,358.3,2211,2)
 ;;=^5007694
 ;;^UTILITY(U,$J,358.3,2212,0)
 ;;=I70.8^^21^140^17
 ;;^UTILITY(U,$J,358.3,2212,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2212,1,3,0)
 ;;=3^Atherosclerosis of Oth Arteries
 ;;^UTILITY(U,$J,358.3,2212,1,4,0)
 ;;=4^I70.8
 ;;^UTILITY(U,$J,358.3,2212,2)
 ;;=^5007783
 ;;^UTILITY(U,$J,358.3,2213,0)
 ;;=I71.00^^21^140^68
 ;;^UTILITY(U,$J,358.3,2213,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2213,1,3,0)
 ;;=3^Dissection of Aorta,Unspec Site
 ;;^UTILITY(U,$J,358.3,2213,1,4,0)
 ;;=4^I71.00
 ;;^UTILITY(U,$J,358.3,2213,2)
 ;;=^35660
 ;;^UTILITY(U,$J,358.3,2214,0)
 ;;=I71.01^^21^140^72
 ;;^UTILITY(U,$J,358.3,2214,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2214,1,3,0)
 ;;=3^Dissection of Thoracic Aorta