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

DD(393,10.04

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 ^