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

IBDEI01H.m

Go to the documentation of this file.
IBDEI01H ; ; 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,3148,1,2,0)
 ;;=2^A9502
 ;;^UTILITY(U,$J,358.3,3148,1,3,0)
 ;;=3^TC99M Tetrofosmin
 ;;^UTILITY(U,$J,358.3,3149,0)
 ;;=J0280^^21^189^1^^^^1
 ;;^UTILITY(U,$J,358.3,3149,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3149,1,2,0)
 ;;=2^J0280
 ;;^UTILITY(U,$J,358.3,3149,1,3,0)
 ;;=3^Aminophyllin 250mg
 ;;^UTILITY(U,$J,358.3,3150,0)
 ;;=J0461^^21^189^2^^^^1
 ;;^UTILITY(U,$J,358.3,3150,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3150,1,2,0)
 ;;=2^J0461
 ;;^UTILITY(U,$J,358.3,3150,1,3,0)
 ;;=3^Atropine Sulfate 0.01mg
 ;;^UTILITY(U,$J,358.3,3151,0)
 ;;=J1245^^21^189^4^^^^1
 ;;^UTILITY(U,$J,358.3,3151,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3151,1,2,0)
 ;;=2^J1245
 ;;^UTILITY(U,$J,358.3,3151,1,3,0)
 ;;=3^Dipyridamole per 10mg
 ;;^UTILITY(U,$J,358.3,3152,0)
 ;;=J2785^^21^189^25^^^^1
 ;;^UTILITY(U,$J,358.3,3152,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3152,1,2,0)
 ;;=2^J2785
 ;;^UTILITY(U,$J,358.3,3152,1,3,0)
 ;;=3^Regadenoson 0.1mg
 ;;^UTILITY(U,$J,358.3,3153,0)
 ;;=J7030^^21^189^18^^^^1
 ;;^UTILITY(U,$J,358.3,3153,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3153,1,2,0)
 ;;=2^J7030
 ;;^UTILITY(U,$J,358.3,3153,1,3,0)
 ;;=3^NS Solution Infusion 1000ml
 ;;^UTILITY(U,$J,358.3,3154,0)
 ;;=J7050^^21^189^19^^^^1
 ;;^UTILITY(U,$J,358.3,3154,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3154,1,2,0)
 ;;=2^J7050
 ;;^UTILITY(U,$J,358.3,3154,1,3,0)
 ;;=3^NS Solution Infusion 250ml
 ;;^UTILITY(U,$J,358.3,3155,0)
 ;;=J7040^^21^189^20^^^^1
 ;;^UTILITY(U,$J,358.3,3155,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3155,1,2,0)
 ;;=2^J7040
 ;;^UTILITY(U,$J,358.3,3155,1,3,0)
 ;;=3^NS Solution Infusion 500ml
 ;;^UTILITY(U,$J,358.3,3156,0)
 ;;=J3240^^21^189^31^^^^1
 ;;^UTILITY(U,$J,358.3,3156,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3156,1,2,0)
 ;;=2^J3240
 ;;^UTILITY(U,$J,358.3,3156,1,3,0)
 ;;=3^Thyrotropin Alpha 0.9mg
 ;;^UTILITY(U,$J,358.3,3157,0)
 ;;=Q9957^^21^189^3^^^^1
 ;;^UTILITY(U,$J,358.3,3157,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3157,1,2,0)
 ;;=2^Q9957
 ;;^UTILITY(U,$J,358.3,3157,1,3,0)
 ;;=3^Definity per ML
 ;;^UTILITY(U,$J,358.3,3158,0)
 ;;=J1444^^21^189^8^^^^1
 ;;^UTILITY(U,$J,358.3,3158,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3158,1,2,0)
 ;;=2^J1444
 ;;^UTILITY(U,$J,358.3,3158,1,3,0)
 ;;=3^Ferric Pyrophosphate Citrate Powder 0.1mg
 ;;^UTILITY(U,$J,358.3,3159,0)
 ;;=A9700^^21^189^6^^^^1
 ;;^UTILITY(U,$J,358.3,3159,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3159,1,2,0)
 ;;=2^A9700
 ;;^UTILITY(U,$J,358.3,3159,1,3,0)
 ;;=3^Echocardiography Contrast
 ;;^UTILITY(U,$J,358.3,3160,0)
 ;;=90694^^21^189^9^^^^1
 ;;^UTILITY(U,$J,358.3,3160,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3160,1,2,0)
 ;;=2^90694
 ;;^UTILITY(U,$J,358.3,3160,1,3,0)
 ;;=3^Flu Vax,Quadvlt,Inactive Prsrv Free,65+ yrs
 ;;^UTILITY(U,$J,358.3,3161,0)
 ;;=93015^^21^190^7
 ;;^UTILITY(U,$J,358.3,3161,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3161,1,2,0)
 ;;=2^93015
 ;;^UTILITY(U,$J,358.3,3161,1,3,0)
 ;;=3^Cardiovascular Stress Test
 ;;^UTILITY(U,$J,358.3,3162,0)
 ;;=93660^^21^190^16
 ;;^UTILITY(U,$J,358.3,3162,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3162,1,2,0)
 ;;=2^93660
 ;;^UTILITY(U,$J,358.3,3162,1,3,0)
 ;;=3^Tilt Test Study
 ;;^UTILITY(U,$J,358.3,3163,0)
 ;;=78472^^21^190^2^^^^1
 ;;^UTILITY(U,$J,358.3,3163,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3163,1,2,0)
 ;;=2^78472
 ;;^UTILITY(U,$J,358.3,3163,1,3,0)
 ;;=3^Cardiac Blood Pool Gate+EF 
 ;;^UTILITY(U,$J,358.3,3164,0)
 ;;=78473^^21^190^1^^^^1
 ;;^UTILITY(U,$J,358.3,3164,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3164,1,2,0)
 ;;=2^78473
 ;;^UTILITY(U,$J,358.3,3164,1,3,0)
 ;;=3^Cardiac Blood Pool Gate Mult,Add-on
 ;;^UTILITY(U,$J,358.3,3165,0)
 ;;=78481^^21^190^3^^^^1
 ;;^UTILITY(U,$J,358.3,3165,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3165,1,2,0)
 ;;=2^78481
 ;;^UTILITY(U,$J,358.3,3165,1,3,0)
 ;;=3^Cardiac Blood Pool Imag
 ;;^UTILITY(U,$J,358.3,3166,0)
 ;;=78483^^21^190^5^^^^1
 ;;^UTILITY(U,$J,358.3,3166,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3166,1,2,0)
 ;;=2^78483
 ;;^UTILITY(U,$J,358.3,3166,1,3,0)
 ;;=3^Cardiac Blood Pool Imag Mult,Add-On
 ;;^UTILITY(U,$J,358.3,3167,0)
 ;;=78491^^21^190^14^^^^1
 ;;^UTILITY(U,$J,358.3,3167,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3167,1,2,0)
 ;;=2^78491
 ;;^UTILITY(U,$J,358.3,3167,1,3,0)
 ;;=3^PET, Single, Rest or stress
 ;;^UTILITY(U,$J,358.3,3168,0)
 ;;=78492^^21^190^15^^^^1
 ;;^UTILITY(U,$J,358.3,3168,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3168,1,2,0)
 ;;=2^78492
 ;;^UTILITY(U,$J,358.3,3168,1,3,0)
 ;;=3^PET, multiple, rest or stress
 ;;^UTILITY(U,$J,358.3,3169,0)
 ;;=78496^^21^190^4^^^^1
 ;;^UTILITY(U,$J,358.3,3169,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3169,1,2,0)
 ;;=2^78496
 ;;^UTILITY(U,$J,358.3,3169,1,3,0)
 ;;=3^Cardiac Blood Pool Imag Gate sgl+EF,Add-On
 ;;^UTILITY(U,$J,358.3,3170,0)
 ;;=78451^^21^190^11^^^^1
 ;;^UTILITY(U,$J,358.3,3170,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3170,1,2,0)
 ;;=2^78451
 ;;^UTILITY(U,$J,358.3,3170,1,3,0)
 ;;=3^HT Muscle Image Spect,Single
 ;;^UTILITY(U,$J,358.3,3171,0)
 ;;=78452^^21^190^10^^^^1
 ;;^UTILITY(U,$J,358.3,3171,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3171,1,2,0)
 ;;=2^78452
 ;;^UTILITY(U,$J,358.3,3171,1,3,0)
 ;;=3^HT Muscle Image Spect,Multi,Add-On
 ;;^UTILITY(U,$J,358.3,3172,0)
 ;;=78453^^21^190^13^^^^1
 ;;^UTILITY(U,$J,358.3,3172,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3172,1,2,0)
 ;;=2^78453
 ;;^UTILITY(U,$J,358.3,3172,1,3,0)
 ;;=3^HT Muscle Image,Planar,Single
 ;;^UTILITY(U,$J,358.3,3173,0)
 ;;=78454^^21^190^12^^^^1
 ;;^UTILITY(U,$J,358.3,3173,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3173,1,2,0)
 ;;=2^78454
 ;;^UTILITY(U,$J,358.3,3173,1,3,0)
 ;;=3^HT Muscle Image,Planar,Multi,Add-On
 ;;^UTILITY(U,$J,358.3,3174,0)
 ;;=93641^^21^190^8^^^^1
 ;;^UTILITY(U,$J,358.3,3174,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3174,1,2,0)
 ;;=2^93641
 ;;^UTILITY(U,$J,358.3,3174,1,3,0)
 ;;=3^Electrophysiology Eval,Pulse Generator
 ;;^UTILITY(U,$J,358.3,3175,0)
 ;;=93642^^21^190^9^^^^1
 ;;^UTILITY(U,$J,358.3,3175,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3175,1,2,0)
 ;;=2^93642
 ;;^UTILITY(U,$J,358.3,3175,1,3,0)
 ;;=3^Electrophysiology Eval,Sensing/Therapeutic Parameters
 ;;^UTILITY(U,$J,358.3,3176,0)
 ;;=93797^^21^190^6^^^^1
 ;;^UTILITY(U,$J,358.3,3176,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3176,1,2,0)
 ;;=2^93797
 ;;^UTILITY(U,$J,358.3,3176,1,3,0)
 ;;=3^Cardiac Rehab w/o ECG Monitoring
 ;;^UTILITY(U,$J,358.3,3177,0)
 ;;=93799^^21^190^17^^^^1
 ;;^UTILITY(U,$J,358.3,3177,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3177,1,2,0)
 ;;=2^93799
 ;;^UTILITY(U,$J,358.3,3177,1,3,0)
 ;;=3^Unlisted Cardiovascular Procedure
 ;;^UTILITY(U,$J,358.3,3178,0)
 ;;=93015^^21^191^1^^^^1
 ;;^UTILITY(U,$J,358.3,3178,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3178,1,2,0)
 ;;=2^93015
 ;;^UTILITY(U,$J,358.3,3178,1,3,0)
 ;;=3^Cardiovascular Stress Test
 ;;^UTILITY(U,$J,358.3,3179,0)
 ;;=93016^^21^191^7^^^^1
 ;;^UTILITY(U,$J,358.3,3179,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3179,1,2,0)
 ;;=2^93016
 ;;^UTILITY(U,$J,358.3,3179,1,3,0)
 ;;=3^Stress Test, Phy Super Only No Report
 ;;^UTILITY(U,$J,358.3,3180,0)
 ;;=93017^^21^191^8^^^^1
 ;;^UTILITY(U,$J,358.3,3180,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3180,1,2,0)
 ;;=2^93017
 ;;^UTILITY(U,$J,358.3,3180,1,3,0)
 ;;=3^Stress Test, Tracing Only
 ;;^UTILITY(U,$J,358.3,3181,0)
 ;;=93018^^21^191^6^^^^1
 ;;^UTILITY(U,$J,358.3,3181,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3181,1,2,0)
 ;;=2^93018
 ;;^UTILITY(U,$J,358.3,3181,1,3,0)
 ;;=3^Stress Test, Interr & Report Only
 ;;^UTILITY(U,$J,358.3,3182,0)
 ;;=78451^^21^191^4^^^^1
 ;;^UTILITY(U,$J,358.3,3182,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3182,1,2,0)
 ;;=2^78451
 ;;^UTILITY(U,$J,358.3,3182,1,3,0)
 ;;=3^SPECT,Single Study
 ;;^UTILITY(U,$J,358.3,3183,0)
 ;;=93350^^21^191^5^^^^1
 ;;^UTILITY(U,$J,358.3,3183,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3183,1,2,0)
 ;;=2^93350
 ;;^UTILITY(U,$J,358.3,3183,1,3,0)
 ;;=3^Stress TTE Only
 ;;^UTILITY(U,$J,358.3,3184,0)
 ;;=J2785^^21^191^3^^^^1
 ;;^UTILITY(U,$J,358.3,3184,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3184,1,2,0)
 ;;=2^J2785
 ;;^UTILITY(U,$J,358.3,3184,1,3,0)
 ;;=3^Regadenoson 0.1mg (Lexiscan)
 ;;^UTILITY(U,$J,358.3,3185,0)
 ;;=J1250^^21^191^2^^^^1
 ;;^UTILITY(U,$J,358.3,3185,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3185,1,2,0)
 ;;=2^J1250
 ;;^UTILITY(U,$J,358.3,3185,1,3,0)
 ;;=3^Dobutamin Hydrochloride per 250mg
 ;;^UTILITY(U,$J,358.3,3186,0)
 ;;=99401^^21^192^1^^^^1
 ;;^UTILITY(U,$J,358.3,3186,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3186,1,2,0)
 ;;=2^99401
 ;;^UTILITY(U,$J,358.3,3186,1,3,0)
 ;;=3^Preventive Counseling,15 min
 ;;^UTILITY(U,$J,358.3,3187,0)
 ;;=99402^^21^192^2^^^^1
 ;;^UTILITY(U,$J,358.3,3187,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3187,1,2,0)
 ;;=2^99402
 ;;^UTILITY(U,$J,358.3,3187,1,3,0)
 ;;=3^Preventive Counseling,30 min
 ;;^UTILITY(U,$J,358.3,3188,0)
 ;;=99403^^21^192^3^^^^1
 ;;^UTILITY(U,$J,358.3,3188,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3188,1,2,0)
 ;;=2^99403
 ;;^UTILITY(U,$J,358.3,3188,1,3,0)
 ;;=3^Preventive Counseling,45 min
 ;;^UTILITY(U,$J,358.3,3189,0)
 ;;=99404^^21^192^4^^^^1
 ;;^UTILITY(U,$J,358.3,3189,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3189,1,2,0)
 ;;=2^99404
 ;;^UTILITY(U,$J,358.3,3189,1,3,0)
 ;;=3^Preventive Counseling,60 min
 ;;^UTILITY(U,$J,358.3,3190,0)
 ;;=99411^^21^192^5^^^^1
 ;;^UTILITY(U,$J,358.3,3190,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3190,1,2,0)
 ;;=2^99411
 ;;^UTILITY(U,$J,358.3,3190,1,3,0)
 ;;=3^Preventive Counseling,Grp,30 Min
 ;;^UTILITY(U,$J,358.3,3191,0)
 ;;=99412^^21^192^6^^^^1
 ;;^UTILITY(U,$J,358.3,3191,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3191,1,2,0)
 ;;=2^99412
 ;;^UTILITY(U,$J,358.3,3191,1,3,0)
 ;;=3^Preventive Counseling,Grp,60 Min
 ;;^UTILITY(U,$J,358.3,3192,0)
 ;;=99152^^21^193^1^^^^1
 ;;^UTILITY(U,$J,358.3,3192,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3192,1,2,0)
 ;;=2^99152
 ;;^UTILITY(U,$J,358.3,3192,1,3,0)
 ;;=3^MS by Same/Supr MD/QHCP,1st 15 min
 ;;^UTILITY(U,$J,358.3,3193,0)
 ;;=99153^^21^193^2^^^^1
 ;;^UTILITY(U,$J,358.3,3193,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3193,1,2,0)
 ;;=2^99153
 ;;^UTILITY(U,$J,358.3,3193,1,3,0)
 ;;=3^MS by Same/Supr MD/QHCP,Ea Addl 15 min
 ;;^UTILITY(U,$J,358.3,3194,0)
 ;;=99156^^21^193^3^^^^1
 ;;^UTILITY(U,$J,358.3,3194,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3194,1,2,0)
 ;;=2^99156
 ;;^UTILITY(U,$J,358.3,3194,1,3,0)
 ;;=3^MS by Oth MD/QHCP,1st 15 min
 ;;^UTILITY(U,$J,358.3,3195,0)
 ;;=99157^^21^193^4^^^^1
 ;;^UTILITY(U,$J,358.3,3195,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3195,1,2,0)
 ;;=2^99157
 ;;^UTILITY(U,$J,358.3,3195,1,3,0)
 ;;=3^MS by Oth MD/QHCP,Ea Addl 15 min
 ;;^UTILITY(U,$J,358.3,3196,0)
 ;;=33990^^21^194^2^^^^1
 ;;^UTILITY(U,$J,358.3,3196,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3196,1,2,0)
 ;;=2^33990
 ;;^UTILITY(U,$J,358.3,3196,1,3,0)
 ;;=3^Insert VAD,Percut,Arterial Access,Rad S&I
 ;;^UTILITY(U,$J,358.3,3197,0)
 ;;=33991^^21^194^1^^^^1
 ;;^UTILITY(U,$J,358.3,3197,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3197,1,2,0)
 ;;=2^33991
 ;;^UTILITY(U,$J,358.3,3197,1,3,0)
 ;;=3^Insert VAD,Percut,Art&Ven Access,Rad S&I
 ;;^UTILITY(U,$J,358.3,3198,0)
 ;;=33992^^21^194^5^^^^1
 ;;^UTILITY(U,$J,358.3,3198,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3198,1,2,0)
 ;;=2^33992
 ;;^UTILITY(U,$J,358.3,3198,1,3,0)
 ;;=3^Remove VAD @ Diff Session from Insert
 ;;^UTILITY(U,$J,358.3,3199,0)
 ;;=33993^^21^194^6^^^^1
 ;;^UTILITY(U,$J,358.3,3199,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3199,1,2,0)
 ;;=2^33993
 ;;^UTILITY(U,$J,358.3,3199,1,3,0)
 ;;=3^Reposition VAD @ Diff Session from Insert
 ;;^UTILITY(U,$J,358.3,3200,0)
 ;;=33999^^21^194^3^^^^1
 ;;^UTILITY(U,$J,358.3,3200,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3200,1,2,0)
 ;;=2^33999
 ;;^UTILITY(U,$J,358.3,3200,1,3,0)
 ;;=3^Insertion of Impella
 ;;^UTILITY(U,$J,358.3,3201,0)
 ;;=34812^^21^194^4^^^^1
 ;;^UTILITY(U,$J,358.3,3201,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3201,1,2,0)
 ;;=2^34812
 ;;^UTILITY(U,$J,358.3,3201,1,3,0)
 ;;=3^Open Fem Artery Exposure for Deliv of Endo Prosth
 ;;^UTILITY(U,$J,358.3,3202,0)
 ;;=92960^^21^195^1^^^^1
 ;;^UTILITY(U,$J,358.3,3202,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3202,1,2,0)
 ;;=2^92960
 ;;^UTILITY(U,$J,358.3,3202,1,3,0)
 ;;=3^Cardioversion,External
 ;;^UTILITY(U,$J,358.3,3203,0)
 ;;=92961^^21^195^2^^^^1
 ;;^UTILITY(U,$J,358.3,3203,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3203,1,2,0)
 ;;=2^92961
 ;;^UTILITY(U,$J,358.3,3203,1,3,0)
 ;;=3^Cardioversion,Internal
 ;;^UTILITY(U,$J,358.3,3204,0)
 ;;=99417^^21^196^1^^^^1
 ;;^UTILITY(U,$J,358.3,3204,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3204,1,2,0)
 ;;=2^99417
 ;;^UTILITY(U,$J,358.3,3204,1,3,0)
 ;;=3^Prolonged Svc,Ea 15min;Only with 99205 or 99215
 ;;^UTILITY(U,$J,358.3,3205,0)
 ;;=99202^^22^197^1
 ;;^UTILITY(U,$J,358.3,3205,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,3205,1,1,0)
 ;;=1^SF MDM or 15-29 min
 ;;^UTILITY(U,$J,358.3,3205,1,2,0)
 ;;=2^99202
 ;;^UTILITY(U,$J,358.3,3206,0)
 ;;=99203^^22^197^2
 ;;^UTILITY(U,$J,358.3,3206,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,3206,1,1,0)
 ;;=1^Low Complex MDM or 30-44 min
 ;;^UTILITY(U,$J,358.3,3206,1,2,0)
 ;;=2^99203
 ;;^UTILITY(U,$J,358.3,3207,0)
 ;;=99204^^22^197^3
 ;;^UTILITY(U,$J,358.3,3207,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,3207,1,1,0)
 ;;=1^Mod Complex MDM or 45-59 min
 ;;^UTILITY(U,$J,358.3,3207,1,2,0)
 ;;=2^99204
 ;;^UTILITY(U,$J,358.3,3208,0)
 ;;=99205^^22^197^4
 ;;^UTILITY(U,$J,358.3,3208,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,3208,1,1,0)
 ;;=1^High Complex MDM or 60-74 min
 ;;^UTILITY(U,$J,358.3,3208,1,2,0)
 ;;=2^99205
 ;;^UTILITY(U,$J,358.3,3209,0)
 ;;=99212^^22^198^2
 ;;^UTILITY(U,$J,358.3,3209,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,3209,1,1,0)
 ;;=1^SF MDM or 10-19 min
 ;;^UTILITY(U,$J,358.3,3209,1,2,0)
 ;;=2^99212
 ;;^UTILITY(U,$J,358.3,3210,0)
 ;;=99213^^22^198^3
 ;;^UTILITY(U,$J,358.3,3210,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,3210,1,1,0)
 ;;=1^Low Complex MDM or 20-29 min
 ;;^UTILITY(U,$J,358.3,3210,1,2,0)
 ;;=2^99213
 ;;^UTILITY(U,$J,358.3,3211,0)
 ;;=99214^^22^198^4
 ;;^UTILITY(U,$J,358.3,3211,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,3211,1,1,0)
 ;;=1^Mod Complex MDM or 30-39 min
 ;;^UTILITY(U,$J,358.3,3211,1,2,0)
 ;;=2^99214
 ;;^UTILITY(U,$J,358.3,3212,0)
 ;;=99211^^22^198^1
 ;;^UTILITY(U,$J,358.3,3212,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,3212,1,1,0)
 ;;=1^Straight-Forward 
 ;;^UTILITY(U,$J,358.3,3212,1,2,0)
 ;;=2^99211
 ;;^UTILITY(U,$J,358.3,3213,0)
 ;;=99215^^22^198^5
 ;;^UTILITY(U,$J,358.3,3213,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,3213,1,1,0)
 ;;=1^High Complex MDM or 40-54 min
 ;;^UTILITY(U,$J,358.3,3213,1,2,0)
 ;;=2^99215
 ;;^UTILITY(U,$J,358.3,3214,0)
 ;;=99241^^22^199^1
 ;;^UTILITY(U,$J,358.3,3214,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,3214,1,1,0)
 ;;=1^Problem Focused
 ;;^UTILITY(U,$J,358.3,3214,1,2,0)
 ;;=2^99241
 ;;^UTILITY(U,$J,358.3,3215,0)
 ;;=99242^^22^199^2
 ;;^UTILITY(U,$J,358.3,3215,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,3215,1,1,0)
 ;;=1^Expanded Problem Focus
 ;;^UTILITY(U,$J,358.3,3215,1,2,0)
 ;;=2^99242
 ;;^UTILITY(U,$J,358.3,3216,0)
 ;;=99243^^22^199^3
 ;;^UTILITY(U,$J,358.3,3216,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,3216,1,1,0)
 ;;=1^Detailed
 ;;^UTILITY(U,$J,358.3,3216,1,2,0)
 ;;=2^99243
 ;;^UTILITY(U,$J,358.3,3217,0)
 ;;=99244^^22^199^4
 ;;^UTILITY(U,$J,358.3,3217,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,3217,1,1,0)
 ;;=1^Comprehensive, Moderate
 ;;^UTILITY(U,$J,358.3,3217,1,2,0)
 ;;=2^99244
 ;;^UTILITY(U,$J,358.3,3218,0)
 ;;=99245^^22^199^5
 ;;^UTILITY(U,$J,358.3,3218,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,3218,1,1,0)
 ;;=1^Comprehensive, High
 ;;^UTILITY(U,$J,358.3,3218,1,2,0)
 ;;=2^99245
 ;;^UTILITY(U,$J,358.3,3219,0)
 ;;=97014^^23^200^4^^^^1
 ;;^UTILITY(U,$J,358.3,3219,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3219,1,2,0)
 ;;=2^Electric Stimulation Therapy (TENS),Unattended
 ;;^UTILITY(U,$J,358.3,3219,1,3,0)
 ;;=3^97014
 ;;^UTILITY(U,$J,358.3,3220,0)
 ;;=97032^^23^200^5^^^^1
 ;;^UTILITY(U,$J,358.3,3220,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3220,1,2,0)
 ;;=2^Electrical Stimulation (TENS),1+ Areas,Ea 15min
 ;;^UTILITY(U,$J,358.3,3220,1,3,0)
 ;;=3^97032
 ;;^UTILITY(U,$J,358.3,3221,0)
 ;;=97010^^23^200^7^^^^1
 ;;^UTILITY(U,$J,358.3,3221,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3221,1,2,0)
 ;;=2^Hot Or Cold Packs Therapy
 ;;^UTILITY(U,$J,358.3,3221,1,3,0)
 ;;=3^97010
 ;;^UTILITY(U,$J,358.3,3222,0)
 ;;=97036^^23^200^8^^^^1
 ;;^UTILITY(U,$J,358.3,3222,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3222,1,2,0)
 ;;=2^Hubbard Tank,Ea 15min
 ;;^UTILITY(U,$J,358.3,3222,1,3,0)
 ;;=3^97036
 ;;^UTILITY(U,$J,358.3,3223,0)
 ;;=97124^^23^200^11^^^^1
 ;;^UTILITY(U,$J,358.3,3223,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3223,1,2,0)
 ;;=2^Massage Therapy
 ;;^UTILITY(U,$J,358.3,3223,1,3,0)
 ;;=3^97124
 ;;^UTILITY(U,$J,358.3,3224,0)
 ;;=97012^^23^200^12^^^^1
 ;;^UTILITY(U,$J,358.3,3224,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3224,1,2,0)
 ;;=2^Mechanical Traction Therapy 
 ;;^UTILITY(U,$J,358.3,3224,1,3,0)
 ;;=3^97012
 ;;^UTILITY(U,$J,358.3,3225,0)
 ;;=97035^^23^200^22^^^^1
 ;;^UTILITY(U,$J,358.3,3225,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3225,1,2,0)
 ;;=2^Ultrasound Therapy,Ea 15min
 ;;^UTILITY(U,$J,358.3,3225,1,3,0)
 ;;=3^97035
 ;;^UTILITY(U,$J,358.3,3226,0)
 ;;=97028^^23^200^23^^^^1
 ;;^UTILITY(U,$J,358.3,3226,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3226,1,2,0)
 ;;=2^Ultraviolet Therapy
 ;;^UTILITY(U,$J,358.3,3226,1,3,0)
 ;;=3^97028
 ;;^UTILITY(U,$J,358.3,3227,0)
 ;;=97110^^23^200^21^^^^1
 ;;^UTILITY(U,$J,358.3,3227,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3227,1,2,0)
 ;;=2^Therapeutic Exercises,1 or more regions,Ea 15min
 ;;^UTILITY(U,$J,358.3,3227,1,3,0)
 ;;=3^97110
 ;;^UTILITY(U,$J,358.3,3228,0)
 ;;=97112^^23^200^13^^^^1
 ;;^UTILITY(U,$J,358.3,3228,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3228,1,2,0)
 ;;=2^Neuromuscular Re-Education
 ;;^UTILITY(U,$J,358.3,3228,1,3,0)
 ;;=3^97112
 ;;^UTILITY(U,$J,358.3,3229,0)
 ;;=97140^^23^200^10^^^^1
 ;;^UTILITY(U,$J,358.3,3229,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3229,1,2,0)
 ;;=2^Manual Therapy,1 or more regions,Ea 15min
 ;;^UTILITY(U,$J,358.3,3229,1,3,0)
 ;;=3^97140
 ;;^UTILITY(U,$J,358.3,3230,0)
 ;;=97039^^23^200^1^^^^1
 ;;^UTILITY(U,$J,358.3,3230,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3230,1,2,0)
 ;;=2^Cold Laser Therapy
 ;;^UTILITY(U,$J,358.3,3230,1,3,0)
 ;;=3^97039
 ;;^UTILITY(U,$J,358.3,3231,0)
 ;;=97026^^23^200^9^^^^1
 ;;^UTILITY(U,$J,358.3,3231,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3231,1,2,0)
 ;;=2^Infrared Heat to 1 or more areas
 ;;^UTILITY(U,$J,358.3,3231,1,3,0)
 ;;=3^97026
 ;;^UTILITY(U,$J,358.3,3232,0)
 ;;=29540^^23^200^14^^^^1
 ;;^UTILITY(U,$J,358.3,3232,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,3232,1,2,0)
 ;;=2^Strapping/Taping,Ankle and/or Foot