maintenance:

	title:  Form_Lab_ConditionalOrder_PriorityTime ;;
	mlmname:  Form_Lab_ConditionalOrder_PriorityTime ;;
	arden: version 2;;
	version:  4.50;;
	institution:  St. Clair Hospital;;
	author:  Shivprasad Jadhav ;;
	specialist:  Allscripts Corporation ;;
	date:  2015-09-09;;
	validation:  testing;;

library:
	purpose: possible to create an MLM that can be used generically on lab forms – attached to the Conditional field – so that any time a Condition is populated,
			 the order is permitted to be entered without a priority (removes the mandatory). 
		     The priority would then be mandatory upon activation.   This would be similar to what your team did with the Gentamicin Peak orders. 
	;;
	explanation:  (         )

		CHANGE HISTORY 
		
		09/09/2015 - CSR# 32480 - Created MLM	{GO-Live targeted for 4/26/2016};;
	keywords:
		Hold, requested Time, Start time;
	;;
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;

    comm_obj := this_communication.primaryobj;
	called_by := this_communication.CallingEvent;
	call_field := this_communication.CallingFieldName;
	CallingEvent := this_communication.CallingEvent;
	client_guid := this_communication.ClientGUID;
	visit_guid := this_communication.ClientVisitGUID;
	chart_guid := this_communication.ChartGuid;
	orderid := this_communication.ItemID;
	field_list:= this_form.fields;
	session_type := comm_obj.internalprocessingtype;

	Prm_Conditional := First of (field_list where field_list.DataItemName = "ConditionalOrder" );
	Prm_PriorityTime_New := First of (field_list where field_list.DataItemName = "LAB_Order Priorities" );
	Prm_PriorityTime := First of (field_list where field_list.DataItemName = "RequestedTime" );
	if ((Prm_Conditional.Value.IsConditional = True)) Then
			Prm_PriorityTime.Control_Mandatory := False;
			Prm_PriorityTime_New.Control_Mandatory := False;
	endif;
/*
			Else
//****BEGIN***** STH 2.10.2015 CSR 32765 - show user friendly lab priorities
				DisplayNewScheduled := first of (field_list.Value 
  					where field_list.DataItemName = "LAB_CB_Alternate Priorities");
				if (DisplayNewScheduled) THEN
					//Call_UserFriendly_Lab_Priorities := mlm {{{SINGLE-QUOTE}}}SCH_LAB_PRIORITY_OPTIONS_CALLED{{{SINGLE-QUOTE}}};
					//(this_communication,this_form) := call Call_UserFriendly_Lab_Priorities with (this_communication,this_form,client_info_obj);
					Prm_PriorityTime_New.Control_Mandatory := True;  //Prm_PriorityTime.Control_Mandatory
					Prm_PriorityTime.Control_Mandatory := false;
				else	
				//****END***** STH 2.10.2015 CSR 32765 - show user friendly lab priorities
					Prm_PriorityTime_New.Control_Mandatory := false;  //Prm_PriorityTime.Control_Mandatory
					Prm_PriorityTime.Control_Mandatory := true;			
				endif;

			EndIf; 
		
*/
	
//--------------------------------------------------------------------------------------------------------------
	;;
	evoke:  
	;;
	logic:
		Conclude true;
	;;
	action:
      	// This MLM returns two parameters, of types 
		//communication_type and form_type respectively.
		return this_communication, this_form;
	;;
Urgency: 50;;
end: