| 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).
|
