Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 8004101.01

Package: Time And Attendance

T & A(#8004101)-->8004101.01

Sub-Field: 8004101.01


Information

Parent File Name Number Package
T & A(#8004101) EMPLOYEE RECORD 8004101.01 Time And Attendance

Details

Field # Name Loc Type Details
.01 EMPLOYEE NAME 0;1 POINTER TO EMPLOYEE FILE (#8004100) EMPLOYEE(#8004100)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
  • LAST EDITED:  MAY 18, 1988
  • HELP-PROMPT:  YOU MAY ENTER EXISTING EMPLOYEE NAMES ONLY. NEW EMPLOYEES MUST BE ADDED THRU THE "ADD AN EMPLOYEE" MENU OPTION.
  • SCREEN:  S DIC("S")="I '$P(^(0),U,2)"
  • EXPLANATION:  TERMINATED EMPLOYEES ARE SCREENED OUT
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
5 SEPARATION 0;2 SET
  • 'R' FOR RESIGNING;

  • LAST EDITED:  APR 18, 1988
  • HELP-PROMPT:  ENTER 'R' IF THIS EMPLOYEE IS RESIGNING OR HIT 'RETURN' KEY
  • CROSS-REFERENCE:  ^^TRIGGER^8004100^.02
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(8004101.01,5,1,1,1.2) S X=DIV N %I,%H,% D NOW^%DTC X ^DD(8004101.01,5,1,1,1.4)
    1.2)= X ^DD(8004101.01,5,1,1,89.2) K DIC S DIC="^ATAEMP(",DIC(0)="NMF" D ^DIC S (D,D0,DIV(0))=+Y S Y(101)=$S($D(^ATAEMP(D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y
    1.4)= S DIH=$S($D(^ATAEMP(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=8004100,DIG=.02 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(8004101.01,5,1,1,2.2) S X="" X ^DD(8004101.01,5,1,1,2.4)
    2.2)= X ^DD(8004101.01,5,1,1,89.2) K DIC S DIC="^ATAEMP(",DIC(0)="NMF" D ^DIC S (D,D0,DIV(0))=+Y S Y(101)=$S($D(^ATAEMP(D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y
    2.4)= S DIH=$S($D(^ATAEMP(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=8004100,DIG=.02 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    89.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ATAPP(D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,1),X=X S X=X
    CREATE VALUE)= TODAY
    DELETE VALUE)= @
    DIC)= LOOKUP
    FIELD)= EMPLOYEE NAME:EMPLOYEE:TERMINATION DATE
8 CARD CODE 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X?1"X"!(X?1"C")) X
  • LAST EDITED:  NOV 05, 1990
  • HELP-PROMPT:  Answer must be "X" for new employee (X after name on timecard) or "C" for consultant (blue timecard), or blank.
9 REGULAR HOURS 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>80)!(X<0)!(X?.E1"."1"1")!(X?.E1"."1"3")!(X?.E1"."1"4")!(X?1"."1"6")!(X?.E1"."1"8")!(X?.E1"."1"9")!(X?.E1"."2N.N) X
  • LAST EDITED:  MAR 22, 1988
  • HELP-PROMPT:  Enter the employee's regular hours for the PP, 0 to 80 hours, acceptable hourly fractions are .2, .5, or .7
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
11 OTHER HOURS 1;0 POINTER Multiple #8004101.02 8004101.02
Info |  Details |  All