| 1 | XMUT5B ;(WASH ISC)/CAP-Gather Delivery Queue Data ;04/17/2002 12:05
|
|---|
| 2 | ;;8.0;MailMan;;Jun 28, 2002
|
|---|
| 3 | ;;XX.XX
|
|---|
| 4 | ;
|
|---|
| 5 | ;M("O") & R("O") = #items ^ timestamp of oldest ^ #deliveries
|
|---|
| 6 | ;M("T") & R("T") = same as "O" above except for all messages/responses
|
|---|
| 7 | GO ;S X="USERY^XMUT5B",@^%ZOSF("TRAP"),X=$ZC(%SPAWN,"SUBMIT/QUE=FORUM7_BATCH LEEUSER.COM")
|
|---|
| 8 | GP ;
|
|---|
| 9 | N I,XMFWD
|
|---|
| 10 | S XMFWD=$$EZBLD^DIALOG(36223) ; (f)
|
|---|
| 11 | S M("T")=0
|
|---|
| 12 | F I=1:1:10 S M("O",I)=0 I $D(^XMBPOST("M",I)) D Q("M",.M,I)
|
|---|
| 13 | S R("T")=0
|
|---|
| 14 | F I=1:1:10 S R("O",I)=0 I $D(^XMBPOST("R",I)) D Q("R",.R,I)
|
|---|
| 15 | Q
|
|---|
| 16 | Q(XMGROUP,XMQ,I) ;
|
|---|
| 17 | N XMREC,XMTSTAMP,XMZ
|
|---|
| 18 | S XMREC=$G(^XMBPOST(XMGROUP,I)),XMTSTAMP=$O(^(I,0)) S XMZ=$S(XMTSTAMP:$O(^(XMTSTAMP,"")),1:"")
|
|---|
| 19 | I XMGROUP="M",XMZ D
|
|---|
| 20 | . I XMZ[U S XMZ=$P(XMZ,U,1)_U_XMFWD ; if [U, then it's a forward
|
|---|
| 21 | . E S XMZ=XMZ_U
|
|---|
| 22 | . S XMZ=XMZ_U_$O(^XMB(3.7,"M",$P(XMZ,U,1),""),-1) ; latest delivery
|
|---|
| 23 | S XMQ("O",I)=+XMREC_U_XMTSTAMP_U_$P(XMREC,U,2)_U_XMZ
|
|---|
| 24 | Q:'XMREC
|
|---|
| 25 | S $P(XMQ("T"),U)=$P(XMQ("T"),U)+XMREC,$P(XMQ("T"),U,3)=$P(XMQ("T"),U,3)+$P(XMREC,U,2)
|
|---|
| 26 | I $S('$P(XMQ("T"),U,2):1,$P(XMQ("T"),U,2)>XMTSTAMP:1,1:0) S $P(XMQ("T"),U,2)=XMTSTAMP
|
|---|
| 27 | Q
|
|---|
| 28 | USERS(%) ;Get the number of ZSLOT users
|
|---|
| 29 | ;%=1 do not display output, %=0 display
|
|---|
| 30 | N X,A,B,C,Y,Z,ZSLOTDSP S ZSLOTDSP=%
|
|---|
| 31 | ;
|
|---|
| 32 | ;First -- is the ZSLOT software installed ?
|
|---|
| 33 | S X="ZSLOT" X ^%ZOSF("TEST") E S %=0 G USERQ
|
|---|
| 34 | ;
|
|---|
| 35 | ;Call ZSLOT for count of ZSLOT users
|
|---|
| 36 | S %="N/A" I $T(ENTCLUST^ZSLOT)'="" D ENTCLUST^ZSLOT S %=Y
|
|---|
| 37 | USERQ Q %
|
|---|
