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

Package: IHS Kernel Toolkit Extensions

PARAMETER AUDIT LIST(#9002026.02)-->9002026.21101

Sub-Field: 9002026.21101


Information

Parent File Name Number Package
PARAMETER AUDIT LIST(#9002026.02) AUDIT HISTORY 9002026.21101 IHS Kernel Toolkit Extensions

Details

Field # Name Loc Type Details
.01 TIMESTAMP 0;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  AUG 26, 2013
  • HELP-PROMPT:  Enter timestamp for this parameter audit update.
    UNEDITABLE
  • CROSS-REFERENCE:  9002026.21101^B
    1)= S ^BXPA(9002026.02,DA(1),11,"B",$E(X,1,30),DA)=""
    2)= K ^BXPA(9002026.02,DA(1),11,"B",$E(X,1,30),DA)
1 AUDIT STATUS 0;2 SET
  • '1' FOR ENABLED;
  • '0' FOR DISABLED;

  • LAST EDITED:  AUG 26, 2013
  • HELP-PROMPT:  Enter '1' for audit enabled, '0' for audit disabled.
    UNEDITABLE
  • CROSS-REFERENCE:  ^^TRIGGER^9002026.02^4
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BXPA(9002026.02,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(9002026.21101,1,1,1,1.4)
    1.4)= S DIH=$G(^BXPA(9002026.02,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=9002026.02,DIG=4 D ^DICR
    2)= Q
    CREATE VALUE)= INTERNAL(AUDIT STATUS)
    DELETE VALUE)= NO EFFECT
    FIELD)= CURRENT AUDIT STATUS
  • CROSS-REFERENCE:  ^^TRIGGER^9002026.21101^2
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BXPA(9002026.02,D0,11,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(9002026.21101,1,1,2,1.4)
    1.4)= S DIH=$G(^BXPA(9002026.02,DIV(0),11,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=9002026.21101,DIG=2 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BXPA(9002026.02,D0,11,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(9002026.21101,1,1,2,2.4)
    2.4)= S DIH=$G(^BXPA(9002026.02,DIV(0),11,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=9002026.21101,DIG=2 D ^DICR
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= S X=DUZ
    FIELD)= STATUS SET BY
2 STATUS SET BY 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 26, 2013
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the AUDIT STATUS field of the AUDIT HISTORY sub-field of the PARAMETER AUDIT LIST File
Info |  Details |  All