Here is what I came up with.
 
PHA.PAT.zcus.rb.pat.hdr.w.meds.messages.M.messages
""^N^CT^DATE^TIME^TYPE^W^Q,
[EMAIL PROTECTED](PHA.RX.pnur.req.type,PHA.RX.nur.request.x
<mailto:[EMAIL PROTECTED](PHA.RX.pnur.req.type,PHA.RX.nur.request.x> ) 1,
DO{>@Root(PHA.RX.nur.request.x)[PHA.RX.pnur.req.type,X]^X N+1^N}},
IF{N>0 "There "_IF{N'=1 "are ";"is "}_N_" Nursing Request"_IF{N>1 "s"}_"
requiring attention."^/MES[Q+1^Q]},
""^PHA.RX.pnur.req.type^PHA.RX.pnur.req.date^PHA.RX.pnur.req.time^PHA.RX
.urn^PHA.RX.pnur.req.ctr^X^N,
"  "^/MES[Q+1^Q],
""^PHA.RX.pnur.req.type,
[EMAIL PROTECTED](PHA.RX.pnur.req.type,PHA.RX.nur.request.x)^TYPE
<mailto:[EMAIL PROTECTED](PHA.RX.pnur.req.type,PHA.RX.nur.request.x)^TYPE>
""^PHA.RX.pnur.req.date,
[EMAIL PROTECTED](PHA.RX.pnur.req.date,PHA.RX.nur.request.x)^DATE
<mailto:[EMAIL PROTECTED](PHA.RX.pnur.req.date,PHA.RX.nur.request.x)^DATE>
""^PHA.RX.pnur.req.time,
[EMAIL PROTECTED](PHA.RX.pnur.req.time,PHA.RX.nur.request.x)^TIME
<mailto:[EMAIL PROTECTED](PHA.RX.pnur.req.time,PHA.RX.nur.request.x)^TIME>
""^PHA.RX.urn,
[EMAIL PROTECTED](PHA.RX.urn,PHA.RX.nur.request.x)^PHA.RX.urn
<mailto:[EMAIL PROTECTED](PHA.RX.urn,PHA.RX.nur.request.x)^PHA.RX.urn>  1,
"Request: "_TYPE_" "[EMAIL PROTECTED]'s.acct.number
<mailto:[EMAIL PROTECTED]'s.acct.number> _" "[EMAIL PROTECTED]'s.name
<mailto:[EMAIL PROTECTED]'s.name> _" "_%Z.date.out(DATE)_"
"_TIME^/MES[Q+1^Q]}}}},
DO{+/MES[L]^L IF{L(/MES[L])^LL>W LL^W}},W+2^W,
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>  2^ROW},
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>  
@Z.color.data.2nd;@Z.color.message2}^BG,
IF{Q<25 Q+3;25}^/WH,
@Window.centered(/WH-IF{ROW;@.row.offset},W,BG)^#,
@Z.bell^#,
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>  %Z.ws.hd("PHA Messages",1);
@Win.pos(0,((W/2)-7),"PHA MESSAGES")^#,
@Window.horiz.line(1)^#},
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>  
@Z.color.data.2nd;@Z.color.message2}^FG,
%PHA.U.view.text(^/MES,2,/WH-2,W-1,Q(FG,BG)),
@Window.close("")^#,
""^/MES

I attached this as a start or a close.up macro to the pha.pat patiet
view report.  Seems to work - Let me know what you think.
 
Roger
 
 
 
________________________________

From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] 
Sent: Thursday, August 02, 2007 4:00 PM
To: Roger Beverly
Subject: RE: [MEDITECH-L] Displaying text box from report writer - Magic
5.61


Here's a frag from a site we added some "pop-ups" to the Pt View...I'd
really appreciate you sending me back that frag after adding this if it
works.  I tried your code and had some problems...and I'd like to add
the comment field, and also hook the nDC ones as well.
 
Later.
 
 
 
Kevin McConnell, PharmD.
Clinical Consultant
(713)480-6810
[EMAIL PROTECTED]
  <http://www.RPhInformatics.com> 
 
 
Confidentiality Notice: This e-mail message, including any attachments,
is for the sole use of the intended recipient and may contain
confidential and privileged information. Any unauthorized review, use,
disclosure or distribution is prohibited. If you are not the intended
recipient, please contact the sender by reply e-mail and destroy all
copies of the original message.
<http://www.RPhInformatics.com>  
________________________________

From: Roger Beverly [mailto:[EMAIL PROTECTED] 
Sent: Thursday, August 02, 2007 2:44 PM
To: [EMAIL PROTECTED]
Subject: RE: [MEDITECH-L] Displaying text box from report writer - Magic
5.61
 
Magic
 
 
________________________________

From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] 
Sent: Thursday, August 02, 2007 2:55 PM
To: Roger Beverly
Subject: RE: [MEDITECH-L] Displaying text box from report writer - Magic
5.61
Hey Roger-
This is a great idea...I use a pop-up from the Pt View for Ped's and
other stuff but never thought of doing it this way - you 'da man!  Are
you Magic or CS?  They're different, and I;ve got both...
 
Later.
 
 
 
Kevin McConnell, PharmD.
Clinical Consultant
(713)480-6810
[EMAIL PROTECTED]
  <http://www.RPhInformatics.com> 
 
 
Confidentiality Notice: This e-mail message, including any attachments,
is for the sole use of the intended recipient and may contain
confidential and privileged information. Any unauthorized review, use,
disclosure or distribution is prohibited. If you are not the intended
recipient, please contact the sender by reply e-mail and destroy all
copies of the original message.
<http://www.RPhInformatics.com>  
________________________________

From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Roger Beverly
Sent: Thursday, August 02, 2007 1:22 PM
To: [email protected]
Subject: [MEDITECH-L] Displaying text box from report writer - Magic
5.61
 
I need some guidance from the Report Writer gurus.  I am working on a
way of displaying the hold acknowledgements for the pharmacists.  The
current meditech idea of displaying them in the sign on message is
inadequate since most pharmacists only log-in a couple of times a day.
I am trying to attach a start macro to the pharmacy patient view
fragment that pops up a message showing the hold acknowledgements.  I've
got the hold acknowledgements, but I need to know how to display the
info in a text box on the screen.  I have tried @W.display and
%Z.wm.macro.  Neither works, and both cause screen corruption. Here is
the macro for your info:
""^N^CT^DATE^TIME,
"HA"^PHA.RX.pnur.req.type,""^PHA.RX.pnur.req.date,
DO{>@Root(PHA.RX.nur.request.x)[PHA.RX.pnur.req.type,X]^X N+1^N},
IF{N>0 "There "_IF{N'=1 "are ";"is "}_N_" Hold Acknowledgement
Request"_IF{N>1 "s"}_" requi
IF{N>0 "Requests are for:"^/.WO[Q+1^Q]},
"HA"^PHA.RX.pnur.req.type,
;""^PHA.RX.pnur.req.type,
;[EMAIL PROTECTED](PHA.RX.pnur.req.type,PHA.RX.nur.request.x)
""^PHA.RX.pnur.req.date,
[EMAIL PROTECTED](PHA.RX.pnur.req.date,PHA.RX.nur.request.x)^DATE
<mailto:[EMAIL PROTECTED](PHA.RX.pnur.req.date,PHA.RX.nur.request.x)%5eDATE>
""^PHA.RX.pnur.req.time,
[EMAIL PROTECTED](PHA.RX.pnur.req.time,PHA.RX.nur.request.x)^TIME
<mailto:[EMAIL PROTECTED](PHA.RX.pnur.req.time,PHA.RX.nur.request.x)%5eTIME>
""^PHA.RX.urn,
[EMAIL PROTECTED](PHA.RX.urn,PHA.RX.nur.request.x)^PHA.RX.urn
<mailto:[EMAIL PROTECTED](PHA.RX.urn,PHA.RX.nur.request.x)%5ePHA.RX.urn>  1,
"   "[EMAIL PROTECTED]'s.name_" "_%Z.date.out(DATE)_"
"_TIME^/.WO[Q+1^Q]}}},
;
;""^/MES;
%Z.wm.macro(1,0);
 
 
Anybody have a good way of displaying data as a pop-up text box without
screwing up the screen?
 
Thanks - Roger
 
Roger Beverly, PharmD
Clinical Pharmacy Coordinator
Conway Medical Center, Inc.
[EMAIL PROTECTED]
 
Conway Medical Center Disclaimer
The information contained in this message may be privileged and
confidential and protected from disclosure. If the reader of this
message is not the intended recipient, or an employee or agent
responsible for delivering this message to the intended recipient, you
are hereby notified that any dissemination, distribution or copying of
this communication is strictly prohibited. If you have received this
communication in error, please notify us immediately by replying to the
message and deleting it from your computer. Thank you
H20070801
Conway Medical Center Disclaimer
The information contained in this message may be privileged and
confidential and protected from disclosure. If the reader of this
message is not the intended recipient, or an employee or agent
responsible for delivering this message to the intended recipient, you
are hereby notified that any dissemination, distribution or copying of
this communication is strictly prohibited. If you have received this
communication in error, please notify us immediately by replying to the
message and deleting it from your computer. Thank you
H20070801


Conway Medical Center Disclaimer
The information contained in this message may be privileged and confidential 
and protected from disclosure. If the reader of this message is not the 
intended recipient, or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any 
dissemination, distribution or copying of this communication is strictly 
prohibited. If you have received this communication in error, please notify us 
immediately by replying to the message and deleting it from your computer. 
Thank you
T20070801

<<image001.jpg>>

<<image002.jpg>>

=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
To subscribe or unsubscribe to the meditech-l, visit 
http://mtusers.com/mailman/listinfo/meditech-l_mtusers.com

To check the status of the meditech-l, visit MTUsers.NET

For help, email [EMAIL PROTECTED]

Please visit and add information to the MTUsers WikiPedia at MTUsers.NET/mwiki
______________________________________
meditech-l mailing list
[email protected]
http://mtusers.com/mailman/listinfo/meditech-l_mtusers.com

Reply via email to