source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRBLSRV.m@ 1604

Last change on this file since 1604 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

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