Routine: PRSARC01

Information

PRSARC01 ;WOIFO/JAH - Recess Tracking ListManger Action Protocols ;10/17/06

Name	Comments	DBIA/ICR reference
EDITSTRT	; action protocol-edit AWS Start Date
SETWKHRS(OUT)	;set hrs for selected weeks
WHATHRS(OUT,RH1,RH2,OTHERHRS,UOH,CTRH1,CTRH2,UCTH)	;Ask user-which hours ; to use.
SETWKSLM(OOPSWKS,RH1,RH2,OTHERHRS,UOH,CTRH1,CTRH2,UCTH)	; ; Set weeks RECESS HOURS in listmanager display
SELRWK(PR,OUT)	;PROMPT USER TO SELECT WEEKS FOR RECESS ; ; INPUT: PR-prompt flag are they setting recess hours or removing ; recess hours ; OUTPUT: OUT - user aborted or timed out
FLRECESS	; save recess schedule hrs to file
DSELWK	;DESELECT WEEKS
DSELALL	; procedure removes items from selected items index w/no effect ; on ListMan display.

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,! Line Location: EDITSTRT+7
Function Call: WRITE	Prompt: !," WARNING: Changing the AWS start date will remove recess hours" Line Location: EDITSTRT+9
Function Call: WRITE	Prompt: !," that are earlier than the new AWS start date.",! Line Location: EDITSTRT+10
Function Call: WRITE	Prompt: @IOF,! Line Location: SETWKHRS+5
Function Call: WRITE	Prompt: !,"No weeks have been selected." Line Location: SETWKHRS+7
Function Call: WRITE	Prompt: !,DIR("?",I) Line Location: WHATHRS+23
Function Call: WRITE	Prompt: !,DIR("?",I) Line Location: WHATHRS+39
Function Call: WRITE	Prompt: !,"There are no tour hours in the current pay period." Line Location: WHATHRS+43
Function Call: WRITE	Prompt: !,VALMSG Line Location: FLRECESS+76