Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/SYS/SYS_FORMAT_NUMBER.mlm

@@ -0,0 +1,89 @@
+maintenance:
+
+	title:  Formats numbers into strings with commas;;
+	mlmname:  SYS_FORMAT_NUMBER;;
+	arden:  version 2.5;;
+	version:  18.4;;
+      institution:  Allscripts,System MLM  ;;
+	author:  Allscripts Healthcare Solutions, Inc.;;
+	specialist:  ;;
+	date:  2018-10-26;;
+	validation:  testing;;
+
+/* P r o p r i e t a r y  N o t i c e */
+/* Unpublished (c) 2013 - 2018 Allscripts Healthcare, LLC.  and/or its affiliates. All Rights Reserved.
+
+P r o p r i e t a r y  N o t i c e: This software has been provided pursuant to a License Agreement, with
+Allscripts Healthcare, LLC.  and/or its affiliates, containing restrictions on its use. This software contains
+valuable trade secrets and proprietary information of Allscripts Healthcare, LLC.  and/or its affiliates and is
+protected by trade secret and copyright law. This software may not be copied or distributed in any form or medium,
+disclosed to any third parties, or used in any manner not provided for in said License Agreement except with prior
+written authorization from Allscripts Healthcare, LLC.  and/or its affiliates. Notice to U.S. Government Users:
+This software is {{{SINGLE-QUOTE}}}Commercial Computer Software{{{SINGLE-QUOTE}}}.
+
+All product names are the trademarks or registered trademarks of Allscripts Healthcare, LLC.  and/or its affiliates.
+*/
+/* P r o p r i e t a r y  N o t i c e */
+
+library:
+	purpose:  Format a number as a string, using conversion rules:
+			       Commas are used to delimit thousands
+                   Exponent notation is never used
+                   Trailing zeros which occur following the decimal point
+                   and at the end of the string are trimmed off.
+	;;
+                   
+	explanation:  
+	;;
+	keywords:
+	;;
+knowledge:
+	type: data-driven;;
+
+	data:
+		( num ) := argument;			
+	;;
+
+	evoke:  // called from another MLM
+	;;
+
+	logic:
+		if num is not number then
+			result := num;
+			conclude true;
+		endif;
+
+            
+		result := num formatted with "%,f";
+		chars := extract characters result;
+
+		// loop through chars, and determine if there are trailing zeros
+		trailing_pos := 0;
+		found_trailing := false;
+		found_decimal := false;
+		pos := 0;
+
+		for ch in chars do
+			if (ch = ".") then
+				found_decimal := true;
+				found_trailing := true;
+				trailing_pos := pos;
+			elseif (ch = "0") and (found_decimal = true) and (found_trailing = false) then
+				found_trailing := true;
+				trailing_pos := pos;
+			elseif (ch <> "0") and (found_trailing = true) then
+				found_trailing := false;
+			endif;
+			pos := pos + 1;
+		enddo;
+
+		if found_trailing then
+			result := string (first trailing_pos from chars); 
+		endif;
+  
+		conclude true;
+	;;
+	action:
+		return result;
+	;;
+end: