- 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
- Q
- NNEW Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMA 331 printed Feb 18, 2025@23:36:52 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
