97 lines
2.5 KiB
Plaintext
97 lines
2.5 KiB
Plaintext
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:
|