59 lines
1.7 KiB
Plaintext
59 lines
1.7 KiB
Plaintext
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:
|