I do not think this is about GT.M. I think it is about D ^XUP. After you
complete an option by calling it from ^XUP it normally drops you back to the
programmer prompt. Put your option on a menu and do the higher level menu
from ^XUP.
Jim Gray
----- Original Message -----
From: "Kevin Toppenberg" <[EMAIL PROTECTED]>
To: <hardhats-members@lists.sourceforge.net>
Sent: Wednesday, June 22, 2005 11:39 AM
Subject: Re: [Hardhats-members] ??GT.M zsystem changes VistA environment??
GTM>d ^XUP
Setting up programmer environment
Access Code:
Terminal Type set to: C-VT100
Select OPTION NAME: tmg connect TO MEDIC Connect
to Medic
Connect to MedicTrying 192.168.0.10...
Connected to unix (192.168.0.10).
Escape character is '^]'.
telnet (m2334)
AIX Version 4
(C) Copyrights by IBM and by others 1982, 1996.
login: xxxx
xxxx's Password:
*******************************************************************************
*
*
*
*
* Welcome to AIX Version 4!
*
*
*
* Misys Healthcare Systems
*
*
*
*
*
*
*
*******************************************************************************
Last unsuccessful login: Wed Jun 22 12:47:48 EDT 2005
on /dev/pts/2 from 192.168.0.99
Last login: Wed Jun 22 12:54:44 EDT 2005 on /dev/pts/5
from 192.168.0.99
[YOU HAVE NEW MAIL]
Launching /src/CMDS.MEDIC
06/22/05 Misys Healthcare Systems
13:40:14
Applications
**********
**************** P Misys PM
7.0.1
*** *** A AutoChart
4.3.3
*** *** C COMPANION
*** MISYS *** C CODELINK
*** *** E ECS
Subsystem
*** HEALTHCARE *** F Fast
Services
*** *** R Remit
*** SYSTEMS ***
*** ***
*** ***
****************
**********
Miscellaneous Functions
Copyright 1983 Misys Physician Systems M medPgx
LLC d/b/a Misys Healthcare Systems U Utility
______________________________________ S unix
Shell
X eXit this
Menu
Misys PM 7.0.1
Connection closed by foreign host.
Done. Returning to VistA
Press Enter to Continue...
GTM> <---------- Should have gone back to
menu.
--- "K.S. Bhaskar" <[EMAIL PROTECTED]> wrote:
Kevin --
It appears to be working as expected for me (see
below). Could there be
an error generated that is being trapped and sent to
the GTM> prompt for
you? It would help to identify the conditions under
which you are
seeing the anomalous behavior.
-- Bhaskar
----------------------------------------------
bhaskark ~/demo 1:29pm 1029: cat zsytest.m
zsytest W "Making connection...",!
zsy "telnet pinole"
W "Done with connection",!
Q
bhaskark ~/demo 1:29pm 1030: mumps -run ^zsytest
Making connection...
Trying 10.132.37.32...
Connected to pinole.
Escape character is '^]'.
Red Hat Enterprise Linux WS release 3 (Taroon Update
5)
Kernel 2.4.21-27.0.1.ELsmp on an i686
login: kbhaskar
Password:
Last login: Wed Jun 22 13:28:09 from 10.132.38.92
pinole ~ 1:29pm 1000: exit
logout
Connection closed by foreign host.
Done with connection
bhaskark ~/demo 1:30pm 1031:
----------------------------------------------
Kevin Toppenberg wrote:
> I want to make a menu option that allows users to
> connect to our legacy medical record system. It
is
> accessed via a telnet (we're behind a hardware
> firewall, so this unsafe telnet is ok).
>
> I could probably do this in a one-liner, but its
not
> working properly, and I can't tell why. Here is
the
> menu option I created to call my function:
>
>
> NUMBER: 10055 NAME: TMG
> CONNECT TO MEDIC
> MENU TEXT: Connect to Medic TYPE:
action
> CREATOR: TOPPENBERG,KEVIN S PACKAGE:
> MEDICAL GROUP OF GREENEVILLE
> DELEGABLE: YES E ACTION
> PRESENT: YES
> ENTRY ACTION: DO TELNET^TMGMEDIC UPPERCASE
MENU
> TEXT: CONNECT TO MEDIC
>
>
> And here is the function:
>
>
> TELNET
> ;"Purpose: to telnet to medic server (AIX)
>
> new HookCmd
> set HookCmd="telnet medic"
> zsystem HookCmd
>
> write !,!,"Done. Returning to VistA",!
> new temp read "Press Enter to
> Continue...",temp:$get(DTIME,3600),!
>
> quit
>
>
>
> When I execute the function, all is fine. I am
taken
> to a prompt to log into the other computer. That
all
> works fine. When I leave that computer by logging
> off, I then am shown the message "Press Enter to
> Continue..". Thus control has returned to my
function.
> When I press enter, the function quits. At that
> point, I should be taken back to the menu system.
> Instead, I am taken to a GTM prompt. Big problem.
>
> It looks like somehow the GT.M zsystem command is
> changing the call stack, so that the quit doesn't
go
> back to the menu. What's going on?
>
> Kevin
>
>
>
>
>
____________________________________________________
> Yahoo! Sports
> Rekindle the Rivalries. Sign up for Fantasy
Football
> http://football.fantasysports.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
>
<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
-------------------------------------------------------
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
