I found it.
^%ZOSF("OS")="GT.M (Unix)^19"
Kevin
--- Kevin Toppenberg <[EMAIL PROTECTED]> wrote:
> Excellent.... even for a manager. LOL!
>
> Now, can someone save me the time of coding the
> guard.
> I.e. what do I do to determine if the current
> system
> is GTM?
>
> Thanks
> Kevin
>
>
> --- "K.S. Bhaskar" <[EMAIL PROTECTED]> wrote:
>
> > It is always dangerous when managers write code.
> > They probably got
> > promoted because they couldn't write code to start
> > with... Anyway, the
> > quick way to make this work when you need it is as
> > follows. Before
> > running anything that calls ^XPDR, do the
> following:
> >
> > mumps -dir
> > GTM>D ^%RSEL
> >
> > Routine: *
> >
> > ... <runs for a few seconds listing the routines>
> > ...
> > ZTMS0 ZTMS1 ZTMS2 ZTMS3 ZTMS4
> > ZTMS5 ZTMS7
> > ZTMSH ZTP1 ZTPP ZTPTCH ZTRDEL
> > ZTRTHV ZU
> > ZUA ZUDTM ZUMSM ZUMSQ ZUONT
> > ZUSET ZUVXD
> > Current total of 23149 routines.
> >
> > Routine:
> >
> > GTM>
> >
> > Now the local variable %ZR has an entry for each
> > routine, thus:
> >
> > GTM>ZWR
> >
> > ... <output truncated for brevity> ...
> > %ZR("ZUMSQ")="/usr/local/OpenVistA/r/"
> > %ZR("ZUONT")="/usr/local/OpenVistA/r/"
> > %ZR("ZUSET")="/usr/local/OpenVistA/r/"
> > %ZR("ZUVXD")="/usr/local/OpenVistA/r/"
> >
> > GTM>
> >
> > So, instead of the line of code:
> > .S XPDJ=XPDI D:$D(^$R(XPDJ)) F S
> > XPDJ=$O(^$R(XPDJ))
> > Q:XPDJ=""!($P(XPDJ,XPDI)]"") D
> >
> > something like the following should work instead:
> > .S XPDJ=XPDI D:$D(%ZR(XPDJ)) F S
> > XPDJ=$O(%ZR(XPDJ))
> > Q:XPDJ=""!($P(XPDJ,XPDI)]"") D
> >
> > It should be fairly easy (but more than I can do
> in
> > 5 minutes right now)
> > to add a label to ^%RSEL that doesn't prompt for
> > input but takes a
> > string as a parameter, so that a construct like DO
> > NOINT^%RSEL("*")
> > could be used to populate %ZR instead of doing it
> > interactively.
> >
> > Watch out for line breaks in the above.
> >
> > -- Bhaskar
> >
> > On Mon, 2005-07-25 at 15:05 -0500, Bhaskar, KS
> > wrote:
> > > You're right. The line of code:
> > >
> > > .S XPDJ=XPDI D:$D(^$R(XPDJ)) F S
> > XPDJ=$O(^$R(XPDJ))
> > > Q:XPDJ=""!($P(XPDJ,XPDI)]"") D
> > >
> > > is not protected and cannot execute on GT.M.
> What
> > are the semantics
> > > of
> > > ^$R(XPDJ)? Does it return the next routine in
> the
> > list of routines?
> > > It
> > > should be a pretty quick fix.
> > >
> > > -- Bhaskar
> > >
> > > On Mon, 2005-07-25 at 14:41 -0500, Greg
> Woodhouse
> > wrote:
> > > > Look at UPDT^XPDR on your system. On mine, at
> > least, the code to
> > > > $ORDER
> > > > through ^$ROUTINE isn't protected by any check
> > to see if the
> > > platform
> > > > is GT.M.
> > >
> > >
> > >
> > >
> >
>
-------------------------------------------------------
> >
> > > SF.Net email is sponsored by: Discover Easy
> Linux
> > Migration
> > > Strategies
> > > from IBM. Find simple to follow Roadmaps,
> > straightforward articles,
> > > informative Webcasts and more! Get everything
> you
> > need to get up to
> > > speed, fast.
> >
>
http://ads.osdn.com/?ad_id=7477&alloc_id=16492&op=click
> >
> > > _______________________________________________
> > > Hardhats-members mailing list
> > > Hardhats-members@lists.sourceforge.net
> > >
> >
>
https://lists.sourceforge.net/lists/listinfo/hardhats-members
> > >
> >
> >
> >
> >
>
-------------------------------------------------------
> > SF.Net email is sponsored by: Discover Easy Linux
> > Migration Strategies
> > from IBM. Find simple to follow Roadmaps,
> > straightforward articles,
> > informative Webcasts and more! Get everything you
> > need to get up to
> > speed, fast.
> >
>
http://ads.osdn.com/?ad_id=7477&alloc_id=16492&op=click
> > _______________________________________________
> > Hardhats-members mailing list
> > Hardhats-members@lists.sourceforge.net
> >
>
https://lists.sourceforge.net/lists/listinfo/hardhats-members
> >
>
>
> __________________________________________________
> Do You Yahoo!?
> Tired of spam? Yahoo! Mail has the best spam
> protection around
> http://mail.yahoo.com
>
>
>
-------------------------------------------------------
> SF.Net email is sponsored by: Discover Easy Linux
> Migration Strategies
> from IBM. Find simple to follow Roadmaps,
> straightforward articles,
> informative Webcasts and more! Get everything you
> need to get up to
> speed, fast.
>
http://ads.osdn.com/?ad_id=7477&alloc_id=16492&op=click
> _______________________________________________
> Hardhats-members mailing list
> Hardhats-members@lists.sourceforge.net
>
https://lists.sourceforge.net/lists/listinfo/hardhats-members
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
-------------------------------------------------------
SF.Net email is sponsored by: Discover Easy Linux Migration Strategies
from IBM. Find simple to follow Roadmaps, straightforward articles,
informative Webcasts and more! Get everything you need to get up to
speed, fast. http://ads.osdn.com/?ad_id=7477&alloc_id=16492&op=click
_______________________________________________
Hardhats-members mailing list
Hardhats-members@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hardhats-members
