Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 503339.216

Package: Voluntary Timekeeping

VOLUNTARY SERVICE DIRECTORY(#503339.2)-->503339.216

Sub-Field: 503339.216


Information

Parent File Name Number Package
VOLUNTARY SERVICE DIRECTORY(#503339.2) PROGRAMS SUPERVISED 503339.216 Voluntary Timekeeping

Details

Field # Name Loc Type Details
.01 PROGRAMS SUPERVISED 0;1 POINTER TO VOLUNTARY SERVICE PROGRAMS FILE (#503339.3) VOLUNTARY SERVICE PROGRAMS(#503339.3)

  • LAST EDITED:  OCT 27, 2000
  • DESCRIPTION:  
    This field contains the name of programs supervised by the Chief, Voluntary Service.
  • CROSS-REFERENCE:  503339.216^B
    1)= S ^ABS(503339.2,DA(1),4,"B",$E(X,1,30),DA)=""
    2)= K ^ABS(503339.2,DA(1),4,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^503339.216^3
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABS(503339.2,D0,4,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(503339.216,.01,1,2,1.1) X ^DD(503339.216,.01,1,2,1.4)
    1.1)= S X=DIV S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ABS(503339.3,+D0,0)) D0=-1 S Y(101)=$S($D(^ABS(503339.3,D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0) S D1=I(1,0)
    1.4)= S DIH=$S($D(^ABS(503339.2,DIV(0),4,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=503339.216,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABS(503339.2,D0,4,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(503339.216,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^ABS(503339.2,DIV(0),4,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=503339.216,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= PROGRAMS SUPERVISED:PROGRAM
    DELETE VALUE)= @
    FIELD)= STORE
1 PROGRAMMED SUPERVISED NAME COMPUTED

  • MUMPS CODE:  X ^DD(503339.216,1,9.5) S X=$S(Y(503339.216,1,2):Y(503339.216,1,102),Y(503339.216,1,103):X) S D0=Y(503339.216,1,80) S D1=Y(503339.216,1,81)
    9.2 = S Y(503339.216,1,81)=$S($D(D1):D1,1:""),Y(503339.216,1,80)=$S($D(D0):D0,1:""),Y(503339.216,1,1)=$S($D(^ABS(503339.2,D0,4,D1,0)):^(0),1:"")
    9.3 = X ^DD(503339.216,1,9.2) S X=$S('$D(^ABS(503339.3,+$P(Y(503339.216,1,1),U,1),0)):"",1:$P(^(0),U,1))<99,Y(503339.216,1,2)=X,Y(503339.216,1,3)=X
    9.4 = X ^DD(503339.216,1,9.3) S D0=$P(Y(503339.216,1,1),U,1) S:'$D(^ABS(503339.3,+D0,0)) D0=-1 S Y(503339.216,1,101)=$S($D(^ABS(503339.3,D0,0)):^(0),1:"")
    9.5 = X ^DD(503339.216,1,9.4) S X=$P(Y(503339.216,1,101),U,2),Y(503339.216,1,102)=X S X=1,Y(503339.216,1,103)=X S X=$P(Y(503339.216,1,1),U,2)
  • ALGORITHM:  $S((#.01<99):(#.01:#1),1:#2)
2 OTHER PROGRAM NAME 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JUN 07, 1995
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
3 STORED NAME 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  JAN 07, 1999
  • HELP-PROMPT:  Answer must be 1-45 characters in length.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the PROGRAMS SUPERVISED field of the PROGRAMS SUPERVISED sub-field of the VOLUNTARY SERVICE DIRECTORY File
  • CROSS-REFERENCE:  503339.216^C
    1)= S ^ABS(503339.2,DA(1),4,"C",$E(X,1,30),DA)=""
    2)= K ^ABS(503339.2,DA(1),4,"C",$E(X,1,30),DA)
Info |  Details |  All