maintenance:

	title:  SCH_RETRIEVE_VANCOMYCIN_ANTIBIOTIC_SCHEDULE;;
	mlmname:  SCH_RETRIEVE_VANCOMYCIN_ANTIBIOTIC_SCHEDULE;;
	arden: version 2.5;;
	version:  6.10;;
	institution:  Allscripts;;
	author:  Juliet M. Law;;
	specialist:  Teresa Spicuzza;;
	date:  2011-07-25;;
	validation:  testing;;

library:
	purpose:  TEST
	;;
	explanation:  
	;;
	keywords:
	;;
knowledge:
	type: data-driven;;
	data:

		//.Net libraries
		standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
	    include standard_libs;

		//Local session object
		local_session := cds_session.local;

		/*******************************************************************/
			//Set to true if logging needed
			log_execution_info := false;

			//Set the text for this variable to indicate whether to send the message or not
			send_alert := "DoNotSend";

			vanco_enter_event := EVENT { OrderEnter User Order : WHERE Name = "Vancomycin:"};

		/*******************************************************************/

		//Unit testing
		if called_by_editor then
			evokingobject := read last {Order : THIS where Name = "Vancomycin:"};
		endif;

		//Capture current patient
		(clientGuid, clientName, client_clientId_obj) := read last {ClientInfo : GUID, DisplayName, ClientID };
		clientVisitGuid := read last {ClientVisit : GUID};
		chartGuid := read last {ClientVisit : ChartGUID};

		if ( EvokingObject.OrderSetName <> "Pneumonia Antibiotic" AND EvokingObject.OrderSetName <> "Skin Antibiotic Inpatient"  //AND EvokingObject.OrderSetName <> "Vancomycin  Orders"
				AND EvokingObject.OrderSetName <> "Sepsis Unknown Source Antibiotic" ) then
			local_session.SessionVancoTroughScheduledDate := read last { Order : RequestedDate REFERENCING EvokingObject };
			local_session.SessionVancoTroughScheduledTime := read last { Order : RequestedTime REFERENCING EvokingObject };
			local_session.SessionVancoTroughFrequency := read last { Order : FrequencyCode REFERENCING EvokingObject };
		endif;

	;;
	priority: 25
	;;
	evoke:  
		vanco_enter_event;
	;;
	logic:
			conclude true;
	;;
	action:

	;;
Urgency: 25;;
end: