STANDARD DATA DICTIONARY #458.2 -- OT/CT REQUESTS FILE 3/24/25 PAGE 1 STORED IN ^PRST(458.2, *** 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 requests for OT/CT other than those scheduled as part of a tour. It contains the information pertaining to the request formerly found on a VA Form 4-1098. 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: REQUESTED WORK DATE(AD), STATUS(AR), STATUS(AS), SEQUENCE #(B), EMPLOYEE(C) 458.2,.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 overtime or compensatory time request. CROSS-REFERENCE: 458.2^B 1)= S ^PRST(458.2,"B",$E(X,1,30),DA)="" 2)= K ^PRST(458.2,"B",$E(X,1,30),DA) 458.2,1 EMPLOYEE 0;2 POINTER TO PAID EMPLOYEE FILE (#450) (Required) LAST EDITED: FEB 06, 1992 DESCRIPTION: An employee from the PAID EMPLOYEE file (#450) who will work either overtime or compensatory time/credit hours. CROSS-REFERENCE: 458.2^C 1)= S ^PRST(458.2,"C",$E(X,1,30),DA)="" 2)= K ^PRST(458.2,"C",$E(X,1,30),DA) 458.2,2 REQUESTED WORK DATE 0;3 DATE (Required) INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: MAR 20, 1992 DESCRIPTION: The date the overtime or comptime/credit hrs. is to be worked. If the OT/CT/CH request spans two days, enter the starting date. CROSS-REFERENCE: 458.2^AD^MUMPS 1)= S X1=$P(^PRST(458.2,DA,0),"^",2) S:X1 ^PRST(458.2,"AD",X1,X,DA)="" 2)= S X1=$P(^PRST(458.2,DA,0),"^",2) K:X1 ^PRST(458.2,"AD",X1,X,DA) This is a cross-reference of employee,date,sequence # for the OT/CT request. 458.2,3 DATE SCHEDULED 0;4 DATE INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: MAR 01, 1994 DESCRIPTION: The date the overtime or compensatory time/credit hours request was scheduled. 458.2,4 TYPE OF TIME 0;5 SET (Required) 'OT' FOR OVERTIME; 'CT' FOR COMP TIME/CREDIT HRS.; LAST EDITED: MAY 14, 1998 HELP-PROMPT: Code CT for both comp time and credit hours. Use the justification field to specify the request as comp time or credit hours. DESCRIPTION: Identify request as overtime or (compensatory time/credit hours). When coding CT, specify credit hours or comp time in the justification field. TECHNICAL DESCR: Per VACO request the type of time "compensatory time" has been modified from the original design to include both compensatory time and credit hours. SCREEN: S DIC("S")="I $S('$D(ZENT):1,1:ZENT[Y)" EXPLANATION: Allow only valid types of time 458.2,5 HOURS REQUESTED 0;6 NUMBER (Required) INPUT TRANSFORM: K:+X'=X!(X>24)!(X<0)!(X?.E1"."3N.N)!(X*100#25) X LAST EDITED: MAR 24, 1994 HELP-PROMPT: Type a Number between 0 and 24, 2 Decimal Digits in quarter hours DESCRIPTION: The number of hours--overtime or compensatory time/credit hours--requested. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 458.2,6 JUSTIFICATION 0;7 FREE TEXT (Required) INPUT TRANSFORM: K:$L(X)>60!($L(X)<3) X LAST EDITED: SEP 22, 1992 HELP-PROMPT: Answer must be 3-60 characters in length. DESCRIPTION: Enter a justification for scheduling overtime or compensatory time/credit hours. For Comp/Credit requests, include Comp or Credit in the justification to distinquish between comp and credit. 458.2,7 COST ESTIMATE 0;10 NUMBER (Required) INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>1000)!(X<0) X LAST EDITED: MAY 03, 1995 HELP-PROMPT: Type a Dollar Amount between 0 and 1000, 2 Decimal Digits DESCRIPTION: This field contains an estimate of the cost of the overtime, e.g., the hours in Field 5 multiplied by 1.5 times the Employee's hourly rate. 458.2,10 STATUS 0;8 SET (Required) 'R' FOR Requested; 'S' FOR Supr. App.; 'A' FOR Approved; 'D' FOR Disapproved; 'X' FOR Cancelled; LAST EDITED: MAR 24, 1993 DESCRIPTION: The status of the request to work overtime or compensatory time/credit hours. CROSS-REFERENCE: 458.2^AR^MUMPS 1)= S X9=$P(^PRST(458.2,DA,0),U,2) I X9 K:X'="R" ^PRST(458.2,"AR",X9,DA) S:X="R" ^PRST(458.2,"AR",X 9,DA)="" 2)= S X9=$P(^PRST(458.2,DA,0),U,2) K:X9 ^PRST(458.2,"AR",X9,DA) This is a cross-reference of only those entries with a status of R. CROSS-REFERENCE: 458.2^AS^MUMPS 1)= S X9=$P(^PRST(458.2,DA,0),U,2) I X9 K:X'="S" ^PRST(458.2,"AS",X9,DA) S:X="S" ^PRST(458.2,"AS",X 9,DA)="" 2)= S X9=$P(^PRST(458.2,DA,0),U,2) K:X9 ^PRST(458.2,"AS",X9,DA) This is a cross-reference of only those entries with a status of S. 458.2,11 T&L WORKED 0;9 FREE TEXT INPUT TRANSFORM: S DIC=455.5,DIC(0)="EMQ" D ^DIC K DIC S X=$P(Y,"^",2) K:Y'>0 X LAST EDITED: AUG 04, 1992 DESCRIPTION: The time and leave unit where the overtime or compensatory time/credit hours is scheduled to be worked. 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 458.2,15 ENTRY PERSON 0;11 POINTER TO NEW PERSON FILE (#200) (Required) LAST EDITED: FEB 06, 1992 DESCRIPTION: A pointer to the NEW PERSON file (#200) which identifies the person entering the request. 458.2,16 ENTRY DATE/TIME 0;12 DATE (Required) INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X LAST EDITED: FEB 06, 1992 DESCRIPTION: The date and time the request was entered. 458.2,17 SUPERVISOR 0;13 POINTER TO NEW PERSON FILE (#200) LAST EDITED: MAR 20, 1992 DESCRIPTION: A pointer to the NEW PERSON file (#200) which identifies the supervisor who approved or disapproved the request. 458.2,18 SUPR. ACTION DATE/TIME 0;14 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.2,19 SUPR. ES 0;15 FREE TEXT INPUT TRANSFORM: K:$L(X)>20!($L(X)<6) X OUTPUT TRANSFORM: S X=Y,X2=D0,X1=$P(^PRST(458.2,D0,0),U,13) 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 siganture code. 458.2,20 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 enter concerning this request. 458.2,21 APPROVER 0;16 POINTER TO NEW PERSON FILE (#200) LAST EDITED: JUL 15, 1992 DESCRIPTION: A pointer to the NEW PERSON file (#200) which identifies the person who approves the request. 458.2,22 APPR. DATE/TIME 0;17 DATE INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X LAST EDITED: JUL 15, 1992 DESCRIPTION: The date and time the request was approved. 458.2,23 APPR. ES 0;18 FREE TEXT INPUT TRANSFORM: K:$L(X)>20!($L(X)<6) X OUTPUT TRANSFORM: S X=Y,X2=D0,X1=$P(^PRST(458.2,D0,0),U,16) D DE^XUSHSHP S Y=X LAST EDITED: MAY 25, 1995 HELP-PROMPT: Answer must be 6-20 characters in length. DESCRIPTION: The approving official's electronic signature code. FILES POINTED TO FIELDS NEW PERSON (#200) ENTRY PERSON (#15) SUPERVISOR (#17) APPROVER (#21) PAID EMPLOYEE (#450) EMPLOYEE (#1) INPUT TEMPLATE(S): PRINT TEMPLATE(S): SORT TEMPLATE(S): FORM(S)/BLOCK(S): PRSA OT REQ FEB 06, 1992 USER #0 PRSA OT REQ1 DD #458.2