| GENERAL DESCRIPTION |
Registration is requesting to export New Style-Cross References to
registration files by setting the ^DD("IX" global nodes of the INDEX file
using UPDATE^DIE and WP^DIE. This methodology allows us to create New Style
cross-references without exporting the field itself. Listed below is an
example how the Filer Array would be populated.
;Create filer array
S DGFDA(.11,"+1,",.01)= ;FILE NUMBER
S DGFDA(.11,"+1,",.02)= ;X-REF NAME
S DGFDA(.11,"+1,",.11)="This X-ref invokes DG FIELD MONITOR "
;SHORT
DESCRIPTION
S DGFDA(.11,"+1,",.2)= ;TYPE
S DGFDA(.11,"+1,",.4)= ;EXECUTION
S DGFDA(.11,"+1,",.41)= ;ACTIVITY
S DGFDA(.11,"+1,",.5)= ;ROOT TYPE
S DGFDA(.11,"+1,",.51)= ;ROOT FILE NUMBER
S DGFDA(.11,"+1,",.42)= ;USE
S DGFDA(.11,"+1,",1.1)= ;SET LOGIC
S DGFDA(.11,"+1,",2.1)= ;KILL LOGIC
;CROSS REFERENCE VALUES
S DGFDA(.114,"+2,+1,",.01)= ;ORDER NUMBER
S DGFDA(.114,"+2,+1,",1)= ;TYPE OF VALUE
S DGFDA(.114,"+2,+1,",2)= ;FILE NUMBER
S DGFDA(.114,"+2,+1,",3)= ;FIELD NUMBER
S DGFDA(.114,"+2,+1,",7)= ;COLLATION
;DESCRIPTION
S DGWP(1)="This cross reference activates the DG FIELD MONITOR event
point."
S DGWP(2)="Applications that wish to monitor edit activity related to
this field may"
S DGWP(3)="subscribe to that event point and take action as indicated
by the changes"
S DGWP(4)="that occur. Refer to the DG FIELD MONITOR protocol for a
description of"
S DGWP(5)="the information available at the time of the event."
;File INDEX record
D UPDATE^DIE("","DGFDA","DGIEN","DGERR")
I $D(DIERR) D Q ;CHECK FOR ERROR
.N DGI S DGI=""
.F S DGI=$O(DGERR("DIERR",1,"TEXT",DGI)) Q:DGI="" D
..D MES^XPDUTL(DGERR("DIERR",1,"TEXT",DGI)) ;DISPLAY ERROR
..Q
.Q
;File DESCRIPTION field
D WP^DIE(.11,DGIEN(1)_",",.1,"","DGWP") ;FILE DESCRIPTION
Q
|
