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

Directly Accessed By Routines, Total: 16

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

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)[911]    
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