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

Package: Commitment Register

FMS ACCESS LEVEL(#9002185.5)-->9002185.51

Sub-Field: 9002185.51


Information

Parent File Name Number Package
FMS ACCESS LEVEL(#9002185.5) SECURITY KEY 9002185.51 Commitment Register

Details

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

  • INPUT TRANSFORM:  S:$D(X) DINUM=X Q
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the name of the SECURITY KEY.
  • DESCRIPTION:  
    Enter the name of the SECURITY KEY.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^9002185.51^.02
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ACRACC(D0,"SEC",D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002185.51,.01,1,1,1.1) X ^DD(9002185.51,.01,1,1,1.4)
    1.1)= S X=DIV S X=$S('$D(^DIC(19.1,+DIV,0)):"",1:$P(^(0),U,1))
    1.4)= S DIH=$S($D(^ACRACC(DIV(0),"SEC",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9002185.51,DIG=.02 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(^ACRACC(D0,"SEC",D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002185.51,.01,1,1,2.1) X ^DD(9002185.51,.01,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^ACRACC(D0,"SEC",D1,0)):^(0),1:"") S X=$S('$D(^DIC(19.1,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1))
    2.4)= S DIH=$S($D(^ACRACC(DIV(0),"SEC",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9002185.51,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= SECURITY KEY
    DELETE VALUE)= SECURITY KEY
    FIELD)= SECURITY KEY NAME
  • CROSS-REFERENCE:  9002185.5^SEC
    1)= S ^ACRACC("SEC",$E(X,1,30),DA(1),DA)=""
    2)= K ^ACRACC("SEC",$E(X,1,30),DA(1),DA)
.02 SECURITY KEY NAME 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  This is a free text field which contains the complete name of the SECURITY KEY. This information is triggered from the SECURITY KEY file. It is used when ARMS is exported to a new system and the free text name of the
    SECURITY KEY is used to find the internal entry number of this SECURITY KEY in the new system.
  • NOTES:  TRIGGERED by the SECURITY KEY field of the SECURITY KEY sub-field of the FMS ACCESS LEVEL File
.03 LEVEL 10 ONLY 0;3 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  OCT 06, 1997
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter the appropriate code from the list to indicate if this security key should be held by level 10 only.
  • CROSS-REFERENCE:  9002185.51^C
    1)= S ^ACRACC(DA(1),"SEC","C",$E(X,1,30),DA)=""
    2)= K ^ACRACC(DA(1),"SEC","C",$E(X,1,30),DA)
Info |  Details |  All