Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

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

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Kernel 2 XQLOCK1  XQLOCK2  

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

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
  • 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
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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All