Routine: XUSER1

Name	Comments	DBIA/ICR reference
GPARAM(IE,PRAM,XUA)	;Get an entry from the Parameter tool
PAGE()	;Do a page break; Return 0 if ok to continue, 1 if to abort
SHLIST(ARRAY,LM,SP)	; Show a list, Array=list, LM=Left Margin, SP=spacing
GKEYS(IE,XUA)	;Get the keys held. IE=user
SHPC(IE)	;Show the Person Class
DIVCHG	;Allow user to change Division [DUZ(2)] value
NETNM(NM,IEN)	;Check NetName, Called from input transform for field 501.1 NPF.
GMG(IE,XUA)	;Get mail groups

Name	Field # of Occurrence
EN^DDIOL	NETNM+4, NETNM+6
^DIC	DIVCHG+14
^DIR	PAGE+2
$$DT^XLFDT	SHPC+1
GETLST^XPAR	GPARAM+4
$$GET^XUA4A72	SHPC+2
$$NS^XUAF4	DIVCHG+6, DIVCHG+13, DIVCHG+18
XOPT^XUS1A	DIVCHG+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PAGE+3
Function Call: WRITE	Prompt: ! Line Location: SHLIST+8
Function Call: WRITE	Prompt: ?Y5,Y6 Line Location: SHLIST+9
Function Call: WRITE	Prompt: $P(Y,U,2) Line Location: SHPC+3
Function Call: WRITE	Prompt: !,?(%+2),$P(Y,U,3) Line Location: SHPC+3
Function Call: WRITE	Prompt: !,?(%+2),$P(Y,U,3) Line Location: SHPC+3
Function Call: WRITE	Prompt: !,"You are not a valid user.",!!,$C(7) Line Location: DIVCHG+3
Function Call: WRITE	Prompt: !,"Your current Division is ",$P(CD,U)_" "_$P(CD,U,2) Line Location: DIVCHG+7
Function Call: WRITE	Prompt: !,"You do not have any choices. ",!," Change is not possible.",!! Line Location: DIVCHG+9
Function Call: WRITE	Prompt: !?5,"Division is now set to [ ",$P(CD,U)_" "_$P(CD,U,2)," ]",! Line Location: DIVCHG+19
Routine Call	DIC Line Location: DIVCHG+14
Routine Call	DIR Line Location: PAGE+2

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19.1 - [#19.1]	GKEYS+3
^VA(200 - [#200]	GKEYS+3, GPARAM+3, DIVCHG+3, DIVCHG+8, DIVCHG+13, NETNM+3
^XMB(3.8 - [#3.8]	GMG+3
^XUSEC("XUMGR"	NETNM+7

Name	Line Occurrences
$$PAGE	SHLIST+3, SHLIST+8

Name	Field # of Occurrence
^(	DIVCHG+8
^(5	GPARAM+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	GKEYS+1~, GKEYS+2, GKEYS+3, GKEYS+5, SHLIST+2~, SHLIST+4, SHLIST+5, SHPC+1~, SHPC+2, SHPC+3 , GMG+1~, GMG+2, GMG+3, GPARAM+7*
ARRAY	SHLIST~
ARRAY(	SHLIST+5
CD	DIVCHG+2~, DIVCHG+6, DIVCHG+7, DIVCHG+17, DIVCHG+18, DIVCHG+19
DIC	DIVCHG+2~, DIVCHG+10!*, DIVCHG+14!
DIC("B"	DIVCHG+13*
DIC("S"	DIVCHG+11*
DIC(0	DIVCHG+10*
DIR	PAGE+1~, SHLIST+2~
DIR(0	PAGE+2*
>> DIRUT	PAGE+3, SHLIST+5
>> DN	SHLIST+3, SHLIST+8
DT	SHPC+1*, SHPC+2
DUZ	DIVCHG+3, DIVCHG+8, DIVCHG+13, NETNM+7
DUZ(0	NETNM+7
DUZ(2	DIVCHG+4, DIVCHG+5, DIVCHG+6, DIVCHG+18
I	DIVCHG+2~
IE	GKEYS~, GKEYS+3, SHPC~, SHPC+2, GMG~, GMG+3, GPARAM~, GPARAM+3
IEN	NETNM~, NETNM+3
IOF	PAGE+3
IOM	SHLIST+4, SHLIST+7
IOSL	SHLIST+3, SHLIST+8
IOST	PAGE+2
LM	SHLIST~, SHLIST+4, SHLIST+6, SHLIST+7, SHLIST+8
NM	NETNM~, NETNM+4, NETNM+6
NPF	NETNM+2~
NPF(0	NETNM+3*, NETNM+5
NPF(1	NETNM+5*, NETNM+6
OV	NETNM+2~, NETNM+3, NETNM+4, NETNM+6, NETNM+7, NETNM+8
PRAM	GPARAM~, GPARAM+4, GPARAM+6
SP	SHLIST~, SHLIST+4, SHLIST+6
U	GKEYS+3, SHPC+3, GMG+3, GPARAM+7, DIVCHG+5, DIVCHG+7, DIVCHG+13, DIVCHG+17, DIVCHG+19, NETNM+3
V	GKEYS+1~, GKEYS+3, GKEYS+4, GKEYS+5*
X	DIVCHG+2~, DIVCHG+8, DIVCHG+13
XOPT	DIVCHG+5~
XU1	GPARAM+2~
XUA	GKEYS~, GMG~, GPARAM~, GPARAM+3*
XUA(	GKEYS+5, GMG+3, GPARAM+6, GPARAM+7
XUB	GKEYS+1~
XUB(	GKEYS+3*, GKEYS+5
XUENT	GPARAM+2~, GPARAM+3*, GPARAM+4
XUERR	GPARAM+2~, GPARAM+4
XUI	GMG+1~
XUK	GMG+1~
XUX	GPARAM+2~, GPARAM+4, GPARAM+5, GPARAM+7
XUX(	GPARAM+7
Y	SHPC+1~, SHPC+2, SHPC+3, GMG+1~, DIVCHG+2~, DIVCHG+8, DIVCHG+9, DIVCHG+15, DIVCHG+18
Y2	SHLIST+2~, SHLIST+4*, SHLIST+6, SHLIST+7, SHLIST+8, SHLIST+9, GMG+1~
Y4	SHLIST+2~, SHLIST+4, SHLIST+5, SHLIST+6, SHLIST+7, SHLIST+8, SHLIST+9, GMG+1~
Y5	SHLIST+2~, SHLIST+4, SHLIST+6, SHLIST+7, SHLIST+8, SHLIST+9
Y6	SHLIST+2~, SHLIST+5*, SHLIST+7, SHLIST+9

Customize PDF page

Package: Kernel

Routine: XUSER1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: