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_ED_RESP_HYPERKALEMIA.mlm
+++ b/MLMStripper/bin/Debug/FORM/FORM_SET_ED_RESP_HYPERKALEMIA.mlm
@@ -0,0 +1,109 @@
+maintenance:
+
+	title: ED Respiratory Page Mapping Hyperkalemia Grids;;
+	mlmname:  FORM_Set_ED_Resp_Hyperkalemia;;
+	arden: version 2;;
+	version:  4.50;;
+	institution:  St Clair ED Respiratory;;
+	author:  Robert Spence, Eclipsys Corp Ext 7461;;
+	specialist:  Lisa Hancher, Eclipsys Corp ext PINT;;
+	date:  2008-06-16;;
+	validation:  testing;;
+
+library:
+      purpose:  When user selects items on an order set, fill in a summary line (special instructions)
+				This field is to be mapped to one on the pager form.
+				This MLM will then fill in the data based on the selected checkboxes, having the interface only need to 
+				look at the data within the pager form (not every order in the set)
+	
+	;;
+
+	explanation:  This MLM is called from the ED Hyperkalemia Order Set (ED_Hyperkalemia), on change and close
+		History
+			2016.04.26      TMS	  	CSR 33465: Add call on Form Close to Medication Order Management MLM
+                
+	;;
+	keywords: Called MLMs, Hyperkalemia Order Set, ED
+	;;
+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;
+
+	
+		/***************************************************************************************/
+
+		// Initialize error message
+		error_message:="";
+
+		// Assigns fields passed in the Form object to the Field object
+		field_list:= this_form.fields;
+
+       CallingEvent := this_communication.CallingEvent;
+	   CallingField := this_communication.CallingFieldName;
+		ClientGuid:=this_communication.ClientGUID;
+		ClientChartGUID:=this_communication.ChartGUID;
+
+		//Associate Mapped Fields
+		SpecInst_fld := last of (field_list where field_list.DataItemName = "SpecialInstructions");
+		CodeM_fld := last of (field_list where field_list.DataItemName = "MLM_CM 1");
+		
+		Prev_Val := CodeM_fld.Value;
+
+
+
+	
+		//*** Get values from First grid
+		//*** SA (Albuterol/Atrovent/Xopenex)
+
+		Resp_fld := last of (field_list where field_list.DataItemName = "MultiOrderGrid" 
+								and field_List.Control_MultiFieldOccNum = 7);
+		Resp_list :=Resp_fld.Value;
+		Resp_Sel  :=Resp_list.IsSelected;
+		
+		Albuterol := 					Last(First 1 from Resp_Sel);
+		Resp_Ord  := 					Last(First 2 from Resp_Sel);
+		
+		If Albuterol = True then
+			Resp_list.IsSelected := True,True;
+			SpecInst_fld.Value := "Albuterol";
+		Else
+			SpecInst_Fld.Value := "";
+			If Prev_Val = True then // it was this field that changed to false
+				Resp_list.IsSelected := False,False;
+			endif;
+		endif;
+
+		CodeM_fld.Value := Albuterol;
+		
+		If CallingEvent = "FormClose" then
+			Med_Order_Mgt  := mlm {{{SINGLE-QUOTE}}}FORM_SET_Rx_Medication_Order_Mgt{{{SINGLE-QUOTE}}};
+			(this_communication, this_form)  := call Med_Order_Mgt with this_communication, this_form, client_info_obj;
+
+		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: