XQSRV3.m

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 ---XQSRV3   1857     printed  Apr 09, 2024@21:19:16                                                                                                                                                                                                      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