PRS8OTFF ;WCIOFO/MGD-OVERTIME/UNSCH FOR CODE R,C FIREFIGHTERS ;01/11/08
Source file <PRS8OTFF.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 |
|---|---|---|
| FFOTUN | ;CALCULATE CODE R AND C FIREFIGHTERS OVERTIME AND UNSCHEDULED REGULAR
|
|
| WORKCNT(SCHWRK,XTRAWRK,XWRK) | ;
|
|
| CALCOT(SW,XW,XWS) | ;
; Update the week array with overtime |
|
| SET | ; Set sleep time into WK array
|
|
| HOLIDAY(TIMESEG,DAY) | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP($J | WORKCNT+35, HOLIDAY+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DAY | WORKCNT+25~, WORKCNT+33*, WORKCNT+34, WORKCNT+35, WORKCNT+44, HOLIDAY~, HOLIDAY+11 |
| HOLIDAY | WORKCNT+25~, WORKCNT+44*, WORKCNT+47, WORKCNT+51 |
| I | CALCOT+27~, CALCOT+40*, CALCOT+41, CALCOT+42 |
| P | CALCOT+27~, CALCOT+33*, CALCOT+42*, CALCOT+46*, SET+1 |
| QHRCNT | WORKCNT+25~, WORKCNT+40*, WORKCNT+44 |
| QHRSEG | WORKCNT+25~ |
| QHTCODE | WORKCNT+25~, WORKCNT+40*, WORKCNT+47, WORKCNT+51, WORKCNT+53 |
| SCHWRK | FFOTUN+2~, FFOTUN+6, FFOTUN+13, WORKCNT~ |
| SCHWRK( | WORKCNT+29*, WORKCNT+48* |
| SW | CALCOT~ |
| SW( | CALCOT+32, CALCOT+33, CALCOT+42 |
| TIMESEG | HOLIDAY~, HOLIDAY+11 |
| WEEK | WORKCNT+25~, WORKCNT+29*, WORKCNT+34*, WORKCNT+48, WORKCNT+52, WORKCNT+53, CALCOT+27~, CALCOT+28*, CALCOT+32, CALCOT+33 , CALCOT+36, CALCOT+40, CALCOT+41, CALCOT+42, SET+1 |
| >> WK( | SET+1* |
| WRKSTR | WORKCNT+25~, WORKCNT+35*, WORKCNT+40 |
| XTRAWRK | FFOTUN+2~, FFOTUN+6, FFOTUN+13, WORKCNT~ |
| XTRAWRK( | WORKCNT+29*, WORKCNT+52* |
| XW | CALCOT~ |
| XWRK | FFOTUN+6, FFOTUN+13, WORKCNT~ |
| XWRK( | WORKCNT+29*, WORKCNT+53* |
| XWS | CALCOT~ |
| XWS( | CALCOT+36, CALCOT+40, CALCOT+41 |
| Y | CALCOT+27~, CALCOT+33*, CALCOT+37*, SET+1 |
| Z | CALCOT+27~, CALCOT+41*, CALCOT+42 |