Routine: XUSERBLK

Package	Total	Call Graph
Kernel	8	(,HOME)^%ZIS $$FMTE^XLFDT $$DEL^XQKEY $$GET^XUPARAM ($$AC,$$VC)^XUS4 $$ADD^XUSERNEW $$EN^XUSHSH $$NODEV^XUTMDEVQ
VA FileMan	5	(,$$FIND1)^DIC (FILE,UPDATE)^DIE EN^DIQ ^DIR EN2^DIWF
MailMan	1	NEW^XM

Package	Total	Caller Graph
Kernel	2	XQSMDCPY XUSERBLK

Entry Points

Name	Comments	DBIA/ICR reference
A	;
B1
B2	;
B3
B4	;
START	;
CLONE	;;Do work
C2	;
BLDFDA	;Build the FDA
GETDD(FI,FE)	;Return node;piece for a field
DATA	;;field#
ACODE	;
VCODE	;
SUBFILE	;Move subfiles: Subscript, Subfile#, DINUM, Fields
KEY
PATH	;D MULTI(19.8,".01")
FOF
DIV
SEC
TAB
PSCLSS
MULTI(XSS,XSF,XDN,XDD,XNOCLONE)	;Build new data
VAL(V,FE,FI)	;Get value
LET(DA,XUTEXT)	;Write access letter
CLEAR(X4,X2)	;Clear subfile first, IEN, Subscript
UPDATE(XX,USRIEN)	;Update effective date
DOPD	;
PRSNCL(USERIEN)	;
PSDRPH(USERIEN)	; Check if source user has PSDRPH key ; XU8.0775
NOCLONE(XNOCLONE)	; Array of items that can't be cloned ; XU8.0775

External References

Name	Field # of Occurrence
^%ZIS	B4+9
HOME^%ZIS	B4+12
^DIC	B1+2
$$FIND1^DIC	PSDRPH+3, NOCLONE+2
FILE^DIE	CLEAR+7
UPDATE^DIE	C2+8, PRSNCL+13
EN^DIQ	B1+6
^DIR	B1+7, B1+11, B1+18, B3+2, B3+3, B3+7
EN2^DIWF	LET+2
$$FMTE^XLFDT	B2+2, B4+5
NEW^XM	C2+10
$$DEL^XQKEY	CLEAR+4
$$GET^XUPARAM	CLONE+2
$$AC^XUS4	ACODE+2
$$VC^XUS4	VCODE+1
$$ADD^XUSERNEW	B3
$$EN^XUSHSH	ACODE+2, VCODE+1
$$NODEV^XUTMDEVQ	B4+6, START+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You are not a known user and can't use this option." Line Location: A+1
Function Call: WRITE	Prompt: @IOF,!?26,"Batch Entry of New Persons" Line Location: B1+0
Function Call: WRITE	Prompt: !?26,"--------------------------",!!,"Please select a person to copy from" Line Location: B1+1
Function Call: WRITE	Prompt: !!,"You may enter a date, when the users that are being created/updated",!,"will no longer have access to the system." Line Location: B1+8
Function Call: WRITE	Prompt: !!,"The PSDRPH key cannot be allocated / de-allocated by this option. Please" Line Location: B1+15
Function Call: WRITE	Prompt: !,"use the option 'Allocate/De-Allocate of PSDRPH Key (Audited)' if necessary." Line Location: B1+16
Function Call: WRITE	Prompt: !,"The PSDRPH key will not be copied to the new user.",! Line Location: B1+17
Function Call: WRITE	Prompt: !!,?26,"Batch Entry of New Persons",!,?26,"--------------------------",! Line Location: B2+1
Function Call: WRITE	Prompt: !,"Clone of: ",XUTMP(0) Line Location: B2+2
Function Call: WRITE	Prompt: ?49,"TERMINATION DATE: ",$$FMTE^XLFDT(XUTERMDT) Line Location: B2+2
Function Call: WRITE	Prompt: !!,"Next!" Line Location: B3+9
Function Call: WRITE	Prompt: !!,"Queueing automatic deactivation for ",$$FMTE^XLFDT(XUTERMDT) Line Location: B4+5
Function Call: WRITE	Prompt: !!,"Where do you want to print the COMPUTER ACCOUNT NOTIFICATION LETTERS?" Line Location: B4+7
Function Call: WRITE	Prompt: !!?8,$S(XUNEW:"CREATING A NEW ACCOUNT FOR '"_$P(XUSER(XU1),U,2)_"'",1:"CONVERTING "_$P(XUSER(XU1),U,2)_"'S ACCOUNT OVER"),!!,"One moment please..." Line Location: C2+2
Routine Call	%ZIS Line Location: B4+9
Routine Call	%ZIS Line Location: B4+12
Routine Call	DIC Line Location: B1+2
Routine Call	DIC Line Location: PSDRPH+3 NOCLONE+2
Routine Call	DIE Line Location: CLEAR+7
Routine Call	DIE Line Location: C2+8 PRSNCL+13
Routine Call	DIR Line Location: B1+7 B1+11 B1+18 B3+2 B3+3 B3+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	GETDD+1
^DIC(9.2 - [#9.2]	CLONE+2
^TMP($J	A+3!, CLONE+4!, BLDFDA+2!, CLEAR+2
^VA(200 - [#200]	C2+4, C2+5, C2+6, BLDFDA+6, ACODE+2, MULTI+2, MULTI+4, CLEAR+1, CLEAR+2, CLEAR+3 , UPDATE+2, UPDATE+3, UPDATE+4, DOPD+1, DOPD+3, DOPD+4, PRSNCL+2, PRSNCL+3, PRSNCL+9, PRSNCL+15 , PRSNCL+18*, PSDRPH+2
^XMB(3.7 - [#3.7]	C2+10

Label References

Name	Line Occurrences
$$GETDD	BLDFDA+5, VAL+1
$$PSDRPH	B1+14
$$VAL	MULTI+7
ACODE	C2+7
B1	B1+4, B1+7
BLDFDA	C2+3
C2	CLONE+3
CLEAR	MULTI+1
CLONE	B4+14
DOPD	UPDATE+5
LET	C2+9
MULTI	KEY, FOF, DIV, SEC, TAB
NOCLONE	SUBFILE+3
PRSNCL	PSCLSS
SUBFILE	BLDFDA+10
UPDATE	CLONE+3
VCODE	C2+7

Naked Globals

Name	Field # of Occurrence
^(	MULTI+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CLONE+1~, CLONE+3, VAL+1~, CLEAR+4*
%ZIS	A+2~, B4+9*
BY	LET+1~, LET+2*
C	CLEAR+1~, CLEAR+2*, CLEAR+5
DA	A+2~, B1+6, B1+14, CLONE+1~, CLONE+3, C2+4, C2+5, C2+6, C2+7, C2+9 , C2+10, BLDFDA+7, PSCLSS, MULTI+1, MULTI+7, MULTI+8, LET~, LET+2, DOPD+1
DIC	A+2~, B1+2!*
DIC("A"	B1+2*
DIC(0	B1+2*
DIR	A+2~
DIR("A"	B1+7, B1+10, B1+18, B3+2, B3+3, B3+7
DIR(0	B1+7, B1+9, B1+18, B3+2, B3+3, B3+7
DIRUT	A+2~, B1+7
DIWF	LET+1~, LET+2*
DIWF(1	LET+2*
DT	UPDATE+5, DOPD+3, PRSNCL+5, PRSNCL+7, PRSNCL+17, PRSNCL+18
DTOUT	A+2~, B1+3, B1+11
DUOUT	A+2~, B1+3, B1+11
DUZ	A+1
FE	GETDD~, GETDD+1, VAL~, VAL+1
FI	GETDD~, GETDD+1, VAL~, VAL+1
FR	LET+1~, LET+2*
IO("Q"	B4+14
IOF	B1
IOM	B4+11
ION	B4+11
IOP	LET+1~, LET+2*
IOSL	B4+11
IOST	B4+11
PC	UPDATE+1~, UPDATE+2, UPDATE+3, UPDATE+4, DOPD+1, DOPD+3, DOPD+4
PC1	UPDATE+1~, UPDATE+4*, UPDATE+5
POP	A+2~, B4+9
TO	LET+1~, LET+2*
U	B1+6, B3+1, B3+2, B3+4, B3+8, CLONE+3, C2+2, C2+4, C2+5, C2+6 , BLDFDA+5, BLDFDA+7, GETDD+1, PSCLSS, MULTI+8
USERIEN	PRSNCL~, PRSNCL+9, PRSNCL+10, PRSNCL+11, PRSNCL+12, PRSNCL+15, PRSNCL+18, PSDRPH~, PSDRPH+1, PSDRPH+2 , PSDRPH+3
USRIEN	UPDATE~, UPDATE+2, UPDATE+3, UPDATE+4, DOPD+3, DOPD+4
V	VAL~, VAL+1
X	A+2~, B4+6, START+3, MULTI+4*, MULTI+7, MULTI+8
X1	BLDFDA+1~, MULTI+4, MULTI+5, MULTI+9, CLEAR+3, CLEAR+4, CLEAR+5
X2	BLDFDA+1~, BLDFDA+4, MULTI+6, CLEAR~, CLEAR+1, CLEAR+2, CLEAR+3, CLEAR+4
X3	BLDFDA+1~, BLDFDA+5, MULTI+6, MULTI+7
X4	BLDFDA+1~, BLDFDA+5*, CLEAR~, CLEAR+1, CLEAR+2, CLEAR+3, CLEAR+4, CLEAR+5
X5	BLDFDA+1~, BLDFDA+5*, BLDFDA+6, BLDFDA+7
X6	BLDFDA+1~, BLDFDA+5*, BLDFDA+7
X7	BLDFDA+1~, BLDFDA+5*, BLDFDA+7
XCNT	SUBFILE+1~, MULTI+7, MULTI+8, MULTI+9
XDD	MULTI~, MULTI+6
XDEL	CLEAR+1~, CLEAR+2*, CLEAR+5, CLEAR+7
XDN	MULTI~, MULTI+9
XERR	C2+1~
XFDA	C2+1~, C2+7, C2+8, BLDFDA+2*, BLDFDA+7, MULTI+7, MULTI+8
XIEN	C2+1~, C2+8, BLDFDA+2*, MULTI+9
XMDT	C2+1~, C2+10!
XMM	C2+1~, C2+10!
XMQUIET	A+2~, B4+8*, B4+10!
XMSG	CLEAR+1~
XMZ	C2+1~, C2+10!
XNOCLOIEN	NOCLONE+1~, NOCLONE+2*
XNOCLONE	SUBFILE+2~, SUBFILE+3, KEY, MULTI~, NOCLONE~
XNOCLONE(	MULTI+5, NOCLONE+2*
XSF	MULTI~, MULTI+5, MULTI+7, MULTI+8
XSS	MULTI~, MULTI+1, MULTI+2, MULTI+4
XU	BLDFDA+1~
XU(2	BLDFDA+6*, BLDFDA+7
XU1	CLONE+1~, CLONE+3*, C2+2, PSCLSS
XUDATA	PRSNCL+1~, PRSNCL+2, PRSNCL+3, PRSNCL+4, PRSNCL+5, PRSNCL+6
XUEFDA	PRSNCL+1~, PRSNCL+5*, PRSNCL+11
XUEXDA	PRSNCL+1~, PRSNCL+6*, PRSNCL+7, PRSNCL+12
XUFN	CLEAR+1~, CLEAR+2*, CLEAR+5
XUH	C2+1~, C2+7, ACODE+2*
XUH2	C2+1~, C2+7, VCODE+1*
XUIOP	A+2~, B4+11*, LET+2
XULAST	PRSNCL+8~, PRSNCL+9*, PRSNCL+14, PRSNCL+15, PRSNCL+18
XULDATA	PRSNCL+8~, PRSNCL+15, PRSNCL+16, PRSNCL+17
XUNEW	CLONE+1~, CLONE+3, C2+2, C2+4, C2+5*, C2+7, C2+9
XUNODE	BLDFDA+1~, BLDFDA+4*, BLDFDA+5
XUPSC	PRSNCL+1~, PRSNCL+4*, PRSNCL+10
XUPURGE	CLONE+1~, CLONE+3*, MULTI+1
XUSER	A+2~, B1+13!, B3+9, B4+1, CLONE+3
XUSER(	B3+9*, CLONE+3, C2+2, PSCLSS
XUTERMDT	A+2~, B1+12*, B2+2, B4+2, B4+4, B4+5, C2+6
XUTEXT	CLONE+1~, CLONE+2*, C2+9, LET~, LET+2
XUTMP	A+2~, B1+6*, BLDFDA+6, MULTI+2, MULTI+4, PRSNCL+2, PRSNCL+3
XUTMP(0	B1+6*, B2+2
XUU	C2+1~, C2+6, ACODE+2
XUU2	C2+1~, C2+6, VCODE+1
XUY	A+2~, B3, B3+1, B3+2, B3+4, B3+6, B3+8, B3+9
XUZT	B4+3~, B4+6, START+1~, START+3
XUZT("ZTDTH"	B4+4, START+2
XX	UPDATE~, UPDATE+2, UPDATE+3, UPDATE+4, DOPD+1, DOPD+3, DOPD+4
Y	A+2~, B1+4, B1+6, B1+7, B1+12, B3+2, B3+4, B3+8, C2+1~, C2+10*
Z	ACODE+1~, ACODE+2*
>> ZTQUEUED	C2+2
ZZ	PRSNCL+1~
ZZ(1	PRSNCL+10, PRSNCL+11, PRSNCL+12*

Marked Items

Name	Field # of Occurrence
$T(DATA+X2	BLDFDA+4

Customize PDF page

Package: Kernel

Routine: XUSERBLK

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items