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 |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 (,C)^%DTC  ^DIC  ENALL^DIK  
Kernel 1 ($$PATCH,MES)^XPDUTL  
PAID 1 PP^PRSAPPU  

Caller Graph

Caller Graph Total: 44

Package Total Caller Graph
PAID 44 PRS8MSC0  PRSACED3  PRSAEDS  PRSALVE  PRSALVR  PRSALVS  PRSALVT  PRSALVU  
PRSAOTS  PRSAOTT  PRSAOTX  PRSAPPO  PRSAPPU  PRSARC  PRSARC01  PRSARC02  
PRSARC03  PRSARC04  PRSARC06  PRSARC09  PRSATD2  PRSATE1  PRSATE2  PRSATPD  
PRSATPG  PRSDPTYP  PRSLIB01  PRSNCAPE  PRSPAPU  PRSPEAA  PRSPEAU  PRSPEM  
PRSPESR  PRSPLVA  PRSPLVU  PRSPTM  PRSPUT3  PRSRAU1  PRSRAU11  PRSRL1  
PRSRL4  PRSRLL  ^PRST(458  ^PRST(459  

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.

External References

Name Field # of Occurrence
^%DTC PP+24
C^%DTC NX+9, PREP+29, NXTPP+21
^DIC PPRANGE+21, PPRANGE+29
ENALL^DIK XREF4YR+3
PP^PRSAPPU PPRANGE+42
$$PATCH^XPDUTL P35POST+2
MES^XPDUTL MSSG+4

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
Routine Call
  • DIC
  • Line Location:
    • PPRANGE+21
    • PPRANGE+29

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRST(458 - [#458] PP+28

Label References

Name Line Occurrences
$$NXTPP VALIDPP+26
$$PREP PPRANGE+18
$$VALIDPP PREP+13, NXTPP+11
DAT PP+17, NX+7, PREP+20, VALIDPP+10
MSSG P35POST+2, P35POST+3
NX PREP+26, NXTPP+18, PPRANGE+36, PPRANGE+37
PP PREP+30, NXTPP+22, PPRANGE+18, PPRANGE+43
XREF4YR P35POST+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DTP+1*, DTP+2!
BDT IC~, IC+12*, IC+13, IC+15
CURP PREP~, PREP+13, PREP+14, PREP+15, NXTPP~, NXTPP+11, NXTPP+14, NXTPP+15
D1 PP+18, PP+23, NX+10*, PREP+9~, PREP+29*, NXTPP+9~, NXTPP+21*, PPRANGE+15~, PPRANGE+18*, PPRANGE+36
, PPRANGE+37, PPRANGE+42*, PPRANGE+43*
DAY PP+25*, PREP+9~, PPRANGE+15~
DIC PPRANGE+15~, PPRANGE+19*
DIC("A" PPRANGE+20*, PPRANGE+28*
DIC("B" PPRANGE+18*, PPRANGE+28*
DIC(0 PPRANGE+20*
DIK XREF4YR+3~*
DIK(1 XREF4YR+3*
DT PPRANGE+18, IC+12
>> DTOUT PPRANGE+21, PPRANGE+29
>> DUOUT PPRANGE+21, PPRANGE+29
ENDDAY1 PPRANGE+15~, PPRANGE+37*, PPRANGE+38, PPRANGE+43
ENDPP PPRANGE~, PPRANGE+16*, PPRANGE+31*, PPRANGE+37, PPRANGE+45*
ENDPP4Y PPRANGE~, PPRANGE+43*, PPRANGE+45*
F XREF4YR~, XREF4YR+2, XREF4YR+3
FILE P35POST+3~*
FIRSTPP PREP+9~, PREP+21*, PREP+22
FLAG MSSG~, MSSG+2
FMT IC~, IC+10*, IC+16
FMY IC+8~, IC+15*, IC+16
FR PPRANGE+15~
FW IC~, IC+11*, IC+15
>> I PPRANGE+14*
INCR VALIDPP+4~, VALIDPP+11*
INPP PREP+9~, PREP+14*, PREP+17, NXTPP+9~, NXTPP+14*, NXTPP+17, VALIDPP+4~, VALIDPP+18*, VALIDPP+21, VALIDPP+22
, VALIDPP+26
INVALID VALIDPP+4~, VALIDPP+5*, VALIDPP+13, VALIDPP+16, VALIDPP+22, VALIDPP+26
INYR PREP+9~, PREP+15*, PREP+16*, PREP+17, NXTPP+9~, NXTPP+15*, NXTPP+16*, NXTPP+17, VALIDPP+4~, VALIDPP+12*
, VALIDPP+13, VALIDPP+14*, VALIDPP+15, VALIDPP+26
K PP+15~, PP+18*, PP+19, NX+5~, NX+8*, NX+9
MSSG MSSG+1~, MSSG+2*, MSSG+3*, MSSG+4
OK PPRANGE+11~, PPRANGE+12*, PPRANGE+14, PPRANGE+44*
OUT PPRANGE+11~, PPRANGE+12*, PPRANGE+14, PPRANGE+21*, PPRANGE+22, PPRANGE+29*, PPRANGE+30, PPRANGE+45
PP VALIDPP~, VALIDPP+12, VALIDPP+18
PP4Y PP+21*, PP+29*, PREP+31, NXTPP+23, PPRANGE+15~, PPRANGE+42, PPRANGE+43
PPE PP+21*, PP+27*, PP+28, PP+29, NX+8, NX+9, PREP+9~, PREP+17*, PREP+22, NXTPP+9~
, NXTPP+17*, PPRANGE+15~, PPRANGE+18, PPRANGE+36*, PPRANGE+37*
PPI PP+28*, PREP+9~, NXTPP+9~, PPRANGE+15~
RANGE PREP+9~, PREP+20*, PREP+21, PREP+22, VALIDPP+4~, VALIDPP+10*, VALIDPP+11
STARTPP PPRANGE~, PPRANGE+16*, PPRANGE+23*, PPRANGE+28, PPRANGE+36, PPRANGE+45*
STPP4Y PPRANGE~, PPRANGE+42*, PPRANGE+45*
STRTDAY1 PPRANGE+15~, PPRANGE+36*, PPRANGE+38, PPRANGE+42
>> TESTINPP VALIDPP+21*, VALIDPP+22
TESTYR VALIDPP+4~, VALIDPP+15*, VALIDPP+16
TO PPRANGE+15~
VALID VALIDPP+4~, VALIDPP+5*, VALIDPP+27
>> VALPPS VALIDPP+20*, VALIDPP+22
VALYRS VALIDPP+4~, VALIDPP+9*, VALIDPP+11*, VALIDPP+16
X PP+15~, PP+25, NX+10, DTP+1, PREP+29, NXTPP+21, PPRANGE+15~
X1 PP+15~, PP+23*, NX+5~, NX+9*, PREP+29*, NXTPP+9~, NXTPP+21*
X2 PP+15~, PP+19*, PP+21, NX+5~, NX+9*, PREP+29*, NXTPP+9~, NXTPP+21*
Y PP+15~, PP+17*, PP+18, PP+19, PP+25*, PP+27, NX+5~, NX+7*, NX+8, NX+9
DTP+1*, PPRANGE+15~, PPRANGE+21
Y(0 PPRANGE+23, PPRANGE+31
YY IC~, IC+9, IC+15

Marked Items

Name Field # of Occurrence
$T(DAT PP+17, NX+7, PREP+20, VALIDPP+10
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 |  Marked Items  | All