Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XMXAPIU

XMXAPIU.m

Go to the documentation of this file.
  1. XMXAPIU ;ISC-SF/GMB-APIs for users to use interactively ;03/26/2003 08:57
  1. ;;8.0;MailMan;**15**;Jun 28, 2002
  1. ; All entry points covered by DBIA 2774.
  1. ;
  1. ; The following are meant to be in an option's ROUTINE field.
  1. ; They expect that DUZ exists, and if the user is acting as a surrogate,
  1. ; that XMDUZ exists, too. Otherwise, XMDUZ will be set to DUZ.
  1. ; If the XMV variables do not exist, INIT^XMVVITAE will be called.
  1. Q
  1. READ ; Read/Manage messages in your Mailbox
  1. ; Needs XMDUZ
  1. I '$D(XMV) N XMV,XMDISPI,XMDUN,XMNOSEND,XMPRIV
  1. G MANAGE^XMJBM
  1. Q
  1. READNEW ; Read new messages in your Mailbox
  1. I '$D(XMV) N XMV,XMDISPI,XMDUN,XMNOSEND,XMPRIV
  1. G NEW^XMJBN
  1. Q
  1. SEND ; Send a message
  1. I '$D(XMV) N XMV,XMDISPI,XMDUN,XMNOSEND,XMPRIV
  1. G SEND^XMJMS
  1. Q
  1. ; The following are meant to be called from within a program.
  1. ; Output, common to the following:
  1. ; XMERR If there's any errors, then XMERR is set to the number of
  1. ; errors, otherwise XMERR is undefined.
  1. ; ^TMP("XMERR",$J,error number,"TEXT",line number)=error text
  1. SUBJ(XMSUBJ) ; Ask user for msg subject
  1. ; XMSUBJ (in/out) Subject
  1. N XMABORT
  1. K XMERR,^TMP("XMERR",$J)
  1. S XMABORT=0
  1. D SUBJ^XMJMS(.XMSUBJ,.XMABORT) Q:'XMABORT
  1. D ERRSET^XMXUTIL($S(XMABORT=1:37000,1:37001)) ; up-arrow out / time out
  1. Q
  1. TOWHOM(XMDUZ,XMZ,XMTYPE,XMINSTR) ; Ask user for msg addressees
  1. ; XMDUZ User's DUZ
  1. ; XMZ message number in ^XMB(3.9,
  1. ; XMTYPE
  1. ; XMINSTR
  1. I '$D(XMV) N XMV,XMDISPI,XMDUN,XMNOSEND,XMPRIV
  1. D ITOWHOM^XMXPARM(.XMDUZ,.XMZ,.XMTYPE,.XMINSTR) Q:$D(XMERR)
  1. D ITOWHOM^XMXTO(XMDUZ,.XMZ,XMTYPE,.XMINSTR)
  1. Q
  1. SHOWERR ; Print the errors to the screen.
  1. ; Displays the errors in ^TMP("XMERR",$J),
  1. ; and then kills XMERR and ^TMP("XMERR",$J).
  1. D SHOW^XMJERR
  1. Q