170 lines
4.8 KiB
Plaintext
170 lines
4.8 KiB
Plaintext
maintenance:
|
|
|
|
title: FORM_SET_HEMODIALYSIS_ORDERS;;
|
|
mlmname: FORM_SET_HEMODIALYSIS_ORDERS;;
|
|
arden: version 2.5;;
|
|
version: 5.50;;
|
|
institution: St Clair Hospital;;
|
|
author: Maya Poojari;;
|
|
specialist: Don Warnick;;
|
|
date: 2016-08-17;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose: Select a pharmacy order from a grid and other orders will be unselectable.
|
|
;;
|
|
|
|
explanation: This MLM is called from the Hemodialysis Orders Order Set
|
|
|
|
|
|
Change history
|
|
|
|
08.17.2016 - DJW CSR# 34858 - Created
|
|
03.10.2017 - DJW CSR# 34858 - Altered the MLM for changes made to the OS after the MLM was deployed to Production.
|
|
|
|
|
|
;;
|
|
keywords: Called MLMs,
|
|
;;
|
|
knowledge:
|
|
type: data-driven;;
|
|
data:
|
|
|
|
(this_communication, this_form, client_info_obj) := argument;
|
|
|
|
standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
|
|
include standard_libs;
|
|
|
|
using "ObjectsPlusXA.SCM.Forms";
|
|
using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
|
|
|
|
log_execution_info := FALSE;
|
|
error_message:="";
|
|
|
|
field_list:= this_form.fields;
|
|
|
|
client_guid := this_communication.ClientGUID;
|
|
visit_guid := this_communication.ClientVisitGUID;
|
|
chart_guid := this_communication.ChartGuid;
|
|
CallingEvent := this_communication.CallingEvent;
|
|
CallingField := this_communication.CallingFieldName;
|
|
|
|
|
|
// Define the grid
|
|
|
|
MedOrderGrid := first of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 6);
|
|
|
|
MedOrderGrid.Value[08].IsReadOnly := false;
|
|
MedOrderGrid.Value[09].IsReadOnly := false;
|
|
MedOrderGrid.Value[10].IsReadOnly := false;
|
|
MedOrderGrid.Value[11].IsReadOnly := false;
|
|
|
|
/*
|
|
|
|
if MedOrderGrid.Value[11].IsSelected = true // Ferric Gluconate Complex
|
|
then
|
|
|
|
MedOrderGrid.Value[12].IsSelected := false;
|
|
MedOrderGrid.Value[13].IsSelected := false;
|
|
MedOrderGrid.Value[14].IsSelected := false;
|
|
MedOrderGrid.Value[12].IsReadOnly := true;
|
|
MedOrderGrid.Value[13].IsReadOnly := true;
|
|
MedOrderGrid.Value[14].IsReadOnly := true;
|
|
|
|
|
|
elseif MedOrderGrid.Value[12].IsSelected = true // Iron Sucrose Complex
|
|
then
|
|
|
|
MedOrderGrid.Value[11].IsSelected := false;
|
|
MedOrderGrid.Value[13].IsSelected := false;
|
|
MedOrderGrid.Value[14].IsSelected := false;
|
|
MedOrderGrid.Value[11].IsReadOnly := true;
|
|
MedOrderGrid.Value[13].IsReadOnly := true;
|
|
MedOrderGrid.Value[14].IsReadOnly := true;
|
|
|
|
|
|
elseif MedOrderGrid.Value[13].IsSelected = true // Ferric Gluconate Complex Weekly
|
|
then
|
|
|
|
MedOrderGrid.Value[11].IsSelected := false;
|
|
MedOrderGrid.Value[12].IsSelected := false;
|
|
MedOrderGrid.Value[14].IsSelected := false;
|
|
MedOrderGrid.Value[11].IsReadOnly := true;
|
|
MedOrderGrid.Value[12].IsReadOnly := true;
|
|
MedOrderGrid.Value[14].IsReadOnly := true;
|
|
|
|
elseif MedOrderGrid.Value[14].IsSelected = true // Iron Sucrose Complex Weekly
|
|
then
|
|
|
|
MedOrderGrid.Value[11].IsSelected := false;
|
|
MedOrderGrid.Value[12].IsSelected := false;
|
|
MedOrderGrid.Value[13].IsSelected := false;
|
|
MedOrderGrid.Value[11].IsReadOnly := true;
|
|
MedOrderGrid.Value[12].IsReadOnly := true;
|
|
MedOrderGrid.Value[13].IsReadOnly := true;
|
|
endif;
|
|
*/
|
|
|
|
if MedOrderGrid.Value[8].IsSelected = true // Ferric Gluconate Complex
|
|
then
|
|
|
|
MedOrderGrid.Value[09].IsSelected := false;
|
|
MedOrderGrid.Value[10].IsSelected := false;
|
|
MedOrderGrid.Value[11].IsSelected := false;
|
|
|
|
MedOrderGrid.Value[09].IsReadOnly := true;
|
|
MedOrderGrid.Value[10].IsReadOnly := true;
|
|
MedOrderGrid.Value[11].IsReadOnly := true;
|
|
|
|
|
|
elseif MedOrderGrid.Value[09].IsSelected = true // Iron Sucrose Complex
|
|
then
|
|
|
|
MedOrderGrid.Value[08].IsSelected := false;
|
|
MedOrderGrid.Value[10].IsSelected := false;
|
|
MedOrderGrid.Value[11].IsSelected := false;
|
|
|
|
MedOrderGrid.Value[08].IsReadOnly := true;
|
|
MedOrderGrid.Value[10].IsReadOnly := true;
|
|
MedOrderGrid.Value[11].IsReadOnly := true;
|
|
|
|
|
|
elseif MedOrderGrid.Value[10].IsSelected = true // Ferric Gluconate Complex Weekly
|
|
then
|
|
|
|
MedOrderGrid.Value[08].IsSelected := false;
|
|
MedOrderGrid.Value[09].IsSelected := false;
|
|
MedOrderGrid.Value[11].IsSelected := false;
|
|
|
|
MedOrderGrid.Value[08].IsReadOnly := true;
|
|
MedOrderGrid.Value[09].IsReadOnly := true;
|
|
MedOrderGrid.Value[11].IsReadOnly := true;
|
|
|
|
elseif MedOrderGrid.Value[11].IsSelected = true // Iron Sucrose Complex Weekly
|
|
then
|
|
|
|
MedOrderGrid.Value[08].IsSelected := false;
|
|
MedOrderGrid.Value[09].IsSelected := false;
|
|
MedOrderGrid.Value[10].IsSelected := false;
|
|
|
|
MedOrderGrid.Value[08].IsReadOnly := true;
|
|
MedOrderGrid.Value[09].IsReadOnly := true;
|
|
MedOrderGrid.Value[10].IsReadOnly := true;
|
|
endif;
|
|
|
|
|
|
|
|
|
|
;;
|
|
evoke:
|
|
;;
|
|
logic:
|
|
|
|
conclude true;
|
|
;;
|
|
action:
|
|
|
|
return this_communication, this_form;
|
|
;;
|
|
end:
|