XQLOCK1.m

XQLOCK1 ;MJM/SEA - Utilities for keys in the tree ;04/07/95  11:08

 ;;8.0;KERNEL;;Jul 10, 1995

 ;

EDIT ;Edit the set of keys we're working with

 W !!,"Enter one of the following codes followed by key name(s): ",!!?5,"'-' (minus) to remove a key from the set",!?8,"(For example ""-XQJUNK"" or ""-XQJUNK,XQMOREJUNK"")"

 ;W !?5,"'+' (plus) to add a key to this set of keys",!?8,"(For example ""+XQJUNK"" or ""+XQJUNK,XQKEY2"")"

 W !?5,"'S' to show the current key set"

 W !?5,"'RETURN' to end the editing session",!?5,"'^' to quit thiogram altogether",!

 R !!,"Enter -KEY, S, or ^ :",XQUR:DTIME Q:XQUR=""!(XQUR=U)!("-+^"'[$E(XQUR))

 I $E(XQUR,1)="-" S XQUR=$P(XQUR,"-",2) S %=1 F  S XQK=$P(XQUR,",",%) Q:XQK=""  S %=%+1 D KEY^XQLOCK I XQ>0 K XQKEY(XQK)

 I "Ss"[XQUR D SHOW^XQLOCK G EDIT

 Q

 ;

PAUSE ;Hold screen so it doesn't run off

 W !!,"Hit 'RETURN' to continue, '^' to stop." R XQDUMMY:DTIME

 I XQDUMMY=U S XQI=-1 K XQDUMMY Q

 W !!," Option Name",?23,"Option Text",?62,"Locked With",!

 K XQDUMMY

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XQLOCK1   1020     printed  Apr 09, 2024@21:08:08                                                                                                                                                                                                     Page 2

XQLOCK1   ;MJM/SEA - Utilities for keys in the tree ;04/07/95  11:08

 +1       ;;8.0;KERNEL;;Jul 10, 1995

 +2       ;

EDIT      ;Edit the set of keys we're working with

 +1        WRITE !!,"Enter one of the following codes followed by key name(s): ",!!?5,"'-' (minus) to remove a key from the set",!?8,"(For example ""-XQJUNK"" or ""-XQJUNK,XQMOREJUNK"")"

 +2       ;W !?5,"'+' (plus) to add a key to this set of keys",!?8,"(For example ""+XQJUNK"" or ""+XQJUNK,XQKEY2"")"

 +3        WRITE !?5,"'S' to show the current key set"

 +4        WRITE !?5,"'RETURN' to end the editing session",!?5,"'^' to quit thiogram altogether",!

 +5        READ !!,"Enter -KEY, S, or ^ :",XQUR:DTIME

           if XQUR=""!(XQUR=U)!("-+^"'[$EXTRACT(XQUR))

               QUIT 

 +6        IF $EXTRACT(XQUR,1)="-"

               SET XQUR=$PIECE(XQUR,"-",2)

               SET %=1

               FOR 

                   SET XQK=$PIECE(XQUR,",",%)

                   if XQK=""

                       QUIT 

                   SET %=%+1

                   DO KEY^XQLOCK

                   IF XQ>0

                       KILL XQKEY(XQK)

 +7        IF "Ss"[XQUR

               DO SHOW^XQLOCK

               GOTO EDIT

 +8        QUIT 

 +9       ;

PAUSE     ;Hold screen so it doesn't run off

 +1        WRITE !!,"Hit 'RETURN' to continue, '^' to stop."

           READ XQDUMMY:DTIME

 +2        IF XQDUMMY=U

               SET XQI=-1

               KILL XQDUMMY

               QUIT 

 +3        WRITE !!," Option Name",?23,"Option Text",?62,"Locked With",!

 +4        KILL XQDUMMY

 +5        QUIT