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

Package: PAID

Routine: PRSAPPU


Information

PRSAPPU ; HISC/REL,WIRMFO/JAH - Calculate Pay Period; 22-JAN-1998

Source Information

Source file <PRSAPPU.m>

Entry Points

Name Comments DBIA/ICR reference
PP ;Calculate Pay Period from a FileMan date.
NX ; Calculate Date of 1st day of Pay Period.
DTP ; Printable Date
DAT ;;2960107,2970105,2980104,2990103,3000102,3010114,3020113,3030112,3040111,3050109,3060108,3070107,3080106,3090104,3100103,3110102,3120101,3130113,3140112,3150111,3160110,3170108,3180107,3190106,3200105,3210103,3220102,3230101
PREP(CURP) ;given a pay period, return the previous pay period.
; WARNING: This call only valid for years that are in the seed
; range of the FileMan dates on the DAT^PRSAPPU line.
; If pay period passed is out of this range then
; 0 is returned.
NXTPP(CURP) ;given a payperiod, return the NEXT payperiod. YYYY-PP
; WARNING: This call only valid for years that are in the seed
; range of the FileMan dates on the DAT^PRSAPPU line.
; If pay period passed is out of this range then
; 0 is returned.
VALIDPP(PP) ;Valid pay period must be in form YY-PP or YYYY-PP where
; pp is pay periods 01-26 and
; yy or yyyy are years in the FileMan dates at DAT^PRSAPPU
PPRANGE(STARTPP,ENDPP,STPP4Y,ENDPP4Y) ;get a pay period range from input.
; INPUT: none
; OUTPUT: STARTPP = 1st pay period in range. 0 on abnormal exit.
; ENDPP = 2ND pay period in range. 0 on abnormal exit.
;
; -Ask user to select beginning and ending pay periods from the
; pay periods that are on file.
; -Compare dates of 1st day of each of the input pay periods
; to ensure that the beginning pay period input is LESS THAN OR = TO
; the ending pay period input.
IC(YY,FMT,FW,BDT) ;Infer Century from 2-digit year
; YY - 2 digit year
; FMT - (optional) format of returned value (DEFAULT 3)
; 3 for YYY (fileman year .i.e. first numbers of fileman date)
; 4 for YYYY (standard year)
; FW - (optional) # of future years from base in window (DEFAULT 20)
; BDT - (optional) base date (fileman) for sliding window (DEFAULT DT)
P35POST ;PRS*4.0*35 post install - execute set logic on new AB x-ref.
MSSG(FLAG) ;PRS*4.0*35 - OUTPUT POST INSTALLATION MESSAGE.
XREF4YR(F) ;SET AB 4DIGIT YEAR XREF OF FILE 458 OR 459.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Invalid pay period range."
  • Line Location: PPRANGE+39
Function Call: WRITE
  • Prompt: !,"Ending pay period should be later than or equal to beginning pay period."
  • Line Location: PPRANGE+40

FileMan Files Accessed Via FileMan Db Call

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