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* |