maintenance:

	title: Release check for orders without schedules;;
	filename:  SCH_Release_Orders_Schedule_Check;;
	arden: version 4.5;;
	version:  2.00;;
	institution:  St Clair;;
	author:  Debbie Eiler;;
	specialist:  Don Warnick;;
	date:  2010-10-06;;
	validation:  testing;;

library:
	purpose:      When releasing orders, check for orders without schedules
	;;
	explanation:  Orders entered by the ED in a hold session were being released by inpatient staff without properly 
                  scheduling it.

    change history 

	10.06.2010   DW    Created 
	11.03.2010   DW    Removed from Production  

	;;
	keywords: Release, schedule
	;;
knowledge:
	type: data-driven;;
	data:

	
		/*******************Make Changes To Spelling And Flags In This Section*******************/
		/* Set to true if logging is needed.*/
			log_execution_info:= false;

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

		standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
  		include standard_libs;
		using "ObjectsPlusXA.SCM.Forms";
		using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";


//--------------------------------------------------------------------------
   		local_session := cds_session.local;
//--------------------------------------------------------------------------
         
		visit_alert:= destination { Alert: reminder, "Order Schedule Reminder", high, chart,	"Cannot Place Cancel Order", 14005, send_alert};
		any_released_order:= event {OrderRelease User Order};



	;;
	evoke: any_released_order ;
	;;
	logic:	

            if local_session.SessionReleseOrderAlertFired is null then 
            local_session.SessionReleseOrderAlertFired := "has fired";            
            conclude true;	
    		endif;	

	;;
	action:



	//	write "The schedule of all released orders must be adressed. \n\n To adjust the schedule select the {{{SINGLE-QUOTE}}}Go Back{{{SINGLE-QUOTE}}} button and then select the {{{SINGLE-QUOTE}}}Change Date{{{SINGLE-QUOTE}}} button." at visit_alert;
	    dialogResult := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Medications marked as PACU ONLY or OPSU ONLY are to be released by those department personnel only" ,"Release Order Reminder","OK" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
     
    ;;

end: