Routine: XQ6

Package	Total	Call Graph
VA Fileman	5	%XY^%RCR ^DIC YN^DICN (ENALL,IX)^DIK ^DIR
Kernel	2	(HOLDER,KEYFIL,LSTKEY)^XQ6A EN^XQH

Package	Total	Caller Graph
Kernel	6	XQ12 XQ6A XUKEYALL XUKEYDEALL XUS5 XUSERNEW

Entry Points

Name	Comments	DBIA/ICR reference
PAUSE	;Hold the screen
SHOW	;Show the users of a particular key
MESS	;Correct problems with key cross-references from 7.0 %RCR above.
LIST	;List all the keys of a given user
INIT	;
EN1
EN2
EN3
EN4
KEY	;
SERVICE(USR)
OUT
HOLDER	;Continue in next routine
ATOD	;Convert all of a users allocated keys to delegated keys
MORE	;Handles subordinate or exploding keys

External References

Name	Field # of Occurrence
%XY^%RCR	ATOD+5
^DIC	KEY+7, SHOW+1, LIST+1, ATOD+1
YN^DICN	MORE+1
ENALL^DIK	ATOD+7
IX^DIK	MESS+4
^DIR	ATOD+4
HOLDER^XQ6A	HOLDER+1
KEYFIL^XQ6A	KEY+5
LSTKEY^XQ6A	KEY+5
EN^XQH	KEY+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You've nothing to allocate. See your package coordinator or site manager." Line Location: KEY+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: KEY+3
Function Call: WRITE	Prompt: !!,$S($O(XQKEY(0))>0:"Another",XQAL&XQDA:"Delegate",XQAL:"Allocate",'XQAL&XQDA:"Remove delegated",1:"De-allocate")," key: " R X:DTIME S:'$T Line Location: KEY+3
Function Call: WRITE	Prompt: " ??",*7 Line Location: KEY+7
Function Call: WRITE	Prompt: $S($D(XQKEY(+Y)):" Deleted from current list",1:$C(7)_" ?? Key not on list") Line Location: KEY+8
Function Call: WRITE	Prompt: !,*7,"DO NOT GIVE PROVIDER KEY!! IT MUST BE DONE UNDER ADD PROVIDER OPTION!!",!,"TYPE ^ TO START OVER." Line Location: KEY+12
Function Call: WRITE	Prompt: !!,"There are subordinate keys, do you wish to add them" Line Location: MORE+1
Function Call: WRITE	Prompt: !!,"If you answer 'YES', the subordinate keys will be listed and added." Line Location: MORE+2
Function Call: WRITE	Prompt: !,$P(^DIC(19.1,XQJ,0),"^")," ",$P(^(0),U,2) Line Location: MORE+3
Function Call: WRITE	Prompt: !!,"There are no holders of this key." Line Location: SHOW+2
Function Call: WRITE	Prompt: @IOF,?15,"Current holders of the key ",XQKEY,!! Line Location: SHOW+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: PAUSE+1
Function Call: WRITE	Prompt: @IOF,?15,"Current holders of the key ",XQKEY,!! Line Location: PAUSE+2
Function Call: WRITE	Prompt: @IOF Line Location: LIST+5
Function Call: WRITE	Prompt: !!,XQUSER," does not currently hold any keys." Line Location: LIST+5
Function Call: WRITE	Prompt: ?(XQI#XQK*16),% Line Location: LIST+6
Function Call: WRITE	Prompt: ?(XQI#XQK*16),% Line Location: LIST+8
Function Call: WRITE	Prompt: !!,XQUSER," does not hold any keys to transfer." Line Location: ATOD+3
Function Call: WRITE	Prompt: !!,XQUSER," already has some delegated keys." Line Location: ATOD+4
Routine Call	DIC Line Location: KEY+7 SHOW+1 LIST+1 ATOD+1
Routine Call	DIR Line Location: ATOD+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19.1 - [#19.1]	KEY+14, MORE+3, LIST+4, LIST+7
^DIC(49 - [#49]	SERVICE+2
^TMP($J	SHOW+1!, SHOW+10, SHOW+11, SHOW+13!, LIST+1!, LIST+4, LIST+6, LIST+7!*, LIST+8, LIST+9!
^VA(200 - [#200]	KEY+2, SHOW+10, LIST+3, LIST+4, LIST+7, ATOD+3, ATOD+4, ATOD+6*, MESS+2!, MESS+4 , SERVICE+1
^XUSEC(	SHOW+2, SHOW+10
^XUSEC("XUMGR"	KEY+1

Label References

Name	Line Occurrences
$$SERVICE	SHOW+10
ATOD	ATOD+3, ATOD+4
HOLDER	KEY+4
INIT	EN1, EN2, EN3
KEY	KEY+5, KEY+7, KEY+8, KEY+15
MESS	LIST+3
MORE	KEY+14, MORE+2
OUT	KEY+2, KEY+3, KEY+4
PAUSE	SHOW+11

Naked Globals

Name	Field # of Occurrence
^(	MORE+3
^(0	KEY+14, MORE+3, LIST+3*, ATOD+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	MORE+1, MORE+2, OUT!, SHOW+10, SHOW+11, SHOW+13!, LIST+2, LIST+4, LIST+6, LIST+7* , LIST+8, LIST+9!, ATOD+2, ATOD+3*, ATOD+8!
%X	ATOD+5*, ATOD+8!
%Y	ATOD+5*, ATOD+8!
DA	OUT!, ATOD+7, ATOD+8!, MESS+3, MESS+4*, MESS+6!
DA(1	ATOD+7, MESS+1, MESS+2, MESS+3, MESS+4
DIC	KEY+7!, OUT!, SHOW+1!, SHOW+2!, SHOW+13!, LIST+1!, LIST+9!, ATOD+1!, ATOD+8!, MESS+6!
DIC("A"	SHOW+1, LIST+1, ATOD+1*
DIC("S"	KEY+7*
DIC(0	KEY+7, SHOW+1, LIST+1, ATOD+1
DIE	OUT!
DIK	ATOD+7, ATOD+8!, MESS+3, MESS+6!
DIK(1	ATOD+7*
DIR	ATOD+4!, ATOD+8!
DIR("A"	ATOD+4*
DIR("B"	ATOD+4*
DIR(0	ATOD+4*
DIRUT	ATOD+4!
DR	OUT!
DTIME	KEY+3, PAUSE+1
DUZ	KEY+1, KEY+2
DUZ(0	KEY+1
IOF	SHOW+3, PAUSE+2, LIST+5
U	KEY+3, KEY+12, KEY+14, MORE+3, SHOW+2, SHOW+10, SHOW+11, PAUSE+1, PAUSE+2, LIST+2 , LIST+3, LIST+4, LIST+7, ATOD+2, ATOD+3, ATOD+4, ATOD+6, SERVICE+1, SERVICE+2
USR	SERVICE~, SERVICE+1
X	KEY+3, KEY+4, KEY+5, KEY+6, OUT!, SHOW+11, PAUSE+1, PAUSE+2, ATOD+8!, SERVICE+1~ , SERVICE+2
XMDUZ	OUT!
XQAL	EN1, EN2, EN3, EN4, KEY+3, OUT!
XQBOSS	INIT+1, KEY+1, KEY+2, KEY+7, OUT!
XQDA	EN1, EN2, EN3, EN4, KEY+1*, KEY+3, OUT!
XQDUZ	MESS+6!
XQFIL	MESS+1*, MESS+2, MESS+3, MESS+4, MESS+6!
XQH	KEY+5*, OUT!
XQHOLD	INIT+1!, OUT!
XQHOLD(0	INIT+1*
XQI	MORE+3, OUT!, SHOW+10, SHOW+11, SHOW+13!, LIST+4, LIST+5, LIST+6, LIST+7, LIST+8* , LIST+9!
XQJ	MORE+3*, OUT!
XQK	OUT!, LIST+5*, LIST+6, LIST+8, LIST+9!
XQKEY	INIT+1!, OUT!, SHOW+2*!, SHOW+3, SHOW+10, SHOW+13!, PAUSE+2
XQKEY(	KEY+8!, KEY+14, MORE+3
XQKEY(0	INIT+1*, KEY+3, KEY+4
XQL	SHOW+1!, SHOW+13!, PAUSE+2, LIST+1, LIST+9!
XQM	KEY+6*, KEY+8, OUT!
XQNM	OUT!
XQSBNFDT	OUT!
XQU	LIST+2, LIST+3, LIST+4, LIST+7, LIST+9!, ATOD+2, ATOD+3!, ATOD+4!, ATOD+5, ATOD+6 , ATOD+7, ATOD+8!, MESS+1
XQUSER	LIST+2, LIST+5, LIST+6, LIST+8, LIST+9!, ATOD+2, ATOD+3!, ATOD+4!, ATOD+8!
Y	KEY+7, KEY+8, KEY+12, KEY+14, MORE+3, OUT!, SHOW+1, SHOW+2, LIST+1, LIST+2 , ATOD+1, ATOD+2, ATOD+3!, ATOD+4!, ATOD+8!

Customize PDF page

Package: Kernel

Routine: XQ6

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: