Hello L:
I need help with a macro that I got from the Meditech archives. This NPR has 2
macros, and this one, I believe is the one that is causing the screen
corruption for me. The NPR is attached to a CDS by way of an attribute and it
pulls in from the PHA, a list of the pt's current active meds.
The NPR macro pulls in the meds just fine, but when it goes to file, I get
screen corruption - I get the verb strip down by the cds; my user id is
appearing in the middle of the screen, and I can not get out of Process
Interventions. I have to kill the job I am working on.
So who can help me. We do not use GUI.
IF{A @MAIN.CODE},
1;
MAIN.CODE
""^TXT,
DO{>/TXT[TXT]^TXT ""^/TXT[TXT]},
""^TT,
DO{+/SAVE[TT]^TT ""^/SAVE[TT]},
IF{/[B,C,"M",1]|0_.=. @CALL.REPORT;
@GET.PREVIOUS.TEXT},
@TEXT.EDITOR,
@SAVE.NEW.TEXT
CALL.REPORT
%Z.rw.fragment("PHA.RX.zcus.dc.pt.meds.noiv.frag3.R","PHA.CMI"),
""^XX,
DO{+/R.FRAG.VAL[XX]^XX /R.FRAG.VAL[XX]^/SAVE[XX]}
GET.PREVIOUS.TEXT
""^TT,
DO{+/[B,C,"M",TT]^TT @STORE.TEXT}
STORE.TEXT
/[B,C,"M",TT]|0^/SAVE[TT],
""^/[B,C,"M",TT]
TEXT.EDITOR
@W.return("<Press Esc to exit text editor>"),
@Window.centered(23,70,@Z.color.labels1)^#,
IF{/.GUI D(30)_"CC"_{("Press <esc> to exit the text editor window":70TL,
"")}^#;
P(0,0,"Press <esc> to exit the text editor window":70CT)^#,
@Window.horiz.line(1)^#},
@Set.attr(@Z.color.data1)^#,
@Erase.region(2,0,21,70)^#,
%Z.text.ed.shell(^/SAVE,2,22,70,0,"","","","","")X,
@Restore.window("")^#,
1
SAVE.NEW.TEXT
""^TT,
DO{+/SAVE[TT]^TT /SAVE[TT]^/[B,C,"M",TT]|0,
""^/SAVE[TT]}
I would greatly appreciate any help. Thank you as always,
Ruth Chapman BSN, RN-BC
Nursing Analyst
Central Michigan Community Hospital
[EMAIL PROTECTED]
***Note: 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 the Sender
immediately by replying to the message and deleting it
from your computer.
Thank you. Central Michigan Community Hospital
=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
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
