Lisa: I have one in MAGIC (5.5 SR2) that I wrote, not sure if it is what you want/need. See attached report. It does sort by patient (PAGE HEADER).
See same report in 5.4 format if needed. Good Luck, -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Lisa Welch Sent: Friday, February 09, 2007 2:36 PM To: [email protected] Subject: [MEDITECH-L] PHA NPR report for expired rxs Has anyone created (and be willing to share) an NPR report similar to the Expired RX List? We would like to print one page/pt and add some different text & headers in order to use it as an order. Thanks! Lisa Welch, RN Clinical Analyst Grady Memorial Hospital 2220 W Iowa Chickasha, Ok 73018 405-779-2241 =*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= To subscribe or unsubscribe to the meditech-l, visit MTUsers.COM. To check the status of the meditech-l, visit MTUsers.NET. For help, email [EMAIL PROTECTED] ______________________________________ meditech-l mailing list [email protected] http://mtusers.com/mailman/listinfo/meditech-l ********************************************************************** 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. **********************************************************************
PHARXEXP55.npr
Description: PHARXEXP55.npr
PHARXEXPIRE54.npr
Description: PHARXEXPIRE54.npr
E&l0S*r3F&l0O&l1H&l2a8c1E*t300R&l1X*b0M
E&l1O(8U(s0p20.000h4102T)10U)s0p20.000h4102T&k6.000H&l5.647c7e62F&a6LE&l1O(8U(s0p20.000h4102T)10U)s0p20.000h4102T&k6.000H&l5.647c7e62F&a6L
REPORT LIST
PAGE 1
RUN ON 08/05/05-1131
LIVE.MIS
PHA.RX.zcus.bm.expire.list.meds.patient
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
REPORT DOCUMENTATION
--------------------
FIRST DETAIL LINE
[EMAIL PROTECTED]"COMP" "";1}
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
SCREEN: PHA.RX.zcus.bm.expire.list.meds.patient
LN
+----------1---------2---------3---------4---------5---------6---------7--------+
2=b.stop.date
1 |FROM EXP DATE: @2
| 3=e.stop.date
2 |THRU EXP DATE: @3
| 4=PHA.PAT.c.location
3 |
|
4 |LOCATION(S):
|
5 |@4
|
6 |@4
|
7 |@4
|
+-------------------------------------------------------------------------------+
SCREEN ELEMENTS
------ --------
b.stop.date = ID.ARG=BR
IFE=1
REQ=1
e.stop.date = ID.ARG=BR
IFE=1
REQ=1
PHA.PAT.c.location = ID.ARG=BA
IFE=1
MAP=D(127),"ALL"
REQ=N
REQI=N
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
(CONTINUED)
REPORT LIST
PAGE 2
RUN ON 08/05/05-1131
LIVE.MIS
PHA.RX.zcus.bm.expire.list.meds.patient {continued}
REPORT: PHA.RX.zcus.bm.expire.list.meds.patient
CPI=12 CPL=132 LPI=6 LPG=70 PGSZ=75 MARG=0 BAN=NONE
TYPE LN
+----------1---------2---------3---------4---------5---------6---------7---------8---------9---------0---------1---------2---------3-+
HP2 1 |
|
HP2 2
|_________________________________________________________xx.msg_________________________________________________________
PAGE: xx |
HP2 3 |
|
HP2 4 |UNIT #: unit.no___ PATIENT: patient.name__________________
AGE/SEX: patie_ HT: p ft patie in WT: patient kg |
HP2 5 |ACCT #: patient's.ac DOCTOR: dr.name__________________
LOC: loc__ ROOM/BED: patient's.room |
HP2 6 |
|
HP2 7 |Rx # START MEDICATION DOSE
ROUTE RATE VOLUME SIG STOP |
HP2 8 |
|
D 9 |number_____ start.da med's.generic.name_______
xx.dose__________________ xx.ro xx.rate___ total.vol xx.sig_______
stop.date.and|
D 10 |
xx.dose2_________________
|
D 11 |
xx.dose3_________________
|
D 12 |
xx.dose4_________________
|
D 13 | ingredient's.generi______ ingredien ingre
route |
D 14 | ingredient's.generi______ ingredien ingre
|
D 15 |
|
D 16 | ORDERING DOCTOR:
physician.name________________
|
D 17 |
|
D 18 |
|
D 19 | NEW STOP DATE ________________ RENEWING
PHYSICIAN __________________________________________ |
D 20 |
|
TK2 21 |
|
TP 22 |
|
TP 23 |
PRINTED: xx.printed - xx.ti - xx.user___ |
+------------------------------------------------------------------------------------------------------------------------------------+
LINE ATTRIBUTES
---- ----------
1 BX = WH
FF = b
PF = b
6 BX = GR
8 BX = WH
FF = n
PF = n
9 LC = [EMAIL PROTECTED]"COMP" "";1}
PG = 5
10 LC = [EMAIL PROTECTED] @dose.instruction[2]}
11 LC = [EMAIL PROTECTED] @dose.instruction[3]}
12 LC = [EMAIL PROTECTED] @dose.instruction[4]}
13 LCR = [EMAIL PROTECTED]"COMP" 1}
14 LCR = END
20 HL = 3
21 BX = END
FIELDS
------
(CONTINUED)
REPORT LIST
PAGE 3
RUN ON 08/05/05-1131
LIVE.MIS
PHA.RX.zcus.bm.expire.list.meds.patient {continued}
1 xx.msg = xx.msg [DAT=FREE, FONT=b, JFY=C, LEN=120, SIZE=L,
[EMAIL
PROTECTED]"LVP"!(TYP="PB")!(TYP="IV") @rate;""}]
VAL="WILLIAMSON MEDICAL CENTER EXPIRED RX LIST"]
19 total.vol = total.volume [FONT=b, JFY=L]
2 xx = xx.page [DAT=FREE, JFY=L, LEN=2, SIZE=1.25,
VAL=/R.PAGE.NUM+1] 20 xx.sig = xx.sig [DAT=FREE, JFY=L,
LEN=13,
3 unit.no = patient's.unit.number [SIZE=1.25]
[EMAIL
PROTECTED]"LVP"!(TYP="PB")!(TYP="IV") @sig's.description;@si
4 patient.name = patient.name [SIZE=1.25]
g}]
5 patie = patient's.age.sex [LEN=6, SIZE=1.25]
21 stop.date.and = stop.date.and.time [FONT=b]
6 p = patient's.oe.ht.in.ft [SIZE=1.25]
22 xx.dose2 = xx.dose2 [DAT=FREE, JFY=L, LEN=25,
7 patie = patient's.oe.ht.in.in [SIZE=1.25]
[EMAIL PROTECTED]
@dose.instruction[2];@dose.and.unit}]
8 patient = patient's.oe.wt.in.kg [SIZE=1.25]
23 xx.dose3 = xx.dose3 [DAT=FREE, JFY=L, LEN=25,
9 patient's.ac = patient's.acct.number [SIZE=1.25]
[EMAIL PROTECTED]
@dose.instruction[3];@dose.and.unit}]
10 dr.name = patient's.admit.doctor's.name [LEN=25, SIZE=1.25]
24 xx.dose4 = xx.dose4 [DAT=FREE, JFY=L, LEN=25,
11 loc = patient's.location [LEN=5, SIZE=1.25]
[EMAIL PROTECTED]
@dose.instruction[4];@dose.and.unit}]
12 patient's.room = patient's.room.bed [SIZE=1.25]
25 ingredient's.generi = ingredient's.generic.name [LEN=25]
13 number = number [FONT=b]
26 ingredien = ingredient.dose [JFY=R]
14 start.da = start.date [FONT=b]
27 ingre = ingredient's.dispense.unit [JFY=L,
LEN=5]
15 med's.generic.name = med's.generic.name [LEN=25]
28 route = dispensed.urn's.route [LEN=5]
16 xx.dose = xx.dose [DAT=FREE, JFY=L, LEN=25,
29 physician.name = physician.name
[EMAIL PROTECTED]
@dose.instruction[1];@dose.and.unit;@additive.dose[urn,1]; 30 xx.printed
= xx.printed [DAT=DATE, FONT=b, JFY=L, LEN=10, SIZE=1.25, [EMAIL PROTECTED]
@carrier.volume}]
31 xx.ti = xx.time [DAT=HHMM, FONT=b, JFY=L,
LEN=5, SIZE=1.25, [EMAIL PROTECTED]
17 xx.ro = xx.route [DAT=FREE, JFY=L, LEN=5, [EMAIL PROTECTED]
32 xx.user = xx.user [DAT=FREE, FONT=b,
JFY=L, LEN=10, SIZE=1.25, [EMAIL PROTECTED]
18 xx.rate = xx.rate [DAT=FREE, FONT=b, JFY=L, LEN=10,
DETAIL SEGMENT: PHA.RX pha.rx.file
INDEX FILE: PHA.RX pha.rx.active.index
SORT FIELDS PRODUCED BY DETAIL SEGMENT/INDEX FILE
1 dc.date.or.active
2 patient
3 urn
# SELECT OP PROMPT/VALUE
DEFAULT/KEYWORD
-------- -- ------------
---------------
1 dc.date.or.active EQ "~"
2 stop.date GE FROM EXP DATE:
3 stop.date LE THRU EXP DATE:
4 patient's.location LI LOCATION(S):
ALL
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
(CONTINUED)
REPORT LIST
PAGE 4
RUN ON 08/05/05-1131
LIVE.MIS
PHA.RX.zcus.bm.expire.list.meds.patient {continued}
PHA.RX.zcus.bm.expire.list.meds.patient.M.allergies
IF{/DONE;
12^/FLD,
""^/QQQ^PHA.PAT.class.allergy^PHA.PAT.generic.allergy^PHA.PAT.allergy.code^/SSS,
[EMAIL PROTECTED](PHA.PAT.generic.allergy) @PHA.GENERIC.name^/NNN,@ADD.IT},
[EMAIL PROTECTED](PHA.PAT.class.allergy) @PHA.CLASS.name^/NNN,@ADD.IT},
[EMAIL PROTECTED](PHA.PAT.allergy.code) @PHA.ALLERGY.desc^/NNN,@ADD.IT},
IF{/SSS /SSS%1^/MV["B",/QQQ+1^/QQQ,/FLD],""^/SSS;
'/QQQ "None Entered"^/MV["B",/QQQ+1^/QQQ,/FLD]},
1^/DONE}
ADD.IT
IF{L(/SSS_/NNN)>74 /SSS%1_"."^/MV["B",/QQQ+1^/QQQ,/FLD],""^/SSS},
/SSS_", "_/NNN^/SSS
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------EE*v0o0T
E=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= To subscribe or unsubscribe to the meditech-l, visit MTUsers.COM. To check the status of the meditech-l, visit MTUsers.NET. For help, email [EMAIL PROTECTED] ______________________________________ meditech-l mailing list [email protected] http://mtusers.com/mailman/listinfo/meditech-l
