PACKAGE BODY: APPS.ECE_ERROR_HANDLING_PVT

Source

1 PACKAGE BODY ECE_ERROR_HANDLING_PVT AS
2 -- $Header: ECERRHLB.pls 115.3 99/08/23 15:40:03 porting ship $
3 
4    PROCEDURE Print_Parse_Error (
5       p_err_pos        IN   NUMBER,
6       p_string         IN   VARCHAR2) IS
7 
8       l_start_pos           NUMBER;
9       l_new_length          NUMBER := 100;
10       l_new_err_pos         NUMBER;
11       l_pad                 NUMBER := 50;
12 
13    BEGIN
14       ec_debug.push ('ECE_ERROR_HANDLING_PVT.Print_Parse_Error');
15       if (p_err_pos > l_pad) then
16          l_start_pos := p_err_pos - l_pad;
17       else
18          l_start_pos := 0;
19       end if;
20 
21       l_new_err_pos := p_err_pos - l_start_pos + 1;
22 
23       ec_debug.pl (0,'EC', 'ECE_PARSING_ERROR', 'ERROR_POSITION', l_new_err_pos );
24       ec_debug.pl (0,substrb(p_string, l_start_pos, l_new_length));
25       ec_debug.pl (0,'EC', 'ECE_ERROR_CODE', 'ERROR_CODE', SQLCODE);
26       ec_debug.pl (0,'EC', 'ECE_ERROR_MESSAGE', 'ERROR_MESSAGE', SQLERRM);
27       ec_debug.pop ('ECE_ERROR_HANDLING_PVT.Print_Parse_Error');
28    END Print_Parse_Error;
29 
30 END ECE_ERROR_HANDLING_PVT;
31