Initial Checking with all 820 MLMs
This commit is contained in:
49
MLMStripper/bin/Debug/MLM/MLM_CONFIG_TOOL_READER.mlm
Normal file
49
MLMStripper/bin/Debug/MLM/MLM_CONFIG_TOOL_READER.mlm
Normal file
@@ -0,0 +1,49 @@
|
||||
maintenance:
|
||||
|
||||
title: MLM_config_tool_reader;;
|
||||
mlmname: MLM_config_tool_reader;;
|
||||
arden: version 2.5;;
|
||||
version: 5.50;;
|
||||
institution: ;;
|
||||
author: Allscripts Custom Services;;
|
||||
specialist: ACS;;
|
||||
date: 2011-08-11;;
|
||||
validation: testing;;
|
||||
|
||||
library:
|
||||
purpose: read the MLM Configuration Tool Tables and return site data.
|
||||
;;
|
||||
explanation:
|
||||
;;
|
||||
keywords:
|
||||
;;
|
||||
knowledge:
|
||||
type: data-driven;;
|
||||
data:
|
||||
(MLM_name) := argument;
|
||||
|
||||
// pull all config data for this mlm
|
||||
(var_id, mlm_var_list, site_config_name_list) := read
|
||||
{"select c.var_id, c.MLMvar, "
|
||||
||" case "
|
||||
||" when l.allowmult = 0 then " //remove the beginning end quotes
|
||||
||" substring(SiteConfigName, 2, datalength(SiteConfigName) - 2 ) "
|
||||
||" else SiteConfigName " //leave quotes
|
||||
||" end "
|
||||
||" from ACSMLMLocalConfig c "
|
||||
||" join AcsMLMlibrary l on c.var_id = l.var_id "
|
||||
||" where c.MLMname like " || sql(MLM_Name)
|
||||
||" and c.active = 1 "
|
||||
||" and l.active = 1 "
|
||||
};
|
||||
;;
|
||||
priority: 50
|
||||
;;
|
||||
evoke:
|
||||
;;
|
||||
logic: conclude true;
|
||||
;;
|
||||
action: return var_id, mlm_var_list, site_config_name_list;
|
||||
;;
|
||||
Urgency: 50;;
|
||||
end:
|
||||
Reference in New Issue
Block a user