Routine: BPSSCRCV

Information

BPSSCRCV ;BHAM ISC/SS - ECME SCREEN CHANGE VIEW ;05-APR-05

Name	Comments	DBIA/ICR reference
CV	;
CV1	;
EDITPROF(BPARR,BPDUZ7)	;
BPS113	; FIELD 1.13 - Division
DATETIME	; Display by Date Range or Timeframe ; Prompt the user to select Display Activity Date Range or Timeframe.
ERRMSG(BPMSG)	;
EDITFLD(FLDNO,RECIEN,DIR0,PRMTMSG,DFLTVAL,BPARRAY)	;*/
FILEIT(FILENO,FLDNO,RECIEN,NEWVAL)	;
PROMPT(ZERONODE,PRMTMSG,DFLTVAL)	;
GETFLD(FILENO,FLDNO,RECIEN)	;
FILEALL(BPARRAY,BPDUZ7)	;
ACTTYP()	; Prompt the user to select Display Activity Date Range or Timeframe. ; The user is required to select D or T and there is no default value. ;
BEGDATE()	; Enter Activity Beginning Date when Date Range is selected
BEGDATE1	;
ENDDATE()	; Enter Activity Ending Date when Date Range is selected
ENDDATE1	;
DTERNG	; Date Range Check ; If ALL patients selected, verify the user preferred time frame ; is not outside of the allowable range. If time frame is outside ; of the allowable range, update range to the past 7 days.

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: CV+3
Function Call: WRITE	Prompt: !!,"Beginning and Ending Dates are required for Date Range" Line Location: DATETIME+22
Function Call: WRITE	Prompt: !,"*",BPMSG,"*",! Line Location: ERRMSG+1
Function Call: WRITE	Prompt: !,"Enter a date less than or equal to "_$$FMTE^XLFDT($$NOW^XLFDT(),"D"),! Line Location: BEGDATE1+10
Function Call: WRITE	Prompt: " (",Y(0),")" Line Location: BEGDATE1+12
Function Call: WRITE	Prompt: !!,"Ending Date precedes Beginning Date.",! Line Location: ENDDATE1+10
Function Call: WRITE	Prompt: !!,"Date range exceeds "_BPSDAYS_" day limit. Select an Ending Date no more" Line Location: ENDDATE1+13
Function Call: WRITE	Prompt: !,"than "_BPSDAYS_" days after the Beginning Date.",! Line Location: ENDDATE1+14
Function Call: WRITE	Prompt: " (",Y(0),")" Line Location: ENDDATE1+16
Function Call: WRITE	Prompt: !!,"Date range exceeds 180 day limit which is not allowed when all patients" Line Location: DTERNG+18
Function Call: WRITE	Prompt: !,"are selected. The window of time has changed from "_BPSDAYS_" days to the" Line Location: DTERNG+19
Function Call: WRITE	Prompt: !,"last 7 days." Line Location: DTERNG+20