704.118 (959)    INDEX (.11)

Name Value
FILE 704.118
NAME PK
DESCRIPTION
This provides a quick index of unique observation/qualifier pairs.
SHORT DESCRIPTION Uniqueness Index for Key 'A' of File #704.118
TYPE REGULAR
EXECUTION RECORD
ACTIVITY IR
USE LOOKUP & SORTING
ROOT TYPE INDEX FILE
ROOT FILE 704.118
SET LOGIC S ^MDC(704.118,"PK",$E(X(1),1,38),$E(X(2),1,38),DA)=""
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   704.118
    FIELD:   .01
    MAXIMUM LENGTH:   38
  • ORDER NUMBER:   2
    SUBSCRIPT NUMBER:   2
    TYPE OF VALUE:   FIELD
    FILE:   704.118
    FIELD:   .02
    MAXIMUM LENGTH:   38
KILL LOGIC K ^MDC(704.118,"PK",$E(X(1),1,38),$E(X(2),1,38),DA)
KILL ENTIRE INDEX CODE K ^MDC(704.118,"PK")