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: