STANDARD DATA DICTIONARY #458.3 -- ENVIRONMENTAL DIFF. REQUESTS FILE 3/24/25 PAGE 1
STORED IN ^PRST(458.3, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 4.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains all Environmental Differential requests.
It contains the information previously entered on VA Form 4-1098a.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY:
"WRITE": S %=$P(^(0),U,3) W " ",$E(%,4,5),"-",$E(%,6,7),"-",$E(%,2,3)
CROSS
REFERENCED BY: FROM DATE(AD), STATUS(AR), SEQUENCE #(B), EMPLOYEE(C)
458.3,.01 SEQUENCE # 0;1 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: FEB 06, 1992
HELP-PROMPT: Type a Number between 1 and 999999999, 0 Decimal Digits
DESCRIPTION:
A sequential number that identifies the environmental differential request.
CROSS-REFERENCE: 458.3^B
1)= S ^PRST(458.3,"B",$E(X,1,30),DA)=""
2)= K ^PRST(458.3,"B",$E(X,1,30),DA)
458.3,1 EMPLOYEE 0;2 POINTER TO PAID EMPLOYEE FILE (#450) (Required)
LAST EDITED: MAR 19, 1992
DESCRIPTION: A pointer to the PAID EMPLOYEE file (#450) which identifies the employee for whom the request is
being made.
CROSS-REFERENCE: 458.3^C
1)= S ^PRST(458.3,"C",$E(X,1,30),DA)=""
2)= K ^PRST(458.3,"C",$E(X,1,30),DA)
458.3,2 FROM DATE 0;3 DATE (Required)
INPUT TRANSFORM: S %DT="EXP",%DT(0)=-DT D ^%DT S X=Y K:Y<1 X K %DT(0)
LAST EDITED: DEC 15, 2000
DESCRIPTION:
The date the environmental differential should begin.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 458.3^AD^MUMPS
1)= S X1=$P(^PRST(458.3,DA,0),"^",2) S:X1 ^PRST(458.3,"AD",X1,9999999-X,DA)=""
2)= S X1=$P(^PRST(458.3,DA,0),"^",2) K:X1 ^PRST(458.3,"AD",X1,9999999-X,DA)
This is a multi-field cross-reference of employee by inverse date.
458.3,3 FROM TIME 0;4 FREE TEXT (Required)
INPUT TRANSFORM: D:$D(X) ^PRSATIM
LAST EDITED: FEB 16, 1993
DESCRIPTION:
The time the environmental differential should begin.
EXECUTABLE HELP: D HLP^PRSATIM
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
458.3,4 MEAL TIME 0;5 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>60)!(X<0)!(X?.E1"."1N.N) X I $D(X) K:X#15 X
LAST EDITED: APR 21, 1993
HELP-PROMPT: Enter 0, 15, 30, 45 or 60
DESCRIPTION: The meal time in minutes. This will be subtracted from the end-start time to determine the time of
exposure.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
458.3,5 TO TIME 0;6 FREE TEXT (Required)
INPUT TRANSFORM: D:$D(X) ^PRSATIM
LAST EDITED: FEB 16, 1993
DESCRIPTION:
The time the environmental differential should cease.
EXECUTABLE HELP: D HLP^PRSATIM
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
458.3,6 TYPE OF EXPOSURE 0;7 POINTER TO ENVIRONMENTAL DIFFERENTIALS FILE (#457.6) (Required)
INPUT TRANSFORM: S DIC("S")="I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,2))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 18, 1992
DESCRIPTION: A pointer to the ENVIRONMENTAL DIFFERENTIALS file (#457.6) which identifies the type of exposure
the employee is subject to.
SCREEN: S DIC("S")="I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,2))"
EXPLANATION: Select Hazard or Envir. Diff. Item
458.3,7 JUSTIFICATION 0;8 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>60!($L(X)<1) X
LAST EDITED: FEB 16, 1993
HELP-PROMPT: Answer must be 1-60 characters in length.
DESCRIPTION:
A free text response that states the justification for this request.
458.3,8 STATUS 0;9 SET
'R' FOR Requested;
'A' FOR Approved;
'D' FOR Disapproved;
'X' FOR Cancelled;
LAST EDITED: MAR 19, 1992
DESCRIPTION:
The status of the request.
CROSS-REFERENCE: 458.3^AR^MUMPS
1)= S X9=$P(^PRST(458.3,DA,0),U,2) I X9 K:X'="R" ^PRST(458.3,"AR",X9,DA) S:X="R" ^PRST(458.3,"AR",X
9,DA)=""
2)= S X9=$P(^PRST(458.3,DA,0),U,2) K:X9 ^PRST(458.3,"AR",X9,DA)
This is a cross-reference of only those entries with a status of R for requested.
458.3,9 ENTERED BY 0;10 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: MAR 20, 1992
DESCRIPTION:
A pointer to the NEW PERSON file (#200) which identifies the person who entered the request.
458.3,10 DATE/TIME ENTERED 0;11 DATE (Required)
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 20, 1992
DESCRIPTION:
The date and time the request was entered.
458.3,11 SUPERVISOR 0;12 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 20, 1992
DESCRIPTION:
A pointer to the NEW PERSON file (#200) which identifies the employee's supervisor.
458.3,12 SUPR. ACTION DATE/TIME 0;13 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 20, 1992
DESCRIPTION:
The date and time the supervisor took action on this request.
458.3,13 SUPR. ES 0;14 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<6) X
OUTPUT TRANSFORM: S X=Y,X2=D0,X1=$P(^PRST(458.3,D0,0),U,12) D DE^XUSHSHP S Y=X
LAST EDITED: MAY 25, 1995
HELP-PROMPT: Answer must be 6-20 characters in length.
DESCRIPTION:
The supervisor's electronic signature code.
458.3,14 SUPR. COMMENT 1;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<2) X
LAST EDITED: MAR 30, 1992
HELP-PROMPT: Answer must be 2-60 characters in length.
DESCRIPTION:
A free text response for any comments the supervisor would like to make about this request.
FILES POINTED TO FIELDS
ENVIRONMENTAL DIFFERENTIALS
(#457.6) TYPE OF EXPOSURE (#6)
NEW PERSON (#200) ENTERED BY (#9)
SUPERVISOR (#11)
PAID EMPLOYEE (#450) EMPLOYEE (#1)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):
PRSA ED REQ MAR 24, 1992 USER #0
PRSA ED REQ DD #458.3