XMUT5B.m

XMUT5B ;(WASH ISC)/CAP-Gather Delivery Queue Data ;04/17/2002  12:05

 ;;8.0;MailMan;;Jun 28, 2002

 ;;XX.XX

 ;

 ;M("O") & R("O") = #items ^ timestamp of oldest ^ #deliveries

 ;M("T") & R("T") = same as "O" above except for all messages/responses

GO ;S X="USERY^XMUT5B",@^%ZOSF("TRAP"),X=$ZC(%SPAWN,"SUBMIT/QUE=FORUM7_BATCH LEEUSER.COM")

GP ;

 N I,XMFWD

 S XMFWD=$$EZBLD^DIALOG(36223) ; (f)

 S M("T")=0

 F I=1:1:10 S M("O",I)=0 I $D(^XMBPOST("M",I)) D Q("M",.M,I)

 S R("T")=0

 F I=1:1:10 S R("O",I)=0 I $D(^XMBPOST("R",I)) D Q("R",.R,I)

 Q

Q(XMGROUP,XMQ,I) ;

 N XMREC,XMTSTAMP,XMZ

 S XMREC=$G(^XMBPOST(XMGROUP,I)),XMTSTAMP=$O(^(I,0)) S XMZ=$S(XMTSTAMP:$O(^(XMTSTAMP,"")),1:"")

 I XMGROUP="M",XMZ D

 . I XMZ[U S XMZ=$P(XMZ,U,1)_U_XMFWD ; if [U, then it's a forward

 . E  S XMZ=XMZ_U

 . S XMZ=XMZ_U_$O(^XMB(3.7,"M",$P(XMZ,U,1),""),-1) ; latest delivery

 S XMQ("O",I)=+XMREC_U_XMTSTAMP_U_$P(XMREC,U,2)_U_XMZ

 Q:'XMREC

 S $P(XMQ("T"),U)=$P(XMQ("T"),U)+XMREC,$P(XMQ("T"),U,3)=$P(XMQ("T"),U,3)+$P(XMREC,U,2)

 I $S('$P(XMQ("T"),U,2):1,$P(XMQ("T"),U,2)>XMTSTAMP:1,1:0) S $P(XMQ("T"),U,2)=XMTSTAMP

 Q

USERS(%) ;Get the number of ZSLOT users

 ;%=1 do not display output, %=0 display

 N X,A,B,C,Y,Z,ZSLOTDSP S ZSLOTDSP=%

 ;

 ;First -- is the ZSLOT software installed ?

 S X="ZSLOT" X ^%ZOSF("TEST") E  S %=0 G USERQ

 ;

 ;Call ZSLOT for count of ZSLOT users

 S %="N/A" I $T(ENTCLUST^ZSLOT)'="" D ENTCLUST^ZSLOT S %=Y

USERQ Q %

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XMUT5B   1450     printed  Apr 09, 2024@21:16:03                                                                                                                                                                                                      Page 2

XMUT5B    ;(WASH ISC)/CAP-Gather Delivery Queue Data ;04/17/2002  12:05

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

 +2       ;;XX.XX

 +3       ;

 +4       ;M("O") & R("O") = #items ^ timestamp of oldest ^ #deliveries

 +5       ;M("T") & R("T") = same as "O" above except for all messages/responses

GO        ;S X="USERY^XMUT5B",@^%ZOSF("TRAP"),X=$ZC(%SPAWN,"SUBMIT/QUE=FORUM7_BATCH LEEUSER.COM")

GP        ;

 +1        NEW I,XMFWD

 +2       ; (f)

           SET XMFWD=$$EZBLD^DIALOG(36223)

 +3        SET M("T")=0

 +4        FOR I=1:1:10

               SET M("O",I)=0

               IF $DATA(^XMBPOST("M",I))

                   DO Q("M",.M,I)

 +5        SET R("T")=0

 +6        FOR I=1:1:10

               SET R("O",I)=0

               IF $DATA(^XMBPOST("R",I))

                   DO Q("R",.R,I)

 +7        QUIT 

Q(XMGROUP,XMQ,I) ;

 +1        NEW XMREC,XMTSTAMP,XMZ

 +2        SET XMREC=$GET(^XMBPOST(XMGROUP,I))

           SET XMTSTAMP=$ORDER(^(I,0))

           SET XMZ=$SELECT(XMTSTAMP:$ORDER(^(XMTSTAMP,"")),1:"")

 +3        IF XMGROUP="M"

               IF XMZ

                   Begin DoDot:1

 +4       ; if [U, then it's a forward

                       IF XMZ[U

                           SET XMZ=$PIECE(XMZ,U,1)_U_XMFWD

 +5                   IF '$TEST

                           SET XMZ=XMZ_U

 +6       ; latest delivery

                       SET XMZ=XMZ_U_$ORDER(^XMB(3.7,"M",$PIECE(XMZ,U,1),""),-1)

                   End DoDot:1

 +7        SET XMQ("O",I)=+XMREC_U_XMTSTAMP_U_$PIECE(XMREC,U,2)_U_XMZ

 +8        if 'XMREC

               QUIT 

 +9        SET $PIECE(XMQ("T"),U)=$PIECE(XMQ("T"),U)+XMREC

           SET $PIECE(XMQ("T"),U,3)=$PIECE(XMQ("T"),U,3)+$PIECE(XMREC,U,2)

 +10       IF $SELECT('$PIECE(XMQ("T"),U,2):1,$PIECE(XMQ("T"),U,2)>XMTSTAMP:1,1:0)

               SET $PIECE(XMQ("T"),U,2)=XMTSTAMP

 +11       QUIT 

USERS(%)  ;Get the number of ZSLOT users

 +1       ;%=1 do not display output, %=0 display

 +2        NEW X,A,B,C,Y,Z,ZSLOTDSP

           SET ZSLOTDSP=%

 +3       ;

 +4       ;First -- is the ZSLOT software installed ?

 +5        SET X="ZSLOT"

           XECUTE ^%ZOSF("TEST")

          IF '$TEST

               SET %=0

               GOTO USERQ

 +6       ;

 +7       ;Call ZSLOT for count of ZSLOT users

 +8        SET %="N/A"

           IF $TEXT(ENTCLUST^ZSLOT)'=""

               DO ENTCLUST^ZSLOT

               SET %=Y

USERQ      QUIT %