XQSRV3 ;SEA/MJM - Server to Mailman utilities; [5/16/02 12:48pm]
;;8.0;KERNEL;**231,235**;Jul 10, 1995
;
HERE ;Find the name of this place
;N U,%,XMFROM,XMSUB,XMTEXT,XQDATE,XQER1,XQHERE,XQI,XQMB,XQMB6
;N XQMSG,XQN,XQSND,XQSOP,XQSRV5,XQSUB,XQMS,XMY,XQSTXT
S U="^",%=$P(^XTV(8989.3,1,0),U,1)
I $D(^DIC(4.2,%,0)) S XQHERE=$P(^(0),U,1) S:'$L(XQHERE) XQHERE="Domain Unknown"
E S XQHERE="Domain Unknown"
;
SETUP ;Set up return mail message parameters
I $D(XMFROM),XMFROM=+XMFROM,$D(^VA(200,XMFROM,0)) S XQSND=$P(^(0),U)
S XMSUB="Server Request Reply From "_XQHERE
S XQMS(.5)=" "_XQDATE
S XQMS(1)=" "
S XQMS(2)="Sender: "_XMFROM
S XQMS(3)="Option name: "_XQSOP
S XQMS(4)="Subject: "_XQSUB
S XQMS(5)="Message #: "_XQMSG
S XQMS(6)=" "
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.")
S XQMS(8)=" "
I $D(XQSTXT) S XQN="" F XQI=10:1 S XQN=$O(XQSTXT(XQN)) Q:XQN="" S XQMS(XQI)=XQSTXT(XQN)
S XMTEXT="XQMS(",XMY(XMFROM)=""
D ^XMD
Q
;
NOUSER ;Come here if there is no legitimate user through Bulletin
S XMY(.5)="",XMTEXT="XQMS("
S XQMS(0)=" *** WARNING ***"
S XQMS(1)=" "
S XQMS(2)="A server option request was received from "_XMFROM
S XQMS(3)="for a background job on your system on "_XQDATE_"."
S XQMS(4)="The request was for option "_XQSOP
S XQMS(5)="Mail message #: "_XQMSG
S XQMS(6)=" "
S XQMS(7)="No active user could be identified through the bulletin "_XQMB
S XQMS(8)="Please insure that a mailgroup of active users is entered for"
S XQMS(9)="this bulletin. The security of your system may be compromised!"
S XQMS(10)=" "
S XQMS(11)="Other comments/errors: "_XQMB6
I $D(XQSTXT) S XQN="" F XQI=15:1 S XQN=$O(XQSTXT(XQN)) Q:XQN="" S XQMS(XQI)=XQSTXT(XQN)
D ^XMD
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXQSRV3 1857 printed Dec 13, 2024@02:06:42 Page 2
XQSRV3 ;SEA/MJM - Server to Mailman utilities; [5/16/02 12:48pm]
+1 ;;8.0;KERNEL;**231,235**;Jul 10, 1995
+2 ;
HERE ;Find the name of this place
+1 ;N U,%,XMFROM,XMSUB,XMTEXT,XQDATE,XQER1,XQHERE,XQI,XQMB,XQMB6
+2 ;N XQMSG,XQN,XQSND,XQSOP,XQSRV5,XQSUB,XQMS,XMY,XQSTXT
+3 SET U="^"
SET %=$PIECE(^XTV(8989.3,1,0),U,1)
+4 IF $DATA(^DIC(4.2,%,0))
SET XQHERE=$PIECE(^(0),U,1)
if '$LENGTH(XQHERE)
SET XQHERE="Domain Unknown"
+5 IF '$TEST
SET XQHERE="Domain Unknown"
+6 ;
SETUP ;Set up return mail message parameters
+1 IF $DATA(XMFROM)
IF XMFROM=+XMFROM
IF $DATA(^VA(200,XMFROM,0))
SET XQSND=$PIECE(^(0),U)
+2 SET XMSUB="Server Request Reply From "_XQHERE
+3 SET XQMS(.5)=" "_XQDATE
+4 SET XQMS(1)=" "
+5 SET XQMS(2)="Sender: "_XMFROM
+6 SET XQMS(3)="Option name: "_XQSOP
+7 SET XQMS(4)="Subject: "_XQSUB
+8 SET XQMS(5)="Message #: "_XQMSG
+9 SET XQMS(6)=" "
+10 if '$DATA(XQSRV5)
SET XQMS(7)=$SELECT($LENGTH(XQER1)>3:"Error reported: "_XQMB6,$LENGTH(XQMB6)>3:"Warning: "_XQMB6,1:"No errors reported by the Menu System.")
+11 SET XQMS(8)=" "
+12 IF $DATA(XQSTXT)
SET XQN=""
FOR XQI=10:1
SET XQN=$ORDER(XQSTXT(XQN))
if XQN=""
QUIT
SET XQMS(XQI)=XQSTXT(XQN)
+13 SET XMTEXT="XQMS("
SET XMY(XMFROM)=""
+14 DO ^XMD
+15 QUIT
+16 ;
NOUSER ;Come here if there is no legitimate user through Bulletin
+1 SET XMY(.5)=""
SET XMTEXT="XQMS("
+2 SET XQMS(0)=" *** WARNING ***"
+3 SET XQMS(1)=" "
+4 SET XQMS(2)="A server option request was received from "_XMFROM
+5 SET XQMS(3)="for a background job on your system on "_XQDATE_"."
+6 SET XQMS(4)="The request was for option "_XQSOP
+7 SET XQMS(5)="Mail message #: "_XQMSG
+8 SET XQMS(6)=" "
+9 SET XQMS(7)="No active user could be identified through the bulletin "_XQMB
+10 SET XQMS(8)="Please insure that a mailgroup of active users is entered for"
+11 SET XQMS(9)="this bulletin. The security of your system may be compromised!"
+12 SET XQMS(10)=" "
+13 SET XQMS(11)="Other comments/errors: "_XQMB6
+14 IF $DATA(XQSTXT)
SET XQN=""
FOR XQI=15:1
SET XQN=$ORDER(XQSTXT(XQN))
if XQN=""
QUIT
SET XQMS(XQI)=XQSTXT(XQN)
+15 DO ^XMD
+16 QUIT
