XMUT5G.m

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 ---XMUT5G   386     printed  Apr 09, 2024@21:14:57                                                                                                                                                                                                       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