PXXDPT - File 9000001    ICR (4601)

My patch originated because user's were unable to
perform the check out process on certain encounters.  We couldn't find the
source of the problem but we found out how to fix the encounters so that the
check out could be done. (The main problem was that you had Appt's pointing to
an encounter that did not have a pointer to a visit. Somehow the visit entry
did not get created along with the encounter as it should have.)

Now, during site testing we found some that still couldn't be checked out.
This was because of bad pointers in the IHS/Patient file (9000001).

After fixing this file, everything checked out properly.  When we found that,
after looking into further we found that this patient file was also causing
the initial problem of the visit not being created when the encounter is
created.  I then found some existing routine (PXXDPT)  that builds/re-build
this patient file.

So, I've changed my fix utility (PXDELENC/PXDELFIX) to repair or build the
entries in the IHS/Patient file (9000001) also.  And, here's where to
agreement comes into play. I want to put a check in the SD routine SDCO1 to
check this IHS/Patient file (9000001) file and if it needs repaired go ahead
and repair just before the check out process so that the check out would then
run with out issues.

May agreement will be between SD and PCE.  My routine is PXDELFIX and there is
a FIXIHS line tag that does a couple calls to the PXXDPT routine.