Re: [Hardhats-members] A step away from roll-n-scroll

T Maynard Thu, 16 Dec 2004 17:33:23 -0800

Kevin,

I am trying to understand the ergonomic goal here. I see that rollNscroll builds from the bottom of the screen, but I find the accumulated history that remains higher in the screen to be helpful. On the other hand I see that clearing the screen prior to loading a new list will increase the capacity, but it doesn't seem that it would guarantee a showing of all of a large list of options arranged as a "menu" offering. Aside from understanding your goal here, I wonder if you would also share the basis of motivation.

In the current context of your development/deployment how much of the motivation is derived from each of these?: 1. from personal use of the menus 2. from reaction/critique by your non-provider office staff during review 3. from providers at your site, for whom you ran a formal VistA presentation recently

Thanks
Rusty

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

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

Re: [Hardhats-members] A step away from roll-n-scroll

Reply via email to