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

Package: PAID

TIME & ATTENDANCE RECORDS(#458)-->458.01

Sub-Field: 458.01


Information

Parent File Name Number Package
TIME & ATTENDANCE RECORDS(#458) EMPLOYEE 458.01 PAID

Details

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

  • INPUT TRANSFORM:  I $D(X) S DINUM=X
  • LAST EDITED:  FEB 21, 1992
  • DESCRIPTION:  
    A pointer to the PAID EMPLOYEE file (#450) which identifies the name of the employee.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1 STATUS 0;2 SET
  • 'P' FOR RELEASED TO PAYROLL;
  • 'X' FOR XMITTED;
  • 'T' FOR TIMEKEEPER;

  • LAST EDITED:  JAN 19, 1993
  • DESCRIPTION:  
    The processing status of this employee's time card.
2 APP. SUPERVISOR 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 12, 1992
  • DESCRIPTION:  
    A pointer to the NEW PERSON file (#200) which identifies the name of the supervisor who approves the employee's time card.
3 APP. DATE/TIME 0;4 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 27, 1992
  • DESCRIPTION:  
    The date and time the supervisor approved the employee's time card.
4 ENTITLEMENT 0;5 POINTER TO PAY ENTITLEMENT FILE (#457.5) PAY ENTITLEMENT(#457.5)

  • LAST EDITED:  NOV 27, 1992
  • DESCRIPTION:  
    This is a pointer to the Entitlement File and represents the Entitlement at the time the initial time decomposition is done. It is used, if necessary, for time decomposition of prior pay period adjustments.
5 CUR. PP COMPRESSED INDICATOR 0;6 SET
  • 'C' FOR Compressed;
  • 'F' FOR Flexitime;
  • '0' FOR None;

  • LAST EDITED:  MAY 30, 1995
  • DESCRIPTION:  
    This field contains the value for the Compressed/Flex indicator for this Pay Period
6 NEXT PP COMPRESSED INDICATOR 0;7 SET
  • 'C' FOR Compressed;
  • 'F' FOR Flexitime;
  • '0' FOR None;

  • LAST EDITED:  MAY 30, 1995
  • DESCRIPTION:  
    This field contains the value for the Compressed/Flex indicator to be moved to the next pay period when opened.
7 TELEWORK INDICATOR 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • OUTPUT TRANSFORM:  S SUB454="TW" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454
  • LAST EDITED:  MAY 14, 2012
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This is the single character code that represents the type of eligibility of the employee for telework. The possible codes are stored and maintained in the PAID CODE FILES file (#454) in the TELEWORK INDICATOR multiple.
  • TECHNICAL DESCR:  The employee's current telework indicator (from File 450) is stored in this field upon certification of the employee's timecard. This provides a historical reference for what the employee's telework indicator was during
    any given pay period.
10 DAY # D;0 Multiple #458.02 458.02

  • DESCRIPTION:  
    Contains all the time card data for each day of the pay period for the employee.
20 DAY 1 VCS/FEE AMOUNT 2;1 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
  • OUTPUT TRANSFORM:  S Y=$J(Y,7,2)
  • LAST EDITED:  MAR 25, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    VCS or Fee Basis Appointee amount, in dollars and cents, for the first day of the pay period.
21 DAY 2 VCS/FEE AMOUNT 2;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
  • OUTPUT TRANSFORM:  S Y=$J(Y,7,2)
  • LAST EDITED:  MAR 25, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    VCS or Fee Basis Appointee amount, in dollars and cents, for the second day of the pay period.
22 DAY 3 VCS/FEE AMOUNT 2;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
  • OUTPUT TRANSFORM:  S Y=$J(Y,7,2)
  • LAST EDITED:  MAR 25, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    VCS or Fee Basis Appointee amount, in dollars and cents, for the third day of the pay period.
23 DAY 4 VCS/FEE AMOUNT 2;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
  • OUTPUT TRANSFORM:  S Y=$J(Y,7,2)
  • LAST EDITED:  MAR 25, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    VCS or Fee Basis Appointee amount, in dollars and cents, for the fourth day of the pay period.
24 DAY 5 VCS/FEE AMOUNT 2;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
  • OUTPUT TRANSFORM:  S Y=$J(Y,7,2)
  • LAST EDITED:  MAR 25, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    VCS or Fee Basis Appointee amount, in dollars and cents, for the fifth day of the pay period.
25 DAY 6 VCS/FEE AMOUNT 2;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
  • OUTPUT TRANSFORM:  S Y=$J(Y,7,2)
  • LAST EDITED:  MAR 25, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    VCS or Fee Basis Appointee amount, in dollars and cents, for the sixth day of the pay period.
26 DAY 7 VCS/FEE AMOUNT 2;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
  • OUTPUT TRANSFORM:  S Y=$J(Y,7,2)
  • LAST EDITED:  MAR 25, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    VCS or Fee Basis Appointee amount, in dollars and cents, for the seventh day of the pay period.
27 DAY 8 VCS/FEE AMOUNT 2;8 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
  • OUTPUT TRANSFORM:  S Y=$J(Y,7,2)
  • LAST EDITED:  MAR 25, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    VCS or Fee Basis Appointee amount, in dollars and cents, for the eighth day of the pay period.
28 DAY 9 VCS/FEE AMOUNT 2;9 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
  • OUTPUT TRANSFORM:  S Y=$J(Y,7,2)
  • LAST EDITED:  MAR 25, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    VCS or Fee Basis Appointee amount, in dollars and cents, for the ninth day of the pay period.
29 DAY 10 VCS/FEE AMOUNT 2;10 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
  • OUTPUT TRANSFORM:  S Y=$J(Y,7,2)
  • LAST EDITED:  MAR 25, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    VCS or Fee Basis Appointee amount, in dollars and cents, for the tenth day of the pay period.
30 DAY 11 VCS/FEE AMOUNT 2;11 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
  • OUTPUT TRANSFORM:  S Y=$J(Y,7,2)
  • LAST EDITED:  MAR 25, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    VCS or Fee Basis Appointee amount, in dollars and cents, for the eleventh day of the pay period.
31 DAY 12 VCS/FEE AMOUNT 2;12 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
  • OUTPUT TRANSFORM:  S Y=$J(Y,7,2)
  • LAST EDITED:  MAR 25, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    VCS or Fee Basis Appointee amount, in dollars and cents, for the twelfth day of the pay period.
32 DAY 13 VCS/FEE AMOUNT 2;13 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
  • OUTPUT TRANSFORM:  S Y=$J(Y,7,2)
  • LAST EDITED:  MAR 25, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    VCS or Fee Basis Appointee amount, in dollars and cents, for the thirteenth day of the pay period.
33 DAY 14 VCS/FEE AMOUNT 2;14 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
  • OUTPUT TRANSFORM:  S Y=$J(Y,7,2)
  • LAST EDITED:  MAR 25, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    VCS or Fee Basis Appointee amount, in dollars and cents, for the fourteenth day of the pay period.
34 VCS/FEE POSTING PERSON 2;15 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  NOV 29, 1995
  • DESCRIPTION:  
    A pointer to the NEW PERSON file (#200) which identifies the person posting the VCS/Fee amounts for this employee.
35 LAST POSTING DATE/TIME 2;16 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 26, 1992
  • DESCRIPTION:  
    The most recent date and time the VCS/Fee amounts were posted for this employee.
36 VCS/FEE APPROVED BY 2;17 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 29, 1995
  • DESCRIPTION:  
    A pointer to the NEW PERSON file (#200) which identifies the person who approves the accuracy of the VCS/Fee amounts for this employee.
37 VCS/FEE APPROVED DATE/TIME 2;18 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 29, 1995
  • DESCRIPTION:  
    The date and time the accuracy of the VCS/Fee amounts for this employee were approved.
40 NEW T&L 3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X I $D(X) S DIC="^PRST(455.5,",DIC(0)="QEM" D ^DIC K DIC S X=$S(Y>0:$P(^PRST(455.5,+Y,0),U,1),1:"") K:$L(X)'=3 X
  • LAST EDITED:  MAR 31, 1992
  • DESCRIPTION:  
    This field will be coded only to change the employee's time and leave unit.
  • EXECUTABLE HELP:  N D,X,DIC,DO S DIC="^PRST(455.5,",DIC(0)="Q",D="B" D DQ^DICQ Q
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
41 LUMP SUM UNITS 3;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.75)!(X<0)!(X?.E1"."3N.N) X I $D(X) S Y=$P(X,".",2) I Y,Y'=5,Y'=25,Y'=75 K X
  • LAST EDITED:  FEB 17, 1993
  • HELP-PROMPT:  Type a Number between 0 and 999.75, 2 Decimal Digits (.25, .5, or .75 only)
  • DESCRIPTION:  
    The number of hours or days of annual leave a day shift employee has when separating.
42 LUMP SUM UNITS 2 3;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.75)!(X<0)!(X?.E1"."3N.N) X I $D(X) S Y=$P(X,".",2) I Y,Y'=5,Y'=25,Y'=75 K X
  • LAST EDITED:  FEB 17, 1993
  • HELP-PROMPT:  Type a Number between 0 and 999.75, 2 Decimal Digits (.25, .5, or .75 only)
  • DESCRIPTION:  
    The number of hours or days of annual leave a second shift employee has when separating.
43 LUMP SUM UNITS 3 3;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.75)!(X<0)!(X?.E1"."3N.N) X I $D(X) S Y=$P(X,".",2) I Y,Y'=5,Y'=25,Y'=75 K X
  • LAST EDITED:  FEB 17, 1993
  • HELP-PROMPT:  Type a Number between 0 and 999.75, 2 Decimal Digits (.25, .5, or .75 only)
  • DESCRIPTION:  
    The number of hours or days of annual leave a third shift employee has when separating.
44 LUMP SUM EXP. DATE 3;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 31, 1992
  • DESCRIPTION:  
    The date the separating employee's annual leave will expire.
45 PAYMENT RECORD 3;6 SET

  • LAST EDITED:  MAR 31, 1992
  • DESCRIPTION:  
    Indicates Payroll has requested a current "Record of Salary Payments" for this employee.
46 OPT. W/H TAX 3;7 SET

  • LAST EDITED:  MAR 31, 1992
  • DESCRIPTION:  
    Indicates the employee elects the optional method of withholding Federal income tax from the lump-sum payment.
47 FOREIGN COLA 3;8 SET

  • LAST EDITED:  MAR 31, 1992
  • DESCRIPTION:  
    Indicates the exclusion of a foreign cost-of-living-allowance from the employee's lump-sum payment.
48 DAY NUMBER 3;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X?3N) X I $D(X),X<1!(X>366) K X
  • LAST EDITED:  SEP 18, 1992
  • HELP-PROMPT:  Answer must be 3 digits in length and between 001 and 366.
  • DESCRIPTION:  
    Indicates the day number of the last day of duty or date of effectiveness of the transaction for this employee.
50 FEE TOTAL HOURS 2;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>224)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 28, 1995
  • HELP-PROMPT:  Type a Number between 0 and 224, 0 Decimal Digits
  • DESCRIPTION:  
    Total hours for Fee Basis Appointee during the Pay Period.
51 FEE TOTAL DAYS 2;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>14)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 28, 1995
  • HELP-PROMPT:  Type a Number between 0 and 14, 0 Decimal Digits
  • DESCRIPTION:  
    Total number of Days worked by Fee Basis Appointee.
52 FEE TOTAL PROCEDURES 2;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 28, 1995
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This is total number of procedures by Fee Basis Appointee.
60 ENVIR. DIFF. WK 1 # 1 4;1 POINTER TO ENVIRONMENTAL DIFFERENTIALS FILE (#457.6) ENVIRONMENTAL DIFFERENTIALS(#457.6)

  • LAST EDITED:  JUL 17, 1992
  • DESCRIPTION:  
    A pointer to the ENVIRONMENTAL DIFFERENTIALS file (#457.6) which identifies the first type of environmental hazard the employee is being exposed to in the first week of the pay period.
61 ENVIR. DIFF. WK 1 # 1 HRS 4;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>160)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  JUL 17, 1992
  • HELP-PROMPT:  Type a Number between 0 and 160, 2 Decimal Digits
  • DESCRIPTION:  
    The number of hours for which environmental differential pay will be paid for the first type of exposure for the first week of the pay period.
62 ENVIR. DIFF. WK 1 # 2 4;3 POINTER TO ENVIRONMENTAL DIFFERENTIALS FILE (#457.6) ENVIRONMENTAL DIFFERENTIALS(#457.6)

  • LAST EDITED:  JUL 17, 1992
  • DESCRIPTION:  
    A pointer to the ENVIRONMENTAL DIFFERENTIALS file (#457.6) which identifies the second type of environmental hazard the employee is being exposed to in the first week of the pay period.
63 ENVIR. DIFF. WK 1 # 2 HRS 4;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>160)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  JUL 17, 1992
  • HELP-PROMPT:  Type a Number between 0 and 160, 2 Decimal Digits
  • DESCRIPTION:  
    The number of hours for which environmental differential pay will be paid for the second type of exposure for the first week of the pay period.
64 ENVIR. DIFF. WK 1 # 3 4;5 POINTER TO ENVIRONMENTAL DIFFERENTIALS FILE (#457.6) ENVIRONMENTAL DIFFERENTIALS(#457.6)

  • LAST EDITED:  JUL 17, 1992
  • DESCRIPTION:  
    A pointer to the ENVIRONMENTAL DIFFERENTIALS file (#457.6) which identifies the third type of environmental hazard the employee is being exposed to in the first week of the pay period.
65 ENVIR. DIFF. WK 1 # 3 HRS 4;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>160)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  JUL 17, 1992
  • HELP-PROMPT:  Type a Number between 0 and 160, 2 Decimal Digits
  • DESCRIPTION:  
    The number of hours for which environmental differential pay will be paid for the third type of exposure for the first week of the pay period.
66 ENVIR. DIFF. WK 2 # 1 4;7 POINTER TO ENVIRONMENTAL DIFFERENTIALS FILE (#457.6) ENVIRONMENTAL DIFFERENTIALS(#457.6)

  • LAST EDITED:  JUL 17, 1992
  • DESCRIPTION:  
    A pointer to the ENVIRONMENTAL DIFFERENTIALS file (#457.6) which identifies the first type of environmental hazard the employee is being exposed to in the second week of the pay period.
67 ENVIR. DIFF. WK 2 # 1 HRS 4;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>160)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  JUL 17, 1992
  • HELP-PROMPT:  Type a Number between 0 and 160, 2 Decimal Digits
  • DESCRIPTION:  
    The number of hours for which environmental differential pay will be paid for the first type of exposure for the second week of the pay period.
68 ENVIR. DIFF. WK 2 # 2 4;9 POINTER TO ENVIRONMENTAL DIFFERENTIALS FILE (#457.6) ENVIRONMENTAL DIFFERENTIALS(#457.6)

  • LAST EDITED:  JUL 17, 1992
  • DESCRIPTION:  
    A pointer to the ENVIRONMENTAL DIFFERENTIALS file (#457.6) which identifies the second type of environmental hazard the employee is being exposed to in the second week of the pay period.
69 ENVIR. DIFF. WK 2 # 2 HRS 4;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>160)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  JUL 17, 1992
  • HELP-PROMPT:  Type a Number between 0 and 160, 2 Decimal Digits
  • DESCRIPTION:  
    The number of hours for which environmental differential pay will be paid for the second type of exposure for the second week of the pay period.
70 ENVIR. DIFF. WK 2 # 3 4;11 POINTER TO ENVIRONMENTAL DIFFERENTIALS FILE (#457.6) ENVIRONMENTAL DIFFERENTIALS(#457.6)

  • LAST EDITED:  JUL 17, 1992
  • DESCRIPTION:  
    A pointer to the ENVIRONMENTAL DIFFERENTIALS file (#457.6) which identifies the third type of environmental hazard the employee is being exposed to in the second week of the pay period.
71 ENVIR. DIFF. WK 2 # 3 HRS 4;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>160)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  JUL 17, 1992
  • HELP-PROMPT:  Type a Number between 0 and 160, 2 Decimal Digits
  • DESCRIPTION:  
    The number of hours for which environmental differential pay will be paid for the third type of exposure for the second week of the pay period.
101 AUDIT RECORD X;0 Multiple #458.1101 458.1101

  • DESCRIPTION:  
    A log of changes made to the employee's time card.
102 8B RECORD 5;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  AUG 27, 1992
  • HELP-PROMPT:  Answer must be 1-245 characters in length.
  • DESCRIPTION:  
    The character string that makes up the 8B record that is transmitted to the Austin Automation Center.
105 LD AUDIT LDAUD;0 Multiple #458.1105 458.1105
201 TMP 1 T;1 POINTER TO TOUR OF DUTY FILE (#457.1) TOUR OF DUTY(#457.1)

  • INPUT TRANSFORM:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 13, 1992
  • DESCRIPTION:  
    A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store and edit the employee's tour for the first day of the pay period.
  • SCREEN:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))"
  • EXPLANATION:  Allow only authorized tours for T&L
202 TMP 2 T;2 POINTER TO TOUR OF DUTY FILE (#457.1) TOUR OF DUTY(#457.1)

  • INPUT TRANSFORM:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 13, 1992
  • DESCRIPTION:  
    A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store and edit the employee's tour for the second day of the pay period.
  • SCREEN:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))"
  • EXPLANATION:  Allow only authorized tours for T&L
203 TMP 3 T;3 POINTER TO TOUR OF DUTY FILE (#457.1) TOUR OF DUTY(#457.1)

  • INPUT TRANSFORM:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 13, 1992
  • DESCRIPTION:  
    A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store and edit the employee's tour for the third day of the pay period.
  • SCREEN:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))"
  • EXPLANATION:  Allow only authorized tours for T&L
204 TMP 4 T;4 POINTER TO TOUR OF DUTY FILE (#457.1) TOUR OF DUTY(#457.1)

  • INPUT TRANSFORM:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 13, 1992
  • DESCRIPTION:  
    A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store and edit the employee's tour for the fourth day of the pay period.
  • SCREEN:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))"
  • EXPLANATION:  Allow only authorized tours for T&L
205 TMP 5 T;5 POINTER TO TOUR OF DUTY FILE (#457.1) TOUR OF DUTY(#457.1)

  • INPUT TRANSFORM:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 13, 1992
  • DESCRIPTION:  
    A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store and edit the employee's tour for the fifth day of the pay period.
  • SCREEN:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))"
  • EXPLANATION:  Allow only authorized tours for T&L
206 TMP 6 T;6 POINTER TO TOUR OF DUTY FILE (#457.1) TOUR OF DUTY(#457.1)

  • INPUT TRANSFORM:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 13, 1992
  • DESCRIPTION:  
    A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store and edit the employee's tour for the sixth day of the pay period.
  • SCREEN:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))"
  • EXPLANATION:  Allow only authorized tours for T&L
207 TMP 7 T;7 POINTER TO TOUR OF DUTY FILE (#457.1) TOUR OF DUTY(#457.1)

  • INPUT TRANSFORM:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 13, 1992
  • DESCRIPTION:  
    A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store and edit the employee's tour for the seventh day of the pay period.
  • SCREEN:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))"
  • EXPLANATION:  Allow only authorized tours for T&L
208 TMP 8 T;8 POINTER TO TOUR OF DUTY FILE (#457.1) TOUR OF DUTY(#457.1)

  • INPUT TRANSFORM:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 13, 1992
  • DESCRIPTION:  
    A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store and edit the employee's tour for the eighth day of the pay period.
  • SCREEN:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))"
  • EXPLANATION:  Allow only authorized tours for T&L
209 TMP 9 T;9 POINTER TO TOUR OF DUTY FILE (#457.1) TOUR OF DUTY(#457.1)

  • INPUT TRANSFORM:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 13, 1992
  • DESCRIPTION:  
    A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store and edit the employee's tour for the ninth day of the pay period.
  • SCREEN:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))"
  • EXPLANATION:  Allow only authorized tours for T&L
210 TMP 10 T;10 POINTER TO TOUR OF DUTY FILE (#457.1) TOUR OF DUTY(#457.1)

  • INPUT TRANSFORM:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 13, 1992
  • DESCRIPTION:  
    A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store and edit the employee's tour for the tenth day of the pay period.
  • SCREEN:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))"
  • EXPLANATION:  Allow only authorized tours for T&L
211 TMP 11 T;11 POINTER TO TOUR OF DUTY FILE (#457.1) TOUR OF DUTY(#457.1)

  • INPUT TRANSFORM:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 13, 1992
  • DESCRIPTION:  
    A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store and edit the employee's tour for the eleventh day of the pay period.
  • SCREEN:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))"
  • EXPLANATION:  Allow only authorized tours for T&L
212 TMP 12 T;12 POINTER TO TOUR OF DUTY FILE (#457.1) TOUR OF DUTY(#457.1)

  • INPUT TRANSFORM:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 13, 1992
  • DESCRIPTION:  
    A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store and edit the employee's tour for the twelfth day of the pay period.
  • SCREEN:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))"
  • EXPLANATION:  Allow only authorized tours for T&L
213 TMP 13 T;13 POINTER TO TOUR OF DUTY FILE (#457.1) TOUR OF DUTY(#457.1)

  • INPUT TRANSFORM:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 13, 1992
  • DESCRIPTION:  
    A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store and edit the employee's tour for the thirteenth day of the pay period.
  • SCREEN:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))"
  • EXPLANATION:  Allow only authorized tours for T&L
214 TMP 14 T;14 POINTER TO TOUR OF DUTY FILE (#457.1) TOUR OF DUTY(#457.1)

  • INPUT TRANSFORM:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 13, 1992
  • DESCRIPTION:  
    A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store and edit the employee's tour for the fourteenth day of the pay period.
  • SCREEN:  S DIC("S")="I "_$S($E(ENT,1)="D":"Y<3",1:"Y>5!(Y=1)")_",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""T"",""B"",WTL)))"
  • EXPLANATION:  Allow only authorized tours for T&L
Info |  Details