XUCPFRMT ;SFISC/HVB/VYD/JC - Resource Usage Table or Graph ;6/20/95 08:47 [ 04/02/2003 8:47 AM ]
;;7.3;TOOLKIT;**1001**;APR 1, 2003
;;7.3;TOOLKIT;**5**;Apr 25, 1995
I $D(^XTMP("XUCP","zzz"))'=11 W !!!,"There is no data to print from.",!,"Please run SORT RAW RESOURCE USAGE DATA option first." Q
W !!!,"I will write out Resource Usage by Namespace, based on the preceding sort.",!
N XTR,FRMT,ACT,%H,SDT,EDT,NODE,FNAME,XUCPQ,TOFILE,T,X,X1,C,D,I,N
S DIR(0)="Y",DIR("A")="Subtotal by Node",DIR("B")="YES" D ^DIR K DIR Q:$D(DTOUT)!$D(DUOUT) S ACT=$S(Y:"NODE",1:"CUM")
I ACT'["CUM" S DIR(0)="Y",DIR("A")="Would you also like cumulative by option for all nodes",DIR("B")="YES" D ^DIR K DIR Q:$D(DTOUT)!$D(DUOUT) S:Y ACT=ACT_"CUM"
S DIR(0)="NA^1:8:0",DIR("A")="Namespace length: ",DIR("B")=4 D ^DIR K DIR Q:$D(DTOUT)!$D(DUOUT) S XTR=Y
S DIR(0)="SA^T:Table;G:Graph",DIR("A")="Format for report (<T>able/<G>raph): ",DIR("B")="T" D ^DIR K DIR Q:$D(DTOUT)!$D(DUOUT) S FRMT=Y
DEVICE S NODE=$O(^XTMP("XUCP",""))
S %H=$P(^XTMP("XUCP","zzz"),"^") D YX^%DTC S SDT=Y,%H=$P(^XTMP("XUCP","zzz"),"^",2) D YX^%DTC S EDT=Y
S SDT=$TR(SDT," ,@:"),EDT=$TR(EDT," ,@:")
S FNAME=$S(ACT["CUM":"CUM"_$E(NODE,1,4),1:NODE)_"_"_SDT_"_"_EDT_".XUCP"_FRMT
S DIR("A")="Write to file ("_FNAME_")",DIR(0)="Y",DIR("B")="YES"
D ^DIR K DIR S TOFILE=Y Q:$D(DTOUT)!$D(DUOUT)
S:TOFILE %ZIS("HFSNAME")=FNAME,%ZIS("HFSMODE")="W",IOP="HFS"_$S(FRMT="G":";132",1:";80")
I TOFILE S DIR("A")="Would you like to queue this job for background execution",DIR(0)="Y",DIR("B")="YES" D ^DIR K DIR S XUCPQ=Y Q:$D(DTOUT)!$D(DUOUT)
S:TOFILE&$G(XUCPQ) IOP="Q;"_IOP
S %ZIS=$S('TOFILE:"MQ",$G(XUCPQ)&TOFILE:"NQ",1:"") D ^%ZIS Q:POP
I FRMT="T",IOM<80 W !,"The TABLE format requires at least 80 column device." G DEVICE
I FRMT="G",IOM<132 W !,"The GRAPH format requires at least 132 column device." G DEVICE
I $D(IO("Q")) S ZTRTN="DQ^XUCPFRMT" D Q
.S ZTDESC="Resource Usage by Option ("_$S(FRMT="G":"Graph",1:"Table")_")"
.S (ZTSAVE("XTR"),ZTSAVE("FRMT"),ZTSAVE("ACT"))="" D ^%ZTLOAD,HOME^%ZIS
.W:$D(ZTSK) !,"Queued as task ",ZTSK,!
DQ ;PRINT REPORT (POSSIBLY BY TASKMAN)
G:$D(^XTMP("XUCP","zzz"))<11 END ;quit if no sorted data to output
N OPT,NODE,DATE,JOB,TIME,SC,SD,SN,XOPT,SDT,EDT
S X=^%ZOSF("ERRTN"),@^%ZOSF("TRAP") ;necessary because of the NEW cmnd
S %H=$P(^XTMP("XUCP","zzz"),U) D YX^%DTC S SDT=Y,%H=$P(^("zzz"),U,2) D YX^%DTC S EDT=Y
K ^TMP($J)
COLLECT ;
S (OPT,NODE,DATE,JOB,TIME)=""
F S OPT=$O(^XTMP("XUCP","zzz",OPT)) Q:OPT="" D
.F S NODE=$O(^XTMP("XUCP","zzz",OPT,NODE)) Q:NODE="" D
..F S DATE=$O(^XTMP("XUCP","zzz",OPT,NODE,DATE)) Q:DATE="" D
...F S JOB=$O(^XTMP("XUCP","zzz",OPT,NODE,DATE,JOB)) Q:JOB="" D
....F S TIME=$O(^XTMP("XUCP","zzz",OPT,NODE,DATE,JOB,TIME)) Q:TIME="" S X=^(TIME),XOPT=$E(OPT,1,XTR) D
.....I ACT["NODE" D
......S X1=$G(^TMP($J,"N",NODE,XOPT))+1,^(XOPT)=X1
......S X1=$G(^TMP($J,"C",NODE,XOPT))+$P(X,U),^(XOPT)=X1
......S X1=$G(^TMP($J,"D",NODE,XOPT))+$P(X,U,2),^(XOPT)=X1
......S X1=$G(^TMP($J,"T",NODE,XOPT))+$P(X,U,5),^(XOPT)=X1
.....I ACT["CUM" D
......S X1=$G(^TMP($J,"N","zCUM",XOPT))+1,^(XOPT)=X1
......S X1=$G(^TMP($J,"C","zCUM",XOPT))+$P(X,U),^(XOPT)=X1
......S X1=$G(^TMP($J,"D","zCUM",XOPT))+$P(X,U,2),^(XOPT)=X1
......S X1=$G(^TMP($J,"T","zCUM",XOPT))+$P(X,U,5),^(XOPT)=X1
U IO
PRINT ;PRINT DATA SUBTOTALED BY NODE (NODE zCUM IS ACTUALLY TOTALS)
S OPT="",NODE=$S(ACT["NODE":"",1:"ZZZ")
F S NODE=$O(^TMP($J,"C",NODE)) Q:NODE=""!(NODE="zCUM"&(ACT'["CUM")) D
.S (SC,SD,SN)=0
.W $S(NODE'="zCUM":"Node "_NODE,1:"Station "_$E($O(^XTMP("XUCP",0)),1,4))
.W " from ",SDT," to ",EDT,!
.W:$L($P(^XTMP("XUCP","zzz"),U,3)) ?(8+((FRMT="G")*27)),"*** Merged data may not be continuous over the date range! ***",!
.I FRMT="G" W "OPT",?10,"CPUSEC",?118,"DIO",?124,"SEC",?131,"N",!!
.E W !,?8,$J($E("OPT",1,XTR),XTR),$J("CPU",7),$J("DIO",7),$J("SEC",7) D
..W $J("N",5),$J("C/N",7),$J("D/N",7),$J("S/N",7),$J("C/S",6),$J("D/S",5),!!
NDLOOP .F S OPT=$O(^TMP($J,"C",NODE,OPT)) Q:OPT="" D
..S C=^TMP($J,"C",NODE,OPT),D=^TMP($J,"D",NODE,OPT),T=^TMP($J,"T",NODE,OPT),N=^TMP($J,"N",NODE,OPT)
..D GRPHOUT:FRMT="G",TABLOUT:FRMT="T"
..S SC=SC+^TMP($J,"C",NODE,OPT),SD=SD+^TMP($J,"D",NODE,OPT),SN=SN+^TMP($J,"N",NODE,OPT) ;accum totals
TOTALS .W ! W:FRMT="T" ?3+XTR W "TOTAL" W:FRMT="G" ?7
.W $J(SC+.5\1,7) W:FRMT="G" ?114
.W $J(SD,7),?$X+$S(FRMT="G":5,1:6),$J(SN,6)
END D ^%ZISC K ^TMP($J),XTR,FRMT,ACT,T,X,X1,Y,Y1,C,D,I,N,ZTDESC,ZTRTN,ZTSAVE,ZTSK
Q
GRPHOUT W $J(OPT,XTR),?8,$J(C,6,0) S X=C/5\1 W:X>50 "<" S:X>50 X=50 W ?(65-X) F I=1:1:X W "*"
S (Y,Y1)=D/500\1 S:Y>49 Y=49 F I=1:1:Y W "-"
W:Y1>49 ">" W ?115,$J(D,6),$J(T+.5\1,6),$J(N,5),!
Q
TABLOUT W ?8,$J(OPT,XTR),$J(C+.5\1,7),$J(D,7),$J(T+.5\1,7),$J(N,5),$J(C*100+.5/N\1/100,7,2),$J(D*10+.5/N\1/10,7,1),$J(T*10+.5/N\1/10,7,1),$J(C*1000+.5/T\1/1000,6,2),$J(D*100+.5/T\1/100,5,1),!
Q
XUCPFRMT ;SFISC/HVB/VYD/JC - Resource Usage Table or Graph ;6/20/95 08:47 [ 04/02/2003 8:47 AM ]
+1 ;;7.3;TOOLKIT;**1001**;APR 1, 2003
+2 ;;7.3;TOOLKIT;**5**;Apr 25, 1995
+3 IF $DATA(^XTMP("XUCP","zzz"))'=11
WRITE !!!,"There is no data to print from.",!,"Please run SORT RAW RESOURCE USAGE DATA option first."
QUIT
+4 WRITE !!!,"I will write out Resource Usage by Namespace, based on the preceding sort.",!
+5 NEW XTR,FRMT,ACT,%H,SDT,EDT,NODE,FNAME,XUCPQ,TOFILE,T,X,X1,C,D,I,N
+6 SET DIR(0)="Y"
SET DIR("A")="Subtotal by Node"
SET DIR("B")="YES"
DO ^DIR
KILL DIR
IF $DATA(DTOUT)!$DATA(DUOUT)
QUIT
SET ACT=$SELECT(Y:"NODE",1:"CUM")
+7 IF ACT'["CUM"
SET DIR(0)="Y"
SET DIR("A")="Would you also like cumulative by option for all nodes"
SET DIR("B")="YES"
DO ^DIR
KILL DIR
IF $DATA(DTOUT)!$DATA(DUOUT)
QUIT
IF Y
SET ACT=ACT_"CUM"
+8 SET DIR(0)="NA^1:8:0"
SET DIR("A")="Namespace length: "
SET DIR("B")=4
DO ^DIR
KILL DIR
IF $DATA(DTOUT)!$DATA(DUOUT)
QUIT
SET XTR=Y
+9 SET DIR(0)="SA^T:Table;G:Graph"
SET DIR("A")="Format for report (<T>able/<G>raph): "
SET DIR("B")="T"
DO ^DIR
KILL DIR
IF $DATA(DTOUT)!$DATA(DUOUT)
QUIT
SET FRMT=Y
DEVICE SET NODE=$ORDER(^XTMP("XUCP",""))
+1 SET %H=$PIECE(^XTMP("XUCP","zzz"),"^")
DO YX^%DTC
SET SDT=Y
SET %H=$PIECE(^XTMP("XUCP","zzz"),"^",2)
DO YX^%DTC
SET EDT=Y
+2 SET SDT=$TRANSLATE(SDT," ,@:")
SET EDT=$TRANSLATE(EDT," ,@:")
+3 SET FNAME=$SELECT(ACT["CUM":"CUM"_$EXTRACT(NODE,1,4),1:NODE)_"_"_SDT_"_"_EDT_".XUCP"_FRMT
+4 SET DIR("A")="Write to file ("_FNAME_")"
SET DIR(0)="Y"
SET DIR("B")="YES"
+5 DO ^DIR
KILL DIR
SET TOFILE=Y
IF $DATA(DTOUT)!$DATA(DUOUT)
QUIT
+6 IF TOFILE
SET %ZIS("HFSNAME")=FNAME
SET %ZIS("HFSMODE")="W"
SET IOP="HFS"_$SELECT(FRMT="G":";132",1:";80")
+7 IF TOFILE
SET DIR("A")="Would you like to queue this job for background execution"
SET DIR(0)="Y"
SET DIR("B")="YES"
DO ^DIR
KILL DIR
SET XUCPQ=Y
IF $DATA(DTOUT)!$DATA(DUOUT)
QUIT
+8 IF TOFILE&$GET(XUCPQ)
SET IOP="Q;"_IOP
+9 SET %ZIS=$SELECT('TOFILE:"MQ",$GET(XUCPQ)&TOFILE:"NQ",1:"")
DO ^%ZIS
IF POP
QUIT
+10 IF FRMT="T"
IF IOM<80
WRITE !,"The TABLE format requires at least 80 column device."
GOTO DEVICE
+11 IF FRMT="G"
IF IOM<132
WRITE !,"The GRAPH format requires at least 132 column device."
GOTO DEVICE
+12 IF $DATA(IO("Q"))
SET ZTRTN="DQ^XUCPFRMT"
Begin DoDot:1
+13 SET ZTDESC="Resource Usage by Option ("_$SELECT(FRMT="G":"Graph",1:"Table")_")"
+14 SET (ZTSAVE("XTR"),ZTSAVE("FRMT"),ZTSAVE("ACT"))=""
DO ^%ZTLOAD
DO HOME^%ZIS
+15 IF $DATA(ZTSK)
WRITE !,"Queued as task ",ZTSK,!
End DoDot:1
QUIT
DQ ;PRINT REPORT (POSSIBLY BY TASKMAN)
+1 ;quit if no sorted data to output
IF $DATA(^XTMP("XUCP","zzz"))<11
GOTO END
+2 NEW OPT,NODE,DATE,JOB,TIME,SC,SD,SN,XOPT,SDT,EDT
+3 ;necessary because of the NEW cmnd
SET X=^%ZOSF("ERRTN")
SET @^%ZOSF("TRAP")
+4 SET %H=$PIECE(^XTMP("XUCP","zzz"),U)
DO YX^%DTC
SET SDT=Y
SET %H=$PIECE(^("zzz"),U,2)
DO YX^%DTC
SET EDT=Y
+5 KILL ^TMP($JOB)
COLLECT ;
+1 SET (OPT,NODE,DATE,JOB,TIME)=""
+2 FOR
SET OPT=$ORDER(^XTMP("XUCP","zzz",OPT))
IF OPT=""
QUIT
Begin DoDot:1
+3 FOR
SET NODE=$ORDER(^XTMP("XUCP","zzz",OPT,NODE))
IF NODE=""
QUIT
Begin DoDot:2
+4 FOR
SET DATE=$ORDER(^XTMP("XUCP","zzz",OPT,NODE,DATE))
IF DATE=""
QUIT
Begin DoDot:3
+5 FOR
SET JOB=$ORDER(^XTMP("XUCP","zzz",OPT,NODE,DATE,JOB))
IF JOB=""
QUIT
Begin DoDot:4
+6 FOR
SET TIME=$ORDER(^XTMP("XUCP","zzz",OPT,NODE,DATE,JOB,TIME))
IF TIME=""
QUIT
SET X=^(TIME)
SET XOPT=$EXTRACT(OPT,1,XTR)
Begin DoDot:5
+7 IF ACT["NODE"
Begin DoDot:6
+8 SET X1=$GET(^TMP($JOB,"N",NODE,XOPT))+1
SET ^(XOPT)=X1
+9 SET X1=$GET(^TMP($JOB,"C",NODE,XOPT))+$PIECE(X,U)
SET ^(XOPT)=X1
+10 SET X1=$GET(^TMP($JOB,"D",NODE,XOPT))+$PIECE(X,U,2)
SET ^(XOPT)=X1
+11 SET X1=$GET(^TMP($JOB,"T",NODE,XOPT))+$PIECE(X,U,5)
SET ^(XOPT)=X1
End DoDot:6
+12 IF ACT["CUM"
Begin DoDot:6
+13 SET X1=$GET(^TMP($JOB,"N","zCUM",XOPT))+1
SET ^(XOPT)=X1
+14 SET X1=$GET(^TMP($JOB,"C","zCUM",XOPT))+$PIECE(X,U)
SET ^(XOPT)=X1
+15 SET X1=$GET(^TMP($JOB,"D","zCUM",XOPT))+$PIECE(X,U,2)
SET ^(XOPT)=X1
+16 SET X1=$GET(^TMP($JOB,"T","zCUM",XOPT))+$PIECE(X,U,5)
SET ^(XOPT)=X1
End DoDot:6
End DoDot:5
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+17 USE IO
PRINT ;PRINT DATA SUBTOTALED BY NODE (NODE zCUM IS ACTUALLY TOTALS)
+1 SET OPT=""
SET NODE=$SELECT(ACT["NODE":"",1:"ZZZ")
+2 FOR
SET NODE=$ORDER(^TMP($JOB,"C",NODE))
IF NODE=""!(NODE="zCUM"&(ACT'["CUM"))
QUIT
Begin DoDot:1
+3 SET (SC,SD,SN)=0
WRITE @IOF
WRITE !?(9+((FRMT="G")*27))
+1 WRITE $SELECT(NODE'="zCUM":"Node "_NODE,1:"Station "_$EXTRACT($ORDER(^XTMP("XUCP",0)),1,4))
+2 WRITE " from ",SDT," to ",EDT,!
+3 IF $LENGTH($PIECE(^XTMP("XUCP","zzz"),U,3))
WRITE ?(8+((FRMT="G")*27)),"*** Merged data may not be continuous over the date range! ***",!
+4 IF FRMT="G"
WRITE "OPT",?10,"CPUSEC",?118,"DIO",?124,"SEC",?131,"N",!!
+5 IF '$TEST
WRITE !,?8,$JUSTIFY($EXTRACT("OPT",1,XTR),XTR),$JUSTIFY("CPU",7),$JUSTIFY("DIO",7),$JUSTIFY("SEC",7)
Begin DoDot:2
+6 WRITE $JUSTIFY("N",5),$JUSTIFY("C/N",7),$JUSTIFY("D/N",7),$JUSTIFY("S/N",7),$JUSTIFY("C/S",6),$JUSTIFY("D/S",5),!!
End DoDot:2
NDLOOP FOR
SET OPT=$ORDER(^TMP($JOB,"C",NODE,OPT))
IF OPT=""
QUIT
Begin DoDot:2
+1 SET C=^TMP($JOB,"C",NODE,OPT)
SET D=^TMP($JOB,"D",NODE,OPT)
SET T=^TMP($JOB,"T",NODE,OPT)
SET N=^TMP($JOB,"N",NODE,OPT)
+2 IF FRMT="G"
DO GRPHOUT
IF FRMT="T"
DO TABLOUT
+3 ;accum totals
SET SC=SC+^TMP($JOB,"C",NODE,OPT)
SET SD=SD+^TMP($JOB,"D",NODE,OPT)
SET SN=SN+^TMP($JOB,"N",NODE,OPT)
End DoDot:2
TOTALS WRITE !
IF FRMT="T"
WRITE ?3+XTR
WRITE "TOTAL"
IF FRMT="G"
WRITE ?7
+1 WRITE $JUSTIFY(SC+.5\1,7)
IF FRMT="G"
WRITE ?114
+2 WRITE $JUSTIFY(SD,7),?$X+$SELECT(FRMT="G":5,1:6),$JUSTIFY(SN,6)
End DoDot:1
END DO ^%ZISC
KILL ^TMP($JOB),XTR,FRMT,ACT,T,X,X1,Y,Y1,C,D,I,N,ZTDESC,ZTRTN,ZTSAVE,ZTSK
+1 QUIT
GRPHOUT WRITE $JUSTIFY(OPT,XTR),?8,$JUSTIFY(C,6,0)
SET X=C/5\1
IF X>50
WRITE "<"
IF X>50
SET X=50
WRITE ?(65-X)
FOR I=1:1:X
WRITE "*"
+1 SET (Y,Y1)=D/500\1
IF Y>49
SET Y=49
FOR I=1:1:Y
WRITE "-"
+2 IF Y1>49
WRITE ">"
WRITE ?115,$JUSTIFY(D,6),$JUSTIFY(T+.5\1,6),$JUSTIFY(N,5),!
+3 QUIT
TABLOUT WRITE ?8,$JUSTIFY(OPT,XTR),$JUSTIFY(C+.5\1,7),$JUSTIFY(D,7),$JUSTIFY(T+.5\1,7),$JUSTIFY(N,5),$JUSTIFY(C*100+.5/N\1/100,7,2),$JUSTIFY(D*10+.5/N\1/10,7,1),$JUSTIFY(T*10+.5/N\1/10,7,1),$JUSTIFY(C*1000+.5/T\1/1000,6,2),$JUSTIFY(D*100+.5/T\1/100,5,1
),!
+1 QUIT
