375 (629)    INDEX (.11)

Name Value
FILE 375
NAME AF
DESCRIPTION
S ^IBBAA(375,"AF",X1,X3,X2,DA)=""
   where:  X1=field #.03
           X2=field #16.01
           X3=field #1.44
SHORT DESCRIPTION Set critical "AF" cross-reference.
TYPE REGULAR
EXECUTION RECORD
ACTIVITY IR
USE SORTING ONLY
ROOT TYPE INDEX FILE
ROOT FILE 375
SET LOGIC S ^IBBAA(375,"AF",X(1),X(2),$E(X(3),1,30),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:   16.01
    MAXIMUM LENGTH:   30
    COLLATION:   forwards
KILL LOGIC K ^IBBAA(375,"AF",X(1),X(2),$E(X(3),1,30),DA)
KILL ENTIRE INDEX CODE K ^IBBAA(375,"AF")