Routine: PXRRADUT

Information

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

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

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