IBDEI01F ; ; 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,2983,1,3,0)
;;=3^Place Cath Carotid Art
;;^UTILITY(U,$J,358.3,2984,0)
;;=36225^^21^182^19^^^^1
;;^UTILITY(U,$J,358.3,2984,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2984,1,2,0)
;;=2^36225
;;^UTILITY(U,$J,358.3,2984,1,3,0)
;;=3^Place Cath Subclavian Art
;;^UTILITY(U,$J,358.3,2985,0)
;;=36226^^21^182^22^^^^1
;;^UTILITY(U,$J,358.3,2985,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2985,1,2,0)
;;=2^36226
;;^UTILITY(U,$J,358.3,2985,1,3,0)
;;=3^Place Cath Vertebral Art
;;^UTILITY(U,$J,358.3,2986,0)
;;=36227^^21^182^23^^^^1
;;^UTILITY(U,$J,358.3,2986,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2986,1,2,0)
;;=2^36227
;;^UTILITY(U,$J,358.3,2986,1,3,0)
;;=3^Place Cath Xtrnl Carotid
;;^UTILITY(U,$J,358.3,2987,0)
;;=36228^^21^182^18^^^^1
;;^UTILITY(U,$J,358.3,2987,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2987,1,2,0)
;;=2^36228
;;^UTILITY(U,$J,358.3,2987,1,3,0)
;;=3^Place Cath Intracranial Art
;;^UTILITY(U,$J,358.3,2988,0)
;;=36221^^21^182^21^^^^1
;;^UTILITY(U,$J,358.3,2988,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2988,1,2,0)
;;=2^36221
;;^UTILITY(U,$J,358.3,2988,1,3,0)
;;=3^Place Cath Thoracic Aorta
;;^UTILITY(U,$J,358.3,2989,0)
;;=37197^^21^182^29^^^^1
;;^UTILITY(U,$J,358.3,2989,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2989,1,2,0)
;;=2^37197
;;^UTILITY(U,$J,358.3,2989,1,3,0)
;;=3^Remove Intrvas Foreign Body,Broken Cath
;;^UTILITY(U,$J,358.3,2990,0)
;;=36000^^21^182^24^^^^1
;;^UTILITY(U,$J,358.3,2990,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2990,1,2,0)
;;=2^36000
;;^UTILITY(U,$J,358.3,2990,1,3,0)
;;=3^Place Needle/Intracath in Vein
;;^UTILITY(U,$J,358.3,2991,0)
;;=36010^^21^182^20^^^^1
;;^UTILITY(U,$J,358.3,2991,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2991,1,2,0)
;;=2^36010
;;^UTILITY(U,$J,358.3,2991,1,3,0)
;;=3^Place Cath Sup/Inf Vena Cava
;;^UTILITY(U,$J,358.3,2992,0)
;;=37187^^21^182^12^^^^1
;;^UTILITY(U,$J,358.3,2992,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2992,1,2,0)
;;=2^37187
;;^UTILITY(U,$J,358.3,2992,1,3,0)
;;=3^PTCA Thrombectomy (non-cardio),Vein(s),Init
;;^UTILITY(U,$J,358.3,2993,0)
;;=37236^^21^182^52^^^^1
;;^UTILITY(U,$J,358.3,2993,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2993,1,2,0)
;;=2^37236
;;^UTILITY(U,$J,358.3,2993,1,3,0)
;;=3^Transcath Plcmt Intravas Stent,Init Art
;;^UTILITY(U,$J,358.3,2994,0)
;;=37237^^21^182^53^^^^1
;;^UTILITY(U,$J,358.3,2994,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2994,1,2,0)
;;=2^37237
;;^UTILITY(U,$J,358.3,2994,1,3,0)
;;=3^Transcath Plcmt Intravas Stent,Ea Addl Art
;;^UTILITY(U,$J,358.3,2995,0)
;;=37214^^21^182^4^^^^1
;;^UTILITY(U,$J,358.3,2995,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2995,1,2,0)
;;=2^37214
;;^UTILITY(U,$J,358.3,2995,1,3,0)
;;=3^Cess Tx w/ Cath Removal,Art/Ven Inf
;;^UTILITY(U,$J,358.3,2996,0)
;;=37184^^21^182^25^^^^1
;;^UTILITY(U,$J,358.3,2996,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2996,1,2,0)
;;=2^37184
;;^UTILITY(U,$J,358.3,2996,1,3,0)
;;=3^Prim Art Mech Thrombectomy (Non-Cardio)
;;^UTILITY(U,$J,358.3,2997,0)
;;=37185^^21^182^26^^^^1
;;^UTILITY(U,$J,358.3,2997,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2997,1,2,0)
;;=2^37185
;;^UTILITY(U,$J,358.3,2997,1,3,0)
;;=3^Prim Art Mech Thrombectomy,Add-On
;;^UTILITY(U,$J,358.3,2998,0)
;;=36002^^21^182^27^^^^1
;;^UTILITY(U,$J,358.3,2998,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2998,1,2,0)
;;=2^36002
;;^UTILITY(U,$J,358.3,2998,1,3,0)
;;=3^Pseudoaneurysm Injection Trt
;;^UTILITY(U,$J,358.3,2999,0)
;;=37193^^21^182^28^^^^1
;;^UTILITY(U,$J,358.3,2999,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2999,1,2,0)
;;=2^37193
;;^UTILITY(U,$J,358.3,2999,1,3,0)
;;=3^Remove Endovas Vena Cava Filter
;;^UTILITY(U,$J,358.3,3000,0)
;;=37212^^21^182^44^^^^1
;;^UTILITY(U,$J,358.3,3000,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3000,1,2,0)
;;=2^37212
;;^UTILITY(U,$J,358.3,3000,1,3,0)
;;=3^Thrombolytic Venous Therapy
;;^UTILITY(U,$J,358.3,3001,0)
;;=37213^^21^182^43^^^^1
;;^UTILITY(U,$J,358.3,3001,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3001,1,2,0)
;;=2^37213
;;^UTILITY(U,$J,358.3,3001,1,3,0)
;;=3^Thrombolytic Art/Ven Therapy
;;^UTILITY(U,$J,358.3,3002,0)
;;=37229^^21^182^46^^^^1
;;^UTILITY(U,$J,358.3,3002,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3002,1,2,0)
;;=2^37229
;;^UTILITY(U,$J,358.3,3002,1,3,0)
;;=3^Tib/Per Revasc w/ Ather
;;^UTILITY(U,$J,358.3,3003,0)
;;=37230^^21^182^48^^^^1
;;^UTILITY(U,$J,358.3,3003,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3003,1,2,0)
;;=2^37230
;;^UTILITY(U,$J,358.3,3003,1,3,0)
;;=3^Tib/Per Revasc w/ Stent
;;^UTILITY(U,$J,358.3,3004,0)
;;=37231^^21^182^49^^^^1
;;^UTILITY(U,$J,358.3,3004,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3004,1,2,0)
;;=2^37231
;;^UTILITY(U,$J,358.3,3004,1,3,0)
;;=3^Tib/Per Revasc w/ Stent & Ather
;;^UTILITY(U,$J,358.3,3005,0)
;;=37232^^21^182^45^^^^1
;;^UTILITY(U,$J,358.3,3005,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3005,1,2,0)
;;=2^37232
;;^UTILITY(U,$J,358.3,3005,1,3,0)
;;=3^Tib/Per Revasc (Same Vessel),Add-on
;;^UTILITY(U,$J,358.3,3006,0)
;;=37233^^21^182^47^^^^1
;;^UTILITY(U,$J,358.3,3006,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3006,1,2,0)
;;=2^37233
;;^UTILITY(U,$J,358.3,3006,1,3,0)
;;=3^Tib/Per Revasc w/ Ather (Same Vessel),Add-On
;;^UTILITY(U,$J,358.3,3007,0)
;;=37234^^21^182^51^^^^1
;;^UTILITY(U,$J,358.3,3007,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3007,1,2,0)
;;=2^37234
;;^UTILITY(U,$J,358.3,3007,1,3,0)
;;=3^Tib/Per Revasc w/ Stent (Same Vessel),Add-On
;;^UTILITY(U,$J,358.3,3008,0)
;;=37235^^21^182^50^^^^1
;;^UTILITY(U,$J,358.3,3008,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3008,1,2,0)
;;=2^37235
;;^UTILITY(U,$J,358.3,3008,1,3,0)
;;=3^Tib/Per Revasc w/ Stent & Ather (Same Vessel),Add-On
;;^UTILITY(U,$J,358.3,3009,0)
;;=37215^^21^182^54^^^^1
;;^UTILITY(U,$J,358.3,3009,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3009,1,2,0)
;;=2^37215
;;^UTILITY(U,$J,358.3,3009,1,3,0)
;;=3^Transcath Stent CCA w/ EPS
;;^UTILITY(U,$J,358.3,3010,0)
;;=37216^^21^182^55^^^^1
;;^UTILITY(U,$J,358.3,3010,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3010,1,2,0)
;;=2^37216
;;^UTILITY(U,$J,358.3,3010,1,3,0)
;;=3^Transcath Stent CCA w/o EPS
;;^UTILITY(U,$J,358.3,3011,0)
;;=37188^^21^182^13^^^^1
;;^UTILITY(U,$J,358.3,3011,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3011,1,2,0)
;;=2^37188
;;^UTILITY(U,$J,358.3,3011,1,3,0)
;;=3^Percut Mech Thrombectomy,Sub Day of Thromb Tx
;;^UTILITY(U,$J,358.3,3012,0)
;;=36901^^21^182^1^^^^1
;;^UTILITY(U,$J,358.3,3012,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3012,1,2,0)
;;=2^36901
;;^UTILITY(U,$J,358.3,3012,1,3,0)
;;=3^Access AV Dial Graft Inf/Sup Vena Cava
;;^UTILITY(U,$J,358.3,3013,0)
;;=36902^^21^182^2^^^^1
;;^UTILITY(U,$J,358.3,3013,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3013,1,2,0)
;;=2^36902
;;^UTILITY(U,$J,358.3,3013,1,3,0)
;;=3^Access AV Dial Graft Periph Segment
;;^UTILITY(U,$J,358.3,3014,0)
;;=36903^^21^182^3^^^^1
;;^UTILITY(U,$J,358.3,3014,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3014,1,2,0)
;;=2^36903
;;^UTILITY(U,$J,358.3,3014,1,3,0)
;;=3^Access AV Dial Grft Periph Segmnt w/ Stnt/Angiopls
;;^UTILITY(U,$J,358.3,3015,0)
;;=37192^^21^182^30^^^^1
;;^UTILITY(U,$J,358.3,3015,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3015,1,2,0)
;;=2^37192
;;^UTILITY(U,$J,358.3,3015,1,3,0)
;;=3^Reposition Endovas Vena Cava Filter
;;^UTILITY(U,$J,358.3,3016,0)
;;=36215^^21^182^35^^^^1
;;^UTILITY(U,$J,358.3,3016,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3016,1,2,0)
;;=2^36215
;;^UTILITY(U,$J,358.3,3016,1,3,0)
;;=3^Select Cath 1st Order Thoracic/Brachiocephalic
;;^UTILITY(U,$J,358.3,3017,0)
;;=36012^^21^182^37^^^^1
;;^UTILITY(U,$J,358.3,3017,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3017,1,2,0)
;;=2^36012
;;^UTILITY(U,$J,358.3,3017,1,3,0)
;;=3^Select Cath 2nd Order Adrenal Vein
;;^UTILITY(U,$J,358.3,3018,0)
;;=36218^^21^182^40^^^^1
;;^UTILITY(U,$J,358.3,3018,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3018,1,2,0)
;;=2^36218
;;^UTILITY(U,$J,358.3,3018,1,3,0)
;;=3^Select Cath 2nd/3rd Order Thor/Ue/Head,Ea Addl
;;^UTILITY(U,$J,358.3,3019,0)
;;=33016^^21^182^14^^^^1
;;^UTILITY(U,$J,358.3,3019,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3019,1,2,0)
;;=2^33016
;;^UTILITY(U,$J,358.3,3019,1,3,0)
;;=3^Pericardiocentesis w/ Img Guidance
;;^UTILITY(U,$J,358.3,3020,0)
;;=93740^^21^183^7^^^^1
;;^UTILITY(U,$J,358.3,3020,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3020,1,2,0)
;;=2^93740
;;^UTILITY(U,$J,358.3,3020,1,3,0)
;;=3^Temperature Gradient Studies
;;^UTILITY(U,$J,358.3,3021,0)
;;=93784^^21^183^4^^^^1
;;^UTILITY(U,$J,358.3,3021,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3021,1,2,0)
;;=2^93784
;;^UTILITY(U,$J,358.3,3021,1,3,0)
;;=3^Amb BP Monitor 24+ hrs,Int&Rpt
;;^UTILITY(U,$J,358.3,3022,0)
;;=93786^^21^183^5^^^^1
;;^UTILITY(U,$J,358.3,3022,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3022,1,2,0)
;;=2^93786
;;^UTILITY(U,$J,358.3,3022,1,3,0)
;;=3^Amb BP Monitor 24+ hrs,Record Only
;;^UTILITY(U,$J,358.3,3023,0)
;;=93788^^21^183^3^^^^1
;;^UTILITY(U,$J,358.3,3023,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3023,1,2,0)
;;=2^93788
;;^UTILITY(U,$J,358.3,3023,1,3,0)
;;=3^Amb BP Analysis & Rpt
;;^UTILITY(U,$J,358.3,3024,0)
;;=93790^^21^183^6^^^^1
;;^UTILITY(U,$J,358.3,3024,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3024,1,2,0)
;;=2^93790
;;^UTILITY(U,$J,358.3,3024,1,3,0)
;;=3^Amb BP Review w/ Int&Rpt
;;^UTILITY(U,$J,358.3,3025,0)
;;=76376^^21^183^2^^^^1
;;^UTILITY(U,$J,358.3,3025,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3025,1,2,0)
;;=2^76376
;;^UTILITY(U,$J,358.3,3025,1,3,0)
;;=3^3D Rendering w/ Interp/Postprocess Supervision
;;^UTILITY(U,$J,358.3,3026,0)
;;=76377^^21^183^1^^^^1
;;^UTILITY(U,$J,358.3,3026,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3026,1,2,0)
;;=2^76377
;;^UTILITY(U,$J,358.3,3026,1,3,0)
;;=3^3D Rendering w/ Interp/Postprocess Diff Work Station
;;^UTILITY(U,$J,358.3,3027,0)
;;=34701^^21^184^8^^^^1
;;^UTILITY(U,$J,358.3,3027,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3027,1,2,0)
;;=2^34701
;;^UTILITY(U,$J,358.3,3027,1,3,0)
;;=3^Endovsc,Infrnl,Aortic-Aortic
;;^UTILITY(U,$J,358.3,3028,0)
;;=34702^^21^184^9^^^^1
;;^UTILITY(U,$J,358.3,3028,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3028,1,2,0)
;;=2^34702
;;^UTILITY(U,$J,358.3,3028,1,3,0)
;;=3^Endovsc,Infrnl,Aortic-Aortic & Bifurc w/ Balloon
;;^UTILITY(U,$J,358.3,3029,0)
;;=34703^^21^184^7^^^^1
;;^UTILITY(U,$J,358.3,3029,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3029,1,2,0)
;;=2^34703
;;^UTILITY(U,$J,358.3,3029,1,3,0)
;;=3^Endovsc,Infrnl Aorta/Iliac Arteries
;;^UTILITY(U,$J,358.3,3030,0)
;;=34704^^21^184^6^^^^1
;;^UTILITY(U,$J,358.3,3030,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3030,1,2,0)
;;=2^34704
;;^UTILITY(U,$J,358.3,3030,1,3,0)
;;=3^Endovsc,Infrnl Aorta/Iliac Art w/ Balloon
;;^UTILITY(U,$J,358.3,3031,0)
;;=34705^^21^184^4^^^^1
;;^UTILITY(U,$J,358.3,3031,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3031,1,2,0)
;;=2^34705
;;^UTILITY(U,$J,358.3,3031,1,3,0)
;;=3^Endovsc,Infrnl Aorta/Iliac Art & Bifurc w/ Balloon
;;^UTILITY(U,$J,358.3,3032,0)
;;=34706^^21^184^5^^^^1
;;^UTILITY(U,$J,358.3,3032,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3032,1,2,0)
;;=2^34706
;;^UTILITY(U,$J,358.3,3032,1,3,0)
;;=3^Endovsc,Infrnl Aorta/Iliac Art & Bifurc
;;^UTILITY(U,$J,358.3,3033,0)
;;=34707^^21^184^2^^^^1
;;^UTILITY(U,$J,358.3,3033,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3033,1,2,0)
;;=2^34707
;;^UTILITY(U,$J,358.3,3033,1,3,0)
;;=3^Endovsc,Iliac Art,Ilio-Iliac Tube
;;^UTILITY(U,$J,358.3,3034,0)
;;=34708^^21^184^3^^^^1
;;^UTILITY(U,$J,358.3,3034,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3034,1,2,0)
;;=2^34708
;;^UTILITY(U,$J,358.3,3034,1,3,0)
;;=3^Endovsc,Iliac Art,Ilio-Iliac Tube w/ Balloon
;;^UTILITY(U,$J,358.3,3035,0)
;;=34709^^21^184^10^^^^1
;;^UTILITY(U,$J,358.3,3035,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3035,1,2,0)
;;=2^34709
;;^UTILITY(U,$J,358.3,3035,1,3,0)
;;=3^Plcmnt Pros Distal 2 Common Iliac/Prxml to Rnl
;;^UTILITY(U,$J,358.3,3036,0)
;;=34710^^21^184^1^^^^1
;;^UTILITY(U,$J,358.3,3036,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3036,1,2,0)
;;=2^34710
;;^UTILITY(U,$J,358.3,3036,1,3,0)
;;=3^Dlyd Plcmnt Distal/Prxml Ext Pros AAA/Iliac
;;^UTILITY(U,$J,358.3,3037,0)
;;=93279^^21^185^12^^^^1
;;^UTILITY(U,$J,358.3,3037,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3037,1,2,0)
;;=2^93279
;;^UTILITY(U,$J,358.3,3037,1,3,0)
;;=3^PM DEVICE PROGR EVAL W/ ADJSMT,SNGL
;;^UTILITY(U,$J,358.3,3038,0)
;;=93280^^21^185^10^^^^1
;;^UTILITY(U,$J,358.3,3038,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3038,1,2,0)
;;=2^93280
;;^UTILITY(U,$J,358.3,3038,1,3,0)
;;=3^PM DEVICE PROGR EVAL W/ ADJSMT,DUAL
;;^UTILITY(U,$J,358.3,3039,0)
;;=93281^^21^185^11^^^^1
;;^UTILITY(U,$J,358.3,3039,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3039,1,2,0)
;;=2^93281
;;^UTILITY(U,$J,358.3,3039,1,3,0)
;;=3^PM DEVICE PROGR EVAL W/ ADJSMT,MULTI
;;^UTILITY(U,$J,358.3,3040,0)
;;=93282^^21^185^3^^^^1
;;^UTILITY(U,$J,358.3,3040,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3040,1,2,0)
;;=2^93282
;;^UTILITY(U,$J,358.3,3040,1,3,0)
;;=3^ICD DEVICE PROGR EVAL W/ ADJSMT,1 SNGL
;;^UTILITY(U,$J,358.3,3041,0)
;;=93283^^21^185^4^^^^1
;;^UTILITY(U,$J,358.3,3041,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3041,1,2,0)
;;=2^93283
;;^UTILITY(U,$J,358.3,3041,1,3,0)
;;=3^ICD DEVICE PROGR EVAL W/ ADJSMT,DUAL
;;^UTILITY(U,$J,358.3,3042,0)
;;=93284^^21^185^5^^^^1
;;^UTILITY(U,$J,358.3,3042,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3042,1,2,0)
;;=2^93284
;;^UTILITY(U,$J,358.3,3042,1,3,0)
;;=3^ICD DEVICE PROGR EVAL W/ ADJSMT,MULTI
;;^UTILITY(U,$J,358.3,3043,0)
;;=93285^^21^185^7^^^^1
;;^UTILITY(U,$J,358.3,3043,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3043,1,2,0)
;;=2^93285
;;^UTILITY(U,$J,358.3,3043,1,3,0)
;;=3^ILR DEVICE EVAL PROGR W/ ADJSMT
;;^UTILITY(U,$J,358.3,3044,0)
;;=93286^^21^185^17^^^^1
;;^UTILITY(U,$J,358.3,3044,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3044,1,2,0)
;;=2^93286
;;^UTILITY(U,$J,358.3,3044,1,3,0)
;;=3^PRE-OP PM DEVICE EVAL
;;^UTILITY(U,$J,358.3,3045,0)
;;=93287^^21^185^16^^^^1
;;^UTILITY(U,$J,358.3,3045,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3045,1,2,0)
;;=2^93287
;;^UTILITY(U,$J,358.3,3045,1,3,0)
;;=3^PRE-OP ICD DEVICE EVAL
;;^UTILITY(U,$J,358.3,3046,0)
;;=93288^^21^185^9^^^^1
;;^UTILITY(U,$J,358.3,3046,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3046,1,2,0)
;;=2^93288
;;^UTILITY(U,$J,358.3,3046,1,3,0)
;;=3^PM DEVICE EVAL IN PERSON
;;^UTILITY(U,$J,358.3,3047,0)
;;=93289^^21^185^2^^^^1
;;^UTILITY(U,$J,358.3,3047,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3047,1,2,0)
;;=2^93289
;;^UTILITY(U,$J,358.3,3047,1,3,0)
;;=3^ICD DEVICE INTERROGATE
;;^UTILITY(U,$J,358.3,3048,0)
;;=93293^^21^185^14^^^^1
;;^UTILITY(U,$J,358.3,3048,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3048,1,2,0)
;;=2^93293
;;^UTILITY(U,$J,358.3,3048,1,3,0)
;;=3^PM PHONE R-STRIP DEVICE EVAL
;;^UTILITY(U,$J,358.3,3049,0)
;;=93296^^21^185^15^^^^1
;;^UTILITY(U,$J,358.3,3049,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3049,1,2,0)
;;=2^93296
;;^UTILITY(U,$J,358.3,3049,1,3,0)
;;=3^PM/ICD REMOTE TECH SERV
;;^UTILITY(U,$J,358.3,3050,0)
;;=93745^^21^185^19^^^^1
;;^UTILITY(U,$J,358.3,3050,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3050,1,2,0)
;;=2^93745
;;^UTILITY(U,$J,358.3,3050,1,3,0)
;;=3^SET-UP CARDIOVERT-DEFIBRILL,INIT
;;^UTILITY(U,$J,358.3,3051,0)
;;=93640^^21^185^1^^^^1
;;^UTILITY(U,$J,358.3,3051,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3051,1,2,0)
;;=2^93640
;;^UTILITY(U,$J,358.3,3051,1,3,0)
;;=3^EVALUATION HEART DEVICE,INIT/RPLMNT
;;^UTILITY(U,$J,358.3,3052,0)
;;=93295^^21^185^6^^^^1
;;^UTILITY(U,$J,358.3,3052,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3052,1,2,0)
;;=2^93295
;;^UTILITY(U,$J,358.3,3052,1,3,0)
;;=3^ICD Device Interrogate Remote
;;^UTILITY(U,$J,358.3,3053,0)
;;=93294^^21^185^13^^^^1
;;^UTILITY(U,$J,358.3,3053,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3053,1,2,0)
;;=2^93294
;;^UTILITY(U,$J,358.3,3053,1,3,0)
;;=3^PM Device Interrogate Remote
;;^UTILITY(U,$J,358.3,3054,0)
;;=93297^^21^185^18^^^^1
;;^UTILITY(U,$J,358.3,3054,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3054,1,2,0)
;;=2^93297
;;^UTILITY(U,$J,358.3,3054,1,3,0)
;;=3^Rem Interrog Icpms<30 D Phys/QHP
;;^UTILITY(U,$J,358.3,3055,0)
;;=G2066^^21^185^8^^^^1
;;^UTILITY(U,$J,358.3,3055,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3055,1,2,0)
;;=2^G2066
;;^UTILITY(U,$J,358.3,3055,1,3,0)
;;=3^Inter Device Eval,Remote up to 30D,Implantable Loop
;;^UTILITY(U,$J,358.3,3056,0)
;;=93307^^21^186^19^^^^1
;;^UTILITY(U,$J,358.3,3056,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3056,1,2,0)
;;=2^93307
;;^UTILITY(U,$J,358.3,3056,1,3,0)
;;=3^Echo,TT,2D,M Mode
;;^UTILITY(U,$J,358.3,3057,0)
;;=93308^^21^186^15^^^^1
;;^UTILITY(U,$J,358.3,3057,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3057,1,2,0)
;;=2^93308
;;^UTILITY(U,$J,358.3,3057,1,3,0)
;;=3^Echo Transthoracic F/U or Limited
;;^UTILITY(U,$J,358.3,3058,0)
;;=93320^^21^186^3^^^^1
;;^UTILITY(U,$J,358.3,3058,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3058,1,2,0)
;;=2^93320
;;^UTILITY(U,$J,358.3,3058,1,3,0)
;;=3^Doppler ECHO pulse wave,Complete
;;^UTILITY(U,$J,358.3,3059,0)
;;=93325^^21^186^2^^^^1
;;^UTILITY(U,$J,358.3,3059,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3059,1,2,0)
;;=2^93325
;;^UTILITY(U,$J,358.3,3059,1,3,0)
;;=3^Doppler ECHO color flow velocity mapping
;;^UTILITY(U,$J,358.3,3060,0)
;;=93350^^21^186^17^^^^1
;;^UTILITY(U,$J,358.3,3060,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3060,1,2,0)
;;=2^93350
;;^UTILITY(U,$J,358.3,3060,1,3,0)
;;=3^Echo Transthoracic,Rest/Stress Test
;;^UTILITY(U,$J,358.3,3061,0)
;;=93306^^21^186^20^^^^1
;;^UTILITY(U,$J,358.3,3061,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3061,1,2,0)
;;=2^93306
;;^UTILITY(U,$J,358.3,3061,1,3,0)
;;=3^Echo,TT,2D,M Mode w/ Color Doppler
;;^UTILITY(U,$J,358.3,3062,0)
;;=93321^^21^186^4^^^^1
;;^UTILITY(U,$J,358.3,3062,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3062,1,2,0)
;;=2^93321
;;^UTILITY(U,$J,358.3,3062,1,3,0)
;;=3^Doppler ECHO,Heart,F/U or Limited
;;^UTILITY(U,$J,358.3,3063,0)
;;=93351^^21^186^25^^^^1
;;^UTILITY(U,$J,358.3,3063,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3063,1,2,0)
;;=2^93351
;;^UTILITY(U,$J,358.3,3063,1,3,0)
;;=3^Stress TTE Complete
;;^UTILITY(U,$J,358.3,3064,0)
;;=93352^^21^186^1^^^^1
;;^UTILITY(U,$J,358.3,3064,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3064,1,2,0)
;;=2^93352
;;^UTILITY(U,$J,358.3,3064,1,3,0)
;;=3^Admin ECHO Contrast Agent
;;^UTILITY(U,$J,358.3,3065,0)
;;=93312^^21^186^9^^^^1
;;^UTILITY(U,$J,358.3,3065,1,0)
;;=^358.31IA^3^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI01F 19745 printed Dec 13, 2024@01:39:43 Page 2
IBDEI01F ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
+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,2983,1,3,0)
+2 ;;=3^Place Cath Carotid Art
+3 ;;^UTILITY(U,$J,358.3,2984,0)
+4 ;;=36225^^21^182^19^^^^1
+5 ;;^UTILITY(U,$J,358.3,2984,1,0)
+6 ;;=^358.31IA^3^2
+7 ;;^UTILITY(U,$J,358.3,2984,1,2,0)
+8 ;;=2^36225
+9 ;;^UTILITY(U,$J,358.3,2984,1,3,0)
+10 ;;=3^Place Cath Subclavian Art
+11 ;;^UTILITY(U,$J,358.3,2985,0)
+12 ;;=36226^^21^182^22^^^^1
+13 ;;^UTILITY(U,$J,358.3,2985,1,0)
+14 ;;=^358.31IA^3^2
+15 ;;^UTILITY(U,$J,358.3,2985,1,2,0)
+16 ;;=2^36226
+17 ;;^UTILITY(U,$J,358.3,2985,1,3,0)
+18 ;;=3^Place Cath Vertebral Art
+19 ;;^UTILITY(U,$J,358.3,2986,0)
+20 ;;=36227^^21^182^23^^^^1
+21 ;;^UTILITY(U,$J,358.3,2986,1,0)
+22 ;;=^358.31IA^3^2
+23 ;;^UTILITY(U,$J,358.3,2986,1,2,0)
+24 ;;=2^36227
+25 ;;^UTILITY(U,$J,358.3,2986,1,3,0)
+26 ;;=3^Place Cath Xtrnl Carotid
+27 ;;^UTILITY(U,$J,358.3,2987,0)
+28 ;;=36228^^21^182^18^^^^1
+29 ;;^UTILITY(U,$J,358.3,2987,1,0)
+30 ;;=^358.31IA^3^2
+31 ;;^UTILITY(U,$J,358.3,2987,1,2,0)
+32 ;;=2^36228
+33 ;;^UTILITY(U,$J,358.3,2987,1,3,0)
+34 ;;=3^Place Cath Intracranial Art
+35 ;;^UTILITY(U,$J,358.3,2988,0)
+36 ;;=36221^^21^182^21^^^^1
+37 ;;^UTILITY(U,$J,358.3,2988,1,0)
+38 ;;=^358.31IA^3^2
+39 ;;^UTILITY(U,$J,358.3,2988,1,2,0)
+40 ;;=2^36221
+41 ;;^UTILITY(U,$J,358.3,2988,1,3,0)
+42 ;;=3^Place Cath Thoracic Aorta
+43 ;;^UTILITY(U,$J,358.3,2989,0)
+44 ;;=37197^^21^182^29^^^^1
+45 ;;^UTILITY(U,$J,358.3,2989,1,0)
+46 ;;=^358.31IA^3^2
+47 ;;^UTILITY(U,$J,358.3,2989,1,2,0)
+48 ;;=2^37197
+49 ;;^UTILITY(U,$J,358.3,2989,1,3,0)
+50 ;;=3^Remove Intrvas Foreign Body,Broken Cath
+51 ;;^UTILITY(U,$J,358.3,2990,0)
+52 ;;=36000^^21^182^24^^^^1
+53 ;;^UTILITY(U,$J,358.3,2990,1,0)
+54 ;;=^358.31IA^3^2
+55 ;;^UTILITY(U,$J,358.3,2990,1,2,0)
+56 ;;=2^36000
+57 ;;^UTILITY(U,$J,358.3,2990,1,3,0)
+58 ;;=3^Place Needle/Intracath in Vein
+59 ;;^UTILITY(U,$J,358.3,2991,0)
+60 ;;=36010^^21^182^20^^^^1
+61 ;;^UTILITY(U,$J,358.3,2991,1,0)
+62 ;;=^358.31IA^3^2
+63 ;;^UTILITY(U,$J,358.3,2991,1,2,0)
+64 ;;=2^36010
+65 ;;^UTILITY(U,$J,358.3,2991,1,3,0)
+66 ;;=3^Place Cath Sup/Inf Vena Cava
+67 ;;^UTILITY(U,$J,358.3,2992,0)
+68 ;;=37187^^21^182^12^^^^1
+69 ;;^UTILITY(U,$J,358.3,2992,1,0)
+70 ;;=^358.31IA^3^2
+71 ;;^UTILITY(U,$J,358.3,2992,1,2,0)
+72 ;;=2^37187
+73 ;;^UTILITY(U,$J,358.3,2992,1,3,0)
+74 ;;=3^PTCA Thrombectomy (non-cardio),Vein(s),Init
+75 ;;^UTILITY(U,$J,358.3,2993,0)
+76 ;;=37236^^21^182^52^^^^1
+77 ;;^UTILITY(U,$J,358.3,2993,1,0)
+78 ;;=^358.31IA^3^2
+79 ;;^UTILITY(U,$J,358.3,2993,1,2,0)
+80 ;;=2^37236
+81 ;;^UTILITY(U,$J,358.3,2993,1,3,0)
+82 ;;=3^Transcath Plcmt Intravas Stent,Init Art
+83 ;;^UTILITY(U,$J,358.3,2994,0)
+84 ;;=37237^^21^182^53^^^^1
+85 ;;^UTILITY(U,$J,358.3,2994,1,0)
+86 ;;=^358.31IA^3^2
+87 ;;^UTILITY(U,$J,358.3,2994,1,2,0)
+88 ;;=2^37237
+89 ;;^UTILITY(U,$J,358.3,2994,1,3,0)
+90 ;;=3^Transcath Plcmt Intravas Stent,Ea Addl Art
+91 ;;^UTILITY(U,$J,358.3,2995,0)
+92 ;;=37214^^21^182^4^^^^1
+93 ;;^UTILITY(U,$J,358.3,2995,1,0)
+94 ;;=^358.31IA^3^2
+95 ;;^UTILITY(U,$J,358.3,2995,1,2,0)
+96 ;;=2^37214
+97 ;;^UTILITY(U,$J,358.3,2995,1,3,0)
+98 ;;=3^Cess Tx w/ Cath Removal,Art/Ven Inf
+99 ;;^UTILITY(U,$J,358.3,2996,0)
+100 ;;=37184^^21^182^25^^^^1
+101 ;;^UTILITY(U,$J,358.3,2996,1,0)
+102 ;;=^358.31IA^3^2
+103 ;;^UTILITY(U,$J,358.3,2996,1,2,0)
+104 ;;=2^37184
+105 ;;^UTILITY(U,$J,358.3,2996,1,3,0)
+106 ;;=3^Prim Art Mech Thrombectomy (Non-Cardio)
+107 ;;^UTILITY(U,$J,358.3,2997,0)
+108 ;;=37185^^21^182^26^^^^1
+109 ;;^UTILITY(U,$J,358.3,2997,1,0)
+110 ;;=^358.31IA^3^2
+111 ;;^UTILITY(U,$J,358.3,2997,1,2,0)
+112 ;;=2^37185
+113 ;;^UTILITY(U,$J,358.3,2997,1,3,0)
+114 ;;=3^Prim Art Mech Thrombectomy,Add-On
+115 ;;^UTILITY(U,$J,358.3,2998,0)
+116 ;;=36002^^21^182^27^^^^1
+117 ;;^UTILITY(U,$J,358.3,2998,1,0)
+118 ;;=^358.31IA^3^2
+119 ;;^UTILITY(U,$J,358.3,2998,1,2,0)
+120 ;;=2^36002
+121 ;;^UTILITY(U,$J,358.3,2998,1,3,0)
+122 ;;=3^Pseudoaneurysm Injection Trt
+123 ;;^UTILITY(U,$J,358.3,2999,0)
+124 ;;=37193^^21^182^28^^^^1
+125 ;;^UTILITY(U,$J,358.3,2999,1,0)
+126 ;;=^358.31IA^3^2
+127 ;;^UTILITY(U,$J,358.3,2999,1,2,0)
+128 ;;=2^37193
+129 ;;^UTILITY(U,$J,358.3,2999,1,3,0)
+130 ;;=3^Remove Endovas Vena Cava Filter
+131 ;;^UTILITY(U,$J,358.3,3000,0)
+132 ;;=37212^^21^182^44^^^^1
+133 ;;^UTILITY(U,$J,358.3,3000,1,0)
+134 ;;=^358.31IA^3^2
+135 ;;^UTILITY(U,$J,358.3,3000,1,2,0)
+136 ;;=2^37212
+137 ;;^UTILITY(U,$J,358.3,3000,1,3,0)
+138 ;;=3^Thrombolytic Venous Therapy
+139 ;;^UTILITY(U,$J,358.3,3001,0)
+140 ;;=37213^^21^182^43^^^^1
+141 ;;^UTILITY(U,$J,358.3,3001,1,0)
+142 ;;=^358.31IA^3^2
+143 ;;^UTILITY(U,$J,358.3,3001,1,2,0)
+144 ;;=2^37213
+145 ;;^UTILITY(U,$J,358.3,3001,1,3,0)
+146 ;;=3^Thrombolytic Art/Ven Therapy
+147 ;;^UTILITY(U,$J,358.3,3002,0)
+148 ;;=37229^^21^182^46^^^^1
+149 ;;^UTILITY(U,$J,358.3,3002,1,0)
+150 ;;=^358.31IA^3^2
+151 ;;^UTILITY(U,$J,358.3,3002,1,2,0)
+152 ;;=2^37229
+153 ;;^UTILITY(U,$J,358.3,3002,1,3,0)
+154 ;;=3^Tib/Per Revasc w/ Ather
+155 ;;^UTILITY(U,$J,358.3,3003,0)
+156 ;;=37230^^21^182^48^^^^1
+157 ;;^UTILITY(U,$J,358.3,3003,1,0)
+158 ;;=^358.31IA^3^2
+159 ;;^UTILITY(U,$J,358.3,3003,1,2,0)
+160 ;;=2^37230
+161 ;;^UTILITY(U,$J,358.3,3003,1,3,0)
+162 ;;=3^Tib/Per Revasc w/ Stent
+163 ;;^UTILITY(U,$J,358.3,3004,0)
+164 ;;=37231^^21^182^49^^^^1
+165 ;;^UTILITY(U,$J,358.3,3004,1,0)
+166 ;;=^358.31IA^3^2
+167 ;;^UTILITY(U,$J,358.3,3004,1,2,0)
+168 ;;=2^37231
+169 ;;^UTILITY(U,$J,358.3,3004,1,3,0)
+170 ;;=3^Tib/Per Revasc w/ Stent & Ather
+171 ;;^UTILITY(U,$J,358.3,3005,0)
+172 ;;=37232^^21^182^45^^^^1
+173 ;;^UTILITY(U,$J,358.3,3005,1,0)
+174 ;;=^358.31IA^3^2
+175 ;;^UTILITY(U,$J,358.3,3005,1,2,0)
+176 ;;=2^37232
+177 ;;^UTILITY(U,$J,358.3,3005,1,3,0)
+178 ;;=3^Tib/Per Revasc (Same Vessel),Add-on
+179 ;;^UTILITY(U,$J,358.3,3006,0)
+180 ;;=37233^^21^182^47^^^^1
+181 ;;^UTILITY(U,$J,358.3,3006,1,0)
+182 ;;=^358.31IA^3^2
+183 ;;^UTILITY(U,$J,358.3,3006,1,2,0)
+184 ;;=2^37233
+185 ;;^UTILITY(U,$J,358.3,3006,1,3,0)
+186 ;;=3^Tib/Per Revasc w/ Ather (Same Vessel),Add-On
+187 ;;^UTILITY(U,$J,358.3,3007,0)
+188 ;;=37234^^21^182^51^^^^1
+189 ;;^UTILITY(U,$J,358.3,3007,1,0)
+190 ;;=^358.31IA^3^2
+191 ;;^UTILITY(U,$J,358.3,3007,1,2,0)
+192 ;;=2^37234
+193 ;;^UTILITY(U,$J,358.3,3007,1,3,0)
+194 ;;=3^Tib/Per Revasc w/ Stent (Same Vessel),Add-On
+195 ;;^UTILITY(U,$J,358.3,3008,0)
+196 ;;=37235^^21^182^50^^^^1
+197 ;;^UTILITY(U,$J,358.3,3008,1,0)
+198 ;;=^358.31IA^3^2
+199 ;;^UTILITY(U,$J,358.3,3008,1,2,0)
+200 ;;=2^37235
+201 ;;^UTILITY(U,$J,358.3,3008,1,3,0)
+202 ;;=3^Tib/Per Revasc w/ Stent & Ather (Same Vessel),Add-On
+203 ;;^UTILITY(U,$J,358.3,3009,0)
+204 ;;=37215^^21^182^54^^^^1
+205 ;;^UTILITY(U,$J,358.3,3009,1,0)
+206 ;;=^358.31IA^3^2
+207 ;;^UTILITY(U,$J,358.3,3009,1,2,0)
+208 ;;=2^37215
+209 ;;^UTILITY(U,$J,358.3,3009,1,3,0)
+210 ;;=3^Transcath Stent CCA w/ EPS
+211 ;;^UTILITY(U,$J,358.3,3010,0)
+212 ;;=37216^^21^182^55^^^^1
+213 ;;^UTILITY(U,$J,358.3,3010,1,0)
+214 ;;=^358.31IA^3^2
+215 ;;^UTILITY(U,$J,358.3,3010,1,2,0)
+216 ;;=2^37216
+217 ;;^UTILITY(U,$J,358.3,3010,1,3,0)
+218 ;;=3^Transcath Stent CCA w/o EPS
+219 ;;^UTILITY(U,$J,358.3,3011,0)
+220 ;;=37188^^21^182^13^^^^1
+221 ;;^UTILITY(U,$J,358.3,3011,1,0)
+222 ;;=^358.31IA^3^2
+223 ;;^UTILITY(U,$J,358.3,3011,1,2,0)
+224 ;;=2^37188
+225 ;;^UTILITY(U,$J,358.3,3011,1,3,0)
+226 ;;=3^Percut Mech Thrombectomy,Sub Day of Thromb Tx
+227 ;;^UTILITY(U,$J,358.3,3012,0)
+228 ;;=36901^^21^182^1^^^^1
+229 ;;^UTILITY(U,$J,358.3,3012,1,0)
+230 ;;=^358.31IA^3^2
+231 ;;^UTILITY(U,$J,358.3,3012,1,2,0)
+232 ;;=2^36901
+233 ;;^UTILITY(U,$J,358.3,3012,1,3,0)
+234 ;;=3^Access AV Dial Graft Inf/Sup Vena Cava
+235 ;;^UTILITY(U,$J,358.3,3013,0)
+236 ;;=36902^^21^182^2^^^^1
+237 ;;^UTILITY(U,$J,358.3,3013,1,0)
+238 ;;=^358.31IA^3^2
+239 ;;^UTILITY(U,$J,358.3,3013,1,2,0)
+240 ;;=2^36902
+241 ;;^UTILITY(U,$J,358.3,3013,1,3,0)
+242 ;;=3^Access AV Dial Graft Periph Segment
+243 ;;^UTILITY(U,$J,358.3,3014,0)
+244 ;;=36903^^21^182^3^^^^1
+245 ;;^UTILITY(U,$J,358.3,3014,1,0)
+246 ;;=^358.31IA^3^2
+247 ;;^UTILITY(U,$J,358.3,3014,1,2,0)
+248 ;;=2^36903
+249 ;;^UTILITY(U,$J,358.3,3014,1,3,0)
+250 ;;=3^Access AV Dial Grft Periph Segmnt w/ Stnt/Angiopls
+251 ;;^UTILITY(U,$J,358.3,3015,0)
+252 ;;=37192^^21^182^30^^^^1
+253 ;;^UTILITY(U,$J,358.3,3015,1,0)
+254 ;;=^358.31IA^3^2
+255 ;;^UTILITY(U,$J,358.3,3015,1,2,0)
+256 ;;=2^37192
+257 ;;^UTILITY(U,$J,358.3,3015,1,3,0)
+258 ;;=3^Reposition Endovas Vena Cava Filter
+259 ;;^UTILITY(U,$J,358.3,3016,0)
+260 ;;=36215^^21^182^35^^^^1
+261 ;;^UTILITY(U,$J,358.3,3016,1,0)
+262 ;;=^358.31IA^3^2
+263 ;;^UTILITY(U,$J,358.3,3016,1,2,0)
+264 ;;=2^36215
+265 ;;^UTILITY(U,$J,358.3,3016,1,3,0)
+266 ;;=3^Select Cath 1st Order Thoracic/Brachiocephalic
+267 ;;^UTILITY(U,$J,358.3,3017,0)
+268 ;;=36012^^21^182^37^^^^1
+269 ;;^UTILITY(U,$J,358.3,3017,1,0)
+270 ;;=^358.31IA^3^2
+271 ;;^UTILITY(U,$J,358.3,3017,1,2,0)
+272 ;;=2^36012
+273 ;;^UTILITY(U,$J,358.3,3017,1,3,0)
+274 ;;=3^Select Cath 2nd Order Adrenal Vein
+275 ;;^UTILITY(U,$J,358.3,3018,0)
+276 ;;=36218^^21^182^40^^^^1
+277 ;;^UTILITY(U,$J,358.3,3018,1,0)
+278 ;;=^358.31IA^3^2
+279 ;;^UTILITY(U,$J,358.3,3018,1,2,0)
+280 ;;=2^36218
+281 ;;^UTILITY(U,$J,358.3,3018,1,3,0)
+282 ;;=3^Select Cath 2nd/3rd Order Thor/Ue/Head,Ea Addl
+283 ;;^UTILITY(U,$J,358.3,3019,0)
+284 ;;=33016^^21^182^14^^^^1
+285 ;;^UTILITY(U,$J,358.3,3019,1,0)
+286 ;;=^358.31IA^3^2
+287 ;;^UTILITY(U,$J,358.3,3019,1,2,0)
+288 ;;=2^33016
+289 ;;^UTILITY(U,$J,358.3,3019,1,3,0)
+290 ;;=3^Pericardiocentesis w/ Img Guidance
+291 ;;^UTILITY(U,$J,358.3,3020,0)
+292 ;;=93740^^21^183^7^^^^1
+293 ;;^UTILITY(U,$J,358.3,3020,1,0)
+294 ;;=^358.31IA^3^2
+295 ;;^UTILITY(U,$J,358.3,3020,1,2,0)
+296 ;;=2^93740
+297 ;;^UTILITY(U,$J,358.3,3020,1,3,0)
+298 ;;=3^Temperature Gradient Studies
+299 ;;^UTILITY(U,$J,358.3,3021,0)
+300 ;;=93784^^21^183^4^^^^1
+301 ;;^UTILITY(U,$J,358.3,3021,1,0)
+302 ;;=^358.31IA^3^2
+303 ;;^UTILITY(U,$J,358.3,3021,1,2,0)
+304 ;;=2^93784
+305 ;;^UTILITY(U,$J,358.3,3021,1,3,0)
+306 ;;=3^Amb BP Monitor 24+ hrs,Int&Rpt
+307 ;;^UTILITY(U,$J,358.3,3022,0)
+308 ;;=93786^^21^183^5^^^^1
+309 ;;^UTILITY(U,$J,358.3,3022,1,0)
+310 ;;=^358.31IA^3^2
+311 ;;^UTILITY(U,$J,358.3,3022,1,2,0)
+312 ;;=2^93786
+313 ;;^UTILITY(U,$J,358.3,3022,1,3,0)
+314 ;;=3^Amb BP Monitor 24+ hrs,Record Only
+315 ;;^UTILITY(U,$J,358.3,3023,0)
+316 ;;=93788^^21^183^3^^^^1
+317 ;;^UTILITY(U,$J,358.3,3023,1,0)
+318 ;;=^358.31IA^3^2
+319 ;;^UTILITY(U,$J,358.3,3023,1,2,0)
+320 ;;=2^93788
+321 ;;^UTILITY(U,$J,358.3,3023,1,3,0)
+322 ;;=3^Amb BP Analysis & Rpt
+323 ;;^UTILITY(U,$J,358.3,3024,0)
+324 ;;=93790^^21^183^6^^^^1
+325 ;;^UTILITY(U,$J,358.3,3024,1,0)
+326 ;;=^358.31IA^3^2
+327 ;;^UTILITY(U,$J,358.3,3024,1,2,0)
+328 ;;=2^93790
+329 ;;^UTILITY(U,$J,358.3,3024,1,3,0)
+330 ;;=3^Amb BP Review w/ Int&Rpt
+331 ;;^UTILITY(U,$J,358.3,3025,0)
+332 ;;=76376^^21^183^2^^^^1
+333 ;;^UTILITY(U,$J,358.3,3025,1,0)
+334 ;;=^358.31IA^3^2
+335 ;;^UTILITY(U,$J,358.3,3025,1,2,0)
+336 ;;=2^76376
+337 ;;^UTILITY(U,$J,358.3,3025,1,3,0)
+338 ;;=3^3D Rendering w/ Interp/Postprocess Supervision
+339 ;;^UTILITY(U,$J,358.3,3026,0)
+340 ;;=76377^^21^183^1^^^^1
+341 ;;^UTILITY(U,$J,358.3,3026,1,0)
+342 ;;=^358.31IA^3^2
+343 ;;^UTILITY(U,$J,358.3,3026,1,2,0)
+344 ;;=2^76377
+345 ;;^UTILITY(U,$J,358.3,3026,1,3,0)
+346 ;;=3^3D Rendering w/ Interp/Postprocess Diff Work Station
+347 ;;^UTILITY(U,$J,358.3,3027,0)
+348 ;;=34701^^21^184^8^^^^1
+349 ;;^UTILITY(U,$J,358.3,3027,1,0)
+350 ;;=^358.31IA^3^2
+351 ;;^UTILITY(U,$J,358.3,3027,1,2,0)
+352 ;;=2^34701
+353 ;;^UTILITY(U,$J,358.3,3027,1,3,0)
+354 ;;=3^Endovsc,Infrnl,Aortic-Aortic
+355 ;;^UTILITY(U,$J,358.3,3028,0)
+356 ;;=34702^^21^184^9^^^^1
+357 ;;^UTILITY(U,$J,358.3,3028,1,0)
+358 ;;=^358.31IA^3^2
+359 ;;^UTILITY(U,$J,358.3,3028,1,2,0)
+360 ;;=2^34702
+361 ;;^UTILITY(U,$J,358.3,3028,1,3,0)
+362 ;;=3^Endovsc,Infrnl,Aortic-Aortic & Bifurc w/ Balloon
+363 ;;^UTILITY(U,$J,358.3,3029,0)
+364 ;;=34703^^21^184^7^^^^1
+365 ;;^UTILITY(U,$J,358.3,3029,1,0)
+366 ;;=^358.31IA^3^2
+367 ;;^UTILITY(U,$J,358.3,3029,1,2,0)
+368 ;;=2^34703
+369 ;;^UTILITY(U,$J,358.3,3029,1,3,0)
+370 ;;=3^Endovsc,Infrnl Aorta/Iliac Arteries
+371 ;;^UTILITY(U,$J,358.3,3030,0)
+372 ;;=34704^^21^184^6^^^^1
+373 ;;^UTILITY(U,$J,358.3,3030,1,0)
+374 ;;=^358.31IA^3^2
+375 ;;^UTILITY(U,$J,358.3,3030,1,2,0)
+376 ;;=2^34704
+377 ;;^UTILITY(U,$J,358.3,3030,1,3,0)
+378 ;;=3^Endovsc,Infrnl Aorta/Iliac Art w/ Balloon
+379 ;;^UTILITY(U,$J,358.3,3031,0)
+380 ;;=34705^^21^184^4^^^^1
+381 ;;^UTILITY(U,$J,358.3,3031,1,0)
+382 ;;=^358.31IA^3^2
+383 ;;^UTILITY(U,$J,358.3,3031,1,2,0)
+384 ;;=2^34705
+385 ;;^UTILITY(U,$J,358.3,3031,1,3,0)
+386 ;;=3^Endovsc,Infrnl Aorta/Iliac Art & Bifurc w/ Balloon
+387 ;;^UTILITY(U,$J,358.3,3032,0)
+388 ;;=34706^^21^184^5^^^^1
+389 ;;^UTILITY(U,$J,358.3,3032,1,0)
+390 ;;=^358.31IA^3^2
+391 ;;^UTILITY(U,$J,358.3,3032,1,2,0)
+392 ;;=2^34706
+393 ;;^UTILITY(U,$J,358.3,3032,1,3,0)
+394 ;;=3^Endovsc,Infrnl Aorta/Iliac Art & Bifurc
+395 ;;^UTILITY(U,$J,358.3,3033,0)
+396 ;;=34707^^21^184^2^^^^1
+397 ;;^UTILITY(U,$J,358.3,3033,1,0)
+398 ;;=^358.31IA^3^2
+399 ;;^UTILITY(U,$J,358.3,3033,1,2,0)
+400 ;;=2^34707
+401 ;;^UTILITY(U,$J,358.3,3033,1,3,0)
+402 ;;=3^Endovsc,Iliac Art,Ilio-Iliac Tube
+403 ;;^UTILITY(U,$J,358.3,3034,0)
+404 ;;=34708^^21^184^3^^^^1
+405 ;;^UTILITY(U,$J,358.3,3034,1,0)
+406 ;;=^358.31IA^3^2
+407 ;;^UTILITY(U,$J,358.3,3034,1,2,0)
+408 ;;=2^34708
+409 ;;^UTILITY(U,$J,358.3,3034,1,3,0)
+410 ;;=3^Endovsc,Iliac Art,Ilio-Iliac Tube w/ Balloon
+411 ;;^UTILITY(U,$J,358.3,3035,0)
+412 ;;=34709^^21^184^10^^^^1
+413 ;;^UTILITY(U,$J,358.3,3035,1,0)
+414 ;;=^358.31IA^3^2
+415 ;;^UTILITY(U,$J,358.3,3035,1,2,0)
+416 ;;=2^34709
+417 ;;^UTILITY(U,$J,358.3,3035,1,3,0)
+418 ;;=3^Plcmnt Pros Distal 2 Common Iliac/Prxml to Rnl
+419 ;;^UTILITY(U,$J,358.3,3036,0)
+420 ;;=34710^^21^184^1^^^^1
+421 ;;^UTILITY(U,$J,358.3,3036,1,0)
+422 ;;=^358.31IA^3^2
+423 ;;^UTILITY(U,$J,358.3,3036,1,2,0)
+424 ;;=2^34710
+425 ;;^UTILITY(U,$J,358.3,3036,1,3,0)
+426 ;;=3^Dlyd Plcmnt Distal/Prxml Ext Pros AAA/Iliac
+427 ;;^UTILITY(U,$J,358.3,3037,0)
+428 ;;=93279^^21^185^12^^^^1
+429 ;;^UTILITY(U,$J,358.3,3037,1,0)
+430 ;;=^358.31IA^3^2
+431 ;;^UTILITY(U,$J,358.3,3037,1,2,0)
+432 ;;=2^93279
+433 ;;^UTILITY(U,$J,358.3,3037,1,3,0)
+434 ;;=3^PM DEVICE PROGR EVAL W/ ADJSMT,SNGL
+435 ;;^UTILITY(U,$J,358.3,3038,0)
+436 ;;=93280^^21^185^10^^^^1
+437 ;;^UTILITY(U,$J,358.3,3038,1,0)
+438 ;;=^358.31IA^3^2
+439 ;;^UTILITY(U,$J,358.3,3038,1,2,0)
+440 ;;=2^93280
+441 ;;^UTILITY(U,$J,358.3,3038,1,3,0)
+442 ;;=3^PM DEVICE PROGR EVAL W/ ADJSMT,DUAL
+443 ;;^UTILITY(U,$J,358.3,3039,0)
+444 ;;=93281^^21^185^11^^^^1
+445 ;;^UTILITY(U,$J,358.3,3039,1,0)
+446 ;;=^358.31IA^3^2
+447 ;;^UTILITY(U,$J,358.3,3039,1,2,0)
+448 ;;=2^93281
+449 ;;^UTILITY(U,$J,358.3,3039,1,3,0)
+450 ;;=3^PM DEVICE PROGR EVAL W/ ADJSMT,MULTI
+451 ;;^UTILITY(U,$J,358.3,3040,0)
+452 ;;=93282^^21^185^3^^^^1
+453 ;;^UTILITY(U,$J,358.3,3040,1,0)
+454 ;;=^358.31IA^3^2
+455 ;;^UTILITY(U,$J,358.3,3040,1,2,0)
+456 ;;=2^93282
+457 ;;^UTILITY(U,$J,358.3,3040,1,3,0)
+458 ;;=3^ICD DEVICE PROGR EVAL W/ ADJSMT,1 SNGL
+459 ;;^UTILITY(U,$J,358.3,3041,0)
+460 ;;=93283^^21^185^4^^^^1
+461 ;;^UTILITY(U,$J,358.3,3041,1,0)
+462 ;;=^358.31IA^3^2
+463 ;;^UTILITY(U,$J,358.3,3041,1,2,0)
+464 ;;=2^93283
+465 ;;^UTILITY(U,$J,358.3,3041,1,3,0)
+466 ;;=3^ICD DEVICE PROGR EVAL W/ ADJSMT,DUAL
+467 ;;^UTILITY(U,$J,358.3,3042,0)
+468 ;;=93284^^21^185^5^^^^1
+469 ;;^UTILITY(U,$J,358.3,3042,1,0)
+470 ;;=^358.31IA^3^2
+471 ;;^UTILITY(U,$J,358.3,3042,1,2,0)
+472 ;;=2^93284
+473 ;;^UTILITY(U,$J,358.3,3042,1,3,0)
+474 ;;=3^ICD DEVICE PROGR EVAL W/ ADJSMT,MULTI
+475 ;;^UTILITY(U,$J,358.3,3043,0)
+476 ;;=93285^^21^185^7^^^^1
+477 ;;^UTILITY(U,$J,358.3,3043,1,0)
+478 ;;=^358.31IA^3^2
+479 ;;^UTILITY(U,$J,358.3,3043,1,2,0)
+480 ;;=2^93285
+481 ;;^UTILITY(U,$J,358.3,3043,1,3,0)
+482 ;;=3^ILR DEVICE EVAL PROGR W/ ADJSMT
+483 ;;^UTILITY(U,$J,358.3,3044,0)
+484 ;;=93286^^21^185^17^^^^1
+485 ;;^UTILITY(U,$J,358.3,3044,1,0)
+486 ;;=^358.31IA^3^2
+487 ;;^UTILITY(U,$J,358.3,3044,1,2,0)
+488 ;;=2^93286
+489 ;;^UTILITY(U,$J,358.3,3044,1,3,0)
+490 ;;=3^PRE-OP PM DEVICE EVAL
+491 ;;^UTILITY(U,$J,358.3,3045,0)
+492 ;;=93287^^21^185^16^^^^1
+493 ;;^UTILITY(U,$J,358.3,3045,1,0)
+494 ;;=^358.31IA^3^2
+495 ;;^UTILITY(U,$J,358.3,3045,1,2,0)
+496 ;;=2^93287
+497 ;;^UTILITY(U,$J,358.3,3045,1,3,0)
+498 ;;=3^PRE-OP ICD DEVICE EVAL
+499 ;;^UTILITY(U,$J,358.3,3046,0)
+500 ;;=93288^^21^185^9^^^^1
+501 ;;^UTILITY(U,$J,358.3,3046,1,0)
+502 ;;=^358.31IA^3^2
+503 ;;^UTILITY(U,$J,358.3,3046,1,2,0)
+504 ;;=2^93288
+505 ;;^UTILITY(U,$J,358.3,3046,1,3,0)
+506 ;;=3^PM DEVICE EVAL IN PERSON
+507 ;;^UTILITY(U,$J,358.3,3047,0)
+508 ;;=93289^^21^185^2^^^^1
+509 ;;^UTILITY(U,$J,358.3,3047,1,0)
+510 ;;=^358.31IA^3^2
+511 ;;^UTILITY(U,$J,358.3,3047,1,2,0)
+512 ;;=2^93289
+513 ;;^UTILITY(U,$J,358.3,3047,1,3,0)
+514 ;;=3^ICD DEVICE INTERROGATE
+515 ;;^UTILITY(U,$J,358.3,3048,0)
+516 ;;=93293^^21^185^14^^^^1
+517 ;;^UTILITY(U,$J,358.3,3048,1,0)
+518 ;;=^358.31IA^3^2
+519 ;;^UTILITY(U,$J,358.3,3048,1,2,0)
+520 ;;=2^93293
+521 ;;^UTILITY(U,$J,358.3,3048,1,3,0)
+522 ;;=3^PM PHONE R-STRIP DEVICE EVAL
+523 ;;^UTILITY(U,$J,358.3,3049,0)
+524 ;;=93296^^21^185^15^^^^1
+525 ;;^UTILITY(U,$J,358.3,3049,1,0)
+526 ;;=^358.31IA^3^2
+527 ;;^UTILITY(U,$J,358.3,3049,1,2,0)
+528 ;;=2^93296
+529 ;;^UTILITY(U,$J,358.3,3049,1,3,0)
+530 ;;=3^PM/ICD REMOTE TECH SERV
+531 ;;^UTILITY(U,$J,358.3,3050,0)
+532 ;;=93745^^21^185^19^^^^1
+533 ;;^UTILITY(U,$J,358.3,3050,1,0)
+534 ;;=^358.31IA^3^2
+535 ;;^UTILITY(U,$J,358.3,3050,1,2,0)
+536 ;;=2^93745
+537 ;;^UTILITY(U,$J,358.3,3050,1,3,0)
+538 ;;=3^SET-UP CARDIOVERT-DEFIBRILL,INIT
+539 ;;^UTILITY(U,$J,358.3,3051,0)
+540 ;;=93640^^21^185^1^^^^1
+541 ;;^UTILITY(U,$J,358.3,3051,1,0)
+542 ;;=^358.31IA^3^2
+543 ;;^UTILITY(U,$J,358.3,3051,1,2,0)
+544 ;;=2^93640
+545 ;;^UTILITY(U,$J,358.3,3051,1,3,0)
+546 ;;=3^EVALUATION HEART DEVICE,INIT/RPLMNT
+547 ;;^UTILITY(U,$J,358.3,3052,0)
+548 ;;=93295^^21^185^6^^^^1
+549 ;;^UTILITY(U,$J,358.3,3052,1,0)
+550 ;;=^358.31IA^3^2
+551 ;;^UTILITY(U,$J,358.3,3052,1,2,0)
+552 ;;=2^93295
+553 ;;^UTILITY(U,$J,358.3,3052,1,3,0)
+554 ;;=3^ICD Device Interrogate Remote
+555 ;;^UTILITY(U,$J,358.3,3053,0)
+556 ;;=93294^^21^185^13^^^^1
+557 ;;^UTILITY(U,$J,358.3,3053,1,0)
+558 ;;=^358.31IA^3^2
+559 ;;^UTILITY(U,$J,358.3,3053,1,2,0)
+560 ;;=2^93294
+561 ;;^UTILITY(U,$J,358.3,3053,1,3,0)
+562 ;;=3^PM Device Interrogate Remote
+563 ;;^UTILITY(U,$J,358.3,3054,0)
+564 ;;=93297^^21^185^18^^^^1
+565 ;;^UTILITY(U,$J,358.3,3054,1,0)
+566 ;;=^358.31IA^3^2
+567 ;;^UTILITY(U,$J,358.3,3054,1,2,0)
+568 ;;=2^93297
+569 ;;^UTILITY(U,$J,358.3,3054,1,3,0)
+570 ;;=3^Rem Interrog Icpms<30 D Phys/QHP
+571 ;;^UTILITY(U,$J,358.3,3055,0)
+572 ;;=G2066^^21^185^8^^^^1
+573 ;;^UTILITY(U,$J,358.3,3055,1,0)
+574 ;;=^358.31IA^3^2
+575 ;;^UTILITY(U,$J,358.3,3055,1,2,0)
+576 ;;=2^G2066
+577 ;;^UTILITY(U,$J,358.3,3055,1,3,0)
+578 ;;=3^Inter Device Eval,Remote up to 30D,Implantable Loop
+579 ;;^UTILITY(U,$J,358.3,3056,0)
+580 ;;=93307^^21^186^19^^^^1
+581 ;;^UTILITY(U,$J,358.3,3056,1,0)
+582 ;;=^358.31IA^3^2
+583 ;;^UTILITY(U,$J,358.3,3056,1,2,0)
+584 ;;=2^93307
+585 ;;^UTILITY(U,$J,358.3,3056,1,3,0)
+586 ;;=3^Echo,TT,2D,M Mode
+587 ;;^UTILITY(U,$J,358.3,3057,0)
+588 ;;=93308^^21^186^15^^^^1
+589 ;;^UTILITY(U,$J,358.3,3057,1,0)
+590 ;;=^358.31IA^3^2
+591 ;;^UTILITY(U,$J,358.3,3057,1,2,0)
+592 ;;=2^93308
+593 ;;^UTILITY(U,$J,358.3,3057,1,3,0)
+594 ;;=3^Echo Transthoracic F/U or Limited
+595 ;;^UTILITY(U,$J,358.3,3058,0)
+596 ;;=93320^^21^186^3^^^^1
+597 ;;^UTILITY(U,$J,358.3,3058,1,0)
+598 ;;=^358.31IA^3^2
+599 ;;^UTILITY(U,$J,358.3,3058,1,2,0)
+600 ;;=2^93320
+601 ;;^UTILITY(U,$J,358.3,3058,1,3,0)
+602 ;;=3^Doppler ECHO pulse wave,Complete
+603 ;;^UTILITY(U,$J,358.3,3059,0)
+604 ;;=93325^^21^186^2^^^^1
+605 ;;^UTILITY(U,$J,358.3,3059,1,0)
+606 ;;=^358.31IA^3^2
+607 ;;^UTILITY(U,$J,358.3,3059,1,2,0)
+608 ;;=2^93325
+609 ;;^UTILITY(U,$J,358.3,3059,1,3,0)
+610 ;;=3^Doppler ECHO color flow velocity mapping
+611 ;;^UTILITY(U,$J,358.3,3060,0)
+612 ;;=93350^^21^186^17^^^^1
+613 ;;^UTILITY(U,$J,358.3,3060,1,0)
+614 ;;=^358.31IA^3^2
+615 ;;^UTILITY(U,$J,358.3,3060,1,2,0)
+616 ;;=2^93350
+617 ;;^UTILITY(U,$J,358.3,3060,1,3,0)
+618 ;;=3^Echo Transthoracic,Rest/Stress Test
+619 ;;^UTILITY(U,$J,358.3,3061,0)
+620 ;;=93306^^21^186^20^^^^1
+621 ;;^UTILITY(U,$J,358.3,3061,1,0)
+622 ;;=^358.31IA^3^2
+623 ;;^UTILITY(U,$J,358.3,3061,1,2,0)
+624 ;;=2^93306
+625 ;;^UTILITY(U,$J,358.3,3061,1,3,0)
+626 ;;=3^Echo,TT,2D,M Mode w/ Color Doppler
+627 ;;^UTILITY(U,$J,358.3,3062,0)
+628 ;;=93321^^21^186^4^^^^1
+629 ;;^UTILITY(U,$J,358.3,3062,1,0)
+630 ;;=^358.31IA^3^2
+631 ;;^UTILITY(U,$J,358.3,3062,1,2,0)
+632 ;;=2^93321
+633 ;;^UTILITY(U,$J,358.3,3062,1,3,0)
+634 ;;=3^Doppler ECHO,Heart,F/U or Limited
+635 ;;^UTILITY(U,$J,358.3,3063,0)
+636 ;;=93351^^21^186^25^^^^1
+637 ;;^UTILITY(U,$J,358.3,3063,1,0)
+638 ;;=^358.31IA^3^2
+639 ;;^UTILITY(U,$J,358.3,3063,1,2,0)
+640 ;;=2^93351
+641 ;;^UTILITY(U,$J,358.3,3063,1,3,0)
+642 ;;=3^Stress TTE Complete
+643 ;;^UTILITY(U,$J,358.3,3064,0)
+644 ;;=93352^^21^186^1^^^^1
+645 ;;^UTILITY(U,$J,358.3,3064,1,0)
+646 ;;=^358.31IA^3^2
+647 ;;^UTILITY(U,$J,358.3,3064,1,2,0)
+648 ;;=2^93352
+649 ;;^UTILITY(U,$J,358.3,3064,1,3,0)
+650 ;;=3^Admin ECHO Contrast Agent
+651 ;;^UTILITY(U,$J,358.3,3065,0)
+652 ;;=93312^^21^186^9^^^^1
+653 ;;^UTILITY(U,$J,358.3,3065,1,0)
+654 ;;=^358.31IA^3^2