Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/FORM/FORM_DROTRECOGIN_CALC.mlm

@@ -0,0 +1,96 @@
+maintenance:
+
+	title:  Form_Drotrecogin_calc;;
+	mlmname:  Form_Drotrecogin_calc;;
+	arden: version 2;;
+	version:  4.50;;
+	institution:  St. Clair Hospital;;
+	author:  Teresa M. Spicuzza  ;;
+	specialist:  Eclipsys Corporation;;
+	date:  2006-11-28;;
+	validation:  testing;;
+
+library:
+	purpose: Caculate Drotrecogin rate based on weight.  Present dose rounded to two
+		decimal points. 
+	;;
+	explanation:  
+		Dosing Weight in Kilograms * 0.24 = 
+			Infusion rate (round to nearest 1000th)
+
+		If Dosing Weight in Kilograms is null alert user to 
+			‘Enter a Calculation Weight on the Vital Sign Flowsheet before proceeding’
+	;;
+	keywords:
+		Xigris, Infusion, Drotrecogin, weight;
+	;;
+knowledge:
+	type: data-driven;;
+	data:
+/********************Make Changes To Spelling And Flags In This Section*********************/
+
+
+/*************************************************************************************************/
+
+    // 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;
+
+	// Assigns fields passed in the Form object to the Field object
+	field_list:= this_form.fields;
+
+	comb_ht_wt_field := first of 
+		(field_list where field_list.DataItemName = "CombinedMeasurements");
+	if exists comb_ht_wt_field then
+		comb_ht_wt_val := comb_ht_wt_field.value;
+
+		wt := comb_ht_wt_val.weight;
+		ht := comb_ht_wt_val.height;
+		wt_type := comb_ht_wt_val.weighttype;
+		bsa := comb_ht_wt_val.bsa;
+		bmi := comb_ht_wt_val.bmi;
+	endif;
+
+	if not exists wt then
+		
+		comb_ht_wt_field.control_read_only := true;
+		this_communication.Message :=
+			"Please Enter a Calculation Weight on the Vital Sign Flowsheet "
+			|| "before proceeding."
+			;
+		this_communication.MessageType := "Error";
+		
+	else
+
+		//Rate
+		rate := first of 
+			(field_list where field_list.DataItemName = "OrderIVRate");
+
+ 			dose_rate := (wt as number) * 0.24;
+		if exists rate then
+        RateValue := Rate.Value;
+        RateValue.Amount := dose_rate formatted with "%.2f";
+        RateValue.RateUOM := "ml";
+        OrderIVRateValue.KVODisplayed := false;
+        OrderIVRateValue.IsKVO := false;
+		endif;
+
+	endif;  // not exists wt 
+
+	;;
+	evoke:  
+	;;
+	logic:
+		Conclude true;
+	;;
+	action:
+      	// This MLM returns two parameters, of types 
+		//communication_type and form_type respectively.
+		return this_communication, this_form;
+	;;
+Urgency: 50;;
+end: