All messages should be posted in plain text. HTML will be converted to attachments. The meditech-l web site is MTUsers.com ======================================
|
I get that same error message and when I first
got this report from Brian it went to goodbye with me as well? CUSTOMER R/W: Translating report: NPR.PROC
zcus.bm.view.info INFORMATION Evaluating computed field xx.porv in path. Evaluating computed field xx.select in
path. ERROR: Field: 1 NPR.PROC xx.porv not found
in the data def path. ERROR: Field: 2 NPR.PROC xx.select not
found in the data def path. Translation Time: 0 Attributes are being parsed for segment
edits Compiling NPR.PROC.zcus.bm.view.info.R Compiling NPR.PROC.zcus.bm.view.info.RP Finished. Press <Return> But somehow
I got it to work? There are
2 macros, you refiled/retranslated both and then the whole report (I am sure you
did, just asking)… Use the VIEW
and ROUTINE, that is how I find this type of information for EDM… All the options work for me, so if ROUTINE
doesn’t work for you, I am sure the rest of the options will not work either. It may be 5.5 code is alittle different than
5.4 (do you still have 5.4 in TEST?) You could load the report I sent you into 5.4
Test and see if it works there. --------------------------------------------------------------------------------------------------------------------------------------------------------- 1. Priority %EDM.PAT.update.priority.severity.sf.S 2. There are several macros/routines
called setup.list setup.lists setup.lists.allergies setup.lists.diagnoses setup.lists.interventions setup.lists.meds setup.lists.notes setup.lists.priority setup.lists.status.event ----------------------------------------------------------------------------------------------------------------------------------------- Assessments (4) Triage
Assessment------------------this one Secondary
Assessment VS/Pain/Neuro
Reassessment Diagnoses (0) Notes (3) Priority/Severity
(3/9)-----------------this one Status Event (C NURSE) Treatments (1) SOFT NECK COLLAR
APPLIED Allergies/ADRs
(6)------------------------this one (for allergies/ht/wt, I don’t think
the nurses will use the PHA screen, but the ones defined in
MIS Clin Parameters, we will let the docs do that one... ) Active Prescriptions/Hx
Meds (5)------this one Setup.lists.priority macro/routine (I think this is the one that you sent me
that has the priority in the TA document screen, that I told you we do not
use). I believe this code controls that list you see in TA Document routine. ---------------------------------------------------------------------------------------------------------------------------------------------- Document Allergies: %RXM.PAT.ee.allergies("") SETUP.NECESSARY.SLASH.VARS.FOR.RXM ; See program %RXM.ORD.process.M.allergies
for the slash vars which must be set up ; prior to ivoking %RXM.PAT.ee.allergies. urn^/urn,"EA#"_(MIS.PAT.mri.urn^/MIS.PAT.mri.urn)^d.patient, DB^/AUDIT.DB **SEE WHAT YOU HAVE TO WADE THRU TO FIND THE
RIGHT CODE** ---------------------------------------------------------------------------------------------------------------------------------------- Setup.list.allergies macro/routine ; ; A - List number/sequence ; B thru D - not used ; E - (optional) Default status of Header
control (+/-) ; F - not used ; G -
@RXM.ACCESS.ps.edit.allergies (Y/N); defines users ability to document/edit
allergies ; IF{"Y"'[EMAIL PROTECTED]@.facility]; @GET.ALLERGY.QUERIES}, @SET.HEADER.CTRL, @[EMAIL PROTECTED], END; ;-------------------------------------------------------------------------------- CANT.ACCESS.RXM [EMAIL PROTECTED]"RXM"];@EDM.PARAM.rxm.database}^MIS.APPL.database, [EMAIL PROTECTED](MIS.APPL.database);
@Link(":",RXM,data.files,MIS.APPL.database), O(:)_.=.} CODED.ALLERGY [EMAIL PROTECTED];@RXM.PAT.allergy} ;- - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - GET.ALLERGY.QUERIES [EMAIL PROTECTED](MIS.CLIN.PARAM.allergy.query)
@Est.buf(/QRY,@MIS.QUERY.main),
@GET.QUERY.RESPONSE,
@Clr.buf(/QRY)} GET.QUERY.RESPONSE ; The following logic was taken from pgm
%MIS.SCREEN.pat.load. "Y"[EMAIL PROTECTED], [EMAIL PROTECTED];
"Y"'[EMAIL PROTECTED]; @Not(MIS.PAT.mri.urn); @GET.MRI.RESPONSE} -------------------------------------------------------------------------------------------------------------------------------------- Update Chief Complaint macro/routine “field.upd.complaint” %EDM.PAT.update.complaint.S("EDM.PAT.update.complaint") See attached text files for the whole
routine/macro code… If you need to edit or re-enter the CC in
OE, I helped another site with a frag called from the CC query in POM/OE
category or proc screen… I will forward that to you, that way it
doesn’t need to be edited or re-entered when placing orders. Good Luck, Bill Mullins RN ********************************************************************** 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. ********************************************************************** |
EDM.PAT.triage.and.document
URN: EDM.PAT.triage.and.document Active: Y Switch Appl: Access: Y
Responsible: M Arguments:
Menu Logic: @Screen(*)
-----------------------------------------------------------------------------------
EDM.PAT.triage.and.document.M.btn.document.allergies
; (program)
;
@INIT,
[EMAIL PROTECTED] @W.err("You must MATCH this temp patient before entering
allergy data.");
@Not(MIS.PAT.mri.urn) @W.err("The patient does not have an internal MPI
number.");
@OPTION.UNAVAILABLE @Bell("")^#;
""^OPT,
@RXM.UNAVAILABLE @W.err("The patient's allergy file is unavailable right now
- please try later.");
@CANT.LOCK.PATIENT @RETURN.TO.EDM;
@START.NEW.USER.AUDIT.LOG,
@RXM.ALLERGY.SCREEN,
@END.NEW.USER.AUDIT.LOG,
@UNLOCK.PATIENT,
@RETURN.TO.EDM,
@RECOMPILE.SCREEN};
;--------------------------------------------------------------------------------
INIT
@MIS.PAT.mri.urn[/urn^urn]^MIS.PAT.mri.urn,@.db^DB,
@[EMAIL PROTECTED],@[EMAIL PROTECTED]
OPTION.UNAVAILABLE
IF{pl.entry.seq @pl.entry.options;@pl.options}^OPT,
L(OPT,"D")=L(OPT)
RXM.UNAVAILABLE
{"RXM",[EMAIL PROTECTED]"RXM"];@[EMAIL PROTECTED](EDM.U.switch.appl.M.switch)
CANT.LOCK.PATIENT
%RXM.PAT.lock.patient(1,MIS.PAT.mri.urn,"",1)_.=.
START.NEW.USER.AUDIT.LOG
%Z.user.activity("","","",{"RXM.PAT.ee.allergies"^/.AUD.RTN,"Edit Patient
Allergies (from EDM)"})
RXM.ALLERGY.SCREEN
@SETUP.NECESSARY.SLASH.VARS.FOR.RXM,
""^urn^MIS.PAT.mri.urn^pl.entry.seq^DB,
%RXM.PAT.ee.allergies("")
SETUP.NECESSARY.SLASH.VARS.FOR.RXM
; See program %RXM.ORD.process.M.allergies for the slash vars which must be set
up
; prior to ivoking %RXM.PAT.ee.allergies.
urn^/urn,"EA#"_(MIS.PAT.mri.urn^/MIS.PAT.mri.urn)^d.patient,
DB^/AUDIT.DB
END.NEW.USER.AUDIT.LOG
%Z.user.activity(""),""^/.AUD.RTN
UNLOCK.PATIENT
%RXM.PAT.lock.patient("",MIS.PAT.mri.urn,"",1)
Run on: 06232006 - 1750
Procedure List
Page 2
On Device: IS-1295.1
A : LIVE.MIS
EDM.PAT.triage.and.document
RETURN.TO.EDM
@Macro(EDM.U.switch.appl.M.return)
RECOMPILE.SCREEN
%EDM.PAT.triage.and.document.M.setup.lists.allergies(pl.seq),
%EDM.PAT.triage.and.document.M.build.multiple(pl.seq),
@RESET.SCREEN.VARS.IF.NECESSARY,
%EDM.PAT.triage.and.document.M.display.multiple(""),
%EDM.PAT.triage.and.document.M.enable.buttons("")
RESET.SCREEN.VARS.IF.NECESSARY
[EMAIL PROTECTED]<@pm.top @MOVE.DOWN;
@pm.current>(@[EMAIL PROTECTED]) @MOVE.UP;
@[EMAIL PROTECTED]@pm.itn}
MOVE.DOWN
@[EMAIL PROTECTED],[EMAIL PROTECTED]
MOVE.UP
@[EMAIL PROTECTED]@pm.top,@[EMAIL PROTECTED]
--------------------------------------------------------------------------------------------
E*v0o0T E%-12345X
EDM.PAT.triage.and.document
URN: EDM.PAT.triage.and.document Active: Y Switch Appl: Access: Y
Responsible: M Arguments:
Menu Logic: @Screen(*)
------------------------------------------------------------------------------------
EDM.PAT.triage.and.document.M.btn.document.meds
; (program)
;
@INIT,
[EMAIL PROTECTED] @W.err("You must MATCH this temp patient before entering
medication data.");
@Not(MIS.PAT.mri.urn) @W.err("The patient does not have an internal MPI
number.");
@OPTION.UNAVAILABLE @Bell("")^#;
""^OPT,
@RXM.UNAVAILABLE @W.err("The patient's medication file is unavailable right
now - please try later.");
@START.NEW.USER.AUDIT.LOG,
@RXM.PROCESS.REVIEW,
@END.NEW.USER.AUDIT.LOG,
@RETURN.TO.EDM,
@RECOMPILE.SCREEN};
;--------------------------------------------------------------------------------
INIT
@MIS.PAT.mri.urn[/urn^urn]^MIS.PAT.mri.urn,@.db^DB,
@MIS.PAT.outpatient.location^MIS.PAT.outpatient.location,
@[EMAIL PROTECTED],@[EMAIL PROTECTED]
OPTION.UNAVAILABLE
IF{pl.entry.seq @pl.entry.options;@pl.options}^OPT,
L(OPT,"D")=L(OPT)
RXM.UNAVAILABLE
{"RXM",[EMAIL PROTECTED]"RXM"];@[EMAIL PROTECTED](EDM.U.switch.appl.M.switch)
START.NEW.USER.AUDIT.LOG
%Z.user.activity("","","",{"RXM.ORD.process.driver"^/.AUD.RTN,"Review/Process
Orders (from EDM)"})
RXM.PROCESS.REVIEW
@SETUP.NECESSARY.SLASH.VARS.FOR.RXM,
""^urn^MIS.PAT.mri.urn^DB^MIS.PAT.outpatient.location^pl.entry.seq,
%RXM.ORD.process.driver(4,"B")
SETUP.NECESSARY.SLASH.VARS.FOR.RXM
urn^/urn,"EA#"_(MIS.PAT.mri.urn^/MIS.PAT.mri.urn)^d.patient,
DB^/AUDIT.DB,MIS.PAT.outpatient.location^d.location
END.NEW.USER.AUDIT.LOG
%Z.user.activity(""),""^/.AUD.RTN
RETURN.TO.EDM
@Macro(EDM.U.switch.appl.M.return)
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
RECOMPILE.SCREEN
%EDM.PAT.triage.and.document.M.setup.lists.meds(pl.seq),
@RECOMPILE.ALLERGY.LIST,
Run on: 06232006 - 1754
Procedure List
Page 2
On Device: IS-1295.1
A : LIVE.MIS
EDM.PAT.triage.and.document
%EDM.PAT.triage.and.document.M.build.multiple(pl.seq),
@RESET.SCREEN.VARS.IF.NECESSARY,
; Pass nil to the 'display.multiple' program. By doing so, the entire screen
will
; be redisplayed. This is necessary, as the user may have edited both the Hx
Meds
; and the Allergies while in RXM.
%EDM.PAT.triage.and.document.M.display.multiple(""),
%EDM.PAT.triage.and.document.M.enable.buttons("")
RECOMPILE.ALLERGY.LIST
; If we're executing this program, the Medication header must exist on the
screen, so
; we must recompile it. However, when the user was branched to RXM, they were
put into
; a process screen which would allow them to edit the patient's allergies.
Therefore,
; if the Allergy header exists for this user, we must recompile that also.
[EMAIL PROTECTED]"AL"]^X
%EDM.PAT.triage.and.document.M.setup.lists.allergies(X)},""^X
RESET.SCREEN.VARS.IF.NECESSARY
[EMAIL PROTECTED]<@pm.top @MOVE.DOWN;
@pm.current>(@[EMAIL PROTECTED]) @MOVE.UP;
@[EMAIL PROTECTED]@pm.itn}
MOVE.DOWN
@[EMAIL PROTECTED],[EMAIL PROTECTED]
MOVE.UP
@[EMAIL PROTECTED]@pm.top,@[EMAIL PROTECTED]
--------------------------------------------------------------------------------------------
E*v0o0T E%-12345X
EDM.PAT.triage.and.document
URN: EDM.PAT.triage.and.document Active: Y Switch Appl: Access: Y
Responsible: M Arguments:
Menu Logic: @Screen(*)
---------------------------------------------------------------------------------
EDM.PAT.triage.and.document.M.btn.document.priority
; (program)
;
@INIT,
[EMAIL PROTECTED]/[EMAIL PROTECTED];
@START.NEW.USER.AUDIT.LOG,
%EDM.PAT.update.priority.severity.sf.S("EDM.PAT.update.priority.severity.sf"),
@END.NEW.USER.AUDIT.LOG,
""[EMAIL PROTECTED],
@RECOMPILE.SCREEN};
INIT
/urn^urn,
@[EMAIL PROTECTED],
@[EMAIL PROTECTED]
START.NEW.USER.AUDIT.LOG
; We would like the user audit for this patient to be filed under the Update
Priority and
; Severity routine, rather than under the Triage routine.
IF{"CANADA"[EMAIL PROTECTED] "Update Patient Triage Level/Severity";
"Update Patient Priority/Severity"}^MSG,
%Z.user.activity("","","",{"EDM.PAT.update.priority.severity.sf"^/.AUD.RTN,MSG})
END.NEW.USER.AUDIT.LOG
%Z.user.activity(""),""^/.AUD.RTN
RECOMPILE.SCREEN
%EDM.PAT.triage.and.document.M.setup.lists.priority(@pl.seq),
%EDM.PAT.triage.and.document.M.build.multiple(""),
%EDM.PAT.triage.and.document.M.display.multiple(@pm.current)
--------------------------------------------------------------------------------------------
_______________________________________________ meditech-l mailing list [email protected] http://mtusers.com/mailman/listinfo/meditech-l
