Attribute VB_Name = "WIBR"
Option Explicit

'********************************************************
' Wrapper for the Search Screen services
' Returns selected data object
' Returns Nothing if search is canceled

Public Function ShowSearchScreen(searchType As bbSearchTypes) As IBBDataObject

    Dim oServices As REServices
    Set oServices = New REServices
    oServices.Init REApplication.SessionContext
    
    Dim oSearch As IBBSearchScreen
    Set oSearch = oServices.CreateServiceObject(bbsoSearchScreen)
    oSearch.Init REApplication.SessionContext
    oSearch.AddSearchType SEARCH_APPEAL
    oSearch.ShowSearchForm
    
    Set ShowSearch = oSearch.SelectedDataObject

    oSearch.CloseDown
    Set oSearch = Nothing
    
    oServices.CloseDown
    Set oServices = Nothing

End Function