source: FOIAVistA/trunk/r/MAILMAN-XM/XMA.m@ 811

Last change on this file since 811 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 318 bytes
Line 
1XMA ;ISC-SF/GMB-Read Mail API ;04/17/2002 07:08
2 ;;8.0;MailMan;;Jun 28, 2002
3 ; Was (WASH ISC)/THM/CAP
4 ;
5 ; Entry points (DBIA 1284):
6 ; REC Read Mail
7 ;
8REC ; Read (Manage) Mail
9 ; All input variables ignored
10 I '$G(DUZ) W !,$C(7),$$EZBLD^DIALOG(38105) Q ;You do not have a DUZ.
11 D EN^XM,MANAGE^XMJBM
12 Q
13NNEW Q
Note: See TracBrowser for help on using the repository browser.