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
 
--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI01H   19821     printed  Sep 23, 2025@19:15:44                                                                                                                                                                                                   Page 2
IBDEI01H  ; ; 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,3148,1,2,0)
 +2       ;;=2^A9502
 +3       ;;^UTILITY(U,$J,358.3,3148,1,3,0)
 +4       ;;=3^TC99M Tetrofosmin
 +5       ;;^UTILITY(U,$J,358.3,3149,0)
 +6       ;;=J0280^^21^189^1^^^^1
 +7       ;;^UTILITY(U,$J,358.3,3149,1,0)
 +8       ;;=^358.31IA^3^2
 +9       ;;^UTILITY(U,$J,358.3,3149,1,2,0)
 +10      ;;=2^J0280
 +11      ;;^UTILITY(U,$J,358.3,3149,1,3,0)
 +12      ;;=3^Aminophyllin 250mg
 +13      ;;^UTILITY(U,$J,358.3,3150,0)
 +14      ;;=J0461^^21^189^2^^^^1
 +15      ;;^UTILITY(U,$J,358.3,3150,1,0)
 +16      ;;=^358.31IA^3^2
 +17      ;;^UTILITY(U,$J,358.3,3150,1,2,0)
 +18      ;;=2^J0461
 +19      ;;^UTILITY(U,$J,358.3,3150,1,3,0)
 +20      ;;=3^Atropine Sulfate 0.01mg
 +21      ;;^UTILITY(U,$J,358.3,3151,0)
 +22      ;;=J1245^^21^189^4^^^^1
 +23      ;;^UTILITY(U,$J,358.3,3151,1,0)
 +24      ;;=^358.31IA^3^2
 +25      ;;^UTILITY(U,$J,358.3,3151,1,2,0)
 +26      ;;=2^J1245
 +27      ;;^UTILITY(U,$J,358.3,3151,1,3,0)
 +28      ;;=3^Dipyridamole per 10mg
 +29      ;;^UTILITY(U,$J,358.3,3152,0)
 +30      ;;=J2785^^21^189^25^^^^1
 +31      ;;^UTILITY(U,$J,358.3,3152,1,0)
 +32      ;;=^358.31IA^3^2
 +33      ;;^UTILITY(U,$J,358.3,3152,1,2,0)
 +34      ;;=2^J2785
 +35      ;;^UTILITY(U,$J,358.3,3152,1,3,0)
 +36      ;;=3^Regadenoson 0.1mg
 +37      ;;^UTILITY(U,$J,358.3,3153,0)
 +38      ;;=J7030^^21^189^18^^^^1
 +39      ;;^UTILITY(U,$J,358.3,3153,1,0)
 +40      ;;=^358.31IA^3^2
 +41      ;;^UTILITY(U,$J,358.3,3153,1,2,0)
 +42      ;;=2^J7030
 +43      ;;^UTILITY(U,$J,358.3,3153,1,3,0)
 +44      ;;=3^NS Solution Infusion 1000ml
 +45      ;;^UTILITY(U,$J,358.3,3154,0)
 +46      ;;=J7050^^21^189^19^^^^1
 +47      ;;^UTILITY(U,$J,358.3,3154,1,0)
 +48      ;;=^358.31IA^3^2
 +49      ;;^UTILITY(U,$J,358.3,3154,1,2,0)
 +50      ;;=2^J7050
 +51      ;;^UTILITY(U,$J,358.3,3154,1,3,0)
 +52      ;;=3^NS Solution Infusion 250ml
 +53      ;;^UTILITY(U,$J,358.3,3155,0)
 +54      ;;=J7040^^21^189^20^^^^1
 +55      ;;^UTILITY(U,$J,358.3,3155,1,0)
 +56      ;;=^358.31IA^3^2
 +57      ;;^UTILITY(U,$J,358.3,3155,1,2,0)
 +58      ;;=2^J7040
 +59      ;;^UTILITY(U,$J,358.3,3155,1,3,0)
 +60      ;;=3^NS Solution Infusion 500ml
 +61      ;;^UTILITY(U,$J,358.3,3156,0)
 +62      ;;=J3240^^21^189^31^^^^1
 +63      ;;^UTILITY(U,$J,358.3,3156,1,0)
 +64      ;;=^358.31IA^3^2
 +65      ;;^UTILITY(U,$J,358.3,3156,1,2,0)
 +66      ;;=2^J3240
 +67      ;;^UTILITY(U,$J,358.3,3156,1,3,0)
 +68      ;;=3^Thyrotropin Alpha 0.9mg
 +69      ;;^UTILITY(U,$J,358.3,3157,0)
 +70      ;;=Q9957^^21^189^3^^^^1
 +71      ;;^UTILITY(U,$J,358.3,3157,1,0)
 +72      ;;=^358.31IA^3^2
 +73      ;;^UTILITY(U,$J,358.3,3157,1,2,0)
 +74      ;;=2^Q9957
 +75      ;;^UTILITY(U,$J,358.3,3157,1,3,0)
 +76      ;;=3^Definity per ML
 +77      ;;^UTILITY(U,$J,358.3,3158,0)
 +78      ;;=J1444^^21^189^8^^^^1
 +79      ;;^UTILITY(U,$J,358.3,3158,1,0)
 +80      ;;=^358.31IA^3^2
 +81      ;;^UTILITY(U,$J,358.3,3158,1,2,0)
 +82      ;;=2^J1444
 +83      ;;^UTILITY(U,$J,358.3,3158,1,3,0)
 +84      ;;=3^Ferric Pyrophosphate Citrate Powder 0.1mg
 +85      ;;^UTILITY(U,$J,358.3,3159,0)
 +86      ;;=A9700^^21^189^6^^^^1
 +87      ;;^UTILITY(U,$J,358.3,3159,1,0)
 +88      ;;=^358.31IA^3^2
 +89      ;;^UTILITY(U,$J,358.3,3159,1,2,0)
 +90      ;;=2^A9700
 +91      ;;^UTILITY(U,$J,358.3,3159,1,3,0)
 +92      ;;=3^Echocardiography Contrast
 +93      ;;^UTILITY(U,$J,358.3,3160,0)
 +94      ;;=90694^^21^189^9^^^^1
 +95      ;;^UTILITY(U,$J,358.3,3160,1,0)
 +96      ;;=^358.31IA^3^2
 +97      ;;^UTILITY(U,$J,358.3,3160,1,2,0)
 +98      ;;=2^90694
 +99      ;;^UTILITY(U,$J,358.3,3160,1,3,0)
 +100     ;;=3^Flu Vax,Quadvlt,Inactive Prsrv Free,65+ yrs
 +101     ;;^UTILITY(U,$J,358.3,3161,0)
 +102     ;;=93015^^21^190^7
 +103     ;;^UTILITY(U,$J,358.3,3161,1,0)
 +104     ;;=^358.31IA^3^2
 +105     ;;^UTILITY(U,$J,358.3,3161,1,2,0)
 +106     ;;=2^93015
 +107     ;;^UTILITY(U,$J,358.3,3161,1,3,0)
 +108     ;;=3^Cardiovascular Stress Test
 +109     ;;^UTILITY(U,$J,358.3,3162,0)
 +110     ;;=93660^^21^190^16
 +111     ;;^UTILITY(U,$J,358.3,3162,1,0)
 +112     ;;=^358.31IA^3^2
 +113     ;;^UTILITY(U,$J,358.3,3162,1,2,0)
 +114     ;;=2^93660
 +115     ;;^UTILITY(U,$J,358.3,3162,1,3,0)
 +116     ;;=3^Tilt Test Study
 +117     ;;^UTILITY(U,$J,358.3,3163,0)
 +118     ;;=78472^^21^190^2^^^^1
 +119     ;;^UTILITY(U,$J,358.3,3163,1,0)
 +120     ;;=^358.31IA^3^2
 +121     ;;^UTILITY(U,$J,358.3,3163,1,2,0)
 +122     ;;=2^78472
 +123     ;;^UTILITY(U,$J,358.3,3163,1,3,0)
 +124     ;;=3^Cardiac Blood Pool Gate+EF 
 +125     ;;^UTILITY(U,$J,358.3,3164,0)
 +126     ;;=78473^^21^190^1^^^^1
 +127     ;;^UTILITY(U,$J,358.3,3164,1,0)
 +128     ;;=^358.31IA^3^2
 +129     ;;^UTILITY(U,$J,358.3,3164,1,2,0)
 +130     ;;=2^78473
 +131     ;;^UTILITY(U,$J,358.3,3164,1,3,0)
 +132     ;;=3^Cardiac Blood Pool Gate Mult,Add-on
 +133     ;;^UTILITY(U,$J,358.3,3165,0)
 +134     ;;=78481^^21^190^3^^^^1
 +135     ;;^UTILITY(U,$J,358.3,3165,1,0)
 +136     ;;=^358.31IA^3^2
 +137     ;;^UTILITY(U,$J,358.3,3165,1,2,0)
 +138     ;;=2^78481
 +139     ;;^UTILITY(U,$J,358.3,3165,1,3,0)
 +140     ;;=3^Cardiac Blood Pool Imag
 +141     ;;^UTILITY(U,$J,358.3,3166,0)
 +142     ;;=78483^^21^190^5^^^^1
 +143     ;;^UTILITY(U,$J,358.3,3166,1,0)
 +144     ;;=^358.31IA^3^2
 +145     ;;^UTILITY(U,$J,358.3,3166,1,2,0)
 +146     ;;=2^78483
 +147     ;;^UTILITY(U,$J,358.3,3166,1,3,0)
 +148     ;;=3^Cardiac Blood Pool Imag Mult,Add-On
 +149     ;;^UTILITY(U,$J,358.3,3167,0)
 +150     ;;=78491^^21^190^14^^^^1
 +151     ;;^UTILITY(U,$J,358.3,3167,1,0)
 +152     ;;=^358.31IA^3^2
 +153     ;;^UTILITY(U,$J,358.3,3167,1,2,0)
 +154     ;;=2^78491
 +155     ;;^UTILITY(U,$J,358.3,3167,1,3,0)
 +156     ;;=3^PET, Single, Rest or stress
 +157     ;;^UTILITY(U,$J,358.3,3168,0)
 +158     ;;=78492^^21^190^15^^^^1
 +159     ;;^UTILITY(U,$J,358.3,3168,1,0)
 +160     ;;=^358.31IA^3^2
 +161     ;;^UTILITY(U,$J,358.3,3168,1,2,0)
 +162     ;;=2^78492
 +163     ;;^UTILITY(U,$J,358.3,3168,1,3,0)
 +164     ;;=3^PET, multiple, rest or stress
 +165     ;;^UTILITY(U,$J,358.3,3169,0)
 +166     ;;=78496^^21^190^4^^^^1
 +167     ;;^UTILITY(U,$J,358.3,3169,1,0)
 +168     ;;=^358.31IA^3^2
 +169     ;;^UTILITY(U,$J,358.3,3169,1,2,0)
 +170     ;;=2^78496
 +171     ;;^UTILITY(U,$J,358.3,3169,1,3,0)
 +172     ;;=3^Cardiac Blood Pool Imag Gate sgl+EF,Add-On
 +173     ;;^UTILITY(U,$J,358.3,3170,0)
 +174     ;;=78451^^21^190^11^^^^1
 +175     ;;^UTILITY(U,$J,358.3,3170,1,0)
 +176     ;;=^358.31IA^3^2
 +177     ;;^UTILITY(U,$J,358.3,3170,1,2,0)
 +178     ;;=2^78451
 +179     ;;^UTILITY(U,$J,358.3,3170,1,3,0)
 +180     ;;=3^HT Muscle Image Spect,Single
 +181     ;;^UTILITY(U,$J,358.3,3171,0)
 +182     ;;=78452^^21^190^10^^^^1
 +183     ;;^UTILITY(U,$J,358.3,3171,1,0)
 +184     ;;=^358.31IA^3^2
 +185     ;;^UTILITY(U,$J,358.3,3171,1,2,0)
 +186     ;;=2^78452
 +187     ;;^UTILITY(U,$J,358.3,3171,1,3,0)
 +188     ;;=3^HT Muscle Image Spect,Multi,Add-On
 +189     ;;^UTILITY(U,$J,358.3,3172,0)
 +190     ;;=78453^^21^190^13^^^^1
 +191     ;;^UTILITY(U,$J,358.3,3172,1,0)
 +192     ;;=^358.31IA^3^2
 +193     ;;^UTILITY(U,$J,358.3,3172,1,2,0)
 +194     ;;=2^78453
 +195     ;;^UTILITY(U,$J,358.3,3172,1,3,0)
 +196     ;;=3^HT Muscle Image,Planar,Single
 +197     ;;^UTILITY(U,$J,358.3,3173,0)
 +198     ;;=78454^^21^190^12^^^^1
 +199     ;;^UTILITY(U,$J,358.3,3173,1,0)
 +200     ;;=^358.31IA^3^2
 +201     ;;^UTILITY(U,$J,358.3,3173,1,2,0)
 +202     ;;=2^78454
 +203     ;;^UTILITY(U,$J,358.3,3173,1,3,0)
 +204     ;;=3^HT Muscle Image,Planar,Multi,Add-On
 +205     ;;^UTILITY(U,$J,358.3,3174,0)
 +206     ;;=93641^^21^190^8^^^^1
 +207     ;;^UTILITY(U,$J,358.3,3174,1,0)
 +208     ;;=^358.31IA^3^2
 +209     ;;^UTILITY(U,$J,358.3,3174,1,2,0)
 +210     ;;=2^93641
 +211     ;;^UTILITY(U,$J,358.3,3174,1,3,0)
 +212     ;;=3^Electrophysiology Eval,Pulse Generator
 +213     ;;^UTILITY(U,$J,358.3,3175,0)
 +214     ;;=93642^^21^190^9^^^^1
 +215     ;;^UTILITY(U,$J,358.3,3175,1,0)
 +216     ;;=^358.31IA^3^2
 +217     ;;^UTILITY(U,$J,358.3,3175,1,2,0)
 +218     ;;=2^93642
 +219     ;;^UTILITY(U,$J,358.3,3175,1,3,0)
 +220     ;;=3^Electrophysiology Eval,Sensing/Therapeutic Parameters
 +221     ;;^UTILITY(U,$J,358.3,3176,0)
 +222     ;;=93797^^21^190^6^^^^1
 +223     ;;^UTILITY(U,$J,358.3,3176,1,0)
 +224     ;;=^358.31IA^3^2
 +225     ;;^UTILITY(U,$J,358.3,3176,1,2,0)
 +226     ;;=2^93797
 +227     ;;^UTILITY(U,$J,358.3,3176,1,3,0)
 +228     ;;=3^Cardiac Rehab w/o ECG Monitoring
 +229     ;;^UTILITY(U,$J,358.3,3177,0)
 +230     ;;=93799^^21^190^17^^^^1
 +231     ;;^UTILITY(U,$J,358.3,3177,1,0)
 +232     ;;=^358.31IA^3^2
 +233     ;;^UTILITY(U,$J,358.3,3177,1,2,0)
 +234     ;;=2^93799
 +235     ;;^UTILITY(U,$J,358.3,3177,1,3,0)
 +236     ;;=3^Unlisted Cardiovascular Procedure
 +237     ;;^UTILITY(U,$J,358.3,3178,0)
 +238     ;;=93015^^21^191^1^^^^1
 +239     ;;^UTILITY(U,$J,358.3,3178,1,0)
 +240     ;;=^358.31IA^3^2
 +241     ;;^UTILITY(U,$J,358.3,3178,1,2,0)
 +242     ;;=2^93015
 +243     ;;^UTILITY(U,$J,358.3,3178,1,3,0)
 +244     ;;=3^Cardiovascular Stress Test
 +245     ;;^UTILITY(U,$J,358.3,3179,0)
 +246     ;;=93016^^21^191^7^^^^1
 +247     ;;^UTILITY(U,$J,358.3,3179,1,0)
 +248     ;;=^358.31IA^3^2
 +249     ;;^UTILITY(U,$J,358.3,3179,1,2,0)
 +250     ;;=2^93016
 +251     ;;^UTILITY(U,$J,358.3,3179,1,3,0)
 +252     ;;=3^Stress Test, Phy Super Only No Report
 +253     ;;^UTILITY(U,$J,358.3,3180,0)
 +254     ;;=93017^^21^191^8^^^^1
 +255     ;;^UTILITY(U,$J,358.3,3180,1,0)
 +256     ;;=^358.31IA^3^2
 +257     ;;^UTILITY(U,$J,358.3,3180,1,2,0)
 +258     ;;=2^93017
 +259     ;;^UTILITY(U,$J,358.3,3180,1,3,0)
 +260     ;;=3^Stress Test, Tracing Only
 +261     ;;^UTILITY(U,$J,358.3,3181,0)
 +262     ;;=93018^^21^191^6^^^^1
 +263     ;;^UTILITY(U,$J,358.3,3181,1,0)
 +264     ;;=^358.31IA^3^2
 +265     ;;^UTILITY(U,$J,358.3,3181,1,2,0)
 +266     ;;=2^93018
 +267     ;;^UTILITY(U,$J,358.3,3181,1,3,0)
 +268     ;;=3^Stress Test, Interr & Report Only
 +269     ;;^UTILITY(U,$J,358.3,3182,0)
 +270     ;;=78451^^21^191^4^^^^1
 +271     ;;^UTILITY(U,$J,358.3,3182,1,0)
 +272     ;;=^358.31IA^3^2
 +273     ;;^UTILITY(U,$J,358.3,3182,1,2,0)
 +274     ;;=2^78451
 +275     ;;^UTILITY(U,$J,358.3,3182,1,3,0)
 +276     ;;=3^SPECT,Single Study
 +277     ;;^UTILITY(U,$J,358.3,3183,0)
 +278     ;;=93350^^21^191^5^^^^1
 +279     ;;^UTILITY(U,$J,358.3,3183,1,0)
 +280     ;;=^358.31IA^3^2
 +281     ;;^UTILITY(U,$J,358.3,3183,1,2,0)
 +282     ;;=2^93350
 +283     ;;^UTILITY(U,$J,358.3,3183,1,3,0)
 +284     ;;=3^Stress TTE Only
 +285     ;;^UTILITY(U,$J,358.3,3184,0)
 +286     ;;=J2785^^21^191^3^^^^1
 +287     ;;^UTILITY(U,$J,358.3,3184,1,0)
 +288     ;;=^358.31IA^3^2
 +289     ;;^UTILITY(U,$J,358.3,3184,1,2,0)
 +290     ;;=2^J2785
 +291     ;;^UTILITY(U,$J,358.3,3184,1,3,0)
 +292     ;;=3^Regadenoson 0.1mg (Lexiscan)
 +293     ;;^UTILITY(U,$J,358.3,3185,0)
 +294     ;;=J1250^^21^191^2^^^^1
 +295     ;;^UTILITY(U,$J,358.3,3185,1,0)
 +296     ;;=^358.31IA^3^2
 +297     ;;^UTILITY(U,$J,358.3,3185,1,2,0)
 +298     ;;=2^J1250
 +299     ;;^UTILITY(U,$J,358.3,3185,1,3,0)
 +300     ;;=3^Dobutamin Hydrochloride per 250mg
 +301     ;;^UTILITY(U,$J,358.3,3186,0)
 +302     ;;=99401^^21^192^1^^^^1
 +303     ;;^UTILITY(U,$J,358.3,3186,1,0)
 +304     ;;=^358.31IA^3^2
 +305     ;;^UTILITY(U,$J,358.3,3186,1,2,0)
 +306     ;;=2^99401
 +307     ;;^UTILITY(U,$J,358.3,3186,1,3,0)
 +308     ;;=3^Preventive Counseling,15 min
 +309     ;;^UTILITY(U,$J,358.3,3187,0)
 +310     ;;=99402^^21^192^2^^^^1
 +311     ;;^UTILITY(U,$J,358.3,3187,1,0)
 +312     ;;=^358.31IA^3^2
 +313     ;;^UTILITY(U,$J,358.3,3187,1,2,0)
 +314     ;;=2^99402
 +315     ;;^UTILITY(U,$J,358.3,3187,1,3,0)
 +316     ;;=3^Preventive Counseling,30 min
 +317     ;;^UTILITY(U,$J,358.3,3188,0)
 +318     ;;=99403^^21^192^3^^^^1
 +319     ;;^UTILITY(U,$J,358.3,3188,1,0)
 +320     ;;=^358.31IA^3^2
 +321     ;;^UTILITY(U,$J,358.3,3188,1,2,0)
 +322     ;;=2^99403
 +323     ;;^UTILITY(U,$J,358.3,3188,1,3,0)
 +324     ;;=3^Preventive Counseling,45 min
 +325     ;;^UTILITY(U,$J,358.3,3189,0)
 +326     ;;=99404^^21^192^4^^^^1
 +327     ;;^UTILITY(U,$J,358.3,3189,1,0)
 +328     ;;=^358.31IA^3^2
 +329     ;;^UTILITY(U,$J,358.3,3189,1,2,0)
 +330     ;;=2^99404
 +331     ;;^UTILITY(U,$J,358.3,3189,1,3,0)
 +332     ;;=3^Preventive Counseling,60 min
 +333     ;;^UTILITY(U,$J,358.3,3190,0)
 +334     ;;=99411^^21^192^5^^^^1
 +335     ;;^UTILITY(U,$J,358.3,3190,1,0)
 +336     ;;=^358.31IA^3^2
 +337     ;;^UTILITY(U,$J,358.3,3190,1,2,0)
 +338     ;;=2^99411
 +339     ;;^UTILITY(U,$J,358.3,3190,1,3,0)
 +340     ;;=3^Preventive Counseling,Grp,30 Min
 +341     ;;^UTILITY(U,$J,358.3,3191,0)
 +342     ;;=99412^^21^192^6^^^^1
 +343     ;;^UTILITY(U,$J,358.3,3191,1,0)
 +344     ;;=^358.31IA^3^2
 +345     ;;^UTILITY(U,$J,358.3,3191,1,2,0)
 +346     ;;=2^99412
 +347     ;;^UTILITY(U,$J,358.3,3191,1,3,0)
 +348     ;;=3^Preventive Counseling,Grp,60 Min
 +349     ;;^UTILITY(U,$J,358.3,3192,0)
 +350     ;;=99152^^21^193^1^^^^1
 +351     ;;^UTILITY(U,$J,358.3,3192,1,0)
 +352     ;;=^358.31IA^3^2
 +353     ;;^UTILITY(U,$J,358.3,3192,1,2,0)
 +354     ;;=2^99152
 +355     ;;^UTILITY(U,$J,358.3,3192,1,3,0)
 +356     ;;=3^MS by Same/Supr MD/QHCP,1st 15 min
 +357     ;;^UTILITY(U,$J,358.3,3193,0)
 +358     ;;=99153^^21^193^2^^^^1
 +359     ;;^UTILITY(U,$J,358.3,3193,1,0)
 +360     ;;=^358.31IA^3^2
 +361     ;;^UTILITY(U,$J,358.3,3193,1,2,0)
 +362     ;;=2^99153
 +363     ;;^UTILITY(U,$J,358.3,3193,1,3,0)
 +364     ;;=3^MS by Same/Supr MD/QHCP,Ea Addl 15 min
 +365     ;;^UTILITY(U,$J,358.3,3194,0)
 +366     ;;=99156^^21^193^3^^^^1
 +367     ;;^UTILITY(U,$J,358.3,3194,1,0)
 +368     ;;=^358.31IA^3^2
 +369     ;;^UTILITY(U,$J,358.3,3194,1,2,0)
 +370     ;;=2^99156
 +371     ;;^UTILITY(U,$J,358.3,3194,1,3,0)
 +372     ;;=3^MS by Oth MD/QHCP,1st 15 min
 +373     ;;^UTILITY(U,$J,358.3,3195,0)
 +374     ;;=99157^^21^193^4^^^^1
 +375     ;;^UTILITY(U,$J,358.3,3195,1,0)
 +376     ;;=^358.31IA^3^2
 +377     ;;^UTILITY(U,$J,358.3,3195,1,2,0)
 +378     ;;=2^99157
 +379     ;;^UTILITY(U,$J,358.3,3195,1,3,0)
 +380     ;;=3^MS by Oth MD/QHCP,Ea Addl 15 min
 +381     ;;^UTILITY(U,$J,358.3,3196,0)
 +382     ;;=33990^^21^194^2^^^^1
 +383     ;;^UTILITY(U,$J,358.3,3196,1,0)
 +384     ;;=^358.31IA^3^2
 +385     ;;^UTILITY(U,$J,358.3,3196,1,2,0)
 +386     ;;=2^33990
 +387     ;;^UTILITY(U,$J,358.3,3196,1,3,0)
 +388     ;;=3^Insert VAD,Percut,Arterial Access,Rad S&I
 +389     ;;^UTILITY(U,$J,358.3,3197,0)
 +390     ;;=33991^^21^194^1^^^^1
 +391     ;;^UTILITY(U,$J,358.3,3197,1,0)
 +392     ;;=^358.31IA^3^2
 +393     ;;^UTILITY(U,$J,358.3,3197,1,2,0)
 +394     ;;=2^33991
 +395     ;;^UTILITY(U,$J,358.3,3197,1,3,0)
 +396     ;;=3^Insert VAD,Percut,Art&Ven Access,Rad S&I
 +397     ;;^UTILITY(U,$J,358.3,3198,0)
 +398     ;;=33992^^21^194^5^^^^1
 +399     ;;^UTILITY(U,$J,358.3,3198,1,0)
 +400     ;;=^358.31IA^3^2
 +401     ;;^UTILITY(U,$J,358.3,3198,1,2,0)
 +402     ;;=2^33992
 +403     ;;^UTILITY(U,$J,358.3,3198,1,3,0)
 +404     ;;=3^Remove VAD @ Diff Session from Insert
 +405     ;;^UTILITY(U,$J,358.3,3199,0)
 +406     ;;=33993^^21^194^6^^^^1
 +407     ;;^UTILITY(U,$J,358.3,3199,1,0)
 +408     ;;=^358.31IA^3^2
 +409     ;;^UTILITY(U,$J,358.3,3199,1,2,0)
 +410     ;;=2^33993
 +411     ;;^UTILITY(U,$J,358.3,3199,1,3,0)
 +412     ;;=3^Reposition VAD @ Diff Session from Insert
 +413     ;;^UTILITY(U,$J,358.3,3200,0)
 +414     ;;=33999^^21^194^3^^^^1
 +415     ;;^UTILITY(U,$J,358.3,3200,1,0)
 +416     ;;=^358.31IA^3^2
 +417     ;;^UTILITY(U,$J,358.3,3200,1,2,0)
 +418     ;;=2^33999
 +419     ;;^UTILITY(U,$J,358.3,3200,1,3,0)
 +420     ;;=3^Insertion of Impella
 +421     ;;^UTILITY(U,$J,358.3,3201,0)
 +422     ;;=34812^^21^194^4^^^^1
 +423     ;;^UTILITY(U,$J,358.3,3201,1,0)
 +424     ;;=^358.31IA^3^2
 +425     ;;^UTILITY(U,$J,358.3,3201,1,2,0)
 +426     ;;=2^34812
 +427     ;;^UTILITY(U,$J,358.3,3201,1,3,0)
 +428     ;;=3^Open Fem Artery Exposure for Deliv of Endo Prosth
 +429     ;;^UTILITY(U,$J,358.3,3202,0)
 +430     ;;=92960^^21^195^1^^^^1
 +431     ;;^UTILITY(U,$J,358.3,3202,1,0)
 +432     ;;=^358.31IA^3^2
 +433     ;;^UTILITY(U,$J,358.3,3202,1,2,0)
 +434     ;;=2^92960
 +435     ;;^UTILITY(U,$J,358.3,3202,1,3,0)
 +436     ;;=3^Cardioversion,External
 +437     ;;^UTILITY(U,$J,358.3,3203,0)
 +438     ;;=92961^^21^195^2^^^^1
 +439     ;;^UTILITY(U,$J,358.3,3203,1,0)
 +440     ;;=^358.31IA^3^2
 +441     ;;^UTILITY(U,$J,358.3,3203,1,2,0)
 +442     ;;=2^92961
 +443     ;;^UTILITY(U,$J,358.3,3203,1,3,0)
 +444     ;;=3^Cardioversion,Internal
 +445     ;;^UTILITY(U,$J,358.3,3204,0)
 +446     ;;=99417^^21^196^1^^^^1
 +447     ;;^UTILITY(U,$J,358.3,3204,1,0)
 +448     ;;=^358.31IA^3^2
 +449     ;;^UTILITY(U,$J,358.3,3204,1,2,0)
 +450     ;;=2^99417
 +451     ;;^UTILITY(U,$J,358.3,3204,1,3,0)
 +452     ;;=3^Prolonged Svc,Ea 15min;Only with 99205 or 99215
 +453     ;;^UTILITY(U,$J,358.3,3205,0)
 +454     ;;=99202^^22^197^1
 +455     ;;^UTILITY(U,$J,358.3,3205,1,0)
 +456     ;;=^358.31IA^2^2
 +457     ;;^UTILITY(U,$J,358.3,3205,1,1,0)
 +458     ;;=1^SF MDM or 15-29 min
 +459     ;;^UTILITY(U,$J,358.3,3205,1,2,0)
 +460     ;;=2^99202
 +461     ;;^UTILITY(U,$J,358.3,3206,0)
 +462     ;;=99203^^22^197^2
 +463     ;;^UTILITY(U,$J,358.3,3206,1,0)
 +464     ;;=^358.31IA^2^2
 +465     ;;^UTILITY(U,$J,358.3,3206,1,1,0)
 +466     ;;=1^Low Complex MDM or 30-44 min
 +467     ;;^UTILITY(U,$J,358.3,3206,1,2,0)
 +468     ;;=2^99203
 +469     ;;^UTILITY(U,$J,358.3,3207,0)
 +470     ;;=99204^^22^197^3
 +471     ;;^UTILITY(U,$J,358.3,3207,1,0)
 +472     ;;=^358.31IA^2^2
 +473     ;;^UTILITY(U,$J,358.3,3207,1,1,0)
 +474     ;;=1^Mod Complex MDM or 45-59 min
 +475     ;;^UTILITY(U,$J,358.3,3207,1,2,0)
 +476     ;;=2^99204
 +477     ;;^UTILITY(U,$J,358.3,3208,0)
 +478     ;;=99205^^22^197^4
 +479     ;;^UTILITY(U,$J,358.3,3208,1,0)
 +480     ;;=^358.31IA^2^2
 +481     ;;^UTILITY(U,$J,358.3,3208,1,1,0)
 +482     ;;=1^High Complex MDM or 60-74 min
 +483     ;;^UTILITY(U,$J,358.3,3208,1,2,0)
 +484     ;;=2^99205
 +485     ;;^UTILITY(U,$J,358.3,3209,0)
 +486     ;;=99212^^22^198^2
 +487     ;;^UTILITY(U,$J,358.3,3209,1,0)
 +488     ;;=^358.31IA^2^2
 +489     ;;^UTILITY(U,$J,358.3,3209,1,1,0)
 +490     ;;=1^SF MDM or 10-19 min
 +491     ;;^UTILITY(U,$J,358.3,3209,1,2,0)
 +492     ;;=2^99212
 +493     ;;^UTILITY(U,$J,358.3,3210,0)
 +494     ;;=99213^^22^198^3
 +495     ;;^UTILITY(U,$J,358.3,3210,1,0)
 +496     ;;=^358.31IA^2^2
 +497     ;;^UTILITY(U,$J,358.3,3210,1,1,0)
 +498     ;;=1^Low Complex MDM or 20-29 min
 +499     ;;^UTILITY(U,$J,358.3,3210,1,2,0)
 +500     ;;=2^99213
 +501     ;;^UTILITY(U,$J,358.3,3211,0)
 +502     ;;=99214^^22^198^4
 +503     ;;^UTILITY(U,$J,358.3,3211,1,0)
 +504     ;;=^358.31IA^2^2
 +505     ;;^UTILITY(U,$J,358.3,3211,1,1,0)
 +506     ;;=1^Mod Complex MDM or 30-39 min
 +507     ;;^UTILITY(U,$J,358.3,3211,1,2,0)
 +508     ;;=2^99214
 +509     ;;^UTILITY(U,$J,358.3,3212,0)
 +510     ;;=99211^^22^198^1
 +511     ;;^UTILITY(U,$J,358.3,3212,1,0)
 +512     ;;=^358.31IA^2^2
 +513     ;;^UTILITY(U,$J,358.3,3212,1,1,0)
 +514     ;;=1^Straight-Forward 
 +515     ;;^UTILITY(U,$J,358.3,3212,1,2,0)
 +516     ;;=2^99211
 +517     ;;^UTILITY(U,$J,358.3,3213,0)
 +518     ;;=99215^^22^198^5
 +519     ;;^UTILITY(U,$J,358.3,3213,1,0)
 +520     ;;=^358.31IA^2^2
 +521     ;;^UTILITY(U,$J,358.3,3213,1,1,0)
 +522     ;;=1^High Complex MDM or 40-54 min
 +523     ;;^UTILITY(U,$J,358.3,3213,1,2,0)
 +524     ;;=2^99215
 +525     ;;^UTILITY(U,$J,358.3,3214,0)
 +526     ;;=99241^^22^199^1
 +527     ;;^UTILITY(U,$J,358.3,3214,1,0)
 +528     ;;=^358.31IA^2^2
 +529     ;;^UTILITY(U,$J,358.3,3214,1,1,0)
 +530     ;;=1^Problem Focused
 +531     ;;^UTILITY(U,$J,358.3,3214,1,2,0)
 +532     ;;=2^99241
 +533     ;;^UTILITY(U,$J,358.3,3215,0)
 +534     ;;=99242^^22^199^2
 +535     ;;^UTILITY(U,$J,358.3,3215,1,0)
 +536     ;;=^358.31IA^2^2
 +537     ;;^UTILITY(U,$J,358.3,3215,1,1,0)
 +538     ;;=1^Expanded Problem Focus
 +539     ;;^UTILITY(U,$J,358.3,3215,1,2,0)
 +540     ;;=2^99242
 +541     ;;^UTILITY(U,$J,358.3,3216,0)
 +542     ;;=99243^^22^199^3
 +543     ;;^UTILITY(U,$J,358.3,3216,1,0)
 +544     ;;=^358.31IA^2^2
 +545     ;;^UTILITY(U,$J,358.3,3216,1,1,0)
 +546     ;;=1^Detailed
 +547     ;;^UTILITY(U,$J,358.3,3216,1,2,0)
 +548     ;;=2^99243
 +549     ;;^UTILITY(U,$J,358.3,3217,0)
 +550     ;;=99244^^22^199^4
 +551     ;;^UTILITY(U,$J,358.3,3217,1,0)
 +552     ;;=^358.31IA^2^2
 +553     ;;^UTILITY(U,$J,358.3,3217,1,1,0)
 +554     ;;=1^Comprehensive, Moderate
 +555     ;;^UTILITY(U,$J,358.3,3217,1,2,0)
 +556     ;;=2^99244
 +557     ;;^UTILITY(U,$J,358.3,3218,0)
 +558     ;;=99245^^22^199^5
 +559     ;;^UTILITY(U,$J,358.3,3218,1,0)
 +560     ;;=^358.31IA^2^2
 +561     ;;^UTILITY(U,$J,358.3,3218,1,1,0)
 +562     ;;=1^Comprehensive, High
 +563     ;;^UTILITY(U,$J,358.3,3218,1,2,0)
 +564     ;;=2^99245
 +565     ;;^UTILITY(U,$J,358.3,3219,0)
 +566     ;;=97014^^23^200^4^^^^1
 +567     ;;^UTILITY(U,$J,358.3,3219,1,0)
 +568     ;;=^358.31IA^3^2
 +569     ;;^UTILITY(U,$J,358.3,3219,1,2,0)
 +570     ;;=2^Electric Stimulation Therapy (TENS),Unattended
 +571     ;;^UTILITY(U,$J,358.3,3219,1,3,0)
 +572     ;;=3^97014
 +573     ;;^UTILITY(U,$J,358.3,3220,0)
 +574     ;;=97032^^23^200^5^^^^1
 +575     ;;^UTILITY(U,$J,358.3,3220,1,0)
 +576     ;;=^358.31IA^3^2
 +577     ;;^UTILITY(U,$J,358.3,3220,1,2,0)
 +578     ;;=2^Electrical Stimulation (TENS),1+ Areas,Ea 15min
 +579     ;;^UTILITY(U,$J,358.3,3220,1,3,0)
 +580     ;;=3^97032
 +581     ;;^UTILITY(U,$J,358.3,3221,0)
 +582     ;;=97010^^23^200^7^^^^1
 +583     ;;^UTILITY(U,$J,358.3,3221,1,0)
 +584     ;;=^358.31IA^3^2
 +585     ;;^UTILITY(U,$J,358.3,3221,1,2,0)
 +586     ;;=2^Hot Or Cold Packs Therapy
 +587     ;;^UTILITY(U,$J,358.3,3221,1,3,0)
 +588     ;;=3^97010
 +589     ;;^UTILITY(U,$J,358.3,3222,0)
 +590     ;;=97036^^23^200^8^^^^1
 +591     ;;^UTILITY(U,$J,358.3,3222,1,0)
 +592     ;;=^358.31IA^3^2
 +593     ;;^UTILITY(U,$J,358.3,3222,1,2,0)
 +594     ;;=2^Hubbard Tank,Ea 15min
 +595     ;;^UTILITY(U,$J,358.3,3222,1,3,0)
 +596     ;;=3^97036
 +597     ;;^UTILITY(U,$J,358.3,3223,0)
 +598     ;;=97124^^23^200^11^^^^1
 +599     ;;^UTILITY(U,$J,358.3,3223,1,0)
 +600     ;;=^358.31IA^3^2
 +601     ;;^UTILITY(U,$J,358.3,3223,1,2,0)
 +602     ;;=2^Massage Therapy
 +603     ;;^UTILITY(U,$J,358.3,3223,1,3,0)
 +604     ;;=3^97124
 +605     ;;^UTILITY(U,$J,358.3,3224,0)
 +606     ;;=97012^^23^200^12^^^^1
 +607     ;;^UTILITY(U,$J,358.3,3224,1,0)
 +608     ;;=^358.31IA^3^2
 +609     ;;^UTILITY(U,$J,358.3,3224,1,2,0)
 +610     ;;=2^Mechanical Traction Therapy 
 +611     ;;^UTILITY(U,$J,358.3,3224,1,3,0)
 +612     ;;=3^97012
 +613     ;;^UTILITY(U,$J,358.3,3225,0)
 +614     ;;=97035^^23^200^22^^^^1
 +615     ;;^UTILITY(U,$J,358.3,3225,1,0)
 +616     ;;=^358.31IA^3^2
 +617     ;;^UTILITY(U,$J,358.3,3225,1,2,0)
 +618     ;;=2^Ultrasound Therapy,Ea 15min
 +619     ;;^UTILITY(U,$J,358.3,3225,1,3,0)
 +620     ;;=3^97035
 +621     ;;^UTILITY(U,$J,358.3,3226,0)
 +622     ;;=97028^^23^200^23^^^^1
 +623     ;;^UTILITY(U,$J,358.3,3226,1,0)
 +624     ;;=^358.31IA^3^2
 +625     ;;^UTILITY(U,$J,358.3,3226,1,2,0)
 +626     ;;=2^Ultraviolet Therapy
 +627     ;;^UTILITY(U,$J,358.3,3226,1,3,0)
 +628     ;;=3^97028
 +629     ;;^UTILITY(U,$J,358.3,3227,0)
 +630     ;;=97110^^23^200^21^^^^1
 +631     ;;^UTILITY(U,$J,358.3,3227,1,0)
 +632     ;;=^358.31IA^3^2
 +633     ;;^UTILITY(U,$J,358.3,3227,1,2,0)
 +634     ;;=2^Therapeutic Exercises,1 or more regions,Ea 15min
 +635     ;;^UTILITY(U,$J,358.3,3227,1,3,0)
 +636     ;;=3^97110
 +637     ;;^UTILITY(U,$J,358.3,3228,0)
 +638     ;;=97112^^23^200^13^^^^1
 +639     ;;^UTILITY(U,$J,358.3,3228,1,0)
 +640     ;;=^358.31IA^3^2
 +641     ;;^UTILITY(U,$J,358.3,3228,1,2,0)
 +642     ;;=2^Neuromuscular Re-Education
 +643     ;;^UTILITY(U,$J,358.3,3228,1,3,0)
 +644     ;;=3^97112
 +645     ;;^UTILITY(U,$J,358.3,3229,0)
 +646     ;;=97140^^23^200^10^^^^1
 +647     ;;^UTILITY(U,$J,358.3,3229,1,0)
 +648     ;;=^358.31IA^3^2
 +649     ;;^UTILITY(U,$J,358.3,3229,1,2,0)
 +650     ;;=2^Manual Therapy,1 or more regions,Ea 15min
 +651     ;;^UTILITY(U,$J,358.3,3229,1,3,0)
 +652     ;;=3^97140
 +653     ;;^UTILITY(U,$J,358.3,3230,0)
 +654     ;;=97039^^23^200^1^^^^1
 +655     ;;^UTILITY(U,$J,358.3,3230,1,0)
 +656     ;;=^358.31IA^3^2
 +657     ;;^UTILITY(U,$J,358.3,3230,1,2,0)
 +658     ;;=2^Cold Laser Therapy
 +659     ;;^UTILITY(U,$J,358.3,3230,1,3,0)
 +660     ;;=3^97039
 +661     ;;^UTILITY(U,$J,358.3,3231,0)
 +662     ;;=97026^^23^200^9^^^^1
 +663     ;;^UTILITY(U,$J,358.3,3231,1,0)
 +664     ;;=^358.31IA^3^2
 +665     ;;^UTILITY(U,$J,358.3,3231,1,2,0)
 +666     ;;=2^Infrared Heat to 1 or more areas
 +667     ;;^UTILITY(U,$J,358.3,3231,1,3,0)
 +668     ;;=3^97026
 +669     ;;^UTILITY(U,$J,358.3,3232,0)
 +670     ;;=29540^^23^200^14^^^^1
 +671     ;;^UTILITY(U,$J,358.3,3232,1,0)
 +672     ;;=^358.31IA^3^2
 +673     ;;^UTILITY(U,$J,358.3,3232,1,2,0)
 +674     ;;=2^Strapping/Taping,Ankle and/or Foot