Initial Checking with all 820 MLMs

2020-02-02 00:54:01 -05:00
parent c59dc6de2e
commit 840d0432f4
828 changed files with 239162 additions and 0 deletions
--- a/MLMStripper/bin/Debug/FORM/FORM_MLM_ON_OBJECTSPLUS.mlm
+++ b/MLMStripper/bin/Debug/FORM/FORM_MLM_ON_OBJECTSPLUS.mlm
@@ -0,0 +1,102 @@
+maintenance:
+
+	title: FORM_MLM_On_ObjectsPlus;;
+	mlmname:  FORM_MLM_On_ObjectsPlus;;
+	arden: version 2;;
+	version:  4.50;;
+	institution:  St Clair MLM;;
+	author:  Robert Spence, Eclipsys Corp;;
+	specialist:  ;;
+	date:  2008-03-07;;
+	validation:  testing;;
+
+library:
+	purpose:  This MLM Fires On Type ins for Objects + Launched fields
+
+	;;
+	explanation:  Simply retrieves the location from the status board.
+
+	Change history 
+    
+	04.25.2011   DW   Worked around 5.5 issue by suppressing the error is a close paren is found indicating a valid consult value            
+	
+
+
+	;;
+	keywords: Called MLMs, Form fields, ED, Status Board
+	;;
+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;
+		Visit_Guid := this_communication.ClientVisitGuid;
+		CallingField :=this_communication.CallingFieldName;
+		CallingEvent := this_communication.CallingEvent;
+        formname := this_form.Name;
+	
+		//Obj_Plus_Consult
+
+        // DW 5.5 Change 04/25/2011 Test for typed in Consult value...if found, the error message will be supressed
+
+        SuppressMessage := "No";
+
+		obplus :=last of (field_list where field_list.DataItemName = "Obj_Plus_Consult" );
+
+		if exist obplus then
+        	if obplus.value  matches pattern "%)%" then SuppressMessage := "Yes";	endif;
+        endif;
+
+		if not(exist(obplus)) then
+
+			obplus :=last of (field_list where field_list.DataItemName = "Obj_Plus_MRN Combine" );
+
+		endif;
+			
+		formname := this_communication.name;
+
+
+
+		if exist obplus.value and  SuppressMessage = "No" then
+
+		this_communication.DisplayForm := "Yes";
+		this_communication.Message :="{{{SINGLE-QUOTE}}}" ||  obplus.label  || "{{{SINGLE-QUOTE}}} field: Type-in{{{SINGLE-QUOTE}}}s are not permitted. \n\n " ||	
+									  "Click the search button (on the right) to enter the " || obplus.label ;
+		this_communication.MessageType := "Error";
+		
+	 	obplus.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: