Routine: XUBA

Package	Total	Call Graph
Kernel	7	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$DT,$$FMTE)^XLFDT $$GET^XUA4A72 ($$GET3,$$GET5)^XUPCF $$ACTIVE^XUSER
VA FileMan	1	^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	XU-INACTIVE PERSON CLASS USERS

Entry Points

Name	Comments	DBIA/ICR reference
PR	; entry point of the option LIST USERS NEED TO BE ASSIGNED NEW PERSON CLASSES
PRNT	; print the report
INPSC	;get all inactive Person Class from the PERSON CLASS FILE.
LIST(XUA541)	; get all users who need to be assigned a new Person Class.
CLEAN	;clean the global
PGBK	;page break
HDR	;
PAUSE	;
EXIT	;

External References

Name	Field # of Occurrence
^%ZIS	PR+3
HOME^%ZIS	PR+4
^%ZISC	EXIT+2
^%ZTLOAD	PR+4
^DIR	PR+1
$$DT^XLFDT	HDR+1
$$FMTE^XLFDT	HDR+1
$$GET^XUA4A72	LIST+5, LIST+8
$$GET3^XUPCF	INPSC+5
$$GET5^XUPCF	INPSC+5
$$ACTIVE^XUSER	LIST+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,! Line Location: PR+3
Function Call: WRITE	Prompt: !,"Queued as task# ",ZTSK,!! Line Location: PR+5
Function Call: WRITE	Prompt: !,$G(XUI),?20,$G(^TMP("XUINPSCN",$J,XUI)) Line Location: PRNT+6
Function Call: WRITE	Prompt: !!!,"Number of users: ",XUC Line Location: PRNT+10
Function Call: WRITE	Prompt: !! Line Location: PRNT+11
Function Call: WRITE	Prompt: ?IOM-40,"Report on ",$$FMTE^XLFDT($$DT^XLFDT)," Page ",$G(XUPG),! Line Location: HDR+1
Function Call: WRITE	Prompt: !,"User name:",?20,"Currently has the inactive Person Class IEN^NAME:" Line Location: HDR+2
Function Call: WRITE	Prompt: !,"----------",?20,"-------------------------------------------------" Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Press RETURN to continue or '^' to exit: " Line Location: PAUSE+1
Routine Call	%ZIS Line Location: PR+3
Routine Call	%ZIS Line Location: PR+4
Routine Call	DIR Line Location: PR+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("XUINPSC"	INPSC+2!, INPSC+5*, LIST+6, CLEAN+1!
^TMP("XUINPSCN"	PRNT+5, PRNT+6, LIST+2!, LIST+8*, CLEAN+2!
^USC(8932.1 - [#8932.1]	INPSC+3
^VA(200 - [#200]	LIST+3, LIST+7

Label References

Name	Line Occurrences
CLEAN	EXIT+1
EXIT	PR+3, PR+5, PRNT+12
HDR	PRNT+4
INPSC	PRNT+1
LIST	PRNT+1
PAUSE	PR+5, PRNT+11
PGBK	PRNT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LIST+1~
%ZIS	PR+3*, EXIT+3!
COUNT	INPSC+1~, INPSC+3*, INPSC+4
DIR	PR+1~
DIR("A"	PR+1*
DIR("B"	PR+1*
DIR(0	PR+1*
DTIME	PAUSE+1
IO	PRNT+1
IO("Q"	PR+4
IOF	PR+3
IOM	HDR+1
ION	PR+4
IOST	PRNT+11, PGBK+2
>> POP	PR+3
XUA541	PR+1~, PR+2*, PRNT+1, LIST~, LIST+4
XUB	PRNT+2~, PRNT+9, PAUSE+1, PAUSE+3*
XUC	PRNT+2~, PRNT+7, PRNT+10
XUI	PRNT+2~, PRNT+5, PRNT+6, INPSC+1~, INPSC+4, INPSC+5, LIST+1~, PAUSE+2, PAUSE+3
XUIEN	LIST+1~, LIST+3*, LIST+4, LIST+5, LIST+7, LIST+8
XUNAME	LIST+7~*, LIST+8
XUPG	PRNT+2~*, HDR+1
XUPSUP	PRNT+3~, PRNT+8, PGBK+1, PGBK+2
XUV	LIST+1~
XUY	INPSC+1~, LIST+1~, LIST+5*, LIST+6
Y	PR+1~, PR+2
ZTDESC	PR+4*, EXIT+3!
ZTIO	PR+4*, EXIT+3!
ZTRTN	PR+4*, EXIT+3!
ZTSAVE	EXIT+3!
ZTSAVE("XUA541"	PR+4*
ZTSK	PR+5, EXIT+3!

Customize PDF page

Package: Kernel

Routine: XUBA

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: