Below is from the VA Demo, however, there is no field 31.3 in the NEW PERSON
file in the VA Demo. I was hoping to find an example.
Select ALTERNATE EDITOR: KerMIT LOAD
ANOTHER ONE:
STANDARD CAPTIONED OUTPUT? Yes// (Yes)
Include COMPUTED fields: (N/Y/R/B): NO// BOTH Computed Fields and Record
Number
(IEN)
NUMBER: 3 NAME: KERMIT LOAD
ACTIVATION CODE FROM DIWE: S XTKDIC=DIC D RECEIVE^XTKERMIT
RETURN TO CALLING EDITOR: K XTKDIC
DESCRIPTION:
This option uses the KERMIT protocol to load the word-processing field
from another system.
From the Data Dictionary:
POINTED TO BY: PREFERRED EDITOR field (#31.3) of the NEW PERSON File (#200)
CROSS
REFERENCED BY: NAME(B)
1.2,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X I
$D(X
) S %=$O(^DIST(1.2,"B",$E(X))) I $E(%)=$E(X) K
X
LAST EDITED: DEC 12, 1990
HELP-PROMPT: NAME MUST BE 3-30 CHAR., and start with a
unique alpha char.
DESCRIPTION: This is the name of the alternate editor. It
must start with a unique character.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 1.2^B
1)= S ^DIST(1.2,"B",$E(X,1,30),DA)=""
2)= K ^DIST(1.2,"B",$E(X,1,30),DA)
1.2,1 ACTIVATION CODE FROM DIWE 1;E1,245 MUMPS (Required)
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: FEB 02, 1990
HELP-PROMPT: This is Standard MUMPS code, used to set up th
environment for editing a Standard FileMan
word-processing field using this editor.
DESCRIPTION: This field holds the MUMPS code to properly
establish the environment that will allow use
of this editor to edit any VA FileMan
word-processing type field. Typically this
code might move the text into another MUMPS
global (like ^UTILITY) or to some other file
format for editing. If the editor is written
in MUMPS, it should either use variables that
do not begin with the letter "D", or should
NEW all its local variables to avoid problems
on
return to the FileMan editor.
If the variable DIWE(1) is defined, it
indicated that the user has switched to this
editor from the standard FileMan Line Editor,
and upon return, the control will be returned
to the line editor.
This editor may set the variable DIWESW to 1,
if they wish to allow the user to switch to an
alternate editor from this one.
This editor is required to restore the edited
text to standard FileMan word-processing
format
before exiting.
1.2,2 OK TO RUN TEST 2;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: FEB 02, 1990
HELP-PROMPT: This is Standard MUMPS code that sets $T to
true if it is OK to use this editor.
DESCRIPTION: This field holds MUMPS code used to pre-check
the environment before allowing the user to
enter this editor. This field should set the
$TEST indicator. If $TEST is true then it is
OK for this editor to run at this time. If $T
is false, the user will be returned to the
FileMan line editor.
If the field is null, it will be the same as
$T=true
An example would be a mixed VAX-PDP site using
a VMS editor.
1.2,3 RETURN TO CALLING EDITOR 3;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: FEB 02, 1990
HELP-PROMPT: This is Standard MUMPS code used to restore
the
environment needed by the VA FileMan line
editor.
DESCRIPTION: If the user switched to this editor from the
FileMan line editor, then DIWE(1) exists.
This
field should contain MUMPS code used to reset
On Monday 06 June 2005 12:15 pm, Kevin Toppenberg wrote:
> I would like to an alternate editor as well.
>
> When in look in the ALTERNATE EDITOR file, I see the
> entries that Ismet posted earlier. Here is the data
> for these files:
>
> ACTIVATION CODE FROM DIWE:
> -------------------------
> XTENSIBLE EDITOR: D
> ENTRY^RGED(DIG,$G(DIWETXT),$G(DIWESUB))
> SCREEN EDITOR: D ^DDW
> KERMIT LOAD: S XTKDIC=DIC D RECEIVE^XTKERMIT
>
> Thus there doesn't seem to be comman pattern for the
> pre-execute code. Where could I learn more about how
> to set up for the external editor, and how to load
> changed back into VistA?
>
> Kevin
>
>
> --- Gregory Woodhouse
>
> <[EMAIL PROTECTED]> wrote:
> > There is an ALTERNATE EDITOR file (I think I got the
> > name right) that
> > provides a platform independent mechanism for
> > invoking editors (much
> > as the DEVICE file provides a platform independent
> > mechanism for
> > working with devices. VistA on GT.M may or may not
> > invoke ZEDIT
> > "under the hood". Remember that one of the roles of
> > Kernel is to
> > abstract away from platform dependencies and
> > software written for
> > VistA shouldn't ever need to use platform specific
> > commands, nor
> > should users (in principle, at least) need to be
> > concerned about the
> > underlying platform.
> >
> > ===
> > Gregory Woodhouse
> > [EMAIL PROTECTED]
> >
> > "It is a capital mistake to theorize before one has
> > data."
> > --Sir Arthur Conan Doyle
> >
> > On Jun 6, 2005, at 6:16 AM, K.S. Bhaskar wrote:
> > > Ismet --
> > >
> > > Set the EDITOR environment variable before
> >
> > starting GT.M to point
> >
> > > to any editor. When ZEDIT "function" is invoked
> >
> > from inside GT.M,
> >
> > > it will start the editor pointed to by $EDITOR,
> >
> > e.g.:
> > > source /usr/local/gtm/gtmprofile
> > > export EDITOR=`which vim`
> > > mumps -dir
> > > GTM>ZEDIT "XYZ"
> > >
> > > I am not sure, however, whether VistA invokes an
> >
> > editor with
> >
> > > ZEDIT. I don't know why it is presenting VMSEDT
> >
> > as a choice for
> >
> > > GT.M on Linux. What happens if you take that
> >
> > choice?
> >
> > > -- Bhaskar
>
> -------------------------------------------------------
>
> > This SF.Net email is sponsored by: NEC IT Guy Games.
> > How far can you shotput
> > a projector? How fast can you ride your desk chair
> > down the office luge track?
> > If you want to score the big prize, get to know the
> > little guy.
> > Play to win an NEC 61" plasma display:
> > http://www.necitguy.com/?r=20
> > _______________________________________________
> > Hardhats-members mailing list
> > [email protected]
>
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
>
>
>
>
>
> __________________________________
> Discover Yahoo!
> Stay in touch with email, IM, photo sharing and more. Check it out!
> http://discover.yahoo.com/stayintouch.html
>
>
> -------------------------------------------------------
> This SF.Net email is sponsored by: NEC IT Guy Games. How far can you
> shotput a projector? How fast can you ride your desk chair down the office
> luge track? If you want to score the big prize, get to know the little guy.
> Play to win an NEC 61" plasma display: http://www.necitguy.com/?r=20
> _______________________________________________
> Hardhats-members mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
--
Nancy Anthracite
-------------------------------------------------------
This SF.Net email is sponsored by: NEC IT Guy Games. How far can you shotput
a projector? How fast can you ride your desk chair down the office luge track?
If you want to score the big prize, get to know the little guy.
Play to win an NEC 61" plasma display: http://www.necitguy.com/?r
_______________________________________________
Hardhats-members mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/hardhats-members
