Routine: XQLOCK

Information

XQLOCK ;SEA/Luke - Find all the keys in the tree; [ 07/29/2004 9:01 AM ]

Source Information

Source file <XQLOCK.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Kernel	3	MERGE^XQ12 PM1^XQ8 (EDIT,PAUSE)^XQLOCK1
VA Fileman	2	^DIC FILE^DICN

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Kernel	1	XQLOCK1

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;Display the locked options with their keys
SHOW	;Show the current set of keys
TREE	;Get the name of the menu tree in question
INIT	;Get things set up
DOIT	;Add the key set to a user's Aloocated or Delegated Keys file
EN1	;Look up menu trees by user. Entry for option ENLOCK1.
EN2	;Look up keys for a given menu tree. Entry for option ENLOCK2.
EN3	;Look up Keys for menu delegation.
USR	;Find the user and the menu in question
KEY	;Look up a key in the Key file and get its number
BLD	;See if the menu tree has been built if not, do it
GOT1	;Record a lock
CHUZ1
FIND	;Order through the child options and find the locks
SHO	;Show the primary and secondary menus of +XQUSR
OUT	;Clean up and quit

External References

Name	Field # of Occurrence
^DIC	USR+2, TREE+1
FILE^DICN	DOIT+3
MERGE^XQ12	BLD+6
PM1^XQ8	BLD+3
EDIT^XQLOCK1	CHUZ1+6
PAUSE^XQLOCK1	DISP+3, SHO+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: USR+2
Function Call: READ	Timeout: DTIME Variable: % Line Location: USR+4
Function Call: WRITE	Prompt: !!,"Enter a menu tree by number : " Line Location: USR+4
Function Call: WRITE	Prompt: !!,"==> Working... " Line Location: BLD+2
Function Call: WRITE	Prompt: !!,"There ",$S(XQN=1:"is one ",1:"are some "),"locked option",$S(XQN=1:":",1:"s:") Line Location: DISP+1
Function Call: WRITE	Prompt: !!," Option Name",?23,"Option Text",?62,"Locked With",! Line Location: DISP+2
Function Call: WRITE	Prompt: ?(XQK#XQI*15),XQJ Line Location: SHOW+1
Function Call: WRITE	Prompt: !!,"Please enter one of the following codes:",!!?5,"'A' means allocate these keys",!?5,"'D' means delegate this key set" Line Location: CHUZ1+0
Function Call: WRITE	Prompt: !?5,"'E' to edit the set of keys you wish to allocate",!?5,"'^' or 'RETURN' to quit",!?5,"'L' to list the locked options again, or",!?5,"'S' to show the set of keys you are allocating again." Line Location: CHUZ1+1
Function Call: READ	Timeout: DTIME Line Location: CHUZ1+2
Function Call: WRITE	Prompt: $C(7),"?? " Line Location: CHUZ1+3
Function Call: WRITE	Prompt: !!?5,"==> ",$P(XQUSR,U,2)," has no primary menu." Line Location: SHO+2
Function Call: WRITE	Prompt: $C(7),!!?5,"==> A key named ",XQK," ??",! Line Location: KEY+1
Routine Call	DIC Line Location: USR+2 TREE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19 - [#19]	FIND+2, SHO+1, SHO+3
^DIC(19.1 - [#19.1]	GOT1+1, KEY+1
^TMP($J	DISP+3, OUT+2!, GOT1+4*
^VA(200 - [#200]	DOIT+3, GOT1+2, GOT1+3, SHO+1, SHO+3
^XUSEC("XUMGR"	INIT+1
^XUTL("XQO"	BLD+2, FIND+2

Label References

Name	Line Occurrences
BLD	EN1+1, EN2+1, EN3+1
CHUZ1	EN1+1, EN2+1, EN3+1, CHUZ1+3, CHUZ1+4, CHUZ1+5, CHUZ1+6, CHUZ1+7, CHUZ1+8
DISP	EN1+1, EN2+1, EN3+1, CHUZ1+7
DOIT	CHUZ1+4, CHUZ1+5
GOT1	FIND+2
INIT	EN1+1, EN2+1, EN3+1
OUT	EN1+1, EN2+1, EN3+1
SHO	USR+2
SHOW	EN1+1, EN2+1, EN3+1, CHUZ1+8
TREE	EN2+1
USR	EN1+1, CHUZ1+4, CHUZ1+5

Naked Globals

Name	Field # of Occurrence
^(	FIND+2, SHO+3
^(0	FIND+2, SHO+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	USR+4, USR+5, USR+6, OUT+3!, SHO+1, SHO+3*
DA	DOIT+1~, OUT+3!
DA(1	DOIT+2*
DIC	USR+2, TREE+1, DOIT+1~, DOIT+2*, OUT+3!
DIC("A"	USR+2, TREE+1
DIC("P"	DOIT+2*
DIC(0	USR+2, TREE+1, DOIT+2*
DINUM	DOIT+3*, DOIT+4!
DTIME	USR+4, CHUZ1+2
DUZ	INIT+1, GOT1+2
U	USR+4, USR+5, FIND+2, DISP+3, CHUZ1+2, CHUZ1+6, GOT1+4, SHO+1, SHO+2, SHO+3 , SHO+4
X	DOIT+1~, DOIT+3*, OUT+3!
XQ	OUT+3!, KEY+1*
XQAL	CHUZ1+4, CHUZ1+5, DOIT+2, OUT+3!
XQBOSS	INIT+1*, OUT+3!, GOT1+2
>> XQDA	EN3+1
>> XQDIC	EN3+1, BLD+1, BLD+2, BLD+5, FIND+2, OUT+1*
XQEN	EN1+1, EN2+1, EN3+1*, USR+1, USR+2, CHUZ1+4, CHUZ1+5, OUT+3!
>> XQFL	DOIT+2*, DOIT+3
XQI	DISP+3, SHOW+1, OUT+3!, SHO+3*
XQIJ	OUT+3!, SHO+4*
XQJ	FIND+1, FIND+2, SHOW+1*, OUT+3!
XQK	FIND+2, SHOW+1, OUT+3!, GOT1+1, GOT1+4, GOT1+6, KEY+1
XQKEY	OUT+3!
XQKEY(	SHOW+1, DOIT+3, GOT1+6*
XQKN	OUT+3!, GOT1+1*, GOT1+2, GOT1+3, GOT1+6
XQMENU	OUT+3!
XQMENU(	USR+4, USR+6, SHO+3*, SHO+4
XQMENU(1	SHO+1*, SHO+2
XQN	EN1+1, EN2+1, EN3+1, FIND+1, FIND+4, DISP+1, DISP+3, OUT+3!, GOT1+4, GOT1+5
XQNM	FIND+2*, OUT+3!, GOT1+4
XQNXT	DOIT+3*, OUT+3!
XQOP	OUT+3!
>> XQPSM	BLD+4, BLD+5, BLD+7
XQSAV	BLD+1*, OUT+1, OUT+3!
XQSAVE1	BLD+4*, BLD+7, OUT+3!
>> XQSM	SHO+3*
XQTXT	FIND+2*, OUT+3!, GOT1+4
XQUR	CHUZ1+2*, CHUZ1+3, CHUZ1+4, CHUZ1+5, CHUZ1+6, CHUZ1+7, CHUZ1+8, OUT+3!
XQUS	CHUZ1+4!
XQUSR	EN3+1, USR+2, CHUZ1+4, CHUZ1+5!, DOIT+2, DOIT+3, OUT+3!, GOT1+3, SHO+1, SHO+2 , SHO+3
XQX	EN3+1, USR+6, TREE+1, BLD+1*, OUT+3!
>> XQXUF	BLD+2*
XQZZGOOD	DOIT+5*, OUT+3!
Y	EN1+1, EN2+1, USR+2, USR+5, TREE+1, OUT+3!, SHO+2
>> ZTQUEUED	FIND+4, GOT1+4, SHO+4

Customize PDF page

Package: Kernel

Routine: XQLOCK

Call Graph Total: 5

Caller Graph Total: 1