Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Source | Call Graph | Entry Points | External References | Interaction Calls | Global Variables Directly Accessed | Label References | Local Variables | Marked Items | All

Print Page as PDF

Routine: XU8P497A

Package: Kernel

Routine: XU8P497A

Information

XU8P497A ;BP/BT - UPDATE PERSON CLASS FILE; 4/7/2008

Source Information

Source file <XU8P497A.m>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Kernel	2	^%ZISC $$ACTIVE^XUSER

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
PRNT	;
CHCK	;
PRINT	;
INAC	;;
LOOP

External References

Name	Field # of Occurrence
^%ZISC	PRNT+16
$$ACTIVE^XUSER	LOOP+8, LOOP+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This report will run immediately (no device asked)." Line Location: LOOP+1
Function Call: WRITE	Prompt: !,"Users may turn 'screen capture' for this report." Line Location: LOOP+2
Function Call: READ	Prompt: "Do you want to list active users only? NO// " Formatting: ! Timeout: 20 Variable: % Line Location: LOOP+3
Function Call: WRITE	Prompt: ! Line Location: LOOP+5
Function Call: WRITE	Prompt: !,"PERSON CLASS ID: ",XUI,?28," NAME: ",$E($P(XUV,"^",1),1,40) Line Location: PRNT+4
Function Call: WRITE	Prompt: !," VA CODE: ",$P(XUV,"^",6),?28,"X12 CODE: ",$P(XUV,"^",7) Line Location: PRNT+5
Function Call: WRITE	Prompt: !!,"User Name",?34,"Status" Line Location: PRNT+7
Function Call: WRITE	Prompt: !,?2,$P($G(^TMP("XU8P497",$J,XUI,XUY)),"^"),?36,$P($G(^TMP("XU8P497",$J,XUI,XUY)),"^",2) Line Location: PRNT+9
Function Call: WRITE	Prompt: !!,?10,"Number of users: ",XUCOUNT Line Location: PRNT+11
Function Call: WRITE	Prompt: !,"------------------------------" Line Location: PRNT+12
Function Call: WRITE	Prompt: !,"No users found. You are done!" Line Location: PRNT+14
Function Call: WRITE	Prompt: !!," Please check and assign replacement Person Classes",!," for users listed on this report." Line Location: PRNT+15
Function Call: WRITE	Prompt: !,"This report will run immediately (no device asked)." Line Location: PRINT+2
Function Call: WRITE	Prompt: !,"Users may turn 'screen capture' for this report." Line Location: PRINT+3
Function Call: READ	Prompt: "Enter any key to continue " Formatting: ! Timeout: 10 Variable: XUY Line Location: PRINT+4
Function Call: WRITE	Prompt: !,$G(^TMP("XU8P497",$J,XUI)) Line Location: PRINT+6
Function Call: WRITE	Prompt: !!,"No replacement Person Class is assigned for users." Line Location: PRINT+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("XU8P497"	LOOP+6!, CHCK+5*, PRNT+2, PRNT+8, PRNT+9, PRINT+5, PRINT+6
^USC(8932.1 - [#8932.1]	PRNT+3
^VA(200 - [#200]	LOOP+7, CHCK+1, CHCK+2, CHCK+3, CHCK+5

Label References

Name	Line Occurrences
CHCK	EN+3
EN	LOOP+11
PRNT	LOOP+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LOOP~, LOOP+3, LOOP+4, LOOP+8
DT	CHCK+4
XU1	EN+1~, EN+2*
XU2	EN+1~, EN+3*
XUACONLY	LOOP~
XUACTIVE	LOOP~, LOOP+9*, LOOP+10
XUC	PRNT+1~, PRNT+13, PRNT+14, PRNT+15, PRINT+1~, PRINT+6, PRINT+7
XUCOUNT	PRNT+1~, PRNT+6, PRNT+10, PRNT+11
XUDATA	EN+1~, EN+2*, EN+3
XUDIUSR	LOOP~, LOOP+10*, CHCK+5
XUEXDA	LOOP~, CHCK+3*, CHCK+4
XUI	PRNT+1~, PRNT+2, PRNT+3, PRNT+4, PRNT+8, PRNT+9, PRINT+1~, PRINT+5*, PRINT+6
XUIEN	LOOP~, LOOP+7*, LOOP+8, LOOP+9, CHCK+1, CHCK+2, CHCK+3, CHCK+5
XUIEN2	LOOP~, CHCK+2*, CHCK+3
XUPCIEN	EN+1~, EN+3*, CHCK+1, CHCK+2, CHCK+5
XUV	PRNT+1~, PRNT+3*, PRNT+4, PRNT+5
XUY	PRNT+1~, PRNT+8, PRNT+9, PRINT+1~, PRINT+4

Marked Items

Name	Field # of Occurrence
$T(INAC+XU1	EN+2

Info | Source | Call Graph | Entry Points | External References | Interaction Calls | Global Variables Directly Accessed | Label References | Local Variables | Marked Items | All