MEDITECH NPR Report Writing

Reverse DO Loop Walk Thru (MEDITECH NPR)

2008-08-25T11:24:00.001-07:00

GET.DETAIL
; EDM.PAT.daily.log.x[ADM.PAT.facility,registration.date,registration.time,urn]
; ?(HE)HEAADL[gqb,heRDT,heRTM,aa]
""^ADM.PAT.facility^registration.date^registration.time^urn,
DO{@Next(urn,daily.log.x) @RECORD;
@Next(registration.time,daily.log.x) ""^urn;
@Next(registration.date,daily.log.x) ""^registration.time;
@Next(ADM.PAT.facility,daily.log.x) b.registration.date^registration.date}

Reverse DO Loop Walk Thru:

Line 1
Code: DO{@Next(urn,daily.log.x) @RECORD;
Explained: Try to get the next urn from the EDM.PAT.daily.log.x index. This is the first time thru, the facility, registration.date & registration.time subscripts won’t be set up. So, nothing happens and we proceed thru down to Line 2.

Line 2:
Code: @Next(registration.time,daily.log.x) ""^urn;
Explained: Try to get the next registration time. This is the first time thru, the other subscripts are NIL, so proceed to Line 3.

Line 3:
Code: @Next(registration.date,daily.log.x) ""^registration.time;
Explained: Try to get the next registration date. This is the first time thru, the other subscripts are NIL, so proceed to Line 4.

Line 4:
Code: @Next(ADM.PAT.facility,daily.log.x) b.registration.date^registration.date}
Explained: Get the next facility in the index. Set the starting registration.date. Go to Line 1.

Line 1:
Explained: Try to get the next urn. We have 2 (ADM.PAT.facility,registration.date) of the 3 subscripts required to next on urn. Fall down to Line 2.

Line 2:
Explained: Get the next registration.time. Set the urn subscript to NIL.

Line 1:
Get the next urn. Go RECORD some data.

At each level of @Next processing, processing starts over at the top and proceeds until there are no more records for the subscripts in play.

First Class Denizens of the Universe (Part 3 of 3)

2008-08-04T10:51:00.000-07:00

In Part 1 of this series, we wrote a report to keep an eye on our use of MEDITECH Server Resources. In Part 2, we looked at a way to keep server resource usage to a minimum. In Part 3, we look at an important NPR change control problem and solution.

One evening you’re dining on the town, you jump as your cell phone rings unexpectedly. It’s the Help Desk; seems your new NPR report in the ED is crashing. Your plans for the evening fade away like an ice cube on the sidewalk on a summer day. Hours later, you discover the problem with the report. It seems you forgot about a macro that is called when the patient is under 2 years old. This code never made it LIVE. How could this have been prevented?

Read the rest of First Class Denizens of the Universe (Part 3 of 3) in the August MEDITECH Bulletin.

MEDITECH NPR Change Process for Problem Tickets

2008-08-02T17:16:00.000-07:00

Like most people, you want to do things right the first time. But in the event something doesn't go as planned, you need a standardized Change Process in place so the change can be backed out. Let's examine a Change Process we can use in MEDITECH NPR to work a problem ticket to completion.

1) Login to LIVE & backup the BAR.PAT.zcus.duplicate.charges.npr.report to BAR.PAT.zcus.duplicate.charges.npr.report.0.

2) Test the report BAR.PAT.zcus.duplicate.charges.npr.report in LIVE.

3) If the problem can be reproduced in LIVE, create another copy of the report named BAR.PAT.zcus.duplicate.charges.npr.report.dev in LIVE.

4) Put trap code in the .DEV report and resolve the problem.

5) Put the .DEV report on a testing menu in LIVE and have the reporting party test and approve the changes.

6) Enter an Emergency Change Control request.

7) Check TEST and make sure there isn't a .DEV report already there. If there is a .DEV report in TEST, backup as BAR.PAT.zcus.duplicate.charges.npr.report.dev.0. Someone might be making report modifications per another change request, we don't want to lose the work that might already be in progress.

8) Move the .DEV version from LIVE to TEST.

9) Remove the .DEV report from the testing menu in LIVE.

10) Delete the .DEV report in LIVE.

11) Delete BAR.PAT.zcus.duplicate.charges.npr.report in TEST.

12) Rename the .DEV report in TEST to BAR.PAT.zcus.duplicate.charges.npr.report.

13) Move BAR.PAT.zcus.duplicate.charges.npr.report LIVE.

I'd like to hear from you via email at: jsharpe@comstock-software.com on how you would improve this process.

MEDITECH NPR Report Performance Improvement

2008-07-22T08:56:00.000-07:00

NPR Report Performance Improvement Tips from a recent BAR Report:

1. Review the data definitions from page 1 on the report.

- BAR.PAT.discharge.x[bar.dis.ser,account]
?(B)BZDDX[bzds,bz]

- BAR.PAT.top[account]
$(B1)BZ[bz]

2. Order the subscripts from the index in the SELECTs first.

3. Remove report fragments that execute for every record.

Last week a client challenged me to improve the performance of a BAR report. I was able to reduce the run time of the report by about 75% using the steps above. While this is not an exhaustive list of improvements tips, it will make a good article in the future.

If you are looking for such a list, email me at: jsharpe@comstock-software.com; depending on interest, the list could come out sooner than later.

@Root in the MEDITECH NPR Report Writer

2008-07-19T21:25:00.000-07:00

You've initialized a standard MEDITECH NPR report, at once you recognize the infamous @Root macro. What does it do? The @Root macro is used to refer to a segment's top level segment also known as the root. @Root(@edm.data.doc) translates to *(HE)HEAA[aa] which is the main segment. Examine these MEDITECH data definitions for the segments below.

EDM.PAT.main[urn]
*(HE)HEAA[aa]

EDM.PAT.edm.data.doc[urn,doc.q]
*(HE)HEAA[aa]D[heDOC]

Using @ to Access Data Fields in MEDITECH NPR

2008-07-05T14:18:00.001-07:00

Consider the RAD.ORD.main segment.

main[urn]
$(R)RO[ro]

urn
arrive.time $(R)RO[ro]EX|11

RAD.ORD.urn is a subscript, you can access its value in your MEDITECH NPR report referring to it as @urn or urn. RAD.ORD.arrive.time does not translate to a local variable. This value requires a subscript to access the data. If you leave the @ symbol off of arrive.time you'll get this error:

To get MEDITECH NPR to translate to the correct object code, you want to reference this field as @arrive.time.

Runtime Selection Variables for your NPR Report?

2008-07-04T06:41:00.000-07:00

Find the runtime variables for your selections after the report is translated.

To define the custom fields for your report's picture in NPR:

xx.date.selection.from
DAT=FREE
LEN=8
VAL=b.operation.date

xx.date.selection.thru
DAT=FREE
LEN=8
VAL=e.operation.date

Notice how the runtime variables b.operation.date & e.operation.date are translated as /b.operation.date & /e.operation.date by the NPR Report Writer.

MEDITECH Client Server Reference: http://meditech.com/prrw/pages/RWcbASvariables.htm

MEDITECH Magic Reference: http://meditech.com/prrw/pages/RWmbASvariables.htm

Finding What You're Looking For?

2008-07-01T21:29:00.000-07:00

Have you ever been at a loss for a data definition that you see in the NPR Report Writer, but couldn't find in the MEDITECH Data Definitions for your release of MEDITECH?

Try looking at the Data Definitions that comes after the release you are currently on. If your hospital runs Client Server 5.55 SR2; try looking at the CS 5.6 SR data definitions.

GL Budget Period Totals

2008-07-01T08:18:00.000-07:00

This question came in this morning, but for some reason I can't get back to you because the email message bounces back. Here's your question and my answer:

=== QUESTION ===

this is not a tech guy, far from it, yet i know that this should be simple.

GL.Budget

One file gives me the annual amounts found in my budget file and I can see how to get the annual numbers.
then next file will give me the period (12 monthly) amounts that total to the annual amount.

So how do I return the 12 period amounts from the detail file?

Thanks for any help.

=== ANSWER ===

If you are in CS you'll want to use the 'gl.period.budgets.file' as your segment; if you are MAGIC you'll use the 'periods' as your segment. To get the amount for period 1, you'll return budget.ytd. For the other periods, you'll take the budget.ytd and subtract the previous budget.ytd.

If you need help coding this, I can setup a time to WebEx with you.

Great question, thanks for asking,
John

Turn Off Buffering in NPR Reports (Client Server)

2008-06-14T23:55:00.000-07:00

"To turn off buffering, enter BUF=NONE in the report’s footnote section. If a report has a VAL statement that attempts to replace elements with buffered results increasing a line’s length longer than 255 characters, a translation error message appears." - Meditech Client Server NPR Manual

ABS.PAT Dxs

2008-06-12T10:40:00.000-07:00

abs.pat.dxs[urn, dx.seq.no]
:DZ[dz]D["DX",dzDXN]

Field Name Offset/Local/VAL
dx.seq.no dzDXN
dx :DZ[dz]D["DX",dzDXN]|0

To hard code and print 10 dxs side by side from the ABS.PAT.main segment define your VAL statements in your fields as follows.

NPR DX Field 1:
VAL=IF{""^dx.seq.no,@Next(dx.seq.no) @dx;""}

NPR DX Fields 2 - 10:
VAL=IF{@dx.seq.no @Next(dx.seq.no),@dx;""}

Details Worktools

2008-06-07T00:25:00.000-07:00

Get Organized: http://www.details-worktools.com

One Way to Simplify IF Statments

2008-06-05T16:33:00.000-07:00

Assume Q has a value of 1 or 2.

This: IF{(0<Q<3) 1;0} is simpler than this: IF{(Q=1)!(Q=2) 1;0}.

MEDITECH Magic Reports with Style

2008-06-05T09:44:00.000-07:00

I just joined the forum at http://rwpgx.org. Looks like a great place to meet like minded developers. More later...

Sorting Strings By Delimiter

2008-06-04T23:57:00.000-07:00

I love a great text editor. My favorite is Textpad. There are times when I'm working on a computer where installing Textpad is not an option. That's where this tool comes in. Ever need to sort a string by delimiter or change delimiters? Maybe and its a BIG maybe, you'll keep this free tool in mind if you do. Here it is in action.

Try it here: http://comstock-software.com/SortDelimitedList.aspx

Please leave suggestions as comments to this post.

Populating the RL Select with KEYWORDs

2008-06-04T22:04:00.000-07:00

"END"^c.patient.gl.account["BEGINNING"]

Code From the Footnotes

2008-06-04T08:52:00.000-07:00

Do you have occasions where you'd like CS code to run right out of the gate in your NPR report? Try adding a footnote with only code (no AL keyword).

This footnote: %Z.rw.fragment("","MRI.PAT") translated to the second line of object code in the report as: %(Z)rw.fragment("","MRI.PAT").

NPR Field Attribute - SIZEV

2008-06-03T00:28:00.001-07:00

NPR Field Attribute SIZEV for vertical:

DAT=FREE
FONT=n
JFY=L
LEN=1
SIZE=3.0
SIZEV=3.0
VAL="+"

Requiring an NPR Select in a Custom Field

2008-05-27T23:21:00.000-07:00

I've got an NPR report in Client Server with a custom defined field as a SELECT. The field is used to capture a value which determines the format, content & layout of the report. The field is set up on page 2 as:

xx.type IG Enter Report Type of T (TX) or D (DC)

The clinicians want the SELECT to be required. Here's one way to handle this:

- AL START IF{(c.xx.type@tr.12u'="T"'="D") @W.display("Select T or D as Report Type"),H(5);
- AL CLOSE.UP 1}

When the report type SELECTION is T or D, the report runs and returns results.

ADM.PAT CCDQR File

2008-05-27T21:17:00.000-07:00

ADM.PAT.ccdqr[ccdqr.patient,ccdqr.query]
*(A1)AA.CCDQR[aa,ggv]

MAGIC NUR custom queries will not file a blank over a filed query unless there is a custom attribute to clear the previous value.

In CS 5.5 the OE Custom Queries on the 'Enter / Edit Patient Data' screen will in fact file a blank value over a previous value.

First Class Denizens of the Universe (Part 2 of 3)

2008-05-14T07:29:00.000-07:00

As a MEDITECH Client Server Analyst who is aspiring to greater responsibilities, no doubt you’ll find yourself writing NPR reports. This article is the second in a series of three (see the April 2008 issue for Part 1) where we examine strategies to keep you in the limelight for all the right reasons.

In Part 1 of this series, we wrote a report to keep an eye on our use of MEDITECH Server Resources. In Part 2, we look at another way to keep server resource usage to a minimum.

Recently, I was challenged to improve the performance of a report in the NUR.PC.WORK DPM. This was challenging because the NUR module didn’t have the index I needed. It was also challenging because the report was already using an index. ...

Read the rest of First Class Denizens of the Universe (Part 2 of 3) in the May/June MEDITECH Bulletin.

Pre-Loading NPR Selects

2008-04-28T10:19:00.000-07:00

You have an NPR report, you'd like to autopopulate the following SELECT on.

Create a macro and call it from the NPR Title: "_%(BAR)PAT..zcus.report.name.M..preload("")_"

Define the following in a macro named preload:

1^c.bar.status["FB"],
1^c.bar.status["IB"],
1^c.bar.status["UB"],
"Billing Report";

Run the report and you'll see that the SELECT for bar.status is populated with the items from the macro.

First Class Denizens of the Universe (Part 1 of 3)

2008-04-01T18:58:00.000-07:00

"As a MEDITECH Client Server Analyst who is aspiring to greater responsibilities, no doubt you’ll find yourself writing NPR reports. This article is the first in a series of three where we examine strategies to keep you in the lime light for all the right reasons."

Read the rest of First Class Denizens of the Universe (Part 1 of 3) in the April MEDITECH Bulletin.

IS.NOT.NUMBER

2008-03-25T09:25:00.000-07:00

This elegant solution was posted by an astute, anonymous reader:

/TXT?0N

My original solution:

--IS.NOT.NUMBER
--; Input(s): /TXT
--; Output(s): /SKIP as nil
--; If /TXT is not a number return /SKIP as 1.
--0^Q,""^/SKIP,
--DO{(/TXT#Q^/CHR)&(/SKIP_.=.) E(/CHR)^/ASCII,
--IF{/ASCII<46 @SKIP;
--/ASCII>57 @SKIP;
--/ASCII=47 @SKIP},
--Q+1^Q},/SKIP
--
--SKIP
--1^/SKIP

Binary Programming

2008-03-20T10:09:00.000-07:00

Shayne Nelson on Binary Programming.