Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XMUT5R2

XMUT5R2.m

Go to the documentation of this file.
  1. XMUT5R2 ;(WASH ISC)/CAP-Daily Reports on mail deliveries ;04/17/2002 12:07
  1. ;;8.0;MailMan;;Jun 28, 2002
  1. ; Entry points used by MailMan options (not covered by DBIA):
  1. ; ACT XMMGR-BKFILER-ACT
  1. ; ASK XMMGR-BKFILER-EDIT-NORMALIZED
  1. ; GROUP XMMGR-BKFILER-GROUP
  1. ; STAT XMMGR-BKFILER-STAT
  1. ; TAB XMMGR-BKFILER-TABBED-STATS
  1. ; WAIT XMMGR-BKFILER-WAIT
  1. 0 ;
  1. N Y
  1. S XMA=$$FMADD^XLFDT(DT,-1)
  1. I '$D(ZTQUEUED) S XMA=$$DATE("RUN",$$FMTE^XLFDT(XMA,"2Z")) Q:XMA=""
  1. S XMB=XMA_".2359"
  1. S Y=DT D DD^%DT S XMD=Y
  1. Q
  1. GO ;Call FileMan to produce report
  1. S XMC=$P(^XMB("NETNAME"),".")_" "_L
  1. I '$D(ZTQUEUED) W !!,"Calling FileMan template ..."
  1. ;
  1. ;XMA=Start Date FM format
  1. ;XMAH=Start Date $H format
  1. ;XMB=End Date FM format
  1. ;XMBH=End Date $H format
  1. S XMV=^%ZOSF("PROD")
  1. S:'$D(BY) BY=.01 S FR=XMA,TO=XMB,DIC="^XMBX(4.2998,"
  1. S:$D(ZTQUEUED) IOP=ZTIO D EN1^DIP
  1. Q ;
  1. K BY,DIC,DIS,FLDS,FROM,TO,XMA,XMB,XMAH,XMBH,X,Y,Z,%ZIS,ZTRTN,ZTSAVE,ZTDTH
  1. I '$D(ZTQUEUED) K ZTSK
  1. Q
  1. DATE(X,Z) ;Calculate Date - Ask Start and End Dates
  1. N DUOUT,DTOUT,XMA,DIR,Y S DIR(0)="D^::XEP",DIR("A")=X_" Date",DIR("B")=Z
  1. D D ^DIR K DIRUT I $D(DUOUT)!$D(DTOUT) Q ""
  1. S XMA=Y I XMA'?7N.E D ^%DT X XMA=Y
  1. D NOW^%DTC I %-XMA<0 W !,$C(7)," No Future Dates !!!" G D
  1. Q XMA
  1. ACT ;Active Users verses Deliveries Report
  1. D 0 Q:XMA="" K BY
  1. S FLDS="[XMMGR-BKFILER-ACTIVE_USERS/DEL]",L="Active Users/Deliveries Report"
  1. G GO
  1. GROUP ;Deliveries by group
  1. D 0 Q:XMA="" K BY
  1. S FLDS="[XMMGR-BKFILER-DEL_BY_GROUP]",L="Deliveries by Group Report"
  1. G GO
  1. QUEUE ;Queue Length
  1. D 0 Q:XMA="" K BY
  1. S FLDS="[XMMGR-BKFILER-LENGTH_OF_QUEUES]",L="Length of Delivery Queues Report"
  1. G GO
  1. WAIT ;Queue Wait
  1. D 0 Q:XMA="" K BY
  1. S FLDS="[XMMGR-BKFILER-QUEUE-WAIT]",L="Active Users/Deliveries Report"
  1. G GO
  1. STAT ;Statistics / Active Users, Deliveries, Queue Wait, Response Time
  1. D 0 Q:XMA="" K BY
  1. S FLDS="[XMMGR-BKFILER-STATS-PLUS]",L="Statistics Report"
  1. G GO
  1. TAB ;Statistics for download to graphics package
  1. D 0 Q:XMA="" S BY="@.01"
  1. S FLDS="[XMMGR-BKFILER-STATS/TABBED]",L=""
  1. G GO
  1. ASK ;Ask parameters
  1. N DIRUT F X=1:1:5 S A=$$ASS(X) Q:$D(DIRUT) S $P(^XMB(1,1,7),",",X)=A
  1. Q
  1. ASS(I) N DIR,X,Y,Z
  1. S X=$P("Active Users,Lines Displayed,Message & Response Deliveries,Queue Lengths,Response Time",",",I)
  1. S DIR(0)="N^.1:9999999999",DIR("A")="Enter normalized "_X,DIR("B")=$P($G(^XMB(1,1,7)),",",I)
  1. D ^DIR
  1. Q X