WorkFlow's Hierarchy Level Details in Business Rule

        Public Function WfProfile_DescAdjChild(ByVal si As SessionInfo, ByVal strProfileKey As String) As DataTable
            Try

                'Define the SQL Statement
                Dim sql As New Text.StringBuilder

                sql.Append("SELECT ")
                sql.Append("ProfileKey,  ")
                sql.Append("ProfileName As Name,  ")
                sql.Append("ProfileType ")
                sql.Append("FROM  ")
                sql.Append("WorkflowProfileHierarchy ")
                sql.Append("Where  ")
                sql.Append("ProfileType = 51 ")
                sql.Append("And ProfileKey In (" & strProfileKey & ") ")
                sql.Append("ORDER BY  ")
                sql.Append("HierarchyIndex ")

                'Execute the query
                Using dbConnApp As DbConnInfo = BRApi.Database.CreateApplicationDbConnInfo(si)
                    Dim dt As DataTable = BRApi.Database.ExecuteSql(dbConnApp, sql.ToString, False)
                    dt.TableName = "WorkflowProfiles"
                    Return dt

                End Using

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