1: PACKAGE BODY PA_ALTERNATE_TASK_PVT AS
2: --$Header: PAALTKVB.pls 120.10.12020000.7 2013/05/28 12:44:56 djambhek noship $
3:
4: g_module_name VARCHAR2(100) := 'pa.plsql.PA_ALTERNATE_TASK_PVT';
5: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
6:
7:
8: procedure PRINT_MSG(P_MSG VARCHAR2
9: ,p_dbug_flag VARCHAR2 default 'N') is
8: procedure PRINT_MSG(P_MSG VARCHAR2
9: ,p_dbug_flag VARCHAR2 default 'N') is
10:
11: BEGIN
12: IF (P_PA_DEBUG_MODE = 'Y' ) Then
13: pa_debug.g_err_stage := substr('LOG:'||p_msg,1,240);
14: PA_DEBUG.write
15: (x_Module => g_module_name
16: ,x_Msg => pa_debug.g_err_stage
9: ,p_dbug_flag VARCHAR2 default 'N') is
10:
11: BEGIN
12: IF (P_PA_DEBUG_MODE = 'Y' ) Then
13: pa_debug.g_err_stage := substr('LOG:'||p_msg,1,240);
14: PA_DEBUG.write
15: (x_Module => g_module_name
16: ,x_Msg => pa_debug.g_err_stage
17: ,x_Log_Level => 3);
10:
11: BEGIN
12: IF (P_PA_DEBUG_MODE = 'Y' ) Then
13: pa_debug.g_err_stage := substr('LOG:'||p_msg,1,240);
14: PA_DEBUG.write
15: (x_Module => g_module_name
16: ,x_Msg => pa_debug.g_err_stage
17: ,x_Log_Level => 3);
18: END IF;
12: IF (P_PA_DEBUG_MODE = 'Y' ) Then
13: pa_debug.g_err_stage := substr('LOG:'||p_msg,1,240);
14: PA_DEBUG.write
15: (x_Module => g_module_name
16: ,x_Msg => pa_debug.g_err_stage
17: ,x_Log_Level => 3);
18: END IF;
19: Return;
20: END PRINT_MSG;
92: x_return_status := FND_API.G_RET_STS_SUCCESS;
93: x_msg_data := NULL;
94: x_msg_count := 0;
95:
96: IF p_pa_debug_mode = 'Y' Then
97: pa_debug.init_err_stack('PA_ALTERNATE_TASK_PVT.Create_Alt_Task');
98: pa_debug.set_process('PLSQL','LOG',P_PA_DEBUG_MODE);
99: End If;
100:
93: x_msg_data := NULL;
94: x_msg_count := 0;
95:
96: IF p_pa_debug_mode = 'Y' Then
97: pa_debug.init_err_stack('PA_ALTERNATE_TASK_PVT.Create_Alt_Task');
98: pa_debug.set_process('PLSQL','LOG',P_PA_DEBUG_MODE);
99: End If;
100:
101: print_msg('PA_ALTERNATE_TASK_PVT.Create_Alt_Task IN param(Scalar) values');
94: x_msg_count := 0;
95:
96: IF p_pa_debug_mode = 'Y' Then
97: pa_debug.init_err_stack('PA_ALTERNATE_TASK_PVT.Create_Alt_Task');
98: pa_debug.set_process('PLSQL','LOG',P_PA_DEBUG_MODE);
99: End If;
100:
101: print_msg('PA_ALTERNATE_TASK_PVT.Create_Alt_Task IN param(Scalar) values');
102:
260: x_return_status := FND_API.G_RET_STS_SUCCESS;
261: x_msg_data := NULL;
262: x_msg_count := 0;
263:
264: IF p_pa_debug_mode = 'Y' Then
265: pa_debug.init_err_stack('PA_ALTERNATE_TASK_PVT.Delete_Alt_Task');
266: pa_debug.set_process('PLSQL','LOG',P_PA_DEBUG_MODE);
267: End If;
268:
261: x_msg_data := NULL;
262: x_msg_count := 0;
263:
264: IF p_pa_debug_mode = 'Y' Then
265: pa_debug.init_err_stack('PA_ALTERNATE_TASK_PVT.Delete_Alt_Task');
266: pa_debug.set_process('PLSQL','LOG',P_PA_DEBUG_MODE);
267: End If;
268:
269: print_msg('PA_ALTERNATE_TASK_PVT.Delete_Alt_Task IN param(Scalar) values');
262: x_msg_count := 0;
263:
264: IF p_pa_debug_mode = 'Y' Then
265: pa_debug.init_err_stack('PA_ALTERNATE_TASK_PVT.Delete_Alt_Task');
266: pa_debug.set_process('PLSQL','LOG',P_PA_DEBUG_MODE);
267: End If;
268:
269: print_msg('PA_ALTERNATE_TASK_PVT.Delete_Alt_Task IN param(Scalar) values');
270:
1285: x_return_status := FND_API.G_RET_STS_SUCCESS;
1286: x_msg_data := NULL;
1287: x_msg_count := 0;
1288:
1289: IF p_pa_debug_mode = 'Y' Then
1290: pa_debug.init_err_stack('PA_ALTERNATE_TASK_PVT.Delete_ALL_Alt_Task');
1291: pa_debug.set_process('PLSQL','LOG',P_PA_DEBUG_MODE);
1292: End If;
1293: SELECT DISTINCT ALT_TASK_ID BULK COLLECT INTO l_alt_task_id_tbl
1286: x_msg_data := NULL;
1287: x_msg_count := 0;
1288:
1289: IF p_pa_debug_mode = 'Y' Then
1290: pa_debug.init_err_stack('PA_ALTERNATE_TASK_PVT.Delete_ALL_Alt_Task');
1291: pa_debug.set_process('PLSQL','LOG',P_PA_DEBUG_MODE);
1292: End If;
1293: SELECT DISTINCT ALT_TASK_ID BULK COLLECT INTO l_alt_task_id_tbl
1294: FROM PA_PROJ_ELEMENTS PPE, PA_ALTERNATE_TASKS PAT
1287: x_msg_count := 0;
1288:
1289: IF p_pa_debug_mode = 'Y' Then
1290: pa_debug.init_err_stack('PA_ALTERNATE_TASK_PVT.Delete_ALL_Alt_Task');
1291: pa_debug.set_process('PLSQL','LOG',P_PA_DEBUG_MODE);
1292: End If;
1293: SELECT DISTINCT ALT_TASK_ID BULK COLLECT INTO l_alt_task_id_tbl
1294: FROM PA_PROJ_ELEMENTS PPE, PA_ALTERNATE_TASKS PAT
1295: WHERE PPE.PROJECT_ID=p_project_id