Routine: PXRRGUT

Package	Total	Call Graph
Kernel	3	HOME^%ZIS ^%ZISC $$UP^XLFSTR
VA Fileman	1	^DIR

Package	Total	Caller Graph
PCE Patient Care Encounter	18	PXRRECSC PXRRECSE PXRRFDD PXRRFDP PXRRLCCP PXRRLCD PXRRLCHP PXRRPAD PXRRPAPI PXRRPAPR PXRRPASA PXRRPRD PXRRPRDP PXRRPRSP PXRRWLD PXRRWLPR PXRRWLSA PXRRWLSE

Entry Points

Name	Comments	DBIA/ICR reference
USTRINS(STRING,CHAR)	;Given a string, which is assumed to be in alphabetical
EOR	;End of report display.
EXIT	;Clean things up.
VLIST(SLIST,LIST,MESSAGE)	;Make sure all the elements of LIST are in

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EOR+4
Function Call: WRITE	Prompt: !,"The list is empty!" Line Location: VLIST+12
Function Call: WRITE	Prompt: !,LE,MESSAGE Line Location: VLIST+17
Routine Call	%ZIS Line Location: EXIT+2
Routine Call	DIR Line Location: EOR+5

Name	Line Occurrences (* Changed, ! Killed)
^TMP(	EXIT+4!
^XTMP(	EXIT+5!

Name	Field # of Occurrence
CH1	USTRINS+9~, USTRINS+16, USTRINS+17, USTRINS+18, USTRINS+19, USTRINS+28, USTRINS+31
CH2	USTRINS+9~, USTRINS+25*, USTRINS+26, USTRINS+28, USTRINS+29, USTRINS+30, USTRINS+31
CHAR	USTRINS~, USTRINS+12, USTRINS+17, USTRINS+19, USTRINS+22, USTRINS+28, USTRINS+30, USTRINS+35
DIR	EOR+5!
DIR("A"	EOR+3*
DIR(0	EOR+2*
DIRUT	EXIT+3!
DONE	USTRINS+9~, USTRINS+14, USTRINS+17, USTRINS+19, USTRINS+22, USTRINS+26, USTRINS+28, USTRINS+30, USTRINS+35
DTOUT	EXIT+3!
DUOUT	EXIT+3!
IC	VLIST+3~, VLIST+14, VLIST+15, USTRINS+9~, USTRINS+24, USTRINS+25
IO	EOR+1
IO(0	EOR+1
IOST	EOR+1
LE	VLIST+3~, VLIST+15*, VLIST+16, VLIST+17
LEN	VLIST+3~, VLIST+10, VLIST+11, VLIST+14, USTRINS+9~, USTRINS+10, USTRINS+12, USTRINS+22, USTRINS+24
LIST	VLIST~, VLIST+4, VLIST+5, VLIST+8*, VLIST+10, VLIST+15
MESSAGE	VLIST~, VLIST+17
>> PXRRXTMP	EXIT+4, EXIT+5
SLIST	VLIST~, VLIST+7*, VLIST+16
STR	USTRINS+9~, USTRINS+15, USTRINS+17, USTRINS+18, USTRINS+22, USTRINS+26, USTRINS+28, USTRINS+29, USTRINS+35, USTRINS+36
STRING	USTRINS~, USTRINS+10, USTRINS+16, USTRINS+25
VALID	VLIST+3~, VLIST+9, VLIST+13, VLIST+18*, VLIST+19