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

IBDEI16Z.m

Go to the documentation of this file.
  1. IBDEI16Z ; ; 01-FEB-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 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,19350,0)
  1. ;;=J0800^^66^859^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,19350,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,19350,1,2,0)
  1. ;;=2^Corticotropin Inj up to 40 units
  1. ;;^UTILITY(U,$J,358.3,19350,1,3,0)
  1. ;;=3^J0800
  1. ;;^UTILITY(U,$J,358.3,19351,0)
  1. ;;=J1040^^66^859^12^^^^1
  1. ;;^UTILITY(U,$J,358.3,19351,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,19351,1,2,0)
  1. ;;=2^Methylprednisolone 80 Mg Inj
  1. ;;^UTILITY(U,$J,358.3,19351,1,3,0)
  1. ;;=3^J1040
  1. ;;^UTILITY(U,$J,358.3,19352,0)
  1. ;;=Q9967^^66^859^14^^^^1
  1. ;;^UTILITY(U,$J,358.3,19352,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,19352,1,2,0)
  1. ;;=2^Omnipaque 300 per ml
  1. ;;^UTILITY(U,$J,358.3,19352,1,3,0)
  1. ;;=3^Q9967
  1. ;;^UTILITY(U,$J,358.3,19353,0)
  1. ;;=Q9966^^66^859^13^^^^1
  1. ;;^UTILITY(U,$J,358.3,19353,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,19353,1,2,0)
  1. ;;=2^Omnipaque 240 per ml
  1. ;;^UTILITY(U,$J,358.3,19353,1,3,0)
  1. ;;=3^Q9966
  1. ;;^UTILITY(U,$J,358.3,19354,0)
  1. ;;=J0702^^66^859^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,19354,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,19354,1,2,0)
  1. ;;=2^Celestone 3 mg
  1. ;;^UTILITY(U,$J,358.3,19354,1,3,0)
  1. ;;=3^J0702
  1. ;;^UTILITY(U,$J,358.3,19355,0)
  1. ;;=J1030^^66^859^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,19355,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,19355,1,2,0)
  1. ;;=2^Depo-Medrol 40 mg
  1. ;;^UTILITY(U,$J,358.3,19355,1,3,0)
  1. ;;=3^J1030
  1. ;;^UTILITY(U,$J,358.3,19356,0)
  1. ;;=J1040^^66^859^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,19356,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,19356,1,2,0)
  1. ;;=2^Depo-Medrol 80 mg
  1. ;;^UTILITY(U,$J,358.3,19356,1,3,0)
  1. ;;=3^J1040
  1. ;;^UTILITY(U,$J,358.3,19357,0)
  1. ;;=J7323^^66^859^9^^^^1
  1. ;;^UTILITY(U,$J,358.3,19357,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,19357,1,2,0)
  1. ;;=2^Euflexxa per dose
  1. ;;^UTILITY(U,$J,358.3,19357,1,3,0)
  1. ;;=3^J7323
  1. ;;^UTILITY(U,$J,358.3,19358,0)
  1. ;;=J3301^^66^859^11^^^^1
  1. ;;^UTILITY(U,$J,358.3,19358,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,19358,1,2,0)
  1. ;;=2^Kenalog/Triamcinolone per 10 mg
  1. ;;^UTILITY(U,$J,358.3,19358,1,3,0)
  1. ;;=3^J3301
  1. ;;^UTILITY(U,$J,358.3,19359,0)
  1. ;;=J7324^^66^859^15^^^^1
  1. ;;^UTILITY(U,$J,358.3,19359,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,19359,1,2,0)
  1. ;;=2^Orthovisc per dose
  1. ;;^UTILITY(U,$J,358.3,19359,1,3,0)
  1. ;;=3^J7324
  1. ;;^UTILITY(U,$J,358.3,19360,0)
  1. ;;=J1885^^66^859^18^^^^1
  1. ;;^UTILITY(U,$J,358.3,19360,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,19360,1,2,0)
  1. ;;=2^Toradol/Ketorolac per 15 mg
  1. ;;^UTILITY(U,$J,358.3,19360,1,3,0)
  1. ;;=3^J1885
  1. ;;^UTILITY(U,$J,358.3,19361,0)
  1. ;;=J7321^^66^859^16^^^^1
  1. ;;^UTILITY(U,$J,358.3,19361,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,19361,1,2,0)
  1. ;;=2^Supatz per dose
  1. ;;^UTILITY(U,$J,358.3,19361,1,3,0)
  1. ;;=3^J7321
  1. ;;^UTILITY(U,$J,358.3,19362,0)
  1. ;;=J7325^^66^859^17^^^^1
  1. ;;^UTILITY(U,$J,358.3,19362,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,19362,1,2,0)
  1. ;;=2^Synvisc 3 dose per 2 ml syringe
  1. ;;^UTILITY(U,$J,358.3,19362,1,3,0)
  1. ;;=3^J7325
  1. ;;^UTILITY(U,$J,358.3,19363,0)
  1. ;;=J2250^^66^859^19^^^^1
  1. ;;^UTILITY(U,$J,358.3,19363,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,19363,1,2,0)
  1. ;;=2^Versed per mg
  1. ;;^UTILITY(U,$J,358.3,19363,1,3,0)
  1. ;;=3^J2250
  1. ;;^UTILITY(U,$J,358.3,19364,0)
  1. ;;=J3010^^66^859^10^^^^1
  1. ;;^UTILITY(U,$J,358.3,19364,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,19364,1,2,0)
  1. ;;=2^Fentanyl 0.1 mg
  1. ;;^UTILITY(U,$J,358.3,19364,1,3,0)
  1. ;;=3^J3010
  1. ;;^UTILITY(U,$J,358.3,19365,0)
  1. ;;=J1200^^66^859^8^^^^1