Public Overrides Sub PrepareCalculatedFields(ByVal FormulaName As String)
    Select Case FormulaName
      Case "Batch_Detail_Vendor_Name"
        MyBase.AddTable("xiBatch_Detail")
        MyBase.AddField("Batch_Detail_Vendor_Name = xiBatch_Detail.Vendor_Name")

      Case "TransErr_Transaction_Amt"
        MyBase.AddTable("xiBatch_Detail")
        MyBase.AddField("TransErr_Transaction_Amt = xiBatch_Detail.Transaction_Amt")

      Case "Vendor_Number"
        MyBase.AddTable("xiVendor_Detail")
        MyBase.AddField("Vendor_Number = Vendor_Number + '-' + Mail_Code")

      Case "Vendor_Detail_Vendor_Name"
        MyBase.AddTable("xiVendor_Detail")
        MyBase.AddField("Vendor_Detail_Vendor_Name = xiVendor_Detail.Vendor_Name")

      Case "Address"
        MyBase.AddTable("xiVendor_Detail")
        MyBase.AddField("Address = CASE " & _
                                    "WHEN Address_Line_1 IS NULL THEN NULL " & _
                                    "WHEN Address_Line_1 = '' THEN NULL " & _
                                    "ELSE RTRIM(Address_Line_1 + ' ' + " & _
                                          "ISNULL(Address_Line_2, '') + ' ' + " & _
                                          "ISNULL(Address_Line_3, '')) + ', ' + " & _
                                          "ISNULL(City, '') + ', ' + " & _
                                          "ISNULL(State, '') + ' ' + " & _
                                          "ISNULL(Zip_Code, '') + " & _
                                          "CASE " & _
                                            "WHEN Zip_Code_Ext IS NULL THEN '' " & _
                                            "ELSE ' ' + Zip_Code_Ext " & _
                                          "END + ' ' + " & _
                                          "ISNULL(Country, '')" & _
                                  "END")

      Case "Warrant_Vendor_Name"
        MyBase.AddTable("xiWarrant")
        MyBase.AddField("Warrant_Vendor_Name = xiWarrant.Vendor_Name")

      Case "Counselor_Contact_Info"
        MyBase.AddTable("buStaff_Location_Assign")
        MyBase.AddField("Counselor_Contact_Info = RTRIM(xiBatch_Detail.Staff_Issued_Last_Name) + ', ' + RTRIM(xiBatch_Detail.Staff_Issued_First_Name) + RTRIM(' ' + xiBatch_Detail.Staff_Issued_Middle_Initial) + '<br/>' + RTRIM(buStaff_Location_Assign.Staff_Prime_Phone_Number)")

      Case "Auth_No_Legacy_Code_Display"
        MyBase.AddTable("xiBatch_Detail")
        MyBase.AddField("Auth_No_Legacy_Code_Display = " & _
                            "RTRIM(ISNULL(CAST(xiBatch_Detail.Auth_Header_ID as nvarchar(50)),'')) + ' ' + " & _
                            "CASE " & _
                              "WHEN xiBatch_Detail.Auth_Header_Legacy_Code IS NULL THEN '' " & _
                              "WHEN xiBatch_Detail.Auth_Header_Legacy_Code = '' THEN '' " & _
                              "ELSE ' (' + xiBatch_Detail.Auth_Header_Legacy_Code + ')' " & _
                            "END")

      Case "Batch_Num_Display"
        MyBase.AddTable("xiBatch_Header")
        MyBase.AddField("Batch_Num_Display = " & _
                           "CASE " & _
                              "WHEN xiBatch_Header.Batch_Num IS NOT NULL THEN " & _
                                "CONVERT(VARCHAR,xiBatch_Header.Batch_Num) + ' ' " & _
                             "ELSE '' " & _
                           "END + " & _
                           "CASE " & _
                             "WHEN xiBatch_Detail.Internal_Batch_Num IS NOT NULL " & _
                               "AND LTRIM(xiBatch_Detail.Internal_Batch_Num) <> '' THEN " & _
                                 "CASE " & _
                                   "WHEN xiBatch_Header.Batch_Num IS NOT NULL THEN " & _
                                      "'<BR>' " & _
                                  "ELSE '' " & _
                                "END + '(' + xiBatch_Detail.Internal_Batch_Num + ')' " & _
                            "ELSE '' " & _
                          "END")

      Case "Auth_Detail_Line_Num"
        MyBase.AddTable("xiBatch_Detail")
        MyBase.AddField("Auth_Detail_Line_Num = CAST(Auth_Detail_Line_Num AS VARCHAR(4))")
    End Select
  End Sub