Routine: PXEDILUD

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIR
Kernel	1	($$FMTE,$$NOW)^XLFDT

Package	Total	Caller Graph
PCE Patient Care Encounter	1	PXEDIM

Entry Points

Name	Comments	DBIA/ICR reference
BDATE	;Select the beginning date.
PAT	;Patient
EENUM	;Ending error number.
BENUM	;Beginning error number.
EN(BEN,EEN)	;Error number range.
DPAT	;
DT(BDATE,EDATE,TYPE)	;Date and time range.
EDHELP	;Write the ending date help.
BDHELP	;Write the beginning date help.
EENHELP	;Write the ending error number help.
BENHELP	;Write the beginning error number help.
EDATE	;Select the ending date.
NPAT

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BDATE+6
Function Call: WRITE	Prompt: $C(7)," ?? Enter exact date" Line Location: BDATE+11
Function Call: WRITE	Prompt: ! Line Location: EDATE+7
Function Call: WRITE	Prompt: $C(7)," ?? Enter exact date" Line Location: EDATE+13
Function Call: WRITE	Prompt: !!,"This is the beginning date and time for "_TYPE_"S that should be scanned" Line Location: BDHELP+1
Function Call: WRITE	Prompt: !,"for errors." Line Location: BDHELP+2
Function Call: WRITE	Prompt: !!,"This is the ending date and time for "_TYPE_"S that should be scanned" Line Location: EDHELP+1
Function Call: WRITE	Prompt: !,"for errors." Line Location: EDHELP+2
Function Call: WRITE	Prompt: ! Line Location: BENUM+14
Function Call: WRITE	Prompt: ! Line Location: EENUM+5
Function Call: WRITE	Prompt: !!,"This is the beginning error number." Line Location: BENHELP+1
Function Call: WRITE	Prompt: !!,"This is the ending error number. If it is equal to the beginning error" Line Location: EENHELP+1
Function Call: WRITE	Prompt: !,"number then only one error number will be used. Otherwise all error numbers" Line Location: EENHELP+2
Function Call: WRITE	Prompt: !,"in the range specified by the beginning and ending error numbers will be used." Line Location: EENHELP+3
Routine Call	DIC Line Location: NPAT+3
Routine Call	DIR Line Location: BDATE+7 EDATE+8 BENUM+15 EENUM+6

Name	Line Occurrences (* Changed, ! Killed)
^PX(839.01 - [#839.01]	BENUM+3, BENUM+6

Name	Field # of Occurrence
BDATE	DT~, BDATE+10*, EDATE+3
BEN	EN~, BENUM+5, BENUM+18, EENUM+1
DIC	PAT+1~, NPAT*
DIC("A"	PAT+3, NPAT+1
DIC("S"	PAT+4*
DIC(0	NPAT+2*
DIR	BDATE+7!, EDATE+8!, BENUM+15!, EENUM+6!
DIR("??"	BDATE+5, EDATE+6, BENUM+13, EENUM+4
DIR("A"	BDATE+4, EDATE+4, BENUM+11, EENUM+2
DIR("B"	EDATE+5, BENUM+12, EENUM+3*
DIR(0	BDATE+3, EDATE+3, BENUM+10, EENUM+1
DIRUT	BDATE+2!, EDATE+14!, BENUM+9!, EENUM+11!
DTOUT	BDATE+2!, BDATE+8, BDATE+9, EDATE+10, EDATE+11, EDATE+14!, BENUM+9!, BENUM+16, BENUM+17, EENUM+8 , EENUM+9, EENUM+11!, NPAT+5
DUOUT	BDATE+2!, BDATE+9, EDATE+9, EDATE+11, EDATE+14!, BENUM+9!, BENUM+17, EENUM+7, EENUM+9, EENUM+11! , NPAT+5
EDATE	DT~, EDATE+12*
EEN	EN~, BENUM+5, EENUM+10
NOW	EDATE+1~, EDATE+2*, EDATE+5
>> NPATIENT	PAT+2, NPAT+1, NPAT+6, NPAT+7
>> PATIENT(	NPAT+7*
TBEN	BENUM+2~, BENUM+3*, BENUM+4, BENUM+10, BENUM+12
TEEN	BENUM+2~, BENUM+6*, BENUM+10, EENUM+1, EENUM+3
TYPE	DT~, BDATE+4, EDATE+4, BDHELP+1, EDHELP+1
U	BDATE+5, BDATE+8, EDATE+6, EDATE+10, BENUM+13, BENUM+16, EENUM+4, EENUM+8, NPAT+7
X	BDATE+1~, BENUM+8~, PAT+1~
Y	BDATE+1~, BDATE+8, BDATE+10, BDATE+11, EDATE+10, EDATE+12, EDATE+13, BENUM+8~, BENUM+16, BENUM+18 , EENUM+8, EENUM+10, PAT+1~, NPAT+4, NPAT+7