source: WorldVistAEHR/trunk/r/MAILMAN-XM/XMUT5R1.m@ 1651

Last change on this file since 1651 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1XMUT5R1 ;(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)
6STATS ;
70 ;
8 N XMEND,XMSTART,XMABORT
9 S XMABORT=0
10 D INIT(.XMSTART,.XMEND,.XMABORT) Q:XMABORT
11 D REPORT(XMSTART,XMEND)
12 Q
13INIT(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
32REPORT(XMA,XMB) ;
33ZTSK ;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
Note: See TracBrowser for help on using the repository browser.