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: