1523 lines
70 KiB
Plaintext
1523 lines
70 KiB
Plaintext
maintenance:
|
|
|
|
title: Set Warfarin Nurse Orders Tablet;;
|
|
mlmname: FORM_Set_Warfarin_Orders_Tablet;;
|
|
arden: version 2;;
|
|
version: 4.50;;
|
|
institution: St Clair Admissions;;
|
|
author: Don Warnick, Eclipsys Corp Ext 7463;;
|
|
specialist: Teresa Spicuzza, Eclipsys Corp ext 7448;;
|
|
date: 2008-09-22;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose: Used for medication grids that holds warfarin order set
|
|
;;
|
|
|
|
explanation: This MLM is called from the warfarin order set, form: PRX_OSWarfarin
|
|
|
|
|
|
Change history
|
|
|
|
09.16.2008 DW Initial build - derived from FORM_SET_HEPARIN_WEIGHT_BASED_INIT
|
|
12.11.2008 DW Revised to check for current time and change the priority to stat if after specified time of day
|
|
09.27.2010 TMS Added routine for Hold session date handling
|
|
10.06.2014 TMS New logic added for supporting Warfarin alternating dose orders needing user schedule CSR 32392
|
|
10.10.2014 TMS Added message to select dose and frequency from selection boxes instead of grid when user tries to select
|
|
dose from grid. CSR 32392
|
|
04.26.2016 TMS Add call on form Close to Medication Order Management MLM CSR 33465
|
|
|
|
;;
|
|
keywords: Called MLMs, warfarin
|
|
;;
|
|
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;
|
|
standard_libs := MLM {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
|
|
include standard_libs;
|
|
//using "ObjectsPlusXA.SCM.Forms";
|
|
//using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
|
|
/***************************************************************************************/
|
|
|
|
// Use String parse
|
|
str_parse := mlm {{{SINGLE-QUOTE}}}UTIL_STRING_PARSE{{{SINGLE-QUOTE}}};
|
|
|
|
// Initialize error message
|
|
error_message:="";
|
|
|
|
// Assigns fields passed in the Form object to the Field object
|
|
field_list:= this_form.fields;
|
|
|
|
|
|
client_guid := this_communication.ClientGUID;
|
|
visit_guid := this_communication.ClientVisitGUID;
|
|
chart_guid := this_communication.ChartGuid;
|
|
|
|
CallingEvent := this_communication.CallingEvent;
|
|
CallingField := this_communication.CallingFieldName;
|
|
|
|
//Find the baseline order checkbox that may need to be ordered with this protocol
|
|
|
|
Labs_Baseline_field := last of (field_list where field_list.DataItemName = "MultiOrderCheckBox" and field_List.Control_MultiFieldOccNum = 1);
|
|
Labs_Baseline_List := Labs_Baseline_field.Value;
|
|
Baseline_INR:= first of (Labs_Baseline_list where Labs_Baseline_list.Name = "Prothrombin/INR");
|
|
DoseA := last of (field_list where field_list.DataItemName = "WarfarinDose1" and field_List.Control_MultiFieldOccNum = 1);
|
|
DoseA_value := DoseA.value;
|
|
AltDaysDoseA := last of (field_list where field_list.DataItemName = "PRX_AltSchedule1" and field_List.Control_MultiFieldOccNum = 1);
|
|
AltDaysDoseA_list := AltDaysDoseA.value;
|
|
DoseADays := last of (field_list where field_list.DataItemName = "PRX_Scheddays1" and field_List.Control_MultiFieldOccNum = 1);
|
|
DoseBDays := last of (field_list where field_list.DataItemName = "PRX_Scheddays1" and field_List.Control_MultiFieldOccNum = 2);
|
|
DoseB := last of (field_list where field_list.DataItemName = "WarfarinDose1" and field_List.Control_MultiFieldOccNum = 2);
|
|
DoseB_value := DoseB.value;
|
|
DoseA_GiveWith := first of (field_list where field_list.DataItemName = "PRX_ADMINS_GiveWith" and field_List.Control_MultiFieldOccNum = 1);
|
|
DoseB_GiveWith := first of (field_list where field_list.DataItemName = "PRX_ADMINS_GiveWith" and field_List.Control_MultiFieldOccNum = 2);
|
|
AltCB := last of (field_list where field_list.DataItemName = "PRX_Generic_CB" and field_List.Control_MultiFieldOccNum = 1);
|
|
AltCB_value := AltCB.value;
|
|
AltDaysDoseB := last of (field_list where field_list.DataItemName = "PRX_AltSchedule2" and field_List.Control_MultiFieldOccNum = 1);
|
|
AltDaysDoseB_list := AltDaysDoseB.value;
|
|
Frequency := last of (field_list where field_list.DataItemName = "FrequencyCode" and field_List.Control_MultiFieldOccNum = 1);
|
|
Frequency_val := Frequency.value;
|
|
Frequency2 := last of (field_list where field_list.DataItemName = "FrequencyCode" and field_List.Control_MultiFieldOccNum = 2);
|
|
Frequency2_val := Frequency2.value;
|
|
DailyFreq := last of (field_list where field_list.DataItemName = "PRX_Std_Schedule" and field_List.Control_MultiFieldOccNum = 1);
|
|
DailyFreq2 := last of (field_list where field_list.DataItemName = "PRX_Std_Schedule" and field_List.Control_MultiFieldOccNum = 2);
|
|
DailyFreq_value := DailyFreq.value;
|
|
DailyFreq2_value := DailyFreq2.value;
|
|
//Find the daily order that may needs to accompany this protocol
|
|
Grid1Orders_field := last of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 1);
|
|
Grid1Orders_List := Grid1Orders_field.value;
|
|
Grid2Orders_field := last of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 4);
|
|
Grid2Orders_List := Grid2Orders_field.value;
|
|
Lab_Daily_Order_field := last of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 2);
|
|
Lab_Daily_Order_List := Lab_Daily_Order_field.Value;
|
|
// Daily_Order_INR := first of (Lab_Daily_Order_List where Lab_Daily_Order_List.Name = "Prothrombin/INR");
|
|
|
|
|
|
// Find the 5 Requested Date fields - #1 is visible, #2 - #5 are hidden
|
|
|
|
primreqdate:= last of (field_list where field_list.DataItemName = "RequestedDate" and field_List.Control_MultiFieldOccNum = 1);
|
|
secreqdate:= last of (field_list where field_list.DataItemName = "RequestedDate" and field_List.Control_MultiFieldOccNum = 2);
|
|
thirdreqdate:= last of (field_list where field_list.DataItemName = "RequestedDate" and field_List.Control_MultiFieldOccNum = 3);
|
|
fourthreqdate:= last of (field_list where field_list.DataItemName = "RequestedDate"and field_List.Control_MultiFieldOccNum = 4);
|
|
fifthreqdate:= last of (field_list where field_list.DataItemName = "RequestedDate"and field_List.Control_MultiFieldOccNum = 5);
|
|
DoseAStartdate:= last of (field_list where field_list.DataItemName = "RequestedDate"and field_List.Control_MultiFieldOccNum = 6);
|
|
DoseBStartdate:= last of (field_list where field_list.DataItemName = "RequestedDate"and field_List.Control_MultiFieldOccNum = 7);
|
|
//Find the daily reminder that may need to be ordered with this protocol
|
|
|
|
Lab_Rem := last of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 3);
|
|
Lab_Rem_List := Lab_Rem.Value;
|
|
Daily_Reminder := first of (Lab_Rem_List where Lab_Rem_List.Name = "Daily Orders:");
|
|
WarfarinA_0_5 := first of (Grid1Orders_List where Grid1Orders_List.Name = "Warfarin 0.5mg (1/2 of 1mg) Tab");
|
|
WarfarinA_1_25 := first of (Grid1Orders_List where Grid1Orders_List.Name = "Warfarin 1.25mg (1/2 of 2.5mg) Tab");
|
|
WarfarinA_1_5 := first of (Grid1Orders_List where Grid1Orders_List.Name = "Warfarin 1.5mg (1/2 of3mg) Tab");
|
|
WarfarinA_1 := first of (Grid1Orders_List where Grid1Orders_List.Name = "Warfarin 1mg Tab");
|
|
WarfarinA_2 := first of (Grid1Orders_List where Grid1Orders_List.Name = "Warfarin 2 mg Tab");
|
|
WarfarinA_2_5 := first of (Grid1Orders_List where Grid1Orders_List.Name = "Warfarin 2.5mg Tab");
|
|
WarfarinA_3 := first of (Grid1Orders_List where Grid1Orders_List.Name = "Warfarin 3mg Tab");
|
|
WarfarinA_4 := first of (Grid1Orders_List where Grid1Orders_List.Name = "Warfarin 4mg Tab");
|
|
WarfarinA_5 := first of (Grid1Orders_List where Grid1Orders_List.Name = "Warfarin 5mg Tab");
|
|
WarfarinA_6 := last of (Grid1Orders_List where Grid1Orders_List.Name = "Warfarin 3mg Tab");
|
|
WarfarinA_7_5 := first of (Grid1Orders_List where Grid1Orders_List.Name = "Warfarin 7.5mg Tab");
|
|
WarfarinA_8 := last of (Grid1Orders_List where Grid1Orders_List.Name = "Warfarin 4mg Tab");
|
|
WarfarinA_10 := first of (Grid1Orders_List where Grid1Orders_List.Name = "Warfarin 10mg Tab");
|
|
WarfarinA_15 := last of (Grid1Orders_List where Grid1Orders_List.Name = "Warfarin 7.5mg Tab");
|
|
|
|
WarfarinB_0_5 := first of (Grid2Orders_List where Grid2Orders_List.Name = "Warfarin 0.5mg (1/2 of 1mg) Tab");
|
|
WarfarinB_1_25 := first of (Grid2Orders_List where Grid2Orders_List.Name = "Warfarin 1.25mg (1/2 of 2.5mg) Tab");
|
|
WarfarinB_1_5 := first of (Grid2Orders_List where Grid2Orders_List.Name = "Warfarin 1.5mg (1/2 of3mg) Tab");
|
|
WarfarinB_1 := first of (Grid2Orders_List where Grid2Orders_List.Name = "Warfarin 1mg Tab");
|
|
WarfarinB_2 := first of (Grid2Orders_List where Grid2Orders_List.Name = "Warfarin 2 mg Tab");
|
|
WarfarinB_2_5 := first of (Grid2Orders_List where Grid2Orders_List.Name = "Warfarin 2.5mg Tab");
|
|
WarfarinB_3 := first of (Grid2Orders_List where Grid2Orders_List.Name = "Warfarin 3mg Tab");
|
|
WarfarinB_4 := first of (Grid2Orders_List where Grid2Orders_List.Name = "Warfarin 4mg Tab");
|
|
WarfarinB_5 := first of (Grid2Orders_List where Grid2Orders_List.Name = "Warfarin 5mg Tab");
|
|
WarfarinB_6 := last of (Grid2Orders_List where Grid2Orders_List.Name = "Warfarin 3mg Tab");
|
|
WarfarinB_7_5 := first of (Grid2Orders_List where Grid2Orders_List.Name = "Warfarin 7.5mg Tab");
|
|
WarfarinB_10 := first of (Grid2Orders_List where Grid2Orders_List.Name = "Warfarin 10mg Tab");
|
|
WarfarinB_8 := last of (Grid2Orders_List where Grid2Orders_List.Name = "Warfarin 4mg Tab");
|
|
WarfarinB_15 := last of (Grid2Orders_List where Grid1Orders_List.Name = "Warfarin 7.5mg Tab");
|
|
|
|
|
|
|
|
|
|
//Find if any of the med boxes are checked...if so, set Med_Was_Selected to "yes"
|
|
|
|
Med_Grid := last of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 1);
|
|
Med_List :=Med_Grid.Value;
|
|
Med_SelList := Med_List.IsSelected;
|
|
Med_Selected := true in Med_SelList;
|
|
Med_Grid2 := last of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 4);
|
|
Med_List2 :=Med_Grid2.Value;
|
|
Med_SelList2 := Med_List2.IsSelected;
|
|
Med_Selected2 := true in Med_SelList2;
|
|
|
|
|
|
|
|
prx_comment := last of (field_list where field_list.DataItemName = "PRX_NOTECOMMENT0");
|
|
|
|
Order_From := last of (field_list where field_list.DataItemName = "NUR_DateField");
|
|
Order_To := last of (field_list where field_list.DataItemName = "NUR_ToDate");
|
|
|
|
|
|
If (Med_Selected = True or Med_Selected2 = True) then Med_Was_Selected := "yes"; else Med_Was_Selected := "no" ; endif;
|
|
|
|
If CallingEvent = "FieldChange" Then
|
|
If CallingField = "PRX_Generic_CB|1" then
|
|
|
|
If AltCB.Value = True then
|
|
AltDaysDoseA.control_visible := TRUE;
|
|
AltDaysDoseB.control_visible := TRUE;
|
|
DoseB.control_visible := TRUE;
|
|
Frequency_val.frequencysummary := Null;
|
|
Frequency2_val.frequencysummary := Null;
|
|
DailyFreq.value := "None";
|
|
DailyFreq2.value := "None";
|
|
Frequency.Control_read_only:= true;
|
|
Frequency2.Control_read_only:= true;
|
|
|
|
|
|
elseif AltCB_Value = False then
|
|
AltDaysDoseA.value := Null;
|
|
AltDaysDoseB.value := Null;
|
|
AltDaysDoseA.control_visible := FALSE;
|
|
AltDaysDoseB.control_visible := FALSE;
|
|
DoseB.control_visible := true;
|
|
Frequency_val.frequencysummary := "QHS";
|
|
Frequency2_val.frequencysummary := "Once";
|
|
DailyFreq.value := "QHS";
|
|
DailyFreq2.value := "Once";
|
|
DoseADays.value := "None";
|
|
DoseBDays.value := "None";
|
|
DoseA.value := Null;
|
|
DoseB.value := Null;
|
|
Frequency.Control_read_only:= false;
|
|
Frequency2.Control_read_only:= false;
|
|
Grid1Orders_List.IsSelected := (False, False, False, False, False, False, False, False, False, False, False, False, False, False);
|
|
Grid1Orders_List.IsReadOnly := (True, True, True, True, True, True, True, True, True, True, True, True, True, True);
|
|
Grid2Orders_List.IsSelected := (False, False, False, False, False, False, False, False, False, False, False, False, False, False);
|
|
Grid2Orders_List.IsReadOnly := (True, True, True, True, True, True, True, True, True, True, True, True, True, True);
|
|
endif;
|
|
endif;
|
|
|
|
ThisTime := (now as time) ;
|
|
FormatDate := extract month ThisTime ||"-" || extract day ThisTime ||"-" ||extract year ThisTime;
|
|
//Thattime := thistime + 1 day;
|
|
ThisDay := extract year ThisTime || "-" || extract month ThisTime ||"-" || extract day ThisTime;
|
|
DayofWeek1 := read last {"SELECT DATENAME(dw, GETDATE ())"};
|
|
DayofWeek2 := read last {"SELECT DATENAME(dw, dateadd (WEEKDAY,1,{{{SINGLE-QUOTE}}}" || ThisTime || "{{{SINGLE-QUOTE}}}))"};
|
|
DayofWeek3 := read last {"SELECT DATENAME(dw, dateadd (WEEKDAY,2,{{{SINGLE-QUOTE}}}" || ThisTime || "{{{SINGLE-QUOTE}}}))"};
|
|
DayofWeek4 := read last {"SELECT DATENAME(dw, dateadd (WEEKDAY,3,{{{SINGLE-QUOTE}}}" || ThisTime || "{{{SINGLE-QUOTE}}}))"};
|
|
DayofWeek5 := read last {"SELECT DATENAME(dw, dateadd (WEEKDAY,4,{{{SINGLE-QUOTE}}}" || ThisTime || "{{{SINGLE-QUOTE}}}))"};
|
|
DayofWeek6 := read last {"SELECT DATENAME(dw, dateadd (WEEKDAY,5,{{{SINGLE-QUOTE}}}" || ThisTime || "{{{SINGLE-QUOTE}}}))"};
|
|
DayofWeek7 := read last {"SELECT DATENAME(dw, dateadd (WEEKDAY,6,{{{SINGLE-QUOTE}}}" || ThisTime || "{{{SINGLE-QUOTE}}}))"};
|
|
|
|
|
|
If CallingField = "FrequencyCode|1" then
|
|
DailyFreq.value := Frequency_val.frequencysummary;
|
|
endif;
|
|
|
|
If CallingField = "FrequencyCode|2" then
|
|
DailyFreq2.value := Frequency2_val.frequencysummary;
|
|
endif;
|
|
|
|
If CallingField = "MultiOrderGrid|1" and DoseA_value is Null then
|
|
dialogmsg := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Please select Dose of Warfarin and Frequency from selection options to the left. " ,"Alert","OK" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
|
|
Grid1Orders_List.IsReadOnly := (True, True, True, True, True, True, True, True, True, True, True, True, True, True);
|
|
Grid1Orders_List.IsSelected := (False, False, False, False, False, False, False, False, False, False, False, False, False, False);
|
|
endif;
|
|
|
|
If CallingField = "MultiOrderGrid|4" and DoseB_value is Null then
|
|
dialogmsg := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Please select Dose of Warfarin and Frequency from selection options to the left. " ,"Alert","OK" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
|
|
Grid2Orders_List.IsReadOnly := (True, True, True, True, True, True, True, True, True, True, True, True, True, True);
|
|
Grid2Orders_List.IsSelected := (False, False, False, False, False, False, False, False, False, False, False, False, False, False);
|
|
endif;
|
|
|
|
|
|
If CallingField = "WarfarinDose1|1" then
|
|
If DoseA_value = "0.5mg" then
|
|
WarfarinA_0_5.IsSelected := True;
|
|
WarfarinA_1.IsSelected := False;
|
|
WarfarinA_1_25.IsSelected := False;
|
|
WarfarinA_1_5.IsSelected := False;
|
|
WarfarinA_2.IsSelected := False;
|
|
WarfarinA_2_5.IsSelected := False;
|
|
WarfarinA_3.IsSelected := False;
|
|
WarfarinA_4.IsSelected := False;
|
|
WarfarinA_5.IsSelected := False;
|
|
WarfarinA_6.IsSelected := False;
|
|
WarfarinA_7_5.IsSelected := False;
|
|
WarfarinA_8.IsSelected := False;
|
|
WarfarinA_10.IsSelected := False;
|
|
WarfarinA_15.IsSelected := False;
|
|
DoseA_GiveWith.value := "";
|
|
Grid1Orders_List.IsReadOnly := (False, True, True, True, True, True, True, True, True, True, True, True, True, True);
|
|
|
|
|
|
elseif DoseA_value = "1mg" then
|
|
WarfarinA_0_5.IsSelected := False;
|
|
WarfarinA_1.IsSelected := True;
|
|
WarfarinA_1_25.IsSelected := False;
|
|
WarfarinA_1_5.IsSelected := False;
|
|
WarfarinA_2.IsSelected := False;
|
|
WarfarinA_2_5.IsSelected := False;
|
|
WarfarinA_3.IsSelected := False;
|
|
WarfarinA_4.IsSelected := False;
|
|
WarfarinA_5.IsSelected := False;
|
|
WarfarinA_6.IsSelected := False;
|
|
WarfarinA_7_5.IsSelected := False;
|
|
WarfarinA_8.IsSelected := False;
|
|
WarfarinA_10.IsSelected := False;
|
|
WarfarinA_15.IsSelected := False;
|
|
DoseA_GiveWith.value := "";
|
|
Grid1Orders_List.IsReadOnly := (True, False, True, True, True, True, True, True, True, True, True, True, True, True);
|
|
|
|
elseif DoseA_value = "1.25mg" then
|
|
WarfarinA_0_5.IsSelected := False;
|
|
WarfarinA_1.IsSelected := False;
|
|
WarfarinA_1_25.IsSelected := True;
|
|
WarfarinA_1_5.IsSelected := False;
|
|
WarfarinA_2.IsSelected := False;
|
|
WarfarinA_2_5.IsSelected := False;
|
|
WarfarinA_3.IsSelected := False;
|
|
WarfarinA_4.IsSelected := False;
|
|
WarfarinA_5.IsSelected := False;
|
|
WarfarinA_6.IsSelected := False;
|
|
WarfarinA_7_5.IsSelected := False;
|
|
WarfarinA_8.IsSelected := False;
|
|
WarfarinA_10.IsSelected := False;
|
|
WarfarinA_15.IsSelected := False;
|
|
DoseA_GiveWith.value := "";
|
|
Grid1Orders_List.IsReadOnly := (True, True, True, True, True, True, True, True, True, True, True, True, True, True);
|
|
|
|
elseif DoseA_value = "1.5mg" then
|
|
WarfarinA_0_5.IsSelected := False;
|
|
WarfarinA_1.IsSelected := False;
|
|
WarfarinA_1_25.IsSelected := False;
|
|
WarfarinA_1_5.IsSelected := True;
|
|
WarfarinA_2.IsSelected := False;
|
|
WarfarinA_2_5.IsSelected := False;
|
|
WarfarinA_3.IsSelected := False;
|
|
WarfarinA_4.IsSelected := False;
|
|
WarfarinA_5.IsSelected := False;
|
|
WarfarinA_6.IsSelected := False;
|
|
WarfarinA_7_5.IsSelected := False;
|
|
WarfarinA_8.IsSelected := False;
|
|
WarfarinA_10.IsSelected := False;
|
|
WarfarinA_15.IsSelected := False;
|
|
DoseA_GiveWith.value := "";
|
|
Grid1Orders_List.IsReadOnly := (True, True, True, False, True, True, True, True, True, True, True, True, True, True);
|
|
|
|
elseif DoseA_value = "2mg" then
|
|
WarfarinA_0_5.IsSelected := False;
|
|
WarfarinA_1.IsSelected := False;
|
|
WarfarinA_1_25.IsSelected := False;
|
|
WarfarinA_1_5.IsSelected := False;
|
|
WarfarinA_2.IsSelected := True;
|
|
WarfarinA_2_5.IsSelected := False;
|
|
WarfarinA_3.IsSelected := False;
|
|
WarfarinA_4.IsSelected := False;
|
|
WarfarinA_5.IsSelected := False;
|
|
WarfarinA_6.IsSelected := False;
|
|
WarfarinA_7_5.IsSelected := False;
|
|
WarfarinA_8.IsSelected := False;
|
|
WarfarinA_10.IsSelected := False;
|
|
WarfarinA_15.IsSelected := False;
|
|
DoseA_GiveWith.value := "";
|
|
Grid1Orders_List.IsReadOnly := (True, True, True,True, False, True, True, True, True, True, True, True, True, True);
|
|
|
|
elseif DoseA_value = "2.5mg" then
|
|
WarfarinA_0_5.IsSelected := False;
|
|
WarfarinA_1.IsSelected := False;
|
|
WarfarinA_1_25.IsSelected := False;
|
|
WarfarinA_1_5.IsSelected := False;
|
|
WarfarinA_2.IsSelected := False;
|
|
WarfarinA_2_5.IsSelected := True;
|
|
WarfarinA_3.IsSelected := False;
|
|
WarfarinA_4.IsSelected := False;
|
|
WarfarinA_5.IsSelected := False;
|
|
WarfarinA_6.IsSelected := False;
|
|
WarfarinA_7_5.IsSelected := False;
|
|
WarfarinA_8.IsSelected := False;
|
|
WarfarinA_10.IsSelected := False;
|
|
WarfarinA_15.IsSelected := False;
|
|
DoseA_GiveWith.value := "";
|
|
Grid1Orders_List.IsReadOnly := (True, True, True, True, True, False, True, True, True, True, True, True, True, True);
|
|
|
|
|
|
elseif DoseA_value = "3mg" then
|
|
WarfarinA_0_5.IsSelected := False;
|
|
WarfarinA_1.IsSelected := False;
|
|
WarfarinA_1_25.IsSelected := False;
|
|
WarfarinA_1_5.IsSelected := False;
|
|
WarfarinA_2.IsSelected := False;
|
|
WarfarinA_2_5.IsSelected := False;
|
|
WarfarinA_3.IsSelected := True;
|
|
WarfarinA_4.IsSelected := False;
|
|
WarfarinA_5.IsSelected := False;
|
|
WarfarinA_6.IsSelected := False;
|
|
WarfarinA_7_5.IsSelected := False;
|
|
WarfarinA_8.IsSelected := False;
|
|
WarfarinA_10.IsSelected := False;
|
|
WarfarinA_15.IsSelected := False;
|
|
DoseA_GiveWith.value := "";
|
|
Grid1Orders_List.IsReadOnly := (True, True, True, True, True, True, False, True, True, True, True, True, True, True);
|
|
|
|
elseif DoseA_value = "3.5mg" then
|
|
WarfarinA_0_5.IsSelected := False;
|
|
WarfarinA_1.IsSelected := True;
|
|
WarfarinA_1_25.IsSelected := False;
|
|
WarfarinA_1_5.IsSelected := False;
|
|
WarfarinA_2.IsSelected := False;
|
|
WarfarinA_2_5.IsSelected := True;
|
|
WarfarinA_3.IsSelected := False;
|
|
WarfarinA_4.IsSelected := False;
|
|
WarfarinA_5.IsSelected := False;
|
|
WarfarinA_6.IsSelected := False;
|
|
WarfarinA_7_5.IsSelected := False;
|
|
WarfarinA_8.IsSelected := False;
|
|
WarfarinA_10.IsSelected := False;
|
|
WarfarinA_15.IsSelected := False;
|
|
DoseA_GiveWith.value := "Give 1mg tablet and 2.5mg tablet for total dose of 3.5mg";
|
|
Grid1Orders_List.IsReadOnly := (True, False, True, True, True, False, True, True, True, True, True, True, True, True);
|
|
|
|
elseif DoseA_value = "4mg" then
|
|
WarfarinA_0_5.IsSelected := False;
|
|
WarfarinA_1.IsSelected := False;
|
|
WarfarinA_1_25.IsSelected := False;
|
|
WarfarinA_1_5.IsSelected := False;
|
|
WarfarinA_2.IsSelected := False;
|
|
WarfarinA_2_5.IsSelected := False;
|
|
WarfarinA_3.IsSelected := False;
|
|
WarfarinA_4.IsSelected := True;
|
|
WarfarinA_5.IsSelected := False;
|
|
WarfarinA_6.IsSelected := False;
|
|
WarfarinA_7_5.IsSelected := False;
|
|
WarfarinA_8.IsSelected := False;
|
|
WarfarinA_10.IsSelected := False;
|
|
WarfarinA_15.IsSelected := False;
|
|
DoseA_GiveWith.value := "";
|
|
Grid1Orders_List.IsReadOnly := (True, True, True, True, True, True, True, False, True, True, True, True, True, True);
|
|
|
|
elseif DoseA_value = "4.5mg" then
|
|
WarfarinA_0_5.IsSelected := False;
|
|
WarfarinA_1.IsSelected := False;
|
|
WarfarinA_1_25.IsSelected := False;
|
|
WarfarinA_1_5.IsSelected := False;
|
|
WarfarinA_2.IsSelected := True;
|
|
WarfarinA_2_5.IsSelected := True;
|
|
WarfarinA_3.IsSelected := False;
|
|
WarfarinA_4.IsSelected := False;
|
|
WarfarinA_5.IsSelected := False;
|
|
WarfarinA_6.IsSelected := False;
|
|
WarfarinA_7_5.IsSelected := False;
|
|
WarfarinA_8.IsSelected := False;
|
|
WarfarinA_10.IsSelected := False;
|
|
WarfarinA_15.IsSelected := False;
|
|
DoseA_GiveWith.value := "Give 2mg tablet and 2.5mg tablet for total dose of 4.5mg";
|
|
Grid1Orders_List.IsReadOnly := (True, True, True, True, False, False, True, True, True, True, True, True, True, True);
|
|
|
|
elseif DoseA_value = "5mg" then
|
|
WarfarinA_0_5.IsSelected := False;
|
|
WarfarinA_1.IsSelected := False;
|
|
WarfarinA_1_25.IsSelected := False;
|
|
WarfarinA_1_5.IsSelected := False;
|
|
WarfarinA_2.IsSelected := False;
|
|
WarfarinA_2_5.IsSelected := False;
|
|
WarfarinA_3.IsSelected := False;
|
|
WarfarinA_4.IsSelected := False;
|
|
WarfarinA_5.IsSelected := True;
|
|
WarfarinA_6.IsSelected := False;
|
|
WarfarinA_7_5.IsSelected := False;
|
|
WarfarinA_8.IsSelected := False;
|
|
WarfarinA_10.IsSelected := False;
|
|
WarfarinA_15.IsSelected := False;
|
|
DoseA_GiveWith.value := "";
|
|
Grid1Orders_List.IsReadOnly := (True, True, True, True, True, True, True, True, False, True, True, True, True, True);
|
|
|
|
elseif DoseA_value = "6mg" then
|
|
WarfarinA_0_5.IsSelected := False;
|
|
WarfarinA_1.IsSelected := False;
|
|
WarfarinA_1_25.IsSelected := False;
|
|
WarfarinA_1_5.IsSelected := False;
|
|
WarfarinA_2.IsSelected := False;
|
|
WarfarinA_2_5.IsSelected := False;
|
|
WarfarinA_3.IsSelected := False;
|
|
WarfarinA_4.IsSelected := False;
|
|
WarfarinA_5.IsSelected := False;
|
|
WarfarinA_6.IsSelected := True;
|
|
WarfarinA_7_5.IsSelected := False;
|
|
WarfarinA_8.IsSelected := False;
|
|
WarfarinA_10.IsSelected := False;
|
|
WarfarinA_15.IsSelected := False;
|
|
DoseA_GiveWith.value := "";
|
|
Grid1Orders_List.IsReadOnly := (True, True, True, True, True, True, True, True, True, False, True, True, True, True);
|
|
|
|
elseif DoseA_value = "7mg" then
|
|
WarfarinA_0_5.IsSelected := False;
|
|
WarfarinA_1.IsSelected := False;
|
|
WarfarinA_1_25.IsSelected := False;
|
|
WarfarinA_1_5.IsSelected := False;
|
|
WarfarinA_2.IsSelected := True;
|
|
WarfarinA_2_5.IsSelected := False;
|
|
WarfarinA_3.IsSelected := False;
|
|
WarfarinA_4.IsSelected := False;
|
|
WarfarinA_5.IsSelected := True;
|
|
WarfarinA_6.IsSelected := False;
|
|
WarfarinA_7_5.IsSelected := False;
|
|
WarfarinA_8.IsSelected := False;
|
|
WarfarinA_10.IsSelected := False;
|
|
WarfarinA_15.IsSelected := False;
|
|
DoseA_GiveWith.value := "Give 2mg tablet and 5mg tablet for total dose of 7mg";
|
|
Grid1Orders_List.IsReadOnly := (True, True, True, True, False, True, True, True, False, True, True, True, True, True);
|
|
|
|
elseif DoseA_value = "7.5mg" then
|
|
WarfarinA_0_5.IsSelected := False;
|
|
WarfarinA_1.IsSelected := False;
|
|
WarfarinA_1_25.IsSelected := False;
|
|
WarfarinA_1_5.IsSelected := False;
|
|
WarfarinA_2.IsSelected := False;
|
|
WarfarinA_2_5.IsSelected := False;
|
|
WarfarinA_3.IsSelected := False;
|
|
WarfarinA_4.IsSelected := False;
|
|
WarfarinA_5.IsSelected := False;
|
|
WarfarinA_6.IsSelected := False;
|
|
WarfarinA_7_5.IsSelected := True;
|
|
WarfarinA_8.IsSelected := False;
|
|
WarfarinA_10.IsSelected := False;
|
|
WarfarinA_15.IsSelected := False;
|
|
DoseA_GiveWith.value := "";
|
|
Grid1Orders_List.IsReadOnly := (True, True, True, True, True, True, True, True, True, True, False, True, True, True);
|
|
|
|
elseif DoseA_value = "8mg" then
|
|
WarfarinA_0_5.IsSelected := False;
|
|
WarfarinA_1.IsSelected := False;
|
|
WarfarinA_1_25.IsSelected := False;
|
|
WarfarinA_1_5.IsSelected := False;
|
|
WarfarinA_2.IsSelected := False;
|
|
WarfarinA_2_5.IsSelected := False;
|
|
WarfarinA_3.IsSelected := False;
|
|
WarfarinA_4.IsSelected := False;
|
|
WarfarinA_5.IsSelected := False;
|
|
WarfarinA_6.IsSelected := False;
|
|
WarfarinA_7_5.IsSelected := False;
|
|
WarfarinA_8.IsSelected := True;
|
|
WarfarinA_10.IsSelected := False;
|
|
WarfarinA_15.IsSelected := False;
|
|
DoseA_GiveWith.value := "";
|
|
Grid1Orders_List.IsReadOnly := (True, True, True, True, True, True, True, True, True, True, True, False, True, True);
|
|
|
|
elseif DoseA_value = "9mg" then
|
|
WarfarinA_0_5.IsSelected := False;
|
|
WarfarinA_1.IsSelected := False;
|
|
WarfarinA_1_25.IsSelected := False;
|
|
WarfarinA_1_5.IsSelected := False;
|
|
WarfarinA_2.IsSelected := False;
|
|
WarfarinA_2_5.IsSelected := False;
|
|
WarfarinA_3.IsSelected := False;
|
|
WarfarinA_4.IsSelected := True;
|
|
WarfarinA_5.IsSelected := True;
|
|
WarfarinA_6.IsSelected := False;
|
|
WarfarinA_7_5.IsSelected := False;
|
|
WarfarinA_8.IsSelected := False;
|
|
WarfarinA_10.IsSelected := False;
|
|
WarfarinA_15.IsSelected := False;
|
|
DoseA_GiveWith.value := "Give 4mg tablet and 5mg tablet for total dose of 9mg";
|
|
Grid1Orders_List.IsReadOnly := (True, True, True, True, True, True, True, False, False, True, True, True, True, True);
|
|
|
|
elseif DoseA_value = "10mg" then
|
|
WarfarinA_0_5.IsSelected := False;
|
|
WarfarinA_1.IsSelected := False;
|
|
WarfarinA_1_25.IsSelected := False;
|
|
WarfarinA_1_5.IsSelected := False;
|
|
WarfarinA_2.IsSelected := False;
|
|
WarfarinA_2_5.IsSelected := False;
|
|
WarfarinA_3.IsSelected := False;
|
|
WarfarinA_4.IsSelected := False;
|
|
WarfarinA_5.IsSelected := False;
|
|
WarfarinA_6.IsSelected := False;
|
|
WarfarinA_7_5.IsSelected := False;
|
|
WarfarinA_8.IsSelected := False;
|
|
WarfarinA_10.IsSelected := True;
|
|
WarfarinA_15.IsSelected := False;
|
|
DoseA_GiveWith.value := "";
|
|
Grid1Orders_List.IsReadOnly := (True, True, True, True, True, True, True, True, True, True, True, True, False, True);
|
|
|
|
elseif DoseA_value = "11mg" then
|
|
WarfarinA_0_5.IsSelected := False;
|
|
WarfarinA_1.IsSelected := True;
|
|
WarfarinA_1_25.IsSelected := False;
|
|
WarfarinA_1_5.IsSelected := False;
|
|
WarfarinA_2.IsSelected := False;
|
|
WarfarinA_2_5.IsSelected := False;
|
|
WarfarinA_3.IsSelected := False;
|
|
WarfarinA_4.IsSelected := False;
|
|
WarfarinA_5.IsSelected := False;
|
|
WarfarinA_6.IsSelected := False;
|
|
WarfarinA_7_5.IsSelected := False;
|
|
WarfarinA_8.IsSelected := False;
|
|
WarfarinA_10.IsSelected := True;
|
|
WarfarinA_15.IsSelected := False;
|
|
DoseA_GiveWith.value := "Give 10mg tablet and 1mg tablet for total dose of 11mg";
|
|
Grid1Orders_List.IsReadOnly := (True, False, True, True, True, True, True, True, True, True, True, True, False, True);
|
|
|
|
elseif DoseA_value = "12mg" then
|
|
WarfarinA_0_5.IsSelected := False;
|
|
WarfarinA_1.IsSelected := False;
|
|
WarfarinA_1_25.IsSelected := False;
|
|
WarfarinA_1_5.IsSelected := False;
|
|
WarfarinA_2.IsSelected := True;
|
|
WarfarinA_2_5.IsSelected := False;
|
|
WarfarinA_3.IsSelected := False;
|
|
WarfarinA_4.IsSelected := False;
|
|
WarfarinA_5.IsSelected := False;
|
|
WarfarinA_6.IsSelected := False;
|
|
WarfarinA_7_5.IsSelected := False;
|
|
WarfarinA_8.IsSelected := False;
|
|
WarfarinA_10.IsSelected := True;
|
|
WarfarinA_15.IsSelected := False;
|
|
DoseA_GiveWith.value := "Give 10mg tablet and 2mg tablet for total dose of 12mg";
|
|
Grid1Orders_List.IsReadOnly := (True, True, True, True, False, True, True, True, True, True, True, True, False, True);
|
|
|
|
elseif DoseA_value = "12.5mg" then
|
|
WarfarinA_0_5.IsSelected := False;
|
|
WarfarinA_1.IsSelected := False;
|
|
WarfarinA_1_25.IsSelected := False;
|
|
WarfarinA_1_5.IsSelected := False;
|
|
WarfarinA_2.IsSelected := False;
|
|
WarfarinA_2_5.IsSelected := True;
|
|
WarfarinA_3.IsSelected := False;
|
|
WarfarinA_4.IsSelected := False;
|
|
WarfarinA_5.IsSelected := False;
|
|
WarfarinA_6.IsSelected := False;
|
|
WarfarinA_7_5.IsSelected := False;
|
|
WarfarinA_8.IsSelected := False;
|
|
WarfarinA_10.IsSelected := True;
|
|
WarfarinA_15.IsSelected := False;
|
|
DoseA_GiveWith.value := "Give 10mg tablet and 2.5mg tablet for total dose of 12.5mg";
|
|
Grid1Orders_List.IsReadOnly := (True, True, True, True, True, False, True, True, True, True, True, True, False, True);
|
|
|
|
elseif DoseA_value = "15mg" then
|
|
WarfarinA_0_5.IsSelected := False;
|
|
WarfarinA_1.IsSelected := False;
|
|
WarfarinA_1_25.IsSelected := False;
|
|
WarfarinA_1_5.IsSelected := False;
|
|
WarfarinA_2.IsSelected := False;
|
|
WarfarinA_2_5.IsSelected := False;
|
|
WarfarinA_3.IsSelected := False;
|
|
WarfarinA_4.IsSelected := False;
|
|
WarfarinA_5.IsSelected := False;
|
|
WarfarinA_6.IsSelected := False;
|
|
WarfarinA_7_5.IsSelected := False;
|
|
WarfarinA_8.IsSelected := False;
|
|
WarfarinA_10.IsSelected := False;
|
|
WarfarinA_15.IsSelected := True;
|
|
DoseA_GiveWith.value := "";
|
|
Grid1Orders_List.IsReadOnly := (True, True, True, True, True, True, True, True, True, True, True, True, True, False);
|
|
|
|
else
|
|
WarfarinA_0_5.IsSelected := False;
|
|
WarfarinA_1.IsSelected := False;
|
|
WarfarinA_1_25.IsSelected := False;
|
|
WarfarinA_1_5.IsSelected := False;
|
|
WarfarinA_2.IsSelected := False;
|
|
WarfarinA_2_5.IsSelected := False;
|
|
WarfarinA_3.IsSelected := False;
|
|
WarfarinA_4.IsSelected := False;
|
|
WarfarinA_5.IsSelected := False;
|
|
WarfarinA_6.IsSelected := False;
|
|
WarfarinA_7_5.IsSelected := False;
|
|
WarfarinA_8.IsSelected := False;
|
|
WarfarinA_10.IsSelected := False;
|
|
WarfarinA_15.IsSelected := False;
|
|
DoseA_GiveWith.value := "";
|
|
Grid1Orders_List.IsReadOnly := (True, True, True, True, True, True, True, True, True, True, True, True, True, True);
|
|
// Grid1Orders_List.IsReadOnly := (False, False, False, False, False, False, False, False, False, False, False, False, False, False);
|
|
|
|
endif;
|
|
endif;
|
|
|
|
|
|
If CallingField = "WarfarinDose1|2" then
|
|
If DoseB_value = "0.5mg" then
|
|
WarfarinB_0_5.IsSelected := True;
|
|
WarfarinB_1.IsSelected := False;
|
|
WarfarinB_1_25.IsSelected := False;
|
|
WarfarinB_1_5.IsSelected := False;
|
|
WarfarinB_2.IsSelected := False;
|
|
WarfarinB_2_5.IsSelected := False;
|
|
WarfarinB_3.IsSelected := False;
|
|
WarfarinB_4.IsSelected := False;
|
|
WarfarinB_5.IsSelected := False;
|
|
WarfarinB_6.IsSelected := False;
|
|
WarfarinB_7_5.IsSelected := False;
|
|
WarfarinB_8.IsSelected := False;
|
|
WarfarinB_10.IsSelected := False;
|
|
WarfarinB_15.IsSelected := False;
|
|
DoseB_GiveWith.value := "";
|
|
Grid2Orders_List.IsReadOnly := (False, True, True, True, True, True, True, True, True, True, True, True, True, True);
|
|
|
|
elseif DoseB_value = "1mg" then
|
|
WarfarinB_0_5.IsSelected := False;
|
|
WarfarinB_1.IsSelected := True;
|
|
WarfarinB_1_25.IsSelected := False;
|
|
WarfarinB_1_5.IsSelected := False;
|
|
WarfarinB_2.IsSelected := False;
|
|
WarfarinB_2_5.IsSelected := False;
|
|
WarfarinB_3.IsSelected := False;
|
|
WarfarinB_4.IsSelected := False;
|
|
WarfarinB_5.IsSelected := False;
|
|
WarfarinB_6.IsSelected := False;
|
|
WarfarinB_7_5.IsSelected := False;
|
|
WarfarinB_8.IsSelected := False;
|
|
WarfarinB_10.IsSelected := False;
|
|
WarfarinB_15.IsSelected := False;
|
|
DoseB_GiveWith.value := "";
|
|
Grid2Orders_List.IsReadOnly := (True, False, True, True, True, True, True, True, True, True, True, True, True, True);
|
|
|
|
elseif DoseB_value = "1.25mg" then
|
|
WarfarinB_0_5.IsSelected := False;
|
|
WarfarinB_1.IsSelected := False;
|
|
WarfarinB_1_25.IsSelected := True;
|
|
WarfarinB_1_5.IsSelected := False;
|
|
WarfarinB_2.IsSelected := False;
|
|
WarfarinB_2_5.IsSelected := False;
|
|
WarfarinB_3.IsSelected := False;
|
|
WarfarinB_4.IsSelected := False;
|
|
WarfarinB_5.IsSelected := False;
|
|
WarfarinB_6.IsSelected := False;
|
|
WarfarinB_7_5.IsSelected := False;
|
|
WarfarinB_8.IsSelected := False;
|
|
WarfarinB_10.IsSelected := False;
|
|
WarfarinB_15.IsSelected := False;
|
|
DoseB_GiveWith.value := "";
|
|
Grid2Orders_List.IsReadOnly := (True, True, False, True, True, True, True, True, True, True, True, True, True, True);
|
|
|
|
elseif DoseB_value = "1.5mg" then
|
|
WarfarinB_0_5.IsSelected := False;
|
|
WarfarinB_1.IsSelected := False;
|
|
WarfarinB_1_25.IsSelected := False;
|
|
WarfarinB_1_5.IsSelected := True;
|
|
WarfarinB_2.IsSelected := False;
|
|
WarfarinB_2_5.IsSelected := False;
|
|
WarfarinB_3.IsSelected := False;
|
|
WarfarinB_4.IsSelected := False;
|
|
WarfarinB_5.IsSelected := False;
|
|
WarfarinB_6.IsSelected := False;
|
|
WarfarinB_7_5.IsSelected := False;
|
|
WarfarinB_8.IsSelected := False;
|
|
WarfarinB_10.IsSelected := False;
|
|
WarfarinB_15.IsSelected := False;
|
|
DoseB_GiveWith.value := "";
|
|
Grid2Orders_List.IsReadOnly := (True, True, True, False, True, True, True, True, True, True, True, True, True, True);
|
|
|
|
|
|
elseif DoseB_value = "2mg" then
|
|
WarfarinB_0_5.IsSelected := False;
|
|
WarfarinB_1.IsSelected := False;
|
|
WarfarinB_1_25.IsSelected := False;
|
|
WarfarinB_1_5.IsSelected := False;
|
|
WarfarinB_2.IsSelected := True;
|
|
WarfarinB_2_5.IsSelected := False;
|
|
WarfarinB_3.IsSelected := False;
|
|
WarfarinB_4.IsSelected := False;
|
|
WarfarinB_5.IsSelected := False;
|
|
WarfarinB_6.IsSelected := False;
|
|
WarfarinB_7_5.IsSelected := False;
|
|
WarfarinB_8.IsSelected := False;
|
|
WarfarinB_10.IsSelected := False;
|
|
WarfarinB_15.IsSelected := False;
|
|
DoseB_GiveWith.value := "";
|
|
Grid2Orders_List.IsReadOnly := (True, True, True, True, False, True, True, True, True, True, True, True, True, True);
|
|
|
|
elseif DoseB_value = "2.5mg" then
|
|
WarfarinB_0_5.IsSelected := False;
|
|
WarfarinB_1.IsSelected := False;
|
|
WarfarinB_1_25.IsSelected := False;
|
|
WarfarinB_1_5.IsSelected := False;
|
|
WarfarinB_2.IsSelected := False;
|
|
WarfarinB_2_5.IsSelected := True;
|
|
WarfarinB_3.IsSelected := False;
|
|
WarfarinB_4.IsSelected := False;
|
|
WarfarinB_5.IsSelected := False;
|
|
WarfarinB_6.IsSelected := False;
|
|
WarfarinB_7_5.IsSelected := False;
|
|
WarfarinB_8.IsSelected := False;
|
|
WarfarinB_10.IsSelected := False;
|
|
WarfarinB_15.IsSelected := False;
|
|
DoseB_GiveWith.value := "";
|
|
Grid2Orders_List.IsReadOnly := (True, True, True, True, True, False, True, True, True, True, True, True, True, True);
|
|
|
|
elseif DoseB_value = "3mg" then
|
|
WarfarinB_0_5.IsSelected := False;
|
|
WarfarinB_1.IsSelected := False;
|
|
WarfarinB_1_25.IsSelected := False;
|
|
WarfarinB_1_5.IsSelected := False;
|
|
WarfarinB_2.IsSelected := False;
|
|
WarfarinB_2_5.IsSelected := False;
|
|
WarfarinB_3.IsSelected := True;
|
|
WarfarinB_4.IsSelected := False;
|
|
WarfarinB_5.IsSelected := False;
|
|
WarfarinB_6.IsSelected := False;
|
|
WarfarinB_7_5.IsSelected := False;
|
|
WarfarinB_8.IsSelected := False;
|
|
WarfarinB_10.IsSelected := False;
|
|
WarfarinB_15.IsSelected := False;
|
|
DoseB_GiveWith.value := "";
|
|
Grid2Orders_List.IsReadOnly := (True, True, True, True, True, True, False, True, True, True, True, True, True, True);
|
|
|
|
elseif DoseB_value = "3.5mg" then
|
|
WarfarinB_0_5.IsSelected := False;
|
|
WarfarinB_1.IsSelected := True;
|
|
WarfarinB_1_25.IsSelected := False;
|
|
WarfarinB_1_5.IsSelected := False;
|
|
WarfarinB_2.IsSelected := False;
|
|
WarfarinB_2_5.IsSelected := True;
|
|
WarfarinB_3.IsSelected := False;
|
|
WarfarinB_4.IsSelected := False;
|
|
WarfarinB_5.IsSelected := False;
|
|
WarfarinB_6.IsSelected := False;
|
|
WarfarinB_7_5.IsSelected := False;
|
|
WarfarinB_8.IsSelected := False;
|
|
WarfarinB_10.IsSelected := False;
|
|
WarfarinB_15.IsSelected := False;
|
|
DoseB_GiveWith.value := "Give 1mg tablet and 2.5mg tablet for total dose of 3.5mg";
|
|
Grid2Orders_List.IsReadOnly := (True, False, True, True, True, False, True, True, True, True, True, True, True, True);
|
|
|
|
|
|
elseif DoseB_value = "4mg" then
|
|
WarfarinB_0_5.IsSelected := False;
|
|
WarfarinB_1.IsSelected := False;
|
|
WarfarinB_1_25.IsSelected := False;
|
|
WarfarinB_1_5.IsSelected := False;
|
|
WarfarinB_2.IsSelected := False;
|
|
WarfarinB_2_5.IsSelected := False;
|
|
WarfarinB_3.IsSelected := False;
|
|
WarfarinB_4.IsSelected := True;
|
|
WarfarinB_5.IsSelected := False;
|
|
WarfarinB_6.IsSelected := False;
|
|
WarfarinB_7_5.IsSelected := False;
|
|
WarfarinB_8.IsSelected := False;
|
|
WarfarinB_10.IsSelected := False;
|
|
WarfarinB_15.IsSelected := False;
|
|
DoseB_GiveWith.value := "";
|
|
Grid2Orders_List.IsReadOnly := (True, True, True, True, True, True, True, False, True, True, True, True, True, True);
|
|
|
|
elseif DoseB_value = "4.5mg" then
|
|
WarfarinB_0_5.IsSelected := False;
|
|
WarfarinB_1.IsSelected := False;
|
|
WarfarinB_1_25.IsSelected := False;
|
|
WarfarinB_1_5.IsSelected := False;
|
|
WarfarinB_2.IsSelected := True;
|
|
WarfarinB_2_5.IsSelected := True;
|
|
WarfarinB_3.IsSelected := False;
|
|
WarfarinB_4.IsSelected := False;
|
|
WarfarinB_5.IsSelected := False;
|
|
WarfarinB_6.IsSelected := False;
|
|
WarfarinB_7_5.IsSelected := False;
|
|
WarfarinB_8.IsSelected := False;
|
|
WarfarinB_10.IsSelected := False;
|
|
WarfarinB_15.IsSelected := False;
|
|
DoseB_GiveWith.value := "Give 2mg tablet and 2.5mg tablet for total dose of 4.5mg";
|
|
Grid2Orders_List.IsReadOnly := (True, True, True, True, False, False, True, True, True, True, True, True, True, True);
|
|
|
|
elseif DoseB_value = "5mg" then
|
|
WarfarinB_0_5.IsSelected := False;
|
|
WarfarinB_1.IsSelected := False;
|
|
WarfarinB_1_25.IsSelected := False;
|
|
WarfarinB_1_5.IsSelected := False;
|
|
WarfarinB_2.IsSelected := False;
|
|
WarfarinB_2_5.IsSelected := False;
|
|
WarfarinB_3.IsSelected := False;
|
|
WarfarinB_4.IsSelected := False;
|
|
WarfarinB_5.IsSelected := True;
|
|
WarfarinB_6.IsSelected := False;
|
|
WarfarinB_7_5.IsSelected := False;
|
|
WarfarinB_8.IsSelected := False;
|
|
WarfarinB_10.IsSelected := False;
|
|
WarfarinB_15.IsSelected := False;
|
|
DoseB_GiveWith.value := "";
|
|
Grid2Orders_List.IsReadOnly := (True, True, True, True, True, True, True, True, False, True, True, True, True, True);
|
|
|
|
elseif DoseB_value = "6mg" then
|
|
WarfarinB_0_5.IsSelected := False;
|
|
WarfarinB_1.IsSelected := False;
|
|
WarfarinB_1_25.IsSelected := False;
|
|
WarfarinB_1_5.IsSelected := False;
|
|
WarfarinB_2.IsSelected := False;
|
|
WarfarinB_2_5.IsSelected := False;
|
|
WarfarinB_3.IsSelected := False;
|
|
WarfarinB_4.IsSelected := False;
|
|
WarfarinB_5.IsSelected := False;
|
|
WarfarinB_6.IsSelected := True;
|
|
WarfarinB_7_5.IsSelected := False;
|
|
WarfarinB_8.IsSelected := False;
|
|
WarfarinB_10.IsSelected := False;
|
|
WarfarinB_15.IsSelected := False;
|
|
DoseB_GiveWith.value := "";
|
|
Grid2Orders_List.IsReadOnly := (True, True, True, True, True, True, True, True, True, False, True, True, True, True);
|
|
|
|
elseif DoseB_value = "7mg" then
|
|
WarfarinB_0_5.IsSelected := False;
|
|
WarfarinB_1.IsSelected := False;
|
|
WarfarinB_1_25.IsSelected := False;
|
|
WarfarinB_1_5.IsSelected := False;
|
|
WarfarinB_2.IsSelected := True;
|
|
WarfarinB_2_5.IsSelected := False;
|
|
WarfarinB_3.IsSelected := False;
|
|
WarfarinB_4.IsSelected := False;
|
|
WarfarinB_5.IsSelected := True;
|
|
WarfarinB_6.IsSelected := False;
|
|
WarfarinB_7_5.IsSelected := False;
|
|
WarfarinB_8.IsSelected := False;
|
|
WarfarinB_10.IsSelected := False;
|
|
WarfarinB_15.IsSelected := False;
|
|
DoseB_GiveWith.value := "Give 2mg tablet and 5mg tablet for total dose of 7mg";
|
|
Grid2Orders_List.IsReadOnly := (True, True, True, True, False, True, True, True, False, True, True, True, True, True);
|
|
|
|
elseif DoseB_value = "7.5mg" then
|
|
WarfarinB_0_5.IsSelected := False;
|
|
WarfarinB_1.IsSelected := False;
|
|
WarfarinB_1_25.IsSelected := False;
|
|
WarfarinB_1_5.IsSelected := False;
|
|
WarfarinB_2.IsSelected := False;
|
|
WarfarinB_2_5.IsSelected := False;
|
|
WarfarinB_3.IsSelected := False;
|
|
WarfarinB_4.IsSelected := False;
|
|
WarfarinB_5.IsSelected := False;
|
|
WarfarinB_6.IsSelected := False;
|
|
WarfarinB_7_5.IsSelected := True;
|
|
WarfarinB_8.IsSelected := False;
|
|
WarfarinB_10.IsSelected := False;
|
|
WarfarinB_15.IsSelected := False;
|
|
DoseB_GiveWith.value := "";
|
|
Grid2Orders_List.IsReadOnly := (True, True, True, True, True, True, True, True, True, True, False, True, True, True);
|
|
|
|
elseif DoseB_value = "8mg" then
|
|
WarfarinB_0_5.IsSelected := False;
|
|
WarfarinB_1.IsSelected := False;
|
|
WarfarinB_1_25.IsSelected := False;
|
|
WarfarinB_1_5.IsSelected := False;
|
|
WarfarinB_2.IsSelected := False;
|
|
WarfarinB_2_5.IsSelected := False;
|
|
WarfarinB_3.IsSelected := False;
|
|
WarfarinB_4.IsSelected := False;
|
|
WarfarinB_5.IsSelected := False;
|
|
WarfarinB_6.IsSelected := False;
|
|
WarfarinB_7_5.IsSelected := False;
|
|
WarfarinB_8.IsSelected := True;
|
|
WarfarinB_10.IsSelected := False;
|
|
WarfarinB_15.IsSelected := False;
|
|
DoseB_GiveWith.value := "";
|
|
Grid2Orders_List.IsReadOnly := (True, True, True, True, True, True, True, True, True, True, True, False, True, True);
|
|
|
|
elseif DoseB_value = "9mg" then
|
|
WarfarinB_0_5.IsSelected := False;
|
|
WarfarinB_1.IsSelected := False;
|
|
WarfarinB_1_25.IsSelected := False;
|
|
WarfarinB_1_5.IsSelected := False;
|
|
WarfarinB_2.IsSelected := False;
|
|
WarfarinB_2_5.IsSelected := False;
|
|
WarfarinB_3.IsSelected := False;
|
|
WarfarinB_4.IsSelected := True;
|
|
WarfarinB_5.IsSelected := True;
|
|
WarfarinB_6.IsSelected := False;
|
|
WarfarinB_7_5.IsSelected := False;
|
|
WarfarinB_8.IsSelected := False;
|
|
WarfarinB_10.IsSelected := False;
|
|
WarfarinB_15.IsSelected := False;
|
|
DoseB_GiveWith.value := "Give 4mg tablet and 5mg tablet for total dose of 9mg";
|
|
Grid2Orders_List.IsReadOnly := (True, True, True, True, True, True, True, False, False, True, True, True, True, True);
|
|
|
|
elseif DoseB_value = "10mg" then
|
|
WarfarinB_0_5.IsSelected := False;
|
|
WarfarinB_1.IsSelected := False;
|
|
WarfarinB_1_25.IsSelected := False;
|
|
WarfarinB_1_5.IsSelected := False;
|
|
WarfarinB_2.IsSelected := False;
|
|
WarfarinB_2_5.IsSelected := False;
|
|
WarfarinB_3.IsSelected := False;
|
|
WarfarinB_4.IsSelected := False;
|
|
WarfarinB_5.IsSelected := False;
|
|
WarfarinB_6.IsSelected := False;
|
|
WarfarinB_7_5.IsSelected := False;
|
|
WarfarinB_8.IsSelected := False;
|
|
WarfarinB_10.IsSelected := True;
|
|
WarfarinB_15.IsSelected := False;
|
|
DoseB_GiveWith.value := "";
|
|
Grid2Orders_List.IsReadOnly := (True, True, True, True, True, True, True, True, True, True, True, True, False, True);
|
|
|
|
elseif DoseB_value = "11mg" then
|
|
WarfarinB_0_5.IsSelected := False;
|
|
WarfarinB_1.IsSelected := True;
|
|
WarfarinB_1_25.IsSelected := False;
|
|
WarfarinB_1_5.IsSelected := False;
|
|
WarfarinB_2.IsSelected := False;
|
|
WarfarinB_2_5.IsSelected := False;
|
|
WarfarinB_3.IsSelected := False;
|
|
WarfarinB_4.IsSelected := False;
|
|
WarfarinB_5.IsSelected := False;
|
|
WarfarinB_6.IsSelected := False;
|
|
WarfarinB_7_5.IsSelected := False;
|
|
WarfarinB_8.IsSelected := False;
|
|
WarfarinB_10.IsSelected := True;
|
|
WarfarinB_15.IsSelected := False;
|
|
DoseB_GiveWith.value := "Give 10mg tablet and 1mg tablet for total dose of 11mg";
|
|
Grid2Orders_List.IsReadOnly := (True, False, True, True, True, True, True, True, True, True, True, True, False, True);
|
|
|
|
elseif DoseB_value = "12mg" then
|
|
WarfarinB_0_5.IsSelected := False;
|
|
WarfarinB_1.IsSelected := False;
|
|
WarfarinB_1_25.IsSelected := False;
|
|
WarfarinB_1_5.IsSelected := False;
|
|
WarfarinB_2.IsSelected := True;
|
|
WarfarinB_2_5.IsSelected := False;
|
|
WarfarinB_3.IsSelected := False;
|
|
WarfarinB_4.IsSelected := False;
|
|
WarfarinB_5.IsSelected := False;
|
|
WarfarinB_6.IsSelected := False;
|
|
WarfarinB_7_5.IsSelected := False;
|
|
WarfarinB_8.IsSelected := False;
|
|
WarfarinB_10.IsSelected := True;
|
|
WarfarinB_15.IsSelected := False;
|
|
DoseB_GiveWith.value := "Give 10mg tablet and 2mg tablet for total dose of 12mg";
|
|
Grid2Orders_List.IsReadOnly := (True, True, True, True, False, True, True, True, True, True, True, True, False, True);
|
|
|
|
elseif DoseB_value = "12.5mg" then
|
|
WarfarinB_0_5.IsSelected := False;
|
|
WarfarinB_1.IsSelected := False;
|
|
WarfarinB_1_25.IsSelected := False;
|
|
WarfarinB_1_5.IsSelected := False;
|
|
WarfarinB_2.IsSelected := False;
|
|
WarfarinB_2_5.IsSelected := True;
|
|
WarfarinB_3.IsSelected := False;
|
|
WarfarinB_4.IsSelected := False;
|
|
WarfarinB_5.IsSelected := False;
|
|
WarfarinB_6.IsSelected := False;
|
|
WarfarinB_7_5.IsSelected := False;
|
|
WarfarinB_8.IsSelected := False;
|
|
WarfarinB_10.IsSelected := True;
|
|
WarfarinB_15.IsSelected := False;
|
|
DoseB_GiveWith.value := "Give 10mg tablet and 2.5mg tablet for total dose of 12.5mg";
|
|
Grid2Orders_List.IsReadOnly := (True, True, True, True, True, False, True, True, True, True, True, True, False, True);
|
|
|
|
elseif DoseB_value = "15mg" then
|
|
WarfarinB_0_5.IsSelected := False;
|
|
WarfarinB_1.IsSelected := False;
|
|
WarfarinB_1_25.IsSelected := False;
|
|
WarfarinB_1_5.IsSelected := False;
|
|
WarfarinB_2.IsSelected := False;
|
|
WarfarinB_2_5.IsSelected := False;
|
|
WarfarinB_3.IsSelected := False;
|
|
WarfarinB_4.IsSelected := False;
|
|
WarfarinB_5.IsSelected := False;
|
|
WarfarinB_6.IsSelected := False;
|
|
WarfarinB_7_5.IsSelected := False;
|
|
WarfarinB_8.IsSelected := False;
|
|
WarfarinB_10.IsSelected := False;
|
|
WarfarinB_15.IsSelected := True;
|
|
DoseB_GiveWith.value := "";
|
|
Grid2Orders_List.IsReadOnly := (True, True, True, True, True, True, True, True, True, True, True, True, True, False);
|
|
|
|
else
|
|
WarfarinB_0_5.IsSelected := False;
|
|
WarfarinB_1.IsSelected := False;
|
|
WarfarinB_1_25.IsSelected := False;
|
|
WarfarinB_1_5.IsSelected := False;
|
|
WarfarinB_2.IsSelected := False;
|
|
WarfarinB_2_5.IsSelected := False;
|
|
WarfarinB_3.IsSelected := False;
|
|
WarfarinB_4.IsSelected := False;
|
|
WarfarinB_5.IsSelected := False;
|
|
WarfarinB_6.IsSelected := False;
|
|
WarfarinB_7_5.IsSelected := False;
|
|
WarfarinB_8.IsSelected := False;
|
|
WarfarinB_10.IsSelected := False;
|
|
WarfarinB_15.IsSelected := False;
|
|
DoseB_GiveWith.value := "";
|
|
// Grid2Orders_List.IsReadOnly := (False, False, False, False, False, False, False, False, False, False, False, False, False, False);
|
|
Grid2Orders_List.IsReadOnly := (True, True, True, True, True, True, True, True, True, True, True, True, True, True);
|
|
|
|
endif;
|
|
endif;
|
|
|
|
if AltDaysDoseA.value is not null then
|
|
DoseADays.value := AltDaysDoseA_list;
|
|
StartDay1A := "NO";
|
|
StartDay2A := "NO";
|
|
StartDay3A := "NO";
|
|
StartDay4A := "NO";
|
|
StartDay5A := "NO";
|
|
StartDay6A := "NO";
|
|
StartDay7A := "NO";
|
|
ListOfDaysA := call str_parse with DoseADays.value, ",";
|
|
for r in 1 seqto (count ListOfDaysA) do
|
|
|
|
If DayofWeek1 = ListOfDaysA [r] then
|
|
StartDay1A := "YES";
|
|
elseif DayofWeek2 = ListOfDaysA [r] then
|
|
StartDay2A := "Yes";
|
|
elseif DayofWeek3 = ListOfDaysA [r] then
|
|
StartDay3A := "Yes";
|
|
elseif DayofWeek4 = ListOfDaysA [r] then
|
|
StartDay4A := "Yes";
|
|
elseif DayofWeek5 = ListOfDaysA [r] then
|
|
StartDay5A := "Yes";
|
|
elseif DayofWeek6 = ListOfDaysA [r] then
|
|
StartDay6A := "Yes";
|
|
elseif DayofWeek7 = ListOfDaysA [r] then
|
|
StartDay7A := "Yes";
|
|
endif;
|
|
enddo;
|
|
endif;
|
|
|
|
|
|
if AltDaysDoseB.value is not null then
|
|
DoseBDays.value := AltDaysDoseB_list;
|
|
StartDay1B := "NO";
|
|
StartDay2B := "NO";
|
|
StartDay3B := "NO";
|
|
StartDay4B := "NO";
|
|
StartDay5B := "NO";
|
|
StartDay6B := "NO";
|
|
StartDay7B := "NO";
|
|
|
|
ListOfDaysB := call str_parse with DoseBDays.value, ",";
|
|
|
|
for r in 1 seqto (count ListOfDaysB) do
|
|
|
|
If DayofWeek1 = ListOfDaysB [r] then
|
|
StartDay1B := "Yes";
|
|
elseif DayofWeek2 = ListOfDaysB [r] then
|
|
StartDay2B := "Yes";
|
|
elseif DayofWeek3 = ListOfDaysB [r] then
|
|
StartDay3B := "Yes";
|
|
elseif DayofWeek4 = ListOfDaysB [r] then
|
|
StartDay4B := "Yes";
|
|
elseif DayofWeek5 = ListOfDaysB [r] then
|
|
StartDay5B := "Yes";
|
|
elseif DayofWeek6 = ListOfDaysB [r] then
|
|
StartDay6B := "Yes";
|
|
elseif DayofWeek7 = ListOfDaysB [r] then
|
|
StartDay7B := "Yes";
|
|
endif;
|
|
enddo;
|
|
|
|
else
|
|
DoseBDays.value := "None";
|
|
endif;
|
|
|
|
|
|
If StartDay1A = "Yes" then
|
|
DoseAStartDate.value := Thistime;
|
|
elseif StartDay2A = "Yes" then
|
|
DoseAStartDate.value := Thistime + 1 day;
|
|
elseif StartDay3A = "Yes" then
|
|
DoseAStartDate.value := Thistime + 2 day;
|
|
elseif StartDay4A = "Yes" then
|
|
DoseAStartDate.value := Thistime + 3 day;
|
|
elseif StartDay5A = "Yes" then
|
|
DoseAStartDate.value := Thistime + 4 day;
|
|
elseif StartDay6A = "Yes" then
|
|
DoseAStartDate.value := Thistime + 5 day;
|
|
elseif StartDay7A = "Yes" then
|
|
DoseAStartDate.value := Thistime + 6 day;
|
|
endif;
|
|
|
|
|
|
|
|
If StartDay1B = "Yes" then
|
|
DoseBStartDate.value := Thistime;
|
|
elseif StartDay2B = "Yes" then
|
|
DoseBStartDate.value := Thistime + 1 day;
|
|
elseif StartDay3B = "Yes" then
|
|
DoseBStartDate.value := Thistime + 2 day;
|
|
elseif StartDay4B = "Yes" then
|
|
DoseBStartDate.value := Thistime + 3 day;
|
|
elseif StartDay5B = "Yes" then
|
|
DoseBStartDate.value := Thistime + 4 day;
|
|
elseif StartDay6B = "Yes" then
|
|
DoseBStartDate.value := Thistime + 5 day;
|
|
elseif StartDay7B = "Yes" then
|
|
DoseBStartDate.value := Thistime + 6 day;
|
|
endif;
|
|
|
|
// If (AltDaysDoseB.value is null and AltDaysDoseA.value is null and Med_Selected = True and Med_Selected2 = True) then
|
|
If (AltDaysDoseB.value is null and AltDaysDoseA.value is null and Frequency_val.FrequencySummary is not null
|
|
and Frequency2_val.FrequencySummary is not null and DoseA.Value is not null and DoseB.Value is not null) then
|
|
|
|
If DailyFreq.value = "QHS" and DailyFreq2.value = "Once" then
|
|
DoseAStartDate.value := Thistime + 1 day;
|
|
DoseBStartDate.value := Thistime;
|
|
DoseAStartDateFmt := (extract month DoseAStartDate.value) formatted with "%02d"
|
|
|| "-" || (extract day DoseAStartDate.value) formatted with "%02d" || "-"
|
|
|| (extract year DoseAStartDate.value) formatted with "%04d" ;
|
|
dialogmsg := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Warfarin scheduled to be given "||DailyFreq2.value ||" and then " || DailyFreq.value ||" starting on " || DoseAStartDateFmt
|
|
||".\n\n Select {{{SINGLE-QUOTE}}}Yes{{{SINGLE-QUOTE}}} to accept this schedule. \n\n Select {{{SINGLE-QUOTE}}}No{{{SINGLE-QUOTE}}} to start the "||DailyFreq.value ||" order today." ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
|
|
if((dialogmsg as string) = "No") then
|
|
DoseAStartDate.value := Thistime;
|
|
endif;
|
|
Elseif
|
|
DailyFreq.value = "QHS" and DailyFreq2.value = "STAT" then
|
|
DoseAStartDate.value := Thistime + 1 day;
|
|
DoseBStartDate.value := Thistime;
|
|
DoseAStartDateFmt := (extract month DoseAStartDate.value) formatted with "%02d"
|
|
|| "-" || (extract day DoseAStartDate.value) formatted with "%02d" || "-"
|
|
|| (extract year DoseAStartDate.value) formatted with "%04d" ;
|
|
dialogmsg := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Warfarin scheduled to be given "||DailyFreq2.value ||" and then " || DailyFreq.value ||" starting on " || DoseAStartDateFmt
|
|
||".\n\n Select {{{SINGLE-QUOTE}}}Yes{{{SINGLE-QUOTE}}} to accept this schedule. \n\n Select {{{SINGLE-QUOTE}}}No{{{SINGLE-QUOTE}}} to start the "||DailyFreq.value ||" order today." ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
|
|
if((dialogmsg as string) = "No") then
|
|
DoseAStartDate.value := Thistime;
|
|
endif;
|
|
Elseif
|
|
DailyFreq.value = "QHS" and DailyFreq2.value = "Now" then
|
|
DoseAStartDate.value := Thistime + 1 day;
|
|
DoseBStartDate.value := Thistime;
|
|
DoseAStartDateFmt := (extract month DoseAStartDate.value) formatted with "%02d"
|
|
|| "-" || (extract day DoseAStartDate.value) formatted with "%02d" || "-"
|
|
|| (extract year DoseAStartDate.value) formatted with "%04d" ;
|
|
dialogmsg := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Warfarin scheduled to be given "||DailyFreq2.value ||" and then " || DailyFreq.value ||" starting on " || DoseAStartDateFmt
|
|
||".\n\n Select {{{SINGLE-QUOTE}}}Yes{{{SINGLE-QUOTE}}} to accept this schedule. \n\n Select {{{SINGLE-QUOTE}}}No{{{SINGLE-QUOTE}}} to start the "||DailyFreq.value ||" order today." ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
|
|
if((dialogmsg as string) = "No") then
|
|
DoseAStartDate.value := Thistime;
|
|
endif;
|
|
Elseif
|
|
DailyFreq.value = "Every Other Day" and DailyFreq2.value = "Once" then
|
|
DoseAStartDate.value := Thistime + 2 day;
|
|
DoseBStartDate.value := Thistime;
|
|
DoseAStartDateFmt := (extract month DoseBStartDate.value) formatted with "%02d"
|
|
|| "-" || (extract day DoseBStartDate.value) formatted with "%02d" || "-"
|
|
|| (extract year DoseBStartDate.value) formatted with "%04d" ;
|
|
dialogmsg := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Warfarin scheduled to be given "||DailyFreq2.value ||" and then " || DailyFreq.value ||" starting on " || DoseBStartDateFmt
|
|
||".\n\n Select {{{SINGLE-QUOTE}}}Yes{{{SINGLE-QUOTE}}} to accept this schedule. \n\n Select {{{SINGLE-QUOTE}}}No{{{SINGLE-QUOTE}}} to start the "||DailyFreq.value ||" order tomorrow." ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
|
|
if((dialogmsg as string) = "No") then
|
|
DoseAStartDate.value := Thistime + 1 day;
|
|
endif;
|
|
Elseif
|
|
DailyFreq.value = "Every Other Day" and DailyFreq2.value = "STAT" then
|
|
DoseAStartDate.value := Thistime + 2 day;
|
|
DoseBStartDate.value := Thistime;
|
|
DoseAStartDateFmt := (extract month DoseBStartDate.value) formatted with "%02d"
|
|
|| "-" || (extract day DoseBStartDate.value) formatted with "%02d" || "-"
|
|
|| (extract year DoseBStartDate.value) formatted with "%04d" ;
|
|
dialogmsg := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Warfarin scheduled to be given "||DailyFreq2.value ||" and then " || DailyFreq.value ||" starting on " || DoseBStartDateFmt
|
|
||".\n\n Select {{{SINGLE-QUOTE}}}Yes{{{SINGLE-QUOTE}}} to accept this schedule. \n\n Select {{{SINGLE-QUOTE}}}No{{{SINGLE-QUOTE}}} to start the "||DailyFreq.value ||" order tomorrow." ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
|
|
if((dialogmsg as string) = "No") then
|
|
DoseAStartDate.value := Thistime + 1 day;
|
|
endif;
|
|
Elseif
|
|
DailyFreq.value = "Every Other Day" and DailyFreq2.value = "Now" then
|
|
DoseAStartDate.value := Thistime + 2 day;
|
|
DoseBStartDate.value := Thistime;
|
|
DoseAStartDateFmt := (extract month DoseBStartDate.value) formatted with "%02d"
|
|
|| "-" || (extract day DoseBStartDate.value) formatted with "%02d" || "-"
|
|
|| (extract year DoseBStartDate.value) formatted with "%04d" ;
|
|
dialogmsg := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Warfarin scheduled to be given "||DailyFreq2.value ||" and then " || DailyFreq.value ||" starting on " || DoseBStartDateFmt
|
|
||".\n\n Select {{{SINGLE-QUOTE}}}Yes{{{SINGLE-QUOTE}}} to accept this schedule. \n\n Select {{{SINGLE-QUOTE}}}No{{{SINGLE-QUOTE}}} to start the "||DailyFreq.value ||" order tomorrow." ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
|
|
if((dialogmsg as string) = "No") then
|
|
DoseAStartDate.value := Thistime + 1 day;
|
|
endif;
|
|
|
|
Elseif
|
|
DailyFreq.value = "STAT" and DailyFreq2.value = "QHS" then
|
|
DoseAStartDate.value := Thistime;
|
|
DoseBStartDate.value := Thistime + 1 day;
|
|
DoseBStartDateFmt := (extract month DoseBStartDate.value) formatted with "%02d"
|
|
|| "-" || (extract day DoseBStartDate.value) formatted with "%02d" || "-"
|
|
|| (extract year DoseBStartDate.value) formatted with "%04d" ;
|
|
dialogmsg := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Warfarin scheduled to be given "||DailyFreq.value ||" and then " || DailyFreq2.value ||" starting on " || DoseBStartDateFmt
|
|
||".\n\n Select {{{SINGLE-QUOTE}}}Yes{{{SINGLE-QUOTE}}} to accept this schedule. \n\n Select {{{SINGLE-QUOTE}}}No{{{SINGLE-QUOTE}}} to start the "||DailyFreq2.value ||" order today." ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
|
|
if((dialogmsg as string) = "No") then
|
|
DoseBStartDate.value := Thistime;
|
|
endif;
|
|
Elseif
|
|
DailyFreq.value = "Now" and DailyFreq2.value = "QHS" then
|
|
DoseAStartDate.value := Thistime;
|
|
DoseBStartDate.value := Thistime + 1 day;
|
|
DoseBStartDateFmt := (extract month DoseBStartDate.value) formatted with "%02d"
|
|
|| "-" || (extract day DoseBStartDate.value) formatted with "%02d" || "-"
|
|
|| (extract year DoseBStartDate.value) formatted with "%04d" ;
|
|
dialogmsg := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Warfarin scheduled to be given "||DailyFreq.value ||" and then " || DailyFreq2.value ||" starting on " || DoseBStartDateFmt
|
|
||".\n\n Select {{{SINGLE-QUOTE}}}Yes{{{SINGLE-QUOTE}}} to accept this schedule. \n\n Select {{{SINGLE-QUOTE}}}No{{{SINGLE-QUOTE}}} to start the "||DailyFreq2.value ||" order today." ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
|
|
if((dialogmsg as string) = "No") then
|
|
DoseBStartDate.value := Thistime;
|
|
endif;
|
|
Elseif
|
|
DailyFreq.value = "Once" and DailyFreq2.value = "QHS" then
|
|
DoseAStartDate.value := Thistime;
|
|
DoseBStartDate.value := Thistime + 1 day;
|
|
DoseBStartDateFmt := (extract month DoseBStartDate.value) formatted with "%02d"
|
|
|| "-" || (extract day DoseBStartDate.value) formatted with "%02d" || "-"
|
|
|| (extract year DoseBStartDate.value) formatted with "%04d" ;
|
|
dialogmsg := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Warfarin scheduled to be given "||DailyFreq.value ||" and then " || DailyFreq2.value ||" starting on " || DoseBStartDateFmt
|
|
||".\n\n Select {{{SINGLE-QUOTE}}}Yes{{{SINGLE-QUOTE}}} to accept this schedule. \n\n Select {{{SINGLE-QUOTE}}}No{{{SINGLE-QUOTE}}} to start the "||DailyFreq2.value ||" order today." ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
|
|
if((dialogmsg as string) = "No") then
|
|
DoseBStartDate.value := Thistime;
|
|
endif;
|
|
Elseif
|
|
DailyFreq.value = "STAT" and DailyFreq2.value = "Every Other Day" then
|
|
DoseAStartDate.value := Thistime;
|
|
DoseBStartDate.value := Thistime + 2 day;
|
|
DoseBStartDateFmt := (extract month DoseBStartDate.value) formatted with "%02d"
|
|
|| "-" || (extract day DoseBStartDate.value) formatted with "%02d" || "-"
|
|
|| (extract year DoseBStartDate.value) formatted with "%04d" ;
|
|
dialogmsg := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Warfarin scheduled to be given "||DailyFreq.value ||" and then " || DailyFreq2.value ||" starting on " || DoseBStartDateFmt
|
|
||".\n\n Select {{{SINGLE-QUOTE}}}Yes{{{SINGLE-QUOTE}}} to accept this schedule. \n\n Select {{{SINGLE-QUOTE}}}No{{{SINGLE-QUOTE}}} to start the "||DailyFreq2.value ||" order tomorrow." ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
|
|
if((dialogmsg as string) = "No") then
|
|
DoseBStartDate.value := Thistime + 1 day;
|
|
endif;
|
|
Elseif
|
|
DailyFreq.value = "Now" and DailyFreq2.value = "Every Other Day" then
|
|
DoseAStartDate.value := Thistime;
|
|
DoseBStartDate.value := Thistime + 2 day;
|
|
DoseBStartDateFmt := (extract month DoseBStartDate.value) formatted with "%02d"
|
|
|| "-" || (extract day DoseBStartDate.value) formatted with "%02d" || "-"
|
|
|| (extract year DoseBStartDate.value) formatted with "%04d" ;
|
|
dialogmsg := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Warfarin scheduled to be given "||DailyFreq.value ||" and then " || DailyFreq2.value ||" starting on " || DoseBStartDateFmt
|
|
||".\n\n Select {{{SINGLE-QUOTE}}}Yes{{{SINGLE-QUOTE}}} to accept this schedule. \n\n Select {{{SINGLE-QUOTE}}}No{{{SINGLE-QUOTE}}} to start the "||DailyFreq2.value ||" order tomorrow." ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
|
|
if((dialogmsg as string) = "No") then
|
|
DoseBStartDate.value := Thistime + 1 day;
|
|
endif;
|
|
Elseif
|
|
DailyFreq.value = "Once" and DailyFreq2.value = "Every Other Day" then
|
|
DoseAStartDate.value := Thistime;
|
|
DoseBStartDate.value := Thistime + 2 day;
|
|
DoseBStartDateFmt := (extract month DoseBStartDate.value) formatted with "%02d"
|
|
|| "-" || (extract day DoseBStartDate.value) formatted with "%02d" || "-"
|
|
|| (extract year DoseBStartDate.value) formatted with "%04d" ;
|
|
// breakmsg := DoseAStartDate.value || " and " || DoseBStartDateFmt; break;
|
|
dialogmsg := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Warfarin scheduled to be given "||DailyFreq.value ||" and then " || DailyFreq2.value ||" starting on " || DoseBStartDateFmt
|
|
||".\n\n Select {{{SINGLE-QUOTE}}}Yes{{{SINGLE-QUOTE}}} to accept this schedule. \n\n Select {{{SINGLE-QUOTE}}}No{{{SINGLE-QUOTE}}} to start the "||DailyFreq2.value ||" order tomorrow." ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
|
|
if((dialogmsg as string) = "No") then
|
|
DoseBStartDate.value := Thistime + 1 day;
|
|
endif;
|
|
Else
|
|
|
|
DoseAStartDate.value := Thistime;
|
|
DoseBStartDate.value := Thistime;
|
|
Endif;
|
|
Endif;
|
|
// If DoseA_value is not null then
|
|
If (CallingField = "MultiOrderGrid|1" or Callingfield = "MultiOrderGrid|4" or CallingField = "WarfarinDose1|1" or CallingField = "WarfarinDose1|2") then
|
|
|
|
If Med_Was_Selected = "yes" or DoseA.value is not null or DoseB.value is not null
|
|
|
|
then
|
|
Lab_Daily_Order_List.IsReadOnly := (True,True,True,True,True);
|
|
Lab_Daily_Order_List.IsSelected := (True,True,True,True,True);
|
|
Daily_Reminder.IsReadOnly := True;
|
|
Daily_Reminder.IsSelected := True;
|
|
|
|
else
|
|
Lab_Daily_Order_List.IsSelected := (False,False,False,False,False);
|
|
Daily_Reminder.IsSelected := False;
|
|
endif;
|
|
endif;
|
|
|
|
|
|
If CallingField = "RequestedDate|1" then
|
|
//Set the four remaining order set date fields based on the starting date
|
|
|
|
yr := extract year now;
|
|
mn := extract month now; if mn < 10 then mn := "0" || mn; endif;
|
|
dd := extract day now; if dd < 10 then dd := "0" || dd; endif;
|
|
today:= yr || "-" || mn || "-" || dd || "T00:00:00";
|
|
|
|
tomorrow := (today as time) +1 day;
|
|
tom_list := call str_parse with tomorrow, " ";
|
|
tom_dte := first(tom_list);
|
|
lesstomorrow := primreqdate.value < tomorrow;
|
|
|
|
If lesstomorrow = true then
|
|
|
|
this_communication.DisplayForm := "Yes";
|
|
this_communication.Message := "You may not enter a date earlier than tomorrow (" || tom_dte || ")";
|
|
this_communication.MessageType := "Error";
|
|
|
|
primreqdate.value := tomorrow;
|
|
endif;
|
|
|
|
startdate:= primreqdate.value;
|
|
Order_From.value := primreqdate.value;
|
|
secreqdate.value := startdate + 1 days;
|
|
thirdreqdate.value := startdate + 2 days;
|
|
fourthreqdate.value := startdate + 3 days;
|
|
fifthreqdate.value := startdate + 4 days;
|
|
Order_To.value := fifthreqdate.value;
|
|
|
|
prx_comment.value:= primreqdate.value || "," || secreqdate.value || "," || thirdreqdate.value || "," ||
|
|
fourthreqdate.value || "," || fifthreqdate.value;
|
|
|
|
endif;
|
|
|
|
elseif CallingEvent = "FormOpen" then
|
|
// Grid1Orders_List.IsReadOnly := (True, True, True, True, True, True, True, True, True, True, True, True, True, True);
|
|
// Grid2Orders_List.IsReadOnly := (True, True, True, True, True, True, True, True, True, True, True, True, True, True);
|
|
Lab_Daily_Order_List.IsReadOnly := (True,True,True,True,True);
|
|
Daily_Reminder.IsReadOnly := True;
|
|
|
|
// Hold Session - Date handling. Instead of date (T is found) or(T+(#) is found)
|
|
PlusLocation := FIND "+" IN STRING primreqdate.value;
|
|
TLocation := FIND "T" IN STRING primreqdate.value;
|
|
If TLocation = 1 and PlusLocation = 0 then primreqdate.value := (now as time); endif;
|
|
If PlusLocation > 0 then
|
|
PlusDays := SUBSTRING 1 CHARACTERS STARTING AT LENGTH OF primreqdate.value FROM primreqdate.value ;
|
|
primreqdate.value := (now as time) +(PlusDays as number) day;
|
|
endif;
|
|
|
|
startdate:= primreqdate.value;
|
|
Order_From.value := primreqdate.value;
|
|
secreqdate.value := startdate + 1 days;
|
|
thirdreqdate.value := startdate + 2 days;
|
|
fourthreqdate.value := startdate + 3 days;
|
|
fifthreqdate.value := startdate + 4 days;
|
|
Order_To.value := fifthreqdate.value;
|
|
|
|
prx_comment.value:= primreqdate.value || "," || secreqdate.value || "," || thirdreqdate.value || "," ||
|
|
fourthreqdate.value || "," || fifthreqdate.value;
|
|
|
|
|
|
elseif CallingEvent = "FormClose" then
|
|
|
|
|
|
// DW 12.11.2008 Check for cutoff time and change priorty of Baseline order to Today if before. Leave as Stat if after
|
|
|
|
modifiedstarttime := last of (field_list where field_list.DataItemName = "requestedtime" and field_List.Control_MultiFieldOccNum = 2);
|
|
modifiedstarttimevalue :=modifiedstarttime.Value;
|
|
|
|
hr := extract hour now; if hr < 10 then hr := "0" || hr; endif;
|
|
mi := extract minute now; if mi < 10 then mi := "0" || mi; endif;
|
|
|
|
currtime := hr || mi;
|
|
cutofftime := "1900";
|
|
if (currtime as number) > (cutofftime as number)
|
|
then modifiedstarttimevalue.ReqTimeCode := "Stat"; /* it is after the cutoff time */
|
|
else modifiedstarttimevalue.ReqTimeCode := "Today"; /* it is before the cutoff time */
|
|
endif;
|
|
/*
|
|
this_communication.DisplayForm := "Yes";
|
|
this_communication.Message := "THIS MESSAGE IS FOR TESTING PURPOSES ONLY \n\n\n\n" ||
|
|
"the cutoff time is " || cutofftime || "\n\n\n" ||
|
|
"the current time is " || currtime || "\n\n\n" ||
|
|
" " || "\n\n\n"
|
|
;
|
|
this_communication.MessageType := "Informational";
|
|
*/
|
|
// DW 12.11.2008 End of new code
|
|
|
|
|
|
If Med_Was_Selected = "yes" then
|
|
|
|
// Find if there is a baseline INR in the past 24 hours and if one is not found, check the baseline box
|
|
|
|
If Baseline_INR.IsSelected = false then
|
|
|
|
INR_Val := read last
|
|
{"Select top 1 o.Name"
|
|
|| " From cv3order as o with (nolock) "
|
|
|| " join cv3ordercatalogmasteritem as ocmi with (nolock) "
|
|
|| " on ocmi.guid = o.ordercatalogmasteritemguid "
|
|
|| " and ocmi.active = 1 "
|
|
|| " and ocmi.name in ({{{SINGLE-QUOTE}}}Prothrombin/INR{{{SINGLE-QUOTE}}}) "
|
|
|| " where o.clientguid = " || SQL(client_guid)
|
|
|| " and o.chartguid = " || SQL(chart_guid)
|
|
|| " and o.requesteddtm >= (DATEADD(hour, -24, getdate())) "
|
|
|| " and o.requesteddtm <= getdate() "
|
|
|| " and o.OrderStatusLevelNum > 15 "
|
|
|| " and o.OrderStatusLevelNum not in (69, 70) "
|
|
|| " order by o.requesteddtm desc "
|
|
};
|
|
|
|
If not(exists(INR_Val)) then Baseline_INR.ISSelected :=True; endif;
|
|
|
|
endif;
|
|
|
|
// Now find if there are already INR{{{SINGLE-QUOTE}}}S ordered in the future...
|
|
// Reset the check boxes if they are.
|
|
|
|
formlist := call str_parse with prx_comment.value, ",";
|
|
end_date := fifthreqdate.value + 1 day;
|
|
|
|
INR_daily_dates :=();
|
|
INR_daily_dates := read
|
|
|
|
{"Select distinct top 20 convert(char(6),o.requesteddtm,110) +convert(char(4), o.requesteddtm,20) + {{{SINGLE-QUOTE}}} 00:00:00{{{SINGLE-QUOTE}}}"
|
|
|| " From cv3order as o with (nolock) "
|
|
|| " join cv3ordercatalogmasteritem as ocmi with (nolock) "
|
|
|| " on ocmi.guid = o.ordercatalogmasteritemguid "
|
|
|| " and ocmi.active = 1 "
|
|
|| " and ocmi.name = {{{SINGLE-QUOTE}}}Prothrombin/INR{{{SINGLE-QUOTE}}}"
|
|
|| " where o.clientguid = " || SQL(client_guid)
|
|
|| " and o.chartguid = " || SQL(chart_guid)
|
|
|| " and o.requesteddtm >= " || SQL(primreqdate.value)
|
|
|| " and o.requesteddtm < " || SQL(end_date)
|
|
|| " and o.OrderStatusLevelNum > 15 "
|
|
|| " and o.OrderStatusLevelNum not in (69, 70) "
|
|
|| " and o.orderstatuscode <> {{{SINGLE-QUOTE}}}MASTR{{{SINGLE-QUOTE}}} "};
|
|
|
|
If exist(INR_daily_dates) then
|
|
|
|
Reset_INR_Grid:= ();
|
|
singledate := "";
|
|
index_list := 1 seqto (count formlist) ;
|
|
|
|
|
|
for J in index_list do
|
|
singledate := formlist[J];
|
|
Reset_INR_Grid:= Reset_INR_Grid, singledate not in INR_daily_dates;
|
|
enddo;
|
|
|
|
Lab_Daily_Order_List.IsSelected := (Reset_INR_Grid);
|
|
|
|
/*
|
|
this_communication.DisplayForm := "Yes";
|
|
this_communication.Message := "THIS MESSAGE IS FOR TESTING PURPOSES ONLY \n\n\n\n" ||
|
|
"Did you see any changes to the INR Grid check boxes? \n\n" ||
|
|
"SQL returned dates for INRS: " || INR_daily_dates || "\n\n" ||
|
|
"GRID INR orders with these dates should have been unchecked by this MLM!!!" || "\n\n\n"
|
|
;
|
|
this_communication.MessageType := "Informational";
|
|
*/
|
|
|
|
endif; //If exist
|
|
|
|
else
|
|
|
|
this_communication.DisplayForm := "Yes";
|
|
this_communication.Message := "Please enter a Warfarin Order.\n\n" ;
|
|
this_communication.MessageType := "Error";
|
|
|
|
endif; // 1 of 2 heparin boxes checked
|
|
Med_Order_Mgt := mlm {{{SINGLE-QUOTE}}}FORM_SET_Rx_Medication_Order_Mgt{{{SINGLE-QUOTE}}};
|
|
(this_communication, this_form) := call Med_Order_Mgt with this_communication, this_form, client_info_obj;
|
|
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:
|