source: WorldVistAEHR/trunk/r/LIBRARY-LBR-LBRS/LBRYALA.m@ 1650

Last change on this file since 1650 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 1.6 KB
Line 
1LBRYALA ;SSI/ALA-DISPLAY GLOBAL ;[ 09/15/94 12:51 PM ]
2 ;;2.5;Library;;Mar 11, 1996
3ASK ; Ask to display global or search global or edit fields
4 R !!,"(S)earch, (D)isplay, or (E)dit Library globals? ",ANS:DTIME G EXIT:ANS=""
5 I '$F("SsDdEe",ANS) G EXIT
6 I $F("Ss",ANS) D SRC
7 I $F("Dd",ANS) D BEG
8 I $F("Ee",ANS) D ^LBRYALA1
9 G ASK
10 ; This option is to display library globals only
11BEG R !,"Enter Global: ",AGLB:DTIME Q:AGLB=""
12 I $E(AGLB,1,3)'="LBR"&($E(AGLB,1,2)'="DD") G BEG
13 S SGL=AGLB
14 I $E(AGLB,$L(AGLB),$L(AGLB))=":" S AGLB=$E(AGLB,1,$L(AGLB)-1),SGL=""
15 I $E(AGLB,$L(AGLB),$L(AGLB))="," S AGLB=$E(AGLB,$L(AGLB)-1,$L(AGLB)-1),SGL=AGLB
16 S BGL="^"_AGLB_$S(AGLB'="LBRY"&(AGLB'="LBRL")&(AGLB'="LBRZ"):")",1:"")
17 D ^%ZIS Q:POP S NL=0,QF=0 W @IOF
18LP S BGL=$Q(@BGL)
19 I SGL="",BGL="" G BEG
20 I SGL'="",BGL'[AGLB G BEG
21 S NL=NL+1 I IOSL=24,((NL+1)>22) S QF=0 D G BEG:QF
22 . R !,"Press return to continue or '^' to quit: ",NS:DTIME
23 . I NS'="^" S NL=1 W @IOF Q
24 . S QF=1
25 W !,BGL," ",@BGL
26 G LP
27EXIT K BGL,AGLB,SGL,NL,QF,NL,NS,TEX,ANS
28 Q
29SRC ; Search for specific text in Library globals
30 R !!,"Enter text to search for: ",TEX:DTIME
31 I TEX="" Q
32 R !,"Enter Global: ",AGLB:DTIME Q:AGLB=""
33 I $E(AGLB,1,3)'="LBR" G BEG
34 I $E(AGLB,$L(AGLB),$L(AGLB))="," S AGLB=$E(AGLB,$L(AGLB)-1,$L(AGLB)-1)
35 S BGL="^"_AGLB_$S(AGLB'="LBRY"&(AGLB'="LBRL"):")",1:""),SGL=BGL
36 D ^%ZIS Q:POP S NL=0,QF=0 W @IOF
37 F S BGL=$Q(@BGL) Q:BGL=""!(BGL'[AGLB) D Q:QF
38 . I @BGL'[TEX Q
39 . S NL=NL+1 I IOSL=24,NL+1>22 S QF=0 D Q:QF
40 .. R !,"Press return to continue or '^' to quit: ",NS:DTIME
41 .. I NS'="^" S NL=1 W @IOF Q
42 .. S QF=1
43 . W !,BGL," ",@BGL
44 G SRC
Note: See TracBrowser for help on using the repository browser.