eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PA_RES_LIST_UPGRADE_PKG dependencies on PA_DEBUG

Line 29: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');

25: BEGIN
26:
27: x_msg_count := 0;
28: x_return_status := FND_API.G_RET_STS_SUCCESS;
29: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
30:
31: IF l_debug_mode = 'Y' THEN
32: pa_debug.set_curr_function( p_function => 'RES_LIST_PLAN_LIST_WHEN_NULL',
33: p_debug_mode => l_debug_mode );

Line 32: pa_debug.set_curr_function( p_function => 'RES_LIST_PLAN_LIST_WHEN_NULL',

28: x_return_status := FND_API.G_RET_STS_SUCCESS;
29: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
30:
31: IF l_debug_mode = 'Y' THEN
32: pa_debug.set_curr_function( p_function => 'RES_LIST_PLAN_LIST_WHEN_NULL',
33: p_debug_mode => l_debug_mode );
34:
35: END IF;
36:

Line 56: pa_debug.g_err_stage:='Error occured when processing the Resource List '||tbl_res_id_list_tbl(l_count);

52: x_msg_data => x_msg_data );
53:
54: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
55: IF l_debug_mode = 'Y' THEN
56: pa_debug.g_err_stage:='Error occured when processing the Resource List '||tbl_res_id_list_tbl(l_count);
57: pa_debug.write('Res_list_plan_list_when_null: ' || l_module_name,pa_debug.g_err_stage,5);
58: END IF;
59: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
60: END IF;

Line 57: pa_debug.write('Res_list_plan_list_when_null: ' || l_module_name,pa_debug.g_err_stage,5);

53:
54: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
55: IF l_debug_mode = 'Y' THEN
56: pa_debug.g_err_stage:='Error occured when processing the Resource List '||tbl_res_id_list_tbl(l_count);
57: pa_debug.write('Res_list_plan_list_when_null: ' || l_module_name,pa_debug.g_err_stage,5);
58: END IF;
59: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
60: END IF;
61:

Line 94: pa_debug.reset_curr_function;

90: x_msg_count := x_msg_count;
91: END IF;
92: x_return_status := FND_API.G_RET_STS_ERROR;
93: IF l_debug_mode = 'Y' THEN
94: pa_debug.reset_curr_function;
95: END IF;
96:
97:
98: WHEN OTHERS THEN

Line 107: pa_debug.g_err_stage:='Error occured when processing the Resource List '||tbl_res_id_list_tbl(l_count);

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);
108: pa_debug.write('Res_list_plan_list_when_null: ' || l_module_name,pa_debug.g_err_stage,5);
109: pa_debug.reset_curr_function;
110: END IF;
111: ROLLBACK;

Line 108: pa_debug.write('Res_list_plan_list_when_null: ' || l_module_name,pa_debug.g_err_stage,5);

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);
108: pa_debug.write('Res_list_plan_list_when_null: ' || l_module_name,pa_debug.g_err_stage,5);
109: pa_debug.reset_curr_function;
110: END IF;
111: ROLLBACK;
112: RAISE;

Line 109: pa_debug.reset_curr_function;

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);
108: pa_debug.write('Res_list_plan_list_when_null: ' || l_module_name,pa_debug.g_err_stage,5);
109: pa_debug.reset_curr_function;
110: END IF;
111: ROLLBACK;
112: RAISE;
113:

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 337: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);

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');
341: IF l_debug_mode = 'Y' THEN

Line 339: pa_debug.set_process('PLSQL','LOG',l_debug_mode);

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');
341: IF l_debug_mode = 'Y' THEN
342: pa_debug.g_err_stage := 'Entered Resource List to Plan Resource List Upgrade';
343: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);

Line 342: pa_debug.g_err_stage := 'Entered Resource List to Plan Resource List Upgrade';

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');
341: IF l_debug_mode = 'Y' THEN
342: pa_debug.g_err_stage := 'Entered Resource List to Plan Resource List Upgrade';
343: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
344:
345: pa_debug.g_err_stage := 'Checking for valid parameters';
346: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);

Line 343: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);

339: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
340: --dbms_output.put_line('R2');
341: IF l_debug_mode = 'Y' THEN
342: pa_debug.g_err_stage := 'Entered Resource List to Plan Resource List Upgrade';
343: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
344:
345: pa_debug.g_err_stage := 'Checking for valid parameters';
346: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
347: END IF;

Line 345: pa_debug.g_err_stage := 'Checking for valid parameters';

341: IF l_debug_mode = 'Y' THEN
342: pa_debug.g_err_stage := 'Entered Resource List to Plan Resource List Upgrade';
343: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
344:
345: pa_debug.g_err_stage := 'Checking for valid parameters';
346: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
347: END IF;
348: -- Table for storing mapping code for each Resource Format Id
349: if l_debug_mode = 'Y' THEN

Line 346: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);

342: pa_debug.g_err_stage := 'Entered Resource List to Plan Resource List Upgrade';
343: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
344:
345: pa_debug.g_err_stage := 'Checking for valid parameters';
346: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
347: END IF;
348: -- Table for storing mapping code for each Resource Format Id
349: if l_debug_mode = 'Y' THEN
350: pa_debug.g_err_stage := 'Mapping code for res format id into PL/SQL Table';

Line 350: pa_debug.g_err_stage := 'Mapping code for res format id into PL/SQL Table';

346: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
347: END IF;
348: -- Table for storing mapping code for each Resource Format Id
349: if l_debug_mode = 'Y' THEN
350: pa_debug.g_err_stage := 'Mapping code for res format id into PL/SQL Table';
351: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
352: end if;
353: for l_get_res_format_table_csr in get_res_format_table_csr
354: loop

Line 351: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);

347: END IF;
348: -- Table for storing mapping code for each Resource Format Id
349: if l_debug_mode = 'Y' THEN
350: pa_debug.g_err_stage := 'Mapping code for res format id into PL/SQL Table';
351: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
352: end if;
353: for l_get_res_format_table_csr in get_res_format_table_csr
354: loop
355: l_res_for_id_tbl(l_get_res_format_table_csr.map_seq) := l_get_res_format_table_csr.res_format_id;

Line 362: pa_debug.g_err_stage := 'Resource Class Atrributes into PL/SQL Table';

358:
359: --dbms_output.put_line('R3');
360: -- Table for storing class realted information for each Resource Class Id
361: if l_debug_mode = 'Y' THEN
362: pa_debug.g_err_stage := 'Resource Class Atrributes into PL/SQL Table';
363: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
364: end if;
365: for l_res_class_csr in res_class_csr
366: loop

Line 363: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);

359: --dbms_output.put_line('R3');
360: -- Table for storing class realted information for each Resource Class Id
361: if l_debug_mode = 'Y' THEN
362: pa_debug.g_err_stage := 'Resource Class Atrributes into PL/SQL Table';
363: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
364: end if;
365: for l_res_class_csr in res_class_csr
366: loop
367: l_res_class_csr_tbl(l_res_class_csr.resource_class_id).resource_class_code := l_res_class_csr.resource_class_code;

Line 396: pa_debug.g_err_stage := 'Resource List='||to_char(p_resource_list_id);

392: --raise res_list_upgraded;
393: end if;
394: if (p_resource_list_id is null) then
395: IF l_debug_mode = 'Y' THEN
396: pa_debug.g_err_stage := 'Resource List='||to_char(p_resource_list_id);
397: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
398: END IF;
399: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
400: p_msg_name => 'PA_FP_INV_PARAM_PASSED');

Line 397: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);

393: end if;
394: if (p_resource_list_id is null) then
395: IF l_debug_mode = 'Y' THEN
396: pa_debug.g_err_stage := 'Resource List='||to_char(p_resource_list_id);
397: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
398: END IF;
399: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
400: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
401: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;

Line 435: pa_debug.g_err_stage := 'Entering Item No 1';

431: l_enabled_flag := Null; -- bug 3682103
432:
433:
434: IF l_debug_mode = 'Y' THEN
435: pa_debug.g_err_stage := 'Entering Item No 1';
436: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
437: end if;
438: -- ITEM NO 1
439: if (l_get_res_list_mem_id_csr.parent_member_id is null) then

Line 436: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);

432:
433:
434: IF l_debug_mode = 'Y' THEN
435: pa_debug.g_err_stage := 'Entering Item No 1';
436: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
437: end if;
438: -- ITEM NO 1
439: if (l_get_res_list_mem_id_csr.parent_member_id is null) then
440: if(l_res_for_id_tbl.exists(l_get_res_list_mem_id_csr.res_seq)) then

Line 452: pa_debug.g_err_stage := 'Entering Item No 2';

448: end if;
449:
450:
451: IF l_debug_mode = 'Y' THEN
452: pa_debug.g_err_stage := 'Entering Item No 2';
453: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
454: end if;
455: -- ITEM NO 2
456: -- Get expenditure,revenue,organization of the parent and copy to its children

Line 453: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);

449:
450:
451: IF l_debug_mode = 'Y' THEN
452: pa_debug.g_err_stage := 'Entering Item No 2';
453: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
454: end if;
455: -- ITEM NO 2
456: -- Get expenditure,revenue,organization of the parent and copy to its children
457: if (l_get_res_list_mem_id_csr.parent_member_id is null) then

Line 479: pa_debug.g_err_stage := 'Entering Item No 3';

475:
476:
477:
478: IF l_debug_mode = 'Y' THEN
479: pa_debug.g_err_stage := 'Entering Item No 3';
480: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
481: end if;
482: -- ITEM NO 3
483: -- Store resource format id into a table to get all distinct resource format Id's

Line 480: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);

476:
477:
478: IF l_debug_mode = 'Y' THEN
479: pa_debug.g_err_stage := 'Entering Item No 3';
480: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
481: end if;
482: -- ITEM NO 3
483: -- Store resource format id into a table to get all distinct resource format Id's
484: if (l_res_format_id is not null) then

Line 501: pa_debug.g_err_stage := 'Entering Item No 5';

497: l_res_class_code := l_res_class_csr_tbl(l_res_class_id).resource_class_code;
498: end if;
499:
500: IF l_debug_mode = 'Y' THEN
501: pa_debug.g_err_stage := 'Entering Item No 5';
502: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
503: end if;
504: -- ITEM NO 5
505: -- Get Resource class related Information for each Resource Class Id

Line 502: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);

498: end if;
499:
500: IF l_debug_mode = 'Y' THEN
501: pa_debug.g_err_stage := 'Entering Item No 5';
502: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
503: end if;
504: -- ITEM NO 5
505: -- Get Resource class related Information for each Resource Class Id
506: if(l_res_class_csr_tbl.exists(l_res_class_id)) then

Line 595: pa_debug.g_err_stage := 'Updating pa_resource_list_members table';

591: FROM pa_res_formats_b
592: WHERE res_format_id = l_res_format_id;
593:
594: IF l_debug_mode = 'Y' THEN
595: pa_debug.g_err_stage := 'Updating pa_resource_list_members table';
596: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
597: end if;
598: -- Update each resource list member with the info obtained above
599: update pa_resource_list_members

Line 596: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);

592: WHERE res_format_id = l_res_format_id;
593:
594: IF l_debug_mode = 'Y' THEN
595: pa_debug.g_err_stage := 'Updating pa_resource_list_members table';
596: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
597: end if;
598: -- Update each resource list member with the info obtained above
599: update pa_resource_list_members
600: set res_format_id = l_res_format_id,

Line 624: pa_debug.g_err_stage := 'Get alias and parent_member_id from pa_resource_list_members';

620: enabled_flag = nvl(l_enabled_flag, enabled_flag)
621: where resource_list_member_id = l_get_res_list_mem_id_csr.resource_list_member_id;
622:
623: IF l_debug_mode = 'Y' THEN
624: pa_debug.g_err_stage := 'Get alias and parent_member_id from pa_resource_list_members';
625: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
626: end if;
627:
628: Select

Line 625: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);

621: where resource_list_member_id = l_get_res_list_mem_id_csr.resource_list_member_id;
622:
623: IF l_debug_mode = 'Y' THEN
624: pa_debug.g_err_stage := 'Get alias and parent_member_id from pa_resource_list_members';
625: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
626: end if;
627:
628: Select
629: alias,

Line 640: pa_debug.g_err_stage := 'Check if alias is unique by calling Pa_Planning_Resource_Pvt.Check_pl_alias_unique()';

636: where
637: resource_list_member_id = l_get_res_list_mem_id_csr.resource_list_member_id;
638:
639: IF l_debug_mode = 'Y' THEN
640: pa_debug.g_err_stage := 'Check if alias is unique by calling Pa_Planning_Resource_Pvt.Check_pl_alias_unique()';
641: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
642: end if;
643: l_unique_alias := Pa_Planning_Resource_Pvt.Check_pl_alias_unique(
644: p_resource_list_id => l_get_res_list_id_csr.resource_list_id,

Line 641: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);

637: resource_list_member_id = l_get_res_list_mem_id_csr.resource_list_member_id;
638:
639: IF l_debug_mode = 'Y' THEN
640: pa_debug.g_err_stage := 'Check if alias is unique by calling Pa_Planning_Resource_Pvt.Check_pl_alias_unique()';
641: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
642: end if;
643: l_unique_alias := Pa_Planning_Resource_Pvt.Check_pl_alias_unique(
644: p_resource_list_id => l_get_res_list_id_csr.resource_list_id,
645: p_resource_alias => l_res_alias,

Line 651: pa_debug.g_err_stage := 'Alias is unique ' || l_unique_alias ;

647: p_object_type => 'RESOURCE_LIST',
648: p_object_id => l_get_res_list_id_csr.resource_list_id);
649:
650: IF l_debug_mode = 'Y' THEN
651: pa_debug.g_err_stage := 'Alias is unique ' || l_unique_alias ;
652: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
653: end if;
654: If l_unique_alias = 'N' Then
655:

Line 652: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);

648: p_object_id => l_get_res_list_id_csr.resource_list_id);
649:
650: IF l_debug_mode = 'Y' THEN
651: pa_debug.g_err_stage := 'Alias is unique ' || l_unique_alias ;
652: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
653: end if;
654: If l_unique_alias = 'N' Then
655:
656: IF l_debug_mode = 'Y' THEN

Line 657: pa_debug.g_err_stage := 'Get parent alias';

653: end if;
654: If l_unique_alias = 'N' Then
655:
656: IF l_debug_mode = 'Y' THEN
657: pa_debug.g_err_stage := 'Get parent alias';
658: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
659: end if;
660: select
661: alias

Line 658: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);

654: If l_unique_alias = 'N' Then
655:
656: IF l_debug_mode = 'Y' THEN
657: pa_debug.g_err_stage := 'Get parent alias';
658: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
659: end if;
660: select
661: alias
662: Into

Line 670: pa_debug.g_err_stage := 'Concatenate the parent and child alias and substr to 80 characters.';

666: where
667: resource_list_member_id = l_parent_member_id;
668:
669: IF l_debug_mode = 'Y' THEN
670: pa_debug.g_err_stage := 'Concatenate the parent and child alias and substr to 80 characters.';
671: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
672: end if;
673: l_res_alias := substr(l_res_parent_alias || ' - ' || l_res_alias,1,80);
674:

Line 671: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);

667: resource_list_member_id = l_parent_member_id;
668:
669: IF l_debug_mode = 'Y' THEN
670: pa_debug.g_err_stage := 'Concatenate the parent and child alias and substr to 80 characters.';
671: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
672: end if;
673: l_res_alias := substr(l_res_parent_alias || ' - ' || l_res_alias,1,80);
674:
675: IF l_debug_mode = 'Y' THEN

Line 676: pa_debug.g_err_stage := 'Update the pa_resource_list_members record with the combined alias';

672: end if;
673: l_res_alias := substr(l_res_parent_alias || ' - ' || l_res_alias,1,80);
674:
675: IF l_debug_mode = 'Y' THEN
676: pa_debug.g_err_stage := 'Update the pa_resource_list_members record with the combined alias';
677: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
678: end if;
679: update pa_resource_list_members
680: set alias = l_res_alias

Line 677: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);

673: l_res_alias := substr(l_res_parent_alias || ' - ' || l_res_alias,1,80);
674:
675: IF l_debug_mode = 'Y' THEN
676: pa_debug.g_err_stage := 'Update the pa_resource_list_members record with the combined alias';
677: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
678: end if;
679: update pa_resource_list_members
680: set alias = l_res_alias
681: where resource_list_member_id = l_get_res_list_mem_id_csr.resource_list_member_id;

Line 690: pa_debug.g_err_stage := 'Entering Item No 4';

686: -- Resource List Member Loop ends here
687: --dbms_output.put_line('R10');
688:
689: IF l_debug_mode = 'Y' THEN
690: pa_debug.g_err_stage := 'Entering Item No 4';
691: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
692: end if;
693: --ITEM N0 4
694: -- For each resource list header create new four class resource list members

Line 691: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);

687: --dbms_output.put_line('R10');
688:
689: IF l_debug_mode = 'Y' THEN
690: pa_debug.g_err_stage := 'Entering Item No 4';
691: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
692: end if;
693: --ITEM N0 4
694: -- For each resource list header create new four class resource list members
695: l_indx_count := l_res_class_csr_tbl.count;

Line 726: pa_debug.g_err_stage := 'Inserting into pa_resource_list_members table';

722: l_stage := 'ALIAS IS NULL';
723: RAISE null_alias;
724: end if;
725: IF l_debug_mode = 'Y' THEN
726: pa_debug.g_err_stage := 'Inserting into pa_resource_list_members table';
727: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
728: end if;
729:
730:

Line 727: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);

723: RAISE null_alias;
724: end if;
725: IF l_debug_mode = 'Y' THEN
726: pa_debug.g_err_stage := 'Inserting into pa_resource_list_members table';
727: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
728: end if;
729:
730:
731: -- Bug 4766426 - check for duplicate alias

Line 895: pa_debug.g_err_stage := 'Entering Item No 7';

891:
892: --dbms_output.put_line('R11');
893:
894: IF l_debug_mode = 'Y' THEN
895: pa_debug.g_err_stage := 'Entering Item No 7';
896: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
897: end if;
898: --ITEM NO 7
899: -- Insert into this table with distinct resource_list_id and resource_format_id's

Line 896: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);

892: --dbms_output.put_line('R11');
893:
894: IF l_debug_mode = 'Y' THEN
895: pa_debug.g_err_stage := 'Entering Item No 7';
896: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
897: end if;
898: --ITEM NO 7
899: -- Insert into this table with distinct resource_list_id and resource_format_id's
900: IF l_debug_mode = 'Y' THEN

Line 901: pa_debug.g_err_stage := 'Inserting into pa_plan_rl_formats table';

897: end if;
898: --ITEM NO 7
899: -- Insert into this table with distinct resource_list_id and resource_format_id's
900: IF l_debug_mode = 'Y' THEN
901: pa_debug.g_err_stage := 'Inserting into pa_plan_rl_formats table';
902: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
903: end if;
904: if (l_res_format_tbl.count > 0) then
905: for i in l_res_format_tbl.first..l_res_format_tbl.last

Line 902: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);

898: --ITEM NO 7
899: -- Insert into this table with distinct resource_list_id and resource_format_id's
900: IF l_debug_mode = 'Y' THEN
901: pa_debug.g_err_stage := 'Inserting into pa_plan_rl_formats table';
902: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
903: end if;
904: if (l_res_format_tbl.count > 0) then
905: for i in l_res_format_tbl.first..l_res_format_tbl.last
906: loop

Line 943: pa_debug.g_err_stage := 'Entering Item No 8';

939: l_res_format_tbl.delete;
940: end if;
941:
942: IF l_debug_mode = 'Y' THEN
943: pa_debug.g_err_stage := 'Entering Item No 8';
944: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
945: end if;
946: --ITEM NO 9
947:

Line 944: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);

940: end if;
941:
942: IF l_debug_mode = 'Y' THEN
943: pa_debug.g_err_stage := 'Entering Item No 8';
944: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
945: end if;
946: --ITEM NO 9
947:
948: IF l_debug_mode = 'Y' THEN

Line 949: pa_debug.g_err_stage := 'Updating pa_resource_lists_all_bg table';

945: end if;
946: --ITEM NO 9
947:
948: IF l_debug_mode = 'Y' THEN
949: pa_debug.g_err_stage := 'Updating pa_resource_lists_all_bg table';
950: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
951: end if;
952: -- Update migration code for each resource list header
953: update pa_resource_lists_all_bg

Line 950: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);

946: --ITEM NO 9
947:
948: IF l_debug_mode = 'Y' THEN
949: pa_debug.g_err_stage := 'Updating pa_resource_lists_all_bg table';
950: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
951: end if;
952: -- Update migration code for each resource list header
953: update pa_resource_lists_all_bg
954: set control_flag = 'Y',

Line 1021: pa_debug.g_err_stage:= l_stage;

1017: x_msg_data := l_msg_data;
1018: END IF;
1019:
1020: IF l_debug_mode = 'Y' THEN
1021: pa_debug.g_err_stage:= l_stage;
1022: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1023: END IF;
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);

Line 1022: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);

1018: END IF;
1019:
1020: IF l_debug_mode = 'Y' THEN
1021: pa_debug.g_err_stage:= l_stage;
1022: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1023: END IF;
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);

Line 1025: pa_debug.write_file('RES_LIST_TO_PLAN_RES_LIST: Upgrade has failed for the resource list '|| p_resource_list_id,5);

1021: pa_debug.g_err_stage:= l_stage;
1022: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1023: END IF;
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;

Line 1026: pa_debug.write_file('RES_LIST_TO_PLAN_RES_LIST:: Failure Reason:'||x_msg_data,5);

1022: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1023: END IF;
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;

Line 1027: pa_debug.reset_err_stack;

1023: END IF;
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

Line 1049: pa_debug.g_err_stage:='Invalid Arguments Passed';

1045: x_msg_data := l_msg_data;
1046: END IF;
1047:
1048: IF l_debug_mode = 'Y' THEN
1049: pa_debug.g_err_stage:='Invalid Arguments Passed';
1050: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1051: END IF;
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);

Line 1050: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);

1046: END IF;
1047:
1048: IF l_debug_mode = 'Y' THEN
1049: pa_debug.g_err_stage:='Invalid Arguments Passed';
1050: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1051: END IF;
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);

Line 1053: pa_debug.write_file('RES_LIST_TO_PLAN_RES_LIST: Upgrade has failed for the resource list '|| p_resource_list_id,5);

1049: pa_debug.g_err_stage:='Invalid Arguments Passed';
1050: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1051: END IF;
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;

Line 1054: pa_debug.write_file('RES_LIST_TO_PLAN_RES_LIST:: Failure Reason:'||x_msg_data,5);

1050: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1051: END IF;
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

Line 1055: pa_debug.reset_err_stack;

1051: END IF;
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

Line 1097: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;

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;
1100:
1101: pa_debug.write_file('RES_LIST_TO_PLAN_RES_LIST: Upgrade has failed for the resource list '||p_resource_list_id,5);

Line 1098: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);

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;
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);

Line 1101: pa_debug.write_file('RES_LIST_TO_PLAN_RES_LIST: Upgrade has failed for the resource list '||p_resource_list_id,5);

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;
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;

Line 1102: pa_debug.write_file('RES_LIST_TO_PLAN_RES_LIST: Failure Reason:'||pa_debug.G_Err_Stack,5);

1098: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1099: END IF;
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;

Line 1103: pa_debug.reset_err_stack;

1099: END IF;
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: