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

IBDEI0QO.m

Go to the documentation of this file.
  1. IBDEI0QO ; ; 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,12017,1,2,0)
  1. ;;=2^96374
  1. ;;^UTILITY(U,$J,358.3,12017,1,3,0)
  1. ;;=3^IV PUSH,SINGLE/INIT SUBST/DRUG
  1. ;;^UTILITY(U,$J,358.3,12018,0)
  1. ;;=96375^^48^590^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,12018,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,12018,1,2,0)
  1. ;;=2^96375
  1. ;;^UTILITY(U,$J,358.3,12018,1,3,0)
  1. ;;=3^IV PUSH,EA ADDL SUBST/DRUG
  1. ;;^UTILITY(U,$J,358.3,12019,0)
  1. ;;=96360^^48^590^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,12019,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,12019,1,2,0)
  1. ;;=2^96360
  1. ;;^UTILITY(U,$J,358.3,12019,1,3,0)
  1. ;;=3^HYDRATION IV,INIT HR
  1. ;;^UTILITY(U,$J,358.3,12020,0)
  1. ;;=96361^^48^590^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,12020,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,12020,1,2,0)
  1. ;;=2^96361
  1. ;;^UTILITY(U,$J,358.3,12020,1,3,0)
  1. ;;=3^HYDRATION IV,EA ADDL HR
  1. ;;^UTILITY(U,$J,358.3,12021,0)
  1. ;;=96368^^48^590^9^^^^1
  1. ;;^UTILITY(U,$J,358.3,12021,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,12021,1,2,0)
  1. ;;=2^96368
  1. ;;^UTILITY(U,$J,358.3,12021,1,3,0)
  1. ;;=3^TX/PROPH/DX IV INF,CONCURRENT
  1. ;;^UTILITY(U,$J,358.3,12022,0)
  1. ;;=96376^^48^590^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,12022,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,12022,1,2,0)
  1. ;;=2^96376
  1. ;;^UTILITY(U,$J,358.3,12022,1,3,0)
  1. ;;=3^IV PUSH,SUBSEQ,NEW DRUG
  1. ;;^UTILITY(U,$J,358.3,12023,0)
  1. ;;=36591^^48^591^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,12023,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,12023,1,2,0)
  1. ;;=2^36591
  1. ;;^UTILITY(U,$J,358.3,12023,1,3,0)
  1. ;;=3^DRAW BLOOD OFF VENOUS DEVICE
  1. ;;^UTILITY(U,$J,358.3,12024,0)
  1. ;;=36592^^48^591^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,12024,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,12024,1,2,0)
  1. ;;=2^36592
  1. ;;^UTILITY(U,$J,358.3,12024,1,3,0)
  1. ;;=3^COLLECT BLOOD FROM PICC
  1. ;;^UTILITY(U,$J,358.3,12025,0)
  1. ;;=36569^^48^591^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,12025,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,12025,1,2,0)
  1. ;;=2^36569
  1. ;;^UTILITY(U,$J,358.3,12025,1,3,0)
  1. ;;=3^PICC INSERTION W/O SUBCU PORT/PUMP
  1. ;;^UTILITY(U,$J,358.3,12026,0)
  1. ;;=96401^^48^592^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,12026,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,12026,1,2,0)
  1. ;;=2^96401
  1. ;;^UTILITY(U,$J,358.3,12026,1,3,0)
  1. ;;=3^CHEMO NON-HORMONAL ANTI-NEOPL SQ/IM
  1. ;;^UTILITY(U,$J,358.3,12027,0)
  1. ;;=96409^^48^592^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,12027,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,12027,1,2,0)
  1. ;;=2^96409
  1. ;;^UTILITY(U,$J,358.3,12027,1,3,0)
  1. ;;=3^CHEMO IV PUSH SNGL DRUG
  1. ;;^UTILITY(U,$J,358.3,12028,0)
  1. ;;=96411^^48^592^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,12028,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,12028,1,2,0)
  1. ;;=2^96411
  1. ;;^UTILITY(U,$J,358.3,12028,1,3,0)
  1. ;;=3^CHEMO IV PUSH ADDL DRUG
  1. ;;^UTILITY(U,$J,358.3,12029,0)
  1. ;;=96402^^48^592^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,12029,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,12029,1,2,0)
  1. ;;=2^96402
  1. ;;^UTILITY(U,$J,358.3,12029,1,3,0)
  1. ;;=3^CHEMO HORMONAL ANTI-NEOPL SQ/IM
  1. ;;^UTILITY(U,$J,358.3,12030,0)
  1. ;;=51720^^48^592^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,12030,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,12030,1,2,0)
  1. ;;=2^51720
  1. ;;^UTILITY(U,$J,358.3,12030,1,3,0)
  1. ;;=3^BLADDER INSTILLATION ANTICARCINOGENIC AGENT
  1. ;;^UTILITY(U,$J,358.3,12031,0)
  1. ;;=36430^^48^593^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,12031,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,12031,1,2,0)
  1. ;;=2^36430
  1. ;;^UTILITY(U,$J,358.3,12031,1,3,0)
  1. ;;=3^BLOOD/BLOOD COMPONENTS TRANSFUSION
  1. ;;^UTILITY(U,$J,358.3,12032,0)
  1. ;;=P9010^^48^593^8^^^^1