Routine: PRSATE

Information

PRSATE ;WCIOFO/JAH/PLT - Enter/Edit Employee (emp) Tour of Duty (ToD) ;03/15/2005

Source file <PRSATE.m>

Name	Comments	DBIA/ICR reference
TOUREDIT(DFN,PPI,PPE,TLI,TLE,PRSTLV)	;
ISTEMPTR()	; IS TEMPORARY ToD ? ; Ask user if ToD is temp or perm & convert TYP to true false flag ; Permanent set TYP=0, Temporary set TYP=true (1) ;
A1	; Set up for emps ToD look up. Screen allows Daily ToDs & days off ; for daily emps. Everyone else gets days off & all other ToDs. ; Screen further ensures ToD is available either to all t&ls ; or to t&l that this emp is working in.
FX	; Fixed ToD
FX1
F1
VAR	; Variable ToD
NONE	; No ToD
RS	; Get Comp Ind
NX	; Set Next ToD
SET	; Set ToD
S0
S1	;
S8(A,B)	;set telework tour in node 8 of daily multiple
T2	; Ask if second ToD
HOL	; Determine if Holiday within ToD
CLEANTOD(PPI,DFN,DAY,TD)	; CLEAN OUT TOUR
ERROR(NUM,VAR1,VAR2)	;
ASKFIXED()	;GET USER'S YES OR NO RESPONSE TO FIXED ToD QUESTION
ASK2NDTR()	;GET USER'S YES OR NO RESPONSE TO 2nd ToD QUESTION

Name	Line Occurrences
Function Call: WRITE	Prompt: !?26,"VA TIME & ATTENDANCE SYSTEM" Line Location: TOUREDIT+29
Function Call: WRITE	Prompt: !?29,"EMPLOYEE TOUR OF DUTY" Line Location: TOUREDIT+30
Function Call: WRITE	Prompt: ! Line Location: FX1+1
Function Call: WRITE	Prompt: *7,!!,STR Line Location: FX1+15
Function Call: WRITE	Prompt: " ... done" Line Location: F1+2
Function Call: WRITE	Prompt: !!,"This is an intermittent employee with no specified tour." Line Location: NONE+3
Function Call: WRITE	Prompt: !!,"Time records will now be updated to indicate this." Line Location: NONE+4
Function Call: WRITE	Prompt: !!,"Not all tour days are assigned a permanent status." Line Location: NONE+7
Function Call: WRITE	Prompt: " ... done" Line Location: NONE+14
Function Call: WRITE	Prompt: *7,!?5,"Compressed tour not valid for this employee." Line Location: RS+11
Function Call: WRITE	Prompt: *7,!?5,"Flexitime not valid for this employee." Line Location: RS+18
Function Call: WRITE	Prompt: *7,!! Line Location: ERROR+1
Function Call: WRITE	Prompt: "Employee has no Pay Entitlement table entry." Line Location: ERROR+2
Function Call: WRITE	Prompt: "Warning: Normal Hours are ",$G(VAR1),"; Tour Hours are ",$G(VAR2) Line Location: ERROR+5

FileNo	Call Tags
^PRST(457.1 - [#457.1]	Classic Fileman Calls