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.3

Package: PAID

Global: ^PRST(458.3

Information

FileMan FileNo	FileMan Filename	Package
458.3	ENVIRONMENTAL DIFF. REQUESTS	PAID

Description

This file contains all Environmental Differential requests. It contains the information previously entered on VA Form 4-1098a.

Directly Accessed By Routines, Total: 9

Package	Total	Routines
PAID	9	LABOR DISTRIBUTION PRSAEDL PRSAEDR PRSAEDS PRSASAL PRSASC ^PRST(458.3 PRSASC1 PRSASC2

Accessed By FileMan Db Calls, Total: 2

Package	Total	Routines
PAID	2	PRSADPA PRSAEDR

Pointer To FileMan Files, Total: 3

Package	Total	FileMan Files
PAID	2	PAID EMPLOYEE(#450)[1] ENVIRONMENTAL DIFFERENTIALS(#457.6)[6]
Kernel	1	NEW PERSON(#200)[9, 11]

Fields, Total: 15

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 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)`
1	EMPLOYEE	0;2	POINTER TO PAID EMPLOYEE FILE (#450)	**********************REQUIRED FIELD********************** PAID EMPLOYEE(#450) 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)`
2	FROM DATE	0;3	DATE	**********************REQUIRED FIELD********************** 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.`
3	FROM TIME	0;4	FREE TEXT	**********************REQUIRED FIELD********************** 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`
4	MEAL TIME	0;5	NUMBER	**********************REQUIRED FIELD********************** 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`
5	TO TIME	0;6	FREE TEXT	**********************REQUIRED FIELD********************** 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`
6	TYPE OF EXPOSURE	0;7	POINTER TO ENVIRONMENTAL DIFFERENTIALS FILE (#457.6)	**********************REQUIRED FIELD********************** ENVIRONMENTAL DIFFERENTIALS(#457.6) 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`
7	JUSTIFICATION	0;8	FREE TEXT	**********************REQUIRED FIELD********************** 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.`
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",X9,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.`
9	ENTERED BY	0;10	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `MAR 20, 1992` DESCRIPTION: `A pointer to the NEW PERSON file (#200) which identifies the person who entered the request.`
10	DATE/TIME ENTERED	0;11	DATE	**********************REQUIRED FIELD********************** 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.`
11	SUPERVISOR	0;12	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 employee's supervisor.`
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.`
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.`
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.`

External References

Name	Field # of Occurrence
^%DT	2+1, 10+1, 12+1
^DIC	6+1
^PRSATIM	3+1, 5+1
HLP^PRSATIM	3(HELP ), 5(HELP )
DE^XUSHSHP	13OT+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRST(458.3 - [#458.3]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 8(XREF 1S), 8(XREF 1K), 13OT+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, 10+1, 12+1*
>> %DT(0	2+1*!
>> D0	13OT+1
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 8(XREF 1S), 8(XREF 1K)
DIC	6+1!*
DIC("S"	6+1, 6SCR+1
>> DIE	6+1
DT	2+1
U	IDWRITE+1, 8(XREF 1S), 8(XREF 1K), 13OT+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, 4+1! , 5+1, 6+1!, 7+1!, 8(XREF 1S), 10+1!, 12+1!, 13+1!, 13OT+1*, 14+1!
>> X1	2(XREF 1S), 2(XREF 1K), 13OT+1*
>> X2	13OT+1*
>> X9	8(XREF 1S), 8(XREF 1K)
>> Y	2+1, 6+1, 10+1, 12+1, 13OT+1*
>> Y(0	13OT+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