Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Global: ^PRST(459

Package: PAID

Global: ^PRST(459


Information

FileMan FileNo FileMan Filename Package
459 PAID PAYRUN DATA PAID

Description

Directly Accessed By Routines, Total: 25

Package Total Routines
PAID 22 EMPLOYEE    LABOR DISTRIBUTION    PRS8UT    PRSALD    PRSDCOMP    PRSDPROC    PRSDPTYP    PRSDSET
PRSDUTIL    PRSDV459    PRSDYTD    PRSPDFM    PRSPUT1    PRSREX1    PRSROSOR    PRSROT1
PRSXP105    PRSXP79    PRSXP83    PRSXP84    PRSXP89    ^PRST(459    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
PAID 4 PRSDPTYP    PRSDV459    PRSXP83    PRSXP84    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
PAID 1 PAID EMPLOYEE(#450)[#459.01(.01)]    

Fields, Total: 3

Field # Name Loc Type Details
.01 PAY PERIOD 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • LAST EDITED:  FEB 06, 1998
  • HELP-PROMPT:  Answer must be 5 characters in length.
  • DESCRIPTION:  
    This field contains the year-pay period in the form of YY-PP where YY represents the year and PP represents the pay period.
  • CROSS-REFERENCE:  459^B
    1)= S ^PRST(459,"B",$E(X,1,30),DA)=""
    2)= K ^PRST(459,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  459^AB^MUMPS
    1)= S ^PRST(459,"AB",$$IC^PRSAPPU($P(X,"-"),4,10,)_"-"_$P(X,"-",2),DA)=""
    2)= K ^PRST(459,"AB",$$IC^PRSAPPU($P(X,"-"),4,10,)_"-"_$P(X,"-",2),DA)
    This cross reference contains the 4 digit year associated with the .01 field's 2 digit year & pay period #. The cross reference allows chronological sorting accross centuries. This is in contrast to the "B" x-ref which
    contains a 2 digit year & does not sort chronologically accross new centuries.
    The function call IC^PRSAPPU() infers a four digit year from the 2 digit year of the .01 field. The inference is based upon the parameters passed to the function. Namely, a future pivot year (parameter #3 - # of years
    from base date) is used to determine the end of the 100 year range that are valid for selection of the matching 4 digit year. The number of years in parameter 4 are added to the base date (parameter 4 - default of today)
    to determine the end of this range. Parameter #2 is the format of the year returned (e.g. 4 returns a 4 digit year).
1 EMPLOYEE P;0 POINTER Multiple #459.01 459.01

  • DESCRIPTION:  
    This subfile contains all the accounting and some master record data on an employee for a particular pay period.
2 PAY DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 07, 1995
  • DESCRIPTION:  
    This is the official pay date for the pay period.
  • CROSS-REFERENCE:  459^AC
    1)= S ^PRST(459,"AC",$E(X,1,30),DA)=""
    2)= K ^PRST(459,"AC",$E(X,1,30),DA)

External References

Name Field # of Occurrence
^%DT 2+1
$$IC^PRSAPPU .01(XREF 2S), .01(XREF 2K)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRST(459 - [#459] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 2+1*
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1K)
X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 2+1*!, 2(XREF 1S), 2(XREF 1K)
>> Y 2+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All