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

IBDEI019.m

Go to the documentation of this file.
IBDEI019 ; ; 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,2532,1,4,0)
 ;;=4^I65.23
 ;;^UTILITY(U,$J,358.3,2532,2)
 ;;=^5007362
 ;;^UTILITY(U,$J,358.3,2533,0)
 ;;=I63.031^^20^161^59
 ;;^UTILITY(U,$J,358.3,2533,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2533,1,3,0)
 ;;=3^Cerebral Infarction d/t Thrombosis of Right Carotid Artery
 ;;^UTILITY(U,$J,358.3,2533,1,4,0)
 ;;=4^I63.031
 ;;^UTILITY(U,$J,358.3,2533,2)
 ;;=^5007299
 ;;^UTILITY(U,$J,358.3,2534,0)
 ;;=I65.01^^20^161^92
 ;;^UTILITY(U,$J,358.3,2534,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2534,1,3,0)
 ;;=3^Occlusion/Stenosis of Right Vertebral Artery
 ;;^UTILITY(U,$J,358.3,2534,1,4,0)
 ;;=4^I65.01
 ;;^UTILITY(U,$J,358.3,2534,2)
 ;;=^5007356
 ;;^UTILITY(U,$J,358.3,2535,0)
 ;;=I65.02^^20^161^89
 ;;^UTILITY(U,$J,358.3,2535,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2535,1,3,0)
 ;;=3^Occlusion/Stenosis of Left Vertebral Artery
 ;;^UTILITY(U,$J,358.3,2535,1,4,0)
 ;;=4^I65.02
 ;;^UTILITY(U,$J,358.3,2535,2)
 ;;=^5007357
 ;;^UTILITY(U,$J,358.3,2536,0)
 ;;=I65.03^^20^161^87
 ;;^UTILITY(U,$J,358.3,2536,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2536,1,3,0)
 ;;=3^Occlusion/Stenosis of Bilateral Vertebral Arteries
 ;;^UTILITY(U,$J,358.3,2536,1,4,0)
 ;;=4^I65.03
 ;;^UTILITY(U,$J,358.3,2536,2)
 ;;=^5007358
 ;;^UTILITY(U,$J,358.3,2537,0)
 ;;=I65.8^^20^161^90
 ;;^UTILITY(U,$J,358.3,2537,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2537,1,3,0)
 ;;=3^Occlusion/Stenosis of Precerebral Arteries NEC
 ;;^UTILITY(U,$J,358.3,2537,1,4,0)
 ;;=4^I65.8
 ;;^UTILITY(U,$J,358.3,2537,2)
 ;;=^5007364
 ;;^UTILITY(U,$J,358.3,2538,0)
 ;;=I63.032^^20^161^58
 ;;^UTILITY(U,$J,358.3,2538,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2538,1,3,0)
 ;;=3^Cerebral Infarction d/t Thrombosis of Left Carotid Artery
 ;;^UTILITY(U,$J,358.3,2538,1,4,0)
 ;;=4^I63.032
 ;;^UTILITY(U,$J,358.3,2538,2)
 ;;=^5007300
 ;;^UTILITY(U,$J,358.3,2539,0)
 ;;=I63.131^^20^161^56
 ;;^UTILITY(U,$J,358.3,2539,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2539,1,3,0)
 ;;=3^Cerebral Infarction d/t Embolism of Right Carotid Artery
 ;;^UTILITY(U,$J,358.3,2539,1,4,0)
 ;;=4^I63.131
 ;;^UTILITY(U,$J,358.3,2539,2)
 ;;=^5007308
 ;;^UTILITY(U,$J,358.3,2540,0)
 ;;=I63.132^^20^161^55
 ;;^UTILITY(U,$J,358.3,2540,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2540,1,3,0)
 ;;=3^Cerebral Infarction d/t Embolism of Left Carotid Artery
 ;;^UTILITY(U,$J,358.3,2540,1,4,0)
 ;;=4^I63.132
 ;;^UTILITY(U,$J,358.3,2540,2)
 ;;=^5007309
 ;;^UTILITY(U,$J,358.3,2541,0)
 ;;=I63.231^^20^161^61
 ;;^UTILITY(U,$J,358.3,2541,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2541,1,3,0)
 ;;=3^Cerebral Infarction d/t Unspec Occl/Stenosis of Right Carotid Artery
 ;;^UTILITY(U,$J,358.3,2541,1,4,0)
 ;;=4^I63.231
 ;;^UTILITY(U,$J,358.3,2541,2)
 ;;=^5007316
 ;;^UTILITY(U,$J,358.3,2542,0)
 ;;=I63.232^^20^161^62
 ;;^UTILITY(U,$J,358.3,2542,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2542,1,3,0)
 ;;=3^Cerebral Infarction d/t Unspec Occl/Stenosis of Left Carotid Artery
 ;;^UTILITY(U,$J,358.3,2542,1,4,0)
 ;;=4^I63.232
 ;;^UTILITY(U,$J,358.3,2542,2)
 ;;=^5007317
 ;;^UTILITY(U,$J,358.3,2543,0)
 ;;=I63.211^^20^161^63
 ;;^UTILITY(U,$J,358.3,2543,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2543,1,3,0)
 ;;=3^Cerebral Infarction d/t Unspec Occl/Stenosis of Right Vertebral Artery
 ;;^UTILITY(U,$J,358.3,2543,1,4,0)
 ;;=4^I63.211
 ;;^UTILITY(U,$J,358.3,2543,2)
 ;;=^5007313
 ;;^UTILITY(U,$J,358.3,2544,0)
 ;;=I63.212^^20^161^64
 ;;^UTILITY(U,$J,358.3,2544,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2544,1,3,0)
 ;;=3^Cerebral Infarction d/t Unspec Occl/Stenosis of Left Vertebral Artery
 ;;^UTILITY(U,$J,358.3,2544,1,4,0)
 ;;=4^I63.212
 ;;^UTILITY(U,$J,358.3,2544,2)
 ;;=^5007314
 ;;^UTILITY(U,$J,358.3,2545,0)
 ;;=G45.9^^20^161^106
 ;;^UTILITY(U,$J,358.3,2545,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2545,1,3,0)
 ;;=3^Transient Cerebral Ischemic Attack,Unspec
 ;;^UTILITY(U,$J,358.3,2545,1,4,0)
 ;;=4^G45.9
 ;;^UTILITY(U,$J,358.3,2545,2)
 ;;=^5003959
 ;;^UTILITY(U,$J,358.3,2546,0)
 ;;=I70.0^^20^161^16
 ;;^UTILITY(U,$J,358.3,2546,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2546,1,3,0)
 ;;=3^Atherosclerosis of Aorta
 ;;^UTILITY(U,$J,358.3,2546,1,4,0)
 ;;=4^I70.0
 ;;^UTILITY(U,$J,358.3,2546,2)
 ;;=^269759
 ;;^UTILITY(U,$J,358.3,2547,0)
 ;;=I70.1^^20^161^18
 ;;^UTILITY(U,$J,358.3,2547,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2547,1,3,0)
 ;;=3^Atherosclerosis of Renal Artery
 ;;^UTILITY(U,$J,358.3,2547,1,4,0)
 ;;=4^I70.1
 ;;^UTILITY(U,$J,358.3,2547,2)
 ;;=^269760
 ;;^UTILITY(U,$J,358.3,2548,0)
 ;;=I70.211^^20^161^38
 ;;^UTILITY(U,$J,358.3,2548,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2548,1,3,0)
 ;;=3^Athscl Native Arteries of Right Leg w/ Intrmt Claud
 ;;^UTILITY(U,$J,358.3,2548,1,4,0)
 ;;=4^I70.211
 ;;^UTILITY(U,$J,358.3,2548,2)
 ;;=^5007578
 ;;^UTILITY(U,$J,358.3,2549,0)
 ;;=I70.212^^20^161^34
 ;;^UTILITY(U,$J,358.3,2549,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2549,1,3,0)
 ;;=3^Athscl Native Arteries of Left Leg w/ Intrmt Claud
 ;;^UTILITY(U,$J,358.3,2549,1,4,0)
 ;;=4^I70.212
 ;;^UTILITY(U,$J,358.3,2549,2)
 ;;=^5007579
 ;;^UTILITY(U,$J,358.3,2550,0)
 ;;=I70.213^^20^161^30
 ;;^UTILITY(U,$J,358.3,2550,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2550,1,3,0)
 ;;=3^Athscl Native Arteries of Bilateral Legs w/ Intrmt Claud
 ;;^UTILITY(U,$J,358.3,2550,1,4,0)
 ;;=4^I70.213
 ;;^UTILITY(U,$J,358.3,2550,2)
 ;;=^5007580
 ;;^UTILITY(U,$J,358.3,2551,0)
 ;;=I70.221^^20^161^39
 ;;^UTILITY(U,$J,358.3,2551,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2551,1,3,0)
 ;;=3^Athscl Native Arteries of Right Leg w/ Rest Pain
 ;;^UTILITY(U,$J,358.3,2551,1,4,0)
 ;;=4^I70.221
 ;;^UTILITY(U,$J,358.3,2551,2)
 ;;=^5007583
 ;;^UTILITY(U,$J,358.3,2552,0)
 ;;=I70.222^^20^161^35
 ;;^UTILITY(U,$J,358.3,2552,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2552,1,3,0)
 ;;=3^Athscl Native Arteries of Left Leg w/ Rest Pain
 ;;^UTILITY(U,$J,358.3,2552,1,4,0)
 ;;=4^I70.222
 ;;^UTILITY(U,$J,358.3,2552,2)
 ;;=^5007584
 ;;^UTILITY(U,$J,358.3,2553,0)
 ;;=I70.223^^20^161^31
 ;;^UTILITY(U,$J,358.3,2553,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2553,1,3,0)
 ;;=3^Athscl Native Arteries of Bilateral Legs w/ Rest Pain
 ;;^UTILITY(U,$J,358.3,2553,1,4,0)
 ;;=4^I70.223
 ;;^UTILITY(U,$J,358.3,2553,2)
 ;;=^5007585
 ;;^UTILITY(U,$J,358.3,2554,0)
 ;;=I70.231^^20^161^40
 ;;^UTILITY(U,$J,358.3,2554,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2554,1,3,0)
 ;;=3^Athscl Native Arteries of Right Leg w/ Thigh Ulceration
 ;;^UTILITY(U,$J,358.3,2554,1,4,0)
 ;;=4^I70.231
 ;;^UTILITY(U,$J,358.3,2554,2)
 ;;=^5007588
 ;;^UTILITY(U,$J,358.3,2555,0)
 ;;=I70.234^^20^161^41
 ;;^UTILITY(U,$J,358.3,2555,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2555,1,3,0)
 ;;=3^Athscl Native Arteries of Right Leg w/ Heel/Midfoot Ulcer
 ;;^UTILITY(U,$J,358.3,2555,1,4,0)
 ;;=4^I70.234
 ;;^UTILITY(U,$J,358.3,2555,2)
 ;;=^5007591
 ;;^UTILITY(U,$J,358.3,2556,0)
 ;;=I70.239^^20^161^42
 ;;^UTILITY(U,$J,358.3,2556,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2556,1,3,0)
 ;;=3^Athscl Native Arteries of Right Leg w/ Ulcer of Unspec Site
 ;;^UTILITY(U,$J,358.3,2556,1,4,0)
 ;;=4^I70.239
 ;;^UTILITY(U,$J,358.3,2556,2)
 ;;=^5007594
 ;;^UTILITY(U,$J,358.3,2557,0)
 ;;=I70.241^^20^161^36
 ;;^UTILITY(U,$J,358.3,2557,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2557,1,3,0)
 ;;=3^Athscl Native Arteries of Left Leg w/ Thigh Ulceration
 ;;^UTILITY(U,$J,358.3,2557,1,4,0)
 ;;=4^I70.241
 ;;^UTILITY(U,$J,358.3,2557,2)
 ;;=^5007595
 ;;^UTILITY(U,$J,358.3,2558,0)
 ;;=I70.249^^20^161^37
 ;;^UTILITY(U,$J,358.3,2558,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2558,1,3,0)
 ;;=3^Athscl Native Arteries of Left Leg w/ Ulcer of Unspec Site
 ;;^UTILITY(U,$J,358.3,2558,1,4,0)
 ;;=4^I70.249
 ;;^UTILITY(U,$J,358.3,2558,2)
 ;;=^5007601
 ;;^UTILITY(U,$J,358.3,2559,0)
 ;;=I70.262^^20^161^33
 ;;^UTILITY(U,$J,358.3,2559,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2559,1,3,0)
 ;;=3^Athscl Native Arteries of Left Leg w/ Gangrene
 ;;^UTILITY(U,$J,358.3,2559,1,4,0)
 ;;=4^I70.262
 ;;^UTILITY(U,$J,358.3,2559,2)
 ;;=^5007604
 ;;^UTILITY(U,$J,358.3,2560,0)
 ;;=I70.261^^20^161^43
 ;;^UTILITY(U,$J,358.3,2560,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2560,1,3,0)
 ;;=3^Athscl Native Arteries of Right Leg w/ Gangrene
 ;;^UTILITY(U,$J,358.3,2560,1,4,0)
 ;;=4^I70.261
 ;;^UTILITY(U,$J,358.3,2560,2)
 ;;=^5007603
 ;;^UTILITY(U,$J,358.3,2561,0)
 ;;=I70.263^^20^161^32
 ;;^UTILITY(U,$J,358.3,2561,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2561,1,3,0)
 ;;=3^Athscl Native Arteries of Bilateral Legs w/ Gangrene
 ;;^UTILITY(U,$J,358.3,2561,1,4,0)
 ;;=4^I70.263
 ;;^UTILITY(U,$J,358.3,2561,2)
 ;;=^5007605
 ;;^UTILITY(U,$J,358.3,2562,0)
 ;;=I70.301^^20^161^52
 ;;^UTILITY(U,$J,358.3,2562,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2562,1,3,0)
 ;;=3^Athscl Unspec Type Bypass of Right Leg
 ;;^UTILITY(U,$J,358.3,2562,1,4,0)
 ;;=4^I70.301
 ;;^UTILITY(U,$J,358.3,2562,2)
 ;;=^5007611
 ;;^UTILITY(U,$J,358.3,2563,0)
 ;;=I70.302^^20^161^51
 ;;^UTILITY(U,$J,358.3,2563,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2563,1,3,0)
 ;;=3^Athscl Unspec Type Bypass of Left Leg
 ;;^UTILITY(U,$J,358.3,2563,1,4,0)
 ;;=4^I70.302
 ;;^UTILITY(U,$J,358.3,2563,2)
 ;;=^5007612
 ;;^UTILITY(U,$J,358.3,2564,0)
 ;;=I70.303^^20^161^50
 ;;^UTILITY(U,$J,358.3,2564,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2564,1,3,0)
 ;;=3^Athscl Unspec Type Bypass of Bilateral Legs
 ;;^UTILITY(U,$J,358.3,2564,1,4,0)
 ;;=4^I70.303
 ;;^UTILITY(U,$J,358.3,2564,2)
 ;;=^5007613
 ;;^UTILITY(U,$J,358.3,2565,0)
 ;;=I70.411^^20^161^26
 ;;^UTILITY(U,$J,358.3,2565,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2565,1,3,0)
 ;;=3^Athscl Autologous Vein Bypass of Right Leg w/ Intrmt Claud
 ;;^UTILITY(U,$J,358.3,2565,1,4,0)
 ;;=4^I70.411
 ;;^UTILITY(U,$J,358.3,2565,2)
 ;;=^5007654
 ;;^UTILITY(U,$J,358.3,2566,0)
 ;;=I70.412^^20^161^22
 ;;^UTILITY(U,$J,358.3,2566,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2566,1,3,0)
 ;;=3^Athscl Autologous Vein Bypass of Left Leg w/ Intrmt Claud
 ;;^UTILITY(U,$J,358.3,2566,1,4,0)
 ;;=4^I70.412
 ;;^UTILITY(U,$J,358.3,2566,2)
 ;;=^5007655
 ;;^UTILITY(U,$J,358.3,2567,0)
 ;;=I70.413^^20^161^19
 ;;^UTILITY(U,$J,358.3,2567,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2567,1,3,0)
 ;;=3^Athscl Autologous Vein Bypass of Bilateral Legs w/ Intrmt Claud
 ;;^UTILITY(U,$J,358.3,2567,1,4,0)
 ;;=4^I70.413
 ;;^UTILITY(U,$J,358.3,2567,2)
 ;;=^5007656
 ;;^UTILITY(U,$J,358.3,2568,0)
 ;;=I70.421^^20^161^27
 ;;^UTILITY(U,$J,358.3,2568,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2568,1,3,0)
 ;;=3^Athscl Autologous Vein Bypass of Right Leg w/ Rest Pain
 ;;^UTILITY(U,$J,358.3,2568,1,4,0)
 ;;=4^I70.421
 ;;^UTILITY(U,$J,358.3,2568,2)
 ;;=^5007659
 ;;^UTILITY(U,$J,358.3,2569,0)
 ;;=I70.422^^20^161^23
 ;;^UTILITY(U,$J,358.3,2569,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2569,1,3,0)
 ;;=3^Athscl Autologous Vein Bypass of Left Leg w/ Rest Pain
 ;;^UTILITY(U,$J,358.3,2569,1,4,0)
 ;;=4^I70.422
 ;;^UTILITY(U,$J,358.3,2569,2)
 ;;=^5007660
 ;;^UTILITY(U,$J,358.3,2570,0)
 ;;=I70.423^^20^161^20
 ;;^UTILITY(U,$J,358.3,2570,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2570,1,3,0)
 ;;=3^Athscl Autologous Vein Bypass of Bilateral Legs w/ Rest Pain
 ;;^UTILITY(U,$J,358.3,2570,1,4,0)
 ;;=4^I70.423
 ;;^UTILITY(U,$J,358.3,2570,2)
 ;;=^5007661
 ;;^UTILITY(U,$J,358.3,2571,0)
 ;;=I70.439^^20^161^28
 ;;^UTILITY(U,$J,358.3,2571,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2571,1,3,0)
 ;;=3^Athscl Autologous Vein Bypass of Right Leg w/ Ulcer of Unspec Site
 ;;^UTILITY(U,$J,358.3,2571,1,4,0)
 ;;=4^I70.439
 ;;^UTILITY(U,$J,358.3,2571,2)
 ;;=^5007670
 ;;^UTILITY(U,$J,358.3,2572,0)
 ;;=I70.449^^20^161^24
 ;;^UTILITY(U,$J,358.3,2572,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2572,1,3,0)
 ;;=3^Athscl Autologous Vein Bypass of Left Leg w/ Ulcer of Unspec Site
 ;;^UTILITY(U,$J,358.3,2572,1,4,0)
 ;;=4^I70.449
 ;;^UTILITY(U,$J,358.3,2572,2)
 ;;=^5007677
 ;;^UTILITY(U,$J,358.3,2573,0)
 ;;=I70.461^^20^161^29
 ;;^UTILITY(U,$J,358.3,2573,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2573,1,3,0)
 ;;=3^Athscl Autologous Vein Bypass of Right Leg w/ Gangrene
 ;;^UTILITY(U,$J,358.3,2573,1,4,0)
 ;;=4^I70.461
 ;;^UTILITY(U,$J,358.3,2573,2)
 ;;=^5007679
 ;;^UTILITY(U,$J,358.3,2574,0)
 ;;=I70.462^^20^161^25
 ;;^UTILITY(U,$J,358.3,2574,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2574,1,3,0)
 ;;=3^Athscl Autologous Vein Bypass of Left Leg w/ Gangrene
 ;;^UTILITY(U,$J,358.3,2574,1,4,0)
 ;;=4^I70.462
 ;;^UTILITY(U,$J,358.3,2574,2)
 ;;=^5007680
 ;;^UTILITY(U,$J,358.3,2575,0)
 ;;=I70.463^^20^161^21
 ;;^UTILITY(U,$J,358.3,2575,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2575,1,3,0)
 ;;=3^Athscl Autologous Vein Bypass of Bilateral Legs w/ Gangrene
 ;;^UTILITY(U,$J,358.3,2575,1,4,0)
 ;;=4^I70.463
 ;;^UTILITY(U,$J,358.3,2575,2)
 ;;=^5007681
 ;;^UTILITY(U,$J,358.3,2576,0)
 ;;=I70.561^^20^161^48
 ;;^UTILITY(U,$J,358.3,2576,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2576,1,3,0)
 ;;=3^Athscl Nonautologous Bio Bypass of Right Leg w/ Gangrene
 ;;^UTILITY(U,$J,358.3,2576,1,4,0)
 ;;=4^I70.561
 ;;^UTILITY(U,$J,358.3,2576,2)
 ;;=^5007717
 ;;^UTILITY(U,$J,358.3,2577,0)
 ;;=I70.562^^20^161^46
 ;;^UTILITY(U,$J,358.3,2577,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2577,1,3,0)
 ;;=3^Athscl Nonautologous Bio Bypass of Left Leg w/ Gangrene
 ;;^UTILITY(U,$J,358.3,2577,1,4,0)
 ;;=4^I70.562
 ;;^UTILITY(U,$J,358.3,2577,2)
 ;;=^5007718
 ;;^UTILITY(U,$J,358.3,2578,0)
 ;;=I70.563^^20^161^44
 ;;^UTILITY(U,$J,358.3,2578,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2578,1,3,0)
 ;;=3^Athscl Nonautologous Bio Bypass of Bilateral Legs w/ Gangrene
 ;;^UTILITY(U,$J,358.3,2578,1,4,0)
 ;;=4^I70.563
 ;;^UTILITY(U,$J,358.3,2578,2)
 ;;=^5007719
 ;;^UTILITY(U,$J,358.3,2579,0)
 ;;=I70.511^^20^161^49
 ;;^UTILITY(U,$J,358.3,2579,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2579,1,3,0)
 ;;=3^Athscl Nonautologous Bio Bypass of Right Leg w/ Intrmt Claud
 ;;^UTILITY(U,$J,358.3,2579,1,4,0)
 ;;=4^I70.511
 ;;^UTILITY(U,$J,358.3,2579,2)
 ;;=^5007692
 ;;^UTILITY(U,$J,358.3,2580,0)
 ;;=I70.512^^20^161^47
 ;;^UTILITY(U,$J,358.3,2580,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2580,1,3,0)
 ;;=3^Athscl Nonautologous Bio Bypass of Left Leg w/ Intrmt Claud
 ;;^UTILITY(U,$J,358.3,2580,1,4,0)
 ;;=4^I70.512
 ;;^UTILITY(U,$J,358.3,2580,2)
 ;;=^5007693
 ;;^UTILITY(U,$J,358.3,2581,0)
 ;;=I70.513^^20^161^45
 ;;^UTILITY(U,$J,358.3,2581,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2581,1,3,0)
 ;;=3^Athscl Nonautologous Bio Bypass of Bilateral Legs w/ Intrmt Claud
 ;;^UTILITY(U,$J,358.3,2581,1,4,0)
 ;;=4^I70.513
 ;;^UTILITY(U,$J,358.3,2581,2)
 ;;=^5007694
 ;;^UTILITY(U,$J,358.3,2582,0)
 ;;=I70.8^^20^161^17
 ;;^UTILITY(U,$J,358.3,2582,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2582,1,3,0)
 ;;=3^Atherosclerosis of Oth Arteries
 ;;^UTILITY(U,$J,358.3,2582,1,4,0)
 ;;=4^I70.8
 ;;^UTILITY(U,$J,358.3,2582,2)
 ;;=^5007783
 ;;^UTILITY(U,$J,358.3,2583,0)
 ;;=I71.00^^20^161^68
 ;;^UTILITY(U,$J,358.3,2583,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2583,1,3,0)
 ;;=3^Dissection of Aorta,Unspec Site
 ;;^UTILITY(U,$J,358.3,2583,1,4,0)
 ;;=4^I71.00
 ;;^UTILITY(U,$J,358.3,2583,2)
 ;;=^35660
 ;;^UTILITY(U,$J,358.3,2584,0)
 ;;=I71.01^^20^161^72
 ;;^UTILITY(U,$J,358.3,2584,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2584,1,3,0)
 ;;=3^Dissection of Thoracic Aorta
 ;;^UTILITY(U,$J,358.3,2584,1,4,0)
 ;;=4^I71.01
 ;;^UTILITY(U,$J,358.3,2584,2)
 ;;=^303289
 ;;^UTILITY(U,$J,358.3,2585,0)
 ;;=I71.02^^20^161^67
 ;;^UTILITY(U,$J,358.3,2585,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2585,1,3,0)
 ;;=3^Dissection of Abdominal Aorta
 ;;^UTILITY(U,$J,358.3,2585,1,4,0)
 ;;=4^I71.02
 ;;^UTILITY(U,$J,358.3,2585,2)
 ;;=^303290
 ;;^UTILITY(U,$J,358.3,2586,0)
 ;;=I71.03^^20^161^73
 ;;^UTILITY(U,$J,358.3,2586,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2586,1,3,0)
 ;;=3^Dissection of Thoracoabdominal Aorta
 ;;^UTILITY(U,$J,358.3,2586,1,4,0)
 ;;=4^I71.03
 ;;^UTILITY(U,$J,358.3,2586,2)
 ;;=^303291
 ;;^UTILITY(U,$J,358.3,2587,0)
 ;;=I71.1^^20^161^99
 ;;^UTILITY(U,$J,358.3,2587,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2587,1,3,0)
 ;;=3^Thoracic Aortic Aneurysm w/ Rupture
 ;;^UTILITY(U,$J,358.3,2587,1,4,0)
 ;;=4^I71.1
 ;;^UTILITY(U,$J,358.3,2587,2)
 ;;=^5007786
 ;;^UTILITY(U,$J,358.3,2588,0)
 ;;=I71.2^^20^161^100
 ;;^UTILITY(U,$J,358.3,2588,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2588,1,3,0)
 ;;=3^Thoracic Aortic Aneurysm w/o Rupture
 ;;^UTILITY(U,$J,358.3,2588,1,4,0)
 ;;=4^I71.2
 ;;^UTILITY(U,$J,358.3,2588,2)
 ;;=^5007787
 ;;^UTILITY(U,$J,358.3,2589,0)
 ;;=I71.3^^20^161^1
 ;;^UTILITY(U,$J,358.3,2589,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2589,1,3,0)
 ;;=3^Abdominal Aortic Aneurysm w/ Rupture
 ;;^UTILITY(U,$J,358.3,2589,1,4,0)
 ;;=4^I71.3
 ;;^UTILITY(U,$J,358.3,2589,2)
 ;;=^5007788
 ;;^UTILITY(U,$J,358.3,2590,0)
 ;;=I71.4^^20^161^2
 ;;^UTILITY(U,$J,358.3,2590,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2590,1,3,0)
 ;;=3^Abdominal Aortic Aneurysm w/o Rupture
 ;;^UTILITY(U,$J,358.3,2590,1,4,0)
 ;;=4^I71.4
 ;;^UTILITY(U,$J,358.3,2590,2)
 ;;=^5007789
 ;;^UTILITY(U,$J,358.3,2591,0)
 ;;=I71.8^^20^161^11
 ;;^UTILITY(U,$J,358.3,2591,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2591,1,3,0)
 ;;=3^Aortic Aneurysm of Unspec Site w/ Rupture
 ;;^UTILITY(U,$J,358.3,2591,1,4,0)
 ;;=4^I71.8
 ;;^UTILITY(U,$J,358.3,2591,2)
 ;;=^9279
 ;;^UTILITY(U,$J,358.3,2592,0)
 ;;=I71.5^^20^161^101
 ;;^UTILITY(U,$J,358.3,2592,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2592,1,3,0)
 ;;=3^Thoracoabdominal Aortic Aneurysm w/ Rupture
 ;;^UTILITY(U,$J,358.3,2592,1,4,0)
 ;;=4^I71.5
 ;;^UTILITY(U,$J,358.3,2592,2)
 ;;=^5007790
 ;;^UTILITY(U,$J,358.3,2593,0)
 ;;=I71.6^^20^161^102
 ;;^UTILITY(U,$J,358.3,2593,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2593,1,3,0)
 ;;=3^Thoracoabdominal Aortic Aneurysm w/o Rupture
 ;;^UTILITY(U,$J,358.3,2593,1,4,0)
 ;;=4^I71.6
 ;;^UTILITY(U,$J,358.3,2593,2)
 ;;=^5007791
 ;;^UTILITY(U,$J,358.3,2594,0)
 ;;=I72.1^^20^161^9
 ;;^UTILITY(U,$J,358.3,2594,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2594,1,3,0)
 ;;=3^Aneurysm of Upper Extremity Artery
 ;;^UTILITY(U,$J,358.3,2594,1,4,0)
 ;;=4^I72.1
 ;;^UTILITY(U,$J,358.3,2594,2)
 ;;=^269771
 ;;^UTILITY(U,$J,358.3,2595,0)
 ;;=I72.2^^20^161^8
 ;;^UTILITY(U,$J,358.3,2595,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2595,1,3,0)
 ;;=3^Aneurysm of Renal Artery
 ;;^UTILITY(U,$J,358.3,2595,1,4,0)
 ;;=4^I72.2
 ;;^UTILITY(U,$J,358.3,2595,2)
 ;;=^269773
 ;;^UTILITY(U,$J,358.3,2596,0)
 ;;=I72.3^^20^161^5
 ;;^UTILITY(U,$J,358.3,2596,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2596,1,3,0)
 ;;=3^Aneurysm of Iliac Artery
 ;;^UTILITY(U,$J,358.3,2596,1,4,0)
 ;;=4^I72.3
 ;;^UTILITY(U,$J,358.3,2596,2)
 ;;=^269775
 ;;^UTILITY(U,$J,358.3,2597,0)
 ;;=I72.4^^20^161^6
 ;;^UTILITY(U,$J,358.3,2597,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2597,1,3,0)
 ;;=3^Aneurysm of Lower Extremity Artery
 ;;^UTILITY(U,$J,358.3,2597,1,4,0)
 ;;=4^I72.4
 ;;^UTILITY(U,$J,358.3,2597,2)
 ;;=^269777
 ;;^UTILITY(U,$J,358.3,2598,0)
 ;;=I72.0^^20^161^4
 ;;^UTILITY(U,$J,358.3,2598,1,0)
 ;;=^358.31IA^4^2