XMTDL1.m

XMTDL1 ;ISC-SF/GMB-Deliver local mail to mailbox (cont.) ;04/15/2003  12:53

 ;;8.0;MailMan;**18**;Jun 28, 2002

BRODCAST(XMZ,XMZSUBJ,XMZFROM,XMFROM,XMK,XMDEL,XMZPDATE,XMZBSKT,XMACNT) ;

 N XMTO,XMREC,XMIA,XMNOFWD

 ; Don't forward message if this is FORUM and it was sent to G.EVERYBODY.

 S XMNOFWD=$S('$$FORUM^XMXADDRD:0,'$D(^XMB(3.9,XMZ,6,"B","G.EVERYBODY")):0,1:1)

 D INIT^XMXADDR

 S (XMTO,XMIA)=0

 F  S XMTO=$O(^XMB(3.7,XMTO)) Q:'XMTO  D

 . Q:$P($G(^VA(200,XMTO,0)),U,3)=""!($P($G(^(.1)),U,2)="")!($P($G(^(201)),U)="")  ; Quit if no access code, or verify code, or primary menu

 . Q:$D(^XUSEC("XM NO BROADCASTS",XMTO))  ; Quit if user doesn't want broadcast messages

 . S XMACNT=XMACNT+1

 . S XMREC=$G(^XMB(3.7,XMTO,0)) Q:XMREC=""

 . I $P(XMREC,U,2)=""!XMNOFWD D DELIVER^XMTDL2(XMTO,XMZ,XMZSUBJ,XMZFROM,XMFROM,0,$G(XMK(XMTO)),$G(XMDEL(XMTO),XMZPDATE),XMZBSKT) Q

 . N XMERROR,XMFULL,XMFWDADD

 . S XMFWDADD=XMTO

 . D REMOTE^XMXADDR3(.5,$P(XMREC,U,2),0,"","",.XMFULL)

 . I $D(XMERROR) D DELFWD^XMVVITA(XMTO,$P(XMREC,U,2),XMERROR)

 . I '$D(XMERROR),$D(^TMP("XMY",$J,XMFULL)) S ^TMP("XMY",$J,XMFULL,"F")=XMTO

 . I $P(XMREC,U,8)!$D(XMERROR)!'$D(^TMP("XMY",$J,$G(XMFULL,"?"))) D DELIVER^XMTDL2(XMTO,XMZ,XMZSUBJ,XMZFROM,XMFROM,0,$G(XMK(XMTO)),$G(XMDEL(XMTO),XMZPDATE),XMZBSKT)

 S XMTO=0

 F  S XMTO=$O(^TMP("XMY",$J,XMTO)) Q:+XMTO'=XMTO  K ^(XMTO) ; Don't forward to locals

 I $$GOTADDR^XMXADDR D

 . N XMINSTR

 . S XMINSTR("FWD BY")=""

 . D FWD^XMKP(.5,XMZ,.XMINSTR)

 D CLEANUP^XMXADDR

 Q

STATS(XMGROUP,XMQUEUE,XMMCNT,XMRCNT,XMACNT) ;

 ; The following global is incremented in STATS^XMKPLQ

 ; # messages in queue^# recipients anticipated

 N XMSTATS

 L +^XMBPOST("QSTATS",XMGROUP,XMQUEUE)

 S XMSTATS=^XMBPOST(XMGROUP,XMQUEUE),^(XMQUEUE)=($P(XMSTATS,U)-XMMCNT)_U_($P(XMSTATS,U,2)-XMRCNT)

 L -^XMBPOST("QSTATS",XMGROUP,XMQUEUE)

 ; The following global is incremented here only.

 ; # recipients delivered

 L +^XMBPOST("GSTATS",XMGROUP)

 S ^(XMGROUP)=$G(^XMBPOST("STATS",XMGROUP))+$G(XMACNT)

 L -^XMBPOST("GSTATS",XMGROUP)

 Q

XMTDL1    ;ISC-SF/GMB-Deliver local mail to mailbox (cont.) ;04/15/2003  12:53

 +1       ;;8.0;MailMan;**18**;Jun 28, 2002

BRODCAST(XMZ,XMZSUBJ,XMZFROM,XMFROM,XMK,XMDEL,XMZPDATE,XMZBSKT,XMACNT) ;

 +1        NEW XMTO,XMREC,XMIA,XMNOFWD

 +2       ; Don't forward message if this is FORUM and it was sent to G.EVERYBODY.

 +3        SET XMNOFWD=$SELECT('$$FORUM^XMXADDRD:0,'$DATA(^XMB(3.9,XMZ,6,"B","G.EVERYBODY")):0,1:1)

 +4        DO INIT^XMXADDR

 +5        SET (XMTO,XMIA)=0

 +6        FOR 

               SET XMTO=$ORDER(^XMB(3.7,XMTO))

               IF 'XMTO

                   QUIT 

               Begin DoDot:1

 +7       ; Quit if no access code, or verify code, or primary menu

                   IF $PIECE($GET(^VA(200,XMTO,0)),U,3)=""!($PIECE($GET(^(.1)),U,2)="")!($PIECE($GET(^(201)),U)="")

                       QUIT 

 +8       ; Quit if user doesn't want broadcast messages

                   IF $DATA(^XUSEC("XM NO BROADCASTS",XMTO))

                       QUIT 

 +9                SET XMACNT=XMACNT+1

 +10               SET XMREC=$GET(^XMB(3.7,XMTO,0))

                   IF XMREC=""

                       QUIT 

 +11               IF $PIECE(XMREC,U,2)=""!XMNOFWD

                       DO DELIVER^XMTDL2(XMTO,XMZ,XMZSUBJ,XMZFROM,XMFROM,0,$GET(XMK(XMTO)),$GET(XMDEL(XMTO),XMZPDATE),XMZBSKT)

                       QUIT 

 +12               NEW XMERROR,XMFULL,XMFWDADD

 +13               SET XMFWDADD=XMTO

 +14               DO REMOTE^XMXADDR3(.5,$PIECE(XMREC,U,2),0,"","",.XMFULL)

 +15               IF $DATA(XMERROR)

                       DO DELFWD^XMVVITA(XMTO,$PIECE(XMREC,U,2),XMERROR)

 +16               IF '$DATA(XMERROR)

                       IF $DATA(^TMP("XMY",$JOB,XMFULL))

                           SET ^TMP("XMY",$JOB,XMFULL,"F")=XMTO

 +17               IF $PIECE(XMREC,U,8)!$DATA(XMERROR)!'$DATA(^TMP("XMY",$JOB,$GET(XMFULL,"?")))

                       DO DELIVER^XMTDL2(XMTO,XMZ,XMZSUBJ,XMZFROM,XMFROM,0,$GET(XMK(XMTO)),$GET(XMDEL(XMTO),XMZPDATE),XMZBSKT)

               End DoDot:1

 +18       SET XMTO=0

 +19      ; Don't forward to locals

           FOR 

               SET XMTO=$ORDER(^TMP("XMY",$JOB,XMTO))

               IF +XMTO'=XMTO

                   QUIT 

               KILL ^(XMTO)

 +20       IF $$GOTADDR^XMXADDR

               Begin DoDot:1

 +21               NEW XMINSTR

 +22               SET XMINSTR("FWD BY")=""

 +23               DO FWD^XMKP(.5,XMZ,.XMINSTR)

               End DoDot:1

 +24       DO CLEANUP^XMXADDR

 +25       QUIT 

STATS(XMGROUP,XMQUEUE,XMMCNT,XMRCNT,XMACNT) ;

 +1       ; The following global is incremented in STATS^XMKPLQ

 +2       ; # messages in queue^# recipients anticipated

 +3        NEW XMSTATS

 +4        LOCK +^XMBPOST("QSTATS",XMGROUP,XMQUEUE)

 +5        SET XMSTATS=^XMBPOST(XMGROUP,XMQUEUE)

           SET ^(XMQUEUE)=($PIECE(XMSTATS,U)-XMMCNT)_U_($PIECE(XMSTATS,U,2)-XMRCNT)

 +6        LOCK -^XMBPOST("QSTATS",XMGROUP,XMQUEUE)

 +7       ; The following global is incremented here only.

 +8       ; # recipients delivered

 +9        LOCK +^XMBPOST("GSTATS",XMGROUP)

 +10       SET ^(XMGROUP)=$GET(^XMBPOST("STATS",XMGROUP))+$GET(XMACNT)

 +11       LOCK -^XMBPOST("GSTATS",XMGROUP)

 +12       QUIT