maintenance:

	title: FORM_FUNC_DISPLAY_FORM_FIELD;;
	mlmname:  FORM_FUNC_DISPLAY_FORM_FIELD;;
	arden: version 2.5;;
	version:  15.1;;
	institution:  St Clair Hospital;;
	author:  Juliet Law, Allscripts ;;
	specialist:  ;;
	date:  2016-05-05;;
	validation:  testing;;

library:
      purpose:  Functional MLM to control display value of form fields on an order set
				;;

	explanation:  This MLM will be a functional call from Order set MLMs when needing to control the display property
					of fields.

					Change history 
					05.05.2016	JML	Created.
    
 

	;;
	keywords: Called MLMs, display, fields
	;;
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	
			fieldName,
			displayOption
			) := argument;

			standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
			include standard_libs;

			using "ObjectsPlusXA.SCM.Forms";
			using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";

			ClientGuid := this_communication.ClientGUID;
			ChartGuid := this_communication.ChartGUID;
			ClientVisitGuid := this_communication.ClientVisitGUID;

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

			/* Set to True if a decision.log is needed.*/
			log_execution_info := False;

			//------------------------------------------------------------
			// Define the ObjectsPlus destinations	
			//------------------------------------------------------------
		
			for i IN 1 seqto ( count fieldName ) do
				fieldName[i].Control_Visible := displayOption;

				rtnValue := fieldName[i].Control_Visible;
			enddo;

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

		conclude True;
	;;
	action:
        // This MLM returns two parameters, of types communication_type and form_type respectively.
		return rtnValue;
	;;
Urgency: 50;;
end: