Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/FORM/FORM_SET_METHOTREXATE_ETOPIC_PREGNANCY.mlm

@@ -0,0 +1,66 @@
+maintenance:
+
+	title: FORM_SET_METHOTREXATE_ETOPIC_PREGNANCY;;
+	mlmname:  FORM_SET_METHOTREXATE_ETOPIC_PREGNANCY;;
+	arden: version 2;;
+	version:  4.50;;
+	institution:  St Clair Hospital;;
+	author:  Deevya Gaikwad;;
+	specialist:  Don Warnick;;
+	date:  2016-07-11;;
+	validation:  testing;;
+
+library:
+	purpose:  This MLM Calcualtes Methotrexate dosage 
+
+	;;
+	explanation: Calcualtes Methotrexate dosage 
+	
+	Change History:
+
+	07.11.2016   DW   CSR# 34789 - Created
+
+	;;
+	keywords: Called MLMs, Form fields, Methotrexate Etopic Pregnancy
+	;;
+knowledge:
+	type: data-driven;;
+	data:
+
+        (this_communication, this_form,	client_info_obj) := argument;
+
+		log_execution_info := FALSE;
+
+		error_message:="";
+
+		field_list:= this_form.fields;
+		Visit_Guid := this_communication.ClientVisitGuid;
+		CallingField :=this_communication.CallingFieldName;
+		CallingEvent := this_communication.CallingEvent;
+
+		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;
+			bsa := comb_ht_wt_val.bsa;
+		endif;
+				
+		dosefield := first of (field_list where field_list.DataItemName = "DosageLow");
+
+		if BSA * 50 <> 0	
+		then
+		dosefield.value := BSA * 50;
+		endif;	
+		
+	;;
+	evoke:  
+	;;
+	logic:  
+		conclude true;
+	;;
+	action:
+
+		return this_communication, this_form; 
+
+	;;
+end: