STANDARD DATA DICTIONARY #457.4 -- TIME REMARKS FILE 9/29/25 PAGE 1
STORED IN ^PRST(457.4, (15 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 4.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains fixed entries to indicate special conditions related to a posted time segment.
This file should not be altered except as instructed.
IDENTIFIED BY:
"WRITE": W " ",$P(^(0),U,2)
POINTED TO BY: WRK SPECIAL CODE-1 field (#44) of the DAY # sub-field (#458.02) of the EMPLOYEE sub-field (#458.01) of the TIME &
ATTENDANCE RECORDS File (#458)
WRK SPECIAL CODE-2 field (#48) of the DAY # sub-field (#458.02) of the EMPLOYEE sub-field (#458.01) of the TIME &
ATTENDANCE RECORDS File (#458)
WRK SPECIAL CODE-3 field (#52) of the DAY # sub-field (#458.02) of the EMPLOYEE sub-field (#458.01) of the TIME &
ATTENDANCE RECORDS File (#458)
WRK SPECIAL CODE-4 field (#56) of the DAY # sub-field (#458.02) of the EMPLOYEE sub-field (#458.01) of the TIME &
ATTENDANCE RECORDS File (#458)
WRK SPECIAL CODE-5 field (#60) of the DAY # sub-field (#458.02) of the EMPLOYEE sub-field (#458.01) of the TIME &
ATTENDANCE RECORDS File (#458)
WRK SPECIAL CODE-6 field (#64) of the DAY # sub-field (#458.02) of the EMPLOYEE sub-field (#458.01) of the TIME &
ATTENDANCE RECORDS File (#458)
WRK SPECIAL CODE-7 field (#68) of the DAY # sub-field (#458.02) of the EMPLOYEE sub-field (#458.01) of the TIME &
ATTENDANCE RECORDS File (#458)
ESR SPECIAL CODE-1 field (#113) of the DAY # sub-field (#458.02) of the EMPLOYEE sub-field (#458.01) of the TIME &
ATTENDANCE RECORDS File (#458)
ESR SPECIAL CODE-2 field (#118) of the DAY # sub-field (#458.02) of the EMPLOYEE sub-field (#458.01) of the TIME &
ATTENDANCE RECORDS File (#458)
ESR SPECIAL CODE-3 field (#123) of the DAY # sub-field (#458.02) of the EMPLOYEE sub-field (#458.01) of the TIME &
ATTENDANCE RECORDS File (#458)
ESR SPECIAL CODE-4 field (#128) of the DAY # sub-field (#458.02) of the EMPLOYEE sub-field (#458.01) of the TIME &
ATTENDANCE RECORDS File (#458)
ESR SPECIAL CODE-5 field (#133) of the DAY # sub-field (#458.02) of the EMPLOYEE sub-field (#458.01) of the TIME &
ATTENDANCE RECORDS File (#458)
ESR SPECIAL CODE-6 field (#138) of the DAY # sub-field (#458.02) of the EMPLOYEE sub-field (#458.01) of the TIME &
ATTENDANCE RECORDS File (#458)
ESR SPECIAL CODE-7 field (#143) of the DAY # sub-field (#458.02) of the EMPLOYEE sub-field (#458.01) of the TIME &
ATTENDANCE RECORDS File (#458)
CROSS
REFERENCED BY: DESCRIPTION(B), CODE(C), UPPERCASE NAME(D)
457.4,.01 DESCRIPTION 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<1) X
LAST EDITED: JUL 23, 1992
HELP-PROMPT: Answer must be 1-25 characters in length.
DESCRIPTION:
A description of the time remark.
CROSS-REFERENCE: 457.4^B
1)= S ^PRST(457.4,"B",$E(X,1,30),DA)=""
2)= K ^PRST(457.4,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^457.4^4
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRST(457.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S
DIU=X K Y X ^DD(457.4,.01,1,2,1.1) X ^DD(457.4,.01,1,2,1.4)
1.1)= S X=DIV S X=DIV X "F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)"
1.4)= S DIH=$S($D(^PRST(457.4,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=457.4,DIG=4 D ^DIC
R:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRST(457.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S
DIU=X K Y S X="" X ^DD(457.4,.01,1,2,2.4)
2.4)= S DIH=$S($D(^PRST(457.4,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=457.4,DIG=4 D ^DIC
R:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= UPPERCASE(DESCRIPTION)
DELETE VALUE)= @
FIELD)= UPPERCASE NAME
457.4,1 CODE 0;2 NUMBER (Required)
INPUT TRANSFORM: K:X'=DA X
LAST EDITED: APR 14, 1992
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION:
A numeric code that identifies the time remark.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 457.4^C
1)= S ^PRST(457.4,"C",$E(X,1,30),DA)=""
2)= K ^PRST(457.4,"C",$E(X,1,30),DA)
457.4,4 UPPERCASE NAME 0;4 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
LAST EDITED: JUL 23, 1992
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
The DESCRIPTION field of the time remark displayed in uppercase letters.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the DESCRIPTION field of the TIME REMARKS File
CROSS-REFERENCE: 457.4^D
1)= S ^PRST(457.4,"D",$E(X,1,30),DA)=""
2)= K ^PRST(457.4,"D",$E(X,1,30),DA)
457.4,5 APPLICABLE TYPES OF TIME 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<2) X
LAST EDITED: JUL 21, 1992
HELP-PROMPT: Answer must be 2-40 characters in length.
DESCRIPTION: A character string containing the two letter codes, separated by a space, for the type of time
associated with this time remark.
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):