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: XQ55

Package: Kernel

Routine: XQ55


Information

XQ55 ; SEA/AMF,MJM,JLI - SEARCH FOR USERS ACCESS TO AN OPTION;

Source Information

Source file <XQ55.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 5 ^%ZIS  ^%ZISC  ^%ZTLOAD  ^XQDATE  $$ACTIVE^XUSER  
VA Fileman 3 ^DIC  YN^DICN  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Kernel 1 XUOPTWHO  

Entry Points

Name Comments DBIA/ICR reference
HDR ;
MUS
TREE1 ;
KILL
NEWPG ;
CON ;
USERS ;
SETU ;
INIT ;
DQ ;Entry point for queued job
OUT ;
PRTU ;
KEYCHECK() ; 080115 extracted common code
; returns 1 if user has access to the option, 0 if the user does not have access
EACHU ;
USERS1 ; 080115 code added to handle options on the COMMON (XUCOMMAND) menu
LOOP3 ;
LOOP2 ;
LOOP1
MENUPAT ;
OPT
SETGLO ;
TREE
MPAT

External References

Name Field # of Occurrence
^%ZIS LOOP3+2
^%ZISC OUT+1
^%ZTLOAD LOOP3+2
^DIC OPT
YN^DICN MPAT
^DIR USERS1+10
^XQDATE INIT+2
$$ACTIVE^XUSER USERS+1, USERS1+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: OPT+0
Function Call: WRITE
  • Prompt: !!,"If you answer 'YES', the listing will include the menu path(s) each user has",!,"to access the specified option."
  • Line Location: MPAT+0
Function Call: WRITE
  • Prompt: !,"***"
  • Line Location: USERS1+5
Function Call: WRITE
  • Prompt: !,"*** This option is available from the 'SYSTEM COMMAND OPTIONS' ***"
  • Line Location: USERS1+6
Function Call: WRITE
  • Prompt: !,"*** (XUCOMMAND) menu available to all active users unless ***"
  • Line Location: USERS1+7
Function Call: WRITE
  • Prompt: !,"*** protected by a KEY - DO YOU REALLY WANT THE ENTIRE LIST ***"
  • Line Location: USERS1+8
Function Call: WRITE
  • Prompt: !,"*** OF THESE USERS??? ***",!
  • Line Location: USERS1+9
Function Call: WRITE
  • Prompt: !!,"** NO USERS CAN ACCESS THIS OPTION **"
  • Line Location: LOOP3+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: CON+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: "Page ",XQPG,?62,XQDT,!!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?XQTAB,XQHDR
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"USER NAME",?27,"LAST ON",?37,"PRIMARY MENU"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?63,"PATH(S)"
  • Condition for execution: XQMP
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,$E(XQDSH,1,25),?27,$E(XQDSH,1,8),?37,$E(XQDSH,1,$S(XQMP:24,1:40))
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?63,$E(XQDSH,1,14)
  • Condition for execution: XQMP
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,$E($P(XQU,U,1),1,27),?27,K
  • Line Location: PRTU+2
Function Call: WRITE
  • Prompt: ?37,$E($P(^(0),U,1),1,24)
  • Line Location: PRTU+3
Function Call: WRITE
  • Prompt: ","
  • Line Location: PRTU+7
Function Call: WRITE
  • Prompt: " (Secondary menu)"
  • Line Location: PRTU+10
Function Call: WRITE
  • Prompt: !!,$E(XQDSH,1,27)," MENU PATH(S) ",$E(XQDSH,1,29),!
  • Line Location: MENUPAT+1
Function Call: WRITE
  • Prompt: " ... "
  • Condition for execution: N>1
  • Line Location: MENUPAT+2
Function Call: WRITE
  • Prompt: $P(^DIC(19,$P(K,",",N),0),U,1)
  • Line Location: MENUPAT+2
Function Call: WRITE
  • Prompt: !,"(S) - secondary menu pathway"
  • Line Location: MENUPAT+3
Function Call: WRITE
  • Prompt: !,"(C) - SYSTEM COMMAND OPTIONS (XUCOMMAND) menu pathway"
  • Line Location: MENUPAT+4
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: MUS+0
Function Call: WRITE
  • Prompt: !!,"Press return when finished viewing "
  • Line Location: MUS+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MUS+0
Routine Call
  • DIC
  • Line Location:
    • OPT
Routine Call
  • DIR
  • Line Location:
    • USERS1+10
Routine Call
  • %ZIS
  • Line Location:
    • LOOP3+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZTSK - [#14.4] MUS+1!, KILL+1!
^DIC(19 - [#19] MPAT+2, LOOP1, TREE, TREE1+1, USERS1+2, PRTU+3, MENUPAT+2
^TMP($J MPAT+1!, SETGLO+4*, LOOP2+1, USERS1+3, EACHU+2, KEYCHECK+2, KEYCHECK+4, SETU+1, SETU+4*, LOOP3+1
, DQ+3, PRTU+6, PRTU+7, PRTU+9, PRTU+10
^VA(200 - [#200] USERS+1, USERS1+12, SETU+4, PRTU+2, PRTU+3
^XUSEC( KEYCHECK+3, KEYCHECK+5

Label References

Name Line Occurrences
$$KEYCHECK USERS1+12, EACHU+2
CON NEWPG+1
EACHU USERS+1
HDR NEWPG+2
LOOP2 LOOP1+1
LOOP3 LOOP2+3
MENUPAT DQ+4, PRTU+1
MPAT MPAT
MUS LOOP2+2, DQ+2, DQ+3, DQ+4
NEWPG DQ+2, PRTU+1
OUT OPT, MPAT, LOOP3+1, LOOP3+2, MUS
PRTU DQ+3
SETGLO TREE1+2
SETU USERS1+12, EACHU+2
TREE TREE, TREE1+1, TREE1+2, TREE1+3
TREE1 LOOP1
USERS LOOP2+1
USERS1 LOOP2+2

Naked Globals

Name Field # of Occurrence
^(0 SETGLO+4*, PRTU+3
^(1.1 PRTU+2
^(201 PRTU+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % MPAT*
>> %Y INIT+2
>> %ZIS LOOP3+2*
DIC OPT*, KILL+1!
DIC(0 OPT*
DIR USERS1+10~
DIR(0 USERS1+10*
DTIME CON+1, MUS
I SETGLO+1*, SETGLO+2*, SETGLO+3*, SETU+2*, SETU+4*, MENUPAT+2*, KILL+1!
II USERS1+12*, EACHU+1*, SETU+4*, PRTU+7*, PRTU+9*, PRTU+10*, KILL+1!
IO DQ+1
IO("Q" LOOP3+2!
IOF HDR+1, MUS
IOSL PRTU+1
IOST NEWPG+1, MUS
J SETGLO+4*, USERS1+3*, EACHU+2*, KEYCHECK+2, KEYCHECK+4, SETU+1, PRTU+2*, PRTU+3, KILL!
JJ PRTU+6*, PRTU+7, KILL+1!
K MPAT+2*, LOOP1*, TREE*, TREE1+1, TREE1+2, SETGLO+4, PRTU+2*, PRTU+3*, MENUPAT+2*, KILL!
L LOOP1*, TREE, TREE1+1, TREE1+2*, TREE1+3*, SETGLO+1, SETGLO+2, SETGLO+3, KILL+1!
N MENUPAT+2*, KILL!
POP LOOP3+2, KILL+1!
U MPAT+2, LOOP1, TREE1+1, SETGLO+4, USERS1+3, KEYCHECK+2, KEYCHECK+4, SETU+1, SETU+4, CON+1
, PRTU+2, PRTU+3, MENUPAT+2
X KEYCHECK+3*, KEYCHECK+5*, NEWPG+1*, CON+1*, MUS*, KILL!
X( TREE*, TREE1+2*
X(0 LOOP1*
XQA LOOP1!, SETGLO+3*, SETGLO+4*, KILL!
XQA( TREE1+1*, TREE1+3!, SETGLO+3
>> XQCOM MPAT+2*, SETU+3*, MENUPAT+4
XQD LOOP1*, TREE, TREE1+2*, TREE1+3*, KILL!
XQD( TREE1+2*, TREE1+3
XQDSH INIT+1*, HDR+4, MENUPAT+1, KILL!
XQDT INIT+2*, HDR+2, KILL!
XQGO KEYCHECK+2*, KEYCHECK+3*, KEYCHECK+5*, KEYCHECK+6, KILL!
XQHDR MPAT+2*, HDR+2, KILL!
XQK LOOP1!, SETGLO+1*, SETGLO+4, KEYCHECK+2*, KEYCHECK+3, KEYCHECK+4*, KEYCHECK+5, KILL!
XQK( TREE1+1*, TREE1+3!, SETGLO+1
XQMP MPAT*, DQ+2, DQ+4, HDR+3, HDR+4, PRTU+1, PRTU+4, PRTU+8, KILL!
XQN LOOP2+1*, USERS1+3*, EACHU+2, KILL!
XQNOPRNT MPAT+2*, LOOP2+2, USERS1+10*, KILL+1!
XQOPT OPT*, MPAT+2, LOOP1, SETGLO+4, KILL!
XQP MPAT+1!, LOOP2+1*, USERS+1, USERS1+3*, EACHU+2, KEYCHECK+2, KEYCHECK+4, SETU+1, KILL!
XQPA SETU+1*, SETU+2, SETU+3*, SETU+4, KILL!
XQPA( SETU+2*, SETU+3
XQPA(0 LOOP2+1*, SETU+2*, DQ+2*, PRTU+1, MENUPAT+2
XQPG DQ+2*, NEWPG+1, HDR+1*, HDR+2, MUS, KILL!
XQPS LOOP2+1*, USERS+1, USERS1+12*, SETU+3, KILL!
XQR MPAT+1!, LOOP1!, KILL!
XQR( LOOP1*, TREE*, TREE1+3!
XQRV LOOP1!, SETGLO+2*, SETGLO+4, KILL!
XQRV( TREE1+1*, TREE1+3!, SETGLO+2
XQSCD MPAT+2*, SETU+3*, MENUPAT+3, KILL!
>> XQTAB HDR+2*
XQU USERS+1*, USERS1+12*, KEYCHECK+3, KEYCHECK+5, SETU+4, DQ+3*, PRTU+2, PRTU+6, PRTU+7, PRTU+9
, PRTU+10, KILL!
XQUI DQ+2*, DQ+3, NEWPG+1*, PRTU+1, KILL!
XUCOMMON USERS1+1~, USERS1+2*, USERS1+3
XX KEYCHECK+2*, KEYCHECK+3, KEYCHECK+4*, KEYCHECK+5, KILL!
Y OPT, USERS1+4, USERS1+10, KEYCHECK+3*, KEYCHECK+5*, KILL+1!
Y(0 TREE1+1*
ZTDESC LOOP3+2*!
>> ZTQUEUED KILL+1
ZTRTN LOOP3+2*!
ZTSAVE LOOP3+2!
ZTSAVE("XQ*" LOOP3+2*
ZTSAVE("^TMP($J," LOOP3+2*
ZTSK LOOP3+2!, MUS+1, KILL+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All