Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/FORM/FORM_SET_LAB_PRIORITY_TIMES.mlm

@@ -0,0 +1,90 @@
+maintenance:
+
+	title:    FORM_SET_LAB_PRIORITY_TIMES ;;
+	mlmname:  FORM_SET_LAB_PRIORITY_TIMES;;
+	arden: version 2.5;;
+	version:  0.00;;
+	institution:  St. Clair Hospital;;
+	author:  Shawn Head x7468;;
+	specialist:  Maria Pest;;
+	date:  2015-03-03;;
+	validation:  testing;;
+
+library:
+	purpose:  This MLM will require or diable the "user friendly scheduled time" field depending on if schedule time is required.
+
+	;;
+	explanation:  
+	
+			2015-03-03 - STH CSR#: 32765 create MLM
+	;;
+	keywords:
+	;;
+	citations: 
+	;;
+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;
+
+			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;
+
+			//Retrieve fields
+
+
+			UserFriendly_Lab_Priorities := last of (field_list WHERE field_list.DataItemName = "LAB_Order Priorities" 
+									AND field_list.Control_MultiFieldOccNum = 1);
+			UserFriendly_Lab_times := last of (field_list WHERE field_list.DataItemName = "LAB_Phleb Draw Sched Time" 
+									AND field_list.Control_MultiFieldOccNum = 1);
+
+
+			if (CallingField = "LAB_Order Priorities|1") then
+				if (UserFriendly_Lab_Priorities.Value = "Scheduled Time")  then
+					UserFriendly_Lab_times.Control_Read_Only := false;
+					UserFriendly_Lab_times.Control_Mandatory := true;
+				else
+					UserFriendly_Lab_times.Control_Read_Only := true;
+					UserFriendly_Lab_times.Control_Mandatory := false;
+					UserFriendly_Lab_times.Value := "";
+				endif;
+			endif;
+
+	;;
+	priority: 50
+	;;
+	evoke:  
+	;;
+	logic:
+			conclude true;
+	;;
+	action:
+			return this_communication, this_form;
+	;;
+Urgency: 50;;
+end: