Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/FORM/FORM_BEDREQ.mlm

@@ -0,0 +1,86 @@
+maintenance:
+
+	title: Test;;
+	mlmname:  FORM_BedReq;;
+	arden: version 2;;
+	version:  4.50;;
+	institution:  St Clair Isolation Set MLM;;
+	author:  Robert spence, Eclipsys Corp;;
+	specialist:  ;;
+	date:  2007-01-04;;
+	validation:  testing;;
+
+library:
+      purpose:  Test
+	
+	;;
+
+	explanation:  Test       
+                
+	
+	Changes		01/03/2007	RS		Added logic to add Case number to the form for SIS routing on close event
+
+	;;
+	keywords: Called MLMs, Form fields, TEst
+	;;
+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;
+		ClientGuid:=this_communication.ClientGUID;
+		ClientChartGUID:=this_communication.ChartGUID;
+
+			Fld_AdmitDx := last of (field_list where field_list.DataItemName = "NUR_AdmittingDx" );			
+			If CallingEvent="FormClose"
+			then
+				    //Retrieve Patients Admitting Dx Number
+				 	AdmitDx:= read last 
+						{"SELECT text "
+   						|| " from CV3HealthIssueDeclaration with (nolock) "
+						|| " WHERE ClientGUID = " || SQL(ClientGuid)
+				 		|| " And ChartGUID = " || SQL(ClientChartGUID)
+						|| " And typecode = " || SQL("Admitting Dx")
+						|| " and Active = 1"};
+
+					Fld_AdmitDx.Value := AdmitDx;
+
+			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: