Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/SCH/SCH_UNSUBMITTED_HEPARIN_ORDER.mlm

@@ -0,0 +1,69 @@
+maintenance:
+
+	title:  SCH_Unsubmitted_Heparin_Order;;
+	mlmname:  SCH_Unsubmitted_Heparin_Order;;
+	arden: version 2;;
+	version:  4.50;;
+	institution:  St Clair Memorial Hospital;;
+	author:  Dean Miklavic;;
+	specialist:  Don Warnick;;
+	date:  2009-07-16;;
+	validation:  testing;;
+
+library:
+	purpose:  
+	;;
+
+	explanation:  This MLM is called when and APTT order is entered.  It interrogates the unsubmitted orders for Heparin orders 
+                  and passes them in one of two session objects (one for SQ orders and one for IV orders) to the
+                  FORM_Lab_APTT_Heparin_Status which uses it to populate its Heparin Status field. 
+                  
+ 
+    Change history 
+    
+    07.16.2009   DW   Initial Build
+
+
+	;;
+	keywords:
+	;;
+knowledge:
+	type: data-driven;;
+	data:
+		//Logging level of execution information
+		log_execution_info:=FALSE;
+
+   		local_session := cds_session.local;
+
+	
+		//The evoking event for this MLM is OrderInit
+
+
+// fire this MLM for APTT orders
+
+		evoking_event_order:=EVENT{OrderInit User Order: where name in ("APTT", "CCM Common Lab Orders")};
+
+
+// get the order names that begin with Heparin inj (SQ) or Heparin 25 (IV)
+
+	(unsubmitted_heparin_sq) := READ {UnsubmittedOrders: Name WHERE Name MATCHES PATTERN "Heparin inj%"};
+	(unsubmitted_heparin_iv) := READ {UnsubmittedOrders: Name WHERE Name MATCHES PATTERN "Heparin 25%" } ;
+
+
+// populate the session objects with the SQ or IV names
+
+    local_session.SessionUnsubmittedHeparinSQ :=  unsubmitted_heparin_sq;
+    local_session.SessionUnsubmittedHeparinIV :=  unsubmitted_heparin_iv;
+
+
+	;;
+	evoke:  evoking_event_order
+	;;
+	logic:	
+
+	;;
+	action:
+
+	;;
+Urgency: 50;;
+end: