Sub-Field: 9002026.21101

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

Details

Field # Name Loc Type 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`

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)

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

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

Customize PDF page

Package: IHS Kernel Toolkit Extensions

PARAMETER AUDIT LIST(#9002026.02)-->9002026.21101

Sub-Field: 9002026.21101

Information

Details