source: IHS-VA_UTILITIES-XB/trunk/XBHEDD2.m@ 830

Last change on this file since 830 was 642, checked in by Sam Habiel, 15 years ago

Modified directory structure; moved routines.

File size: 1.5 KB
Line 
1XBHEDD2 ;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
4TOP 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
13ASK ;
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
21MOVE ;
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
32HD ;Heading
33 W !?2,"NODE ; PIECE",?17,"FLD NUM",?48,"FIELD NAME",!?2,"------------",?17,"--------",?28,"-------------------------------------------------"
34 Q
Note: See TracBrowser for help on using the repository browser.