|
Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
634 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
