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

IBDEI0QE.m

Go to the documentation of this file.
  1. IBDEI0QE ; ; 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,11866,1,3,0)
  1. ;;=3^DIPHENHYDRAMINE HCL 50MG
  1. ;;^UTILITY(U,$J,358.3,11867,0)
  1. ;;=J2780^^48^580^94^^^^1
  1. ;;^UTILITY(U,$J,358.3,11867,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11867,1,2,0)
  1. ;;=2^J2780
  1. ;;^UTILITY(U,$J,358.3,11867,1,3,0)
  1. ;;=3^RANITIDINE HCL 25MG
  1. ;;^UTILITY(U,$J,358.3,11868,0)
  1. ;;=J2997^^48^580^9^^^^1
  1. ;;^UTILITY(U,$J,358.3,11868,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11868,1,2,0)
  1. ;;=2^J2997
  1. ;;^UTILITY(U,$J,358.3,11868,1,3,0)
  1. ;;=3^ALTEPLASE RECOMBINANT 1MG
  1. ;;^UTILITY(U,$J,358.3,11869,0)
  1. ;;=J1094^^48^580^31^^^^1
  1. ;;^UTILITY(U,$J,358.3,11869,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11869,1,2,0)
  1. ;;=2^J1094
  1. ;;^UTILITY(U,$J,358.3,11869,1,3,0)
  1. ;;=3^DEXAMETHASONE ACETATE 1MG
  1. ;;^UTILITY(U,$J,358.3,11870,0)
  1. ;;=J1100^^48^580^32^^^^1
  1. ;;^UTILITY(U,$J,358.3,11870,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11870,1,2,0)
  1. ;;=2^J1100
  1. ;;^UTILITY(U,$J,358.3,11870,1,3,0)
  1. ;;=3^DEXAMETHASONE SODIUM PHOS 1MG
  1. ;;^UTILITY(U,$J,358.3,11871,0)
  1. ;;=J9395^^48^580^42^^^^1
  1. ;;^UTILITY(U,$J,358.3,11871,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11871,1,2,0)
  1. ;;=2^J9395
  1. ;;^UTILITY(U,$J,358.3,11871,1,3,0)
  1. ;;=3^FULVESTRANT 25MG
  1. ;;^UTILITY(U,$J,358.3,11872,0)
  1. ;;=96402^^48^580^112^^^^1
  1. ;;^UTILITY(U,$J,358.3,11872,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11872,1,2,0)
  1. ;;=2^96402
  1. ;;^UTILITY(U,$J,358.3,11872,1,3,0)
  1. ;;=3^ZOLADEX IMPLANT
  1. ;;^UTILITY(U,$J,358.3,11873,0)
  1. ;;=J2794^^48^580^97^^^^1
  1. ;;^UTILITY(U,$J,358.3,11873,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11873,1,2,0)
  1. ;;=2^J2794
  1. ;;^UTILITY(U,$J,358.3,11873,1,3,0)
  1. ;;=3^RISPERIDONE 0.5MG
  1. ;;^UTILITY(U,$J,358.3,11874,0)
  1. ;;=J2323^^48^580^77^^^^1
  1. ;;^UTILITY(U,$J,358.3,11874,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11874,1,2,0)
  1. ;;=2^J2323
  1. ;;^UTILITY(U,$J,358.3,11874,1,3,0)
  1. ;;=3^NATALIZUMAB 1MG
  1. ;;^UTILITY(U,$J,358.3,11875,0)
  1. ;;=J2426^^48^580^84^^^^1
  1. ;;^UTILITY(U,$J,358.3,11875,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11875,1,2,0)
  1. ;;=2^J2426
  1. ;;^UTILITY(U,$J,358.3,11875,1,3,0)
  1. ;;=3^PALIPERIDONE PALMITATE 1MG
  1. ;;^UTILITY(U,$J,358.3,11876,0)
  1. ;;=J2315^^48^580^76^^^^1
  1. ;;^UTILITY(U,$J,358.3,11876,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11876,1,2,0)
  1. ;;=2^J2315
  1. ;;^UTILITY(U,$J,358.3,11876,1,3,0)
  1. ;;=3^NALTREXONE DEPOT FORM 1MG
  1. ;;^UTILITY(U,$J,358.3,11877,0)
  1. ;;=J1442^^48^580^40^^^^1
  1. ;;^UTILITY(U,$J,358.3,11877,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11877,1,2,0)
  1. ;;=2^J1442
  1. ;;^UTILITY(U,$J,358.3,11877,1,3,0)
  1. ;;=3^FILGRASTIM G-CSF,EXC BIOSIMILARS,1MCG
  1. ;;^UTILITY(U,$J,358.3,11878,0)
  1. ;;=J3489^^48^580^95^^^^1
  1. ;;^UTILITY(U,$J,358.3,11878,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11878,1,2,0)
  1. ;;=2^J3489
  1. ;;^UTILITY(U,$J,358.3,11878,1,3,0)
  1. ;;=3^RECLAST 1MG
  1. ;;^UTILITY(U,$J,358.3,11879,0)
  1. ;;=Q3027^^48^580^54^^^^1
  1. ;;^UTILITY(U,$J,358.3,11879,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11879,1,2,0)
  1. ;;=2^Q3027
  1. ;;^UTILITY(U,$J,358.3,11879,1,3,0)
  1. ;;=3^INTERFERON BETA IM 1MCG
  1. ;;^UTILITY(U,$J,358.3,11880,0)
  1. ;;=Q3028^^48^580^55^^^^1
  1. ;;^UTILITY(U,$J,358.3,11880,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11880,1,2,0)
  1. ;;=2^Q3028
  1. ;;^UTILITY(U,$J,358.3,11880,1,3,0)
  1. ;;=3^INTERFERON BETA SQ 1MCG
  1. ;;^UTILITY(U,$J,358.3,11881,0)
  1. ;;=J1050^^48^580^68^^^^1
  1. ;;^UTILITY(U,$J,358.3,11881,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11881,1,2,0)
  1. ;;=2^J1050
  1. ;;^UTILITY(U,$J,358.3,11881,1,3,0)
  1. ;;=3^MEDROXYPROGESTERONE ACETATE 1 MG