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 |