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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSMAIL 1090 printed Dec 13, 2024@01:58:05 Page 2
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
