870 (95)    INDEX (.11)

Name Value
FILE 870
NAME AD
SHORT DESCRIPTION Used to find the link over which to send the application acknowledgment.
TYPE MUMPS
EXECUTION RECORD
ACTIVITY IR
USE ACTION
ROOT TYPE INDEX FILE
ROOT FILE 870
SET LOGIC D SET1^HLOTLNK(X(1),X(3))
SET CONDITION CODE S X=0 I X(4)="C",X(2),$P($G(^HLCS(869.1,X(2),0)),"^")="TCP" S X=1
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   870
    FIELD:   .01
    MAXIMUM LENGTH:   30
    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:   .03
    COLLATION:   forwards
  • ORDER NUMBER:   4
    SUBSCRIPT NUMBER:   4
    TYPE OF VALUE:   FIELD
    FILE:   870
    FIELD:   400.03
    COLLATION:   forwards
KILL LOGIC D KILL1^HLOTLNK(X(1),X(3))
KILL CONDITION CODE S X=0 I X(4)="C",X(2),$P($G(^HLCS(869.1,X(2),0)),"^")="TCP" S X=1