PACKAGE BODY: APPS.WIP_CONSTANTS

Source

1 PACKAGE BODY WIP_CONSTANTS AS
2  /* $Header: wipconsb.pls 115.7 2002/12/12 16:57:10 rmahidha ship $ */
3 
4   -- Cover routine to SQLCODE and SQLERRM to place error code and text
5   -- onto message stack.
6   procedure get_ora_error(application varchar2, proc_name varchar2) IS
7     x_sql_code number;
8     x_sql_errm varchar2(512);
9   begin
10     x_sql_code := sqlcode;
11     x_sql_errm := sqlerrm(x_sql_code);
12 
13     fnd_message.set_name(
14       application => application,
15       name        => 'SQL-Generic error');
16     fnd_message.set_token(
17       token     => 'ERRNO',
18       value     => to_char(x_sql_code),
19       translate => true);
20     fnd_message.set_token(
21       token     => 'ROUTINE',
22       value     => proc_name,
23       translate => TRUE);
24     fnd_message.set_token(
25       token     => 'REASON',
26       value     => x_sql_errm,
27       translate => TRUE);
28   end get_ora_error;
29 
30   procedure initialize is
31   begin
32     return;
33   end initialize;
34 
35 END WIP_CONSTANTS;