Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/FORM/FORM_TEMPLATE.mlm

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