Initial Checking with all 820 MLMs
This commit is contained in:
496
MLMStripper/bin/Debug/FORM/FORM_SET_POSTOP_LUMBAR_LAM.mlm
Normal file
496
MLMStripper/bin/Debug/FORM/FORM_SET_POSTOP_LUMBAR_LAM.mlm
Normal file
@@ -0,0 +1,496 @@
|
||||
maintenance:
|
||||
|
||||
title: Multi Dose Now and Then Orders;;
|
||||
mlmname: FORM_Set_PostOp_Lumbar_Lam;;
|
||||
arden: version 2.5;;
|
||||
version: 5.50;;
|
||||
institution: St Clair Hospital;;
|
||||
author: Teresa Spicuzza, Allscripts ;;
|
||||
specialist: Michele Payne, Allscripts;;
|
||||
date: 2011-11-01;;
|
||||
validation: testing;;
|
||||
|
||||
library:
|
||||
purpose: Used for grids to limit duplicate selections for analgesics and antibiotics
|
||||
;;
|
||||
|
||||
explanation: This MLM is called from the Post Op Lumbar Laminectomy Order Set
|
||||
|
||||
Change history
|
||||
2011.01.11 TMS Created for CSR #26791
|
||||
2012.03.16 JML Added logic to restrict IV management of discontinue of PCA/IV Opioid
|
||||
and auto fill the post op day to either T+1 or T+2, depending on user selected option.
|
||||
2012.03.28 JML Modified logic to include two additional post discharge Vicodin orders
|
||||
2014.10.29 JML CSR 32824: Modified logic to display alert on form close if Opioid analgesic med
|
||||
was selected without selecting a post op discontinue pca order
|
||||
2014.11.05 JML CSR 32824: Moved to production
|
||||
2016.04.26 TMS CSR 33465: Add call on Form Close to Medication Order Management MLM
|
||||
2017.03.03 SSJ CSR # 35111 - Post Op Anterior Cervical Discectomy Order added code for Checkbox 3 and 4.
|
||||
2017.03.31 SSJ CSR # 35110 - Commented the logic of [MultiOrderGrid, – MultiFieldOccNum’s 11, 39, 40, and 41] As per teresa/Robert{{{SINGLE-QUOTE}}}s mail [SJ20170331]
|
||||
2018.08.22 JML CSR # 37177, 37176 - Update logic as a result of Order Set Review process.
|
||||
;;
|
||||
keywords: Called MLMs, Post Op Lumbar Laminectomy
|
||||
;;
|
||||
knowledge:
|
||||
type: data-driven;;
|
||||
data:
|
||||
|
||||
// This MLM is passed three arguments, of types
|
||||
// communication_type, form_type and client info object respectively.
|
||||
|
||||
(this_communication, // Communication object
|
||||
this_form, // Form object
|
||||
client_info_obj //Arden ClientInfo object
|
||||
) := argument;
|
||||
standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
|
||||
include standard_libs;
|
||||
|
||||
using "ObjectsPlusXA.SCM.Forms";
|
||||
using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
|
||||
/*******************Make Changes To Spelling And Flags In This Section*******************/
|
||||
|
||||
/* Set to true if a decision.log is needed.*/
|
||||
log_execution_info := FALSE;
|
||||
|
||||
|
||||
/***************************************************************************************/
|
||||
|
||||
// Initialize error message
|
||||
error_message:="";
|
||||
|
||||
// Assigns fields passed in the Form object to the Field object
|
||||
field_list:= this_form.fields;
|
||||
CallingEvent := this_communication.CallingEvent;
|
||||
CallingField := this_communication.CallingFieldName;
|
||||
|
||||
Mlt_Order_Grid5:= first of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 5);
|
||||
Mlt_Order_Grid28:= first of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 28);
|
||||
Mlt_Order_Grid33:= first of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 33);
|
||||
Mlt_Order_Grid34:= first of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 34);
|
||||
Mlt_Order_Grid35:= first of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 35);
|
||||
// [SJ20170331]- Commented as per header comment
|
||||
/*
|
||||
Mlt_Order_Grid11:= first of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 11);
|
||||
Mlt_Order_Grid39:= first of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 39);
|
||||
Mlt_Order_Grid40:= first of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 40);
|
||||
Mlt_Order_Grid41:= first of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 41); */
|
||||
Mtl_Order_Grid42:= first of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 42);
|
||||
|
||||
Chk_DiscPCADay1 := first of (field_list where field_list.DataItemName = "PRX_Checkbox1");
|
||||
Chk_DiscPCADay2 := first of (field_list where field_list.DataItemName = "PRX_Checkbox2");
|
||||
/*** Start : CSR # 35111 - Added By shivprasad ****/
|
||||
Chk_DiscPCADay3 := first of (field_list where field_list.DataItemName = "PRX_Checkbox3" AND field_list.Control_MultiFieldOccNum = 1);
|
||||
Chk_DiscPCADay4 := first of (field_list where field_list.DataItemName = "PRX_Checkbox4" AND field_list.Control_MultiFieldOccNum = 1);
|
||||
/*** End : CSR # 35111 - Added By shivprasad ****/
|
||||
DiscPCARequestedDate := first of (field_list where field_list.DataItemName = "RequestedDate");
|
||||
|
||||
Mlt_Grid5 := Mlt_Order_Grid5.Value;
|
||||
Mlt_Grid28 := Mlt_Order_Grid28.Value;
|
||||
Mlt_Grid33 := Mlt_Order_Grid33.Value;
|
||||
Mlt_Grid34 := Mlt_Order_Grid34.Value;
|
||||
Mlt_Grid35 := Mlt_Order_Grid35.Value;
|
||||
// [SJ20170331]- Commented as per header comment
|
||||
/* Mlt_Grid11 := Mlt_Order_Grid11.Value;
|
||||
Mlt_Grid39 := Mlt_Order_Grid39.Value;
|
||||
Mlt_Grid40 := Mlt_Order_Grid40.Value;
|
||||
Mlt_Grid41 := Mlt_Order_Grid41.Value; */
|
||||
Mlt_Grid42 := Mtl_Order_Grid42.Value;
|
||||
|
||||
falselist28 := ();
|
||||
truelist28 := ();
|
||||
falselist33 := ();
|
||||
truelist33 := ();
|
||||
falselist34 := ();
|
||||
truelist34 := ();
|
||||
falselist35 := ();
|
||||
truelist35 := ();
|
||||
buttonresult:="";
|
||||
|
||||
// Get patient weight
|
||||
comb_ht_wt_field := first of (field_list where field_list.DataItemName = "CombinedMeasurements");
|
||||
if exists comb_ht_wt_field then comb_ht_wt_val := comb_ht_wt_field.value;
|
||||
wt := comb_ht_wt_val.weight;
|
||||
weightvalue := (wt as number);
|
||||
endif;
|
||||
|
||||
Gridlist28 := count Mlt_Grid28 ;
|
||||
Gridlist33 := count Mlt_Grid33;
|
||||
Gridlist34 := count Mlt_Grid34;
|
||||
Gridlist35 := count Mlt_Grid35;
|
||||
|
||||
|
||||
for p in (1 seqto GridList28) do
|
||||
falselist28 := falselist28, false;
|
||||
truelist28 := truelist28, true;
|
||||
enddo;
|
||||
|
||||
for r in (1 seqto GridList33) do
|
||||
falselist33 := falselist33, false;
|
||||
truelist33 := truelist33, true;
|
||||
enddo;
|
||||
|
||||
for k in (1 seqto GridList34) do
|
||||
falselist34 := falselist34, false;
|
||||
truelist34 := truelist34, true;
|
||||
enddo;
|
||||
|
||||
for s in (1 seqto GridList35) do
|
||||
falselist35 := falselist35, false;
|
||||
truelist35 := truelist35, true;
|
||||
enddo;
|
||||
|
||||
If CallingEvent = "FormOpen" Then
|
||||
Mlt_Grid42.IsReadOnly := true;
|
||||
Endif;
|
||||
|
||||
If CallingEvent = "FieldChange" Then
|
||||
|
||||
If CallingField = "MultiOrderGrid|28" Then
|
||||
If true in Mlt_Grid28.IsSelected Then
|
||||
Mlt_Grid33.IsSelected := falselist33;
|
||||
Mlt_Grid33.IsReadOnly := truelist33;
|
||||
Mlt_Grid34.IsSelected := falselist34;
|
||||
Mlt_Grid34.IsReadOnly := truelist34;
|
||||
Mlt_Grid35.IsSelected := falselist35;
|
||||
Mlt_Grid35.IsReadOnly := truelist35;
|
||||
/*** Start : CSR # 35110 - Added By shivprasad ****/
|
||||
Chk_DiscPCADay3.Control_Read_Only := true; Chk_DiscPCADay3.Value := False;
|
||||
Chk_DiscPCADay4.Control_Read_Only := true; Chk_DiscPCADay4.Value := False;
|
||||
|
||||
Else
|
||||
Mlt_Grid33.IsReadOnly := falselist33;
|
||||
Mlt_Grid34.IsReadOnly := falselist34;
|
||||
Mlt_Grid35.IsReadOnly := falselist35;
|
||||
/*** Start : CSR # 35110 - Added By shivprasad ****/
|
||||
Chk_DiscPCADay3.Control_Read_Only := False;
|
||||
Chk_DiscPCADay4.Control_Read_Only := False;
|
||||
|
||||
Endif;
|
||||
Endif;
|
||||
|
||||
If CallingField = "MultiOrderGrid|33" Then
|
||||
If true in Mlt_Grid33.IsSelected Then
|
||||
|
||||
Mlt_Grid28.IsSelected := falselist28;
|
||||
Mlt_Grid28.IsReadOnly := truelist28;
|
||||
Mlt_Grid34.IsSelected := falselist34;
|
||||
Mlt_Grid34.IsReadOnly := truelist34;
|
||||
Mlt_Grid35.IsSelected := falselist35;
|
||||
Mlt_Grid35.IsReadOnly := truelist35;
|
||||
/*** Start : CSR # 35110 - Added By shivprasad ****/
|
||||
Chk_DiscPCADay3.Control_Read_Only := true; Chk_DiscPCADay3.Value := False;
|
||||
Chk_DiscPCADay4.Control_Read_Only := true; Chk_DiscPCADay4.Value := False;
|
||||
Else
|
||||
Mlt_Grid28.IsReadOnly := falselist28;
|
||||
Mlt_Grid34.IsReadOnly := falselist34;
|
||||
Mlt_Grid35.IsReadOnly := falselist35;
|
||||
/*** Start : CSR # 35110 - Added By shivprasad ****/
|
||||
Chk_DiscPCADay3.Control_Read_Only := False;
|
||||
Chk_DiscPCADay4.Control_Read_Only := False;
|
||||
|
||||
Endif;
|
||||
Endif;
|
||||
|
||||
If CallingField = "MultiOrderGrid|34" Then
|
||||
If true in Mlt_Grid34.IsSelected Then
|
||||
Mlt_Grid28.IsSelected := falselist28;
|
||||
Mlt_Grid28.IsReadOnly := truelist28;
|
||||
Mlt_Grid33.IsSelected := falselist33;
|
||||
Mlt_Grid33.IsReadOnly := truelist33;
|
||||
Mlt_Grid35.IsSelected := falselist35;
|
||||
Mlt_Grid35.IsReadOnly := truelist35;
|
||||
Else
|
||||
Mlt_Grid28.IsReadOnly := falselist28;
|
||||
Mlt_Grid33.IsReadOnly := falselist33;
|
||||
Mlt_Grid35.IsReadOnly := falselist35;
|
||||
Endif;
|
||||
Endif;
|
||||
|
||||
If CallingField = "MultiOrderGrid|35" Then
|
||||
If true in Mlt_Grid35.IsSelected Then
|
||||
Mlt_Grid28.IsSelected := falselist28;
|
||||
Mlt_Grid28.IsReadOnly := truelist28;
|
||||
Mlt_Grid33.IsSelected := falselist33;
|
||||
Mlt_Grid33.IsReadOnly := truelist33;
|
||||
Mlt_Grid34.IsSelected := falselist34;
|
||||
Mlt_Grid34.IsReadOnly := truelist34;
|
||||
Else
|
||||
Mlt_Grid28.IsReadOnly := falselist28;
|
||||
Mlt_Grid33.IsReadOnly := falselist33;
|
||||
Mlt_Grid34.IsReadOnly := falselist34;
|
||||
Endif;
|
||||
Endif;
|
||||
|
||||
|
||||
If CallingField = "MultiOrderGrid|5" Then
|
||||
If true in Mlt_Grid5.IsSelected Then
|
||||
|
||||
If Mlt_Grid5.IsSelected [1] = true Then
|
||||
Mlt_Grid5.IsReadOnly := (False,True,True,True);
|
||||
Endif;
|
||||
|
||||
If Mlt_Grid5.IsSelected [2] = true Then
|
||||
Mlt_Grid5.IsReadOnly := (True,False,True,True);
|
||||
Endif;
|
||||
|
||||
If Mlt_Grid5.IsSelected [3] = true Then
|
||||
Mlt_Grid5.IsReadOnly := (True,True,False,True);
|
||||
Endif;
|
||||
|
||||
If Mlt_Grid5.IsSelected [4] = true Then
|
||||
Mlt_Grid5.IsReadOnly := (True,True,True,False);
|
||||
Endif;
|
||||
|
||||
Else
|
||||
Mlt_Grid5.IsReadOnly := (False,False,False,False);
|
||||
Endif;
|
||||
Endif;
|
||||
// [SJ20170331]- Commented as per header comment
|
||||
/*
|
||||
If CallingField = "MultiOrderGrid|11" then
|
||||
If true in Mlt_Grid11.IsSelected Then
|
||||
Mlt_Grid39.IsSelected := (False,False);
|
||||
Mlt_Grid39.IsReadOnly := (True,True);
|
||||
Mlt_Grid40.IsSelected := (False,False);
|
||||
Mlt_Grid40.IsReadOnly := (True,True);
|
||||
|
||||
If Mlt_Grid11.IsSelected [1] = True then
|
||||
Mlt_Grid11.IsSelected := (True,False);
|
||||
|
||||
If weightvalue >= 80 then
|
||||
dialogResult := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Patient weight is greater than 80kg." ||"\n\n Do you wish to change order." ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
|
||||
buttonresult := dialogResult as string;
|
||||
If buttonresult = "Yes" then Mlt_Grid11.IsSelected := (False,True); endif;
|
||||
endif;
|
||||
endif;
|
||||
|
||||
If Mlt_Grid11.IsSelected [2] = True then
|
||||
Mlt_Grid11.IsSelected := (False, True);
|
||||
|
||||
If (weightvalue < 80 and weightvalue > 0) then
|
||||
dialogResult := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Patient weight is less than 80kg." ||"\n\n Do you wish to change order." ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
|
||||
buttonresult := dialogResult as string;
|
||||
If buttonresult = "Yes" then Mlt_Grid11.IsSelected := (True,False); endif;
|
||||
endif;
|
||||
endif;
|
||||
|
||||
Else
|
||||
Mlt_Grid11.IsReadOnly := (False,False);
|
||||
Mlt_Grid39.IsReadOnly := (False,False);
|
||||
Mlt_Grid40.IsReadOnly := (False,False);
|
||||
|
||||
Endif;
|
||||
Endif; //If CallingField = "MultiOrderGrid|11"
|
||||
|
||||
If CallingField = "MultiOrderGrid|39" Then
|
||||
If true in Mlt_Grid39.IsSelected Then
|
||||
Mlt_Grid11.IsSelected := (False,False);
|
||||
Mlt_Grid11.IsReadOnly := (True,True);
|
||||
Mlt_Grid40.IsSelected := (False,False);
|
||||
Mlt_Grid40.IsReadOnly := (True,True);
|
||||
|
||||
If Mlt_Grid39.IsSelected [1] = True then
|
||||
Mlt_Grid39.IsSelected := (True,False);
|
||||
|
||||
If weightvalue >= 80 then
|
||||
dialogResult := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Patient weight is greater than 80kg." ||"\n\n Do you wish to change order." ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
|
||||
buttonresult := dialogResult as string;
|
||||
If buttonresult = "Yes" then Mlt_Grid39.IsSelected := (False,True); endif;
|
||||
endif;
|
||||
endif;
|
||||
|
||||
If Mlt_Grid39.IsSelected [2] = True then
|
||||
Mlt_Grid39.IsSelected := (False, True);
|
||||
|
||||
If (weightvalue < 80 and weightvalue > 0) then
|
||||
dialogResult := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Patient weight is less than 80kg." ||"\n\n Do you wish to change order." ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
|
||||
buttonresult := dialogResult as string;
|
||||
If buttonresult = "Yes" then Mlt_Grid39.IsSelected := (True, False); endif;
|
||||
endif;
|
||||
endif;
|
||||
Else
|
||||
Mlt_Grid11.IsReadOnly := (False,False);
|
||||
Mlt_Grid40.IsReadOnly := (False,False);
|
||||
|
||||
Endif;
|
||||
Endif; //If CallingField = "MultiOrderGrid|39"
|
||||
|
||||
If CallingField = "MultiOrderGrid|40" Then
|
||||
If true in Mlt_Grid40.IsSelected Then
|
||||
Mlt_Grid11.IsSelected := (False,False);
|
||||
Mlt_Grid11.IsReadOnly := (True,True);
|
||||
Mlt_Grid39.IsSelected := (False,False);
|
||||
Mlt_Grid39.IsReadOnly := (True,True);
|
||||
|
||||
If Mlt_Grid40.IsSelected [1] = True then
|
||||
Mlt_Grid40.IsSelected := (True,False);
|
||||
|
||||
If weightvalue >= 80 then
|
||||
dialogResult := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Patient weight is greater than 80kg." ||"\n\n Do you wish to change order." ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
|
||||
buttonresult := dialogResult as string;
|
||||
If buttonresult = "Yes" then Mlt_Grid40.IsSelected := (False, True); endif;
|
||||
endif;
|
||||
|
||||
If weightvalue < 50 and weightvalue > 0 then
|
||||
dialogResult := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Patient weight is less than 50kg." ||"\n\n Do you wish to change order." ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
|
||||
buttonresult := dialogResult as string;
|
||||
If buttonresult = "Yes" then Mlt_Grid40.IsSelected := (False, True); endif;
|
||||
endif;
|
||||
endif;
|
||||
|
||||
If Mlt_Grid40.IsSelected [2] = True then
|
||||
Mlt_Grid40.IsSelected := (False, True);
|
||||
|
||||
If (weightvalue >= 50 and weightvalue < 80) then
|
||||
dialogResult := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Patient weight is between 50kg to 79kg." ||"\n\n Do you wish to change order." ,"Alert","YesNo" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
|
||||
buttonresult := dialogResult as string;
|
||||
If buttonresult = "Yes" then Mlt_Grid40.IsSelected := (True, False); endif;
|
||||
endif;
|
||||
endif;
|
||||
Else
|
||||
Mlt_Grid40.IsSelected := (False,False);
|
||||
Mlt_Grid11.IsReadOnly := (False,False);
|
||||
Mlt_Grid39.IsReadOnly := (False,False);
|
||||
Endif;
|
||||
Endif; //If CallingField = "MultiOrderGrid|40"
|
||||
|
||||
If CallingField = "MultiOrderGrid|41" Then
|
||||
If true in Mlt_Grid41.IsSelected Then
|
||||
Mlt_Grid11.IsSelected := (False,False);
|
||||
Mlt_Grid11.IsReadOnly := (True,True);
|
||||
Mlt_Grid39.IsSelected := (False,False);
|
||||
Mlt_Grid39.IsReadOnly := (True,True);
|
||||
Mlt_Grid40.IsSelected := (False,False);
|
||||
Mlt_Grid40.IsReadOnly := (True, True);
|
||||
Else
|
||||
Mlt_Grid11.IsReadOnly := (False,False);
|
||||
Mlt_Grid39.IsReadOnly := (False,False);
|
||||
Mlt_Grid40.IsReadOnly := (False,False);
|
||||
Endif;
|
||||
Endif; //If CallingField = "MultiOrderGrid|41" */
|
||||
|
||||
|
||||
if (CallingField = "PRX_Checkbox1|1") then
|
||||
if (Chk_DiscPCADay1.Value = true) then
|
||||
Chk_DiscPCADay2.Control_Read_Only := true;
|
||||
Mlt_Grid42.IsSelected := true;
|
||||
|
||||
PostOpDay1Date := (NOW + 1 day) FORMATTED WITH "%.2t";
|
||||
If (Chk_DiscPCADay3.Value = true) then
|
||||
DiscPCARequestedDate.Value := (NOW) FORMATTED WITH "%.2t";
|
||||
Else
|
||||
DiscPCARequestedDate.Value := PostOpDay1Date;
|
||||
Endif;
|
||||
|
||||
else
|
||||
Chk_DiscPCADay2.Control_Read_Only := false;
|
||||
Mlt_Grid42.IsSelected := false;
|
||||
DiscPCARequestedDate.Value := "";
|
||||
|
||||
endif;
|
||||
endif; //If CallingField = "PRX_Checkbox1|1"
|
||||
|
||||
|
||||
if (CallingField = "PRX_Checkbox2|1") then
|
||||
if (Chk_DiscPCADay2.Value = true) then
|
||||
Chk_DiscPCADay1.Control_Read_Only := true;
|
||||
Mlt_Grid42.IsSelected := true;
|
||||
|
||||
PostOpDay2Date := (NOW + 2 day) FORMATTED WITH "%.2t";
|
||||
If (Chk_DiscPCADay3.Value = true) then
|
||||
DiscPCARequestedDate.Value := (NOW) FORMATTED WITH "%.2t";
|
||||
Else
|
||||
DiscPCARequestedDate.Value := PostOpDay2Date;
|
||||
Endif;
|
||||
else
|
||||
Chk_DiscPCADay1.Control_Read_Only := false;
|
||||
Mlt_Grid42.IsSelected := false;
|
||||
DiscPCARequestedDate.Value := "";
|
||||
|
||||
endif;
|
||||
endif; //If CallingField = "PrX_Checkbox2|1"
|
||||
|
||||
/*** Start : Added By shivprasad ****/
|
||||
|
||||
if (CallingField = "PRX_Checkbox3|1") then
|
||||
if (Chk_DiscPCADay3.Value = true) then
|
||||
Chk_DiscPCADay4.Control_Read_Only := true;
|
||||
|
||||
|
||||
PostOpDay1Date3 := (NOW ) FORMATTED WITH "%.2t";
|
||||
DiscPCARequestedDate.Value := PostOpDay1Date3;
|
||||
else
|
||||
Chk_DiscPCADay4.Control_Read_Only := false;
|
||||
DiscPCARequestedDate.Value := "";
|
||||
|
||||
If (Chk_DiscPCADay1.Value = true) then
|
||||
PostOpDay1Date := (NOW + 1 day) FORMATTED WITH "%.2t";
|
||||
DiscPCARequestedDate.Value := PostOpDay1Date;
|
||||
ElseIf (Chk_DiscPCADay2.Value = true) then
|
||||
PostOpDay2Date := (NOW + 2 day) FORMATTED WITH "%.2t";
|
||||
DiscPCARequestedDate.Value := PostOpDay2Date;
|
||||
Else
|
||||
PostOpDay1Date3 := (NOW ) FORMATTED WITH "%.2t";
|
||||
DiscPCARequestedDate.Value := PostOpDay1Date3;
|
||||
Endif;
|
||||
|
||||
endif;
|
||||
endif; //If CallingField = "PRX_Checkbox3|1"
|
||||
|
||||
if (CallingField = "PRX_Checkbox4|1") then
|
||||
if (Chk_DiscPCADay4.Value = true) then
|
||||
Chk_DiscPCADay3.Control_Read_Only := true;
|
||||
|
||||
If (Chk_DiscPCADay1.Value = true) then
|
||||
PostOpDay1Date := (NOW + 1 day) FORMATTED WITH "%.2t";
|
||||
DiscPCARequestedDate.Value := PostOpDay1Date;
|
||||
ElseIf (Chk_DiscPCADay2.Value = true) then
|
||||
PostOpDay2Date := (NOW + 2 day) FORMATTED WITH "%.2t";
|
||||
DiscPCARequestedDate.Value := PostOpDay2Date;
|
||||
Else
|
||||
PostOpDay1Date3 := (NOW ) FORMATTED WITH "%.2t";
|
||||
DiscPCARequestedDate.Value := PostOpDay1Date3;
|
||||
Endif;
|
||||
else
|
||||
Chk_DiscPCADay3.Control_Read_Only := false;
|
||||
DiscPCARequestedDate.Value := "";
|
||||
|
||||
endif;
|
||||
endif; //If CallingField = "PrX_Checkbox4|1"
|
||||
|
||||
|
||||
/*** End : Added By Shivprasad ***/
|
||||
|
||||
//CSR 32824 Change
|
||||
elseif ( callingEvent = "FormClose" ) then
|
||||
|
||||
//Check to see if Opioid Analgesic PCA order was selected
|
||||
If ( ( true in Mlt_Grid28.IsSelected ) OR ( true in Mlt_Grid33.IsSelected )
|
||||
OR ( true in Mlt_Grid34.IsSelected ) OR ( true in Mlt_Grid35.IsSelected ) ) Then
|
||||
|
||||
if ( ( Chk_DiscPCADay1.Value = false ) AND ( Chk_DiscPCADay2.Value = false ) ) then
|
||||
alert_message := "Please select a Discontinue PCA/IV Opioid Post op Day 1 or Day 2 checkbox.";
|
||||
this_communication.DisplayForm := true;
|
||||
this_communication.Message := alert_message;
|
||||
this_communication.MessageType := "Error";
|
||||
|
||||
endif;
|
||||
endif;
|
||||
|
||||
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; // If callingEvent = "FieldChange"
|
||||
|
||||
;;
|
||||
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
Block a user