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

IBDEI0QG.m

Go to the documentation of this file.
  1. IBDEI0QG ; ; 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,11897,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11897,1,2,0)
  1. ;;=2^J1575
  1. ;;^UTILITY(U,$J,358.3,11897,1,3,0)
  1. ;;=3^IMMUNEGLOBULIN/HYALURONIDASE 100MG
  1. ;;^UTILITY(U,$J,358.3,11898,0)
  1. ;;=J1833^^48^580^60^^^^1
  1. ;;^UTILITY(U,$J,358.3,11898,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11898,1,2,0)
  1. ;;=2^J1833
  1. ;;^UTILITY(U,$J,358.3,11898,1,3,0)
  1. ;;=3^ISAVUCONAZONIUM 1MG
  1. ;;^UTILITY(U,$J,358.3,11899,0)
  1. ;;=J2407^^48^580^83^^^^1
  1. ;;^UTILITY(U,$J,358.3,11899,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11899,1,2,0)
  1. ;;=2^J2407
  1. ;;^UTILITY(U,$J,358.3,11899,1,3,0)
  1. ;;=3^ORITAVANCIN 10MG
  1. ;;^UTILITY(U,$J,358.3,11900,0)
  1. ;;=J2502^^48^580^86^^^^1
  1. ;;^UTILITY(U,$J,358.3,11900,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11900,1,2,0)
  1. ;;=2^J2502
  1. ;;^UTILITY(U,$J,358.3,11900,1,3,0)
  1. ;;=3^PASIREOTIDE LONG ACTING 1MG
  1. ;;^UTILITY(U,$J,358.3,11901,0)
  1. ;;=J2547^^48^580^91^^^^1
  1. ;;^UTILITY(U,$J,358.3,11901,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11901,1,2,0)
  1. ;;=2^J2547
  1. ;;^UTILITY(U,$J,358.3,11901,1,3,0)
  1. ;;=3^PERAMIVIR 1MG
  1. ;;^UTILITY(U,$J,358.3,11902,0)
  1. ;;=J2860^^48^580^100^^^^1
  1. ;;^UTILITY(U,$J,358.3,11902,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11902,1,2,0)
  1. ;;=2^J2860
  1. ;;^UTILITY(U,$J,358.3,11902,1,3,0)
  1. ;;=3^SILTUXIMAB 10MG
  1. ;;^UTILITY(U,$J,358.3,11903,0)
  1. ;;=J7121^^48^580^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,11903,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11903,1,2,0)
  1. ;;=2^J7121
  1. ;;^UTILITY(U,$J,358.3,11903,1,3,0)
  1. ;;=3^5% DEXTROSE IN LAC RINGERS UP TO 1000CC
  1. ;;^UTILITY(U,$J,358.3,11904,0)
  1. ;;=J7188^^48^580^37^^^^1
  1. ;;^UTILITY(U,$J,358.3,11904,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11904,1,2,0)
  1. ;;=2^J7188
  1. ;;^UTILITY(U,$J,358.3,11904,1,3,0)
  1. ;;=3^FACTOR VIII PER IU
  1. ;;^UTILITY(U,$J,358.3,11905,0)
  1. ;;=J7205^^48^580^36^^^^1
  1. ;;^UTILITY(U,$J,358.3,11905,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11905,1,2,0)
  1. ;;=2^J7205
  1. ;;^UTILITY(U,$J,358.3,11905,1,3,0)
  1. ;;=3^FACTOR VIII FC FUSION PROTEIN PER IU
  1. ;;^UTILITY(U,$J,358.3,11906,0)
  1. ;;=J8655^^48^580^78^^^^1
  1. ;;^UTILITY(U,$J,358.3,11906,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11906,1,2,0)
  1. ;;=2^J8655
  1. ;;^UTILITY(U,$J,358.3,11906,1,3,0)
  1. ;;=3^NETUPITANT 300MG AND PALONOSETRON 0.5MG
  1. ;;^UTILITY(U,$J,358.3,11907,0)
  1. ;;=J9032^^48^580^19^^^^1
  1. ;;^UTILITY(U,$J,358.3,11907,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11907,1,2,0)
  1. ;;=2^J9032
  1. ;;^UTILITY(U,$J,358.3,11907,1,3,0)
  1. ;;=3^BELINOSTAT 10MG
  1. ;;^UTILITY(U,$J,358.3,11908,0)
  1. ;;=J9039^^48^580^21^^^^1
  1. ;;^UTILITY(U,$J,358.3,11908,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11908,1,2,0)
  1. ;;=2^J9039
  1. ;;^UTILITY(U,$J,358.3,11908,1,3,0)
  1. ;;=3^BLINATUMOMAB 1MCG
  1. ;;^UTILITY(U,$J,358.3,11909,0)
  1. ;;=J9299^^48^580^79^^^^1
  1. ;;^UTILITY(U,$J,358.3,11909,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11909,1,2,0)
  1. ;;=2^J9299
  1. ;;^UTILITY(U,$J,358.3,11909,1,3,0)
  1. ;;=3^NIVOLUMAB 1MG
  1. ;;^UTILITY(U,$J,358.3,11910,0)
  1. ;;=J9308^^48^580^93^^^^1
  1. ;;^UTILITY(U,$J,358.3,11910,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11910,1,2,0)
  1. ;;=2^J9308
  1. ;;^UTILITY(U,$J,358.3,11910,1,3,0)
  1. ;;=3^RAMUCIRUMAB 5MG
  1. ;;^UTILITY(U,$J,358.3,11911,0)
  1. ;;=J3301^^48^580^61^^^^1
  1. ;;^UTILITY(U,$J,358.3,11911,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,11911,1,2,0)
  1. ;;=2^J3301
  1. ;;^UTILITY(U,$J,358.3,11911,1,3,0)
  1. ;;=3^KENALOG 10MG
  1. ;;^UTILITY(U,$J,358.3,11912,0)
  1. ;;=J3380^^48^580^109^^^^1
  1. ;;^UTILITY(U,$J,358.3,11912,1,0)
  1. ;;=^358.31IA^3^2