maintenance:

	title: Med Update Frequency;;
	mlmname:  FORM_MED_UPDATE_FREQ;;
	arden: version 2;;
	version:  4.50;;
	institution:  St Clair Isolation Set MLM;;
	author:  Eclipsys Corp;;
	specialist: Mary Jo Goodwin ;;
	date:  2006-12-29;;
	validation:  testing;;

library:
      purpose:  On med form when UDDI for frequency is used
						move value to standard frequency field
	
	;;

	explanation:  This MLM is called from the medication form when a UDDI for frequency is populated.

							The UDDI contains a subset of frequencies from the main list of frequencies.
							When a  frequency in the UDDI is selected this MLM
							will copy value to the hidden FrequencyCode field.  

							NOTE: currently UDDI only contains {{{SINGLE-QUOTE}}}STAT" and {{{SINGLE-QUOTE}}}NOW". 
									The UDDI may only contain values that are in the mail FrequencyCode list             
                
	
	;;
	keywords: Called MLMs, Form fields, Frequency
	;;
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*******************/


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

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

		restraint_freq := last of (field_list where field_list.DataItemName = "PRX_Chemical Restraint Freq");
		regular_freq := last of (field_list where field_list.DataItemName = "FrequencyCode");
		regular_freq_value := regular_freq.value;

		if exists restraint_freq.Value then	
			// copy UDDI value to the regular frequency value
			regular_freq_value.FrequencySummary := restraint_freq.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: