Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields
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

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.
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields