Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PRSPSAPU

Package: PAID

Routine: PRSPSAPU


Information

PRSPSAPU ;WOIFO/JAH - PT Physician, supervisor approval utils ;01/22/05

Source Information

Source file <PRSPSAPU.m>

Entry Points

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 )

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no Service Level Memoranda on file for ",$P(^PRSPC(PTP,0),U)
  • Line Location: ONEPTP+14
Function Call: WRITE
  • Prompt: !!,"There are no daily ESR's pending approval for ",$P(^PRSPC(PTP,0),U)
  • Line Location: ONEPTP+15
Function Call: WRITE
  • Prompt: !
  • Line Location: ALL1PTP+10
Function Call: WRITE
  • Prompt: !,CNT
  • Line Location: DISPLAY+17
Function Call: WRITE
  • Prompt: ?3,$P(EXTDAY,U,2)
  • Line Location: DAY+4
Function Call: WRITE
  • Prompt: ?17,ESR("TODEXT")
  • Line Location: DAY+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DAY+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DAY+10
Function Call: WRITE
  • Prompt: ?33,START
  • Line Location: DAY+15
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DAY+17
Function Call: WRITE
  • Prompt: STOP
  • Line Location: DAY+20
Function Call: WRITE
  • Prompt: ?49,$$TTE($P(ESR("WORK"),U,ESEG+2))
  • Line Location: DAY+22
Function Call: WRITE
  • Prompt: !,?34,"Remarks: ",$$EXTERNAL^DILFD(458.02,44,"",REMARKS)
  • Line Location: DAY+27
Function Call: WRITE
  • Prompt: ?61,HOURS,?68,MEAL
  • Line Location: DAY+29
Function Call: WRITE
  • Prompt: !,?2,"Physician Remarks: "
  • Line Location: DAY+32
Function Call: WRITE
  • Prompt: ?72,$$STATUSE(STATUSI)
  • Line Location: DAY+36
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDAY+10
Function Call: WRITE
  • Prompt: ?$G(TAB)
  • Line Location: WRAP+7
Function Call: WRITE
  • Prompt: !,?$G(TAB)
  • Line Location: WW+2
Function Call: WRITE
  • Prompt: WORD," "
  • Line Location: WW+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRSPC - [#450] Classic Fileman Calls
458.02 CHK^DIE,  EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call