1: PACKAGE BODY PA_GANTT_CONFIG_PVT AS
2: /* $Header: PAGCGCVB.pls 120.1 2005/08/19 16:33:01 mwasowic noship $ */
3:
4: g_module_name VARCHAR2(100) := 'pa.plsql.PA_GANTT_CONFIG_PVT';
5: Invalid_Arg_Exc_GC Exception;
1: PACKAGE BODY PA_GANTT_CONFIG_PVT AS
2: /* $Header: PAGCGCVB.pls 120.1 2005/08/19 16:33:01 mwasowic noship $ */
3:
4: g_module_name VARCHAR2(100) := 'pa.plsql.PA_GANTT_CONFIG_PVT';
5: Invalid_Arg_Exc_GC Exception;
6:
7:
8: procedure CREATE_GANTT_CONFIG (
134: x_msg_count := 1;
135: x_msg_data := SQLERRM;
136:
137: FND_MSG_PUB.add_exc_msg
138: ( p_pkg_name => 'PA_GANTT_CONFIG_PVT'
139: ,p_procedure_name => 'CREATE_GANTT_CONFIG'
140: ,p_error_text => x_msg_data);
141:
142: IF l_debug_mode = 'Y' THEN
299: x_msg_count := 1;
300: x_msg_data := SQLERRM;
301:
302: FND_MSG_PUB.add_exc_msg
303: ( p_pkg_name => 'PA_GANTT_CONFIG_PVT'
304: ,p_procedure_name => 'UPDATE_GANTT_CONFIG'
305: ,p_error_text => x_msg_data);
306:
307: IF l_debug_mode = 'Y' THEN
421: x_msg_count := 1;
422: x_msg_data := SQLERRM;
423:
424: FND_MSG_PUB.add_exc_msg
425: ( p_pkg_name => 'PA_GANTT_CONFIG_PVT'
426: ,p_procedure_name => 'DELETE_GANTT_CONFIG'
427: ,p_error_text => x_msg_data);
428:
429: IF l_debug_mode = 'Y' THEN
439:
440: RAISE;
441: END DELETE_GANTT_CONFIG;
442:
443: END PA_GANTT_CONFIG_PVT;