Error in Business Rule for Data Mgmt Process

I agree with chul .  You need defaults for when a user is not running the job.  This updated code will do that, be sure to edit the defaults as indicated in the comments:

Public Function Main(ByVal si As SessionInfo, ByVal globals As BRGlobals, ByVal api As Object, ByVal args As ExtenderArgs) As Object
    Try
        Select Case args.FunctionType
            Case ExtenderFunctionType.ExecuteDataMgmtBusinessRuleStep
                ' Define defaults
                Dim defaultWfTime As String = "2024" ' Replace with a valid default time
                Dim defaultWfProfile As String = "DefaultProfileName" ' Replace with a valid default profile

                ' Enforce wfProfile and wfTime defaults
                Dim wfProfile As String = If(String.IsNullOrEmpty(args.NameValuePairs.XFGetValue("WFProfile", Nothing)), defaultWfProfile, args.NameValuePairs.XFGetValue("WFProfile", Nothing))
                Dim wfTime As String = If(String.IsNullOrEmpty(args.NameValuePairs.XFGetValue("WFTime", Nothing)), defaultWfTime, args.NameValuePairs.XFGetValue("WFTime", Nothing))

                ' Initialize workflow variables
                Dim wfProfileID As Guid = Guid.Empty
                Dim wfTimeID As Integer = If(Int32.TryParse(wfTime, Nothing), Convert.ToInt32(wfTime), BRApi.Finance.Time.GetIdFromName(si, wfTime))
                wfTimeID = If(wfTimeID = SharedConstants.Unknown, SharedConstants.Unknown, wfTimeID)

                ' Load substitution variables
                Using dbConnFW As DbConnInfo = BRApi.Database.CreateFrameworkDbConnInfo(si),
                      dbConnApp As DbConnInfo = BRApi.Database.CreateApplicationDbConnInfo(si)
                    Dim subVarInfo As SubstVarSourceInfo = SubstitutionVariablesHelper.CreateSubstVarSourceInfo(dbConnFW, dbConnApp, False)
                    wfProfile = SubstitutionVariableParser.ConvertString(si, subVarInfo, Nothing, wfProfile)
                    wfTime = SubstitutionVariableParser.ConvertString(si, subVarInfo, Nothing, wfTime)
                End Using

                ' Resolve workflow profile to ID
                Dim wfProfileInfo As WorkflowProfileInfo = If(Guid.TryParse(wfProfile, wfProfileID), BRApi.Workflow.Metadata.GetProfile(si, wfProfileID), BRApi.Workflow.Metadata.GetProfile(si, wfProfile))
                If wfProfileInfo IsNot Nothing Then wfProfileID = wfProfileInfo.UniqueID

                ' Set task description
                Dim rScenarioID As Integer = GeneralHelpers.GetStoredSettingAsInteger(si, RCM_SettingsHelpers.StoredSettingName_ReconScenario)
                Dim wfClusterPk As New WorkflowUnitClusterPk(wfProfileID, rScenarioID, wfTimeID)
                Dim wfDesc As String = BRApi.Workflow.General.GetWorkflowUnitClusterPkDescription(si, wfClusterPk)
                Dim fields As List(Of String) = StringHelper.SplitString(wfDesc, ":", StageConstants.ParserDefaults.DefaultQuoteCharacter)
                Dim wfName As String = If(fields.Any(), fields(0), "WP#Missing")
                Dim taskInformation As String = $"{wfName}:S#{ScenarioDimHelper.GetNameFromId(si, rScenarioID)}:T#{BRApi.Finance.Time.GetNameFromId(si, wfTimeID)} - {OFC_SharedConsts.DataMgmtTaskPrefixReconProcess}."
                DataMgmtHelpers.SetTaskDescription(si, args.TaskActivityID, taskInformation)

                ' Ensure DM job can run
                If Not args.NameValuePairs.MPGetValueToBoolean(DataMgmtProcessHelper.CanDataMgmtJobRunCheckedKey, False) Then
                    Dim dataMgmtHelper As New DataMgmtProcessHelper(si)
                    Dim params As New Dictionary(Of String, String) From {{"WFProfile", wfProfileID.ToString}, {"WFTime", wfTimeID.ToString}}
                    Dim canDataMgmtJobRun As BoolAndTwoStrings = dataMgmtHelper.CanDataMgmtJobRun(OFC_SharedConsts.DataMgmtSeqReconProcess, params, args.TaskActivityID)
                    If Not canDataMgmtJobRun.Bool1 Then Return Nothing
                End If

                ' Execute process reconciliations
                Dim errorMessage As String = String.Empty
                Dim sScenarioID As Integer = GeneralHelpers.GetStoredSettingAsInteger(si, RCM_SettingsHelpers.StoredSettingName_SourceScenario)
                Dim processHelper As New ProcessReconsHelper(si, wfProfileID, sScenarioID, rScenarioID, wfTimeID, args.TaskActivityID)
                processHelper.ExecuteProcessRecons(errorMessage)

                ' Update task information if errors occurred
                If Not String.IsNullOrEmpty(errorMessage) Then
                    taskInformation &= errorMessage
                    DataMgmtHelpers.SetTaskDescription(si, args.TaskActivityID, taskInformation, True)
                End If
        End Select

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