- XUCSXDR ;SFISC/HVB - Tabular Summary for 486 SITES ;3/21/96 07:58 [ 04/02/2003 8:47 AM ]
- ;;7.3;TOOLKIT;**1001**;APR 1, 2003
- ;;7.3;TOOLKIT;**14**;Dec 15, 1995
- A Q:'$$CHKF^XUCSUTL
- S U="^" S:'$D(DT) DT=$$HTFM^XLFDT($H,1) S:'$D(DTIME) DTIME=300
- S XUCSEND=0 D A3^XUCSUTL3 I XUCSEND K MAIL G XIT
- S DIR("A")="Mail report",DIR("B")="NO",DIR(0)="Y" D ^DIR Q:$D(DIRUT)
- I Y K XMY S MAIL=2,IOM=80 G DQ
- S %ZIS="Q" D ^%ZIS I POP G XIT
- I $D(IO("Q")) D G XIT
- . S ZTSAVE("XUCS*")="",ZTRTN="DQ^XUCSXDR",ZTDESC="MPM TABULAR SUMMARY",ZTIO=ION
- . S %DT="AEFRX",%DT("A")="Queue for what DATE/TIME? ",%DT("B")="NOW",%DT(0)="NOW" D ^%DT K %DT
- . I +Y'<0 S ZTDTH=Y D ^%ZTLOAD,HOME^%ZIS
- . K IO("Q")
- U IO W:$E(IOST)="C" ! G DQ
- DR ; Daily Report in mail message - noninteractive
- K XMY S MAIL=1,X=0 F S X=$O(^XUCS(8987.1,1,2,X)) Q:X]"@"!(X="") S XMY(^(X,0))=""
- G NOT:'$D(XMY) S U="^",DT=$$HTFM^XLFDT($H,1),X1=DT,X2=-1 D C^%DTC S (XUCSBD,XUCSED)=X,XUCSRT="B"
- DQ ; Dequeue entry point
- K CD,RT,ST,^TMP($J,"XUCS") S L=1,HDR(1)=" " F I=1:1:75 S HDR(1)=HDR(1)_"="
- S XUCSUN=$S($D(XUCSUN):XUCSUN,1:"000"),NODE=XUCSUN_"@@@"
- F S NODE=$O(^XUCS(8987.2,"B",NODE)) Q:NODE=""!(XUCSUN&($E(NODE,1,3)'=XUCSUN)) S X=$O(^(NODE,"")) D
- . S FMDT=XUCSBD F S FMDT=$O(^XUCS(8987.2,"C",FMDT)) Q:FMDT="" Q:$D(^(FMDT,X))
- . Q:FMDT="" S Y=$O(^XUCS(8987.2,"C",FMDT,X,0))-1
- . F S Y=$O(^XUCS(8987.2,X,1,Y)) Q:Y]"@"!(Y="") S FMDT=^(Y,0) Q:FMDT>(XUCSED+.24) D:FMDT>XUCSBD&($D(^(5))>1)
- . . I $E($P(FMDT,".",2),1,2)<12,XUCSRT="P" Q
- . . I $E($P(FMDT,".",2),1,2)>11,XUCSRT="A" Q
- . . F I=1:1:17 S $P(RT(NODE),U,I)=$P($G(RT(NODE)),U,I)+$P(^XUCS(8987.2,X,1,Y,5,I,0),U,3)
- . . S X1=0 F S X1=$O(^XUCS(8987.2,X,1,Y,6,X1)) Q:+X1<1 S X0=^(+X1,0) D
- . . . S $P(CD(NODE),U,5)=$P($G(CD(NODE)),U,5)+1
- . . . F I=1:1:4 S $P(CD(NODE),U,I)=$P(CD(NODE),U,I)+$P(X0,U,I+1)
- . . S $P(ST(NODE),U,21)=$P($G(ST(NODE)),U,21)+$P(FMDT,U,3)
- . . S $P(ST(NODE),U,22)=$P(ST(NODE),U,22)+$P(FMDT,U,5)
- . . F I=1:1:17 S $P(ST(NODE),U,I)=$P(ST(NODE),U,I)+$P(^XUCS(8987.2,X,1,Y,3,1,0),U,I)
- P I '$D(RT) W:'$D(ZTQUEUED) " NO DATA between ",$$FMTE^XLFDT(XUCSBD)," and ",$$FMTE^XLFDT(XUCSED)," for ",$P($G(^DIC(4,XUCSUN,0)),U),"!",! K MAIL G XIT
- S Y=XUCSBD D DD^%DT S BD=Y,Y=XUCSED D DD^%DT S ED=Y D ISTR
- S (NODE,OSITE)="" F S NODE=$O(ST(NODE)) Q:NODE="" D
- . S SITE=$E(NODE,1,3) I SITE'=OSITE,OSITE]"" D PRINT
- . S (J,SEET,SUM)=0 F M=0.3,1.4,2.5,3.5,4.5,5.5,6.5,7.5,8.5,9.5,15,25 S J=J+1,CNT=$P(RT(NODE),U,J),SEET=SEET+(CNT*M),SUM=SUM+CNT S:J=2 CUM=SUM
- . S OSITE=SITE,TY=$E(NODE,4,5),X=ST(NODE),CNT=$P(X,U),SET=$P(X,U,21)
- . S STR(1)=STR(1)_$J(NODE,7),Y=$G(CD(NODE)),S=+Y
- . S STR(2)=STR(2)_$S(S:$J($P(Y,U,2)/S*100,7,0),1:" ")
- . S STR(3)=STR(3)_$S(S:$J($P(Y,U,3)/S*100,7,0),1:" ")
- . S STR(4)=STR(4)_$S(TY="CS"&SUM:$J(SEET/SUM,7,2),1:" ")
- . S STR(5)=STR(5)_$S(TY="CS"&SUM:$J(CUM/SUM*100,7,0),1:" ")
- . S STR(6)=STR(6)_$S(TY="CS"&SUM:$J(SUM/SET,7,1),1:" ")
- . S STR(7)=STR(7)_$J($P(X,U,22)/CNT,7,0)
- . S STR(8)=STR(8)_$S($P(X,U,13):$J($P(X,U,13)/SET,7,0),1:" ")
- . S STR(9)=STR(9)_$S($P(X,U,14):$J($P(X,U,14)/SET,7,0),1:" ")
- . S STR(10)=STR(10)_$J($P(X,U,16)/SET,7,0)
- . S STR(11)=STR(11)_$J($P(X,U,7)/SET,7,0)
- . S STR(12)=STR(12)_$J($P(X,U,5)+$P(X,U,6)/SET,7,0)
- . S STR(13)=STR(13)_$J($P(X,U,2)/SET,7,0)
- . S STR(14)=STR(14)_$J($P(X,U,3)/SET,7,0)
- . S STR(15)=STR(15)_$S($P(X,U,9):$J($P(X,U,9)-$P(X,U,2)/$P(X,U,9)*100,7,0),1:" ")
- . S STR(16)=STR(16)_$S($P(X,U,10):$J($P(X,U,10)-$P(X,U,3)/$P(X,U,10)*100,7,0),1:" ")
- . S STR(17)=STR(17)_$S($P(X,U,11):$J($P(X,U,11)/SET,7,0),1:" ")
- . S STR(18)=STR(18)_$S($P(X,U,12):$J($P(X,U,12)/SET,7,0),1:" ")
- . S STR(19)=STR(19)_$S($P(X,U,12):$J($P(X,U,17)/$P(X,U,12)*100,7,0),1:" ")
- . S STR(20)=STR(20)_$J(CNT,7,0)
- PRINT S HDR(2)=" "_$E($P($G(^DIC(4,OSITE,0)),U),1,20) F I=1:1:22-$L(HDR(2)) S HDR(2)=HDR(2)_" "
- S HDR(2)=HDR(2)_" MPM Summary for "_BD_" to "_ED_" ("_$S(XUCSRT="A":"AM)",XUCSRT="P":"PM)",1:"AM&PM)")
- I $D(MAIL) D
- . F I=1,2,1 S ^TMP($J,"XUCS",L)=HDR(I),L=L+1
- . F I=1:1:20 S ^TMP($J,"XUCS",L)=STR(I),L=L+1
- E D
- . F I=1,2,1 W HDR(I),!
- . F I=1:1:20 W STR(I),!
- . I NODE]"" W @IOF
- G XIT:NODE=""
- ISTR S STR(1)=" Node "
- S STR(2)=" CPU Usage % "
- S STR(3)=" Disk Usage % "
- S STR(4)=" Response Time Sec "
- S STR(5)=" RTs<2 Seconds % "
- S STR(6)=" Responses/S "
- S STR(7)=" Ave. # Jobs "
- S STR(8)=" Term InChar/S "
- S STR(9)=" Term OutChar/S "
- S STR(10)=" M Commands/S "
- S STR(11)=" Global Gets/S "
- S STR(12)=" Global S&Ks/S "
- S STR(13)=" Disk Reads/S "
- S STR(14)=" Disk Writes/S "
- S STR(15)=" Read Cache % "
- S STR(16)=" Write Cache % "
- S STR(17)=" DDP Requests/S "
- S STR(18)=" RVG Requests/S "
- S STR(19)=" RVG Cache % "
- S STR(20)=" RTH Sessions "
- Q
- NOT I $G(DUZ)\1 S XQA(DUZ)="",XQAMSG="No local CMP recipients in MSM RTHIST SITE file, no MPM Daily Summary" D SETUP^XQALERT K XQA,XQAMSG,MAIL
- XIT I $D(MAIL) S XMDUZ="MPM",XMTEXT="^TMP($J,""XUCS"",",XMSUB=$S(MAIL=1:"MPM Morning Report for "_+$E(XUCSBD,4,5)_"/"_+$E(XUCSBD,6,7)_"/"_$E(XUCSBD,2,3),1:"MPM Summary Report"),XMCHAN=1 D ^XMD
- I $E($G(IOST))'="C",'$D(ZTQUEUED) D ^%ZISC
- K BD,CD,CNT,CUM,DIR,ED,FMDT,HDR,I,J,L,M,MAIL,NODE,OSITE,RT,S,SEET
- K SET,SITE,ST,STR,SUM,TY,X,X0,X1,X2,XMY,XMCHAN,XMDUZ,XMSUB,XMTEXT
- K XUCSBD,XUCSED,XUCSEND,XUCSRT,XUCSUN,Y
- Q
- ONE ; One site only
- S U="^",DT=$$HTFM^XLFDT($H,1),DIR("A")="Select MPM Site",DIR(0)="P^4:EMZ" D ^DIR Q:$D(DIRUT) S XUCSUN=$P(Y,U) G A
- XUCSXDR ;SFISC/HVB - Tabular Summary for 486 SITES ;3/21/96 07:58 [ 04/02/2003 8:47 AM ]
- +1 ;;7.3;TOOLKIT;**1001**;APR 1, 2003
- +2 ;;7.3;TOOLKIT;**14**;Dec 15, 1995
- A IF '$$CHKF^XUCSUTL
- QUIT
- +1 SET U="^"
- IF '$DATA(DT)
- SET DT=$$HTFM^XLFDT($HOROLOG,1)
- IF '$DATA(DTIME)
- SET DTIME=300
- +2 SET XUCSEND=0
- DO A3^XUCSUTL3
- IF XUCSEND
- KILL MAIL
- GOTO XIT
- +3 SET DIR("A")="Mail report"
- SET DIR("B")="NO"
- SET DIR(0)="Y"
- DO ^DIR
- IF $DATA(DIRUT)
- QUIT
- +4 IF Y
- KILL XMY
- SET MAIL=2
- SET IOM=80
- GOTO DQ
- +5 SET %ZIS="Q"
- DO ^%ZIS
- IF POP
- GOTO XIT
- +6 IF $DATA(IO("Q"))
- Begin DoDot:1
- +7 SET ZTSAVE("XUCS*")=""
- SET ZTRTN="DQ^XUCSXDR"
- SET ZTDESC="MPM TABULAR SUMMARY"
- SET ZTIO=ION
- +8 SET %DT="AEFRX"
- SET %DT("A")="Queue for what DATE/TIME? "
- SET %DT("B")="NOW"
- SET %DT(0)="NOW"
- DO ^%DT
- KILL %DT
- +9 IF +Y'<0
- SET ZTDTH=Y
- DO ^%ZTLOAD
- DO HOME^%ZIS
- +10 KILL IO("Q")
- End DoDot:1
- GOTO XIT
- +11 USE IO
- IF $EXTRACT(IOST)="C"
- WRITE !
- GOTO DQ
- DR ; Daily Report in mail message - noninteractive
- +1 KILL XMY
- SET MAIL=1
- SET X=0
- FOR
- SET X=$ORDER(^XUCS(8987.1,1,2,X))
- IF X]"@"!(X="")
- QUIT
- SET XMY(^(X,0))=""
- +2 IF '$DATA(XMY)
- GOTO NOT
- SET U="^"
- SET DT=$$HTFM^XLFDT($HOROLOG,1)
- SET X1=DT
- SET X2=-1
- DO C^%DTC
- SET (XUCSBD,XUCSED)=X
- SET XUCSRT="B"
- DQ ; Dequeue entry point
- +1 KILL CD,RT,ST,^TMP($JOB,"XUCS")
- SET L=1
- SET HDR(1)=" "
- FOR I=1:1:75
- SET HDR(1)=HDR(1)_"="
- +2 SET XUCSUN=$SELECT($DATA(XUCSUN):XUCSUN,1:"000")
- SET NODE=XUCSUN_"@@@"
- +3 FOR
- SET NODE=$ORDER(^XUCS(8987.2,"B",NODE))
- IF NODE=""!(XUCSUN&($EXTRACT(NODE,1,3)'=XUCSUN))
- QUIT
- SET X=$ORDER(^(NODE,""))
- Begin DoDot:1
- +4 SET FMDT=XUCSBD
- FOR
- SET FMDT=$ORDER(^XUCS(8987.2,"C",FMDT))
- IF FMDT=""
- QUIT
- IF $DATA(^(FMDT,X))
- QUIT
- +5 IF FMDT=""
- QUIT
- SET Y=$ORDER(^XUCS(8987.2,"C",FMDT,X,0))-1
- +6 FOR
- SET Y=$ORDER(^XUCS(8987.2,X,1,Y))
- IF Y]"@"!(Y="")
- QUIT
- SET FMDT=^(Y,0)
- IF FMDT>(XUCSED+.24)
- QUIT
- IF FMDT>XUCSBD&($DATA(^(5))>1)
- Begin DoDot:2
- +7 IF $EXTRACT($PIECE(FMDT,".",2),1,2)<12
- IF XUCSRT="P"
- QUIT
- +8 IF $EXTRACT($PIECE(FMDT,".",2),1,2)>11
- IF XUCSRT="A"
- QUIT
- +9 FOR I=1:1:17
- SET $PIECE(RT(NODE),U,I)=$PIECE($GET(RT(NODE)),U,I)+$PIECE(^XUCS(8987.2,X,1,Y,5,I,0),U,3)
- +10 SET X1=0
- FOR
- SET X1=$ORDER(^XUCS(8987.2,X,1,Y,6,X1))
- IF +X1<1
- QUIT
- SET X0=^(+X1,0)
- Begin DoDot:3
- +11 SET $PIECE(CD(NODE),U,5)=$PIECE($GET(CD(NODE)),U,5)+1
- +12 FOR I=1:1:4
- SET $PIECE(CD(NODE),U,I)=$PIECE(CD(NODE),U,I)+$PIECE(X0,U,I+1)
- End DoDot:3
- +13 SET $PIECE(ST(NODE),U,21)=$PIECE($GET(ST(NODE)),U,21)+$PIECE(FMDT,U,3)
- +14 SET $PIECE(ST(NODE),U,22)=$PIECE(ST(NODE),U,22)+$PIECE(FMDT,U,5)
- +15 FOR I=1:1:17
- SET $PIECE(ST(NODE),U,I)=$PIECE(ST(NODE),U,I)+$PIECE(^XUCS(8987.2,X,1,Y,3,1,0),U,I)
- End DoDot:2
- End DoDot:1
- P IF '$DATA(RT)
- IF '$DATA(ZTQUEUED)
- WRITE " NO DATA between ",$$FMTE^XLFDT(XUCSBD)," and ",$$FMTE^XLFDT(XUCSED)," for ",$PIECE($GET(^DIC(4,XUCSUN,0)),U),"!",!
- KILL MAIL
- GOTO XIT
- +1 SET Y=XUCSBD
- DO DD^%DT
- SET BD=Y
- SET Y=XUCSED
- DO DD^%DT
- SET ED=Y
- DO ISTR
- +2 SET (NODE,OSITE)=""
- FOR
- SET NODE=$ORDER(ST(NODE))
- IF NODE=""
- QUIT
- Begin DoDot:1
- +3 SET SITE=$EXTRACT(NODE,1,3)
- IF SITE'=OSITE
- IF OSITE]""
- DO PRINT
- +4 SET (J,SEET,SUM)=0
- FOR M=0.3,1.4,2.5,3.5,4.5,5.5,6.5,7.5,8.5,9.5,15,25
- SET J=J+1
- SET CNT=$PIECE(RT(NODE),U,J)
- SET SEET=SEET+(CNT*M)
- SET SUM=SUM+CNT
- IF J=2
- SET CUM=SUM
- +5 SET OSITE=SITE
- SET TY=$EXTRACT(NODE,4,5)
- SET X=ST(NODE)
- SET CNT=$PIECE(X,U)
- SET SET=$PIECE(X,U,21)
- +6 SET STR(1)=STR(1)_$JUSTIFY(NODE,7)
- SET Y=$GET(CD(NODE))
- SET S=+Y
- +7 SET STR(2)=STR(2)_$SELECT(S:$JUSTIFY($PIECE(Y,U,2)/S*100,7,0),1:" ")
- +8 SET STR(3)=STR(3)_$SELECT(S:$JUSTIFY($PIECE(Y,U,3)/S*100,7,0),1:" ")
- +9 SET STR(4)=STR(4)_$SELECT(TY="CS"&SUM:$JUSTIFY(SEET/SUM,7,2),1:" ")
- +10 SET STR(5)=STR(5)_$SELECT(TY="CS"&SUM:$JUSTIFY(CUM/SUM*100,7,0),1:" ")
- +11 SET STR(6)=STR(6)_$SELECT(TY="CS"&SUM:$JUSTIFY(SUM/SET,7,1),1:" ")
- +12 SET STR(7)=STR(7)_$JUSTIFY($PIECE(X,U,22)/CNT,7,0)
- +13 SET STR(8)=STR(8)_$SELECT($PIECE(X,U,13):$JUSTIFY($PIECE(X,U,13)/SET,7,0),1:" ")
- +14 SET STR(9)=STR(9)_$SELECT($PIECE(X,U,14):$JUSTIFY($PIECE(X,U,14)/SET,7,0),1:" ")
- +15 SET STR(10)=STR(10)_$JUSTIFY($PIECE(X,U,16)/SET,7,0)
- +16 SET STR(11)=STR(11)_$JUSTIFY($PIECE(X,U,7)/SET,7,0)
- +17 SET STR(12)=STR(12)_$JUSTIFY($PIECE(X,U,5)+$PIECE(X,U,6)/SET,7,0)
- +18 SET STR(13)=STR(13)_$JUSTIFY($PIECE(X,U,2)/SET,7,0)
- +19 SET STR(14)=STR(14)_$JUSTIFY($PIECE(X,U,3)/SET,7,0)
- +20 SET STR(15)=STR(15)_$SELECT($PIECE(X,U,9):$JUSTIFY($PIECE(X,U,9)-$PIECE(X,U,2)/$PIECE(X,U,9)*100,7,0),1:" ")
- +21 SET STR(16)=STR(16)_$SELECT($PIECE(X,U,10):$JUSTIFY($PIECE(X,U,10)-$PIECE(X,U,3)/$PIECE(X,U,10)*100,7,0),1:" ")
- +22 SET STR(17)=STR(17)_$SELECT($PIECE(X,U,11):$JUSTIFY($PIECE(X,U,11)/SET,7,0),1:" ")
- +23 SET STR(18)=STR(18)_$SELECT($PIECE(X,U,12):$JUSTIFY($PIECE(X,U,12)/SET,7,0),1:" ")
- +24 SET STR(19)=STR(19)_$SELECT($PIECE(X,U,12):$JUSTIFY($PIECE(X,U,17)/$PIECE(X,U,12)*100,7,0),1:" ")
- +25 SET STR(20)=STR(20)_$JUSTIFY(CNT,7,0)
- End DoDot:1
- PRINT SET HDR(2)=" "_$EXTRACT($PIECE($GET(^DIC(4,OSITE,0)),U),1,20)
- FOR I=1:1:22-$LENGTH(HDR(2))
- SET HDR(2)=HDR(2)_" "
- +1 SET HDR(2)=HDR(2)_" MPM Summary for "_BD_" to "_ED_" ("_$SELECT(XUCSRT="A":"AM)",XUCSRT="P":"PM)",1:"AM&PM)")
- +2 IF $DATA(MAIL)
- Begin DoDot:1
- +3 FOR I=1,2,1
- SET ^TMP($JOB,"XUCS",L)=HDR(I)
- SET L=L+1
- +4 FOR I=1:1:20
- SET ^TMP($JOB,"XUCS",L)=STR(I)
- SET L=L+1
- End DoDot:1
- +5 IF '$TEST
- Begin DoDot:1
- +6 FOR I=1,2,1
- WRITE HDR(I),!
- +7 FOR I=1:1:20
- WRITE STR(I),!
- +8 IF NODE]""
- WRITE @IOF
- End DoDot:1
- +9 IF NODE=""
- GOTO XIT
- ISTR SET STR(1)=" Node "
- +1 SET STR(2)=" CPU Usage % "
- +2 SET STR(3)=" Disk Usage % "
- +3 SET STR(4)=" Response Time Sec "
- +4 SET STR(5)=" RTs<2 Seconds % "
- +5 SET STR(6)=" Responses/S "
- +6 SET STR(7)=" Ave. # Jobs "
- +7 SET STR(8)=" Term InChar/S "
- +8 SET STR(9)=" Term OutChar/S "
- +9 SET STR(10)=" M Commands/S "
- +10 SET STR(11)=" Global Gets/S "
- +11 SET STR(12)=" Global S&Ks/S "
- +12 SET STR(13)=" Disk Reads/S "
- +13 SET STR(14)=" Disk Writes/S "
- +14 SET STR(15)=" Read Cache % "
- +15 SET STR(16)=" Write Cache % "
- +16 SET STR(17)=" DDP Requests/S "
- +17 SET STR(18)=" RVG Requests/S "
- +18 SET STR(19)=" RVG Cache % "
- +19 SET STR(20)=" RTH Sessions "
- +20 QUIT
- NOT IF $GET(DUZ)\1
- SET XQA(DUZ)=""
- SET XQAMSG="No local CMP recipients in MSM RTHIST SITE file, no MPM Daily Summary"
- DO SETUP^XQALERT
- KILL XQA,XQAMSG,MAIL
- XIT IF $DATA(MAIL)
- SET XMDUZ="MPM"
- SET XMTEXT="^TMP($J,""XUCS"","
- SET XMSUB=$SELECT(MAIL=1:"MPM Morning Report for "_+$EXTRACT(XUCSBD,4,5)_"/"_+$EXTRACT(XUCSBD,6,7)_"/"_$EXTRACT(XUCSBD,2,3),1:"MPM Summary Report")
- SET XMCHAN=1
- DO ^XMD
- +1 IF $EXTRACT($GET(IOST))'="C"
- IF '$DATA(ZTQUEUED)
- DO ^%ZISC
- +2 KILL BD,CD,CNT,CUM,DIR,ED,FMDT,HDR,I,J,L,M,MAIL,NODE,OSITE,RT,S,SEET
- +3 KILL SET,SITE,ST,STR,SUM,TY,X,X0,X1,X2,XMY,XMCHAN,XMDUZ,XMSUB,XMTEXT
- +4 KILL XUCSBD,XUCSED,XUCSEND,XUCSRT,XUCSUN,Y
- +5 QUIT
- ONE ; One site only
- +1 SET U="^"
- SET DT=$$HTFM^XLFDT($HOROLOG,1)
- SET DIR("A")="Select MPM Site"
- SET DIR(0)="P^4:EMZ"
- DO ^DIR
- IF $DATA(DIRUT)
- QUIT
- SET XUCSUN=$PIECE(Y,U)
- GOTO A
