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
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? 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. 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
