Call Graph
Call Graph Total: 3
| Package | Total | Call Graph |
|---|---|---|
| PAID | 2 | ($$APOTWEEK,$$GET8BOT)^PRSAOTT NX^PRSAPPU |
| VA FileMan | 1 | C^%DTC |
PRSAOTT ;WCIOFO/JAH/PLT- 8B CODES ARRAY. COMPARE OT (8B-vs-APPROVED). ;11/29/2006
Source file <PRSAOTT.m>
| Package | Total | Call Graph |
|---|---|---|
| PAID | 2 | ($$APOTWEEK,$$GET8BOT)^PRSAOTT NX^PRSAPPU |
| VA FileMan | 1 | C^%DTC |
| 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 |
|---|---|---|
| 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 |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRSPC - [#450] | GET8BOT+23 |
| ^PRST(458.2 - [#458.2] | APOTWEEK+21, APOTWEEK+23, APOTWEEK+25, OTREQ+2, OTAPPR+2 |
| Name | Line Occurrences |
|---|---|
| $$APOTWEEK | WARNSUP+15 |
| $$CODES | ARRAY8B+33 |
| $$GET8BCDS | GET8BOT+12 |
| $$GET8BOT | WARNSUP+14 |
| $$OTAPPR | APOTWEEK+24 |
| $$OTREQ | APOTWEEK+24 |
| ARRAY8B | GET8BOT+16 |
| DISPLAY | WARNSUP+16 |
| WEEKRNG | APOTWEEK+19 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CODE | GET8BOT+7~, GET8BOT+29*, GET8BOT+30*, GET8BOT+31, GET8BOT+32 |
| D1 | APOTWEEK+17~, APOTWEEK+20*, APOTWEEK+21*, APOTWEEK+23, WEEKRNG+8~, WEEKRNG+9 |
| E8B | WARNSUP~, WARNSUP+14 |
| EI | GETOTS~, GETOTS+19, GETOTS+20, WARNSUP~, WARNSUP+14, WARNSUP+15, WARNSUP+16 |
| EMP450 | APOTWEEK~, APOTWEEK+12, APOTWEEK+21, APOTWEEK+23 |
| EMPIEN | GET8BOT~, GET8BOT+23 |
| EOR | ARRAY8B+18~, ARRAY8B+19*, ARRAY8B+20, ARRAY8B+27*, ARRAY8B+28, ARRAY8B+29 |
| FIRST | WEEKRNG~, WEEKRNG+11*, WEEKRNG+13* |
| IEN | DISPLAY~ |
| LAST | WEEKRNG~, WEEKRNG+11*, WEEKRNG+14* |
| LOOP | ARRAY8B+18~, ARRAY8B+26*, ARRAY8B+27, ARRAY8B+28, ARRAY8B+29 |
| O8 | GETOTS~, GETOTS+16*, GETOTS+19*, WARNSUP~, WARNSUP+12*, WARNSUP+14*, WARNSUP+16 |
| OA | GETOTS~, GETOTS+16*, GETOTS+20*, WARNSUP~, WARNSUP+12*, WARNSUP+15*, WARNSUP+16 |
| OT8B | DISPLAY~, DISPLAY+7 |
| OTCODES | GET8BOT+7~, GET8BOT+19*, GET8BOT+24*, GET8BOT+31 |
| OTERR | WARNSUP~, WARNSUP+12*, WARNSUP+16* |
| OTREC | APOTWEEK+17~, APOTWEEK+22*, APOTWEEK+23*, APOTWEEK+24, APOTWEEK+25 |
| OTRQ | DISPLAY~, DISPLAY+7 |
| OTTMP | GET8BOT+7~, GET8BOT+32*, GET8BOT+33 |
| OTTOTAL | GET8BOT+7~, GET8BOT+8*, GET8BOT+13, GET8BOT+33*, GET8BOT+34 |
| PAYPRD | APOTWEEK~, APOTWEEK+12, APOTWEEK+19 |
| PP | GETOTS~, GETOTS+20 |
| PPD1 | WEEKRNG+8~, WEEKRNG+9*, WEEKRNG+11, WEEKRNG+13, WEEKRNG+14 |
| PPE | WARNSUP~, WARNSUP+15, APOTWEEK+17~, WEEKRNG~ |
| PPIEN | GET8BOT+7~ |
| REC | OTREQ~, OTREQ+1, OTREQ+2, OTAPPR~, OTAPPR+1, OTAPPR+2 |
| RECORD | ARRAY8B~, ARRAY8B+17, ARRAY8B+21, ARRAY8B+26, ARRAY8B+27, ARRAY8B+28, ARRAY8B+29* |
| START | APOTWEEK+17~, APOTWEEK+19, APOTWEEK+20 |
| STOP | APOTWEEK+17~, APOTWEEK+19, APOTWEEK+21 |
| T8 | GETOTS~, GETOTS+19 |
| TOTALOT | APOTWEEK+17~, APOTWEEK+18*, APOTWEEK+25*, APOTWEEK+26 |
| TT8B | GET8BOT~, GET8BOT+12*, GET8BOT+13, GET8BOT+16, GET8BCDS~, GET8BCDS+11, ARRAY8B+16! |
| TT8B( | GET8BOT+30, GET8BOT+32, ARRAY8B+34* |
| TT8B(0 | ARRAY8B+16*, ARRAY8B+34* |
| TT8BOT | GET8BOT+7~ |
| TYPE | ARRAY8B+18~, ARRAY8B+21*, ARRAY8B+33, ARRAY8B+34 |
| U | GET8BOT+23 |
| VALUE | ARRAY8B+18~, ARRAY8B+28*, ARRAY8B+34 |
| WEEK | GET8BOT~, GET8BOT+19, GET8BOT+24, GET8BOT+30, GET8BOT+32, WEEKRNG~, WEEKRNG+10, CODES~, CODES+10, CODES+11 , CODES+13, CODES+15 |
| WEEKID | APOTWEEK~, APOTWEEK+12, APOTWEEK+19 |
| WK | GETOTS~, GETOTS+17, GETOTS+19, GETOTS+20, WARNSUP~, WARNSUP+14, WARNSUP+15, WARNSUP+16, DISPLAY~, DISPLAY+7 , ARRAY8B+18~, ARRAY8B+33*, ARRAY8B+34 |
| >> X | WEEKRNG+11, WEEKRNG+13, WEEKRNG+14 |
| X1 | WEEKRNG+8~, WEEKRNG+11*, WEEKRNG+13*, WEEKRNG+14* |
| X2 | WEEKRNG+8~, WEEKRNG+11*, WEEKRNG+13*, WEEKRNG+14* |
