| 1 | XMXAPIU ;ISC-SF/GMB-APIs for users to use interactively ;03/26/2003 08:57
|
|---|
| 2 | ;;8.0;MailMan;**15**;Jun 28, 2002
|
|---|
| 3 | ; All entry points covered by DBIA 2774.
|
|---|
| 4 | ;
|
|---|
| 5 | ; The following are meant to be in an option's ROUTINE field.
|
|---|
| 6 | ; They expect that DUZ exists, and if the user is acting as a surrogate,
|
|---|
| 7 | ; that XMDUZ exists, too. Otherwise, XMDUZ will be set to DUZ.
|
|---|
| 8 | ; If the XMV variables do not exist, INIT^XMVVITAE will be called.
|
|---|
| 9 | Q
|
|---|
| 10 | READ ; Read/Manage messages in your Mailbox
|
|---|
| 11 | ; Needs XMDUZ
|
|---|
| 12 | I '$D(XMV) N XMV,XMDISPI,XMDUN,XMNOSEND,XMPRIV
|
|---|
| 13 | G MANAGE^XMJBM
|
|---|
| 14 | Q
|
|---|
| 15 | READNEW ; Read new messages in your Mailbox
|
|---|
| 16 | I '$D(XMV) N XMV,XMDISPI,XMDUN,XMNOSEND,XMPRIV
|
|---|
| 17 | G NEW^XMJBN
|
|---|
| 18 | Q
|
|---|
| 19 | SEND ; Send a message
|
|---|
| 20 | I '$D(XMV) N XMV,XMDISPI,XMDUN,XMNOSEND,XMPRIV
|
|---|
| 21 | G SEND^XMJMS
|
|---|
| 22 | Q
|
|---|
| 23 | ; The following are meant to be called from within a program.
|
|---|
| 24 | ; Output, common to the following:
|
|---|
| 25 | ; XMERR If there's any errors, then XMERR is set to the number of
|
|---|
| 26 | ; errors, otherwise XMERR is undefined.
|
|---|
| 27 | ; ^TMP("XMERR",$J,error number,"TEXT",line number)=error text
|
|---|
| 28 | SUBJ(XMSUBJ) ; Ask user for msg subject
|
|---|
| 29 | ; XMSUBJ (in/out) Subject
|
|---|
| 30 | N XMABORT
|
|---|
| 31 | K XMERR,^TMP("XMERR",$J)
|
|---|
| 32 | S XMABORT=0
|
|---|
| 33 | D SUBJ^XMJMS(.XMSUBJ,.XMABORT) Q:'XMABORT
|
|---|
| 34 | D ERRSET^XMXUTIL($S(XMABORT=1:37000,1:37001)) ; up-arrow out / time out
|
|---|
| 35 | Q
|
|---|
| 36 | TOWHOM(XMDUZ,XMZ,XMTYPE,XMINSTR) ; Ask user for msg addressees
|
|---|
| 37 | ; XMDUZ User's DUZ
|
|---|
| 38 | ; XMZ message number in ^XMB(3.9,
|
|---|
| 39 | ; XMTYPE
|
|---|
| 40 | ; XMINSTR
|
|---|
| 41 | I '$D(XMV) N XMV,XMDISPI,XMDUN,XMNOSEND,XMPRIV
|
|---|
| 42 | D ITOWHOM^XMXPARM(.XMDUZ,.XMZ,.XMTYPE,.XMINSTR) Q:$D(XMERR)
|
|---|
| 43 | D ITOWHOM^XMXTO(XMDUZ,.XMZ,XMTYPE,.XMINSTR)
|
|---|
| 44 | Q
|
|---|
| 45 | SHOWERR ; Print the errors to the screen.
|
|---|
| 46 | ; Displays the errors in ^TMP("XMERR",$J),
|
|---|
| 47 | ; and then kills XMERR and ^TMP("XMERR",$J).
|
|---|
| 48 | D SHOW^XMJERR
|
|---|
| 49 | Q
|
|---|
