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: