DanielR78/St.Clair
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial Checking with all 820 MLMs

Browse Source
This commit is contained in:
Daniel Romischer
2020-02-02 00:54:01 -05:00
parent c59dc6de2e
commit 840d0432f4
828 changed files with 239162 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

169
MLMStripper/bin/Debug/FORM/FORM_SET_HEMODIALYSIS_ORDERS.mlm Normal file
View File

@@ -0,0 +1,169 @@
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: