PRS8UT ;HISC/MRL,JAH/WIRMFO-DECOMPOSITION, UTILITIES ;3/5/93 15:24
Source file <PRS8UT.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 |
|---|---|---|
| DEV | ; --- device selection
|
|
| END | ; --- all done here
|
|
| HOLIDAY(PY,DFN,DY) | ; PAY_PERIOD , EMPLOYEE , DAY_NUMBER
; Returns 1 if holiday excused/worked (HX/HW) is found for this employee |
|
| OLDENT(PP2Y,EMP450) | ;
; Return employee entitlement from a pay period. Entitlement is ; normally built from employee's master record (FILE 450), but ; it is also stored in file 458 (which is historical) and may ; be different than the employee's current entitlement. |
|
| OLDPP(PYPERIOD,EMP450NO) | ;OLD PAY PERIOD LOOKUP
; Look up information about an employee from an old pay period. ; return PAYPLAN if the lookup is successful and a pay plan is found. ; return 0 if the lookup fails for any reason. ; fill OLDPP array with pay run info. |
|
| SETOLDPP(EMPDATA) | ;set up array with info from an employees record
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^PRST(458 - [#458] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRST(458 - [#458] | HOLIDAY+2, OLDENT+17 |
| ^PRST(459 - [#459] | OLDPP+17, OLDPP+19 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %IS | END+1! |
| %ZIS | DEV+1!*, DEV+2! |
| %ZIS("A" | DEV+1* |
| %ZIS("B" | DEV+1* |
| DA | OLDENT+6~ |
| DA(1 | OLDENT+12*, OLDENT+13, OLDENT+17 |
| DFN | HOLIDAY~, HOLIDAY+2 |
| DIC | OLDENT+6~, OLDENT+8*, OLDENT+13* |
| DIC(0 | OLDENT+8* |
| DY | HOLIDAY~, HOLIDAY+2 |
| EMP450 | OLDENT~, OLDENT+14 |
| EMP450NO | OLDPP~, OLDPP+16, OLDPP+19 |
| EMPDATA | SETOLDPP~, SETOLDPP+4, SETOLDPP+5, SETOLDPP+6, SETOLDPP+7, SETOLDPP+8, SETOLDPP+9, SETOLDPP+10 |
| >> ENT | OLDENT+7*, OLDENT+10, OLDENT+15, OLDENT+17*, OLDENT+18 |
| >> I | DEV+9* |
| IO | DEV+5, DEV+6, DEV+7 |
| IO("DOC" | DEV+4 |
| IO("Q" | DEV+5, DEV+6*, DEV+7, DEV+10! |
| IO(0 | DEV+5, DEV+6 |
| IOM | DEV+4 |
| ION | DEV+4 |
| IOP | DEV+1!, DEV+4*, DEV+8, END+1! |
| IOSL | DEV+4 |
| IOST | DEV+4, DEV+5 |
| >> J | DEV+9* |
| >> OLDPP("8BNHRS" | SETOLDPP+8* |
| >> OLDPP("DUTYBS" | SETOLDPP+7* |
| >> OLDPP("GRADE" | SETOLDPP+5* |
| >> OLDPP("NRMHRS" | SETOLDPP+10* |
| >> OLDPP("PAYPLN" | SETOLDPP+4* |
| >> OLDPP("STEP" | SETOLDPP+6* |
| >> OLDPP("TLUNIT" | SETOLDPP+9* |
| >> OLDPYDAT | OLDPP+19*, OLDPP+20, OLDPP+22 |
| >> PAYPDIEN | OLDPP+17*, OLDPP+18, OLDPP+19 |
| >> PAYPLAN | OLDPP+20*, OLDPP+21, OLDPP+23 |
| >> POP | DEV+3 |
| PP2Y | OLDENT~, OLDENT+8 |
| PPI | OLDENT+6~ |
| >> PRS8("DES" | DEV+8 |
| >> PRS8("PGM" | DEV+7, DEV+8 |
| >> PRS8("VAR" | DEV+9 |
| PY | HOLIDAY~, HOLIDAY+2 |
| PYPERIOD | OLDPP~, OLDPP+16, OLDPP+17 |
| >> RTN | OLDPP+14*, OLDPP+23*, OLDPP+24 |
| U | OLDPP+14*, OLDPP+20, SETOLDPP+3*, SETOLDPP+4, SETOLDPP+5, SETOLDPP+6, SETOLDPP+7, SETOLDPP+8, SETOLDPP+9, SETOLDPP+10 |
| X | HOLIDAY+2~*, HOLIDAY+3, OLDENT+6~, OLDENT+8*, OLDENT+14* |
| Y | OLDENT+6~, OLDENT+10, OLDENT+12, OLDENT+15, OLDENT+17 |
| >> ZTDESC | DEV+8* |
| >> ZTDTH | DEV+6* |
| >> ZTIO | DEV+8* |
| >> ZTRTN | DEV+8* |
| >> ZTSAVE( | DEV+9* |
| ZTSK | END+1! |
