704.121 (964)    INDEX (.11)

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