Attribute VB_Name = "RMSTAPIErrorHandler"
Option Explicit

' * Program written by R.Sterling for Avaya *
' * No queries should be directed to this individuals in connection with this program.
'   All queries should be directed to Avaya Technical Support (FSG) *
' * Copyright Avaya 2002 *

Public Function Tapi_Error_Text(lTapiErrorNumber As Long) As String

    glNoOfErrors = glNoOfErrors + 1
    
    Select Case lTapiErrorNumber
        Case LINEERR_ALLOCATED
            Tapi_Error_Text = "LINEERR_ALLOCATED"
        Case LINEERR_BADDEVICEID
            Tapi_Error_Text = "LINEERR_BADDEVICEID"
        Case LINEERR_BEARERMODEUNAVAIL
            Tapi_Error_Text = "LINEERR_BEARERMODEUNAVAIL"
        Case LINEERR_CALLUNAVAIL
            Tapi_Error_Text = "LINEERR_CALLUNAVAIL"
        Case LINEERR_COMPLETIONOVERRUN
            Tapi_Error_Text = "LINEERR_COMPLETIONOVERRUN"
        Case LINEERR_CONFERENCEFULL
            Tapi_Error_Text = "LINEERR_CONFERENCEFULL"
        Case LINEERR_DIALBILLING
            Tapi_Error_Text = "LINEERR_DIALBILLING"
        Case LINEERR_DIALDIALTONE
            Tapi_Error_Text = "LINEERR_DIALDIALTONE"
        Case LINEERR_DIALPROMPT
            Tapi_Error_Text = "LINEERR_DIALPROMPT"
        Case LINEERR_DIALQUIET
            Tapi_Error_Text = "LINEERR_DIALQUIET"
        Case LINEERR_INCOMPATIBLEAPIVERSION
            Tapi_Error_Text = "LINEERR_INCOMPATIBLEAPIVERSION"
        Case LINEERR_INCOMPATIBLEEXTVERSION
            Tapi_Error_Text = "LINEERR_INCOMPATIBLEEXTVERSION"
        Case LINEERR_INIFILECORRUPT
            Tapi_Error_Text = "LINEERR_INIFILECORRUPT"
        Case LINEERR_INUSE
            Tapi_Error_Text = "LINEERR_INUSE"
        Case LINEERR_INVALADDRESS
            Tapi_Error_Text = "LINEERR_INVALADDRESS"
        Case LINEERR_INVALADDRESSID
            Tapi_Error_Text = "LINEERR_INVALADDRESSID"
        Case LINEERR_INVALADDRESSMODE
            Tapi_Error_Text = "LINEERR_INVALADDRESSMODE"
        Case LINEERR_INVALADDRESSSTATE
            Tapi_Error_Text = "LINEERR_INVALADDRESSSTATE"
        Case LINEERR_INVALAPPHANDLE
            Tapi_Error_Text = "LINEERR_INVALAPPHANDLE"
        Case LINEERR_INVALAPPNAME
            Tapi_Error_Text = "LINEERR_INVALAPPNAME"
        Case LINEERR_INVALBEARERMODE
            Tapi_Error_Text = "LINEERR_INVALBEARERMODE"
        Case LINEERR_INVALCALLCOMPLMODE
            Tapi_Error_Text = "LINEERR_INVALCALLCOMPLMODE"
        Case LINEERR_INVALCALLHANDLE
            Tapi_Error_Text = "LINEERR_INVALCALLHANDLE"
        Case LINEERR_INVALCALLPARAMS
            Tapi_Error_Text = "LINEERR_INVALCALLPARAMS"
        Case LINEERR_INVALCALLPRIVILEGE
            Tapi_Error_Text = "LINEERR_INVALCALLPRIVILEGE"
        Case LINEERR_INVALCALLSELECT
            Tapi_Error_Text = "LINEERR_INVALCALLSELECT"
        Case LINEERR_INVALCALLSTATE
            Tapi_Error_Text = "LINEERR_INVALCALLSTATE"
        Case LINEERR_INVALCALLSTATELIST
            Tapi_Error_Text = "LINEERR_INVALCALLSTATELIST"
        Case LINEERR_INVALCARD
            Tapi_Error_Text = "LINEERR_INVALCARD"
        Case LINEERR_INVALCOMPLETIONID
            Tapi_Error_Text = "LINEERR_INVALCOMPLETIONID"
        Case LINEERR_INVALCONFCALLHANDLE
            Tapi_Error_Text = "LINEERR_INVALCONFCALLHANDLE"
        Case LINEERR_INVALCONSULTCALLHANDLE
            Tapi_Error_Text = "LINEERR_INVALCONSULTCALLHANDLE"
        Case LINEERR_INVALCOUNTRYCODE
            Tapi_Error_Text = "LINEERR_INVALCOUNTRYCODE"
        Case LINEERR_INVALDEVICECLASS
            Tapi_Error_Text = "LINEERR_INVALDEVICECLASS"
        Case LINEERR_INVALDEVICEHANDLE
            Tapi_Error_Text = "LINEERR_INVALDEVICEHANDLE"
        Case LINEERR_INVALDIALPARAMS
            Tapi_Error_Text = "LINEERR_INVALDIALPARAMS"
        Case LINEERR_INVALDIGITLIST
            Tapi_Error_Text = "LINEERR_INVALDIGITLIST"
        Case LINEERR_INVALDIGITMODE
            Tapi_Error_Text = "LINEERR_INVALDIGITMODE"
        Case LINEERR_INVALDIGITS
            Tapi_Error_Text = "LINEERR_INVALDIGITS"
        Case LINEERR_INVALEXTVERSION
            Tapi_Error_Text = "LINEERR_INVALEXTVERSION"
        Case LINEERR_INVALGROUPID
            Tapi_Error_Text = "LINEERR_INVALGROUPID"
        Case LINEERR_INVALLINEHANDLE
            Tapi_Error_Text = "LINEERR_INVALLINEHANDLE"
        Case LINEERR_INVALLINESTATE
            Tapi_Error_Text = "LINEERR_INVALLINESTATE"
        Case LINEERR_INVALLOCATION
            Tapi_Error_Text = "LINEERR_INVALLOCATION"
        Case LINEERR_INVALMEDIALIST
            Tapi_Error_Text = "LINEERR_INVALMEDIALIST"
        Case LINEERR_INVALMEDIAMODE
            Tapi_Error_Text = "LINEERR_INVALMEDIAMODE"
        Case LINEERR_INVALMESSAGEID
            Tapi_Error_Text = "LINEERR_INVALMESSAGEID"
        Case LINEERR_INVALPARAM
            Tapi_Error_Text = "LINEERR_INVALPARAM"
        Case LINEERR_INVALPARKID
            Tapi_Error_Text = "LINEERR_INVALPARKID"
        Case LINEERR_INVALPARKMODE
            Tapi_Error_Text = "LINEERR_INVALPARKMODE"
        Case LINEERR_INVALPOINTER
            Tapi_Error_Text = "LINEERR_INVALPOINTER"
        Case LINEERR_INVALPRIVSELECT
            Tapi_Error_Text = "LINEERR_INVALPRIVSELECT"
        Case LINEERR_INVALRATE
            Tapi_Error_Text = "LINEERR_INVALRATE"
        Case LINEERR_INVALREQUESTMODE
            Tapi_Error_Text = "LINEERR_INVALREQUESTMODE"
        Case LINEERR_INVALTERMINALID
            Tapi_Error_Text = "LINEERR_INVALTERMINALID"
        Case LINEERR_INVALTERMINALMODE
            Tapi_Error_Text = "LINEERR_INVALTERMINALMODE"
        Case LINEERR_INVALTIMEOUT
            Tapi_Error_Text = "LINEERR_INVALTIMEOUT"
        Case LINEERR_INVALTONE
            Tapi_Error_Text = "LINEERR_INVALTONE"
        Case LINEERR_INVALTONELIST
            Tapi_Error_Text = "LINEERR_INVALTONELIST"
        Case LINEERR_INVALTONEMODE
            Tapi_Error_Text = "LINEERR_INVALTONEMODE"
        Case LINEERR_INVALTRANSFERMODE
            Tapi_Error_Text = "LINEERR_INVALTRANSFERMODE"
        Case LINEERR_LINEMAPPERFAILED
            Tapi_Error_Text = "LINEERR_LINEMAPPERFAILED"
        Case LINEERR_NOCONFERENCE
            Tapi_Error_Text = "LINEERR_NOCONFERENCE"
        Case LINEERR_NODEVICE
            Tapi_Error_Text = "LINEERR_NODEVICE"
        Case LINEERR_NODRIVER
            Tapi_Error_Text = "LINEERR_NODRIVER"
        Case LINEERR_NOMEM
            Tapi_Error_Text = "LINEERR_NOMEM"
        Case LINEERR_NOREQUEST
            Tapi_Error_Text = "LINEERR_NOREQUEST"
        Case LINEERR_NOTOWNER
            Tapi_Error_Text = "LINEERR_NOTOWNER"
        Case LINEERR_NOTREGISTERED
            Tapi_Error_Text = "LINEERR_NOTREGISTERED"
        Case LINEERR_OPERATIONFAILED
            Tapi_Error_Text = "LINEERR_OPERATIONFAILED"
        Case LINEERR_OPERATIONUNAVAIL
            Tapi_Error_Text = "LINEERR_OPERATIONUNAVAIL"
        Case LINEERR_RATEUNAVAIL
            Tapi_Error_Text = "LINEERR_RATEUNAVAIL"
        Case LINEERR_RESOURCEUNAVAIL
            Tapi_Error_Text = "LINEERR_RESOURCEUNAVAIL"
        Case LINEERR_REQUESTOVERRUN
            Tapi_Error_Text = "LINEERR_REQUESTOVERRUN"
        Case LINEERR_STRUCTURETOOSMALL
            Tapi_Error_Text = "LINEERR_STRUCTURETOOSMALL"
        Case LINEERR_TARGETNOTFOUND
            Tapi_Error_Text = "LINEERR_TARGETNOTFOUND"
        Case LINEERR_TARGETSELF
            Tapi_Error_Text = "LINEERR_TARGETSELF"
        Case LINEERR_UNINITIALIZED
            Tapi_Error_Text = "LINEERR_UNINITIALIZED"
        Case LINEERR_USERUSERINFOTOOBIG
            Tapi_Error_Text = "LINEERR_USERUSERINFOTOOBIG"
        Case LINEERR_REINIT
            Tapi_Error_Text = "LINEERR_REINIT"
        Case LINEERR_ADDRESSBLOCKED
            Tapi_Error_Text = "LINEERR_ADDRESSBLOCKED"
        Case LINEERR_BILLINGREJECTED
            Tapi_Error_Text = "LINEERR_BILLINGREJECTED"
        Case LINEERR_INVALFEATURE
            Tapi_Error_Text = "LINEERR_INVALFEATURE"
        Case LINEERR_NOMULTIPLEINSTANCE
            Tapi_Error_Text = "LINEERR_NOMULTIPLEINSTANCE"
        Case LINEERR_INVALAGENTID                         'TAPI v2.0
            Tapi_Error_Text = "LINEERR_INVALAGENTID"
        Case LINEERR_INVALAGENTGROUP                      'TAPI v2.0
            Tapi_Error_Text = "LINEERR_INVALAGENTGROUP"
        Case LINEERR_INVALPASSWORD                        'TAPI v2.0
            Tapi_Error_Text = "LINEERR_INVALPASSWORD"
        Case LINEERR_INVALAGENTSTATE                      'TAPI v2.0
            Tapi_Error_Text = "LINEERR_INVALAGENTSTATE"
        Case LINEERR_INVALAGENTACTIVITY                   'TAPI v2.0
            Tapi_Error_Text = "LINEERR_INVALAGENTACTIVITY"
        Case LINEERR_DIALVOICEDETECT                      'TAPI v2.0
            Tapi_Error_Text = "LINEERR_DIALVOICEDETECT"
        Case LINEERR_USERCANCELLED                        'TAPI v2.2
            Tapi_Error_Text = "LINEERR_USERCANCELLED"
        Case LINEERR_INVALADDRESSTYPE                     'TAPI v3.0
            Tapi_Error_Text = "LINEERR_INVALADDRESSTYPE"
        Case LINEERR_INVALAGENTSESSIONSTATE               'TAPI v2.2
            Tapi_Error_Text = "LINEERR_INVALAGENTSESSIONSTATE"
        Case LINEERR_DISCONNECTED
            Tapi_Error_Text = "LINEERR_DISCONNECTED"
        Case Else
            Tapi_Error_Text = "Unknown Error " & lTapiErrorNumber & " (" & Hex(lTapiErrorNumber) & " hex)"
    End Select
    
    'Tapi_Error_Text = Tapi_Error_Text & ". ERROR OCCURED SO FAR : " & glNoOfErrors & "."
    Tapi_Error_Text = Tapi_Error_Text
    
    frmMain.lblErrorCounter.BackColor = &HFF& ' Red
    frmMain.lblErrorCounter.ForeColor = &HFFFFFF ' White
    frmMain.lblErrorCounter.Caption = glNoOfErrors

    frmMain.lbStatusBrief.AddItem "ERROR : " & Tapi_Error_Text & " [" & lTapiErrorNumber & "]"
    frmMain.lbStatusBrief.ListIndex = frmMain.lbStatusBrief.ListCount - 1

    
End Function