maintenance:

	title: Zero out Volume and BPM if Ventilator ordered CPAP;;
	mlmname:  FORM_Resp_Vent_Mode_CPAP;;
	arden: version 2;;
	version:  4.50;;
	institution:  St Clair Ventilator MLM;;
	author:  Robert spence, Eclipsys Corp;;
	specialist:  ;;
	date:  2008-12-04;;
	validation:  testing;;

library:
      purpose:  Zero out Tital Volume and Vent Rate (BPM) if Venitalor ordered CPAP
	
	;;

	explanation:  This MLM is called from the Ventilator order form (Resp Vent Adult Vol)
                
	;;
	keywords: Called MLMs, Form fields, Respiratory, Ventilator, CPAP
	;;
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;

       CallingEvent := this_communication.CallingEvent;
	   CallingField := this_communication.CallingFieldName;


	   // get the 3 fields in question

		mode_field := last of (field_list 
		where field_list.DataItemName = "Resp Vent Mode" );

		vt_field := last of (field_list 
		where field_list.DataItemName = "Resp Vent VT (Tidal Volume)" );

		rate_field := last of (field_list 
		where field_list.DataItemName = "Resp Vent Rate (BPM)" );

		If mode_field.value = "CPAP" then
		
			vt_field.value := 0;
			rate_field.value := 0;
		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: