DanielR78/St.Clair
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial Checking with all 820 MLMs

Browse Source
This commit is contained in:
Daniel Romischer
2020-02-02 00:54:01 -05:00
parent c59dc6de2e
commit 840d0432f4
828 changed files with 239162 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

120
MLMStripper/bin/Debug/SCH/SCH_POST_HOSPITAL_CARE_ORDERS.mlm Normal file
View File

@@ -0,0 +1,120 @@
maintenance:
title: SCH_POST_HOSPITAL_CARE_ORDERS;;
mlmname: SCH_POST_HOSPITAL_CARE_ORDERS;;
arden: version 2.5;;
version: 5.00;;
institution: St.Clair Hospital;;
author: Dan Bredl;;
specialist: Don Warnick ;;
date: 2012-02-16;;
validation: testing;;
library:
purpose: Hard stop when attempting to save the Post Hospital Care Orders Structured Note with past start/stop dates
;;
explanation: Stops the nurse from saving the structured note when the discharge meds have the bad dates.
change history
02.16.2012 DW CSR# 26841 - Created
03.30.2012 DW CSR# 26841 - Made a few exceptions to the RN alert for nurses in non-inpatient departments
04.24.2012 DW CSR# 30707 - Changed name of the document per Collaborative Care
07.08.2015 STH CSR# 32070 - Updated statement that appears to user per Debbie Eiler{{{SINGLE-QUOTE}}}s request.
07.14.2015 STH Ticket #: 1801808 - Update to allow saving Discharge Instructions with medications that have dates in the past
when the patients status is anything other than ADM (for admitted).
06.19.2019 BB CSR# 38305 - Infusion Center went Live with with Enterprise Scheduling, and a subset of users began to receive an OMR alert when entering
Discahrge Instructions (Posh Hospital Care Orders). This was due to the creation of a new Infusion Security group [Infusion Ovride],
and needs added in the exclusions in this MLM.
;;
keywords: ClientDocument; OMP; Dates;
;;
knowledge:
type: data-driven;;
data:
/*******************Make Changes To Spelling And Flags In This Section*******************/
send_alert := "DoNotSend";
log_execution_info := false;
Post_Hospital_Care_Orders_Enter := event { ClientDocumentEnter User ClientDocument: WHERE DocumentName = "Discharge Instructions (Post Hospital Care Orders)"};
Post_Hospital_Care_Orders_Modify:= event { ClientDocumentModify User ClientDocument: WHERE DocumentName = "Discharge Instructions (Post Hospital Care Orders)"};
alert_details:= destination { Alert: warning, "Must acknowledege alert", high, chart,
"Warning orders exist for patient", 14005, send_alert, "No Override Allowed" };
( OccupationCode, userguid) := read last { UserInfo: occupationcode, guid};
(securitygroup) := read
{
" select sg.code from cv3user u with (nolock) "
|| " left join cv3usersecuritygroup as usg with (nolock) on usg.userguid=u.guid "
|| " join cv3securitygroup as sg with (nolock) on sg.guid = usg.securitygroupguid "
|| " where u.GUID = " || userguid || " and sg.code in ({{{SINGLE-QUOTE}}}Case Mgt{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}CardPulm Nurse{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}infusion{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}Infusion Ovride{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}Wound Center{{{SINGLE-QUOTE}}}, {{{SINGLE-QUOTE}}}ETRN{{{SINGLE-QUOTE}}}) "
|| " and sg.active = 1 and usg.expirydtm is null "
};
(clientGuid, chartGuid, visitguid) := read last {ClientDocument: clientGuid, chartguid, clientvisitguid REFERENCING EvokingObject};
Admit_status := read last {" select VisitStatus from CV3ClientVisit with (nolock) "
|| " where clientguid = " || sql(clientGuid)
|| " and chartguid = " || sql(chartGuid)
|| " and guid = " || sql(visitguid)};
if called_by_editor then clientguid := "9000001923700200"; clientvisitguid:= "9000002931500270"; chartguid := "9000002931500170"; endif; // if called_by
if (OccupationCode = "RN" OR OccupationCode = "GN" OR OccupationCode = "SN") and (not exists securitygroup) then isRn := "yes"; else isRn := "no"; endif;
(OMPMedsWithBadDates) := read
{
" SET CONCAT_NULL_YIELDS_NULL off select p.DrugName + {{{SINGLE-QUOTE}}} {{{SINGLE-QUOTE}}} + p.Instructions"
|| " from sxaambclientprescription p with (nolock) "
|| " where p.statustype = 1 and p.ClientGuid = " || clientGuid || " "
|| " and "
|| " ( "
|| " (convert(char(11), p.startdate,20)< convert(char(11), getdate(),20) and p.enddate is null) "
|| " or "
|| " (convert(char(11), p.enddate,20)< convert(char(11), getdate(),20) and p.startdate is null) "
|| " or "
|| " (convert(char(11), p.startdate,20)< convert(char(11), getdate(),20) and convert(char(11), p.enddate,20) < convert(char(11), getdate(),20)) "
|| " ) "
};
One_OMPMedWithBadDates := " ";
All_OMPMedsWithBadDates:= " ";
for i in 1 seqto count OMPMedsWithBadDates do
One_OMPMedWithBadDates := OMPMedsWithBadDates [i];
All_OMPMedsWithBadDates := All_OMPMedsWithBadDates || " \n\n " || One_OMPMedWithBadDates ;
enddo;
;;
evoke: Post_Hospital_Care_Orders_Enter ;
Post_Hospital_Care_Orders_Modify;
;;
logic:
if exists OMPMedsWithBadDates and isRn = "yes" and admit_status = "ADM"
then conclude true;
else conclude false;
endif;
;;
action:
write "There are medications in the Outpatient Medication List that have start/stop dates in the past. Please revise/remove those dates. \n {{+B}}{{+R}}" || All_OMPMedsWithBadDates at alert_details;
;;
end: