| [613] | 1 | LBRYALA ;SSI/ALA-DISPLAY GLOBAL ;[ 09/15/94 12:51 PM ]
|
|---|
| 2 | ;;2.5;Library;;Mar 11, 1996
|
|---|
| 3 | ASK ; 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
|
|---|
| 11 | BEG 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
|
|---|
| 18 | LP 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
|
|---|
| 27 | EXIT K BGL,AGLB,SGL,NL,QF,NL,NS,TEX,ANS
|
|---|
| 28 | Q
|
|---|
| 29 | SRC ; 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
|
|---|
