Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
634 bytes
|
Line | |
---|
1 | XMA11A ;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 | ;
|
---|
8 | WRITE ; 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.