maintenance:

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

library:
	purpose:  If upper Dressing Item Get selected then auto select Lower Dressing Item. If Upper dressing Get deselected then it remain as is on Post Permanent Pacemaker or ICD Insertion Orderset form	;;
	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;
				
		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 = "Dressing") ;
						Multi_Grid_fields := Multi_Grid.Value;
						item1 := Multi_Grid_fields[1];
						item2 := Multi_Grid_fields[2];

					   item3 := Multi_Grid_fields[3];
						item4 := Multi_Grid_fields[4];
						
					A:=0;
					if item2.IsSelected = TRUE Then
                       A:=11;
						//item3.IsSelected := TRUE ; 
					EndIF;
               
					if item3.IsSelected = FALSE Then
						A:=33;
					EndIf;


					if item2.IsSelected = FALSE Then
						A:=22;
					EndIF;


					if item2.IsSelected = FALSE And  item3.IsSelected = TRUE  Then
						A:=1;
					EndIF;

					If A=11 Then 
						item3.IsSelected := TRUE ; 
  					ENDIF;
					If A=22 Then 
						item3.IsSelected := FALSE ; 
						item3.IsReadonly :=FALSE;
					EndIf;
					If A=33 Then
					 item3.IsSelected := TRUE ;
					EndIF;
                     If A=1 Then
						item3.IsSelected := FALSE ; 
						item3.IsReadonly :=FALSE;
					EndIf;
					
 
	;;
	priority: 50
	;;
	evoke:  
	;;
	logic: conclude true;
	;;
	action: return this_communication, this_form;
	;;
Urgency: 50;;
end: