PRSPSAPU ;WOIFO/JAH - PT Physician, supervisor approval utils ;01/22/05
Source file <PRSPSAPU.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ONEPTP(TLE) | ; get one or all ptp's from a TLE
; if the selection hasn't a memo or hasn't an ESR to be approved ; then inform and re-ask ; ; return PRSIEN for successful PTP selection ; return 0 for all PTP's in T&L ; return -1 for abort/timeout |
|
ALL1PTP(TLE) | ; ask for one part time physician from a TLE or ALL
|
|
UPESRST(PPI,PRSIEN,PRSD) | ;update ESR DAILY STATUS
|
|
ESRDTS(ESRDTS,PRSIEN,PPI) | ; Return signed dates from PTP's ESR
; return array ESRDTS subscripted sequentially from 1 ; ESRDTS(1) = Tue 2-NOV-04 ; ESRDTS(2) = Fri 5-NOV-04 |
|
DISPLAY(PRSIEN,PPI,CNT) | ;display PPI signed esr days for super review/action
; RETURN array CNT ; CNT = count of days ; CNT(1)= days w/status from supervisor during this option ; PGLNS = lines on current page ; DYLNS = lines in a day ; |
|
DAY(LN,EXTDAY,ESR,PRSIEN,PPI) | ; write a day, return # of lines.
|
|
GETDAY(ESRDY,ESRDTS,ESR,CNT,PRSIEN,PPI) | ; RETURN write a day IN ESRDY ARRAY
|
|
TTE(CODE) | ; return external type of time
|
|
STATUSE(ST) | ; return external form of supervisor action status
|
|
CLRTCDY(PPI,PRSIEN,PRSD,EST) | ;function true (1) for success otherwise 0
; clear a timecard day (2,3,10 nodes) if status is (T) timekeeper ; clear work, posting status and remove approved status from ESR day. ; INPUT: PPI,PRSIEN,PRSD: package standard ; EST : optional, valid ESR DAILY STATUS internal value |
|
WRAP(LNS,STR,TAB,WID) | ; format a long message string to break lines at words
; TAB is left margin ; WID is right margin ; return LNS number of lines it took to write |
|
WW | ; Write Word
|
|
AMT(START,STOP,MEAL) | ; return decimal hours between times
; times are in PAID timecard work node format. (e.g. 04:30P ) |
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 |
|
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^PRSPC - [#450] | Classic Fileman Calls |
458.02 | CHK^DIE, EXTERNAL^DILFD |