source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XQSRV3.m@ 701

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1XQSRV3 ;SEA/MJM - Server to Mailman utilities; [5/16/02 12:48pm]
2 ;;8.0;KERNEL;**231,235**;Jul 10, 1995
3 ;
4HERE ;Find the name of this place
5 ;N U,%,XMFROM,XMSUB,XMTEXT,XQDATE,XQER1,XQHERE,XQI,XQMB,XQMB6
6 ;N XQMSG,XQN,XQSND,XQSOP,XQSRV5,XQSUB,XQMS,XMY,XQSTXT
7 S U="^",%=$P(^XTV(8989.3,1,0),U,1)
8 I $D(^DIC(4.2,%,0)) S XQHERE=$P(^(0),U,1) S:'$L(XQHERE) XQHERE="Domain Unknown"
9 E S XQHERE="Domain Unknown"
10 ;
11SETUP ;Set up return mail message parameters
12 I $D(XMFROM),XMFROM=+XMFROM,$D(^VA(200,XMFROM,0)) S XQSND=$P(^(0),U)
13 S XMSUB="Server Request Reply From "_XQHERE
14 S XQMS(.5)=" "_XQDATE
15 S XQMS(1)=" "
16 S XQMS(2)="Sender: "_XMFROM
17 S XQMS(3)="Option name: "_XQSOP
18 S XQMS(4)="Subject: "_XQSUB
19 S XQMS(5)="Message #: "_XQMSG
20 S XQMS(6)=" "
21 S:'$D(XQSRV5) XQMS(7)=$S($L(XQER1)>3:"Error reported: "_XQMB6,$L(XQMB6)>3:"Warning: "_XQMB6,1:"No errors reported by the Menu System.")
22 S XQMS(8)=" "
23 I $D(XQSTXT) S XQN="" F XQI=10:1 S XQN=$O(XQSTXT(XQN)) Q:XQN="" S XQMS(XQI)=XQSTXT(XQN)
24 S XMTEXT="XQMS(",XMY(XMFROM)=""
25 D ^XMD
26 Q
27 ;
28NOUSER ;Come here if there is no legitimate user through Bulletin
29 S XMY(.5)="",XMTEXT="XQMS("
30 S XQMS(0)=" *** WARNING ***"
31 S XQMS(1)=" "
32 S XQMS(2)="A server option request was received from "_XMFROM
33 S XQMS(3)="for a background job on your system on "_XQDATE_"."
34 S XQMS(4)="The request was for option "_XQSOP
35 S XQMS(5)="Mail message #: "_XQMSG
36 S XQMS(6)=" "
37 S XQMS(7)="No active user could be identified through the bulletin "_XQMB
38 S XQMS(8)="Please insure that a mailgroup of active users is entered for"
39 S XQMS(9)="this bulletin. The security of your system may be compromised!"
40 S XQMS(10)=" "
41 S XQMS(11)="Other comments/errors: "_XQMB6
42 I $D(XQSTXT) S XQN="" F XQI=15:1 S XQN=$O(XQSTXT(XQN)) Q:XQN="" S XQMS(XQI)=XQSTXT(XQN)
43 D ^XMD
44 Q
Note: See TracBrowser for help on using the repository browser.