Episode46 - Revision history

NeilArmstrong: A

2012-03-24T15:22:28Z

← Older revision		Revision as of 15:22, 24 March 2012
Line 49:		Line 49:
	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:27:27Z

Added Glossary Link to Prompt~

← Older revision		Revision as of 12:27, 5 March 2012
Line 9:		Line 9:
	reject it with 'no protocol specified'		reject it with 'no protocol specified'

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

	Dump the debug variable command: From the gtm prompt D ^XTER the		Dump the debug variable 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 54:		Line 54:
	Save the file.		Save the file.

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

	gtm>ZP ^TIUPRPN1		gtm>ZP ^TIUPRPN1

Ivaldes1 at 17:42, 23 September 2009

2009-09-23T17:42:01Z

← Older revision		Revision as of 17:42, 23 September 2009
Line 65:		Line 65:

	-- IV		-- IV

			All rights reserved - Ignacio Valdes

Ivaldes1 at 17:38, 23 September 2009

2009-09-23T17:38:30Z

New page

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