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

IBDEI2EW.m

Go to the documentation of this file.
  1. IBDEI2EW ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  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,38497,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38497,1,2,0)
  1. ;;=2^J2930
  1. ;;^UTILITY(U,$J,358.3,38497,1,3,0)
  1. ;;=3^Solu-Medrol,up to 125mg
  1. ;;^UTILITY(U,$J,358.3,38498,0)
  1. ;;=96402^^151^1962^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,38498,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38498,1,2,0)
  1. ;;=2^96402
  1. ;;^UTILITY(U,$J,358.3,38498,1,3,0)
  1. ;;=3^Anti-Neoplastic Hormone Inj IM
  1. ;;^UTILITY(U,$J,358.3,38499,0)
  1. ;;=96372^^151^1962^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,38499,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38499,1,2,0)
  1. ;;=2^96372
  1. ;;^UTILITY(U,$J,358.3,38499,1,3,0)
  1. ;;=3^Administration of Inj, SC/IM
  1. ;;^UTILITY(U,$J,358.3,38500,0)
  1. ;;=J0461^^151^1962^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,38500,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38500,1,2,0)
  1. ;;=2^J0461
  1. ;;^UTILITY(U,$J,358.3,38500,1,3,0)
  1. ;;=3^Atropine Sulfate,0.01 mg
  1. ;;^UTILITY(U,$J,358.3,38501,0)
  1. ;;=J2794^^151^1962^20^^^^1
  1. ;;^UTILITY(U,$J,358.3,38501,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38501,1,2,0)
  1. ;;=2^J2794
  1. ;;^UTILITY(U,$J,358.3,38501,1,3,0)
  1. ;;=3^Risperidone per 0.5mg
  1. ;;^UTILITY(U,$J,358.3,38502,0)
  1. ;;=J1040^^151^1962^12^^^^1
  1. ;;^UTILITY(U,$J,358.3,38502,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38502,1,2,0)
  1. ;;=2^J1040
  1. ;;^UTILITY(U,$J,358.3,38502,1,3,0)
  1. ;;=3^Depomedrol per 80mg
  1. ;;^UTILITY(U,$J,358.3,38503,0)
  1. ;;=J1050^^151^1962^18^^^^1
  1. ;;^UTILITY(U,$J,358.3,38503,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38503,1,2,0)
  1. ;;=2^J1050
  1. ;;^UTILITY(U,$J,358.3,38503,1,3,0)
  1. ;;=3^Medroxyprogesterone 1mg
  1. ;;^UTILITY(U,$J,358.3,38504,0)
  1. ;;=J0153^^151^1962^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,38504,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38504,1,2,0)
  1. ;;=2^J0153
  1. ;;^UTILITY(U,$J,358.3,38504,1,3,0)
  1. ;;=3^Adenosine 1mg
  1. ;;^UTILITY(U,$J,358.3,38505,0)
  1. ;;=J1071^^151^1962^22^^^^1
  1. ;;^UTILITY(U,$J,358.3,38505,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38505,1,2,0)
  1. ;;=2^J1071
  1. ;;^UTILITY(U,$J,358.3,38505,1,3,0)
  1. ;;=3^Testosterone Cypionate 1mg
  1. ;;^UTILITY(U,$J,358.3,38506,0)
  1. ;;=J3121^^151^1962^23^^^^1
  1. ;;^UTILITY(U,$J,358.3,38506,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38506,1,2,0)
  1. ;;=2^J3121
  1. ;;^UTILITY(U,$J,358.3,38506,1,3,0)
  1. ;;=3^Testosterone Enanthate up to 1mg
  1. ;;^UTILITY(U,$J,358.3,38507,0)
  1. ;;=90586^^151^1962^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,38507,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38507,1,2,0)
  1. ;;=2^90586
  1. ;;^UTILITY(U,$J,358.3,38507,1,3,0)
  1. ;;=3^BCG for Bladder CA Intravesical
  1. ;;^UTILITY(U,$J,358.3,38508,0)
  1. ;;=90585^^151^1962^8^^^^1
  1. ;;^UTILITY(U,$J,358.3,38508,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38508,1,2,0)
  1. ;;=2^90585
  1. ;;^UTILITY(U,$J,358.3,38508,1,3,0)
  1. ;;=3^BCG for TB,Percutaneous
  1. ;;^UTILITY(U,$J,358.3,38509,0)
  1. ;;=J9030^^151^1962^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,38509,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38509,1,2,0)
  1. ;;=2^J9030
  1. ;;^UTILITY(U,$J,358.3,38509,1,3,0)
  1. ;;=3^BCG Live,Intravesical 1mg (81mg w/ Saline)
  1. ;;^UTILITY(U,$J,358.3,38510,0)
  1. ;;=51720^^151^1962^10^^^^1
  1. ;;^UTILITY(U,$J,358.3,38510,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38510,1,2,0)
  1. ;;=2^51720
  1. ;;^UTILITY(U,$J,358.3,38510,1,3,0)
  1. ;;=3^Bladder Instillation of Anti-CA Med
  1. ;;^UTILITY(U,$J,358.3,38511,0)
  1. ;;=86485^^151^1963^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,38511,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38511,1,2,0)
  1. ;;=2^86485
  1. ;;^UTILITY(U,$J,358.3,38511,1,3,0)
  1. ;;=3^Candida
  1. ;;^UTILITY(U,$J,358.3,38512,0)
  1. ;;=86580^^151^1963^5^^^^1