Initial Checking with all 820 MLMs

This commit is contained in:
2020-02-02 00:54:01 -05:00
parent c59dc6de2e
commit 840d0432f4
828 changed files with 239162 additions and 0 deletions

View File

@@ -0,0 +1,80 @@
maintenance:
title: FORM_FUNC_DISPLAY_FORM_FIELD;;
mlmname: FORM_FUNC_DISPLAY_FORM_FIELD;;
arden: version 2.5;;
version: 15.1;;
institution: St Clair Hospital;;
author: Juliet Law, Allscripts ;;
specialist: ;;
date: 2016-05-05;;
validation: testing;;
library:
purpose: Functional MLM to control display value of form fields on an order set
;;
explanation: This MLM will be a functional call from Order set MLMs when needing to control the display property
of fields.
Change history
05.05.2016 JML Created.
;;
keywords: Called MLMs, display, fields
;;
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
fieldName,
displayOption
) := argument;
standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
include standard_libs;
using "ObjectsPlusXA.SCM.Forms";
using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
ClientGuid := this_communication.ClientGUID;
ChartGuid := this_communication.ChartGUID;
ClientVisitGuid := this_communication.ClientVisitGUID;
/*******************Make Changes To Spelling And Flags In This Section*******************/
/* Set to True if a decision.log is needed.*/
log_execution_info := False;
//------------------------------------------------------------
// Define the ObjectsPlus destinations
//------------------------------------------------------------
for i IN 1 seqto ( count fieldName ) do
fieldName[i].Control_Visible := displayOption;
rtnValue := fieldName[i].Control_Visible;
enddo;
;;
evoke: // No evoke statement
;;
logic:
conclude True;
;;
action:
// This MLM returns two parameters, of types communication_type and form_type respectively.
return rtnValue;
;;
Urgency: 50;;
end: