STANDARD DATA DICTIONARY #458.1 -- LEAVE REQUESTS FILE 9/29/25 PAGE 1
STORED IN ^PRST(458.1, *** 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 Leave (Absence) Requests entered by employees.
It contains much the same information as a SF-71 form.
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(AD1), TO DATE(AD2), STATUS(AR), SEQUENCE #(B), EMPLOYEE(C)
458.1,.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 leave request.
CROSS-REFERENCE: 458.1^B
1)= S ^PRST(458.1,"B",$E(X,1,30),DA)=""
2)= K ^PRST(458.1,"B",$E(X,1,30),DA)
458.1,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 requesting leave.
CROSS-REFERENCE: 458.1^C
1)= S ^PRST(458.1,"C",$E(X,1,30),DA)=""
2)= K ^PRST(458.1,"C",$E(X,1,30),DA)
458.1,2 FROM DATE 0;3 DATE (Required)
INPUT TRANSFORM: S X=$$CVTDATE^PRSLIB00(X) K:X<1 X
LAST EDITED: OCT 04, 1999
DESCRIPTION:
The date the leave begins.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 458.1^AD1^MUMPS
1)= S %=$P(^PRST(458.1,DA,0),"^",2),X1=$P(^(0),"^",5) S:%&X1 ^PRST(458.1,"AD",%,9999999-X1,DA)=X
2)= S %=$P(^PRST(458.1,DA,0),"^",2),X1=$P(^(0),"^",5) K:%&X1 ^PRST(458.1,"AD",%,9999999-X1,DA)
This is a complex cross-reference which uses the inverse of Field 4, the ending date, as a
subscript and this field, the starting date, as data.
458.1,3 FROM TIME 0;4 FREE TEXT (Required)
INPUT TRANSFORM: D:$D(X) ^PRSATIM
LAST EDITED: FEB 16, 1993
DESCRIPTION:
The time the leave begins.
EXECUTABLE HELP: D HLP^PRSATIM
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
458.1,4 TO DATE 0;5 DATE (Required)
INPUT TRANSFORM: S X=$$CVTDATE^PRSLIB00(X,Z1) K:X<1 X
LAST EDITED: OCT 04, 1999
DESCRIPTION:
The date the leave ends.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 458.1^AD2^MUMPS
1)= S %=$P(^PRST(458.1,DA,0),"^",2),X1=$P(^(0),"^",3) S:%&X1 ^PRST(458.1,"AD",%,9999999-X,DA)=X1
2)= S %=$P(^PRST(458.1,DA,0),"^",2),X1=$P(^(0),"^",3) K:%&X1 ^PRST(458.1,"AD",%,9999999-X,DA)
This is a complex cross-reference which uses the inverse of this field, the ending date, as a
subscript and Field 2, the start date, as data.
458.1,5 TO TIME 0;6 FREE TEXT (Required)
INPUT TRANSFORM: D:$D(X) ^PRSATIM
LAST EDITED: FEB 16, 1993
DESCRIPTION:
The time the leave ends.
EXECUTABLE HELP: D HLP^PRSATIM
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
458.1,6 TYPE OF LEAVE 0;7 SET (Required)
'AL' FOR Annual Leave;
'SL' FOR Sick Leave;
'WP' FOR Without Pay;
'CU' FOR CompTime/CreditHrs;
'AA' FOR Authorized Absence;
'ML' FOR Military Leave;
'RL' FOR Restored Leave;
'NL' FOR NP Annual Leave;
'CB' FOR Family Care;
'AD' FOR Adoption;
'DL' FOR Donor Leave;
LAST EDITED: JUN 05, 1998
DESCRIPTION:
The category of leave used.
SCREEN: S DIC("S")="I $S('$D(ZENT):1,1:ZENT[Y)"
EXPLANATION: Allow only entitled types of leave.
458.1,7 REMARKS 0;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<1) X
LAST EDITED: MAR 11, 1992
HELP-PROMPT: Answer must be 1-60 characters in length.
DESCRIPTION:
A free text field to hold any remarks.
458.1,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 leave request.
CROSS-REFERENCE: 458.1^AR^MUMPS
1)= S X9=$P(^PRST(458.1,DA,0),U,2) I X9 K:X'="R" ^PRST(458.1,"AR",X9,DA) S:X="R" ^PRST(458.1,"AR",X
9,DA)=""
2)= S X9=$P(^PRST(458.1,DA,0),U,2) K:X9 ^PRST(458.1,"AR",X9,DA)
This is a cross-reference of only those entries with a status of R. No other status value is
cross-referenced.
458.1,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.1,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 leave request was entered.
458.1,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 supervisor of the employee requesting
leave.
458.1,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 the employee's leave request (e.g., approve or
disapprove).
458.1,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.1,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.1,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 wants to make about the leave request.
458.1,15 ESTIMATED HOURS/DAYS 0;15 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>240)!(X<.25)!(X?.E1"."3N.N)!(X*100#25) X
LAST EDITED: APR 11, 1995
HELP-PROMPT: Type a Number between .25 and 240, 2 Decimal Digits
DESCRIPTION: This field contains the number of hours (or days if leave is accrued in days) that the leave
request covers.
458.1,16 DAYS OR HOURS 0;16 SET
'D' FOR DAYS;
'H' FOR HOURS;
LAST EDITED: JUN 18, 1993
DESCRIPTION:
This field indicates whether the estimated length of leave is in days or hours.
FILES POINTED TO FIELDS
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 LV REQ MAR 11, 1992 USER #0
PRSA LV REQ DD #458.1