PRSPSAP1 ;WOIFO/JAH - part time physician, supervisory approvals ;10/22/04
Source file <PRSPSAP1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
HDRESR(PRSIEN,PPI,LINES) | ; Display a Supervisor Header
; PRSIEN - users 450 number ; PPI - what pay period |
|
COLHDRS | ; JUST THE COLUMN HEADERS
|
|
PUSH(PPI,PRSIEN,PRSD,CNT) | ; ADD record to approval list
; set up a xref on the day. This enables quick access to the ; day number when the pick list has 4 items spread over the ; pay period. (e.g. the first item is day 4, the 2nd item ; is day 12, etc.) |
|
GETESR(ESR,PPI,PRSIEN,PRSD) | ; GET ESR RELATED DATA
; RETURN DATA IN ESR ARRAY BY REFERENCE |
|
ASALIST(OUT) | ; ADD record to approval list
|
|
HDROPT | ; MAIN OPTION HEADING
|
|
ANYACT(ACTCNT) | ; RETURN NUMBER OF ESR DAILY ACTIONS TO UPDATE
; THIS IS A COUNT OF ALL THE RESUBMITS AND APPROVES |
|
MARKCNT(MC,PRSIEN,PPI) | ; return items marked AND total items in MC array
; MC = items marked with any status ; MC(1) = available items to mark count |
|
MOVEON(PRSIEN,PPI) | ; return users choice (MOVE ON OR REDISPLAY CURR PTP)
; return 0 for abort ; if the number of days available for approval matches the number ; of days that have some status marked then we will not ask the ; user whether they want to move on or not. |
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 |
|