Print Page as PDF
UPDATE NEW-STYLE X-REF ONLY ICR (3404)

UPDATE NEW-STYLE X-REF ONLY    ICR (3404)

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
SUBSCRIBING PACKAGE ISC
REGISTRATION Albany
EDITOR BENNETT,FLETCHER
MAIL MESSAGE 32961725
Generated from JAN 24, 2019@ IA Listing Descriptions