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

IBDEI01F.m

Go to the documentation of this file.
  1. IBDEI01F ; ; 01-AUG-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,2983,1,3,0)
  1. ;;=3^Place Cath Carotid Art
  1. ;;^UTILITY(U,$J,358.3,2984,0)
  1. ;;=36225^^21^182^19^^^^1
  1. ;;^UTILITY(U,$J,358.3,2984,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,2984,1,2,0)
  1. ;;=2^36225
  1. ;;^UTILITY(U,$J,358.3,2984,1,3,0)
  1. ;;=3^Place Cath Subclavian Art
  1. ;;^UTILITY(U,$J,358.3,2985,0)
  1. ;;=36226^^21^182^22^^^^1
  1. ;;^UTILITY(U,$J,358.3,2985,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,2985,1,2,0)
  1. ;;=2^36226
  1. ;;^UTILITY(U,$J,358.3,2985,1,3,0)
  1. ;;=3^Place Cath Vertebral Art
  1. ;;^UTILITY(U,$J,358.3,2986,0)
  1. ;;=36227^^21^182^23^^^^1
  1. ;;^UTILITY(U,$J,358.3,2986,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,2986,1,2,0)
  1. ;;=2^36227
  1. ;;^UTILITY(U,$J,358.3,2986,1,3,0)
  1. ;;=3^Place Cath Xtrnl Carotid
  1. ;;^UTILITY(U,$J,358.3,2987,0)
  1. ;;=36228^^21^182^18^^^^1
  1. ;;^UTILITY(U,$J,358.3,2987,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,2987,1,2,0)
  1. ;;=2^36228
  1. ;;^UTILITY(U,$J,358.3,2987,1,3,0)
  1. ;;=3^Place Cath Intracranial Art
  1. ;;^UTILITY(U,$J,358.3,2988,0)
  1. ;;=36221^^21^182^21^^^^1
  1. ;;^UTILITY(U,$J,358.3,2988,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,2988,1,2,0)
  1. ;;=2^36221
  1. ;;^UTILITY(U,$J,358.3,2988,1,3,0)
  1. ;;=3^Place Cath Thoracic Aorta
  1. ;;^UTILITY(U,$J,358.3,2989,0)
  1. ;;=37197^^21^182^29^^^^1
  1. ;;^UTILITY(U,$J,358.3,2989,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,2989,1,2,0)
  1. ;;=2^37197
  1. ;;^UTILITY(U,$J,358.3,2989,1,3,0)
  1. ;;=3^Remove Intrvas Foreign Body,Broken Cath
  1. ;;^UTILITY(U,$J,358.3,2990,0)
  1. ;;=36000^^21^182^24^^^^1
  1. ;;^UTILITY(U,$J,358.3,2990,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,2990,1,2,0)
  1. ;;=2^36000
  1. ;;^UTILITY(U,$J,358.3,2990,1,3,0)
  1. ;;=3^Place Needle/Intracath in Vein
  1. ;;^UTILITY(U,$J,358.3,2991,0)
  1. ;;=36010^^21^182^20^^^^1
  1. ;;^UTILITY(U,$J,358.3,2991,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,2991,1,2,0)
  1. ;;=2^36010
  1. ;;^UTILITY(U,$J,358.3,2991,1,3,0)
  1. ;;=3^Place Cath Sup/Inf Vena Cava
  1. ;;^UTILITY(U,$J,358.3,2992,0)
  1. ;;=37187^^21^182^12^^^^1
  1. ;;^UTILITY(U,$J,358.3,2992,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,2992,1,2,0)
  1. ;;=2^37187
  1. ;;^UTILITY(U,$J,358.3,2992,1,3,0)
  1. ;;=3^PTCA Thrombectomy (non-cardio),Vein(s),Init
  1. ;;^UTILITY(U,$J,358.3,2993,0)
  1. ;;=37236^^21^182^52^^^^1
  1. ;;^UTILITY(U,$J,358.3,2993,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,2993,1,2,0)
  1. ;;=2^37236
  1. ;;^UTILITY(U,$J,358.3,2993,1,3,0)
  1. ;;=3^Transcath Plcmt Intravas Stent,Init Art
  1. ;;^UTILITY(U,$J,358.3,2994,0)
  1. ;;=37237^^21^182^53^^^^1
  1. ;;^UTILITY(U,$J,358.3,2994,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,2994,1,2,0)
  1. ;;=2^37237
  1. ;;^UTILITY(U,$J,358.3,2994,1,3,0)
  1. ;;=3^Transcath Plcmt Intravas Stent,Ea Addl Art
  1. ;;^UTILITY(U,$J,358.3,2995,0)
  1. ;;=37214^^21^182^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,2995,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,2995,1,2,0)
  1. ;;=2^37214
  1. ;;^UTILITY(U,$J,358.3,2995,1,3,0)
  1. ;;=3^Cess Tx w/ Cath Removal,Art/Ven Inf
  1. ;;^UTILITY(U,$J,358.3,2996,0)
  1. ;;=37184^^21^182^25^^^^1
  1. ;;^UTILITY(U,$J,358.3,2996,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,2996,1,2,0)
  1. ;;=2^37184
  1. ;;^UTILITY(U,$J,358.3,2996,1,3,0)
  1. ;;=3^Prim Art Mech Thrombectomy (Non-Cardio)
  1. ;;^UTILITY(U,$J,358.3,2997,0)
  1. ;;=37185^^21^182^26^^^^1
  1. ;;^UTILITY(U,$J,358.3,2997,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,2997,1,2,0)
  1. ;;=2^37185
  1. ;;^UTILITY(U,$J,358.3,2997,1,3,0)
  1. ;;=3^Prim Art Mech Thrombectomy,Add-On
  1. ;;^UTILITY(U,$J,358.3,2998,0)
  1. ;;=36002^^21^182^27^^^^1
  1. ;;^UTILITY(U,$J,358.3,2998,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,2998,1,2,0)
  1. ;;=2^36002
  1. ;;^UTILITY(U,$J,358.3,2998,1,3,0)
  1. ;;=3^Pseudoaneurysm Injection Trt
  1. ;;^UTILITY(U,$J,358.3,2999,0)
  1. ;;=37193^^21^182^28^^^^1
  1. ;;^UTILITY(U,$J,358.3,2999,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,2999,1,2,0)
  1. ;;=2^37193
  1. ;;^UTILITY(U,$J,358.3,2999,1,3,0)
  1. ;;=3^Remove Endovas Vena Cava Filter
  1. ;;^UTILITY(U,$J,358.3,3000,0)
  1. ;;=37212^^21^182^44^^^^1
  1. ;;^UTILITY(U,$J,358.3,3000,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3000,1,2,0)
  1. ;;=2^37212
  1. ;;^UTILITY(U,$J,358.3,3000,1,3,0)
  1. ;;=3^Thrombolytic Venous Therapy
  1. ;;^UTILITY(U,$J,358.3,3001,0)
  1. ;;=37213^^21^182^43^^^^1
  1. ;;^UTILITY(U,$J,358.3,3001,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3001,1,2,0)
  1. ;;=2^37213
  1. ;;^UTILITY(U,$J,358.3,3001,1,3,0)
  1. ;;=3^Thrombolytic Art/Ven Therapy
  1. ;;^UTILITY(U,$J,358.3,3002,0)
  1. ;;=37229^^21^182^46^^^^1
  1. ;;^UTILITY(U,$J,358.3,3002,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3002,1,2,0)
  1. ;;=2^37229
  1. ;;^UTILITY(U,$J,358.3,3002,1,3,0)
  1. ;;=3^Tib/Per Revasc w/ Ather
  1. ;;^UTILITY(U,$J,358.3,3003,0)
  1. ;;=37230^^21^182^48^^^^1
  1. ;;^UTILITY(U,$J,358.3,3003,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3003,1,2,0)
  1. ;;=2^37230
  1. ;;^UTILITY(U,$J,358.3,3003,1,3,0)
  1. ;;=3^Tib/Per Revasc w/ Stent
  1. ;;^UTILITY(U,$J,358.3,3004,0)
  1. ;;=37231^^21^182^49^^^^1
  1. ;;^UTILITY(U,$J,358.3,3004,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3004,1,2,0)
  1. ;;=2^37231
  1. ;;^UTILITY(U,$J,358.3,3004,1,3,0)
  1. ;;=3^Tib/Per Revasc w/ Stent & Ather
  1. ;;^UTILITY(U,$J,358.3,3005,0)
  1. ;;=37232^^21^182^45^^^^1
  1. ;;^UTILITY(U,$J,358.3,3005,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3005,1,2,0)
  1. ;;=2^37232
  1. ;;^UTILITY(U,$J,358.3,3005,1,3,0)
  1. ;;=3^Tib/Per Revasc (Same Vessel),Add-on
  1. ;;^UTILITY(U,$J,358.3,3006,0)
  1. ;;=37233^^21^182^47^^^^1
  1. ;;^UTILITY(U,$J,358.3,3006,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3006,1,2,0)
  1. ;;=2^37233
  1. ;;^UTILITY(U,$J,358.3,3006,1,3,0)
  1. ;;=3^Tib/Per Revasc w/ Ather (Same Vessel),Add-On
  1. ;;^UTILITY(U,$J,358.3,3007,0)
  1. ;;=37234^^21^182^51^^^^1
  1. ;;^UTILITY(U,$J,358.3,3007,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3007,1,2,0)
  1. ;;=2^37234
  1. ;;^UTILITY(U,$J,358.3,3007,1,3,0)
  1. ;;=3^Tib/Per Revasc w/ Stent (Same Vessel),Add-On
  1. ;;^UTILITY(U,$J,358.3,3008,0)
  1. ;;=37235^^21^182^50^^^^1
  1. ;;^UTILITY(U,$J,358.3,3008,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3008,1,2,0)
  1. ;;=2^37235
  1. ;;^UTILITY(U,$J,358.3,3008,1,3,0)
  1. ;;=3^Tib/Per Revasc w/ Stent & Ather (Same Vessel),Add-On
  1. ;;^UTILITY(U,$J,358.3,3009,0)
  1. ;;=37215^^21^182^54^^^^1
  1. ;;^UTILITY(U,$J,358.3,3009,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3009,1,2,0)
  1. ;;=2^37215
  1. ;;^UTILITY(U,$J,358.3,3009,1,3,0)
  1. ;;=3^Transcath Stent CCA w/ EPS
  1. ;;^UTILITY(U,$J,358.3,3010,0)
  1. ;;=37216^^21^182^55^^^^1
  1. ;;^UTILITY(U,$J,358.3,3010,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3010,1,2,0)
  1. ;;=2^37216
  1. ;;^UTILITY(U,$J,358.3,3010,1,3,0)
  1. ;;=3^Transcath Stent CCA w/o EPS
  1. ;;^UTILITY(U,$J,358.3,3011,0)
  1. ;;=37188^^21^182^13^^^^1
  1. ;;^UTILITY(U,$J,358.3,3011,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3011,1,2,0)
  1. ;;=2^37188
  1. ;;^UTILITY(U,$J,358.3,3011,1,3,0)
  1. ;;=3^Percut Mech Thrombectomy,Sub Day of Thromb Tx
  1. ;;^UTILITY(U,$J,358.3,3012,0)
  1. ;;=36901^^21^182^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,3012,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3012,1,2,0)
  1. ;;=2^36901
  1. ;;^UTILITY(U,$J,358.3,3012,1,3,0)
  1. ;;=3^Access AV Dial Graft Inf/Sup Vena Cava
  1. ;;^UTILITY(U,$J,358.3,3013,0)
  1. ;;=36902^^21^182^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,3013,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3013,1,2,0)
  1. ;;=2^36902
  1. ;;^UTILITY(U,$J,358.3,3013,1,3,0)
  1. ;;=3^Access AV Dial Graft Periph Segment
  1. ;;^UTILITY(U,$J,358.3,3014,0)
  1. ;;=36903^^21^182^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,3014,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3014,1,2,0)
  1. ;;=2^36903
  1. ;;^UTILITY(U,$J,358.3,3014,1,3,0)
  1. ;;=3^Access AV Dial Grft Periph Segmnt w/ Stnt/Angiopls
  1. ;;^UTILITY(U,$J,358.3,3015,0)
  1. ;;=37192^^21^182^30^^^^1
  1. ;;^UTILITY(U,$J,358.3,3015,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3015,1,2,0)
  1. ;;=2^37192
  1. ;;^UTILITY(U,$J,358.3,3015,1,3,0)
  1. ;;=3^Reposition Endovas Vena Cava Filter
  1. ;;^UTILITY(U,$J,358.3,3016,0)
  1. ;;=36215^^21^182^35^^^^1
  1. ;;^UTILITY(U,$J,358.3,3016,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3016,1,2,0)
  1. ;;=2^36215
  1. ;;^UTILITY(U,$J,358.3,3016,1,3,0)
  1. ;;=3^Select Cath 1st Order Thoracic/Brachiocephalic
  1. ;;^UTILITY(U,$J,358.3,3017,0)
  1. ;;=36012^^21^182^37^^^^1
  1. ;;^UTILITY(U,$J,358.3,3017,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3017,1,2,0)
  1. ;;=2^36012
  1. ;;^UTILITY(U,$J,358.3,3017,1,3,0)
  1. ;;=3^Select Cath 2nd Order Adrenal Vein
  1. ;;^UTILITY(U,$J,358.3,3018,0)
  1. ;;=36218^^21^182^40^^^^1
  1. ;;^UTILITY(U,$J,358.3,3018,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3018,1,2,0)
  1. ;;=2^36218
  1. ;;^UTILITY(U,$J,358.3,3018,1,3,0)
  1. ;;=3^Select Cath 2nd/3rd Order Thor/Ue/Head,Ea Addl
  1. ;;^UTILITY(U,$J,358.3,3019,0)
  1. ;;=33016^^21^182^14^^^^1
  1. ;;^UTILITY(U,$J,358.3,3019,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3019,1,2,0)
  1. ;;=2^33016
  1. ;;^UTILITY(U,$J,358.3,3019,1,3,0)
  1. ;;=3^Pericardiocentesis w/ Img Guidance
  1. ;;^UTILITY(U,$J,358.3,3020,0)
  1. ;;=93740^^21^183^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,3020,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3020,1,2,0)
  1. ;;=2^93740
  1. ;;^UTILITY(U,$J,358.3,3020,1,3,0)
  1. ;;=3^Temperature Gradient Studies
  1. ;;^UTILITY(U,$J,358.3,3021,0)
  1. ;;=93784^^21^183^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,3021,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3021,1,2,0)
  1. ;;=2^93784
  1. ;;^UTILITY(U,$J,358.3,3021,1,3,0)
  1. ;;=3^Amb BP Monitor 24+ hrs,Int&Rpt
  1. ;;^UTILITY(U,$J,358.3,3022,0)
  1. ;;=93786^^21^183^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,3022,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3022,1,2,0)
  1. ;;=2^93786
  1. ;;^UTILITY(U,$J,358.3,3022,1,3,0)
  1. ;;=3^Amb BP Monitor 24+ hrs,Record Only
  1. ;;^UTILITY(U,$J,358.3,3023,0)
  1. ;;=93788^^21^183^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,3023,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3023,1,2,0)
  1. ;;=2^93788
  1. ;;^UTILITY(U,$J,358.3,3023,1,3,0)
  1. ;;=3^Amb BP Analysis & Rpt
  1. ;;^UTILITY(U,$J,358.3,3024,0)
  1. ;;=93790^^21^183^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,3024,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3024,1,2,0)
  1. ;;=2^93790
  1. ;;^UTILITY(U,$J,358.3,3024,1,3,0)
  1. ;;=3^Amb BP Review w/ Int&Rpt
  1. ;;^UTILITY(U,$J,358.3,3025,0)
  1. ;;=76376^^21^183^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,3025,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3025,1,2,0)
  1. ;;=2^76376
  1. ;;^UTILITY(U,$J,358.3,3025,1,3,0)
  1. ;;=3^3D Rendering w/ Interp/Postprocess Supervision
  1. ;;^UTILITY(U,$J,358.3,3026,0)
  1. ;;=76377^^21^183^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,3026,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3026,1,2,0)
  1. ;;=2^76377
  1. ;;^UTILITY(U,$J,358.3,3026,1,3,0)
  1. ;;=3^3D Rendering w/ Interp/Postprocess Diff Work Station
  1. ;;^UTILITY(U,$J,358.3,3027,0)
  1. ;;=34701^^21^184^8^^^^1
  1. ;;^UTILITY(U,$J,358.3,3027,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3027,1,2,0)
  1. ;;=2^34701
  1. ;;^UTILITY(U,$J,358.3,3027,1,3,0)
  1. ;;=3^Endovsc,Infrnl,Aortic-Aortic
  1. ;;^UTILITY(U,$J,358.3,3028,0)
  1. ;;=34702^^21^184^9^^^^1
  1. ;;^UTILITY(U,$J,358.3,3028,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3028,1,2,0)
  1. ;;=2^34702
  1. ;;^UTILITY(U,$J,358.3,3028,1,3,0)
  1. ;;=3^Endovsc,Infrnl,Aortic-Aortic & Bifurc w/ Balloon
  1. ;;^UTILITY(U,$J,358.3,3029,0)
  1. ;;=34703^^21^184^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,3029,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3029,1,2,0)
  1. ;;=2^34703
  1. ;;^UTILITY(U,$J,358.3,3029,1,3,0)
  1. ;;=3^Endovsc,Infrnl Aorta/Iliac Arteries
  1. ;;^UTILITY(U,$J,358.3,3030,0)
  1. ;;=34704^^21^184^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,3030,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3030,1,2,0)
  1. ;;=2^34704
  1. ;;^UTILITY(U,$J,358.3,3030,1,3,0)
  1. ;;=3^Endovsc,Infrnl Aorta/Iliac Art w/ Balloon
  1. ;;^UTILITY(U,$J,358.3,3031,0)
  1. ;;=34705^^21^184^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,3031,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3031,1,2,0)
  1. ;;=2^34705
  1. ;;^UTILITY(U,$J,358.3,3031,1,3,0)
  1. ;;=3^Endovsc,Infrnl Aorta/Iliac Art & Bifurc w/ Balloon
  1. ;;^UTILITY(U,$J,358.3,3032,0)
  1. ;;=34706^^21^184^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,3032,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3032,1,2,0)
  1. ;;=2^34706
  1. ;;^UTILITY(U,$J,358.3,3032,1,3,0)
  1. ;;=3^Endovsc,Infrnl Aorta/Iliac Art & Bifurc
  1. ;;^UTILITY(U,$J,358.3,3033,0)
  1. ;;=34707^^21^184^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,3033,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3033,1,2,0)
  1. ;;=2^34707
  1. ;;^UTILITY(U,$J,358.3,3033,1,3,0)
  1. ;;=3^Endovsc,Iliac Art,Ilio-Iliac Tube
  1. ;;^UTILITY(U,$J,358.3,3034,0)
  1. ;;=34708^^21^184^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,3034,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3034,1,2,0)
  1. ;;=2^34708
  1. ;;^UTILITY(U,$J,358.3,3034,1,3,0)
  1. ;;=3^Endovsc,Iliac Art,Ilio-Iliac Tube w/ Balloon
  1. ;;^UTILITY(U,$J,358.3,3035,0)
  1. ;;=34709^^21^184^10^^^^1
  1. ;;^UTILITY(U,$J,358.3,3035,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3035,1,2,0)
  1. ;;=2^34709
  1. ;;^UTILITY(U,$J,358.3,3035,1,3,0)
  1. ;;=3^Plcmnt Pros Distal 2 Common Iliac/Prxml to Rnl
  1. ;;^UTILITY(U,$J,358.3,3036,0)
  1. ;;=34710^^21^184^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,3036,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3036,1,2,0)
  1. ;;=2^34710
  1. ;;^UTILITY(U,$J,358.3,3036,1,3,0)
  1. ;;=3^Dlyd Plcmnt Distal/Prxml Ext Pros AAA/Iliac
  1. ;;^UTILITY(U,$J,358.3,3037,0)
  1. ;;=93279^^21^185^12^^^^1
  1. ;;^UTILITY(U,$J,358.3,3037,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3037,1,2,0)
  1. ;;=2^93279
  1. ;;^UTILITY(U,$J,358.3,3037,1,3,0)
  1. ;;=3^PM DEVICE PROGR EVAL W/ ADJSMT,SNGL
  1. ;;^UTILITY(U,$J,358.3,3038,0)
  1. ;;=93280^^21^185^10^^^^1
  1. ;;^UTILITY(U,$J,358.3,3038,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3038,1,2,0)
  1. ;;=2^93280
  1. ;;^UTILITY(U,$J,358.3,3038,1,3,0)
  1. ;;=3^PM DEVICE PROGR EVAL W/ ADJSMT,DUAL
  1. ;;^UTILITY(U,$J,358.3,3039,0)
  1. ;;=93281^^21^185^11^^^^1
  1. ;;^UTILITY(U,$J,358.3,3039,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3039,1,2,0)
  1. ;;=2^93281
  1. ;;^UTILITY(U,$J,358.3,3039,1,3,0)
  1. ;;=3^PM DEVICE PROGR EVAL W/ ADJSMT,MULTI
  1. ;;^UTILITY(U,$J,358.3,3040,0)
  1. ;;=93282^^21^185^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,3040,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3040,1,2,0)
  1. ;;=2^93282
  1. ;;^UTILITY(U,$J,358.3,3040,1,3,0)
  1. ;;=3^ICD DEVICE PROGR EVAL W/ ADJSMT,1 SNGL
  1. ;;^UTILITY(U,$J,358.3,3041,0)
  1. ;;=93283^^21^185^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,3041,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3041,1,2,0)
  1. ;;=2^93283
  1. ;;^UTILITY(U,$J,358.3,3041,1,3,0)
  1. ;;=3^ICD DEVICE PROGR EVAL W/ ADJSMT,DUAL
  1. ;;^UTILITY(U,$J,358.3,3042,0)
  1. ;;=93284^^21^185^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,3042,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3042,1,2,0)
  1. ;;=2^93284
  1. ;;^UTILITY(U,$J,358.3,3042,1,3,0)
  1. ;;=3^ICD DEVICE PROGR EVAL W/ ADJSMT,MULTI
  1. ;;^UTILITY(U,$J,358.3,3043,0)
  1. ;;=93285^^21^185^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,3043,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3043,1,2,0)
  1. ;;=2^93285
  1. ;;^UTILITY(U,$J,358.3,3043,1,3,0)
  1. ;;=3^ILR DEVICE EVAL PROGR W/ ADJSMT
  1. ;;^UTILITY(U,$J,358.3,3044,0)
  1. ;;=93286^^21^185^17^^^^1
  1. ;;^UTILITY(U,$J,358.3,3044,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3044,1,2,0)
  1. ;;=2^93286
  1. ;;^UTILITY(U,$J,358.3,3044,1,3,0)
  1. ;;=3^PRE-OP PM DEVICE EVAL
  1. ;;^UTILITY(U,$J,358.3,3045,0)
  1. ;;=93287^^21^185^16^^^^1
  1. ;;^UTILITY(U,$J,358.3,3045,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3045,1,2,0)
  1. ;;=2^93287
  1. ;;^UTILITY(U,$J,358.3,3045,1,3,0)
  1. ;;=3^PRE-OP ICD DEVICE EVAL
  1. ;;^UTILITY(U,$J,358.3,3046,0)
  1. ;;=93288^^21^185^9^^^^1
  1. ;;^UTILITY(U,$J,358.3,3046,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3046,1,2,0)
  1. ;;=2^93288
  1. ;;^UTILITY(U,$J,358.3,3046,1,3,0)
  1. ;;=3^PM DEVICE EVAL IN PERSON
  1. ;;^UTILITY(U,$J,358.3,3047,0)
  1. ;;=93289^^21^185^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,3047,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3047,1,2,0)
  1. ;;=2^93289
  1. ;;^UTILITY(U,$J,358.3,3047,1,3,0)
  1. ;;=3^ICD DEVICE INTERROGATE
  1. ;;^UTILITY(U,$J,358.3,3048,0)
  1. ;;=93293^^21^185^14^^^^1
  1. ;;^UTILITY(U,$J,358.3,3048,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3048,1,2,0)
  1. ;;=2^93293
  1. ;;^UTILITY(U,$J,358.3,3048,1,3,0)
  1. ;;=3^PM PHONE R-STRIP DEVICE EVAL
  1. ;;^UTILITY(U,$J,358.3,3049,0)
  1. ;;=93296^^21^185^15^^^^1
  1. ;;^UTILITY(U,$J,358.3,3049,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3049,1,2,0)
  1. ;;=2^93296
  1. ;;^UTILITY(U,$J,358.3,3049,1,3,0)
  1. ;;=3^PM/ICD REMOTE TECH SERV
  1. ;;^UTILITY(U,$J,358.3,3050,0)
  1. ;;=93745^^21^185^19^^^^1
  1. ;;^UTILITY(U,$J,358.3,3050,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3050,1,2,0)
  1. ;;=2^93745
  1. ;;^UTILITY(U,$J,358.3,3050,1,3,0)
  1. ;;=3^SET-UP CARDIOVERT-DEFIBRILL,INIT
  1. ;;^UTILITY(U,$J,358.3,3051,0)
  1. ;;=93640^^21^185^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,3051,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3051,1,2,0)
  1. ;;=2^93640
  1. ;;^UTILITY(U,$J,358.3,3051,1,3,0)
  1. ;;=3^EVALUATION HEART DEVICE,INIT/RPLMNT
  1. ;;^UTILITY(U,$J,358.3,3052,0)
  1. ;;=93295^^21^185^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,3052,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3052,1,2,0)
  1. ;;=2^93295
  1. ;;^UTILITY(U,$J,358.3,3052,1,3,0)
  1. ;;=3^ICD Device Interrogate Remote
  1. ;;^UTILITY(U,$J,358.3,3053,0)
  1. ;;=93294^^21^185^13^^^^1
  1. ;;^UTILITY(U,$J,358.3,3053,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3053,1,2,0)
  1. ;;=2^93294
  1. ;;^UTILITY(U,$J,358.3,3053,1,3,0)
  1. ;;=3^PM Device Interrogate Remote
  1. ;;^UTILITY(U,$J,358.3,3054,0)
  1. ;;=93297^^21^185^18^^^^1
  1. ;;^UTILITY(U,$J,358.3,3054,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3054,1,2,0)
  1. ;;=2^93297
  1. ;;^UTILITY(U,$J,358.3,3054,1,3,0)
  1. ;;=3^Rem Interrog Icpms<30 D Phys/QHP
  1. ;;^UTILITY(U,$J,358.3,3055,0)
  1. ;;=G2066^^21^185^8^^^^1
  1. ;;^UTILITY(U,$J,358.3,3055,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3055,1,2,0)
  1. ;;=2^G2066
  1. ;;^UTILITY(U,$J,358.3,3055,1,3,0)
  1. ;;=3^Inter Device Eval,Remote up to 30D,Implantable Loop
  1. ;;^UTILITY(U,$J,358.3,3056,0)
  1. ;;=93307^^21^186^19^^^^1
  1. ;;^UTILITY(U,$J,358.3,3056,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3056,1,2,0)
  1. ;;=2^93307
  1. ;;^UTILITY(U,$J,358.3,3056,1,3,0)
  1. ;;=3^Echo,TT,2D,M Mode
  1. ;;^UTILITY(U,$J,358.3,3057,0)
  1. ;;=93308^^21^186^15^^^^1
  1. ;;^UTILITY(U,$J,358.3,3057,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3057,1,2,0)
  1. ;;=2^93308
  1. ;;^UTILITY(U,$J,358.3,3057,1,3,0)
  1. ;;=3^Echo Transthoracic F/U or Limited
  1. ;;^UTILITY(U,$J,358.3,3058,0)
  1. ;;=93320^^21^186^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,3058,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3058,1,2,0)
  1. ;;=2^93320
  1. ;;^UTILITY(U,$J,358.3,3058,1,3,0)
  1. ;;=3^Doppler ECHO pulse wave,Complete
  1. ;;^UTILITY(U,$J,358.3,3059,0)
  1. ;;=93325^^21^186^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,3059,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3059,1,2,0)
  1. ;;=2^93325
  1. ;;^UTILITY(U,$J,358.3,3059,1,3,0)
  1. ;;=3^Doppler ECHO color flow velocity mapping
  1. ;;^UTILITY(U,$J,358.3,3060,0)
  1. ;;=93350^^21^186^17^^^^1
  1. ;;^UTILITY(U,$J,358.3,3060,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3060,1,2,0)
  1. ;;=2^93350
  1. ;;^UTILITY(U,$J,358.3,3060,1,3,0)
  1. ;;=3^Echo Transthoracic,Rest/Stress Test
  1. ;;^UTILITY(U,$J,358.3,3061,0)
  1. ;;=93306^^21^186^20^^^^1
  1. ;;^UTILITY(U,$J,358.3,3061,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3061,1,2,0)
  1. ;;=2^93306
  1. ;;^UTILITY(U,$J,358.3,3061,1,3,0)
  1. ;;=3^Echo,TT,2D,M Mode w/ Color Doppler
  1. ;;^UTILITY(U,$J,358.3,3062,0)
  1. ;;=93321^^21^186^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,3062,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3062,1,2,0)
  1. ;;=2^93321
  1. ;;^UTILITY(U,$J,358.3,3062,1,3,0)
  1. ;;=3^Doppler ECHO,Heart,F/U or Limited
  1. ;;^UTILITY(U,$J,358.3,3063,0)
  1. ;;=93351^^21^186^25^^^^1
  1. ;;^UTILITY(U,$J,358.3,3063,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3063,1,2,0)
  1. ;;=2^93351
  1. ;;^UTILITY(U,$J,358.3,3063,1,3,0)
  1. ;;=3^Stress TTE Complete
  1. ;;^UTILITY(U,$J,358.3,3064,0)
  1. ;;=93352^^21^186^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,3064,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3064,1,2,0)
  1. ;;=2^93352
  1. ;;^UTILITY(U,$J,358.3,3064,1,3,0)
  1. ;;=3^Admin ECHO Contrast Agent
  1. ;;^UTILITY(U,$J,358.3,3065,0)
  1. ;;=93312^^21^186^9^^^^1
  1. ;;^UTILITY(U,$J,358.3,3065,1,0)
  1. ;;=^358.31IA^3^2