XBRSIZ.m

XBRSIZ ; IHS/ADC/GTH - List routine names and sizes w/overall total. ; [ 02/07/97   3:02 PM ]

 ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997

 ;

 ; List routine names, sizes, and total bytes.

 ;

START ;

 W !!,"XBRSIZ - List routine names, sizes, and total bytes.",!

 X ^%ZOSF("RSEL")

 G EXIT:$O(^UTILITY($J,""))=""

 D ^%ZIS

 G EXIT:POP

 KILL ^TMP("XBRSIZ",$J)

 S (A,%R)=0

 X "F I=1:1 S A=$O(^UTILITY($J,A)),T=0 Q:'$L(A)  ZL @A S %R=%R+1 F J=1:1 S ^TMP(""XBRSIZ"",$J,""CRF"",I,J)=$T(+J),T=T+$L($T(+J))+2 I $T(+J+1)="""" S ^TMP(""XBRSIZ"",$J,""CRF1"",I,0)=A_""^""_T Q"

 KILL %R,A,I,J

PRT ;

 U IO

 W @IOF

 W !!?10,"XBRSIZ - LIST ROUTINE SIZES of "

 X ^%ZOSF("UCI")

 W Y,", ",$$HTE^XLFDT($H),!!?24,"ROUTINE",?36,"SIZE",!

 S SIZT=0

 F %I=1:1 Q:'$D(^TMP("XBRSIZ",$J,"CRF1",%I,0))  S Y=^(0) W !?24,$P(Y,"^"),?34,$J($P(Y,"^",2),6) S SIZT=SIZT+$P(Y,"^",2)

 W !!?24,"TOTAL",?34,$J(SIZT,6)

 W !!?24,%I-1,"  ROUTINE" W:%I-1>1 "S"

 KILL %I,J,N,S,SIZT,T,V,W,X,Y,Z

EXIT ;

 KILL ^TMP("XBRSIZ",$J),I,X

 D ^%ZISC

 Q

 ;

XBRSIZ    ; IHS/ADC/GTH - List routine names and sizes w/overall total. ; [ 02/07/97   3:02 PM ]

 +1       ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997

 +2       ;

 +3       ; List routine names, sizes, and total bytes.

 +4       ;

START     ;

 +1        WRITE !!,"XBRSIZ - List routine names, sizes, and total bytes.",!

 +2        XECUTE ^%ZOSF("RSEL")

 +3        IF $ORDER(^UTILITY($JOB,""))=""

               GOTO EXIT

 +4        DO ^%ZIS

 +5        IF POP

               GOTO EXIT

 +6        KILL ^TMP("XBRSIZ",$JOB)

 +7        SET (A,%R)=0

 +8        XECUTE "F I=1:1 S A=$O(^UTILITY($J,A)),T=0 Q:'$L(A)  ZL @A S %R=%R+1 F J=1:1 S ^TMP(""XBRSIZ"",$J,""CRF"",I,J)=$T(+J),T=T+$L($T(+J))+2 I $T(+J+1)="""" S ^TMP(""XBRSIZ"",$J,""CRF1"",I,0)=A_""^""_T Q"

 +9        KILL %R,A,I,J

PRT       ;

 +1        USE IO

 +2        WRITE @IOF

 +3        WRITE !!?10,"XBRSIZ - LIST ROUTINE SIZES of "

 +4        XECUTE ^%ZOSF("UCI")

 +5        WRITE Y,", ",$$HTE^XLFDT($HOROLOG),!!?24,"ROUTINE",?36,"SIZE",!

 +6        SET SIZT=0

 +7        FOR %I=1:1

               IF '$DATA(^TMP("XBRSIZ",$JOB,"CRF1",%I,0))

                   QUIT 

               SET Y=^(0)

               WRITE !?24,$PIECE(Y,"^"),?34,$JUSTIFY($PIECE(Y,"^",2),6)

               SET SIZT=SIZT+$PIECE(Y,"^",2)

 +8        WRITE !!?24,"TOTAL",?34,$JUSTIFY(SIZT,6)

 +9        WRITE !!?24,%I-1,"  ROUTINE"

           IF %I-1>1

               WRITE "S"

 +10       KILL %I,J,N,S,SIZT,T,V,W,X,Y,Z

EXIT      ;

 +1        KILL ^TMP("XBRSIZ",$JOB),I,X

 +2        DO ^%ZISC

 +3        QUIT 

 +4       ;