maintenance:

	title:  Form_Drotrecogin_calc;;
	mlmname:  Form_Drotrecogin_calc;;
	arden: version 2;;
	version:  4.50;;
	institution:  St. Clair Hospital;;
	author:  Teresa M. Spicuzza  ;;
	specialist:  Eclipsys Corporation;;
	date:  2006-11-28;;
	validation:  testing;;

library:
	purpose: Caculate Drotrecogin rate based on weight.  Present dose rounded to two
		decimal points. 
	;;
	explanation:  
		Dosing Weight in Kilograms * 0.24 = 
			Infusion rate (round to nearest 1000th)

		If Dosing Weight in Kilograms is null alert user to 
			‘Enter a Calculation Weight on the Vital Sign Flowsheet before proceeding’
	;;
	keywords:
		Xigris, Infusion, Drotrecogin, weight;
	;;
knowledge:
	type: data-driven;;
	data:
/********************Make Changes To Spelling And Flags In This Section*********************/


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

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

	// Assigns fields passed in the Form object to the Field object
	field_list:= this_form.fields;

	comb_ht_wt_field := first of 
		(field_list where field_list.DataItemName = "CombinedMeasurements");
	if exists comb_ht_wt_field then
		comb_ht_wt_val := comb_ht_wt_field.value;

		wt := comb_ht_wt_val.weight;
		ht := comb_ht_wt_val.height;
		wt_type := comb_ht_wt_val.weighttype;
		bsa := comb_ht_wt_val.bsa;
		bmi := comb_ht_wt_val.bmi;
	endif;

	if not exists wt then
		
		comb_ht_wt_field.control_read_only := true;
		this_communication.Message :=
			"Please Enter a Calculation Weight on the Vital Sign Flowsheet "
			|| "before proceeding."
			;
		this_communication.MessageType := "Error";
		
	else

		//Rate
		rate := first of 
			(field_list where field_list.DataItemName = "OrderIVRate");

 			dose_rate := (wt as number) * 0.24;
		if exists rate then
        RateValue := Rate.Value;
        RateValue.Amount := dose_rate formatted with "%.2f";
        RateValue.RateUOM := "ml";
        OrderIVRateValue.KVODisplayed := false;
        OrderIVRateValue.IsKVO := false;
		endif;

	endif;  // not exists wt 

	;;
	evoke:  
	;;
	logic:
		Conclude true;
	;;
	action:
      	// This MLM returns two parameters, of types 
		//communication_type and form_type respectively.
		return this_communication, this_form;
	;;
Urgency: 50;;
end: