Initial Checking with all 820 MLMs

2020-02-02 00:54:01 -05:00
parent c59dc6de2e
commit 840d0432f4
828 changed files with 239162 additions and 0 deletions
--- a/MLMStripper/bin/Debug/FORM/FORM_SET_DISCHARGE_ORDERS_HOME.mlm
+++ b/MLMStripper/bin/Debug/FORM/FORM_SET_DISCHARGE_ORDERS_HOME.mlm
@@ -0,0 +1,135 @@
+maintenance:
+
+	title: FORM_SET_DISCHARGE_ORDERS_HOME;;
+	mlmname:  FORM_SET_DISCHARGE_ORDERS_HOME;;
+	arden: version 2.5;;
+	version:  5.50;;
+	institution:  St Clair ;;
+	author:  Juliet M. Law, Allscripts Ext x7461;;
+	specialist: Dean Miklavic, Allscripts Ext x7466;;
+	date:  2013-05-24;;
+	validation:  testing;;
+
+library:
+      purpose:  Used for Discharge-Home Order Set
+				;;
+
+	explanation:  Used for Discharge-Home Order Set
+
+					Change History
+					02.25.2014	JML CSR 31744: Added mapped Discharge Diagnosis field to order set; added logic
+									to make field NOT MANDATORY for emergency patients
+	;;
+	keywords: Called MLMs, Order Set, Discharge-Home Order Set
+	;;
+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	
+			value		) := argument;
+
+	callForm := mlm {{{SINGLE-QUOTE}}}FORM_OBSERVATION_ADT{{{SINGLE-QUOTE}}};
+
+	/*******************Make Changes To Spelling And Flags In This Section*******************/
+	// Initialize error message
+	error_message:="";
+
+	// Assigns fields passed in the Form object to the Field object
+	field_list:= this_form.fields;
+	client_guid := this_communication.ClientGUID;
+	visit_guid := this_communication.ClientVisitGUID;
+	chart_guid := this_communication.ChartGuid;
+	CallingEvent := this_communication.CallingEvent;
+   	CallingField := this_communication.CallingFieldName;
+
+    standard_libs := MLM {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
+    include standard_libs;
+	using "ObjectsPlusXA.SCM.Forms";
+	using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
+
+	/* Set to true if a decision.log is needed.*/
+	log_execution_info := false;
+
+	// Use String parse
+	str_parse := mlm {{{SINGLE-QUOTE}}}UTIL_STRING_PARSE{{{SINGLE-QUOTE}}};
+
+	//Local session object
+	local_session := cds_session.local;
+
+	//Retrieve necessary fields
+	Labs_list := last of (field_list WHERE field_list.DataItemName = "NUR_NurInstructionFreeText"
+							AND field_list.Control_MultiFieldOccNum = 3);
+
+	Labs_Check := last of (field_list WHERE field_list.DataItemName = "MultiOrderCheckbox"
+							AND field_list.Control_MultiFieldOccNum = 2);
+	Labs_Check_Value := Labs_Check.Value;
+
+	Submit_Btn := last of (field_list WHERE field_list.DataItemName = "CPOE Repeat Lab Submit Button"
+								AND field_list.Control_MultiFieldOccNum = 1);
+
+	//**** CSR 31744 Change
+	Discharge_grid := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
+								AND field_list.Control_MultiFieldOccNum = 46);
+	Discharge_field := Discharge_grid.Value;
+
+	Discharge_Diagnosis := last of (field_list WHERE field_list.DataItemName = "DISC_Discharge Diagnosis"
+								AND field_list.Control_MultiFieldOccNum = 1);
+
+	linebreakme:= read last 
+	{"   SELECT " 
+   	|| " {{{SINGLE-QUOTE}}} {{{SINGLE-QUOTE}}}   +char(13) + char(10)  " 
+	};
+
+
+	//**** CSR 31744 Change Begin ****
+	visitType := read last {"SELECT cv.TypeCode"
+					|| " FROM CV3Client c WITH (NOLOCK) JOIN CV3ClientVisit cv WITH (NOLOCK)"
+					|| " 	ON c.GUID = cv.ClientGUID"
+					|| " WHERE c.GUID = " || Sql(client_guid)
+					|| " 	AND cv.GUID = " || Sql(visit_guid)};
+
+
+	if ( ( visitType = "Emergency" ) OR ( visitType = "Clinc" ) ) then
+		Discharge_Diagnosis.Control_Mandatory := false;
+		Discharge_Diagnosis.Value := " ";
+	endif;
+	//**** CSR 31744 Change End ****
+
+	if ((CallingEvent = "ButtonClick") AND (CallingField = "CPOE Repeat Lab Submit Button|1")) then
+
+			a := local_session.SessionDischargeLabOrders;
+			if ((a <> "") AND (a is not null)) then
+				Labs_list.Value := a;
+			endif;
+	
+			aa := local_session.SessionDischargeMIOrders;
+			if ((aa <> "") AND (aa is not null)) then
+				if ((Labs_list.Value is not null) AND (Labs_list.Value <> "")) then
+					Labs_list.Value := Labs_list.Value || linebreakme || aa;
+				else
+					Labs_list.Value := aa;
+				endif;
+			endif;
+
+	elseif (CallingEvent = "FormClose") then
+		local_session.SessionDischargeLabOrders := "";
+		local_session.SessionDischargeMIOrders := "";
+	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: