Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/FORM/FORM_LAB_CHEM_SYNOVIAL_MAND.mlm

@@ -0,0 +1,108 @@
+maintenance:
+
+	title: Lab Synovial Joint Fluid Mandatory;;
+	mlmname:  FORM_LAB_CHEM_SYNOVIAL_MAND;;
+	arden: version 2;;
+	version:  4.50;;
+	institution:  St Clair Lab Synovial MLM;;
+	author:  Robert Spence, Eclipsys Corp;;
+	specialist:  ;;
+	date:  2006-09-11;;
+	validation:  testing;;
+
+library:
+	purpose:  This MLM sets the field Synovial to Mandatory if another field is selected
+
+	;;
+	explanation:  This MLM enables teh Synovial to be mandatory
+		
+	;;
+	keywords: Called MLMs, Form fields, Lab, Synovial, Chemistry
+	;;
+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;
+		CallingField :=this_communication.CallingFieldName;
+		CallingEvent := this_communication.CallingEvent;
+		FormName := this_form.Name;
+		
+		If FormName = "LAB Chemistry Fluid1"
+		then
+			ActOnField:=last of (field_list 
+							where field_list.DataItemName = "LAB_M_VO_OBR15_SpecType_Chem_1" );
+		elseif FormName = "LAB Chemistry Fluid2"
+		then
+			ActOnField := last of (field_list 
+							where field_list.DataItemName = "LAB_M_VO_OBR15_SpecType_Chem_2" );
+		elseif FormName = "LAB Chemistry Fluid3"
+		then
+			ActOnField := last of (field_list 
+							where field_list.DataItemName = "LAB_M_VO_OBR15_SpecType_Chem_3" );
+		elseif FormName = "LAB Hem Nsg Col_Hem1"
+		then
+			ActOnField := last of (field_list 
+							where field_list.DataItemName = "LAB_M_VO_OBR15_SpecType_Hem_1" );	
+		elseif FormName = "LAB_MG_SpecChem1"
+		then
+			ActOnField := last of (field_list 
+							where field_list.DataItemName = "LAB_M_VO_OBR15_SpecType_Chem_1" );					
+		endif;
+	
+		SynovialField :=last of (field_list 
+							where field_list.DataItemName = "Lab_VO_SiteforSynovialFluid" );
+		
+		If ActOnField.Value ="Synovial Joint Fluid (SYN)"
+		then
+			SynovialField.Control_Mandatory:=True;
+		else
+			SynovialField.Control_Mandatory:=False;
+		endif;
+
+ 	//			this_communication.DisplayForm := "Yes";
+	//				this_communication.Message := "MLM Field :" || CallingField || "\n" || 
+	//													"MLM Event :" || CallingEvent || "\n" ||
+	//													"Form type :" || FormType || "\n" ||
+	//													"FormName: " || FormName || "\n" ||
+	//													"ActOn:"|| ActOnField.Value;
+	//				this_communication.MessageType := "Informational";
+
+
+				
+				
+
+	;;
+	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: