440.5 (56)    INDEX (.11)

Name Value
FILE 440.5
NAME J
DESCRIPTION
This cross-reference will combine the fields #15 (STATION NUMBER) and #9
(ALTERNATE APPROVING OFFICIAL). This cross-reference is used in the
routine PRCHURP for screening purposes.
SHORT DESCRIPTION Combined cross-reference for fields #15 and #9.
TYPE REGULAR
EXECUTION RECORD
ACTIVITY I
USE LOOKUP & SORTING
ROOT TYPE INDEX FILE
ROOT FILE 440.5
SET LOGIC S ^PRC(440.5,"J",$E(X(1),1,5),$E(X(2),1,10),DA)=""
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   440.5
    FIELD:   15
    MAXIMUM LENGTH:   5
    COLLATION:   forwards
    LOOKUP PROMPT:   STATION NUMBER
  • ORDER NUMBER:   2
    SUBSCRIPT NUMBER:   2
    TYPE OF VALUE:   FIELD
    FILE:   440.5
    FIELD:   9
    MAXIMUM LENGTH:   10
    COLLATION:   forwards
    LOOKUP PROMPT:   ALTERNATE APPROVING OFFICIAL
KILL LOGIC K ^PRC(440.5,"J",$E(X(1),1,5),$E(X(2),1,10),DA)
KILL ENTIRE INDEX CODE K ^PRC(440.5,"J")