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

IBDEI0QH.m

Go to the documentation of this file.
IBDEI0QH ; ; 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,11912,1,2,0)
 ;;=2^J3380
 ;;^UTILITY(U,$J,358.3,11912,1,3,0)
 ;;=3^VEDOLIZUMAB/ENTYVIO 1MG
 ;;^UTILITY(U,$J,358.3,11913,0)
 ;;=J7609^^48^580^5^^^^1
 ;;^UTILITY(U,$J,358.3,11913,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11913,1,2,0)
 ;;=2^J7609
 ;;^UTILITY(U,$J,358.3,11913,1,3,0)
 ;;=3^ALBUTEROL,COMPOUND,UNIT DOSE,1MG
 ;;^UTILITY(U,$J,358.3,11914,0)
 ;;=J7610^^48^580^4^^^^1
 ;;^UTILITY(U,$J,358.3,11914,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11914,1,2,0)
 ;;=2^J7610
 ;;^UTILITY(U,$J,358.3,11914,1,3,0)
 ;;=3^ALBUTEROL,COMPOUND,CONCENTRATE,1MG
 ;;^UTILITY(U,$J,358.3,11915,0)
 ;;=J0735^^48^580^27^^^^1
 ;;^UTILITY(U,$J,358.3,11915,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11915,1,2,0)
 ;;=2^J0735
 ;;^UTILITY(U,$J,358.3,11915,1,3,0)
 ;;=3^CLONIDINE HYDROCHLORIDE 1MG
 ;;^UTILITY(U,$J,358.3,11916,0)
 ;;=J1438^^48^580^35^^^^1
 ;;^UTILITY(U,$J,358.3,11916,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11916,1,2,0)
 ;;=2^J1438
 ;;^UTILITY(U,$J,358.3,11916,1,3,0)
 ;;=3^ETANERCEPT 25MG
 ;;^UTILITY(U,$J,358.3,11917,0)
 ;;=J7611^^48^580^6^^^^1
 ;;^UTILITY(U,$J,358.3,11917,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11917,1,2,0)
 ;;=2^J7611
 ;;^UTILITY(U,$J,358.3,11917,1,3,0)
 ;;=3^ALBUTEROL,NON-COMPOUND,CONCENTRATE,1MG
 ;;^UTILITY(U,$J,358.3,11918,0)
 ;;=J7613^^48^580^7^^^^1
 ;;^UTILITY(U,$J,358.3,11918,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11918,1,2,0)
 ;;=2^J7613
 ;;^UTILITY(U,$J,358.3,11918,1,3,0)
 ;;=3^ALBUTEROL,NON-COMPOUND,UNIT DOSE,1MG
 ;;^UTILITY(U,$J,358.3,11919,0)
 ;;=J2680^^48^580^41^^^^1
 ;;^UTILITY(U,$J,358.3,11919,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11919,1,2,0)
 ;;=2^J2680
 ;;^UTILITY(U,$J,358.3,11919,1,3,0)
 ;;=3^FLUPHENAZINE DECANOATE,UP TO 25MG
 ;;^UTILITY(U,$J,358.3,11920,0)
 ;;=J1580^^48^580^47^^^^1
 ;;^UTILITY(U,$J,358.3,11920,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11920,1,2,0)
 ;;=2^J1580
 ;;^UTILITY(U,$J,358.3,11920,1,3,0)
 ;;=3^GARAMYCIN,GENTAMICIN,UP TO 80MG
 ;;^UTILITY(U,$J,358.3,11921,0)
 ;;=J2350^^48^580^80^^^^1
 ;;^UTILITY(U,$J,358.3,11921,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11921,1,2,0)
 ;;=2^J2350
 ;;^UTILITY(U,$J,358.3,11921,1,3,0)
 ;;=3^OCRELIZUMAB 1MG
 ;;^UTILITY(U,$J,358.3,11922,0)
 ;;=J3590^^48^580^105^^^^1
 ;;^UTILITY(U,$J,358.3,11922,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11922,1,2,0)
 ;;=2^J3590
 ;;^UTILITY(U,$J,358.3,11922,1,3,0)
 ;;=3^UNCLASSIFIED BIOLOGICS
 ;;^UTILITY(U,$J,358.3,11923,0)
 ;;=J3490^^48^580^106^^^^1
 ;;^UTILITY(U,$J,358.3,11923,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11923,1,2,0)
 ;;=2^J3490
 ;;^UTILITY(U,$J,358.3,11923,1,3,0)
 ;;=3^UNCLASSIFIED DRUG
 ;;^UTILITY(U,$J,358.3,11924,0)
 ;;=J0135^^48^580^3^^^^1
 ;;^UTILITY(U,$J,358.3,11924,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11924,1,2,0)
 ;;=2^J0135
 ;;^UTILITY(U,$J,358.3,11924,1,3,0)
 ;;=3^ADALIMUMAB 20MG
 ;;^UTILITY(U,$J,358.3,11925,0)
 ;;=J1569^^48^580^45^^^^1
 ;;^UTILITY(U,$J,358.3,11925,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11925,1,2,0)
 ;;=2^J1569
 ;;^UTILITY(U,$J,358.3,11925,1,3,0)
 ;;=3^GAMMAGARD LIQUID 500MG
 ;;^UTILITY(U,$J,358.3,11926,0)
 ;;=J1566^^48^580^51^^^^1
 ;;^UTILITY(U,$J,358.3,11926,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,11926,1,2,0)
 ;;=2^J1566
 ;;^UTILITY(U,$J,358.3,11926,1,3,0)
 ;;=3^IMMUNE GLOBULIN 500MG
 ;;^UTILITY(U,$J,358.3,11927,0)
 ;;=J2182^^48^580^69^^^^1
 ;;^UTILITY(U,$J,358.3,11927,1,0)
 ;;=^358.31IA^3^2