maintenance:

	title:Clear Informational Text Box;;
	mlmname:FORM_NULL_INFO_BOX;;
	arden: version 2;;
	version:  4.50;;
	institution:  St Clair ;;
	author:  Teresa Spicuzza, Eclipsys Corp;;
	specialist:  ;;
	date:  2007-01-26;;
	validation:  testing;;

library:
	purpose:  This MLM sets the field PRX_TempOrderInfo to Null upon form close. 
	;;
	explanation:  This MLM is launched on form close
	;;
	keywords: Called MLMs, Form fields, Order Info
	;;
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;
//		CallingField :=this_communication.CallingFieldName;
//		CallingEvent := this_communication.CallingEvent;
//		FormType := this_communication.FormType;
	

				// This removes any text in the field before submitting order
 				TempInfo_field := last of (field_list 
							where field_list.DataItemName = "PRX_TempOrderInfo" );
				PermInfo_field := last of (field_list 
							where field_list.DataItemName = "PRX_PermOrderInfo" );
	//			RouteCode_field := last of (field_list 
	//						where field_list.DataItemName = "OrderRouteCode" );

	

		
 				If PermInfo_field.Value = "Info " 
				then
					TempInfo_field.Value := NULL;
				else 
					TempInfo_field.Value := NULL;
			endif;
       

	//				this_communication.DisplayForm := "Yes";
	//				this_communication.Message := "MLM Field :" || CallingField || "\n" || 
	//													"MLM Event :" || CallingEvent || "\n" ||
	//													"Form type :" || FormType;
	//				this_communication.MessageType := "Informational";


		

				
				

	;;
	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: