maintenance:

	title: FORM_SET_HEMODIALYSIS_ORDERS;;
	mlmname:  FORM_SET_HEMODIALYSIS_ORDERS;;
	arden: version 2.5;;
	version:  5.50;;
	institution:  St Clair Hospital;;
	author:  Maya Poojari;;
	specialist:  Don Warnick;;
	date:  2016-08-17;;
	validation:  testing;;

library:
      purpose:  Select a pharmacy order from a grid and other orders will be unselectable. 
				;;

	explanation:  This MLM is called from the Hemodialysis Orders Order Set
	
	
 	Change history 

    08.17.2016 - DJW   CSR# 34858 - Created 
    03.10.2017 - DJW   CSR# 34858 - Altered the MLM for changes made to the OS after the MLM was deployed to Production.   


	;;
	keywords: Called MLMs, 
	;;
knowledge:
	type: data-driven;;
	data:

       	(this_communication, this_form,	client_info_obj) := argument;

		standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
	    include standard_libs;

		using "ObjectsPlusXA.SCM.Forms";
		using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";

		log_execution_info := FALSE;
		error_message:="";

		field_list:= this_form.fields;
	
		client_guid  := this_communication.ClientGUID;
		visit_guid   := this_communication.ClientVisitGUID;
		chart_guid   := this_communication.ChartGuid;
	    CallingEvent := this_communication.CallingEvent;
	    CallingField := this_communication.CallingFieldName;
	

		// Define the grid

	    MedOrderGrid := first of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 6);	

		MedOrderGrid.Value[08].IsReadOnly := false;	
		MedOrderGrid.Value[09].IsReadOnly := false;
		MedOrderGrid.Value[10].IsReadOnly := false;
		MedOrderGrid.Value[11].IsReadOnly := false;

/*

		if   MedOrderGrid.Value[11].IsSelected = true               // Ferric Gluconate Complex 
			then 

				MedOrderGrid.Value[12].IsSelected := false;
				MedOrderGrid.Value[13].IsSelected := false; 
				MedOrderGrid.Value[14].IsSelected := false;
				MedOrderGrid.Value[12].IsReadOnly  := true;
				MedOrderGrid.Value[13].IsReadOnly  := true;
				MedOrderGrid.Value[14].IsReadOnly  := true;


		elseif MedOrderGrid.Value[12].IsSelected = true               // Iron Sucrose Complex 
			then 

				MedOrderGrid.Value[11].IsSelected := false;
				MedOrderGrid.Value[13].IsSelected := false; 
				MedOrderGrid.Value[14].IsSelected := false;
				MedOrderGrid.Value[11].IsReadOnly  := true;
				MedOrderGrid.Value[13].IsReadOnly  := true;
				MedOrderGrid.Value[14].IsReadOnly  := true;


		elseif MedOrderGrid.Value[13].IsSelected = true            // Ferric Gluconate Complex Weekly
			then 

				MedOrderGrid.Value[11].IsSelected := false;
				MedOrderGrid.Value[12].IsSelected := false; 
				MedOrderGrid.Value[14].IsSelected := false;
				MedOrderGrid.Value[11].IsReadOnly := true;
				MedOrderGrid.Value[12].IsReadOnly := true;
				MedOrderGrid.Value[14].IsReadOnly := true;

		elseif MedOrderGrid.Value[14].IsSelected = true            // Iron Sucrose Complex Weekly
			then

				MedOrderGrid.Value[11].IsSelected := false;
				MedOrderGrid.Value[12].IsSelected := false; 
				MedOrderGrid.Value[13].IsSelected := false;
				MedOrderGrid.Value[11].IsReadOnly := true;
				MedOrderGrid.Value[12].IsReadOnly := true;
				MedOrderGrid.Value[13].IsReadOnly := true;
		endif;
*/

		if   MedOrderGrid.Value[8].IsSelected = true               // Ferric Gluconate Complex 
			then 

				MedOrderGrid.Value[09].IsSelected := false;
				MedOrderGrid.Value[10].IsSelected := false; 
				MedOrderGrid.Value[11].IsSelected := false;

				MedOrderGrid.Value[09].IsReadOnly  := true;
				MedOrderGrid.Value[10].IsReadOnly  := true;
				MedOrderGrid.Value[11].IsReadOnly  := true;


		elseif MedOrderGrid.Value[09].IsSelected = true               // Iron Sucrose Complex 
			then 

				MedOrderGrid.Value[08].IsSelected := false;
				MedOrderGrid.Value[10].IsSelected := false; 
				MedOrderGrid.Value[11].IsSelected := false;

				MedOrderGrid.Value[08].IsReadOnly  := true;
				MedOrderGrid.Value[10].IsReadOnly  := true;
				MedOrderGrid.Value[11].IsReadOnly  := true;


		elseif MedOrderGrid.Value[10].IsSelected = true            // Ferric Gluconate Complex Weekly
			then 

				MedOrderGrid.Value[08].IsSelected := false;
				MedOrderGrid.Value[09].IsSelected := false; 
				MedOrderGrid.Value[11].IsSelected := false;

				MedOrderGrid.Value[08].IsReadOnly := true;
				MedOrderGrid.Value[09].IsReadOnly := true;
				MedOrderGrid.Value[11].IsReadOnly := true;

		elseif MedOrderGrid.Value[11].IsSelected = true            // Iron Sucrose Complex Weekly
			then

				MedOrderGrid.Value[08].IsSelected := false;
				MedOrderGrid.Value[09].IsSelected := false; 
				MedOrderGrid.Value[10].IsSelected := false;

				MedOrderGrid.Value[08].IsReadOnly := true;
				MedOrderGrid.Value[09].IsReadOnly := true;
				MedOrderGrid.Value[10].IsReadOnly := true;
		endif;




	;;
	evoke:  
	;;
	logic:  

		conclude true;
	;;
	action:

		return this_communication, this_form;
	;;
end: