Initial Checking with all 820 MLMs

2020-02-02 00:54:01 -05:00
parent c59dc6de2e
commit 840d0432f4
828 changed files with 239162 additions and 0 deletions
--- a/MLMStripper/bin/Debug/FORM/FORM_ACETYLCYSTEINE_NEW_ORDER.mlm
+++ b/MLMStripper/bin/Debug/FORM/FORM_ACETYLCYSTEINE_NEW_ORDER.mlm
@@ -0,0 +1,134 @@
+maintenance:
+
+	title: FORM_ACETYLCYSTEINE_NEW_ORDER;;
+	mlmname:  FORM_ACETYLCYSTEINE_NEW_ORDER;;
+	arden: version 2.5;;
+	version:  5.50;;
+	institution:  St Clair Hospital;;
+	author:  Juliet M. Law, Allscripts ;;
+	specialist:  Bryan Berkeybile, Allscripts;;
+	date:  2013-06-17;;
+	validation:  testing;;
+
+library:
+      purpose:  
+				;;
+
+	explanation:  This MLM is called from ...
+
+	Change history 
+		2013.06.17		JML		CSR 30931: Created
+		2013.07.19		BDB		Updated the Rate Data Item as original was not crossing to WORx. Then updated BaseSolution Dose, as the 
+								calculation did not need to occur on the Form.  Then updated Rate value, as the calculation changed 
+								due to the BaseSolution change.
+    
+ 
+
+	;;
+	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";
+
+			HoldOrder_RequestedTime := mlm {{{SINGLE-QUOTE}}}FORM_HOLDORDER_REQUESTEDTIME{{{SINGLE-QUOTE}}};
+
+			// 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*******************/
+
+			/* Set to true if a decision.log is needed.*/
+			log_execution_info := FALSE;
+
+	
+			/***************************************************************************************/
+
+			// Initialize error message
+			error_message:="";
+
+			// Assigns fields passed in the Form object to the Field object
+			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;
+
+			//Retrieve Fields
+			Dosage_Low := first of (field_list WHERE field_list.DataItemName = "DosageLow");
+			Dosage_Low_fld := Dosage_Low.Value;
+
+			Rate_fld := first of (field_list WHERE field_list.DataItemName = "PRX_IVRATE"); //[BB changed to test updates to UDDI - Was: "OrderIVRate"]
+			Order_IV_Rate := Rate_fld.Value;
+
+			Instructions_fld := first of (field_list WHERE field_list.DataItemName = "AdminInstructions");
+
+
+			//Add call to FORM_HOLDORDER_REQUESTEDTIME MLM to handle conflict of both MLMs need called on Form Open
+			(this_communication, this_form) := call HoldOrder_RequestedTime WITH this_communication, this_form, client_info_obj;
+
+			if (CallingEvent = "FormOpen") then
+				if (Instructions_fld.Value = "Run for 1 hour") then
+					if (Dosage_Low_fld > 0) then
+
+						Rate_fld.Value := ROUND( ( Dosage_Low_fld / 200 ) + 200 );
+
+					endif;
+				elseif (Instructions_fld.Value = "Run for 4 hours") then
+					if (Dosage_Low_fld > 0) then
+
+						Rate_fld.Value := ROUND( ( ( Dosage_Low_fld / 200 ) + 500 ) / 4 );
+
+					endif;
+				elseif (Instructions_fld.Value = "Run for 16 hours") then
+					if (Dosage_Low_fld > 0) then
+
+						Rate_fld.Value := ROUND( ( ( Dosage_Low_fld / 200 ) + 1000 ) / 16 );
+
+					endif;
+
+				endif;
+			elseif (CallingEvent = "FieldChange") then
+
+				if (CallingField = "DosageLow") then
+
+					if (Instructions_fld.Value = "Run for 1 hour") then
+
+						Rate_fld.Value := ROUND (( Dosage_Low_fld / 200 ) + 200 );
+
+					elseif (Instructions_fld.Value = "Run for 4 hours") then
+
+						Rate_fld.Value := ROUND( ( ( Dosage_Low_fld / 200 ) + 500 ) / 4 );
+
+					elseif (Instructions_fld.Value = "Run for 16 hours") then
+
+						Rate_fld.Value := ROUND( ( ( Dosage_Low_fld / 200 ) + 1000 ) / 16 );
+
+					endif;
+				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: