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_LABS_DESELECTED.mlm
+++ b/MLMStripper/bin/Debug/FORM/FORM_SET_LABS_DESELECTED.mlm
@@ -0,0 +1,111 @@
+maintenance:
+
+	title: Labs Deselected On Order Sets;;
+	mlmname:  FORM_Set_Labs_Deselected;;
+	arden: version 2;;
+	version:  4.50;;
+	institution:  St Clair Admissions;;
+	author:  Robert Spence, Eclipsys Corp Ext 7461;;
+	specialist:  Lisa Hancher, Eclipsys Corp ext PINT;;
+	date:  2008-05-19;;
+	validation:  testing;;
+
+library:
+      purpose:  Used for all Lab Grids with a Deselect all button
+				Initial use within ED CPOE Order sets
+				;;
+
+	explanation:  This MLM is called from all possible orders with Lab grids
+
+	Change history 
+    
+   11.24.2010   DW   Altered to enter escort order if MI item with the escort class has been selected           
+
+
+
+	;;
+	keywords: Called MLMs, Lab Grids on Order Sets, Inital ED
+	;;
+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;
+       CallingEvent := this_communication.CallingEvent;
+    CallingField := this_communication.CallingFieldName;
+
+
+ if CallingEvent = "FormClose" then
+    
+     Escort_MLM     := mlm {{{SINGLE-QUOTE}}}Form_Func_Escort_Order{{{SINGLE-QUOTE}}};
+     EscortQuestion := call Escort_MLM with this_form,this_communication;
+
+else
+
+	DeSelect := "Deselect All Lab Orders";
+	OccNumber:=1;
+
+	// Now do True and false logic for EVERY grid on this form	
+
+	//Get the multi order grid check box value
+	Grid_fld := last of (field_list where field_list.DataItemName = "MultiOrderCheckBox" 
+						and field_List.Control_MultiFieldOccNum = OccNumber);
+	Grid_list :=Grid_fld.Value;
+	Grid_SelList := Grid_List.IsSelected;
+
+	Found_DeSelect:= First of (Grid_list where Grid_list.Name = DeSelect );
+
+	If Found_DeSelect.IsSelected = True then
+		ListMembs:= count Grid_SelList;
+		FalseList := ();
+	   	for k  in (1 seqto ListMembs) do
+			FalseList := FalseList,False;
+		enddo;
+
+		Grid_List.IsSelected:= FalseList;
+	endif;
+
+
+endif;
+
+	/*		this_communication.DisplayForm := "Yes";
+				this_communication.Message :=	"One Of Rest Selection is  " || OneOfRest|| "\n\n" ||
+												"NoRisk Select" || Found_NoRisk.IsSelected || "\n\n" ||
+												"NoRisk Value " || Found_NoRisk.Value;
+ 				this_communication.MessageType := "Informational";	
+*/
+	
+
+	;;
+	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: