Episode24

From VistApedia
Jump to: navigation, search

Here is the terminal session and how to for changing the message that appears to all users before they login to the system. Even easier than this is Kevin Toppenberg's GUI-Config which I highly recommend, just go to Advanced and edit the KERNEL SYSTEM PARAMETERS file Intro Message field.

Below, VISTA.ICH.LOCAL is the name of our local install, you would have to put in your local installation name instead of that. Also, this is the first time I've used the full-screen editor. A little trick: you may have to change Putty keyboard settings to VT100 emulation in order to save your work. Also a little gotcha is that one must press the F1 key and then h (help) or F1 key and then e (saves and exits) but not F1 and h or e at the same time, or just F1 by itself or nothing will happen and you phone Dave 3 times and he is baffled. Then you remember DEC stuff from the 80's and bringing the campus computer system to its knees compiling ADA on a Vax and...well anyway here it is:

GTM>S DUZ=60 D P^DI

VA FileMan 22.0

Select OPTION: ?
    Answer with OPTION NUMBER, or NAME
   Choose from:
   1            ENTER OR EDIT FILE ENTRIES
   2            PRINT FILE ENTRIES
   3            SEARCH FILE ENTRIES
   4            MODIFY FILE ATTRIBUTES
   5            INQUIRE TO FILE ENTRIES
   6            UTILITY FUNCTIONS
   7            OTHER OPTIONS
   8            DATA DICTIONARY UTILITIES
   9            TRANSFER ENTRIES

Select OPTION: 1  ENTER OR EDIT FILE ENTRIES

INPUT TO WHAT FILE: KERNEL SYSTEM PARAMETERS// KERNEL SYSTEM PARAMETERS
                                          (1 entry)
EDIT WHICH FIELD: ALL// INTRO MESSAGE    (word-processing)
THEN EDIT FIELD:

Select KERNEL SYSTEM PARAMETERS DOMAIN NAME: ?
    Answer with KERNEL SYSTEM PARAMETERS NUMBER, or DOMAIN NAME:
   1            VISTA.ICH.LOCAL

        You may enter a new KERNEL SYSTEM PARAMETERS, if you wish

    Answer with DOMAIN NAME
   Choose from:
   BETA.VISTA-OFFICE.ORG
   FORUM.VA.GOV
   OPENFORUM.WORLDVISTA.ORG
   PLATINUM.VISTA-OFFICE.ORG
   PLATINUM.VISTA.MED.VA.GOV
   VAMHVWEB1.AAC.VA.GOV
   VISTA.ICH.LOCAL

Select KERNEL SYSTEM PARAMETERS DOMAIN NAME: VISTA.ICH.LOCAL
         ...OK? Yes//   (Yes)

INTRO MESSAGE:
Welcome to Intracare Hospital System WorldVistA EHR/VOE 1.0 System Ready.

  Edit? NO// YES

==[ WRAP ]==[ INSERT ]============< INTRO MESSAGE >==========[ <PF1>H=Help ]====
Welcome to Intracare Hospital System WorldVistA EHR/VOE 1.0 Ready.

<=======T=======T=======T=======T=======T=======T=======T=======T=======T>======

Select KERNEL SYSTEM PARAMETERS DOMAIN NAME:

Select OPTION:
GTM>h

   Reply to author    Forward  


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


2. kdtop3@gmail.com View profile More options Nov 12 2008, 8:29 am From: "kdt...@gmail.com" <kdt...@gmail.com> Date: Wed, 12 Nov 2008 05:29:16 -0800 (PST) Local: Wed, Nov 12 2008 8:29 am Subject: Re: Intracare Implementation Log Episode 24: Changing Intro Message with Fileman. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author Ignacio,

I have gotten stuck in that built-in VistA enough times, that my goal is to never go into it again. I can never remember the magic sequence of keys to get it to exit.

I set up an external editor, so I can use a linux-based editor. My favorite is JOE, but it also works with vi or nano.

Let me know if you need the code.

Kevin

On Nov 11, 5:26 pm, "Ignacio Valdes" <ival...@hal-pc.org> wrote:

- Hide quoted text - - Show quoted text - > Here is the terminal session and how to for changing the message that > appears to all users before they login to the system. Even easier than > this is Kevin Toppenberg's GUI-Config which I highly recommend, just > go to Advanced and edit the KERNEL SYSTEM PARAMETERS file Intro > Message field.

> Below, VISTA.ICH.LOCAL is the name of our local install, you would > have to put in your local installation name instead of that. Also, > this is the first time I've used the full-screen editor. A little > trick: you may have to change Putty keyboard settings to VT100 > emulation in order to save your work. Also a little gotcha is that one > must press the F1 key and then h (help) or F1 key and then e (saves > and exits) but not F1 and h or e at the same time, or just F1 by > itself or nothing will happen and you phone Dave 3 times and he is > baffled. Then you remember DEC stuff from the 80's and bringing the > campus computer system to its knees compiling ADA on a Vax and...well > anyway here it is:

> GTM>S DUZ=60 D P^DI

> VA FileMan 22.0

> Select OPTION: ? > Answer with OPTION NUMBER, or NAME > Choose from: > 1 ENTER OR EDIT FILE ENTRIES > 2 PRINT FILE ENTRIES > 3 SEARCH FILE ENTRIES > 4 MODIFY FILE ATTRIBUTES > 5 INQUIRE TO FILE ENTRIES > 6 UTILITY FUNCTIONS > 7 OTHER OPTIONS > 8 DATA DICTIONARY UTILITIES > 9 TRANSFER ENTRIES

> Select OPTION: 1 ENTER OR EDIT FILE ENTRIES

> INPUT TO WHAT FILE: KERNEL SYSTEM PARAMETERS// KERNEL SYSTEM PARAMETERS > (1 entry) > EDIT WHICH FIELD: ALL// INTRO MESSAGE (word-processing) > THEN EDIT FIELD:

> Select KERNEL SYSTEM PARAMETERS DOMAIN NAME: ? > Answer with KERNEL SYSTEM PARAMETERS NUMBER, or DOMAIN NAME: > 1 VISTA.ICH.LOCAL

> You may enter a new KERNEL SYSTEM PARAMETERS, if you wish

> Answer with DOMAIN NAME > Choose from: > BETA.VISTA-OFFICE.ORG > FORUM.VA.GOV > OPENFORUM.WORLDVISTA.ORG > PLATINUM.VISTA-OFFICE.ORG > PLATINUM.VISTA.MED.VA.GOV > VAMHVWEB1.AAC.VA.GOV > VISTA.ICH.LOCAL

> Select KERNEL SYSTEM PARAMETERS DOMAIN NAME: VISTA.ICH.LOCAL > ...OK? Yes// (Yes)

> INTRO MESSAGE: > Welcome to Intracare Hospital System WorldVistA EHR/VOE 1.0 System Ready.

> Edit? NO// YES

> ==[ WRAP ]==[ INSERT ]============< INTRO MESSAGE >==========[ <PF1>H=Help ]==== > Welcome to Intracare Hospital System WorldVistA EHR/VOE 1.0 Ready.

> <=======T=======T=======T=======T=======T=======T=======T=======T=======T>======

> Select KERNEL SYSTEM PARAMETERS DOMAIN NAME:

> Select OPTION: > GTM>h


   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


3. Sam Habiel View profile More options Nov 12 2008, 11:21 am From: "Sam Habiel" <sam.hab...@gmail.com> Date: Wed, 12 Nov 2008 08:21:09 -0800 Local: Wed, Nov 12 2008 11:21 am Subject: Re: [Hardhats] Re: Intracare Implementation Log Episode 24: Changing Intro Message with Fileman. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author Two comments:

There is an option under EVE>Operations Mangement that lets you edit the Intro text.

To get out of the editor, when you don't have PF1 mapped correctly: Ctrl-E to Quit Esc,O,P then the key (Q to quit; E to save and quit Ctrl-[,O,P then the key.

Sam

- Hide quoted text - - Show quoted text - On Wed, Nov 12, 2008 at 5:29 AM, kdt...@gmail.com <kdt...@gmail.com> wrote:

> Ignacio,

> I have gotten stuck in that built-in VistA enough times, that my goal > is to never go into it again. I can never remember the magic sequence > of keys to get it to exit.

> I set up an external editor, so I can use a linux-based editor. My > favorite is JOE, but it also works with vi or nano.

> Let me know if you need the code.

> Kevin

> On Nov 11, 5:26 pm, "Ignacio Valdes" <ival...@hal-pc.org> wrote: >> Here is the terminal session and how to for changing the message that >> appears to all users before they login to the system. Even easier than >> this is Kevin Toppenberg's GUI-Config which I highly recommend, just >> go to Advanced and edit the KERNEL SYSTEM PARAMETERS file Intro >> Message field.

>> Below, VISTA.ICH.LOCAL is the name of our local install, you would >> have to put in your local installation name instead of that. Also, >> this is the first time I've used the full-screen editor. A little >> trick: you may have to change Putty keyboard settings to VT100 >> emulation in order to save your work. Also a little gotcha is that one >> must press the F1 key and then h (help) or F1 key and then e (saves >> and exits) but not F1 and h or e at the same time, or just F1 by >> itself or nothing will happen and you phone Dave 3 times and he is >> baffled. Then you remember DEC stuff from the 80's and bringing the >> campus computer system to its knees compiling ADA on a Vax and...well >> anyway here it is:

>> GTM>S DUZ=60 D P^DI

>> VA FileMan 22.0

>> Select OPTION: ? >> Answer with OPTION NUMBER, or NAME >> Choose from: >> 1 ENTER OR EDIT FILE ENTRIES >> 2 PRINT FILE ENTRIES >> 3 SEARCH FILE ENTRIES >> 4 MODIFY FILE ATTRIBUTES >> 5 INQUIRE TO FILE ENTRIES >> 6 UTILITY FUNCTIONS >> 7 OTHER OPTIONS >> 8 DATA DICTIONARY UTILITIES >> 9 TRANSFER ENTRIES

>> Select OPTION: 1 ENTER OR EDIT FILE ENTRIES

>> INPUT TO WHAT FILE: KERNEL SYSTEM PARAMETERS// KERNEL SYSTEM PARAMETERS >> (1 entry) >> EDIT WHICH FIELD: ALL// INTRO MESSAGE (word-processing) >> THEN EDIT FIELD:

>> Select KERNEL SYSTEM PARAMETERS DOMAIN NAME: ? >> Answer with KERNEL SYSTEM PARAMETERS NUMBER, or DOMAIN NAME: >> 1 VISTA.ICH.LOCAL

>> You may enter a new KERNEL SYSTEM PARAMETERS, if you wish

>> Answer with DOMAIN NAME >> Choose from: >> BETA.VISTA-OFFICE.ORG >> FORUM.VA.GOV >> OPENFORUM.WORLDVISTA.ORG >> PLATINUM.VISTA-OFFICE.ORG >> PLATINUM.VISTA.MED.VA.GOV >> VAMHVWEB1.AAC.VA.GOV >> VISTA.ICH.LOCAL

>> Select KERNEL SYSTEM PARAMETERS DOMAIN NAME: VISTA.ICH.LOCAL >> ...OK? Yes// (Yes)

>> INTRO MESSAGE: >> Welcome to Intracare Hospital System WorldVistA EHR/VOE 1.0 System Ready.

>> Edit? NO// YES

>> ==[ WRAP ]==[ INSERT ]============< INTRO MESSAGE >==========[ <PF1>H=Help ]==== >> Welcome to Intracare Hospital System WorldVistA EHR/VOE 1.0 Ready.

>> <=======T=======T=======T=======T=======T=======T=======T=======T=======T>======

>> Select KERNEL SYSTEM PARAMETERS DOMAIN NAME:

>> Select OPTION: >> GTM>h


   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


4. Sam Habiel View profile More options Nov 12 2008, 11:21 am From: "Sam Habiel" <sam.hab...@gmail.com> Date: Wed, 12 Nov 2008 08:21:51 -0800 Local: Wed, Nov 12 2008 11:21 am Subject: Re: [Hardhats] Re: Intracare Implementation Log Episode 24: Changing Intro Message with Fileman. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author Kevin,

Can you share how you set-up an external editor?

Sam

- Hide quoted text - - Show quoted text - On Wed, Nov 12, 2008 at 8:21 AM, Sam Habiel <sam.hab...@gmail.com> wrote: > Two comments:

> There is an option under EVE>Operations Mangement that lets you edit > the Intro text.

> To get out of the editor, when you don't have PF1 mapped correctly: > Ctrl-E to Quit > Esc,O,P then the key (Q to quit; E to save and quit > Ctrl-[,O,P then the key.

> Sam

> On Wed, Nov 12, 2008 at 5:29 AM, kdt...@gmail.com <kdt...@gmail.com> wrote:

>> Ignacio,

>> I have gotten stuck in that built-in VistA enough times, that my goal >> is to never go into it again. I can never remember the magic sequence >> of keys to get it to exit.

>> I set up an external editor, so I can use a linux-based editor. My >> favorite is JOE, but it also works with vi or nano.

>> Let me know if you need the code.

>> Kevin

>> On Nov 11, 5:26 pm, "Ignacio Valdes" <ival...@hal-pc.org> wrote: >>> Here is the terminal session and how to for changing the message that >>> appears to all users before they login to the system. Even easier than >>> this is Kevin Toppenberg's GUI-Config which I highly recommend, just >>> go to Advanced and edit the KERNEL SYSTEM PARAMETERS file Intro >>> Message field.

>>> Below, VISTA.ICH.LOCAL is the name of our local install, you would >>> have to put in your local installation name instead of that. Also, >>> this is the first time I've used the full-screen editor. A little >>> trick: you may have to change Putty keyboard settings to VT100 >>> emulation in order to save your work. Also a little gotcha is that one >>> must press the F1 key and then h (help) or F1 key and then e (saves >>> and exits) but not F1 and h or e at the same time, or just F1 by >>> itself or nothing will happen and you phone Dave 3 times and he is >>> baffled. Then you remember DEC stuff from the 80's and bringing the >>> campus computer system to its knees compiling ADA on a Vax and...well >>> anyway here it is:

>>> GTM>S DUZ=60 D P^DI

>>> VA FileMan 22.0

>>> Select OPTION: ? >>> Answer with OPTION NUMBER, or NAME >>> Choose from: >>> 1 ENTER OR EDIT FILE ENTRIES >>> 2 PRINT FILE ENTRIES >>> 3 SEARCH FILE ENTRIES >>> 4 MODIFY FILE ATTRIBUTES >>> 5 INQUIRE TO FILE ENTRIES >>> 6 UTILITY FUNCTIONS >>> 7 OTHER OPTIONS >>> 8 DATA DICTIONARY UTILITIES >>> 9 TRANSFER ENTRIES

>>> Select OPTION: 1 ENTER OR EDIT FILE ENTRIES

>>> INPUT TO WHAT FILE: KERNEL SYSTEM PARAMETERS// KERNEL SYSTEM PARAMETERS >>> (1 entry) >>> EDIT WHICH FIELD: ALL// INTRO MESSAGE (word-processing) >>> THEN EDIT FIELD:

>>> Select KERNEL SYSTEM PARAMETERS DOMAIN NAME: ? >>> Answer with KERNEL SYSTEM PARAMETERS NUMBER, or DOMAIN NAME: >>> 1 VISTA.ICH.LOCAL

>>> You may enter a new KERNEL SYSTEM PARAMETERS, if you wish

>>> Answer with DOMAIN NAME >>> Choose from: >>> BETA.VISTA-OFFICE.ORG >>> FORUM.VA.GOV >>> OPENFORUM.WORLDVISTA.ORG >>> PLATINUM.VISTA-OFFICE.ORG >>> PLATINUM.VISTA.MED.VA.GOV >>> VAMHVWEB1.AAC.VA.GOV >>> VISTA.ICH.LOCAL

>>> Select KERNEL SYSTEM PARAMETERS DOMAIN NAME: VISTA.ICH.LOCAL >>> ...OK? Yes// (Yes)

>>> INTRO MESSAGE: >>> Welcome to Intracare Hospital System WorldVistA EHR/VOE 1.0 System Ready.

>>> Edit? NO// YES

>>> ==[ WRAP ]==[ INSERT ]============< INTRO MESSAGE >==========[ <PF1>H=Help ]==== >>> Welcome to Intracare Hospital System WorldVistA EHR/VOE 1.0 Ready.

>>> <=======T=======T=======T=======T=======T=======T=======T=======T=======T>======

>>> Select KERNEL SYSTEM PARAMETERS DOMAIN NAME:

>>> Select OPTION: >>> GTM>h


   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


5. kdtop3@gmail.com View profile More options Nov 13 2008, 1:47 pm From: "kdt...@gmail.com" <kdt...@gmail.com> Date: Thu, 13 Nov 2008 10:47:29 -0800 (PST) Local: Thurs, Nov 13 2008 1:47 pm Subject: Re: Intracare Implementation Log Episode 24: Changing Intro Message with Fileman. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author Sam et al,

First, create an entry in the ALTERNATE EDITOR file. Here is a dump of one such record. I have setup a function EDIT^TMGEDIT that will accept a parameter of which external editor I want (see more below)

Select FILE (or SUBFILE): alter Select entry in file# 1.2 Select ALTERNATE EDITOR: joe - LINUX EDITOR Display empty fields? No// (No) Enter Output Device: HOME// TELNET

Record# 5,

  .01-NAME : JOE - LINUX EDITOR
    1-ACTIVATION CODE FROM DIWE : DO EDIT^TMGEDIT("joe")
    7-DESCRIPTION :
 This will evoke the linux editor 'joe'

Press Key To Continue -----

Here is the code from EDIT^TMGEDIT

TMGEDIT ;TMG/kst/Interface to allow use of linux editor in Fileman ; 03/25/06

        ;;1.0;TMG-LIB;**1**;7/19/08
;"TMG EDITOR FUNCTIONS
;"=======================================================================
;" API -- Public Functions.
;"=======================================================================
;"$$EDIT(Editor)
;"=======================================================================
;"PRIVATE API FUNCTIONS
;"=======================================================================
;"=======================================================================
;"=======================================================================

EDIT(Editor)

       ;"Purpose: This will be a shell for a linux editor
       ;"Input: Editor -- the name of the linux editor to use (i.e.

vim, joe, pico etc)

       ;"              Allowed values: joe,vim,pico
       ;"Note: When this function gets called, VistA sets up some

variables

       ;"      first to tell what should be edited etc.
       ;"      DIC=The global root of the WP field where the text to

be edited is

       ;"              stored (or where new text should be stored)
       ;"              e.g. "^TMG(22702,27,DV,"
       ;"      (DV is also predefined, so reference to DV in DIC is

covered.)

       ;"      There are other variables set up re margins etc.  I

will be ignoring these.

       ;"Results: none
       new result set result=0
       new GlobalP
       ;"By limiting value to certain values, it prevents a rouge

user from putting a wedged

       ;"linux command into "Editor" and executing a system command

through zsystem.

       set Editor=$get(Editor,"rvim")
       if (Editor'="rvim")&(Editor'="joe")&(Editor'="pico")&

(Editor'="nano") goto EditAbort

       ;"Only allow users with programmer access to use joe
       if (Editor="joe") do  if result=1 goto EditAbort
       . new AccessCode set AccessCode=$get(DUZ(0))
       . if AccessCode'["@" do
       . . write !!,"*** Sorry.  Insufficient security clearance to

use insecure 'joe' editor. ***",!

       . . write "Fileman access code of @ required, because JOE can

shell out to linux Prompt.",!!

       . . write "Please enter 'User's Toolbox', then 'Edit User

Characteristics' at a menu",!

       . . write " option to change PREFERRED EDITOR to something

other than JOE.",!!

       . . set result=1
       new EditErrFile set EditErrFile="/tmp/trashjoeoutput.txt"
       set GlobalP=$extract(DIC,1,$length(DIC)-1)_")"  ;"convert to

closed form

       new Filename set Filename=$$UNIQUE^%ZISUTL("/tmp/

vistaedit.tmp")

       set result=$$WP2HFSfp^TMGIOUTL(GlobalP,Filename)
       if result=0 goto EditDone
       new HookCmd
       set HookCmd=Editor_" "_Filename_" 2>"_EditErrFile  ;"use NULL

instead??

       zsystem HookCmd
       set result=$ZSYSTEM&255  ;"get result of execution. (low byte

only). 0=success

       if result>0 goto EditDone
       ;"read file back into global WP
       set result=$$HFS2WPfp^TMGIOUTL(Filename,GlobalP)
       ;"if result=1 do

EditDone

       new temp set temp=$$DelFile^TMGIOUTL(Filename)
       set temp=$$DelFile^TMGIOUTL(Filename_"~")  ;"joe editor copies

output to filename~ as a backup

       set temp=$$DelFile^TMGIOUTL(EditErrFile)

EditAbort

       quit

LinuxEdit(Editor,FullPathName)

       ;"Purpose: This will be a shell for a linux editor
       ;"Input: Editor -- the name of the linux editor to use (i.e.

vim, joe, pico etc)

       ;"              Allowed values: joe,vim,pico
       ;"         FullPathName -- the path name on the Linux HFS to

edit.

       ;"Results: none
       new result set result=0
       new GlobalP

On Nov 12, 11:21 am, "Sam Habiel" <sam.hab...@gmail.com> wrote:

- Hide quoted text - - Show quoted text - > Kevin,

> Can you share how you set-up an external editor?

> Sam

> On Wed, Nov 12, 2008 at 8:21 AM, Sam Habiel <sam.hab...@gmail.com> wrote: > > Two comments:

> > There is an option under EVE>Operations Mangement that lets you edit > > the Intro text.

> > To get out of the editor, when you don't have PF1 mapped correctly: > > Ctrl-E to Quit > > Esc,O,P then the key (Q to quit; E to save and quit > > Ctrl-[,O,P then the key.

> > Sam

> > On Wed, Nov 12, 2008 at 5:29 AM, kdt...@gmail.com <kdt...@gmail.com> wrote:

> >> Ignacio,

> >> I have gotten stuck in that built-in VistA enough times, that my goal > >> is to never go into it again. I can never remember the magic sequence > >> of keys to get it to exit.

> >> I set up an external editor, so I can use a linux-based editor. My > >> favorite is JOE, but it also works with vi or nano.

> >> Let me know if you need the code.

> >> Kevin

> >> On Nov 11, 5:26 pm, "Ignacio Valdes" <ival...@hal-pc.org> wrote: > >>> Here is the terminal session and how to for changing the message that > >>> appears to all users before they login to the system. Even easier than > >>> this is Kevin Toppenberg's GUI-Config which I highly recommend, just > >>> go to Advanced and edit the KERNEL SYSTEM PARAMETERS file Intro > >>> Message field.

> >>> Below, VISTA.ICH.LOCAL is the name of our local install, you would > >>> have to put in your local installation name instead of that. Also, > >>> this is the first time I've used the full-screen editor. A little > >>> trick: you may have to change Putty keyboard settings to VT100 > >>> emulation in order to save your work. Also a little gotcha is that one > >>> must press the F1 key and then h (help) or F1 key and then e (saves > >>> and exits) but not F1 and h or e at the same time, or just F1 by > >>> itself or nothing will happen and you phone Dave 3 times and he is > >>> baffled. Then you remember DEC stuff from the 80's and bringing the > >>> campus computer system to its knees compiling ADA on a Vax and...well > >>> anyway here it is:

> >>> GTM>S DUZ=60 D P^DI

> >>> VA FileMan 22.0

> >>> Select OPTION: ? > >>> Answer with OPTION NUMBER, or NAME > >>> Choose from: > >>> 1 ENTER OR EDIT FILE ENTRIES > >>> 2 PRINT FILE ENTRIES > >>> 3 SEARCH FILE ENTRIES > >>> 4 MODIFY FILE ATTRIBUTES > >>> 5 INQUIRE TO FILE ENTRIES > >>> 6 UTILITY FUNCTIONS > >>> 7 OTHER OPTIONS > >>> 8 DATA DICTIONARY UTILITIES > >>> 9 TRANSFER ENTRIES

> >>> Select OPTION: 1 ENTER OR EDIT FILE ENTRIES

> >>> INPUT TO WHAT FILE: KERNEL SYSTEM PARAMETERS// KERNEL SYSTEM PARAMETERS > >>> (1 entry) > >>> EDIT WHICH FIELD: ALL// INTRO MESSAGE (word-processing) > >>> THEN EDIT FIELD:

> >>> Select KERNEL SYSTEM PARAMETERS DOMAIN NAME: ? > >>> Answer with KERNEL SYSTEM PARAMETERS NUMBER, or DOMAIN NAME: > >>> 1 VISTA.ICH.LOCAL

> >>> You may enter a new KERNEL SYSTEM PARAMETERS, if you wish

> >>> Answer with DOMAIN NAME > >>> Choose from: > >>> BETA.VISTA-OFFICE.ORG > >>> FORUM.VA.GOV > >>> OPENFORUM.WORLDVISTA.ORG > >>> PLATINUM.VISTA-OFFICE.ORG > >>> PLATINUM.VISTA.MED.VA.GOV > >>> VAMHVWEB1.AAC.VA.GOV > >>> VISTA.ICH.LOCAL

> >>> Select KERNEL SYSTEM PARAMETERS DOMAIN NAME: VISTA.ICH.LOCAL > >>> ...OK? Yes// (Yes)

> >>> INTRO MESSAGE: > >>> Welcome to Intracare Hospital System WorldVistA EHR/VOE 1.0 System Ready.

> >>> Edit? NO// YES

> >>> ==[ WRAP ]==[ INSERT ]============< INTRO MESSAGE >==========[ <PF1>H=Help ]==== > >>> Welcome to Intracare Hospital System WorldVistA EHR/VOE 1.0 Ready.

> >>> <=======T=======T=======T=======T=======T=======T=======T=======T=======T>======

> >>> Select KERNEL SYSTEM PARAMETERS DOMAIN NAME:

> >>> Select OPTION: > >>> GTM>h


   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


6. kdtop3@gmail.com View profile More options Nov 13 2008, 1:57 pm From: "kdt...@gmail.com" <kdt...@gmail.com> Date: Thu, 13 Nov 2008 10:57:21 -0800 (PST) Local: Thurs, Nov 13 2008 1:57 pm Subject: Re: Intracare Implementation Log Episode 24: Changing Intro Message with Fileman. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author Oops, accidentally sent incomplete...

The referenced routines WP2HFS and HFS2WP are routines that load in and save out WP arrays to the host file system. And DelFile does what you would think. Let me know if you need these.

Also, I have put a zip file with all the files in my TMG library up on the Google Groups section with downloads for our Hardhats group.

LinuxEdit(Editor,FullPathName)

       ;"Purpose: This will be a shell for a linux editor
       ;"Input: Editor -- the name of the linux editor to use (i.e.

vim, joe, pico etc)

       ;"              Allowed values: joe,vim,pico
       ;"         FullPathName -- the path name on the Linux HFS to

edit.

       ;"Results: none
       new result set result=0
       new GlobalP
       ;"By limiting value to certain values, it prevents a rouge

user from putting a wedged

       ;"linux command into "Editor" and executing a system command

through zsystem.

       set Editor=$get(Editor,"rvim")
       if (Editor'="rvim")&(Editor'="joe")&(Editor'="pico") goto

LEditAbort

       ;"Only allow users with programmer access to use joe
       if (Editor="joe") do  if result=1 goto EditAbort
       . new AccessCode
       . set AccessCode=$piece(^VA(200,DUZ,0),"^",4)
       . if AccessCode'="@" do
       . . write !!,"*** Sorry.  Insufficient security clearance to

use insecure 'joe' editor. ***",!

       . . write "Please enter 'User's Toolbox', then 'Edit User

Characteristics' at a menu",!

       . . write " option to change PREFERRED EDITOR to something

other than JOE.",!!

       . . set result=1
       ;"new EditErrFile set EditErrFile="/tmp/trashjoeoutput.txt"
       new Filename set Filename=FullPathName
       new HookCmd
       ;"set HookCmd=Editor_" "_Filename_" 2>"_EditErrFile  ;"use

NULL instead??

       set HookCmd=Editor_" "_Filename
       zsystem HookCmd
       set result=$ZSYSTEM&255  ;"get result of execution. (low byte

only). 0=success

       if result>0 goto LEditDone

LEditDone

       ;"set temp=$$DelFile^TMGIOUTL(Filename_"~")  ;"joe editor

copies output to filename~ as a backup

       ;"set temp=$$DelFile^TMGIOUTL(EditErrFile)

LEditAbort

       quit

Finally, use the User's Toolbox menu to change the preferred editor for your user.

Kevin

On Nov 13, 1:47 pm, "kdt...@gmail.com" <kdt...@gmail.com> wrote:

- Hide quoted text - - Show quoted text - > Sam et al,

> First, create an entry in the ALTERNATE EDITOR file. Here is a dump > of one such record. I have setup a function EDIT^TMGEDIT that will > accept a parameter of which external editor I want (see more below)

> Select FILE (or SUBFILE): alter > Select entry in file# 1.2 > Select ALTERNATE EDITOR: joe - LINUX EDITOR > Display empty fields? No// (No) > Enter Output Device: HOME// TELNET

> Record# 5, > .01-NAME : JOE - LINUX EDITOR > 1-ACTIVATION CODE FROM DIWE : DO EDIT^TMGEDIT("joe") > 7-DESCRIPTION : > This will evoke the linux editor 'joe'

> ----- Press Key To Continue -----

> Here is the code from EDIT^TMGEDIT

> TMGEDIT ;TMG/kst/Interface to allow use of linux editor in Fileman ; > 03/25/06 >  ;;1.0;TMG-LIB;**1**;7/19/08

>  ;"TMG EDITOR FUNCTIONS

>  ;"======================================================================= >  ;" API -- Public Functions. >  ;"======================================================================= >  ;"$$EDIT(Editor)

>  ;"======================================================================= >  ;"PRIVATE API FUNCTIONS >  ;"=======================================================================

>  ;"======================================================================= >  ;"=======================================================================

> EDIT(Editor) >  ;"Purpose: This will be a shell for a linux editor >  ;"Input: Editor -- the name of the linux editor to use (i.e. > vim, joe, pico etc) >  ;" Allowed values: joe,vim,pico >  ;"Note: When this function gets called, VistA sets up some > variables >  ;" first to tell what should be edited etc. >  ;" DIC=The global root of the WP field where the text to > be edited is >  ;" stored (or where new text should be stored) >  ;" e.g. "^TMG(22702,27,DV," >  ;" (DV is also predefined, so reference to DV in DIC is > covered.) >  ;" There are other variables set up re margins etc. I > will be ignoring these. >  ;"Results: none

> new result set result=0 > new GlobalP

>  ;"By limiting value to certain values, it prevents a rouge > user from putting a wedged >  ;"linux command into "Editor" and executing a system command > through zsystem. > set Editor=$get(Editor,"rvim") > if (Editor'="rvim")&(Editor'="joe")&(Editor'="pico")& > (Editor'="nano") goto EditAbort

>  ;"Only allow users with programmer access to use joe > if (Editor="joe") do if result=1 goto EditAbort > . new AccessCode set AccessCode=$get(DUZ(0)) > . if AccessCode'["@" do > . . write !!,"*** Sorry. Insufficient security clearance to > use insecure 'joe' editor. ***",! > . . write "Fileman access code of @ required, because JOE can > shell out to linux Prompt.",!! > . . write "Please enter 'User's Toolbox', then 'Edit User > Characteristics' at a menu",! > . . write " option to change PREFERRED EDITOR to something > other than JOE.",!! > . . set result=1

> new EditErrFile set EditErrFile="/tmp/trashjoeoutput.txt"

> set GlobalP=$extract(DIC,1,$length(DIC)-1)_")"  ;"convert to > closed form > new Filename set Filename=$$UNIQUE^%ZISUTL("/tmp/ > vistaedit.tmp") > set result=$$WP2HFSfp^TMGIOUTL(GlobalP,Filename) > if result=0 goto EditDone

> new HookCmd > set HookCmd=Editor_" "_Filename_" 2>"_EditErrFile  ;"use NULL > instead?? > zsystem HookCmd > set result=$ZSYSTEM&255  ;"get result of execution. (low byte > only). 0=success > if result>0 goto EditDone

>  ;"read file back into global WP > set result=$$HFS2WPfp^TMGIOUTL(Filename,GlobalP) >  ;"if result=1 do

> EditDone > new temp set temp=$$DelFile^TMGIOUTL(Filename) > set temp=$$DelFile^TMGIOUTL(Filename_"~")  ;"joe editor copies > output to filename~ as a backup > set temp=$$DelFile^TMGIOUTL(EditErrFile) > EditAbort > quit

> LinuxEdit(Editor,FullPathName) >  ;"Purpose: This will be a shell for a linux editor >  ;"Input: Editor -- the name of the linux editor to use (i.e. > vim, joe, pico etc) >  ;" Allowed values: joe,vim,pico >  ;" FullPathName -- the path name on the Linux HFS to > edit. >  ;"Results: none

> new result set result=0 > new GlobalP

> On Nov 12, 11:21 am, "Sam Habiel" <sam.hab...@gmail.com> wrote:

> > Kevin,

> > Can you share how you set-up an external editor?

> > Sam

> > On Wed, Nov 12, 2008 at 8:21 AM, Sam Habiel <sam.hab...@gmail.com> wrote: > > > Two comments:

> > > There is an option under EVE>Operations Mangement that lets you edit > > > the Intro text.

> > > To get out of the editor, when you don't have PF1 mapped correctly: > > > Ctrl-E to Quit > > > Esc,O,P then the key (Q to quit; E to save and quit > > > Ctrl-[,O,P then the key.

> > > Sam

> > > On Wed, Nov 12, 2008 at 5:29 AM, kdt...@gmail.com <kdt...@gmail.com> wrote:

> > >> Ignacio,

> > >> I have gotten stuck in that built-in VistA enough times, that my goal > > >> is to never go into it again. I can never remember the magic sequence > > >> of keys to get it to exit.

> > >> I set up an external editor, so I can use a linux-based editor. My > > >> favorite is JOE, but it also works with vi or nano.

> > >> Let me know if you need the code.

> > >> Kevin

> > >> On Nov 11, 5:26 pm, "Ignacio Valdes" <ival...@hal-pc.org> wrote: > > >>> Here is the terminal session and how to for changing the message that > > >>> appears to all users before they login to the system. Even easier than > > >>> this is Kevin Toppenberg's GUI-Config which I highly recommend, just > > >>> go to Advanced and edit the KERNEL SYSTEM PARAMETERS file Intro > > >>> Message field.

> > >>> Below, VISTA.ICH.LOCAL is the name of our local install, you would > > >>> have to put in your local installation name instead of that. Also, > > >>> this is the first time I've used the full-screen editor. A little > > >>> trick: you may have to change Putty keyboard settings to VT100 > > >>> emulation in order to save your work. Also a little gotcha is that one > > >>> must press the F1 key and then h (help) or F1 key and then e (saves > > >>> and exits) but not F1 and h or e at the same time, or just F1 by > > >>> itself or nothing will happen and you phone Dave 3 times and he is > > >>> baffled. Then you remember DEC stuff from the 80's and bringing the > > >>> campus computer system to its knees compiling ADA on a Vax and...well > > >>> anyway here it is:

> > >>> GTM>S DUZ=60 D P^DI

> > >>> VA FileMan 22.0

> > >>> Select OPTION: ? > > >>> Answer with OPTION NUMBER, or NAME > > >>> Choose from: > > >>> 1 ENTER OR EDIT FILE ENTRIES > > >>> 2 PRINT FILE ENTRIES > > >>> 3 SEARCH FILE ENTRIES > > >>> 4

...

read more »

   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


7. Sam Habiel View profile More options Nov 14 2008, 5:35 am From: "Sam Habiel" <sam.hab...@gmail.com> Date: Fri, 14 Nov 2008 02:35:29 -0800 Local: Fri, Nov 14 2008 5:35 am Subject: Re: [Hardhats] Re: Intracare Implementation Log Episode 24: Changing Intro Message with Fileman. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author >>"The referenced routines WP2HFS and HFS2WP are routines that load in

and save out WP arrays to the host file system. And DelFile does what you would think. Let me know if you need these."

It would be nice to have them, only if you are not using the Kernel API's to write and read wp files.

Sam

- Hide quoted text - - Show quoted text - On Thu, Nov 13, 2008 at 10:57 AM, kdt...@gmail.com <kdt...@gmail.com> wrote:

> Oops, accidentally sent incomplete...

> The referenced routines WP2HFS and HFS2WP are routines that load in > and save out WP arrays to the host file system. And DelFile does what > you would think. Let me know if you need these.

> Also, I have put a zip file with all the files in my TMG library up on > the Google Groups section with downloads for our Hardhats group.

> LinuxEdit(Editor,FullPathName) >  ;"Purpose: This will be a shell for a linux editor >  ;"Input: Editor -- the name of the linux editor to use (i.e. > vim, joe, pico etc) >  ;" Allowed values: joe,vim,pico >  ;" FullPathName -- the path name on the Linux HFS to > edit. >  ;"Results: none

> new result set result=0 > new GlobalP

>  ;"By limiting value to certain values, it prevents a rouge > user from putting a wedged >  ;"linux command into "Editor" and executing a system command > through zsystem. > set Editor=$get(Editor,"rvim") > if (Editor'="rvim")&(Editor'="joe")&(Editor'="pico") goto > LEditAbort

>  ;"Only allow users with programmer access to use joe > if (Editor="joe") do if result=1 goto EditAbort > . new AccessCode > . set AccessCode=$piece(^VA(200,DUZ,0),"^",4) > . if AccessCode'="@" do > . . write !!,"*** Sorry. Insufficient security clearance to > use insecure 'joe' editor. ***",! > . . write "Please enter 'User's Toolbox', then 'Edit User > Characteristics' at a menu",! > . . write " option to change PREFERRED EDITOR to something > other than JOE.",!! > . . set result=1

>  ;"new EditErrFile set EditErrFile="/tmp/trashjoeoutput.txt" > new Filename set Filename=FullPathName

> new HookCmd >  ;"set HookCmd=Editor_" "_Filename_" 2>"_EditErrFile  ;"use > NULL instead?? > set HookCmd=Editor_" "_Filename > zsystem HookCmd > set result=$ZSYSTEM&255  ;"get result of execution. (low byte > only). 0=success > if result>0 goto LEditDone

> LEditDone >  ;"set temp=$$DelFile^TMGIOUTL(Filename_"~")  ;"joe editor > copies output to filename~ as a backup >  ;"set temp=$$DelFile^TMGIOUTL(EditErrFile) > LEditAbort > quit

> Finally, use the User's Toolbox menu to change the preferred editor > for your user.

> Kevin

> On Nov 13, 1:47 pm, "kdt...@gmail.com" <kdt...@gmail.com> wrote: >> Sam et al,

>> First, create an entry in the ALTERNATE EDITOR file. Here is a dump >> of one such record. I have setup a function EDIT^TMGEDIT that will >> accept a parameter of which external editor I want (see more below)

>> Select FILE (or SUBFILE): alter >> Select entry in file# 1.2 >> Select ALTERNATE EDITOR: joe - LINUX EDITOR >> Display empty fields? No// (No) >> Enter Output Device: HOME// TELNET

>> Record# 5, >> .01-NAME : JOE - LINUX EDITOR >> 1-ACTIVATION CODE FROM DIWE : DO EDIT^TMGEDIT("joe") >> 7-DESCRIPTION : >> This will evoke the linux editor 'joe'

>> ----- Press Key To Continue -----

>> Here is the code from EDIT^TMGEDIT

>> TMGEDIT ;TMG/kst/Interface to allow use of linux editor in Fileman ; >> 03/25/06 >>  ;;1.0;TMG-LIB;**1**;7/19/08

>>  ;"TMG EDITOR FUNCTIONS

>>  ;"======================================================================= >>  ;" API -- Public Functions. >>  ;"======================================================================= >>  ;"$$EDIT(Editor)

>>  ;"======================================================================= >>  ;"PRIVATE API FUNCTIONS >>  ;"=======================================================================

>>  ;"======================================================================= >>  ;"=======================================================================

>> EDIT(Editor) >>  ;"Purpose: This will be a shell for a linux editor >>  ;"Input: Editor -- the name of the linux editor to use (i.e. >> vim, joe, pico etc) >>  ;" Allowed values: joe,vim,pico >>  ;"Note: When this function gets called, VistA sets up some >> variables >>  ;" first to tell what should be edited etc. >>  ;" DIC=The global root of the WP field where the text to >> be edited is >>  ;" stored (or where new text should be stored) >>  ;" e.g. "^TMG(22702,27,DV," >>  ;" (DV is also predefined, so reference to DV in DIC is >> covered.) >>  ;" There are other variables set up re margins etc. I >> will be ignoring these. >>  ;"Results: none

>> new result set result=0 >> new GlobalP

>>  ;"By limiting value to certain values, it prevents a rouge >> user from putting a wedged >>  ;"linux command into "Editor" and executing a system command >> through zsystem. >> set Editor=$get(Editor,"rvim") >> if (Editor'="rvim")&(Editor'="joe")&(Editor'="pico")& >> (Editor'="nano") goto EditAbort

>>  ;"Only allow users with programmer access to use joe >> if (Editor="joe") do if result=1 goto EditAbort >> . new AccessCode set AccessCode=$get(DUZ(0)) >> . if AccessCode'["@" do >> . . write !!,"*** Sorry. Insufficient security clearance to >> use insecure 'joe' editor. ***",! >> . . write "Fileman access code of @ required, because JOE can >> shell out to linux Prompt.",!! >> . . write "Please enter 'User's Toolbox', then 'Edit User >> Characteristics' at a menu",! >> . . write " option to change PREFERRED EDITOR to something >> other than JOE.",!! >> . . set result=1

>> new EditErrFile set EditErrFile="/tmp/trashjoeoutput.txt"

>> set GlobalP=$extract(DIC,1,$length(DIC)-1)_")"  ;"convert to >> closed form >> new Filename set Filename=$$UNIQUE^%ZISUTL("/tmp/ >> vistaedit.tmp") >> set result=$$WP2HFSfp^TMGIOUTL(GlobalP,Filename) >> if result=0 goto EditDone

>> new HookCmd >> set HookCmd=Editor_" "_Filename_" 2>"_EditErrFile  ;"use NULL >> instead?? >> zsystem HookCmd >> set result=$ZSYSTEM&255  ;"get result of execution. (low byte >> only). 0=success >> if result>0 goto EditDone

>>  ;"read file back into global WP >> set result=$$HFS2WPfp^TMGIOUTL(Filename,GlobalP) >>  ;"if result=1 do

>> EditDone >> new temp set temp=$$DelFile^TMGIOUTL(Filename) >> set temp=$$DelFile^TMGIOUTL(Filename_"~")  ;"joe editor copies >> output to filename~ as a backup >> set temp=$$DelFile^TMGIOUTL(EditErrFile) >> EditAbort >> quit

>> LinuxEdit(Editor,FullPathName) >>  ;"Purpose: This will be a shell for a linux editor >>  ;"Input: Editor -- the name of the linux editor to use (i.e. >> vim, joe, pico etc) >>  ;" Allowed values: joe,vim,pico >>  ;" FullPathName -- the path name on the Linux HFS to >> edit. >>  ;"Results: none

>> new result set result=0 >> new GlobalP

>> On Nov 12, 11:21 am, "Sam Habiel" <sam.hab...@gmail.com> wrote:

>> > Kevin,

>> > Can you share how you set-up an external editor?

>> > Sam

>> > On Wed, Nov 12, 2008 at 8:21 AM, Sam Habiel <sam.hab...@gmail.com> wrote: >> > > Two comments:

>> > > There is an option under EVE>Operations Mangement that lets you edit >> > > the Intro text.

>> > > To get out of the editor, when you don't have PF1 mapped correctly: >> > > Ctrl-E to Quit >> > > Esc,O,P then the key (Q to quit; E to save and quit >> > > Ctrl-[,O,P then the key.

>> > > Sam

>> > > On Wed, Nov 12, 2008 at 5:29 AM, kdt...@gmail.com <kdt...@gmail.com> wrote:

>> > >> Ignacio,

>> > >> I have gotten stuck in that built-in VistA enough times, that my goal >> > >> is to never go into it again. I can never remember the magic sequence >> > >> of keys to get it to exit.

>> > >> I set up an external editor, so I can use a linux-based editor. My >> > >> favorite is JOE, but it also works with vi or nano.

>> > >> Let me know if you need the code.

>> > >> Kevin

>> > >> On Nov 11, 5:26 pm, "Ignacio Valdes" <ival...@hal-pc.org> wrote: >> > >>> Here is the terminal session and how to for changing the message that >> > >>> appears to all users before they login to the system. Even easier than >> > >>> this is Kevin Toppenberg's GUI-Config which I highly recommend, just >> > >>> go to Advanced and edit the KERNEL SYSTEM PARAMETERS file Intro >> > >>> Message field.

>> > >>> Below, VISTA.ICH.LOCAL is the name of our local install, you would >> > >>> have to put in your local installation name instead of that. Also, >> > >>> this is the first time I've used the full-screen editor. A little >> > >>> trick: you may have to change Putty keyboard settings to VT100 >> > >>> emulation in order to save your work. Also a little gotcha is that one >> > >>> must press the F1 key and then h (help) or F1 key and then e (saves >> > >>> and exits) but not F1 and h or e at the same time, or just F1 by >> > >>> itself or nothing will happen and you phone Dave 3 times and he is >> > >>> baffled. Then you remember DEC stuff from the 80's and bringing the >> > >>> campus computer system to its knees compiling ADA on a Vax and...well

...

read more »

   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


8. Sam Habiel View profile More options Nov 14 2008, 5:36 am From: "Sam Habiel" <sam.hab...@gmail.com> Date: Fri, 14 Nov 2008 02:36:28 -0800 Local: Fri, Nov 14 2008 5:36 am Subject: Re: [Hardhats] Re: Intracare Implementation Log Episode 24: Changing Intro Message with Fileman. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author Oh, of course, thank you! That's terrific work.

Sam

- Hide quoted text - - Show quoted text - On Fri, Nov 14, 2008 at 2:35 AM, Sam Habiel <sam.hab...@gmail.com> wrote: >>>"The referenced routines WP2HFS and HFS2WP are routines that load in > and save out WP arrays to the host file system. And DelFile does what > you would think. Let me know if you need these."

> It would be nice to have them, only if you are not using the Kernel > API's to write and read wp files.

> Sam

> On Thu, Nov 13, 2008 at 10:57 AM, kdt...@gmail.com <kdt...@gmail.com> wrote:

>> Oops, accidentally sent incomplete...

>> The referenced routines WP2HFS and HFS2WP are routines that load in >> and save out WP arrays to the host file system. And DelFile does what >> you would think. Let me know if you need these.

>> Also, I have put a zip file with all the files in my TMG library up on >> the Google Groups section with downloads for our Hardhats group.

>> LinuxEdit(Editor,FullPathName) >>  ;"Purpose: This will be a shell for a linux editor >>  ;"Input: Editor -- the name of the linux editor to use (i.e. >> vim, joe, pico etc) >>  ;" Allowed values: joe,vim,pico >>  ;" FullPathName -- the path name on the Linux HFS to >> edit. >>  ;"Results: none

>> new result set result=0 >> new GlobalP

>>  ;"By limiting value to certain values, it prevents a rouge >> user from putting a wedged >>  ;"linux command into "Editor" and executing a system command >> through zsystem. >> set Editor=$get(Editor,"rvim") >> if (Editor'="rvim")&(Editor'="joe")&(Editor'="pico") goto >> LEditAbort

>>  ;"Only allow users with programmer access to use joe >> if (Editor="joe") do if result=1 goto EditAbort >> . new AccessCode >> . set AccessCode=$piece(^VA(200,DUZ,0),"^",4) >> . if AccessCode'="@" do >> . . write !!,"*** Sorry. Insufficient security clearance to >> use insecure 'joe' editor. ***",! >> . . write "Please enter 'User's Toolbox', then 'Edit User >> Characteristics' at a menu",! >> . . write " option to change PREFERRED EDITOR to something >> other than JOE.",!! >> . . set result=1

>>  ;"new EditErrFile set EditErrFile="/tmp/trashjoeoutput.txt" >> new Filename set Filename=FullPathName

>> new HookCmd >>  ;"set HookCmd=Editor_" "_Filename_" 2>"_EditErrFile  ;"use >> NULL instead?? >> set HookCmd=Editor_" "_Filename >> zsystem HookCmd >> set result=$ZSYSTEM&255  ;"get result of execution. (low byte >> only). 0=success >> if result>0 goto LEditDone

>> LEditDone >>  ;"set temp=$$DelFile^TMGIOUTL(Filename_"~")  ;"joe editor >> copies output to filename~ as a backup >>  ;"set temp=$$DelFile^TMGIOUTL(EditErrFile) >> LEditAbort >> quit

>> Finally, use the User's Toolbox menu to change the preferred editor >> for your user.

>> Kevin

>> On Nov 13, 1:47 pm, "kdt...@gmail.com" <kdt...@gmail.com> wrote: >>> Sam et al,

>>> First, create an entry in the ALTERNATE EDITOR file. Here is a dump >>> of one such record. I have setup a function EDIT^TMGEDIT that will >>> accept a parameter of which external editor I want (see more below)

>>> Select FILE (or SUBFILE): alter >>> Select entry in file# 1.2 >>> Select ALTERNATE EDITOR: joe - LINUX EDITOR >>> Display empty fields? No// (No) >>> Enter Output Device: HOME// TELNET

>>> Record# 5, >>> .01-NAME : JOE - LINUX EDITOR >>> 1-ACTIVATION CODE FROM DIWE : DO EDIT^TMGEDIT("joe") >>> 7-DESCRIPTION : >>> This will evoke the linux editor 'joe'

>>> ----- Press Key To Continue -----

>>> Here is the code from EDIT^TMGEDIT

>>> TMGEDIT ;TMG/kst/Interface to allow use of linux editor in Fileman ; >>> 03/25/06 >>>  ;;1.0;TMG-LIB;**1**;7/19/08

>>>  ;"TMG EDITOR FUNCTIONS

>>>  ;"======================================================================= >>>  ;" API -- Public Functions. >>>  ;"======================================================================= >>>  ;"$$EDIT(Editor)

>>>  ;"======================================================================= >>>  ;"PRIVATE API FUNCTIONS >>>  ;"=======================================================================

>>>  ;"======================================================================= >>>  ;"=======================================================================

>>> EDIT(Editor) >>>  ;"Purpose: This will be a shell for a linux editor >>>  ;"Input: Editor -- the name of the linux editor to use (i.e. >>> vim, joe, pico etc) >>>  ;" Allowed values: joe,vim,pico >>>  ;"Note: When this function gets called, VistA sets up some >>> variables >>>  ;" first to tell what should be edited etc. >>>  ;" DIC=The global root of the WP field where the text to >>> be edited is >>>  ;" stored (or where new text should be stored) >>>  ;" e.g. "^TMG(22702,27,DV," >>>  ;" (DV is also predefined, so reference to DV in DIC is >>> covered.) >>>  ;" There are other variables set up re margins etc. I >>> will be ignoring these. >>>  ;"Results: none

>>> new result set result=0 >>> new GlobalP

>>>  ;"By limiting value to certain values, it prevents a rouge >>> user from putting a wedged >>>  ;"linux command into "Editor" and executing a system command >>> through zsystem. >>> set Editor=$get(Editor,"rvim") >>> if (Editor'="rvim")&(Editor'="joe")&(Editor'="pico")& >>> (Editor'="nano") goto EditAbort

>>>  ;"Only allow users with programmer access to use joe >>> if (Editor="joe") do if result=1 goto EditAbort >>> . new AccessCode set AccessCode=$get(DUZ(0)) >>> . if AccessCode'["@" do >>> . . write !!,"*** Sorry. Insufficient security clearance to >>> use insecure 'joe' editor. ***",! >>> . . write "Fileman access code of @ required, because JOE can >>> shell out to linux Prompt.",!! >>> . . write "Please enter 'User's Toolbox', then 'Edit User >>> Characteristics' at a menu",! >>> . . write " option to change PREFERRED EDITOR to something >>> other than JOE.",!! >>> . . set result=1

>>> new EditErrFile set EditErrFile="/tmp/trashjoeoutput.txt"

>>> set GlobalP=$extract(DIC,1,$length(DIC)-1)_")"  ;"convert to >>> closed form >>> new Filename set Filename=$$UNIQUE^%ZISUTL("/tmp/ >>> vistaedit.tmp") >>> set result=$$WP2HFSfp^TMGIOUTL(GlobalP,Filename) >>> if result=0 goto EditDone

>>> new HookCmd >>> set HookCmd=Editor_" "_Filename_" 2>"_EditErrFile  ;"use NULL >>> instead?? >>> zsystem HookCmd >>> set result=$ZSYSTEM&255  ;"get result of execution. (low byte >>> only). 0=success >>> if result>0 goto EditDone

>>>  ;"read file back into global WP >>> set result=$$HFS2WPfp^TMGIOUTL(Filename,GlobalP) >>>  ;"if result=1 do

>>> EditDone >>> new temp set temp=$$DelFile^TMGIOUTL(Filename) >>> set temp=$$DelFile^TMGIOUTL(Filename_"~")  ;"joe editor copies >>> output to filename~ as a backup >>> set temp=$$DelFile^TMGIOUTL(EditErrFile) >>> EditAbort >>> quit

>>> LinuxEdit(Editor,FullPathName) >>>  ;"Purpose: This will be a shell for a linux editor >>>  ;"Input: Editor -- the name of the linux editor to use (i.e. >>> vim, joe, pico etc) >>>  ;" Allowed values: joe,vim,pico >>>  ;" FullPathName -- the path name on the Linux HFS to >>> edit. >>>  ;"Results: none

>>> new result set result=0 >>> new GlobalP

>>> On Nov 12, 11:21 am, "Sam Habiel" <sam.hab...@gmail.com> wrote:

>>> > Kevin,

>>> > Can you share how you set-up an external editor?

>>> > Sam

>>> > On Wed, Nov 12, 2008 at 8:21 AM, Sam Habiel <sam.hab...@gmail.com> wrote: >>> > > Two comments:

>>> > > There is an option under EVE>Operations Mangement that lets you edit >>> > > the Intro text.

>>> > > To get out of the editor, when you don't have PF1 mapped correctly: >>> > > Ctrl-E to Quit >>> > > Esc,O,P then the key (Q to quit; E to save and quit >>> > > Ctrl-[,O,P then the key.

>>> > > Sam

>>> > > On Wed, Nov 12, 2008 at 5:29 AM, kdt...@gmail.com <kdt...@gmail.com> wrote:

>>> > >> Ignacio,

>>> > >> I have gotten stuck in that built-in VistA enough times, that my goal >>> > >> is to never go into it again. I can never remember the magic sequence >>> > >> of keys to get it to exit.

>>> > >> I set up an external editor, so I can use a linux-based editor. My >>> > >> favorite is JOE, but it also works with vi or nano.

>>> > >> Let me know if you need the code.

>>> > >> Kevin

>>> > >> On Nov 11, 5:26 pm, "Ignacio Valdes" <ival...@hal-pc.org> wrote: >>> > >>> Here is the terminal session and how to for changing the message that >>> > >>> appears to all users before they login to the system. Even easier than >>> > >>> this is Kevin Toppenberg's GUI-Config which I highly recommend, just >>> > >>> go to Advanced and edit the KERNEL SYSTEM PARAMETERS file Intro >>> > >>> Message field.

>>> > >>> Below, VISTA.ICH.LOCAL is the name of our local install, you would >>> > >>> have to put in your local installation name instead of that. Also, >>> > >>> this is the first time I've used the full-screen editor. A little >>> > >>> trick: you may have to change Putty keyboard settings to VT100 >>> > >>> emulation in order to save your work. Also a little gotcha is that

...

read more »

   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


9. Kevin Toppenberg View profile More options Nov 14 2008, 7:43 pm From: "Kevin Toppenberg" <kdt...@gmail.com> Date: Fri, 14 Nov 2008 19:43:24 -0500 Local: Fri, Nov 14 2008 7:43 pm Subject: Re: [Hardhats] Re: Intracare Implementation Log Episode 24: Changing Intro Message with Fileman. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author

Thanks Sam, I enjoy finding someone that can make use of my code.

I am going to attach the .m files for TMGEDIT and TMGIOUTL. That should be all you need.

Let me know if it doesn't work.

- Hide quoted text - - Show quoted text - On Fri, Nov 14, 2008 at 5:36 AM, Sam Habiel <sam.hab...@gmail.com> wrote:

> Oh, of course, thank you! That's terrific work.

> Sam

> On Fri, Nov 14, 2008 at 2:35 AM, Sam Habiel <sam.hab...@gmail.com> wrote: > >>>"The referenced routines WP2HFS and HFS2WP are routines that load in > > and save out WP arrays to the host file system. And DelFile does what > > you would think. Let me know if you need these."

> > It would be nice to have them, only if you are not using the Kernel > > API's to write and read wp files.

> > Sam

> > On Thu, Nov 13, 2008 at 10:57 AM, kdt...@gmail.com <kdt...@gmail.com> > wrote:

> >> Oops, accidentally sent incomplete...

> >> The referenced routines WP2HFS and HFS2WP are routines that load in > >> and save out WP arrays to the host file system. And DelFile does what > >> you would think. Let me know if you need these.

> >> Also, I have put a zip file with all the files in my TMG library up on > >> the Google Groups section with downloads for our Hardhats group.

> >> LinuxEdit(Editor,FullPathName) > >>  ;"Purpose: This will be a shell for a linux editor > >>  ;"Input: Editor -- the name of the linux editor to use (i.e. > >> vim, joe, pico etc) > >>  ;" Allowed values: joe,vim,pico > >>  ;" FullPathName -- the path name on the Linux HFS to > >> edit. > >>  ;"Results: none

> >> new result set result=0 > >> new GlobalP

> >>  ;"By limiting value to certain values, it prevents a rouge > >> user from putting a wedged > >>  ;"linux command into "Editor" and executing a system command > >> through zsystem. > >> set Editor=$get(Editor,"rvim") > >> if (Editor'="rvim")&(Editor'="joe")&(Editor'="pico") goto > >> LEditAbort

> >>  ;"Only allow users with programmer access to use joe > >> if (Editor="joe") do if result=1 goto EditAbort > >> . new AccessCode > >> . set AccessCode=$piece(^VA(200,DUZ,0),"^",4) > >> . if AccessCode'="@" do > >> . . write !!,"*** Sorry. Insufficient security clearance to > >> use insecure 'joe' editor. ***",! > >> . . write "Please enter 'User's Toolbox', then 'Edit User > >> Characteristics' at a menu",! > >> . . write " option to change PREFERRED EDITOR to something > >> other than JOE.",!! > >> . . set result=1

> >>  ;"new EditErrFile set EditErrFile="/tmp/trashjoeoutput.txt" > >> new Filename set Filename=FullPathName

> >> new HookCmd > >>  ;"set HookCmd=Editor_" "_Filename_" 2>"_EditErrFile  ;"use > >> NULL instead?? > >> set HookCmd=Editor_" "_Filename > >> zsystem HookCmd > >> set result=$ZSYSTEM&255  ;"get result of execution. (low byte > >> only). 0=success > >> if result>0 goto LEditDone

> >> LEditDone > >>  ;"set temp=$$DelFile^TMGIOUTL(Filename_"~")  ;"joe editor > >> copies output to filename~ as a backup > >>  ;"set temp=$$DelFile^TMGIOUTL(EditErrFile) > >> LEditAbort > >> quit

> >> Finally, use the User's Toolbox menu to change the preferred editor > >> for your user.

> >> Kevin

> >> On Nov 13, 1:47 pm, "kdt...@gmail.com" <kdt...@gmail.com> wrote: > >>> Sam et al,

> >>> First, create an entry in the ALTERNATE EDITOR file. Here is a dump > >>> of one such record. I have setup a function EDIT^TMGEDIT that will > >>> accept a parameter of which external editor I want (see more below)

> >>> Select FILE (or SUBFILE): alter > >>> Select entry in file# 1.2 > >>> Select ALTERNATE EDITOR: joe - LINUX EDITOR > >>> Display empty fields? No// (No) > >>> Enter Output Device: HOME// TELNET

> >>> Record# 5, > >>> .01-NAME : JOE - LINUX EDITOR > >>> 1-ACTIVATION CODE FROM DIWE : DO EDIT^TMGEDIT("joe") > >>> 7-DESCRIPTION : > >>> This will evoke the linux editor 'joe'

> >>> ----- Press Key To Continue -----

> >>> Here is the code from EDIT^TMGEDIT

> >>> TMGEDIT ;TMG/kst/Interface to allow use of linux editor in Fileman ; > >>> 03/25/06 > >>>  ;;1.0;TMG-LIB;**1**;7/19/08

> >>>  ;"TMG EDITOR FUNCTIONS

>  ;"======================================================================= > >>>  ;" API -- Public Functions.

>  ;"======================================================================= > >>>  ;"$$EDIT(Editor)

>  ;"======================================================================= > >>>  ;"PRIVATE API FUNCTIONS

>  ;"=======================================================================

>  ;"=======================================================================

>  ;"=======================================================================

> >>> EDIT(Editor) > >>>  ;"Purpose: This will be a shell for a linux editor > >>>  ;"Input: Editor -- the name of the linux editor to use (i.e. > >>> vim, joe, pico etc) > >>>  ;" Allowed values: joe,vim,pico > >>>  ;"Note: When this function gets called, VistA sets up some > >>> variables > >>>  ;" first to tell what should be edited etc. > >>>  ;" DIC=The global root of the WP field where the text to > >>> be edited is > >>>  ;" stored (or where new text should be stored) > >>>  ;" e.g. "^TMG(22702,27,DV," > >>>  ;" (DV is also predefined, so reference to DV in DIC is > >>> covered.) > >>>  ;" There are other variables set up re margins etc. I > >>> will be ignoring these. > >>>  ;"Results: none

> >>> new result set result=0 > >>> new GlobalP

> >>>  ;"By limiting value to certain values, it prevents a rouge > >>> user from putting a wedged > >>>  ;"linux command into "Editor" and executing a system command > >>> through zsystem. > >>> set Editor=$get(Editor,"rvim") > >>> if (Editor'="rvim")&(Editor'="joe")&(Editor'="pico")& > >>> (Editor'="nano") goto EditAbort

> >>>  ;"Only allow users with programmer access to use joe > >>> if (Editor="joe") do if result=1 goto EditAbort > >>> . new AccessCode set AccessCode=$get(DUZ(0)) > >>> . if AccessCode'["@" do > >>> . . write !!,"*** Sorry. Insufficient security clearance to > >>> use insecure 'joe' editor. ***",! > >>> . . write "Fileman access code of @ required, because JOE can > >>> shell out to linux Prompt.",!! > >>> . . write "Please enter 'User's Toolbox', then 'Edit User > >>> Characteristics' at a menu",! > >>> . . write " option to change PREFERRED EDITOR to something > >>> other than JOE.",!! > >>> . . set result=1

> >>> new EditErrFile set EditErrFile="/tmp/trashjoeoutput.txt"

> >>> set GlobalP=$extract(DIC,1,$length(DIC)-1)_")"  ;"convert to > >>> closed form > >>> new Filename set Filename=$$UNIQUE^%ZISUTL("/tmp/ > >>> vistaedit.tmp") > >>> set result=$$WP2HFSfp^TMGIOUTL(GlobalP,Filename) > >>> if result=0 goto EditDone

> >>> new HookCmd > >>> set HookCmd=Editor_" "_Filename_" 2>"_EditErrFile  ;"use NULL > >>> instead?? > >>> zsystem HookCmd > >>> set result=$ZSYSTEM&255  ;"get result of execution. (low byte > >>> only). 0=success > >>> if result>0 goto EditDone

> >>>  ;"read file back into global WP > >>> set result=$$HFS2WPfp^TMGIOUTL(Filename,GlobalP) > >>>  ;"if result=1 do

> >>> EditDone > >>> new temp set temp=$$DelFile^TMGIOUTL(Filename) > >>> set temp=$$DelFile^TMGIOUTL(Filename_"~")  ;"joe editor copies > >>> output to filename~ as a backup > >>> set temp=$$DelFile^TMGIOUTL(EditErrFile) > >>> EditAbort > >>> quit

> >>> LinuxEdit(Editor,FullPathName) > >>>  ;"Purpose: This will be a shell for a linux editor > >>>  ;"Input: Editor -- the name of the linux editor to use (i.e. > >>> vim, joe, pico etc) > >>>  ;" Allowed values: joe,vim,pico > >>>  ;" FullPathName -- the path name on the Linux HFS to > >>> edit. > >>>  ;"Results: none

> >>> new result set result=0 > >>> new GlobalP

> >>> On Nov 12, 11:21 am, "Sam Habiel" <sam.hab...@gmail.com> wrote:

> >>> > Kevin,

> >>> > Can you share how you set-up an external editor?

> >>> > Sam

> >>> > On Wed, Nov 12, 2008 at 8:21 AM, Sam Habiel <sam.hab...@gmail.com> > wrote: > >>> > > Two comments:

> >>> > > There is an option under EVE>Operations Mangement that lets you > edit > >>> > > the Intro text.

> >>> > > To get out of the editor, when you don't have PF1 mapped correctly: > >>> > > Ctrl-E to Quit > >>> > > Esc,O,P then the key (Q to quit; E to save and quit > >>> > > Ctrl-[,O,P then the key.

> >>> > > Sam

> >>> > > On Wed, Nov 12, 2008 at 5:29 AM, kdt...@gmail.com < > kdt...@gmail.com> wrote:

> >>> > >> Ignacio,

> >>> > >> I have gotten stuck in that built-in VistA enough times, that my > goal > >>> > >> is to never go into it again. I can never remember the magic > sequence > >>> > >> of keys to get it to exit.

> >>> > >> I set up an external editor, so I can use a linux-based editor. > My > >>> > >> favorite is JOE, but it also works with vi or nano.

> >>> > >> Let me know if you need the code.

> >>> > >> Kevin

...

read more »

TMGEDIT.m 6K View Download

TMGIOUTL.m 34K View Download

   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


10. I, Valdes View profile More options Nov 12 2008, 12:14 pm From: "I, Valdes" <ival...@hal-pc.org> Date: Wed, 12 Nov 2008 09:14:27 -0800 (PST) Local: Wed, Nov 12 2008 12:14 pm Subject: Re: Intracare Implementation Log Episode 24: Changing Intro Message with Fileman. Reply to author | Forward | Print | Individual message | Show original | Remove | Report this message | Find messages by this author Yes, that would be great to have editor du-jour capability. -- IV

On Nov 12, 7:29 am, "kdt...@gmail.com" <kdt...@gmail.com> wrote: