DanielR78/St.Clair
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
master
St.Clair/MLMStripper/bin/Debug/FORM/FORM_LOVENOX_CALCDOSE_SIMPLE.mlm

421 lines
16 KiB
Plaintext
Raw Permalink Blame History

maintenance:
title: Form_Lovenox_CalcDose_Simple;;
mlmname: Form_Lovenox_CalcDose_Simple;;
arden: version 2;;
version: 4.50;;
institution: St. Clair Hospital;;
author: Teresa M. Spicuzza (Teresa.Spicuzza@stclair.org), 412.942.1721 ;;
specialist: Eclipsys Corporation;;
date: 2008-09-09;;
validation: testing;;
library:
purpose: Calculate Lovenox dose based on weight - this MLM only calculates the dose
and supplies the correct item code - it does not check for creatinine clearance
and recommend dosing based upon CrCl value.
;;
explanation: Dosing Weight in Kilograms * Dosing = Dose
Change history
04.14.2011 TMS Initial Build from copy of Lovenox calculation MLM (Dev only) with creatinine clearance logic removed
01.16.2012 TMS Correct product code for 160mg dose from 07501 to 03468 - Ticket 146195
10.18.2012 TMS Added hold order logic for start time and start now. CSR 26926
05.08.2017 TMS Update dose cap from 150mg to 190mg for 1mg/kg dosing. CSR 33671
;;
keywords:
lovenox, dose, weight;
;;
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;
standard_libs := MLM {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
include standard_libs;
comm_obj := this_communication.primaryobj;
called_by := this_communication.CallingEvent;
call_field := this_communication.CallingFieldName;
If called_by_editor then
client_guid := "9000001369400200";
visit_guid := visit_obj.GUID;
chart_guid := "9000001918900170";
orderId := "1000002689073001";
called_by := "FormOpen";
else
client_guid := this_communication.ClientGUID;
visit_guid := this_communication.ClientVisitGUID;
chart_guid := this_communication.ChartGuid;
orderid := this_comm.ItemID;
endif;
//Initialize MLM pointers:
str_parse := mlm {{{SINGLE-QUOTE}}}UTIL_STRING_PARSE{{{SINGLE-QUOTE}}};
// Assigns fields passed in the Form object to the Field object
field_list:= this_form.fields;
// Get patient weight
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;
weightvalue := (wt as number);
endif;
// Define other fields
dosing10 := first of (field_list where field_list.DataItemName = "PRX_Lovenox1mgDosing");
dosing15 := first of (field_list where field_list.DataItemName = "PRX_Lovenox1.5mgDosing");
dose := first of (field_list where field_list.DataItemName = "DosageLow");
con := first of (field_list where field_list.DataItemName = "PRX_CONCENTRATION");
str := first of (field_list where field_list.DataItemName = "PRX_CONCSTRENGTH");
struom := first of (field_list where field_list.DataItemName = "PRX_CONCSTRENGTHUOM");
strvol := first of (field_list where field_list.DataItemName = "PRX_CONCSTRVOLUME");
strvoluom := first of (field_list where field_list.DataItemName = "PRX_CONCSTRVOLUMEUOM");
worxcode := first of (field_list where field_list.DataItemName = "PRX_DRUGIDCODE");
override := first of (field_list where field_list.DataItemName = "PRX_DosageOverride");
frequencyx := first of (field_list where field_list.DataItemName = "FrequencyCode");
frequency := frequencyx.Value;
q24nowstat := ("Q24H","NOW","STAT","ONCE","TODAY","Given in Infusion Center");
mayprocess:= "YES";
start_now := last of (field_list where field_list.DataItemName = "PRX_Dosing Start Now" );
requested_time := last of (field_list where field_list.DataItemName = "RequestedTime" );
requested_time_value := requested_time.value;
order_freq_summary := frequency.FrequencySummary;
session_type := comm_obj.internalprocessingtype;
// Define messages
messageA := "Please round dose to the nearest 5mg";
messageB := "Please round dose to the nearest 10mg";
messageC := "Please verify dose.";
messageG := "Lovenox 1.5 mg/kg is only dosed Q24H";
messageW := "Calculated dosing requires weight to be entered.";
messageD := "Lovenox 1.5 mg/kg is not recommended for patients >136kg. Dosing regimen should be 1mg/kg.";
messageN := "Lovenox is not recommended in patients <30kg. Contact physician.";
//
If session_type = "Hold" then
If exists frequencyx and order_freq_summary = "STAT" then
frequency.FrequencySummary := NULL ;
endif;
start_now.control_read_only := true;
requested_time_value.ReqTimeCode := "Scheduled/Start Time";
endif;
If call_field = "PRX_DosageOverride" and override.value = True then
dosing10.value := False; dosing15.value := False; dose.control_read_only := false; dosing := "M";
dosing10.Control_Read_Only := True; dosing15.Control_Read_Only := True; mayprocess := "YES";
dose.value := "";
con.value := "";
str.value := "";
struom.value := "";
strvol.value := "";
strvoluom.value:= "";
worxcode.value := "";
endif;
If call_field = "PRX_DosageOverride" and override.value = False then
dosing10.value := False; dosing15.value := False; dose.control_read_only := true; dosing := "";
dosing10.Control_Read_Only := false; dosing15.Control_Read_Only := false; mayprocess := "NO"; dose.value := "";
endif;
// Toggle between 1.0 and 1.5 dosing
If call_field = "PRX_Lovenox1mgDosing" and dosing10.value = True then
dosing15.value := False; override.value := False; dosing := "1"; dose.control_read_only := True; mayprocess := "YES";
endif;
If call_field = "PRX_Lovenox1mgDosing" and dosing10.value = False then
dosing15.value := True; override.value := False; dosing:= "1.5"; dose.control_read_only := True; mayprocess := "YES";
If frequency.FrequencySummary is not null then
If frequency.FrequencySummary not in q24nowstat then
messagetext := messageG;
this_communication.Message := messagetext ; this_communication.MessageType := "Informational";
frequency.FrequencySummary := null;
endif;
endif;
endif;
If call_field = "PRX_Lovenox1.5mgDosing" and dosing15.value = True then
dosing10.value := False; override.value := False; dosing:= "1.5"; dose.control_read_only := True; mayprocess := "YES";
If frequency.FrequencySummary is not null then
If frequency.FrequencySummary not in q24nowstat then
messagetext := messageG;
this_communication.Message := messagetext ; this_communication.MessageType := "Informational";
frequency.FrequencySummary := null;
endif;
endif;
endif;
If call_field = "PRX_Lovenox1.5mgDosing" and dosing15.value = False then
dosing10.value := True; override.value := False; dosing:= "1"; mayprocess := "YES";
endif;
If ((call_field <> "PRX_Lovenox1mgDosing" and call_field <> "PRX_Lovenox1.5mgDosing") or call_field is null) and dosing10.value = True then dosing := "1"; endif;
If ((call_field <> "PRX_Lovenox1.5mgDosing" and call_field <> "PRX_Lovenox1.5mgDosing") or call_field is null) and dosing15.value = True then dosing := "1.5"; endif;
If ((call_field <> "PRX_Lovenox1mgDosing" and call_field <> "PRX_Lovenox1.5mgDosing") or call_field is null) and override.value = True then dosing := "M"; endif;
If ((call_field = "DosageLow") and (override.value = True)) then dosing := "M"; endif;
If called_by in ("FormClose", "FieldChange") then
If frequency.FrequencySummary is not null then
If frequency.FrequencySummary not in q24nowstat and dosing = "1.5" then
messagetext := messageG;
this_communication.Message := messagetext ; this_communication.MessageType := "Informational";
frequency.FrequencySummary := null;
endif;
endif;
/*
If (dosing = "1" or dosing = "1.5") and weightValue is null then
messagetext := messageW;
this_communication.Message := messagetext ; this_communication.MessageType := "Informational";
endif;
*/
//////////////////////////////////////////// Process Fields Section ////////////////////////////////////////////
/* Manual Dose Logic */
If mayprocess = "YES" and dosing = "M" then; manual_dose := dose.value;
worxcode.value := Null;
manual_map_list :=(
// dsg ds con s su v vu id
"M|||30|(30mg/0.3ml)|30|MG|0.3|ML|06817",
"M|||40|(40mg/0.4ml)|40|MG|0.4|ML|05997",
"M|||45|(60mg/0.6ml)|60|MG|0.6|ML|06997",
"M|||50|(60mg/0.6ml)|60|MG|0.6|ML|06997",
"M|||55|(60mg/0.6ml)|60|MG|0.6|ML|06997",
"M|||60|(60mg/0.6ml)|60|MG|0.6|ML|06997",
"M|||65|(80mg/0.8ml)|80|MG|0.8|ML|06998",
"M|||70|(80mg/0.8ml)|80|MG|0.8|ML|06998",
"M|||75|(80mg/0.8ml)|80|MG|0.8|ML|06998",
"M|||80|(80mg/0.8ml)|80|MG|0.8|ML|06998",
"M|||85|(100mg/ml)|100|MG|1|ML|06999",
"M|||90|(100mg/ml)|100|MG|1|ML|06999",
"M|||95|(100mg/ml)|100|MG|1|ML|06999",
"M|||100|(100mg/ml)|100|MG|1|ML|06999",
"M|||110|(120mg/ml)|120|MG|1|ML|07500",
"M|||120|(120mg/ml)|120|MG|1|ML|07500",
"M|||130|(150mg/ml)|150|MG|1|ML|07501",
"M|||140|(150mg/ml)|150|MG|1|ML|07501",
"M|||150|(150mg/ml)|150|MG|1|ML|07501",
"M|||160|(2 x 80mg)| | | | |03468",
"M|||170|(100 + 70mg)| | | | |03469",
"M|||180|(100 + 80mg)| | | | |03470",
"M|||190|(100 + 90mg)| | | | |03471",
"M|||200|(2 x 100mg)| | | | |03472"
);
for j in 1 seqto count manual_map_list do
manual_element_list := call str_parse with manual_map_list[j], "|";
field1 := manual_element_list[1];
field2 := manual_element_list[2];
field3 := manual_element_list[3];
field4 := manual_element_list[4];
field5 := manual_element_list[5];
field6 := manual_element_list[6];
field7 := manual_element_list[7];
field8 := manual_element_list[8];
field9 := manual_element_list[9];
field10:= manual_element_list[10];
If manual_dose = (field4 as number) then
con.value := field5;
str.value := field6;
struom.value := field7;
strvol.value := field8;
strvoluom.value:= field9;
worxcode.value := field10;
endif;
enddo; /* for j in 1 seqto count manual_map_list do */
If manual_dose < 101 and worxcode.value is null then
messagetext := messageA;
dose.value := "";
this_communication.Message := messagetext ; this_communication.MessageType := "Informational";
endif;
If manual_dose > 100 and manual_dose < 200 and worxcode.value is null then
messagetext := messageB;
dose.value := "";
this_communication.Message := messagetext ; this_communication.MessageType := "Informational";
endif;
If manual_dose > 200 or manual_dose < 30 and worxcode.value is null then
dose.value := "";
messagetext := messageC;
this_communication.Message := messagetext ; this_communication.MessageType := "Informational";
endif;
endif; /* may process = YES and dosing = "M" */
/* Calculated dosing logic */
If mayprocess = "YES" and dosing <> "M" then
// If (dosing = "1" or dosing = "1.5") and weightvalue < 1 then
// messagetext := messageW;
// this_communication.Message := messagetext ; this_communication.MessageType := "Informational";
// endif;
If (dosing = "1" or dosing = "1.5") and (weightvalue > 0 and weightvalue < 30) then
messagetext := messageN;
this_communication.Message := messagetext ; this_communication.MessageType := "Informational";
endif;
If dosing = "1.5" and weightvalue > 136.4 then
messagetext := messageD;
dose.value := "";
this_communication.Message := messagetext ; this_communication.MessageType := "Informational";
endif;
calc_map_list :=(
// dsg wl wu ds con s su v vu id
"1|0.5|29.4||(30mg/0.3ml)|30|MG|0.3|ML|06817",
"1|29.5|34.4|30|(30mg/0.3ml)|30|MG|0.3|ML|06817",
"1|34.5|35.4|40|(40mg/0.4ml)|40|MG|0.4|ML|05997",
"1|35.5|43.4|40|(40mg/0.4ml)|40|MG|0.4|ML|05997",
"1|43.5|46.4|45|(60mg/0.6ml)|60|MG|0.6|ML|06997",
"1|46.5|53.4|50|(60mg/0.6ml)|60|MG|0.6|ML|06997",
"1|53.5|56.4|55|(60mg/0.6ml)|60|MG|0.6|ML|06997",
"1|56.5|63.4|60|(60mg/0.6ml)|60|MG|0.6|ML|06997",
"1|63.5|66.4|65|(80mg/0.8ml)|80|MG|0.8|ML|06998",
"1|66.5|73.4|70|(80mg/0.8ml)|80|MG|0.8|ML|06998",
"1|73.5|76.4|75|(80mg/0.8ml)|80|MG|0.8|ML|06998",
"1|76.5|83.4|80|(80mg/0.8ml)|80|MG|0.8|ML|06998",
"1|83.5|86.4|85|(100mg/ml)|100|MG|1|ML|06999",
"1|86.5|93.4|90|(100mg/ml)|100|MG|1|ML|06999",
"1|93.5|96.4|95|(100mg/ml)|100|MG|1|ML|06999",
"1|96.5|105.4|100|(100mg/ml)|100|MG|1|ML|06999",
"1|105.5|115.4|110|(120mg/ml)|120|MG|1|ML|07500",
"1|115.5|125.4|120|(120mg/ml)|120|MG|1|ML|07500",
"1|125.5|135.4|130|(150mg/ml)|150|MG|1|ML|07501",
"1|135.5|145.4|140|(150mg/ml)|150|MG|1|ML|07501",
"1|145.5|155.4|150|(150mg/ml)|150|MG|1|ML|07501",
"1|155.5|165.4|160|(2 x 80mg)| | | | |03468",
"1|165.5|175.4|170|(100 + 70mg)| | | | |03469",
"1|175.5|185.4|180|(100 + 80mg)| | | | |03470",
"1|185.5|195.4|190|(100 + 90mg)| | | | |03471",
"1.5|0.5|29.4||(60mg/0.6ml)|60|MG|0.6|ML|06997",
"1.5|29.5|31.4|45|(60mg/0.6ml)|60|MG|0.6|ML|06997",
"1.5|31.5|35.4|50|(60mg/0.6ml)|60|MG|0.6|ML|06997",
"1.5|35.5|37.4|55|(60mg/0.6ml)|60|MG|0.6|ML|06997",
"1.5|37.5|42.4|60|(60mg/0.6ml)|60|MG|0.6|ML|06997",
"1.5|42.5|44.4|65|(80mg/0.8ml)|80|MG|0.8|ML|06998",
"1.5|44.5|48.4|70|(80mg/0.8ml)|80|MG|0.8|ML|06998",
"1.5|48.5|51.4|75|(80mg/0.8ml)|80|MG|0.8|ML|06998",
"1.5|51.5|55.4|80|(80mg/0.8ml)|80|MG|0.8|ML|06998",
"1.5|55.5|57.4|85|(100mg/ml)|100|MG|1|ML|06999",
"1.5|57.5|61.4|90|(100mg/ml)|100|MG|1|ML|06999",
"1.5|61.5|64.4|95|(100mg/ml)|100|MG|1|ML|06999",
"1.5|64.5|70.4|100|(100mg/ml)|100|MG|1|ML|06999",
"1.5|70.5|76.4|110|(120mg/ml)|120|MG|1|ML|07500",
"1.5|76.5|83.4|120|(120mg/ml)|120|MG|1|ML|07500",
"1.5|83.5|90.4|130|(150mg/ml)|150|MG|1|ML|07501",
"1.5|90.5|96.4|140|(150mg/ml)|150|MG|1|ML|07501",
"1.5|96.5|103.4|150|(150mg/ml)|150|MG|1|ML|07501",
"1.5|103.5|110.4|160|(80 + 80mg)| | | | |03468",
"1.5|110.5|116.4|170|(100 + 70mg)| | | | |03469",
"1.5|116.5|123.4|180|(100 + 80mg)| | | | |03470",
"1.5|123.5|130.4|190|(100 + 90mg)| | | | |03471",
"1.5|130.5|136.4|200|(100 + 100mg)| | | | |03472"
);
for i in 1 seqto count calc_map_list do
calc_element_list := call str_parse with calc_map_list[i], "|";
field1 := calc_element_list[1];
field2 := calc_element_list[2];
field3 := calc_element_list[3];
field4 := calc_element_list[4];
field5 := calc_element_list[5];
field6 := calc_element_list[6];
field7 := calc_element_list[7];
field8 := calc_element_list[8];
field9 := calc_element_list[9];
field10:= calc_element_list[10];
//
field2conv := (field2 as number);
field3conv := (field3 as number);
field4conv := (field4 as number);
If (dosing = field1) and (weightvalue >= field2conv) and (weightvalue <= field3conv) then
dose.value := field4;
con.value := field5;
str.value := field6;
struom.value := field7;
strvol.value := field8;
strvoluom.value:= field9;
worxcode.value := field10;
endif;
enddo; /* for i in 1 seqto count calc_map_list do */
If (dosing = "1") and (weightvalue >195.4) then
dose.value := 190;
con.value := "(100 + 90mg)";
str.value := "";
struom.value := "";
strvol.value := "";
strvoluom.value:= "";
worxcode.value := "03472";
endif;
endif; /* may process = YES */
endif; /* If formclose or fieldchange)*/
If called_by = "FormClose" then
If (dosing = "1" or dosing = "1.5") and weightValue is null then
messagetext := messageW;
this_communication.Message := messagetext ; this_communication.MessageType := "Informational";
endif;
endif;
;;
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:
Reference in New Issue View Git Blame Copy Permalink