source: WorldVistAEHR/trunk/r/HEALTH_SUMMARY-GMTS/GMTSMAIL.m@ 1006

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

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1GMTSMAIL ; SLC/JMH - HS mailman items ;01/25/2005 [1/27/05 9:01am]
2 ;;2.7;Health Summary;**70**;Oct 20, 1995;Build 5
3 ;read on ^XMB(3.8 field .01 covered by DBIA 10111
4MAIL(MSG,OPTION) ;Call to notify on Scheduling Error return
5 N XMSUB,XMDUZ,XMZ,XMY,XMTEXT
6 N GMTSMAIL,GMTSPARM
7 S GMTSPARM=$O(^GMT(142.99,"B","HOSPITAL",0))
8 S GMTSMAIL=$P($G(^GMT(142.99,$G(GMTSPARM),0)),U,6)
9 Q:GMTSMAIL=""
10 I $P(GMTSMAIL,";",2)="VA(200," S XMY(+GMTSMAIL)="" ;recipient
11 I $P(GMTSMAIL,";",2)="XMB(3.8," S XMY("G."_$$GET1^DIQ(3.8,+GMTSMAIL_",",.01))="" ;mail group
12 S XMSUB="Health Summary Report Aborted"
13 S XMDUZ="Health Summary Package"
14 D XMZ^XMA2 ;message stub
15 S XMTEXT="XMTEXT"
16 S XMTEXT(1)="The following task reported an error due to a problem when calling"
17 S XMTEXT(2)=" the Scheduling package:"
18 S XMTEXT(3)=""
19 S XMTEXT(4)=" "_OPTION
20 S XMTEXT(5)=""
21 S XMTEXT(6)="Here is the error that was reported by the Scheduling package:"
22 S XMTEXT(7)=""
23 S XMTEXT(8)=" "_MSG
24 S XMTEXT(9)=""
25 S XMTEXT(10)="The task may have been aborted."
26 D ENL^XMD
27 D ENT1^XMD
28 Q
Note: See TracBrowser for help on using the repository browser.