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

VBECA5A.m

Go to the documentation of this file.
  1. VBECA5A ;DALOI/BNT/RLM - BLOOD PRODUCT LOOKUP FOR SURGERY ;08/23/2001
  1. ;;2.0;VBEC;;Jun 05, 2015;Build 4
  1. ;
  1. ; Note: This routine supports data exchange with an FDA registered
  1. ; medical device. As such, it may not be changed in any way without
  1. ; prior written approval from the medical device manufacturer.
  1. ;
  1. ; Integration Agreements:
  1. ; Reference to IX^DIC supported by DBIA #10006
  1. ; Reference to LIST^DIC supported by DBIA #2051
  1. ; Reference to ^DIR supported by DBIA #10026
  1. ;
  1. ; ------------------------------------------------------
  1. ; Private method supports IA #3631
  1. ; ------------------------------------------------------
  1. ITRAN ; -- Input Transform lookup
  1. G COMPCL^VBECA5B ;Old code below for reference
  1. N DIC,DA,Y,Z,D,DIE,DO,DICR,Q,DR
  1. S DIC="^LAB(66,",DIC(0)="EQSZ"
  1. S DIC("S")="I $P(^(0),U,15)"
  1. S D="B" D IX^DIC
  1. K DIQUIET,VBDIC
  1. I $D(DTOUT)!($D(DUOUT)) K X Q
  1. S X=$G(Y(0,0)) K:X="" X
  1. I $G(Y)'=-1 S VBECSEL=+Y
  1. Q
  1. DIR ;I can't find a reference to this in the surgery code.
  1. N DIC,DA,Y,Z,D,DIE,DO,DICR,DIR
  1. S DIC="^LAB(66,",DIC(0)="EQ",D="B"
  1. D IX^DIC
  1. Q
  1. ;
  1. ; ------------------------------------------------------
  1. ; Private method supports IA #3631
  1. ; ------------------------------------------------------
  1. OUT66 ;
  1. G LIST^VBECA5B ;Old code below for reference
  1. K ERROR,DIERR,VBECO
  1. D LIST^DIC(66,,.01,,,,,,"I $P(^(0),U,15)",,"VBECO","ERROR")
  1. S VBEC=0 F VBECL=1:1 S VBEC=$O(VBECO("DILIST",1,VBEC)) Q:'VBEC D Q:$D(DUOUT)!$D(DTOUT)
  1. . W !,VBECO("DILIST",1,VBEC)
  1. . I '(VBECL#5) S DIR(0)="E" D ^DIR
  1. K VBEC,VBECL,VBECO
  1. ;
  1. ; ------------------------------------------------------
  1. ; Private method supports IA #3631
  1. ; ------------------------------------------------------
  1. LIST66 ;
  1. G LIST^VBECA5B ;Old code below for reference
  1. N D,DO,DIC,X
  1. K ^TMP("DILIST",$J),VBECO
  1. S X="?",DIC="^LAB(66,",DIC(0)="EQS",D="B"
  1. S DIC("S")="I $P(^(0),U,15)"
  1. D IX^DIC
  1. K DIBTDH
  1. Q