PRSATE6 ; WCIOFO/JAH-VALIDATE FIREFIGHTER TOURS OF DUTY (ToD);3/19/99
Source file <PRSATE6.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FFTOUR(PPI,DFN,WHICHPP,ERROR) | ; Validate a Firefighter ToD
|
|
| GETBSMAX(DFN,PPI,WHICHPP) | ; GET MAX BASE ToD HRS FOR FIREFIGHTER'S WEEK
|
|
| GETPMP(DFN) | ; RETURN PREMIUM PAY INDICATOR CODE FROM FILE 450
|
|
| GETTOTS(PPI,DFN,WHICHPP,WK1TOT,WK2TOT) | ;
|
|
| MEALTM(PPI,DFN,DAY,WHICHPP) | ;
; RETURN LENGTH OF MEALTIME FOR THIS EMPs ToD ON THIS DAY. |
|
| MINUTES(T1,T2) | ; CONVERT TIME 1 & TWO TO MINUTES FROM MIDNIGHT
; OF THE CURRENT DAY. IF T2 IS LESS THAN OR EQUAL TO T1 THEN ; IT IS ASSUMMED TO BE ON THE NEXT DAY. |
|
| SPLIT(DAY,T1,T2,L1,L2) | ; SPLIT two day ToD into 2 segments.
|
|
| UPTOT(W1T,W2T,W1LN,W2LN) | ;
|
|
| GETERROR(W1TOT,W2TOT,BMAX,PMP,ERROR) | ;
|
|
| ISERRORS(ERROR) | ; RETURN TRUE IF THERE ARE ERRORS IN THE ERROR ARRAY
|
|
| DISPERR(PPI,DFN,PMP,WHICHPP,ERROR,BMAX) | ;
|
|
| ASKTOFIX() | ;RETURN TK RESPONSE--DO YOU WANT TO FIX THE ToD?
|
|
| GETTOUR(PPI,DFN,WHICHPP,PPDAY) | ; This function returns the employees ToD
; based on the WHICHPP variable. WHICHPP can be set to N, for next ; pay period, or C for current pay period or 'L' for last. If set ; to 'N'ext, we have to look at the prior scheduled field in the ; current pay period to see if the ToD is changing next pp. |
|
| SAVETOUR(PPI,DFN) | ;SAVE ToD in ^TMP global
|
|
| RESTORE(PPI,DFN) | ;restore a ToD
; use with EXTREME CAUTION. SAVETOUR should be called 1st. ; This utility first removes the entire "D" node from the ; input employee's pay period record. It depends on the fact that ; a backup of an earlier copy of the "D" node was saved in TMP. |
|
| ASKTEMP() | ; ASK USER-TEMP OR PERM ToD CHANGE
|
|
| GETEMP(TLE) | ; SELECT EMP FROM THE PASSED T&L UNIT
|
|
| FLEXIND(PPI,DFN,WHICHPP) | ;
|
|
| ASKTLWRK(TLE) | ; ASK TIMEKEEP WHICH TLU ToD WILL BE WORKED
|
|
| ASKTWMF() | ;ask telework tour for fixed monday/friday tour
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^PRSPC - [#450] | Classic Fileman Calls |
| ^PRST(455.5 - [#455.5] | Classic Fileman Calls |
