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