maintenance:

	title: Home Medications Form;;
	mlmname:  FORM_HOME_MEDS;;
	arden: version 2;;
	version:  4.50;;
	institution:  St Clair;;
	author:  Eclipsys Corp;;
	specialist: Mary Jo Goodwin ;;
	date:  2006-12-29;;
	validation:  testing;;

library:
      purpose:  Display appropriate fields depending on which type of med is displayed
	
	;;

	explanation:  This MLM is called from the three Medication Type fields. 
							Only one of these three fields can be populated so when one has
							a value the other two will grey out.
                
	
	;;
	keywords: Called MLMs, Form fields, Chemical Restraint
	;;
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*******************/

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

		// 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;

	    med_field := last of (field_list where field_list.DataItemName = "NUR_HM_MedicationDict" ); 
		herbal_field := last of (field_list where field_list.DataItemName = "NUR_HM_Herbal Vita Splmts" );                                                                                                                
		unknown_field := last of (field_list where field_list.DataItemName = "NUR_HM_Med Name Unknown");


		If CallingField = "NUR_HM_MedicationDict" then
		If exists med_field.Value then	
			// if chemical restraint then hide the regular frequency field ,
			herbal_field.control_read_only := TRUE;
			herbal_field.control_mandatory := FALSE;
			herbal_field.value := NULL;
			unknown_field.control_read_only := TRUE;
			unknown_field.control_mandatory := FALSE;
			unknown_field.value := NULL;
		else
			herbal_field.control_read_only := FALSE;
			herbal_field.control_mandatory := TRUE;
			unknown_field.control_read_only := FALSE;
			unknown_field.control_mandatory := TRUE;
		endif;

		Elseif CallingField = "NUR_HM_Herbal Vita Splmts" then
		If exists herbal_field.value  then 
			// if medical condition then make the regualr frequency field visible,
			med_field.control_read_only := TRUE;
			med_field.control_mandatory := FALSE;
			med_field.value := NULL;
			unknown_field.control_read_only := TRUE;
			unknown_field.control_mandatory := FALSE;
			unknown_field.value := NULL;
		else
			med_field.control_read_only := FALSE;
			med_field.control_mandatory := TRUE;
			unknown_field.control_read_only := FALSE;
			unknown_field.control_mandatory := TRUE;
		endif;

		Elseif CallingField = "NUR_HM_Med Name Unknown" then
		If exists unknown_field.value then 
			med_field.control_read_only := TRUE;
			med_field.control_mandatory := FALSE;
			med_field.value := NULL;
			herbal_field.control_read_only := TRUE;
			herbal_field.control_mandatory := FALSE;
			herbal_field.value := NULL;
		else
			med_field.control_read_only := FALSE;
			med_field.control_mandatory := TRUE;
			herbal_field.control_read_only := FALSE;
			herbal_field.control_mandatory := TRUE;
		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: