Wise man says that fools rush in ....
Kevin :-)
--- Greg Kreis <[EMAIL PROTECTED]> wrote:
> Oh no... he's dangerous now... what have we
> wrought?
>
>
> ;-) ;-)
>
> Kevin Toppenberg wrote:
>
> >Hello all,
> >
> >I have decided that I prefer to have the menu
> options
> >in VistA to clear the screen each time, and show
> their
> >full menu options. This seem more like GUI/CHUI
> >applications.
> >
> >To achieve this, I first tried adding WRITE @IOF to
> >the open execute of each menu option. But there
> are
> >9000 some options, and I didn't want to write a
> script
> >to add this code arbitrarily and automaticaly.
> >
> >So this is how I have discovered to do it, if
> anyone
> >is interested:
> >
> >In the code module XQ.m add 3 lines as follows.
> The
> >first lines are the code that is already there.
> Look
> >down below for the simply "write" lines that I
> added:
> >
> >M I '$D(XQVOL) S XQVOL=$G(^XUTL("XQ",$J,"XQVOL")) I
> >'$L(XQVOL) D GETENV^%ZOSV S XQVOL=$P(Y,U,2)
> > I $G(^%ZIS(14.5,"LOGON",XQVOL)) S XQNOLOG="" G
> H^XUS
> > S:$S('$D(XQY0):1,'$L(XQY0):1,1:0)
> XQY0=^DIC(19,XQY,0)
> >S XQT=$P(XQY0,U,4) G:XQT="" M3 K:'$D(XQJS) XQUR K
> >X,XQNOGO,XQR,XQUIT,XQUEFLG ;,XQSV
> > I $D(XQAUDIT),XQAUDIT D LOGOPT^XQ12
> > I $P(XQY0,U,18) D CHKQUE^XQ92 I XQUEFLG S
> XQNOGO=""
> > ;
> > write @IOF ;"KT Added these 3 lines 12-9-04
> > write " WorldVistA Menu Option System",!
> > write " =============================",!
> > ;Execute the Entry Action and look for XQUIT
> > D:'$D(XQM3)&("LOQX"'[XQT) LO K XQM3 I $D(XQUIT) D
> > .S XQUIT=0
> > .D ^XQUIT
> > .Q
> > ;
> >
> >
> >Kevin
> >
> >
> >
> >__________________________________
> >Do you Yahoo!?
> >The all-new My Yahoo! - What will yours do?
> >http://my.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
> >
> >
> >
>
> --
> Greg Kreis http://www.PioneerDataSys.com
>
> "The future is here. It's just not widely
> distributed yet." -William Gibson
>
>
>
>
>
-------------------------------------------------------
> 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
>
__________________________________
Do you Yahoo!?
Yahoo! Mail - Find what you need with new enhanced search.
http://info.mail.yahoo.com/mail_250
-------------------------------------------------------
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
