Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/FORM/FORM_BB_RHOGAM.mlm

@@ -0,0 +1,78 @@
+maintenance:
+
+	title: St.Clair: Promod selection on tube feeds;;
+	mlmname:  FORM_BB_Rhogam;;
+	arden: version 2;;
+	version:  4.50;;
+	institution:  St Clair;;
+	author: Don Warnick, Eclipsys Corp;;
+	specialist:  ;;
+	date:  2006-08-25;;
+	validation:  testing;;
+
+library:
+      purpose:  Value the Quantitative Result with "sent to reference lab" or blank dependinging upon the Screen Result selection
+	
+	;;
+
+	explanation:  This MLM is called from the Lab BBank Rhogam form.
+
+                It values the BB Rhogam_FT_FM Quant Result with "sent to reference lab" if BB Rhogam_FT_FM Screen is "positive"  
+                It values the BB Rhogam_FT_FM Quant Result with "" if BB Rhogam_FT_FM Screen is "negative" 
+
+	
+	;;
+	keywords: Called MLMs, Form fields, Fetal Maternal Screen Result, Fetal Maternal Quantitative Result
+	;;
+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;
+		
+				// Value the Diet_DSS_Supplement field based upon the status of the Protein Powder Check Box
+
+					Screen_result := last of (field_list where field_list.DataItemName = "BB Rhogam_FT_FM Screen" );
+					Quant_result := last of (field_list where field_list.DataItemName = "BB Rhogam_FT_FM Quant Result" );
+					
+			Quant_result .control_read_only := True;						
+			If  Screen_result.value = "positive"
+				then
+					Quant_result .value := "Sent to reference lab";
+				else
+					Quant_result .value := "";
+			endif;
+	;;
+	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: