Print Page as PDF
DELETE X-REF ON .01 FIELD OF FILE 120.8 ICR (1450)

DELETE X-REF ON .01 FIELD OF FILE 120.8    ICR (1450)

Name Value
NUMBER 1450
IA # 1450
FILE NUMBER 0
GLOBAL ROOT DD(
DATE CREATED 1995/12/13
CUSTODIAL PACKAGE VA FILEMAN
CUSTODIAL ISC San Francisco
USAGE Private
TYPE File
DBIC APPROVAL STATUS APPROVED
NAME DELETE X-REF ON .01 FIELD OF FILE 120.8
GENERAL DESCRIPTION
With the release of Adverse Reaction Tracking v4.0, we
would like to directly kill the "ANKA01" cross-reference on the .01 field of
File 120.8.  In our installation process, we will do the following:
GLOBAL REFERENCE
GLOBAL REFERENCE GLOBAL DESCRIPTION
DD(120.8,.01,1,D0
Direct global read/kill to loop through the
cross-reference multiple of the .01 field of File 120.8 to find and kill the
ANKA01 cross-reference.  D0 is the cross-reference internal entry number.
DD(120.8,.01,1,D0,0)
Direct global read of the second piece of the zero node
to determine the cross-reference name. D0 is the internal entry number of the
cross-reference.
DD(120.8,0,'IX','ANKA01',120.8,.01)
Direct kill of this node.
STATUS Active
DURATION Next Version
ID DD(
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
ADVERSE REACTION TRACKING Hines
GOOD ONLY FOR VERSION 4.0