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 |  Local Variables  | All
Print Page as PDF
Routine: PRSATE6

Package: PAID

Routine: PRSATE6


Information

PRSATE6 ; WCIOFO/JAH-VALIDATE FIREFIGHTER TOURS OF DUTY (ToD);3/19/99

Source Information

Source file <PRSATE6.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 %XY^%RCR  (,IX)^DIC  ^DIR  
PAID 1 CNV^PRSATIM  

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

Package Total Caller Graph
PAID 1 PRSATE  

Entry Points

Name Comments DBIA/ICR reference
FFTOUR(PPI,DFN,WHICHPP,ERROR) ; Validate a Firefighter ToD
GETBSMAX(DFN,PPI,WHICHPP) ; GET MAX BASE ToD HRS FOR FIREFIGHTER'S WEEK
GETPMP(DFN) ; RETURN PREMIUM PAY INDICATOR CODE FROM FILE 450
GETTOTS(PPI,DFN,WHICHPP,WK1TOT,WK2TOT) ;
MEALTM(PPI,DFN,DAY,WHICHPP) ;
; RETURN LENGTH OF MEALTIME FOR THIS EMPs ToD ON THIS DAY.
MINUTES(T1,T2) ; CONVERT TIME 1 & TWO TO MINUTES FROM MIDNIGHT
; OF THE CURRENT DAY. IF T2 IS LESS THAN OR EQUAL TO T1 THEN
; IT IS ASSUMMED TO BE ON THE NEXT DAY.
SPLIT(DAY,T1,T2,L1,L2) ; SPLIT two day ToD into 2 segments.
UPTOT(W1T,W2T,W1LN,W2LN) ;
GETERROR(W1TOT,W2TOT,BMAX,PMP,ERROR) ;
ISERRORS(ERROR) ; RETURN TRUE IF THERE ARE ERRORS IN THE ERROR ARRAY
DISPERR(PPI,DFN,PMP,WHICHPP,ERROR,BMAX) ;
ASKTOFIX() ;RETURN TK RESPONSE--DO YOU WANT TO FIX THE ToD?
GETTOUR(PPI,DFN,WHICHPP,PPDAY) ; This function returns the employees ToD
; based on the WHICHPP variable. WHICHPP can be set to N, for next
; pay period, or C for current pay period or 'L' for last. If set
; to 'N'ext, we have to look at the prior scheduled field in the
; current pay period to see if the ToD is changing next pp.
SAVETOUR(PPI,DFN) ;SAVE ToD in ^TMP global
RESTORE(PPI,DFN) ;restore a ToD
; use with EXTREME CAUTION. SAVETOUR should be called 1st.
; This utility first removes the entire "D" node from the
; input employee's pay period record. It depends on the fact that
; a backup of an earlier copy of the "D" node was saved in TMP.
ASKTEMP() ; ASK USER-TEMP OR PERM ToD CHANGE
GETEMP(TLE) ; SELECT EMP FROM THE PASSED T&L UNIT
FLEXIND(PPI,DFN,WHICHPP) ;
ASKTLWRK(TLE) ; ASK TIMEKEEP WHICH TLU ToD WILL BE WORKED
ASKTWMF() ;ask telework tour for fixed monday/friday tour

External References

Name Field # of Occurrence
%XY^%RCR SAVETOUR+3, RESTORE+9
^DIC ASKTLWRK+6
IX^DIC GETEMP+7
^DIR ASKTOFIX+9, ASKTEMP+7, ASKTWMF+4
CNV^PRSATIM MINUTES+9, SPLIT+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!!,?5,"There are the following problems with the tour entered:"
  • Line Location: DISPERR+12
Function Call: WRITE
  • Prompt: !!,?7,COUNT,". Code ",PMP," firefighters with a compressed/flex "
  • Line Location: DISPERR+15
Function Call: WRITE
  • Prompt: !,?11,"indicator of ",FLX," may not have BASE tour hours that "
  • Line Location: DISPERR+16
Function Call: WRITE
  • Prompt: !,?11,"exceed ",BMAX/4," for week ",WK,"."
  • Line Location: DISPERR+17
Function Call: WRITE
  • Prompt: !!,?7,COUNT,". Code ",PMP," firefighters may not have BASE tour "
  • Line Location: DISPERR+21
Function Call: WRITE
  • Prompt: !,?11,"hours that exceed 80 for the pay period."
  • Line Location: DISPERR+22
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASKTOFIX+2
Function Call: WRITE
  • Prompt: !
  • Line Location: GETEMP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKTLWRK+6
Routine Call
  • DIC
  • Line Location:
    • ASKTLWRK+6
Routine Call
  • DIC
  • Line Location:
    • GETEMP+7
Routine Call
  • DIR
  • Line Location:
    • ASKTOFIX+9
    • ASKTEMP+7
    • ASKTWMF+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRSPC - [#450] Classic Fileman Calls
^PRST(455.5 - [#455.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRSPC - [#450] GETPMP+2
^PRST(457.1 - [#457.1] MEALTM+7, GETTOUR+14
^PRST(458 - [#458] MEALTM+4, GETTOUR+8, RESTORE+6!, FLEXIND+6

Label References

Name Line Occurrences
$$FLEXIND GETBSMAX+10, DISPERR+5
$$GETBSMAX FFTOUR+7
$$GETPMP FFTOUR+3
$$GETTOUR GETTOTS+5
$$ISERRORS FFTOUR+23
$$MEALTM GETTOTS+6
DISPERR FFTOUR+24
GETERROR FFTOUR+19
GETTOTS FFTOUR+11
MINUTES GETTOTS+19
SPLIT GETTOTS+27
UPTOT GETTOTS+30, GETTOTS+34, GETTOTS+35, GETTOTS+38, GETTOTS+39

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%X SAVETOUR+2*, RESTORE+5~, RESTORE+7*
%Y SAVETOUR+3*, RESTORE+5~, RESTORE+8*
BASEMAX FFTOUR+1~, FFTOUR+7*, FFTOUR+19, FFTOUR+24
BMAX GETERROR~, GETERROR+10, GETERROR+11, DISPERR~, DISPERR+17
COUNT DISPERR+4~, DISPERR+8*, DISPERR+14*, DISPERR+15, DISPERR+20*, DISPERR+21
D GETEMP+1~, GETEMP+6*
DAY MEALTM~, MEALTM+4, SPLIT~, SPLIT+19
DFN FFTOUR~, FFTOUR+3, FFTOUR+7, FFTOUR+11, FFTOUR+24, GETBSMAX~, GETBSMAX+10, GETPMP~, GETPMP+2, GETTOTS~
, GETTOTS+5, GETTOTS+6, MEALTM~, MEALTM+4, DISPERR~, DISPERR+5, GETTOUR~, GETTOUR+7, GETTOUR+8, SAVETOUR~
, SAVETOUR+2, RESTORE~, RESTORE+6, RESTORE+8, GETEMP+7*, GETEMP+8, FLEXIND~, FLEXIND+6
DIC GETEMP+1~, GETEMP+5*, GETEMP+7!, ASKTLWRK+1~, ASKTLWRK+2*
DIC("A" GETEMP+2*, ASKTLWRK+4*
DIC("B" ASKTLWRK+5*
DIC("S" GETEMP+3*
DIC(0 GETEMP+4*, ASKTLWRK+3*
DIR ASKTOFIX+1~, ASKTEMP+1~, ASKTWMF+1~
DIR("?" ASKTOFIX+7*, ASKTOFIX+8*, ASKTEMP+5*, ASKTEMP+6*, ASKTWMF+3*
DIR("A" ASKTOFIX+3*, ASKTOFIX+4*, ASKTEMP+2*, ASKTWMF+2*
DIR("B" ASKTOFIX+6*, ASKTEMP+3*
DIR(0 ASKTOFIX+5*, ASKTEMP+4*, ASKTWMF+3*
DIRUT ASKTOFIX+1~, ASKTEMP+1~, ASKTEMP+8, ASKTWMF+1~
>> ENUM ISERRORS+1*, ISERRORS+2*
ERROR FFTOUR~, FFTOUR+19, FFTOUR+23, FFTOUR+24, GETERROR~, ISERRORS~, DISPERR~
ERROR( ISERRORS+2
ERROR(1 GETERROR+10*, DISPERR+9, DISPERR+11, DISPERR+13
ERROR(2 GETERROR+11*, DISPERR+10, DISPERR+13
ERROR(3 GETERROR+12*, DISPERR+19
FLX DISPERR+4~, DISPERR+5*, DISPERR+6*, DISPERR+16
IOF DISPERR+12
>> IS ISERRORS+1*, ISERRORS+2*, ISERRORS+4
L1 SPLIT~, SPLIT+12*, SPLIT+19*
L2 SPLIT~, SPLIT+14*, SPLIT+19*
>> LEN GETTOTS+33*, GETTOTS+34, GETTOTS+35, GETTOTS+37*, GETTOTS+38, GETTOTS+39, MEALTM+3*, MEALTM+7*, MEALTM+9
>> MAX GETBSMAX+9*, GETBSMAX+11*, GETBSMAX+12
>> MEAL GETTOTS+6*, GETTOTS+28, GETTOTS+29, GETTOTS+33, GETTOTS+37
PMP FFTOUR+1~, FFTOUR+3*, FFTOUR+19, FFTOUR+24, GETERROR~, GETERROR+9, DISPERR~, DISPERR+15, DISPERR+21
PPDAY GETTOUR~, GETTOUR+7, GETTOUR+8
PPI FFTOUR~, FFTOUR+7, FFTOUR+11, FFTOUR+24, GETBSMAX~, GETBSMAX+10, GETTOTS~, GETTOTS+5, GETTOTS+6, MEALTM~
, MEALTM+4, DISPERR~, DISPERR+5, GETTOUR~, GETTOUR+7, GETTOUR+8, SAVETOUR~, SAVETOUR+2, RESTORE~, RESTORE+6
, RESTORE+8, FLEXIND~, FLEXIND+6
SEGMNT GETTOTS+1~, GETTOTS+10*, GETTOTS+11, GETTOTS+12, GETTOTS+13
SPECIND GETTOTS+1~, GETTOTS+13*, GETTOTS+18
START GETTOTS+1~, GETTOTS+11*, GETTOTS+18, GETTOTS+19, GETTOTS+25, GETTOTS+33, GETTOTS+37
>> STARTHR GETTOTS+11*, GETTOTS+27
STOP GETTOTS+1~, GETTOTS+12*, GETTOTS+18, GETTOTS+19, GETTOTS+25, GETTOTS+32*, GETTOTS+33, GETTOTS+37
>> STOPHR GETTOTS+12*, GETTOTS+27
T1 MINUTES~, MINUTES+8, MINUTES+10*, SPLIT~, SPLIT+10
T2 MINUTES~, MINUTES+8, MINUTES+10*, SPLIT~, SPLIT+13
>> TEMP SPLIT+19*
TEMPTOUR GETTOUR+6~, GETTOUR+10*, GETTOUR+11
TLE GETEMP~, GETEMP+6, ASKTLWRK~, ASKTLWRK+5
TOUR GETTOTS+1~, GETTOTS+5*, GETTOTS+10, GETTOTS+11, GETTOTS+12, GETTOTS+13, MEALTM+2~, MEALTM+4*, MEALTM+5*, MEALTM+6*
, MEALTM+7, GETTOUR+6~, GETTOUR+9*, GETTOUR+12*, GETTOUR+13, GETTOUR+14
TOURDAY GETTOTS+1~, GETTOTS+4*, GETTOTS+5, GETTOTS+6, GETTOTS+26, GETTOTS+34, GETTOTS+35, GETTOTS+38, GETTOTS+39
TOURNODE GETTOUR+6~, GETTOUR+8*, GETTOUR+9, GETTOUR+10, GETTOUR+12
>> TOURTYPE GETBSMAX+10*, GETBSMAX+11
U GETTOUR+9, GETTOUR+10
W1LN UPTOT~, UPTOT+1
W1T UPTOT~, UPTOT+1*
W1TOT GETERROR~, GETERROR+10, GETERROR+12
W2LN UPTOT~, UPTOT+2
W2T UPTOT~, UPTOT+2*
W2TOT GETERROR~, GETERROR+11, GETERROR+12
WHICHPP FFTOUR~, FFTOUR+7, FFTOUR+11, FFTOUR+24, GETBSMAX~, GETBSMAX+10, GETTOTS~, GETTOTS+5, GETTOTS+6, MEALTM~
, MEALTM+6, DISPERR~, DISPERR+5, GETTOUR~, GETTOUR+11, FLEXIND~, FLEXIND+6
WK DISPERR+4~, DISPERR+8*, DISPERR+9*, DISPERR+10*, DISPERR+11*, DISPERR+17
WK1BTOT FFTOUR+1~, FFTOUR+11, FFTOUR+15*, FFTOUR+19
>> WK1LEN GETTOTS+20*, GETTOTS+27, GETTOTS+28*, GETTOTS+29, GETTOTS+30
WK1TOT GETTOTS~, GETTOTS+3*, GETTOTS+30, GETTOTS+34, GETTOTS+35, GETTOTS+38, GETTOTS+39
WK2BTOT FFTOUR+1~, FFTOUR+11, FFTOUR+15*, FFTOUR+19
>> WK2LEN GETTOTS+20*, GETTOTS+27, GETTOTS+28, GETTOTS+29*, GETTOTS+30
WK2TOT GETTOTS~, GETTOTS+3*, GETTOTS+30, GETTOTS+34, GETTOTS+35, GETTOTS+38, GETTOTS+39
X MINUTES+4~, MINUTES+8*, SPLIT+9~, SPLIT+10*, SPLIT+13*, GETEMP+1~, ASKTLWRK+1~, ASKTWMF+1~
Y MINUTES+4~, MINUTES+10, SPLIT+9~, SPLIT+12, SPLIT+14, ASKTOFIX+1~, ASKTOFIX+10, ASKTEMP+8*, ASKTEMP+9, GETEMP+1~
, GETEMP+7, ASKTLWRK+1~, ASKTLWRK+7, ASKTWMF+1~, ASKTWMF+5
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 |  Local Variables  | All