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

155
MLMStripper/bin/Debug/FORM/FORM_SET_DISCHARGE_ORDERS.mlm Normal file
View File

@@ -0,0 +1,155 @@
maintenance:
title: Set Discharge Orders;;
mlmname: FORM_Set_Discharge_Orders;;
arden: version 2;;
version: 4.50;;
institution: St Clair ;;
author: Robert Spence, Eclipsys Corp Ext 7461;;
specialist: Peggy Karish, Eclipsys Corp Ext 7441;;
date: 2010-05-11;;
validation: testing;;
library:
purpose: Used for Discharge Order Set
;;
explanation: This MLM will deselect and protect Admit to Dr, Vital Signs, Rehab, and Isolation orders when a patient is discharged to home.
Change history
07.31.2015 DW HD# 1820549 - During 15.1 release testing we found that the form configuration change broke the MLM. Vital signs orders were not being protected.
;;
keywords: Called MLMs, Order Set, Discharge Order Set
;;
knowledge:
type: data-driven;;
data:
// This MLM is passed three arguments, of types
// communication_type, form_type and client info object respectively.
(this_communication, // Communication object
this_form, // Form object
client_info_obj //Arden ClientInfo object
) := argument;
/*******************Make Changes To Spelling And Flags In This Section*******************/
// Initialize error message
error_message:="";
// Assigns fields passed in the Form object to the Field object
field_list:= this_form.fields;
client_guid := this_communication.ClientGUID;
visit_guid := this_communication.ClientVisitGUID;
chart_guid := this_communication.ChartGuid;
CallingEvent := this_communication.CallingEvent;
CallingField := this_communication.CallingFieldName;
standard_libs := MLM {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
include standard_libs;
using "ObjectsPlusXA.SCM.Forms";
using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
Grid_Discharge := last of (field_list where field_list.DataItemName = "MultiOrderGrid"
and field_List.Control_MultiFieldOccNum = 46);
Grid_Discharge_List :=Grid_Discharge.value ;
Grid_Code_Status:= last of (field_list where field_list.DataItemName = "MultiOrderGrid"
and field_List.Control_MultiFieldOccNum = 24);
Grid_Code_Status_List :=Grid_Code_Status.value ;
Grid_Isolation:= last of (field_list where field_list.DataItemName = "MultiOrderGrid"
and field_List.Control_MultiFieldOccNum = 20);
Grid_Isolation_List:=Grid_Isolation.value ;
Grid_AdmitTo:= last of (field_list where field_list.DataItemName = "MultiOrderGrid"
and field_List.Control_MultiFieldOccNum = 61);
Grid_AdmitTo_List:=Grid_AdmitTo.value ;
Grid_Vitals:= last of (field_list where field_list.DataItemName = "MultiOrderGrid"
and field_List.Control_MultiFieldOccNum = 42);
Grid_Vitals_List:=Grid_Vitals.value ;
Grid_Rehab:= last of (field_list where field_list.DataItemName = "MultiOrderGrid"
and field_List.Control_MultiFieldOccNum = 28);
Grid_Rehab_List:=Grid_Rehab.value ;
Grid_Activity := last of (field_list WHERE field_list.DataItemName = "MultiOrderGrid"
AND field_list.Control_MultiFieldOccNum = 6);
Grid_Activity_List := Grid_Activity.Value;
Grid_Diet := last of (field_list WHERE field_list.DataItemName = "MultiOrderGrid"
AND field_list.Control_MultiFieldOccNum = 29);
Grid_Diet_List := Grid_Diet.Value;
/* Set to true if a decision.log is needed.*/
log_execution_info := false;
// Use String parse
str_parse := mlm {{{SINGLE-QUOTE}}}UTIL_STRING_PARSE{{{SINGLE-QUOTE}}};
if CallingEvent = "FieldChange" then
If (CallingField = "MultiOrderGrid|46")then
if true in Grid_Discharge_List.IsSelected// need to read only others in this grid
then
newreadonly:=();
firstisselected := false;
for changepermod in (1 seqto (count Grid_Discharge_List.IsSelected )) do
if Grid_Discharge_List.IsSelected[changepermod] = true
then
if changepermod = 1 then firstisselected := true; endif;
newreadonly:= newreadonly,false;
else
newreadonly:= newreadonly,true;
endif;
enddo;
Grid_Discharge_List.IsReadOnly:= newreadonly;
if firstisselected = true then
Grid_Code_Status_List.IsSelected := false,false,false;
Grid_Code_Status_List.IsReadOnly := true, true, true;
//Grid_Code_Status_List.IsSelected := false,false,false,false,false,false,false;
//Grid_Code_Status_List.IsReadOnly := true, true, true, true, true, true, true;
Grid_Isolation_List.IsSelected := false;
Grid_Isolation_List.IsReadOnly := true;
Grid_AdmitTo_List.IsSelected := false;
Grid_AdmitTo_List.IsReadOnly := true;
Grid_Vitals_List.IsSelected := false,false,false,false,false,false;
Grid_Vitals_List.IsReadOnly := true, true, true, true, true, true;
Grid_Rehab_List.IsSelected := false,false,false;
Grid_Rehab_List.IsReadOnly := true, true, true;
endif;
else
Grid_Discharge_List.IsReadOnly:= false,false,false,false;
Grid_Code_Status_List.IsReadOnly := false,false,false;
//Grid_Code_Status_List.IsReadOnly :=false,false,false,false,false,false,false;
Grid_Isolation_List.IsReadOnly := false;
Grid_AdmitTo_List.IsReadOnly := false;
Grid_Vitals_List.IsReadOnly := false,false,false,false,false;
Grid_Rehab_List.IsReadOnly :=false,false,false;
endif;
endif; // calling field
endif; // calling event
;;
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: