Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/SCH/SCH_HEPARIN_ORDERED_NON_ORDERSET.mlm

@@ -0,0 +1,68 @@
+maintenance:
+
+	title:  Check If Heparin Ordered Without OrderSet;;
+	mlmname:  SCH_HEPARIN_ORDERED_NON_ORDERSET;;
+	arden: version 2;;
+	version: 4.50;;
+	institution: SCH ;;
+	author:  Robert Spence Ext 7461;;
+	specialist: Teresa Spicuzza Ext 7448 ;;
+	date:  2009-05-12;;
+	validation:  testing;;
+
+library:
+	purpose:  Stop users from using reorder of this order.  Should be ordered from the orderset.
+	;;
+	explanation:  Stop users from using reorder of this order.  Should be ordered from the orderset.
+	;;
+	keywords: Heparin, reorder, Order set only
+	;;
+knowledge:
+	type: data-driven;;
+	data:
+
+
+		// Set the text for this variable to indicate whether to send the message or not.
+			send_alert := "DoNotSend";
+
+			order_evoke1:= EVENT {OrderInit User Order:
+								WHERE TypeCode = "Medication"
+ 								And Name Matches Pattern "Heparin 25,000%"};
+
+			order_evoke2:= EVENT {OrderEnter User Order:
+								WHERE TypeCode = "Medication"
+ 								And Name Matches Pattern "Heparin 25,000%"};
+
+							
+
+			heparin_alert:= destination { Alert: warning, "Heparin Reordered", high, chart,
+									"Heparin Reordered", 14005, send_alert, "No Override Allowed" };
+
+
+			Hard_Stop := false;
+
+			(orderset_guid, order_name) := read last
+								{ Order: OrderSetGUID, name
+									REFERENCING EvokingObject };
+
+			if exists(orderset_guid)
+			then
+				Hard_Stop := false;
+			else
+				Hard_Stop := true;
+			endif;		
+	;;
+	evoke:  order_evoke1 or order_evoke2;
+	;;
+	logic:
+			conclude Hard_Stop ;
+	;;
+	action:
+
+			write "You have selected the {{+B}}{{+R}}Reorder{{-B}}{{-R}} function for the {{+B}}{{+R}}" || order_name || 
+					"{{-B}}{{-R}} order. " ||
+					" \n\nDosing maintenance and rate adjustment calculations can only be made " ||
+					"within the appropriate Heparin Maintenance order set as a {{+B}}{{+R}}new {{-B}}{{-R}}order." at heparin_alert;
+	;;
+Urgency: 50;;
+end: