The OpenVistA system I downloaded contains about 30
users pre-installed.  And while I am honored by the
presence of prestigious users such as Norman Dodd, I
don't want them as users in my production system.

We've talked about this before, and the answer I got
was that they should not be deleted because there are
so many places that reference the file, that it would
cause huge numbers of dangling record pointers.

But I have seen that Fileman has a built-in
functionality to deal with this issue.  It asks if it
should scan the database and fix all such errors.  One
can opt to delete the reference, or change the
reference to another record.  So I decided to do this
(on a practice system) and see how it went.

The first issue to deal with was why Fileman would not
allow me to delete the record when I tried.  A little
research revealed that the presence of this global
file entry was the limiting factor:

^DD(200,.01,"DEL",1,0)="I 1 W *7,""  PERSONS CAN'T BE
DELETED!"""

So I carefully copied this node to a safe place, and
then killed the node in ^DD.  And suddenly persons CAN
be deleted.

So I went back into fileman to test this out.  Below
is me killing a user named "USER,TEST"

Select NEW PERSON NAME: user  USER,TEST       u1
NAME: USER,TEST// @
   SURE YOU WANT TO DELETE THE ENTIRE 'USER,TEST' NEW
PERSON? y  (Yes)
SINCE THE DELETED ENTRY MAY HAVE BEEN 'POINTED TO'
BY ENTRIES IN THE 'IMPORT TEMPLATE' FILE, ETC.,
DO YOU WANT THOSE POINTERS UPDATED (WHICH COULD TAKE
QUITE A WHILE)? No// y
  (Yes)
WHICH DO YOU WANT TO DO? --
    1) DELETE ALL SUCH POINTERS
    2) CHANGE ALL SUCH POINTERS TO POINT TO A
DIFFERENT 'NAME COMPONENTS' ENTRY

CHOOSE 1) OR 2): 2
THEN PLEASE INDICATE WHICH ENTRY SHOULD BE POINTED TO
Select NEW PERSON NAME: irm  IRM,MGR       CJS
    (RE-POINTING WILL OCCUR WHEN YOU LEAVE
'ENTER/EDIT' OPTION)

I repointed all the dangling pointers to "IRM" which
is record#1 in my system, and I plan on leaving this
one in.  After done selecting those users to delete,
it scans through all relevent files and deletes all
the pointers.  Great!

A few problems though:
1. In the past, I have had problems with the
pointer-fixing system crashing when it got to the
immunology section.  It would complain that I didn't
have the correct keys.  So here are the keys I have
now, and it doesn't do that anymore.
IMRA,IMRMGR,XUMGR,XUPROG,XUPROGMODE
2. When I first did the procedure outlined above,
everything worked great.  All the files were scanned
and all pointers fixed.  Then I got brave and entered
15-20 names at one time for it to scan for.  I then
got a crash like this:

LAB ORDER ENTRY entries whose 'CANCELED BY' pointers
have been changed
                                               DEC
15,2004  05:36    PAGE 1
--------------------------------------------------------------------------------



   MAY 20, 2004

%GTM-E-STACKCRIT, Stack space critical
%GTM-E-ERRWZTRAP, Error while processing $ZTRAP

GTM>


So my recommendation would be not to delete more than
a few uses at one time.  My practice system is
probably scrambled now because the above crash didn't
completely remove dangling pointers, and there is no
way (that I know of) to resume.  I tried zcontinue,
but it again gives me the same error a second time.

So I have wanted to know how to do this for awhile,
and I wanted to share with others what I have learned.

I wouldn't recommend doing this one a system that has
real information loaded into it.  For example, if
Doctor X creates a progress note, and then she is
deleted, it might end up looking like someone else
wrote the note.  That would be tampering with medical
records which is a big no-no.

And be sure to put back the "DEL" node into ^DD(200,
after this hack is done.

Happy Holidays!
Kevin


                
__________________________________ 
Do you Yahoo!? 
Send holiday email and support a worthy cause. Do good. 
http://celebrity.mail.yahoo.com


-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now. 
http://productguide.itmanagersjournal.com/
_______________________________________________
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members

Reply via email to