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: PRSASR

Package: PAID

Routine: PRSASR


Information

PRSASR ;HISC/MGD,WOIFO/JAH/PLT - Supervisor Certification ;02/05/2005

Source Information

Source file <PRSASR.m>

Entry Points

Name Comments DBIA/ICR reference
P0 ;PDT = string of pay period dates with format - Sun 29-Sep-96^
T0
T1 ;if supervisor signs off then update all records in tmp
CHK ; Check for needed approvals
LD ; Check for changes to the Labor Distribution Codes made during the pay
; period.
OK ;Prompt Supervisor to release timecard. If yes, store in ^TMP(.
O1
PROC ; Set Approval, file any exceptions & update 8B string
HDR ; Display Header
HDR2 ; Display Header don't quit
EX ; clean up variables & unlock any leftover time card nodes
TLSUP() ;get next supervisor who certifies other supervisors
SSN() ;get ssn of supervisor to be certified by this supervisor.
DFN() ;get internal entry number of supvisor of other T&L 2b approved
TOURERR(DTE,X9,XF) ;DISPLAY TOUR & ERRORS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: PRSASR+20
Function Call: WRITE
  • Prompt: !?26,"VA TIME & ATTENDANCE SYSTEM"
  • Line Location: PRSASR+20
Function Call: WRITE
  • Prompt: !?27,"SUPERVISORY CERTIFICATION"
  • Line Location: PRSASR+21
Function Call: WRITE
  • Prompt: $C(7),!!,MIDPP
  • Line Location: PRSASR+25
Function Call: WRITE
  • Prompt: !!,"No records have been selected for certification."
  • Line Location: T0+1
Function Call: WRITE
  • Prompt: !,IORVON,"Serious error; cannot release.",IORVOFF
  • Line Location: CHK+19
Function Call: WRITE
  • Prompt: !,?3,"WARNING: The total scheduled recess hours for this pay period does not match the total RS/RN posted."
  • Line Location: CHK+36
Function Call: WRITE
  • Prompt: !,?3,"Warning: The entire tour for day# ",PRSWOC," is posted RECESS. The On-Call will be paid unless posted UNAVAILABLE."
  • Line Location: CHK+37
Function Call: WRITE
  • Prompt: !!,IORVON,"Release to Payroll?",IORVOFF," "
  • Line Location: OK+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: OK+4
Function Call: WRITE
  • Prompt: $C(7)," Answer YES or NO"
  • Line Location: OK+5
Function Call: WRITE
  • Prompt: !,@IOF,?2,$P(X,U,1)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?68,$E(X),"XX-XX-",$E(X,6,9)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?6,"Date",?16,"TW",?20,"Scheduled Tour",?40,"Tour Exceptions",?63,IORVON,"Tour Errors",IORVOFF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?2
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,@IOF,?2,$P(X,U,1)
  • Line Location: HDR2+3
Function Call: WRITE
  • Prompt: ?68,$E(X),"XX-XX-",$E(X,6,9)
  • Line Location: HDR2+3
Function Call: WRITE
  • Prompt: !,?6,"Date",?16,"TW",?20,"Scheduled Tour",?40,"Tour Exceptions",?63,IORVON,"Tour Errors",IORVOFF
  • Line Location: HDR2+4
Function Call: WRITE
  • Prompt: !?2
  • Line Location: HDR2+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR2+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>44
  • Line Location: TOURERR+10
Function Call: WRITE
  • Prompt: ?45,$P(Y2(K),U,2)
  • Line Location: TOURERR+10
Function Call: WRITE
  • Prompt: ?(IOM-(ERRLEN+1)),IORVON
  • Line Location: TOURERR+16
Function Call: WRITE
  • Prompt: " ",$P(ER(K),U,1),IORVOFF
  • Line Location: TOURERR+18
Info |  Source |  Entry Points |  Interaction Calls