Page Numbering Example - Revision history

NeilArmstrong: Added glossary link to Record~

2012-03-21T19:59:23Z

Added glossary link to Record~

← Older revision		Revision as of 19:59, 21 March 2012
Line 54:		Line 54:
	Then change line 51 to:		Then change line 51 to:

	.W "MEDICAL RECORD Page "_$G(TIUZPAGE,"IVTest") W:'+$G(TIUFLAG) "		.W "MEDICAL [[RECORD~\|Record]] Page "_$G(TIUZPAGE,"IVTest") W:'+$G(TIUFLAG) "
	**" W ?(80-$L(TIUPFHDR)),TIUPFHDR		**" W ?(80-$L(TIUPFHDR)),TIUPFHDR

NeilArmstrong: Added glossary link to Prompt~

2012-03-05T12:06:23Z

Added glossary link to Prompt~

← Older revision		Revision as of 12:06, 5 March 2012
Line 10:		Line 10:
	If you don't use this command once before using gedit then the X Window System (which handles GUI stuff on Linux) will reject it with message that says that 'no protocol specified'		If you don't use this command once before using gedit then the X Window System (which handles GUI stuff on Linux) will reject it with message that says that 'no protocol specified'

	If you don't want to leave the mumps command prompt, for example, if you have already setup some of your local symbol table (with DUZ, U, etc) then you can use a command that will force GT.M to recreate the object file for a program if necessary.		If you don't want to leave the mumps command [[prompt~\|Prompt]], for example, if you have already setup some of your local symbol table (with DUZ, U, etc) then you can use a command that will force GT.M to recreate the object file for a program if necessary.

	One such command is:		One such command is:

	From the gtm prompt do a ZP ^routinename (The routinename is the mumpsfilename without the .m) In our example, these routine names are TIUPRPN1 and TIUPRPN2.		From the gtm [[prompt~\|Prompt]] do a ZP ^routinename (The routinename is the mumpsfilename without the .m) In our example, these routine names are TIUPRPN1 and TIUPRPN2.
	So you would say ZP ^TIUPRPN1 or ZP ^TIUPRPN2 .		So you would say ZP ^TIUPRPN1 or ZP ^TIUPRPN2 .

	If you need to debug a program and need to dump the variable that occurred when an error was logged in the system. command: From the gtm prompt D ^XTER the		If you need to debug a program and need to dump the variable that occurred when an error was logged in the system. command: From the gtm [[prompt~\|Prompt]] D ^XTER the
	highest numbered error message will be the latest one.		highest numbered error message will be the latest one.

Line 59:		Line 59:
	Save the file.		Save the file.

	At the gtm prompt issue:		At the gtm [[prompt~\|Prompt]] issue:

	gtm>ZP ^TIUPRPN1		gtm>ZP ^TIUPRPN1

DavidWhitten at 16:45, 6 November 2009

2009-11-06T16:45:06Z

← Older revision		Revision as of 16:45, 6 November 2009
Line 1:		Line 1:
	This originally appeared as "Intracare Implementation Log Episode 46: A (Very) brief Programming VistA with MUMPS page numbering example."		<tt> This originally appeared as "Intracare Implementation Log Episode 46: A (Very) brief Programming VistA with MUMPS page numbering example." </tt>

	In this brief example, we will get header page number printing working		In this brief example, we will get header page number printing working
	for progress notes. The routines to be changed are TIUPRPN1.m and		for progress notes. The routines to be changed are the routine ^TIUPRPN1 and
	TIUPRPN2.m which in the rpm or deb based install will reside in		the routine ^TIUPRPN2 (in GT.M stored in files: TIUPRPN1.m and TIUPRPN2.m) which in an install based on [[Astronaut]] (the rpm or deb based install) will reside in the Linux Directory named /opt/worldvista/EHR/r
	/opt/worldvista/EHR/r

	Linux ~~Editor~~: vim, nano, gedit, etc. If you want to use a GUI editor		There are several Linux Editors that work in text mode (such as you get with a putty or terminal emulator window) : vim, nano, gedit, etc.
	such as gedit from a su'ed in login such as to the vista id, you must		If you are using a GUI interface to Linux, you might want to use a GUI editor such as gedit or xemacs. To do this if you have used the "su" command to login to a different id, such as (from a su'ed in login such as to the vista id), you must issue a linux command to tell the "X Window system" that you need it to use a different user id. This is usually done to deal with issues of file protections.
	issue a: xhost +SI:localuser:vista once before using gedit or X will		The linux command line to use is: <tt> xhost +SI:localuser:vista </tt>
	reject it with 'no protocol specified'		If you don't use this command once before using gedit then the X Window System (which handles GUI stuff on Linux) will reject it with message that says that 'no protocol specified'

	~~Compile~~ command~~: From the gtm~~ prompt do a ~~ZP ^<mumpsfilename without~~		If you don't want to leave the mumps command prompt, for example, if you have already setup some of your local symbol table (with DUZ, U, etc) then you can use a command that will force GT.M to recreate the object file for a program if necessary.
	the .m> ~~where in this example it is TIUPRPN1 and TIUPRPN2.~~

	~~Dump~~ the debug variable command: From the gtm prompt D ^XTER the		One such command is:

			From the gtm prompt do a ZP ^routinename (The routinename is the mumpsfilename without the .m) In our example, these routine names are TIUPRPN1 and TIUPRPN2.
			So you would say ZP ^TIUPRPN1 or ZP ^TIUPRPN2 .

			If you need to debug a program and need to dump the variable that occurred when an error was logged in the system. command: From the gtm prompt D ^XTER the
	highest numbered error message will be the latest one.		highest numbered error message will be the latest one.

Ivaldes1 at 03:45, 22 July 2009

2009-07-22T03:45:48Z

New page

This originally appeared as "Intracare Implementation Log Episode 46: A (Very) brief Programming VistA with MUMPS page numbering example."

In this brief example, we will get header page number printing working
for progress notes. The routines to be changed are TIUPRPN1.m and
TIUPRPN2.m which in the rpm or deb based install will reside in
/opt/worldvista/EHR/r

Linux Editor: vim, nano, gedit, etc. If you want to use a GUI editor
such as gedit from a su'ed in login such as to the vista id, you must
issue a: xhost +SI:localuser:vista once before using gedit or X will
reject it with 'no protocol specified'

Compile command: From the gtm prompt do a ZP ^<mumpsfilename without
the .m> where in this example it is TIUPRPN1 and TIUPRPN2.

Dump the debug variable command: From the gtm prompt D ^XTER the
highest numbered error message will be the latest one.

In TIUPRN1.m just after line 13 which reads: N
TIUPFHDR,TIUPFNBR,TIUMISC,TIUCONT1,TIUIDONE,TMP add the following
line:

S TIUZPAGE=1

Change line 26 by adding a dummy parameter .S15967 and TIUZPAGE as
well as a increment operation. It should read:

. I +$G(TIUSPG) D
HEADER^TIUPRPN2(.TIUFOOT,TIUFLAG,.TIUPFHDR,TIUCONT1,.S15967,TIUZPAGE)
S TIUZPAGE=$G(TIUZPAGE)+1

Do similar to line 40:

. . . I '+$G(TIUSPG) D
HEADER^TIUPRPN2(.TIUFOOT,TIUFLAG,.TIUPFHDR,TIUCONT1,.S15967,TIUZPAGE)
S TIUZPAGE=$G(TIUZPAGE)+1

Save the file.

Now edit TIUPRN2.m

As before, add the TIUZPAGE variable to the call to HEADER on line 39:

FOOTW I '+$G(TIUHDR),+$G(TIUCONT) D
HEADER(.TIUFOOT,TIUFLAG,.TIUPFHDR,TIUCONT1,$G(TIUROOT),TIUZPAGE)

Then to the actual function call on line 42:

HEADER(TIUFOOT,TIUFLAG,TIUPFHDR,TIUCONT1,TIUROOT,TIUZPAGE) ; Header

Then change line 51 to:

.W "MEDICAL RECORD Page "_$G(TIUZPAGE,"IVTest") W:'+$G(TIUFLAG) "
**" W ?(80-$L(TIUPFHDR)),TIUPFHDR

Save the file.

At the gtm prompt issue:

gtm>ZP ^TIUPRPN1
gtm>ZP ^TIUPRPN2

Then fire up CPRS and try printing a test patient note to actual paper
or a pdf. Page numbers should now appear. If you had CPRS running
before the compilation step then it is likely that you will have to
restart CPRS for the changes to appear.

-- IV