801.46 (1669)    INDEX (.11)

Name Value
FILE 801.46
NAME C
DESCRIPTION
This cross reference is used a KEY defintion to make sure the Finding 
Text field is unique for each PACKAGE field entry.
SHORT DESCRIPTION Uniqueness Index for Key 'A' of File #801.46
TYPE REGULAR
EXECUTION RECORD
ACTIVITY IR
USE LOOKUP & SORTING
ROOT TYPE INDEX FILE
ROOT FILE 801.46
SET LOGIC S ^PXRMD(801.46,"C",X(1),X(2),DA)=""
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   801.46
    FIELD:   2
  • ORDER NUMBER:   2
    SUBSCRIPT NUMBER:   2
    TYPE OF VALUE:   FIELD
    FILE:   801.46
    FIELD:   .01
KILL LOGIC K ^PXRMD(801.46,"C",X(1),X(2),DA)
KILL ENTIRE INDEX CODE K ^PXRMD(801.46,"C")