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

LRBLSRV.m

Go to the documentation of this file.
  1. LRBLSRV ;DALLAS CIOFO/RLM/CYM - BLOOD BANK SERVER ;10/25/99 17:52 ;
  1. ;;5.2;LAB SERVICE;**247**;Sep 27, 1994
  1. ;Per VHA Directive 97-033 this routine should not be modified. Medical Device # BK970021
  1. START ;
  1. K ^TMP($J,"LRBLDATA")
  1. S LRBLSITE=$P($$SITE^VASITE,U,2)
  1. ;Determine station number
  1. S LRBLSUB=$TR(XQSUB,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1. ;Translate the subject into upper case and place it into a locally
  1. ;namespaced variable.
  1. S ^TMP("LRBL",$J,1,0)=LRBLSUB_" triggered at "_LRBLSITE_" by "_XMFROM_" on "_XQDATE
  1. ;The first line of the message tells who requested the action and when.
  1. S %DT="T",X="NOW" D ^%DT,DD^LRX S LRBLNOW=Y
  1. I XQSUB["REPORT" D ^LRBLINTG G EXIT
  1. K XMTEXT,XMSUB,LRBLSITE,LRBLNOW,XMY
  1. ;Call a routine based on the "Subject" line of the message.
  1. ;Skip the rest of the routine (down to exit) if the subject
  1. ;is a valid call.
  1. S LRBLSITE=$P($$SITE^VASITE,U,2)
  1. S ^TMP($J,"LRBLDATA",1)=""
  1. S ^TMP($J,"LRBLDATA",2)="Sorry, but I don't know how to "_XQSUB
  1. S ^TMP($J,"LRBLDATA",3)="No action taken"
  1. S XMY("G.bloodbank@ISC-CHICAGO.DOMAIN.EXT")=""
  1. S %DT="T",X="NOW" D ^%DT,DD^LRX S LRBLNOW=Y
  1. S XMSUB="Invalid BB Server Request From "_LRBLSITE_" run on "_LRBLNOW
  1. S XMTEXT="^TMP($J,""LRBLDATA"",",XMDUZ="Blood Bank Monitor" D ^XMD
  1. ;Send a message to the designated mail group if the server is triggered with
  1. ;an invalid command. This lets the users know that they either made
  1. ;a typo, or that someone is attempting to improperly invoke the server.
  1. EXIT K %DT,XMTEXT,XMSUB,LRBLSITE,LRBLNOW,XMY,^TMP($J,"LRBLDATA")
  1. Q