Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All
Print Page as PDF
Global: ^BUSA(9002319.04

Package: IHS User Security Audit

Global: ^BUSA(9002319.04


Information

FileMan FileNo FileMan Filename Package
9002319.04 BUSA SWITCH SETTINGS IHS User Security Audit

Description

Directly Accessed By Routines, Total: 1

Package Total Routines
IHS User Security Audit 1 BUSAOPT    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
IHS User Security Audit 1 BUSAOPT    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[.04]    

Fields, Total: 5

Field # Name Loc Type Details
.01 SWITCH TYPE 0;1 SET
************************REQUIRED FIELD************************
  • 'M' FOR Master;
  • 'B' FOR BMXNet;
  • 'C' FOR CIA Broker;
  • 'W' FOR XWB Broker;

  • LAST EDITED:  APR 12, 2013
  • CROSS-REFERENCE:  9002319.04^B
    1)= S ^BUSA(9002319.04,"B",$E(X,1,30),DA)=""
    2)= K ^BUSA(9002319.04,"B",$E(X,1,30),DA)
  • RECORD INDEXES:  C (#480)
.02 LOGGING STATUS 0;2 SET
************************REQUIRED FIELD************************
  • '1' FOR On;
  • '0' FOR Disabled;

  • LAST EDITED:  MAR 06, 2013
  • CROSS-REFERENCE:  ^^TRIGGER^9002319.04^.03
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BUSA(9002319.04,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() X ^DD(9002319.04,.02,1,1,1.4)
    1.4)= S DIH=$G(^BUSA(9002319.04,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=9002319.04,DIG=.03 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BUSA(9002319.04,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() X ^DD(9002319.04,.02,1,1,2.4)
    2.4)= S DIH=$G(^BUSA(9002319.04,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=9002319.04,DIG=.03 D ^DICR
    CREATE VALUE)= S X=$$NOW^XLFDT()
    DELETE VALUE)= S X=$$NOW^XLFDT()
    FIELD)= #.03
  • CROSS-REFERENCE:  ^^TRIGGER^9002319.04^.04
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BUSA(9002319.04,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^BUSA(9002319.04,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=9002319.04,DIG=.04 D ^DIC
    R
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BUSA(9002319.04,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^BUSA(9002319.04,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=9002319.04,DIG=.04 D ^DIC
    R
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= S X=DUZ
    FIELD)= #.04
.03 SETTING DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 06, 2013
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the LOGGING STATUS field of the BUSA SWITCH SETTINGS File
  • RECORD INDEXES:  C (#480)
.04 USER 0;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 06, 2013
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the LOGGING STATUS field of the BUSA SWITCH SETTINGS File
.05 DISABLE COMMENT 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>120!($L(X)<3) X
  • LAST EDITED:  MAR 06, 2013
  • HELP-PROMPT:  Answer must be 3-120 characters in length.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All