XTRTHV.m

XTRTHV ;ISCSF/HVB - RTHIST SUMMARY (VAX DSM) ;01/18/95  13:46

 ;;7.3;TOOLKIT;;Apr 25, 1995

MSG W " Grant World READ access for ^RTH; then comment out lines MSG:MSG+2.",!

 W " This routine must be used from the Production UCI.",!

 W " If your Mgr UCI is not named MGR, edit line A+1 appropriately.",! Q

A D ^%ZIS Q:POP  U IO

 S (NODE,SUB)="" F  S NODE=$O(^["MGR"]RTH(NODE)) Q:NODE=""  D HDR F  S SUB=$O(^["MGR"]RTH(NODE,SUB)) Q:SUB=""  S %H=^(SUB,"STIME") D YX^%DTC,HDR:$E(IOST)="P"&($Y>IOSL) D

 .S SECS=$P(^("ETIME"),",",1)-$P(^("STIME"),",",1)*86400+$P(^("ETIME"),",",2)-$P(^("STIME"),",",2)

 .W !,$J(NODE,7),$J(SUB,4),?12,$TR(Y," :"),?29,$J(SECS\60_":"_$S($L(SECS#60)=2:SECS#60,1:0_(SECS#60)),6),$J(^("ROUREF")*10/SECS+.5\1/10,7,1),$J(^("MAPROU")*10/SECS+.5\1/10,7,1)

 .W $J(^("Global Gets")*10/SECS+.5\1/10,7,1),$J(^("Global Sets")*10/SECS+.5\1/10,7,1),$J(^("Global Kills")*10/SECS+.5\1/10,7,1)

 .W $J(^("Logical Reads")*10/SECS+.5\1/10,8,1),$J(^("Physical Reads")*10/SECS+.5\1/10,7,1),$J(^("Logical Writes")*10/SECS+.5\1/10,7,1),$J(^("Physical Writes")*10/SECS+.5\1/10,7,1)

 .W $J(^("TOTIME")*10/SECS+.5\1/10,7,1) W:$D(^("DDP","[TOTAL","XMTS")) $J(^("XMTS")*10/SECS+.5\1/10,7,1)

 D ^%ZISC Q

HDR W #!,$J("NODE",7),$J("#",4),$J("STARTDATE @ STIME",18),$J("ET ",6),$J("ROUREF",7),$J("MAPROU",7),$J("GLOGET",7),$J("GLOSET",7),$J("GLOKIL",7),$J("LOGRD",8),$J("PHYSRD",7),$J("LOGWT",7),$J("PHYSWT",7),$J("ROUPCT",7),$J("DDPXMT",7),! Q

XTRTHV    ;ISCSF/HVB - RTHIST SUMMARY (VAX DSM) ;01/18/95  13:46

 +1       ;;7.3;TOOLKIT;;Apr 25, 1995

MSG        WRITE " Grant World READ access for ^RTH; then comment out lines MSG:MSG+2.",!

 +1        WRITE " This routine must be used from the Production UCI.",!

 +2        WRITE " If your Mgr UCI is not named MGR, edit line A+1 appropriately.",!

           QUIT 

A          DO ^%ZIS

           IF POP

               QUIT 

           USE IO

 +1        SET (NODE,SUB)=""

           FOR 

               SET NODE=$ORDER(^["MGR"]RTH(NODE))

               IF NODE=""

                   QUIT 

               DO HDR

               FOR 

                   SET SUB=$ORDER(^["MGR"]RTH(NODE,SUB))

                   IF SUB=""

                       QUIT 

                   SET %H=^(SUB,"STIME")

                   DO YX^%DTC

                   IF $EXTRACT(IOST)="P"&($Y>IOSL)

                       DO HDR

                   Begin DoDot:1

 +2                    SET SECS=$PIECE(^("ETIME"),",",1)-$PIECE(^("STIME"),",",1)*86400+$PIECE(^("ETIME"),",",2)-$PIECE(^("STIME"),",",2)

 +3                    WRITE !,$JUSTIFY(NODE,7),$JUSTIFY(SUB,4),?12,$TRANSLATE(Y," :"),?29,$JUSTIFY(SECS\60_":"_$SELECT($LENGTH(SECS#60)=2:SECS#60,1:0_(SECS#60)),6),$JUSTIFY(^("ROUREF")*10/SECS+.5\1/10,7,1),$JUSTIFY(^("MAPROU")*10/SECS+.5\1/10,7,1)

 +4                    WRITE $JUSTIFY(^("Global Gets")*10/SECS+.5\1/10,7,1),$JUSTIFY(^("Global Sets")*10/SECS+.5\1/10,7,1),$JUSTIFY(^("Global Kills")*10/SECS+.5\1/10,7,1)

 +5                    WRITE $JUSTIFY(^("Logical Reads")*10/SECS+.5\1/10,8,1),$JUSTIFY(^("Physical Reads")*10/SECS+.5\1/10,7,1),$JUSTIFY(^("Logical Writes")*10/SECS+.5\1/10,7,1),$JUSTIFY(^("Physical Writes")*10/SECS+.5\1/10,7,1)

 +6                    WRITE $JUSTIFY(^("TOTIME")*10/SECS+.5\1/10,7,1)

                       IF $DATA(^("DDP","[TOTAL","XMTS"))

                           WRITE $JUSTIFY(^("XMTS")*10/SECS+.5\1/10,7,1)

                   End DoDot:1

 +7        DO ^%ZISC

           QUIT 

HDR       WRITE #!,$JUSTIFY("NODE",7),$JUSTIFY("#",4),$JUSTIFY("STARTDATE @ STIME",18),...

           ... $JUSTIFY("ET ",6),$JUSTIFY("ROUREF",7),$JUSTIFY("MAPROU",7),$JUSTIFY("GLOGET",7),$JUSTIFY("GLOSET",7),$JUSTIFY("GLOKIL",7),$JUSTIFY("LOGRD",8),$JUSTIFY("PHYSRD",7),$JUSTIFY("LOGWT",7),$JUSTIFY("PHYSWT",7),$JUSTIFY("ROUPCT",7),$JUSTIFY("DDPX

MT",7),!

           QUIT