Routine: PRCPURS2

Information

PRCPURS2 ;WISC/RFJ-select dates ;24 May 93

Name	Comments	DBIA/ICR reference
DATESEL(V1)	; select starting and ending dates in days ; returns datestrt and dateend
START
MONTHSEL	; select starting and ending dates in months ; returns datestrt and dateend ; modified 5/27/05 to actually restrict selections to month & year ; and return DATESTRT as 1st of beginning month and DATEEND as last day of ending month. - T. Holloway
START1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"END DATE MUST BE GREATER THAN OR EQUAL TO THE START DATE.",! Line Location: START+7
Function Call: WRITE	Prompt: !?5,"*** Selected date range from ",Y," to " Line Location: START+9
Function Call: WRITE	Prompt: Y," ***" Line Location: START+9
Function Call: WRITE	Prompt: !,"END DATE MUST BE GREATER THAN OR EQUAL TO THE START DATE.",! Line Location: START1+5
Function Call: WRITE	Prompt: !," You may not include the current month until at least 1 full day",!," has passed.",! Line Location: START1+10
Function Call: WRITE	Prompt: !?5,"*** Selected date range from ",Y," to " Line Location: START1+12
Function Call: WRITE	Prompt: Y," ***" Line Location: START1+12