PRSPSAP2 ;WOIFO/JAH - Supervisor Approve-update pt phys timecard ;7/26/05
Source file <PRSPSAP2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TRANSACT | ; TRANSfer ACTions to the database
; loop thru temp and update the time card and the ESR day stats |
|
| UPESR(PRSIEN,PPI,PRSD,ACT,REM) | ; update ESR with either Resubmit OR Approve
|
|
| UPTCARD(CAN,PRSIEN,PPI,PRSD) | ; UPDATE A TIME CARD
; WITH ESR LEAVE EXCEPTIONS AND HOLIDAY X ; Return CAN by reference. ; CAN("AE") "CAN APPROVE ESR" is set to true if the ESR can be ; approved. i.e. timecard status is T-timekeep or there's ; no affect on the timecard ; CAN("CB") "CAN CALL BANK" is set to true when a call should be ; made to the hours bank API (PTP^PRSASR1). ; Calling routines must consider the order in which ; to APPROVE ESR and CALL HOURS BANK since the API ; PTP^PRSASR, will only count hrs with an approved status. |
|
| EDTCARD(PPI,PRSIEN,PRSD,ESRN) | ; edit the timecard
|
|
| ESR2TC(ESRN,PT) | ;CONVERT ESR DATA TO TIMECARD FORMAT
|
|
| ABSENT(ESRN,PPI,PRSIEN,PRSD) | ;return true if the ESR posting matches all
; the tour start and stop times and uses only one type of leave and ; the meal matches the tours meal. ; i.e. ESR posting equivalent to absent entire tour question. |
|
| ENDML(END,MEAL) | ;GET AN END TIME AND DEDUCT THE MEAL FROM IT
|
|
| MEALCUT(HHMM,MEAL) | ;Subtract meal time from the end time
; (subtract a 15 minute increment from length of time ; in hh:mm format, i.e. hh:mm - mm |
|
| TCSTAT(PPI,PRSIEN) | ; get timecard status
|
|
| GETAPTM(WORK) | ; return the work node with only the time that should
; be posted to a PTP's timecard ; INPUT: WORK : ESR work node ; RETURN ESRN : ESR node with only time applicable to PTP's ; |
