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

XMA.m

Go to the documentation of this file.

XMA ;ISC-SF/GMB-Read Mail API ;04/17/2002  07:08

 ;;8.0;MailMan;;Jun 28, 2002

 ; Was (WASH ISC)/THM/CAP

 ; Entry points (DBIA 1284):

 ; REC    Read Mail

REC ; Read (Manage) Mail

 ; All input variables ignored

 I '$G(DUZ) W !,$C(7),$$EZBLD^DIALOG(38105) Q  ;You do not have a DUZ.

 D EN^XM,MANAGE^XMJBM

NNEW Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMA   331     printed  Apr 09, 2024@21:12:35                                                                                                                                                                                                          Page 2

XMA       ;ISC-SF/GMB-Read Mail API ;04/17/2002  07:08

 +1       ;;8.0;MailMan;;Jun 28, 2002

 +2       ; Was (WASH ISC)/THM/CAP

 +3       ;

 +4       ; Entry points (DBIA 1284):

 +5       ; REC    Read Mail

 +6       ;

REC       ; Read (Manage) Mail

 +1       ; All input variables ignored

 +2       ;You do not have a DUZ.

           IF '$GET(DUZ)

               WRITE !,$CHAR(7),$$EZBLD^DIALOG(38105)

               QUIT

 +3        DO EN^XM

           DO MANAGE^XMJBM

 +4        QUIT

NNEW       QUIT