PRS8HRSV ;WCIOFO/JAH-HOLIDAY FLAG, TIME CHECKER, WK() SET; 04/05/07 ; 6/30/09 12:40pm
Source file <PRS8HRSV.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHK | ; --- Check ENT for acceptable X value
; Pieces of Y have values in locations corresponding to premium ; times in value of X. Values in Y string are locations ; in entitlement string where associated time in X is ; located. ; -------------------------------------------------- ; | Fixed | Premium ; Piece | Position in| Type Of Time ; Of Y-String | Entitlement| ; & **WK() | String | ; ----------- | -----------| -------------------- ; 7 | 28 | comp earned ; 9 | 2 | unscheduled regular ; 16 | 19 | hrs excess 8-d ; 17 | 20 | hrs excess 8-d2 ; 18 | 21 | hrs excess 8 d3 ; 20 | 12 | OT total hrs d ; 21 | 13 | OT total hrs d2 ; 22 | 14 | OT total hrs d3 ; --------------------------------------------------- |
|
| SET | ; --- Set value into WK array
|
|
| TH | ; --- increment total hours & compensatory time hours.
; Posted RG/OT/CT that is >8/day but < 40/week and < 80/pp will not be ; counted in TH or TH(W) ; ; I $S(VAL=4:1,"osEe"[VAL!(VAL="O"&('HOLWKD)):1,1:0) S TH=TH+1,TH(W)=TH(W)+1 |
|
| G8 | ; --- Check for greater than 8 hours in day
|
