maintenance:

	title: FORM_PERICARDITIS_PAIN_ORDER;;
	mlmname:  FORM_PERICARDITIS_PAIN_ORDER;;
	arden: version 2.5;;
	version:  15.10;;
	institution:  St Clair Hospital;;
	author:  Juliet M. Law, Allscripts;;
	specialist:  Janet Nordin, Allscripts;;
	date:  2016-02-25;;
	validation:  testing;;

library:
	purpose:  This MLM triggers on orders contained in the Pericarditis Pain Order Set.

	;;
	explanation:  Makes all relevant medication ordering fields read-only on all medication orders contained in the
					Pericarditis Pain order set.

				  Change History
				  ----------------
  			  	  02.25.2016	 JML  CSR# 32396 - Created
				  03.08.2016	 JML  Moved to Production

	;;
	keywords: Called MLMs, Form fields, pericarditis, ibuprophen
	;;
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_occurred := false;
			error_message:="";

			// Assigns fields passed in the Form object to the Field object
			field_list:= this_form.fields;
			client_guid := this_communication.ClientGUID;
			visit_guid := this_communication.ClientVisitGuid;
			chart_guid := this_communication.ChartGUID;

			CallingField :=this_communication.CallingFieldName;
			CallingEvent := this_communication.CallingEvent;
	
			FormType := this_communication.FormType;
			OrderSetName := this_communication.PrimaryObj.OrderSetName;

			doseFld := first of ( field_list WHERE field_list.DataItemName = "DosageLow" );
			routeFld := first of ( field_list WHERE field_list.DataItemName = "OrderRouteCode" );
			freqFld := first of ( field_list WHERE field_list.DataItemName = "FrequencyCode" );
			stopFld := first of ( field_list WHERE field_list.DataItemName = "StopAfter" );

			if ( OrderSetName = "Pericarditis Pain Order Set" ) then
				doseFld.control_read_only := true;
				routeFld.control_read_only := true;
				freqFld.control_read_only := true;

				stopFld.control_read_only := true;
			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: