maintenance:

	title:Pharmacy Non Form Meds MLM;;
	mlmname:FORM_NON_FORM_MED;;
	arden: version 2;;
	version:  6.10;;
	institution:  St Clair Hospital;;
	author:  Teresa Spicuzza ;;
	specialist:  Teresa Spicuzza ;;
	date:  2015-05-27;;
	validation:  testing;;

library:
	purpose:  This MLM copies the Medication Name entered in the Multum linked field to PRX_BrandName to send to WORx.  CSR 33506

	;;
	explanation:  This MLM is launched on the change MultumDrugName.

		Change history 

		05.27.2015	TMS		Initial build - derived from FORM_NON_FORMMEDS which is no longer in use.

	;;
	keywords: Called MLMs, Form fields, non formulary
	;;
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;
		CallingField :=this_communication.CallingFieldName;
		CallingEvent := this_communication.CallingEvent;
		FormType := this_communication.FormType;
	

				BrandName := last of (field_list 
							where field_list.DataItemName = "PRX_BRANDNAME" );
				MultumName := last of (field_list 
							where field_list.DataItemName = "MultumDrugName" );
				Route := last of (field_list 
							where field_list.DataItemName = "OrderRouteCode" );
				Uom := last of (field_list 
							where field_list.DataItemName = "UOM" );
				DosageLow := last of (field_list 
							where field_list.DataItemName = "DosageLow" );
/*
				AdminIns := last of (field_list 
							where field_list.DataItemName = "AdminInstructions" );
				Fluid := last of (field_list 
							where field_list.DataItemName = "BaseSolution" );
				DosageHigh := last of (field_list 
							where field_list.DataItemName = "DosageHigh" );
				Frequency := last of (field_list 
							where field_list.DataItemName = "FrequencyCode" );
				PRN := last of (field_list 
							where field_list.DataItemName = "IsPRN" );
				Reason := last of (field_list 
							where field_list.DataItemName = "PRX_PRNCONDITION" );
				StopAfter := last of (field_list 
							where field_list.DataItemName = "StopAfter" );
				ReqDate := last of (field_list 
							where field_list.DataItemName = "RequestedDate" );
				ReqTime := last of (field_list 
							where field_list.DataItemName = "RequestedTime" );
				StopDate := last of (field_list 
							where field_list.DataItemName = "StopDate" );
				StopTime := last of (field_list 
							where field_list.DataItemName = "StopTime" );
*/
				
	If callingfield = "MultumDrugName" then 
		Brandname.value :=  MultumName.value; 
	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: