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

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 1

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