PRSATPTW ;WASHFO/JAH - Telework Posting;4/13/2012
Source file <PRSATPTW.m>
| 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. |
