maintenance:

	title: Retrieve Isolations;;
	mlmname:  Form_Isolations_Retreive;;
	arden: version 2;;
	version:  4.50;;
	institution:  St Clair Isolations MLM;;
	author:  Robert Spence, Eclipsys Corp;;
	specialist:  ;;
	date:  2006-05-26;;
	validation:  testing;;

library:
	purpose:  This MLM sets the Field for Isolations per visit.

	;;
	explanation:  This MLM takes the data sent to CDS from Medical Imaging on open
					Use in On Open ONLY!

	;;
	keywords: Called MLMs, Form fields, Isolation, Medical Imaging, On Open Only
	;;
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;
		ClientGuid :=this_communication.clientguid;
		ClientVisitGuid := this_communication.ClientVisitGuid;
		ClientChartGuid := this_communication.ChartGuid;
		CallingField :=this_communication.CallingFieldName;
		CallingEvent := this_communication.CallingEvent;

		Iso_field :=last of (field_list 
					where field_list.DataItemName = "MI Isolation" );
		
		// Get the Isolation Column
	 	IsolationCol := read last
			{ " Select top 1 Columnname"
			|| " from cv3EnterpriseColumnData "
			|| " where dataitemcode = " || SQL({{{SINGLE-QUOTE}}}Isolation{{{SINGLE-QUOTE}}})};

		If exists(IsolationCol) 
		then
			// now get the visit{{{SINGLE-QUOTE}}}s isolation status

			Isolation := read last
			{ " Select " || IsolationCol
			|| " from CV3EnterpriseVisitData "
			|| " where visitguid = " || SQL(ClientVisitGuid)};

			If (Isolation Is Null) 
			then
				Iso_field.Value :="";
			else
				Iso_field.Value := Isolation;
			endif;
		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: