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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^ATAEMP

Package: Time And Attendance

Global: ^ATAEMP


Information

FileMan FileNo FileMan Filename Package
8004100 EMPLOYEE Time And Attendance

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
Commitment Register 3 ACR999    ACRFPAYP    ACRFSS61    
IHS Designated Provider 1 EMPLOYEE RECORD    
Time And Attendance 1 ^ATAEMP    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Commitment Register 1 ACRFEA3    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Time And Attendance 1 T & A(#8004101)[#8004101.01(.01)]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 PERSON(#16)[.01]    
Time And Attendance 1 TIMEKEEPER(#8004102)[51]    

Fields, Total: 15

Field # Name Loc Type Details
.01 NAME 0;1 POINTER TO PERSON FILE (#16)
************************REQUIRED FIELD************************
PERSON(#16)

  • INPUT TRANSFORM:  S:$D(X) DINUM=X Q
  • LAST EDITED:  APR 02, 1988
    SOURCE OF DATA:   TIME CARD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  8004100^B
    1)= S ^ATAEMP("B",$E(X,1,30),DA)=""
    2)= K ^ATAEMP("B",$E(X,1,30),DA)
.02 TERMINATION DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  APR 04, 1988
  • HELP-PROMPT:  Enter the Date of termination for this employee between 1980 and today
  • NOTES:  TRIGGERED by the SEPARATION field of the EMPLOYEE RECORD sub-field of the T & A File
40 SSN COMPUTED

  • MUMPS CODE:  X ^DD(8004100,40,9.2) S Y(8004100,40,101)=$S($D(^DIC(16,D0,0)):^(0),1:"") S X=$P(Y(8004100,40,101),U,9) S D0=Y(8004100,40,80)
    9.2 = S Y(8004100,40,80)=$S($D(D0):D0,1:""),Y(8004100,40,1)=$S($D(^ATAEMP(D0,0)):^(0),1:""),D0=$P(Y(8004100,40,1),U,1) S:'$D(^DIC(16,+D0,0)) D0=-1
  • ALGORITHM:  NAME:SSN
51 TIMEKEEPER NUMBER 0;5 POINTER TO TIMEKEEPER FILE (#8004102)
************************REQUIRED FIELD************************
TIMEKEEPER(#8004102)

  • LAST EDITED:  APR 02, 1986
61 TOUR OF BASE HOURS 0;6 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?.E1"."1"6")!(X?.E1"."1"8")!(X?.E1"."1"9")!(X?.E1"."2N.N) X
  • LAST EDITED:  MAR 22, 1988
  • HELP-PROMPT:  Type a Number between 0 and 80, 1 Decimal Digit
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
61.5 TOUR HOURS COMP COMPUTED

  • MUMPS CODE:  S Y(8004100,61.5,1)=$S($D(^ATAEMP(D0,0)):^(0),1:"") S X=$P(Y(8004100,61.5,1),U,6)+.001 S X=$J(X,0,1)
  • ALGORITHM:  TOUR OF BASE HOURS+.001 (ALWAYS 1 DECIMAL DIGITS)
71 POSITION NUMBER 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • HELP-PROMPT:  ANSWER MUST BE 4 CHARACTERS IN LENGTH
75 COST FIELDS 1;0 DATE Multiple #8004100.01 8004100.01
81 HOURLY COST 0;8 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>99.99)!(X<1) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 1 AND 99.99
85 PAY PLAN 0;9 SET
************************REQUIRED FIELD************************
  • 'GS' FOR GENERAL SCHEDULE;
  • 'GM' FOR GENERAL MERIT;
  • 'AD' FOR STUDENT ASST. EXTERN;
  • 'WG' FOR WAGE GRADE;
  • 'WL' FOR WAGE LEADER;
  • 'WS' FOR WAGE SUPERVISOR;
  • 'WB' FOR WAGE BOARD;
  • 'WD' FOR WAGE DEFINITION;
  • 'ES' FOR EXECUTIVE SERVICE;

  • LAST EDITED:  JUL 01, 1992
91 GRADE 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>18)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 18
101 STEP 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>14)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 21, 1985
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 14
111 EMPLOYMENT STATUS 0;12 SET
  • 'PFT' FOR PERM FULL TIME;
  • 'PPT' FOR PERM PART TIME;
  • 'PIT' FOR PERM INTERM;
  • 'TFT' FOR TEMP FULL TIME;
  • 'TPT' FOR TEMP PART TIME;
  • 'TI' FOR TEMP INTERM;

  • LAST EDITED:  SEP 08, 1986
121 JOB TITLE 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
201 COST CENTER 21;0 DATE Multiple #8004100.201 8004100.201

External References

Name Field # of Occurrence
^%DT .02+1
Y^DIQ ID51+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ATAEMP - [#8004100] 40OF9.2+1, 61.5+1
^ATAEMP("B" .01(XREF 1S), .01(XREF 1K)
^ATATKP - [#8004102] ID51+1
^DD(8004100 40+1
^DD(8004102 ID51+1
^DIC(16 - [#16] 40+1, 40OF9.2+1

Naked Globals

Name Field # of Occurrence
^(0 ID51+1, ID61+1, 40+1, 40OF9.2+1, 61.5+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .02+1*
%I ID51+1*!
>> C ID51+1*
>> D0 40+1*, 40OF9.2+1*, 61.5+1
>> DA .01(XREF 1S), .01(XREF 1K)
>> DIC ID51+1
>> DINUM .01+1*
DT .02+1
U ID51+1, ID61+1, 40+1, 40OF9.2+1, 61.5+1
X .01+1, .01(XREF 1S), .01(XREF 1K), .02+1*!, 40+1*, 61+1!, 61.5+1*, 71+1!, 81+1*!, 91+1!
, 101+1!, 121+1!
>> Y ID51+1*, .02+1
>> Y(8004100 40+1*, 40OF9.2+1*, 61.5+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All