PRSPUT3 ;WOIFO/MGD,JAH - PART TIME PHYSICIAN UTILITIES #1 ;03/23/07
Source file <PRSPUT3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PTP(PRSIEN) | ;Check for potential PTP (has a memo on file)
; input PRSIEN = employee IEN (file 450) ; result = 1 or 0, true (1) if employee has any memos on file |
|
| AL(PRSIEN,ARRAY,INDEX) | ;
|
|
| GETACCRU(PRSIEN,EOLYD,LDP) | ; Calculate AL accrucal from last day of
; pp processed in 459 (LDP) to end of leave year (EOLYD) |
|
| GETLOSE(APALHRS,ALBAL,ACCRUAL,MAXOVER) | ; Calculate potential hours to be lost
|
|
| GETLDOYR() | ; Calculate last day of the last pp of current year (EOLY)
|
|
| GETAPALH(PRSIEN,PPPIN,EOLYD) | ; Approved AL hrs
|
|
| ESRUPDT(PPI,PRSIEN,DAY) | ;
|
|
| MEMCPP(MIEN) | ; Memo Certified PP
; This utility determine the last certified PP and the number of ; certified PPs for a given memo. ; input ; MIEN - internal entry number of a memo in file 458.7 ; returns a string value ; = last certified PP (external value)^number of certified PPs ; example "05-01^3" |
|
| PP8BAMT(PPAMT,PPI,PRSIEN) | ; array TIMEAMTS passed by reference
; subscripted w/ types of time CODE and type of time activity ; from PRS8VW2 table. This routine sets each node of TIMEAMTS array ; to the total hours (week one and two) in the pp ; for that type of time activity. |
|
| GET8B(PPI,PRSIEN) | ; get 8b from 5 node unless corrected timecard
; has been done then we need to recompute 8B |
|
| CORRECT(PPI,PRSIEN) | ; return true if any corrected timecards exist for
|
|
| EXTR8BT(S,T) | ; EXTRACT THE 8B TYPE OF TIME FROM THE STUB AND RETURN THE
; AMOUNT OF TIME FROM WEEK ONE AND TWO FOR THIS TYPE OF TIME ; INPUT: S-8B STUB ; T-TYPE OF TIME TO FIND ^ LENGTH OF DATA IN 8B |
|
| WKTT(T,TA,WK) | ; GET 8B STRING TIMECODE FOR WEEK ONE OR TWO AND LENGTH OF
; THE DATA IN THE 8B STRING ; Input: ; T- type of time code from file 457.3 ; TA-time activity from the table in PRS8VW2 (e.g. Leave Without Pay) ; WK-1 or 2 for the desired timecode week |
