Routine: PXRRPECU

Package	Total	Call Graph
Kernel	1	$$GET^XUA4A72
PCE Patient Care Encounter	1	$$OCCUP^PXBGPRV
VA Fileman	1	^DIR

Package	Total	Caller Graph
PCE Patient Care Encounter	8	PXRRECSE PXRRFDP PXRRFDSE PXRRPECS PXRRPRDP PXRRPRSP PXRRWLPR PXRRWLSE

Entry Points

Name	Comments	DBIA/ICR reference
ALPHA(PCLASS)	;Given a person class of the form IEN_U_Occupation_U_Specialty
PAGE(ARRAY)	;Page breaking with optional return of selection.
LISTA(ARRAY)	;List all the elements of ARRAY.
VERIFY	;Have the user verify the most recent Person Class selection.
NXREF(XREF,STRING)	;Return the number of elements for the STRING and cross-ref pair.
GETYORN(PROMPT)	;Get a yes or no answer, return true (yes) or false (no).
PCLLIST(NEWPIEN,BDT,EDT,LIST)	;Build a list of all the person classes for the
UPPRCASE(STRING)	;Convert STRING to uppercase and return it.
ABBRV(VACODE)	;Given a VACODE get the full Person Class entry and return an
FDME(INP,ARRAY)	;Find and display the entries matching the input and get a selection.
MATCH(PCLASS)	;Return true if PCLASS is in the PERSON CLASS list, PXXRPECL.

External References

Name	Field # of Occurrence
^DIR	FDME+25, GETYORN+4, PAGE+5
$$OCCUP^PXBGPRV	ABBRV+9
$$GET^XUA4A72	PCLLIST+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " ",$P(SA(1),U,1) Line Location: FDME+18
Function Call: WRITE	Prompt: !,IC,?INDENT,$P(SA(IC),U,1) Line Location: FDME+21
Function Call: WRITE	Prompt: ! Line Location: FDME+24
Function Call: WRITE	Prompt: !,"Choose from:" Line Location: LISTA+5
Function Call: WRITE	Prompt: !,?INDENT,IC Line Location: LISTA+8
Function Call: WRITE	Prompt: ! Line Location: PAGE+4
Function Call: WRITE	Prompt: !!,"Your Person Class Selection was:" Line Location: VERIFY+2
Function Call: WRITE	Prompt: !,?INDENT,"OCCUPATION: ",$P(PXRRPECL(NCL),U,1) Line Location: VERIFY+3
Function Call: WRITE	Prompt: !,?INDENT,"SPECIALTY: ",$P(PXRRPECL(NCL),U,2) Line Location: VERIFY+4
Function Call: WRITE	Prompt: !,?INDENT,"SUBSPECIALTY: ",$P(PXRRPECL(NCL),U,3) Line Location: VERIFY+5
Function Call: WRITE	Prompt: ! Line Location: VERIFY+6
Routine Call	DIR Line Location: FDME+25 GETYORN+4 PAGE+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^USC(8932.1 - [#8932.1]	NXREF+3

Label References

Name	Line Occurrences
$$ALPHA	PCLLIST+9
$$FDME	PAGE+9
$$GETYORN	VERIFY+8
$$UPPRCASE	FDME+11
PAGE	LISTA+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABBRV	ABBRV+2~, ABBRV+13, ABBRV+17, ABBRV+20*, ABBRV+21
ARRAY	FDME~, LISTA~, LISTA+9, PAGE~, PAGE+9
ARRAY(	FDME+8, FDME+15, FDME+17, LISTA+7
BDT	PCLLIST~, PCLLIST+6
CLASSIEN	MATCH+1~, MATCH+9*, MATCH+12
DIR	FDME+1~, GETYORN+1~, PAGE+1~, PAGE+5!
DIR("A"	FDME+23, GETYORN+3, PAGE+3*
DIR("B"	LISTA+13*
DIR(0	FDME+22, GETYORN+2, PAGE+2*
DONE	LISTA+1~, LISTA+4, LISTA+7, PAGE+6, PAGE+10*
DTOUT	PAGE+6, PAGE+11!
DUOUT	PAGE+6, PAGE+11!
EDT	PCLLIST~, PCLLIST+6
IC	FDME+1~, FDME+13, FDME+15, FDME+17, FDME+20, FDME+21, LISTA+1~, LISTA+6, LISTA+7, LISTA+8 , MATCH+1~, MATCH+22, MATCH+23, MATCH+25, MATCH+27, MATCH+30, NXREF+1~, NXREF+2, NXREF+3, PCLLIST+3~ , PCLLIST+6, PCLLIST+7, PCLLIST+13, PCLLIST+14*, PCLLIST+16
>> INDENT	FDME+21, LISTA+8, VERIFY+3, VERIFY+4, VERIFY+5
INP	FDME~, FDME+4, FDME+6, FDME+8, FDME+11*, FDME+12, FDME+13, FDME+15
IOF	PAGE+7
IOSL	LISTA+9
JC	FDME+1~, FDME+14, FDME+16, FDME+17, FDME+18, FDME+19, FDME+20, FDME+22, FDME+23, NXREF+1~ , NXREF+2, NXREF+4, NXREF+5
KEEP	VERIFY+1~, VERIFY+8*, VERIFY+9
LINP	FDME+1~, FDME+12*, FDME+15
LIST	PCLLIST~, PCLLIST+4!
LIST(	PCLLIST+16*
LOCC	MATCH+1~, MATCH+23*, MATCH+24
LSPEC	MATCH+1~, MATCH+25*, MATCH+26
LSUB	MATCH+1~, MATCH+27*, MATCH+28
MATCH	MATCH+1~, MATCH+21, MATCH+22, MATCH+31, MATCH+33
MAXLEN	ABBRV+2~, ABBRV+6*, ABBRV+7, ABBRV+12, ABBRV+16, ABBRV+19
MAXLENP3	ABBRV+2~, ABBRV+7*, ABBRV+12, ABBRV+16, ABBRV+19
MOCC	MATCH+1~
MSPEC	MATCH+1~
MSUB	MATCH+1~
>> NCL	MATCH+22, VERIFY+3, VERIFY+4, VERIFY+5, VERIFY+10, VERIFY+11*
NEWPIEN	PCLLIST~, PCLLIST+7
NS	MATCH+2~, MATCH+7*, MATCH+18, MATCH+19
OCC	ABBRV+2~, ABBRV+11, ABBRV+12, ABBRV+13, MATCH+2~, MATCH+13, MATCH+15, MATCH+24
PCLASS	ABBRV+2~, ABBRV+8, ABBRV+9, ABBRV+11, ABBRV+15, ABBRV+18, ALPHA~, ALPHA+4, ALPHA+5, ALPHA+6 , ALPHA+9, ALPHA+12, MATCH~, MATCH+5, MATCH+9, MATCH+15, MATCH+16, MATCH+17, PCLLIST+3~, PCLLIST+7* , PCLLIST+8, PCLLIST+9
PROMPT	GETYORN~, GETYORN+3, VERIFY+1~, VERIFY+7*, VERIFY+8
>> PXRRPECL(	MATCH+23, MATCH+25, MATCH+27, MATCH+30*, VERIFY+3, VERIFY+4, VERIFY+5, VERIFY+10!
RET	FDME+1~, FDME+10, FDME+26, FDME+27
SA	FDME+1~
SA(	FDME+17*, FDME+21, FDME+26
SA(1	FDME+18
SELECT	LISTA+2!, LISTA+10, LISTA+11, LISTA+13, PAGE+9*
SPEC	ABBRV+2~, ABBRV+15, ABBRV+16, ABBRV+17, MATCH+2~, MATCH+13, MATCH+16, MATCH+18*, MATCH+26
STRING	NXREF~, NXREF+3, UPPRCASE~, UPPRCASE+1
SUB	ABBRV+2~, ABBRV+18, ABBRV+19, ABBRV+20, MATCH+2~, MATCH+13, MATCH+17, MATCH+19*, MATCH+28
T1	ALPHA+2~, ALPHA+6, ALPHA+7, ALPHA+8, ALPHA+9, ALPHA+10, ALPHA+11
TEMP	ALPHA+2~, ALPHA+5, ALPHA+8, ALPHA+11, ALPHA+12, ALPHA+13, PCLLIST+3~, PCLLIST+9, PCLLIST+10, PCLLIST+11
TLIST	PCLLIST+3~
TLIST(	PCLLIST+11*, PCLLIST+14
TOTAL	PCLLIST+3~, PCLLIST+5, PCLLIST+15, PCLLIST+16, PCLLIST+17
U	ABBRV+8, ABBRV+11, ABBRV+15, ABBRV+18, ALPHA+4, ALPHA+5, ALPHA+6, ALPHA+9, ALPHA+12, FDME+6 , FDME+8, FDME+17, FDME+18, FDME+21, LISTA+13, MATCH+9, MATCH+15, MATCH+16, MATCH+17, MATCH+23 , MATCH+25, MATCH+27, MATCH+30, VERIFY+3, VERIFY+4, VERIFY+5
VACODE	ABBRV~, ABBRV+4, ABBRV+8, ABBRV+9
WC	FDME+6, MATCH+2~, MATCH+8*, MATCH+13, MATCH+24, MATCH+26, MATCH+28
X	FDME+1~, GETYORN+1~, PAGE+1~
XREF	NXREF~, NXREF+3
Y	FDME+1~, FDME+26, GETYORN+1~, GETYORN+5, PAGE+1~, PAGE+7, PAGE+9

Customize PDF page

Package: PCE Patient Care Encounter

Routine: PXRRPECU

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: