Routine: PRSARC03

Information

PRSARC03 ;WOIFO/JAH - Recess Tracking Functions ;10/25/06

Name	Comments	DBIA/ICR reference
NEWSTART(OUT,PRSDT)	; change alternate work schedule start date.
AWSTART(FD,LD,PROMPT)	;function returns date within range FD-LD using PROMPT.
FYRDATA(RWIEN)	; build a record of data for the Fiscal Year Recess for the viewer ; INPUT: Recess record IEN
VWMSG(MSG)	; roll and scroll message from listmanager call.
OTHERHRS(CTHW1,CTHW2,PRSNURSE)	; are any tour hours selected different than ; current tour hours.
GETFLWKS(IEN,PRSDT)	; Get weeks/recess hours from 458.8 and any posted recess ; by way of the TT8b string. Update the list columns.
RPOSTED	; Get weeks posted ; get 8b from 5 node unless corrected timecard--then re decomp
EVEODDWK(ODD,EVEN)	; CHECK SELECTION INDEX FOR ODD AND EVEN PP WEEKS
CHANGE(IEN)	; funtion true if file record is different than current data
SETRECES	;SET HOURS FOR A WEEK AT A TIME
HRSLEFT()	; Get remaining hours available for recess for the FY
HRSFILED(IEN)	; funtion returns number of recess hours on file

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This is a view only option. You may not make any changes to the" Line Location: VWMSG+3
Function Call: WRITE	Prompt: !,"recess schedule. The Recess Hours Summary action is available.",! Line Location: VWMSG+4
Function Call: WRITE	Prompt: !!,"Recess Schedule not saved." Line Location: VWMSG+7
Function Call: WRITE	Prompt: !,"Recess hours remaining to schedule: ",HRSLEFT,! Line Location: SETRECES+29