maintenance:

	title: FORM_POST_OP_APPENDECTOMY ;;
	mlmname:  FORM_POST_OP_APPENDECTOMY ;;
	arden: version 2.5;;
	version:  6.10;;
	institution:  St. Clair Hospital;;
	author:  Shivprasad Jadhav;;
	specialist:  Shivprasad Jadhav;;
	date:  2015-01-22;;
	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;
			// 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;

			Medication := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
									and field_list.Control_MultiFieldOccNum = 49);
			Medication_Val := Medication.Value;


			Item_OnDan:= first of (Medication_Val where Medication_Val.Name = "Ondansetron Inj");// 
            Item_Prometh:= first of (Medication_Val where Medication_Val.Name = "Promethazine Inj");// 
			
			

			// Code for Ondansetron Inj & Promethazine Inj
			

			If Item_OnDan.IsSelected = True Then
				Item_Prometh.IsReadOnly := "TRUE";
			EndIf;
			If Item_Prometh.IsSelected = True Then
				Item_OnDan.IsReadOnly := "TRUE";
			EndIf;
			If Item_OnDan.IsSelected = False And Item_Prometh.IsSelected = false Then
				Item_Prometh.Isreadonly := "FALSE"; 
				Item_OnDan.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: