| 1 | XBHEDD2 ;402,DJB,10/23/91,EDD - Screen prompt ; keeps track of pages
|
|---|
| 2 | ;;4.0;XB;;Jul 20, 2009;Build 2
|
|---|
| 3 | ;;David Bolduc - Togus, ME
|
|---|
| 4 | TOP S PAGETEMP=PAGE D ASK
|
|---|
| 5 | I Z1="B" S PAGETEMP=PAGE-1 D MOVE
|
|---|
| 6 | I Z1?1.N S PAGETEMP=Z1 D MOVE
|
|---|
| 7 | I Z1="I" S PAGETEMP=PAGE D ^XBHEDD3 Q:FLAGE D MOVE
|
|---|
| 8 | I Z1="N" S PAGETEMP=PAGE D ^XBHEDD9 Q:FLAGE D MOVE
|
|---|
| 9 | I Z1="?" S PAGETEMP=PAGE D ^XBHEDD14,MOVE
|
|---|
| 10 | Q:FLAGQ!FLAGE I FLAGL,Z1="" Q
|
|---|
| 11 | S PAGE=PAGE+1,YCNT=1 W @IOF W:IO'=IO(0) !!! D HD
|
|---|
| 12 | Q
|
|---|
| 13 | ASK ;
|
|---|
| 14 | S FLAGQ=0 I $Y'>SIZE F I=$Y:1:SIZE W !
|
|---|
| 15 | W !,$E(ZLINE,1,IOM),!," B=Backup N=Node I=Indiv Fld Sum 'num'=Jump(1 to TOP)",?57,"|",?69,"| TOP: ",PAGE
|
|---|
| 16 | W !," <RETURN>=Continue ^=Quit ^^=Exit ?=Help",?57,"|",?69,"| CUR: ",PAGETEMP
|
|---|
| 17 | F I=1:1:18 W *8
|
|---|
| 18 | R "Select: ",Z1:DTIME S:'$T Z1="^" I Z1["^" S FLAGQ=1 S:Z1="^^" FLAGE=1
|
|---|
| 19 | S:$E(Z1)="0" Z1=+Z1 S:Z1["." Z1=Z1\1
|
|---|
| 20 | Q
|
|---|
| 21 | MOVE ;
|
|---|
| 22 | W @IOF W:IO'=IO(0) !!! D HD S PAGETEMP=$S(PAGETEMP<1:1,PAGETEMP>PAGE:PAGE,1:PAGETEMP)
|
|---|
| 23 | S H="" F I=0:0 S H=$O(^UTILITY($J,"LIST",PAGETEMP,H)) Q:H="" S ZZH=^UTILITY($J,"LIST",PAGETEMP,H) S ZONE=$P(ZZH,U),ZTWO=$P(ZZH,U,2),ZTHREE=$P(ZZH,U,3) W !?2,$J(ZONE,12),?17,$J(ZTWO,8),?28,ZTHREE
|
|---|
| 24 | D ASK Q:FLAGQ
|
|---|
| 25 | I Z1="B" S PAGETEMP=PAGETEMP-1 G MOVE
|
|---|
| 26 | I Z1?1.N S PAGETEMP=Z1 G MOVE
|
|---|
| 27 | I Z1="I" D ^XBHEDD3 Q:FLAGE G MOVE
|
|---|
| 28 | I Z1="N" D ^XBHEDD9 Q:FLAGE G MOVE
|
|---|
| 29 | I Z1="?" D ^XBHEDD14 G MOVE
|
|---|
| 30 | S PAGETEMP=PAGETEMP+1 Q:PAGETEMP>PAGE
|
|---|
| 31 | G MOVE
|
|---|
| 32 | HD ;Heading
|
|---|
| 33 | W !?2,"NODE ; PIECE",?17,"FLD NUM",?48,"FIELD NAME",!?2,"------------",?17,"--------",?28,"-------------------------------------------------"
|
|---|
| 34 | Q
|
|---|
