Routine: PXRRADUT

Information

PXRRADUT ;ISL/PKR - Age and date utilities for PCE reports. ;6/26/97

Source Information

Source file <PXRRADUT.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA Fileman	3	HELP^%DTC ^DIR ^DIWP
Kernel	1	($$DT,$$FMTE)^XLFDT
PCE Patient Care Encounter	1	HELP^PXRRADUT

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
PCE Patient Care Encounter	6	PXRRADUT PXRRFDD PXRRLCD PXRRPAD PXRRPRD PXRRWLD

Entry Points

Name	Comments	DBIA/ICR reference
BDHELP(HTEXT,TYPE)	;Write the beginning date help.
EDHELP(HTEXT,TYPE)	;Write the ending date help.
FDR(BDATE,EDATE,TYPE,BHTEXT,EHTEXT)	;Get a future date range.
FBDATE	;Select the beginning date.
PDR(BDATE,EDATE,TYPE,BHTEXT,EXTEXT)	;Get a past date range.
AGEHELP(TYPE)	;Write the age selection help.
GDR(BDATE,EDATE,TYPE,BHTEXT,EHTEXT)	;Get a general date range.
GEDATE	;Select the ending date.
PEDATE	;Select the ending date.
PBDATE	;Select the beginning date.
FEDATE	;Select the ending date.
DOBFA(AGE)	;Given an age in years return the corresponding date of birth.
AGE(TYPE,NEWLINE)	;Get a patient age.
HELP(HTEXT)	;General help text routine. Write out the text in the HTEXT
GBDATE	;Select the beginning date.

External References

Name	Field # of Occurrence
HELP^%DTC	HELP+15
^DIR	AGE+8, FBDATE+9, FEDATE+5, GBDATE+8, GEDATE+5, PBDATE+8, PEDATE+5
^DIWP	HELP+8
HELP^PXRRADUT	BDHELP+1, BDHELP+6, EDHELP+1, EDHELP+6
$$DT^XLFDT	FBDATE+5
$$FMTE^XLFDT	FBDATE+5, FEDATE+3, GEDATE+3, PEDATE+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: AGE+7
Function Call: WRITE	Prompt: !!,"This is the ",TYPE," patient age for selecting encounters." Line Location: AGEHELP+1
Function Call: WRITE	Prompt: ! Line Location: FBDATE+8
Function Call: WRITE	Prompt: $C(7)," ?? Enter exact date" Line Location: FBDATE+13
Function Call: WRITE	Prompt: $C(7)," ?? Enter exact date" Line Location: FEDATE+10
Function Call: WRITE	Prompt: ! Line Location: GBDATE+7
Function Call: WRITE	Prompt: $C(7)," ?? Enter exact date" Line Location: GBDATE+12
Function Call: WRITE	Prompt: $C(7)," ?? Enter exact date" Line Location: GEDATE+10
Function Call: WRITE	Prompt: ! Line Location: HELP+9
Function Call: WRITE	Prompt: !,^UTILITY($J,"W",0,IC,0) Line Location: HELP+12
Function Call: WRITE	Prompt: ! Line Location: HELP+14
Function Call: WRITE	Prompt: ! Line Location: PBDATE+7
Function Call: WRITE	Prompt: $C(7)," ?? Enter exact date" Line Location: PBDATE+12
Function Call: WRITE	Prompt: $C(7)," ?? Enter exact date" Line Location: PEDATE+10
Routine Call	DIR Line Location: AGE+8 FBDATE+9 FEDATE+5 GBDATE+8 GEDATE+5 PBDATE+8 PEDATE+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY($J	HELP+4!, HELP+11, HELP+12, HELP+13!

Label References

Name	Line Occurrences
FBDATE	FBDATE+13, FEDATE+8
FEDATE	FEDATE+10
GBDATE	GBDATE+12, GEDATE+8
GEDATE	GEDATE+10
PBDATE	PBDATE+12, PEDATE+8
PEDATE	PEDATE+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AGE	DOBFA~, DOBFA+2, DOBFA+3
BDATE	FDR~, FBDATE+12, FEDATE+1, FEDATE+3, GDR~, GBDATE+11, GEDATE+1, GEDATE+3, PDR~, PBDATE+11* , PEDATE+1, PEDATE+3
BDHTEXT	BDHELP+3~, BDHELP+6
BDHTEXT(1	BDHELP+4*
BDHTEXT(2	BDHELP+5*
BHTEXT	FDR~, GDR~, PDR~
DIR	AGE+8!, FBDATE+9!, FEDATE+5!, GBDATE+8!, GEDATE+5!, PBDATE+8!, PEDATE+5!
DIR("?"	AGE+5, FBDATE+6, FEDATE+3, GBDATE+5, GEDATE+3, PBDATE+5, PEDATE+3*
DIR("??"	AGE+6, FBDATE+7, FEDATE+4, GBDATE+6, GEDATE+4, PBDATE+6, PEDATE+4*
DIR("A"	AGE+4, FBDATE+4, FEDATE+2, GBDATE+4, GEDATE+2, PBDATE+4, PEDATE+2*
DIR("B"	FBDATE+5*
DIR(0	AGE+3, FBDATE+3, FEDATE+1, GBDATE+3, GEDATE+1, PBDATE+3, PEDATE+1*
DIROUT	AGE+9, FBDATE+2!, FBDATE+10, FEDATE+6, FEDATE+11!, GBDATE+2!, GBDATE+9, GEDATE+6, GEDATE+11!, PBDATE+2! , PBDATE+9, PEDATE+6, PEDATE+11!
DIRUT	AGE+2!, FBDATE+2!, FEDATE+11!, GBDATE+2!, GEDATE+11!, PBDATE+2!, PEDATE+11!
DIWF	HELP+2~, HELP+3*
DIWL	HELP+2~, HELP+3*
DIWR	HELP+2~, HELP+3*
DOB	DOBFA+1~, DOBFA+3*, DOBFA+4
DT	DOBFA+3, FBDATE+3, PBDATE+3, PEDATE+1
DTOUT	AGE+2!, AGE+9, AGE+10, FBDATE+2!, FBDATE+10, FBDATE+11, FEDATE+6, FEDATE+7, FEDATE+11!, GBDATE+2! , GBDATE+9, GBDATE+10, GEDATE+6, GEDATE+7, GEDATE+11!, PBDATE+2!, PBDATE+9, PBDATE+10, PEDATE+6*, PEDATE+7 , PEDATE+11!
DUOUT	AGE+2!, AGE+10, FBDATE+2!, FBDATE+11, FEDATE+8, FEDATE+11!, GBDATE+2!, GBDATE+10, GEDATE+8, GEDATE+11! , PBDATE+2!, PBDATE+10, PEDATE+8, PEDATE+11!
EDATE	FDR~, FEDATE+9, GDR~, GEDATE+9, PDR~, PEDATE+9*
EDHTEXT	EDHELP+3~, EDHELP+6
EDHTEXT(1	EDHELP+4*
EDHTEXT(2	EDHELP+5*
EHTEXT	FDR~, GDR~
EXTEXT	PDR~
HTEXT	BDHELP~, BDHELP+1, BDHELP+2, EDHELP~, EDHELP+1, EDHELP+2, HELP~
HTEXT(	HELP+6, HELP+7
IC	HELP+2~, HELP+5, HELP+6, HELP+7, HELP+10, HELP+11, HELP+12
NEWLINE	AGE~, AGE+7
TYPE	AGE~, AGE+4, AGEHELP~, AGEHELP+1, BDHELP~, BDHELP+4, EDHELP~, EDHELP+4, FDR~, FBDATE+4 , FEDATE+2, GDR~, GBDATE+4, GEDATE+2, PDR~, PBDATE+4, PEDATE+2
U	AGE+6, FBDATE+7, FEDATE+4, GBDATE+6, GEDATE+4, PBDATE+6, PEDATE+4
X	AGE+1~, FBDATE+1~, GBDATE+1~, HELP+7*, PBDATE+1~
Y	AGE+1~, AGE+11, FBDATE+1~, FBDATE+12, FBDATE+13, FEDATE+9, FEDATE+10, GBDATE+1~, GBDATE+11, GBDATE+12 , GEDATE+9, GEDATE+10, PBDATE+1~, PBDATE+11, PBDATE+12, PEDATE+9, PEDATE+10

Customize PDF page

Package: PCE Patient Care Encounter

Routine: PXRRADUT

Call Graph Total: 5

Caller Graph Total: 6