Last change
on this file since 632 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
318 bytes
|
Line | |
---|
1 | XMA ;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 | ;
|
---|
8 | REC ; 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
|
---|
13 | NNEW Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.