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: