Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/FORM/FORM_URINE_CULTURE_REFLEX.mlm

@@ -0,0 +1,85 @@
+maintenance:
+
+	title:  Form_Urine_Culture_reflex;;
+	mlmname:  Form_Urine_Culture_reflex;;
+	arden: version 2;;
+	version:  4.50;;
+	institution:  St. Clair Hospital;;
+	author:  Jignesh Dhandhukia;;
+	specialist:  Jignesh Dhandhukia, Allscripts Corporation;;
+	date:  2011-03-08;;
+	validation:  testing;;
+
+library:
+	purpose: 
+	If user chooses ‘Catheter Urine’ from the first mandatory field, the next 2 fields become mandatory.
+	If user chooses ‘Clean Catch Urine’ from the first mandatory field, the next 2 fields are grayed out.
+	;;
+	explanation:
+	An MLM is needed on this form to do the following:
+	If user chooses ‘Catheter Urine’ from the first mandatory field, the next 2 fields become mandatory.
+	If user chooses ‘Clean Catch Urine’ from the first mandatory field, the next 2 fields are grayed out.
+				
+	;;
+	keywords:
+		urine, reflex;
+		
+	;;
+knowledge:
+	type: data-driven;;
+	data:
+
+
+/**************************************************************************************/
+
+    // This MLM receives three arguments from system
+	(this_communication,   	// Communication object
+	this_form,				// Form object
+	client_info_obj			// Arden ClientInfo object
+	) := argument;
+
+	// get calling event values from communication object
+	calling_event := this_communication.CallingEvent;
+	calling_field := this_communication.CallingFieldName;
+
+	// Assign pointer to the Field object, get field values
+	field_list := this_form.fields;
+
+
+	dependent_field1 := first of 
+			(field_list where field_list.DataItemName = "LAB_SREQ_VO_CathQuestion" );
+
+
+				
+	Option_field := first of 
+			(field_list where field_list.DataItemName = "LAB_RC_SDES_MicroSource_UrineCulture" );
+	if exists Option_field then
+		opt_chosen := Option_field.Value;
+	endif;
+	
+	
+	if opt_chosen = "Urine Catheter (CATH)" then
+		dependent_field1.Control_Mandatory := true; 
+	    dependent_field1.Control_Read_Only := false; 
+	else
+		dependent_field1.value := "";
+		dependent_field1.Control_Mandatory := false; 
+		dependent_field1.Control_Read_Only := true; 
+	endif;	
+	
+
+	;;
+	evoke: 
+	
+	;;
+	logic:
+		Conclude true; 
+		
+	;;
+	action:
+      	// This MLM returns communication_type and form_type parameters.
+		return this_communication, this_form;
+		
+	;;
+Urgency: 50;;
+end: