All messages should be posted in plain text. HTML will be converted to attachments. The meditech-l web site is MTUsers.com ======================================
Hi T, We pull the Current Med List into a CDS and the nurses edit it after its is loaded to Add additional meds or delete some which they will not be discharged with.This is the attribute that calls the macro: (Make sure you replace the "MYQUERY" with the query you are placing the attribute on.)
Enter/Edit Attributes: MEDQ
IFE=IF{%MIS.zcus.pgm1005.M.pha.report.text(/["aa"],ANS%0,/S.LAST.QUERY)X,0^TT,
IFE=DO{TT+1^TT<5 P(R+TT-1,S,/[ANS%0,"MYQUERY","M",TT]|0:70TL)^#},"";""}
This is placed on a Multiple Comment query .. ours is "MEDQ"
The report is MIS.zcus.pgm and it runs a macro pha.report.text which pulls the
medlist into
the CDS and then opens the MIS Editor and allows it to be editted. I begged
this from Double T
and have used it for a number of things. We also use it to pull the
Interventions documented
by students for Instructors to sign off on. Those macros are in the MIS report
as well... if
you would like the NUR report that goes with the report for the instructors ...
let me know.
The Medlist fragment run by the Macro is:
%Z.rw.fragment("PHA.RX.zcus.dc.pt.meds.noiv.frag.R","PHA.ANV")
I have attached the PHA and MIS reports in both NPR and TXT format.
It works well for us. Let me know if you have any questions.
Howard Chase, RN
Androscoggin Valley Hospital
59 Page Hill Road
Berlin, NH 03570
(603)326-5669
T GRAY wrote:
All messages should be posted in plain text. HTML will be converted to attachments. The meditech-l web site is MTUsers.com ====================================== Good Morning, Has anybody developed a way to pull the active PHA profile into a NUR CDS? Just looking to solve the issues in the world of Med Rec. Thanks _______________________________________________ meditech-l mailing list [email protected] http://mtusers.com/mailman/listinfo/meditech-l
PHADCFRG.NPR
Description: Binary data
MISPGM.NPR
Description: Binary data
MEDITECH.CUST.RPTS
Hospital Androscoggin Valley Hospital
MIS ANV
Directory LIVE.MIS
User CHAHD
Date 20051026
Segment A
Comment MIS PROGRAMS
===================================================================================
===================================================================================
Procedure MIS.zcus.pgm1005
Responsibility U
Access Y
Active Y
Menu Logic @Inquiry
Switch Appl Y
--------------------------------------------------------------------------------
Macro MIS.zcus.pgm1005.M.nur.report.text
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("NUR.PC.WORK.zcus.interv.for.instructors.frag.R","NUR.ANV"),
""^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]}
--------------------------------------------------------------------------------
Macro MIS.zcus.pgm1005.M.pha.report.text
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.frag.R","PHA.ANV"),
""^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]}
--------------------------------------------------------------------------------
Macro MIS.zcus.pgm1005.M.report.text
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("ADM.PAT.zcus.tjt.frag.list.R","ADM.ANV"),
""^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,75,@Z.color.labels1)^#,
IF{/.GUI D(30)_"CC"_{("Press <esc> to exit the text editor window":75TL,
"")}^#;
P(0,0,"Press <esc> to exit the text editor window":75CT)^#,
@Window.horiz.line(1)^#},
@Set.attr(@Z.color.data1)^#,
@Erase.region(2,0,21,75)^#,
%Z.text.ed.shell(^/SAVE,2,22,75,0,"","","","","")X,
@Restore.window("")^#,
1
SAVE.NEW.TEXT
""^TT,
DO{+/SAVE[TT]^TT /SAVE[TT]^/[B,C,"M",TT]|0,
""^/SAVE[TT]}
--------------------------------------------------------------------------------
Report
Active Y
Name zcus.pgm1005
DPM MIS
Segment
Report Title PGM FILES FOR PHA MACROS
Page Banner REG
Chars/Inch 12
Chars/Line 92
Lines/Inch 6
Lines/Page 60
Segment DPM MIS
Page Size 66
Logical Filename
Page Trailer N
Report Header N
Report Trailer N
Detail Y
Page Header N
Access Path
Sort Modify
Left Margin 0
--------------------------------------------------------------------------------
Other
CI
--------------------------------------------------------------------------------
Selection Fields
Num Field Op Prompt
Default (Stored As)
--------------------------------------------------------------------------------
Report Lines
1 D
--------------------------------------------------------------------------------
Picture
1
--------------------------------------------------------------------------------
Screen
Screen Title PGM FILES FOR PHA MACROS
Print Prompt %Z.on.device
MEDITECH.CUST.RPTS
Hospital Androscoggin Valley Hospital
MIS ANV
Directory LIVE.MIS
User CHAHD
Date 20051019
Segment A
Comment PHA MEDLIST FOR NUR CDS
===================================================================================
===================================================================================
Procedure PHA.RX.zcus.dc.pt.meds.noiv.frag
Responsibility U
Access Y
Active Y
Menu Logic @Inquiry
Switch Appl Y
--------------------------------------------------------------------------------
Macro PHA.RX.zcus.dc.pt.meds.noiv.frag.M.blank.meds
;BLANK.MEDS
;
"MED: "^/R.FRAG.VAL[XX+1^XX],
"DOSE/DIRECTIONS: "^/R.FRAG.VAL[XX+1^XX],
"LAST DOSE GIVEN: "^/R.FRAG.VAL[XX+1^XX],
"START: "^/R.FRAG.VAL[XX+1^XX],
("_":65)^/R.FRAG.VAL[XX+1^XX],
" "^/R.FRAG.VAL[XX+1^XX],
"MED: "^/R.FRAG.VAL[XX+1^XX],
"DOSE/DIRECTIONS: "^/R.FRAG.VAL[XX+1^XX],
"LAST DOSE GIVEN: "^/R.FRAG.VAL[XX+1^XX],
"START: "^/R.FRAG.VAL[XX+1^XX],
("_":65)^/R.FRAG.VAL[XX+1^XX],
" "^/R.FRAG.VAL[XX+1^XX],
"MED: "^/R.FRAG.VAL[XX+1^XX],
"DOSE/DIRECTIONS: "^/R.FRAG.VAL[XX+1^XX],
"LAST DOSE GIVEN: "^/R.FRAG.VAL[XX+1^XX],
"START: "^/R.FRAG.VAL[XX+1^XX],
("_":65)^/R.FRAG.VAL[XX+1^XX],
" "^/R.FRAG.VAL[XX+1^XX]
--------------------------------------------------------------------------------
Macro PHA.RX.zcus.dc.pt.meds.noiv.frag.M.drug.time
;First line pushes Acct number into report.
;Second & third line pulls in Drug's Name, Brand name, sig etc
;Following line plug in text add a line across and a blank line
;BLANK.MEDS prints text lines
;@LIST.MEDS,
;@BLANK.MEDS,
;END;
;
;LIST.MEDS
;
@patient^/patient,
@med's.name_", "[EMAIL PROTECTED]'s.brand.name_",- "[EMAIL
PROTECTED]'s.generic.name^/R.FRAG.VAL[XX+1^XX],
[EMAIL PROTECTED]'s.type="IV"@[EMAIL PROTECTED],1]_" "[EMAIL PROTECTED]@urn,1],
[EMAIL PROTECTED]>0 @dose_" "[EMAIL PROTECTED]@med];@dose.instruction[1];""}}_"
"[EMAIL PROTECTED]'s.name_"("[EMAIL PROTECTED]'s.description_")"[EMAIL
PROTECTED]"PRN" "AS_NEEDED";""}^/R.FRAG.VAL[XX+1^XX],
"LAST DOSE GIVEN: "^/R.FRAG.VAL[XX+1^XX],
"START: "^/R.FRAG.VAL[XX+1^XX],
("_":65)^/R.FRAG.VAL[XX+1^XX],
" "^/R.FRAG.VAL[XX+1^XX]
--------------------------------------------------------------------------------
Macro PHA.RX.zcus.dc.pt.meds.noiv.frag.M.mylist
1^/Z.SCHED.LOG,
%PHA.RX.zcus.dc.pt.meds.noiv.frag.S(""),
1,
1^/SIGLIST["FS"],
1^/SIGLIST["OC"],
1^/SIGLIST["OR"],
1^/SIGLIST[".STK-MED"],
1^/SIGLIST["STAT"],
1^/SIGLIST["NOW"],
1^/SIGLIST["BLPREP"],
1^/SIGLIST["ED"],
1^/SIGLIST["PREOP"],
1^/SIGLIST["POSTOP"],
1^/OTYPELIS["ALTIV"],
1^/OTYPELIS["IV"],
1^/OTYPELIS["IVPB"],
1^/OTYPELIS["TPN"],
1^/OTYPELIS["WOLF"],
1^/ROUTELIS["IV"],
1^/ROUTELIS["IVP"],
1^/ROUTELIS["IVPB"],
1^/ROUTELIS["IVS"]
--------------------------------------------------------------------------------
Report
Active Y
Name zcus.dc.pt.meds.noiv.frag
DPM PHA.RX
Segment main
Report Title RX FOR DISCHARGE PRESCRIBING
Page Banner NONE
Chars/Inch 12
Chars/Line 92
Lines/Inch 6
Lines/Page 65
Segment DPM PHA.RX
Page Size 66
Logical Filename pha.rx.file
Page Trailer N
Report Header N
Report Trailer Y
Detail Y
Page Header N
Access Path pha.rx.patient.rx.index
Sort Modify
Left Margin 0
--------------------------------------------------------------------------------
Other
CI
--------------------------------------------------------------------------------
Documentation
patient's active meds for discharge rx
--------------------------------------------------------------------------------
Selection Fields
Num Field Op Prompt
Default (Stored As)
1 patient IG FOR PATIENT
(c.patient)
2 patient EQ /patient
(/patient)
3 sig NL /SIGLIST
(/SIGLIST)
4 order.type NL /OTYPELIS
(/OTYPELIS)
5 route NL /ROUTELIS
(/ROUTELIS)
6 dc.date EQ (%Z.date.in("T"))
((%Z.date.in("T")))
7 status NE "DC"
("DC")
--------------------------------------------------------------------------------
Report Lines
1 D
1 LC=""
2 TR
--------------------------------------------------------------------------------
Footnotes
AL START mylist
AL D drug.time
AL CLOSE.UP blank.meds
--------------------------------------------------------------------------------
Picture
1
2
--------------------------------------------------------------------------------
Selection Relationship
C6!C7
--------------------------------------------------------------------------------
Sort Fields
Num Field Order Header Trailer Renumber
1 patient NONE N
2 status NONE N
3 order.type NONE N
4 number NONE N
5 urn NONE N
--------------------------------------------------------------------------------
Screen
Screen Title RX FOR DISCHARGE PRESCRIBING
Print Prompt %Z.on.device
--------------------------------------------------------------------------------
Custom Select Field Attributes
1 c.patient
ID.ARG=ALL
IFE=1
REQ=1
--------------------------------------------------------------------------------
Custom Select Picture
1 FOR PATIENT @1
_______________________________________________ meditech-l mailing list [email protected] http://mtusers.com/mailman/listinfo/meditech-l
