Routine: RCEVUTL1

Information

RCEVUTL1 ;WASH-ISC@ALTOONA,PA/LDB-Generic Event Utilities ;2/28/95 8:36 AM

Name	Comments	DBIA/ICR reference
V	;;4.5;Accounts Receivable;;Mar 20, 1995
DATE(RANGE)	;Select date range or range of activity
BEG	;Select beginnning of range
END	;Select ending of range

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Enter the beginning "_$S($P(RANGE,"^")]"":$P(RANGE,"^"),1:"DATE")_" : "_FDT_"// " Line Location: BEG+4
Function Call: WRITE	Prompt: !,"Examples of Valid Date: JAN 20 1957 or 20 JAN 57 or 1/20/57 or 012057" Line Location: BEG+6
Function Call: WRITE	Prompt: " ",Y Line Location: BEG+9
Function Call: WRITE	Prompt: !,"Enter the ending "_$S($P(RANGE,"^")]"":$P(RANGE,"^"),1:"DATE")_" : "_$S($P(RANGE,"^",3)]"":$$SLH^RCFN01($P(RANGE,"^",3)),1:"LAST")_"// " Line Location: END+3
Function Call: WRITE	Prompt: !,"Examples of Valid Date: JAN 20 1957 or 20 JAN 57 or 1/20/57 or 012057" Line Location: END+5
Function Call: WRITE	Prompt: !,7,"Must be equal to or greater than beginning "_$S($P(RANGE,"^")]"":$P(RANGE,"^",2),1:"DATE"),!,7 Line Location: END+9
Function Call: WRITE	Prompt: " ",Y Line Location: END+10