704.1123 (942)    INDEX (.11)

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