DBA Data[Home] [Help]

APPS.PA_RES_LIST_UPGRADE_PKG dependencies on PA_FP_CONSTANTS_PKG

Line 59: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;

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:
62: END LOOP;
63: ELSE

Line 72: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN

68:
69:
70: EXCEPTION
71:
72: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
73: ROLLBACK;
74:
75: x_msg_count := FND_MSG_PUB.count_msg;
76: IF x_msg_count = 1 THEN

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 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 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 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 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 401: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;

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;
402: end if;
403:
404: -- Check if the in parameter is not null
405: --dbms_output.put_line('R5');

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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 967: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;

963: x_msg_count => l_msg_count,
964: x_msg_data => l_msg_data
965: );
966: if (x_return_status <> 'S') then
967: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
968: end if;
969: PA_RBS_UTILS.UPGRADE_LIST_TO_RBS(
970: p_resource_list_id => l_get_res_list_id_csr.resource_list_id,
971: x_return_status => l_return_status,

Line 976: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;

972: x_msg_count => l_msg_count,
973: x_msg_data => l_msg_data
974: );
975: if (x_return_status <> 'S') then
976: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
977: end if;
978:
979:
980: -- Bug 3802762, 30-JUN-2004, jwhite ------------------------------------

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 1031: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc or RES_LIST_UPGRADED THEN

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;
1033: IF l_msg_count = 1 THEN
1034: PA_INTERFACE_UTILS_PUB.get_messages
1035: (p_encoded => FND_API.G_TRUE

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