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: 200.19

Package: Kernel

NEW PERSON(#200)-->200.19

Sub-Field: 200.19


Information

Parent File Name Number Package
NEW PERSON(#200) DELEGATED OPTIONS 200.19 Kernel

Details

Field # Name Loc Type Details
.01 DELEGATED OPTIONS 0;1 POINTER TO OPTION FILE (#19) OPTION(#19)

  • INPUT TRANSFORM:  S DINUM=X
  • LAST EDITED:  APR 17, 1989
  • DESCRIPTION:  
    This field identifies which options this user may delegate to others.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  200.19^B
    1)= S ^VA(200,DA(1),19.5,"B",$E(X,1,30),DA)=""
    2)= K ^VA(200,DA(1),19.5,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^200.19^1
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VA(200,D0,19.5,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(200.19,.01,1,2,1.4)
    1.4)= S DIH=$S($D(^VA(200,DIV(0),19.5,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=200.19,DIG=1 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(^VA(200,D0,19.5,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(200.19,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^VA(200,DIV(0),19.5,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=200.19,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= @
    FIELD)= DELEGATED BY
  • CROSS-REFERENCE:  ^^TRIGGER^200.19^2
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VA(200,D0,19.5,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(200.19,.01,1,3,1.4)
    1.4)= S DIH=$S($D(^VA(200,DIV(0),19.5,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=200.19,DIG=2 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(^VA(200,D0,19.5,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(200.19,.01,1,3,2.4)
    2.4)= S DIH=$S($D(^VA(200,DIV(0),19.5,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=200.19,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= TODAY
    DELETE VALUE)= @
    FIELD)= DATE DEL
1 DELEGATED BY 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 20, 1988
  • DESCRIPTION:  
    This field indicates who granted authority for this user to delegate this option to others.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the DELEGATED OPTIONS field of the DELEGATED OPTIONS sub-field of the NEW PERSON File
2 DATE DELEGATED 0;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 20, 1988
  • DESCRIPTION:  
    This field records the date when this option was added to the list of options this user may delegate to others.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the DELEGATED OPTIONS field of the DELEGATED OPTIONS sub-field of the NEW PERSON File
3 EDITABLE 0;4 SET
  • '0' FOR N;
  • '1' FOR Y;

  • LAST EDITED:  JAN 20, 1988
  • DESCRIPTION:  
    This field indicates whether this use is allowed to edit this option.
Info |  Details |  All