Subroutine Scrape_Engine_Debugger_Intercept(Void)
/***********************************************************************************************************************

    This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written
    permission from SRP Computer Solutions, Inc.

    Name        :   Scrape_Engine_Debugger_Intercept

    Description :   Handler program for the HTTP Debugger service module.

    Notes       :   Service handler for HTTP Requests that abort due to a Runtime Error and the Debugger Intercept
                    has been enabled.

    Parameters  :

    Metadata    :

    History     :   (Date, Initials, Notes)
        07/25/23    djs     Original programmer. 

***********************************************************************************************************************/

#pragma precomp SRP_PreCompiler

$insert APP_INSERTS
$insert RTI_DEBUG_COMMON

Declare function   Environment_Services, Logging_Services
Declare subroutine Logging_Services

LogPath     = Environment_Services('GetApplicationRootPath') : '\LogFiles\Scrape'
LogDate     = Oconv(Date(), 'D4/')
LogTime     = Oconv(Time(), 'MTS')
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' OEngine Log.csv'
Headers     = 'Stored Proc Status' : @FM : 'Stored Proc Status Code' : @FM : 'Current Program' : @FM : 'Call Depth' : @FM : 'Line No' : @FM : 'Call Stack'
objLog      = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, ',', Headers, '', False$, False$)
LogData     = ''
LogData<1>  = SPStatus@
LogData<2>  = SPStatCode@
LogData<3>  = Curr_Program@
LogData<4>  = CallDepth@
LogData<5>  = LineNo@
LogData<6>  = CallStack@
Logging_Services('AppendLog', objLog, LogData, @RM, @FM, '', '', '')

Return


