PRSAOTTF ;WCIOFO/JAH-OVERTIME WARNINGS FILER--8/18/98
Source file <PRSAOTTF.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 |
| Package | Total | Caller Graph |
|---|---|---|
| PAID | 5 | PRSA CLEAR OT WARN PRSAPEX PRSASR PRSXP43 ^PRST(458.6 |
| Kernel | 1 | ^DIC(19 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FILEOTW(PPI,DFN,WK,O8,OA) | ;Add an overtime warning (OTW) to 458.6
; Input: PPI--pay period (pp) ien from 458 ; DFN--employee ien in 450 who has more calc ot than approved ; WK--week 1 or 2 of pp ; O8--overtime (OT) in 8b string ; OA--ot in requests file w/ approved status ; (O8 and OA are totals for the range covered by PPI and WK) |
|
| WRNEXIST(PPI,DFN,WK) | ;
|
|
| NEXTWRN() | ;
|
|
| STATCHNG(IEN,STAT) | ;OTW STATUS CHANGE BOOLEAN FUNCTION
; WARNING: called from Mumps x-ref (AC) on STATUS field in 458.6 ; Extrinsic function checks if status currently being set is different ; from existing status. ; INPUT: IEN - record # in OTW file. ; STAT - value that the STATUS field is being set to. (i.e ; X is defined in the calling x-ref. code.) ; OUTPUT: returns true if new and existing STATUS is different, false ; otherwise. |
|
| CLRXREF(IEN) | ;
; set LAST UPDATED BY field in file 458.6 when the status field is ; changed. Use global set since this function is being called from ; X-ref and potentially via DIE call in CLEAR^PRSAOTTF. |
|
| EXIT | ; -- exit code
|
| FileNo | Call Tags |
|---|---|
| ^PRST(458.6 - [#458.6] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRST(458.6 - [#458.6] | FILEOTW+16, FILEOTW+23, FILEOTW+27, FILEOTW+28, FILEOTW+33, FILEOTW+34, WRNEXIST+7, WRNEXIST+8, NEXTWRN+2, NEXTWRN+6 , STATCHNG+18, STATCHNG+19, CLRXREF+6, CLRXREF+8* |
| ^TMP("PRSOTR" | EXIT+1! |
| ^TMP("PRSOTW" | EXIT+1! |
| Name | Line Occurrences |
|---|---|
| $$NEXTWRN | FILEOTW+23 |
| $$WRNEXIST | FILEOTW+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACT | STATCHNG+10~, STATCHNG+11*, STATCHNG+18*, STATCHNG+20 |
| CLR | STATCHNG+10~, STATCHNG+11*, STATCHNG+19*, STATCHNG+20 |
| DA | FILEOTW+8~, FILEOTW+15*, FILEOTW+30* |
| DD | FILEOTW+32! |
| DFN | FILEOTW~, FILEOTW+9, FILEOTW+13, WRNEXIST~, WRNEXIST+9 |
| DIC | FILEOTW+8~, FILEOTW+30* |
| DIC("DR" | FILEOTW+31* |
| DIC(0 | FILEOTW+30* |
| >> DIE | FILEOTW+15* |
| DLAYGO | FILEOTW+8~, FILEOTW+30* |
| DO | FILEOTW+32! |
| >> DR | FILEOTW+15* |
| DUZ | CLRXREF+6, CLRXREF+8 |
| IEN | FILEOTW+8~, FILEOTW+13*, FILEOTW+14, FILEOTW+15, FILEOTW+16, FILEOTW+17, FILEOTW+23*, FILEOTW+24, FILEOTW+27, FILEOTW+30 , FILEOTW+33, WRNEXIST+4~, WRNEXIST+6*, WRNEXIST+7, WRNEXIST+9*, WRNEXIST+10, NEXTWRN+2~*, NEXTWRN+6*, NEXTWRN+7, STATCHNG~ , STATCHNG+13, STATCHNG+18, STATCHNG+19, CLRXREF~, CLRXREF+6, CLRXREF+8 |
| O8 | FILEOTW~, FILEOTW+9 |
| OA | FILEOTW~, FILEOTW+9 |
| OLDSTAT | STATCHNG+10~, STATCHNG+20*, STATCHNG+21 |
| PPI | FILEOTW~, FILEOTW+9, FILEOTW+13, WRNEXIST~, WRNEXIST+7 |
| PRSCREC | EXIT+4! |
| PRSIEN | EXIT+2! |
| PRSOUT | EXIT+2! |
| PRSREMP | EXIT+3! |
| PRSRNM | EXIT+3! |
| PRSRPPE | EXIT+3! |
| PRSRPPI | EXIT+3! |
| PRSRREC | EXIT+3! |
| PRSRWK | EXIT+3! |
| PRSWPP | EXIT+2! |
| PRSWPPI | EXIT+2! |
| PRSWSTAT | EXIT+2! |
| REC | WRNEXIST+4~, WRNEXIST+8*, WRNEXIST+9 |
| >> RET | STATCHNG+11*, STATCHNG+13, STATCHNG+21*, STATCHNG+23 |
| STAT | STATCHNG~, STATCHNG+13, STATCHNG+21 |
| TMPIEN | WRNEXIST+4~, WRNEXIST+6*, WRNEXIST+7*, WRNEXIST+8, WRNEXIST+9 |
| U | WRNEXIST+5*, WRNEXIST+9 |
| WK | FILEOTW~, FILEOTW+9, FILEOTW+13, WRNEXIST~, WRNEXIST+9 |
| X | FILEOTW+8~, FILEOTW+30* |
