| 1 | XBRLL ; IHS/ADC/GTH - LIST ROUTINE LINES WITH LENGTHS ; [ 02/07/97 3:02 PM ]
|
|---|
| 2 | ;;4.0;XB;;Jul 20, 2009;Build 2
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine lists a single routine line by line noting
|
|---|
| 5 | ; the length of the line plus the cumulative character count.
|
|---|
| 6 | ;
|
|---|
| 7 | START ;
|
|---|
| 8 | NEW DIF,X,XCNP
|
|---|
| 9 | S X=$$DIR^XBDIR("FO^1:8","Enter routine name")
|
|---|
| 10 | Q:$D(DIRUT)
|
|---|
| 11 | X ^%ZOSF("TEST")
|
|---|
| 12 | Q:'$T
|
|---|
| 13 | KILL ^TMP("XBRLL",$J)
|
|---|
| 14 | S DIF="^TMP(""XBRLL"",$J,",XCNP=0
|
|---|
| 15 | X ^%ZOSF("LOAD")
|
|---|
| 16 | D ^%ZIS
|
|---|
| 17 | Q:POP
|
|---|
| 18 | U IO
|
|---|
| 19 | W !!,"....[LINE NUMBER/LENGTH OF THIS LINE/CUMULATIVE NUMBER OF CHARACTERS]",!!
|
|---|
| 20 | S (%2,%1)=0
|
|---|
| 21 | F %I=1:1 S %X=$G(^TMP("XBRLL",$J,%I,0)) Q:%X="" W ! S %Y=$P(%X," "),%Z=$E(%X,$L(%Y)+2,255),%2=%2+$L(%X)+2,%1=$S(%Y="":%1+1,1:0) S:%1>0 %Y=" +"_%1 S %Y=%Y_$J("",8-$L(%Y)) W %Y," ",%Z," [+",%I,"/",$L(%X),"/",%2,"]"
|
|---|
| 22 | KILL %1,%2,%N,%X,%Y,%Z,%I
|
|---|
| 23 | W !!
|
|---|
| 24 | KILL DIRUT,DTOUT,DUOUT,I,Y
|
|---|
| 25 | D ^%ZISC
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
