source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XQLOCK1.m@ 975

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

initial load of WorldVistAEHR

File size: 1001 bytes
Line 
1XQLOCK1 ;MJM/SEA - Utilities for keys in the tree ;04/07/95 11:08
2 ;;8.0;KERNEL;;Jul 10, 1995
3 ;
4EDIT ;Edit the set of keys we're working with
5 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"")"
6 ;W !?5,"'+' (plus) to add a key to this set of keys",!?8,"(For example ""+XQJUNK"" or ""+XQJUNK,XQKEY2"")"
7 W !?5,"'S' to show the current key set"
8 W !?5,"'RETURN' to end the editing session",!?5,"'^' to quit thiogram altogether",!
9 R !!,"Enter -KEY, S, or ^ :",XQUR:DTIME Q:XQUR=""!(XQUR=U)!("-+^"'[$E(XQUR))
10 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)
11 I "Ss"[XQUR D SHOW^XQLOCK G EDIT
12 Q
13 ;
14PAUSE ;Hold screen so it doesn't run off
15 W !!,"Hit 'RETURN' to continue, '^' to stop." R XQDUMMY:DTIME
16 I XQDUMMY=U S XQI=-1 K XQDUMMY Q
17 W !!," Option Name",?23,"Option Text",?62,"Locked With",!
18 K XQDUMMY
19 Q
Note: See TracBrowser for help on using the repository browser.