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

Package: PAID

Routine: PRSATE2


Information

PRSATE2 ; HISC/REL,WIRMFO/JAH - Display Employee Tour of Duty ;3/3/1998

Source Information

Source file <PRSATE2.m>

Entry Points

Name Comments DBIA/ICR reference
TK ; TimeKeeper Entry
SUP ; Supervisor Entry
TL
T1 ;ask type of output
NME ;Ask user what employee they want to display tour of duty for.
Q1
S0 ; Short Display
S1 ;
; Y1 = employee tour of duty node 4 current day of week one.
; Y2 = employee tour of duty node 4 current day of week two.
; Y2 = node 8 telework
; TD = tour of duty pointer to Tour of Duty file.
L0 ; Long Display
H1
DT ; Get date of PP
NOL ; Select this PP or Next
N0
N1
EX

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: NME+5
Function Call: WRITE
  • Prompt: !
  • Line Location: NME+8
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: Q1+0
Function Call: WRITE
  • Prompt: !?26,"VA TIME & ATTENDANCE SYSTEM"
  • Line Location: Q1+0
Function Call: WRITE
  • Prompt: !?29,"EMPLOYEE TOUR OF DUTY"
  • Line Location: Q1+1
Function Call: WRITE
  • Prompt: !!?7,"TW Week 1 - ",$E(Y1,5,13),?41,"TW Week 2 - ",$E(Y2,5,13),!
  • Line Location: S0+4
Function Call: WRITE
  • Prompt: !?2,$P("Sun Mon Tue Wed Thu Fri Sat"," ",DAY)
  • Line Location: S1+9
Function Call: WRITE
  • Prompt: ?7,PRSA
  • Line Location: S1+10
Function Call: WRITE
  • Prompt: ?11,$P($G(^PRST(457.1,TD,0)),"^",1)
  • Condition for execution: TD
  • Line Location: S1+10
Function Call: WRITE
  • Prompt: ?41,PRSA
  • Line Location: S1+13
Function Call: WRITE
  • Prompt: ?45,$P($G(^PRST(457.1,TD,0)),"^",1)
  • Condition for execution: TD
  • Line Location: S1+13
Function Call: WRITE
  • Prompt: !
  • Line Location: S1+15
Function Call: WRITE
  • Prompt: !!,$P(C0,U),?30,"Telework Indicator: ",$S($P($$TWE^PRSATE0(DFN,PPI),U,3)]"":$P($$TWE^PRSATE0(DFN,PPI),U,3),1:"None")
  • Line Location: L0+2
Function Call: WRITE
  • Prompt: ?65,$E(X),"XX-XX-",$E(X,6,9)
  • Line Location: L0+3
Function Call: WRITE
  • Prompt: !!,?7,"TW Week 1 - ",$E(Y1,5,13),?41,"TW Week 2 - ",$E(Y2,5,13),!
  • Line Location: L0+4
Function Call: WRITE
  • Prompt: !
  • Line Location: NOL+8
Function Call: WRITE
  • Prompt: !,"C = Current Pay Period beginning ",Y
  • Line Location: NOL+15
Function Call: WRITE
  • Prompt: !,"L = Last Pay Period beginning ",Y
  • Line Location: NOL+23
Function Call: WRITE
  • Prompt: !,"N = Next Pay Period beginning ",Y
  • Line Location: N0+0
Function Call: READ
  • Variable: SRT
  • Timeout: DTIME
  • Line Location: N1+0
Function Call: WRITE
  • Prompt: $C(7)," Choose from C, N or L if displayed"
  • Line Location: N1+1

FileMan Files Accessed Via FileMan Db Call

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