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

IBDEI0QC.m

Go to the documentation of this file.
IBDEI0QC ; ; 01-FEB-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
 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,11836,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11836,1,2,0)
 ;;=2^J0881
 ;;^UTILITY(U,$J,358.3,11836,1,3,0)
 ;;=3^ARANESP (NON-ESRD) 1MCG
 ;;^UTILITY(U,$J,358.3,11837,0)
 ;;=J0882^^48^580^10^^^^1
 ;;^UTILITY(U,$J,358.3,11837,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11837,1,2,0)
 ;;=2^J0882
 ;;^UTILITY(U,$J,358.3,11837,1,3,0)
 ;;=3^ARANESP (ESRD) 1MCG
 ;;^UTILITY(U,$J,358.3,11838,0)
 ;;=J1826^^48^580^56^^^^1
 ;;^UTILITY(U,$J,358.3,11838,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11838,1,2,0)
 ;;=2^J1826
 ;;^UTILITY(U,$J,358.3,11838,1,3,0)
 ;;=3^INTERFERON BETA-1A 30mcg
 ;;^UTILITY(U,$J,358.3,11839,0)
 ;;=J9217^^48^580^66^^^^1
 ;;^UTILITY(U,$J,358.3,11839,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11839,1,2,0)
 ;;=2^J9217
 ;;^UTILITY(U,$J,358.3,11839,1,3,0)
 ;;=3^LEUPROLIDE 7.5MG
 ;;^UTILITY(U,$J,358.3,11840,0)
 ;;=J9218^^48^580^64^^^^1
 ;;^UTILITY(U,$J,358.3,11840,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11840,1,2,0)
 ;;=2^J9218
 ;;^UTILITY(U,$J,358.3,11840,1,3,0)
 ;;=3^LEUPROLIDE 1MG
 ;;^UTILITY(U,$J,358.3,11841,0)
 ;;=J1950^^48^580^65^^^^1
 ;;^UTILITY(U,$J,358.3,11841,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11841,1,2,0)
 ;;=2^J1950
 ;;^UTILITY(U,$J,358.3,11841,1,3,0)
 ;;=3^LEUPROLIDE 3.75MG
 ;;^UTILITY(U,$J,358.3,11842,0)
 ;;=J9219^^48^580^67^^^^1
 ;;^UTILITY(U,$J,358.3,11842,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11842,1,2,0)
 ;;=2^J9219
 ;;^UTILITY(U,$J,358.3,11842,1,3,0)
 ;;=3^LEUPROLIDE IMPLANT 65MG
 ;;^UTILITY(U,$J,358.3,11843,0)
 ;;=J0696^^48^580^99^^^^4
 ;;^UTILITY(U,$J,358.3,11843,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11843,1,2,0)
 ;;=2^J0696
 ;;^UTILITY(U,$J,358.3,11843,1,3,0)
 ;;=3^ROCEPHIN 250MG
 ;;^UTILITY(U,$J,358.3,11844,0)
 ;;=J1030^^48^580^72^^^^1
 ;;^UTILITY(U,$J,358.3,11844,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11844,1,2,0)
 ;;=2^J1030
 ;;^UTILITY(U,$J,358.3,11844,1,3,0)
 ;;=3^METHYLPREDNISOLONE 40MG
 ;;^UTILITY(U,$J,358.3,11845,0)
 ;;=J1020^^48^580^71^^^^1
 ;;^UTILITY(U,$J,358.3,11845,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11845,1,2,0)
 ;;=2^J1020
 ;;^UTILITY(U,$J,358.3,11845,1,3,0)
 ;;=3^METHYLPREDNISOLONE 20MG
 ;;^UTILITY(U,$J,358.3,11846,0)
 ;;=J1040^^48^580^73^^^^1
 ;;^UTILITY(U,$J,358.3,11846,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11846,1,2,0)
 ;;=2^J1040
 ;;^UTILITY(U,$J,358.3,11846,1,3,0)
 ;;=3^METHYLPREDNISOLONE 80MG
 ;;^UTILITY(U,$J,358.3,11847,0)
 ;;=J2920^^48^580^75^^^^1
 ;;^UTILITY(U,$J,358.3,11847,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11847,1,2,0)
 ;;=2^J2920
 ;;^UTILITY(U,$J,358.3,11847,1,3,0)
 ;;=3^METHYLPREDNISOLONE SOD IV 40MG
 ;;^UTILITY(U,$J,358.3,11848,0)
 ;;=J2930^^48^580^74^^^^1
 ;;^UTILITY(U,$J,358.3,11848,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11848,1,2,0)
 ;;=2^J2930
 ;;^UTILITY(U,$J,358.3,11848,1,3,0)
 ;;=3^METHYLPREDNISOLONE SOD IV 125MG
 ;;^UTILITY(U,$J,358.3,11849,0)
 ;;=J1756^^48^580^59^^^^1
 ;;^UTILITY(U,$J,358.3,11849,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11849,1,2,0)
 ;;=2^J1756
 ;;^UTILITY(U,$J,358.3,11849,1,3,0)
 ;;=3^IRON SUCROSE 1MG
 ;;^UTILITY(U,$J,358.3,11850,0)
 ;;=J1745^^48^580^96^^^^1
 ;;^UTILITY(U,$J,358.3,11850,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11850,1,2,0)
 ;;=2^J1745
 ;;^UTILITY(U,$J,358.3,11850,1,3,0)
 ;;=3^REMICADE 10MG
 ;;^UTILITY(U,$J,358.3,11851,0)
 ;;=J2916^^48^580^38^^^^1
 ;;^UTILITY(U,$J,358.3,11851,1,0)
 ;;=^358.31IA^3^2