maintenance:

	title: FORM_POST_OP_APPENDECTOMY_MORPHINE ;;
	mlmname:  FORM_POST_OP_APPENDECTOMY_MORPHINE ;;
	arden: version 2.5;;
	version:  6.10;;
	institution:  St. Clair Hospital;;
	author:  Shivprasad Jadhav;;
	specialist:  Shivprasad Jadhav;;
	date:  2015-02-16;;
	validation:  testing;;

library:
      purpose:  

				;;

	explanation: 

				Change History
				-----------------
				12.10.2014	 JML  CSR# 33051: Created
	;;
	keywords: Called MLMs
	;;
knowledge:
	type: data-driven;;
	data:

			// This MLM is passed three arguments, of types 
        	// communication_type, form_type and client info object respectively.

        	(this_communication,   	// Communication object
			this_form,				// Form object
			client_info_obj			//Arden ClientInfo object	
					) := argument;


			/*******************Make Changes To Spelling And Flags In This Section*******************/

			/* Set to true if a decision.log is needed.*/
			log_execution_info := FALSE;

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

			// Initialize error message
			error_message:="";

			// Assigns fields passed in the Form object to the Field object
			field_list:= this_form.fields;
			

			

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

			//Retrieve relevant form fields
			Medication1 := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
									and field_list.Control_MultiFieldOccNum = 59);
			Medication1_Val := Medication1.Value;

			Medication2 := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
									and field_list.Control_MultiFieldOccNum = 60);
			Medication2_Val := Medication2.Value;
			
		
			Item_1 := Medication1_Val[1]; //Hydromorphone Inj
			Item_2 := Medication1_Val[2];//Morphine  Inj
			Item_3 := Medication2_Val[1]; //PCA - Morphine Order Set
			Item_4 := Medication2_Val[2]; //PCA - Hydromorphone Order Set
			/*Item_5 := Medication_Val[5]; //Ondansetron Inj
			Item_6 := Medication_Val[6]; //Promethazine Inj
			Item_7 := Medication_Val[7]; 
			Item_8 := Medication_Val[8]; 
			Item_9 := Medication_Val[9]; */


			MedVal1:=NULL;
			MedVal2 :=NULL;
			for i in 1 seqto 2 do
			If Medication1_Val[i].IsSelected = True Then 
				MedVal1 := i;
			
			EndIf;
			If Medication2_Val[i].IsSelected = True   Then
				MedVal2 := i;
					
			Endif;
			EndDo;



			

					
							
							If ( Item_1.IsSelected= true or Item_2.IsSelected= true or Item_3.IsSelected= true or Item_4.IsSelected= true  )Then
								Item_1.IsReadOnly := true;
								Item_2.IsReadOnly := true;
								Item_3.IsReadOnly := true;	
								Item_4.IsReadOnly := true;
							endif;
						


		

			If (MedVal1 is NULL) And ( MedVal2 Is Null ) Then 
						Medication1_Val[1].IsReadOnly := false;
						Medication1_Val[2].IsReadOnly := false;
						Medication2_Val[1].IsReadOnly := false;	
						Medication2_Val[2].IsReadOnly := false;
		
			EndIf;

			for i in 1 seqto 2 do
			
			If Medication1_Val[i].IsSelected = True Then
				Val1 := i;
			EndIf;
			If Medication2_Val[i].IsSelected = True Then
				Val2 := i;
			EndIf;
			Enddo;
			
			If Val1 is not NULL Then 
				Medication1_Val[Val1].IsReadOnly := false ; 

				/*If  Val1=1 Then 
						Item_1.IsReadOnly := False ;
				ElseIf Val2 Then 
						Item_2.IsReadOnly := False ;
				Endif;*/
						

			EndIf;
			If Val2 Is not Null Then
			    Medication2_Val[Val2].IsReadOnly := false ;

			EndIf;

			


	;;
	evoke:  // No evoke statement
	;;
	logic:  

			conclude true;
	;;
	action:
        	// This MLM returns two parameters, of types communication_type and form_type respectively.
			return this_communication, this_form;
	;;
end: