How to Build a Business Rules Engine

316 CHAPTER FIFTEEN Implementing a Simple Business Rule

LISTING 15.9

Function RegenBizProc()

Public Function RegenBizProc() As String

'*******************************************************************

' This process finds all business processes associated with changed

' rules so that they can be regenerated

' Parameters: None

'

' Returns: "Y"

'*******************************************************************

Dim strSQL As String, rstRule As ADODB.Recordset, strSaveBP As

String

Dim strSaveBPSP As String, strSaveFrm As String, strSaveTab As

String

Dim strLast As String, strMy As String

RegenBizProc = "Y"

' Save public variables for the current environment

If Not IsNull(kstrSelBP) Then

strSaveBP = kstrSelBP

End If

If Not IsNull(kstrSelBPSP) Then

strSaveBPSP = ...