I've done this once in a simple format, but now I'm trying it with a more complex arrangement and need help:
I have an ADM.PAT report into which I pull info from, respectively,
NUR.PC.WORK (nur.int.documented.activity, date.doc index), OE.ORD
(oe.order, ords.by.cat.and.patient index), and BAR.PAT (transactions,
bar.acct.number index). I have fragment calls; two from ADM to NUR and
OE, and one from OE to BAR. It works but it is slow as molasses.
What I want to do is call the info using a macro rather than a fragment.
What I have below is a first attempt at the macro and only calling to
the NUR (so far). It is failing to catch the variables desired, and -
more importantly - seems to be in an endless loop, printing the same
patient over and over.
My question: what do I need to do to catch what I need, taking into
account that the nur.int.documented.activity segment involves numerous
subscripts? Then, when I go to look for things in OE and BAR, do I need
to do anything differently?
Just FYI, I'm attaching the original report and 3 fragments in case you
need to review them.
Douglas B. McGaw
Newman Regional Health
1201 W. 12th Ave.
Emporia, KS 66801
[EMAIL PROTECTED]
620-343-6800 x 1130
fax: 620-340-6799
=======================================
@SAVE.PREFIX,
@LINK.TO.APPLICATION,
@PROCESS,
@RESTORE.PREFIX,
END
SAVE.PREFIX
@urn^URN,
@mothers.urn^MURN,
CL(!S)
LINK.TO.APPLICATION
@Chg.prefix(NUR.PC.WORK,?,!),
@Chg.prefix(NUR.PC.WORK,:,!),
@Chg.prefix(NUR.PC.WORK,*,!),
%Z.link("!","NUR","%.NUR.data","NUR.NWN")
PROCESS
""^NUR.PC.WORK.patient,
MURN^NUR.PC.WORK.patient,
B^int.base,
C^int.urn,
D^td.act.date,
E^td.act.time,
F^td.act.ct,
@NUR.PC.WORK.date.doc.x^NUR.PC.WORK.td.act.date,
@NUR.PC.WORK.td.value["NURRE11140"]^/METH,
@NUR.PC.WORK.td.value["NURMI50000"]^/ANES,
@NUR.PC.WORK.td.value["NURRE11180"]^/CS,
@NUR.PC.WORK.td.value["NURRE11120"]^/INDUC,
@NUR.PC.WORK.td.value["NURRE11131"]^/AUG1,
@NUR.PC.WORK.td.value["NURRE11130"]^/AUG2
RESTORE.PREFIX
CL(!U)
obstats.npr
Description: obstats.npr
=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= To subscribe or unsubscribe to the meditech-l, visit MTUsers.NET. To check the status of the meditech-l, visit MTUsers.NET. For help, email [EMAIL PROTECTED] Visit the MTUsers WikiPedia at MTUsers.NET/mwiki ______________________________________ meditech-l mailing list [email protected] http://mtusers.com/mailman/listinfo/meditech-l
