BGUMAIL.m

BGUMAIL ; IHS/OIT/MJL - BGU MAILMAN MESSAGE [ 04/21/2006  9:12 AM ]

 ;;1.5;BGU;**2**;MAY 26, 2005

EN(BGUARRAY,BGUDATA,BGUSBJ,BGUGROUP) ;PEP FROM REMOTE PROCEDURE BGU MAILMAN MESSAGE

CTL ;

 D MAIL,KILL

 S BGUARRAY(1)=1,BGUARRAY(2)="OK"

 Q

 ;

MAIL ;

 S XMSUB=BGUSBJ,XMTEXT="BGUMLMSG(",XMDUZ=DUZ,XMY("G."_BGUGROUP)="",XMCHAN=1

 F BGUN=1:1:$L(BGUDATA,$C(175)) S BGUMLMSG(BGUN)=$P(BGUDATA,$C(175),BGUN)

 D ^XMD

 Q

 ;

KILL ;

 K BGUMLMSG,BGUN,XMCHAN,XMDUZ,XMTEXT,XMY

 Q

BGUMAIL   ; IHS/OIT/MJL - BGU MAILMAN MESSAGE [ 04/21/2006  9:12 AM ]

 +1       ;;1.5;BGU;**2**;MAY 26, 2005

EN(BGUARRAY,BGUDATA,BGUSBJ,BGUGROUP) ;PEP FROM REMOTE PROCEDURE BGU MAILMAN MESSAGE

CTL       ;

 +1        DO MAIL

           DO KILL

 +2        SET BGUARRAY(1)=1

           SET BGUARRAY(2)="OK"

 +3        QUIT 

 +4       ;

MAIL      ;

 +1        SET XMSUB=BGUSBJ

           SET XMTEXT="BGUMLMSG("

           SET XMDUZ=DUZ

           SET XMY("G."_BGUGROUP)=""

           SET XMCHAN=1

 +2        FOR BGUN=1:1:$LENGTH(BGUDATA,$CHAR(175))

               SET BGUMLMSG(BGUN)=$PIECE(BGUDATA,$CHAR(175),BGUN)

 +3        DO ^XMD

 +4        QUIT 

 +5       ;

KILL      ;

 +1        KILL BGUMLMSG,BGUN,XMCHAN,XMDUZ,XMTEXT,XMY

 +2        QUIT