Name | Value | ||||
---|---|---|---|---|---|
NUMBER | 3404 | ||||
IA # | 3404 | ||||
FILE NUMBER | .11 | ||||
GLOBAL ROOT | DD( | ||||
DATE CREATED | 2001/06/01 | ||||
CUSTODIAL PACKAGE | VA FILEMAN | ||||
CUSTODIAL ISC | Albany | ||||
USAGE | Private | ||||
TYPE | File | ||||
DBIC APPROVAL STATUS | APPROVED | ||||
NAME | UPDATE NEW-STYLE X-REF ONLY | ||||
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 |
||||
GLOBAL REFERENCE | DD('IX' | ||||
STATUS | Active | ||||
KEYWORDS | UPDATE DIE | ||||
DURATION | Till Otherwise Agreed | ||||
ID | DD( | ||||
SUBSCRIBING PACKAGE |
|