GMTSMAIL.m

GMTSMAIL ; SLC/JMH - HS mailman items ;01/25/2005 [1/27/05 9:01am]

 ;;2.7;Health Summary;**70**;Oct 20, 1995;Build 5

 ;read on ^XMB(3.8 field .01 covered by DBIA 10111

MAIL(MSG,OPTION) ;Call to notify on Scheduling Error return 

 N XMSUB,XMDUZ,XMZ,XMY,XMTEXT

 N GMTSMAIL,GMTSPARM

 S GMTSPARM=$O(^GMT(142.99,"B","HOSPITAL",0))

 S GMTSMAIL=$P($G(^GMT(142.99,$G(GMTSPARM),0)),U,6)

 Q:GMTSMAIL=""

 I $P(GMTSMAIL,";",2)="VA(200," S XMY(+GMTSMAIL)="" ;recipient

 I $P(GMTSMAIL,";",2)="XMB(3.8," S XMY("G."_$$GET1^DIQ(3.8,+GMTSMAIL_",",.01))="" ;mail group

 S XMSUB="Health Summary Report Aborted"

 S XMDUZ="Health Summary Package"

 D XMZ^XMA2 ;message stub

 S XMTEXT="XMTEXT"

 S XMTEXT(1)="The following task reported an error due to a problem when calling"

 S XMTEXT(2)="    the Scheduling package:"

 S XMTEXT(3)=""

 S XMTEXT(4)="    "_OPTION

 S XMTEXT(5)=""

 S XMTEXT(6)="Here is the error that was reported by the Scheduling package:"

 S XMTEXT(7)=""

 S XMTEXT(8)="    "_MSG

 S XMTEXT(9)=""

 S XMTEXT(10)="The task may have been aborted."

 D ENL^XMD

 D ENT1^XMD

 Q

GMTSMAIL  ; SLC/JMH - HS mailman items ;01/25/2005 [1/27/05 9:01am]

 +1       ;;2.7;Health Summary;**70**;Oct 20, 1995;Build 5

 +2       ;read on ^XMB(3.8 field .01 covered by DBIA 10111

MAIL(MSG,OPTION) ;Call to notify on Scheduling Error return 

 +1        NEW XMSUB,XMDUZ,XMZ,XMY,XMTEXT

 +2        NEW GMTSMAIL,GMTSPARM

 +3        SET GMTSPARM=$ORDER(^GMT(142.99,"B","HOSPITAL",0))

 +4        SET GMTSMAIL=$PIECE($GET(^GMT(142.99,$GET(GMTSPARM),0)),U,6)

 +5        IF GMTSMAIL=""

               QUIT 

 +6       ;recipient

           IF $PIECE(GMTSMAIL,";",2)="VA(200,"

               SET XMY(+GMTSMAIL)=""

 +7       ;mail group

           IF $PIECE(GMTSMAIL,";",2)="XMB(3.8,"

               SET XMY("G."_$$GET1^DIQ(3.8,+GMTSMAIL_",",.01))=""

 +8        SET XMSUB="Health Summary Report Aborted"

 +9        SET XMDUZ="Health Summary Package"

 +10      ;message stub

           DO XMZ^XMA2

 +11       SET XMTEXT="XMTEXT"

 +12       SET XMTEXT(1)="The following task reported an error due to a problem when calling"

 +13       SET XMTEXT(2)="    the Scheduling package:"

 +14       SET XMTEXT(3)=""

 +15       SET XMTEXT(4)="    "_OPTION

 +16       SET XMTEXT(5)=""

 +17       SET XMTEXT(6)="Here is the error that was reported by the Scheduling package:"

 +18       SET XMTEXT(7)=""

 +19       SET XMTEXT(8)="    "_MSG

 +20       SET XMTEXT(9)=""

 +21       SET XMTEXT(10)="The task may have been aborted."

 +22       DO ENL^XMD

 +23       DO ENT1^XMD

 +24       QUIT