XMASEC.m

XMASEC ;(WASH ISC)/GM-Secure Packman Message ; 4/7/09 2:54pm

 ;;8.0;MailMan;**41**;Jun 28, 2002;Build 4

 N XMABORT,XMPAKMAN

 S XMABORT=0,XMPAKMAN=1

 D PSECURE^XMPSEC(XMZ,.XMABORT)

 Q

XMASEC    ;(WASH ISC)/GM-Secure Packman Message ; 4/7/09 2:54pm

 +1       ;;8.0;MailMan;**41**;Jun 28, 2002;Build 4

 +2        NEW XMABORT,XMPAKMAN

 +3        SET XMABORT=0

           SET XMPAKMAN=1

 +4        DO PSECURE^XMPSEC(XMZ,.XMABORT)

 +5        QUIT