IBDEI01C ; ; 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,2736,1,3,0)
;;=3^Secondary Hypertension,Unspec
;;^UTILITY(U,$J,358.3,2736,1,4,0)
;;=4^I15.9
;;^UTILITY(U,$J,358.3,2736,2)
;;=^5007075
;;^UTILITY(U,$J,358.3,2737,0)
;;=I16.0^^20^174^14
;;^UTILITY(U,$J,358.3,2737,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2737,1,3,0)
;;=3^Hypertensive Urgency
;;^UTILITY(U,$J,358.3,2737,1,4,0)
;;=4^I16.0
;;^UTILITY(U,$J,358.3,2737,2)
;;=^8133013
;;^UTILITY(U,$J,358.3,2738,0)
;;=I16.1^^20^174^7
;;^UTILITY(U,$J,358.3,2738,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2738,1,3,0)
;;=3^Hypertensive Emergency
;;^UTILITY(U,$J,358.3,2738,1,4,0)
;;=4^I16.1
;;^UTILITY(U,$J,358.3,2738,2)
;;=^8204721
;;^UTILITY(U,$J,358.3,2739,0)
;;=I16.9^^20^174^6
;;^UTILITY(U,$J,358.3,2739,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,2739,1,3,0)
;;=3^Hypertensive Crisis,Unspec
;;^UTILITY(U,$J,358.3,2739,1,4,0)
;;=4^I16.9
;;^UTILITY(U,$J,358.3,2739,2)
;;=^5138600
;;^UTILITY(U,$J,358.3,2740,0)
;;=33206^^21^175^37^^^^1
;;^UTILITY(U,$J,358.3,2740,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2740,1,2,0)
;;=2^33206
;;^UTILITY(U,$J,358.3,2740,1,3,0)
;;=3^Pace Implant, Atrial
;;^UTILITY(U,$J,358.3,2741,0)
;;=33207^^21^175^39^^^^1
;;^UTILITY(U,$J,358.3,2741,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2741,1,2,0)
;;=2^33207
;;^UTILITY(U,$J,358.3,2741,1,3,0)
;;=3^Pace Implant,Vent
;;^UTILITY(U,$J,358.3,2742,0)
;;=33208^^21^175^38^^^^1
;;^UTILITY(U,$J,358.3,2742,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2742,1,2,0)
;;=2^33208
;;^UTILITY(U,$J,358.3,2742,1,3,0)
;;=3^Pace Implant, Ddd
;;^UTILITY(U,$J,358.3,2743,0)
;;=33210^^21^175^64^^^^1
;;^UTILITY(U,$J,358.3,2743,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2743,1,2,0)
;;=2^33210
;;^UTILITY(U,$J,358.3,2743,1,3,0)
;;=3^Temp Pacer (Single)
;;^UTILITY(U,$J,358.3,2744,0)
;;=33211^^21^175^63^^^^1
;;^UTILITY(U,$J,358.3,2744,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2744,1,2,0)
;;=2^33211
;;^UTILITY(U,$J,358.3,2744,1,3,0)
;;=3^Temp Pacer (Dual)
;;^UTILITY(U,$J,358.3,2745,0)
;;=33212^^21^175^22^^^^1
;;^UTILITY(U,$J,358.3,2745,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2745,1,2,0)
;;=2^33212
;;^UTILITY(U,$J,358.3,2745,1,3,0)
;;=3^Insert Pacer, Pulse Gen (Sgl)
;;^UTILITY(U,$J,358.3,2746,0)
;;=33213^^21^175^21^^^^1
;;^UTILITY(U,$J,358.3,2746,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2746,1,2,0)
;;=2^33213
;;^UTILITY(U,$J,358.3,2746,1,3,0)
;;=3^Insert Pacer, Pulse Gen (Dual)
;;^UTILITY(U,$J,358.3,2747,0)
;;=33216^^21^175^24^^^^1
;;^UTILITY(U,$J,358.3,2747,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2747,1,2,0)
;;=2^33216
;;^UTILITY(U,$J,358.3,2747,1,3,0)
;;=3^Insert Transv Elec Pacemaker/Defib,Single
;;^UTILITY(U,$J,358.3,2748,0)
;;=33217^^21^175^23^^^^1
;;^UTILITY(U,$J,358.3,2748,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2748,1,2,0)
;;=2^33217
;;^UTILITY(U,$J,358.3,2748,1,3,0)
;;=3^Insert Transv Elec Pacemaker/Defib,Dual
;;^UTILITY(U,$J,358.3,2749,0)
;;=33218^^21^175^57^^^^1
;;^UTILITY(U,$J,358.3,2749,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2749,1,2,0)
;;=2^33218
;;^UTILITY(U,$J,358.3,2749,1,3,0)
;;=3^Repair Transv Elec (Single)
;;^UTILITY(U,$J,358.3,2750,0)
;;=33220^^21^175^56^^^^1
;;^UTILITY(U,$J,358.3,2750,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2750,1,2,0)
;;=2^33220
;;^UTILITY(U,$J,358.3,2750,1,3,0)
;;=3^Repair Transv Elec (Dual)
;;^UTILITY(U,$J,358.3,2751,0)
;;=33222^^21^175^59^^^^1
;;^UTILITY(U,$J,358.3,2751,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2751,1,2,0)
;;=2^33222
;;^UTILITY(U,$J,358.3,2751,1,3,0)
;;=3^Revis Or Reloc Skin Pckt
;;^UTILITY(U,$J,358.3,2752,0)
;;=33233^^21^175^52^^^^1
;;^UTILITY(U,$J,358.3,2752,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2752,1,2,0)
;;=2^33233
;;^UTILITY(U,$J,358.3,2752,1,3,0)
;;=3^Remove Pace Pulse Gen
;;^UTILITY(U,$J,358.3,2753,0)
;;=93650^^21^175^1^^^^1
;;^UTILITY(U,$J,358.3,2753,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2753,1,2,0)
;;=2^93650
;;^UTILITY(U,$J,358.3,2753,1,3,0)
;;=3^Abalation, Av Node
;;^UTILITY(U,$J,358.3,2754,0)
;;=93740^^21^175^62^^^^1
;;^UTILITY(U,$J,358.3,2754,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2754,1,2,0)
;;=2^93740
;;^UTILITY(U,$J,358.3,2754,1,3,0)
;;=3^Temp Gradient Studies
;;^UTILITY(U,$J,358.3,2755,0)
;;=33234^^21^175^45^^^^1
;;^UTILITY(U,$J,358.3,2755,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2755,1,2,0)
;;=2^33234
;;^UTILITY(U,$J,358.3,2755,1,3,0)
;;=3^Rem Transv Elec Atria/Vent(Sgl)
;;^UTILITY(U,$J,358.3,2756,0)
;;=33235^^21^175^44^^^^1
;;^UTILITY(U,$J,358.3,2756,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2756,1,2,0)
;;=2^33235
;;^UTILITY(U,$J,358.3,2756,1,3,0)
;;=3^Rem Transv Elec Atria/Vent(Dual)
;;^UTILITY(U,$J,358.3,2757,0)
;;=33240^^21^175^20^^^^1
;;^UTILITY(U,$J,358.3,2757,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2757,1,2,0)
;;=2^33240
;;^UTILITY(U,$J,358.3,2757,1,3,0)
;;=3^Insert ICD Gen Only,Existing Single
;;^UTILITY(U,$J,358.3,2758,0)
;;=33241^^21^175^61^^^^1
;;^UTILITY(U,$J,358.3,2758,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2758,1,2,0)
;;=2^33241
;;^UTILITY(U,$J,358.3,2758,1,3,0)
;;=3^Subq Remove Sgl/Dual Pulse Gen
;;^UTILITY(U,$J,358.3,2759,0)
;;=33244^^21^175^65^^^^1
;;^UTILITY(U,$J,358.3,2759,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2759,1,2,0)
;;=2^33244
;;^UTILITY(U,$J,358.3,2759,1,3,0)
;;=3^Transv Remove Sgl/Dual Elec
;;^UTILITY(U,$J,358.3,2760,0)
;;=33249^^21^175^25^^^^1
;;^UTILITY(U,$J,358.3,2760,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2760,1,2,0)
;;=2^33249
;;^UTILITY(U,$J,358.3,2760,1,3,0)
;;=3^Insert/Replace Implant Defib w/ Transv Lead
;;^UTILITY(U,$J,358.3,2761,0)
;;=93285^^21^175^12^^^^1
;;^UTILITY(U,$J,358.3,2761,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2761,1,2,0)
;;=2^93285
;;^UTILITY(U,$J,358.3,2761,1,3,0)
;;=3^ILR Device Eval Progr
;;^UTILITY(U,$J,358.3,2762,0)
;;=93291^^21^175^14^^^^1
;;^UTILITY(U,$J,358.3,2762,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2762,1,2,0)
;;=2^93291
;;^UTILITY(U,$J,358.3,2762,1,3,0)
;;=3^ILR Device Interrogate
;;^UTILITY(U,$J,358.3,2763,0)
;;=93294^^21^175^32^^^^1
;;^UTILITY(U,$J,358.3,2763,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2763,1,2,0)
;;=2^93294
;;^UTILITY(U,$J,358.3,2763,1,3,0)
;;=3^PM Device Interrogate Remote
;;^UTILITY(U,$J,358.3,2764,0)
;;=93280^^21^175^33^^^^1
;;^UTILITY(U,$J,358.3,2764,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2764,1,2,0)
;;=2^93280
;;^UTILITY(U,$J,358.3,2764,1,3,0)
;;=3^PM Device Progr Eval,Dual
;;^UTILITY(U,$J,358.3,2765,0)
;;=93288^^21^175^31^^^^1
;;^UTILITY(U,$J,358.3,2765,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2765,1,2,0)
;;=2^93288
;;^UTILITY(U,$J,358.3,2765,1,3,0)
;;=3^PM Device Eval in Person
;;^UTILITY(U,$J,358.3,2766,0)
;;=93279^^21^175^35^^^^1
;;^UTILITY(U,$J,358.3,2766,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2766,1,2,0)
;;=2^93279
;;^UTILITY(U,$J,358.3,2766,1,3,0)
;;=3^PM Device Progr Eval,Sngl
;;^UTILITY(U,$J,358.3,2767,0)
;;=93282^^21^175^7^^^^1
;;^UTILITY(U,$J,358.3,2767,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2767,1,2,0)
;;=2^93282
;;^UTILITY(U,$J,358.3,2767,1,3,0)
;;=3^ICD Device Prog Eval,1 Sngl
;;^UTILITY(U,$J,358.3,2768,0)
;;=93289^^21^175^5^^^^1
;;^UTILITY(U,$J,358.3,2768,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2768,1,2,0)
;;=2^93289
;;^UTILITY(U,$J,358.3,2768,1,3,0)
;;=3^ICD Device Interrogatate
;;^UTILITY(U,$J,358.3,2769,0)
;;=93292^^21^175^67^^^^1
;;^UTILITY(U,$J,358.3,2769,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2769,1,2,0)
;;=2^93292
;;^UTILITY(U,$J,358.3,2769,1,3,0)
;;=3^WCD Device Interrogate
;;^UTILITY(U,$J,358.3,2770,0)
;;=93295^^21^175^6^^^^1
;;^UTILITY(U,$J,358.3,2770,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2770,1,2,0)
;;=2^93295
;;^UTILITY(U,$J,358.3,2770,1,3,0)
;;=3^ICD Device Interrogate Remote
;;^UTILITY(U,$J,358.3,2771,0)
;;=93283^^21^175^8^^^^1
;;^UTILITY(U,$J,358.3,2771,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2771,1,2,0)
;;=2^93283
;;^UTILITY(U,$J,358.3,2771,1,3,0)
;;=3^ICD Device Progr Eval,Dual
;;^UTILITY(U,$J,358.3,2772,0)
;;=93284^^21^175^9^^^^1
;;^UTILITY(U,$J,358.3,2772,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2772,1,2,0)
;;=2^93284
;;^UTILITY(U,$J,358.3,2772,1,3,0)
;;=3^ICD Device Progr Eval,Multi
;;^UTILITY(U,$J,358.3,2773,0)
;;=93281^^21^175^34^^^^1
;;^UTILITY(U,$J,358.3,2773,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2773,1,2,0)
;;=2^93281
;;^UTILITY(U,$J,358.3,2773,1,3,0)
;;=3^PM Device Progr Eval,Multi
;;^UTILITY(U,$J,358.3,2774,0)
;;=33227^^21^175^51^^^^1
;;^UTILITY(U,$J,358.3,2774,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2774,1,2,0)
;;=2^33227
;;^UTILITY(U,$J,358.3,2774,1,3,0)
;;=3^Remove PM Pulse Gen w/Replc PM Gen,Single
;;^UTILITY(U,$J,358.3,2775,0)
;;=33228^^21^175^49^^^^1
;;^UTILITY(U,$J,358.3,2775,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2775,1,2,0)
;;=2^33228
;;^UTILITY(U,$J,358.3,2775,1,3,0)
;;=3^Remove PM Pulse Gen w/Replc PM Gen,Dual
;;^UTILITY(U,$J,358.3,2776,0)
;;=33229^^21^175^50^^^^1
;;^UTILITY(U,$J,358.3,2776,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2776,1,2,0)
;;=2^33229
;;^UTILITY(U,$J,358.3,2776,1,3,0)
;;=3^Remove PM Pulse Gen w/Replc PM Gen,Mult
;;^UTILITY(U,$J,358.3,2777,0)
;;=33230^^21^175^18^^^^1
;;^UTILITY(U,$J,358.3,2777,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2777,1,2,0)
;;=2^33230
;;^UTILITY(U,$J,358.3,2777,1,3,0)
;;=3^Insert ICD Gen Only,Existing Dual
;;^UTILITY(U,$J,358.3,2778,0)
;;=33231^^21^175^19^^^^1
;;^UTILITY(U,$J,358.3,2778,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2778,1,2,0)
;;=2^33231
;;^UTILITY(U,$J,358.3,2778,1,3,0)
;;=3^Insert ICD Gen Only,Existing Mult
;;^UTILITY(U,$J,358.3,2779,0)
;;=33233^^21^175^46^^^^1
;;^UTILITY(U,$J,358.3,2779,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2779,1,2,0)
;;=2^33233
;;^UTILITY(U,$J,358.3,2779,1,3,0)
;;=3^Removal of PM Generator Only
;;^UTILITY(U,$J,358.3,2780,0)
;;=33262^^21^175^55^^^^1
;;^UTILITY(U,$J,358.3,2780,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2780,1,2,0)
;;=2^33262
;;^UTILITY(U,$J,358.3,2780,1,3,0)
;;=3^Remv ICD Gen w/Replc PM Gen,Single
;;^UTILITY(U,$J,358.3,2781,0)
;;=33263^^21^175^53^^^^1
;;^UTILITY(U,$J,358.3,2781,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2781,1,2,0)
;;=2^33263
;;^UTILITY(U,$J,358.3,2781,1,3,0)
;;=3^Remv ICD Gen w/Replc PM Gen,Dual
;;^UTILITY(U,$J,358.3,2782,0)
;;=33264^^21^175^54^^^^1
;;^UTILITY(U,$J,358.3,2782,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2782,1,2,0)
;;=2^33264
;;^UTILITY(U,$J,358.3,2782,1,3,0)
;;=3^Remv ICD Gen w/Replc PM Gen,Multiple
;;^UTILITY(U,$J,358.3,2783,0)
;;=93286^^21^175^41^^^^1
;;^UTILITY(U,$J,358.3,2783,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2783,1,2,0)
;;=2^93286
;;^UTILITY(U,$J,358.3,2783,1,3,0)
;;=3^Pre-Op PM Device Eval w/Review&Rpt
;;^UTILITY(U,$J,358.3,2784,0)
;;=93287^^21^175^40^^^^1
;;^UTILITY(U,$J,358.3,2784,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2784,1,2,0)
;;=2^93287
;;^UTILITY(U,$J,358.3,2784,1,3,0)
;;=3^Pre-Op ICD Device Eval
;;^UTILITY(U,$J,358.3,2785,0)
;;=93290^^21^175^10^^^^1
;;^UTILITY(U,$J,358.3,2785,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2785,1,2,0)
;;=2^93290
;;^UTILITY(U,$J,358.3,2785,1,3,0)
;;=3^ICM Device Eval
;;^UTILITY(U,$J,358.3,2786,0)
;;=93293^^21^175^36^^^^1
;;^UTILITY(U,$J,358.3,2786,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2786,1,2,0)
;;=2^93293
;;^UTILITY(U,$J,358.3,2786,1,3,0)
;;=3^PM Phone R-Strip Device Eval
;;^UTILITY(U,$J,358.3,2787,0)
;;=33223^^21^175^60^^^^1
;;^UTILITY(U,$J,358.3,2787,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2787,1,2,0)
;;=2^33223
;;^UTILITY(U,$J,358.3,2787,1,3,0)
;;=3^Revision Skin Pckt, ICD
;;^UTILITY(U,$J,358.3,2788,0)
;;=33224^^21^175^27^^^^1
;;^UTILITY(U,$J,358.3,2788,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2788,1,2,0)
;;=2^33224
;;^UTILITY(U,$J,358.3,2788,1,3,0)
;;=3^Insertion of Pacing Electrode
;;^UTILITY(U,$J,358.3,2789,0)
;;=33214^^21^175^66^^^^1
;;^UTILITY(U,$J,358.3,2789,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2789,1,2,0)
;;=2^33214
;;^UTILITY(U,$J,358.3,2789,1,3,0)
;;=3^Upgrade Sng to Dual PM System
;;^UTILITY(U,$J,358.3,2790,0)
;;=33215^^21^175^58^^^^1
;;^UTILITY(U,$J,358.3,2790,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2790,1,2,0)
;;=2^33215
;;^UTILITY(U,$J,358.3,2790,1,3,0)
;;=3^Reposition Transvenous PM/ICD Lead
;;^UTILITY(U,$J,358.3,2791,0)
;;=33221^^21^175^30^^^^1
;;^UTILITY(U,$J,358.3,2791,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2791,1,2,0)
;;=2^33221
;;^UTILITY(U,$J,358.3,2791,1,3,0)
;;=3^New Pacemaker Attached to Old Leads
;;^UTILITY(U,$J,358.3,2792,0)
;;=33225^^21^175^3^^^^1
;;^UTILITY(U,$J,358.3,2792,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2792,1,2,0)
;;=2^33225
;;^UTILITY(U,$J,358.3,2792,1,3,0)
;;=3^CS Lead Implt at time of New Implt/Upgd,Add-On
;;^UTILITY(U,$J,358.3,2793,0)
;;=33226^^21^175^4^^^^1
;;^UTILITY(U,$J,358.3,2793,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2793,1,2,0)
;;=2^33226
;;^UTILITY(U,$J,358.3,2793,1,3,0)
;;=3^CS Lead Revision
;;^UTILITY(U,$J,358.3,2794,0)
;;=93260^^21^175^42^^^^1
;;^UTILITY(U,$J,358.3,2794,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2794,1,2,0)
;;=2^93260
;;^UTILITY(U,$J,358.3,2794,1,3,0)
;;=3^Prgrmg Dev Eval Impltbl Sys
;;^UTILITY(U,$J,358.3,2795,0)
;;=93261^^21^175^29^^^^1
;;^UTILITY(U,$J,358.3,2795,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2795,1,2,0)
;;=2^93261
;;^UTILITY(U,$J,358.3,2795,1,3,0)
;;=3^Interrogate Subq Defib
;;^UTILITY(U,$J,358.3,2796,0)
;;=93298^^21^175^13^^^^1
;;^UTILITY(U,$J,358.3,2796,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2796,1,2,0)
;;=2^93298
;;^UTILITY(U,$J,358.3,2796,1,3,0)
;;=3^ILR Device Interrogat Remote
;;^UTILITY(U,$J,358.3,2797,0)
;;=93724^^21^175^2^^^^1
;;^UTILITY(U,$J,358.3,2797,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2797,1,2,0)
;;=2^93724
;;^UTILITY(U,$J,358.3,2797,1,3,0)
;;=3^Analyze Pacemaker System
;;^UTILITY(U,$J,358.3,2798,0)
;;=33967^^21^175^17^^^^1
;;^UTILITY(U,$J,358.3,2798,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2798,1,2,0)
;;=2^33967
;;^UTILITY(U,$J,358.3,2798,1,3,0)
;;=3^Insert IA Percut Device
;;^UTILITY(U,$J,358.3,2799,0)
;;=33236^^21^175^48^^^^1
;;^UTILITY(U,$J,358.3,2799,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2799,1,2,0)
;;=2^33236
;;^UTILITY(U,$J,358.3,2799,1,3,0)
;;=3^Remove Epi Electrode/Thoracotomy
;;^UTILITY(U,$J,358.3,2800,0)
;;=33237^^21^175^47^^^^1
;;^UTILITY(U,$J,358.3,2800,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2800,1,2,0)
;;=2^33237
;;^UTILITY(U,$J,358.3,2800,1,3,0)
;;=3^Remove Electrode/Thoracotomy Dual
;;^UTILITY(U,$J,358.3,2801,0)
;;=33249^^21^175^26^^^^1
;;^UTILITY(U,$J,358.3,2801,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2801,1,2,0)
;;=2^33249
;;^UTILITY(U,$J,358.3,2801,1,3,0)
;;=3^Insert/Rpl ICD,Sgl/Dual w/ Tranv Leads
;;^UTILITY(U,$J,358.3,2802,0)
;;=93297^^21^175^11^^^^1
;;^UTILITY(U,$J,358.3,2802,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2802,1,2,0)
;;=2^93297
;;^UTILITY(U,$J,358.3,2802,1,3,0)
;;=3^ICM Device Interrogat Remote
;;^UTILITY(U,$J,358.3,2803,0)
;;=33286^^21^175^15^^^^1
;;^UTILITY(U,$J,358.3,2803,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2803,1,2,0)
;;=2^33286
;;^UTILITY(U,$J,358.3,2803,1,3,0)
;;=3^IRL Explant
;;^UTILITY(U,$J,358.3,2804,0)
;;=33285^^21^175^16^^^^1
;;^UTILITY(U,$J,358.3,2804,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2804,1,2,0)
;;=2^33285
;;^UTILITY(U,$J,358.3,2804,1,3,0)
;;=3^IRL Implant
;;^UTILITY(U,$J,358.3,2805,0)
;;=93297^^21^175^43^^^^1
;;^UTILITY(U,$J,358.3,2805,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2805,1,2,0)
;;=2^93297
;;^UTILITY(U,$J,358.3,2805,1,3,0)
;;=3^Rem Interrog Icpms<30 D Phys/QHP
;;^UTILITY(U,$J,358.3,2806,0)
;;=G2066^^21^175^28^^^^1
;;^UTILITY(U,$J,358.3,2806,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2806,1,2,0)
;;=2^G2066
;;^UTILITY(U,$J,358.3,2806,1,3,0)
;;=3^Inter Device Eval,Remote up to 30D,Implantable Loop
;;^UTILITY(U,$J,358.3,2807,0)
;;=92975^^21^176^32^^^^1
;;^UTILITY(U,$J,358.3,2807,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2807,1,2,0)
;;=2^92975
;;^UTILITY(U,$J,358.3,2807,1,3,0)
;;=3^Thrombo Cor Inc Cor Angio
;;^UTILITY(U,$J,358.3,2808,0)
;;=92977^^21^176^33^^^^1
;;^UTILITY(U,$J,358.3,2808,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2808,1,2,0)
;;=2^92977
;;^UTILITY(U,$J,358.3,2808,1,3,0)
;;=3^Thrombo Cor,Inc Cor Angio Iv Inf
;;^UTILITY(U,$J,358.3,2809,0)
;;=92978^^21^176^5^^^^1
;;^UTILITY(U,$J,358.3,2809,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2809,1,2,0)
;;=2^92978
;;^UTILITY(U,$J,358.3,2809,1,3,0)
;;=3^Intr Vasc U/S During Diag Eval
;;^UTILITY(U,$J,358.3,2810,0)
;;=92979^^21^176^6^^^^1
;;^UTILITY(U,$J,358.3,2810,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2810,1,2,0)
;;=2^92979
;;^UTILITY(U,$J,358.3,2810,1,3,0)
;;=3^Intr Vasc U/S During Diag Eval Ea Addl Vessel
;;^UTILITY(U,$J,358.3,2811,0)
;;=36010^^21^176^3^^^^1
;;^UTILITY(U,$J,358.3,2811,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2811,1,2,0)
;;=2^36010
;;^UTILITY(U,$J,358.3,2811,1,3,0)
;;=3^Cath Place Svc/Ivc (Sheath)
;;^UTILITY(U,$J,358.3,2812,0)
;;=36011^^21^176^4^^^^1
;;^UTILITY(U,$J,358.3,2812,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2812,1,2,0)
;;=2^36011
;;^UTILITY(U,$J,358.3,2812,1,3,0)
;;=3^Cath Place Vein 1st Order (Renal,Jugular)
;;^UTILITY(U,$J,358.3,2813,0)
;;=76000^^21^176^1^^^^1
;;^UTILITY(U,$J,358.3,2813,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2813,1,2,0)
;;=2^76000
;;^UTILITY(U,$J,358.3,2813,1,3,0)
;;=3^Cardiac Fluoro<1Hr(No Cath Proc)
;;^UTILITY(U,$J,358.3,2814,0)
;;=92973^^21^176^24^^^^1
;;^UTILITY(U,$J,358.3,2814,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2814,1,2,0)
;;=2^92973
;;^UTILITY(U,$J,358.3,2814,1,3,0)
;;=3^PRQ Coronary Thrombectomy Mechanical
;;^UTILITY(U,$J,358.3,2815,0)
;;=92974^^21^176^2^^^^1
;;^UTILITY(U,$J,358.3,2815,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2815,1,2,0)
;;=2^92974
;;^UTILITY(U,$J,358.3,2815,1,3,0)
;;=3^Cath Place Cardio Brachytx
;;^UTILITY(U,$J,358.3,2816,0)
;;=92920^^21^176^22^^^^1
;;^UTILITY(U,$J,358.3,2816,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2816,1,2,0)
;;=2^92920
;;^UTILITY(U,$J,358.3,2816,1,3,0)
;;=3^PRQ Cardia Angioplast 1 Art
;;^UTILITY(U,$J,358.3,2817,0)
;;=92921^^21^176^23^^^^1
;;^UTILITY(U,$J,358.3,2817,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2817,1,2,0)
;;=2^92921
;;^UTILITY(U,$J,358.3,2817,1,3,0)
;;=3^PRQ Cardiac Angio Addl Art
;;^UTILITY(U,$J,358.3,2818,0)
;;=92924^^21^176^13^^^^1
;;^UTILITY(U,$J,358.3,2818,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,2818,1,2,0)
;;=2^92924
;;^UTILITY(U,$J,358.3,2818,1,3,0)
;;=3^PRQ Card Angio/Athrect 1 Art
;;^UTILITY(U,$J,358.3,2819,0)
;;=92925^^21^176^14^^^^1
;;^UTILITY(U,$J,358.3,2819,1,0)
;;=^358.31IA^3^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI01C 19770 printed Oct 16, 2024@17:40:32 Page 2
IBDEI01C ; ; 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,2736,1,3,0)
+2 ;;=3^Secondary Hypertension,Unspec
+3 ;;^UTILITY(U,$J,358.3,2736,1,4,0)
+4 ;;=4^I15.9
+5 ;;^UTILITY(U,$J,358.3,2736,2)
+6 ;;=^5007075
+7 ;;^UTILITY(U,$J,358.3,2737,0)
+8 ;;=I16.0^^20^174^14
+9 ;;^UTILITY(U,$J,358.3,2737,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,2737,1,3,0)
+12 ;;=3^Hypertensive Urgency
+13 ;;^UTILITY(U,$J,358.3,2737,1,4,0)
+14 ;;=4^I16.0
+15 ;;^UTILITY(U,$J,358.3,2737,2)
+16 ;;=^8133013
+17 ;;^UTILITY(U,$J,358.3,2738,0)
+18 ;;=I16.1^^20^174^7
+19 ;;^UTILITY(U,$J,358.3,2738,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,2738,1,3,0)
+22 ;;=3^Hypertensive Emergency
+23 ;;^UTILITY(U,$J,358.3,2738,1,4,0)
+24 ;;=4^I16.1
+25 ;;^UTILITY(U,$J,358.3,2738,2)
+26 ;;=^8204721
+27 ;;^UTILITY(U,$J,358.3,2739,0)
+28 ;;=I16.9^^20^174^6
+29 ;;^UTILITY(U,$J,358.3,2739,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,2739,1,3,0)
+32 ;;=3^Hypertensive Crisis,Unspec
+33 ;;^UTILITY(U,$J,358.3,2739,1,4,0)
+34 ;;=4^I16.9
+35 ;;^UTILITY(U,$J,358.3,2739,2)
+36 ;;=^5138600
+37 ;;^UTILITY(U,$J,358.3,2740,0)
+38 ;;=33206^^21^175^37^^^^1
+39 ;;^UTILITY(U,$J,358.3,2740,1,0)
+40 ;;=^358.31IA^3^2
+41 ;;^UTILITY(U,$J,358.3,2740,1,2,0)
+42 ;;=2^33206
+43 ;;^UTILITY(U,$J,358.3,2740,1,3,0)
+44 ;;=3^Pace Implant, Atrial
+45 ;;^UTILITY(U,$J,358.3,2741,0)
+46 ;;=33207^^21^175^39^^^^1
+47 ;;^UTILITY(U,$J,358.3,2741,1,0)
+48 ;;=^358.31IA^3^2
+49 ;;^UTILITY(U,$J,358.3,2741,1,2,0)
+50 ;;=2^33207
+51 ;;^UTILITY(U,$J,358.3,2741,1,3,0)
+52 ;;=3^Pace Implant,Vent
+53 ;;^UTILITY(U,$J,358.3,2742,0)
+54 ;;=33208^^21^175^38^^^^1
+55 ;;^UTILITY(U,$J,358.3,2742,1,0)
+56 ;;=^358.31IA^3^2
+57 ;;^UTILITY(U,$J,358.3,2742,1,2,0)
+58 ;;=2^33208
+59 ;;^UTILITY(U,$J,358.3,2742,1,3,0)
+60 ;;=3^Pace Implant, Ddd
+61 ;;^UTILITY(U,$J,358.3,2743,0)
+62 ;;=33210^^21^175^64^^^^1
+63 ;;^UTILITY(U,$J,358.3,2743,1,0)
+64 ;;=^358.31IA^3^2
+65 ;;^UTILITY(U,$J,358.3,2743,1,2,0)
+66 ;;=2^33210
+67 ;;^UTILITY(U,$J,358.3,2743,1,3,0)
+68 ;;=3^Temp Pacer (Single)
+69 ;;^UTILITY(U,$J,358.3,2744,0)
+70 ;;=33211^^21^175^63^^^^1
+71 ;;^UTILITY(U,$J,358.3,2744,1,0)
+72 ;;=^358.31IA^3^2
+73 ;;^UTILITY(U,$J,358.3,2744,1,2,0)
+74 ;;=2^33211
+75 ;;^UTILITY(U,$J,358.3,2744,1,3,0)
+76 ;;=3^Temp Pacer (Dual)
+77 ;;^UTILITY(U,$J,358.3,2745,0)
+78 ;;=33212^^21^175^22^^^^1
+79 ;;^UTILITY(U,$J,358.3,2745,1,0)
+80 ;;=^358.31IA^3^2
+81 ;;^UTILITY(U,$J,358.3,2745,1,2,0)
+82 ;;=2^33212
+83 ;;^UTILITY(U,$J,358.3,2745,1,3,0)
+84 ;;=3^Insert Pacer, Pulse Gen (Sgl)
+85 ;;^UTILITY(U,$J,358.3,2746,0)
+86 ;;=33213^^21^175^21^^^^1
+87 ;;^UTILITY(U,$J,358.3,2746,1,0)
+88 ;;=^358.31IA^3^2
+89 ;;^UTILITY(U,$J,358.3,2746,1,2,0)
+90 ;;=2^33213
+91 ;;^UTILITY(U,$J,358.3,2746,1,3,0)
+92 ;;=3^Insert Pacer, Pulse Gen (Dual)
+93 ;;^UTILITY(U,$J,358.3,2747,0)
+94 ;;=33216^^21^175^24^^^^1
+95 ;;^UTILITY(U,$J,358.3,2747,1,0)
+96 ;;=^358.31IA^3^2
+97 ;;^UTILITY(U,$J,358.3,2747,1,2,0)
+98 ;;=2^33216
+99 ;;^UTILITY(U,$J,358.3,2747,1,3,0)
+100 ;;=3^Insert Transv Elec Pacemaker/Defib,Single
+101 ;;^UTILITY(U,$J,358.3,2748,0)
+102 ;;=33217^^21^175^23^^^^1
+103 ;;^UTILITY(U,$J,358.3,2748,1,0)
+104 ;;=^358.31IA^3^2
+105 ;;^UTILITY(U,$J,358.3,2748,1,2,0)
+106 ;;=2^33217
+107 ;;^UTILITY(U,$J,358.3,2748,1,3,0)
+108 ;;=3^Insert Transv Elec Pacemaker/Defib,Dual
+109 ;;^UTILITY(U,$J,358.3,2749,0)
+110 ;;=33218^^21^175^57^^^^1
+111 ;;^UTILITY(U,$J,358.3,2749,1,0)
+112 ;;=^358.31IA^3^2
+113 ;;^UTILITY(U,$J,358.3,2749,1,2,0)
+114 ;;=2^33218
+115 ;;^UTILITY(U,$J,358.3,2749,1,3,0)
+116 ;;=3^Repair Transv Elec (Single)
+117 ;;^UTILITY(U,$J,358.3,2750,0)
+118 ;;=33220^^21^175^56^^^^1
+119 ;;^UTILITY(U,$J,358.3,2750,1,0)
+120 ;;=^358.31IA^3^2
+121 ;;^UTILITY(U,$J,358.3,2750,1,2,0)
+122 ;;=2^33220
+123 ;;^UTILITY(U,$J,358.3,2750,1,3,0)
+124 ;;=3^Repair Transv Elec (Dual)
+125 ;;^UTILITY(U,$J,358.3,2751,0)
+126 ;;=33222^^21^175^59^^^^1
+127 ;;^UTILITY(U,$J,358.3,2751,1,0)
+128 ;;=^358.31IA^3^2
+129 ;;^UTILITY(U,$J,358.3,2751,1,2,0)
+130 ;;=2^33222
+131 ;;^UTILITY(U,$J,358.3,2751,1,3,0)
+132 ;;=3^Revis Or Reloc Skin Pckt
+133 ;;^UTILITY(U,$J,358.3,2752,0)
+134 ;;=33233^^21^175^52^^^^1
+135 ;;^UTILITY(U,$J,358.3,2752,1,0)
+136 ;;=^358.31IA^3^2
+137 ;;^UTILITY(U,$J,358.3,2752,1,2,0)
+138 ;;=2^33233
+139 ;;^UTILITY(U,$J,358.3,2752,1,3,0)
+140 ;;=3^Remove Pace Pulse Gen
+141 ;;^UTILITY(U,$J,358.3,2753,0)
+142 ;;=93650^^21^175^1^^^^1
+143 ;;^UTILITY(U,$J,358.3,2753,1,0)
+144 ;;=^358.31IA^3^2
+145 ;;^UTILITY(U,$J,358.3,2753,1,2,0)
+146 ;;=2^93650
+147 ;;^UTILITY(U,$J,358.3,2753,1,3,0)
+148 ;;=3^Abalation, Av Node
+149 ;;^UTILITY(U,$J,358.3,2754,0)
+150 ;;=93740^^21^175^62^^^^1
+151 ;;^UTILITY(U,$J,358.3,2754,1,0)
+152 ;;=^358.31IA^3^2
+153 ;;^UTILITY(U,$J,358.3,2754,1,2,0)
+154 ;;=2^93740
+155 ;;^UTILITY(U,$J,358.3,2754,1,3,0)
+156 ;;=3^Temp Gradient Studies
+157 ;;^UTILITY(U,$J,358.3,2755,0)
+158 ;;=33234^^21^175^45^^^^1
+159 ;;^UTILITY(U,$J,358.3,2755,1,0)
+160 ;;=^358.31IA^3^2
+161 ;;^UTILITY(U,$J,358.3,2755,1,2,0)
+162 ;;=2^33234
+163 ;;^UTILITY(U,$J,358.3,2755,1,3,0)
+164 ;;=3^Rem Transv Elec Atria/Vent(Sgl)
+165 ;;^UTILITY(U,$J,358.3,2756,0)
+166 ;;=33235^^21^175^44^^^^1
+167 ;;^UTILITY(U,$J,358.3,2756,1,0)
+168 ;;=^358.31IA^3^2
+169 ;;^UTILITY(U,$J,358.3,2756,1,2,0)
+170 ;;=2^33235
+171 ;;^UTILITY(U,$J,358.3,2756,1,3,0)
+172 ;;=3^Rem Transv Elec Atria/Vent(Dual)
+173 ;;^UTILITY(U,$J,358.3,2757,0)
+174 ;;=33240^^21^175^20^^^^1
+175 ;;^UTILITY(U,$J,358.3,2757,1,0)
+176 ;;=^358.31IA^3^2
+177 ;;^UTILITY(U,$J,358.3,2757,1,2,0)
+178 ;;=2^33240
+179 ;;^UTILITY(U,$J,358.3,2757,1,3,0)
+180 ;;=3^Insert ICD Gen Only,Existing Single
+181 ;;^UTILITY(U,$J,358.3,2758,0)
+182 ;;=33241^^21^175^61^^^^1
+183 ;;^UTILITY(U,$J,358.3,2758,1,0)
+184 ;;=^358.31IA^3^2
+185 ;;^UTILITY(U,$J,358.3,2758,1,2,0)
+186 ;;=2^33241
+187 ;;^UTILITY(U,$J,358.3,2758,1,3,0)
+188 ;;=3^Subq Remove Sgl/Dual Pulse Gen
+189 ;;^UTILITY(U,$J,358.3,2759,0)
+190 ;;=33244^^21^175^65^^^^1
+191 ;;^UTILITY(U,$J,358.3,2759,1,0)
+192 ;;=^358.31IA^3^2
+193 ;;^UTILITY(U,$J,358.3,2759,1,2,0)
+194 ;;=2^33244
+195 ;;^UTILITY(U,$J,358.3,2759,1,3,0)
+196 ;;=3^Transv Remove Sgl/Dual Elec
+197 ;;^UTILITY(U,$J,358.3,2760,0)
+198 ;;=33249^^21^175^25^^^^1
+199 ;;^UTILITY(U,$J,358.3,2760,1,0)
+200 ;;=^358.31IA^3^2
+201 ;;^UTILITY(U,$J,358.3,2760,1,2,0)
+202 ;;=2^33249
+203 ;;^UTILITY(U,$J,358.3,2760,1,3,0)
+204 ;;=3^Insert/Replace Implant Defib w/ Transv Lead
+205 ;;^UTILITY(U,$J,358.3,2761,0)
+206 ;;=93285^^21^175^12^^^^1
+207 ;;^UTILITY(U,$J,358.3,2761,1,0)
+208 ;;=^358.31IA^3^2
+209 ;;^UTILITY(U,$J,358.3,2761,1,2,0)
+210 ;;=2^93285
+211 ;;^UTILITY(U,$J,358.3,2761,1,3,0)
+212 ;;=3^ILR Device Eval Progr
+213 ;;^UTILITY(U,$J,358.3,2762,0)
+214 ;;=93291^^21^175^14^^^^1
+215 ;;^UTILITY(U,$J,358.3,2762,1,0)
+216 ;;=^358.31IA^3^2
+217 ;;^UTILITY(U,$J,358.3,2762,1,2,0)
+218 ;;=2^93291
+219 ;;^UTILITY(U,$J,358.3,2762,1,3,0)
+220 ;;=3^ILR Device Interrogate
+221 ;;^UTILITY(U,$J,358.3,2763,0)
+222 ;;=93294^^21^175^32^^^^1
+223 ;;^UTILITY(U,$J,358.3,2763,1,0)
+224 ;;=^358.31IA^3^2
+225 ;;^UTILITY(U,$J,358.3,2763,1,2,0)
+226 ;;=2^93294
+227 ;;^UTILITY(U,$J,358.3,2763,1,3,0)
+228 ;;=3^PM Device Interrogate Remote
+229 ;;^UTILITY(U,$J,358.3,2764,0)
+230 ;;=93280^^21^175^33^^^^1
+231 ;;^UTILITY(U,$J,358.3,2764,1,0)
+232 ;;=^358.31IA^3^2
+233 ;;^UTILITY(U,$J,358.3,2764,1,2,0)
+234 ;;=2^93280
+235 ;;^UTILITY(U,$J,358.3,2764,1,3,0)
+236 ;;=3^PM Device Progr Eval,Dual
+237 ;;^UTILITY(U,$J,358.3,2765,0)
+238 ;;=93288^^21^175^31^^^^1
+239 ;;^UTILITY(U,$J,358.3,2765,1,0)
+240 ;;=^358.31IA^3^2
+241 ;;^UTILITY(U,$J,358.3,2765,1,2,0)
+242 ;;=2^93288
+243 ;;^UTILITY(U,$J,358.3,2765,1,3,0)
+244 ;;=3^PM Device Eval in Person
+245 ;;^UTILITY(U,$J,358.3,2766,0)
+246 ;;=93279^^21^175^35^^^^1
+247 ;;^UTILITY(U,$J,358.3,2766,1,0)
+248 ;;=^358.31IA^3^2
+249 ;;^UTILITY(U,$J,358.3,2766,1,2,0)
+250 ;;=2^93279
+251 ;;^UTILITY(U,$J,358.3,2766,1,3,0)
+252 ;;=3^PM Device Progr Eval,Sngl
+253 ;;^UTILITY(U,$J,358.3,2767,0)
+254 ;;=93282^^21^175^7^^^^1
+255 ;;^UTILITY(U,$J,358.3,2767,1,0)
+256 ;;=^358.31IA^3^2
+257 ;;^UTILITY(U,$J,358.3,2767,1,2,0)
+258 ;;=2^93282
+259 ;;^UTILITY(U,$J,358.3,2767,1,3,0)
+260 ;;=3^ICD Device Prog Eval,1 Sngl
+261 ;;^UTILITY(U,$J,358.3,2768,0)
+262 ;;=93289^^21^175^5^^^^1
+263 ;;^UTILITY(U,$J,358.3,2768,1,0)
+264 ;;=^358.31IA^3^2
+265 ;;^UTILITY(U,$J,358.3,2768,1,2,0)
+266 ;;=2^93289
+267 ;;^UTILITY(U,$J,358.3,2768,1,3,0)
+268 ;;=3^ICD Device Interrogatate
+269 ;;^UTILITY(U,$J,358.3,2769,0)
+270 ;;=93292^^21^175^67^^^^1
+271 ;;^UTILITY(U,$J,358.3,2769,1,0)
+272 ;;=^358.31IA^3^2
+273 ;;^UTILITY(U,$J,358.3,2769,1,2,0)
+274 ;;=2^93292
+275 ;;^UTILITY(U,$J,358.3,2769,1,3,0)
+276 ;;=3^WCD Device Interrogate
+277 ;;^UTILITY(U,$J,358.3,2770,0)
+278 ;;=93295^^21^175^6^^^^1
+279 ;;^UTILITY(U,$J,358.3,2770,1,0)
+280 ;;=^358.31IA^3^2
+281 ;;^UTILITY(U,$J,358.3,2770,1,2,0)
+282 ;;=2^93295
+283 ;;^UTILITY(U,$J,358.3,2770,1,3,0)
+284 ;;=3^ICD Device Interrogate Remote
+285 ;;^UTILITY(U,$J,358.3,2771,0)
+286 ;;=93283^^21^175^8^^^^1
+287 ;;^UTILITY(U,$J,358.3,2771,1,0)
+288 ;;=^358.31IA^3^2
+289 ;;^UTILITY(U,$J,358.3,2771,1,2,0)
+290 ;;=2^93283
+291 ;;^UTILITY(U,$J,358.3,2771,1,3,0)
+292 ;;=3^ICD Device Progr Eval,Dual
+293 ;;^UTILITY(U,$J,358.3,2772,0)
+294 ;;=93284^^21^175^9^^^^1
+295 ;;^UTILITY(U,$J,358.3,2772,1,0)
+296 ;;=^358.31IA^3^2
+297 ;;^UTILITY(U,$J,358.3,2772,1,2,0)
+298 ;;=2^93284
+299 ;;^UTILITY(U,$J,358.3,2772,1,3,0)
+300 ;;=3^ICD Device Progr Eval,Multi
+301 ;;^UTILITY(U,$J,358.3,2773,0)
+302 ;;=93281^^21^175^34^^^^1
+303 ;;^UTILITY(U,$J,358.3,2773,1,0)
+304 ;;=^358.31IA^3^2
+305 ;;^UTILITY(U,$J,358.3,2773,1,2,0)
+306 ;;=2^93281
+307 ;;^UTILITY(U,$J,358.3,2773,1,3,0)
+308 ;;=3^PM Device Progr Eval,Multi
+309 ;;^UTILITY(U,$J,358.3,2774,0)
+310 ;;=33227^^21^175^51^^^^1
+311 ;;^UTILITY(U,$J,358.3,2774,1,0)
+312 ;;=^358.31IA^3^2
+313 ;;^UTILITY(U,$J,358.3,2774,1,2,0)
+314 ;;=2^33227
+315 ;;^UTILITY(U,$J,358.3,2774,1,3,0)
+316 ;;=3^Remove PM Pulse Gen w/Replc PM Gen,Single
+317 ;;^UTILITY(U,$J,358.3,2775,0)
+318 ;;=33228^^21^175^49^^^^1
+319 ;;^UTILITY(U,$J,358.3,2775,1,0)
+320 ;;=^358.31IA^3^2
+321 ;;^UTILITY(U,$J,358.3,2775,1,2,0)
+322 ;;=2^33228
+323 ;;^UTILITY(U,$J,358.3,2775,1,3,0)
+324 ;;=3^Remove PM Pulse Gen w/Replc PM Gen,Dual
+325 ;;^UTILITY(U,$J,358.3,2776,0)
+326 ;;=33229^^21^175^50^^^^1
+327 ;;^UTILITY(U,$J,358.3,2776,1,0)
+328 ;;=^358.31IA^3^2
+329 ;;^UTILITY(U,$J,358.3,2776,1,2,0)
+330 ;;=2^33229
+331 ;;^UTILITY(U,$J,358.3,2776,1,3,0)
+332 ;;=3^Remove PM Pulse Gen w/Replc PM Gen,Mult
+333 ;;^UTILITY(U,$J,358.3,2777,0)
+334 ;;=33230^^21^175^18^^^^1
+335 ;;^UTILITY(U,$J,358.3,2777,1,0)
+336 ;;=^358.31IA^3^2
+337 ;;^UTILITY(U,$J,358.3,2777,1,2,0)
+338 ;;=2^33230
+339 ;;^UTILITY(U,$J,358.3,2777,1,3,0)
+340 ;;=3^Insert ICD Gen Only,Existing Dual
+341 ;;^UTILITY(U,$J,358.3,2778,0)
+342 ;;=33231^^21^175^19^^^^1
+343 ;;^UTILITY(U,$J,358.3,2778,1,0)
+344 ;;=^358.31IA^3^2
+345 ;;^UTILITY(U,$J,358.3,2778,1,2,0)
+346 ;;=2^33231
+347 ;;^UTILITY(U,$J,358.3,2778,1,3,0)
+348 ;;=3^Insert ICD Gen Only,Existing Mult
+349 ;;^UTILITY(U,$J,358.3,2779,0)
+350 ;;=33233^^21^175^46^^^^1
+351 ;;^UTILITY(U,$J,358.3,2779,1,0)
+352 ;;=^358.31IA^3^2
+353 ;;^UTILITY(U,$J,358.3,2779,1,2,0)
+354 ;;=2^33233
+355 ;;^UTILITY(U,$J,358.3,2779,1,3,0)
+356 ;;=3^Removal of PM Generator Only
+357 ;;^UTILITY(U,$J,358.3,2780,0)
+358 ;;=33262^^21^175^55^^^^1
+359 ;;^UTILITY(U,$J,358.3,2780,1,0)
+360 ;;=^358.31IA^3^2
+361 ;;^UTILITY(U,$J,358.3,2780,1,2,0)
+362 ;;=2^33262
+363 ;;^UTILITY(U,$J,358.3,2780,1,3,0)
+364 ;;=3^Remv ICD Gen w/Replc PM Gen,Single
+365 ;;^UTILITY(U,$J,358.3,2781,0)
+366 ;;=33263^^21^175^53^^^^1
+367 ;;^UTILITY(U,$J,358.3,2781,1,0)
+368 ;;=^358.31IA^3^2
+369 ;;^UTILITY(U,$J,358.3,2781,1,2,0)
+370 ;;=2^33263
+371 ;;^UTILITY(U,$J,358.3,2781,1,3,0)
+372 ;;=3^Remv ICD Gen w/Replc PM Gen,Dual
+373 ;;^UTILITY(U,$J,358.3,2782,0)
+374 ;;=33264^^21^175^54^^^^1
+375 ;;^UTILITY(U,$J,358.3,2782,1,0)
+376 ;;=^358.31IA^3^2
+377 ;;^UTILITY(U,$J,358.3,2782,1,2,0)
+378 ;;=2^33264
+379 ;;^UTILITY(U,$J,358.3,2782,1,3,0)
+380 ;;=3^Remv ICD Gen w/Replc PM Gen,Multiple
+381 ;;^UTILITY(U,$J,358.3,2783,0)
+382 ;;=93286^^21^175^41^^^^1
+383 ;;^UTILITY(U,$J,358.3,2783,1,0)
+384 ;;=^358.31IA^3^2
+385 ;;^UTILITY(U,$J,358.3,2783,1,2,0)
+386 ;;=2^93286
+387 ;;^UTILITY(U,$J,358.3,2783,1,3,0)
+388 ;;=3^Pre-Op PM Device Eval w/Review&Rpt
+389 ;;^UTILITY(U,$J,358.3,2784,0)
+390 ;;=93287^^21^175^40^^^^1
+391 ;;^UTILITY(U,$J,358.3,2784,1,0)
+392 ;;=^358.31IA^3^2
+393 ;;^UTILITY(U,$J,358.3,2784,1,2,0)
+394 ;;=2^93287
+395 ;;^UTILITY(U,$J,358.3,2784,1,3,0)
+396 ;;=3^Pre-Op ICD Device Eval
+397 ;;^UTILITY(U,$J,358.3,2785,0)
+398 ;;=93290^^21^175^10^^^^1
+399 ;;^UTILITY(U,$J,358.3,2785,1,0)
+400 ;;=^358.31IA^3^2
+401 ;;^UTILITY(U,$J,358.3,2785,1,2,0)
+402 ;;=2^93290
+403 ;;^UTILITY(U,$J,358.3,2785,1,3,0)
+404 ;;=3^ICM Device Eval
+405 ;;^UTILITY(U,$J,358.3,2786,0)
+406 ;;=93293^^21^175^36^^^^1
+407 ;;^UTILITY(U,$J,358.3,2786,1,0)
+408 ;;=^358.31IA^3^2
+409 ;;^UTILITY(U,$J,358.3,2786,1,2,0)
+410 ;;=2^93293
+411 ;;^UTILITY(U,$J,358.3,2786,1,3,0)
+412 ;;=3^PM Phone R-Strip Device Eval
+413 ;;^UTILITY(U,$J,358.3,2787,0)
+414 ;;=33223^^21^175^60^^^^1
+415 ;;^UTILITY(U,$J,358.3,2787,1,0)
+416 ;;=^358.31IA^3^2
+417 ;;^UTILITY(U,$J,358.3,2787,1,2,0)
+418 ;;=2^33223
+419 ;;^UTILITY(U,$J,358.3,2787,1,3,0)
+420 ;;=3^Revision Skin Pckt, ICD
+421 ;;^UTILITY(U,$J,358.3,2788,0)
+422 ;;=33224^^21^175^27^^^^1
+423 ;;^UTILITY(U,$J,358.3,2788,1,0)
+424 ;;=^358.31IA^3^2
+425 ;;^UTILITY(U,$J,358.3,2788,1,2,0)
+426 ;;=2^33224
+427 ;;^UTILITY(U,$J,358.3,2788,1,3,0)
+428 ;;=3^Insertion of Pacing Electrode
+429 ;;^UTILITY(U,$J,358.3,2789,0)
+430 ;;=33214^^21^175^66^^^^1
+431 ;;^UTILITY(U,$J,358.3,2789,1,0)
+432 ;;=^358.31IA^3^2
+433 ;;^UTILITY(U,$J,358.3,2789,1,2,0)
+434 ;;=2^33214
+435 ;;^UTILITY(U,$J,358.3,2789,1,3,0)
+436 ;;=3^Upgrade Sng to Dual PM System
+437 ;;^UTILITY(U,$J,358.3,2790,0)
+438 ;;=33215^^21^175^58^^^^1
+439 ;;^UTILITY(U,$J,358.3,2790,1,0)
+440 ;;=^358.31IA^3^2
+441 ;;^UTILITY(U,$J,358.3,2790,1,2,0)
+442 ;;=2^33215
+443 ;;^UTILITY(U,$J,358.3,2790,1,3,0)
+444 ;;=3^Reposition Transvenous PM/ICD Lead
+445 ;;^UTILITY(U,$J,358.3,2791,0)
+446 ;;=33221^^21^175^30^^^^1
+447 ;;^UTILITY(U,$J,358.3,2791,1,0)
+448 ;;=^358.31IA^3^2
+449 ;;^UTILITY(U,$J,358.3,2791,1,2,0)
+450 ;;=2^33221
+451 ;;^UTILITY(U,$J,358.3,2791,1,3,0)
+452 ;;=3^New Pacemaker Attached to Old Leads
+453 ;;^UTILITY(U,$J,358.3,2792,0)
+454 ;;=33225^^21^175^3^^^^1
+455 ;;^UTILITY(U,$J,358.3,2792,1,0)
+456 ;;=^358.31IA^3^2
+457 ;;^UTILITY(U,$J,358.3,2792,1,2,0)
+458 ;;=2^33225
+459 ;;^UTILITY(U,$J,358.3,2792,1,3,0)
+460 ;;=3^CS Lead Implt at time of New Implt/Upgd,Add-On
+461 ;;^UTILITY(U,$J,358.3,2793,0)
+462 ;;=33226^^21^175^4^^^^1
+463 ;;^UTILITY(U,$J,358.3,2793,1,0)
+464 ;;=^358.31IA^3^2
+465 ;;^UTILITY(U,$J,358.3,2793,1,2,0)
+466 ;;=2^33226
+467 ;;^UTILITY(U,$J,358.3,2793,1,3,0)
+468 ;;=3^CS Lead Revision
+469 ;;^UTILITY(U,$J,358.3,2794,0)
+470 ;;=93260^^21^175^42^^^^1
+471 ;;^UTILITY(U,$J,358.3,2794,1,0)
+472 ;;=^358.31IA^3^2
+473 ;;^UTILITY(U,$J,358.3,2794,1,2,0)
+474 ;;=2^93260
+475 ;;^UTILITY(U,$J,358.3,2794,1,3,0)
+476 ;;=3^Prgrmg Dev Eval Impltbl Sys
+477 ;;^UTILITY(U,$J,358.3,2795,0)
+478 ;;=93261^^21^175^29^^^^1
+479 ;;^UTILITY(U,$J,358.3,2795,1,0)
+480 ;;=^358.31IA^3^2
+481 ;;^UTILITY(U,$J,358.3,2795,1,2,0)
+482 ;;=2^93261
+483 ;;^UTILITY(U,$J,358.3,2795,1,3,0)
+484 ;;=3^Interrogate Subq Defib
+485 ;;^UTILITY(U,$J,358.3,2796,0)
+486 ;;=93298^^21^175^13^^^^1
+487 ;;^UTILITY(U,$J,358.3,2796,1,0)
+488 ;;=^358.31IA^3^2
+489 ;;^UTILITY(U,$J,358.3,2796,1,2,0)
+490 ;;=2^93298
+491 ;;^UTILITY(U,$J,358.3,2796,1,3,0)
+492 ;;=3^ILR Device Interrogat Remote
+493 ;;^UTILITY(U,$J,358.3,2797,0)
+494 ;;=93724^^21^175^2^^^^1
+495 ;;^UTILITY(U,$J,358.3,2797,1,0)
+496 ;;=^358.31IA^3^2
+497 ;;^UTILITY(U,$J,358.3,2797,1,2,0)
+498 ;;=2^93724
+499 ;;^UTILITY(U,$J,358.3,2797,1,3,0)
+500 ;;=3^Analyze Pacemaker System
+501 ;;^UTILITY(U,$J,358.3,2798,0)
+502 ;;=33967^^21^175^17^^^^1
+503 ;;^UTILITY(U,$J,358.3,2798,1,0)
+504 ;;=^358.31IA^3^2
+505 ;;^UTILITY(U,$J,358.3,2798,1,2,0)
+506 ;;=2^33967
+507 ;;^UTILITY(U,$J,358.3,2798,1,3,0)
+508 ;;=3^Insert IA Percut Device
+509 ;;^UTILITY(U,$J,358.3,2799,0)
+510 ;;=33236^^21^175^48^^^^1
+511 ;;^UTILITY(U,$J,358.3,2799,1,0)
+512 ;;=^358.31IA^3^2
+513 ;;^UTILITY(U,$J,358.3,2799,1,2,0)
+514 ;;=2^33236
+515 ;;^UTILITY(U,$J,358.3,2799,1,3,0)
+516 ;;=3^Remove Epi Electrode/Thoracotomy
+517 ;;^UTILITY(U,$J,358.3,2800,0)
+518 ;;=33237^^21^175^47^^^^1
+519 ;;^UTILITY(U,$J,358.3,2800,1,0)
+520 ;;=^358.31IA^3^2
+521 ;;^UTILITY(U,$J,358.3,2800,1,2,0)
+522 ;;=2^33237
+523 ;;^UTILITY(U,$J,358.3,2800,1,3,0)
+524 ;;=3^Remove Electrode/Thoracotomy Dual
+525 ;;^UTILITY(U,$J,358.3,2801,0)
+526 ;;=33249^^21^175^26^^^^1
+527 ;;^UTILITY(U,$J,358.3,2801,1,0)
+528 ;;=^358.31IA^3^2
+529 ;;^UTILITY(U,$J,358.3,2801,1,2,0)
+530 ;;=2^33249
+531 ;;^UTILITY(U,$J,358.3,2801,1,3,0)
+532 ;;=3^Insert/Rpl ICD,Sgl/Dual w/ Tranv Leads
+533 ;;^UTILITY(U,$J,358.3,2802,0)
+534 ;;=93297^^21^175^11^^^^1
+535 ;;^UTILITY(U,$J,358.3,2802,1,0)
+536 ;;=^358.31IA^3^2
+537 ;;^UTILITY(U,$J,358.3,2802,1,2,0)
+538 ;;=2^93297
+539 ;;^UTILITY(U,$J,358.3,2802,1,3,0)
+540 ;;=3^ICM Device Interrogat Remote
+541 ;;^UTILITY(U,$J,358.3,2803,0)
+542 ;;=33286^^21^175^15^^^^1
+543 ;;^UTILITY(U,$J,358.3,2803,1,0)
+544 ;;=^358.31IA^3^2
+545 ;;^UTILITY(U,$J,358.3,2803,1,2,0)
+546 ;;=2^33286
+547 ;;^UTILITY(U,$J,358.3,2803,1,3,0)
+548 ;;=3^IRL Explant
+549 ;;^UTILITY(U,$J,358.3,2804,0)
+550 ;;=33285^^21^175^16^^^^1
+551 ;;^UTILITY(U,$J,358.3,2804,1,0)
+552 ;;=^358.31IA^3^2
+553 ;;^UTILITY(U,$J,358.3,2804,1,2,0)
+554 ;;=2^33285
+555 ;;^UTILITY(U,$J,358.3,2804,1,3,0)
+556 ;;=3^IRL Implant
+557 ;;^UTILITY(U,$J,358.3,2805,0)
+558 ;;=93297^^21^175^43^^^^1
+559 ;;^UTILITY(U,$J,358.3,2805,1,0)
+560 ;;=^358.31IA^3^2
+561 ;;^UTILITY(U,$J,358.3,2805,1,2,0)
+562 ;;=2^93297
+563 ;;^UTILITY(U,$J,358.3,2805,1,3,0)
+564 ;;=3^Rem Interrog Icpms<30 D Phys/QHP
+565 ;;^UTILITY(U,$J,358.3,2806,0)
+566 ;;=G2066^^21^175^28^^^^1
+567 ;;^UTILITY(U,$J,358.3,2806,1,0)
+568 ;;=^358.31IA^3^2
+569 ;;^UTILITY(U,$J,358.3,2806,1,2,0)
+570 ;;=2^G2066
+571 ;;^UTILITY(U,$J,358.3,2806,1,3,0)
+572 ;;=3^Inter Device Eval,Remote up to 30D,Implantable Loop
+573 ;;^UTILITY(U,$J,358.3,2807,0)
+574 ;;=92975^^21^176^32^^^^1
+575 ;;^UTILITY(U,$J,358.3,2807,1,0)
+576 ;;=^358.31IA^3^2
+577 ;;^UTILITY(U,$J,358.3,2807,1,2,0)
+578 ;;=2^92975
+579 ;;^UTILITY(U,$J,358.3,2807,1,3,0)
+580 ;;=3^Thrombo Cor Inc Cor Angio
+581 ;;^UTILITY(U,$J,358.3,2808,0)
+582 ;;=92977^^21^176^33^^^^1
+583 ;;^UTILITY(U,$J,358.3,2808,1,0)
+584 ;;=^358.31IA^3^2
+585 ;;^UTILITY(U,$J,358.3,2808,1,2,0)
+586 ;;=2^92977
+587 ;;^UTILITY(U,$J,358.3,2808,1,3,0)
+588 ;;=3^Thrombo Cor,Inc Cor Angio Iv Inf
+589 ;;^UTILITY(U,$J,358.3,2809,0)
+590 ;;=92978^^21^176^5^^^^1
+591 ;;^UTILITY(U,$J,358.3,2809,1,0)
+592 ;;=^358.31IA^3^2
+593 ;;^UTILITY(U,$J,358.3,2809,1,2,0)
+594 ;;=2^92978
+595 ;;^UTILITY(U,$J,358.3,2809,1,3,0)
+596 ;;=3^Intr Vasc U/S During Diag Eval
+597 ;;^UTILITY(U,$J,358.3,2810,0)
+598 ;;=92979^^21^176^6^^^^1
+599 ;;^UTILITY(U,$J,358.3,2810,1,0)
+600 ;;=^358.31IA^3^2
+601 ;;^UTILITY(U,$J,358.3,2810,1,2,0)
+602 ;;=2^92979
+603 ;;^UTILITY(U,$J,358.3,2810,1,3,0)
+604 ;;=3^Intr Vasc U/S During Diag Eval Ea Addl Vessel
+605 ;;^UTILITY(U,$J,358.3,2811,0)
+606 ;;=36010^^21^176^3^^^^1
+607 ;;^UTILITY(U,$J,358.3,2811,1,0)
+608 ;;=^358.31IA^3^2
+609 ;;^UTILITY(U,$J,358.3,2811,1,2,0)
+610 ;;=2^36010
+611 ;;^UTILITY(U,$J,358.3,2811,1,3,0)
+612 ;;=3^Cath Place Svc/Ivc (Sheath)
+613 ;;^UTILITY(U,$J,358.3,2812,0)
+614 ;;=36011^^21^176^4^^^^1
+615 ;;^UTILITY(U,$J,358.3,2812,1,0)
+616 ;;=^358.31IA^3^2
+617 ;;^UTILITY(U,$J,358.3,2812,1,2,0)
+618 ;;=2^36011
+619 ;;^UTILITY(U,$J,358.3,2812,1,3,0)
+620 ;;=3^Cath Place Vein 1st Order (Renal,Jugular)
+621 ;;^UTILITY(U,$J,358.3,2813,0)
+622 ;;=76000^^21^176^1^^^^1
+623 ;;^UTILITY(U,$J,358.3,2813,1,0)
+624 ;;=^358.31IA^3^2
+625 ;;^UTILITY(U,$J,358.3,2813,1,2,0)
+626 ;;=2^76000
+627 ;;^UTILITY(U,$J,358.3,2813,1,3,0)
+628 ;;=3^Cardiac Fluoro<1Hr(No Cath Proc)
+629 ;;^UTILITY(U,$J,358.3,2814,0)
+630 ;;=92973^^21^176^24^^^^1
+631 ;;^UTILITY(U,$J,358.3,2814,1,0)
+632 ;;=^358.31IA^3^2
+633 ;;^UTILITY(U,$J,358.3,2814,1,2,0)
+634 ;;=2^92973
+635 ;;^UTILITY(U,$J,358.3,2814,1,3,0)
+636 ;;=3^PRQ Coronary Thrombectomy Mechanical
+637 ;;^UTILITY(U,$J,358.3,2815,0)
+638 ;;=92974^^21^176^2^^^^1
+639 ;;^UTILITY(U,$J,358.3,2815,1,0)
+640 ;;=^358.31IA^3^2
+641 ;;^UTILITY(U,$J,358.3,2815,1,2,0)
+642 ;;=2^92974
+643 ;;^UTILITY(U,$J,358.3,2815,1,3,0)
+644 ;;=3^Cath Place Cardio Brachytx
+645 ;;^UTILITY(U,$J,358.3,2816,0)
+646 ;;=92920^^21^176^22^^^^1
+647 ;;^UTILITY(U,$J,358.3,2816,1,0)
+648 ;;=^358.31IA^3^2
+649 ;;^UTILITY(U,$J,358.3,2816,1,2,0)
+650 ;;=2^92920
+651 ;;^UTILITY(U,$J,358.3,2816,1,3,0)
+652 ;;=3^PRQ Cardia Angioplast 1 Art
+653 ;;^UTILITY(U,$J,358.3,2817,0)
+654 ;;=92921^^21^176^23^^^^1
+655 ;;^UTILITY(U,$J,358.3,2817,1,0)
+656 ;;=^358.31IA^3^2
+657 ;;^UTILITY(U,$J,358.3,2817,1,2,0)
+658 ;;=2^92921
+659 ;;^UTILITY(U,$J,358.3,2817,1,3,0)
+660 ;;=3^PRQ Cardiac Angio Addl Art
+661 ;;^UTILITY(U,$J,358.3,2818,0)
+662 ;;=92924^^21^176^13^^^^1
+663 ;;^UTILITY(U,$J,358.3,2818,1,0)
+664 ;;=^358.31IA^3^2
+665 ;;^UTILITY(U,$J,358.3,2818,1,2,0)
+666 ;;=2^92924
+667 ;;^UTILITY(U,$J,358.3,2818,1,3,0)
+668 ;;=3^PRQ Card Angio/Athrect 1 Art
+669 ;;^UTILITY(U,$J,358.3,2819,0)
+670 ;;=92925^^21^176^14^^^^1
+671 ;;^UTILITY(U,$J,358.3,2819,1,0)
+672 ;;=^358.31IA^3^2
