PRS8EX0 ;HISC/MRL,WOIFO/JAH,SAB-DECOMP,EXCEPTIONS (cont'd) ;1/30/2007
Source file <PRS8EX0.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 |
|---|---|---|
| ENCAP | ;
; This routine checks if the current day encapsulates other days that ; should be automatically charged to WP or NP by the software. If so, ; appropriate encapsulated days are charged. This routine is only ; called when the employee has a daily tour. ; inputs ; PY - current pay period IEN ; DY - current day number ; TT - type of time posted on current day ; TT(1) - data from ACT^PRS8EX for the type of time in TT ; DFN - employee IEN |
|
| WORKDAY(DFN,PY,DY,PRSDIR,SCHPY,SCHDY,SCHEX,CHGDAY) | ; find work day
; inputs ; DFN - employee IEN ; PY - current pay period IEN ; DY - current day number ; PRSDIR - direction (-1 to look back or +1 to look forward) ; outputs ; SCHPY - passed by reference, work day pay period or null ; SCHDY - passed by reference, work day day number or null ; SCHEX - passed by reference, work day exception or null ; CHGDAY() - passed by reference, array of days in current pay period ; that could be charged due to encapsulation and were ; encounted during the search for the work day ; format ENCDAY(day number)=null value |
|
| SET(DFN,PY,TT,PC,CHGDAY) | ; automatically charge days
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRST(458 - [#458] | WORKDAY+28, WORKDAY+29, WORKDAY+34, WORKDAY+37, WORKDAY+38, SET+23*, SET+24*, SET+25* |
| ^TMP($J | WORKDAY+46, SET+19* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> APDT | SET+22, SET+25 |
| CHGDAY | ENCAP+16~, ENCAP+19, ENCAP+26, ENCAP+29, ENCAP+33, WORKDAY~, WORKDAY+18!, SET~ |
| CHGDAY( | WORKDAY+47*, WORKDAY+48*, SET+12 |
| DFN | ENCAP+19, ENCAP+26, ENCAP+29, ENCAP+33, WORKDAY~, WORKDAY+34, WORKDAY+37, WORKDAY+38, SET~, SET+23 , SET+24, SET+25 |
| DONE | WORKDAY+15~, WORKDAY+22*, WORKDAY+23, WORKDAY+32*, WORKDAY+33*, WORKDAY+34*, WORKDAY+41* |
| DY | ENCAP+13, ENCAP+19, ENCAP+29, WORKDAY~, WORKDAY+22 |
| EXC | WORKDAY+15~, WORKDAY+38*, WORKDAY+41, WORKDAY+47, WORKDAY+48 |
| LOOPDY | WORKDAY+15~, WORKDAY+22*, WORKDAY+25*, WORKDAY+28*, WORKDAY+29*, WORKDAY+37, WORKDAY+38, WORKDAY+41, WORKDAY+46, WORKDAY+47 , WORKDAY+48, SET+9~, SET+12*, SET+15, SET+19, SET+23, SET+24, SET+25 |
| LOOPPY | WORKDAY+15~, WORKDAY+22*, WORKDAY+28*, WORKDAY+29*, WORKDAY+33, WORKDAY+34, WORKDAY+37, WORKDAY+38, WORKDAY+41, WORKDAY+45 |
| PC | SET~, SET+15, SET+16 |
| PC3 | SET+9~, SET+16* |
| PPCNT | WORKDAY+15~, WORKDAY+22*, WORKDAY+28*, WORKDAY+29*, WORKDAY+32 |
| PRSDIR | WORKDAY~, WORKDAY+25 |
| PY | ENCAP+19, ENCAP+26, ENCAP+29, ENCAP+33, WORKDAY~, WORKDAY+22, WORKDAY+45, SET~, SET+23, SET+24 , SET+25 |
| SCHDY | ENCAP+16~, ENCAP+19, ENCAP+29, WORKDAY~, WORKDAY+17*, WORKDAY+41* |
| SCHEX | ENCAP+16~, ENCAP+19, ENCAP+26, ENCAP+29, ENCAP+33, WORKDAY~, WORKDAY+17*, WORKDAY+41* |
| SCHPY | ENCAP+16~, ENCAP+19, ENCAP+26, ENCAP+29, WORKDAY~, WORKDAY+17*, WORKDAY+41* |
| TOD | WORKDAY+15~, WORKDAY+37*, WORKDAY+41, WORKDAY+47, WORKDAY+48 |
| TT | ENCAP+14, ENCAP+26, ENCAP+33, SET~, SET+19, SET+23 |
| TT(1 | ENCAP+26, ENCAP+33 |
| U | ENCAP+14, ENCAP+26, ENCAP+33, WORKDAY+37, WORKDAY+38, WORKDAY+47 |
| WEEK | SET+9~, SET+15* |
| >> WK( | SET+15* |
| >> WK(3 | SET+16* |