maintenance:

	title:Preop frequency stop date;;
	mlmname:FORM_RX_Stop_Date;;
	arden: version 2;;
	version:  6.10;;
	institution:  St Clair Hospital;;
	author:  Teresa Spicuzza, Allscripts;;
	specialist:  ;;
	date:  2014-12-30;;
	validation:  testing;;


library:
	purpose:  This MLM sets the field stop date for preop frequencies.  
	;;
	
	explanation:  This MLM adds a stop date to orders with a frequency of preop.  This along with a change
				  on WORx will allow preop meds to be removed from Accudose all day on the day of surgery.
   
    change history
     05.11.2015  TMS  Created for CSR 30589.

	;;
	keywords: Called MLMs, Form fields, Rx Route, Worx Route, Mapping
	;;
knowledge:
	type: data-driven;;
	data:

        	// This MLM is passed three arguments, of types 
        	// communication_type, form_type and client info object respectively.

        	(this_communication,   	// Communication object
			this_form,				// Form object
			client_info_obj			//Arden ClientInfo object	
					) := argument;

	
		/*******************Make Changes To Spelling And Flags In This Section*******************/

		/* Set to true if a decision.log is needed.*/
			log_execution_info := FALSE;

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

		// Initialize error message
		error_message:="";

		// Assigns fields passed in the Form object to the Field object
		field_list:= this_form.fields;
		CallingField :=this_communication.CallingFieldName;
		CallingEvent := this_communication.CallingEvent;
		FormType := this_communication.FormType;
	

				// This sets the visible control on the field dataitem - CHG_OVERRIDE_WITH
		Frequency:= last of (field_list 
					where field_list.DataItemName = "FrequencyCode" );
				
		StartDate:= last of (field_list 
					where field_list.DataItemName = "RequestedDate" );

		EndDate:= last of (field_list 
					where field_list.DataItemName = "StopDate" );
		FrequencyValue := Frequency.value;
		FrequencySummary := FrequencyValue.FrequencySummary;
		StopAfter := first of (field_list.Value WHERE field_list.DataItemName="StopAfter" AND field_list.Label= "Stop After");
	
		
			If  CallingEvent = "FormClose" then			
				If FrequencySummary = "PRE OP" then
					stopAfter.Number  := 1;
					stopAfter.Option  := "Days";
	
				endif; 
			endif;

			
				

	;;
	evoke:  // No evoke statement
	;;
	logic:  

		conclude true;
	;;
	action:
        // This MLM returns two parameters, of types communication_type and form_type respectively.
		return this_communication, this_form;
	;;
end: