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
Print Page as PDF
Routine: PRSPSAP3

Package: PAID

Routine: PRSPSAP3


Information

PRSPSAP3 ;WOIFO/JAH - Supervisor Approve-update pt phys timecard ;01/05/05

Source Information

Source file <PRSPSAP3.m>

Entry Points

Name Comments DBIA/ICR reference
MARK(ACT,PRSIEN,PPI) ; mark supervisors action on temp global
; ESR STATUS
; when updating a single record we overwrite. When updating
; multiple records we will only update ones with no status.
GETREM(SNIDE) ; return supervisor remark for a resubmit request
; WE CAN'T EDIT THE FIELD DIRECTLY BECAUSE THIS IS A TRANSACTION
; AND NOTHING IS COMMITED TO THE DB UNTIL THEY SIGN
CANTPOST(ER,TCS,PPI,PRSIEN,PRSD,ESRN) ; GIVE SUPERVISOR CAN'T POST INFORMATION
HDR(PRSIEN,PPI,PRSD) ;
CMPESRTC(ERCNT,ERMSG,ESRN,TCN,PPI,PRSIEN,PRSD) ;compare the ESR to the timecard
ESRTCAR(PRSTA,ESRN,TCN,PPI,PRSIEN,PRSD) ;
; return an array subscripted by types of time (TT) for each TT
; found in either the ESR or timecard. Piece 1 of each TT subscript
; represents the timcard and piece 2 represents the ESR.
; Both pieces contain the total hours in decimal format of that TT.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Time Discrepancies must be resolved. Timecard Status: "
  • Line Location: CANTPOST+4
Function Call: WRITE
  • Prompt: $S(TCS="P":"RELEASED TO PAYROLL",1:"TRANSMITTED TO AUSTIN")
  • Line Location: CANTPOST+5
Function Call: WRITE
  • Prompt: !,"Payroll must "
  • Line Location: CANTPOST+6
Function Call: WRITE
  • Prompt: $S(TCS="P":"return ",1:"initiate corrected ")
  • Line Location: CANTPOST+7
Function Call: WRITE
  • Prompt: "timecard or physician must resubmit ESR."
  • Line Location: CANTPOST+8
Function Call: WRITE
  • Prompt: !!!,$$ASK^PRSLIB00(1)
  • Line Location: CANTPOST+10
Function Call: WRITE
  • Prompt: !!,?15,"TIME DISCREPANCIES BETWEEN TIMECARD AND ESR"
  • Line Location: CANTPOST+14
Function Call: WRITE
  • Prompt: !,?6,"Error",?21,"Type of Time",?39,"Timecard Hrs",?57,"ESR Hrs"
  • Line Location: CANTPOST+16
Function Call: WRITE
  • Prompt: !,?2,"--------------------------------------------------------------"
  • Line Location: CANTPOST+17
Function Call: WRITE
  • Prompt: !,?2,$P(ER(I),U,2),?26,$P(ER(I),U),?44,$P(ER(I),U,3),?60,$P(ER(I),U,4)
  • Line Location: CANTPOST+19
Function Call: WRITE
  • Prompt: !!,?32,"ESR POSTING"
  • Line Location: CANTPOST+21
Function Call: WRITE
  • Prompt: !
  • Line Location: CANTPOST+28
Function Call: WRITE
  • Prompt: "-"
  • Line Location: CANTPOST+28
Function Call: WRITE
  • Prompt: !
  • Line Location: CANTPOST+29
Function Call: WRITE
  • Prompt: !!,?30,"TIMECARD POSTING"
  • Line Location: CANTPOST+30
Function Call: WRITE
  • Prompt: !,?7,"Date",?21,"Scheduled Tour",?46,"Tour Exceptions"
  • Line Location: CANTPOST+32
Function Call: WRITE
  • Prompt: !,?2,"------------------------------------------------------------"
  • Line Location: CANTPOST+33
Function Call: WRITE
  • Prompt: !
  • Line Location: CANTPOST+35
Function Call: WRITE
  • Prompt: @IOF,!!,"ESR approval REJECTED for "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: $P($G(^PRSPC(PRSIEN,0)),"^")," on day ",PRSD," in PP "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: $P($G(^PRST(458,PPI,0)),U),"."
  • Line Location: HDR+3
Info |  Source |  Entry Points |  Interaction Calls