maintenance:

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

library:
	purpose:  	Scenario 1 : Only one can be selected from the highlighted 5 Order item/order set. As all are given for same reason[mild to moderate pain].
                            
                Scenario 2 : Only one can be selected from the highlighted two order item as both are given for same reason[nausea/vomiting];;
	explanation:  
				11-03-2015 - CSR:33066 : Created 
	;;
	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;

			CallingEvent := this_communication.CallingEvent;
			CallingField := this_communication.CallingFieldName;

			
			Medication_Morphine := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
											and field_list.Control_MultiFieldOccNum = 62 );
		    Medication_HydroMorphine := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
											and field_list.Control_MultiFieldOccNum = 63 );
			Medication_Pharmacy := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
											and field_list.Control_MultiFieldOccNum = 49 );

	
			Morphine_Value  := Medication_Morphine.Value ;
			HydroMorphine_Value := Medication_HydroMorphine.Value;
			Pharmacy_Value := Medication_Pharmacy.Value;

		  
			
// *********** Objects for first flow *************
			  
		
			Morphine1 := first of (Morphine_Value where Morphine_Value.Name = "Morphine  Inj"); 
			//Morphine2 := first of (Morphine_Value where Morphine_Value.Name = "PCA - Morphine Order Set"); //PCA - Morphine Order Set
			Morphine2 := Morphine_Value[2];
	    	HydroMorphine1 := first of (HydroMorphine_Value where HydroMorphine_Value.Name = "Hydromorphone Inj"); // D5W  1000ml
			//HydroMorphine2 := first of (HydroMorphine_Value where HydroMorphine_Value.Name = "PCA - Hydromorphone Order Set");
 			HydroMorphine2 := HydroMorphine_Value[2];
			//OxyCodon := first of (Pharmacy_Value where Pharmacy_Value.Name = "OxyCODONE  5mg/Acetaminophen 325mg Tab"); 

			//Second Scope in MLM
			Ondansetron := first of (Pharmacy_Value where Pharmacy_Value.Name = "Ondansetron Inj"); 
			Promethazine := first of (Pharmacy_Value where Pharmacy_Value.Name = "Promethazine Inj"); 
			
				
			If Morphine1.IsSelected = True Then 
							
			    Morphine2.IsReadonly := True;
				HydroMorphine1.IsReadonly := True ;
				HydroMorphine2.IsReadonly := True;
				//OxyCodon.IsReadonly := True ;

			Endif;
			If Morphine2.IsSelected = True Then 
							
			    Morphine1.IsReadonly := True;
				HydroMorphine1.IsReadonly := True ;
				HydroMorphine2.IsReadonly := True;
				//OxyCodon.IsReadonly := True ;

			Endif;
			If HydroMorphine1.IsSelected = True Then 
				Morphine1.IsReadonly := True;			
			    Morphine2.IsReadonly := True;
				HydroMorphine2.IsReadonly := True;
				//OxyCodon.IsReadonly := True ;

			Endif;
			If HydroMorphine2.IsSelected = True Then 
				
				Morphine1.IsReadonly := True;				
			    Morphine2.IsReadonly := True;
				HydroMorphine1.IsReadonly := True ;
				//OxyCodon.IsReadonly := True ;

			Endif;
			/*If OxyCodon.IsSelected = True Then 
				Morphine1.IsReadonly := True;					
			    Morphine2.IsReadonly := True;
				HydroMorphine1.IsReadonly := True ;
				HydroMorphine2.IsReadonly := True;

		    Endif;*/
			If  HydroMorphine2.IsSelected = False And HydroMorphine1.IsSelected = False And Morphine2.IsSelected = False And Morphine1.IsSelected = False Then

				Morphine1.IsReadonly := False;					
			    Morphine2.IsReadonly := False;
				HydroMorphine1.IsReadonly := False ;
				HydroMorphine2.IsReadonly := False;
				//OxyCodon.IsReadonly := False ;

			EndIf;


//  Second flow  ******************************************************************************
					If Ondansetron.IsSelected = True Then 
						Promethazine.IsReadonly := True;					
		
				    Endif;
			        If Promethazine.IsSelected = True Then 
						Ondansetron.IsReadonly := True;					

				    Endif;
					If Promethazine.IsSelected = False And Ondansetron.IsSelected = False Then
		
						Promethazine.IsReadonly := False;					
					    Ondansetron.IsReadonly := False;
				
					EndIf;


			

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