maintenance:

	title:  Form_Post_Permanent_Pacemaker_PharmacyGrid;;
	mlmname:  Form_Post_Permanent_Pacemaker_PharmacyGrid;;
	arden: version 2.5;;
	version:  6.10;;
	institution: SCH ;;
	author:  Shivprasad Jadhav;;
	specialist:  Shubha Rai;;
	date:  2014-12-30;;
	validation:  testing;;

library:
	purpose:  If one of the Cephalexin order is checked then the other Cephalexin order should be inactivated on Post Permanent Pacemaker or ICD Insertion Orderset	;;
	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;

			//field_list := this_form.fields;
			field_list2 := this_form.fields;
			//field_list3 := this_form.fields;
		
		Client_GUID := this_communication.ClientGUID;
		ClientVisit_GUID := this_communication.ClientVisitGUID;
		Chart_GUID := this_communication.ChartGUID;
		form_name := this_form.Name;
		
	

						/* If any item is selected then select all grid items */
						
						Selected_Flag := False;
						Multi_Grid := First of ( field_list2 where field_list.DataItemName = "MultiOrderGrid" and field_list.Label = "Pharmacy - Medications") ;
						Multi_Grid_fields := Multi_Grid.Value;
						item1 := Multi_Grid_fields[1];
						item2 := Multi_Grid_fields[2];
						

					if item1.IsSelected = TRUE Then
						item2.IsReadonly := TRUE ; 
					EndIF;
					if item1.IsSelected = FALSE Then
						item2.IsReadonly := FALSE ; 
					EndIF;


					if item2.IsSelected = TRUE Then
						item1.IsReadonly := TRUE ; 
					EndIF;
					if item2.IsSelected = FALSE Then
						item1.IsReadonly := FALSE ; 
					EndIF;

  



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