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

58
MLMStripper/bin/Debug/FORM/FORM_SCH_CHECK_MRO_SELECTION.mlm Normal file
View File

@@ -0,0 +1,58 @@
maintenance:
title: FORM_SCH_CHECK_MRO_SELECTION;;
mlmname: FORM_SCH_CHECK_MRO_SELECTION;;
arden: version 2.5;;
version: 16.3;;
institution: Allscripts;;
author: Ankit Mistry;;
specialist: Allscripts;;
date: 2018-02-14;;
validation: testing;;
library:
purpose:
;;
explanation:
;;
keywords: Called MLMs, Form fields
;;
citations:
;;
knowledge:
type: data-driven;;
data:
(this_communication, // Communication object
this_form, // Form object
client_info_obj //Arden ClientInfo object
) := argument;
log_execution_info := false;
field_list:= this_form.fields;
CallingField := this_communication.CallingFieldName;
MRO_Field_Obj := FIRST OF (field_list WHERE field_list.DataItemName = CallingField);
MRO_Value := MRO_Field_Obj.Value;
IF MRO_Value matches pattern "%No Flag%" THEN
IF MRO_Value matches pattern "No Flag" THEN
A := "";
ELSE
NEW_MRO_VALUE := READ FIRST { " SELECT CASE WHEN RIGHT(RTRIM(REPLACE(" || SQL(MRO_Value) || ",{{{SINGLE-QUOTE}}}No Flag{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}{{{SINGLE-QUOTE}}})),1) = {{{SINGLE-QUOTE}}};{{{SINGLE-QUOTE}}} THEN SUBSTRING(RTRIM(REPLACE(" || SQL(MRO_Value) || ",{{{SINGLE-QUOTE}}}No Flag{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}{{{SINGLE-QUOTE}}})),1,LEN(RTRIM(REPLACE(" || SQL(MRO_Value) || ",{{{SINGLE-QUOTE}}}No Flag{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}{{{SINGLE-QUOTE}}})))-1) ELSE RTRIM(REPLACE(" || SQL(MRO_Value) || ",{{{SINGLE-QUOTE}}}No Flag{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}{{{SINGLE-QUOTE}}})) END " };
MRO_Field_Obj.Value := NEW_MRO_VALUE;
ENDIF;
ENDIF;
;;
priority: 50
;;
evoke:
;;
logic:
conclude true;
;;
action:
return this_communication, this_form;
;;
Urgency: 50;;
end: