Running DM package from the BR and completing the workflow step

Namespace OneStream.BusinessRule.DashboardExtender.EPU_SolutionHelper
	Public Class MainClass
		Public Function Main(ByVal si As SessionInfo, ByVal globals As BRGlobals, ByVal api As Object, ByVal args As DashboardExtenderArgs) As Object
			Try
				Select Case args.FunctionType
				Case Is = DashboardExtenderFunctionType.ComponentSelectionChanged
	  				If (args.FunctionName.XFEqualsIgnoreCase("ExecuteEPUProcess")) Then

					Dim wfProfileKey As Guid = si.WorkflowClusterPk.ProfileKey
					Dim wfProfile As String = BRApi.Workflow.Metadata.GetProfile(si, si.WorkflowClusterPk.ProfileKey).Name
					Dim scenario As String = ScenarioDimHelper.GetNameFromID(si, si.WorkflowClusterPk.ScenarioKey)
					Dim time As String = BRApi.Finance.Time.GetNameFromId(si, si.WorkflowClusterPk.TimeKey)
					Dim wfToUpdate As WorkflowUnitClusterPk = BRApi.Workflow.General.GetWorkflowUnitClusterPk(si, wfProfile, scenario, time)						
	                Dim wfStatus As WorkflowInfo = BRApi.Workflow.Status.GetWorkflowStatus(si, si.WorkflowClusterPk, True)
					Dim calcEntity As String = BRApi.Dashboards.Parameters.GetLiteralParameterValue(si,"False","WFEPUEntity")
					Dim EPU_DM_Sequence As String = args.NameValuePairs.XFGetValue("EPU_DM_Sequence", Nothing)
					Dim EPU_Entity_Selection_S4 As String = args.Namevaluepairs.XFGetValue("EPU_Entity_Selection_S4",Nothing)
					Dim EPU_Period As String = args.Namevaluepairs.XFGetValue("EPU_Period",Nothing)


							
					'Make sure the Workflow is not Complete or Locked before proceeding with DM Sequence
					If (wfStatus.Locked)
						Throw New System.Exception ("EPU Process could not be executed. EPU Workflow Step is locked.")
					Else If wfStatus.GetOverallStatus().Equals(WorkflowStatusTypes.Completed)
						Throw New System.Exception ("EPU Process could not be executed. EPU Workflow Step is complete.")
					End If
						

					Dim selectionChangedTaskResult As New XFSelectionChangedTaskResult()
					selectionChangedTaskResult.IsOK = False
					selectionChangedTaskResult.ShowMessageBox = True

				    'Launch data management sequence
					 Dim customSubstVars As New Dictionary(Of String, String) 'You can use this dictionary to pass on parameters to your DM Sequence
						customSubstVars.Add("EPU_Entity_Selection_S4", EPU_Entity_Selection_S4)
						customSubstVars.Add("EPU_Period", EPU_Period)
					 Dim objTaskActivityItem As TaskActivityItem = BRApi.Utilities.ExecuteDataMgmtSequence(si, EPU_DM_Sequence, customSubstVars)

					 If (objTaskActivityItem.HasError) Then ' -- If DM Sequence generates errors 
				     	selectionChangedTaskResult.Message = "EPU Process completed with errors."
				     	Return selectionChangedTaskResult
				     Else ' -- If DM Sequence completes successfully
				     	selectionChangedTaskResult.IsOK = True
				      	selectionChangedTaskResult.Message = "EPU Process has completed successfully."
						'Define Workflow Profile

					'Complete the workflow step if and when DM sequence completes sucessfully
						BRApi.Workflow.Status.SetWorkflowStatus(si, wfToUpdate, StepClassificationTypes.Workspace, WorkflowStatusTypes.Completed, "Auto completing Workspace", _
						"Error autocompleting Workspace", "Auto completing", Nothing)						
					    ' You can paste and adapt your existing WF Status Update code here
						selectionChangedTaskResult.WorkflowWasChangedByBusinessRule = True
						selectionChangedTaskResult.IsOK = True

		      				Return selectionChangedTaskResult									
	    			End If
	  				End If
				End Select

				Return Nothing
			Catch ex As Exception
				Throw ErrorHandler.LogWrite(si, New XFException(si, ex))
			End Try
		End Function
	End Class
End Namespace