Routine: XQ6A

Package	Total	Call Graph
Kernel	3	KEY^XQ6 UNABLE^XQ6B EN^XQH
VA Fileman	3	^DIC FILE^DICN ^DIK

Package	Total	Caller Graph
Kernel	2	XQ6 XQSMD21

Entry Points

Name	Comments	DBIA/ICR reference
OK1
U1
ACT3
OK	;
US0
ACT1	;Run through list of people
ACT2	;Add keys or DO ACT3 if we're removing them
EACH	;Check out each potential user
KEYFIL	;
U0
U3
U2
LSTHOL	;
US1
ACT	;Run through list of keys
LSTKEY	;
USERFIL	;
HOLDER	;
OUT	;Exit point

External References

Name	Field # of Occurrence
^DIC	HOLDER+6, HOLDER+7, KEYFIL+3, US0, U0+1, U2
FILE^DICN	ACT2+6
^DIK	ACT3+1
KEY^XQ6	OK1+1
UNABLE^XQ6B	ACT2+5
EN^XQH	HOLDER+3

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: HOLDER+1
Function Call: WRITE	Prompt: " ??",$C(7),!,"You have not yet selected any holders." Line Location: HOLDER+2
Function Call: WRITE	Prompt: " ??",$C(7) Line Location: HOLDER+7
Function Call: WRITE	Prompt: !,$P(^(0),U,1) Line Location: HOLDER+8
Function Call: WRITE	Prompt: !,$P(^VA(200,XQI,0),U,1) Line Location: HOLDER+9
Function Call: WRITE	Prompt: !!,$C(7),"==> Sorry, you can't give yourself keys. See your IRM staff." Line Location: EACH+1
Function Call: WRITE	Prompt: $S($D(XQHOLD(XQI)):" Deleted from current list",1:$C(7)_" ?? Holder not on list") Line Location: EACH+2
Function Call: WRITE	Prompt: !!,"You are ",$S(XQAL&XQDA:"delegating",XQAL:"allocating",XQDA:"removing delegated",1:"deallocating")," keys." Line Location: OK+2
Function Call: READ	Prompt: " Do you wish to proceed? YES// " Timeout: DTIME Variable: X Line Location: OK1+0
Function Call: WRITE	Prompt: $C(7)," ??",!,"Please enter 'Y' or 'N'" Line Location: OK1+0
Function Call: READ	Prompt: "Do you wish to start again? NO// " Formatting: !! Timeout: DTIME Variable: X Line Location: OK1+1
Function Call: WRITE	Prompt: !!,$P(^DIC(19.1,XQK,0),U,1)," being ",$S(XQAL&XQDA:"delegated to",XQAL:"assigned to:",1:"taken away from:") Line Location: ACT+1
Function Call: WRITE	Prompt: ?30,"Person already holds key - no action taken" Line Location: ACT2+4
Function Call: WRITE	Prompt: ?30,"Person doesn't hold key - no action taken" Line Location: ACT3+0
Function Call: WRITE	Prompt: !!,"You have not yet selected any keys." Line Location: LSTKEY+1
Function Call: WRITE	Prompt: !!,"You've selected the following keys: ",! Line Location: LSTKEY+2
Function Call: WRITE	Prompt: ?(XQK#XQI*15),$P(^DIC(19.1,XQJ,0),U,1) Line Location: LSTKEY+2
Function Call: WRITE	Prompt: !!,"You have not yet selected any holders." Line Location: LSTHOL+1
Function Call: WRITE	Prompt: !!,"You've selected the following holders: ",! Line Location: LSTHOL+2
Function Call: WRITE	Prompt: ?(XQK#XQI*26),$P(^VA(200,XQJ,0),U,1) Line Location: LSTHOL+2
Function Call: READ	Prompt: "Do you want to see the KEY file? NO// " Formatting: ! Timeout: DTIME Variable: X Line Location: KEYFIL+3
Function Call: READ	Prompt: "Do you want to see the current holders of a key? NO//" Formatting: ! Timeout: DTIME Variable: X Line Location: USERFIL+1
Function Call: WRITE	Prompt: !,"Holders are:" Line Location: US0+0
Function Call: READ	Prompt: "Do you want to see the NEW PERSON file? NO// " Formatting: ! Timeout: DTIME Variable: X Line Location: U0+0
Function Call: READ	Prompt: "Do you want to see the members of a Mail Group? NO// " Formatting: ! Timeout: DTIME Variable: X Line Location: U1+0
Function Call: WRITE	Prompt: !,"Members are:" Line Location: U2+0
Function Call: WRITE	Prompt: !,?5 Line Location: U3+0
Function Call: WRITE	Prompt: $S('X:X,'$D(^VA(200,X,0)):X,1:$P(^VA(200,X,0),U,1)) Line Location: U3+0
Routine Call	DIC Line Location: HOLDER+6 HOLDER+7 KEYFIL+3 US0 U0+1 U2

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19.1 - [#19.1]	ACT+1, LSTKEY+2
^VA(200 - [#200]	HOLDER+9, ACT2+3, ACT2+4, ACT3, LSTHOL+2, US1, U3
^XMB(3.8 - [#3.8]	HOLDER+9, U3
^XUSEC("XUMGR"	KEYFIL+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	OUT+1!
DA	OUT+1!, ACT3+1*
DA(1	ACT2+6, ACT3+1
DIC	HOLDER+6!, HOLDER+7!, OUT+1!, ACT2+6, KEYFIL+3!, US0!, U0, U0+1!, U2*!
DIC("P"	ACT2+6*
DIC("S"	HOLDER+7, KEYFIL+2, U2*
DIC(0	HOLDER+6, HOLDER+7, ACT2+6, KEYFIL+3, US0, U0, U2*
DIE	OUT+1!
>> DIK	ACT3+1*
>> DINUM	ACT2+6*
DR	OUT+1!
DTIME	HOLDER+1, OK1, OK1+1, KEYFIL+3, USERFIL+1, U0, U1
DUZ	HOLDER+7, EACH+1, KEYFIL+1, U2
DUZ(0	KEYFIL+1
U	HOLDER+1, HOLDER+9, OK1, OK1+1, ACT+1, ACT2+3, LSTKEY+2, LSTHOL+2, US1, U3
X	HOLDER+1, HOLDER+2, HOLDER+3, HOLDER+4, HOLDER+6, HOLDER+7, OK1, OK1+1, OUT+1!, ACT2+6 , KEYFIL+3, USERFIL+1, U0, U1, U3*
XMDUZ	HOLDER+7, OUT+1!, U2
XQAL	OK+2, ACT+1, OUT+1!, ACT2+3
XQBOSS	EACH+1, OUT+1!, KEYFIL+1*, KEYFIL+2
XQDA	OK+2, ACT+1, OUT+1!, ACT2+4, ACT2+6, ACT3, ACT3+1
XQEND	ACT2+1~, ACT2+2*, ACT2+5
XQH	HOLDER+3*, OUT+1!
XQHOLD	OUT+1!
XQHOLD(	EACH+2!, EACH+3*, ACT1+1, LSTHOL+2
XQHOLD(0	HOLDER+1, HOLDER+2, LSTHOL+1
XQI	HOLDER+6, HOLDER+9, EACH+1, EACH+2, EACH+3, OUT+1!, LSTKEY+2, LSTHOL+2
>> XQII	US0, US1, U2, U3
XQJ	HOLDER+9, OUT+1!, LSTKEY+2, LSTHOL+2*
XQK	ACT+1, OUT+1!, ACT2+4, ACT2+5, ACT2+6, ACT3, ACT3+1, LSTKEY+2, LSTHOL+2*
XQKEY	OUT+1!
XQKEY(	ACT+1, LSTKEY+2
XQKEY(0	LSTKEY+1
XQM	HOLDER+4, EACH+2, OUT+1!, ACT1+1, ACT2+3, ACT2+4, ACT2+5, ACT2+6, ACT3, ACT3+1
XQNM	OUT+1!, ACT2+3*
XQSBNFDT	OUT+1!
Y	HOLDER+6, HOLDER+7, HOLDER+9, OUT+1!, US0, US1, U2, U3

Customize PDF page

Package: Kernel

Routine: XQ6A

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
ACT1	ACT+1
ACT2	ACT1+1
ACT3	ACT2+3
EACH	HOLDER+6, HOLDER+9
HOLDER	HOLDER+2, HOLDER+3, HOLDER+6, HOLDER+7, HOLDER+10
LSTHOL	HOLDER+3, OK+1
LSTKEY	OK+1
OK	HOLDER+2
OK1	OK1, OK1+1
OUT	HOLDER+1, OK1, OK1+1
U0	USERFIL+1, US0
U1	U0
U2	U3
U3	U3
US0	US1
US1	US1
USERFIL	HOLDER+3