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_CCM_THORACENTESIS.mlm
+++ b/MLMStripper/bin/Debug/FORM/FORM_SET_CCM_THORACENTESIS.mlm
@@ -0,0 +1,137 @@
+maintenance:
+
+	title: CCM Thoracentesis Orderset;;
+	mlmname:  FORM_Set_CCM_Thoracentesis ;;
+	arden: version 2;;
+	version:  4.50;;
+	institution:  St Clair;;
+	author:  Robert Spence, Eclipsys Corp Ext 7461;;
+	specialist:  ;;
+	date:  2009-09-22;;
+	validation:  testing;;
+
+library:
+      purpose:  Used to select labs per left / right or both Thoracentesis 
+
+				;;
+
+	explanation:  This MLM is called from the CCM Thoracentesis Orderset
+
+
+	;;
+	keywords: Called MLMs,CCM Thoracentesis Orderset
+	;;
+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;
+
+	fldleft  :=  last of (field_list where field_list.DataItemName = "CCM Left Thoracentesis");
+	fldright  :=  last of (field_list where field_list.DataItemName = "CCM Right Thoracentesis");
+	fldleftright  :=  last of (field_list where field_list.DataItemName = "CCM L/R Thoracentesis");
+
+	listcbs:= ();
+	allvalue := false;
+
+
+
+	if Callingfield = "CCM Left Thoracentesis|1" then
+		allvalue := fldleft.Value;
+		listcbs:=(2);
+
+		if fldleft.Value = True then
+			fldright.control_read_only := True;
+			fldleftright.control_read_only := True;
+		else
+			fldright.control_read_only := False;
+			fldleftright.control_read_only := False;
+		endif;
+	elseif Callingfield  = "CCM Right Thoracentesis|1" then
+		allvalue := fldright.Value;
+		listcbs:=(3);
+		if fldright.Value = True then
+			fldleft.control_read_only := True;
+			fldleftright.control_read_only := True;
+
+			// set grid here, name of grid to change or list and to change to.
+
+		else
+			fldleft.control_read_only := False;
+			fldleftright.control_read_only := False;
+
+			// set grid here, name of grid to change or list and to change to.
+		endif;
+	elseif Callingfield  = "CCM L/R Thoracentesis|1" then
+		allvalue := fldleftright.Value;
+		listcbs:=(2,3);
+		if fldleftright.Value = True then
+			fldleft.control_read_only := True;
+			fldright.control_read_only := True;
+
+			// set grid here, name of grid to change or list and to change to.
+
+		else
+			fldleft.control_read_only := False;
+			fldright.control_read_only := False;
+
+			// set grid here, name of grid to change or list and to change to.
+		endif;
+	endif;
+
+	listcbsproc:= count listcbs;
+
+
+	for k in (1 seqto listcbsproc) do
+		gridwork := listcbs[k];
+		Grid_fld := last of (field_list where field_list.DataItemName = "MultiOrderCheckBox" 
+						and field_List.Control_MultiFieldOccNum = gridwork);	
+		Grid_list :=Grid_fld.Value;
+		Grid_SelList := Grid_List.IsSelected;
+
+		ListMembs:= count Grid_SelList;
+		setlist := ();
+		for j in (1 seqto ListMembs) do
+			setlist := setlist, allvalue;
+		enddo;
+		Grid_List.IsSelected:= setlist;
+		
+	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: