779.41 (93)    INDEX (.11)

Name Value
FILE 779.41
NAME AD
SHORT DESCRIPTION Used to determine if the recipient is already on the subscription list.
TYPE MUMPS
EXECUTION FIELD
ACTIVITY IR
USE SORTING ONLY
ROOT TYPE INDEX FILE
ROOT FILE 779.41
SET LOGIC S ^HLD(779.4,DA(1),2,"AD",X2(1),+X2(2),X2(3),DA)=""
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   779.41
    FIELD:   .01
    COLLATION:   forwards
  • ORDER NUMBER:   2
    SUBSCRIPT NUMBER:   2
    TYPE OF VALUE:   COMPUTED VALUE
    COMPUTED CODE:   S X=$$TLINK^HLOASUB(DA(1),DA)
    MAXIMUM LENGTH:   10
    COLLATION:   forwards
  • ORDER NUMBER:   3
    SUBSCRIPT NUMBER:   3
    TYPE OF VALUE:   COMPUTED VALUE
    COMPUTED CODE:   S X=$TR($P(^HLD(779.4,DA(1),2,DA,0),"^",3,5),"^","")
    COLLATION:   forwards
KILL LOGIC K ^HLD(779.4,DA(1),2,"AD",X1(1),+X1(2),X1(3),DA)