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: