Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/FORM/FORM_SET_DESELECT_ALL.mlm

@@ -0,0 +1,81 @@
+maintenance:
+
+	title: FORM_SET_DESELECT_ALL;;
+	mlmname:  FORM_SET_DESELECT_ALL;;
+	arden: version 2.5;;
+	version:  5.50;;
+	institution:  St Clair Hospital;;
+	author:  Shawn Head, Allscripts ;;
+	specialist:  Peggy Karish/David Kish, St Clair Hospital;;
+	date:  2016-06-21;;
+	validation:  testing;;
+
+library:
+      purpose: De-Select all items in Order set if the "de-select all" checkbox is checked.				
+				;;
+
+	explanation:  Called from the transition orders order set
+
+	Change history 
+		2016062.21		STH		CSR 34745: Created {go-live 6/23/2016}	;;
+
+
+	keywords: Called MLMs, Transition Orders
+	;;
+knowledge:
+	type: data-driven;;
+	data:
+
+			standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
+			include standard_libs;
+
+			using "ObjectsPlusXA.SCM.Forms";
+			using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
+
+			// 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;
+
+			stop := 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;
+			ClientVisitGuid := this_communication.ClientVisitGUID;
+			ChartGuid := this_communication.ChartGUID;
+
+			Deselect_cb := first of (field_list WHERE field_list.DataItemName = "ED_Deselect CB") ;
+
+			
+			field_list.Value.IsSelected := false;
+			Deselect_cb.Value := 0;
+			
+;;
+	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: