Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/FORM/FORM_BLOOD_CONSENT_FORM.mlm

@@ -0,0 +1,78 @@
+maintenance:
+
+	title: St.Clair: Promod selection on tube feeds;;
+	mlmname:  FORM_Blood_Consent_Form;;
+	arden: version 2;;
+	version:  4.50;;
+	institution:  St Clair;;
+	author: Shawn Head, Allscripts;;
+	specialist:  Maria Pest, Allscripts;;
+	date:  2016-08-11;;
+	validation:  testing;;
+
+library:
+      purpose:  Used to control the reprinting of the blood consent form
+	
+	;;
+
+	explanation:  
+  08-11-2016 STH CSR#: 34139 - Created to control modifying/re-printing the order information. {Go-Live 10/4/2016}
+	
+	;;
+	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
+
+					Reprint_Form := last of (field_list where field_list.DataItemName = "BB Informed Consent" );
+					Reprint_Count := last of (field_list where field_list.DataItemName = "BB Consent Reprint" );
+			abc123 := Reprint_Form.value;
+			xyz123 := Repint_Count.Value;				
+			if(Reprint_Form.Value) then
+				if(Reprint_Count.Value is null) then
+					Reprint_Count.Value := 1;
+				else
+					Reprint_Count.Value := (Reprint_Count.Value as number) + 1;
+				endif;
+				Reprint_Form.Value := false;
+			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: