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_ALERT_ON_SPECIALTY_COAGULATION.mlm Normal file
View File

@@ -0,0 +1,120 @@
maintenance:
title: SCH_ALERT_ON_SPECIALTY_COAGULATION;;
mlmname: SCH_ALERT_ON_SPECIALTY_COAGULATION;;
arden: version 2.5;;
version: 5.50;;
institution: Allscripts;;
author: Shawn Head;;
specialist: Maria Pest;;
date: 2018-04-24;;
validation: testing;;
library:
purpose: Generate an alert on Inpatient, Observation, and Emergency patients if specialty coaguation orders being entered (HARD STOP).
;;
explanation: If user attempts to order a specialty coagulation order on an inpatient, observation, or emergency patient present a hard stop.
These orders should be entered for outpatient and physician office orders only.
04-25-2018 STH CSR#: 36394 - Created
08-01-2018 STH CSR#: 36394 - Added logic to alert only once every 20 minutes per patient. This is due to the fact that the alert was
presented multiple times when entering the orders through an order set.
;;
keywords: Thrombotic Risk Profile (ITxM), Antithrombin III Activity (ITxM), APC Resistance (ITxM), Protein C Activity Plasma (ITxM)
Factor V Leiden Mutation (ITxM), Factor X (ITxM), Protein S Activity Plasma (ITxM), Prothrombin Gene Variant (ITxM)
;;
knowledge:
type: data-driven;;
data:
//.Net libraries
standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
include standard_libs;
/*****************************************************************************************************************/
//Set to true if logging needed
log_execution_info := false;
//Set the text for this variable to indicate whether to send the message or not
send_alert := "DoNotSend";
//Set the stop message
stop_message := false;
//Set Stop
hard_stop := false;
found_unsubmitted_orders := false;
existing_orders := ();
alert_priority := "High";
alert_dialog := "Must Comment";
alert_message := "Hypercoaguable Profiles/Component testing on Inpatients is not appropriate in a setting of acute thrombosis or current anticoagulant usage. \n\n{{+B}}Please consult Hematology with any questions.{{-B}}\nOffice phone: 412-831-1320";
//Define events
coag_orderinit_event := event{OrderInit User Order :
where name in ("Thrombotic Risk Profile (ITxM)","Antithrombin III Activity (ITxM)","APC Resistance (ITxM)","Protein C Activity Plasma (ITxM)","Factor V Leiden Mutation (ITxM)","Factor X (ITxM)","Protein S Activity Plasma (ITxM)","Prothrombin Gene Variant (ITxM)")};
//coag_orderenter_event := event{OrderEnter User Order :
// where name in ("Thrombotic Risk Profile (ITxM)","Antithrombin III Activity (ITxM)","APC Resistance (ITxM)","Protein C Activity Plasma (ITxM)","Factor V Leiden Mutation (ITxM)","Factor X (ITxM)","Protein S Activity Plasma (ITxM)","Prothrombin Gene Variant (ITxM)")};
order_alert_dest := destination {alert} with
[alert_type := "WARNING",
short_message := "Specialty Coagulation Conflict",
priority := alert_priority,
scope := Chart,
rule_group := "Specialty Coagulation Conflict Group",
rule_number := 9000,
send_with_order := send_alert,
display_alert := true,
alert_dialog_settings := alert_dialog,
async_alert_dialog_settings := async_alert_dialog,
document_name := "",
document_conditional_text := (),
ack_comment_UDDD := "Lab_Hypercoag Alert",
ack_comment_UDDD_is_restricted := true];
/************************************************************************************************************/
if called_by_editor then
evokingobject := read last {Order : THIS where Name = "Thrombotic Risk Profile (ITxM)"};
endif;
//Capture current patient
(clientGuid, clientName) := read last {ClientInfo : GUID, DisplayName};
(clientVisitGuid, chartGuid, TypeCode) := read last {ClientVisit : GUID, ChartGUID, TypeCode};
this_order := read last {Order : Name Referencing EvokingObject};
comm_obj := this_communication.primaryobj;
Order_set_name := comm_obj.OrderSetName;
//Only alert on patients that are currently listed as inpatient, observation, or emergency visit types.
if (TypeCode in ("Inpatient","Observation","Emergency")) then
AlertAlreadyFired := read last {" select guid From CV3AlertRepository with (nolock)
where CreatedWhen >= dateadd(minute,-20,getdate())
and status = {{{SINGLE-QUOTE}}}ack{{{SINGLE-QUOTE}}}
and AlertComments is not null
and UserGUID = " || EVOKINGOBJECT.UserGUID || "
and ClientGUID = " ||EVOKINGOBJECT.ClientGUID || "
and ClientVisitGUID = " ||EVOKINGOBJECT.ClientVisitGUID };
if((count(AlertAlreadyFired) = 0) or (AlertAlreadyFired is null))then
hard_stop := true;
endif;
endif;
;;
priority: 50
;;
evoke:
coag_orderinit_event;
//COAG_orderenter_event;
;;
logic:
conclude hard_stop
;;
action:
write alert_message at order_alert_dest;
;;
Urgency: 50;;
end: