XMUT5G ;(WASH ISC)/CAP-Validate Mail Group Members ;04/17/2002 12:00
;;8.0;MailMan;;Jun 28, 2002
S DIC="^XMB(3.8,",DIC(0)="AEO" D ^DIC
S A=0,XMA0=+Y,C=0 W !,"Analyzing "_$P(Y,U,2)_" Mail Group",!!
A S A=$O(^XMB(3.8,XMA0,1,"B",A)) G Q:'A
S C=C+1 I C#100=0 W "***"_A_"*** "
S F=$G(^VA(200,A,0))
I '$L($P(F,U,2))!$L($P(F,U,11)) W A," "
G A
Q K A,C,XMA0,DIC,DTOUT,DUOUT Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMUT5G 386 printed Oct 16, 2024@18:14:22 Page 2
XMUT5G ;(WASH ISC)/CAP-Validate Mail Group Members ;04/17/2002 12:00
+1 ;;8.0;MailMan;;Jun 28, 2002
+2 SET DIC="^XMB(3.8,"
SET DIC(0)="AEO"
DO ^DIC
+3 SET A=0
SET XMA0=+Y
SET C=0
WRITE !,"Analyzing "_$PIECE(Y,U,2)_" Mail Group",!!
A SET A=$ORDER(^XMB(3.8,XMA0,1,"B",A))
if 'A
GOTO Q
+1 SET C=C+1
IF C#100=0
WRITE "***"_A_"*** "
+2 SET F=$GET(^VA(200,A,0))
+3 IF '$LENGTH($PIECE(F,U,2))!$LENGTH($PIECE(F,U,11))
WRITE A," "
+4 GOTO A
Q KILL A,C,XMA0,DIC,DTOUT,DUOUT
QUIT
