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 ---[H[J[2J[HXQLOCK1 1020 printed Dec 13, 2024@02:05:49 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
