See below ----- Original Message ----- From: "Jim Self" <[EMAIL PROTECTED]> To: <hardhats-members@lists.sourceforge.net> Sent: Wednesday, June 28, 2006 2:09 AM Subject: Re: [Hardhats-members] Delete notes in HUI OV4 and SemiVivA0.4
> Usha, > The code that you have there is very different from what I see in older distributions of > VistA such as this example from semiviva 0.4 > (http://vista.vmth.ucdavis.edu/rtn/TIUXRC2.html). The reference to "AVSIT" for example > does not occur until TIUXRC2+20 This routine is from the Hui OV4. > > The first line of your routine has a date and time that suggests that the routine was > generated or edited just today. Did you put that in when you commented the END label? Yesterday, I tried editing the routine to comment the GOTO statement at the END label. After doing this, notes could be deleted. TIUXRC2 ; COMPILED XREF FOR FILE #8925 ; 6/27/06 6:09pm 2 ; END ;G ^TIUXRC2 > > The GOTO ^TIUXRC2 is clearly a bug. I would guess it was intended to G ^TIUXRC3, but not > tested carefully - and unfortunately, not commented either. > What can be done about it? > Usha wrote: > >After interrupting the process, the dump file created was > > > >.... > >$ZJOB=0 > >$ZLEVEL=7 > >$ZMAXTPTIME=0 > >$ZMODE="INTERACTIVE" > >$ZPOSITION="END^TIUXRC2" > >$ZPROCESS="" > >$ZPROMPT="GTM>" > >.... > > > > > >On routine END^TIUXRC2 lookup, > > > > TIUXRC2 ; COMPILED XREF FOR FILE #8925 ; 6/27/06 6:09pm > >2 ; > > END G ^TIUXRC2 > >4 I X'="" I > >+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,3),+ > > $P($G(^TIU(8925,+DA,0)),U,5) K > >^TIU(8925,"AVSIT",+$P(^TIU(8925,+DA,0) > > > >,U,3),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),D > > A) > >5 S X=$P(DIKZ(13),U,1) > >.......... > > > >The first three lines indicate an infinite loop. After commenting the GOTO > >statement on the third line, the notes are being deleted. > > > >The END label the TIUXRC2 routine was directing to ^TIUXRC3 routine in VOE. > >What could this be doing? > > > >Are there any other differences like these in VOE and GT.M version of VistA? > > > >Regards > >Usha > > --------------------------------------- > Jim Self > Systems Architect, Lead Developer > VMTH Computer Services, UC Davis > (http://www.vmth.ucdavis.edu/us/jaself) > --------------------------------------- > M2Web Demonstration with VistA > (http://vista.vmth.ucdavis.edu/) > (http://openforum.worldvista.org/~forum/m.cgi) > --------------------------------------- > > 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 > > > Regards Usha 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
