2 (592)    INDEX (.11)

Name Value
FILE 2
NAME ANAM2401
DESCRIPTION
This cross reference uses Kernel name standardization APIs to keep the NAME
COMPONENTS (#20) file record associated with the #.2401 field synchronized
with the data value stored in that field.
SHORT DESCRIPTION This index keeps the NAME COMPONENTS file in synch with field #.2401.
TYPE MUMPS
EXECUTION FIELD
ACTIVITY IR
USE ACTION
ROOT TYPE INDEX FILE
ROOT FILE 2
SET LOGIC I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.2401,.DG20NAME,1.04,+$P($G(^DPT(DA,"NAME")),U,4),"CL35") K DG20NAME Q
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   2
    FIELD:   .2401
    COLLATION:   forwards
KILL LOGIC I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.2401,1.04) Q