Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/FORM/FORM_PRX_LEVOTHYROXINE.mlm

@@ -0,0 +1,111 @@
+maintenance:
+
+	title: Levothyroxine Dose Check;;
+	mlmname:  FORM_PRX_Levothyroxine;;
+	arden: version 2.5;;
+	version:  16.3;;
+	institution:  St Clair Hospital;;
+	author:  Teresa Spicuzza-Allscripts;;
+	specialist: Teresa Spicuzza;;
+	date:  2018-10-04;;
+	validation:  testing;;
+
+library:
+      purpose:  MLM that alerts user if they are ordering in Mg instead of mcg
+
+	;;
+
+	explanation:  This MLM is called from the medication form(s) PRX_Po_Levothyroxine.					
+					
+
+	Change History
+
+		2018.10.04 - TMS CSR#: 34033 - Placed into production to reduce incorrect dosing of Levothyroxine. 
+						
+
+
+	;;
+	keywords: Called MLMs, Form fields, schedule
+	;;
+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*******************/
+
+		/* These variables must containt he same wording as the options in the drop down list */
+	
+		/***************************************************************************************/
+
+		// Initialize error message
+		error_message:="";
+
+		// References the LOCAL SESSION object
+	//	local_session := cds_session.local;
+		standard_libs := MLM {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
+
+		// Obtain common fields passed in the Form object to the Field object
+		//commented out ones are just not being used; however left incase you need them.
+		field_list:= this_form.fields;
+	    dose := last of (field_list where field_list.DataItemName = "DosageLow" );
+		dose_value := dose.value; 
+	    uom := last of (field_list where field_list.DataItemName = "UOM" ); 
+	    UOM_value := Uom.value ;  
+		CR := 13 formatted with "%c";
+    	LF := 10 formatted with "%c";
+   		CRLF:= CR||LF;
+
+	if (this_communication.CallingFieldName = "DosageLow") then
+
+		if ((Dose.value as number) < 1  and UOM.Value = "mcg" )then
+
+			If 		dose_value = 0.025 then  newdose := 25; 
+			elseIf 	dose_value = 0.05  then  newdose := 50; 
+			elseIf 	dose_value = 0.075 then  newdose := 75; 			
+			elseIf 	dose_value = 0.088 then  newdose := 88; 			
+			elseIf 	dose_value = 0.1   then  newdose := 100; 			
+			elseIf 	dose_value = 0.112 then  newdose := 112; 
+			elseIf 	dose_value = 0.125 then  newdose := 125; 
+			elseIf 	dose_value = 0.137 then  newdose := 137; 
+			elseIf 	dose_value = 0.15  then  newdose := 150; 
+			elseIf 	dose_value = 0.175 then  newdose := 175; 
+			elseIf 	dose_value = 0.2   then  newdose := 200; 
+			else  	newdose := null; 
+			endif;
+		
+			If newdose is not null then	
+					error_msg := "You are attempting to order in mg." || CRLF || CRLF || "Dose will be corrected to " || newdose || "mcg." ;
+					dose.value := newdose as number;
+			else
+					error_msg := "You are attempting to order in mg." || CRLF || CRLF || "Please correct dose to mcg." ;
+					dose.value := null;
+			endif;
+					this_communication.Message := error_msg;
+					this_communication.MessageType := "Error";
+		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: