Listing A
'##############################################################################
' Author: Kevin Koch
' Description:  This class represents a facade layer and the component
'               tier where business logic is contained for functionality
'               regarding Availability
'##############################################################################
 
 
 
 
Public Class AvailabilityServices
 
 
    Private Const CLASS_NAME As String = "AvailabilityServices"
 
 
 
 
    '#########################################################################################################################
    ' Returns the entire availability table
    '#########################################################################################################################
    Public Function GetAllAvailability() As DataSet
        Const METHOD_NAME As String = "GetAllAvailability"
 
 
        Try
           Dim DbObj As AvailabilityDb = New AvailabilityDb()
            Return DbObj.GetAllAvailability()
 
 
        Catch dbEx As DbTierException
            'Exception has already been logged, just throw it to the ASPX
            Throw dbEx
        Catch ex As Exception
            'Exception occurred within this method, log it
            Log.WriteLogEntry(ex, Me.CLASS_NAME, METHOD_NAME)
            Throw New BizTierException(ex.Message, ex)
        End Try
    End Function
 
 
End Class