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

XMCQA.m

Go to the documentation of this file.
  1. XMCQA ;ISC-SF/GMB-Transmit Queue Status Report (others) ;12/04/2002 13:44
  1. ;;8.0;MailMan;**8,10**;Jun 28, 2002
  1. ; Was (WASH ISC)/CAP/RM/AML
  1. ;
  1. ; Entry points used by MailMan options (not covered by DBIA):
  1. ; ACTIVE XMQACTIVE (was GO^XMS5)
  1. ; ALL XMQUEUED (was ENT^XMS5)
  1. ;
  1. ACTIVE ; Show queues actively transmitting.
  1. D EN^XUTMDEVQ("AZTLOOP^XMCQA",$$EZBLD^DIALOG(42110)) ; MailMan: Active Transmission Queues Report
  1. Q
  1. AZTLOOP ;
  1. I $E($G(IOST),1,2)'="C-" D Q
  1. . D AZTSK
  1. . I $D(ZTQUEUED) S ZTREQ="@"
  1. F D Q:'(Y!$D(DTOUT))
  1. . D AZTSK
  1. . W !
  1. . N DIR,X,DTIME
  1. . S DTIME=5
  1. . S DIR(0)="Y",DIR("A")=$$EZBLD^DIALOG(42116) ; Refresh
  1. . S DIR("B")=$$EZBLD^DIALOG(39054) ; YES
  1. . ;Answer YES if you want the display refreshed.
  1. . ;Answer NO if you don't.
  1. . ;If you don't answer, the display will be refreshed every five seconds.
  1. . D BLD^DIALOG(42117,"","","DIR(""?"")")
  1. . D ^DIR
  1. Q
  1. AZTSK ;
  1. N XMIEN,XMSITE,XMABORT,XMRPT,XMCNT,XMREC,XMSECS,XMQD
  1. S (XMABORT,XMCNT,XMCNT("QD"))=0
  1. ;Active Transmission Queues
  1. ;Domain Queued Device/Protocol Message Line ZTSK Err Rate
  1. D INIT(.XMRPT,42111,42112)
  1. S XMSITE=""
  1. F S XMSITE=$O(^DIC(4.2,"B",XMSITE)) Q:XMSITE="" D Q:XMABORT
  1. . S XMIEN=0
  1. . F S XMIEN=$O(^DIC(4.2,"B",XMSITE,XMIEN)) Q:'XMIEN D Q:XMABORT
  1. . . S XMREC=$P($G(^XMBS(4.2999,XMIEN,3)),U,1,7)
  1. . . Q:"^^^^^^"[XMREC
  1. . . S XMSECS=$$HDIFF^XLFDT($H,$P(XMREC,U),2)
  1. . . Q:XMSECS>599
  1. . . Q:$P(XMREC,U,1,6)?.P
  1. . . S XMQD=$$BMSGCT^XMXUTIL(.5,XMIEN+1000)
  1. . . I $Y+3+(XMSECS>180)>IOSL D Q:XMABORT
  1. . . . D PAGE(.XMABORT) Q:XMABORT
  1. . . . D HDR(.XMRPT)
  1. . . W !,$$MELD^XMXUTIL1(XMSITE,XMQD,21)," " ; domain, q'd msgs
  1. . . I XMSECS>180 D
  1. . . . W $E($P(XMREC,U,6),1,16)
  1. . . . W ?40,$$EZBLD^DIALOG(42113,XMSECS\60) ; == Appears Inactive - |1| Minutes
  1. . . E D
  1. . . . I '$P(XMREC,U,2) D Q
  1. . . . . W $E($P(XMREC,U,6),1,16)
  1. . . . . W ?44,$$EZBLD^DIALOG(42114) ; Connecting/Disconnecting
  1. . . . ; Device, Msg #, xmit line, ztsk, errors, xmit rate
  1. . . . W $$MELD^XMXUTIL1($P(XMREC,U,6),$P(XMREC,U,2),29),$J($P(XMREC,U,3),6),$J($P(XMREC,U,7),10),$J($P(XMREC,U,4),3),$J($P(XMREC,U,5),9)
  1. . . S XMCNT=XMCNT+1
  1. . . S XMCNT("QD")=XMCNT("QD")+XMQD
  1. Q:XMABORT
  1. I 'XMCNT W !,$$EZBLD^DIALOG(42115) Q ; No queues actively transmitting
  1. ;I $Y+5>IOSL D Q:XMABORT
  1. ;. D PAGE(.XMABORT) Q:XMABORT
  1. ;. D HDR(.XMRPT)
  1. ;W !!,$$MELD^XMXUTIL1($$EZBLD^DIALOG(42103),XMCNT,27) ; Total Domains:
  1. ;W !,$$MELD^XMXUTIL1($$EZBLD^DIALOG(42104),XMCNT("QD"),27) ; Total Queued:
  1. Q
  1. INIT(XMRPT,XMTITLE,XMHDR) ;
  1. S XMRPT("PAGE")=0
  1. S XMRPT("DATE")=$$MMDT^XMXUTIL1($$NOW^XLFDT)
  1. S XMRPT("TITLE")=$S(+XMTITLE=XMTITLE:$$EZBLD^DIALOG(XMTITLE),1:XMTITLE)
  1. S XMRPT("HDR")=$S(+XMHDR=XMHDR:$$EZBLD^DIALOG(XMHDR),1:XMHDR)
  1. W:$E($G(IOST),1,2)="C-" @IOF
  1. D HDR(.XMRPT)
  1. Q
  1. PAGE(XMABORT) ;
  1. I $E($G(IOST),1,2)="C-" D PAGE^XMXUTIL(.XMABORT) Q:XMABORT
  1. W @IOF
  1. Q
  1. HDR(XMRPT) ;
  1. N XMPAGE
  1. S XMRPT("PAGE")=XMRPT("PAGE")+1
  1. W !,XMRPT("TITLE")
  1. W ?79-$L(XMRPT("DATE")),XMRPT("DATE")
  1. S XMPAGE=$$EZBLD^DIALOG(34542,$J(XMRPT("PAGE"),2))
  1. W !,^XMB("NETNAME"),?79-$L(XMPAGE),XMPAGE
  1. W !!,XMRPT("HDR"),!
  1. Q
  1. ALL ; Show all queues which have messages, whether transmitting or not.
  1. D RESEQ
  1. D EN^XUTMDEVQ("QZTSK^XMCQA",$$EZBLD^DIALOG(42120)) ; MailMan: Transmission Queues with Messages Report
  1. Q
  1. RESEQ ; Resequence the messages in the transmit queues. This also has the
  1. ; effect of doing an integrity check on the queues.
  1. N XMK
  1. S XMK=999
  1. F S XMK=$O(^XMB(3.7,.5,2,XMK)) Q:XMK'>0 Q:XMK>9999 I $O(^(XMK,1,0)) W:'$D(ZTQUEUED) "." D RSEQ^XMXBSKT(.5,XMK)
  1. Q
  1. QZTSK ;
  1. N XMRPT,XMIEN,XMSITE,XMABORT,XMCNT,XMREC,XMQD
  1. S (XMABORT,XMCNT,XMCNT("QD"))=0
  1. ;Transmission Queues with Messages
  1. ;Domain Queued Physical Link
  1. D INIT(.XMRPT,42121,42122)
  1. S XMSITE=""
  1. F S XMSITE=$O(^DIC(4.2,"B",XMSITE)) Q:XMSITE="" D Q:XMABORT
  1. . S XMIEN=0
  1. . F S XMIEN=$O(^DIC(4.2,"B",XMSITE,XMIEN)) Q:'XMIEN D Q:XMABORT
  1. . . S XMQD=$$BMSGCT^XMXUTIL(.5,XMIEN+1000)
  1. . . Q:'XMQD
  1. . . S XMREC=^DIC(4.2,XMIEN,0)
  1. . . I $Y+3>IOSL D Q:XMABORT
  1. . . . D PAGE(.XMABORT) Q:XMABORT
  1. . . . D HDR(.XMRPT)
  1. . . W !,$$MELD^XMXUTIL1($P(XMREC,U),XMQD,47)," ",$P(XMREC,U,17)
  1. . . S XMCNT=XMCNT+1
  1. . . S XMCNT("QD")=XMCNT("QD")+XMQD
  1. Q:XMABORT
  1. I 'XMCNT W !,$$EZBLD^DIALOG(42123) Q ; No messages queued
  1. I $Y+5>IOSL D Q:XMABORT
  1. . D PAGE(.XMABORT) Q:XMABORT
  1. . D HDR(.XMRPT)
  1. W !!,$$MELD^XMXUTIL1($$EZBLD^DIALOG(42103),XMCNT,27) ; Total Domains:
  1. W !,$$MELD^XMXUTIL1($$EZBLD^DIALOG(42104),XMCNT("QD"),27) ; Total Queued:
  1. I $D(ZTQUEUED) S ZTREQ="@"
  1. Q