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 |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^PRST(458.6

Package: PAID

Global: ^PRST(458.6


Information

FileMan FileNo FileMan Filename Package
458.6 OVERTIME WARNINGS PAID

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
PAID 5 ^PRST(458.6    PRSAOTTF    PRSAOTTR    PRSAOTTW    PRSAPEX    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
PAID 2 PRSAOTTF    PRSAOTTW    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
PAID 2 PAID EMPLOYEE(#450)[1]    TIME & ATTENDANCE RECORDS(#458)[2]    
Kernel 1 NEW PERSON(#200)[5]    

Fields, Total: 9

Field # Name Loc Type Details
.01 NUMBER 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 01, 1998
  • HELP-PROMPT:  Type a Number between 1 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    a sequential number to uniquely identify each warning.
  • DELETE TEST:  1,0)= I 1 D EN^DDIOL(" OT WARNING CAN'T BE DELETED!! ","","?0")
  • CROSS-REFERENCE:  458.6^B
    1)= S ^PRST(458.6,"B",$E(X,1,30),DA)=""
    2)= K ^PRST(458.6,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^458.6^4
    1)= X ^DD(458.6,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^PRST(458.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X="A" X ^DD(458.6,.01,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(458.6,4,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^PRST(458.6,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_":",2),$C(59),1)=""
    1.4)= S DIH=$S($D(^PRST(458.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=458.6,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= STATUS=""
    CREATE VALUE)= S X="A"
    DELETE VALUE)= NO EFFECT
    FIELD)= STATUS
    Trigger ensures that whenever an overtime warning is filed that it's status is set to active. The conditional expression ensures that the status is not triggered unless it is a new overtime warning entry and won't reset
    status if the trigger is reindexed.
1 EMPLOYEE 0;2 POINTER TO PAID EMPLOYEE FILE (#450)
************************REQUIRED FIELD************************
PAID EMPLOYEE(#450)

  • LAST EDITED:  AUG 06, 1998
  • DESCRIPTION:  
    The employee who has more calculated overtime in their 8B string than approved overtime in the OT/CT requests file.
2 PAY PERIOD 0;3 POINTER TO TIME & ATTENDANCE RECORDS FILE (#458)
************************REQUIRED FIELD************************
TIME & ATTENDANCE RECORDS(#458)

  • LAST EDITED:  AUG 13, 1998
  • DESCRIPTION:  
    The pay period in which the overtime warning occurs.
  • CROSS-REFERENCE:  458.6^C
    1)= S ^PRST(458.6,"C",$E(X,1,30),DA)=""
    2)= K ^PRST(458.6,"C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  458.6^D^MUMPS
    1)= S PRSZ=$P($G(^PRST(458,X,0)),"^"),^PRST(458.6,"D",$$IC^PRSAPPU($P(PRSZ,"-"),4,10,)_"-"_$P(PRSZ,"-",2),DA)="" K PRSZ
    2)= S PRSZ=$P($G(^PRST(458,X,0)),"^") K ^PRST(458.6,"D",$$IC^PRSAPPU($P(PRSZ,"-"),4,10,)_"-"_$P(PRSZ,"-",2),DA),PRSZ
    4 digit year cross ref on pay period in order to be year 2000 compliant.
3 WEEK 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>2)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 06, 1998
  • HELP-PROMPT:  Type a Number between 1 and 2, 0 Decimal Digits
  • DESCRIPTION:  
    Either the first (1) or second (2) week of the pay period in which the overtime warning occurs.
4 STATUS 0;5 SET
************************REQUIRED FIELD************************
  • 'A' FOR ACTIVE;
  • 'C' FOR CLEARED;

  • LAST EDITED:  SEP 24, 1998
  • DESCRIPTION:  
    When a supervisor approves a timecard with an overtime warning an entry is added to this file and it is assumed active.  Payroll may decide to clear the warning thereby changing the status to cleared.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the NUMBER field of the OVERTIME WARNINGS File
  • CROSS-REFERENCE:  458.6^AC^MUMPS
    1)= I $$STATCHNG^PRSAOTTF(DA,X) D CLRXREF^PRSAOTTF(DA)
    2)= Q
    This cross reference looks at the existing value of the "E" x-ref on this field (STATUS) to determine if the value of this field is being changed.  If the STATUS is being changed then the LAST UPDATED BY field is set to
    the current user via their DUZ.
  • CROSS-REFERENCE:  458.6^E
    1)= S ^PRST(458.6,"E",$E(X,1,30),DA)=""
    2)= K ^PRST(458.6,"E",$E(X,1,30),DA)
    This x-ref maintains an index of Active and Cleared Overtime Warnings.
5 LAST UPDATED BY 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 21, 1998
  • DESCRIPTION:  
    User in file 200 who changes the STATUS of the warning to CLEARED (C).
  • TECHNICAL DESCR:  
    triggered by status field being set to Cleared.
    WRITE AUTHORITY:  ^
6 DATE/TIME CLEARED 0;7 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 06, 1998
  • DESCRIPTION:  
    Date and time that the overtime warning is cleared.
7 8B STRING OVERTIME 0;8 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>98)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  AUG 06, 1998
  • HELP-PROMPT:  Type a Number between 0 and 98, 2 Decimal Digits
  • DESCRIPTION:  
    The total of all types of overtime in the employees 8B string for either week 1 or 2.
8 APPROVED OVERTIME 0;9 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>98)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  AUG 06, 1998
  • HELP-PROMPT:  Type a Number between 0 and 98, 2 Decimal Digits
  • DESCRIPTION:  
    The total amount of approved overtime at the time this warning is filed.

External References

Name Field # of Occurrence
^%DT 6+1
EN^DDIOL .01DEL1+1
^DICR .01(XREF 2n1.4)
$$STATCHNG^PRSAOTTF 4(XREF 1S)
CLRXREF^PRSAOTTF 4(XREF 1S)
$$IC^PRSAPPU 2(XREF 2S), 2(XREF 2K)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( .01(XREF 2n1.4)
^DD(458.6 .01(XREF 2S), .01(XREF 2n1.3)
^PRST(458 - [#458] 2(XREF 2S), 2(XREF 2K)
^PRST(458.6 - [#458.6] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 4(XREF 2S)
4(XREF 2K)

Naked Globals

Name Field # of Occurrence
^(0 .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 6+1*
>> D0 .01(XREF 2S), .01(XREF 2n1.3)
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2n1.3), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 4(XREF 1S), 4(XREF 2S), 4(XREF 2K)
>> DIG .01(XREF 2n1.4)
>> DIH .01(XREF 2n1.4)
>> DIU .01(XREF 2S)
DIV .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4)
DIV(0 .01(XREF 2n1.3), .01(XREF 2n1.4)
PRSZ 2(XREF 2S), 2(XREF 2K)
U .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4)
X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K)
, 3+1!, 4(XREF 1S), 4(XREF 2S), 4(XREF 2K), 6+1*!, 7+1!, 8+1!
Y .01(XREF 2S), 6+1
Y(0 .01(XREF 2n1.3)
Y(1 .01(XREF 2S), .01(XREF 2n1.3)
Y(2 .01(XREF 2n1.3)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All