maintenance:

	title:  FORM_CCM_ELECTROLYTE_MEDICATION;; 
	mlmname:  FORM_CCM_ELECTROLYTE_MEDICATION;;
	arden: version 2.5;;
	version:  6.10;;
	institution: St. Clair Hospital ;;
	author:  Shivprasad Jadhav;;
	specialist:  Shivprasad Jadhav, Allscripts;;
	date:  2015-03-05;;
	validation:  testing;;

library:
	purpose:  	25-03-2015     CSR-33064 : MLM Created

				Scenario 1 : if user select any order from Central line i.e "Pottasium Chloride or Calcium Gluconate" then 
                             the other same order from Pheripheral line e.g [Pottasium Chloride or Calcium Gluconate] order should greyed out.    
                Scenario 2 :  if user select any order from Pheripheral line i.e "Pottasium Chloride or Calcium Gluconate" then the other same order 
                              from Central line e.g [Pottasium Chloride or Calcium Gluconate] order should greyed out.;;
	explanation:  
	;;
	keywords:
	;;
	citations: 
	;;
knowledge:
	type: data-driven;;
	data:
			(    this_communication,   	// Communication object
				 this_form,				// Form object
				 client_info_obj		//Arden ClientInfo object	
			 ) := argument;
			field_list:= this_form.Fields;

			Pharmacy := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
											and field_list.Control_MultiFieldOccNum = 50 );
			Pharmacy_Value  := Pharmacy.Value ;

// *********** Objects for first flow *************
			 Potassium1 := Pharmacy_Value[4];
			 Potassium2 := Pharmacy_Value[5];
			 Calcium1 := Pharmacy_Value[6];
			 Calcium2 := Pharmacy_Value[7];
			If Potassium1.IsSelected = True Then		
			    Potassium2.IsReadonly := True;
				//Calcium2.IsReadonly := True;
			Endif;


			If Potassium2.IsSelected = True Then		
			    Potassium1.IsReadonly := True;
				//Calcium2.IsReadonly := True;
			Endif;

			If ( Potassium1.IsSelected = False And Potassium2.IsReadonly = True ) or  (Potassium2.IsSelected = False And Potassium1.IsReadonly = True ) Then		
			    Potassium1.IsReadonly := False;
				Potassium2.IsReadonly := False;
				Potassium1.IsSelected := False ;
				Potassium2.IsSelected := False ;
			Endif;



			If Calcium1.IsSelected = True Then		
			    Calcium2.IsReadonly := True;
				//Calcium2.IsReadonly := True;
			Endif;


			If Calcium2.IsSelected = True Then		
			    Calcium1.IsReadonly := True;
				//Calcium2.IsReadonly := True;
			Endif;

			If ( Calcium1.IsSelected = False And Calcium2.IsReadonly = True ) or  (Calcium2.IsSelected = False And Calcium1.IsReadonly = True ) Then		
			    Calcium1.IsReadonly := False;
				Calcium2.IsReadonly := False;
				Calcium1.IsSelected := False ;
				Calcium2.IsSelected := False ;
			Endif;




		

			

;;
	priority: 50
	;;
	evoke:  
	;;
	logic: conclude true;
	;;
	action: return this_communication, this_form;
	;;
Urgency: 50;;
end: