maintenance:

	title: FORM_MLM_On_ObjectsPlus;;
	mlmname:  FORM_MLM_On_ObjectsPlus;;
	arden: version 2;;
	version:  4.50;;
	institution:  St Clair MLM;;
	author:  Robert Spence, Eclipsys Corp;;
	specialist:  ;;
	date:  2008-03-07;;
	validation:  testing;;

library:
	purpose:  This MLM Fires On Type ins for Objects + Launched fields

	;;
	explanation:  Simply retrieves the location from the status board.

	Change history 
    
	04.25.2011   DW   Worked around 5.5 issue by suppressing the error is a close paren is found indicating a valid consult value            
	


	;;
	keywords: Called MLMs, Form fields, ED, Status Board
	;;
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;
		Visit_Guid := this_communication.ClientVisitGuid;
		CallingField :=this_communication.CallingFieldName;
		CallingEvent := this_communication.CallingEvent;
        formname := this_form.Name;
	
		//Obj_Plus_Consult

        // DW 5.5 Change 04/25/2011 Test for typed in Consult value...if found, the error message will be supressed

        SuppressMessage := "No";

		obplus :=last of (field_list where field_list.DataItemName = "Obj_Plus_Consult" );

		if exist obplus then
        	if obplus.value  matches pattern "%)%" then SuppressMessage := "Yes";	endif;
        endif;

		if not(exist(obplus)) then

			obplus :=last of (field_list where field_list.DataItemName = "Obj_Plus_MRN Combine" );

		endif;
			
		formname := this_communication.name;



		if exist obplus.value and  SuppressMessage = "No" then

		this_communication.DisplayForm := "Yes";
		this_communication.Message :="{{{SINGLE-QUOTE}}}" ||  obplus.label  || "{{{SINGLE-QUOTE}}} field: Type-in{{{SINGLE-QUOTE}}}s are not permitted. \n\n " ||	
									  "Click the search button (on the right) to enter the " || obplus.label ;
		this_communication.MessageType := "Error";
		
	 	obplus.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: