- XMUT5 ;ISC-SF/GMB-Check Background Filer (local delivery queues) ;02/12/2003 07:42
- ;;8.0;MailMan;**10,2**;Jun 28, 2002
- ;(WASH ISC)/CAP
- ;
- ; Entry points used by MailMan options (not covered by DBIA):
- ; CHECK XMMGR-CHECK-BACKGROUND-FILER
- CHECK ;
- N XMTEXT
- ;* Latest Delivery shows last user with message in mailbox.
- ;Meaningful for new messages, possibly meaningful for (f) forwarded messages.
- ;Not meaningful and not shown for responses.
- D BLD^DIALOG(36222,"","","XMTEXT(""*"")","F")
- D BLD^DIALOG(36219,"","","XMTEXT(""M"")","F")
- D BLD^DIALOG(36220,"","","XMTEXT(""R"")","F")
- I $D(ZTQUEUED)!($E($G(IOST),1,2)'="C-") D DISPLAY Q
- F D DISPLAY D Q:'(Y!$D(DTOUT))
- . W !
- . N DIR,X,DTIME
- . S DTIME=5
- . S DIR(0)="Y",DIR("A")=$$EZBLD^DIALOG(36210) ; Refresh
- . S DIR("B")=$$EZBLD^DIALOG(39054) ; YES
- . D BLD^DIALOG(36211,"","","DIR(""?"")")
- . ;Answer YES if you want the display refreshed.
- . ;Answer NO if you don't.
- . ;If you don't answer, the display will be refreshed every five seconds.
- . D ^DIR
- Q
- DISPLAY ;
- N XMQLIST,M,R,XMTSTAMP,XMPARM
- W !!,$$EZBLD^DIALOG(36212,$$FMTE^XLFDT($$NOW^XLFDT,5)),! ; Delivery Queue Status as of
- S M=$G(^XMBPOST("STATS","M")),R=$G(^("R"))
- I M+R>0 D
- . S XMPARM(1)=M+R,XMPARM(2)=M,XMPARM(3)=R
- . W !,$$EZBLD^DIALOG(36213,.XMPARM) ; Deliveries COMPLETED since last 1/2 hour: _M+R_ (_M_ Msg, _R_ Resp)
- D GO^XMUT5B
- D GETQ^XMKPLQ(.XMQLIST)
- S XMPARM(1)=$S(XMQLIST("M")="":1,1:$L(XMQLIST("M"),",")+1)
- S XMPARM(2)=$S(XMQLIST("R")="":1,1:$L(XMQLIST("R"),",")+1)
- W !,$$EZBLD^DIALOG(36214,.XMPARM) ; Number of delivery queues: |1| Message and |2| Response
- S XMTSTAMP=$O(^XMBPOST("BOX",0))
- I XMTSTAMP W !,$$EZBLD^DIALOG(36215,$$WAITIME(XMTSTAMP)) ; Waiting time for items to be put in the delivery queues:
- E W !,$$EZBLD^DIALOG(36216) ; Nothing waiting to be put in the delivery queues.
- I M("T")+R("T")<1 W !!,$$EZBLD^DIALOG(36217) ; Nothing in the delivery queues.
- E D
- . W !,$$EZBLD^DIALOG(36218,M("T")+R("T")) ; Items currently waiting in delivery queues:
- . I M("T")>0 D SHOWQ("M",.M,XMQLIST("M"))
- . I R("T")>0 D SHOWQ("R",.R,XMQLIST("R"))
- . I M("T") D MSG^DIALOG("SWM","",80,"","XMTEXT(""*"")")
- D SHOWFILR
- Q
- SHOWQ(XMGROUP,Q,XMQLIST) ;
- D MSG^DIALOG("SWM","",80,"","XMTEXT(XMGROUP)")
- N I,XMCNT
- S XMCNT=0
- F I=1:1:10 I Q("O",I) D
- . S XMCNT=XMCNT+1
- . W !,$J(I,2)," ",$$QRANGE(XMQLIST,I)
- . W ?17,$J(+Q("O",I),7),?27,$J($P(Q("O",I),U,3),8),?39,$J($$WAITIME($P(Q("O",I),U,2)),12),$J($P(Q("O",I),U,4),16),$J($P(Q("O",I),U,5),3),$J($P(Q("O",I),U,6),9)
- I XMCNT>1 W !,?3,$$EZBLD^DIALOG(36221),?17,$J(+Q("T"),7),?27,$J($P(Q("T"),U,3),8),?39,$J($$WAITIME($P(Q("T"),U,2)),12) ; Summary
- Q
- SHOWFILR ;
- N XMSTATUS,I
- D STATUS^XMKPL(.XMSTATUS)
- W !!,$$EZBLD^DIALOG(36224) ; Background filer status:
- I $D(XMSTATUS)<10 D
- . W $$EZBLD^DIALOG(36225) ; ALL Background Delivery jobs are RUNNING.
- E D
- . I $P(^XMB(1,1,0),U,16) D
- . . N XMTEXT ; The Background Filers have been shut down.
- . . D BLD^DIALOG(36226,"","","XMTEXT","F")
- . . D MSG^DIALOG("SWM","",80,"","XMTEXT")
- . W !
- . S I=""
- . F S I=$O(XMSTATUS(I)) Q:I="" W !,XMSTATUS(I)
- Q
- QRANGE(XMQLIST,I) ; Queue range
- I XMQLIST="" Q "(...)"
- I I=1 Q "<"_+XMQLIST
- I I>$L(XMQLIST,",") Q $P(XMQLIST,",",I-1)_"+"
- Q $P(XMQLIST,",",I-1)_"-"_($P(XMQLIST,",",I)-1)
- WAITIME(X) ;
- N XMDIFF,XMWAIT
- S XMDIFF=$$TSTAMP^XMXUTIL1-X
- S XMWAIT=""
- S:XMDIFF'<86400 XMWAIT=(XMDIFF\86400)_" "
- S:XMDIFF#86400 XMWAIT=XMWAIT_(XMDIFF#86400\3600)_":"_$E(XMDIFF#3600\60+100,2,3)_":"_$E(XMDIFF#60+100,2,3)
- Q XMWAIT
- XMUT5 ;ISC-SF/GMB-Check Background Filer (local delivery queues) ;02/12/2003 07:42
- +1 ;;8.0;MailMan;**10,2**;Jun 28, 2002
- +2 ;(WASH ISC)/CAP
- +3 ;
- +4 ; Entry points used by MailMan options (not covered by DBIA):
- +5 ; CHECK XMMGR-CHECK-BACKGROUND-FILER
- CHECK ;
- +1 NEW XMTEXT
- +2 ;* Latest Delivery shows last user with message in mailbox.
- +3 ;Meaningful for new messages, possibly meaningful for (f) forwarded messages.
- +4 ;Not meaningful and not shown for responses.
- +5 DO BLD^DIALOG(36222,"","","XMTEXT(""*"")","F")
- +6 DO BLD^DIALOG(36219,"","","XMTEXT(""M"")","F")
- +7 DO BLD^DIALOG(36220,"","","XMTEXT(""R"")","F")
- +8 IF $DATA(ZTQUEUED)!($EXTRACT($GET(IOST),1,2)'="C-")
- DO DISPLAY
- QUIT
- +9 FOR
- DO DISPLAY
- Begin DoDot:1
- +10 WRITE !
- +11 NEW DIR,X,DTIME
- +12 SET DTIME=5
- +13 ; Refresh
- SET DIR(0)="Y"
- SET DIR("A")=$$EZBLD^DIALOG(36210)
- +14 ; YES
- SET DIR("B")=$$EZBLD^DIALOG(39054)
- +15 DO BLD^DIALOG(36211,"","","DIR(""?"")")
- +16 ;Answer YES if you want the display refreshed.
- +17 ;Answer NO if you don't.
- +18 ;If you don't answer, the display will be refreshed every five seconds.
- +19 DO ^DIR
- End DoDot:1
- IF '(Y!$DATA(DTOUT))
- QUIT
- +20 QUIT
- DISPLAY ;
- +1 NEW XMQLIST,M,R,XMTSTAMP,XMPARM
- +2 ; Delivery Queue Status as of
- WRITE !!,$$EZBLD^DIALOG(36212,$$FMTE^XLFDT($$NOW^XLFDT,5)),!
- +3 SET M=$GET(^XMBPOST("STATS","M"))
- SET R=$GET(^("R"))
- +4 IF M+R>0
- Begin DoDot:1
- +5 SET XMPARM(1)=M+R
- SET XMPARM(2)=M
- SET XMPARM(3)=R
- +6 ; Deliveries COMPLETED since last 1/2 hour: _M+R_ (_M_ Msg, _R_ Resp)
- WRITE !,$$EZBLD^DIALOG(36213,.XMPARM)
- End DoDot:1
- +7 DO GO^XMUT5B
- +8 DO GETQ^XMKPLQ(.XMQLIST)
- +9 SET XMPARM(1)=$SELECT(XMQLIST("M")="":1,1:$LENGTH(XMQLIST("M"),",")+1)
- +10 SET XMPARM(2)=$SELECT(XMQLIST("R")="":1,1:$LENGTH(XMQLIST("R"),",")+1)
- +11 ; Number of delivery queues: |1| Message and |2| Response
- WRITE !,$$EZBLD^DIALOG(36214,.XMPARM)
- +12 SET XMTSTAMP=$ORDER(^XMBPOST("BOX",0))
- +13 ; Waiting time for items to be put in the delivery queues:
- IF XMTSTAMP
- WRITE !,$$EZBLD^DIALOG(36215,$$WAITIME(XMTSTAMP))
- +14 ; Nothing waiting to be put in the delivery queues.
- IF '$TEST
- WRITE !,$$EZBLD^DIALOG(36216)
- +15 ; Nothing in the delivery queues.
- IF M("T")+R("T")<1
- WRITE !!,$$EZBLD^DIALOG(36217)
- +16 IF '$TEST
- Begin DoDot:1
- +17 ; Items currently waiting in delivery queues:
- WRITE !,$$EZBLD^DIALOG(36218,M("T")+R("T"))
- +18 IF M("T")>0
- DO SHOWQ("M",.M,XMQLIST("M"))
- +19 IF R("T")>0
- DO SHOWQ("R",.R,XMQLIST("R"))
- +20 IF M("T")
- DO MSG^DIALOG("SWM","",80,"","XMTEXT(""*"")")
- End DoDot:1
- +21 DO SHOWFILR
- +22 QUIT
- SHOWQ(XMGROUP,Q,XMQLIST) ;
- +1 DO MSG^DIALOG("SWM","",80,"","XMTEXT(XMGROUP)")
- +2 NEW I,XMCNT
- +3 SET XMCNT=0
- +4 FOR I=1:1:10
- IF Q("O",I)
- Begin DoDot:1
- +5 SET XMCNT=XMCNT+1
- +6 WRITE !,$JUSTIFY(I,2)," ",$$QRANGE(XMQLIST,I)
- +7 WRITE ?17,$JUSTIFY(+Q("O",I),7),?27,$JUSTIFY($PIECE(Q("O",I),U,3),8),?39,$JUSTIFY($$WAITIME($PIECE(Q("O",I),U,2)),12),$JUSTIFY($PIECE(Q("O",I),U,4),16),$JUSTIFY($PIECE(Q("O",I),U,5),3),$JUSTIFY($PIECE(Q("O",I),U,6),9)
- End DoDot:1
- +8 ; Summary
- IF XMCNT>1
- WRITE !,?3,$$EZBLD^DIALOG(36221),?17,$JUSTIFY(+Q("T"),7),?27,$JUSTIFY($PIECE(Q("T"),U,3),8),?39,$JUSTIFY($$WAITIME($PIECE(Q("T"),U,2)),12)
- +9 QUIT
- SHOWFILR ;
- +1 NEW XMSTATUS,I
- +2 DO STATUS^XMKPL(.XMSTATUS)
- +3 ; Background filer status:
- WRITE !!,$$EZBLD^DIALOG(36224)
- +4 IF $DATA(XMSTATUS)<10
- Begin DoDot:1
- +5 ; ALL Background Delivery jobs are RUNNING.
- WRITE $$EZBLD^DIALOG(36225)
- End DoDot:1
- +6 IF '$TEST
- Begin DoDot:1
- +7 IF $PIECE(^XMB(1,1,0),U,16)
- Begin DoDot:2
- +8 ; The Background Filers have been shut down.
- NEW XMTEXT
- +9 DO BLD^DIALOG(36226,"","","XMTEXT","F")
- +10 DO MSG^DIALOG("SWM","",80,"","XMTEXT")
- End DoDot:2
- +11 WRITE !
- +12 SET I=""
- +13 FOR
- SET I=$ORDER(XMSTATUS(I))
- IF I=""
- QUIT
- WRITE !,XMSTATUS(I)
- End DoDot:1
- +14 QUIT
- QRANGE(XMQLIST,I) ; Queue range
- +1 IF XMQLIST=""
- QUIT "(...)"
- +2 IF I=1
- QUIT "<"_+XMQLIST
- +3 IF I>$LENGTH(XMQLIST,",")
- QUIT $PIECE(XMQLIST,",",I-1)_"+"
- +4 QUIT $PIECE(XMQLIST,",",I-1)_"-"_($PIECE(XMQLIST,",",I)-1)
- WAITIME(X) ;
- +1 NEW XMDIFF,XMWAIT
- +2 SET XMDIFF=$$TSTAMP^XMXUTIL1-X
- +3 SET XMWAIT=""
- +4 IF XMDIFF'<86400
- SET XMWAIT=(XMDIFF\86400)_" "
- +5 IF XMDIFF#86400
- SET XMWAIT=XMWAIT_(XMDIFF#86400\3600)_":"_$EXTRACT(XMDIFF#3600\60+100,2,3)_":"_$EXTRACT(XMDIFF#60+100,2,3)
- +6 QUIT XMWAIT
