Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PRSATE

Package: PAID

Routine: PRSATE


Information

PRSATE ;WCIOFO/JAH/PLT - Enter/Edit Employee (emp) Tour of Duty (ToD) ;03/15/2005

Source Information

Source file <PRSATE.m>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
PAID 13 HDR^PRSADP1  ^PRSAENT  ($$PERM,$$TMPST,$$UPDTQ,UPDSTAT)^PRSALIB  (,E)^PRSAPPH  UPD^PRSASAL  (,$$TWE,PRSDAY,VS)^PRSATE0  NOL^PRSATE2  ^PRSATE4  
ENT^PRSATE5  ($$ASKTEMP,$$ASKTLWRK,$$ASKTOFIX,$$ASKTWMF,$$FLEXIND,$$GETEMP,$$ISERRORS,FFTOUR,RESTORE,SAVETOUR)^PRSATE6  OT^PRSATP  ^PRSAUTL  $$MIEN^PRSPUT1  
VA FileMan 5 NOW^%DTC  MSG^DIALOG  ^DIC  FILE^DIE  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
PAID 4 PRSA TK TOUR-EDIT  PRSASC1  PRSATE0  PRSATPP  

Entry Points

Name Comments DBIA/ICR reference
TOUREDIT(DFN,PPI,PPE,TLI,TLE,PRSTLV) ;
ISTEMPTR() ; IS TEMPORARY ToD ?
; Ask user if ToD is temp or perm & convert TYP to true false flag
; Permanent set TYP=0, Temporary set TYP=true (1)
;
A1 ; Set up for emps ToD look up. Screen allows Daily ToDs & days off
; for daily emps. Everyone else gets days off & all other ToDs.
; Screen further ensures ToD is available either to all t&ls
; or to t&l that this emp is working in.
FX ; Fixed ToD
FX1
F1
VAR ; Variable ToD
NONE ; No ToD
RS ; Get Comp Ind
NX ; Set Next ToD
SET ; Set ToD
S0
S1 ;
S8(A,B) ;set telework tour in node 8 of daily multiple
T2 ; Ask if second ToD
HOL ; Determine if Holiday within ToD
CLEANTOD(PPI,DFN,DAY,TD) ; CLEAN OUT TOUR
ERROR(NUM,VAR1,VAR2) ;
ASKFIXED() ;GET USER'S YES OR NO RESPONSE TO FIXED ToD QUESTION
ASK2NDTR() ;GET USER'S YES OR NO RESPONSE TO 2nd ToD QUESTION

External References

Name Field # of Occurrence
NOW^%DTC TOUREDIT+27
MSG^DIALOG CLEANTOD+10
^DIC FX1+1
FILE^DIE CLEANTOD+10
^DIR RS+6, ASKFIXED+6, ASK2NDTR+7
HDR^PRSADP1 TOUREDIT+31
^PRSAENT TOUREDIT+24
$$PERM^PRSALIB NONE+6
$$TMPST^PRSALIB NONE+8
$$UPDTQ^PRSALIB NONE+8
UPDSTAT^PRSALIB NONE+8
^PRSAPPH HOL+2
E^PRSAPPH HOL+5
UPD^PRSASAL RS+21
^PRSATE0 VAR+1
$$TWE^PRSATE0 TOUREDIT+36
PRSDAY^PRSATE0 FX1+9
VS^PRSATE0 FX1+14
NOL^PRSATE2 TOUREDIT+31
^PRSATE4 T2+8
ENT^PRSATE5 FX1+11
$$ASKTEMP^PRSATE6 ISTEMPTR+4
$$ASKTLWRK^PRSATE6 TOUREDIT+53
$$ASKTOFIX^PRSATE6 TOUREDIT+67
$$ASKTWMF^PRSATE6 A1+14
$$FLEXIND^PRSATE6 TOUREDIT+36
$$GETEMP^PRSATE6 PRSATE+8
$$ISERRORS^PRSATE6 TOUREDIT+66
FFTOUR^PRSATE6 TOUREDIT+65
RESTORE^PRSATE6 TOUREDIT+70
SAVETOUR^PRSATE6 TOUREDIT+57
OT^PRSATP FX1+14
^PRSAUTL PRSATE+7
$$MIEN^PRSPUT1 CLEANTOD+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?26,"VA TIME & ATTENDANCE SYSTEM"
  • Line Location: TOUREDIT+29
Function Call: WRITE
  • Prompt: !?29,"EMPLOYEE TOUR OF DUTY"
  • Line Location: TOUREDIT+30
Function Call: WRITE
  • Prompt: !
  • Line Location: FX1+1
Function Call: WRITE
  • Prompt: *7,!!,STR
  • Line Location: FX1+15
Function Call: WRITE
  • Prompt: " ... done"
  • Line Location: F1+2
Function Call: WRITE
  • Prompt: !!,"This is an intermittent employee with no specified tour."
  • Line Location: NONE+3
Function Call: WRITE
  • Prompt: !!,"Time records will now be updated to indicate this."
  • Line Location: NONE+4
Function Call: WRITE
  • Prompt: !!,"Not all tour days are assigned a permanent status."
  • Line Location: NONE+7
Function Call: WRITE
  • Prompt: " ... done"
  • Line Location: NONE+14
Function Call: WRITE
  • Prompt: *7,!?5,"Compressed tour not valid for this employee."
  • Line Location: RS+11
Function Call: WRITE
  • Prompt: *7,!?5,"Flexitime not valid for this employee."
  • Line Location: RS+18
Function Call: WRITE
  • Prompt: *7,!!
  • Line Location: ERROR+1
Function Call: WRITE
  • Prompt: "Employee has no Pay Entitlement table entry."
  • Line Location: ERROR+2
Function Call: WRITE
  • Prompt: "Warning: Normal Hours are ",$G(VAR1),"; Tour Hours are ",$G(VAR2)
  • Line Location: ERROR+5
Routine Call
  • DIALOG
  • Line Location:
    • CLEANTOD+10
Routine Call
  • DIC
  • Line Location:
    • FX1+1
Routine Call
  • DIE
  • Line Location:
    • CLEANTOD+10
Routine Call
  • DIR
  • Line Location:
    • RS+6
    • ASKFIXED+6
    • ASK2NDTR+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRST(457.1 - [#457.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRST(457.1 - [#457.1] FX1+12
^PRST(458 - [#458] PRSATE+9, TOUREDIT+33, FX1+8, FX1+16, NONE+5, RS+1, RS+20*, RS+21, NX+1, NX+2
, NX+4*, NX+5*, SET+4, SET+5, SET+7, SET+19!, S0*, S1+1*, S8+2!, S8+3*
, S8+5!, CLEANTOD+2!, CLEANTOD+4

Label References

Name Line Occurrences
$$ASK2NDTR T2+7
$$ASKFIXED A1+13
$$ISTEMPTR TOUREDIT+48
A1 TOUREDIT+60, TOUREDIT+68
CLEANTOD SET+16
ERROR TOUREDIT+24, FX1+22, F1+3
F1 FX1+18
FX A1+14, A1+15, FX1+15
FX1 FX1+11
HOL FX1+25, VAR+3, NONE+15
NONE TOUREDIT+39
NX F1, F1+1, NONE+11
RS FX1+25, VAR+3, NONE+15, RS+10, RS+13
S0 SET+14, SET+17, SET+20
S1 SET+14, SET+17, SET+19, SET+20
S8 SET+14, SET+17, SET+19, SET+20
SET FX1+20, FX1+21, NONE+13
T2 FX1+23, VAR+2
TOUREDIT PRSATE+10
VAR A1+12, A1+13, A1+14

Naked Globals

Name Field # of Occurrence
^(0 FX1+8, FX1+12, FX1+16*, NONE+5*
^(1 S1+1*
^(10 CLEANTOD+2!
^(2 CLEANTOD+2!
^(3 CLEANTOD+2!
^(4 FX1+8, CLEANTOD+2!
^(8 NX+4*, SET+4, CLEANTOD+2!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% TOUREDIT+27!
A S8~, S8+3
B S8~, S8+3
C0 TOUREDIT+1~, A1+12, RS+10, RS+14
DAY FX1+6*, FX1+8, FX1+20*, FX1+21*, F1*, F1+1*, NONE+11*, NONE+13*, NX+1, NX+2
, NX+4, NX+5, SET+4, SET+5, SET+7, SET+14, SET+16, SET+17, SET+19, SET+20
, S0, S1+1, S8+2, S8+3, S8+5, HOL+1~, CLEANTOD~, CLEANTOD+2, CLEANTOD+4, CLEANTOD+8
, CLEANTOD+9
DB A1+5~, A1+12*
DFN PRSATE+6~, PRSATE+8*, PRSATE+10, TOUREDIT~, TOUREDIT+36, TOUREDIT+57, TOUREDIT+65, TOUREDIT+70, FX1+8, FX1+16
, NONE+5, NONE+6, NONE+8, RS+1, RS+20, RS+21, NX+1, NX+2, NX+4, NX+5
, SET+4, SET+5, SET+7, SET+16, SET+19, S0, S1+1, S8+2, S8+3, S8+5
, CLEANTOD~, CLEANTOD+2, CLEANTOD+5, CLEANTOD+8, CLEANTOD+9
DIC A1+5~, A1+6*
DIC("A" FX1*
DIC("S" A1+7*
DIC(0 A1+6*
DIR RS+6!, ASKFIXED+1~, ASK2NDTR+1~
DIR("?" ASKFIXED+4*, ASKFIXED+5*, ASK2NDTR+5*, ASK2NDTR+6*
DIR("A" RS+4*, ASKFIXED+2*, ASK2NDTR+2*
DIR("B" RS+5*, ASK2NDTR+4*
DIR(0 RS+3*, ASKFIXED+3*, ASK2NDTR+3*
DIRUT ASKFIXED+1~, ASK2NDTR+1~
DUP HOL+4*, HOL+5!
DUZ NX+3, SET+9
ENT TOUREDIT+1~, TOUREDIT+24, TOUREDIT+38, TOUREDIT+39, A1+7, T2+5
ERROR TOUREDIT+1~, TOUREDIT+65~, TOUREDIT+66
FLX TOUREDIT+1~, TOUREDIT+36*, A1+12, RS+2*, RS+5, RS+6
HOL HOL+3, HOL+5!
HRS FX1+12*, FX1+22, FX1+25!, F1+3
IOF TOUREDIT+28
IOST TOUREDIT+28
MIEN CLEANTOD+1~, CLEANTOD+5*, CLEANTOD+6
NH TOUREDIT+1~, A1+12, FX1+22, F1+3, ERROR+4
NOERROR TOUREDIT+1~, TOUREDIT+64*, TOUREDIT+70*, TOUREDIT+72*
NOW TOUREDIT+27*, TOUREDIT+73!, NX+3, SET+9
NUM ERROR~, ERROR+2, ERROR+3
OLD SET+1~, SET+4*, SET+7, SET+14, SET+17
>> OUT TOUREDIT+24*
PAY RS+14*, RS+15, RS+16, RS+17, RS+22!
PB TOUREDIT+1~, RS+14*, RS+16, RS+17
PMP TOUREDIT+1~, TOUREDIT+64
PP TOUREDIT+1~, A1+12
PPE PRSATE+6~, PRSATE+9*, PRSATE+10, TOUREDIT~, TOUREDIT+33*
PPI PRSATE+6~, PRSATE+9*, PRSATE+10, TOUREDIT~, TOUREDIT+33*, TOUREDIT+36, TOUREDIT+57, TOUREDIT+65, TOUREDIT+70, FX1+8
, FX1+16, NONE+5, NONE+6, NONE+8, RS+1, RS+20, NX+1, NX+2, NX+4, NX+5
, SET+4, SET+5, SET+7, SET+16, SET+19, S0, S1+1, S8+2, S8+3, S8+5
, CLEANTOD~, CLEANTOD+2, CLEANTOD+4, CLEANTOD+8, CLEANTOD+9
PRSDAY TOUREDIT+1~, FX1+5!
PRSDAY( FX1+8*
PRSDT CLEANTOD+1~, CLEANTOD+4*, CLEANTOD+5
PRSERR FX1+11!
PRSETD TOUREDIT+1~, FX1+5!, FX1+6*
PRSFDA CLEANTOD+7~
PRSFDA( CLEANTOD+8*, CLEANTOD+9*
PRSTLV PRSATE+6~, PRSATE+7*, PRSATE+10, TOUREDIT~
PRSTW TOUREDIT+2~
PRSTW( NX+2, NX+4, SET+7, SET+14, SET+17, SET+19, SET+20
PRSTW1 SET+1~, SET+4*, SET+7, SET+17
PRSTW5 SET+1~, SET+4*, SET+19
PRSTWA TOUREDIT+2~, TOUREDIT+36*
PRSTWB TOUREDIT+2~, TOUREDIT+36*, A1+14, FX1+23, FX1+25, NONE+1~, NONE+2*, NX+2, NX+4, SET+7
, SET+14, SET+17, SET+19, SET+20, S8+2
SCH SET+1~, SET+4*, SET+17, SET+19
SRT TOUREDIT+1~, TOUREDIT+32, TOUREDIT+33, TOUREDIT+36, TOUREDIT+45, TOUREDIT+65, FX1+8, FX1+17, VAR+2, NONE+10
, RS+2, RS+20, ASK2NDTR+2
STR FX1+13*, FX1+15, FX1+25!
TD TOUREDIT+1~, TOUREDIT+39*, FX1+3*, FX1+6, FX1+12, FX1+21*, F1+1*, NX+2, NX+3, SET+7
, SET+14, SET+16, SET+17, SET+19, SET+20, CLEANTOD~, CLEANTOD+2
TDH FX1+12*, FX1+21*, NONE+1~, NONE+9*, SET+9
TLE PRSATE+6~, PRSATE+8, PRSATE+10, TOUREDIT~, TOUREDIT+53
TLI PRSATE+6~, PRSATE+7, PRSATE+10, TOUREDIT~, TOUREDIT+44, ISTEMPTR+4, NONE+9, SET+12
TOLD FX1+7~, FX1+8*
TT HOL+4*, HOL+5!
TYP TOUREDIT+1~, TOUREDIT+46*, TOUREDIT+48*, TOUREDIT+53, TOUREDIT+59, ISTEMPTR+4*, ISTEMPTR+5, NONE+9*, SET+12, SET+14
, SET+17, SET+20
TYP2 NONE+1~, NONE+8
U TOUREDIT+36, A1+12, FX1+6, FX1+8, RS+2, RS+6, RS+10, RS+14, RS+20, NX+2
, NX+4, SET+4, SET+5, SET+9, SET+10, SET+12, SET+14, SET+17, SET+18, SET+19
, SET+20, S8+3, CLEANTOD+2, CLEANTOD+4
UPDT NONE+1~
VAR1 ERROR~, ERROR+5
VAR2 ERROR~, ERROR+5
WTL TOUREDIT+1~, TOUREDIT+44*, TOUREDIT+53*, TOUREDIT+59, ISTEMPTR+4*, NONE+9*, SET+12
X A1+5~, A1+13*, A1+14*, T2+1~, T2+7*, T2+8
Y FX1+2, FX1+3, FX1+12*, FX1+21*, NONE+1~, NONE+9*, RS+1*, RS+2, RS+6*, RS+10
, RS+13, RS+20, SET+7, S1+1, ASKFIXED+1~, ASKFIXED+7, ASK2NDTR+1~, ASK2NDTR+8
Z TOUREDIT+1~, TOUREDIT+39*, RS+13*, RS+15*, RS+16*, RS+17*, RS+18, NX+1*, NX+2, NX+3*
, NX+4, SET+4*, SET+9*, SET+10*, SET+12*, SET+14*, SET+17*, SET+18*, SET+19*, SET+20*
, S1+1, CLEANTOD+2*
ZENT FX1+13*, RS+22!
ZLASTPP SET+1~, SET+5*, SET+14
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All