source: WorldVistAEHR/trunk/r/MAILMAN-XM/XMA11A.m@ 1076

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

initial load of WorldVistAEHR

File size: 634 bytes
Line 
1XMA11A ;ISC-SF/GMB-Send/Answer a Message API ;04/18/2002 07:24
2 ;;8.0;MailMan;;Jun 28, 2002
3 ; Was (WASH ISC)/CAP/THM
4 ;
5 ; Entry points (DBIA 1233):
6 ; WRITE Send a message or Answer a message
7 ;
8WRITE ; Send a message or Answer a message
9 ; Needs:
10 ; XMDUZ user number
11 ; X if $E(X)="A", then send an answer, else send a message
12 ; XMZ original message number, if we are sending an answer
13 N XMV
14 D INITAPI^XMVVITAE
15 I $E(X)'="A" D SEND^XMJMS Q
16 N XMZREC
17 S XMZREC=^XMB(3.9,XMZ,0)
18 K XMERR,^TMP("XMERR",$J)
19 I '$$ANSWER^XMXSEC(XMDUZ,XMZ,XMZREC) D SHOW^XMJERR Q
20 D ANSWER^XMJMA(XMDUZ,XMZ,$P(XMZREC,U,1),$P(XMZREC,U,2))
21 Q
Note: See TracBrowser for help on using the repository browser.