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

138
MLMStripper/bin/Debug/FORM/FORM_PRX_SCHED_LOGIC.mlm Normal file
View File

@@ -0,0 +1,138 @@
maintenance:
title: Medical Schedule Logic and Rules;;
mlmname: FORM_PRX_SCHED_LOGIC;;
arden: version 2;;
version: 4.50;;
institution: St Clair Isolation Set MLM;;
author: Eclipsys Corp;;
specialist: Shawn Head;;
date: 2013-12-03;;
validation: testing;;
library:
purpose: MLM that can be used for any schedule related logic moving forward.
;;
explanation: This MLM is called from the medication form(s) where assigned. Design should drive
schedule decision/logic/rules related to medication scheduling, alerts, ect...
Originally created to handle orders Scheduled date/time not being set to STAT unless the frequency is STAT also.
Change History
2013.12.03 - STH CSR#: 31706 - Created MLM
2014.03.21 - STH HDT#: 1478552 Logic commented out due to issues with Stat and Then Dosing.
2016.09.28 TMS HDT#: 1478552 Restored MLM to original version, added check for {{{SINGLE-QUOTE}}}PRX_Dosing Addl Dose{{{SINGLE-QUOTE}}} field to ignore
logic if value is true, meaning order was generated as a STAT/Now and then order.
2018.03.13 TMS CSR#: 34822 Add logic to protect frequency, start date and start time on Zosyn Piperacillin/Tazobactam
orders when entered as an extended infusion
;;
keywords: Called MLMs, Form fields, schedule
;;
knowledge:
type: data-driven;;
data:
// This MLM is passed three arguments, of types
// communication_type, form_type and client info object respectively.
(this_communication, // Communication object
this_form, // Form object
client_info_obj //Arden ClientInfo object
) := argument;
comm_obj := this_communication.primaryobj;
/*******************Make Changes To Spelling And Flags In This Section*******************/
/* These variables must containt he same wording as the options in the drop down list */
/***************************************************************************************/
// Initialize error message
error_message:="";
// References the LOCAL SESSION object
local_session := cds_session.local;
standard_libs := MLM {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
// Obtain common fields passed in the Form object to the Field object
//commented out ones are just not being used; however left incase you need them.
field_list:= this_form.fields;
requested_date := last of (field_list where field_list.DataItemName = "RequestedDate" );
requested_time := last of (field_list where field_list.DataItemName = "RequestedTime" );
//stop_after:= last of (field_list where field_list.DataItemName = "StopAfter" );
//stop_after_Value := stop_after.value;
//stop_date := last of (field_list where field_list.DataItemName = "StopDate" );
//stop_time := last of (field_list where field_list.DataItemName = "StopTime" );
//stop_time_value := stop_time.value ;
//is_prn := last of (field_list where field_list.DataItemName = "IsPRN" );
regular_freq := last of (field_list where field_list.DataItemName = "FrequencyCode");
requested_time_value := requested_time.value;
regular_freq_value := regular_freq.value;
start_now := last of (field_list where field_list.DataItemName = "PRX_Dosing Start Now" );
start_now_value := start_now.value;
stat_and_then := last of (field_list where field_list.DataItemName = "PRX_Dosing Stat and Then" );
stat_and_then_value := stat_and_then.value;
AddlDose := last of (field_list where field_list.DataItemName = "PRX_Dosing Addl Dose" );
AddlDose_value := AddlDose.value;
//RX_Comments_field := last of (field_list where field_list.DataItemName = "Rx Comments");
//RX_Instructions_field := last of (field_list where field_list.DataItemName = "Rx Instructions");
//FreqText := " ";
//REQUESTEDTIME-BEGIN field logic. Use this section to
if (this_communication.CallingFieldName = "RequestedTime") then
if AddlDose_value = false then
//Check to see if selected time code is STAT. If yes also verify the frequency is STAT
//This forces the order to have both a frequency and start time of STAT to prevent users from
//"scheduling" a STAT order which should never occur.
if (requested_time_value.ReqTimeCode = "STAT") and
(regular_freq_value.FrequencySummary <> "STAT") then
error_msg := "You cannot enter a Start Time of STAT with a frequency of " || regular_freq_value.FrequencySummary || ". Please select the Give a STAT Dose checkbox to begin the medication immediately, or change the frequency to STAT.";
this_communication.Message := error_msg;
this_communication.MessageType := "Error";
requested_time_value.ReqTimeCode := "";
elseif ((requested_time_value.ReqTimeCode <> "STAT") and
(regular_freq_value.FrequencySummary = "STAT")) then
requested_time_value.ReqTimeCode := "STAT";
endif;
//REQUESTEDTIME-END field logic. End of section.
endif;
endif;
If ((this_communication.CallingEvent = "FormOpen")
or (this_communication.CallingEvent = "Fieldchange" and this_communication.CallingFieldName = "MLM_From Order Set")
or (this_communication.CallingEvent = "Fieldchange" and this_communication.CallingFieldName = "RequestedTime") )
and ((comm_obj.OrderSetName in ("Piperacillin/Tazobactam Orders", "Pneumonia Antibiotic", "IntraAbdominal Antibiotic", "Sepsis Unknown Source Antibiotic", "Skin Antibiotic Inpatient", "Urology (CPOE OS)",
"Pulmonary (CPOE OS)", "CCM Admission Orders", "Piperacillin/Tazobactam Orders" )
or (comm_obj.OrderSetName matches pattern "Transition Orders%")
and comm_obj.Name = "Piperacillin/Tazobactam:")) then
regular_freq.Control_Read_Only := true;
requested_time.Control_Read_Only := true;
requested_date.Control_Read_Only := true;
endif;
;;
evoke: // No evoke statement
;;
logic:
conclude true;
;;
action:
// This MLM returns two parameters, of types communication_type and form_type respectively.
return this_communication, this_form;
;;
end: