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

Package: Kernel

NEW PERSON(#200)-->200.052

Sub-Field: 200.052


Information

Parent File Name Number Package
NEW PERSON(#200) DELEGATED KEYS 200.052 Kernel

Details

Field # Name Loc Type Details
.01 DELEGATED KEY 0;1 POINTER TO SECURITY KEY FILE (#19.1) SECURITY KEY(#19.1)

  • INPUT TRANSFORM:  S DIC("S")="I DUZ(0)=""@""!$D(^XUSEC(""XUMGR"",DUZ))!$S('$D(^VA(200,DUZ,52,Y,0)):0,1:$P(^(0),U,4))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
  • LAST EDITED:  APR 23, 1992
  • HELP-PROMPT:  These are the keys this person may allocate.
  • DESCRIPTION:  
    This is a security key that this person my allocate to another person.
  • SCREEN:  S DIC("S")="I DUZ(0)=""@""!$D(^XUSEC(""XUMGR"",DUZ))!$S('$D(^VA(200,DUZ,52,Y,0)):0,1:$P(^(0),U,4))"
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  200.052^B
    1)= S ^VA(200,DA(1),52,"B",$E(X,1,30),DA)=""
    2)= K ^VA(200,DA(1),52,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^200.052^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,52,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.052,.01,1,2,1.4)
    1.4)= S DIH=$S($D(^VA(200,DIV(0),52,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=200.052,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= DELEGATED BY
    This keeps track of who gave the key for delegation.
  • CROSS-REFERENCE:  ^^TRIGGER^200.052^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,52,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.052,.01,1,3,1.4)
    1.4)= S DIH=$S($D(^VA(200,DIV(0),52,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=200.052,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= TODAY
    DELETE VALUE)= NO EFFECT
    FIELD)= DATE DELEGATED
    This sets when it was given.
1 DELEGATED BY 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 26, 1989
  • DESCRIPTION:  
    This is the person that gave the security key that may be delegated.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the DELEGATED KEY field of the DELEGATED KEYS sub-field of the NEW PERSON File
2 DATE DELEGATED 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 26, 1989
  • DESCRIPTION:  
    This is the date that the security key was given to be delegated.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the DELEGATED KEY field of the DELEGATED KEYS sub-field of the NEW PERSON File
3 MAY RE-DELEGATE 0;4 SET
  • '0' FOR NO;
  • '1' FOR YES;
  • '0' FOR no;
  • '1' FOR yes;

  • LAST EDITED:  SEP 29, 1989
  • DESCRIPTION:  
    Re-delegation means that the person has total control over the key, the person may not only delegate the key to others but may also give others the authorization to delegate it.
Info |  Details