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")