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