Routine: XUBA

Information

XUBA ; BT/BP - LIST USERS HAVE INACTIVE PERSON CLASSES; 4/27/2010

Source file <XUBA.m>

Package	Total	Call Graph
Kernel	7	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$DT,$$FMTE)^XLFDT $$GET^XUA4A72 ($$GET3,$$GET5)^XUPCF $$ACTIVE^XUSER
VA Fileman	1	^DIR

Package	Total	Caller Graph
Kernel	1	XU-INACTIVE PERSON CLASS USERS

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

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+4
Routine Call	DIR Line Location: PR+1
Routine Call	%ZIS Line Location: PR+3

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

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!