364.6 (50) INDEX (.11)

Name	Value
FILE	364.6
NAME	ALL
SHORT DESCRIPTION	Allows for identification of local override fields that apply to ALL
TYPE	MUMPS
EXECUTION	FIELD
ACTIVITY	IR
USE	SORTING ONLY
ROOT TYPE	INDEX FILE
ROOT FILE	364.6
SET LOGIC	S ^IBA(364.7,"ALL",DA,X2(5))=""
SET CONDITION CODE	I X2(4)'="L"!'X2(5)!(X2(2)'="")!(X2(3)'="")!'X2(1) S X=0
CROSS-REFERENCE VALUES	ORDER NUMBER: 1 SUBSCRIPT NUMBER: 1 TYPE OF VALUE: FIELD FILE: 364.6 FIELD: .03 COLLATION: forwards ORDER NUMBER: 2 TYPE OF VALUE: COMPUTED VALUE COMPUTED CODE: N Z S Z=+$O(^IBA(364.7,"B",DA,0)) I Z S X=$P($G(^IBA(364.7,Z,0)),U,5) ORDER NUMBER: 3 TYPE OF VALUE: COMPUTED VALUE COMPUTED CODE: N Z S Z=+$O(^IBA(364.7,"B",DA,0)) I Z S X=$P($G(^IBA(364.7,Z,0)),U,6) ORDER NUMBER: 4 TYPE OF VALUE: COMPUTED VALUE COMPUTED CODE: N Z S Z=+$O(^IBA(364.7,"B",DA,0)) I Z S X=$P($G(^IBA(364.7,Z,0)),U,2) ORDER NUMBER: 5 TYPE OF VALUE: COMPUTED VALUE COMPUTED CODE: S X=+$O(^IBA(364.7,"B",DA,0))
KILL LOGIC	K ^IBA(364.7,"ALL",DA,X1(5))
KILL CONDITION CODE	I X1(4)'="L"!'X1(5)!(X1(2)'="")!(X1(3)'="")!'X1(1) S X=0
KILL ENTIRE INDEX CODE	K ^IBA(364.7,"ALL")