Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/SCH/SCH_VANCOMYCIN_ORDERED_NON_ORDERSET.mlm

@@ -0,0 +1,76 @@
+maintenance:
+
+	title:  SCH_VANCOMYCIN_ORDERED_NON_ORDERSET;;
+	mlmname:  SCH_VANCOMYCIN_ORDERED_NON_ORDERSET;;
+	arden: version 2.5;;
+	version: 15.10;;
+	institution: SCH ;;
+	author:  Juliet M. Law Ext 7461;;
+	specialist: Peggy Leschak Ext 7441 ;;
+	date:  2015-05-20;;
+	validation:  testing;;
+
+library:
+	purpose:  
+				Stop users from using reorder or vancomycin.  Should be ordered from the orderset.
+	;;
+	explanation:  
+				Stop users from using reorder of vancomycin.  Should be ordered from the orderset.
+
+				Change history 
+				05.20.2015	JML	  Created based on CSRs 34155, 34156, 34091
+	;;
+	keywords: Vancomycin, 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 "Vancomycin:%"};
+
+			order_evoke2:= EVENT {OrderEnter User Order:
+								WHERE TypeCode = "Medication"
+ 								And Name Matches Pattern "Vancomycin:%"};
+			
+			
+
+			vanco_alert:= destination { Alert: warning, "Vancomycin Reordered", high, chart,
+									"Vancomycin 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;
+			elseif EvokingObject.OriginalOrderGUID IS NULL then
+				Hard_Stop := false;
+			else
+				Hard_Stop := true;
+			endif;		
+	;;
+	evoke:  order_evoke1 or order_evoke2;
+	;;
+	logic:
+			conclude Hard_Stop ;
+	;;
+	action:
+			If order_name matches pattern "Vancomycin:%" then
+			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 Vancomycin order set as a {{+B}}{{+R}}new {{-B}}{{-R}}order." at vanco_alert;
+			endif;
+
+	;;
+Urgency: 50;;
+end: