| 1 | XMUT5R1 ;(WASH ISC)/CAP-Mail Statistics Report ;05/28/2002 07:19
|
|---|
| 2 | ;;8.0;MailMan;;Jun 28, 2002
|
|---|
| 3 | ; Entry points used by MailMan options (not covered by DBIA):
|
|---|
| 4 | ; STATS XMMGR-NEWMESS/LOGON-STATS
|
|---|
| 5 | ; 0 XMMGR-BKFILER-LONGTERM-STATS (not part of 8.0)
|
|---|
| 6 | STATS ;
|
|---|
| 7 | 0 ;
|
|---|
| 8 | N XMEND,XMSTART,XMABORT
|
|---|
| 9 | S XMABORT=0
|
|---|
| 10 | D INIT(.XMSTART,.XMEND,.XMABORT) Q:XMABORT
|
|---|
| 11 | D REPORT(XMSTART,XMEND)
|
|---|
| 12 | Q
|
|---|
| 13 | INIT(XMSTART,XMEND,XMABORT) ;
|
|---|
| 14 | N DIR,X,Y,DIRUT
|
|---|
| 15 | S XMEND=$$FMADD^XLFDT($E(DT,1,5)_"01",-1) ; last day of last month
|
|---|
| 16 | S XMSTART=$E(XMEND,1,5)_"01" ; first day of last month
|
|---|
| 17 | Q:$D(ZTQUEUED)
|
|---|
| 18 | S DIR("A")="START Date"
|
|---|
| 19 | S DIR("B")=$$FMTE^XLFDT(XMSTART,"2D") ; MM/DD/YY
|
|---|
| 20 | S DIR(0)="D^:"_$$FMADD^XLFDT(DT,-1)_":EX"
|
|---|
| 21 | D ^DIR I $D(DIRUT) S XMABORT=1 Q
|
|---|
| 22 | S XMSTART=Y
|
|---|
| 23 | K X,Y,DIR,DIRUT
|
|---|
| 24 | S XMEND=$$FMADD^XLFDT(XMSTART,-1)
|
|---|
| 25 | S XMEND=$$SCH^XLFDT("1M",XMEND) ; 1 month from XMSTART
|
|---|
| 26 | S DIR("A")="END Date"
|
|---|
| 27 | S DIR("B")=$$FMTE^XLFDT($$MIN^XLFMTH(XMEND,DT),"2D") ; MM/DD/YY
|
|---|
| 28 | S DIR(0)="D^"_$$FMADD^XLFDT(XMSTART,+1)_":DT:EX"
|
|---|
| 29 | D ^DIR I $D(DIRUT) S XMABORT=1 Q
|
|---|
| 30 | S XMEND=Y
|
|---|
| 31 | Q
|
|---|
| 32 | REPORT(XMA,XMB) ;
|
|---|
| 33 | ZTSK ;Entry for Tasked report
|
|---|
| 34 | ;XMA=Start Date FM format
|
|---|
| 35 | ;XMAH=Start Date $H format
|
|---|
| 36 | ;XMB=End Date FM format
|
|---|
| 37 | ;XMBH=End Date $H format
|
|---|
| 38 | N XMC,XMD,XMV,BY,DIC,FLDS,FR,TO,L,X
|
|---|
| 39 | S X=XMB
|
|---|
| 40 | I '$D(ZTQUEUED) W !!,"Calling FileMan template ..."
|
|---|
| 41 | S XMD=$$FMTE^XLFDT(DT,"1D") ; mmm dd, yyyy
|
|---|
| 42 | S XMC=$P(^XMB("NETNAME"),".")_" MailMan Activity Report"
|
|---|
| 43 | S XMV=^%ZOSF("PROD")
|
|---|
| 44 | S BY="[XMMGR-BKFILER-DAY@23:30]",FLDS="[XMMGR-BKFILER-LONGTERM-STATS]",FR=XMA,TO=XMB_".2359",DIC="^XMBX(4.2998,",L="Report on Statistics"
|
|---|
| 45 | S:$D(ZTQUEUED) IOP=ZTIO
|
|---|
| 46 | D EN1^DIP
|
|---|
| 47 | K DIS,XMA,XMB,XMAH,XMBH,X,Y,Z,%ZIS,ZTRTN,ZTSAVE,ZTDTH
|
|---|
| 48 | I '$D(ZTQUEUED) K ZTSK
|
|---|
| 49 | Q
|
|---|
