PRSATPTW ;WASHFO/JAH - Telework Posting;4/13/2012
Source file <PRSATPTW.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 |
|---|---|---|
| TELEWORK(PPI,PRSIEN,PRSD,STAT,POSTTYPE,TC) | ; telework posting driver
|
|
| MAXTW(PPI,PRSIEN,PRSD,SCH,POSTTYPE) | ;
; Extrinsic function to return maximum allowable ; telework for medical, ad hoc, reg. sched. ; RETURN: ; piece 1: maximum regular scheduled ; piece 2: maximum Medical scheduled ; piece 3: maximum AD HOC |
|
| ASKTWHRS(ACTUALTW,MAXTW,OLDTWHRS,SCH) | ;
|
|
| GETTWHRS(MAX,TT,OLDTWHRS,SCH) | ;
|
|
| GETTYPE() | ;
; Prompt for type of additional telework |
|
| TWDAY(SCH) | ;
; input: SCH - is the daily employee scheduled for Medical or regular ; output: ACTUALTW- return piece positional telework type-- ; piece 1 = 1 if medical telework ; '' 2 = 1 if regular scheduled ; '' 3 = 1 if ad hoc situational |
|
| CLEANTW(PPI,PRSIEN,PRSD) | ; remove any telework hours, leave any scheduled tw.
|
|
| STORETW(PPI,PRSIEN,PRSD,ACTUALTW) | ;
; store telework in node 8 of the "D" (daily) subnode. |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRST(458 - [#458] | TELEWORK+44, MAXTW+20, MAXTW+21, MAXTW+35 |
| Name | Line Occurrences |
|---|---|
| $$GETTWHRS | ASKTWHRS+11 |
| $$GETTYPE | ASKTWHRS+17, TWDAY+25 |
| $$MAXTW | TELEWORK+36 |
| $$TWDAY | TELEWORK+30 |
| ASKTWHRS | TELEWORK+49 |
| CLEANTW | TELEWORK+13, TELEWORK+37 |
| STORETW | TELEWORK+32, TELEWORK+53 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTUALTW | TELEWORK+28~, TELEWORK+30*, TELEWORK+31, TELEWORK+32, TELEWORK+49, TELEWORK+53, ASKTWHRS~, ASKTWHRS+6*, ASKTWHRS+14*, ASKTWHRS+20* , ASKTWHRS+22*, TWDAY+8~, TWDAY+9*, TWDAY+22, TWDAY+24, TWDAY+27*, TWDAY+28*, TWDAY+29, STORETW~, STORETW+6 , STORETW+7, STORETW+8 |
| ADHOC | MAXTW+34~, MAXTW+36*, MAXTW+49 |
| ADHOCTYP | ASKTWHRS+7~, ASKTWHRS+17*, ASKTWHRS+18, ASKTWHRS+20, TWDAY+25*, TWDAY+26, TWDAY+27 |
| ADNOC | TELEWORK+11~ |
| BEG | MAXTW+16~, MAXTW+46*, MAXTW+48 |
| DIR | GETTWHRS+2~, GETTYPE+2~, TWDAY+8~ |
| DIR("?" | GETTWHRS+6*, GETTWHRS+7* |
| DIR("??" | GETTWHRS+8* |
| DIR("A" | GETTWHRS+4*, GETTYPE+3*, TWDAY+13*, TWDAY+15* |
| DIR("B" | GETTWHRS+12*, GETTWHRS+15*, GETTWHRS+17*, GETTWHRS+20, GETTWHRS+21*, GETTYPE+5*, TWDAY+18* |
| DIR(0 | GETTWHRS+5*, GETTYPE+4*, TWDAY+17* |
| >> DIRUT | GETTWHRS+24, GETTYPE+7, TWDAY+21 |
| END | MAXTW+16~, MAXTW+47*, MAXTW+48 |
| FDA | CLEANTW+1~, STORETW+4~ |
| FDA( | CLEANTW+3*, CLEANTW+4*, CLEANTW+5*, STORETW+6*, STORETW+7*, STORETW+8* |
| I | MAXTW+41~*, MAXTW+42 |
| IENS | CLEANTW+1~, CLEANTW+2*, CLEANTW+3, CLEANTW+4, CLEANTW+5, STORETW+4~, STORETW+5*, STORETW+6, STORETW+7, STORETW+8 |
| MAX | GETTWHRS~, GETTWHRS+5, GETTWHRS+7, GETTWHRS+11, GETTWHRS+12, GETTWHRS+15, GETTWHRS+17 |
| MAXTW | TELEWORK+11~, TELEWORK+36*, TELEWORK+37, TELEWORK+49, MAXTW+16~, MAXTW+19*, MAXTW+25*, MAXTW+26*, MAXTW+30, MAXTW+50* , MAXTW+52, MAXTW+53*, MAXTW+55, ASKTWHRS~, ASKTWHRS+9 |
| MED | TELEWORK+11~ |
| MT | MAXTW+16~ |
| OLDTWHRS | TELEWORK+44*, TELEWORK+49, ASKTWHRS~, ASKTWHRS+11, ASKTWHRS+13, GETTWHRS~, GETTWHRS+9, GETTWHRS+21 |
| POSTTYPE | TELEWORK~, TELEWORK+13, TELEWORK+36, MAXTW~, MAXTW+30 |
| PPI | TELEWORK~, TELEWORK+12, TELEWORK+13, TELEWORK+32, TELEWORK+36, TELEWORK+37, TELEWORK+44, TELEWORK+53, MAXTW~, MAXTW+20 , MAXTW+21, MAXTW+35, CLEANTW~, CLEANTW+2, STORETW~, STORETW+5 |
| PRSD | TELEWORK~, TELEWORK+12, TELEWORK+13, TELEWORK+32, TELEWORK+36, TELEWORK+37, TELEWORK+44, TELEWORK+53, MAXTW~, MAXTW+20 , MAXTW+21, MAXTW+35, CLEANTW~, CLEANTW+2, STORETW~, STORETW+5 |
| PRSIEN | TELEWORK~, TELEWORK+12, TELEWORK+13, TELEWORK+32, TELEWORK+36, TELEWORK+37, TELEWORK+44, TELEWORK+53, MAXTW~, MAXTW+20 , MAXTW+21, MAXTW+35, CLEANTW~, CLEANTW+2, STORETW~, STORETW+5 |
| SCH | TELEWORK+23*, TELEWORK+30, TELEWORK+36, TELEWORK+49, MAXTW~, MAXTW+25, MAXTW+52, MAXTW+53, ASKTWHRS~, ASKTWHRS+11 , GETTWHRS~, GETTWHRS+20, TWDAY~, TWDAY+10, TWDAY+12, TWDAY+18, TWDAY+28 |
| SCHED | TELEWORK+11~ |
| SCHHRS | TELEWORK+11~ |
| SEGHRS | MAXTW+17~, MAXTW+48*, MAXTW+50, MAXTW+53 |
| STAT | TELEWORK~ |
| SUBTOT | MAXTW+34~, MAXTW+52*, MAXTW+53 |
| TC | TELEWORK~, TELEWORK+29 |
| TCN | MAXTW+16~, MAXTW+35*, MAXTW+42 |
| THISACT | ASKTWHRS+7~, ASKTWHRS+11*, ASKTWHRS+12, ASKTWHRS+13*, ASKTWHRS+14, ASKTWHRS+16, ASKTWHRS+20, ASKTWHRS+22 |
| THISMTW | ASKTWHRS+7~, ASKTWHRS+9*, ASKTWHRS+10, ASKTWHRS+11 |
| THISOLDTW | GETTWHRS+2~, GETTWHRS+9*, GETTWHRS+10, GETTWHRS+11, GETTWHRS+12 |
| TOD | MAXTW+16~ |
| TOT | MAXTW+16~ |
| TOUR2LEN | MAXTW+16~, MAXTW+21*, MAXTW+26 |
| TOURLEN | MAXTW+16~, MAXTW+20*, MAXTW+25 |
| TRC | MAXTW+16~, MAXTW+45* |
| TSEG | MAXTW+34~, MAXTW+42*, MAXTW+43, MAXTW+45, MAXTW+46, MAXTW+47 |
| TSET | MAXTW+16~ |
| TT | MAXTW+16~, MAXTW+43*, MAXTW+44, MAXTW+49, GETTWHRS~, GETTWHRS+3, GETTWHRS+9, GETTWHRS+12, GETTWHRS+17, GETTWHRS+20 |
| TWE | TELEWORK+11~, TELEWORK+12*, TELEWORK+19, TELEWORK+23 |
| TWLENGTH | TWDAY+8~, TWDAY+20*, TWDAY+22, TWDAY+27, TWDAY+28 |
| TWTYPE | GETTWHRS+2~, GETTWHRS+3*, GETTWHRS+4 |
| TWTYPEI | ASKTWHRS+7~, ASKTWHRS+8*, ASKTWHRS+9, ASKTWHRS+11, ASKTWHRS+13, ASKTWHRS+14, ASKTWHRS+16, ASKTWHRS+22 |
| TYPE | TWDAY+8~, TWDAY+10*, TWDAY+13, TWDAY+24 |
| U | TELEWORK+19, TELEWORK+23, TELEWORK+44, MAXTW+20, MAXTW+21, MAXTW+25, MAXTW+26, MAXTW+42, MAXTW+43, MAXTW+44 , MAXTW+45, MAXTW+46, MAXTW+47, MAXTW+49, MAXTW+50, MAXTW+52, MAXTW+53, ASKTWHRS+9, ASKTWHRS+13, ASKTWHRS+14 , ASKTWHRS+20, ASKTWHRS+22, GETTWHRS+5, GETTWHRS+9, GETTWHRS+21, TWDAY+27, TWDAY+28, STORETW+6, STORETW+7, STORETW+8 |
| X | GETTWHRS+2~, GETTYPE+2~, TWDAY+8~ |
| Y | GETTWHRS+2~, GETTWHRS+25, GETTYPE+2~, GETTYPE+8, TWDAY+8~, TWDAY+20 |
