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 |  Pointed To By FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^PRST(457.2

Package: PAID

Global: ^PRST(457.2


Information

FileMan FileNo FileMan Filename Package
457.2 SPECIAL TOUR INDICATOR PAID

Description

Directly Accessed By Routines, Total: 20

Package Total Routines
PAID 20 PRSA8BNH    PRSADP1    PRSALVU    PRSAPPH    PRSAPPQ    PRSARC07    PRSATD1    PRSATD2
PRSATE0    PRSATE3    PRSATP0    PRSATP5    PRSATPE    PRSATPH    PRSATPL    PRSPCORE
PRSPESR3    PRSPLVU    PRSRLL    ^PRST(457.2    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
PAID 1 PRSAPT1    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
PAID 2 TOUR OF DUTY(#457.1)[131619222528]    TIME & ATTENDANCE RECORDS(#458)[#458.02(13)#458.02(16)#458.02(19)#458.02(22)#458.02(25)#458.02(28)#458.02(32.2)#458.02(32.5)#458.02(32.8)#458.02(33.1)#458.02(33.4)#458.02(33.7)]    

Fields, Total: 6

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  AUG 09, 1994
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • DESCRIPTION:  
    The full name of the special tour indicator.
  • CROSS-REFERENCE:  457.2^B
    1)= S ^PRST(457.2,"B",$E(X,1,30),DA)=""
    2)= K ^PRST(457.2,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  457.2^AC^MUMPS
    1)= S $P(^PRST(457.2,DA,0),"^",3)=DA
    2)= Q
    Cross-reference is actually a form of a trigger and forces the internal number of the entry into the CODE field as data.
  • CROSS-REFERENCE:  ^^TRIGGER^457.2^4
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRST(457.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(457.2,.01,1,3,1.1) X ^DD(457.2,.01,1,3,1.4)
    1.1)= S X=DIV S X=DIV X "F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)"
    1.4)= S DIH=$S($D(^PRST(457.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=457.2,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRST(457.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(457.2,.01,1,3,2.4)
    2.4)= S DIH=$S($D(^PRST(457.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=457.2,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= UPPERCASE(NAME)
    DELETE VALUE)= @
    FIELD)= UPPERCASE NAME
    This triggers an all uppercase name which is cross-referenced for lookup.
1 TYPE OF TIME 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2U) X
  • LAST EDITED:  MAY 22, 1992
  • HELP-PROMPT:  Answer must be 2 uppercase characters in length.
  • DESCRIPTION:  
    A two letter abbreviation for the special tour indicator.
2 CODE 0;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X'=DA X
  • LAST EDITED:  JUL 23, 1992
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The numeric code that identifies the special tour indicator.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  457.2^D
    1)= S ^PRST(457.2,"D",$E(X,1,30),DA)=""
    2)= K ^PRST(457.2,"D",$E(X,1,30),DA)
3 LONG DESCRIPTION 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3) X
  • LAST EDITED:  JAN 17, 1992
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • DESCRIPTION:  
    A free text response that describes the special tour indicator.
4 UPPERCASE NAME 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  JAN 28, 1992
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • DESCRIPTION:  
    The name of the special tour indicator spelled out in uppercase letters.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the NAME field of the SPECIAL TOUR INDICATOR File
  • CROSS-REFERENCE:  457.2^C
    1)= S ^PRST(457.2,"C",$E(X,1,30),DA)=""
    2)= K ^PRST(457.2,"C",$E(X,1,30),DA)
5 SHORT NAME 0;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<3) X
  • LAST EDITED:  OCT 05, 1993
  • HELP-PROMPT:  Answer must be 3-10 characters in length.
  • DESCRIPTION:  
    This is a short name to be displayed when posting time segments.

Found Entries, Total: 9

NAME: Addt Firefighter Hrs    NAME: No Premium Pay    NAME: On-Call    NAME: Phy/Den Core Hours    NAME: Scheduled Comp Time    NAME: Scheduled Overtime    NAME: Shift 2    NAME: Shift 3    
NAME: Standby    

External References

Name Field # of Occurrence
^DICR .01(XREF 3n1.4), .01(XREF 3n2.4)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( .01(XREF 3n1.4), .01(XREF 3n2.4)
^DD(457.2 .01(XREF 3S), .01(XREF 3K)
^PRST(457.2 - [#457.2] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 3K), .01(XREF 3n2.4), 2(XREF 1S), 2(XREF 1K), 4(XREF 1S)
4(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 IDWRITE+1, .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 3K), .01(XREF 3n2.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 .01(XREF 3S), .01(XREF 3K)
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 3S), .01(XREF 3K), 2+1, 2(XREF 1S), 2(XREF 1K), 4(XREF 1S), 4(XREF 1K)
>> DIG .01(XREF 3n1.4), .01(XREF 3n2.4)
>> DIH .01(XREF 3n1.4), .01(XREF 3n2.4)
>> DIU .01(XREF 3S), .01(XREF 3K)
DIV .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4), .01(XREF 3K), .01(XREF 3n2.4)
DIV(0 .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 3K), .01(XREF 3n2.4)
U IDWRITE+1, .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 3K), .01(XREF 3n2.4)
X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4), .01(XREF 3K), .01(XREF 3n2.4), 1+1!, 2+1!
2(XREF 1S), 2(XREF 1K), 3+1!, 4+1!, 4(XREF 1S), 4(XREF 1K), 5+1!
Y .01(XREF 3S), .01(XREF 3K)
Y(1 .01(XREF 3S), .01(XREF 3K)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All