Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/FORM/FORM_MED_UPDATE_FREQ.mlm

@@ -0,0 +1,73 @@
+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: