Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: XQLOCK

Package: Kernel

Routine: XQLOCK


Information

XQLOCK ;SEA/Luke - Find all the keys in the tree; [6/28/02 5:55am]

Source Information

Source file <XQLOCK.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: USR+2
Function Call: READ
  • Variable: %
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls