maintenance:

	title:    FORM_SET_LAB_PRIORITY_TIMES ;;
	mlmname:  FORM_SET_LAB_PRIORITY_TIMES;;
	arden: version 2.5;;
	version:  0.00;;
	institution:  St. Clair Hospital;;
	author:  Shawn Head x7468;;
	specialist:  Maria Pest;;
	date:  2015-03-03;;
	validation:  testing;;

library:
	purpose:  This MLM will require or diable the "user friendly scheduled time" field depending on if schedule time is required.

	;;
	explanation:  
	
			2015-03-03 - STH CSR#: 32765 create MLM
	;;
	keywords:
	;;
	citations: 
	;;
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;

			stop := false;
	
			/***************************************************************************************/

			// Initialize error message
			error_message:="";

			// Assigns fields passed in the Form object to the Field object
			field_list:= this_form.fields;
			CallingEvent := this_communication.CallingEvent;
			CallingField := this_communication.CallingFieldName;
			ClientGuid   := this_communication.ClientGUID;
			ClientVisitGuid := this_communication.ClientVisitGUID;
			ChartGuid := this_communication.ChartGUID;

			//Retrieve fields


			UserFriendly_Lab_Priorities := last of (field_list WHERE field_list.DataItemName = "LAB_Order Priorities" 
									AND field_list.Control_MultiFieldOccNum = 1);
			UserFriendly_Lab_times := last of (field_list WHERE field_list.DataItemName = "LAB_Phleb Draw Sched Time" 
									AND field_list.Control_MultiFieldOccNum = 1);


			if (CallingField = "LAB_Order Priorities|1") then
				if (UserFriendly_Lab_Priorities.Value = "Scheduled Time")  then
					UserFriendly_Lab_times.Control_Read_Only := false;
					UserFriendly_Lab_times.Control_Mandatory := true;
				else
					UserFriendly_Lab_times.Control_Read_Only := true;
					UserFriendly_Lab_times.Control_Mandatory := false;
					UserFriendly_Lab_times.Value := "";
				endif;
			endif;

	;;
	priority: 50
	;;
	evoke:  
	;;
	logic:
			conclude true;
	;;
	action:
			return this_communication, this_form;
	;;
Urgency: 50;;
end: