Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/FORM/FORM_PEDIATRIC_IV_RATE.mlm

@@ -0,0 +1,74 @@
+maintenance:
+
+	title: FORM_PEDIATRIC_IV_RATE;;
+	mlmname:  FORM_PEDIATRIC_IV_RATE;;
+	arden: version 2.5;;
+	version:  5.50;;
+	institution:  St Clair Hospital;;
+	author:  Don Warnick, Allscripts ;;
+	specialist:  Bryan Berkeybile, Allscripts;;
+	date:  2013-07-29;;
+	validation:  testing;;
+
+library:
+      purpose:  
+				;;
+
+	explanation:  This MLM is called from the IV Fluid Order Set, Pediatric IV Bolus grid. The MLM updates
+                  the rate field on the IV Infusion Orders form with 20x the most recent patient weight in kg.
+				  We needed to add the MLM_From Order Set field to the OS and form to make the value visible
+                  in the grid.
+
+	Change history 
+		2013.07.29		DJW		CSR 13570 Created
+
+	;;
+	keywords: Called MLMs
+	;;
+knowledge:
+	type: data-driven;;
+	data:
+
+		standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
+		include standard_libs;
+
+		using "ObjectsPlusXA.SCM.Forms";
+		using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
+
+	    (this_communication, this_form, client_info_obj) := argument;
+
+		log_execution_info := FALSE;
+
+		error_message:="";
+
+		field_list:= this_form.fields;
+		CallingEvent := this_communication.CallingEvent;
+		CallingField := this_communication.CallingFieldName;
+		ClientGuid   := this_communication.ClientGUID;
+		ChartGuid    := this_communication.ChartGUID;
+		FormName := this_form.Name;
+
+		CombinedMeasurements := first of (field_list WHERE field_list.DataItemName = "CombinedMeasurements");
+		CombinedMeasurements_fld := CombinedMeasurements.Value;
+		patient_weight := CombinedMeasurements_fld.Weight;
+
+		Rate_fld := first of (field_list WHERE field_list.DataItemName = "OrderIVRate"); 
+		Order_IV_Rate := Rate_fld.Value;
+
+		itemguid := this_communication.ItemID;
+   		itemname := read last {"select name from CV3OrderCatalogMasterItem (nolock) where GUID = " || itemguid || " "};
+
+ 		CalculatedRate       := round ((patient_weight as number) * 20);
+	 	Order_IV_Rate.Amount := CalculatedRate;
+
+
+	;;
+	evoke:  
+	;;
+	logic: 
+		conclude true;
+	;;
+	action:
+		return this_communication, this_form;
+	;;
+end: