source: WorldVistAEHR/trunk/r/MAILMAN-XM/XMUT5G.m@ 861

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

initial load of WorldVistAEHR

File size: 376 bytes
RevLine 
[613]1XMUT5G ;(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",!!
5A 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
10Q K A,C,XMA0,DIC,DTOUT,DUOUT Q
Note: See TracBrowser for help on using the repository browser.