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