All messages should be posted in plain text. HTML will be converted to attachments. The meditech-l web site is MTUsers.com ======================================
Yes:
Below are a couple attribute examples I have of launching an NPR report
or frag. This may not be exactly what you need but may give you some
ideas.
This attribute prints an NPR form.
[EMAIL PROTECTED]"Y" 1,
FCL1="ADM.PAT.zcus.srw.guesthouse.form."^RPT,RPT_"S"^RPTS,RPT_"R"^RPT,
FCL1=%[RPTS](RPT,0)X}
-----------------------------------------------------------------
This one prints a Notice of Privacy Practice form:
[EMAIL PROTECTED]"HIPNPP"]
"N"^/[ANS%0,"HIPY/N"]|0,P(R,S,"N")^#},1
REQI=IF{'/[ANS%0,"HIPY/N"]|0}
[EMAIL PROTECTED]"Y 1,
FCL1="ADM.PAT.zcus.srw.npp.form."^RPT,RPT_"S"^RPTS,RPT_"R"^RPT,
FCL1=%[RPTS](RPT,0)X}
----------------------------------------------------------------
Carole - I have the following on an attribute regarding influenza
vaccination.
First line "NUR.INFV" stops at the query if they've been vaccinated this
year "N" or "U"(usure)
Second line requires the query if "N" or "U"(usure)
Third line checks the response to the query "NUR.INFV3 which asks if the
patient would like information
Lines 4, 5, and 6 run the report 'ADM.PAT.zcus.arb.influenza.info',
which personalizes the report with the patient name and room number,
then has the CDC text copied right into the report.
Since it's an NPR, your could include any info on it you want. You can
also write it out of any module, so if NUR.PAT or OE.PAT were the better
spot to grab the data you'd need you could do it from there.
This works nicely. Give me a call if you need any help with it.
IFE=[ANS,"NUR.INFV"]|0="N"!([ANS,"NUR.INFV"]|0="U")
REQI=[ANS,"NUR.INFV"]|0="N"!([ANS,"NUR.INFV"]|0="U")
[EMAIL PROTECTED]"Y" 1,
FCL1="ADM.PAT.zcus.arb.influenza.info."^RPT,RPT_"S"^RPTS,RPT_"R"^RPT,
FCL1=IF{%Z.switch.appl("ADM") ("** ADM Unavailable
**")^/.WO,%Z.w.macro(1,1);
FCL1=%[RPTS](RPT,0)X,%Z.switch.appl("")}}
------------------------------------------------------------------
We have this working.... on a NUR screen, for our admission assessment
[EMAIL PROTECTED]"Y" @W.return("Pickup the form"),c.patient^/PAT,
FCL1="OE.PAT.zcus.optio.diabetes.mgmt.tool.auto."^RPT,RPT_"S"^RPTS,
FCL1=RPT_"R"^RPT,%[RPTS](RPT,0)X}
-------------------------------------------------------------------
I have done this on the procedure level. You may need to change to that
unless it is the same prep on the category level.
I ended up writing the report in ADM.PAT rather than OE. OE takes a very
long time tocompile usually and I think I had other issues but can't
recall right now.
Here is the attribute I use. The DFT attribute defaults in a "Y" if it
is a hospital patient, otherwise defaults in N. We have a different way
for our clinic patients to get preps.
[EMAIL PROTECTED]"Y" 1,
FCL1="ADM.PAT.zcus.xl.slw.rad.prep.10."^RPT,RPT_"S"^RPTS,RPT_"R"^RPT,
FCL1=IF{%Z.switch.appl("ADM") ("** ADM
Unavailable**")^/.WO,%Z.w.macro(1,1);
FCL1=%[RPTS](RPT,0)X,%Z.switch.appl("")}}
[EMAIL PROTECTED]"XLN" "Y";"N"
--------------------------------------------------------------------
I have to tell you Peter, NUI is such a pain. It depends on what stage
of life you are and what application you are pulling the report from. I
have tried evrything to run a PHA frag report from OE and NUI just
pukes. I finally set up an OE.ORD report that pulls the PHA report as a
frag and then life is fine. We are Magic 5.4. SR 2. We have one CDS
which is for Admission Discharge Transfer orders. The PHA report is a
profile that automatically
prints to the Pharmacy printer when the query is evaluated. The other
report is a list of active OE and NUR orders that the floor uses to
reorder after a transfer... this is an ADM.PAT report which doesn't seem
to cause a problem.
The Pha Profile report attribute is called with this attribute:
IFE=IF{[ANS,"OEADT"]|0'="" /["aa"]^/PAT,
IFE="OE.ORD.zcus.hdc.pha.profile."^RPT,RPT_"S"^RPTS,RPT_"R"^RPT,
IFE=%[RPTS](RPT,0)X},1
This is the attibute that works for us for ADM from OE:
IFE=IF{[ANS,"OEADT3"]|0'="" /["aa"]^/PAT,
IFE="ADM.PAT.zcus.hdc.transfer.orders.072005."^RPT,RPT_"S"^RPTS,RPT_"R"^
RPT,
IFE=IF{%Z.switch.appl("ADM") ("** ADM Unavailable
**")^/.WO,%Z.w.macro(1,1);
IFE=%[RPTS](RPT,0)X,%Z.switch.appl("")}},1
----------------------------------------------------------------------
Print an NPR from a CDS at a Y prompt
[EMAIL PROTECTED]"Y"
FCL1A=MRI.PAT.medical.record^c.medical.record,[EMAIL PROTECTED],
FCL1A=%MRI.PAT.zcus.rpt.name.S("%(MRI)PAT..zcus.rpt.name.R")
For this MRI CDS/report, I'm storing the current patient's MR# in
c.medical.record, and then my report selects:
medical.record
EQ
/medical.record
Essentially, you'll need to send your "select" variables from the CDS
And setup your report to accept those variables. Hope this helps.
----------------------------------------------------------------------
I have a report that runs from an answer on a CDS in NUR.
On the CDS:
On every query I want to appear on the "Report"
[EMAIL PROTECTED]/CUR06 (different variable for each response)
On the query I'm testing to see if it changed since the last entry:
FCL1=IF{'/ONCE&(@.response'="")!(@.response'=/CUR08)}
FCL1A=1^/ONCE,@.response^/CUR08,
FCL1A=aa^/PATIENT,%NUR.PC.WORK.zcus.sks.hep.R(0),""^/DONE
Once this query is answered, the report prints immediately - so anything
after this query on the screen, does NOT appear on the report.
I've attached the report - for example purposes. Note the printing of
the report is done in one of the macros.
------------------------------------------------------------------------
--
IFE
IFE=IF{[ANS,"OERADALLER"]|0="Y" %OE.ORD.zcus.ivp.R("")}
------------------------------------------------------------------------
--
TO PRINT AN NPR REPORT FROM A QUERY:
Here is one we use in LAB on a OE PAT1 screen (OE ADMN DATA SCREEN) for
recurring lab patients:
THIS ATTRIBUTE IS USED TO PRINT A THERMAL LABEL FROM AN ATTRIBUTE THAT
CALLS A MACRO THAT HAS THE REPORT THAT PRINTS THIS LABEL:
QUERY
OELABLBL 18 73 PRINT LABEL:
ATTRIBUTE:
DFT="Y"
[EMAIL PROTECTED]"Y" [EMAIL PROTECTED]
%MIS.USER.zcus.g.is.lib3.M.adm.form4
FCL1=(AA)X},P(R,S)^#," "^#,""^/[ANS%0,"OELABLBL"]|0},""
We default a Yes response, that launches the MIS.USER report and the
macro called adm.form4.
Just edit my MIS.USER macro with your report name in the SETUP.PATIENT
part of the macro:
SETUP.PATIENT
A^/["urn"]
SETUP.PROGRAM
"ADM.PAT.zcus.lab.series.labels.fargo"^/PR,
"%"_/PR_".S("_D(34)_/PR_".R"_D(34)_","_D(34)_0_D(34)_")"^/PR
SEE ATTACHED FILE (LABSERIESLABEL.npr) FOR BOTH THE MIS REPORT THAT
HOUSES THE MACRO AND THE LABEL REPORT
I got this method from Iatric's web site several years ago and edited it
to meet my needs, thanks Joel,Joe and all at Iatrics.
Before we had custom formats in NUR and OE, this is how I printed my
custom reports. I do not need to use this method much anymore, but I can
think of 2 screen/cds's we still use it on (one in RM/QA and one in OE
ADMN DATA)
------------------------------------------------------------------
IFE=""^/COUNT,1
[EMAIL PROTECTED]"Y"&'/COUNT
FCL1A=1^/COUNT,%Z.on.device(0),%ADM.PAT.zcus.bm.wmc.homemeds.print.R(0)
------------------------------------------------------------------------
--
DFT=IF{([ANS,"NUR..B62"]|0="Y")!([ANS,"NURPEDB68"]|0="Y") "Y";"N"}
[EMAIL PROTECTED]"Y"&'/FND FCL1A=1^/FND,%Z.on.device("","Print on:"),
FCL1A=%NUR.PC.WORK.zcus.cp.ala.quit.smoking.R(0)
------------------------------------------------------------------------
--
Bill Mullins RN
Williamson Medical Center
2021 Carothers Road
Franklin,Tn 37067
615-435-5630
**********************************************************************
This email and any files transmitted with it are confidential and
intended solely for the use of the individual or entity to whom they
are addressed.
This footnote also confirms that this email message has been swept by Sophos
and MIMEsweeper for the presence of computer viruses.
**********************************************************************
LABSERIESLABEL.npr
Description: LABSERIESLABEL.npr
_______________________________________________ meditech-l mailing list [email protected] http://mtusers.com/mailman/listinfo/meditech-l
