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

106
MLMStripper/bin/Debug/FORM/FORM_ID_REPEATORDERS_RX.mlm Normal file
View File

@@ -0,0 +1,106 @@
maintenance:
title: Repeat Orders -- Add Order GUID to form;;
filename: FORM_ID_RepeatOrders_Rx;;
arden: version 2.5;;
version: 15.10;;
institution: Eclipsys;;
author: Teresa Spicuzza;;
specialist: Teresa Spicuzza;;
date: 2015-10-13;;
validation: testing;;
library:
purpose: This MLM is being used as a way to suppress the transmission of orders from SCM to
the St. Clair ancillary Deficiency System if an order is a repeating order and not
the first of the set of repeating orders. St. Clair wants only the first of a set
of repeating orders to be sent to the deficiency system. This MLM fires on FormClose
when a user is entering an order. That control is set by the system to be TRUE if the order is a repeat order; otherwise it will
be FALSE on FormClose. This MLM will check the value of the control_read_only of RequestedTime.
If it is TRUE, this MLM will populate the hidden field on the form with the OrderGUID of the current
order (which is the master repeat order). That value will be propagated to all
the children -- the repeat instances generated from the master.
An interface process will read the hidden field transmitted in the HL7 message --
if the field is present and populated, the interface will use the master order GUID stored in
the message to determine whether or not this is the initial repeat or a subsequent one.
;;
explanation: This MLM is called by FORM _NOW_AND_THEN on FormClose of any order listed in the logic using the the dosing
option functionality for medicatio orders. The intention is to "mark" repeating orders. When the initial order
of a repeating group of orders is entered. It populates a hidden REPEAT_ORDER_GUID_MED field with the OrderGUID
of the Primary Object (the order being entered).
No message is sent displayed to the user.
The order form must be configured with the REPEAT_ORDER_GUID_MED field and this MLM must be triggered
by FormClose.
change history
10.13.2015 TMS Copied and modified for pharmacy orders that use a dosing option group from Form_ID_Repeat_Orders.
Moved to prod 11.11.2015 Ticket # 1855646
;;
keywords: Called MLMs, Form fields, PRN
;;
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;
/*******************Make Changes To Spelling And Flags In This Section*******************/
/* Set to true if a decision.log is needed.*/
log_execution_info := false;
/***************************************************************************************/
comm_obj := this_communication.primaryobj;
// Initialize error message
error_message:="";
// Assigns fields passed in the Form object to the Field object and the name of the form
field_list:= this_form.fields;
CallingField :=this_communication.CallingFieldName;
CallingEvent := this_communication.CallingEvent;
FormType := this_communication.FormType;
form_name := this_form.Name;
/*-------------------------------------------*/
/* Retrieve info from other argument objects */
/*-------------------------------------------*/
//Capture the Ordering Method (Item Event), the OrderGUID, and the OrderCatalogMasterItemGUID
// Order_Method := this_communication.ItemEvent; // Could be UserEnter, UserModify, UserEditUnsubmitted, SystemEnter, or SystemModify.
Order_GUID := this_communication.PrimaryObj.GUID;
Order_GUID_string := Order_GUID AS String;
RepeatOrderID_field := first of (field_list where field_list.DataItemName = "REPEAT_ORDER_GUID_MED");
If comm_obj.Name = "MethylPREDNISolone 4mg Dose Pak Tab" and RepeatOrderID_field.value is null Then
RepeatOrderID_field.Value := Order_GUID_string;
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: