DBA Data[Home] [Help]

APPS.PA_PLANNING_ELEMENT_UTILS dependencies on PA_DEBUG

Line 2735: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);

2731:
2732: l_Cbs_Enabled VARCHAR2(1) := 'N'; -- bug#16481402
2733: BEGIN
2734:
2735: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2736: l_debug_mode := NVL(l_debug_mode, 'Y');
2737: x_msg_count := 0;
2738: x_return_status := FND_API.G_RET_STS_SUCCESS;
2739: PA_DEBUG.Set_Curr_Function( p_function => 'PAFPPEUB.add_new_resource_assignments',

Line 2739: PA_DEBUG.Set_Curr_Function( p_function => 'PAFPPEUB.add_new_resource_assignments',

2735: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2736: l_debug_mode := NVL(l_debug_mode, 'Y');
2737: x_msg_count := 0;
2738: x_return_status := FND_API.G_RET_STS_SUCCESS;
2739: PA_DEBUG.Set_Curr_Function( p_function => 'PAFPPEUB.add_new_resource_assignments',
2740: p_debug_mode => l_debug_mode );
2741:
2742: /*CBS enhancement to validate Planning Options of the budget bug#16600305*/
2743: PA_ALTERNATE_TASK_PVT.Is_Planning_Options_Valid(

Line 2755: pa_debug.g_err_stage:='Adding minimum Validations Here - COUNT of tables to be Same';

2751: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2752: END IF;
2753:
2754: IF l_debug_mode = 'Y' THEN
2755: pa_debug.g_err_stage:='Adding minimum Validations Here - COUNT of tables to be Same';
2756: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2757: END IF;
2758: IF (p_task_elem_version_id_tbl.COUNT <> p_resource_list_member_id_tbl.COUNT OR
2759: p_resource_list_member_id_tbl.COUNT <> p_currency_code_tbl.COUNT) THEN

Line 2756: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

2752: END IF;
2753:
2754: IF l_debug_mode = 'Y' THEN
2755: pa_debug.g_err_stage:='Adding minimum Validations Here - COUNT of tables to be Same';
2756: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2757: END IF;
2758: IF (p_task_elem_version_id_tbl.COUNT <> p_resource_list_member_id_tbl.COUNT OR
2759: p_resource_list_member_id_tbl.COUNT <> p_currency_code_tbl.COUNT) THEN
2760:

Line 2762: pa_debug.g_err_stage:='p_task_elem_version_id_tbl.COUNT : '||p_task_elem_version_id_tbl.COUNT ;

2758: IF (p_task_elem_version_id_tbl.COUNT <> p_resource_list_member_id_tbl.COUNT OR
2759: p_resource_list_member_id_tbl.COUNT <> p_currency_code_tbl.COUNT) THEN
2760:
2761: IF l_debug_mode = 'Y' THEN
2762: pa_debug.g_err_stage:='p_task_elem_version_id_tbl.COUNT : '||p_task_elem_version_id_tbl.COUNT ;
2763: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2764:
2765: pa_debug.g_err_stage:='p_resource_list_member_id_tbl.COUNT : '||p_resource_list_member_id_tbl.COUNT ;
2766: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

Line 2763: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

2759: p_resource_list_member_id_tbl.COUNT <> p_currency_code_tbl.COUNT) THEN
2760:
2761: IF l_debug_mode = 'Y' THEN
2762: pa_debug.g_err_stage:='p_task_elem_version_id_tbl.COUNT : '||p_task_elem_version_id_tbl.COUNT ;
2763: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2764:
2765: pa_debug.g_err_stage:='p_resource_list_member_id_tbl.COUNT : '||p_resource_list_member_id_tbl.COUNT ;
2766: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2767:

Line 2765: pa_debug.g_err_stage:='p_resource_list_member_id_tbl.COUNT : '||p_resource_list_member_id_tbl.COUNT ;

2761: IF l_debug_mode = 'Y' THEN
2762: pa_debug.g_err_stage:='p_task_elem_version_id_tbl.COUNT : '||p_task_elem_version_id_tbl.COUNT ;
2763: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2764:
2765: pa_debug.g_err_stage:='p_resource_list_member_id_tbl.COUNT : '||p_resource_list_member_id_tbl.COUNT ;
2766: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2767:
2768: pa_debug.g_err_stage:='p_currency_code_tbl.COUNT : '||p_currency_code_tbl.COUNT ;
2769: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

Line 2766: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

2762: pa_debug.g_err_stage:='p_task_elem_version_id_tbl.COUNT : '||p_task_elem_version_id_tbl.COUNT ;
2763: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2764:
2765: pa_debug.g_err_stage:='p_resource_list_member_id_tbl.COUNT : '||p_resource_list_member_id_tbl.COUNT ;
2766: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2767:
2768: pa_debug.g_err_stage:='p_currency_code_tbl.COUNT : '||p_currency_code_tbl.COUNT ;
2769: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2770: END IF;

Line 2768: pa_debug.g_err_stage:='p_currency_code_tbl.COUNT : '||p_currency_code_tbl.COUNT ;

2764:
2765: pa_debug.g_err_stage:='p_resource_list_member_id_tbl.COUNT : '||p_resource_list_member_id_tbl.COUNT ;
2766: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2767:
2768: pa_debug.g_err_stage:='p_currency_code_tbl.COUNT : '||p_currency_code_tbl.COUNT ;
2769: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2770: END IF;
2771: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2772: p_msg_name => 'PA_FP_INV_PARAM_PASSED',

Line 2769: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

2765: pa_debug.g_err_stage:='p_resource_list_member_id_tbl.COUNT : '||p_resource_list_member_id_tbl.COUNT ;
2766: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2767:
2768: pa_debug.g_err_stage:='p_currency_code_tbl.COUNT : '||p_currency_code_tbl.COUNT ;
2769: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2770: END IF;
2771: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2772: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
2773: p_token1 => 'PROCEDURENAME',

Line 2782: pa_debug.g_err_stage:='elem_version_id table is empty - RETURNING ... ';

2778: END IF;
2779:
2780: IF (p_task_elem_version_id_tbl.COUNT = 0) THEN
2781: IF l_debug_mode = 'Y' THEN
2782: pa_debug.g_err_stage:='elem_version_id table is empty - RETURNING ... ';
2783: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2784: END IF;
2785: pa_debug.reset_curr_function;
2786: RETURN;

Line 2783: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

2779:
2780: IF (p_task_elem_version_id_tbl.COUNT = 0) THEN
2781: IF l_debug_mode = 'Y' THEN
2782: pa_debug.g_err_stage:='elem_version_id table is empty - RETURNING ... ';
2783: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2784: END IF;
2785: pa_debug.reset_curr_function;
2786: RETURN;
2787: END IF;

Line 2785: pa_debug.reset_curr_function;

2781: IF l_debug_mode = 'Y' THEN
2782: pa_debug.g_err_stage:='elem_version_id table is empty - RETURNING ... ';
2783: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2784: END IF;
2785: pa_debug.reset_curr_function;
2786: RETURN;
2787: END IF;
2788:
2789: IF l_debug_mode = 'Y' THEN

Line 2790: pa_debug.g_err_stage:='Fetching PARENT_STRUCTURE_VERSION_ID';

2786: RETURN;
2787: END IF;
2788:
2789: IF l_debug_mode = 'Y' THEN
2790: pa_debug.g_err_stage:='Fetching PARENT_STRUCTURE_VERSION_ID';
2791: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2792: END IF;
2793: l_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(p_project_id);
2794:

Line 2791: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

2787: END IF;
2788:
2789: IF l_debug_mode = 'Y' THEN
2790: pa_debug.g_err_stage:='Fetching PARENT_STRUCTURE_VERSION_ID';
2791: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2792: END IF;
2793: l_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(p_project_id);
2794:
2795: l_Cbs_Enabled := PA_ALTERNATE_TASK_PVT.Is_Cbs_Enabled(p_Project_Id => p_project_id); -- bug#16481402

Line 2836: pa_debug.g_err_stage:='Loop 1 : p_task_elem_version_id_tbl('||i||') - '||p_task_elem_version_id_tbl(i);

2832:
2833: IF p_task_elem_version_id_tbl.COUNT > 0 THEN
2834: FOR i IN p_task_elem_version_id_tbl.FIRST .. p_task_elem_version_id_tbl.LAST LOOP
2835: IF l_debug_mode = 'Y' THEN
2836: pa_debug.g_err_stage:='Loop 1 : p_task_elem_version_id_tbl('||i||') - '||p_task_elem_version_id_tbl(i);
2837: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2838: END IF;
2839:
2840: -- Resetting flags Used

Line 2837: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

2833: IF p_task_elem_version_id_tbl.COUNT > 0 THEN
2834: FOR i IN p_task_elem_version_id_tbl.FIRST .. p_task_elem_version_id_tbl.LAST LOOP
2835: IF l_debug_mode = 'Y' THEN
2836: pa_debug.g_err_stage:='Loop 1 : p_task_elem_version_id_tbl('||i||') - '||p_task_elem_version_id_tbl(i);
2837: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2838: END IF;
2839:
2840: -- Resetting flags Used
2841: l_bl_already_exists := 'N';

Line 2845: pa_debug.g_err_stage:='Checking if budget lines exist or not';

2841: l_bl_already_exists := 'N';
2842: l_rec_already_exists := 'N';
2843:
2844: IF l_debug_mode = 'Y' THEN
2845: pa_debug.g_err_stage:='Checking if budget lines exist or not';
2846: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2847: END IF;
2848:
2849: -- For a Project level record p_task_elem_version_id_tbl is passed as 0

Line 2846: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

2842: l_rec_already_exists := 'N';
2843:
2844: IF l_debug_mode = 'Y' THEN
2845: pa_debug.g_err_stage:='Checking if budget lines exist or not';
2846: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2847: END IF;
2848:
2849: -- For a Project level record p_task_elem_version_id_tbl is passed as 0
2850: IF p_task_elem_version_id_tbl(i) <> 0 THEN -- For Task level record

Line 2869: pa_debug.g_err_stage:='Budget Lines EXIST - l_bl_already_exists :'||l_bl_already_exists;

2865: AND nvl(PRA.CBS_ELEMENT_ID,-1) = nvl(p_cbs_element_id_tbl(i),-1) --bug#16481402
2866: );
2867:
2868: IF l_debug_mode = 'Y' THEN
2869: pa_debug.g_err_stage:='Budget Lines EXIST - l_bl_already_exists :'||l_bl_already_exists;
2870: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2871: END IF;
2872:
2873: EXCEPTION

Line 2870: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

2866: );
2867:
2868: IF l_debug_mode = 'Y' THEN
2869: pa_debug.g_err_stage:='Budget Lines EXIST - l_bl_already_exists :'||l_bl_already_exists;
2870: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2871: END IF;
2872:
2873: EXCEPTION
2874: WHEN NO_DATA_FOUND THEN

Line 2877: pa_debug.g_err_stage:='Budget Lines DONT EXIST - l_bl_already_exists :'||l_bl_already_exists;

2873: EXCEPTION
2874: WHEN NO_DATA_FOUND THEN
2875: l_bl_already_exists := 'N';
2876: IF l_debug_mode = 'Y' THEN
2877: pa_debug.g_err_stage:='Budget Lines DONT EXIST - l_bl_already_exists :'||l_bl_already_exists;
2878: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2879: END IF;
2880: END;
2881:

Line 2878: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

2874: WHEN NO_DATA_FOUND THEN
2875: l_bl_already_exists := 'N';
2876: IF l_debug_mode = 'Y' THEN
2877: pa_debug.g_err_stage:='Budget Lines DONT EXIST - l_bl_already_exists :'||l_bl_already_exists;
2878: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2879: END IF;
2880: END;
2881:
2882: ELSE -- For Project level record

Line 2905: pa_debug.g_err_stage:='Budget Lines EXIST - l_bl_already_exists :'||l_bl_already_exists;

2901: AND PBL.RESOURCE_ASSIGNMENT_ID = PRA.RESOURCE_ASSIGNMENT_ID
2902: AND PBL.TXN_CURRENCY_CODE = p_currency_code_tbl(i) );
2903:
2904: IF l_debug_mode = 'Y' THEN
2905: pa_debug.g_err_stage:='Budget Lines EXIST - l_bl_already_exists :'||l_bl_already_exists;
2906: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2907: END IF;
2908:
2909: EXCEPTION

Line 2906: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

2902: AND PBL.TXN_CURRENCY_CODE = p_currency_code_tbl(i) );
2903:
2904: IF l_debug_mode = 'Y' THEN
2905: pa_debug.g_err_stage:='Budget Lines EXIST - l_bl_already_exists :'||l_bl_already_exists;
2906: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2907: END IF;
2908:
2909: EXCEPTION
2910: WHEN NO_DATA_FOUND THEN

Line 2913: pa_debug.g_err_stage:='Budget Lines DONT EXIST - l_bl_already_exists :'||l_bl_already_exists;

2909: EXCEPTION
2910: WHEN NO_DATA_FOUND THEN
2911: l_bl_already_exists := 'N';
2912: IF l_debug_mode = 'Y' THEN
2913: pa_debug.g_err_stage:='Budget Lines DONT EXIST - l_bl_already_exists :'||l_bl_already_exists;
2914: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2915: END IF;
2916: END;
2917: END IF;

Line 2914: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

2910: WHEN NO_DATA_FOUND THEN
2911: l_bl_already_exists := 'N';
2912: IF l_debug_mode = 'Y' THEN
2913: pa_debug.g_err_stage:='Budget Lines DONT EXIST - l_bl_already_exists :'||l_bl_already_exists;
2914: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2915: END IF;
2916: END;
2917: END IF;
2918:

Line 2925: pa_debug.g_err_stage:='BL Does Not Exist';

2921: -- By Output tables, Tables to be passed to Add API are referred.
2922: IF l_bl_already_exists = 'N' THEN
2923:
2924: IF l_debug_mode = 'Y' THEN
2925: pa_debug.g_err_stage:='BL Does Not Exist';
2926: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2927: END IF;
2928:
2929: -- If Output Table is not Empty

Line 2926: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

2922: IF l_bl_already_exists = 'N' THEN
2923:
2924: IF l_debug_mode = 'Y' THEN
2925: pa_debug.g_err_stage:='BL Does Not Exist';
2926: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2927: END IF;
2928:
2929: -- If Output Table is not Empty
2930: IF l_task_elem_version_id_tbl.COUNT > 0 THEN

Line 2934: pa_debug.g_err_stage:='Loop 3 : l_task_elem_version_id_tbl('||k||') - '||l_task_elem_version_id_tbl(k);

2930: IF l_task_elem_version_id_tbl.COUNT > 0 THEN
2931: -- Loop Though Output Table
2932: FOR k IN l_task_elem_version_id_tbl.FIRST .. l_task_elem_version_id_tbl.LAST LOOP
2933: IF l_debug_mode = 'Y' THEN
2934: pa_debug.g_err_stage:='Loop 3 : l_task_elem_version_id_tbl('||k||') - '||l_task_elem_version_id_tbl(k);
2935: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2936: END IF;
2937: -- Compare if I/P Params have alreayd been added to output table or not.
2938: IF ((p_task_elem_version_id_tbl(i) = l_task_elem_version_id_tbl(k)) AND

Line 2935: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

2931: -- Loop Though Output Table
2932: FOR k IN l_task_elem_version_id_tbl.FIRST .. l_task_elem_version_id_tbl.LAST LOOP
2933: IF l_debug_mode = 'Y' THEN
2934: pa_debug.g_err_stage:='Loop 3 : l_task_elem_version_id_tbl('||k||') - '||l_task_elem_version_id_tbl(k);
2935: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2936: END IF;
2937: -- Compare if I/P Params have alreayd been added to output table or not.
2938: IF ((p_task_elem_version_id_tbl(i) = l_task_elem_version_id_tbl(k)) AND
2939: (p_resource_list_member_id_tbl(i) = l_resource_list_member_id_tbl(k)) AND

Line 2945: pa_debug.g_err_stage:='Output Rec Exists';

2941: -- If Already Added Set l_rec_already_exists to Y
2942: IF l_Cbs_Enabled = 'Y' THEN --bug#16481402
2943: IF (p_cbs_element_id_tbl(i) = l_cbs_element_id_tbl(k)) THEN
2944: IF l_debug_mode = 'Y' THEN
2945: pa_debug.g_err_stage:='Output Rec Exists';
2946: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2947: END IF;
2948: l_rec_already_exists := 'Y';
2949: ELSE

Line 2946: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

2942: IF l_Cbs_Enabled = 'Y' THEN --bug#16481402
2943: IF (p_cbs_element_id_tbl(i) = l_cbs_element_id_tbl(k)) THEN
2944: IF l_debug_mode = 'Y' THEN
2945: pa_debug.g_err_stage:='Output Rec Exists';
2946: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2947: END IF;
2948: l_rec_already_exists := 'Y';
2949: ELSE
2950: l_rec_already_exists := 'N';

Line 2954: pa_debug.g_err_stage:='Output Rec Exists';

2950: l_rec_already_exists := 'N';
2951: END IF;
2952: ELSE
2953: IF l_debug_mode = 'Y' THEN
2954: pa_debug.g_err_stage:='Output Rec Exists';
2955: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2956: END IF;
2957: l_rec_already_exists := 'Y';
2958:

Line 2955: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

2951: END IF;
2952: ELSE
2953: IF l_debug_mode = 'Y' THEN
2954: pa_debug.g_err_stage:='Output Rec Exists';
2955: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2956: END IF;
2957: l_rec_already_exists := 'Y';
2958:
2959: EXIT;

Line 2974: pa_debug.g_err_stage:='Add to Output Rec';

2970:
2971: -- If Output Table does not have the I/P Rec add I/P Rec to Output Tables
2972: IF l_rec_already_exists = 'N' THEN
2973: IF l_debug_mode = 'Y' THEN
2974: pa_debug.g_err_stage:='Add to Output Rec';
2975: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2976: END IF;
2977:
2978: l_task_elem_version_id_tbl.extend(1);

Line 2975: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

2971: -- If Output Table does not have the I/P Rec add I/P Rec to Output Tables
2972: IF l_rec_already_exists = 'N' THEN
2973: IF l_debug_mode = 'Y' THEN
2974: pa_debug.g_err_stage:='Add to Output Rec';
2975: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
2976: END IF;
2977:
2978: l_task_elem_version_id_tbl.extend(1);
2979: l_resource_list_member_id_tbl.extend(1);

Line 3029: pa_debug.g_err_stage:='BL Exists - Skipping Rec p_task_elem_version_id_tbl : '||p_task_elem_version_id_tbl(i);

3025: END IF;
3026:
3027: ELSE -- i.e. l_bl_already_exists = 'Y'
3028: IF l_debug_mode = 'Y' THEN
3029: pa_debug.g_err_stage:='BL Exists - Skipping Rec p_task_elem_version_id_tbl : '||p_task_elem_version_id_tbl(i);
3030: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
3031:
3032: pa_debug.g_err_stage:='BL Exists - Skipping Rec p_resource_list_member_id_tbl : '||p_resource_list_member_id_tbl(i);
3033: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

Line 3030: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

3026:
3027: ELSE -- i.e. l_bl_already_exists = 'Y'
3028: IF l_debug_mode = 'Y' THEN
3029: pa_debug.g_err_stage:='BL Exists - Skipping Rec p_task_elem_version_id_tbl : '||p_task_elem_version_id_tbl(i);
3030: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
3031:
3032: pa_debug.g_err_stage:='BL Exists - Skipping Rec p_resource_list_member_id_tbl : '||p_resource_list_member_id_tbl(i);
3033: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
3034:

Line 3032: pa_debug.g_err_stage:='BL Exists - Skipping Rec p_resource_list_member_id_tbl : '||p_resource_list_member_id_tbl(i);

3028: IF l_debug_mode = 'Y' THEN
3029: pa_debug.g_err_stage:='BL Exists - Skipping Rec p_task_elem_version_id_tbl : '||p_task_elem_version_id_tbl(i);
3030: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
3031:
3032: pa_debug.g_err_stage:='BL Exists - Skipping Rec p_resource_list_member_id_tbl : '||p_resource_list_member_id_tbl(i);
3033: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
3034:
3035: pa_debug.g_err_stage:='BL Exists - Skipping Rec p_currency_code_tbl : '||p_currency_code_tbl(i);
3036: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

Line 3033: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

3029: pa_debug.g_err_stage:='BL Exists - Skipping Rec p_task_elem_version_id_tbl : '||p_task_elem_version_id_tbl(i);
3030: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
3031:
3032: pa_debug.g_err_stage:='BL Exists - Skipping Rec p_resource_list_member_id_tbl : '||p_resource_list_member_id_tbl(i);
3033: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
3034:
3035: pa_debug.g_err_stage:='BL Exists - Skipping Rec p_currency_code_tbl : '||p_currency_code_tbl(i);
3036: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
3037: END IF;

Line 3035: pa_debug.g_err_stage:='BL Exists - Skipping Rec p_currency_code_tbl : '||p_currency_code_tbl(i);

3031:
3032: pa_debug.g_err_stage:='BL Exists - Skipping Rec p_resource_list_member_id_tbl : '||p_resource_list_member_id_tbl(i);
3033: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
3034:
3035: pa_debug.g_err_stage:='BL Exists - Skipping Rec p_currency_code_tbl : '||p_currency_code_tbl(i);
3036: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
3037: END IF;
3038: END IF;
3039:

Line 3036: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

3032: pa_debug.g_err_stage:='BL Exists - Skipping Rec p_resource_list_member_id_tbl : '||p_resource_list_member_id_tbl(i);
3033: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
3034:
3035: pa_debug.g_err_stage:='BL Exists - Skipping Rec p_currency_code_tbl : '||p_currency_code_tbl(i);
3036: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
3037: END IF;
3038: END IF;
3039:
3040: END LOOP;

Line 3045: pa_debug.g_err_stage:='elem_version_id table is empty - RETURNING ... '||p_context;

3041:
3042: ELSE
3043: -- If Empty Tables are passed to Wrapper API. Simply Return
3044: IF l_debug_mode = 'Y' THEN
3045: pa_debug.g_err_stage:='elem_version_id table is empty - RETURNING ... '||p_context;
3046: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
3047: END IF;
3048: pa_debug.reset_curr_function;
3049: RETURN;

Line 3046: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

3042: ELSE
3043: -- If Empty Tables are passed to Wrapper API. Simply Return
3044: IF l_debug_mode = 'Y' THEN
3045: pa_debug.g_err_stage:='elem_version_id table is empty - RETURNING ... '||p_context;
3046: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
3047: END IF;
3048: pa_debug.reset_curr_function;
3049: RETURN;
3050: END IF;

Line 3048: pa_debug.reset_curr_function;

3044: IF l_debug_mode = 'Y' THEN
3045: pa_debug.g_err_stage:='elem_version_id table is empty - RETURNING ... '||p_context;
3046: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
3047: END IF;
3048: pa_debug.reset_curr_function;
3049: RETURN;
3050: END IF;
3051:
3052: IF l_debug_mode = 'Y' THEN

Line 3053: pa_debug.g_err_stage:='Calling Add Planning TXN API';

3049: RETURN;
3050: END IF;
3051:
3052: IF l_debug_mode = 'Y' THEN
3053: pa_debug.g_err_stage:='Calling Add Planning TXN API';
3054: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
3055: END IF;
3056:
3057: pa_fp_planning_transaction_pub.add_planning_transactions

Line 3054: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);

3050: END IF;
3051:
3052: IF l_debug_mode = 'Y' THEN
3053: pa_debug.g_err_stage:='Calling Add Planning TXN API';
3054: pa_debug.write('PAFPPEUB.add_new_resource_assignments',pa_debug.g_err_stage,3);
3055: END IF;
3056:
3057: pa_fp_planning_transaction_pub.add_planning_transactions
3058: (p_context => p_context,

Line 3082: pa_debug.g_err_stage:='ADD PLAN TXN Returned Error';

3078: x_msg_data => l_msg_data);
3079:
3080: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3081: IF l_debug_mode = 'Y' THEN
3082: pa_debug.g_err_stage:='ADD PLAN TXN Returned Error';
3083: pa_debug.write('PA_PLANNING_ELEMENT_UTILS.add_new_resource_assignments',pa_debug.g_err_stage,3);
3084: END IF;
3085:
3086: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;

Line 3083: pa_debug.write('PA_PLANNING_ELEMENT_UTILS.add_new_resource_assignments',pa_debug.g_err_stage,3);

3079:
3080: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3081: IF l_debug_mode = 'Y' THEN
3082: pa_debug.g_err_stage:='ADD PLAN TXN Returned Error';
3083: pa_debug.write('PA_PLANNING_ELEMENT_UTILS.add_new_resource_assignments',pa_debug.g_err_stage,3);
3084: END IF;
3085:
3086: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3087: END IF;

Line 3089: pa_debug.reset_curr_function;

3085:
3086: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3087: END IF;
3088:
3089: pa_debug.reset_curr_function;
3090:
3091: EXCEPTION
3092: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3093: l_msg_count := FND_MSG_PUB.count_msg;

Line 3108: pa_debug.reset_curr_function;

3104: ELSE
3105: x_msg_count := l_msg_count;
3106: END IF;
3107: x_return_status := FND_API.G_RET_STS_ERROR;
3108: pa_debug.reset_curr_function;
3109:
3110: WHEN OTHERS THEN
3111:
3112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

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

3115: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PLANNING_ELEMENT_UTILS'
3116: ,p_procedure_name => 'add_new_resource_assignments');
3117:
3118: IF l_debug_mode = 'Y' THEN
3119: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
3120: pa_debug.write('add_new_resource_assignments',pa_debug.g_err_stage,5);
3121: END IF;
3122: pa_debug.reset_curr_function;
3123: RAISE;

Line 3120: pa_debug.write('add_new_resource_assignments',pa_debug.g_err_stage,5);

3116: ,p_procedure_name => 'add_new_resource_assignments');
3117:
3118: IF l_debug_mode = 'Y' THEN
3119: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
3120: pa_debug.write('add_new_resource_assignments',pa_debug.g_err_stage,5);
3121: END IF;
3122: pa_debug.reset_curr_function;
3123: RAISE;
3124:

Line 3122: pa_debug.reset_curr_function;

3118: IF l_debug_mode = 'Y' THEN
3119: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
3120: pa_debug.write('add_new_resource_assignments',pa_debug.g_err_stage,5);
3121: END IF;
3122: pa_debug.reset_curr_function;
3123: RAISE;
3124:
3125: END add_new_resource_assignments;
3126: