55 (415)    INDEX (.11)

Name Value
FILE 55
NAME ACX1
DESCRIPTION
This cross-reference builds an index used for finding
all child orders associated with a particular CPRS
parent order. The indexes are stored as
 ^PS(55,"ACX",PARENT,ON)
SHORT DESCRIPTION Complex Order index.
TYPE MUMPS
EXECUTION RECORD
ACTIVITY IR
USE SORTING ONLY
ROOT TYPE WHOLE FILE
ROOT FILE 55.01
SET LOGIC S ^PS(55,"ACX",$E(X(1),1,30),$E(X(2),1,30),DA_"V")=""
SET CONDITION CODE S X=1
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   55.01
    FIELD:   150
    COLLATION:   forwards
  • ORDER NUMBER:   2
    SUBSCRIPT NUMBER:   2
    TYPE OF VALUE:   FIELD
    FILE:   55.01
    FIELD:   110
    COLLATION:   forwards
KILL LOGIC K ^PS(55,"ACX",$E(X(1),1,30),$E(X(2),1,30),DA_"V")
KILL CONDITION CODE S X=1
KILL ENTIRE INDEX CODE K ^PS(55,"ACX")