Files
St.Clair/MLMStripper/bin/Debug/SYS/SYS_LIB_CDSENVIRONMENTSETTINGS.mlm

104 lines
4.1 KiB
Plaintext

maintenance:
title: CDS Environment Settings Definition;;
filename: SYS_LIB_CDSEnvironmentSettings;;
arden: version 2.5;;
version: 18.4;;
institution: Allscripts, System MLM;;
author: Allscripts Healthcare Solutions, Inc.;;
specialist: ;;
date: 2018-10-26;;
validation: testing;;
/* P r o p r i e t a r y N o t i c e */
/* Unpublished (c) 2013 - 2018 Allscripts Healthcare, LLC. and/or its affiliates. All Rights Reserved.
P r o p r i e t a r y N o t i c e: This software has been provided pursuant to a License Agreement, with
Allscripts Healthcare, LLC. and/or its affiliates, containing restrictions on its use. This software contains
valuable trade secrets and proprietary information of Allscripts Healthcare, LLC. and/or its affiliates and is
protected by trade secret and copyright law. This software may not be copied or distributed in any form or medium,
disclosed to any third parties, or used in any manner not provided for in said License Agreement except with prior
written authorization from Allscripts Healthcare, LLC. and/or its affiliates. Notice to U.S. Government Users:
This software is {{{SINGLE-QUOTE}}}Commercial Computer Software{{{SINGLE-QUOTE}}}.
All product names are the trademarks or registered trademarks of Allscripts Healthcare, LLC. and/or its affiliates.
*/
/* P r o p r i e t a r y N o t i c e */
library:
purpose:
This MLM defines and populates the CDSEnvironmentSettings object
;;
explanation: Facilities should NOT modify this MLM.
From Arden, this can be referenced like this:
cds_env_settings := CDS_SESSION.CDSEnvironmentSettings;
Note: this MLM is called by the SYS_SESSION MLM which is called by the
system both to define and to return a new session object.
This MLM must not refer to CDS_SESSION or else a circular
reference may occur where the MLM will call itself again and again.
This MLM should ONLY be modified by Eclipsys.
;;
keywords: SESSION; CDS_SESSION, ENVIRONMENT PROFILE
;;
knowledge:
type: data-driven;;
data:
CDSEnvironmentSettingsDef := object
[
AlertDrugFood,
BSAFormula,
SeverityLevel,
HealthIssueTerm_Singular,
HealthIssueTerm_Plural
];
// Populate the object
( AlertDrugFood,
BSAFormula,
SeverityLevel,
HITermPural,
HITermSingular ) := READ LAST
{ "SELECT AlertDrugFood=(select value from HVCEnvProfile "
||" where HierarchyCode={{{SINGLE-QUOTE}}}CDS|Drug Interaction Alerts{{{SINGLE-QUOTE}}} "
||" AND code={{{SINGLE-QUOTE}}}Alert Drug Food{{{SINGLE-QUOTE}}}), "
||" BSAFormula = (select value from HVCEnvProfile "
||" where HierarchyCode={{{SINGLE-QUOTE}}}Client Info{{{SINGLE-QUOTE}}} "
||" AND code={{{SINGLE-QUOTE}}}BSAFormula{{{SINGLE-QUOTE}}}), "
||" SeverityLevel = (select value from HVCEnvProfile "
||" where HierarchyCode={{{SINGLE-QUOTE}}}CDS|Drug Interaction Alerts{{{SINGLE-QUOTE}}} "
||" AND code={{{SINGLE-QUOTE}}}Drug Severity Level{{{SINGLE-QUOTE}}}), "
||" HITermPlural = (select value from HVCEnvProfile "
||" where HierarchyCode={{{SINGLE-QUOTE}}}Client Info|Health Issue Label{{{SINGLE-QUOTE}}} "
||" AND code={{{SINGLE-QUOTE}}}Plural Term{{{SINGLE-QUOTE}}}), "
||" HITermSingular = (select value from HVCEnvProfile "
||" where HierarchyCode={{{SINGLE-QUOTE}}}Client Info|Health Issue Label{{{SINGLE-QUOTE}}} "
||" AND code={{{SINGLE-QUOTE}}}Singular Term{{{SINGLE-QUOTE}}}) " };
;;
evoke: // Called internally by the system as necessary
;;
logic:
// Create a session and return it
CDSEnvironmentSettings_obj := new CDSEnvironmentSettingsDef;
CDSEnvironmentSettings_obj.AlertDrugFood := AlertDrugFood;
CDSEnvironmentSettings_obj.BSAFormula := BSAFormula;
CDSEnvironmentSettings_obj.SeverityLevel := SeverityLevel;
CDSEnvironmentSettings_obj.HealthIssueTerm_Singular := HITermSingular;
CDSEnvironmentSettings_obj.HealthIssueTerm_Plural := HITermPural;
conclude true;
;;
action:
return CDSEnvironmentSettings_obj;
;;
end: