58.63 (1378)    INDEX (.11)

Name Value
FILE 58.63
NAME C
DESCRIPTION
This cross reference enforces the uniquess of PADE devices with duplicate 
names. While this file may contain multiple PADE dispensing devices with
the same NAME (.01) field value, each duplicate name must remain unique 
by being associated with a different PADE INVENTORY SYSTEM (#58.601)
file entry.
SHORT DESCRIPTION Uniqueness Index for Key 'A' of File #58.63
TYPE REGULAR
EXECUTION RECORD
ACTIVITY IR
USE LOOKUP & SORTING
ROOT TYPE INDEX FILE
ROOT FILE 58.63
SET LOGIC S ^PS(58.63,"C",X(1),X(2),DA)=""
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   58.63
    FIELD:   .01
  • ORDER NUMBER:   2
    SUBSCRIPT NUMBER:   2
    TYPE OF VALUE:   FIELD
    FILE:   58.63
    FIELD:   1
KILL LOGIC K ^PS(58.63,"C",X(1),X(2),DA)
KILL ENTIRE INDEX CODE K ^PS(58.63,"C")