source: FOIAVistA/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XUCSXST.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.7 KB
Line 
1XUCSXST ;SFISC/HVB - CROSS-SITE SYSTATs for 486 SITES ;3/21/96 08:54
2 ;;7.3;TOOLKIT;**14**;Dec 15, 1995
3A Q:'$$CHKF^XUCSUTL S U="^" S:'$D(DT) DT=$$HTFM^XLFDT($H,1)
4 S XUCSEND=0 D A3^XUCSUTL3 G XIT:XUCSEND
5 S %ZIS="MQ" D ^%ZIS I POP S POP=0 G XIT
6 I $D(IO("Q")) D G XIT
7 . S ZTSAVE("XUCS*")="",ZTRTN="DQ^XUCSXST",ZTDESC="MPM X-SITE SYSTEM STATS",ZTIO=ION
8 . S %DT="AEFRX",%DT("A")="Queue for what DATE/TIME? ",%DT("B")="NOW",%DT(0)="NOW" D ^%DT K %DT
9 . I +Y'<0 S ZTDTH=Y D ^%ZTLOAD,HOME^%ZIS
10 . K IO("Q")
11 U IO W:$E(IOST)="C" #
12DQ ; Dequeue entry point
13 K ST S X=0 F S X=$O(^XUCS(8987.2,X)) Q:X]"@"!(X="") S NODE=^(X,0) D:$D(^XUCS(8987.2,X))>1
14 . S FMDT=XUCSBD F S FMDT=$O(^XUCS(8987.2,"C",FMDT)) Q:FMDT="" Q:$D(^(FMDT,X))
15 . Q:FMDT="" S Y=$O(^XUCS(8987.2,"C",FMDT,X,0))-1
16 . 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)
17 . . I $E($P(FMDT,".",2),1,2)<12,XUCSRT="P" Q
18 . . I $E($P(FMDT,".",2),1,2)>11,XUCSRT="A" Q
19 . . S $P(ST(NODE),"^",21)=$P($G(ST(NODE)),"^",21)+$P(FMDT,"^",3)
20 . . S $P(ST(NODE),"^",22)=$P(ST(NODE),"^",22)+$P(FMDT,"^",5)
21 . . F I=1:1:17 S $P(ST(NODE),"^",I)=$P(ST(NODE),"^",I)+$P(^XUCS(8987.2,X,1,Y,3,1,0),"^",I)
22P S Y=XUCSBD D DD^%DT S BD=Y,Y=XUCSED D DD^%DT S ED=Y D HDR
23 S (NODE,OSITE)="" F S NODE=$O(ST(NODE)) Q:NODE="" D
24 . S SITE=$E(NODE,1,3) I SITE'=OSITE S OSITE=SITE D:$Y>(IOSL-11) HFF W !?1,$P($G(^DIC(4,SITE,0)),"^"),!
25 . S X=ST(NODE),CNT=$P(X,"^"),SET=$P(X,"^",21)
26 . S STR=$J(NODE,7)_$J($P(X,"^",16)/SET,6,0) ; Node and Commands
27 . S STR=STR_$J($P(X,"^",7)/SET,5,0) ; Global Gets
28 . S STR=STR_$J($P(X,"^",5)+$P(X,"^",6)/SET,4,0) ; Sets and Kills
29 . S STR=STR_$J($P(X,"^",9)/SET,5,0) ; Logical Reads
30 . S STR=STR_$J($P(X,"^",10)/SET,4,0) ; Logical Writes
31 . S STR=STR_$J($P(X,"^",2)/SET,4,0) ; Disk Reads
32 . S STR=STR_$J($P(X,"^",3)/SET,4,0) ; Disk Writes
33 . S STR=STR_$J($P(X,"^",11)/SET,5,0) ; DDP Requests
34 . S STR=STR_$J($P(X,"^",12)/SET,5,0) ; RVG Requests
35 . S STR=STR_$J($P(X,"^",13)/SET,5,0) ; Terminal Characters IN
36 . S STR=STR_$J($P(X,"^",14)/SET,6,0) ; Terminal Characters OUT
37 . S STR=STR_$J($P(X,"^",22)/CNT,5,0) ; Average Jobs
38 . S STR=STR_$J(CNT,4,0) ; Runs
39 . W STR W:$D(ET) $J(SET/CNT/60,4,0) W ! ; ET/Run
40XIT I $E($G(IOST))'="C",'$D(ZTQUEUED) D ^%ZISC
41 K BD,CNT,CUM,ED,FMDT,GT30,GT30PCT,I,M,NODE,OSITE,PCT,SET,SITE,ST,STR
42 K SUM,X,XUCSBD,XUCSED,XUCSEND,XUCSRT,Y
43 Q
44HFF W #
45HDR W ?2,"MPM X-Site Stats/Sec Report for ",BD," to ",ED," (",$S(XUCSRT="A":"AM)",XUCSRT="P":"PM)",1:"AM&PM)")
46 W !?2,"Node",?9,"Cmds",?14,"Gets",?19,"S+K",?24,"LRd",?28,"LWt",?32,"DRd",?36,"DWt",?41,"DDP",?46,"RVG",?51,"TTI",?57,"TTO",?61,"Jobs",?68,"N" W:$D(ET) ?71,"ET"
47 W !?1 F I=1:1:69 W "="
48 W:$D(ET) "====" W ! Q
Note: See TracBrowser for help on using the repository browser.