maintenance:

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

library:
	purpose:  This MLM Fires On ED Resp Order being opened

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

	;;
	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;
		FormType := this_communication.FormType;
	

				// This sets the visible control on the field dataitem - CHG_OVERRIDE_WITH
				EDLoc :=last of (field_list 
							where field_list.DataItemName = "ED Location" );
				
				Temp := read last {"Select el.EDDisplayName " 
									|| " from sxaedlocation as el "
  									|| " join sxaedboard as eb "
									|| " on eb.EdLocationguid = el.locationguid "
									|| " and eb.clientvisitguid = " || SQL(Visit_Guid)
									|| " and eb.active =1 "};

				EDLoc.Value := Temp;


				//	this_communication.DisplayForm := "Yes";
			//		this_communication.Message := "ED Returned = " || Temp
		//											|| "Visit_Guid = " || Visit_Guid;
			//		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: