375 (628)    INDEX (.11)

Name Value
FILE 375
NAME AC
DESCRIPTION
S ^IBBAA(375,"AC",X1,X3,X2,DA)=""
   where:  X1=field #.03
           X2=field #1.03
           X3=field #1.44
SHORT DESCRIPTION Set and kill the critical "AC" cross-reference.
TYPE REGULAR
EXECUTION RECORD
ACTIVITY IR
USE SORTING ONLY
ROOT TYPE INDEX FILE
ROOT FILE 375
SET LOGIC S ^IBBAA(375,"AC",X(1),X(2),X(3),DA)=""
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   375
    FIELD:   .03
    COLLATION:   forwards
  • ORDER NUMBER:   2
    SUBSCRIPT NUMBER:   2
    TYPE OF VALUE:   FIELD
    FILE:   375
    FIELD:   1.44
    COLLATION:   forwards
  • ORDER NUMBER:   3
    SUBSCRIPT NUMBER:   3
    TYPE OF VALUE:   FIELD
    FILE:   375
    FIELD:   1.03
    COLLATION:   forwards
KILL LOGIC K ^IBBAA(375,"AC",X(1),X(2),X(3),DA)
KILL ENTIRE INDEX CODE K ^IBBAA(375,"AC")