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

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Kernel	1	XUOPTWHO

Entry Points

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

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	Variable: X Timeout: DTIME 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	Variable: X Timeout: DTIME 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	%ZIS Line Location: LOOP3+2
Routine Call	DIC Line Location: OPT
Routine Call	DIR Line Location: USERS1+10

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

Customize PDF page

Package: Kernel