maintenance:

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

library:
	purpose:  	Ø	User should be able to select only one out of 3 Knee aspiartion Orders      ;;
	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;
			CallingEvent := this_communication.CallingEvent;
			CallingField := this_communication.CallingFieldName;
			CallingItem := CallingField.Records_;


/**********************************  Added By Shivprasad *****************************************************/

					 Set_Generic_MLM:= MLM {{{SINGLE-QUOTE}}}FORM_Set_Generic_Item_Control{{{SINGLE-QUOTE}}};
			         this_communication,this_form := call Set_Generic_MLM with this_communication,this_form,client_info_obj ;  
					  

/***************************************************************************************/


			Knee_Left := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
											and field_list.Control_MultiFieldOccNum = 2 );
			Knee_Left_Val := Knee_Left.Value;
			Knee_Right := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
											and field_list.Control_MultiFieldOccNum = 1 );
			Knee_Right_Val := Knee_Right.Value;
			Knee_Bilateral := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
											and field_list.Control_MultiFieldOccNum = 5 );
			Knee_Bilateral_Val := Knee_Bilateral.Value;
			

// *********** Objects for first flow *************
					item1 := Knee_Left_Val[1];
					item2 := Knee_Right_Val[1];
					item3 := Knee_Bilateral_Val[1];

//********* objects for Second Flow  **********
			Knee_Left:= first of (Knee_Left_Val where Knee_Left_Val.Name = "Knee Aspiration");// 
			Knee_right:= first of (Knee_Right_Val where Knee_Right_Val.Name = "Knee Aspiration");// 
			Knee_BiLateral := first of (Knee_Bilateral_Val where Knee_Bilateral_Val.Name = "Knee Aspiration");// 
		



	//  first flow  ***************************************************************************************************
				
				If Knee_Left.IsSelected = True Then 
						Knee_right.IsReadonly := True;
						Knee_BiLateral.IsReadonly := True;

				EndIf;

				If Knee_right.IsSelected  = True Then 

						Knee_Left.IsReadonly := True;
						Knee_BiLateral.IsReadonly := True;

				EndIf;

				If Knee_BiLateral.IsSelected = True Then 
						Knee_Left.IsReadonly := True;
						Knee_right.IsReadonly := True;

				EndIf;
							
					
				

				If (Knee_Left.IsSelected  = False  And Knee_right.IsSelected  = False And Knee_BiLateral.IsSelected = False )  Then 

				
						Knee_Left.IsReadonly := False; 
						Knee_right.IsReadonly := False; 
						Knee_BiLateral.IsReadonly := False;
						
					
				EndIf;

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