772 (345)    INDEX (.11)

Name Value
FILE 772
NAME AJ
SHORT DESCRIPTION Removes the record from the AI x-ref if the Fast Purge Date/Time is edited
TYPE MUMPS
EXECUTION FIELD
USE ACTION
ROOT TYPE INDEX FILE
ROOT FILE 772
SET LOGIC Q
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   772
    FIELD:   2.02
    COLLATION:   forwards
KILL LOGIC K:$G(X1(1)) ^HLMA("AI",X1(1),772,+$G(DA))