maintenance:

	title:  FORM_TEMPLATE;;
	filename:  FORM_TEMPLATE;;
	arden: version 2;;
	version:  1.00;;
	institution: Eclipsys Corp;;
	author:  Eclipsys Corp;;
	specialist:  ;;
	date:  2004-08-16;;
	validation:  testing;;

library:
	purpose:  
	;;
	explanation:  
	;;
	keywords:
	;;
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;

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

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

		/****** Place all your reading and updating here **********/

		IV_additive := last of (field_list where field_list.DataItemName = "IVAdditive" );
		PRX_additive := last of (field_list where field_list.DataItemName = "PRX_IV Additive" );
		PR_No_additive := last of (field_list where field_list.DataItemName = "PRX_NOIVAdditive" );
		Drug_ID := last of (field_list where field_list.DataItemName = "PRX_DRUGIDCODE" );

		IF exist IV_additive then 
			Drug_ID.value := PRX_additive.Value;
		else
			Drug_ID.value := PR_No_additive.Value;
		endif;

	;;
	evoke:  // No evoke statement
	;;
	logic:  
		// always concludes TRUE
		conclude true;
	;;
	action:
        	// This MLM returns two parameters, of types communication_type and form_type respectively.
		return this_communication, this_form;
	;;
end: