|
Last change
on this file since 632 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
376 bytes
|
| Line | |
|---|
| 1 | XMUT5G ;(WASH ISC)/CAP-Validate Mail Group Members ;04/17/2002 12:00
|
|---|
| 2 | ;;8.0;MailMan;;Jun 28, 2002
|
|---|
| 3 | S DIC="^XMB(3.8,",DIC(0)="AEO" D ^DIC
|
|---|
| 4 | S A=0,XMA0=+Y,C=0 W !,"Analyzing "_$P(Y,U,2)_" Mail Group",!!
|
|---|
| 5 | A S A=$O(^XMB(3.8,XMA0,1,"B",A)) G Q:'A
|
|---|
| 6 | S C=C+1 I C#100=0 W "***"_A_"*** "
|
|---|
| 7 | S F=$G(^VA(200,A,0))
|
|---|
| 8 | I '$L($P(F,U,2))!$L($P(F,U,11)) W A," "
|
|---|
| 9 | G A
|
|---|
| 10 | Q K A,C,XMA0,DIC,DTOUT,DUOUT Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
