| [641] | 1 | XBRSIZ ; IHS/ADC/GTH - List routine names and sizes w/overall total. ; [ 02/07/97 3:02 PM ]
|
|---|
| 2 | ;;4.0;XB;;Jul 20, 2009;Build 2
|
|---|
| 3 | ;
|
|---|
| 4 | ; List routine names, sizes, and total bytes.
|
|---|
| 5 | ;
|
|---|
| 6 | START ;
|
|---|
| 7 | W !!,"XBRSIZ - List routine names, sizes, and total bytes.",!
|
|---|
| 8 | X ^%ZOSF("RSEL")
|
|---|
| 9 | G EXIT:$O(^UTILITY($J,""))=""
|
|---|
| 10 | D ^%ZIS
|
|---|
| 11 | G EXIT:POP
|
|---|
| 12 | KILL ^TMP("XBRSIZ",$J)
|
|---|
| 13 | S (A,%R)=0
|
|---|
| 14 | 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"
|
|---|
| 15 | KILL %R,A,I,J
|
|---|
| 16 | PRT ;
|
|---|
| 17 | U IO
|
|---|
| 18 | W @IOF
|
|---|
| 19 | W !!?10,"XBRSIZ - LIST ROUTINE SIZES of "
|
|---|
| 20 | X ^%ZOSF("UCI")
|
|---|
| 21 | W Y,", ",$$HTE^XLFDT($H),!!?24,"ROUTINE",?36,"SIZE",!
|
|---|
| 22 | S SIZT=0
|
|---|
| 23 | 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)
|
|---|
| 24 | W !!?24,"TOTAL",?34,$J(SIZT,6)
|
|---|
| 25 | W !!?24,%I-1," ROUTINE" W:%I-1>1 "S"
|
|---|
| 26 | KILL %I,J,N,S,SIZT,T,V,W,X,Y,Z
|
|---|
| 27 | EXIT ;
|
|---|
| 28 | KILL ^TMP("XBRSIZ",$J),I,X
|
|---|
| 29 | D ^%ZISC
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
