28: PROCEDURE report_error(p_routine IN VARCHAR2,
29: p_reason IN VARCHAR2)
30: IS
31: BEGIN
32: fnd_message.set_name('FND','GENERIC-INTERNAL ERROR');
33: fnd_message.set_token('ROUTINE', p_routine);
34: fnd_message.set_token('REASON', p_reason);
35: END report_error;
36:
29: p_reason IN VARCHAR2)
30: IS
31: BEGIN
32: fnd_message.set_name('FND','GENERIC-INTERNAL ERROR');
33: fnd_message.set_token('ROUTINE', p_routine);
34: fnd_message.set_token('REASON', p_reason);
35: END report_error;
36:
37: -- ======================================================================
30: IS
31: BEGIN
32: fnd_message.set_name('FND','GENERIC-INTERNAL ERROR');
33: fnd_message.set_token('ROUTINE', p_routine);
34: fnd_message.set_token('REASON', p_reason);
35: END report_error;
36:
37: -- ======================================================================
38: -- Public Functions
230: dbms_debug(l_debug);
231: EXCEPTION
232: WHEN OTHERS THEN
233: l_dsql := 'SQLERRM:' || Sqlerrm;
234: l_debug := 'i:' || To_char(i) || ' ' || fnd_message.get;
235: dbms_debug(l_dsql);
236: dbms_debug(l_debug);
237: END fnd_dsql_test;
238: