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

1945 lines
96 KiB
Plaintext
Raw Permalink Blame History

maintenance:
title: Create Now And Then Orders;;
mlmname: FORM_NOW_AND_THEN;;
arden: version 2;;
version: 5.00;;
institution: St Clair Now And Then MLM;;
author: Robert Spence, Eclipsys Corp Ext 7461;;
specialist: Teresa Spicuzza, Eclipsys Corp Ext 7448;;
date: 2010-02-09;;
validation: testing;;
library:
purpose: Set Scheduled time to the next hour and gray out when user picks {{{SINGLE-QUOTE}}}Start Now{{{SINGLE-QUOTE}}} if in the start and then list
Note: SCH Hospital Policy is to give now dose within the hour.
Rounding to the next hour is approved and leads to better scheduling times.
If in Admin and then list, flag for on order submit MLM to create extra order using 5.0 objects plus
This MLM is also called from Form_Med_Irreg_Sched and FORM_HOLDORDER_REQUESTEDTIME
;;
explanation: This MLM is called from Zosyn and other forms for meds
Form: PRX_ljBnPrDsUa
Change history
09.24.2010 DW Added routine for Hold session date handling
11.3.2010 TMS Added logic for hold session to remove stat frequency and change priority to scheduled/start time
02.24.2012 JP Added achanawala to user list to review mlm logic
01.30.2013 TMS MLM Revised to provide now dosing for non QxH orders. Previous version only used for interval dosing
now a separate now order is generated and the order it is called from is scheduled for the next
appropriate dose for frequency with static admin times, i.e, BID, TID, etc. CSR 26926
08.12.2013 TMS Added call to Form_RX_ORM_Instruct to populate fields for ORM instructions. CSR 31639
09.16.2013 TMS Modified alert message
10.08.2013 TMS Modified to enable now and then checkbox to all physcians an physician extenders. Changed the schedules
with hourly intervals (QnH) to behave the same as the static schedules (BID) by creating a separate now
order and scheduling the ongoing order for the correct time. CSR 26926
11.07.2013 TMS Commented out the users who can use the "now and then" functionality to allow nurses,
secretaries and pharmacists access. CSR 26926
02.21.2104 TMS Update MLM to include Stat and Then functionality, enable use with PRN Orders. Added hidden field on forms to set
to true when addl dose is created from MLM to eliminate user rechecking box upon reopening order and creating
another now/stat order. Updated one time/day frequency logic to only present next dose pop up box
when present time is past scheduled time of the day for the selected frequency. CSR 31883
02.21.2014 JML Modified MLM to use Total Doses UDDI to populate StopAfter as requested by PRISM CSR 31883
12.10.2014 TMS Added mlm call to FORM_Rx_HazWaste_DispInstruct on form open. CSR 31995
05.11.2015 TMS Added mlm call to FORM_RX_Stop_Date{{{SINGLE-QUOTE}}} for orders scheduled as Pre Op CSR 30589
and Added PRX_ResetDiluent as a new field to get passed to SCH_Now_and_Then_Generate_Order HD1663579
11.11.2015 TMS Added mlm call to FORM_ID_RepeatOrders_Rx if order name = "MethylPREDNISolone 4mg Dose Pak Tab" HD1855646
08.07.2017 SZ CSR #31162: Neonatal Morphine Dose/Volume Label (added section to call MLM: FORM_RX_NEONATAL_MORPHINE_LABEL)
11.09.2017 SZ CSR #33689: CPOE-VTE auto schedule (Added triggers to call mlm FORM_VTE_SCHEDULING)
;;
keywords: Called MLMs, Form fields, Now and Then
;;
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;
log_execution_info := false;
standard_libs := MLM {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
SCH_NOW_AND_THEN_FREQUENCY := MLM {{{SINGLE-QUOTE}}}SCH_NOW_AND_THEN_FREQUENCY{{{SINGLE-QUOTE}}};
SCH_NOW_AND_THEN_GENERATE_ORDER := MLM {{{SINGLE-QUOTE}}}SCH_NOW_AND_THEN_GENERATE_ORDER{{{SINGLE-QUOTE}}};
multidosemlm:= MLM {{{SINGLE-QUOTE}}}Form_Worx_Item_code_Per_Dose{{{SINGLE-QUOTE}}};
WorxRoute:= MLM {{{SINGLE-QUOTE}}}FORM_POPULATE_WORXROUTE_WITH_ORDERROUTECODE{{{SINGLE-QUOTE}}};
LovenoxCalc := MLM {{{SINGLE-QUOTE}}}Form_Lovenox_CalcDose_Simple{{{SINGLE-QUOTE}}};
LovenoxCalcCrCl := MLM {{{SINGLE-QUOTE}}}Form_Lovenox_Dose_calc{{{SINGLE-QUOTE}}};
HoldOrders := MLM {{{SINGLE-QUOTE}}}Form_HoldOrder_RequestedTime{{{SINGLE-QUOTE}}};
VancomycinCalc := MLM {{{SINGLE-QUOTE}}}Form_Vancomycin_WtBased{{{SINGLE-QUOTE}}};
HaloperidolOrders := MLM {{{SINGLE-QUOTE}}}Form_Haloperidol_IV_Orders{{{SINGLE-QUOTE}}};
MedicationReason := MLM {{{SINGLE-QUOTE}}}Form_RX_ORM_Instruct{{{SINGLE-QUOTE}}};
//*** CSR 31883 Change
PediatricDosing := MLM {{{SINGLE-QUOTE}}}FORM_RX_PEDIATRIC_ACETAMINOPHEN{{{SINGLE-QUOTE}}};
DisposalInstruct := MLM {{{SINGLE-QUOTE}}}FORM_Rx_HazWaste_DispInstruct{{{SINGLE-QUOTE}}};
PreopStopAfter := MLM {{{SINGLE-QUOTE}}}FORM_RX_Stop_Date{{{SINGLE-QUOTE}}};
RepeatOrders := MLM {{{SINGLE-QUOTE}}}FORM_ID_RepeatOrders_Rx{{{SINGLE-QUOTE}}};
NeonatalMorphineLabel:= MLM {{{SINGLE-QUOTE}}}FORM_RX_NEONATAL_MORPHINE_LABEL{{{SINGLE-QUOTE}}}; // SZ CSR #31162 - Neonatal Morphine Dose/Volume Label
//CSR 33689 SZ Change
VTE_Med_Scheduling := MLM {{{SINGLE-QUOTE}}}FORM_VTE_SCHEDULING{{{SINGLE-QUOTE}}};
VTE_OSName := ("VTE Prophylaxis Orders (Medical & Surgical Patients)",
"CCM Admission Orders",
"Heparin Inj (SQ)",
"Heparin Inj - 5,000 units SQ Q8H",
"Heparin Inj - SQ",
"Post Cardiac Arrest Induced Hypothermia",
"Enoxaparin",
//below are all Order Sets with "VTE Prophylaxis Orders (Medical & Surgical Patients)" embedded within them
"Admission Orders - TIA Resolving Deficit",
"Admission Orders - Acute Ischemic Stroke (Fixed Deficit)",
"zzzAmputation Post Op",
"Post Op ENT Surgery",
"Post Op Cardiac/Peripheral Catheterization",
"Nephrology (CPOE OS)",
"CVSU Common OS",
"ENT Admission",
"Admission Orders - Urology",
"Wound Debridement Post Op Orders",
"Post Op Cardiac/Peripheral Diagnostic Catheterization",
"Admission Orders - Chest Pain",
"Post Op Open Chole",
"Post Op Laparoscopic Colon Resection.",
"Gastric Bypass Post Op",
"Post Op Lap Chole",
"Post Op Appendectomy",
"Transition Orders - CHF",
"Transition Orders - Chest Pain",
"Transition Orders - COPD",
"Transition Orders - Pneumonia",
"Transition Orders - General Orders",
"Observation Common Orders",
"Transition Orders - Cellulitis",
"Transition Orders - UTI",
"Post Op General Surgery",
"CVSU Common - Post Open Heart Progressive Care OS",
"Transition Orders - PE",
"Transition Orders - Afib",
"Transition Orders - GI Bleed",
"Transition Orders - Hip Fracture",
"Post Op Colon Resection",
"Internal Medicine Order Set",
"Admission Orders - CHF",
"Post Op Lap Nephrectomy",
"Warfarin Orders",
"Rivaroxaban");
VTE_OName := ("Heparin Inj", "Enoxaparin Inj", "Rivaroxaban 10mg Tab");
include standard_libs;
using "ObjectsPlusXA.SCM.Forms";
using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
error_message:="";
local_session := CDS_SESSION.local;
field_list:= this_form.fields;
str_parse := mlm {{{SINGLE-QUOTE}}}UTIL_STRING_PARSE{{{SINGLE-QUOTE}}};
CallingField :=this_communication.CallingFieldName;
CallingEvent := this_communication.CallingEvent;
FormType := this_communication.FormType;
form_name := this_form.Name;
PrimaryObjdetail:=this_communication.PrimaryObj;
MedicationOrder_dest := destination { ObjectsPlus } with
[ alert_type := "Warning",
short_message := "Object created by MLM, placed on worksheet",
priority := "low",
scope := "chart",
rule_group := "Order Object",
rule_number := 2010 ];
zz:= field_list.Records__;
p:=this_communication.CallingFieldName;
//**** CSR 31883 CHANGE
StartNow := first of (field_list where field_list.DataItemName = "PRX_Dosing Start Now" );
STATandThen := first of (field_list where field_list.DataItemName = "PRX_Dosing Stat and Then");
TotalDosing := first of ( field_list WHERE field_list.DataItemName = "PRX_Dosing Total Doses");
AddlDoseOrdered := first of ( field_list WHERE field_list.DataItemName = "PRX_Dosing Addl Dose");
StopAfter := first of (field_list.Value WHERE field_list.DataItemName="StopAfter" AND field_list.Label= "Stop After");
RequestedDate := first of (field_list WHERE field_list.DataItemName="RequestedDate" AND field_list.Control_MultiFieldOccNum=1 );
RequestedTime := first of (field_list.Value WHERE field_list.DataItemName="RequestedTime" AND field_list.Control_MultiFieldOccNum=1 );
dose := first of (field_list.Value WHERE field_list.DataItemName="DosageLow" AND field_list.Control_MultiFieldOccNum=1 );
dosehigh := first of (field_list.Value WHERE field_list.DataItemName="DosageHigh" AND field_list.Control_MultiFieldOccNum=1 );
Uom := first of (field_list.Value WHERE field_list.DataItemName="Uom" AND field_list.Control_MultiFieldOccNum=1 );
PRN_field := first of (field_list WHERE field_list.DataItemName="IsPrn" AND field_list.Control_MultiFieldOccNum=1 );
PRN := PRN_field.value;
OrderRouteCode := first of (field_list.Value WHERE field_list.DataItemName="OrderRouteCode" AND field_list.Control_MultiFieldOccNum=1 );
Comm := last of (field_list where field_list.DataItemName = "PRX_NoteComment0");
session_type := PrimaryObjdetail.internalprocessingtype;
regular_freq := last of (field_list where field_list.DataItemName = "FrequencyCode");
FrequencyCode := regular_freq.value;
Frequency := FrequencyCode.FrequencySummary;
WORxRoute_field := first of (field_list where field_list.DataItemName = "PRX_WORx_Route");
WORxRouteCode:= WorxRoute_field.value;
InjRoutes := ("SQ", "IM", "IV PUSH", "IV", "Intradermally", "Intrathecally", "Intra-articular");
form_drug_field := first of (field_list where field_list.DataItemName = "PRX_DrugNameforMLM");
RxInstruct := first of (field_list.Value where field_list.DataItemname = "PRX_NoteComment0");
UserInstruct := first of (field_list.Value where field_list.DataItemname = "AdminInstructions");
PRX_PRN_Reason_field := first of (field_list where field_list.DataItemName = "PRX_PRNCONDITION");
// new fields
Nonchemical_Restraint_Ind := first of (field_list.Value where field_list.DataItemname = "NUR_Nonchemical Restraint Ind");
ADMINS_AppSite := first of (field_list.Value where field_list.DataItemname = "PRX_ADMINS_AppSite");
ADMINS_GiveWith := first of (field_list.Value where field_list.DataItemname = "PRX_ADMINS_GiveWith");
AltPrintLocation := first of (field_list.Value where field_list.DataItemname = "PRX_AltPrintLocation");
BRANDNAME := first of (field_list.Value where field_list.DataItemname = "PRX_BRANDNAME");
Concentration := first of (field_list.Value where field_list.DataItemname = "PRX_Concentration");
CONCSTRENGTHUOM := first of (field_list.Value where field_list.DataItemname = "PRX_CONCSTRENGTHUOM");
CONCSTRVOLUMEUOM := first of (field_list.Value where field_list.DataItemname = "PRX_CONCSTRVOLUMEUOM");
DrugNameforMLM := first of (field_list.Value where field_list.DataItemname = "PRX_DrugNameforMLM");
NOTECOMMENT1 := first of (field_list.Value where field_list.DataItemname = "PRX_NOTECOMMENT1");
NOTECOMMENT2 := first of (field_list.Value where field_list.DataItemname = "PRX_NOTECOMMENT2");
NOTECOMMENT7 := first of (field_list.Value where field_list.DataItemname = "PRX_NOTECOMMENT7");
NOTECOMMENT8 := first of (field_list.Value where field_list.DataItemname = "PRX_NOTECOMMENT8");
OmitMessage := first of (field_list.Value where field_list.DataItemname = "PRX_OmitMessage");
PRNCONDITION := first of (field_list.Value where field_list.DataItemname = "PRX_PRNCONDITION");
TP_Application_Site := first of (field_list.Value where field_list.DataItemname = "PRX_TP_Application_Site");
Chemical_Restraint := first of (field_list.Value where field_list.DataItemname = "NUR_Chemical Restraint");
Not_Chemical_Restraint := first of (field_list.Value where field_list.DataItemname = "NUR_Not Chemical Restraint");
Aerochamber := first of (field_list.Value where field_list.DataItemname = "PRX_Aerochamber");
AutoVerify := first of (field_list.Value where field_list.DataItemname = "PRX_AutoVerify");
AWP := first of (field_list.Value where field_list.DataItemname = "PRX_AWP");
Inspirese := first of (field_list.Value where field_list.DataItemname = "PRX_Inspirese");
PrebuiltOrder := first of (field_list.Value where field_list.DataItemname = "PRX_PrebuiltOrder");
Pt_to_Admin := first of (field_list.Value where field_list.DataItemname = "PRX_Pt_to_Admin");
Resp_to_Admin := first of (field_list.Value where field_list.DataItemname = "PRX_Resp_to_Admin");
CONCSTRENGTH := first of (field_list.Value where field_list.DataItemname = "PRX_CONCSTRENGTH");
CONCSTRVOLUME := first of (field_list.Value where field_list.DataItemname = "PRX_CONCSTRVOLUME");
PhysReqNaCl := first of (field_list.Value where field_list.DataItemname = "PRX_ResetDiluent");
BaseSolutionprop := first of (field_list where field_list.DataItemname = "BaseSolution");
BaseSolutionFld := basesolutionprop.value;
// start add in
// Worx Drug code
worxcoderaw:= first of
(field_list where field_list.DataItemName = "PRX_DRUGIDCODE");
worxcode:= worxcoderaw.value;
// end add in
continue_checking_order := TRUE;
/*
//commented out to make available to all users
fire_on_User := ("MD","DO","DDS","DPM","PA","PA-C","CRNP","IT");
// Get the current user{{{SINGLE-QUOTE}}}s occupation
userguid := this_communication.UserGUID;
UserCode := read last
{"Select occupationcode "
||" From cv3user with (nolock) "
||" Where Guid = " || SQL(userguid) };
continue_checking_order := UserCode in fire_on_User;
*/
// if CallingEvent ="FormOpen" then
//****CSR 31883 CHANGE
// (this_communication, this_form) := call PediatricDosing WITH this_communication, this_form, client_info_obj;
// if continue_checking_order = false then
// StartNow.control_visible := FALSE;
// STATandThen.control_visible := FALSE;
// else
// StartNow.Control_Visible := true;
// STATandThen.Control_Visible := true;
// TotalDosing.Control_Visible := true;
// TotalDosing.Control_Read_Only := true;
// endif;
// endif;
// added for hold session to set requested time to scheduled/start time with no time specified
if session_type = "Hold" and CallingEvent = "FormClose" then
(this_communication, this_form, client_info_obj) := call HoldOrders with (this_communication, this_form, client_info_obj);
endif;
if CallingEvent = "FormClose" then
If OrderRouteCode in InjRoutes then
(this_communication, this_form, client_info_obj) := call WorxRoute with (this_communication, this_form, client_info_obj);
endif;
If frequency = "Pre Op" then
(this_communication, this_form, client_info_obj) := call PreopStopAfter with (this_communication, this_form, client_info_obj);
endif;
If exists form_drug_field and form_drug_field.value is not null then
(this_communication, this_form, client_info_obj) := call multidosemlm with (this_communication, this_form, client_info_obj);
endif;
If PrimaryObjdetail.Name = "Enoxaparin Inj" then
(this_communication, this_form, client_info_obj) := call LovenoxCalc with (this_communication, this_form, client_info_obj);
endif;
If PrimaryObjdetail.Name = "Enoxaparin Inj." then
(this_communication, this_form, client_info_obj) := call LovenoxCalcCrCl with (this_communication, this_form, client_info_obj);
endif;
//CSR 33689 SZ Change
If (PrimaryObjdetail.Name in VTE_OName) and (PrimaryObjdetail.OrderSetName in VTE_OSName) then
(this_communication, this_form, client_info_obj) := call VTE_Med_Scheduling with (this_communication, this_form, client_info_obj);
endif;
If PrimaryObjdetail.Name = "Vancomycin:" then
(this_communication, this_form, client_info_obj) := call VancomycinCalc with (this_communication, this_form, client_info_obj);
endif;
If PrimaryObjdetail.Name = "Haloperidol Inj" or PrimaryObjdetail.Name = "Haloperidol:" then
(this_communication, this_form, client_info_obj) := call HaloperidolOrders with (this_communication, this_form, client_info_obj);
endif;
If PrimaryObjdetail.Name = "MethylPREDNISolone 4mg Dose Pak Tab" then
(this_communication, this_form) := call RepeatOrders with (this_communication, this_form, client_info_obj);
endif;
// SZ CSR #31162 - Neonatal Morphine Dose/Volume Label
If PrimaryObjdetail.Name = "Morphine Oral Solution Nursery (0.4mg/ml)" then
(this_communication, this_form) := call NeonatalMorphineLabel with (this_communication, this_form, client_info_obj);
endif;
// Call MLM to add medication reason to RX Comments field for ORM
(this_communication, this_form, client_info_obj) := call MedicationReason with (this_communication, this_form, client_info_obj);
// Call MLM to check for waste disposal instructions
(this_communication, this_form, client_info_obj) := call DisposalInstruct with (this_communication, this_form, client_info_obj);
if session_type = "standard" then
if continue_checking_order = true then
if exists(StartNow) or (StatandThen) then
FreqRules := ();
FreqRules := read { "select value from cv3userdictionaryvalue v with (nolock)"
|| " where userdictionarycode = {{{SINGLE-QUOTE}}}PRX_Dosing Frequency{{{SINGLE-QUOTE}}} "
|| " and active = {{{SINGLE-QUOTE}}}1{{{SINGLE-QUOTE}}} "
};
if (((StartNow.Value = true) or (STATandThen.Value = true)) and AddlDoseOrdered.value = false) then
if StartNow.Value = true then
NewOrderFreq := "Now";
MsgFreq1 := "NOW";
MsgFreq2 := "now";
else
NewOrderFreq := "STAT";
MsgFreq1 := "STAT";
MsgFreq2 := "stat";
endif;
freqfound:=();
NumMembs:= count FreqRules;
for k in (1 seqto (NumMembs)) do
listings := call str_parse with FreqRules[k],"|";
tempstr:=first of (listings);
if tempstr = FrequencyCode.FrequencySummary then
freqname := tempstr;
if exists(listings[2]) then freqfound := freqfound,listings[2]; proctype := listings [2];endif;
if exists(listings[3]) then freqfound := freqfound,listings[3]; plusminusvalue := listings [3];endif;
endif;
enddo;
If FrequencyCode.FrequencySummary = "<User Schedule>" or FrequencyCode.FrequencySummary = "<Variable Interval>"
or FrequencyCode.FrequencySummary = "<QxM>" or FrequencyCode.FrequencySummary is null or proctype is null
then
StartNow.Value := false;
StartNow.control_read_only := true;
STATandThen.Value := false;
STATandThen.control_read_only := true;
endif;
if proctype = "S" then
spanhourfromnow := (now + 30 minute);
plusminus := (plusminusvalue as number);
newstarttime := (spanhourfromnow as time) + (plusminus hour) ;
newhr := extract hour newstarttime; if hr < 10 then hr := "0" || hr; endif;
newyr := extract year newstarttime;
newmn := extract month newstarttime; if mn < 10 then mn := "0" || mn; endif;
newdd := extract day newstarttime; if dd < 10 then dd := "0" || dd; endif;
filldate := newyr || "-" || newmn || "-" || newdd || " 00:00:00";
filltime := newhr || ":00:00";
hourtest := filltime;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := filltime;
RequestedDate.value := filldate;
RequestedDate.control_read_only := True;
RequestedTime.control_read_only := True;
makenow := true;
/*
********* CSR 31883 Change
if( StartNow.Value = true AND StopAfter.option = "Times") Then
if((StopAfter.NUMBER) is not null AND (StopAfter.NUMBER) <> "" AND (StopAfter.NUMBER As number) >= 1) Then
Value1 := (StopAfter.NUMBER As number) + 1;
WarningResult := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Selecting Now and Then with " || Frequency || " and Stop After " || (StopAfter.NUMBER As number) || " Times will result in " || Value1 || " doses being administered.","Alert","Ok" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}},"Warning" As {{{SINGLE-QUOTE}}}MessageBoxIcon{{{SINGLE-QUOTE}}};
endif;
endif;
if( StatandThen.Value = true AND StopAfter.option = "Times") Then
if((StopAfter.NUMBER) is not null AND (StopAfter.NUMBER) <> "" AND (StopAfter.NUMBER As number) >= 1) Then
Value1 := (StopAfter.NUMBER As number) + 1;
WarningResult := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Selecting Stat and Then with " || Frequency || " and Stop After " || (StopAfter.NUMBER As number) || " Times will result in " || Value1 || " doses being administered.","Alert","Ok" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}},"Warning" As {{{SINGLE-QUOTE}}}MessageBoxIcon{{{SINGLE-QUOTE}}};
endif;
endif;
*/
endif;
if proctype = "A" then
blnUpdateFrequency := true;
(Hour1,Hour2,Hour3,Hour4,Hour5) := Read last { " SELECT ISNULL([Hour1],{{{SINGLE-QUOTE}}}-99{{{SINGLE-QUOTE}}}) AS Hour1 , ISNULL([Hour2],{{{SINGLE-QUOTE}}}-99{{{SINGLE-QUOTE}}}) AS Hour2 "
|| " , ISNULL([Hour3],{{{SINGLE-QUOTE}}}-99{{{SINGLE-QUOTE}}}) AS Hour3 , ISNULL([Hour4],{{{SINGLE-QUOTE}}}-99{{{SINGLE-QUOTE}}}) AS Hour4 "
|| " , ISNULL([Hour5],{{{SINGLE-QUOTE}}}-99{{{SINGLE-QUOTE}}}) AS Hour5 FROM ( select {{{SINGLE-QUOTE}}}Hour{{{SINGLE-QUOTE}}}+CAST ((ROW_NUMBER() OVER( ORDER By ScheduledTime )) AS Varchar) As Hourd,ScheduledTime from CV3FixedScheduleDefinition "
|| " INNER JOIN CV3CodedFreqTranslation (NOLOCK) ON CV3FixedScheduleDefinition.ParentGUID = CV3CodedFreqTranslation.GUID "
|| " WHERE CV3CodedFreqTranslation.FrequencyCode = " || SQL(Frequency) || " AND CV3CodedFreqTranslation.Active = 1 and FrequencyClass = {{{SINGLE-QUOTE}}}<Default>{{{SINGLE-QUOTE}}}"
|| "AND CV3FixedScheduleDefinition.Active = 1 ) p PIVOT ( SUM(ScheduledTime) FOR [Hourd] IN ([Hour1] "
|| " , [Hour2] , [Hour3] , [Hour4] , [Hour5]) ) AS pvt " };
if ( (Hour1 As string) <> "-99") THen
If ( (Hour1 As number) <= 999) THen
if((Hour1 As number) = "0") then
Hour1 := "0000";
else
Hour1 := "0" || (Hour1 As string);
endif;
endif;
schedhour1 := substring 2 characters starting at 1 from (Hour1 As string);
schedmin1 := substring 2 characters starting at 3 from (Hour1 As string);
if (schedhour1 as number) >= 12 then
timeofday1 := "PM";
if (schedhour1 as number) >= 13 then
schedhour1 := (schedhour1 as number) - 12;
endif;
else
timeofday1 := "AM";
if (schedhour1 as number) = 00 then
schedhour1 := 12;
endif;
if (schedhour1 as number) <= 9 then
schedhour1 := substring 1 characters starting at 2 from schedhour1;
endif;
endif;
Hour1Txt := schedhour1 || ":" || schedmin1 || timeofday1;
endif;
if ( (Hour2 As string) <> "-99") THen
If ( (Hour2 As number) <= 999) THen
if((Hour2 As number) = 0) then
Hour2 := "0000";
else
Hour2 := "0" || (Hour2 As string);
endif;
endif;
schedhour2 := substring 2 characters starting at 1 from (Hour2 as string);
schedmin2 := substring 2 characters starting at 3 from (Hour2 as string);
if (schedhour2 as number) >= 12 then
timeofday2 := "PM";
if (schedhour2 as number) >= 13 then
schedhour2 := (schedhour2 as number) - 12;
endif;
else
timeofday2 := "AM";
if (schedhour2 as number) = 00 then
schedhour2 := 12;
endif;
if (schedhour2 as number) <= 9 then
schedhour2 := substring 1 characters starting at 2 from schedhour2;
endif;
endif;
hour2Txt := schedhour2 || ":" || schedmin2 || timeofday2;
endif;
if ( (Hour3 As string) <> "-99") THen
If ( (Hour3 As number) <= 999) THen
if((Hour3 As number) = 0) then
Hour3 := "0000";
else
Hour3 := "0" || (Hour3 As string);
endif;
endif;
schedhour3 := substring 2 characters starting at 1 from (Hour3 As string);
schedmin3 := substring 2 characters starting at 3 from (Hour3 As string);
if (schedhour3 as number) >= 12 then
timeofday3 := "PM";
if (schedhour3 as number) >= 13 then
schedhour3 := (schedhour3 as number) - 12;
endif;
else
timeofday3 := "AM";
if (schedhour3 as number) = 00 then
schedhour3 := 12;
endif;
if (schedhour3 as number) <= 9 then
schedhour3 := substring 1 characters starting at 2 from schedhour3;
endif;
endif;
hour3Txt := schedhour3 || ":" || schedmin3 || timeofday3;
endif;
if ( (Hour4 As string) <> "-99") THen
If ( (Hour4 As number) <= 999) THen
if((Hour4 As number) = 0) then
Hour4 := "0000";
else
Hour4 := "0" || (Hour4 as string);
endif;
endif;
schedhour4 := substring 2 characters starting at 1 from (Hour4 as string);
schedmin4 := substring 2 characters starting at 3 from (Hour4 as string);
if (schedhour4 as number) >= 12 then
timeofday4 := "PM";
if (schedhour4 as number) >= 13 then
schedhour4 := (schedhour4 as number) - 12;
endif;
else
timeofday4 := "AM";
if (schedhour4 as number) = 00 then
schedhour4 := 12;
endif;
if (schedhour4 as number) <= 9 then
schedhour4 := substring 1 characters starting at 2 from schedhour4;
endif;
endif;
hour4Txt := schedhour4 || ":" || schedmin4 || timeofday4;
endif;
if ( (Hour5 As String) <> "-99") THen
If ( (Hour5 As number) <= 999) THen
if((Hour5 As number) = 0) then
Hour5 := "0000";
else
Hour5 := "0" || (Hour5 as string);
endif;
endif;
schedhour5 := substring 2 characters starting at 1 from (Hour5 as string);
schedmin5 := substring 2 characters starting at 3 from (Hour5 as string);
if (schedhour5 as number) >= 12 then
timeofday5 := "PM";
if (schedhour5 as number) >= 13 then
schedhour5 := (schedhour5 as number) - 12;
endif;
else
timeofday5 := "AM";
if (schedhour5 as number) = 00 then
schedhour5 := 12;
endif;
if (schedhour5 as number) <= 9 then
schedhour5 := substring 1 characters starting at 2 from schedhour5;
endif;
endif;
hour5Txt := schedhour5 || ":" || schedmin5 || timeofday5;
endif;
Hour1 := (Hour1 as string);
Hour2 := (Hour2 as string);
Hour3 := (Hour3 as string);
Hour4 := (Hour4 as string);
Hour5 := (Hour5 as string);
if( blnUpdateFrequency = true AND (StartNow.Value = true or StatandThen.Value = true)) then
/*
*********** CSR 31883 Change
if( StartNow.Value = true AND StopAfter.option = "Times") Then
if((StopAfter.NUMBER) is not null AND (StopAfter.NUMBER) <> "" AND (StopAfter.NUMBER As number) >= 1) Then
Value1 := (StopAfter.NUMBER As number) + 1;
WarningResult := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Selecting Start Now with " || Frequency || " and Stop After " || (StopAfter.NUMBER As number) || " Times will result in " || Value1 || " doses being administered.","Alert","Ok" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}},"Warning" As {{{SINGLE-QUOTE}}}MessageBoxIcon{{{SINGLE-QUOTE}}};
endif;
endif;
*/
plusminus := plusminusvalue;
eMinute := extract minute now;
if( length( (eMinute As String)) = 1) then
eminute := "0" || ( (eMinute As String)) ;
else
eminute := extract minute now;
endif;
Currenthour := extract hour now || eminute;
blnUpdateFrequency := false;
Hour1Rangemax := (Hour1 as number) + (Plusminus|| "00" As number) ;
Hour1Rangemin := (Hour1 as number) - (Plusminus|| "00" As number) ;
Hour2Rangemax := (Hour2 as number) + (Plusminus|| "00" As number);
Hour2Rangemin := (Hour2 as number) - (Plusminus|| "00" As number) ;
endif;
endif; //End If procType = A
// Get Current worksheet info ***** START *****
// Get the currently logged on user
Active_ClientVisitGUID := this_communication.ClientVisitGUID;
Active_OrderGUID:= PrimaryObjdetail.GUID;
Active_SignificiantDtm:= Now;
location_guid := read last {"select CurrentLocationGUID from CV3ClientVisit where GUID=" || SQL(Active_ClientVisitGUID)};
//TRY
try
//-----------------------------------------------------------
// Retrieve current order entry batch.
// The companion order can be added only if the parent order
// belongs to the order entry batch
// object owned by the OrderEntryWorksheet.
//-----------------------------------------------------------
worksheetInfo := call {{{SINGLE-QUOTE}}}OrderEntryBatch{{{SINGLE-QUOTE}}}.GetCurrent;
if worksheetInfo is NULL
OR "OrderEntryWorksheet" <> (worksheetInfo.OrderBatchOwner as String) then
z:=0;
endif;
//------------------------------------------------------------
// Get the .NET version of the Client Visit object.
// Needed to create new ObjectsPlus object
//------------------------------------------------------------
client_visit_obj := call {{{SINGLE-QUOTE}}}ClientVisit{{{SINGLE-QUOTE}}}.FindByPrimaryKey
with ((Active_ClientVisitGUID as number) as {{{SINGLE-QUOTE}}}Int64{{{SINGLE-QUOTE}}}) ;
//-----------------------------------------------------------
// Check the order entry worksheet. If there are no entries
// already on the worksheet set the initial values for
// the worksheet.
//-----------------------------------------------------------
if worksheetInfo.UnsubmittedOrdersCount = 0 then
// If there are no orders on the worksheet set
// defaults that will be used to create the orders
WSSessionType := "Standard";
WSSessionReason := "Orders created by MLM";
WSRequestedBySource := "";
// Set the session type and reason on the worksheet
void := call worksheetInfo.SetSessionType with (WSSessionType, WSSessionReason);
// Set the requesting source string
worksheetInfo.RequestedBySource := WSRequestedBySource;
//Get the current user as the default care provider
WSRequestedBy_obj := call {{{SINGLE-QUOTE}}}CareProvider{{{SINGLE-QUOTE}}}.FindById
with ( user_IDType, user_IDCode );
//Set the requesting provider
worksheetInfo.RequestedBy := WSRequestedBy_obj;
// Get the location that will be used for the orders.
WSlocation_obj := call {{{SINGLE-QUOTE}}}Location{{{SINGLE-QUOTE}}}.FindByPrimaryKey
with ((location_guid as number) as {{{SINGLE-QUOTE}}}Int64{{{SINGLE-QUOTE}}});
//Set the expected release location group
worksheetInfo.ExpectedReleaseLocationGroup := WSlocation_obj;
//Dispose RequestedBy CareProvider
if( WSRequestedBy_obj is NOT NULL ) then
void := call WSRequestedBy_obj.Dispose;
WSRequestedBy_obj:= null;
endif;
//Dispose ExpectedReleaseLocationGroup
if( WSlocation_obj is NOT NULL ) then
void := call WSlocation_obj.Dispose;
WSlocation_obj:= null;
endif;
else
//If there are orders on the worksheet retrieve the default values
// on the worksheet.
// These values are not required for this sample MLM however they
// contain useful information that can be used in the logic of an
// MLM.
WSSessionType := worksheetInfo.SessionType;
WSSessionReason := worksheetInfo.SessionReason;
WSRequestedBySource := worksheetInfo.RequestedBySource;
WSRequestedBy_obj := worksheetInfo.RequestedBy;
WSlocation_obj := worksheetInfo.ExpectedReleaseLocationGroup;
endif;
endtry;
catch Exception ex
error_occurred := true;
error_message := "{{+R}}Common Data:{{-R}}\n" ||
ex.Message || "\n\n";
if( worksheetInfo is NOT NULL ) then
void := call worksheetInfo.Dispose;
worksheetInfo:= null;
endif;
if( client_visit_obj is NOT NULL ) then
void := call client_visit_obj.Dispose;
client_visit_obj:= null;
endif;
if( WSRequestedBy_obj is NOT NULL ) then
void := call WSRequestedBy_obj.Dispose;
WSRequestedBy_obj:= null;
endif;
if( WSlocation_obj is NOT NULL ) then
void := call WSlocation_obj.Dispose;
WSlocation_obj:= null;
endif;
// If unable to initialize starting data, do not continue
// with the creation of any orders.
// Still conclude true as the error message needs to
// be displayed as an error.
//conclude true;
endcatch;
// QxH schedules
if ((proctype = "S")or (makenow = true)) Then
zz_call := call SCH_NOW_AND_THEN_GENERATE_ORDER with
PrimaryObjdetail.Name,
PrimaryObjdetail.Modifier,
NewOrderFreq,
Hourtest,
dose, dosehigh,
Uom, PRN,
OrderRouteCode,
worksheetInfo,
Active_OrderGUID,
Now, RxInstruct, UserInstruct, WorxRouteCode, WorxCode,
Nonchemical_Restraint_Ind, ADMINS_AppSite, ADMINS_GiveWith, AltPrintLocation,
BRANDNAME, Concentration, CONCSTRENGTHUOM, CONCSTRVOLUMEUOM, DrugNameforMLM,
NOTECOMMENT1, NOTECOMMENT2, NOTECOMMENT7, NOTECOMMENT8, OmitMessage,
PRNCONDITION, TP_Application_Site, Chemical_Restraint, Not_Chemical_Restraint,
Aerochamber, AutoVerify,AWP, Inspirese, PrebuiltOrder, Pt_to_Admin, Resp_to_Admin,
CONCSTRENGTH, CONCSTRVOLUME, BaseSolutionFld.Name, BaseSolutionFld.Dose, BaseSolutionFld.Uom,
PhysReqNaCl,
client_visit_obj;
RequestedDate.Value := filldate;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hourtest;
StartNow.Control_Read_Only := true;
StatandThen.Control_Read_Only := true;
AddlDoseOrdered.value := true;
// PRN_field.Control_Read_Only := true;
regular_freq.control_Read_Only := true;
elseif proctype = "A" then
//BID Schedules
if( Hour1 <> "-99" AND Hour2 <> "-99" AND Hour3 = "-99" AND Hour4 = "-99" AND Hour5 = "-99" ) then
if( (Currenthour As number) < (Hour1Rangemin As Number)) then
dialogResult := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Do you want the {{{SINGLE-QUOTE}}}"|| MsgFreq1 || "{{{SINGLE-QUOTE}}} dose to replace the " || Hour1Txt || " dose?"
||" .\n\n Choose YES to give a " || MsgFreq2 || " dose and then start at " || Hour2Txt
||" .\n\n Choose NO to give a " || MsgFreq2 || " dose and then start at " || Hour1Txt ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
if((dialogResult as string) = "No") then
zz_call := call SCH_NOW_AND_THEN_GENERATE_ORDER with
PrimaryObjdetail.Name,
PrimaryObjdetail.Modifier,
NewOrderFreq,
Hour1,
dose, dosehigh,
Uom, PRN,
OrderRouteCode,
worksheetInfo,
Active_OrderGUID,
Active_SignificiantDtm, RxInstruct, UserInstruct, WorxRouteCode, WorxCode,
Nonchemical_Restraint_Ind, ADMINS_AppSite, ADMINS_GiveWith, AltPrintLocation,
BRANDNAME, Concentration, CONCSTRENGTHUOM, CONCSTRVOLUMEUOM, DrugNameforMLM,
NOTECOMMENT1, NOTECOMMENT2, NOTECOMMENT7, NOTECOMMENT8, OmitMessage,
PRNCONDITION, TP_Application_Site, Chemical_Restraint, Not_Chemical_Restraint,
Aerochamber, AutoVerify,AWP, Inspirese, PrebuiltOrder, Pt_to_Admin, Resp_to_Admin,
CONCSTRENGTH, CONCSTRVOLUME, BaseSolutionFld.name, BaseSolutionFld.Dose, BaseSolutionFld.Uom,
PhysReqNaCl,
client_visit_obj;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour1;
StartNow.Control_Read_Only := true;
StatandThen.Control_Read_Only := true;
AddlDoseOrdered.value := true;
// PRN_field.Control_Read_Only := true;
regular_freq.control_Read_Only := true;
endif;
if((dialogResult as string) = "Yes") then
zz_call := call SCH_NOW_AND_THEN_GENERATE_ORDER with
PrimaryObjdetail.Name,
PrimaryObjdetail.Modifier,
NewOrderFreq,
Hour2,
dose, dosehigh,
Uom, PRN,
OrderRouteCode,
worksheetInfo,
Active_OrderGUID,
Active_SignificiantDtm, RxInstruct, UserInstruct, WorxRouteCode, WorxCode,
Nonchemical_Restraint_Ind, ADMINS_AppSite, ADMINS_GiveWith, AltPrintLocation,
BRANDNAME, Concentration, CONCSTRENGTHUOM, CONCSTRVOLUMEUOM, DrugNameforMLM,
NOTECOMMENT1, NOTECOMMENT2, NOTECOMMENT7, NOTECOMMENT8, OmitMessage,
PRNCONDITION, TP_Application_Site, Chemical_Restraint, Not_Chemical_Restraint,
Aerochamber, AutoVerify,AWP, Inspirese, PrebuiltOrder, Pt_to_Admin, Resp_to_Admin,
CONCSTRENGTH, CONCSTRVOLUME, BaseSolutionFld.Name, BaseSolutionFld.Dose, BaseSolutionFld.Uom,
PhysReqNaCl,
client_visit_obj;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour2;
StartNow.Control_Read_Only := true;
StatandThen.Control_Read_Only := true;
AddlDoseOrdered.value := true;
// PRN_field.Control_Read_Only := true;
regular_freq.control_Read_Only := true;
endif;
endif; //if( (Currenthour As number) < (Hour1Rangemin As Number))
if( (Currenthour AS Number) >= (Hour1Rangemin AS Number) AND (Currenthour AS Number) <= (Hour1Rangemax AS Number) ) then
zz_call := call SCH_NOW_AND_THEN_GENERATE_ORDER with
PrimaryObjdetail.Name,
PrimaryObjdetail.Modifier,
NewOrderFreq,
Hour2,
dose, dosehigh,
Uom, PRN,
OrderRouteCode,
worksheetInfo,
Active_OrderGUID,
Active_SignificiantDtm, RxInstruct, UserInstruct, WorxRouteCode, WorxCode,
Nonchemical_Restraint_Ind, ADMINS_AppSite, ADMINS_GiveWith, AltPrintLocation,
BRANDNAME, Concentration, CONCSTRENGTHUOM, CONCSTRVOLUMEUOM, DrugNameforMLM,
NOTECOMMENT1, NOTECOMMENT2, NOTECOMMENT7, NOTECOMMENT8, OmitMessage,
PRNCONDITION, TP_Application_Site, Chemical_Restraint, Not_Chemical_Restraint,
Aerochamber, AutoVerify,AWP, Inspirese, PrebuiltOrder, Pt_to_Admin, Resp_to_Admin,
CONCSTRENGTH, CONCSTRVOLUME, BaseSolutionFld.Name, BaseSolutionFld.Dose, BaseSolutionFld.Uom,
PhysReqNaCl,
client_visit_obj;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour2;
StartNow.Control_Read_Only := true;
StatandThen.Control_Read_Only := true;
AddlDoseOrdered.value := true;
// PRN_field.Control_Read_Only := true;
regular_freq.control_Read_Only := true;
endif; //(Currenthour AS Number) >= (Hour1Rangemin AS Number) AND (Currenthour AS Number) <= (Hour1Rangemax AS Number) ) then
if( (Currenthour AS Number) > (Hour1Rangemax AS Number) AND (Currenthour AS Number) < (Hour2Rangemin As Number)) then
Active_SignificantPlusOneDtm := Active_SignificiantDtm + 1 day;
Active_SignificantPlusOneISODate := (extract month Active_SignificantPlusOneDtm) formatted with "%02d" || "-" ||
(extract day Active_SignificantPlusOneDtm) formatted with "%02d" || "-" || (extract year Active_SignificantPlusOneDtm) formatted with "%04d" ;
dialogResult2 := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Do you want the {{{SINGLE-QUOTE}}}"|| MsgFreq1 || "{{{SINGLE-QUOTE}}} dose to replace the " || Hour2Txt || " dose?"
||" .\n\n Choose YES to give a " || MsgFreq2 || " dose and then start at " || Hour1Txt || " on " || Active_SignificantPlusOneISODate
||" .\n\n Choose NO to give a " || MsgFreq2 || " dose and then start at " || Hour2Txt ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
if((dialogResult2 as string) = "No") then
zz_call := call SCH_NOW_AND_THEN_GENERATE_ORDER with
PrimaryObjdetail.Name,
PrimaryObjdetail.Modifier,
NewOrderFreq,
Hour2,
dose, dosehigh,
Uom, PRN,
OrderRouteCode,
worksheetInfo,
Active_OrderGUID,
Active_SignificiantDtm, RxInstruct, UserInstruct, WorxRouteCode, WorxCode,
Nonchemical_Restraint_Ind, ADMINS_AppSite, ADMINS_GiveWith, AltPrintLocation,
BRANDNAME, Concentration, CONCSTRENGTHUOM, CONCSTRVOLUMEUOM, DrugNameforMLM,
NOTECOMMENT1, NOTECOMMENT2, NOTECOMMENT7, NOTECOMMENT8, OmitMessage,
PRNCONDITION, TP_Application_Site, Chemical_Restraint, Not_Chemical_Restraint,
Aerochamber, AutoVerify,AWP, Inspirese, PrebuiltOrder, Pt_to_Admin, Resp_to_Admin,
CONCSTRENGTH, CONCSTRVOLUME, BaseSolutionFld.Name, BaseSolutionFld.Dose, BaseSolutionFld.Uom,
PhysReqNaCl,
client_visit_obj;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour2;
StartNow.Control_Read_Only := true;
StatandThen.Control_Read_Only := true;
AddlDoseOrdered.value := true;
// PRN_field.Control_Read_Only := true;
regular_freq.control_Read_Only := true;
endif;
if((dialogResult2 as string) = "Yes") then
zz_call := call SCH_NOW_AND_THEN_GENERATE_ORDER with
PrimaryObjdetail.Name,
PrimaryObjdetail.Modifier,
NewOrderFreq,
Hour1,
dose, dosehigh,
Uom, PRN,
OrderRouteCode,
worksheetInfo,
Active_OrderGUID,
Active_SignificiantDtm , RxInstruct, UserInstruct, WorxRouteCode, WorxCode,
Nonchemical_Restraint_Ind, ADMINS_AppSite, ADMINS_GiveWith, AltPrintLocation,
BRANDNAME, Concentration, CONCSTRENGTHUOM, CONCSTRVOLUMEUOM, DrugNameforMLM,
NOTECOMMENT1, NOTECOMMENT2, NOTECOMMENT7, NOTECOMMENT8, OmitMessage,
PRNCONDITION, TP_Application_Site, Chemical_Restraint, Not_Chemical_Restraint,
Aerochamber, AutoVerify,AWP, Inspirese, PrebuiltOrder, Pt_to_Admin, Resp_to_Admin,
CONCSTRENGTH, CONCSTRVOLUME, BaseSolutionFld.Name, BaseSolutionFld.Dose, BaseSolutionFld.Uom,
PhysReqNaCl,
client_visit_obj;
RequestedDate.Value := Active_SignificiantDtm + 1 day;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour1;
StartNow.Control_Read_Only := true;
StatandThen.Control_Read_Only := true;
AddlDoseOrdered.value := true;
// PRN_field.Control_Read_Only := true;
regular_freq.control_Read_Only := true;
endif;
endif; //Currenthour AS Number) > (Hour1Rangemax AS Number) AND (Currenthour AS Number) < (Hour2Rangemin As Number)) then
if( (Currenthour AS Number) >= (Hour2Rangemin AS Number) AND (Currenthour AS Number) <= (Hour2Rangemax As Number) ) then
zz_call := call SCH_NOW_AND_THEN_GENERATE_ORDER with
PrimaryObjdetail.Name,
PrimaryObjdetail.Modifier,
NewOrderFreq,
Hour1,
dose, dosehigh,
Uom, PRN,
OrderRouteCode,
worksheetInfo,
Active_OrderGUID,
Active_SignificiantDtm , RxInstruct, UserInstruct, WorxRouteCode, WorxCode,
Nonchemical_Restraint_Ind, ADMINS_AppSite, ADMINS_GiveWith, AltPrintLocation,
BRANDNAME, Concentration, CONCSTRENGTHUOM, CONCSTRVOLUMEUOM, DrugNameforMLM,
NOTECOMMENT1, NOTECOMMENT2, NOTECOMMENT7, NOTECOMMENT8, OmitMessage,
PRNCONDITION, TP_Application_Site, Chemical_Restraint, Not_Chemical_Restraint,
Aerochamber, AutoVerify,AWP, Inspirese, PrebuiltOrder, Pt_to_Admin, Resp_to_Admin,
CONCSTRENGTH, CONCSTRVOLUME, BaseSolutionFld.Name, BaseSolutionFld.Dose, BaseSolutionFld.Uom,
PhysReqNaCl,
client_visit_obj;
RequestedDate.Value := Active_SignificiantDtm + 1 day;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour1;
StartNow.Control_Read_Only := true;
StatandThen.Control_Read_Only := true;
AddlDoseOrdered.value := true;
// PRN_field.Control_Read_Only := true;
regular_freq.control_Read_Only := true;
endif;
if((Currenthour AS Number) > (Hour2Rangemax As Number) AND (Currenthour AS Number) <= 2359) then
Active_SignificantPlusOneDtm := Now + 1 day;
Active_SignificantPlusOneISODate := (extract month Active_SignificantPlusOneDtm) formatted with "%02d" || "-" ||
(extract day Active_SignificantPlusOneDtm) formatted with "%02d" || "-" || (extract year Active_SignificantPlusOneDtm) formatted with "%04d" ;
dialogResult3 := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Do you want the {{{SINGLE-QUOTE}}}"|| MsgFreq1 || "{{{SINGLE-QUOTE}}} dose to replace the " || Hour1Txt || " dose on " || Active_SignificantPlusOneISODate || "?"
||" .\n\n Choose YES to give a " || MsgFreq2 || " dose and then start at " || Hour2Txt || " on " || Active_SignificantPlusOneISODate
||" .\n\n Choose NO to give a " || MsgFreq2 || " dose and then start at " || Hour1Txt || " on " || Active_SignificantPlusOneISODate ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
if((dialogResult3 as string) = "No") then
zz_call := call SCH_NOW_AND_THEN_GENERATE_ORDER with
PrimaryObjdetail.Name,
PrimaryObjdetail.Modifier,
NewOrderFreq,
Hour1,
dose, dosehigh,
Uom, PRN,
OrderRouteCode,
worksheetInfo,
Active_OrderGUID,
Active_SignificiantDtm , RxInstruct, UserInstruct, WorxRouteCode, WorxCode,
Nonchemical_Restraint_Ind, ADMINS_AppSite, ADMINS_GiveWith, AltPrintLocation,
BRANDNAME, Concentration, CONCSTRENGTHUOM, CONCSTRVOLUMEUOM, DrugNameforMLM,
NOTECOMMENT1, NOTECOMMENT2, NOTECOMMENT7, NOTECOMMENT8, OmitMessage,
PRNCONDITION, TP_Application_Site, Chemical_Restraint, Not_Chemical_Restraint,
Aerochamber, AutoVerify,AWP, Inspirese, PrebuiltOrder, Pt_to_Admin, Resp_to_Admin,
CONCSTRENGTH, CONCSTRVOLUME, BaseSolutionFld.Name, BaseSolutionFld.Dose, BaseSolutionFld.Uom,
PhysReqNaCl,
client_visit_obj;
RequestedDate.Value := Active_SignificiantDtm + 1 day;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour1;
StartNow.Control_Read_Only := true;
StatandThen.Control_Read_Only := true;
AddlDoseOrdered.value := true;
// PRN_field.Control_Read_Only := true;
regular_freq.control_Read_Only := true;
endif;
if((dialogResult3 as string) = "Yes") then
zz_call := call SCH_NOW_AND_THEN_GENERATE_ORDER with
PrimaryObjdetail.Name,
PrimaryObjdetail.Modifier,
NewOrderFreq,
Hour2,
dose, dosehigh,
Uom, PRN,
OrderRouteCode,
worksheetInfo,
Active_OrderGUID,
Active_SignificiantDtm , RxInstruct, UserInstruct, WorxRouteCode, WorxCode,
Nonchemical_Restraint_Ind, ADMINS_AppSite, ADMINS_GiveWith, AltPrintLocation,
BRANDNAME, Concentration, CONCSTRENGTHUOM, CONCSTRVOLUMEUOM, DrugNameforMLM,
NOTECOMMENT1, NOTECOMMENT2, NOTECOMMENT7, NOTECOMMENT8, OmitMessage,
PRNCONDITION, TP_Application_Site, Chemical_Restraint, Not_Chemical_Restraint,
Aerochamber, AutoVerify,AWP, Inspirese, PrebuiltOrder, Pt_to_Admin, Resp_to_Admin,
CONCSTRENGTH, CONCSTRVOLUME, BaseSolutionFld.Name, BaseSolutionFld.Dose, BaseSolutionFld.Uom,
PhysReqNaCl,
client_visit_obj;
RequestedDate.Value := Active_SignificiantDtm + 1 day;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour2;
StartNow.Control_Read_Only := true;
StatandThen.Control_Read_Only := true;
AddlDoseOrdered.value := true;
// PRN_field.Control_Read_Only := true;
regular_freq.control_Read_Only := true;
endif;
endif; //Currenthour AS Number) > (Hour2Rangemax As Number) AND (Currenthour AS Number) <= 2359) then
endif; // if( Hour1 <> "-99" AND Hour2 <> "-99" AND Hour3 = "-99" AND Hour4 = "-99" AND Hour5 = "-99
// Daily Schedules
if( Hour1 <> "-99" AND Hour2 = "-99" AND Hour3 = "-99" AND Hour4 = "-99" AND Hour5 = "-99" ) then
if( (Currenthour As number) < (Hour1Rangemin As Number)) then
Active_SignificantPlusOneDtm1x := Now;
Active_SignificantPlusTwoDtm1x := Active_SignificantPlusOneDtm1x + 1 day;
Active_SignificantPlusOneISODate1x := (extract month Active_SignificantPlusOneDtm1x) formatted with "%02d" || "-"
|| (extract day Active_SignificantPlusOneDtm1x) formatted with "%02d" || "-"
|| (extract year Active_SignificantPlusOneDtm1x) formatted with "%04d" ;
Active_SignificantPlusTwoISODate1x := (extract month Active_SignificantPlusTwoDtm1x) formatted with "%02d" || "-"
|| (extract day Active_SignificantPlusTwoDtm1x) formatted with "%02d" || "-"
|| (extract year Active_SignificantPlusTwoDtm1x) formatted with "%04d" ;
dialogResult4 := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Do you want the {{{SINGLE-QUOTE}}}"|| MsgFreq1 || "{{{SINGLE-QUOTE}}} dose to replace the " || Hour1Txt
|| " dose on " || Active_SignificantPlusOneISODate1x || "?"
||" .\n\n Choose YES to give a " || MsgFreq2 || " dose and then start at " || Hour1Txt
|| " on " ||Active_SignificantPlusTwoISODate1x
||" .\n\n Choose NO to give a " || MsgFreq2 || " dose and then start at " || Hour1Txt
|| " on " || Active_SignificantPlusOneISODate1x ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
if((dialogResult4 as string) = "No") then
zz_call := call SCH_NOW_AND_THEN_GENERATE_ORDER with
PrimaryObjdetail.Name,
PrimaryObjdetail.Modifier,
NewOrderFreq,
Hour1,
dose, dosehigh,
Uom, PRN,
OrderRouteCode,
worksheetInfo,
Active_OrderGUID,
Active_SignificantPlusOneISODate1x, RxInstruct, UserInstruct, WorxRouteCode, WorxCode,
Nonchemical_Restraint_Ind, ADMINS_AppSite, ADMINS_GiveWith, AltPrintLocation,
BRANDNAME, Concentration, CONCSTRENGTHUOM, CONCSTRVOLUMEUOM, DrugNameforMLM,
NOTECOMMENT1, NOTECOMMENT2, NOTECOMMENT7, NOTECOMMENT8, OmitMessage,
PRNCONDITION, TP_Application_Site, Chemical_Restraint, Not_Chemical_Restraint,
Aerochamber, AutoVerify,AWP, Inspirese, PrebuiltOrder, Pt_to_Admin, Resp_to_Admin,
CONCSTRENGTH, CONCSTRVOLUME, BaseSolutionFld.Name, BaseSolutionFld.Dose, BaseSolutionFld.Uom,
PhysReqNaCl,
client_visit_obj;
RequestedDate.Value := Active_SignificantPlusOneDtm1x;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour1;
StartNow.Control_Read_Only := true;
StatandThen.Control_Read_Only := true;
AddlDoseOrdered.value := true;
// PRN_field.Control_Read_Only := true;
regular_freq.control_Read_Only := true;
endif;
if((dialogResult4 as string) = "Yes") then
Active_SignificantPlusOneDtm1x := Active_SignificantPlusOneDtm1x + 1 day;
zz_call := call SCH_NOW_AND_THEN_GENERATE_ORDER with
PrimaryObjdetail.Name,
PrimaryObjdetail.Modifier,
NewOrderFreq,
Hour1,
dose, dosehigh,
Uom, PRN,
OrderRouteCode,
worksheetInfo,
Active_OrderGUID,
Active_SignificantPlusOneDtm1x , RxInstruct, UserInstruct, WorxRouteCode, WorxCode,
Nonchemical_Restraint_Ind, ADMINS_AppSite, ADMINS_GiveWith, AltPrintLocation,
BRANDNAME, Concentration, CONCSTRENGTHUOM, CONCSTRVOLUMEUOM, DrugNameforMLM,
NOTECOMMENT1, NOTECOMMENT2, NOTECOMMENT7, NOTECOMMENT8, OmitMessage,
PRNCONDITION, TP_Application_Site, Chemical_Restraint, Not_Chemical_Restraint,
Aerochamber, AutoVerify,AWP, Inspirese, PrebuiltOrder, Pt_to_Admin, Resp_to_Admin,
CONCSTRENGTH, CONCSTRVOLUME, BaseSolutionFld.Name, BaseSolutionFld.Dose, BaseSolutionFld.Uom,
PhysReqNaCl,
client_visit_obj;
RequestedDate.Value := Active_SignificantPlusOneDtm1x ;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour1;
StartNow.Control_Read_Only := true;
StatandThen.Control_Read_Only := true;
AddlDoseOrdered.value := true;
// PRN_field.Control_Read_Only := true;
regular_freq.control_Read_Only := true;
endif;
endif; //if( (Currenthour As number) < (Hour1Rangemin As Number))
if( (Currenthour AS Number) >= (Hour1Rangemin AS Number) AND (Currenthour AS Number) <= (Hour1Rangemax AS Number) ) then
Active_SignificantPlusOneDtm1x := Now;
Active_SignificantPlusTwoDtm1x := Active_SignificantPlusOneDtm1x + 1 day;
Active_SignificantPlusOneISODate1x := (extract month Active_SignificantPlusOneDtm1x) formatted with "%02d" || "-"
|| (extract day Active_SignificantPlusOneDtm1x) formatted with "%02d" || "-"
|| (extract year Active_SignificantPlusOneDtm1x) formatted with "%04d" ;
Active_SignificantPlusTwoISODate1x := (extract month Active_SignificantPlusTwoDtm1x) formatted with "%02d" || "-"
|| (extract day Active_SignificantPlusTwoDtm1x) formatted with "%02d" || "-"
|| (extract year Active_SignificantPlusTwoDtm1x) formatted with "%04d" ;
zz_call := call SCH_NOW_AND_THEN_GENERATE_ORDER with
PrimaryObjdetail.Name,
PrimaryObjdetail.Modifier,
NewOrderFreq,
Hour1,
dose, dosehigh,
Uom, PRN,
OrderRouteCode,
worksheetInfo,
Active_OrderGUID,
Active_SignificantPlusOneISODate1x, RxInstruct, UserInstruct, WorxRouteCode, WorxCode,
Nonchemical_Restraint_Ind, ADMINS_AppSite, ADMINS_GiveWith, AltPrintLocation,
BRANDNAME, Concentration, CONCSTRENGTHUOM, CONCSTRVOLUMEUOM, DrugNameforMLM,
NOTECOMMENT1, NOTECOMMENT2, NOTECOMMENT7, NOTECOMMENT8, OmitMessage,
PRNCONDITION, TP_Application_Site, Chemical_Restraint, Not_Chemical_Restraint,
Aerochamber, AutoVerify,AWP, Inspirese, PrebuiltOrder, Pt_to_Admin, Resp_to_Admin,
CONCSTRENGTH, CONCSTRVOLUME, BaseSolutionFld.Name, BaseSolutionFld.Dose, BaseSolutionFld.Uom,
PhysReqNaCl,
client_visit_obj;
RequestedDate.Value := Active_SignificantPlusTwoISODate1x;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour1;
StartNow.Control_Read_Only := true;
StatandThen.Control_Read_Only := true;
AddlDoseOrdered.value := true;
// PRN_field.Control_Read_Only := true;
regular_freq.control_Read_Only := true;
endif;
if (Currenthour AS Number) > (Hour1Rangemax AS Number) then
Active_SignificantPlusOneDtm1x := Now + 1 day;
Active_SignificantPlusTwoDtm1x := Active_SignificantPlusOneDtm1x + 1 day;
Active_SignificantPlusOneISODate1x := (extract month Active_SignificantPlusOneDtm1x) formatted with "%02d" || "-"
|| (extract day Active_SignificantPlusOneDtm1x) formatted with "%02d" || "-"
|| (extract year Active_SignificantPlusOneDtm1x) formatted with "%04d" ;
//tms remove pop up box for one time/day order to start on a different day then now/stat order
/* Active_SignificantPlusTwoISODate1x := (extract month Active_SignificantPlusTwoDtm1x) formatted with "%02d" || "-"
|| (extract day Active_SignificantPlusTwoDtm1x) formatted with "%02d" || "-"
|| (extract year Active_SignificantPlusTwoDtm1x) formatted with "%04d" ;
dialogResult4 := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "2Do you want the {{{SINGLE-QUOTE}}}"|| MsgFreq1 || "{{{SINGLE-QUOTE}}} dose to replace the " || Hour1Txt || " dose on " || Active_SignificantPlusOneISODate1x || "?"
||" .\n\n Choose YES to give a " || MsgFreq2 || " dose and then start at " || Hour1Txt || " on " ||Active_SignificantPlusTwoISODate1x
||" .\n\n Choose NO to give a " || MsgFreq2 || " dose and then start at " || Hour1Txt || " on " || Active_SignificantPlusOneISODate1x ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
if((dialogResult4 as string) = "No") then
*/
zz_call := call SCH_NOW_AND_THEN_GENERATE_ORDER with
PrimaryObjdetail.Name,
PrimaryObjdetail.Modifier,
NewOrderFreq,
Hour1,
dose, dosehigh,
Uom, PRN,
OrderRouteCode,
worksheetInfo,
Active_OrderGUID,
Active_SignificantPlusOneISODate1x, RxInstruct, UserInstruct, WorxRouteCode, WorxCode,
Nonchemical_Restraint_Ind, ADMINS_AppSite, ADMINS_GiveWith, AltPrintLocation,
BRANDNAME, Concentration, CONCSTRENGTHUOM, CONCSTRVOLUMEUOM, DrugNameforMLM,
NOTECOMMENT1, NOTECOMMENT2, NOTECOMMENT7, NOTECOMMENT8, OmitMessage,
PRNCONDITION, TP_Application_Site, Chemical_Restraint, Not_Chemical_Restraint,
Aerochamber, AutoVerify,AWP, Inspirese, PrebuiltOrder, Pt_to_Admin, Resp_to_Admin,
CONCSTRENGTH, CONCSTRVOLUME, BaseSolutionFld.Name, BaseSolutionFld.Dose, BaseSolutionFld.Uom,
PhysReqNaCl,
client_visit_obj;
RequestedDate.Value := Active_SignificantPlusOneDtm1x;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour1;
StartNow.Control_Read_Only := true;
StatandThen.Control_Read_Only := true;
AddlDoseOrdered.value := true;
// PRN_field.Control_Read_Only := true;
regular_freq.control_Read_Only := true;
//tms remove pop up box for one time/day order to start on a different day then now/stat order
// endif;
/* if((dialogResult4 as string) = "Yes") then
Active_SignificantPlusOneDtm1x := Active_SignificantPlusOneDtm1x + 1 day;
zz_call := call SCH_NOW_AND_THEN_GENERATE_ORDER with
PrimaryObjdetail.Name,
PrimaryObjdetail.Modifier,
NewOrderFreq,
Hour1,
dose, dosehigh,
Uom, PRN,
OrderRouteCode,
worksheetInfo,
Active_OrderGUID,
Active_SignificantPlusOneDtm1x , RxInstruct, UserInstruct, WorxRouteCode, WorxCode,
Nonchemical_Restraint_Ind, ADMINS_AppSite, ADMINS_GiveWith, AltPrintLocation,
BRANDNAME, Concentration, CONCSTRENGTHUOM, CONCSTRVOLUMEUOM, DrugNameforMLM,
NOTECOMMENT1, NOTECOMMENT2, NOTECOMMENT7, NOTECOMMENT8, OmitMessage,
PRNCONDITION, TP_Application_Site, Chemical_Restraint, Not_Chemical_Restraint,
Aerochamber, AutoVerify,AWP, Inspirese, PrebuiltOrder, Pt_to_Admin, Resp_to_Admin,
CONCSTRENGTH, CONCSTRVOLUME, BaseSolutionFld.Name, BaseSolutionFld.Dose, BaseSolutionFld.Uom,
client_visit_obj;
StartNow.Value := false;
RequestedDate.Value := Active_SignificantPlusOneDtm1x ;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour1;
endif;
*/
endif; //if ((Currenthour AS Number) > (Hour1 As Number)) Then
endif; // if daily order
//TID Schedules
if( Hour1 <> "-99" AND Hour2 <> "-99" AND Hour3 <> "-99" AND Hour4 = "-99" AND Hour5 = "-99" ) then
Hour3Rangemax := (Hour3 as number) + (Plusminus|| "00" As number);
Hour3Rangemin := (Hour3 as number) - (Plusminus|| "00" As number) ;
Active_SignificiantDtm3x := Now;
Hour3x := 0000;
b3x := false;
if( (Currenthour As number) < (Hour1Rangemin As Number)) then
dialogResult3x1 := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Do you want the {{{SINGLE-QUOTE}}}"|| MsgFreq1 || "{{{SINGLE-QUOTE}}} dose to replace the " || Hour1 || " dose?"
||" .\n\n Choose YES to give a " || MsgFreq2 || " dose and then start at " || Hour2Txt
||" .\n\n Choose NO to give a " || MsgFreq2 || " dose and then start at " || Hour1Txt ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
if((dialogResult3x1 as string) = "No") then
Active_SignificiantDtm3x := Active_SignificiantDtm;
Hour3x := Hour1;
StartNow.Value := false;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour1;
b3x := true;
endif;
if((dialogResult3x1 as string) = "Yes") then
Active_SignificiantDtm3x := Active_SignificiantDtm;
Hour3x := Hour2;
StartNow.Value := false;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour2;
b3x := true;
endif;
endif;
if( (Currenthour AS Number) >= (Hour1Rangemin AS Number) AND (Currenthour AS Number) <= (Hour1Rangemax AS Number) ) then
Active_SignificiantDtm3x := Active_SignificiantDtm;
Hour3x := Hour2;
StartNow.Value := false;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour2;
b3x := true;
endif;
if( (Currenthour AS Number) > (Hour1Rangemax AS Number) AND (Currenthour AS Number) < (Hour2Rangemin As Number)) then
dialogResult3x2 := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Do you want the {{{SINGLE-QUOTE}}}"|| MsgFreq1 || "{{{SINGLE-QUOTE}}} dose to replace the " || Hour2Txt || " dose?"
||" .\n\n Choose YES to give a " || MsgFreq2 || " dose and then start at " || Hour3Txt
||" .\n\n Choose NO to give a " || MsgFreq2 || " dose and then start at " || Hour2Txt ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
if((dialogResult3x2 as string) = "No") then
Active_SignificiantDtm3x := Active_SignificiantDtm;
Hour3x := Hour2;
StartNow.Value := false;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour2;
b3x := true;
endif;
if((dialogResult3x2 as string) = "Yes") then
Active_SignificiantDtm3x := Active_SignificiantDtm ;
Hour3x := Hour3;
StartNow.Value := false;
RequestedDate.Value := Active_SignificiantDtm ;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour3;
b3x := true;
endif;
endif;
if( (Currenthour AS Number) >= (Hour2Rangemin AS Number) AND (Currenthour AS Number) <= (Hour2Rangemax As Number) ) then
Active_SignificiantDtm3x := Active_SignificiantDtm ;
Hour3x := Hour3;
StartNow.Value := false;
RequestedDate.Value := Active_SignificiantDtm ;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour3;
b3x := true;
endif;
if( (Currenthour AS Number) > (Hour2Rangemax AS Number) AND (Currenthour AS Number) < (Hour3Rangemin As Number)) then
Active_SignificantPlusOneDtm := Now + 1 day;
Active_SignificantPlusOneISODate := (extract month Active_SignificantPlusOneDtm) formatted with "%02d"
|| "-" || (extract day Active_SignificantPlusOneDtm) formatted with "%02d" || "-"
|| (extract year Active_SignificantPlusOneDtm) formatted with "%04d" ;
dialogResult3x3 := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Do you want the {{{SINGLE-QUOTE}}}"|| MsgFreq1 || "{{{SINGLE-QUOTE}}} dose to replace the " || Hour3Txt || " dose?"
||" .\n\n Choose YES to give a " || MsgFreq2 || " dose and then start at " || Hour1Txt || " on " || Active_SignificantPlusOneISODate
||" .\n\n Choose NO to give a " || MsgFreq2 || " dose and then start at " || Hour3Txt ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
if((dialogResult3x3 as string) = "No") then
Active_SignificiantDtm3x := Active_SignificiantDtm;
Hour3x := Hour3;
StartNow.Value := false;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour3;
b3x := true;
endif;
if((dialogResult3x3 as string) = "Yes") then
Active_SignificiantDtm3x := Active_SignificiantDtm ;
Hour3x := Hour1;
StartNow.Value := false;
RequestedDate.Value := Active_SignificiantDtm + 1 day;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour1;
b3x := true;
endif;
endif;
if( (Currenthour AS Number) >= (Hour3Rangemin AS Number) AND (Currenthour AS Number) <= (Hour3Rangemax As Number) ) then
Active_SignificiantDtm3x := Active_SignificiantDtm + 1 day;
Hour3x := Hour1;
StartNow.Value := false;
RequestedDate.Value := Active_SignificiantDtm + 1 day ;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour1;
b3x := true;
endif;
if((Currenthour AS Number) > (Hour3Rangemax As Number) AND (Currenthour AS Number) <= 2359) then
Active_SignificantPlusOneDtm := Now + 1 day;
Active_SignificantPlusOneISODate := (extract month Active_SignificantPlusOneDtm) formatted with "%02d"
|| "-" || (extract day Active_SignificantPlusOneDtm) formatted with "%02d" || "-"
|| (extract year Active_SignificantPlusOneDtm) formatted with "%04d" ;
dialogResult3x4 := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Do you want the {{{SINGLE-QUOTE}}}"|| MsgFreq1 || "{{{SINGLE-QUOTE}}} dose to replace the " || Hour1Txt || " on " || Active_SignificantPlusOneISODate ||" dose?"
||" .\n\n Choose YES to give a " || MsgFreq2 || " dose and then start at " || Hour2Txt || " on " || Active_SignificantPlusOneISODate
||" .\n\n Choose NO to give a " || MsgFreq2 || " dose and then start at " || Hour1Txt || " on " || Active_SignificantPlusOneISODate ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
if((dialogResult3x4 as string) = "No") then
Active_SignificiantDtm3x := Active_SignificiantDtm + 1 day;
Hour3x := Hour1;
StartNow.Value := false;
RequestedDate.Value := Active_SignificiantDtm + 1 day;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour1;
b3x := true;
endif;
if((dialogResult3x4 as string) = "Yes") then
Active_SignificiantDtm3x := Active_SignificiantDtm + 1 day;
Hour3x := Hour2;
RequestedDate.Value := Active_SignificiantDtm + 1 day;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour2;
b3x := true;
endif;
endif;
if(b3x = true) Then
zz_call := call SCH_NOW_AND_THEN_GENERATE_ORDER with
PrimaryObjdetail.Name,
PrimaryObjdetail.Modifier,
NewOrderFreq,
Hour3x,
dose, dosehigh,
Uom, PRN,
OrderRouteCode,
worksheetInfo,
Active_OrderGUID,
Now, RxInstruct, UserInstruct, WorxRouteCode, WorxCode,
Nonchemical_Restraint_Ind, ADMINS_AppSite, ADMINS_GiveWith, AltPrintLocation,
BRANDNAME, Concentration, CONCSTRENGTHUOM, CONCSTRVOLUMEUOM, DrugNameforMLM,
NOTECOMMENT1, NOTECOMMENT2, NOTECOMMENT7, NOTECOMMENT8, OmitMessage,
PRNCONDITION, TP_Application_Site, Chemical_Restraint, Not_Chemical_Restraint,
Aerochamber, AutoVerify,AWP, Inspirese, PrebuiltOrder, Pt_to_Admin, Resp_to_Admin,
CONCSTRENGTH, CONCSTRVOLUME, BaseSolutionFld.Name, BaseSolutionFld.Dose, BaseSolutionFld.Uom,
PhysReqNaCl,
client_visit_obj;
StartNow.Control_Read_Only := true;
StatandThen.Control_Read_Only := true;
AddlDoseOrdered.value := true;
// PRN_field.Control_Read_Only := true;
regular_freq.control_Read_Only := true;
endif;
endif; //if( Hour1 <> "-99" AND Hour2 <> "-99" AND Hour3 <> "-99" AND Hour4 = "-99" AND Hour5 = "-99" ) then
//QID Schedules
if( Hour1 <> "-99" AND Hour2 <> "-99" AND Hour3 <> "-99" AND Hour4 <> "-99" AND Hour5 = "-99" ) then
Hour3Rangemax := (Hour3 as number) + (Plusminus|| "00" As number);
Hour3Rangemin := (Hour3 as number) - (Plusminus|| "00" As number) ;
Hour4Rangemax := (Hour4 as number) + (Plusminus|| "00" As number);
Hour4Rangemin := (Hour4 as number) - (Plusminus|| "00" As number) ;
Active_SignificiantDtm4x := Now;
Hour4x := 0000;
b4x := false;
if( (Currenthour As number) < (Hour1Rangemin As Number)) then
dialogResult4x1 := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Do you want the {{{SINGLE-QUOTE}}}"|| MsgFreq1 || "{{{SINGLE-QUOTE}}} dose to replace the " || Hour1Txt || " dose?"
||" .\n\n Choose YES to give a " || MsgFreq2 || " dose and then start at " || Hour2Txt
||" .\n\n Choose NO to give a " || MsgFreq2 || " dose and then start at " || Hour1Txt ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
if((dialogResult4x1 as string) = "No") then
Active_SignificiantDtm4x := Active_SignificiantDtm;
Hour4x := Hour1;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour1;
b4x := true;
endif;
if((dialogResult4x1 as string) = "Yes") then
Active_SignificiantDtm4x := Active_SignificiantDtm;
Hour4x := Hour2;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour2;
b4x := true;
endif;
endif;
if( (Currenthour AS Number) >= (Hour1Rangemin AS Number) AND (Currenthour AS Number) <= (Hour1Rangemax AS Number) ) then
Active_SignificiantDtm4x := Active_SignificiantDtm;
Hour4x := Hour2;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour2;
b4x := true;
endif;
if( (Currenthour AS Number) > (Hour1Rangemax AS Number) AND (Currenthour AS Number) < (Hour2Rangemin As Number)) then
dialogResult4x2 := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Do you want the {{{SINGLE-QUOTE}}}"|| MsgFreq1 || "{{{SINGLE-QUOTE}}} dose to replace the " || Hour2Txt || " dose?"
||" .\n\n Choose YES to give a " || MsgFreq2 || " dose and then start at " || Hour3Txt
||" .\n\n Choose NO to give a " || MsgFreq2 || " dose and then start at " || Hour2Txt ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
if((dialogResult4x2 as string) = "No") then
Active_SignificiantDtm4x := Active_SignificiantDtm;
Hour4x := Hour2;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour2;
b4x := true;
endif;
if((dialogResult4x2 as string) = "Yes") then
Active_SignificiantDtm4x := Active_SignificiantDtm ;
Hour4x := Hour3;
RequestedDate.Value := Active_SignificiantDtm ;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour3;
b4x := true;
endif;
endif;
if( (Currenthour AS Number) >= (Hour2Rangemin AS Number) AND (Currenthour AS Number) <= (Hour2Rangemax As Number) ) then
Active_SignificiantDtm4x := Active_SignificiantDtm ;
Hour4x := Hour3;
RequestedDate.Value := Active_SignificiantDtm ;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour3;
b4x := true;
endif;
if( (Currenthour AS Number) > (Hour2Rangemax AS Number) AND (Currenthour AS Number) < (Hour3Rangemin As Number)) then
dialogResult4x3 := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Do you want the {{{SINGLE-QUOTE}}}"|| MsgFreq1 || "{{{SINGLE-QUOTE}}} dose to replace the " || Hour3Txt || " dose?"
||" .\n\n Choose YES to give a " || MsgFreq2 || " dose and then start at " || Hour4Txt
||" .\n\n Choose NO to give a " || MsgFreq2 || " dose and then start at " || Hour3Txt ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
if((dialogResult4x3 as string) = "No") then
Active_SignificiantDtm4x := Active_SignificiantDtm;
Hour4x := Hour3;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour3;
b4x := true;
endif;
if((dialogResult4x3 as string) = "Yes") then
Active_SignificiantDtm4x := Active_SignificiantDtm;
Hour4x := Hour4;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour4;
b4x := true;
endif;
endif;
if( (Currenthour AS Number) >= (Hour3Rangemin AS Number) AND (Currenthour AS Number) <= (Hour3Rangemax As Number) ) then
Active_SignificiantDtm4x := Active_SignificiantDtm ;
Hour4x := Hour4;
RequestedDate.Value := Active_SignificiantDtm ;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour4;
b4x := true;
endif;
if( (Currenthour AS Number) > (Hour3Rangemax AS Number) AND (Currenthour AS Number) < (Hour4Rangemin As Number)) then
Active_SignificantPlusOneDtm := Now + 1 day;
Active_SignificantPlusOneISODate := (extract month Active_SignificantPlusOneDtm) formatted with "%02d"
|| "-" || (extract day Active_SignificantPlusOneDtm) formatted with "%02d" || "-"
|| (extract year Active_SignificantPlusOneDtm) formatted with "%04d" ;
dialogResult4x4 := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Do you want the {{{SINGLE-QUOTE}}}"|| MsgFreq1 || "{{{SINGLE-QUOTE}}} dose to replace the " || Hour4Txt || " dose?"
||" .\n\n Choose YES to give a " || MsgFreq2 || " dose and then start at " || Hour1Txt || " on " || Active_SignificantPlusOneISODate
||" .\n\n Choose NO to give a " || MsgFreq2 || " dose and then start at " || Hour4Txt ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
if((dialogResult4x4 as string) = "No") then
Active_SignificiantDtm4x := Active_SignificiantDtm;
Hour4x := Hour4;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour4;
b4x := true;
endif;
if((dialogResult4x4 as string) = "Yes") then
Active_SignificiantDtm4x := Active_SignificiantDtm + 1 day;
Hour4x := Hour1;
RequestedDate.Value := Active_SignificiantDtm + 1 day;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour1;
b4x := true;
endif;
endif;
if( (Currenthour AS Number) >= (Hour4Rangemin AS Number) AND (Currenthour AS Number) <= (Hour4Rangemax As Number) ) then
Active_SignificiantDtm4x := Active_SignificiantDtm + 1 day ;
Hour4x := Hour1;
RequestedDate.Value := Active_SignificiantDtm + 1 day ;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour1;
b4x := true;
endif;
if((Currenthour AS Number) > (Hour4Rangemax As Number) AND (Currenthour AS Number) <= 2359) then
Active_SignificantPlusOneDtm := Now + 1 day;
Active_SignificantPlusOneISODate := (extract month Active_SignificantPlusOneDtm) formatted with "%02d"
|| "-" || (extract day Active_SignificantPlusOneDtm) formatted with "%02d" || "-"
|| (extract year Active_SignificantPlusOneDtm) formatted with "%04d" ;
dialogResult4x5 := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Do you want the {{{SINGLE-QUOTE}}}"|| MsgFreq1 || "{{{SINGLE-QUOTE}}} dose to replace the " || Hour1Txt || " on " || Active_SignificantPlusOneISODate || " dose?"
||" .\n\n Choose YES to give a " || MsgFreq2 || " dose and then start at " || Hour2Txt || " on " || Active_SignificantPlusOneISODate
||" .\n\n Choose NO to give a " || MsgFreq2 || " dose and then start at " || Hour1Txt || " on " || Active_SignificantPlusOneISODate ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
if((dialogResult4x5 as string) = "No") then
Active_SignificiantDtm4x := Active_SignificiantDtm + 1 day;
Hour4x := Hour1;
RequestedDate.Value := Active_SignificiantDtm + 1 day;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour1;
b4x := true;
endif;
if((dialogResult4x5 as string) = "Yes") then
Active_SignificiantDtm4x := Active_SignificiantDtm + 1 day;
Hour4x := Hour2;
RequestedDate.Value := Active_SignificiantDtm + 1 day;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour2;
b4x := true;
endif;
endif;
if(b4x = true) Then
zz_call := call SCH_NOW_AND_THEN_GENERATE_ORDER with
PrimaryObjdetail.Name,
PrimaryObjdetail.Modifier,
NewOrderFreq,
Hour4x,
dose, dosehigh,
Uom, PRN,
OrderRouteCode,
worksheetInfo,
Active_OrderGUID,
Now, RxInstruct, UserInstruct, WorxRouteCode, WorxCode,
Nonchemical_Restraint_Ind, ADMINS_AppSite, ADMINS_GiveWith, AltPrintLocation,
BRANDNAME, Concentration, CONCSTRENGTHUOM, CONCSTRVOLUMEUOM, DrugNameforMLM,
NOTECOMMENT1, NOTECOMMENT2, NOTECOMMENT7, NOTECOMMENT8, OmitMessage,
PRNCONDITION, TP_Application_Site, Chemical_Restraint, Not_Chemical_Restraint,
Aerochamber, AutoVerify,AWP, Inspirese, PrebuiltOrder, Pt_to_Admin, Resp_to_Admin,
CONCSTRENGTH, CONCSTRVOLUME, BaseSolutionFld.Name, BaseSolutionFld.Dose, BaseSolutionFld.Uom,
PhysReqNaCl,
client_visit_obj;
StartNow.Control_Read_Only := true;
StatandThen.Control_Read_Only := true;
AddlDoseOrdered.value := true;
// PRN_field.Control_Read_Only := true;
regular_freq.control_Read_Only := true;
endif;
endif; //if( Hour1 <> "-99" AND Hour2 <> "-99" AND Hour3 <> "-99" AND Hour4 <> "-99" AND Hour5 = "-99" ) then
//5x/day Schedules
if( Hour1 <> "-99" AND Hour2 <> "-99" AND Hour3 <> "-99" AND Hour4 <> "-99" AND Hour5 <> "-99" ) then
Hour3Rangemax := (Hour3 as number) + (Plusminus|| "00" As number);
Hour3Rangemin := (Hour3 as number) - (Plusminus|| "00" As number) ;
Hour4Rangemax := (Hour4 as number) + (Plusminus|| "00" As number);
Hour4Rangemin := (Hour4 as number) - (Plusminus|| "00" As number) ;
Hour5Rangemax := (Hour5 as number) + (Plusminus|| "00" As number);
Hour5Rangemin := (Hour5 as number) - (Plusminus|| "00" As number) ;
Active_SignificiantDtm5x := Now;
Hour5x := 0000;
b5x := false;
if( (Currenthour As number) < (Hour1Rangemin As Number)) then
dialogResult5x1 := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Do you want the {{{SINGLE-QUOTE}}}"|| MsgFreq1 || "{{{SINGLE-QUOTE}}} dose to replace the " || Hour1Txt || " dose?"
||" .\n\n Choose YES to give a " || MsgFreq2 || " dose and then start at " || Hour2Txt
||" .\n\n Choose NO to give a " || MsgFreq2 || " dose and then start at " || Hour1Txt ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
if((dialogResult5x1 as string) = "No") then
Active_SignificiantDtm5x := Active_SignificiantDtm;
Hour5x := Hour1;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour1;
b5x := true;
endif;
if((dialogResult5x1 as string) = "Yes") then
Active_SignificiantDtm5x := Active_SignificiantDtm;
Hour5x := Hour2;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour2;
b5x := true;
endif;
endif;
if( (Currenthour AS Number) >= (Hour1Rangemin AS Number) AND (Currenthour AS Number) <= (Hour1Rangemax AS Number) ) then
Active_SignificiantDtm5x := Active_SignificiantDtm;
Hour5x := Hour2;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour2;
b5x := true;
endif;
if( (Currenthour AS Number) > (Hour1Rangemax AS Number) AND (Currenthour AS Number) < (Hour2Rangemin As Number)) then
dialogResult5x2 := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Do you want the {{{SINGLE-QUOTE}}}"|| MsgFreq1 || "{{{SINGLE-QUOTE}}} dose to replace the " || Hour2Txt || " dose?"
||" .\n\n Choose YES to give a " || MsgFreq2 || " dose and then start at " || Hour3Txt
||" .\n\n Choose NO to give a " || MsgFreq2 || " dose and then start at " || Hour2Txt ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
if((dialogResult5x2 as string) = "No") then
Active_SignificiantDtm5x := Active_SignificiantDtm;
Hour5x := Hour2;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour2;
b5x := true;
endif;
if((dialogResult5x2 as string) = "Yes") then
Active_SignificiantDtm5x := Active_SignificiantDtm ;
Hour5x := Hour3;
RequestedDate.Value := Active_SignificiantDtm ;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour3;
b5x := true;
endif;
endif;
if( (Currenthour AS Number) >= (Hour2Rangemin AS Number) AND (Currenthour AS Number) <= (Hour2Rangemax As Number) ) then
Active_SignificiantDtm5x := Active_SignificiantDtm ;
Hour5x := Hour3;
RequestedDate.Value := Active_SignificiantDtm ;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour3;
b5x := true;
endif;
if( (Currenthour AS Number) > (Hour2Rangemax AS Number) AND (Currenthour AS Number) < (Hour3Rangemin As Number)) then
dialogResult5x3 := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Do you want the {{{SINGLE-QUOTE}}}"|| MsgFreq1 || "{{{SINGLE-QUOTE}}} dose to replace the " || Hour3Txt || " dose?"
||" .\n\n Choose YES to give a " || MsgFreq2 || " dose and then start at " || Hour4Txt
||" .\n\n Choose NO to give a " || MsgFreq2 || " dose and then start at " || Hour3Txt ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
if((dialogResult5x3 as string) = "No") then
Active_SignificiantDtm5x := Active_SignificiantDtm;
Hour5x := Hour3;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour3;
b5x := true;
endif;
if((dialogResult5x3 as string) = "Yes") then
Active_SignificiantDtm5x := Active_SignificiantDtm;
Hour5x := Hour4;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour4;
b5x := true;
endif;
endif;
if( (Currenthour AS Number) >= (Hour3Rangemin AS Number) AND (Currenthour AS Number) <= (Hour3Rangemax As Number) ) then
Active_SignificiantDtm5x := Active_SignificiantDtm ;
Hour5x := Hour4;
RequestedDate.Value := Active_SignificiantDtm ;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour4;
b5x := true;
endif;
if( (Currenthour AS Number) > (Hour3Rangemax AS Number) AND (Currenthour AS Number) < (Hour4Rangemin As Number)) then
dialogResult5x4 := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Do you want the {{{SINGLE-QUOTE}}}"|| MsgFreq1 || "{{{SINGLE-QUOTE}}} dose to replace the " || Hour4Txt || " dose?"
||" .\n\n Choose YES to give a " || MsgFreq2 || " dose and then start at " || Hour5Txt
||" .\n\n Choose NO to give a " || MsgFreq2 || " dose and then start at " || Hour4Txt ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
if((dialogResult5x4 as string) = "No") then
Active_SignificiantDtm5x := Active_SignificiantDtm;
Hour5x := Hour4;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour4;
b5x := true;
endif;
if((dialogResult5x4 as string) = "Yes") then
Active_SignificiantDtm5x := Active_SignificiantDtm + 1 day;
Hour5x := Hour1;
RequestedDate.Value := Active_SignificiantDtm + 1 day;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour1;
b5x := true;
endif;
endif;
if( (Currenthour AS Number) >= (Hour4Rangemin AS Number) AND (Currenthour AS Number) <= (Hour4Rangemax As Number) ) then
Active_SignificiantDtm5x := Active_SignificiantDtm ;
Hour5x := Hour5;
RequestedDate.Value := Active_SignificiantDtm ;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour5;
b5x := true;
endif;
if( (Currenthour AS Number) > (Hour4Rangemax AS Number) AND (Currenthour AS Number) < (Hour5Rangemin As Number)) then
Active_SignificantPlusOneDtm := Now + 1 day;
Active_SignificantPlusOneISODate := (extract month Active_SignificantPlusOneDtm) formatted with "%02d"
|| "-" || (extract day Active_SignificantPlusOneDtm) formatted with "%02d" || "-"
|| (extract year Active_SignificantPlusOneDtm) formatted with "%04d" ;
dialogResult5x5 := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Do you want the {{{SINGLE-QUOTE}}}"|| MsgFreq1 || "{{{SINGLE-QUOTE}}} dose to replace the " || Hour5Txt || " dose?"
||" .\n\n Choose YES to give a " || MsgFreq2 || " dose and then start at " || Hour1Txt || " on " || Active_SignificantPlusOneISODate
||" .\n\n Choose NO to give a " || MsgFreq2 || " dose and then start at " || Hour5Txt ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
if((dialogResult5x5 as string) = "No") then
Active_SignificiantDtm5x := Active_SignificiantDtm;
Hour5x := Hour5;
RequestedDate.Value := Active_SignificiantDtm;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour5;
b5x := true;
endif;
if((dialogResult5x5 as string) = "Yes") then
Active_SignificiantDtm5x := Active_SignificiantDtm + 1 day;
Hour5x := Hour1;
RequestedDate.Value := Active_SignificiantDtm + 1 day;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour1;
b5x := true;
endif;
endif;
if( (Currenthour AS Number) >= (Hour5Rangemin AS Number) AND (Currenthour AS Number) <= (Hour5Rangemax As Number) ) then
Active_SignificiantDtm5x := Active_SignificiantDtm + 1 day ;
Hour5x := Hour1;
RequestedDate.Value := Active_SignificiantDtm + 1 day ;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour1;
b5x := true;
endif;
if((Currenthour AS Number) > (Hour5Rangemax As Number) AND (Currenthour AS Number) <= 2359) then
Active_SignificantPlusOneDtm := Now + 1 day;
Active_SignificantPlusOneISODate := (extract month Active_SignificantPlusOneDtm) formatted with "%02d" || "-"
|| (extract day Active_SignificantPlusOneDtm) formatted with "%02d" || "-"
|| (extract year Active_SignificantPlusOneDtm) formatted with "%04d" ;
dialogResult5x6 := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Do you want the {{{SINGLE-QUOTE}}}" || MsgFreq1 || "{{{SINGLE-QUOTE}}} dose to replace the " || Hour1Txt || " on " || Active_SignificantPlusOneISODate || " dose?"
||" .\n\n Choose YES to give a " || MsgFreq2 || " dose and then start at " || Hour2Txt || " on " || Active_SignificantPlusOneISODate
||" .\n\n Choose NO to give a " || MsgFreq2 || " dose and then start at " || Hour1Txt || " on " || Active_SignificantPlusOneISODate ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
if((dialogResult5x4 as string) = "No") then
Active_SignificiantDtm5x := Active_SignificiantDtm + 1 day;
Hour5x := Hour1;
RequestedDate.Value := Active_SignificiantDtm + 1 day;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour1;
b5x := true;
endif;
if((dialogResult5x4 as string) = "Yes") then
Active_SignificiantDtm5x := Active_SignificiantDtm + 1 day;
Hour5x := Hour2;
RequestedDate.Value := Active_SignificiantDtm + 1 day;
RequestedTime.ReqTimeCode := "Scheduled/Start Time";
RequestedTime.ReqTimeValue := Hour2;
b5x := true;
endif;
endif;
if(b5x = true) Then
zz_call := call SCH_NOW_AND_THEN_GENERATE_ORDER with
PrimaryObjdetail.Name,
PrimaryObjdetail.Modifier,
NewOrderFreq,
Hour5x,
dose, dosehigh,
Uom, PRN,
OrderRouteCode,
worksheetInfo,
Active_OrderGUID,
Now, RxInstruct, UserInstruct, WorxRouteCode, WorxCode,
Nonchemical_Restraint_Ind, ADMINS_AppSite, ADMINS_GiveWith, AltPrintLocation,
BRANDNAME, Concentration, CONCSTRENGTHUOM, CONCSTRVOLUMEUOM, DrugNameforMLM,
NOTECOMMENT1, NOTECOMMENT2, NOTECOMMENT7, NOTECOMMENT8, OmitMessage,
PRNCONDITION, TP_Application_Site, Chemical_Restraint, Not_Chemical_Restraint,
Aerochamber, AutoVerify,AWP, Inspirese, PrebuiltOrder, Pt_to_Admin, Resp_to_Admin,
CONCSTRENGTH, CONCSTRVOLUME, BaseSolutionFld.Name, BaseSolutionFld.Dose, BaseSolutionFld.Uom,
PhysReqNaCl,
client_visit_obj;
StartNow.Control_Read_Only := true;
StatandThen.Control_Read_Only := true;
AddlDoseOrdered.value := true;
// PRN_field.Control_Read_Only := true;
regular_freq.control_Read_Only := true;
endif;
endif; //if( Hour1 <> "-99" AND Hour2 <> "-99" AND Hour3 <> "-99" AND Hour4 <> "-99" AND Hour5 <> "-99" ) then
endif; //if( blnUpdateFrequency = true AND this_communication.DisplayForm
if proctype is null then // if start now = true
//else // if start now = true
RequestedTime.ReqTimeCode := NULL;
RequestedTime.ReqTimeValue := NULL;
RequestedDate.value := NULL;
RequestedDate.control_read_only := false;
RequestedTime.control_read_only := false;
StartNow.Value := false;
StartNow.control_read_only := true;
StatandThen.Value := false;
StatandThen.control_read_only := true;
endif;
endif; //if (StartNow.Value = true) or (STATandThen.Value = true)
endif; //if exists(StartNow) or (StatandThen)
endif; //if continue_checking_order = true
endif; // if session_type = "standard"
endif; //if (CallingEvent = "FormClose")
;;
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:
Reference in New Issue View Git Blame Copy Permalink