Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/FORM/FORM_NON_FORM_MED.mlm

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