Print Page as PDF
DBIA4376 ICR (4376)

DBIA4376    ICR (4376)

Name Value
NUMBER 4376
IA # 4376
FILE NUMBER 393
GLOBAL ROOT DD(393,10.04
DATE CREATED 2004/03/02
CUSTODIAL PACKAGE VA FILEMAN
USAGE Private
TYPE File
DBIC APPROVAL STATUS APPROVED
NAME DBIA4376
GENERAL DESCRIPTION
DGBT*1*1 added a variable pointer L.LOCAL VENDOR to the
TRANSCRIBED BY (#10.04) of the INCOMPLETE RECORDS (#393) file.  Unknowingly to
the developer, the DD entries were not cleaned up properly.  Request killing
off the bad DD node entries to clean up the problem.

Request is one time only.
STATUS Active
DURATION Till Otherwise Agreed
ID DD(393,10.04
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE SUBSCRIBING DETAILS
INCOMPLETE RECORDS TRACKING
Requesting to hard kill the bad node entries in order
to correct the vp's.  DGBT*1*1 is a CoreFLS patch sent out to all sites.  With
only Bay Pines running CoreFLS, inpact is minimal.   Once removed bad vp
entries, worked as advertised.

Bad global listing:

Global ^DD(393,10.04
DD(393,10.04 ^DD(393,10.04,0) = TRANSCRIBED BY^V^^DT;4^Q
^DD(393,10.04,1,0) = ^.1 ^DD(393,10.04,1,1,0) = 393^ATB^MUMPS
^DD(393,10.04,1,1,1) = S DGJFSIG=1 D PHYDEF^DGJTUTL ^DD(393,10.04,1,1,2) = S
DGJFSIG=1 D PHYDEF^DGJTUTL ^DD(393,10.04,1,1,"%D",0) = ^^2^2^2930302^
^DD(393,10.04,1,1,"%D",1,0) = This MUMPS cross reference acts like a trigger
tha t updates the Physician ^DD(393,10.04,1,1,"%D",2,0) = for Deficiency field
in file 393.  ^DD(393,10.04,1,1,"DT") = 2930302 ^DD(393,10.04,3) =
^DD(393,10.04,21,0) = ^.001^1^1^3021216^^^^ ^DD(393,10.04,21,1,0) = Enter the
person or vendor that transcribed this report.  ^DD(393,10.04,23,0) =
^.001^1^1^3021216^^^^ ^DD(393,10.04,23,1,0) =  ^DD(393,10.04,"DT") = 2930302
^DD(393,10.04,"V",0) = ^.12P^3^3 ^DD(393,10.04,"V",1,0) = 200^PERSON^1^P^n^n
^DD(393,10.04,"V",2,0) = 392.31^LOCAL VENDOR^2^L^n^n ^DD(393,10.04,"V",3,0) =
440^VENDOR^3^V^n^n ^DD(393,10.04,"V","B",200,1) =
^DD(393,10.04,"V","B",392.31,2) = ^DD(393,10.04,"V","B",440,2) =         <====
needs removed.  ^DD(393,10.04,"V","B",440,3) = ^DD(393,10.04,"V","M","LOCAL
VENDOR",2) = ^DD(393,10.04,"V","M","PERSON",1) =
^DD(393,10.04,"V","M","VENDOR",2) =     <==== needs removed.
^DD(393,10.04,"V","M","VENDOR",3) = ^DD(393,10.04,"V","O",1,1) =
^DD(393,10.04,"V","O",2,2) = ^DD(393,10.04,"V","O",3,3) =
^DD(393,10.04,"V","P","L",2) = ^DD(393,10.04,"V","P","P",1) =
^DD(393,10.04,"V","P","V",2) =      <==== needs removed.
^DD(393,10.04,"V","P","V",3) = Global ^