Print Page as PDF
ENGINEERING XREF CLEAN UP ICR (1245)

ENGINEERING XREF CLEAN UP    ICR (1245)

Name Value
NUMBER 1245
IA # 1245
FILE NUMBER 6914
GLOBAL ROOT DD(6914
DATE CREATED 1995/07/20
CUSTODIAL PACKAGE VA FILEMAN
CUSTODIAL ISC San Francisco
USAGE Private
TYPE File
DBIC APPROVAL STATUS APPROVED
NAME ENGINEERING XREF CLEAN UP
GENERAL DESCRIPTION
Engineering exported a series of cross references in
the Equipment Inv (#6914) file to support the upload of equipment data to the
ISMS system.  These mumps cross references were never activated because the
ISMS system was not brought on line. These cross references are now obsolete
and should be removed from the Equipment Inv file.

The following cross references will be deleted with patch EN*7*25 using code
in a PRE-INIT AFTER USER COMMIT routine.

CROSS-REFERENCE   FIELD #  FIELD NAME
---------------   -------  ----------------------
AI1               1        MANUFACTURER
AI2               2        PARENT SYSTEM
AI27              4        MODEL
AI3               5        SERIAL #
AI0               7        TYPE OF ENTRY
AI5               10       VENDOR POINTER
AI6               11       PURCHASE ORDER #
AI7               12       ACQUISITION VALUE
AI8               12.5     LEASE COST
AI9               13       ACQUISITION DATE
AI10              13.5     ACQUISITION SOURCE
AI11              15       LIFE EXPECTANCY
AI12              16       REPLACEMENT DATE
AI13              18       CATEGORY STOCK NUMBER
AI26              19       CMR
AI14              20       USE STATUS
AI15              20.1     OWNERSHIP
AI16              20.5     TURN-IN DATE
AI17              22       DISPOSITION DATE
AI18              23       PHYSICAL INVENTORY DATE
AI19              31       DISPOSITION METHOD
AI20              32       DISPOSITION VALUE
AI21              33       CONTROLLED ITEM?
AI22              34       CAPITALIZED?
AI23              36       COST CENTER
AI24              38       GENERAL LEDGER ACCOUNT
AI25              39       YALD CODE
AI28              51       REPLACING (ENTRY NUMBER)


Code similar to the following will be used in the pre-init to delete the cross
references from the data dictionary.

ENXGIPR ;WIRMFO/SAB-PRE INIT ;7/21/95
;;7.0;ENGINEERING;**25**;Aug 17, 1993
N ENFX
Q:'$D(DIFROM)
W !,"Performing Pre-Init...",!
XREF    ; delete any obsolete ISMS cross references
W !,"Deleting obsolete xrefs from Equipment Inv (#6914) file..."
F ENFX="1^AI1","2^AI2","4^AI27","5^AI3","7^AI0","10^AI5",
"11^AI6","12^AI 7","12.5^AI8","13^AI9","13.5^AI10" D DELXREF
($P(ENFX,U),$P(ENFX,U,2))
F ENFX="15^AI11","16^AI12","18^AI13","19^AI26","20^AI14"
,"20.1^AI15","20.5^AI16","22^AI17" D DELXREF($P(ENFX,U),$P(ENFX,U,2))
F ENFX="23^AI18","31^AI19","32^AI20","33^AI21","34^AI22",
"36^AI23","38^AI24","39^AI25","51^AI28" D DELXREF($P(ENFX,U),$P(ENFX,U,2))
XREFEND ; end of delete obsolete ISMS cross references
EXIT    ;
W !,"Completed Pre-Init",!
Q
DELXREF(ENF,ENX)        ; for field number ENF delete xref ENX
N ENI
Q:'$D(^DD(6914,0,"IX",ENX,6914,ENF))  ; already deleted
S ENI=0 F  S ENI=$O(^DD(6914,ENF,1,ENI)) Q:'ENI  D
.K:$G(^DD(6914,ENF,1,ENI,0))=("6914^"_ENX_"^MUMPS")
^DD(6914,ENF,1,ENI)
K ^DD(6914,0,"IX",ENX,6914,ENF)
K:'$O(^DD(6914,ENF,1,0)) ^DD(6914,"IX",ENF) ; no xrefs left on field
W !,"  ",ENX," xref deleted from field ",ENF
Q

The following DD nodes may be deleted

^DD(6914,field number,1,ien for xref)

^DD(6914,0,"IX",xref,6914,field number)

^DD(6914,"IX",field number)  This will only be done if there are no cross
references left on the field. (i.e. '$O(^DD(6914,field number,1,0)) is true).
STATUS Active
DURATION Next Version
ID DD(6914
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
ENGINEERING Washington/Silver Spring
GOOD ONLY FOR VERSION 7.0