maintenance:

	title:  Called MLM for updating the RX Instruction UDDI;;
	filename: FORM_RX_ORM_Instruct;;
	arden: version 2;;
	version:  5.50;;  //FP1 Order Reconciliation Manager
	institution:  St. Clair;;
	author:  Teresa Spicuzza - adapted from MLM by Phil Thomas, Allscripts Knowledge Management;;
	specialist:  ;;
	date:  2013-08-09;;
	validation:  testing;;
library:
	purpose:  This Called MLM is to be assigned to FORM CLOSE on any order form and Medication Catalog item combination that allows for a Complex Dose or Multiple Frequency.
				It will update the RX Comments UDDI which will transfer to any prescriptions if continued after discharge.

	;;
	explanation:  This Called MLM, upon FORM CLOSE, will read the following complex dosing fields and format the cell rows into the RX Instruction UDDI on the form.
						System UDDIs examined: CalculatedDose, DosageLow and FrequencyCode
						UDDI Updated: "RX Comments" (Must be on the form to execute).
				
							Note: The legnth of the RX Instruction should be configured to 2000 characters but the RX WRiter Sig Line can only handle 140 characters.
								If this occurs the field value for RX Comments will be truncated to 140 chracters but the MLM will look for the "RX COmments" UDDI.
								This can handle the full 2000 characters from the "RX Comments" UDDI and will appear on the RX Comments Tab along with Multum data.

				To transfer the RX Instruction UDDI to the RX Sig Line of a Home Medication or Prescription the following Environemental Profile must be configured:
						Orders > PrescriptionToOrderFieldMaping > Instructions > Value " RX Instructions" 

				To transfer the RX Coments UDDI to the RX Comments of a Home Medication or Prescription the following Environemental Profile must be configured:
						Orders > PrescriptionToOrderFieldMaping > Comments > Value " RX Comments" 

				Note: If your institution uses a different Order Form UDDI for this purpose then you will need to alter this MLM and replace "RX Comments"
						and "RX Instructions" with your UDDI values.

				Complex Dosing options must be enabled under the Pharamcy configuration section of the Order Catalog Item.

				Tips: 	- Form Close will run even if the form is configured to not display and the MLM can update the UDDIS even if protected or hidden.
						- This MLM will also work with the <Multiple> Frequency option and perfomrm the same behavior as above if discovered.
						- If you already have an MLM on Form Close you may sub-call this MLM from the existing MLM to avoid reconfiguration of the forms.

*** Allscripts Disclaimer: 
		Client is responsible for all decisions, acts, and omissions of any persons in connection with the delivery of medical care or other services to any patients.  
		Before any Licensed Materials are placed into a live production environment, it is Client’s responsibility to review and test all Licensed Materials and associated 
		workflows and other content, as implemented, make independent decisions about system settings and configuration based upon Client’s needs, practices, standards and 
		environment, and reach its own independent determination that they are appropriate for such live production use.  Any such use by Client (or its Authorized Users) 
		will constitute Client’s representation that it has complied with the foregoing. Client shall ensure that all Authorized Users are appropriately trained in use of 
		the then-deployed release of the Software prior to their use of the Software in a live production environment.  Clinical Materials are tools to assist Authorized 
		Users in the delivery of medical care, but should not be viewed as prescriptive or authoritative. Clinical Materials are not a substitute for, and Client shall 
		ensure that each Authorized User applies in conjunction with the use thereof, independent professional medical judgment.  Clinical Materials are not designed for use, 
		and Client shall not use them, in any system that provides medical care without the participation of properly trained personnel.  Any live production use of Clinical 
		Materials by Client (or its Authorized Users) will constitute Client’s acceptance of clinical responsibility for the use of such materials.
	
		History:
		
		08.12.2013	TMS	 Adapted from MLM (FORM_Preset_MultiDose_RX) by Phil Thomas, Allscripts Knowledge Management with modifications
						 to calculate start dates of subsequent order rows from first row value for for decreasing (taper) or increasing
						 dose.  Changed size of Instructions, and added then stop comment for end of taper. Logic added for user schedule
						 translation to patient friendly instructions, order route to be added when specific (i.e., right eye, via tube);
						 include synonym for Aspart Insulin, add PRN Reason when populated to Rx Comments. Called from FORM_Now_and_Then.
						 CSR 31639 
		11.04.2014  TMS  Added logic to write medrol dose pak instructions to comment field when orders entered with Medrol Dosing dose option
						 for inclusion in discharge reconciliation.   CSR 31407
						
		11.05.2015  TMS  Added insulin brand names "Lantus" for Insulin Glargine and "Levemir" for Insulin Detemir to populate the RX comments
						 for inclusion in discharge reconciliation.   CSR 33859
		07.23.2019  TMS  CSR 37676 - Change log_execution_info to false per upgrade analysis.
						
	
	;;
	keywords: Called MLMs, Form fields, RX Instructions, Orders Reconciliation Manager, RX Comments;
	;;
knowledge:
	type: data-driven;;
	data:

        	// This MLM is passed three arguments, of types 
        	// communication_type, form_type and client info object respectively.

        	(this_communication,   	// Communication object
			this_form,				// Form object
			client_info_obj			//Arden ClientInfo object	
					) := argument;

		PrimaryObjdetail:=this_communication.PrimaryObj;
		OrderName := PrimaryObjdetail.name;
		/*******************Make Changes To Spelling And Flags In This Section*******************/

		/* Set to true if a decision.log is needed.*/
		log_execution_info := FALSE;

		/* Null field variables */
		RX_Summary := Null;
		RX_Comments_User := "";
	
		//Formatting Characters
		SP := " ";
		CR := 13 formatted with "%c";
    	LF := 10 formatted with "%c";
   		CRLF:= CR||LF;
		TAB := 9 formatted with "%c";
		xxcounter := 0;

	
		/***************************************************************************************/

		// Initialize error message
		error_message:="";

		//
		standard_libs := MLM {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};

		// Assigns fields passed in the Form object to the Field object
		field_list:= this_form.fields;

		//Capture the RX Comments Data Item and test if present, Do not proceeed with MLM if not found on order form
		RX_Comments_field := first of (field_list where field_list.DataItemName = "Rx Comments");
		RX_Instructions_field := last of (field_list where field_list.DataItemName = "Rx Instructions");			
		FreqText := " ";

	    requested_date := last of (field_list where field_list.DataItemName = "RequestedDate" ); 
	    requested_time := last of (field_list where field_list.DataItemName = "RequestedTime" );  
	    stop_after:= last of (field_list where field_list.DataItemName = "StopAfter" );
		stop_after_Value := stop_after.value; 
	    stop_date := last of (field_list where field_list.DataItemName = "StopDate" ); 
	    stop_time := last of (field_list where field_list.DataItemName = "StopTime" );  
		stop_time_value := stop_time.value ;  
		is_prn := last of (field_list where field_list.DataItemName = "IsPRN" );                                                                                                             
		regular_freq := last of (field_list where field_list.DataItemName = "FrequencyCode");
		requested_time_value := requested_time.value;
		regular_freq_value := regular_freq.value;
		start_now :=  last of (field_list where field_list.DataItemName = "PRX_Dosing Start Now" ); 
		start_now_value := start_now.value;
		PRX_PRN_Reason_field := first of (field_list 
						where field_list.DataItemName = "PRX_PRNCONDITION");
		PRX_PRN_Reason_field_value :=   PRX_PRN_Reason_field.value;
		Route_Code :=  last of (field_list where field_list.DataItemName = "OrderRouteCode" ); 
		SpecifyRoute := ("Right Eye", "Left Eye", "Both Eyes", "Right Ear", "Left Ear", "Both Ears", 
							"Alternating Nostrils", "Left Nostril", "Right Nostril", "Each Nostril", "Via Tube");
		FreqText := " ";
			
		If 	PRX_PRN_Reason_field.value is NULL then 
			ReasonText := " ";
		else
			ReasonText := "for " ||  PRX_PRN_Reason_field_value;
		endif;	

	
		If Route_Code.value	in SpecifyRoute then
			RouteText := " to " ||  Route_Code.value;
		else
			RouteText := " ";
		endif;

		RX_Comments_field_value := RX_Comments_field.value;
		str_parse := mlm {{{SINGLE-QUOTE}}}UTIL_STRING_PARSE{{{SINGLE-QUOTE}}};
		FreqTranslate := ();
		FreqTranslate := read  { "select value from cv3userdictionaryvalue v with (nolock)" 
								|| " where userdictionarycode = {{{SINGLE-QUOTE}}}PRX_ORM Frequency Translation{{{SINGLE-QUOTE}}} "
								|| "  and active = {{{SINGLE-QUOTE}}}1{{{SINGLE-QUOTE}}} "
								};

		
		
	

		If exists RX_Comments_field then
			//Save any data already enetered by the user
			If RX_Comments_field.Value is not NULL then 
				RX_Comments_User := RX_Comments_field.Value;
			Endif;

			If OrderName matches pattern  "Insulin Aspart%"  then
				InsulinNote := "(Humalog or NovoLog)";
			elseif Ordername matches pattern "Insulin Glargine%" then 
				InsulinNote := "(Lantus)";
			elseif Ordername matches pattern "Insulin Detemir%" then 
				InsulinNote := "(Levemir)";
			else
				InsulinNote := " ";
			endif;

			If regular_freq_value.FrequencySummary <> "<User Schedule>" then

				NumMembs:= count FreqTranslate;
				for k  in (1 seqto (NumMembs)) do	
					listings := call str_parse with FreqTranslate[k],"|";	
					tempstr:=first of (listings);   
					if tempstr = regular_freq_value.FrequencySummary then
						if exists(listings[2]) then 
							FreqText :=  listings [2];
						else
							FreqText :=  " ";  
						endif;
					endif;
				enddo;

				RX_Comments_field.value := FreqText || " " || RouteText || " " || ReasonText || "   " || insulinnote;
				RX_Instructions_field.value := FreqText || " " || RouteText || " " || ReasonText || "   " || insulinnote;
			endif;
		
			If regular_freq_value.FrequencySummary = "<User Schedule>" AND regular_freq_value.FreqUOM =  "irregular" then
				RX_Comments_field.value := "";
				RX_Instructions_field.value := "";

				// obtain a list of the scheduled dates and times
				freq_schedules := regular_freq_value.FreqIrregularDtm;
		
				// find the earliest scheduled time
				earliest_time := minimum of freq_schedules;  

				// extract the time from the date_time
				sched_hour := EXTRACT HOUR(earliest_time);
				sched_minute :=  EXTRACT MINUTE(earliest_time);
				sched_time := sched_hour || ":" || sched_minute;

				// create patient friendly Rx instructions and Rx comments for ORM for user schedule frequencies
				adminat := "";
				freq_schedules_sort := sort  (regular_freq_value.FreqIrregularDtm as time);
				Irregtimes := count freq_schedules;
			

				for n in (1 seqto Irregtimes ) do
					schedtime :=  freq_schedules_sort [n];
					schedmin := EXTRACT Minute(schedtime as time); 
					if (schedmin as number) < 10 then
						schedmin := "0" || schedmin ;
					endif; 

					schedhour := EXTRACT HOUR(schedtime as time); 

					if (schedhour  as number) >= 12 then 
						timeofday := "PM";
						if (schedhour  as number) >= 13 then 
							schedhour := schedhour - 12; 
						endif;
					else 
						timeofday  := "AM"; 
						if (schedhour as number) = 0 then
							schedhour := 12;
						endif;
					endif;

					schedmm := EXTRACT Month(schedtime as time); 
					scheddd := EXTRACT Day(schedtime as time); 
					schedyy := EXTRACT Year(schedtime as time); 

					adminat := adminat || schedmm ||"/" ||scheddd || "/" || schedyy   || " at " || schedhour || ":" || schedmin || timeofday || "; ";
   				
				enddo;
				
			//	populate rxinstructions and rx comments with user schedule translation for irregular
				rxinstruct := "on " || adminat ;

				RX_Comments_field.value := rxinstruct || " " || RouteText || " " || ReasonText || "   " || InsulinNote;
				RX_Instructions_field.value := rxinstruct || " " || RouteText || " " || ReasonText || "   " || InsulinNote;
		
			endif;		//if user schedule and irregular

		//Update Rx Instructions and Rx Comments with patient friendly definitions for User Schedule 
			If regular_freq_value.FrequencySummary = "<User Schedule>" 
				AND (regular_freq_value.FreqUOM = "day"  OR regular_freq_value.FreqUOM = "week")   then
				if regular_freq_value.FreqUOM = "day"  then
					If (regular_freq_value.FreqFromTime as number) = 1 then 
						weeklydays := "day";
		
					elseif (regular_freq_value.FreqFromTime as number) > 1 then 
						weeklydays := regular_freq_value.FreqFromTime  || " days";   
					endif;
				endif;


				If regular_freq_value.FreqUOM =  "week" then
	
					If "Monday" in 	regular_freq_value.FreqWeeklyDays  then
						If weeklydays is not Null then  weeklydays := weeklydays || ", Monday"; 
						else weeklydays := "Monday";
						endif;
					endif;

					If "Tuesday" in 	regular_freq_value.FreqWeeklyDays  then
						If weeklydays is not Null then  weeklydays := weeklydays || ", Tuesday"; 
						else weeklydays := "Tuesday";
						endif;
					endif;

					If "Wednesday" in 	regular_freq_value.FreqWeeklyDays  then
						If weeklydays is not Null then  weeklydays := weeklydays || ", Wednesday"; 
						else weeklydays := "Wednesday";
						endif;
					endif;

					If "Thursday" in 	regular_freq_value.FreqWeeklyDays  then
						If weeklydays is not Null then  weeklydays := weeklydays || ", Thursday"; 
						else weeklydays := "Thursday";
						endif;
					endif;

					If "Friday" in 	regular_freq_value.FreqWeeklyDays  then
						If weeklydays is not Null then  weeklydays := weeklydays || ", Friday"; 
						else weeklydays := "Friday";
						endif;
					endif;

					If "Saturday" in 	regular_freq_value.FreqWeeklyDays  then
						If weeklydays is not Null then  weeklydays := weeklydays || ", Saturday"; 
						else weeklydays := "Saturday";
						endif;
					endif;

					If "Sunday" in 	regular_freq_value.FreqWeeklyDays  then
						If weeklydays is not Null then  weeklydays := weeklydays || ", Sunday"; 
						else weeklydays := "Sunday";
						endif;
					endif;
				endif;

				Numtimes := count regular_freq_value.FreqTimes;
				if Numtimes > 1 then 
					septime := ", "; adminat := "";
				else 
					septime := "";adminat := "";
				endif;
			
				for k in (1 seqto NumTimes) do
					schedtime :=  regular_freq_value.FreqTimes [k];
					schedmin := EXTRACT Minute(schedtime as time); 
					if (schedmin as number) < 10 then
						schedmin := "0" || schedmin ;
					endif; 
					schedhour := EXTRACT HOUR(schedtime as time); 
					if (schedhour  as number) >= 12 then 
  						 timeofday := "PM";
						if (schedhour  as number) >= 13 then 
						 	schedhour := schedhour - 12; 
						endif;
					else timeofday  := "AM"; 
						if (schedhour as number) = 0 then
							schedhour := 12;
						endif;
					endif;
	
					admintime := schedhour ||":" || schedmin || timeofday;
					if numtimes = k then 
						Adminat :=  adminat || admintime;
					else 
						adminat := adminat || admintime || septime;
					endif;
				enddo;
	
				
 			
			//	populate rxinstructions and rx comments with user schedule translation for weekly and daily

				rxinstruct := "every " || WeeklyDays  || " at " || adminat;
		
   				RX_Comments_field.value := rxinstruct || " " || RouteText || " " || ReasonText || "   " || InsulinNote;
				RX_Instructions_field.value := rxinstruct || " " || RouteText || " " || ReasonText || "   " || InsulinNote;
		
		 
		endif;


// this section is for calculated dosing - not used
/*
			//Capture the Calculated Dose Data Item and all componenets
			CalculatedDose_field := first of (field_list where field_list.DataItemName = "CalculatedDose");
			If exists CalculatedDose_field then
				CalcDoseValue:= CalculatedDose_field.Value;
				// Statements used to read the Complex Dosing Grid.
				// If DosingOption field is NULL, we expect the structure
				// stored in Value is regular CalculatedDose compound value
				// structure.
				If exists CalcDoseValue.DosingOption AND
					CalcDoseValue.DosingOption is NOT NULL then
					// access the dosing options grid
					CalcGridDosingOption := CalcDoseValue.DosingOption;
					CalcGridRows := CalcDoseValue.Rows;
					CalcGridCols := CalcDoseValue.Cols;
					CalcGridDefAllowAddRemove := CalcDoseValue.ConfigAllowRowAddRemove;
					CalcGridAllowAddRemove := CalcDoseValue.AllowRowAddRemove;
				Else
					// access as regular CalcDose fields
					CalculatedDose_obj := OBJECT [DosageLow, CalcActualDose,
					CalcOverrideReason, CalcRequestedDose, CalcTotalDailyDose,
					CalcDoseUOM, CalcUOMPer];
					CalculatedDoseValue := CalculatedDose_field.Value;
					// Statements used to read calculateddose sub-fields
					Found_CalcDosageLow := CalculatedDoseValue.DosageLow;
					Found_CalcActualDose := CalculatedDoseValue.CalcActualDose;
					Found_CalcOverrideReason :=
					CalculatedDoseValue.CalcOverrideReason;
					Found_CalcRequestedDose :=
					CalculatedDoseValue.CalcRequestedDose;
					Found_CalcTotalDailyDose :=
					CalculatedDoseValue.CalcTotalDailyDose;
					Found_CalcUom := CalculatedDoseValue.CalcUOM;
					Found_CalcUomPER := CalculatedDoseValue.CalcUOMPer;
					Found_CalcReadONly := CalculatedDose_field.control_read_only;
				Endif;		

				//Explode the Complex Dosing Option if found and update the RX Comments field for conversion to a prescription
				If Exist CalcGridRows then
					// Build a list of found rows and columns of the dosing option grid
					index_list := 0 seqto ( count CalcGridRows );
					Total_Rows := count CalcGridRows;	

					for M in index_list do


						//Sequentially go thru each of the dosing option rows to get the data item values assigned 
						temp_Cell_Row:=Last(First M from CalcGridRows.Cells);

						//Look for the Calculated Dose Data item and read the value
						temp_Cell_DosageLow := first of (temp_Cell_Row where temp_Cell_Row.DataItemCode = "CalculatedDose");
						temp_Cell_ItemValue:=temp_Cell_DosageLow.ItemValue;
						temp_Cell_DosageLow_Value:=temp_Cell_ItemValue.DosageLow;

						//Check to see if a Dose is present to proceed	
						If temp_Cell_DosageLow_Value Is Not NULL then
							//If the last row then indicate the last like the application does
							If M = Total_Rows Then
								RX_Summary := RX_Summary || CRLF || "Last: " || temp_Cell_DosageLow_Value || SP;
							ElseIf RX_Summary Is Null then
								RX_Summary := "Start: " || temp_Cell_DosageLow_Value || SP;
							Else
								RX_Summary := RX_Summary || CRLF || "Then: " || temp_Cell_DosageLow_Value || SP;
							Endif;
							
							//Capture the Unit of Measure and add to the RX Summary if found
							temp_Cell_UOM := first of (temp_Cell_Row where temp_Cell_Row.DataItemCode = "Uom");
							temp_Cell_UOM_Value:=temp_Cell_UOM.ItemValue;
							//Update the RX Summary if a value was found
							If temp_Cell_UOM_Value Is Not NULL then
								RX_Summary := RX_Summary || temp_Cell_UOM_Value|| SP;
							Endif;

							//Capture the Frequency value and add to the RX Summary if found
							temp_Cell_Frequency := first of (temp_Cell_Row where temp_Cell_Row.DataItemCode = "FrequencyCode");
							temp_Cell_ItemValue:=temp_Cell_Frequency.ItemValue;
							temp_Cell_Frequency_Value:=temp_Cell_ItemValue.FrequencySummary;
							//Update the RX Summary if a value was found
							If temp_Cell_Frequency_Value Is Not NULL Then
								RX_Summary := RX_Summary || temp_Cell_Frequency_Value|| SP;
							Endif;

							//Capture the Route value and add to the RX Summary if found
							temp_Cell_Route := first of (temp_Cell_Row where temp_Cell_Row.DataItemCode = "OrderRouteCode");
							temp_Cell_Route_Value:=temp_Cell_Route.ItemValue;
							//Update the RX Summary if a value was found
							If temp_Cell_Route_Value Is Not NULL then
								RX_Summary := RX_Summary || ", " || temp_Cell_Route_Value;
							Endif;
	
							//Capture the Stop After value and add to the RX Summary if found
							temp_Cell_StopAfter := first of (temp_Cell_Row where temp_Cell_Row.DataItemCode = "StopAfter");
							temp_Cell_ItemValue:=temp_Cell_StopAfter.ItemValue;
							temp_Cell_NUMBER_Value:=temp_Cell_ItemValue.NUMBER;
							temp_Cell_Option_Value:=temp_Cell_ItemValue.Option;
							//Update the RX Summary if a value was found
							If temp_Cell_Option_Value Is Not NULL Then
								RX_Summary := RX_Summary || ", for " || temp_Cell_NUMBER_Value || SP || temp_Cell_Option_Value;
							Endif;
	
						Endif; //A Row has a Dose
					enddo;	//End of Row List Loop
				Endif;  //tapering Dose was found
			Endif;  //End of CalculatedDose Examination

*/

			// This looks for the presence of the field dataitem - dosagelow - and stores it incase a checkbox is removed.
			DosageLow_field := first of (field_list where field_list.DataItemName = "DosageLow");
	
			If exists DosageLow_field then 
				DoseLowValue := DosageLow_field.Value;
	
				// DosageLow value can either be a numeric value or a 
				//complex dosing grid value.
				If exists DoseLowValue And DoseLowValue is not NUMBER then
					// access the dosing options grid
					DosingOption := DoseLowValue.DosingOption;
					DoseLowGrid_ColList := DoseLowValue.Cols;
					DoseLowGrid_RowList := DoseLowValue.Rows;
					AllowAddRemove := DoseLowValue.AllowRowAddRemove;
					ConfigAllowRowAddRemove := DoseLowValue.ConfigAllowRowAddRemove;
				Else
					// access as regular DosageLow field	
					Is_Calc_Field := FALSE;
				Endif;  //DoseageLow was a complex dose option

								
	
				If Exist DoseLowGrid_RowList then
					If DosingOption = "Medrol Dose Pak" then 
						dosingtype := "DosePak";
					endif;
	
					// Build a list of found rows and columns of the dosing option grid
					index_list_dl := 0 seqto ( count DoseLowGrid_RowList );
					Total_Rows_dl := count DoseLowGrid_RowList;

					//Build a loop to go thru the list of Rows found
					for M in index_list_dl do


	
						//Sequentially go thru each of the dosing option rows to get the data item values assigned 
						// and obtain prior row info if available for frequency, durationa and start date 
						temp_Cell_Row:=Last(First M from DoseLowGrid_RowList.Cells);
						If M > 1 then
							P := (M as number)-1;	
							prior_cell_row :=Last(First P from DoseLowGrid_RowList.Cells);	
						endif;
						//Look for the Dose Data item and read the value
						temp_Cell_DosageLow := first of (temp_Cell_Row where temp_Cell_Row.DataItemCode = "DosageLow");
						temp_Cell_DosageLow_Value:=temp_Cell_DosageLow.ItemValue;
	
						//Check to see if a Dose is present to proceed
						If temp_Cell_DosageLow_Value Is Not NULL then
							//If the last row then indicate the last like the application does
							If M = Total_Rows_dl Then
						//		RX_Summary := RX_Summary || CRLF || "Last: " || temp_Cell_DosageLow_Value || SP;
								RX_Summary := RX_Summary || CRLF || "THEN: " || temp_Cell_DosageLow_Value || SP;
								FirstEntry := "No";
								EndMessage := "THEN STOP" || " " || RouteText || " " || ReasonText;
							ElseIf RX_Summary Is Null then
								RX_Summary := "START: " || temp_Cell_DosageLow_Value || SP;
								EndMessage := " ";
								FirstEntry := "Yes";
							Else
						//		RX_Summary := RX_Summary || CRLF || "Then: " || temp_Cell_DosageLow_Value || SP;
								RX_Summary := RX_Summary || CRLF || " THEN: " || temp_Cell_DosageLow_Value || SP;
								EndMessage := " ";
								FirstEntry := "No";
							Endif;
							
							//Capture the Unit of Measure and add to the RX Summary if found
							temp_Cell_UOM := first of (temp_Cell_Row where temp_Cell_Row.DataItemCode = "Uom");
							temp_Cell_UOM_Value:=temp_Cell_UOM.ItemValue;

							//Update the RX Summary if a value was found
							If temp_Cell_UOM_Value Is Not NULL then
								RX_Summary := RX_Summary || temp_Cell_UOM_Value|| SP;
							Endif;
	
							//Capture the Frequency value and add to the RX Summary if found
							temp_Cell_Frequency := first of (temp_Cell_Row where temp_Cell_Row.DataItemCode = "FrequencyCode");
							temp_Cell_ItemValue:=temp_Cell_Frequency.ItemValue;
							temp_Cell_Frequency_Value:=temp_Cell_ItemValue.FrequencySummary;

						 	prior_cell_Frequency := first of (prior_Cell_Row where prior_Cell_Row.DataItemCode = "FrequencyCode");
							prior_Cell_ItemValue:=prior_Cell_Frequency.ItemValue;
							prior_Cell_Frequency_Value:=prior_Cell_ItemValue.FrequencySummary;
							
							If prior_Cell_Frequency_Value Is Not NULL and dosingtype <> "DosePak" Then
																
								(PriorFreqType, PriorFreqSpan, PriorFreqUom) := read last
									{"Select DefinitionType, TimeFromValue, TimeUom "
						   		     ||" From cv3Frequency "
						 			 ||" Where Code = " || SQL(Prior_Cell_Frequency_Value) };
							Endif;

							//Update the RX Summary if a value was found
							If temp_Cell_Frequency_Value Is Not NULL and dosingtype <> "DosePak" Then
								RX_Summary := RX_Summary || temp_Cell_Frequency_Value|| SP;
								
								(FreqType, FreqSpan, FreqUom) := read last
									{"Select DefinitionType, TimeFromValue, TimeUom "
						   		     ||" From cv3Frequency "
						 			 ||" Where Code = " || SQL(temp_Cell_Frequency_Value) };
							Endif;
							
							// compare prior row frequency with current row frequency to determine if 
							// frequency is increasing, decreasing, or staying the same.
						If  dosingtype <> "DosePak" Then	
							If priorfreqtype = 2 and freqtype = 1  then 
								dosingtype := "increasing";
								freqspan := freqtype;
							elseif priorfreqtype = 1 and freqtype = 2 then
								dosingtype := "decreasing";
								priorfreqspan := priorfreqtype;
							elseif priorfreqtype = 2 and freqtype = 2 then
								if priorfreqspan > freqspan then
									dosingtype := "increasing";
								elseif priorfreqspan < freqspan then
									dosingtype := "decreasing";
								else dosingtype := "same";	
								endif;
							elseif  priorfreqtype = 1 and freqtype = 1  then 
								dosingtype := "same";
								priorfreqspan := priorfreqtype;
								freqspan := freqtype;
							endif;
						endif;
	
							//Capture the Route value and add to the RX Summary if found
							temp_Cell_Route := first of (temp_Cell_Row where temp_Cell_Row.DataItemCode = "OrderRouteCode");
							temp_Cell_Route_Value:=temp_Cell_Route.ItemValue;
	
 							//Update the RX Summary if a value was found
							If temp_Cell_Route_Value Is Not NULL and dosingtype <> "DosePak" Then
								RX_Summary := RX_Summary || ", " || temp_Cell_Route_Value;
							Endif;

							//Capture the Stop After value and add to the RX Summary if found
							temp_Cell_StopAfter := first of (temp_Cell_Row where temp_Cell_Row.DataItemCode = "StopAfter");
							temp_Cell_ItemValue:=temp_Cell_StopAfter.ItemValue;
							temp_Cell_NUMBER_Value:=temp_Cell_ItemValue.NUMBER;
							temp_Cell_Option_Value:=temp_Cell_ItemValue.Option;


							prior_Cell_StopAfter := first of (prior_Cell_Row where prior_Cell_Row.DataItemCode = "StopAfter");
							prior_Cell_ItemValue:=prior_Cell_StopAfter.ItemValue;
							prior_Cell_NUMBER_Value:=prior_Cell_ItemValue.NUMBER;
							prior_Cell_Option_Value:=prior_Cell_ItemValue.Option;


							//Update the RX Summary if a value was found
							If temp_Cell_Option_Value Is Not NULL and dosingtype <> "DosePak" Then
								RX_Summary := RX_Summary || " for " || temp_Cell_NUMBER_Value || SP || temp_Cell_Option_Value || SP ;
							endif;


							temp_Cell_Start := first of (temp_Cell_Row where temp_Cell_Row.DataItemCode = "RequestedDate");
							temp_Cell_Start_Value:=temp_Cell_Start.ItemValue; 

							prior_Cell_Start := first of (prior_Cell_Row where prior_Cell_Row.DataItemCode = "RequestedDate");
							prior_Cell_Start_Value:=prior_Cell_Start.ItemValue; 

							If prior_Cell_Start_Value Is Not NULL  and FirstEntry = "No" and prior_Cell_Option_Value = "Days" and dosingtype <> "DosePak"  Then
								PriorNumdays := prior_Cell_ItemValue.NUMBER;
								// determine start date of current row dependent upon frequency and duration of current and 
								// prior row. (Increasing, decreasing or same)
								If dosingtype = "decreasing" or dosingtype = "same" then
										Calc_duration := (Priornumdays as number) - 1;
										Offsetdays := Calc_duration - (PriorFreqSpan *(Int(Calc_duration /PriorFreqSpan)));
										Addtodate := Calc_duration + FreqSpan - offsetdays;
										temp_Cell_Start.ItemValue := prior_Cell_Start_Value + addtodate day ; 
										yr := extract year temp_Cell_Start.ItemValue ; 
										mn := extract month temp_Cell_Start.ItemValue ;  if mn < 10 then mn := "0" || mn; endif;
										dd := extract day temp_Cell_Start.ItemValue ;	 if dd < 10 then dd := "0" || dd; endif;
										DisplayDate := mn || "-" || dd || "-" || yr ; 
								elseif dosingtype = "increasing" then
										Calc_duration := (Priornumdays as number) - 1;
										Offsetdays := Calc_duration - (PriorFreqSpan *(Int(Calc_duration /PriorFreqSpan)));
										Addtodate := Calc_duration + PriorFreqSpan - offsetdays;
										temp_Cell_Start.ItemValue := prior_Cell_Start_Value + addtodate day ; 
										yr := extract year temp_Cell_Start.ItemValue ; 
										mn := extract month temp_Cell_Start.ItemValue ;  if mn < 10 then mn := "0" || mn; endif;
										dd := extract day temp_Cell_Start.ItemValue ;	 if dd < 10 then dd := "0" || dd; endif;
										DisplayDate := mn || "-" || dd || "-" || yr ; 
								endif;
					
								RX_Summary := RX_Summary || CRLF || " Begin: " || DisplayDate || SP ||  EndMessage|| CRLF;

							elseIf prior_Cell_Start_Value Is  NULL  and FirstEntry = "Yes" and temp_Cell_Option_Value = "Days" and dosingtype <> "DosePak"  Then	
								yr := extract year temp_Cell_Start.ItemValue ; 
								mn := extract month temp_Cell_Start.ItemValue ;  if mn < 10 then mn := "0" || mn; endif;
								dd := extract day temp_Cell_Start.ItemValue ;	 if dd < 10 then dd := "0" || dd; endif;
								DisplayDate := mn || "-" || dd || "-" || yr ; 
								RX_Summary := RX_Summary || CRLF || " Begin: " || DisplayDate || SP ||  EndMessage || CRLF;
							
							elseIf prior_Cell_Start_Value Is  NULL and  dosingtype = "DosePak"  Then	
								yr := extract year temp_Cell_Start.ItemValue ; 
								mn := extract month temp_Cell_Start.ItemValue ;  if mn < 10 then mn := "0" || mn; endif;
								dd := extract day temp_Cell_Start.ItemValue ;	 if dd < 10 then dd := "0" || dd; endif;
								StartingDisplayDate := mn || "-" || dd || "-" || yr ; 
							elseIf prior_Cell_Start_Value Is Not NULL and  dosingtype = "DosePak"  Then	
								RX_Summary := 	"Start on " || StartingDisplayDate || CRLF || 
										"Day 1:  2 tabs before breakfast, 1 tab after lunch, 1 tab after dinner, 2 tabs at bedtime" || CRLF ||
										"Day 2:  1 tab before breakfast, 1 tab after lunch, 1 tab after dinner, 2 tabs at bedtime" || CRLF ||
										"Day 3:  1 tab before breakfast, 1 tab after lunch, 1 tab after dinner, 1 tab at bedtime" || CRLF ||
										"Day 4:  1 tab before breakfast, 1 tab after lunch, 1 tab at bedtime" || CRLF ||
										"Day 5:  1 tab before breakfast, 1 tab at bedtime" || CRLF ||
										"Day 6:  1 tab before breakfast";
							endif;
 
	
						Endif; //A Row has a Dose
					enddo;	//End of Row List Loop
				Endif;	//DosageLow was found with a value
			Endif; //DosageLow was found

//  this section is for complex frequency dosing 
/*
			//Look for a Complex Frequency and Update th RX Comments accordingly
			Freq_field := first of (field_list where field_list.DataItemName = "FrequencyCode");
			If exists Freq_field then FreqValue:= Freq_field.Value;
				// If DosingOption sub-field exists, this is a Frequency Grid
				If exists FreqValue.DosingOption and FreqValue.DosingOption is NOT NULL then
					// Get Grid information
					AllowRowAddRemove := FreqValue.AllowRowAddRemove;
					ConfigAllowRowAddRemove := FreqValue.ConfigAllowRowAddRemove;
					// Get Row information
					GridRows:= FreqValue.Rows;

					//Explode the Complex Dosing Option Freq if found and update the RX Comments field for conversion to a prescription
					If Exist GridRows then
						// Build a list of found rows and columns of the dosing option grid
						index_list_fq := 0 seqto ( count GridRows );
						Total_Rows_fq := count GridRows;	

						for M in index_list_fq do

							//Get the Frequency Code
							temp_FreqSummary :=Last(First M from GridRows.FrequencySummary);
							//Update the RX Summary if a value was found
							If temp_FreqSummary Is Not NULL Then
							//If the last row then indicate the last like the application does
								If M = Total_Rows_fq Then
									RX_Summary := RX_Summary || CRLF || "Last: " || temp_FreqSummary || SP;
								ElseIf RX_Summary Is Null then
									RX_Summary := "Start: " || temp_FreqSummary || SP;
								Else
									RX_Summary := RX_Summary || CRLF || "Then: " || temp_FreqSummary || SP;
								Endif;
							Endif;

							//Get the Frequency From Time
							temp_FreqFromTime :=Last(First M from GridRows.FreqFromTime);
							//Update the RX Summary if a value was found
							If temp_FreqFromTime > 0 Then
								RX_Summary := RX_Summary || "From: " || temp_FreqFromTime || SP;
							Endif;

							//Get the Frequency To Time
							temp_FreqToTime :=Last(First M from GridRows.FreqToTime);
							//Update the RX Summary if a value was found
							If temp_FreqToTime > 0 Then
								RX_Summary := RX_Summary || "To: " || temp_FreqToTime || SP;
							Endif;

							//Get the Frequency FreqEventModifier
							temp_FreqEventModifier :=Last(First M from GridRows.FreqEventModifier);
							//Update the RX Summary if a value was found
							If temp_FreqEventModifier Is Not NULL Then
								RX_Summary := RX_Summary || temp_FreqEventModifier || SP;
							Endif;

							//Get the Frequency FreqEventCode
							temp_FreqEventCode :=Last(First M from GridRows.FreqEventCode);
							//Update the RX Summary if a value was found
							If temp_FreqEventCode Is Not NULL Then
								RX_Summary := RX_Summary || temp_FreqEventCode || SP;
							Endif;
	
							//Get the Frequency Stop After Value
							temp_StopAfterNumber :=Last(First M from GridRows.StopAfterNumber);
							//Update the RX Summary if a value was found
							If temp_StopAfterNumber Is Not NULL Then
								RX_Summary := RX_Summary || "Stop After: " || temp_StopAfterNumber || SP;
							Endif;
							temp_StopAfterOption :=Last(First M from GridRows.StopAfterOption);
							//Update the RX Summary if a value was found
							If temp_StopAfterOption Is Not NULL Then
								RX_Summary := RX_Summary || temp_StopAfterOption || SP;
							Endif;

								//Reserve for Future Use
								//Found_DataItemCode1:= Found_Freq.DataItemCode1;
								//Found_DataItemValue1:= Found_Freq.DataItemValue1;
								//Found_DataItemCode2:= Found_Freq.DataItemCode2;
								//Found_DataItemValue2:= Found_Freq.DataItemValue2;
								//Found_DataItemCode3:= Found_Freq.DataItemCode3;
								//Found_DataItemValue3:= Found_Freq.DataItemValue3;
								//Found_DataItemCode4:= Found_Freq.DataItemCode4;
								//Found_DataItemValue4:= Found_Freq.DataItemValue4;
								//Found_DataItemCode5:= Found_Freq.DataItemCode5;
								//Found_DataItemValue5:= Found_Freq.DataItemValue5;

						Enddo; //End of Grid Row Loop
					Endif; //Grid Row exists
				ENDIF; //The Frequency is a dosing option type
			ENDIF;  //FrequencyCode was found
*/
			//Update the RX Comments UDDI with the Variable DOse or Multiple Frequency option.
			If RX_Summary Is not NULL then
				//The RX WRiter Sig Comment UDDI can only handle 2000 characters so trim to fit on form
				if (length RX_Summary) > 2000 then
					RX_Summary_Truncate := (substring 1997 characters starting at 1 from RX_Summary) || "...";
					RX_Comments_field.Value := RX_Summary_Truncate;
				Else
					RX_Comments_field.Value := RX_Summary;
				Endif;  //Update RX Comments
				
				//Add a note to the RX Instructions field (if exists) which displays when converting to a Home Medication.
				//Note - This field can only accomodate 140 chracters at this time so it will be truncated.
				//Check for the RX Instructions:
				RX_Instructions_field := first of (field_list where field_list.DataItemName = "Rx Instructions");
					If exists RX_Instructions_field then
				//		If (length RX_Summary) > 140 then
				//			RX_Instructions_Truncate := (substring 137 characters starting at 1 from RX_Summary) || "...";
						If (length RX_Summary) > 500 then
							RX_Instructions_Truncate := (substring 497 characters starting at 1 from RX_Summary) || "...";
							RX_Instructions_field.Value := RX_Instructions_Truncate;
						Else
							RX_Instructions_field.Value := RX_Summary;
						Endif;
					Endif;
			Endif;	//An RX Summary was found

		//The Field was not on the Order Form
		Elseif RX_Summary Is not NULL Then
	
			error_message := "The RX Comment Data Item was not found on the form and a Complex Dose was entered.";

		Endif; //The RX Comments UDDI was found on the form

	
		If error_message <> "" Then
			this_communication.DisplayForm := "Yes";
			this_communication.Message := "error_message";
			this_communication.MessageType := "Informational"; 
		Endif; 
		

	;;
	evoke:  // No evoke statement
	;;
	logic:  

		conclude true;
	;;
	action:
        // This MLM returns two parameters, of types communication_type and form_type respectively.
		return this_communication, this_form;
	;;
end: