Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/FORM/FORM_ISOLATIONS_RETREIVE.mlm

@@ -0,0 +1,95 @@
+maintenance:
+
+	title: Retrieve Isolations;;
+	mlmname:  Form_Isolations_Retreive;;
+	arden: version 2;;
+	version:  4.50;;
+	institution:  St Clair Isolations MLM;;
+	author:  Robert Spence, Eclipsys Corp;;
+	specialist:  ;;
+	date:  2006-05-26;;
+	validation:  testing;;
+
+library:
+	purpose:  This MLM sets the Field for Isolations per visit.
+
+	;;
+	explanation:  This MLM takes the data sent to CDS from Medical Imaging on open
+					Use in On Open ONLY!
+
+	;;
+	keywords: Called MLMs, Form fields, Isolation, Medical Imaging, On Open 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;
+
+		
+	
+		/***************************************************************************************/
+
+		// Initialize error message
+		error_message:="";
+
+		// Assigns fields passed in the Form object to the Field object
+		field_list:= this_form.fields;
+		ClientGuid :=this_communication.clientguid;
+		ClientVisitGuid := this_communication.ClientVisitGuid;
+		ClientChartGuid := this_communication.ChartGuid;
+		CallingField :=this_communication.CallingFieldName;
+		CallingEvent := this_communication.CallingEvent;
+
+		Iso_field :=last of (field_list 
+					where field_list.DataItemName = "MI Isolation" );
+		
+		// Get the Isolation Column
+	 	IsolationCol := read last
+			{ " Select top 1 Columnname"
+			|| " from cv3EnterpriseColumnData "
+			|| " where dataitemcode = " || SQL({{{SINGLE-QUOTE}}}Isolation{{{SINGLE-QUOTE}}})};
+
+		If exists(IsolationCol) 
+		then
+			// now get the visit{{{SINGLE-QUOTE}}}s isolation status
+
+			Isolation := read last
+			{ " Select " || IsolationCol
+			|| " from CV3EnterpriseVisitData "
+			|| " where visitguid = " || SQL(ClientVisitGuid)};
+
+			If (Isolation Is Null) 
+			then
+				Iso_field.Value :="";
+			else
+				Iso_field.Value := Isolation;
+			endif;
+		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: