PRSAOTT ;WCIOFO/JAH/PLT- 8B CODES ARRAY. COMPARE OT (8B-vs-APPROVED). ;11/29/2006
Source file <PRSAOTT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETOTS(PP,EI,T8,WK,O8,OA) | ;Get overtimes (tt8b & approved)
; Sample call: ; D GETOTS("98-05",1255,TT8BSTRING,1,.O8,.OA) ; where TT8BSTRING might be = ; "658229548868WIL 8B268380A106 AN320NA060DA030NR300SE080CD000790" |
|
| WARNSUP(PPE,EI,E8B,WK,OTERR,O8,OA) | ;Gets overtime from request
; file & TT8B string & displays warning if 8B string has more ; OT than approved requests. |
|
| DISPLAY(IEN,OT8B,OTRQ,WK) | ;Output warning message. 8b ot > approved ot.
|
|
| GET8BOT(EMPIEN,WEEK,TT8B) | ;
; Output: Function returns total hrs of overtime that is coded ; into TT8B string for either week (1) or (2). ; Input: EMPIEN - internal entry # of employee to check 8B overtime ; WEEK - week (1) or (2) of pay period to check 8B overtime. ; TT8B - full 8B string stub & values. |
|
| APOTWEEK(PAYPRD,WEEKID,EMP450) | ;
|
|
| OTREQ(REC) | ;Function returns true if Request is type Overtime.
|
|
| OTAPPR(REC) | ;Function returns true if a Request is Approved.
|
|
| WEEKRNG(PPE,WEEK,FIRST,LAST) | ;
|
|
| GET8BCDS(TT8B) | ; GET 8B time CoDeS
; Input: Full 8b record as stored on node 5 of employee record ; in time & attendance file. ; Output: Function returns section of 8b record with pay ; codes & values. |
|
| ARRAY8B(RECORD) | ; Build employee 8B array.
; calls to this routine are responsible for cleaning up TT8B( array. |
|
| CODES(WEEK) | ;
; 8b string can contain any number of codes. Some of codes ; are strictly for types of time in week 1 & some are for week 2. ; There are also pay period codes that are independant from weeks. |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
