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

Package: PAID

Global: ^PRST(458.1

Information

FileMan FileNo	FileMan Filename	Package
458.1	LEAVE REQUESTS	PAID

Description

This file contains all Leave (Absence) Requests entered by employees. It contains much the same information as a SF-71 form.

Directly Accessed By Routines, Total: 17

Package	Total	Routines
PAID	17	LABOR DISTRIBUTION PRSALVE PRSALVL PRSALVR PRSALVS PRSALVU PRSALVX PRSASAL PRSASC PRSASC1 PRSATP2 PRSATPE PRSPLVA PRSPUT3 ^PRST(458.1 PRSPLVU PRSRLSOR

Accessed By FileMan Db Calls, Total: 2

Package	Total	Routines
PAID	2	PRSADPA PRSALVR

Pointer To FileMan Files, Total: 2

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

Fields, Total: 17

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 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)`
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 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)`
2	FROM DATE	0;3	DATE	**********************REQUIRED FIELD********************** 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.`
3	FROM TIME	0;4	FREE TEXT	**********************REQUIRED FIELD********************** 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`
4	TO DATE	0;5	DATE	**********************REQUIRED FIELD********************** 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.`
5	TO TIME	0;6	FREE TEXT	**********************REQUIRED FIELD********************** 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`
6	TYPE OF LEAVE	0;7	SET	**********************REQUIRED FIELD********************** '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.`
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.`
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",X9,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.`
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 leave 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 supervisor of the employee requesting leave.`
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).`
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.`
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.`
15	ESTIMATED HOURS/DAYS	0;15	NUMBER	**********************REQUIRED FIELD********************** 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.`
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.`

External References

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRST(458.1 - [#458.1]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 4(XREF 1S), 4(XREF 1K), 8(XREF 1S), 8(XREF 1K) , 13OT+1

Naked Globals

Name	Field # of Occurrence
^(0	IDWRITE+1, 2(XREF 1S), 2(XREF 1K), 4(XREF 1S), 4(XREF 1K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	IDWRITE+1*, 2(XREF 1S), 2(XREF 1K), 4(XREF 1S), 4(XREF 1K)
>> %DT	10+1, 12+1
>> D0	13OT+1
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 4(XREF 1S), 4(XREF 1K), 8(XREF 1S), 8(XREF 1K)
>> DIC("S"	6SCR+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), 3+1, 4+1!, 4(XREF 1S) , 4(XREF 1K), 5+1, 7+1!, 8(XREF 1S), 10+1!, 12+1!, 13+1!, 13OT+1*, 14+1!, 15+1!
>> X1	2(XREF 1S), 2(XREF 1K), 4(XREF 1S), 4(XREF 1K), 13OT+1*
>> X2	13OT+1*
>> X9	8(XREF 1S), 8(XREF 1K)
>> Y	10+1, 12+1, 13OT+1*
>> Y(0	13OT+1*
>> Z1	4+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