PRS8HRSV ;WCIOFO/JAH-HOLIDAY FLAG, TIME CHECKER, WK() SET; 04/05/07 ; 6/30/09 12:40pm
Source file <PRS8HRSV.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRST(457.1 - [#457.1] | CHK+143 |
| ^TMP($J | CHK+137 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> AC | CHK+45, SET+6, SET+7, TH+8 |
| >> C0 | CHK+45, SET+6, SET+12 |
| >> CYA2806 | G8+6* |
| >> DAY | PRS8HRSV+9, PRS8HRSV+12, PRS8HRSV+15, CHK+66, CHK+70, CHK+95, CHK+137, CHK+143 |
| >> DAY( | PRS8HRSV+9, PRS8HRSV+12, PRS8HRSV+15, CHK+70, CHK+95, CHK+143 |
| >> DFN | CHK+66 |
| >> ENT | CHK+31, CHK+40, CHK+70, CHK+76, CHK+81, CHK+91, CHK+118, TH+7, TH+8 |
| >> HOLEX | PRS8HRSV+12* |
| >> HOLWKD | PRS8HRSV+9*, CHK+70, CHK+76, CHK+81, CHK+91, CHK+113, CHK+124, TH+6 |
| >> HOLWKEX | PRS8HRSV+15* |
| >> HT | CHK+46, CHK+48, TH+7, TH+8 |
| >> HTP | G8+2 |
| I | CHK+137~, CHK+139* |
| J | CHK+137~*, CHK+139 |
| >> M | PRS8HRSV+9, PRS8HRSV+12, PRS8HRSV+15, CHK+95, CHK+139 |
| >> NAWS | CHK+95 |
| >> NH | SET+7, SET+12, TH+7, TH+8, G8+6 |
| >> NH(1 | SET+12 |
| >> NH(2 | SET+12 |
| PRSHOLSET | CHK+21~*, CHK+139, SET+18* |
| >> PY | CHK+66 |
| >> TH | TH+9* |
| >> TH( | CHK+47, CHK+48, CHK+53, TH+7, TH+8, TH+9*, G8+10 |
| >> TOUR | CHK+46, CHK+47, CHK+70, CHK+97, CHK+118, G8+5, G8+10 |
| >> TYP | CHK+40, CHK+62, CHK+70, CHK+76, CHK+81, CHK+97, CHK+98, CHK+104, CHK+124, G8+10 |
| U | CHK+45, CHK+139, CHK+143, SET+6 |
| >> VAL | CHK+46, CHK+47, CHK+53, CHK+95, TH+6, G8+2 |
| >> W | CHK+47, CHK+48, SET+17, TH+7, TH+8, TH+9, G8+10 |
| >> WK | CHK+53 |
| >> WK( | SET+17* |
| >> X | CHK+26, CHK+31*, CHK+35*, CHK+40*, CHK+45, CHK+46*, CHK+47*, CHK+48*, CHK+53*, CHK+57 , CHK+62, CHK+66, CHK+70*, CHK+76*, CHK+81*, CHK+91, CHK+92, CHK+95*, CHK+97*, CHK+98* , CHK+99*, CHK+104*, CHK+108, CHK+113*, CHK+118*, CHK+124, CHK+137, CHK+139*, CHK+143*, SET+6 , SET+7, SET+12, SET+16, SET+17, SET+18, SET+22*, G8+5*, G8+6, G8+7, G8+10* |
| Y | CHK+21*, CHK+26*, CHK+31, CHK+35*, CHK+40, CHK+57! |
| ZZ | CHK+21~, CHK+70*, CHK+76*, CHK+81*, CHK+92*, CHK+113*, CHK+137*, CHK+143, SET+22 |
