DBA Data[Home] [Help]

APPS.PA_RES_LIST_UPGRADE_PKG dependencies on PA_RES_LIST_UPGRADE_PKG

Line 1: package body PA_RES_LIST_UPGRADE_PKG as

1: package body PA_RES_LIST_UPGRADE_PKG as
2: /* $Header: PARTPLRB.pls 120.5 2008/07/24 10:13:52 vgovvala ship $ */
3:
4: PROCEDURE RES_LIST_PLAN_LIST_WHEN_NULL( x_return_status OUT NOCOPY VARCHAR2, -- Added for 6710419
5: x_msg_count OUT NOCOPY NUMBER,

Line 18: l_module_name VARCHAR2(300) := 'PA_RES_LIST_UPGRADE_PKG' || 'RES_LIST_PLAN_LIST_WHEN_NULL';

14: tbl_res_id_list_tbl PA_PLSQL_DATATYPES.IdTabTyp;
15:
16: l_count NUMBER;
17: l_debug_mode VARCHAR2(1);
18: l_module_name VARCHAR2(300) := 'PA_RES_LIST_UPGRADE_PKG' || 'RES_LIST_PLAN_LIST_WHEN_NULL';
19: l_debug_level5 CONSTANT NUMBER := 5;
20: l_data VARCHAR2(2000);
21: l_msg_index_out NUMBER;
22:

Line 46: pa_res_list_upgrade_pkg.res_list_to_plan_res_list(

42: THEN
43: FOR l_count in tbl_res_id_list_tbl.first..tbl_res_id_list_tbl.last
44: LOOP
45:
46: pa_res_list_upgrade_pkg.res_list_to_plan_res_list(
47: P_Resource_List_Id => tbl_res_id_list_tbl(l_count),
48: p_commit => 'T',
49: p_init_msg_list => 'T',
50: x_return_status => x_return_status,

Line 103: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RES_LIST_UPGRADE_PKG'

99:
100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
101: x_msg_count := 1;
102: x_msg_data := SQLERRM;
103: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RES_LIST_UPGRADE_PKG'
104: ,p_procedure_name => 'RES_LIST_PLAN_LIST_WHEN_NULL');
105:
106: IF l_debug_mode = 'Y' THEN
107: pa_debug.g_err_stage:='Error occured when processing the Resource List '||tbl_res_id_list_tbl(l_count);

Line 285: l_module_name VARCHAR2(100):= 'pa.plsql.pa_res_list_upgrade_pkg';

281: PRAGMA EXCEPTION_INIT(null_alias,-20106);
282: PRAGMA EXCEPTION_INIT(res_list_upgraded,-20101);
283: PRAGMA EXCEPTION_INIT(null_res_list,-20102);
284: l_debug_mode varchar2(30);
285: l_module_name VARCHAR2(100):= 'pa.plsql.pa_res_list_upgrade_pkg';
286: l_msg_index_out NUMBER;
287: l_data VARCHAR2(2000);
288: l_msg_data VARCHAR2(2000);
289: l_msg_count number;

Line 312: PA_RES_LIST_UPGRADE_PKG.RES_LIST_PLAN_LIST_WHEN_NULL(x_return_status => X_Return_Status,

308: --hr_utility.trace('begin');
309:
310: IF (P_Resource_List_Id IS NULL)
311: THEN
312: PA_RES_LIST_UPGRADE_PKG.RES_LIST_PLAN_LIST_WHEN_NULL(x_return_status => X_Return_Status,
313: x_msg_count => X_Msg_Count,
314: x_msg_data => X_Msg_Data);
315:
316: ELSE

Line 319: savepoint pa_res_list_upgrade_pkg;

315:
316: ELSE
317:
318:
319: savepoint pa_res_list_upgrade_pkg;
320:
321: -- Bug 3802762, 30-JUN-2004, jwhite ------------------------------------
322: -- Added if/then test for p_init_msg_list
323:

Line 336: pa_debug.init_err_stack('PA_RES_LIST_UPGRADE_PKG.RES_LIST_TO_PLAN_RES_LIST');

332: -- End Bug 3802762 -----------------------------------------------------
333:
334: x_msg_count := 0;
335: x_return_status := FND_API.G_RET_STS_SUCCESS;
336: pa_debug.init_err_stack('PA_RES_LIST_UPGRADE_PKG.RES_LIST_TO_PLAN_RES_LIST');
337: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
338: l_debug_mode := NVL(l_debug_mode, 'Y');
339: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
340: --dbms_output.put_line('R2');

Line 1028: ROLLBACK to PA_RES_LIST_UPGRADE_PKG;

1024: x_return_status:= FND_API.G_RET_STS_ERROR;
1025: pa_debug.write_file('RES_LIST_TO_PLAN_RES_LIST: Upgrade has failed for the resource list '|| p_resource_list_id,5);
1026: pa_debug.write_file('RES_LIST_TO_PLAN_RES_LIST:: Failure Reason:'||x_msg_data,5);
1027: pa_debug.reset_err_stack;
1028: ROLLBACK to PA_RES_LIST_UPGRADE_PKG;
1029: RAISE;
1030: rollback;
1031: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc or RES_LIST_UPGRADED THEN
1032: l_msg_count := FND_MSG_PUB.count_msg;

Line 1056: ROLLBACK to PA_RES_LIST_UPGRADE_PKG;

1052: x_return_status:= FND_API.G_RET_STS_ERROR;
1053: pa_debug.write_file('RES_LIST_TO_PLAN_RES_LIST: Upgrade has failed for the resource list '|| p_resource_list_id,5);
1054: pa_debug.write_file('RES_LIST_TO_PLAN_RES_LIST:: Failure Reason:'||x_msg_data,5);
1055: pa_debug.reset_err_stack;
1056: ROLLBACK to PA_RES_LIST_UPGRADE_PKG;
1057: RAISE;
1058: WHEN OTHERS THEN
1059: if (get_res_format_table_csr%ISOPEN) then
1060: close get_res_format_table_csr;

Line 1095: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_RES_LIST_UPGRADE_PKG',p_procedure_name => 'RES_LIST_TO_PLAN_RES_LIST');

1091: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1092: x_msg_count := 1;
1093: x_msg_data := SQLERRM;
1094:
1095: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_RES_LIST_UPGRADE_PKG',p_procedure_name => 'RES_LIST_TO_PLAN_RES_LIST');
1096: IF l_debug_mode = 'Y' THEN
1097: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1098: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1099: END IF;

Line 1104: ROLLBACK to PA_RES_LIST_UPGRADE_PKG;

1100:
1101: pa_debug.write_file('RES_LIST_TO_PLAN_RES_LIST: Upgrade has failed for the resource list '||p_resource_list_id,5);
1102: pa_debug.write_file('RES_LIST_TO_PLAN_RES_LIST: Failure Reason:'||pa_debug.G_Err_Stack,5);
1103: pa_debug.reset_err_stack;
1104: ROLLBACK to PA_RES_LIST_UPGRADE_PKG;
1105: RAISE;
1106: end RES_LIST_TO_PLAN_RES_LIST;
1107:
1108: END PA_RES_LIST_UPGRADE_PKG;

Line 1108: END PA_RES_LIST_UPGRADE_PKG;

1104: ROLLBACK to PA_RES_LIST_UPGRADE_PKG;
1105: RAISE;
1106: end RES_LIST_TO_PLAN_RES_LIST;
1107:
1108: END PA_RES_LIST_UPGRADE_PKG;