Difference between revisions of "Ignacio Valdes Implementation Log/Episode24"
DavidWhitten (talk | contribs) |
DavidWhitten (talk | contribs) m (DavidWhitten moved page Episode24 to Ignacio Valdes Implementation Log/Episode24) |
||
| (2 intermediate revisions by 2 users not shown) | |||
| Line 1: | Line 1: | ||
| + | [[Ignacio_Valdes_Implementation_Log]] | ||
| + | |||
Here is the terminal session and how to for changing the message that | 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 | appears to all users before they login to the system. Even easier than | ||
| Line 553: | Line 555: | ||
use insecure 'joe' editor. ***",! | use insecure 'joe' editor. ***",! | ||
. . write "Fileman access code of @ required, because JOE can | . . write "Fileman access code of @ required, because JOE can | ||
| − | shell out to linux prompt.",!! | + | shell out to linux [[prompt~|Prompt]].",!! |
. . write "Please enter 'User's Toolbox', then 'Edit User | . . write "Please enter 'User's Toolbox', then 'Edit User | ||
Characteristics' at a menu",! | Characteristics' at a menu",! | ||
| Line 885: | Line 887: | ||
> use insecure 'joe' editor. ***",! | > use insecure 'joe' editor. ***",! | ||
> . . write "Fileman access code of @ required, because JOE can | > . . write "Fileman access code of @ required, because JOE can | ||
| − | > shell out to linux prompt.",!! | + | > shell out to linux [[prompt~|Prompt]].",!! |
> . . write "Please enter 'User's Toolbox', then 'Edit User | > . . write "Please enter 'User's Toolbox', then 'Edit User | ||
> Characteristics' at a menu",! | > Characteristics' at a menu",! | ||
| Line 1,183: | Line 1,185: | ||
>> use insecure 'joe' editor. ***",! | >> use insecure 'joe' editor. ***",! | ||
>> . . write "Fileman access code of @ required, because JOE can | >> . . write "Fileman access code of @ required, because JOE can | ||
| − | >> shell out to linux prompt.",!! | + | >> shell out to linux [[prompt~|Prompt]].",!! |
>> . . write "Please enter 'User's Toolbox', then 'Edit User | >> . . write "Please enter 'User's Toolbox', then 'Edit User | ||
>> Characteristics' at a menu",! | >> Characteristics' at a menu",! | ||
| Line 1,472: | Line 1,474: | ||
>>> use insecure 'joe' editor. ***",! | >>> use insecure 'joe' editor. ***",! | ||
>>> . . write "Fileman access code of @ required, because JOE can | >>> . . write "Fileman access code of @ required, because JOE can | ||
| − | >>> shell out to linux prompt.",!! | + | >>> shell out to linux [[prompt~|Prompt]].",!! |
>>> . . write "Please enter 'User's Toolbox', then 'Edit User | >>> . . write "Please enter 'User's Toolbox', then 'Edit User | ||
>>> Characteristics' at a menu",! | >>> Characteristics' at a menu",! | ||
| Line 1,771: | Line 1,773: | ||
> >>> use insecure 'joe' editor. ***",! | > >>> use insecure 'joe' editor. ***",! | ||
> >>> . . write "Fileman access code of @ required, because JOE can | > >>> . . write "Fileman access code of @ required, because JOE can | ||
| − | > >>> shell out to linux prompt.",!! | + | > >>> shell out to linux [[prompt~|Prompt]].",!! |
> >>> . . write "Please enter 'User's Toolbox', then 'Edit User | > >>> . . write "Please enter 'User's Toolbox', then 'Edit User | ||
> >>> Characteristics' at a menu",! | > >>> Characteristics' at a menu",! | ||
Latest revision as of 04:51, 13 November 2020
Ignacio_Valdes_Implementation_Log
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:
