| 1 | GMTSMAIL ; 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
|
|---|
| 4 | MAIL(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
|
|---|
