Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^PRST(458.2

Package: PAID

Global: ^PRST(458.2

Information

FileMan FileNo	FileMan Filename	Package
458.2	OT/CT REQUESTS	PAID

Description

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.

Directly Accessed By Routines, Total: 15

Package	Total	Routines
PAID	15	LABOR DISTRIBUTION PRS8OT PRSAOTE PRSAOTL PRSAOTR PRSAOTS PRSAOTT PRSAOTTR PRSAOTX PRSASAL PRSASC1 ^PRST(458.2 PRSASC PRSATP2 PRSATPE

Accessed By FileMan Db Calls, Total: 4

Package	Total	Routines
PAID	4	PRSADPA PRSAOTE PRSAOTR PRSAOTTR

Pointer To FileMan Files, Total: 2

Package	Total	FileMan Files
Kernel	1	NEW PERSON(#200)[15, 17, 21]
PAID	1	PAID EMPLOYEE(#450)[1]

Fields, Total: 19

Field #	Name	Loc	Type	Details
.01	SEQUENCE #	0;1	NUMBER	**********************REQUIRED FIELD********************** 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)`
1	EMPLOYEE	0;2	POINTER TO PAID EMPLOYEE FILE (#450)	**********************REQUIRED FIELD********************** PAID EMPLOYEE(#450) 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)`
2	REQUESTED WORK DATE	0;3	DATE	**********************REQUIRED FIELD********************** 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.`
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.`
4	TYPE OF TIME	0;5	SET	**********************REQUIRED FIELD********************** '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`
5	HOURS REQUESTED	0;6	NUMBER	**********************REQUIRED FIELD********************** 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`
6	JUSTIFICATION	0;7	FREE TEXT	**********************REQUIRED FIELD********************** 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.`
7	COST ESTIMATE	0;10	NUMBER	**********************REQUIRED FIELD********************** 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.`
10	STATUS	0;8	SET	**********************REQUIRED FIELD********************** '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",X9,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",X9,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.`
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`
15	ENTRY PERSON	0;11	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `FEB 06, 1992` DESCRIPTION: `A pointer to the NEW PERSON file (#200) which identifies the person entering the request.`
16	ENTRY DATE/TIME	0;12	DATE	**********************REQUIRED FIELD********************** 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.`
17	SUPERVISOR	0;13	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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.`
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.`
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.`
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.`
21	APPROVER	0;16	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 15, 1992` DESCRIPTION: `A pointer to the NEW PERSON file (#200) which identifies the person who approves the request.`
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.`
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.`

External References

Name	Field # of Occurrence
^%DT	2+1, 3+1, 16+1, 18+1, 22+1
^DIC	11+1
DQ^DICQ	11(HELP )
DE^XUSHSHP	19OT+1, 23OT+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRST(458.2 - [#458.2]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K) , 19OT+1, 23OT+1

Naked Globals

Name	Field # of Occurrence
^(0	IDWRITE+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	IDWRITE+1*
>> %DT	2+1, 3+1, 16+1, 18+1, 22+1*
D	11(HELP )
>> D0	19OT+1, 23OT+1
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K)
DIC	11+1*!, 11(HELP )
DIC("S"	4SCR+1*
DIC(0	11+1*, 11(HELP )
DO	11(HELP )
U	IDWRITE+1, 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), 19OT+1, 23OT+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2+1!, 2(XREF 1S), 2(XREF 1K), 3+1!, 5+1! , 6+1!, 7+1!, 10(XREF 1S), 10(XREF 2S), 11+1!, 11(HELP ), 16+1!, 18+1!, 19+1!, 19OT+1* , 20+1!, 22+1!, 23+1!, 23OT+1
>> X1	2(XREF 1S), 2(XREF 1K), 19OT+1, 23OT+1
>> X2	19OT+1, 23OT+1
>> X9	10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K)
>> Y	2+1, 3+1, 11+1, 16+1, 18+1, 19OT+1, 22+1, 23OT+1
>> Y(0	19OT+1, 23OT+1

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All