maintenance:

	title: Patient Type Change;;
	mlmname:  FORM_CaseManagement;;
	arden: version 2;;
	version:  4.50;;
	institution:  St Clair Charger MLM;;
	author:  Robert Spence, Eclipsys Corp;;
	specialist:  ;;
	date:  2008-08-08;;
	validation:  testing;;

library:
	purpose:  This MLM restricts the user only select one checkbox on the Patient Type Change order

	;;
	explanation:  See above

	;;
	keywords: Called MLMs, Form fields, Case Management, Restrict form
	;;
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_message:="";

		// Assigns fields passed in the Form object to the Field object
		field_list:= this_form.fields;
		CallingField :=this_communication.CallingFieldName;
		CallingEvent := this_communication.CallingEvent;
		FormType := this_communication.FormType;
	
		




				Obs_field := last of (field_list 
							where field_list.DataItemName = "NUR_ADTObsvStatusCBx" );
				
				SSop_field := last of (field_list 
							where field_list.DataItemName = "NUR_ADTSsopStatusCBx" );
				
				Inp_field := last of (field_list
							where field_list.DataItemName = "NUR_ADTInptStatusCBx");

				Surgery_field := last of (field_list
							where field_list.DataItemName = "NUR_ADTsdcstatusCBx");

				Denied_field := last of (field_list
							where field_list.DataItemName = "NUR_ADTAdmDeniedCBx");

		If callingField = "NUR_ADTObsvStatusCBx" then
			If Obs_field.Value = True then
				SSop_field.control_read_only := True;
				Inp_field.control_read_only := True;
				Surgery_field.control_read_only := True;
				Denied_field.control_read_only := True;
			else
				SSop_field.control_read_only := False;
				Inp_field.control_read_only := False;
				Surgery_field.control_read_only := False;
				Denied_field.control_read_only := False;
			endif;
		elseif callingField = "NUR_ADTSsopStatusCBx" then
			If SSop_field.Value = True then
				Obs_field.control_read_only := True;
				Inp_field.control_read_only := True;
				Surgery_field.control_read_only := True;
				Denied_field.control_read_only := True;
			else
				Obs_field.control_read_only := False;
				Inp_field.control_read_only := False;
				Surgery_field.control_read_only := False;
				Denied_field.control_read_only := False;
			endif;
		elseif callingField = "NUR_ADTInptStatusCBx" then
			If Inp_field .Value = True then
				Obs_field.control_read_only := True;
				SSop_field.control_read_only := True;
				Surgery_field.control_read_only := True;
				Denied_field.control_read_only := True;
			else
				Obs_field.control_read_only := False;
				SSop_field.control_read_only := False;
				Surgery_field.control_read_only := False;
				Denied_field.control_read_only := False;
			endif;
		elseif callingField = "NUR_ADTsdcstatusCBx" then
			If Surgery_field.Value = True then
				Obs_field.control_read_only := True;
				Inp_field.control_read_only := True;
				SSop_field.control_read_only := True;
				Denied_field.control_read_only := True;
			else
				Obs_field.control_read_only := False;
				Inp_field.control_read_only := False;
				SSop_field.control_read_only := False;
				Denied_field.control_read_only := False;
			endif;
		elseif callingField = "NUR_ADTAdmDeniedCBx" then
			If Denied_field .Value = True then
				Obs_field.control_read_only := True;
				Inp_field.control_read_only := True;
				Surgery_field.control_read_only := True;
				SSop_field.control_read_only := True;
			else
				Obs_field.control_read_only := False;
				Inp_field.control_read_only := False;
				Surgery_field.control_read_only := False;
				SSop_field.control_read_only := False;
			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: