| [613] | 1 | XTFCR1 ;SF-ISC.SEA/JLI - DISPLAY FLOWCHART ;9/21/93 09:58 ;
|
|---|
| 2 | ;;7.3;TOOLKIT;;Apr 25, 1995
|
|---|
| 3 | W @IOF
|
|---|
| 4 | K LN S XT="",XTZX1="" F Z=0:0 S Z=$O(^TMP($J,XTLEV,"FC",Z)) Q:Z'>0 S XTZX=$O(^TMP($J,XTLEV,"FC",Z,"")) D LIST Q:XT=U
|
|---|
| 5 | I XT'=U D WAIT
|
|---|
| 6 | Q
|
|---|
| 7 | ;
|
|---|
| 8 | LIST ;
|
|---|
| 9 | S N=$S(IOM<80:80,1:IOM)\2+20,X=^TMP($J,XTLEV,"FC",Z,XTZX) S:'$D(LN) LN=N F XTZA=0:0 S Y=$E(X,1,4) Q:Y'=" "&(Y'="....") S X=$E(X,5,$L(X)),N=N-10 S:N<1 N=1
|
|---|
| 10 | D:N>LN CLOSE K NX S NX=$S(N>1:N,1:0) F NX=NX:10:($S(IOM<80:80,1:IOM)\2+20) S:'$D(NX(NX+10)) NX(NX)="" S:NX<($S(IOM<80:80,1:IOM)\2+20) NX(NX+20)=""
|
|---|
| 11 | I XTZX1'="PROC "!(XTZX'="PROC ") W ! I LN'=N!(XTZX1'="GOTO "&(XTZX1'="QUIT ")) F NX=-1:0 S NX=$O(NX(NX)) Q:NX="" W ?NX,"|"
|
|---|
| 12 | S LN=N,N=$S(XTZX="LABEL":N-$L(X),1:N-($L(X)\2))
|
|---|
| 13 | D:$Y+3>IOSL WAIT Q:XT=U W !,?N,X S XTZX1=XTZX
|
|---|
| 14 | F NX=0:0 S NX=$O(NX(NX)) Q:NX="" I NX>($X+1) W ?NX,"|"
|
|---|
| 15 | Q
|
|---|
| 16 | ;
|
|---|
| 17 | WAIT ; Skip to top of next page
|
|---|
| 18 | I IOST["C-" F K=1:1:4 Q:$Y+3'<IOSL W !
|
|---|
| 19 | I 1 S XT="" R:IOST["C-" !?26,"Press RETURN to continue, '^' to halt...",XT:DTIME S:'$T XT=U W @IOF
|
|---|
| 20 | Q
|
|---|
| 21 | CLOSE ; Close previous nesting level
|
|---|
| 22 | S IX1=$S(LN>1:LN,1:0),IX2=IX1+19 S:XTZX1="GOTO "!(XTZX1="QUIT ") IX1=IX1+10 W ! W:IX1'>LN ?IX1,"|" W:IX1>LN ?IX1 F IX3=0:0 Q:($X'<(IX2+1)) W "_"
|
|---|
| 23 | W "|" F NX=-1:0 S NX=$O(NX(NX)) Q:NX="" I $X<(NX-1) W ?NX,"|"
|
|---|
| 24 | S LN=$S(LN>1:LN,1:0)+10 I LN<N S XTZX1=" " G CLOSE
|
|---|
| 25 | S LN=LN-1 Q
|
|---|
