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_SET_GENERIC_READONLY.mlm
+++ b/MLMStripper/bin/Debug/FORM/FORM_SET_GENERIC_READONLY.mlm
@@ -0,0 +1,113 @@
+maintenance:
+
+	title: Generic Read Only On Order Set Open;;
+	mlmname: FORM_Set_Generic_ReadOnly;;
+	arden: version 2;;
+	version:  5.00;;
+	institution:  St Clair;;
+	author:       Robert Spence, Eclipsys Corp ext 7461;;
+	specialist:   Robert Spence, Eclipsys Corp ext 7461;;
+	date:  2010-02-11;;
+	validation:  testing;;
+
+library:
+      purpose:  Used to gray our any orderset field on form open.
+				;;
+
+	explanation:  Following this strategy to improve CPOE turnaround 
+
+Change history 
+    
+	;;
+	keywords: Generic, FormOpen, Read Only
+	;;
+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;
+
+	
+	LegendIn := ();
+	LegendOut := ();
+	LegendIn := ("MOI","MOC","MOG");
+	LegendOut := ("MultiOrderInline","MultiOrderCheckbox","MultiOrderGrid");
+
+
+	/***************************************************************************************/
+
+	// Use String parse
+	str_parse := mlm {{{SINGLE-QUOTE}}}UTIL_STRING_PARSE{{{SINGLE-QUOTE}}};
+
+	genfieldcall := mlm {{{SINGLE-QUOTE}}}FORM_Set_Generic_ReadOnly_FieldCall{{{SINGLE-QUOTE}}};
+
+
+	// Initialize error message
+	error_message:="";
+
+	// Assigns fields passed in the Form object to the Field object
+	field_list:= this_form.fields;
+
+	workfield2 := last of (field_list where field_list.DataItemName = "MLMOnOpenReadOnly_A" );
+	workfield := workfield2.value;
+
+	// workfield will be in format xxx-y|xxx-y
+	// where xxx is one of MOI, MOC, MOG
+	// y is the occurrence number of the Inline, Check Box or Grid.
+
+    CallingEvent := this_communication.CallingEvent;
+    CallingField := this_communication.CallingFieldName;
+
+	ListFields:=();
+	ListFields:= call str_parse with workfield,"|";	
+
+	NumMembs:= count ListFields;
+	NumLegend:= count LegendIn;
+
+	for k  in (1 seqto (NumMembs)) do		
+		intypelist := call str_parse with ListFields[k],"-";
+		intype:= first of (intypelist);
+		intypeocc:= last of (intypelist);
+
+		intypenum := intypeocc as number;
+		name:="";
+
+		for l in (1 seqto (NumLegend)) do
+			if LegendIn[l] = intype then
+				name:= LegendOut[l];
+			endif;
+		enddo;
+		
+		if (name <> "") then
+
+			(this_communication, this_form) := call genfieldcall 
+			with this_communication, this_form, client_info_obj,name,intypenum;
+
+		endif;
+
+	enddo;
+
+	;;
+	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: