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

IBDEI01G.m

Go to the documentation of this file.
  1. IBDEI01G ; ; 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,3065,1,2,0)
  1. ;;=2^93312
  1. ;;^UTILITY(U,$J,358.3,3065,1,3,0)
  1. ;;=3^Echo TEE w/wo M-mode Record
  1. ;;^UTILITY(U,$J,358.3,3066,0)
  1. ;;=93313^^21^186^8^^^^1
  1. ;;^UTILITY(U,$J,358.3,3066,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3066,1,2,0)
  1. ;;=2^93313
  1. ;;^UTILITY(U,$J,358.3,3066,1,3,0)
  1. ;;=3^Echo TEE w/ Placement of Probe
  1. ;;^UTILITY(U,$J,358.3,3067,0)
  1. ;;=93314^^21^186^11^^^^1
  1. ;;^UTILITY(U,$J,358.3,3067,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3067,1,2,0)
  1. ;;=2^93314
  1. ;;^UTILITY(U,$J,358.3,3067,1,3,0)
  1. ;;=3^Echo TEE,Image Intrp & Rpt Only
  1. ;;^UTILITY(U,$J,358.3,3068,0)
  1. ;;=93318^^21^186^12^^^^1
  1. ;;^UTILITY(U,$J,358.3,3068,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3068,1,2,0)
  1. ;;=2^93318
  1. ;;^UTILITY(U,$J,358.3,3068,1,3,0)
  1. ;;=3^Echo TEE,Intraop
  1. ;;^UTILITY(U,$J,358.3,3069,0)
  1. ;;=93315^^21^186^10^^^^1
  1. ;;^UTILITY(U,$J,358.3,3069,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3069,1,2,0)
  1. ;;=2^93315
  1. ;;^UTILITY(U,$J,358.3,3069,1,3,0)
  1. ;;=3^Echo TEE,Complete;Congenital Anomalies
  1. ;;^UTILITY(U,$J,358.3,3070,0)
  1. ;;=93316^^21^186^13^^^^1
  1. ;;^UTILITY(U,$J,358.3,3070,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3070,1,2,0)
  1. ;;=2^93316
  1. ;;^UTILITY(U,$J,358.3,3070,1,3,0)
  1. ;;=3^Echo TEE,Plcmnt Only;Congenital Anomalies
  1. ;;^UTILITY(U,$J,358.3,3071,0)
  1. ;;=93317^^21^186^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,3071,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3071,1,2,0)
  1. ;;=2^93317
  1. ;;^UTILITY(U,$J,358.3,3071,1,3,0)
  1. ;;=3^Echo Image,Intrp & Rpt Only;Cogenital Anomalies
  1. ;;^UTILITY(U,$J,358.3,3072,0)
  1. ;;=93303^^21^186^16^^^^1
  1. ;;^UTILITY(U,$J,358.3,3072,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3072,1,2,0)
  1. ;;=2^93303
  1. ;;^UTILITY(U,$J,358.3,3072,1,3,0)
  1. ;;=3^Echo Transthoracic,Complete,Congenital Anomalies
  1. ;;^UTILITY(U,$J,358.3,3073,0)
  1. ;;=93304^^21^186^18^^^^1
  1. ;;^UTILITY(U,$J,358.3,3073,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3073,1,2,0)
  1. ;;=2^93304
  1. ;;^UTILITY(U,$J,358.3,3073,1,3,0)
  1. ;;=3^Echo Transthroacic F/U,Congenital Anomalies
  1. ;;^UTILITY(U,$J,358.3,3074,0)
  1. ;;=93571^^21^186^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,3074,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3074,1,2,0)
  1. ;;=2^93571
  1. ;;^UTILITY(U,$J,358.3,3074,1,3,0)
  1. ;;=3^Doppler Intravasc,During Coronary Angio,Intl Vessl
  1. ;;^UTILITY(U,$J,358.3,3075,0)
  1. ;;=93572^^21^186^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,3075,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3075,1,2,0)
  1. ;;=2^93572
  1. ;;^UTILITY(U,$J,358.3,3075,1,3,0)
  1. ;;=3^Doppler Intravasc,During Coronary Angio,Ea Vessl
  1. ;;^UTILITY(U,$J,358.3,3076,0)
  1. ;;=93355^^21^186^14^^^^1
  1. ;;^UTILITY(U,$J,358.3,3076,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3076,1,2,0)
  1. ;;=2^93355
  1. ;;^UTILITY(U,$J,358.3,3076,1,3,0)
  1. ;;=3^Echo TEE,Transcath/Intracardiac/GV Guidance
  1. ;;^UTILITY(U,$J,358.3,3077,0)
  1. ;;=93356^^21^186^21^^^^1
  1. ;;^UTILITY(U,$J,358.3,3077,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3077,1,2,0)
  1. ;;=2^93356
  1. ;;^UTILITY(U,$J,358.3,3077,1,3,0)
  1. ;;=3^Myocardial Strain Img Speckle Trck Assmt Myocrd Mech
  1. ;;^UTILITY(U,$J,358.3,3078,0)
  1. ;;=C8929^^21^186^30^^^^1
  1. ;;^UTILITY(U,$J,358.3,3078,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3078,1,2,0)
  1. ;;=2^C8929
  1. ;;^UTILITY(U,$J,358.3,3078,1,3,0)
  1. ;;=3^TTE w/ Image w/ Spect & Col Flow Dop Echo
  1. ;;^UTILITY(U,$J,358.3,3079,0)
  1. ;;=C8921^^21^186^33^^^^1
  1. ;;^UTILITY(U,$J,358.3,3079,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3079,1,2,0)
  1. ;;=2^C8921
  1. ;;^UTILITY(U,$J,358.3,3079,1,3,0)
  1. ;;=3^TTE w/ or w/o Cont Foll w/ Cont,Complete
  1. ;;^UTILITY(U,$J,358.3,3080,0)
  1. ;;=C8922^^21^186^34^^^^1
  1. ;;^UTILITY(U,$J,358.3,3080,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3080,1,2,0)
  1. ;;=2^C8922
  1. ;;^UTILITY(U,$J,358.3,3080,1,3,0)
  1. ;;=3^TTE w/ or w/o Cont Foll w/ Cont,F/U or Limited
  1. ;;^UTILITY(U,$J,358.3,3081,0)
  1. ;;=C8924^^21^186^31^^^^1
  1. ;;^UTILITY(U,$J,358.3,3081,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3081,1,2,0)
  1. ;;=2^C8924
  1. ;;^UTILITY(U,$J,358.3,3081,1,3,0)
  1. ;;=3^TTE w/ or w/o Cont Foll w/ Cont,2D Image,F/U or Limited
  1. ;;^UTILITY(U,$J,358.3,3082,0)
  1. ;;=C8925^^21^186^29^^^^1
  1. ;;^UTILITY(U,$J,358.3,3082,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3082,1,2,0)
  1. ;;=2^C8925
  1. ;;^UTILITY(U,$J,358.3,3082,1,3,0)
  1. ;;=3^TEE w/ or w/o Contr Foll w/ Cont,2D Image,I&D
  1. ;;^UTILITY(U,$J,358.3,3083,0)
  1. ;;=C8926^^21^186^28^^^^1
  1. ;;^UTILITY(U,$J,358.3,3083,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3083,1,2,0)
  1. ;;=2^C8926
  1. ;;^UTILITY(U,$J,358.3,3083,1,3,0)
  1. ;;=3^TEE w/ or w/o Cont Foll w/ Cont,I&R
  1. ;;^UTILITY(U,$J,358.3,3084,0)
  1. ;;=C8927^^21^186^27^^^^1
  1. ;;^UTILITY(U,$J,358.3,3084,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3084,1,2,0)
  1. ;;=2^C8927
  1. ;;^UTILITY(U,$J,358.3,3084,1,3,0)
  1. ;;=3^TEE w/ or w/o Cont Foll w/ Cont,2D Img,Assess Card Pump Fnct
  1. ;;^UTILITY(U,$J,358.3,3085,0)
  1. ;;=C8928^^21^186^35^^^^1
  1. ;;^UTILITY(U,$J,358.3,3085,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3085,1,2,0)
  1. ;;=2^C8928
  1. ;;^UTILITY(U,$J,358.3,3085,1,3,0)
  1. ;;=3^TTE w/ or w/o Cont Foll w/ Cont,Stress,I&R
  1. ;;^UTILITY(U,$J,358.3,3086,0)
  1. ;;=C8930^^21^186^32^^^^1
  1. ;;^UTILITY(U,$J,358.3,3086,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3086,1,2,0)
  1. ;;=2^C8930
  1. ;;^UTILITY(U,$J,358.3,3086,1,3,0)
  1. ;;=3^TTE w/ or w/o Cont Foll w/ Cont,2D Image,w/ EC Montoring
  1. ;;^UTILITY(U,$J,358.3,3087,0)
  1. ;;=Q9955^^21^186^23^^^^1
  1. ;;^UTILITY(U,$J,358.3,3087,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3087,1,2,0)
  1. ;;=2^Q9955
  1. ;;^UTILITY(U,$J,358.3,3087,1,3,0)
  1. ;;=3^Perflexane Lipid Microspheres,per ml
  1. ;;^UTILITY(U,$J,358.3,3088,0)
  1. ;;=Q9956^^21^186^22^^^^1
  1. ;;^UTILITY(U,$J,358.3,3088,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3088,1,2,0)
  1. ;;=2^Q9956
  1. ;;^UTILITY(U,$J,358.3,3088,1,3,0)
  1. ;;=3^Octafluoropropane Microspheres,per ml
  1. ;;^UTILITY(U,$J,358.3,3089,0)
  1. ;;=Q9957^^21^186^24^^^^1
  1. ;;^UTILITY(U,$J,358.3,3089,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3089,1,2,0)
  1. ;;=2^Q9957
  1. ;;^UTILITY(U,$J,358.3,3089,1,3,0)
  1. ;;=3^Perflutren Lipid Microspheres,per ml
  1. ;;^UTILITY(U,$J,358.3,3090,0)
  1. ;;=Q9950^^21^186^26^^^^1
  1. ;;^UTILITY(U,$J,358.3,3090,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3090,1,2,0)
  1. ;;=2^Q9950
  1. ;;^UTILITY(U,$J,358.3,3090,1,3,0)
  1. ;;=3^Sulfur Hexafluoride Lipid Microspheres,per ml
  1. ;;^UTILITY(U,$J,358.3,3091,0)
  1. ;;=93000^^21^187^9
  1. ;;^UTILITY(U,$J,358.3,3091,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3091,1,2,0)
  1. ;;=2^93000
  1. ;;^UTILITY(U,$J,358.3,3091,1,3,0)
  1. ;;=3^EKG 12 Lead W/ Interp & Report
  1. ;;^UTILITY(U,$J,358.3,3092,0)
  1. ;;=93005^^21^187^11
  1. ;;^UTILITY(U,$J,358.3,3092,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3092,1,2,0)
  1. ;;=2^93005
  1. ;;^UTILITY(U,$J,358.3,3092,1,3,0)
  1. ;;=3^EKG,Tracing Only No Report
  1. ;;^UTILITY(U,$J,358.3,3093,0)
  1. ;;=93278^^21^187^12
  1. ;;^UTILITY(U,$J,358.3,3093,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3093,1,2,0)
  1. ;;=2^93278
  1. ;;^UTILITY(U,$J,358.3,3093,1,3,0)
  1. ;;=3^EKG/Signal-Averaged
  1. ;;^UTILITY(U,$J,358.3,3094,0)
  1. ;;=93010^^21^187^10^^^^1
  1. ;;^UTILITY(U,$J,358.3,3094,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3094,1,2,0)
  1. ;;=2^93010
  1. ;;^UTILITY(U,$J,358.3,3094,1,3,0)
  1. ;;=3^EKG Interp & Read Only
  1. ;;^UTILITY(U,$J,358.3,3095,0)
  1. ;;=93224^^21^187^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,3095,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3095,1,2,0)
  1. ;;=2^93224
  1. ;;^UTILITY(U,$J,358.3,3095,1,3,0)
  1. ;;=3^ECG MONITOR, UP TO 48 HR, ALL INCLUSIVE
  1. ;;^UTILITY(U,$J,358.3,3096,0)
  1. ;;=93225^^21^187^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,3096,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3096,1,2,0)
  1. ;;=2^93225
  1. ;;^UTILITY(U,$J,358.3,3096,1,3,0)
  1. ;;=3^ECG MONITOR, UP TO 48 HR, RECORDING ONLY
  1. ;;^UTILITY(U,$J,358.3,3097,0)
  1. ;;=93226^^21^187^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,3097,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3097,1,2,0)
  1. ;;=2^93226
  1. ;;^UTILITY(U,$J,358.3,3097,1,3,0)
  1. ;;=3^ECG MONITOR, UP TO 48 HR, SCAN w/RPT
  1. ;;^UTILITY(U,$J,358.3,3098,0)
  1. ;;=93227^^21^187^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,3098,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3098,1,2,0)
  1. ;;=2^93227
  1. ;;^UTILITY(U,$J,358.3,3098,1,3,0)
  1. ;;=3^ECG MONITOR, UP TO 48 HR, REVIEW & INTERP
  1. ;;^UTILITY(U,$J,358.3,3099,0)
  1. ;;=93228^^21^187^23^^^^1
  1. ;;^UTILITY(U,$J,358.3,3099,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3099,1,2,0)
  1. ;;=2^93228
  1. ;;^UTILITY(U,$J,358.3,3099,1,3,0)
  1. ;;=3^REMOTE 30 DAY ECG REV/REPORT
  1. ;;^UTILITY(U,$J,358.3,3100,0)
  1. ;;=93229^^21^187^24^^^^1
  1. ;;^UTILITY(U,$J,358.3,3100,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3100,1,2,0)
  1. ;;=2^93229
  1. ;;^UTILITY(U,$J,358.3,3100,1,3,0)
  1. ;;=3^REMOTE 30 DAY ECG TECH SUPP
  1. ;;^UTILITY(U,$J,358.3,3101,0)
  1. ;;=93268^^21^187^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,3101,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3101,1,2,0)
  1. ;;=2^93268
  1. ;;^UTILITY(U,$J,358.3,3101,1,3,0)
  1. ;;=3^ECG RECORD/REVIEW
  1. ;;^UTILITY(U,$J,358.3,3102,0)
  1. ;;=93270^^21^187^22^^^^1
  1. ;;^UTILITY(U,$J,358.3,3102,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3102,1,2,0)
  1. ;;=2^93270
  1. ;;^UTILITY(U,$J,358.3,3102,1,3,0)
  1. ;;=3^REMOTE 30 DAY ECG RECORDING ONLY
  1. ;;^UTILITY(U,$J,358.3,3103,0)
  1. ;;=93271^^21^187^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,3103,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3103,1,2,0)
  1. ;;=2^93271
  1. ;;^UTILITY(U,$J,358.3,3103,1,3,0)
  1. ;;=3^ECG/MONITORING AND ANALYSIS
  1. ;;^UTILITY(U,$J,358.3,3104,0)
  1. ;;=93272^^21^187^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,3104,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3104,1,2,0)
  1. ;;=2^93272
  1. ;;^UTILITY(U,$J,358.3,3104,1,3,0)
  1. ;;=3^ECG/REVIEW INTERPRET ONLY
  1. ;;^UTILITY(U,$J,358.3,3105,0)
  1. ;;=93278^^21^187^8^^^^1
  1. ;;^UTILITY(U,$J,358.3,3105,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3105,1,2,0)
  1. ;;=2^93278
  1. ;;^UTILITY(U,$J,358.3,3105,1,3,0)
  1. ;;=3^ECG/SIGNAL-AVERAGED
  1. ;;^UTILITY(U,$J,358.3,3106,0)
  1. ;;=93025^^21^187^21^^^^1
  1. ;;^UTILITY(U,$J,358.3,3106,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3106,1,2,0)
  1. ;;=2^93025
  1. ;;^UTILITY(U,$J,358.3,3106,1,3,0)
  1. ;;=3^Microvolt T-Wave Assess
  1. ;;^UTILITY(U,$J,358.3,3107,0)
  1. ;;=93040^^21^187^26^^^^1
  1. ;;^UTILITY(U,$J,358.3,3107,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3107,1,2,0)
  1. ;;=2^93040
  1. ;;^UTILITY(U,$J,358.3,3107,1,3,0)
  1. ;;=3^Rhythm ECG w/ Report
  1. ;;^UTILITY(U,$J,358.3,3108,0)
  1. ;;=93041^^21^187^25^^^^1
  1. ;;^UTILITY(U,$J,358.3,3108,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3108,1,2,0)
  1. ;;=2^93041
  1. ;;^UTILITY(U,$J,358.3,3108,1,3,0)
  1. ;;=3^Rhythm ECG Tracing
  1. ;;^UTILITY(U,$J,358.3,3109,0)
  1. ;;=93242^^21^187^14^^^^1
  1. ;;^UTILITY(U,$J,358.3,3109,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3109,1,2,0)
  1. ;;=2^93242
  1. ;;^UTILITY(U,$J,358.3,3109,1,3,0)
  1. ;;=3^Ext ECG>48HR<7D Recording
  1. ;;^UTILITY(U,$J,358.3,3110,0)
  1. ;;=93246^^21^187^18^^^^1
  1. ;;^UTILITY(U,$J,358.3,3110,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3110,1,2,0)
  1. ;;=2^93246
  1. ;;^UTILITY(U,$J,358.3,3110,1,3,0)
  1. ;;=3^Ext ECG>7D<15D Recording
  1. ;;^UTILITY(U,$J,358.3,3111,0)
  1. ;;=93244^^21^187^15^^^^1
  1. ;;^UTILITY(U,$J,358.3,3111,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3111,1,2,0)
  1. ;;=2^93244
  1. ;;^UTILITY(U,$J,358.3,3111,1,3,0)
  1. ;;=3^Ext ECG>48HR<7D Rev&Interp
  1. ;;^UTILITY(U,$J,358.3,3112,0)
  1. ;;=93241^^21^187^13^^^^1
  1. ;;^UTILITY(U,$J,358.3,3112,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3112,1,2,0)
  1. ;;=2^93241
  1. ;;^UTILITY(U,$J,358.3,3112,1,3,0)
  1. ;;=3^Ext ECG>48HR<7D Rec Scan A/R
  1. ;;^UTILITY(U,$J,358.3,3113,0)
  1. ;;=93243^^21^187^16^^^^1
  1. ;;^UTILITY(U,$J,358.3,3113,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3113,1,2,0)
  1. ;;=2^93243
  1. ;;^UTILITY(U,$J,358.3,3113,1,3,0)
  1. ;;=3^Ext ECG>48HR<7D Scan A/R
  1. ;;^UTILITY(U,$J,358.3,3114,0)
  1. ;;=93245^^21^187^17^^^^1
  1. ;;^UTILITY(U,$J,358.3,3114,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3114,1,2,0)
  1. ;;=2^93245
  1. ;;^UTILITY(U,$J,358.3,3114,1,3,0)
  1. ;;=3^Ext ECG>7D<15D Rec Scan A/R
  1. ;;^UTILITY(U,$J,358.3,3115,0)
  1. ;;=93247^^21^187^20^^^^1
  1. ;;^UTILITY(U,$J,358.3,3115,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3115,1,2,0)
  1. ;;=2^93247
  1. ;;^UTILITY(U,$J,358.3,3115,1,3,0)
  1. ;;=3^Ext ECG>7D<15D Scan A/R
  1. ;;^UTILITY(U,$J,358.3,3116,0)
  1. ;;=93248^^21^187^19^^^^1
  1. ;;^UTILITY(U,$J,358.3,3116,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3116,1,2,0)
  1. ;;=2^93248
  1. ;;^UTILITY(U,$J,358.3,3116,1,3,0)
  1. ;;=3^Ext ECG>7D<15D Rev&Interp
  1. ;;^UTILITY(U,$J,358.3,3117,0)
  1. ;;=96372^^21^188^10^^^^1
  1. ;;^UTILITY(U,$J,358.3,3117,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3117,1,2,0)
  1. ;;=2^96372
  1. ;;^UTILITY(U,$J,358.3,3117,1,3,0)
  1. ;;=3^Ther/Proph/Diag Inj SC/IM
  1. ;;^UTILITY(U,$J,358.3,3118,0)
  1. ;;=96360^^21^188^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,3118,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3118,1,2,0)
  1. ;;=2^96360
  1. ;;^UTILITY(U,$J,358.3,3118,1,3,0)
  1. ;;=3^Hydration IV Infus Init
  1. ;;^UTILITY(U,$J,358.3,3119,0)
  1. ;;=96361^^21^188^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,3119,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3119,1,2,0)
  1. ;;=2^96361
  1. ;;^UTILITY(U,$J,358.3,3119,1,3,0)
  1. ;;=3^Hydration IV Infus Add-On
  1. ;;^UTILITY(U,$J,358.3,3120,0)
  1. ;;=96365^^21^188^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,3120,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3120,1,2,0)
  1. ;;=2^96365
  1. ;;^UTILITY(U,$J,358.3,3120,1,3,0)
  1. ;;=3^IV Inf Ther/Proph/Diag Init
  1. ;;^UTILITY(U,$J,358.3,3121,0)
  1. ;;=96366^^21^188^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,3121,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3121,1,2,0)
  1. ;;=2^96366
  1. ;;^UTILITY(U,$J,358.3,3121,1,3,0)
  1. ;;=3^IV Inf Ther/Proph/Diag Add-On
  1. ;;^UTILITY(U,$J,358.3,3122,0)
  1. ;;=96367^^21^188^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,3122,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3122,1,2,0)
  1. ;;=2^96367
  1. ;;^UTILITY(U,$J,358.3,3122,1,3,0)
  1. ;;=3^IV Inf Ther/Proph/Diag Addl Seq
  1. ;;^UTILITY(U,$J,358.3,3123,0)
  1. ;;=96368^^21^188^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,3123,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3123,1,2,0)
  1. ;;=2^96368
  1. ;;^UTILITY(U,$J,358.3,3123,1,3,0)
  1. ;;=3^IV Inf Ther/Proph/Diag Concurrent
  1. ;;^UTILITY(U,$J,358.3,3124,0)
  1. ;;=82948^^21^188^8^^^^1
  1. ;;^UTILITY(U,$J,358.3,3124,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3124,1,2,0)
  1. ;;=2^82948
  1. ;;^UTILITY(U,$J,358.3,3124,1,3,0)
  1. ;;=3^REAGENT STRIP/BLOOD GLUCOSE
  1. ;;^UTILITY(U,$J,358.3,3125,0)
  1. ;;=90471^^21^188^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,3125,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3125,1,2,0)
  1. ;;=2^90471
  1. ;;^UTILITY(U,$J,358.3,3125,1,3,0)
  1. ;;=3^Immunization Admin
  1. ;;^UTILITY(U,$J,358.3,3126,0)
  1. ;;=96374^^21^188^9^^^^1
  1. ;;^UTILITY(U,$J,358.3,3126,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3126,1,2,0)
  1. ;;=2^96374
  1. ;;^UTILITY(U,$J,358.3,3126,1,3,0)
  1. ;;=3^Ther/Proph/Diag Inj IV Push
  1. ;;^UTILITY(U,$J,358.3,3127,0)
  1. ;;=J1644^^21^189^12^^^^1
  1. ;;^UTILITY(U,$J,358.3,3127,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3127,1,2,0)
  1. ;;=2^J1644
  1. ;;^UTILITY(U,$J,358.3,3127,1,3,0)
  1. ;;=3^Heparin Sodium Inj 1000U
  1. ;;^UTILITY(U,$J,358.3,3128,0)
  1. ;;=J1642^^21^189^11^^^^1
  1. ;;^UTILITY(U,$J,358.3,3128,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3128,1,2,0)
  1. ;;=2^J1642
  1. ;;^UTILITY(U,$J,358.3,3128,1,3,0)
  1. ;;=3^Heparin Lock Flush 10U
  1. ;;^UTILITY(U,$J,358.3,3129,0)
  1. ;;=J3490^^21^189^32^^^^1
  1. ;;^UTILITY(U,$J,358.3,3129,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3129,1,2,0)
  1. ;;=2^J3490
  1. ;;^UTILITY(U,$J,358.3,3129,1,3,0)
  1. ;;=3^Unclassified Drug Inj
  1. ;;^UTILITY(U,$J,358.3,3130,0)
  1. ;;=J1250^^21^189^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,3130,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3130,1,2,0)
  1. ;;=2^J1250
  1. ;;^UTILITY(U,$J,358.3,3130,1,3,0)
  1. ;;=3^Dobutamine HCL 250mg
  1. ;;^UTILITY(U,$J,358.3,3131,0)
  1. ;;=J2001^^21^189^16^^^^1
  1. ;;^UTILITY(U,$J,358.3,3131,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3131,1,2,0)
  1. ;;=2^J2001
  1. ;;^UTILITY(U,$J,358.3,3131,1,3,0)
  1. ;;=3^Lidocaine HCL IV Inf 10mg
  1. ;;^UTILITY(U,$J,358.3,3132,0)
  1. ;;=Q9965^^21^189^13^^^^1
  1. ;;^UTILITY(U,$J,358.3,3132,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3132,1,2,0)
  1. ;;=2^Q9965
  1. ;;^UTILITY(U,$J,358.3,3132,1,3,0)
  1. ;;=3^LOCM 100-199mg/ml Iodine 1ml
  1. ;;^UTILITY(U,$J,358.3,3133,0)
  1. ;;=Q9966^^21^189^14^^^^1
  1. ;;^UTILITY(U,$J,358.3,3133,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3133,1,2,0)
  1. ;;=2^Q9966
  1. ;;^UTILITY(U,$J,358.3,3133,1,3,0)
  1. ;;=3^LOCM 200-299mg/ml Iodine 1ml
  1. ;;^UTILITY(U,$J,358.3,3134,0)
  1. ;;=Q9967^^21^189^15^^^^1
  1. ;;^UTILITY(U,$J,358.3,3134,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3134,1,2,0)
  1. ;;=2^Q9967
  1. ;;^UTILITY(U,$J,358.3,3134,1,3,0)
  1. ;;=3^LOCM 300-399mg/ml Iodine 1ml
  1. ;;^UTILITY(U,$J,358.3,3135,0)
  1. ;;=J2250^^21^189^17^^^^1
  1. ;;^UTILITY(U,$J,358.3,3135,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3135,1,2,0)
  1. ;;=2^J2250
  1. ;;^UTILITY(U,$J,358.3,3135,1,3,0)
  1. ;;=3^Midazolam Hydrochloride 1mg
  1. ;;^UTILITY(U,$J,358.3,3136,0)
  1. ;;=J3010^^21^189^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,3136,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3136,1,2,0)
  1. ;;=2^J3010
  1. ;;^UTILITY(U,$J,358.3,3136,1,3,0)
  1. ;;=3^Fentanyl Citrate 0.1mg
  1. ;;^UTILITY(U,$J,358.3,3137,0)
  1. ;;=J2405^^21^189^22^^^^1
  1. ;;^UTILITY(U,$J,358.3,3137,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3137,1,2,0)
  1. ;;=2^J2405
  1. ;;^UTILITY(U,$J,358.3,3137,1,3,0)
  1. ;;=3^Ondansetron HCL 1mg
  1. ;;^UTILITY(U,$J,358.3,3138,0)
  1. ;;=J2550^^21^189^24^^^^1
  1. ;;^UTILITY(U,$J,358.3,3138,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3138,1,2,0)
  1. ;;=2^J2550
  1. ;;^UTILITY(U,$J,358.3,3138,1,3,0)
  1. ;;=3^Promethazine HCL 50mg
  1. ;;^UTILITY(U,$J,358.3,3139,0)
  1. ;;=90658^^21^189^10^^^^1
  1. ;;^UTILITY(U,$J,358.3,3139,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3139,1,2,0)
  1. ;;=2^90658
  1. ;;^UTILITY(U,$J,358.3,3139,1,3,0)
  1. ;;=3^Flu Vax,Trivalent,Split Virus
  1. ;;^UTILITY(U,$J,358.3,3140,0)
  1. ;;=J1568^^21^189^21^^^^1
  1. ;;^UTILITY(U,$J,358.3,3140,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3140,1,2,0)
  1. ;;=2^J1568
  1. ;;^UTILITY(U,$J,358.3,3140,1,3,0)
  1. ;;=3^Octagam 500mg
  1. ;;^UTILITY(U,$J,358.3,3141,0)
  1. ;;=90732^^21^189^23^^^^1
  1. ;;^UTILITY(U,$J,358.3,3141,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3141,1,2,0)
  1. ;;=2^90732
  1. ;;^UTILITY(U,$J,358.3,3141,1,3,0)
  1. ;;=3^Pneumococcal Vaccine
  1. ;;^UTILITY(U,$J,358.3,3142,0)
  1. ;;=J3420^^21^189^33^^^^1
  1. ;;^UTILITY(U,$J,358.3,3142,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3142,1,2,0)
  1. ;;=2^J3420
  1. ;;^UTILITY(U,$J,358.3,3142,1,3,0)
  1. ;;=3^Vitamin B12 1000mcg
  1. ;;^UTILITY(U,$J,358.3,3143,0)
  1. ;;=J1562^^21^189^34^^^^1
  1. ;;^UTILITY(U,$J,358.3,3143,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3143,1,2,0)
  1. ;;=2^J1562
  1. ;;^UTILITY(U,$J,358.3,3143,1,3,0)
  1. ;;=3^Vivaglobin 100mg
  1. ;;^UTILITY(U,$J,358.3,3144,0)
  1. ;;=A9505^^21^189^28^^^^1
  1. ;;^UTILITY(U,$J,358.3,3144,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3144,1,2,0)
  1. ;;=2^A9505
  1. ;;^UTILITY(U,$J,358.3,3144,1,3,0)
  1. ;;=3^TL201 Thallium per MCL
  1. ;;^UTILITY(U,$J,358.3,3145,0)
  1. ;;=A9560^^21^189^26^^^^1
  1. ;;^UTILITY(U,$J,358.3,3145,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3145,1,2,0)
  1. ;;=2^A9560
  1. ;;^UTILITY(U,$J,358.3,3145,1,3,0)
  1. ;;=3^TC99M Labeled RBC per 30M
  1. ;;^UTILITY(U,$J,358.3,3146,0)
  1. ;;=A9500^^21^189^29^^^^1
  1. ;;^UTILITY(U,$J,358.3,3146,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3146,1,2,0)
  1. ;;=2^A9500
  1. ;;^UTILITY(U,$J,358.3,3146,1,3,0)
  1. ;;=3^Tc99M Sestamibi
  1. ;;^UTILITY(U,$J,358.3,3147,0)
  1. ;;=A9501^^21^189^30^^^^1
  1. ;;^UTILITY(U,$J,358.3,3147,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,3147,1,2,0)
  1. ;;=2^A9501
  1. ;;^UTILITY(U,$J,358.3,3147,1,3,0)
  1. ;;=3^Technetium TC-99M Teboroxime
  1. ;;^UTILITY(U,$J,358.3,3148,0)
  1. ;;=A9502^^21^189^27^^^^1
  1. ;;^UTILITY(U,$J,358.3,3148,1,0)
  1. ;;=^358.31IA^3^2