Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/FORM/FORM_FUNC_DISABLE_OS_CHECKBOXES.mlm

@@ -0,0 +1,93 @@
+maintenance:
+
+	title: FORM_Func_Disable_OS_Checkboxes;;
+	mlmname:  FORM_Func_Disable_OS_Checkboxes;;
+	arden: version 2.5;;
+	version:  15.1;;
+	institution:  St Clair Hospital;;
+	author:  Juliet Law, Allscripts ;;
+	specialist:  ;;
+	date:  2016-05-05;;
+	validation:  testing;;
+
+library:
+      purpose:  Functional MLM to disable / enable grouping of checkbox fields on an order set
+				;;
+
+	explanation:  This MLM will be a functional call from Order set MLMs when needing to disable / enable a grouping
+					of checkbox fields.
+
+	Change history 
+		05.05.2016	JML	  Created
+    
+
+	;;
+	keywords: Called MLMs, checkbox, fields
+	;;
+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	
+			callingField,           //checkbox field that initiated the disable / enable of other checkboxes
+			readOnlyVal,            //Disable v. enable
+			exceptionLst            //Checkboxes to leave alone
+			) := argument;
+
+			standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
+			include standard_libs;
+
+			str_parse := MLM {{{SINGLE-QUOTE}}}UTIL_STRING_PARSE{{{SINGLE-QUOTE}}};
+
+			using "ObjectsPlusXA.SCM.Forms";
+			using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
+
+			ClientGuid := this_communication.ClientGUID;
+			ChartGuid := this_communication.ChartGUID;
+			ClientVisitGuid := this_communication.ClientVisitGUID;
+
+			field_list := this_form.fields;
+
+			/*******************Make Changes To Spelling And Flags In This Section*******************/
+
+			/* Set to True if a decision.log is needed.*/
+			log_execution_info := False;
+
+			//------------------------------------------------------------
+			// Define the ObjectsPlus destinations	
+			//------------------------------------------------------------
+
+			for i in 1 seqto ( count field_list ) do 
+
+				if ( field_list.DataItemName[i] matches pattern "PRX_Checkbox%" ) then
+					concatCurrField := field_list.DataItemName[i] || "|" || field_list.Control_MultiFieldOccNum[i];
+
+					if ( concatCurrField <> callingField ) then
+						if ( NOT ( concatCurrField IN exceptionLst ) ) then
+							affectedFld := first of ( field_list WHERE field_list.DataItemName = field_list.DataItemName[i] 
+												AND field_list.Control_MultiFieldOccNum = field_list.Control_MultiFieldOccNum[i] );
+
+							affectedFld.Control_Read_Only := readOnlyVal;
+						endif;
+					endif;
+				endif;
+			enddo;
+	;;
+	evoke:  // No evoke statement
+	;;
+	logic:  
+
+		conclude True;
+	;;
+	action:
+        // This MLM returns two parameters, of types communication_type and form_type respectively.
+		return true;
+	;;
+Urgency: 50;;
+end: