[MEDITECH-L] FW: Printing monographs for patients

Roger Beverly Wed, 26 Apr 2006 15:29:03 -0700

All messages should be posted in plain text.  HTML will be converted to
attachments.    The meditech-l web site is MTUsers.com
======================================

Donna - It turns out to be a little harder than I imagined, but I have a report that works for us now. We use Micromedex as our FSV, so we have two versions of most monographs - English and Spanish. I added a line check to a PHA.RX report that selects the PHA.MON.mnemonic for the med and then sends a frag to PHA.MON. Here are the two reports.

This is a different approach than you used (a fragment instead of a macro), but it works.

Roger

Clinical Pharmacy Coordinator

Conway Medical Center, Inc.

[EMAIL PROTECTED]

Message: 13

Date: Mon, 24 Apr 2006 07:51:33 -0400

From: "Peters, Donna" <[EMAIL PROTECTED]>

Subject: [MEDITECH-L] PHA Report Help

To: "'[email protected]'" <[email protected]>

Message-ID:

<[EMAIL PROTECTED]>

Content-Type: text/plain; charset="iso-8859-1"

I am writing a report that allows the user to select the rx numbers when

they run the report. Then based on the rx's they select at run time, those

meds list out on a discharge report.

What I want to happen is, in the report trailer, I want the monographs for

all the meds to print. I created a AL TR close macro where I can get the

monographs to print. However, I am only getting the last drug selected. I

need all the drugs.

So I need some help sending all drug mnemonics to the macro - not just the

last. How do I loop thru the drug mnemonics selected?

The report is written out of PHA.RX pha.rx.file.

Any suggestions?

Donna A. Peters

Lead Applications Programmer/Analyst

TriHealth Information System

(513)569-6816

[EMAIL PROTECTED]

MEDITECH.CUST.RPTS^Conway Medical Center^CNW^LIVE.MIS^RBEVERLY^20060426^A^
@@VERSION:1
PHA.MON.zcus.rb.mon
PHA.RX.zcus.rb.monographs.for.patient
@@PROC
PHA.MON.zcus.rb.mon
[EMAIL PROTECTED]
@@RPT
Yzcus.rb.monPHA.MONmainTestREG129266066pha.monograph.dictNNNYN011Y
AT      825240635
RBEVERLYE
AT      825322741
RBEVERLYE
CI

F1
namename30L
F2
languagelanguage10L
F2SE2
EQ/LAN/LAN
F3
lineline92L
FS1
mnemonic
FS1SE1
EQ/MON/MON
FI10
301
FI132
102
FI20
923
FI30
923
L1
D
L2
D
L3
D
P1
name__________________________  language__
P2
line________________________________________________________________________________________
P3
line________________________________________________________________________________________
T1
mnemonicNONENASC
U       825324784
RBEVERLYLIVE.MIS
U       825325429
RBEVERLYLIVE.MIS
U       825326873
RBEVERLYLIVE.MIS
U       825327082
RBEVERLYLIVE.MIS
U       825327179
RBEVERLYLIVE.MIS
U       825327259
RBEVERLYLIVE.MIS
U       825327879
RBEVERLYLIVE.MIS
U       825327923
RBEVERLYLIVE.MIS
U       825327924
RBEVERLYLIVE.MIS
U       825328003
RBEVERLYLIVE.MIS
@@SCRN
Yzcus.rb.monPHA.MONPHA.MON.zcus.rb.mon2NN
CS
4648
P1
Test%Z.on.device
@@PROC
PHA.RX.zcus.rb.monographs.for.patient
[EMAIL PROTECTED]
@@RPT
Yzcus.rb.monographs.for.patientPHA.RXmain LIST OF MONOGRAPHS FOR 
DISCHARGEREG129266066pha.rx.fileNNNYNpha.rx.patient.index011Y
AT      825242168
RBEVERLYE
AT      825327977
RBEVERLYE
CI

F1
patient's.namepatient's.name30L
F2
patient's.acct.numberpatient's.ac12L
F3
patient's.room.bed.or.locpatient's.room14L
F4
numbernumber11L
F4SE3
LIc.numberINCLUDE RX NUMBER(S)
F5

med's.name
med's.name45L
F6
xx.langx2L
F6CDAT
FREE
F6CJFY
L
F6CLEN
1
F6CVAL
""
F6SE4
IG     c.xx.langLANGUAGE (E-ENGLISH,S-SPANISH)
FS1
patientPHA.RX
FS1SE1
IGPHA.RX.c.patientPHA.RXFOR PATIENT
FS2
patient
FS2SE2
EQ/patient/patient
FI30
301
FI332
122
FI348
143
FI50
114
FI512
455
I1
        patient.x
L1
HP1
L2
HK2
L3
HK2
L4
HK2
L4CHL
4
L5
HK2
L6
HK2
L7
D
L7CLC
IF{c.xx.lang="E" 
"ENGLISH"^/LAN,"MXE"^PHA.DRUG.monograph;"SPANISH"^/LAN,"MXS"^PHA.DRUG.monograph},@med^PHA.DRUG.mnemonic,+PHA.DRUG.monographs^/MON,%Z.rw.fragment("PHA.MON.zcus.rb.mon.R","PHA.CNW"),""
L7CLLC1
57
L7CLLC2
41
L7CLLC3
49
L7CLLC4
52
L8
TK2
P1
FOR PATIENT                     ACCT NUMBER     ROOM/BED
P2
 
P3
patient's.name________________  patient's.ac    patient's.room
P4
 
P5
number_____ med's.name___________________________________
P6
 
P7
 
P8
 
T1
patientPAGENASC
T2
numberKEYYASC
T3
urnNONENASC
U       825324734
RBEVERLYLIVE.MIS
U       825324784
RBEVERLYLIVE.MIS
U       825325429
RBEVERLYLIVE.MIS
U       825326873
RBEVERLYLIVE.MIS
U       825327082
RBEVERLYLIVE.MIS
U       825327179
RBEVERLYLIVE.MIS
U       825327259
RBEVERLYLIVE.MIS
U       825327879
RBEVERLYLIVE.MIS
U       825327924
RBEVERLYLIVE.MIS
U       825328003
RBEVERLYLIVE.MIS
@@SCRN
Yzcus.rb.monographs.for.patientPHA.RX%PHA.RX.zcus.rb.monographs.for.patient2NN
CS
900
P1
 LIST OF MONOGRAPHS FOR DISCHARGE%Z.on.device
P1F1
        c.patientPHA.RX1115202202
P1F1CID.ARG
ALL
P1F1CIFE
1
P1F1CREQ
1
P1F3
c.number2401221212212
P1F3CID.ARG
CR
P1F3CIFE
1
P1F3CREQ
N
P1F3CREQI
N
P1F4
        c.xx.lang38371181011810
P1F4CDAT
FREE
P1F4CID.ARG
BR
P1F4CIFE
1
P1F4CLEN
1
P1F4CREQ
1
P1MF3
31
P1P1
FOR PATIENT    @1
P1P2
 
P1P3
INCLUDE RX NUMBER(S)
P1P4
@3
P1P5
@3
P1P6
@3
P1P7
 
P1P8
LANGUAGE (E-ENGLISH,S-SPANISH)       @4
P1S1
N,1
P1S2
N143/T2,3
P1S3
N,4

_______________________________________________
meditech-l mailing list
[email protected]
http://mtusers.com/mailman/listinfo/meditech-l

[MEDITECH-L] FW: Printing monographs for patients

Reply via email to