Thanks Greg and Chris.
I fixed it with this code:
Kevin
ReIndex
;"Purpose: To recreate the "B" index for the PATIENT file, adding the
entries for aliases.
new index
set index=$ORDER(^DPT(0))
if index>0 for do quit:(+index'>0)
. if $data(^DPT(index,.01,0)) do
. . new alias,IEN2
. . set IEN2=$order(^DPT(index,.01,0))
. . if +IEN2>0 for do quit:(+IEN2'>0)
. . . set alias=$piece($get(^DPT(index,.01,IEN2,0)),"^",1)
. . . if alias'="" set ^DPT("B",alias,index)=1
. . . set IEN2=$order(^DPT(index,.01,IEN2))
. set index=$ORDER(^DPT(index))
quit
On 7/8/06, Gregory Woodhouse <[EMAIL PROTECTED]> wrote:
>
>
>
> On Jul 8, 2006, at 6:11 AM, Kevin Toppenberg wrote:
>
>
>
> Anyway, does anyone have any ideas how to get the "B" index recreated
>
> properly? If I just reindex the file in fileman, I don't think that
>
> the aliases will be added. And come to think of it, maybe this is
>
> what I did at some point to break it in the first place. I am able to
>
> write code to do this manually, but I wonder if there is another way
>
> that this "should" be done.
>
>
>
>
> There may be a utility to rebuild this index documented in the technical
> manuals. Unfortunately, PIMS internals are pretty much outside my area of
> expertise.
>
>
> Gregory Woodhouse
> [EMAIL PROTECTED]
>
-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
Hardhats-members mailing list
Hardhats-members@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hardhats-members
