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_RX_ROUTE_MAPPING.mlm
+++ b/MLMStripper/bin/Debug/FORM/FORM_RX_ROUTE_MAPPING.mlm
@@ -0,0 +1,126 @@
+maintenance:
+
+	title:Pharmacy SCM Route Code to WORx code mapping;;
+	mlmname:FORM_RX_ROUTE_MAPPING;;
+	arden: version 2;;
+	version:  4.50;;
+	institution:  St Clair Rx Route Mapping MLM;;
+	author:  Robert Spence, Eclipsys Corp;;
+	specialist:  ;;
+	date:  2007-01-26;;
+	validation:  testing;;
+
+library:
+	purpose:  This MLM sets the field WORX_Route to a mapped value dependant on the SCM Route.
+
+	;;
+	explanation:  This MLM is launched on the change of the Route field on the PRX forms
+					The mappings where supplied by Teresa Spicuzza 01/26/2007
+     
+    change history
+     10.24.2007  TMS  Added additional routes for mapping to MM, PO and NS to eliminate Veriscan errors.
+     05.27.2015  TMS  Added additional for interventional radiology orders.  CSR 32710
+
+	;;
+	keywords: Called MLMs, Form fields, Rx Route, Worx Route, Mapping
+	;;
+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*******************/
+
+		/* 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;
+		CallingField :=this_communication.CallingFieldName;
+		CallingEvent := this_communication.CallingEvent;
+		FormType := this_communication.FormType;
+	
+
+				// This sets the visible control on the field dataitem - CHG_OVERRIDE_WITH
+				Route_field := last of (field_list 
+							where field_list.DataItemName = "OrderRouteCode" );
+				
+				WORx_Route_field := last of (field_list 
+							where field_list.DataItemName = "PRX_WORx_Route" );
+				
+			If CallingField ="OrderRouteCode" then
+				
+				If Route_Field.Value in ("IV PUSH","IVPB", "IV") then
+					WORx_Route_Field.Value :="IV";
+				elseif Route_Field.Value in ("Left Ear","Right Ear","Both Ears") then
+					WORx_Route_Field.Value := "OT";
+				elseif Route_Field.Value in ("Left Eye","Right Eye","Both Eyes") then
+					WORx_Route_Field.Value := "OP";
+				elseif Route_Field.Value in ("Left Nostril","Right Nostril","Each Nostril","Alternating Nostrils") then
+					WORx_Route_Field.Value := "NS";
+				elseif Route_Field.Value in ("PO","VIA TUBE","CHEW","Swish and Swallow") then
+					WORx_Route_Field.Value :="PO";
+				elseif Route_Field.Value in ("SL") then
+					WORx_Route_Field.Value :="SL";
+				elseif Route_Field.Value in ("Topical","Topically","Apply","Cleanse incision") then
+					WORx_Route_Field.Value :="TP";
+				elseif Route_Field.Value in ("Inhaled") then
+					WORx_Route_Field.Value := "IH";
+				elseif Route_Field.Value in ("Dissolve in Mouth","Swish and Spit","Swish","Gargle") then
+					WORx_Route_Field.Value := "MM";
+				elseif Route_Field.Value in ("Apply Topically") then
+					WORx_Route_Field.Value := "TD";
+				elseif Route_Field.Value in ("IM") then
+					WORx_Route_Field.Value := "IM";			
+				elseif Route_Field.Value in ("Rectally", "Per Colostomy") then
+					WORx_Route_Field.Value := "RC";
+				elseif Route_Field.Value in ("Vaginally") then
+  					WORx_Route_Field.Value := "VG";
+				elseif Route_Field.Value in ("Sheath") then
+  					WORx_Route_Field.Value := "SH";
+				elseif Route_Field.Value in ("Epidural") then
+  					WORx_Route_Field.Value := "EP";
+				elseif Route_Field.Value in ("Intracatheter") then
+  					WORx_Route_Field.Value := "IC";
+				endif;
+			endif;
+
+	//				this_communication.DisplayForm := "Yes";
+	//				this_communication.Message := "MLM Field :" || CallingField || "\n" || 
+	//													"MLM Event :" || CallingEvent || "\n" ||
+	//													"Form type :" || FormType;
+	//				this_communication.MessageType := "Informational";
+
+
+		
+
+				
+				
+
+	;;
+	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: