870 (108)    INDEX (.11)

Name Value
FILE 870
NAME AD2
SHORT DESCRIPTION Used to find the link overwhich to send an application acknowledgment.
TYPE MUMPS
EXECUTION RECORD
ACTIVITY IR
USE ACTION
ROOT TYPE INDEX FILE
ROOT FILE 870
SET LOGIC D SET3^HLOTLNK(X(1),X(3))
SET CONDITION CODE S X=0 I X(2),$P($G(^HLCS(869.1,X(2),0)),"^")="HLLP" S X=1
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   870
    FIELD:   .01
    COLLATION:   forwards
  • ORDER NUMBER:   2
    SUBSCRIPT NUMBER:   2
    TYPE OF VALUE:   FIELD
    FILE:   870
    FIELD:   2
    COLLATION:   forwards
  • ORDER NUMBER:   3
    SUBSCRIPT NUMBER:   3
    TYPE OF VALUE:   FIELD
    FILE:   870
    FIELD:   200.01
    COLLATION:   forwards
KILL LOGIC D KILL3^HLOTLNK(X(1),X(3))
KILL CONDITION CODE S X=0 I X(2),$P($G(^HLCS(869.1,X(2),0)),"^")="HLLP" S X=1
KILL ENTIRE INDEX CODE K ^HLCS(870,"AD","HLLP")