[Home] [Help]
16: BEGIN
17: If l_module_name is NULL Then
18: l_module_name := g_module_name;
19: End If;
20: pa_debug.write( l_module_name,p_msg,3);
21: /*
22: --dbms_output.put_line(p_msg);
23: INSERT INTO PA_FP_CALCULATE_LOG
24: (SESSIONID
276: l_rtx_rateOvrds_rec get_rateOvrds%ROWTYPE;
277:
278: BEGIN
279:
280: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
281: l_debug_mode := NVL(l_debug_mode, 'N');
282: x_msg_count := 0;
283: x_return_status := FND_API.G_RET_STS_SUCCESS;
284: IF l_debug_mode = 'Y' THEN
281: l_debug_mode := NVL(l_debug_mode, 'N');
282: x_msg_count := 0;
283: x_return_status := FND_API.G_RET_STS_SUCCESS;
284: IF l_debug_mode = 'Y' THEN
285: PA_DEBUG.Set_Curr_Function( p_function => 'plan_txn_pub.drv_prms_for_calc',
286: p_debug_mode => l_debug_mode );
287: END IF;
288: -----------------------------------------------------------------------------
289: -- Validating input paramters p_context and p_budget_version_id vannot be null
288: -----------------------------------------------------------------------------
289: -- Validating input paramters p_context and p_budget_version_id vannot be null
290: -----------------------------------------------------------------------------
291: IF l_debug_mode = 'Y' THEN
292: pa_debug.g_err_stage:='Validating input parameters';
293: print_msg(pa_debug.g_err_stage,l_module_name);
294: END IF;
295:
296: IF ((p_context IS NULL) OR (p_budget_version_id IS NULL)) THEN
289: -- Validating input paramters p_context and p_budget_version_id vannot be null
290: -----------------------------------------------------------------------------
291: IF l_debug_mode = 'Y' THEN
292: pa_debug.g_err_stage:='Validating input parameters';
293: print_msg(pa_debug.g_err_stage,l_module_name);
294: END IF;
295:
296: IF ((p_context IS NULL) OR (p_budget_version_id IS NULL)) THEN
297: IF l_debug_mode = 'Y' THEN
294: END IF;
295:
296: IF ((p_context IS NULL) OR (p_budget_version_id IS NULL)) THEN
297: IF l_debug_mode = 'Y' THEN
298: pa_debug.g_err_stage:='Required parameter is null - p_context : ' || p_context;
299: pa_debug.write(l_module_name ,pa_debug.g_err_stage,5);
300:
301: pa_debug.g_err_stage:='Required parameter is null - p_budget_version_id : ' || p_budget_version_id;
302: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
295:
296: IF ((p_context IS NULL) OR (p_budget_version_id IS NULL)) THEN
297: IF l_debug_mode = 'Y' THEN
298: pa_debug.g_err_stage:='Required parameter is null - p_context : ' || p_context;
299: pa_debug.write(l_module_name ,pa_debug.g_err_stage,5);
300:
301: pa_debug.g_err_stage:='Required parameter is null - p_budget_version_id : ' || p_budget_version_id;
302: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
303: END IF;
297: IF l_debug_mode = 'Y' THEN
298: pa_debug.g_err_stage:='Required parameter is null - p_context : ' || p_context;
299: pa_debug.write(l_module_name ,pa_debug.g_err_stage,5);
300:
301: pa_debug.g_err_stage:='Required parameter is null - p_budget_version_id : ' || p_budget_version_id;
302: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
303: END IF;
304: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
305: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
298: pa_debug.g_err_stage:='Required parameter is null - p_context : ' || p_context;
299: pa_debug.write(l_module_name ,pa_debug.g_err_stage,5);
300:
301: pa_debug.g_err_stage:='Required parameter is null - p_budget_version_id : ' || p_budget_version_id;
302: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
303: END IF;
304: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
305: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
306: p_token1 => 'PROCEDURENAME',
311: l_ra_id_count := p_resource_assignment_id_tbl.COUNT;
312:
313: IF l_ra_id_count = 0 THEN
314: IF l_debug_mode = 'Y' THEN
315: pa_debug.g_err_stage:='Validating input parameters - No resource assignment id is passed -raising excp.';
316: print_msg(pa_debug.g_err_stage,l_module_name);
317: END IF;
318: IF l_debug_mode = 'Y' THEN
319: pa_debug.reset_curr_function;
312:
313: IF l_ra_id_count = 0 THEN
314: IF l_debug_mode = 'Y' THEN
315: pa_debug.g_err_stage:='Validating input parameters - No resource assignment id is passed -raising excp.';
316: print_msg(pa_debug.g_err_stage,l_module_name);
317: END IF;
318: IF l_debug_mode = 'Y' THEN
319: pa_debug.reset_curr_function;
320: END IF;
315: pa_debug.g_err_stage:='Validating input parameters - No resource assignment id is passed -raising excp.';
316: print_msg(pa_debug.g_err_stage,l_module_name);
317: END IF;
318: IF l_debug_mode = 'Y' THEN
319: pa_debug.reset_curr_function;
320: END IF;
321: RETURN;
322: END IF;
323: --dbms_output.put_line('d2');
322: END IF;
323: --dbms_output.put_line('d2');
324: --Extending the output pl/sql tables
325: IF l_debug_mode = 'Y' THEN
326: pa_debug.g_err_stage:='Extending input params';
327: print_msg(pa_debug.g_err_stage,l_module_name);
328: END IF;
329: x_rbs_element_id_tbl := SYSTEM.PA_NUM_TBL_TYPE();
330: x_txn_accum_header_id_tbl := SYSTEM.PA_NUM_TBL_TYPE();
323: --dbms_output.put_line('d2');
324: --Extending the output pl/sql tables
325: IF l_debug_mode = 'Y' THEN
326: pa_debug.g_err_stage:='Extending input params';
327: print_msg(pa_debug.g_err_stage,l_module_name);
328: END IF;
329: x_rbs_element_id_tbl := SYSTEM.PA_NUM_TBL_TYPE();
330: x_txn_accum_header_id_tbl := SYSTEM.PA_NUM_TBL_TYPE();
331: x_mfc_cost_type_id_old_tbl := SYSTEM.PA_NUM_TBL_TYPE();
360: FETCH c_plan_ver_settings_csr INTO l_plan_ver_settings_rec;
361: IF c_plan_ver_settings_csr%NOTFOUND THEN
362:
363: IF l_debug_mode = 'Y' THEN
364: pa_debug.g_err_stage:='0 rows returned by c_plan_ver_settings_csr';
365: pa_debug.write(l_module_name,pa_debug.g_err_stage, 5);
366: END IF;
367: CLOSE c_plan_ver_settings_csr;
368: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
361: IF c_plan_ver_settings_csr%NOTFOUND THEN
362:
363: IF l_debug_mode = 'Y' THEN
364: pa_debug.g_err_stage:='0 rows returned by c_plan_ver_settings_csr';
365: pa_debug.write(l_module_name,pa_debug.g_err_stage, 5);
366: END IF;
367: CLOSE c_plan_ver_settings_csr;
368: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
369:
408: --dbms_output.put_line('6.2 '||p_resource_assignment_id_tbl(i) );
409:
410: IF l_debug_mode = 'Y' THEN
411:
412: pa_debug.g_err_stage:='p_project_role_id_tbl('||i||') is '||p_project_role_id_tbl(i);
413: print_msg(pa_debug.g_err_stage,l_module_name);
414: pa_debug.g_err_stage:='p_resource_list_member_id_tbl('||i||') is '||p_resource_list_member_id_tbl(i);
415: print_msg(pa_debug.g_err_stage,l_module_name);
416: pa_debug.g_err_stage:='p_planning_start_date_tbl('||i||') is '||p_planning_start_date_tbl(i);
409:
410: IF l_debug_mode = 'Y' THEN
411:
412: pa_debug.g_err_stage:='p_project_role_id_tbl('||i||') is '||p_project_role_id_tbl(i);
413: print_msg(pa_debug.g_err_stage,l_module_name);
414: pa_debug.g_err_stage:='p_resource_list_member_id_tbl('||i||') is '||p_resource_list_member_id_tbl(i);
415: print_msg(pa_debug.g_err_stage,l_module_name);
416: pa_debug.g_err_stage:='p_planning_start_date_tbl('||i||') is '||p_planning_start_date_tbl(i);
417: print_msg(pa_debug.g_err_stage,l_module_name);
410: IF l_debug_mode = 'Y' THEN
411:
412: pa_debug.g_err_stage:='p_project_role_id_tbl('||i||') is '||p_project_role_id_tbl(i);
413: print_msg(pa_debug.g_err_stage,l_module_name);
414: pa_debug.g_err_stage:='p_resource_list_member_id_tbl('||i||') is '||p_resource_list_member_id_tbl(i);
415: print_msg(pa_debug.g_err_stage,l_module_name);
416: pa_debug.g_err_stage:='p_planning_start_date_tbl('||i||') is '||p_planning_start_date_tbl(i);
417: print_msg(pa_debug.g_err_stage,l_module_name);
418: pa_debug.g_err_stage:='p_planning_end_date_tbl('||i||') is '||p_planning_end_date_tbl(i);
411:
412: pa_debug.g_err_stage:='p_project_role_id_tbl('||i||') is '||p_project_role_id_tbl(i);
413: print_msg(pa_debug.g_err_stage,l_module_name);
414: pa_debug.g_err_stage:='p_resource_list_member_id_tbl('||i||') is '||p_resource_list_member_id_tbl(i);
415: print_msg(pa_debug.g_err_stage,l_module_name);
416: pa_debug.g_err_stage:='p_planning_start_date_tbl('||i||') is '||p_planning_start_date_tbl(i);
417: print_msg(pa_debug.g_err_stage,l_module_name);
418: pa_debug.g_err_stage:='p_planning_end_date_tbl('||i||') is '||p_planning_end_date_tbl(i);
419: print_msg(pa_debug.g_err_stage,l_module_name);
412: pa_debug.g_err_stage:='p_project_role_id_tbl('||i||') is '||p_project_role_id_tbl(i);
413: print_msg(pa_debug.g_err_stage,l_module_name);
414: pa_debug.g_err_stage:='p_resource_list_member_id_tbl('||i||') is '||p_resource_list_member_id_tbl(i);
415: print_msg(pa_debug.g_err_stage,l_module_name);
416: pa_debug.g_err_stage:='p_planning_start_date_tbl('||i||') is '||p_planning_start_date_tbl(i);
417: print_msg(pa_debug.g_err_stage,l_module_name);
418: pa_debug.g_err_stage:='p_planning_end_date_tbl('||i||') is '||p_planning_end_date_tbl(i);
419: print_msg(pa_debug.g_err_stage,l_module_name);
420: pa_debug.g_err_stage:='p_spread_curve_id_tbl('||i||') is '||p_spread_curve_id_tbl(i);
413: print_msg(pa_debug.g_err_stage,l_module_name);
414: pa_debug.g_err_stage:='p_resource_list_member_id_tbl('||i||') is '||p_resource_list_member_id_tbl(i);
415: print_msg(pa_debug.g_err_stage,l_module_name);
416: pa_debug.g_err_stage:='p_planning_start_date_tbl('||i||') is '||p_planning_start_date_tbl(i);
417: print_msg(pa_debug.g_err_stage,l_module_name);
418: pa_debug.g_err_stage:='p_planning_end_date_tbl('||i||') is '||p_planning_end_date_tbl(i);
419: print_msg(pa_debug.g_err_stage,l_module_name);
420: pa_debug.g_err_stage:='p_spread_curve_id_tbl('||i||') is '||p_spread_curve_id_tbl(i);
421: print_msg(pa_debug.g_err_stage,l_module_name);
414: pa_debug.g_err_stage:='p_resource_list_member_id_tbl('||i||') is '||p_resource_list_member_id_tbl(i);
415: print_msg(pa_debug.g_err_stage,l_module_name);
416: pa_debug.g_err_stage:='p_planning_start_date_tbl('||i||') is '||p_planning_start_date_tbl(i);
417: print_msg(pa_debug.g_err_stage,l_module_name);
418: pa_debug.g_err_stage:='p_planning_end_date_tbl('||i||') is '||p_planning_end_date_tbl(i);
419: print_msg(pa_debug.g_err_stage,l_module_name);
420: pa_debug.g_err_stage:='p_spread_curve_id_tbl('||i||') is '||p_spread_curve_id_tbl(i);
421: print_msg(pa_debug.g_err_stage,l_module_name);
422: pa_debug.g_err_stage:='p_sp_fixed_date_tbl('||i||') is '||p_sp_fixed_date_tbl(i);
415: print_msg(pa_debug.g_err_stage,l_module_name);
416: pa_debug.g_err_stage:='p_planning_start_date_tbl('||i||') is '||p_planning_start_date_tbl(i);
417: print_msg(pa_debug.g_err_stage,l_module_name);
418: pa_debug.g_err_stage:='p_planning_end_date_tbl('||i||') is '||p_planning_end_date_tbl(i);
419: print_msg(pa_debug.g_err_stage,l_module_name);
420: pa_debug.g_err_stage:='p_spread_curve_id_tbl('||i||') is '||p_spread_curve_id_tbl(i);
421: print_msg(pa_debug.g_err_stage,l_module_name);
422: pa_debug.g_err_stage:='p_sp_fixed_date_tbl('||i||') is '||p_sp_fixed_date_tbl(i);
423: print_msg(pa_debug.g_err_stage,l_module_name);
416: pa_debug.g_err_stage:='p_planning_start_date_tbl('||i||') is '||p_planning_start_date_tbl(i);
417: print_msg(pa_debug.g_err_stage,l_module_name);
418: pa_debug.g_err_stage:='p_planning_end_date_tbl('||i||') is '||p_planning_end_date_tbl(i);
419: print_msg(pa_debug.g_err_stage,l_module_name);
420: pa_debug.g_err_stage:='p_spread_curve_id_tbl('||i||') is '||p_spread_curve_id_tbl(i);
421: print_msg(pa_debug.g_err_stage,l_module_name);
422: pa_debug.g_err_stage:='p_sp_fixed_date_tbl('||i||') is '||p_sp_fixed_date_tbl(i);
423: print_msg(pa_debug.g_err_stage,l_module_name);
424: pa_debug.g_err_stage:='p_mfc_cost_type_id_tbl('||i||') is '||p_mfc_cost_type_id_tbl(i);
417: print_msg(pa_debug.g_err_stage,l_module_name);
418: pa_debug.g_err_stage:='p_planning_end_date_tbl('||i||') is '||p_planning_end_date_tbl(i);
419: print_msg(pa_debug.g_err_stage,l_module_name);
420: pa_debug.g_err_stage:='p_spread_curve_id_tbl('||i||') is '||p_spread_curve_id_tbl(i);
421: print_msg(pa_debug.g_err_stage,l_module_name);
422: pa_debug.g_err_stage:='p_sp_fixed_date_tbl('||i||') is '||p_sp_fixed_date_tbl(i);
423: print_msg(pa_debug.g_err_stage,l_module_name);
424: pa_debug.g_err_stage:='p_mfc_cost_type_id_tbl('||i||') is '||p_mfc_cost_type_id_tbl(i);
425: print_msg(pa_debug.g_err_stage,l_module_name);
418: pa_debug.g_err_stage:='p_planning_end_date_tbl('||i||') is '||p_planning_end_date_tbl(i);
419: print_msg(pa_debug.g_err_stage,l_module_name);
420: pa_debug.g_err_stage:='p_spread_curve_id_tbl('||i||') is '||p_spread_curve_id_tbl(i);
421: print_msg(pa_debug.g_err_stage,l_module_name);
422: pa_debug.g_err_stage:='p_sp_fixed_date_tbl('||i||') is '||p_sp_fixed_date_tbl(i);
423: print_msg(pa_debug.g_err_stage,l_module_name);
424: pa_debug.g_err_stage:='p_mfc_cost_type_id_tbl('||i||') is '||p_mfc_cost_type_id_tbl(i);
425: print_msg(pa_debug.g_err_stage,l_module_name);
426:
419: print_msg(pa_debug.g_err_stage,l_module_name);
420: pa_debug.g_err_stage:='p_spread_curve_id_tbl('||i||') is '||p_spread_curve_id_tbl(i);
421: print_msg(pa_debug.g_err_stage,l_module_name);
422: pa_debug.g_err_stage:='p_sp_fixed_date_tbl('||i||') is '||p_sp_fixed_date_tbl(i);
423: print_msg(pa_debug.g_err_stage,l_module_name);
424: pa_debug.g_err_stage:='p_mfc_cost_type_id_tbl('||i||') is '||p_mfc_cost_type_id_tbl(i);
425: print_msg(pa_debug.g_err_stage,l_module_name);
426:
427:
420: pa_debug.g_err_stage:='p_spread_curve_id_tbl('||i||') is '||p_spread_curve_id_tbl(i);
421: print_msg(pa_debug.g_err_stage,l_module_name);
422: pa_debug.g_err_stage:='p_sp_fixed_date_tbl('||i||') is '||p_sp_fixed_date_tbl(i);
423: print_msg(pa_debug.g_err_stage,l_module_name);
424: pa_debug.g_err_stage:='p_mfc_cost_type_id_tbl('||i||') is '||p_mfc_cost_type_id_tbl(i);
425: print_msg(pa_debug.g_err_stage,l_module_name);
426:
427:
428: END IF;
421: print_msg(pa_debug.g_err_stage,l_module_name);
422: pa_debug.g_err_stage:='p_sp_fixed_date_tbl('||i||') is '||p_sp_fixed_date_tbl(i);
423: print_msg(pa_debug.g_err_stage,l_module_name);
424: pa_debug.g_err_stage:='p_mfc_cost_type_id_tbl('||i||') is '||p_mfc_cost_type_id_tbl(i);
425: print_msg(pa_debug.g_err_stage,l_module_name);
426:
427:
428: END IF;
429:
438: p_sp_fixed_date_tbl(i) IS NULL AND
439: p_mfc_cost_type_id_tbl(i) IS NULL THEN
440:
441: IF l_debug_mode = 'Y' THEN
442: pa_debug.g_err_stage:='All the resource attrs passed are NULL and hence No change. Not firing the Select';
443: print_msg(pa_debug.g_err_stage,l_module_name);
444: END IF;
445:
446: x_mfc_cost_type_id_old_tbl(i) := NULL;
439: p_mfc_cost_type_id_tbl(i) IS NULL THEN
440:
441: IF l_debug_mode = 'Y' THEN
442: pa_debug.g_err_stage:='All the resource attrs passed are NULL and hence No change. Not firing the Select';
443: print_msg(pa_debug.g_err_stage,l_module_name);
444: END IF;
445:
446: x_mfc_cost_type_id_old_tbl(i) := NULL;
447: x_mfc_cost_type_id_new_tbl(i) := NULL;
561: WHERE pra.resource_assignment_id=p_resource_assignment_id_tbl(i);
562:
563: IF l_debug_mode = 'Y' THEN
564:
565: pa_debug.g_err_stage:='x_rlm_id_change_flag_tbl('||i||') is '||x_rlm_id_change_flag_tbl(i);
566: print_msg(pa_debug.g_err_stage,l_module_name);
567: pa_debug.g_err_stage:='x_mfc_cost_type_id_old_tbl('||i||') is '||x_mfc_cost_type_id_old_tbl(i);
568: print_msg(pa_debug.g_err_stage,l_module_name);
569: pa_debug.g_err_stage:='x_mfc_cost_type_id_new_tbl('||i||') is '||x_mfc_cost_type_id_new_tbl(i);
562:
563: IF l_debug_mode = 'Y' THEN
564:
565: pa_debug.g_err_stage:='x_rlm_id_change_flag_tbl('||i||') is '||x_rlm_id_change_flag_tbl(i);
566: print_msg(pa_debug.g_err_stage,l_module_name);
567: pa_debug.g_err_stage:='x_mfc_cost_type_id_old_tbl('||i||') is '||x_mfc_cost_type_id_old_tbl(i);
568: print_msg(pa_debug.g_err_stage,l_module_name);
569: pa_debug.g_err_stage:='x_mfc_cost_type_id_new_tbl('||i||') is '||x_mfc_cost_type_id_new_tbl(i);
570: print_msg(pa_debug.g_err_stage,l_module_name);
563: IF l_debug_mode = 'Y' THEN
564:
565: pa_debug.g_err_stage:='x_rlm_id_change_flag_tbl('||i||') is '||x_rlm_id_change_flag_tbl(i);
566: print_msg(pa_debug.g_err_stage,l_module_name);
567: pa_debug.g_err_stage:='x_mfc_cost_type_id_old_tbl('||i||') is '||x_mfc_cost_type_id_old_tbl(i);
568: print_msg(pa_debug.g_err_stage,l_module_name);
569: pa_debug.g_err_stage:='x_mfc_cost_type_id_new_tbl('||i||') is '||x_mfc_cost_type_id_new_tbl(i);
570: print_msg(pa_debug.g_err_stage,l_module_name);
571: pa_debug.g_err_stage:='x_spread_curve_id_old_tbl('||i||') is '||x_spread_curve_id_old_tbl(i);
564:
565: pa_debug.g_err_stage:='x_rlm_id_change_flag_tbl('||i||') is '||x_rlm_id_change_flag_tbl(i);
566: print_msg(pa_debug.g_err_stage,l_module_name);
567: pa_debug.g_err_stage:='x_mfc_cost_type_id_old_tbl('||i||') is '||x_mfc_cost_type_id_old_tbl(i);
568: print_msg(pa_debug.g_err_stage,l_module_name);
569: pa_debug.g_err_stage:='x_mfc_cost_type_id_new_tbl('||i||') is '||x_mfc_cost_type_id_new_tbl(i);
570: print_msg(pa_debug.g_err_stage,l_module_name);
571: pa_debug.g_err_stage:='x_spread_curve_id_old_tbl('||i||') is '||x_spread_curve_id_old_tbl(i);
572: print_msg(pa_debug.g_err_stage,l_module_name);
565: pa_debug.g_err_stage:='x_rlm_id_change_flag_tbl('||i||') is '||x_rlm_id_change_flag_tbl(i);
566: print_msg(pa_debug.g_err_stage,l_module_name);
567: pa_debug.g_err_stage:='x_mfc_cost_type_id_old_tbl('||i||') is '||x_mfc_cost_type_id_old_tbl(i);
568: print_msg(pa_debug.g_err_stage,l_module_name);
569: pa_debug.g_err_stage:='x_mfc_cost_type_id_new_tbl('||i||') is '||x_mfc_cost_type_id_new_tbl(i);
570: print_msg(pa_debug.g_err_stage,l_module_name);
571: pa_debug.g_err_stage:='x_spread_curve_id_old_tbl('||i||') is '||x_spread_curve_id_old_tbl(i);
572: print_msg(pa_debug.g_err_stage,l_module_name);
573: pa_debug.g_err_stage:='x_spread_curve_id_new_tbl('||i||') is '||x_spread_curve_id_new_tbl(i);
566: print_msg(pa_debug.g_err_stage,l_module_name);
567: pa_debug.g_err_stage:='x_mfc_cost_type_id_old_tbl('||i||') is '||x_mfc_cost_type_id_old_tbl(i);
568: print_msg(pa_debug.g_err_stage,l_module_name);
569: pa_debug.g_err_stage:='x_mfc_cost_type_id_new_tbl('||i||') is '||x_mfc_cost_type_id_new_tbl(i);
570: print_msg(pa_debug.g_err_stage,l_module_name);
571: pa_debug.g_err_stage:='x_spread_curve_id_old_tbl('||i||') is '||x_spread_curve_id_old_tbl(i);
572: print_msg(pa_debug.g_err_stage,l_module_name);
573: pa_debug.g_err_stage:='x_spread_curve_id_new_tbl('||i||') is '||x_spread_curve_id_new_tbl(i);
574: print_msg(pa_debug.g_err_stage,l_module_name);
567: pa_debug.g_err_stage:='x_mfc_cost_type_id_old_tbl('||i||') is '||x_mfc_cost_type_id_old_tbl(i);
568: print_msg(pa_debug.g_err_stage,l_module_name);
569: pa_debug.g_err_stage:='x_mfc_cost_type_id_new_tbl('||i||') is '||x_mfc_cost_type_id_new_tbl(i);
570: print_msg(pa_debug.g_err_stage,l_module_name);
571: pa_debug.g_err_stage:='x_spread_curve_id_old_tbl('||i||') is '||x_spread_curve_id_old_tbl(i);
572: print_msg(pa_debug.g_err_stage,l_module_name);
573: pa_debug.g_err_stage:='x_spread_curve_id_new_tbl('||i||') is '||x_spread_curve_id_new_tbl(i);
574: print_msg(pa_debug.g_err_stage,l_module_name);
575: pa_debug.g_err_stage:='x_sp_fixed_date_old_tbl('||i||') is '||x_sp_fixed_date_old_tbl(i);
568: print_msg(pa_debug.g_err_stage,l_module_name);
569: pa_debug.g_err_stage:='x_mfc_cost_type_id_new_tbl('||i||') is '||x_mfc_cost_type_id_new_tbl(i);
570: print_msg(pa_debug.g_err_stage,l_module_name);
571: pa_debug.g_err_stage:='x_spread_curve_id_old_tbl('||i||') is '||x_spread_curve_id_old_tbl(i);
572: print_msg(pa_debug.g_err_stage,l_module_name);
573: pa_debug.g_err_stage:='x_spread_curve_id_new_tbl('||i||') is '||x_spread_curve_id_new_tbl(i);
574: print_msg(pa_debug.g_err_stage,l_module_name);
575: pa_debug.g_err_stage:='x_sp_fixed_date_old_tbl('||i||') is '||x_sp_fixed_date_old_tbl(i);
576: print_msg(pa_debug.g_err_stage,l_module_name);
569: pa_debug.g_err_stage:='x_mfc_cost_type_id_new_tbl('||i||') is '||x_mfc_cost_type_id_new_tbl(i);
570: print_msg(pa_debug.g_err_stage,l_module_name);
571: pa_debug.g_err_stage:='x_spread_curve_id_old_tbl('||i||') is '||x_spread_curve_id_old_tbl(i);
572: print_msg(pa_debug.g_err_stage,l_module_name);
573: pa_debug.g_err_stage:='x_spread_curve_id_new_tbl('||i||') is '||x_spread_curve_id_new_tbl(i);
574: print_msg(pa_debug.g_err_stage,l_module_name);
575: pa_debug.g_err_stage:='x_sp_fixed_date_old_tbl('||i||') is '||x_sp_fixed_date_old_tbl(i);
576: print_msg(pa_debug.g_err_stage,l_module_name);
577: pa_debug.g_err_stage:='x_sp_fixed_date_new_tbl('||i||') is '||x_sp_fixed_date_new_tbl(i);
570: print_msg(pa_debug.g_err_stage,l_module_name);
571: pa_debug.g_err_stage:='x_spread_curve_id_old_tbl('||i||') is '||x_spread_curve_id_old_tbl(i);
572: print_msg(pa_debug.g_err_stage,l_module_name);
573: pa_debug.g_err_stage:='x_spread_curve_id_new_tbl('||i||') is '||x_spread_curve_id_new_tbl(i);
574: print_msg(pa_debug.g_err_stage,l_module_name);
575: pa_debug.g_err_stage:='x_sp_fixed_date_old_tbl('||i||') is '||x_sp_fixed_date_old_tbl(i);
576: print_msg(pa_debug.g_err_stage,l_module_name);
577: pa_debug.g_err_stage:='x_sp_fixed_date_new_tbl('||i||') is '||x_sp_fixed_date_new_tbl(i);
578: print_msg(pa_debug.g_err_stage,l_module_name);
571: pa_debug.g_err_stage:='x_spread_curve_id_old_tbl('||i||') is '||x_spread_curve_id_old_tbl(i);
572: print_msg(pa_debug.g_err_stage,l_module_name);
573: pa_debug.g_err_stage:='x_spread_curve_id_new_tbl('||i||') is '||x_spread_curve_id_new_tbl(i);
574: print_msg(pa_debug.g_err_stage,l_module_name);
575: pa_debug.g_err_stage:='x_sp_fixed_date_old_tbl('||i||') is '||x_sp_fixed_date_old_tbl(i);
576: print_msg(pa_debug.g_err_stage,l_module_name);
577: pa_debug.g_err_stage:='x_sp_fixed_date_new_tbl('||i||') is '||x_sp_fixed_date_new_tbl(i);
578: print_msg(pa_debug.g_err_stage,l_module_name);
579: pa_debug.g_err_stage:='x_plan_start_date_old_tbl('||i||') is '||x_plan_start_date_old_tbl(i);
572: print_msg(pa_debug.g_err_stage,l_module_name);
573: pa_debug.g_err_stage:='x_spread_curve_id_new_tbl('||i||') is '||x_spread_curve_id_new_tbl(i);
574: print_msg(pa_debug.g_err_stage,l_module_name);
575: pa_debug.g_err_stage:='x_sp_fixed_date_old_tbl('||i||') is '||x_sp_fixed_date_old_tbl(i);
576: print_msg(pa_debug.g_err_stage,l_module_name);
577: pa_debug.g_err_stage:='x_sp_fixed_date_new_tbl('||i||') is '||x_sp_fixed_date_new_tbl(i);
578: print_msg(pa_debug.g_err_stage,l_module_name);
579: pa_debug.g_err_stage:='x_plan_start_date_old_tbl('||i||') is '||x_plan_start_date_old_tbl(i);
580: print_msg(pa_debug.g_err_stage,l_module_name);
573: pa_debug.g_err_stage:='x_spread_curve_id_new_tbl('||i||') is '||x_spread_curve_id_new_tbl(i);
574: print_msg(pa_debug.g_err_stage,l_module_name);
575: pa_debug.g_err_stage:='x_sp_fixed_date_old_tbl('||i||') is '||x_sp_fixed_date_old_tbl(i);
576: print_msg(pa_debug.g_err_stage,l_module_name);
577: pa_debug.g_err_stage:='x_sp_fixed_date_new_tbl('||i||') is '||x_sp_fixed_date_new_tbl(i);
578: print_msg(pa_debug.g_err_stage,l_module_name);
579: pa_debug.g_err_stage:='x_plan_start_date_old_tbl('||i||') is '||x_plan_start_date_old_tbl(i);
580: print_msg(pa_debug.g_err_stage,l_module_name);
581: pa_debug.g_err_stage:='x_plan_start_date_new_tbl('||i||') is '||x_plan_start_date_new_tbl(i);
574: print_msg(pa_debug.g_err_stage,l_module_name);
575: pa_debug.g_err_stage:='x_sp_fixed_date_old_tbl('||i||') is '||x_sp_fixed_date_old_tbl(i);
576: print_msg(pa_debug.g_err_stage,l_module_name);
577: pa_debug.g_err_stage:='x_sp_fixed_date_new_tbl('||i||') is '||x_sp_fixed_date_new_tbl(i);
578: print_msg(pa_debug.g_err_stage,l_module_name);
579: pa_debug.g_err_stage:='x_plan_start_date_old_tbl('||i||') is '||x_plan_start_date_old_tbl(i);
580: print_msg(pa_debug.g_err_stage,l_module_name);
581: pa_debug.g_err_stage:='x_plan_start_date_new_tbl('||i||') is '||x_plan_start_date_new_tbl(i);
582: print_msg(pa_debug.g_err_stage,l_module_name);
575: pa_debug.g_err_stage:='x_sp_fixed_date_old_tbl('||i||') is '||x_sp_fixed_date_old_tbl(i);
576: print_msg(pa_debug.g_err_stage,l_module_name);
577: pa_debug.g_err_stage:='x_sp_fixed_date_new_tbl('||i||') is '||x_sp_fixed_date_new_tbl(i);
578: print_msg(pa_debug.g_err_stage,l_module_name);
579: pa_debug.g_err_stage:='x_plan_start_date_old_tbl('||i||') is '||x_plan_start_date_old_tbl(i);
580: print_msg(pa_debug.g_err_stage,l_module_name);
581: pa_debug.g_err_stage:='x_plan_start_date_new_tbl('||i||') is '||x_plan_start_date_new_tbl(i);
582: print_msg(pa_debug.g_err_stage,l_module_name);
583: pa_debug.g_err_stage:='x_plan_end_date_old_tbl('||i||') is '||x_plan_end_date_old_tbl(i);
576: print_msg(pa_debug.g_err_stage,l_module_name);
577: pa_debug.g_err_stage:='x_sp_fixed_date_new_tbl('||i||') is '||x_sp_fixed_date_new_tbl(i);
578: print_msg(pa_debug.g_err_stage,l_module_name);
579: pa_debug.g_err_stage:='x_plan_start_date_old_tbl('||i||') is '||x_plan_start_date_old_tbl(i);
580: print_msg(pa_debug.g_err_stage,l_module_name);
581: pa_debug.g_err_stage:='x_plan_start_date_new_tbl('||i||') is '||x_plan_start_date_new_tbl(i);
582: print_msg(pa_debug.g_err_stage,l_module_name);
583: pa_debug.g_err_stage:='x_plan_end_date_old_tbl('||i||') is '||x_plan_end_date_old_tbl(i);
584: print_msg(pa_debug.g_err_stage,l_module_name);
577: pa_debug.g_err_stage:='x_sp_fixed_date_new_tbl('||i||') is '||x_sp_fixed_date_new_tbl(i);
578: print_msg(pa_debug.g_err_stage,l_module_name);
579: pa_debug.g_err_stage:='x_plan_start_date_old_tbl('||i||') is '||x_plan_start_date_old_tbl(i);
580: print_msg(pa_debug.g_err_stage,l_module_name);
581: pa_debug.g_err_stage:='x_plan_start_date_new_tbl('||i||') is '||x_plan_start_date_new_tbl(i);
582: print_msg(pa_debug.g_err_stage,l_module_name);
583: pa_debug.g_err_stage:='x_plan_end_date_old_tbl('||i||') is '||x_plan_end_date_old_tbl(i);
584: print_msg(pa_debug.g_err_stage,l_module_name);
585: pa_debug.g_err_stage:='x_plan_end_date_new_tbl('||i||') is '||x_plan_end_date_new_tbl(i);
578: print_msg(pa_debug.g_err_stage,l_module_name);
579: pa_debug.g_err_stage:='x_plan_start_date_old_tbl('||i||') is '||x_plan_start_date_old_tbl(i);
580: print_msg(pa_debug.g_err_stage,l_module_name);
581: pa_debug.g_err_stage:='x_plan_start_date_new_tbl('||i||') is '||x_plan_start_date_new_tbl(i);
582: print_msg(pa_debug.g_err_stage,l_module_name);
583: pa_debug.g_err_stage:='x_plan_end_date_old_tbl('||i||') is '||x_plan_end_date_old_tbl(i);
584: print_msg(pa_debug.g_err_stage,l_module_name);
585: pa_debug.g_err_stage:='x_plan_end_date_new_tbl('||i||') is '||x_plan_end_date_new_tbl(i);
586: print_msg(pa_debug.g_err_stage,l_module_name);
579: pa_debug.g_err_stage:='x_plan_start_date_old_tbl('||i||') is '||x_plan_start_date_old_tbl(i);
580: print_msg(pa_debug.g_err_stage,l_module_name);
581: pa_debug.g_err_stage:='x_plan_start_date_new_tbl('||i||') is '||x_plan_start_date_new_tbl(i);
582: print_msg(pa_debug.g_err_stage,l_module_name);
583: pa_debug.g_err_stage:='x_plan_end_date_old_tbl('||i||') is '||x_plan_end_date_old_tbl(i);
584: print_msg(pa_debug.g_err_stage,l_module_name);
585: pa_debug.g_err_stage:='x_plan_end_date_new_tbl('||i||') is '||x_plan_end_date_new_tbl(i);
586: print_msg(pa_debug.g_err_stage,l_module_name);
587:
580: print_msg(pa_debug.g_err_stage,l_module_name);
581: pa_debug.g_err_stage:='x_plan_start_date_new_tbl('||i||') is '||x_plan_start_date_new_tbl(i);
582: print_msg(pa_debug.g_err_stage,l_module_name);
583: pa_debug.g_err_stage:='x_plan_end_date_old_tbl('||i||') is '||x_plan_end_date_old_tbl(i);
584: print_msg(pa_debug.g_err_stage,l_module_name);
585: pa_debug.g_err_stage:='x_plan_end_date_new_tbl('||i||') is '||x_plan_end_date_new_tbl(i);
586: print_msg(pa_debug.g_err_stage,l_module_name);
587:
588:
581: pa_debug.g_err_stage:='x_plan_start_date_new_tbl('||i||') is '||x_plan_start_date_new_tbl(i);
582: print_msg(pa_debug.g_err_stage,l_module_name);
583: pa_debug.g_err_stage:='x_plan_end_date_old_tbl('||i||') is '||x_plan_end_date_old_tbl(i);
584: print_msg(pa_debug.g_err_stage,l_module_name);
585: pa_debug.g_err_stage:='x_plan_end_date_new_tbl('||i||') is '||x_plan_end_date_new_tbl(i);
586: print_msg(pa_debug.g_err_stage,l_module_name);
587:
588:
589: END IF;--IF l_debug_mode = 'Y' THEN
582: print_msg(pa_debug.g_err_stage,l_module_name);
583: pa_debug.g_err_stage:='x_plan_end_date_old_tbl('||i||') is '||x_plan_end_date_old_tbl(i);
584: print_msg(pa_debug.g_err_stage,l_module_name);
585: pa_debug.g_err_stage:='x_plan_end_date_new_tbl('||i||') is '||x_plan_end_date_new_tbl(i);
586: print_msg(pa_debug.g_err_stage,l_module_name);
587:
588:
589: END IF;--IF l_debug_mode = 'Y' THEN
590:
594: (NVL(x_plan_start_date_new_tbl(i),trunc(sysdate))>NVL(x_plan_end_date_new_tbl(i),trunc(sysdate)))) THEN
595:
596: IF l_debug_mode = 'Y' THEN
597:
598: pa_debug.g_err_stage:='Invalid Planning Start/End Dates';
599: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
600:
601: pa_debug.g_err_stage:='x_plan_start_date_new_tbl('||i||') is '|| x_plan_start_date_new_tbl(i);
602: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
595:
596: IF l_debug_mode = 'Y' THEN
597:
598: pa_debug.g_err_stage:='Invalid Planning Start/End Dates';
599: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
600:
601: pa_debug.g_err_stage:='x_plan_start_date_new_tbl('||i||') is '|| x_plan_start_date_new_tbl(i);
602: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
603:
597:
598: pa_debug.g_err_stage:='Invalid Planning Start/End Dates';
599: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
600:
601: pa_debug.g_err_stage:='x_plan_start_date_new_tbl('||i||') is '|| x_plan_start_date_new_tbl(i);
602: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
603:
604: pa_debug.g_err_stage:='x_plan_end_date_new_tbl('||i||') is '|| x_plan_end_date_new_tbl(i);
605: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
598: pa_debug.g_err_stage:='Invalid Planning Start/End Dates';
599: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
600:
601: pa_debug.g_err_stage:='x_plan_start_date_new_tbl('||i||') is '|| x_plan_start_date_new_tbl(i);
602: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
603:
604: pa_debug.g_err_stage:='x_plan_end_date_new_tbl('||i||') is '|| x_plan_end_date_new_tbl(i);
605: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
606:
600:
601: pa_debug.g_err_stage:='x_plan_start_date_new_tbl('||i||') is '|| x_plan_start_date_new_tbl(i);
602: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
603:
604: pa_debug.g_err_stage:='x_plan_end_date_new_tbl('||i||') is '|| x_plan_end_date_new_tbl(i);
605: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
606:
607: END IF;
608: /*Bug Fix:5752337: The meaningful message should be shown when dates are not entered properly
601: pa_debug.g_err_stage:='x_plan_start_date_new_tbl('||i||') is '|| x_plan_start_date_new_tbl(i);
602: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
603:
604: pa_debug.g_err_stage:='x_plan_end_date_new_tbl('||i||') is '|| x_plan_end_date_new_tbl(i);
605: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
606:
607: END IF;
608: /*Bug Fix:5752337: The meaningful message should be shown when dates are not entered properly
609: * made use of exisisting message PA_FP_PLAN_START_END_DATE_ERR which is used in the spread api
646: x_plan_end_date_new_tbl(i) <> x_plan_end_date_old_tbl(i)) THEN
647:
648: IF l_debug_mode = 'Y' THEN
649:
650: pa_debug.g_err_stage:='Planning Start/End dates have changed. Validating with Etc Start date';
651: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
652:
653: END IF;
654:
647:
648: IF l_debug_mode = 'Y' THEN
649:
650: pa_debug.g_err_stage:='Planning Start/End dates have changed. Validating with Etc Start date';
651: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
652:
653: END IF;
654:
655: SELECT min(start_date), max(end_date)
660: AND end_date < l_plan_ver_settings_rec.etc_start_date;
661:
662: IF l_debug_mode = 'Y' THEN
663:
664: pa_debug.g_err_stage:='x_plan_start_date_new_tbl('||i||') is '||x_plan_start_date_new_tbl(i);
665: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
666: pa_debug.g_err_stage:='x_plan_start_date_old_tbl('||i||') is '||x_plan_start_date_old_tbl(i);
667: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
668: pa_debug.g_err_stage:='l_actuals_start_date is '||l_actuals_start_date;
661:
662: IF l_debug_mode = 'Y' THEN
663:
664: pa_debug.g_err_stage:='x_plan_start_date_new_tbl('||i||') is '||x_plan_start_date_new_tbl(i);
665: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
666: pa_debug.g_err_stage:='x_plan_start_date_old_tbl('||i||') is '||x_plan_start_date_old_tbl(i);
667: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
668: pa_debug.g_err_stage:='l_actuals_start_date is '||l_actuals_start_date;
669: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
662: IF l_debug_mode = 'Y' THEN
663:
664: pa_debug.g_err_stage:='x_plan_start_date_new_tbl('||i||') is '||x_plan_start_date_new_tbl(i);
665: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
666: pa_debug.g_err_stage:='x_plan_start_date_old_tbl('||i||') is '||x_plan_start_date_old_tbl(i);
667: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
668: pa_debug.g_err_stage:='l_actuals_start_date is '||l_actuals_start_date;
669: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
670: pa_debug.g_err_stage:='x_plan_end_date_new_tbl('||i||') is '||x_plan_end_date_new_tbl(i);
663:
664: pa_debug.g_err_stage:='x_plan_start_date_new_tbl('||i||') is '||x_plan_start_date_new_tbl(i);
665: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
666: pa_debug.g_err_stage:='x_plan_start_date_old_tbl('||i||') is '||x_plan_start_date_old_tbl(i);
667: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
668: pa_debug.g_err_stage:='l_actuals_start_date is '||l_actuals_start_date;
669: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
670: pa_debug.g_err_stage:='x_plan_end_date_new_tbl('||i||') is '||x_plan_end_date_new_tbl(i);
671: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
664: pa_debug.g_err_stage:='x_plan_start_date_new_tbl('||i||') is '||x_plan_start_date_new_tbl(i);
665: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
666: pa_debug.g_err_stage:='x_plan_start_date_old_tbl('||i||') is '||x_plan_start_date_old_tbl(i);
667: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
668: pa_debug.g_err_stage:='l_actuals_start_date is '||l_actuals_start_date;
669: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
670: pa_debug.g_err_stage:='x_plan_end_date_new_tbl('||i||') is '||x_plan_end_date_new_tbl(i);
671: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
672: pa_debug.g_err_stage:='x_plan_end_date_old_tbl('||i||') is '||x_plan_end_date_old_tbl(i);
665: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
666: pa_debug.g_err_stage:='x_plan_start_date_old_tbl('||i||') is '||x_plan_start_date_old_tbl(i);
667: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
668: pa_debug.g_err_stage:='l_actuals_start_date is '||l_actuals_start_date;
669: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
670: pa_debug.g_err_stage:='x_plan_end_date_new_tbl('||i||') is '||x_plan_end_date_new_tbl(i);
671: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
672: pa_debug.g_err_stage:='x_plan_end_date_old_tbl('||i||') is '||x_plan_end_date_old_tbl(i);
673: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
666: pa_debug.g_err_stage:='x_plan_start_date_old_tbl('||i||') is '||x_plan_start_date_old_tbl(i);
667: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
668: pa_debug.g_err_stage:='l_actuals_start_date is '||l_actuals_start_date;
669: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
670: pa_debug.g_err_stage:='x_plan_end_date_new_tbl('||i||') is '||x_plan_end_date_new_tbl(i);
671: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
672: pa_debug.g_err_stage:='x_plan_end_date_old_tbl('||i||') is '||x_plan_end_date_old_tbl(i);
673: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
674: pa_debug.g_err_stage:='l_actuals_end_date is '||l_actuals_end_date;
667: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
668: pa_debug.g_err_stage:='l_actuals_start_date is '||l_actuals_start_date;
669: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
670: pa_debug.g_err_stage:='x_plan_end_date_new_tbl('||i||') is '||x_plan_end_date_new_tbl(i);
671: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
672: pa_debug.g_err_stage:='x_plan_end_date_old_tbl('||i||') is '||x_plan_end_date_old_tbl(i);
673: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
674: pa_debug.g_err_stage:='l_actuals_end_date is '||l_actuals_end_date;
675: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
668: pa_debug.g_err_stage:='l_actuals_start_date is '||l_actuals_start_date;
669: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
670: pa_debug.g_err_stage:='x_plan_end_date_new_tbl('||i||') is '||x_plan_end_date_new_tbl(i);
671: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
672: pa_debug.g_err_stage:='x_plan_end_date_old_tbl('||i||') is '||x_plan_end_date_old_tbl(i);
673: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
674: pa_debug.g_err_stage:='l_actuals_end_date is '||l_actuals_end_date;
675: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
676:
669: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
670: pa_debug.g_err_stage:='x_plan_end_date_new_tbl('||i||') is '||x_plan_end_date_new_tbl(i);
671: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
672: pa_debug.g_err_stage:='x_plan_end_date_old_tbl('||i||') is '||x_plan_end_date_old_tbl(i);
673: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
674: pa_debug.g_err_stage:='l_actuals_end_date is '||l_actuals_end_date;
675: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
676:
677: END IF;
670: pa_debug.g_err_stage:='x_plan_end_date_new_tbl('||i||') is '||x_plan_end_date_new_tbl(i);
671: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
672: pa_debug.g_err_stage:='x_plan_end_date_old_tbl('||i||') is '||x_plan_end_date_old_tbl(i);
673: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
674: pa_debug.g_err_stage:='l_actuals_end_date is '||l_actuals_end_date;
675: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
676:
677: END IF;
678:
671: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
672: pa_debug.g_err_stage:='x_plan_end_date_old_tbl('||i||') is '||x_plan_end_date_old_tbl(i);
673: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
674: pa_debug.g_err_stage:='l_actuals_end_date is '||l_actuals_end_date;
675: pa_debug.write(l_module_name ,pa_debug.g_err_stage,3);
676:
677: END IF;
678:
679: --If either x_plan_start_date_new_tbl or x_plan_end_date_start_tbl is not null then all
714:
715: IF p_sp_fixed_date_tbl(i) = FND_API.G_MISS_DATE THEN
716:
717: IF l_debug_mode = 'Y' THEN
718: pa_debug.g_err_stage:='Error - cannot nullify sp_fixed_date for Fixed Date Spread curve';
719: print_msg(pa_debug.g_err_stage,l_module_name);
720: END IF;
721:
722: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
715: IF p_sp_fixed_date_tbl(i) = FND_API.G_MISS_DATE THEN
716:
717: IF l_debug_mode = 'Y' THEN
718: pa_debug.g_err_stage:='Error - cannot nullify sp_fixed_date for Fixed Date Spread curve';
719: print_msg(pa_debug.g_err_stage,l_module_name);
720: END IF;
721:
722: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
723: p_msg_name => 'PA_FP_SP_FIXED_DATE_NULL');
726: -- Added for bug 4247427. Fixed Date cannot be less than the etc_start_date
727: ELSIF (l_plan_ver_settings_rec.etc_start_date IS NOT NULL AND (x_sp_fixed_date_new_tbl(i) BETWEEN x_plan_start_date_new_tbl(i) AND x_plan_end_date_new_tbl(i))) THEN
728: IF (x_sp_fixed_date_new_tbl(i) < l_plan_ver_settings_rec.etc_start_date) THEN
729: IF l_debug_mode = 'Y' THEN
730: pa_debug.g_err_stage :='Sp Fixed Date less than ETC Start date';
731: print_msg(pa_debug.g_err_stage,l_module_name);
732: END IF;
733: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
734: p_msg_name => 'PA_FP_SP_FIXED_DATE_LESS');
727: ELSIF (l_plan_ver_settings_rec.etc_start_date IS NOT NULL AND (x_sp_fixed_date_new_tbl(i) BETWEEN x_plan_start_date_new_tbl(i) AND x_plan_end_date_new_tbl(i))) THEN
728: IF (x_sp_fixed_date_new_tbl(i) < l_plan_ver_settings_rec.etc_start_date) THEN
729: IF l_debug_mode = 'Y' THEN
730: pa_debug.g_err_stage :='Sp Fixed Date less than ETC Start date';
731: print_msg(pa_debug.g_err_stage,l_module_name);
732: END IF;
733: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
734: p_msg_name => 'PA_FP_SP_FIXED_DATE_LESS');
735: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
737:
738: ELSIF (x_sp_fixed_date_new_tbl(i) NOT BETWEEN x_plan_start_date_new_tbl(i) AND x_plan_end_date_new_tbl(i)) THEN
739:
740: IF l_debug_mode = 'Y' THEN
741: pa_debug.g_err_stage :='Sp Fixed Date not between planning start date and End Date';
742: print_msg(pa_debug.g_err_stage,l_module_name);
743: END IF;
744:
745: -- Added for Bug 3762278
738: ELSIF (x_sp_fixed_date_new_tbl(i) NOT BETWEEN x_plan_start_date_new_tbl(i) AND x_plan_end_date_new_tbl(i)) THEN
739:
740: IF l_debug_mode = 'Y' THEN
741: pa_debug.g_err_stage :='Sp Fixed Date not between planning start date and End Date';
742: print_msg(pa_debug.g_err_stage,l_module_name);
743: END IF;
744:
745: -- Added for Bug 3762278
746: -- fetching details for message tokens
762: AND prl.resource_list_member_id = pra.resource_list_member_id;
763: EXCEPTION
764: WHEN NO_DATA_FOUND THEN
765: IF l_debug_mode = 'Y' THEN
766: pa_debug.g_err_stage :='Invalid Data PA_FP_FIXED_DATE_NOT_MATCH will have no tokens';
767: print_msg(pa_debug.g_err_stage,l_module_name);
768: END IF;
769: NULL;
770: END;
763: EXCEPTION
764: WHEN NO_DATA_FOUND THEN
765: IF l_debug_mode = 'Y' THEN
766: pa_debug.g_err_stage :='Invalid Data PA_FP_FIXED_DATE_NOT_MATCH will have no tokens';
767: print_msg(pa_debug.g_err_stage,l_module_name);
768: END IF;
769: NULL;
770: END;
771:
788: ELSE
789: -- if the Final Value of spread curve id is either null or not equal to fixed date
790: -- spread curve then the sp fixed date should be nulled out if it is not already null.
791: IF l_debug_mode = 'Y' THEN
792: pa_debug.g_err_stage:='Spread curve id not chosen to be updated and value in db for..';
793: print_msg(pa_debug.g_err_stage,l_module_name);
794: pa_debug.g_err_stage:='..spread curve id is either null or <> to fixed date spread curve id';
795: print_msg(pa_debug.g_err_stage,l_module_name);
796: END IF;
789: -- if the Final Value of spread curve id is either null or not equal to fixed date
790: -- spread curve then the sp fixed date should be nulled out if it is not already null.
791: IF l_debug_mode = 'Y' THEN
792: pa_debug.g_err_stage:='Spread curve id not chosen to be updated and value in db for..';
793: print_msg(pa_debug.g_err_stage,l_module_name);
794: pa_debug.g_err_stage:='..spread curve id is either null or <> to fixed date spread curve id';
795: print_msg(pa_debug.g_err_stage,l_module_name);
796: END IF;
797:
790: -- spread curve then the sp fixed date should be nulled out if it is not already null.
791: IF l_debug_mode = 'Y' THEN
792: pa_debug.g_err_stage:='Spread curve id not chosen to be updated and value in db for..';
793: print_msg(pa_debug.g_err_stage,l_module_name);
794: pa_debug.g_err_stage:='..spread curve id is either null or <> to fixed date spread curve id';
795: print_msg(pa_debug.g_err_stage,l_module_name);
796: END IF;
797:
798: IF x_sp_fixed_date_old_tbl(i) IS NOT NULL THEN
791: IF l_debug_mode = 'Y' THEN
792: pa_debug.g_err_stage:='Spread curve id not chosen to be updated and value in db for..';
793: print_msg(pa_debug.g_err_stage,l_module_name);
794: pa_debug.g_err_stage:='..spread curve id is either null or <> to fixed date spread curve id';
795: print_msg(pa_debug.g_err_stage,l_module_name);
796: END IF;
797:
798: IF x_sp_fixed_date_old_tbl(i) IS NOT NULL THEN
799:
810:
811: --RBS element Id should be re-derived if the rlm id/Project Role Id have changed.
812: --dbms_output.put_line('7');
813: IF l_debug_mode = 'Y' THEN
814: pa_debug.g_err_stage:='Finding out whether the RBS re-derivation is required or NOT';
815: print_msg(pa_debug.g_err_stage,l_module_name);
816: END IF;
817:
818: IF x_rlm_id_change_flag_tbl(i)='Y' THEN
811: --RBS element Id should be re-derived if the rlm id/Project Role Id have changed.
812: --dbms_output.put_line('7');
813: IF l_debug_mode = 'Y' THEN
814: pa_debug.g_err_stage:='Finding out whether the RBS re-derivation is required or NOT';
815: print_msg(pa_debug.g_err_stage,l_module_name);
816: END IF;
817:
818: IF x_rlm_id_change_flag_tbl(i)='Y' THEN
819:
900: -- of the planning transaction. Quantities and amounts to be passed to calculate api
901: -- is derved as per the logic below
902: -- Details - /padev/pa/11.5/docs/CalcAPI_Behavior_Document2.doc
903: IF l_debug_mode = 'Y' THEN
904: pa_debug.g_err_stage:='Deriving Amts/Qty for rbs element id change';
905: print_msg(pa_debug.g_err_stage,l_module_name);
906: END IF;
907:
908: IF px_total_qty_tbl(i) IS NOT NULL AND px_total_qty_tbl(i) <> FND_API.G_MISS_NUM THEN
901: -- is derved as per the logic below
902: -- Details - /padev/pa/11.5/docs/CalcAPI_Behavior_Document2.doc
903: IF l_debug_mode = 'Y' THEN
904: pa_debug.g_err_stage:='Deriving Amts/Qty for rbs element id change';
905: print_msg(pa_debug.g_err_stage,l_module_name);
906: END IF;
907:
908: IF px_total_qty_tbl(i) IS NOT NULL AND px_total_qty_tbl(i) <> FND_API.G_MISS_NUM THEN
909:
907:
908: IF px_total_qty_tbl(i) IS NOT NULL AND px_total_qty_tbl(i) <> FND_API.G_MISS_NUM THEN
909:
910: IF l_debug_mode = 'Y' THEN
911: pa_debug.g_err_stage:='RBS Input Quantity Exists Set Amts to NULL';
912: print_msg(pa_debug.g_err_stage,l_module_name);
913: END IF;
914:
915: px_total_raw_cost_tbl(i) := NULL;
908: IF px_total_qty_tbl(i) IS NOT NULL AND px_total_qty_tbl(i) <> FND_API.G_MISS_NUM THEN
909:
910: IF l_debug_mode = 'Y' THEN
911: pa_debug.g_err_stage:='RBS Input Quantity Exists Set Amts to NULL';
912: print_msg(pa_debug.g_err_stage,l_module_name);
913: END IF;
914:
915: px_total_raw_cost_tbl(i) := NULL;
916: px_total_burdened_cost_tbl(i) := NULL;
939:
940: ELSIF px_total_qty_tbl(i) = FND_API.G_MISS_NUM THEN
941:
942: IF l_debug_mode = 'Y' THEN
943: pa_debug.g_err_stage:='RBS Input Quantity IS G_MISS_NUM Set Amts to G_MISS_NUM';
944: print_msg(pa_debug.g_err_stage,l_module_name);
945: END IF;
946:
947: px_total_raw_cost_tbl(i) := FND_API.G_MISS_NUM;
940: ELSIF px_total_qty_tbl(i) = FND_API.G_MISS_NUM THEN
941:
942: IF l_debug_mode = 'Y' THEN
943: pa_debug.g_err_stage:='RBS Input Quantity IS G_MISS_NUM Set Amts to G_MISS_NUM';
944: print_msg(pa_debug.g_err_stage,l_module_name);
945: END IF;
946:
947: px_total_raw_cost_tbl(i) := FND_API.G_MISS_NUM;
948: px_total_burdened_cost_tbl(i) := FND_API.G_MISS_NUM;
968:
969: ELSE -- px_total_qty_tbl IS NULL
970:
971: IF l_debug_mode = 'Y' THEN
972: pa_debug.g_err_stage:='RBS Input Quantity IS NULL See in DB';
973: print_msg(pa_debug.g_err_stage,l_module_name);
974: END IF;
975: --dbms_output.put_line('7.3.1');
976:
969: ELSE -- px_total_qty_tbl IS NULL
970:
971: IF l_debug_mode = 'Y' THEN
972: pa_debug.g_err_stage:='RBS Input Quantity IS NULL See in DB';
973: print_msg(pa_debug.g_err_stage,l_module_name);
974: END IF;
975: --dbms_output.put_line('7.3.1');
976:
977: OPEN c_data_in_db_csr(p_resource_assignment_id_tbl(i));
980:
981: IF c_data_in_db_csr%FOUND THEN
982:
983: IF l_debug_mode = 'Y' THEN
984: pa_debug.g_err_stage:='RBS Quantity found in DB, Set Amounts to NULL';
985: print_msg(pa_debug.g_err_stage,l_module_name);
986: END IF;
987: px_total_qty_tbl(i) := l_data_in_db_rec.quantity;
988: px_total_raw_cost_tbl(i) := NULL;
981: IF c_data_in_db_csr%FOUND THEN
982:
983: IF l_debug_mode = 'Y' THEN
984: pa_debug.g_err_stage:='RBS Quantity found in DB, Set Amounts to NULL';
985: print_msg(pa_debug.g_err_stage,l_module_name);
986: END IF;
987: px_total_qty_tbl(i) := l_data_in_db_rec.quantity;
988: px_total_raw_cost_tbl(i) := NULL;
989: px_total_burdened_cost_tbl(i) := NULL;
1007:
1008: ELSE -- If c_data_in_db_csr is not FOUND
1009:
1010: IF l_debug_mode = 'Y' THEN
1011: pa_debug.g_err_stage:='RBS NO Record in DB';
1012: print_msg(pa_debug.g_err_stage,l_module_name);
1013: END IF;
1014:
1015: px_total_qty_tbl(i) := NULL;
1008: ELSE -- If c_data_in_db_csr is not FOUND
1009:
1010: IF l_debug_mode = 'Y' THEN
1011: pa_debug.g_err_stage:='RBS NO Record in DB';
1012: print_msg(pa_debug.g_err_stage,l_module_name);
1013: END IF;
1014:
1015: px_total_qty_tbl(i) := NULL;
1016: px_total_raw_cost_tbl(i) := NULL;
1063: may not be passed) . No delete flag is required as all the lines have already
1064: been removed. */
1065:
1066: IF l_debug_mode = 'Y' THEN
1067: pa_debug.g_err_stage:='Calling API delete_planning_transactions ';
1068: pa_debug.write(l_module_name,pa_debug.g_err_stage, 5);
1069: END IF;
1070: --dbms_output.put_line('7.5');
1071:
1064: been removed. */
1065:
1066: IF l_debug_mode = 'Y' THEN
1067: pa_debug.g_err_stage:='Calling API delete_planning_transactions ';
1068: pa_debug.write(l_module_name,pa_debug.g_err_stage, 5);
1069: END IF;
1070: --dbms_output.put_line('7.5');
1071:
1072: pa_fp_planning_transaction_pub.delete_planning_transactions
1088:
1089: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1090:
1091: IF l_debug_mode = 'Y' THEN
1092: pa_debug.g_err_stage:='Called API delete_planning_transactions returned error';
1093: pa_debug.write(l_module_name,pa_debug.g_err_stage, 5);
1094: END IF;
1095: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1096:
1089: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1090:
1091: IF l_debug_mode = 'Y' THEN
1092: pa_debug.g_err_stage:='Called API delete_planning_transactions returned error';
1093: pa_debug.write(l_module_name,pa_debug.g_err_stage, 5);
1094: END IF;
1095: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1096:
1097: END IF;
1103: --Call the rbs mapping api only if there are some resource assignments for which the rbs_element_id can change
1104: IF l_rbs_map_index>0 THEN
1105:
1106: IF l_debug_mode = 'Y' THEN
1107: pa_debug.g_err_stage:='Calling PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs';
1108: print_msg(pa_debug.g_err_stage,l_module_name);
1109: END IF;
1110:
1111: --Extend the output pl/sql tbls l_rbs_element_id_tbl and l_txn_accum_header_id_tbl so that they contatin
1104: IF l_rbs_map_index>0 THEN
1105:
1106: IF l_debug_mode = 'Y' THEN
1107: pa_debug.g_err_stage:='Calling PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs';
1108: print_msg(pa_debug.g_err_stage,l_module_name);
1109: END IF;
1110:
1111: --Extend the output pl/sql tbls l_rbs_element_id_tbl and l_txn_accum_header_id_tbl so that they contatin
1112: --the same no of records as l_eligible_rlm_ids_tbl
1154:
1155: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1156:
1157: IF l_debug_mode = 'Y' THEN
1158: pa_debug.g_err_stage:='Called API PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs returned error';
1159: pa_debug.write(l_module_name,pa_debug.g_err_stage, 5);
1160: END IF;
1161: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1162:
1155: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1156:
1157: IF l_debug_mode = 'Y' THEN
1158: pa_debug.g_err_stage:='Called API PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs returned error';
1159: pa_debug.write(l_module_name,pa_debug.g_err_stage, 5);
1160: END IF;
1161: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1162:
1163: END IF;
1173: --dbms_output.put_line('7.9');
1174: --Initialise the indexes so that they can be re-used in the loop below
1175: l_rbs_map_index:=1;
1176: IF l_debug_mode = 'Y' THEN
1177: pa_debug.g_err_stage:='About to loop thru to create the pl/sql tables for rbs element id ';
1178: print_msg(pa_debug.g_err_stage,l_module_name);
1179: END IF;
1180: -- Loop thru the input ra id tbl and change the value of rbs_element_id
1181: -- depending on the value returned by the above apis. Here it is assumed that the called APIs
1174: --Initialise the indexes so that they can be re-used in the loop below
1175: l_rbs_map_index:=1;
1176: IF l_debug_mode = 'Y' THEN
1177: pa_debug.g_err_stage:='About to loop thru to create the pl/sql tables for rbs element id ';
1178: print_msg(pa_debug.g_err_stage,l_module_name);
1179: END IF;
1180: -- Loop thru the input ra id tbl and change the value of rbs_element_id
1181: -- depending on the value returned by the above apis. Here it is assumed that the called APIs
1182: -- returns the output in the order in which the inputs are passed.
1200: END IF;--IF l_rbs_map_index>0 OR
1201: --dbms_output.put_line('10');
1202:
1203: IF l_debug_mode = 'Y' THEN
1204: pa_debug.g_err_stage:='Leaving Process_res_chg_Derv_calc_prms API';
1205: print_msg(pa_debug.g_err_stage,l_module_name);
1206: pa_debug.reset_curr_function;
1207: END IF;
1208: EXCEPTION
1201: --dbms_output.put_line('10');
1202:
1203: IF l_debug_mode = 'Y' THEN
1204: pa_debug.g_err_stage:='Leaving Process_res_chg_Derv_calc_prms API';
1205: print_msg(pa_debug.g_err_stage,l_module_name);
1206: pa_debug.reset_curr_function;
1207: END IF;
1208: EXCEPTION
1209: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1202:
1203: IF l_debug_mode = 'Y' THEN
1204: pa_debug.g_err_stage:='Leaving Process_res_chg_Derv_calc_prms API';
1205: print_msg(pa_debug.g_err_stage,l_module_name);
1206: pa_debug.reset_curr_function;
1207: END IF;
1208: EXCEPTION
1209: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1210: l_msg_count := FND_MSG_PUB.count_msg;
1222: x_msg_count := l_msg_count;
1223: END IF;
1224: x_return_status := FND_API.G_RET_STS_ERROR;
1225: IF l_debug_mode = 'Y' THEN
1226: pa_debug.reset_curr_function;
1227: END IF;
1228: WHEN OTHERS THEN
1229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1230: x_msg_count := 1;
1232: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_PLANNING_TRANSACTION_PUB'
1233: ,p_procedure_name => 'Process_res_chg_Derv_calc_prms');
1234:
1235: IF l_debug_mode = 'Y' THEN
1236: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1237: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
1238: pa_debug.reset_curr_function;
1239: END IF;
1240: RAISE;
1233: ,p_procedure_name => 'Process_res_chg_Derv_calc_prms');
1234:
1235: IF l_debug_mode = 'Y' THEN
1236: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1237: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
1238: pa_debug.reset_curr_function;
1239: END IF;
1240: RAISE;
1241:
1234:
1235: IF l_debug_mode = 'Y' THEN
1236: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1237: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
1238: pa_debug.reset_curr_function;
1239: END IF;
1240: RAISE;
1241:
1242: END Process_res_chg_Derv_calc_prms;
1639: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
1640:
1641: SAVEPOINT ADD_PLANNING_TRANS_SP;
1642: l_direct_expenditure_type_tbl :=p_expenditure_type_tbl;
1643: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1644: l_debug_mode := NVL(l_debug_mode, 'Y');
1645:
1646: IF p_pji_rollup_required = 'Y' THEN
1647: l_pji_rollup_required := 'Y';
1655:
1656: x_msg_count := 0;
1657: x_return_status := FND_API.G_RET_STS_SUCCESS;
1658: IF l_debug_mode = 'Y' THEN
1659: PA_DEBUG.Set_Curr_Function( p_function => 'PA_FP_PLAN_TXN_PUB.add_planning_transactions',
1660: p_debug_mode => l_debug_mode );
1661: END IF;
1662:
1663: --p_context should never be null
1667: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
1668: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET ) THEN
1669:
1670: IF l_debug_mode = 'Y' THEN
1671: pa_debug.g_err_stage:='p_context passed is '||p_context;
1672: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1673: END IF;
1674: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1675: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1668: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET ) THEN
1669:
1670: IF l_debug_mode = 'Y' THEN
1671: pa_debug.g_err_stage:='p_context passed is '||p_context;
1672: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1673: END IF;
1674: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1675: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1676: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1682: -- Modified Validation Below for Only WORKPLAN Context - Changes for Bug 3665097
1683: IF (p_one_to_one_mapping_flag = 'Y'
1684: AND p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN) THEN
1685: IF l_debug_mode = 'Y' THEN
1686: pa_debug.g_err_stage:='p_one_to_one_mapping_flag passed as Y for WORKPLAN context :'||p_context;
1687: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1688: END IF;
1689: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1690: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1683: IF (p_one_to_one_mapping_flag = 'Y'
1684: AND p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN) THEN
1685: IF l_debug_mode = 'Y' THEN
1686: pa_debug.g_err_stage:='p_one_to_one_mapping_flag passed as Y for WORKPLAN context :'||p_context;
1687: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1688: END IF;
1689: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1690: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1691: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1698: IF (p_one_to_one_mapping_flag = 'Y' AND
1699: p_task_elem_version_id_tbl.COUNT <> p_resource_list_member_id_tbl.COUNT) THEN
1700:
1701: IF l_debug_mode = 'Y' THEN
1702: pa_debug.g_err_stage:='Table Count Mismatch for p_one_to_one_mapping_flag Y in : '||p_context;
1703: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1704: END IF;
1705: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1706: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1699: p_task_elem_version_id_tbl.COUNT <> p_resource_list_member_id_tbl.COUNT) THEN
1700:
1701: IF l_debug_mode = 'Y' THEN
1702: pa_debug.g_err_stage:='Table Count Mismatch for p_one_to_one_mapping_flag Y in : '||p_context;
1703: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1704: END IF;
1705: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1706: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1707: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1714: IF (p_one_to_one_mapping_flag = 'N' AND
1715: (p_planning_start_date_tbl.COUNT <> 0 OR p_planning_end_date_tbl.COUNT <> 0)) THEN
1716:
1717: IF l_debug_mode = 'Y' THEN
1718: pa_debug.g_err_stage:='Planning Date Passed when one to one mapping is N';
1719: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1720: END IF;
1721: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1722: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1715: (p_planning_start_date_tbl.COUNT <> 0 OR p_planning_end_date_tbl.COUNT <> 0)) THEN
1716:
1717: IF l_debug_mode = 'Y' THEN
1718: pa_debug.g_err_stage:='Planning Date Passed when one to one mapping is N';
1719: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1720: END IF;
1721: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1722: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1723: p_token1 => 'PROCEDURENAME',
1731: -- Bug 3793623 Planning Start Date and Planning End Date Should have the same
1732: -- number of records
1733: IF (p_planning_start_date_tbl.COUNT <> p_planning_end_date_tbl.COUNT) THEN
1734: IF l_debug_mode = 'Y' THEN
1735: pa_debug.g_err_stage:='Planning Start Date - End Date MISMATCH p_context :'||p_context;
1736: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1737: END IF;
1738: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1739: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1732: -- number of records
1733: IF (p_planning_start_date_tbl.COUNT <> p_planning_end_date_tbl.COUNT) THEN
1734: IF l_debug_mode = 'Y' THEN
1735: pa_debug.g_err_stage:='Planning Start Date - End Date MISMATCH p_context :'||p_context;
1736: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1737: END IF;
1738: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1739: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1740: p_token1 => 'PROCEDURENAME',
1748: -- task_elem_version_id COUNT
1749: IF (p_planning_start_date_tbl.COUNT >0) THEN
1750: IF (p_planning_start_date_tbl.COUNT <> p_task_elem_version_id_tbl.COUNT) THEN
1751: IF l_debug_mode = 'Y' THEN
1752: pa_debug.g_err_stage:='Planning Start Date - Task Elem Mismatch :'||p_context;
1753: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1754: END IF;
1755: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1756: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1749: IF (p_planning_start_date_tbl.COUNT >0) THEN
1750: IF (p_planning_start_date_tbl.COUNT <> p_task_elem_version_id_tbl.COUNT) THEN
1751: IF l_debug_mode = 'Y' THEN
1752: pa_debug.g_err_stage:='Planning Start Date - Task Elem Mismatch :'||p_context;
1753: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1754: END IF;
1755: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1756: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1757: p_token1 => 'PROCEDURENAME',
1785: -- duplicate rlm/elem_ver ids cannot be passed
1786: IF p_one_to_one_mapping_flag = 'N' THEN
1787: IF p_skip_duplicates_flag = 'N' THEN
1788: IF l_debug_mode = 'Y' THEN
1789: pa_debug.g_err_stage:='Checking for duplicate rlm ids passed';
1790: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1791: END IF;
1792: IF p_resource_list_member_id_tbl.COUNT > 0 THEN
1793: FOR i IN p_resource_list_member_id_tbl.FIRST .. (p_resource_list_member_id_tbl.LAST-1) LOOP
1786: IF p_one_to_one_mapping_flag = 'N' THEN
1787: IF p_skip_duplicates_flag = 'N' THEN
1788: IF l_debug_mode = 'Y' THEN
1789: pa_debug.g_err_stage:='Checking for duplicate rlm ids passed';
1790: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1791: END IF;
1792: IF p_resource_list_member_id_tbl.COUNT > 0 THEN
1793: FOR i IN p_resource_list_member_id_tbl.FIRST .. (p_resource_list_member_id_tbl.LAST-1) LOOP
1794: FOR j in (i+1) .. p_resource_list_member_id_tbl.LAST LOOP
1794: FOR j in (i+1) .. p_resource_list_member_id_tbl.LAST LOOP
1795: IF p_resource_list_member_id_tbl(j) = p_resource_list_member_id_tbl(i) THEN
1796: IF (l_prj_cbs_enabled = 'N' OR p_cbs_element_id_tbl.count <1) THEN
1797: IF l_debug_mode = 'Y' THEN
1798: pa_debug.g_err_stage:='Dup RLM ID Passed';
1799: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1800: END IF;
1801: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1802: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1795: IF p_resource_list_member_id_tbl(j) = p_resource_list_member_id_tbl(i) THEN
1796: IF (l_prj_cbs_enabled = 'N' OR p_cbs_element_id_tbl.count <1) THEN
1797: IF l_debug_mode = 'Y' THEN
1798: pa_debug.g_err_stage:='Dup RLM ID Passed';
1799: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1800: END IF;
1801: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1802: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1803: p_token1 => 'PROCEDURENAME',
1807: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1808: ELSE
1809: IF p_cbs_element_id_tbl(j) = p_cbs_element_id_tbl(i) THEN
1810: IF l_debug_mode = 'Y' THEN
1811: pa_debug.g_err_stage:='Dup RLM ID Passed';
1812: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1813: END IF;
1814: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1815: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1808: ELSE
1809: IF p_cbs_element_id_tbl(j) = p_cbs_element_id_tbl(i) THEN
1810: IF l_debug_mode = 'Y' THEN
1811: pa_debug.g_err_stage:='Dup RLM ID Passed';
1812: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1813: END IF;
1814: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1815: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1816: p_token1 => 'PROCEDURENAME',
1824: END LOOP;
1825: END LOOP;
1826: END IF;
1827: IF l_debug_mode = 'Y' THEN
1828: pa_debug.g_err_stage:='Checking for duplicate elem ver ids passed';
1829: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1830: END IF;
1831: IF p_task_elem_version_id_tbl.COUNT > 0 THEN
1832: FOR i IN p_task_elem_version_id_tbl.FIRST .. (p_task_elem_version_id_tbl.LAST-1) LOOP
1825: END LOOP;
1826: END IF;
1827: IF l_debug_mode = 'Y' THEN
1828: pa_debug.g_err_stage:='Checking for duplicate elem ver ids passed';
1829: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1830: END IF;
1831: IF p_task_elem_version_id_tbl.COUNT > 0 THEN
1832: FOR i IN p_task_elem_version_id_tbl.FIRST .. (p_task_elem_version_id_tbl.LAST-1) LOOP
1833: FOR j in (i+1) .. p_task_elem_version_id_tbl.LAST LOOP
1832: FOR i IN p_task_elem_version_id_tbl.FIRST .. (p_task_elem_version_id_tbl.LAST-1) LOOP
1833: FOR j in (i+1) .. p_task_elem_version_id_tbl.LAST LOOP
1834: IF p_task_elem_version_id_tbl(j) = p_task_elem_version_id_tbl(i) THEN
1835: IF l_debug_mode = 'Y' THEN
1836: pa_debug.g_err_stage:='Dup ELEM VER ID Passed';
1837: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1838: END IF;
1839: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1840: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1833: FOR j in (i+1) .. p_task_elem_version_id_tbl.LAST LOOP
1834: IF p_task_elem_version_id_tbl(j) = p_task_elem_version_id_tbl(i) THEN
1835: IF l_debug_mode = 'Y' THEN
1836: pa_debug.g_err_stage:='Dup ELEM VER ID Passed';
1837: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1838: END IF;
1839: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1840: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1841: p_token1 => 'PROCEDURENAME',
1864: IF p_currency_code_tbl.COUNT > 0 THEN
1865: IF p_currency_code_tbl(i) = p_currency_code_tbl(j) THEN
1866: IF (l_prj_cbs_enabled = 'N' OR p_cbs_element_id_tbl.count <1) THEN
1867: IF l_debug_mode = 'Y' THEN
1868: pa_debug.g_err_stage:='Dup Rec passed - Curr Code (B/F) - will error out in Ins Stat';
1869: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1870: END IF;
1871: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1872: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1865: IF p_currency_code_tbl(i) = p_currency_code_tbl(j) THEN
1866: IF (l_prj_cbs_enabled = 'N' OR p_cbs_element_id_tbl.count <1) THEN
1867: IF l_debug_mode = 'Y' THEN
1868: pa_debug.g_err_stage:='Dup Rec passed - Curr Code (B/F) - will error out in Ins Stat';
1869: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1870: END IF;
1871: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1872: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1873: p_token1 => 'PROCEDURENAME',
1877: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1878: ELSE
1879: IF p_cbs_element_id_tbl(j) = p_cbs_element_id_tbl(i) THEN
1880: IF l_debug_mode = 'Y' THEN
1881: pa_debug.g_err_stage:='Dup Rec passed - Curr Code (B/F) - will error out in Ins Stat';
1882: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1883: END IF;
1884: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1885: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1878: ELSE
1879: IF p_cbs_element_id_tbl(j) = p_cbs_element_id_tbl(i) THEN
1880: IF l_debug_mode = 'Y' THEN
1881: pa_debug.g_err_stage:='Dup Rec passed - Curr Code (B/F) - will error out in Ins Stat';
1882: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1883: END IF;
1884: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1885: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1886: p_token1 => 'PROCEDURENAME',
1893: END IF;
1894: ELSE
1895: IF (l_prj_cbs_enabled = 'N' OR p_cbs_element_id_tbl.count <1) THEN
1896: IF l_debug_mode = 'Y' THEN
1897: pa_debug.g_err_stage:='Dup Rec passed - Curr Code (B/F) - will error out in Ins Stat';
1898: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1899: END IF;
1900: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1901: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1894: ELSE
1895: IF (l_prj_cbs_enabled = 'N' OR p_cbs_element_id_tbl.count <1) THEN
1896: IF l_debug_mode = 'Y' THEN
1897: pa_debug.g_err_stage:='Dup Rec passed - Curr Code (B/F) - will error out in Ins Stat';
1898: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1899: END IF;
1900: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1901: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1902: p_token1 => 'PROCEDURENAME',
1906: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1907: ELSE
1908: IF p_cbs_element_id_tbl(j) = p_cbs_element_id_tbl(i) THEN
1909: IF l_debug_mode = 'Y' THEN
1910: pa_debug.g_err_stage:='Dup Rec passed - Curr Code (B/F) - will error out in Ins Stat';
1911: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1912: END IF;
1913: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1914: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1907: ELSE
1908: IF p_cbs_element_id_tbl(j) = p_cbs_element_id_tbl(i) THEN
1909: IF l_debug_mode = 'Y' THEN
1910: pa_debug.g_err_stage:='Dup Rec passed - Curr Code (B/F) - will error out in Ins Stat';
1911: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1912: END IF;
1913: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1914: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1915: p_token1 => 'PROCEDURENAME',
1934: IF ( (p_task_elem_version_id_tbl(i) = p_task_elem_version_id_tbl(j)) AND
1935: (p_resource_list_member_id_tbl(i) = p_resource_list_member_id_tbl(j))) THEN
1936: IF (l_prj_cbs_enabled = 'N' OR p_cbs_element_id_tbl.count <1) THEN
1937: IF l_debug_mode = 'Y' THEN
1938: pa_debug.g_err_stage:='Dup Rec passed - will error out in Ins Stat p_context :'||p_context;
1939: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1940: END IF;
1941: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1942: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1935: (p_resource_list_member_id_tbl(i) = p_resource_list_member_id_tbl(j))) THEN
1936: IF (l_prj_cbs_enabled = 'N' OR p_cbs_element_id_tbl.count <1) THEN
1937: IF l_debug_mode = 'Y' THEN
1938: pa_debug.g_err_stage:='Dup Rec passed - will error out in Ins Stat p_context :'||p_context;
1939: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1940: END IF;
1941: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1942: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1943: p_token1 => 'PROCEDURENAME',
1947: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1948: ELSE
1949: IF p_cbs_element_id_tbl(j) = p_cbs_element_id_tbl(i) THEN
1950: IF l_debug_mode = 'Y' THEN
1951: pa_debug.g_err_stage:='Dup Rec passed - will error out in Ins Stat p_context :'||p_context;
1952: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1953: END IF;
1954: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1955: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1948: ELSE
1949: IF p_cbs_element_id_tbl(j) = p_cbs_element_id_tbl(i) THEN
1950: IF l_debug_mode = 'Y' THEN
1951: pa_debug.g_err_stage:='Dup Rec passed - will error out in Ins Stat p_context :'||p_context;
1952: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1953: END IF;
1954: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1955: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1956: p_token1 => 'PROCEDURENAME',
1970:
1971: IF l_debug_mode = 'Y' THEN
1972: IF p_task_elem_version_id_tbl.COUNT > 0 THEN
1973: FOR i in p_task_elem_version_id_tbl.FIRST .. p_task_elem_version_id_tbl.LAST LOOP
1974: pa_debug.g_err_stage:='p_task_elem_version_id_tbl :'||p_task_elem_version_id_tbl(i);
1975: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1976: END LOOP;
1977: END IF;
1978:
1971: IF l_debug_mode = 'Y' THEN
1972: IF p_task_elem_version_id_tbl.COUNT > 0 THEN
1973: FOR i in p_task_elem_version_id_tbl.FIRST .. p_task_elem_version_id_tbl.LAST LOOP
1974: pa_debug.g_err_stage:='p_task_elem_version_id_tbl :'||p_task_elem_version_id_tbl(i);
1975: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1976: END LOOP;
1977: END IF;
1978:
1979: IF p_resource_list_member_id_tbl.COUNT > 0 THEN
1977: END IF;
1978:
1979: IF p_resource_list_member_id_tbl.COUNT > 0 THEN
1980: FOR i in p_resource_list_member_id_tbl.FIRST .. p_resource_list_member_id_tbl.LAST LOOP
1981: pa_debug.g_err_stage:='p_resource_list_member_id_tbl :'||p_resource_list_member_id_tbl(i);
1982: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1983: END LOOP;
1984: END IF;
1985:
1978:
1979: IF p_resource_list_member_id_tbl.COUNT > 0 THEN
1980: FOR i in p_resource_list_member_id_tbl.FIRST .. p_resource_list_member_id_tbl.LAST LOOP
1981: pa_debug.g_err_stage:='p_resource_list_member_id_tbl :'||p_resource_list_member_id_tbl(i);
1982: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1983: END LOOP;
1984: END IF;
1985:
1986: IF p_currency_code_tbl.COUNT > 0 THEN
1984: END IF;
1985:
1986: IF p_currency_code_tbl.COUNT > 0 THEN
1987: FOR i in p_currency_code_tbl.FIRST .. p_currency_code_tbl.LAST LOOP
1988: pa_debug.g_err_stage:='p_currency_code_tbl :'||p_currency_code_tbl(i);
1989: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1990: END LOOP;
1991: END IF;
1992: END IF;
1985:
1986: IF p_currency_code_tbl.COUNT > 0 THEN
1987: FOR i in p_currency_code_tbl.FIRST .. p_currency_code_tbl.LAST LOOP
1988: pa_debug.g_err_stage:='p_currency_code_tbl :'||p_currency_code_tbl(i);
1989: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1990: END LOOP;
1991: END IF;
1992: END IF;
1993:
2006: l_trace_stage := 20;
2007: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2008:
2009: IF l_debug_mode = 'Y' THEN
2010: pa_debug.g_err_stage:='Extending all table lengths to the permissible values they would take - p_context = '||p_context;
2011: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2012: END IF;
2013:
2014: l_task_elem_rlm_tbl.extend(l_rlm_id_no_of_rows);
2007: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2008:
2009: IF l_debug_mode = 'Y' THEN
2010: pa_debug.g_err_stage:='Extending all table lengths to the permissible values they would take - p_context = '||p_context;
2011: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2012: END IF;
2013:
2014: l_task_elem_rlm_tbl.extend(l_rlm_id_no_of_rows);
2015: l_proj_elem_rlm_tbl.extend(l_rlm_id_no_of_rows);
2191: l_trace_stage := 140;
2192: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2193:
2194: IF l_debug_mode = 'Y' THEN
2195: pa_debug.g_err_stage:='Validating input parameters - count of p_task_elem_version_id_tbl = '||l_elem_version_id_count;
2196: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2197: END IF;
2198:
2199: IF l_elem_version_id_count = 0 THEN
2192: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2193:
2194: IF l_debug_mode = 'Y' THEN
2195: pa_debug.g_err_stage:='Validating input parameters - count of p_task_elem_version_id_tbl = '||l_elem_version_id_count;
2196: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2197: END IF;
2198:
2199: IF l_elem_version_id_count = 0 THEN
2200: l_trace_stage := 150;
2199: IF l_elem_version_id_count = 0 THEN
2200: l_trace_stage := 150;
2201: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2202: IF l_debug_mode = 'Y' THEN
2203: pa_debug.g_err_stage:='Validating input parameters - elem_version_id table is empty - p_context = '||p_context;
2204: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2205: --dbms_output.put_line('Tasks tbl is empty for BF -- returning');
2206: pa_debug.reset_curr_function;
2207: END IF;
2200: l_trace_stage := 150;
2201: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2202: IF l_debug_mode = 'Y' THEN
2203: pa_debug.g_err_stage:='Validating input parameters - elem_version_id table is empty - p_context = '||p_context;
2204: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2205: --dbms_output.put_line('Tasks tbl is empty for BF -- returning');
2206: pa_debug.reset_curr_function;
2207: END IF;
2208: RETURN;
2202: IF l_debug_mode = 'Y' THEN
2203: pa_debug.g_err_stage:='Validating input parameters - elem_version_id table is empty - p_context = '||p_context;
2204: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2205: --dbms_output.put_line('Tasks tbl is empty for BF -- returning');
2206: pa_debug.reset_curr_function;
2207: END IF;
2208: RETURN;
2209: END IF;
2210: END IF;
2216: IF (p_end_date_tbl.COUNT <> p_start_date_tbl.COUNT) OR
2217: (p_start_date_tbl.COUNT <> p_task_elem_version_id_tbl.COUNT) THEN
2218:
2219: IF l_debug_mode = 'Y' THEN
2220: pa_debug.g_err_stage:='Invalid pl/sql tables for start and end dates';
2221: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2222: END IF;
2223: --dbms_output.put_line('$$$$%%%');
2224: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2217: (p_start_date_tbl.COUNT <> p_task_elem_version_id_tbl.COUNT) THEN
2218:
2219: IF l_debug_mode = 'Y' THEN
2220: pa_debug.g_err_stage:='Invalid pl/sql tables for start and end dates';
2221: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2222: END IF;
2223: --dbms_output.put_line('$$$$%%%');
2224: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2225: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2235: IF NOT(p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN) THEN
2236: l_rlm_id_tbl_count := p_resource_list_member_id_tbl.COUNT;
2237:
2238: IF l_debug_mode = 'Y' THEN
2239: pa_debug.g_err_stage:='Validating input parameters - count of p_resource_list_member_id_tbl = '||l_rlm_id_tbl_count;
2240: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2241: END IF;
2242:
2243: IF l_rlm_id_tbl_count = 0 THEN
2236: l_rlm_id_tbl_count := p_resource_list_member_id_tbl.COUNT;
2237:
2238: IF l_debug_mode = 'Y' THEN
2239: pa_debug.g_err_stage:='Validating input parameters - count of p_resource_list_member_id_tbl = '||l_rlm_id_tbl_count;
2240: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2241: END IF;
2242:
2243: IF l_rlm_id_tbl_count = 0 THEN
2244:
2242:
2243: IF l_rlm_id_tbl_count = 0 THEN
2244:
2245: IF l_debug_mode = 'Y' THEN
2246: pa_debug.g_err_stage:='Validating input parameters - Resource List Member Id table is empty - p_context = '||p_context;
2247: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2248: --dbms_output.put_line('Rlm tbl is empty for BF -- returning');
2249: pa_debug.reset_curr_function;
2250: END IF;
2243: IF l_rlm_id_tbl_count = 0 THEN
2244:
2245: IF l_debug_mode = 'Y' THEN
2246: pa_debug.g_err_stage:='Validating input parameters - Resource List Member Id table is empty - p_context = '||p_context;
2247: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2248: --dbms_output.put_line('Rlm tbl is empty for BF -- returning');
2249: pa_debug.reset_curr_function;
2250: END IF;
2251: RETURN;
2245: IF l_debug_mode = 'Y' THEN
2246: pa_debug.g_err_stage:='Validating input parameters - Resource List Member Id table is empty - p_context = '||p_context;
2247: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2248: --dbms_output.put_line('Rlm tbl is empty for BF -- returning');
2249: pa_debug.reset_curr_function;
2250: END IF;
2251: RETURN;
2252: END IF;
2253:
2258: l_trace_stage := 40;
2259: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2260:
2261: IF l_debug_mode = 'Y' THEN
2262: pa_debug.g_err_stage:='Validating input parameters - checking for project id : ' || p_project_id;
2263: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2264: END IF;
2265:
2266: l_trace_stage := 50;
2259: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2260:
2261: IF l_debug_mode = 'Y' THEN
2262: pa_debug.g_err_stage:='Validating input parameters - checking for project id : ' || p_project_id;
2263: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2264: END IF;
2265:
2266: l_trace_stage := 50;
2267: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2270: -- 1. p_project_id cannot be null
2271: -------------------------------------------------------------------------------------------
2272: IF (p_project_id IS NULL) THEN
2273: IF l_debug_mode = 'Y' THEN
2274: pa_debug.g_err_stage:='p_project_id is null';
2275: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2276: END IF;
2277: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2278: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2271: -------------------------------------------------------------------------------------------
2272: IF (p_project_id IS NULL) THEN
2273: IF l_debug_mode = 'Y' THEN
2274: pa_debug.g_err_stage:='p_project_id is null';
2275: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2276: END IF;
2277: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2278: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2279: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2295: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2296: IF p_struct_elem_version_id IS NULL THEN
2297:
2298: IF l_debug_mode = 'Y' THEN
2299: pa_debug.g_err_stage:='p_struct_elem_version_id is NULL and p_context = ' || p_context;
2300: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2301: END IF;
2302: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2303: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2296: IF p_struct_elem_version_id IS NULL THEN
2297:
2298: IF l_debug_mode = 'Y' THEN
2299: pa_debug.g_err_stage:='p_struct_elem_version_id is NULL and p_context = ' || p_context;
2300: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2301: END IF;
2302: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2303: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2304: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2308: l_trace_stage := 80;
2309: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2310:
2311: IF l_debug_mode = 'Y' THEN
2312: pa_debug.g_err_stage:='calling pa_planning_transaction_utils.get_wp_budget_version_id p_struct_elem_version_id = ' || p_struct_elem_version_id;
2313: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2314: pa_debug.g_err_stage:='calling pa_planning_transaction_utils.get_wp_budget_version_id for deriving budget_version_id = ' || p_context;
2315: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2316: END IF;
2309: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2310:
2311: IF l_debug_mode = 'Y' THEN
2312: pa_debug.g_err_stage:='calling pa_planning_transaction_utils.get_wp_budget_version_id p_struct_elem_version_id = ' || p_struct_elem_version_id;
2313: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2314: pa_debug.g_err_stage:='calling pa_planning_transaction_utils.get_wp_budget_version_id for deriving budget_version_id = ' || p_context;
2315: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2316: END IF;
2317:
2310:
2311: IF l_debug_mode = 'Y' THEN
2312: pa_debug.g_err_stage:='calling pa_planning_transaction_utils.get_wp_budget_version_id p_struct_elem_version_id = ' || p_struct_elem_version_id;
2313: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2314: pa_debug.g_err_stage:='calling pa_planning_transaction_utils.get_wp_budget_version_id for deriving budget_version_id = ' || p_context;
2315: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2316: END IF;
2317:
2318: l_budget_version_id := pa_planning_transaction_utils.get_wp_budget_version_id(p_struct_elem_version_id);
2311: IF l_debug_mode = 'Y' THEN
2312: pa_debug.g_err_stage:='calling pa_planning_transaction_utils.get_wp_budget_version_id p_struct_elem_version_id = ' || p_struct_elem_version_id;
2313: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2314: pa_debug.g_err_stage:='calling pa_planning_transaction_utils.get_wp_budget_version_id for deriving budget_version_id = ' || p_context;
2315: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2316: END IF;
2317:
2318: l_budget_version_id := pa_planning_transaction_utils.get_wp_budget_version_id(p_struct_elem_version_id);
2319:
2330:
2331: -- 4504452.Added this if codition to get the return status.
2332: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2333: IF l_debug_mode = 'Y' THEN
2334: pa_debug.g_err_stage:='Called API pa_fp_planning_transaction_pub.add_wp_plan_type api returned error';
2335: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2336: END IF;
2337: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2338: END IF;
2331: -- 4504452.Added this if codition to get the return status.
2332: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2333: IF l_debug_mode = 'Y' THEN
2334: pa_debug.g_err_stage:='Called API pa_fp_planning_transaction_pub.add_wp_plan_type api returned error';
2335: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2336: END IF;
2337: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2338: END IF;
2339: -----------------------------------------------------
2343: l_trace_stage := 110;
2344: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2345:
2346: IF l_debug_mode = 'Y' THEN
2347: pa_debug.g_err_stage:='calling pa_fin_plan_pub.create_version api = ' || p_context;
2348: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2349: END IF;
2350:
2351: SELECT fin_plan_type_id
2344: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2345:
2346: IF l_debug_mode = 'Y' THEN
2347: pa_debug.g_err_stage:='calling pa_fin_plan_pub.create_version api = ' || p_context;
2348: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2349: END IF;
2350:
2351: SELECT fin_plan_type_id
2352: INTO l_fin_plan_type_id
2398:
2399: l_trace_stage := 120;
2400: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2401: IF l_debug_mode = 'Y' THEN
2402: pa_debug.g_err_stage:=' API pa_fin_plan_pub.create_version api return Status : '||l_return_status;
2403: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2404: pa_debug.g_err_stage:=' API pa_fin_plan_pub.create_version api l_budget_version_id : '||l_budget_version_id;
2405: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2406: pa_debug.g_err_stage:=' API pa_fin_plan_pub.create_version api l_proj_fp_options_id : '||l_proj_fp_options_id;
2399: l_trace_stage := 120;
2400: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2401: IF l_debug_mode = 'Y' THEN
2402: pa_debug.g_err_stage:=' API pa_fin_plan_pub.create_version api return Status : '||l_return_status;
2403: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2404: pa_debug.g_err_stage:=' API pa_fin_plan_pub.create_version api l_budget_version_id : '||l_budget_version_id;
2405: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2406: pa_debug.g_err_stage:=' API pa_fin_plan_pub.create_version api l_proj_fp_options_id : '||l_proj_fp_options_id;
2407: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2400: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2401: IF l_debug_mode = 'Y' THEN
2402: pa_debug.g_err_stage:=' API pa_fin_plan_pub.create_version api return Status : '||l_return_status;
2403: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2404: pa_debug.g_err_stage:=' API pa_fin_plan_pub.create_version api l_budget_version_id : '||l_budget_version_id;
2405: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2406: pa_debug.g_err_stage:=' API pa_fin_plan_pub.create_version api l_proj_fp_options_id : '||l_proj_fp_options_id;
2407: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2408: END IF;
2401: IF l_debug_mode = 'Y' THEN
2402: pa_debug.g_err_stage:=' API pa_fin_plan_pub.create_version api return Status : '||l_return_status;
2403: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2404: pa_debug.g_err_stage:=' API pa_fin_plan_pub.create_version api l_budget_version_id : '||l_budget_version_id;
2405: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2406: pa_debug.g_err_stage:=' API pa_fin_plan_pub.create_version api l_proj_fp_options_id : '||l_proj_fp_options_id;
2407: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2408: END IF;
2409:
2402: pa_debug.g_err_stage:=' API pa_fin_plan_pub.create_version api return Status : '||l_return_status;
2403: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2404: pa_debug.g_err_stage:=' API pa_fin_plan_pub.create_version api l_budget_version_id : '||l_budget_version_id;
2405: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2406: pa_debug.g_err_stage:=' API pa_fin_plan_pub.create_version api l_proj_fp_options_id : '||l_proj_fp_options_id;
2407: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2408: END IF;
2409:
2410: l_trace_stage := 130;
2403: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2404: pa_debug.g_err_stage:=' API pa_fin_plan_pub.create_version api l_budget_version_id : '||l_budget_version_id;
2405: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2406: pa_debug.g_err_stage:=' API pa_fin_plan_pub.create_version api l_proj_fp_options_id : '||l_proj_fp_options_id;
2407: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2408: END IF;
2409:
2410: l_trace_stage := 130;
2411: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2411: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2412:
2413: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2414: IF l_debug_mode = 'Y' THEN
2415: pa_debug.g_err_stage:='Called API pa_fin_plan_pub.create_version api returned error';
2416: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2417: END IF;
2418: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2419: END IF;
2412:
2413: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2414: IF l_debug_mode = 'Y' THEN
2415: pa_debug.g_err_stage:='Called API pa_fin_plan_pub.create_version api returned error';
2416: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2417: END IF;
2418: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2419: END IF;
2420:
2420:
2421: END IF;
2422:
2423: IF l_debug_mode = 'Y' THEN
2424: pa_debug.g_err_stage:='l_budget_version_id, l_fin_plan_type_id = '||l_budget_version_id||','|| l_fin_plan_type_id;
2425: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2426: END IF;
2427:
2428: END IF;
2421: END IF;
2422:
2423: IF l_debug_mode = 'Y' THEN
2424: pa_debug.g_err_stage:='l_budget_version_id, l_fin_plan_type_id = '||l_budget_version_id||','|| l_fin_plan_type_id;
2425: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2426: END IF;
2427:
2428: END IF;
2429:
2432: l_trace_stage := 140;
2433: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2434:
2435: IF l_debug_mode = 'Y' THEN
2436: pa_debug.g_err_stage:='Validating input parameters - count of p_task_elem_version_id_tbl = '||l_elem_version_id_count;
2437: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2438: END IF;
2439:
2440: IF l_elem_version_id_count = 0 THEN
2433: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2434:
2435: IF l_debug_mode = 'Y' THEN
2436: pa_debug.g_err_stage:='Validating input parameters - count of p_task_elem_version_id_tbl = '||l_elem_version_id_count;
2437: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2438: END IF;
2439:
2440: IF l_elem_version_id_count = 0 THEN
2441: l_trace_stage := 150;
2440: IF l_elem_version_id_count = 0 THEN
2441: l_trace_stage := 150;
2442: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2443: IF l_debug_mode = 'Y' THEN
2444: pa_debug.g_err_stage:='Validating input parameters - elem_version_id table is empty - p_context = '||p_context;
2445: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2446: pa_debug.reset_curr_function;
2447: END IF;
2448: RETURN;
2441: l_trace_stage := 150;
2442: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2443: IF l_debug_mode = 'Y' THEN
2444: pa_debug.g_err_stage:='Validating input parameters - elem_version_id table is empty - p_context = '||p_context;
2445: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2446: pa_debug.reset_curr_function;
2447: END IF;
2448: RETURN;
2449: END IF;
2442: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2443: IF l_debug_mode = 'Y' THEN
2444: pa_debug.g_err_stage:='Validating input parameters - elem_version_id table is empty - p_context = '||p_context;
2445: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2446: pa_debug.reset_curr_function;
2447: END IF;
2448: RETURN;
2449: END IF;
2450:
2456: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2457: IF p_budget_version_id IS NULL THEN
2458:
2459: IF l_debug_mode = 'Y' THEN
2460: pa_debug.g_err_stage:='p_budget_version_id is null for p_context :' || p_context;
2461: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2462: END IF;
2463: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2464: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2457: IF p_budget_version_id IS NULL THEN
2458:
2459: IF l_debug_mode = 'Y' THEN
2460: pa_debug.g_err_stage:='p_budget_version_id is null for p_context :' || p_context;
2461: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2462: END IF;
2463: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2464: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2465: --dbms_output.put_line('bv id is null for BF');
2474: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2475: END IF;
2476:
2477: IF l_debug_mode = 'Y' THEN
2478: pa_debug.g_err_stage:='Fetching resource List id - l_resource_list_id : ';
2479: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2480: END IF;
2481: l_trace_stage := 200;
2482: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2475: END IF;
2476:
2477: IF l_debug_mode = 'Y' THEN
2478: pa_debug.g_err_stage:='Fetching resource List id - l_resource_list_id : ';
2479: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2480: END IF;
2481: l_trace_stage := 200;
2482: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2483: --dbms_output.put_line('2.3 '||l_budget_version_id);
2490: FROM pa_proj_fp_options
2491: WHERE fin_plan_version_id=l_budget_version_id;
2492:
2493: IF l_debug_mode = 'Y' THEN
2494: pa_debug.g_err_stage:='Fetching resource List id - l_resource_list_id : '|| l_resource_list_id;
2495: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2496: END IF;
2497:
2498: -- Fetching spread curve id for fixed date spread curve : Bug 3607061 - Starts
2491: WHERE fin_plan_version_id=l_budget_version_id;
2492:
2493: IF l_debug_mode = 'Y' THEN
2494: pa_debug.g_err_stage:='Fetching resource List id - l_resource_list_id : '|| l_resource_list_id;
2495: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2496: END IF;
2497:
2498: -- Fetching spread curve id for fixed date spread curve : Bug 3607061 - Starts
2499: BEGIN
2497:
2498: -- Fetching spread curve id for fixed date spread curve : Bug 3607061 - Starts
2499: BEGIN
2500: IF l_debug_mode = 'Y' THEN
2501: pa_debug.g_err_stage:='Fetching spread curve id for fixed date spread curve';
2502: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2503: END IF;
2504: Select spread_curve_id
2505: into l_fixed_date_sp_id
2498: -- Fetching spread curve id for fixed date spread curve : Bug 3607061 - Starts
2499: BEGIN
2500: IF l_debug_mode = 'Y' THEN
2501: pa_debug.g_err_stage:='Fetching spread curve id for fixed date spread curve';
2502: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2503: END IF;
2504: Select spread_curve_id
2505: into l_fixed_date_sp_id
2506: from pa_spread_curves_b
2506: from pa_spread_curves_b
2507: where spread_curve_code = 'FIXED_DATE';
2508:
2509: IF l_debug_mode = 'Y' THEN
2510: pa_debug.g_err_stage:='Fetching spread curve id l_fixed_date_sp_id:'||l_fixed_date_sp_id;
2511: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2512: END IF;
2513:
2514: EXCEPTION
2507: where spread_curve_code = 'FIXED_DATE';
2508:
2509: IF l_debug_mode = 'Y' THEN
2510: pa_debug.g_err_stage:='Fetching spread curve id l_fixed_date_sp_id:'||l_fixed_date_sp_id;
2511: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2512: END IF;
2513:
2514: EXCEPTION
2515: WHEN NO_DATA_FOUND THEN
2513:
2514: EXCEPTION
2515: WHEN NO_DATA_FOUND THEN
2516: IF l_debug_mode = 'Y' THEN
2517: pa_debug.g_err_stage:='Fixed date spread curve not found in system';
2518: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,5);
2519: END IF;
2520: RAISE;
2521: END;
2514: EXCEPTION
2515: WHEN NO_DATA_FOUND THEN
2516: IF l_debug_mode = 'Y' THEN
2517: pa_debug.g_err_stage:='Fixed date spread curve not found in system';
2518: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,5);
2519: END IF;
2520: RAISE;
2521: END;
2522: -- Fetching spread curve id for fixed date spread curve : Bug 3607061 - Ends
2536: l_trace_stage := 220;
2537: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2538:
2539: IF l_debug_mode = 'Y' THEN
2540: pa_debug.g_err_stage:='Calling API pa_planning_transaction_utils.Get_Res_Class_Rlm_Ids';
2541: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2542: END IF;
2543:
2544: pa_planning_transaction_utils.Get_Res_Class_Rlm_Ids
2537: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2538:
2539: IF l_debug_mode = 'Y' THEN
2540: pa_debug.g_err_stage:='Calling API pa_planning_transaction_utils.Get_Res_Class_Rlm_Ids';
2541: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2542: END IF;
2543:
2544: pa_planning_transaction_utils.Get_Res_Class_Rlm_Ids
2545: (p_project_id => p_project_id,
2554: l_trace_stage := 230;
2555: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2556: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2557: IF l_debug_mode = 'Y' THEN
2558: pa_debug.g_err_stage:='Called API pa_planning_transaction_utils.Get_Res_Class_Rlm_Ids api returned error';
2559: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2560: END IF;
2561: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2562: END IF;
2555: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2556: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2557: IF l_debug_mode = 'Y' THEN
2558: pa_debug.g_err_stage:='Called API pa_planning_transaction_utils.Get_Res_Class_Rlm_Ids api returned error';
2559: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2560: END IF;
2561: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2562: END IF;
2563:
2564: l_trace_stage := 240;
2565: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2566:
2567: IF l_debug_mode = 'Y' THEN
2568: pa_debug.g_err_stage:='l_people_res_class_rlm_id : '||l_people_res_class_rlm_id;
2569: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2570: END IF;
2571:
2572: l_eligible_rlm_ids_tbl(1) := l_people_res_class_rlm_id;
2565: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2566:
2567: IF l_debug_mode = 'Y' THEN
2568: pa_debug.g_err_stage:='l_people_res_class_rlm_id : '||l_people_res_class_rlm_id;
2569: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2570: END IF;
2571:
2572: l_eligible_rlm_ids_tbl(1) := l_people_res_class_rlm_id;
2573:
2620: -- - STARTS
2621: --------------------------------------------------------------------
2622:
2623: IF l_debug_mode = 'Y' THEN
2624: pa_debug.g_err_stage:='Calling API PA_PLANNING_RESOURCE_UTILS.get_resource_defaults';
2625: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2626: END IF;
2627:
2628: l_trace_stage := 300;
2621: --------------------------------------------------------------------
2622:
2623: IF l_debug_mode = 'Y' THEN
2624: pa_debug.g_err_stage:='Calling API PA_PLANNING_RESOURCE_UTILS.get_resource_defaults';
2625: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2626: END IF;
2627:
2628: l_trace_stage := 300;
2629: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2670:
2671: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2672:
2673: IF l_debug_mode = 'Y' THEN
2674: pa_debug.g_err_stage:='Called APIPA_PLANNING_RESOURCE_UTILS.get_resource_defaults api returned error';
2675: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2676: END IF;
2677: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2678:
2671: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2672:
2673: IF l_debug_mode = 'Y' THEN
2674: pa_debug.g_err_stage:='Called APIPA_PLANNING_RESOURCE_UTILS.get_resource_defaults api returned error';
2675: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2676: END IF;
2677: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2678:
2679: END IF;
2680:
2681: IF l_debug_mode = 'Y' THEN
2682:
2683: IF l_eligible_rlm_ids_tbl.COUNT >0 THEN
2684: pa_debug.g_err_stage:='Parameters to PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs';
2685: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2686:
2687:
2688: pa_debug.g_err_stage:='p_budget_version_id '||l_budget_version_id;
2681: IF l_debug_mode = 'Y' THEN
2682:
2683: IF l_eligible_rlm_ids_tbl.COUNT >0 THEN
2684: pa_debug.g_err_stage:='Parameters to PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs';
2685: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2686:
2687:
2688: pa_debug.g_err_stage:='p_budget_version_id '||l_budget_version_id;
2689: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2684: pa_debug.g_err_stage:='Parameters to PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs';
2685: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2686:
2687:
2688: pa_debug.g_err_stage:='p_budget_version_id '||l_budget_version_id;
2689: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2690:
2691: pa_debug.g_err_stage:='l_resource_list_id '||l_resource_list_id;
2692: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2685: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2686:
2687:
2688: pa_debug.g_err_stage:='p_budget_version_id '||l_budget_version_id;
2689: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2690:
2691: pa_debug.g_err_stage:='l_resource_list_id '||l_resource_list_id;
2692: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2693:
2687:
2688: pa_debug.g_err_stage:='p_budget_version_id '||l_budget_version_id;
2689: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2690:
2691: pa_debug.g_err_stage:='l_resource_list_id '||l_resource_list_id;
2692: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2693:
2694: pa_debug.g_err_stage:='l_rbs_version_id '||l_rbs_version_id;
2695: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2688: pa_debug.g_err_stage:='p_budget_version_id '||l_budget_version_id;
2689: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2690:
2691: pa_debug.g_err_stage:='l_resource_list_id '||l_resource_list_id;
2692: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2693:
2694: pa_debug.g_err_stage:='l_rbs_version_id '||l_rbs_version_id;
2695: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2696:
2690:
2691: pa_debug.g_err_stage:='l_resource_list_id '||l_resource_list_id;
2692: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2693:
2694: pa_debug.g_err_stage:='l_rbs_version_id '||l_rbs_version_id;
2695: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2696:
2697: pa_debug.g_err_stage:='l_eligible_rlm_ids_tbl(1) '||l_eligible_rlm_ids_tbl(1);
2698: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2691: pa_debug.g_err_stage:='l_resource_list_id '||l_resource_list_id;
2692: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2693:
2694: pa_debug.g_err_stage:='l_rbs_version_id '||l_rbs_version_id;
2695: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2696:
2697: pa_debug.g_err_stage:='l_eligible_rlm_ids_tbl(1) '||l_eligible_rlm_ids_tbl(1);
2698: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2699:
2693:
2694: pa_debug.g_err_stage:='l_rbs_version_id '||l_rbs_version_id;
2695: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2696:
2697: pa_debug.g_err_stage:='l_eligible_rlm_ids_tbl(1) '||l_eligible_rlm_ids_tbl(1);
2698: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2699:
2700: pa_debug.g_err_stage:='l_txn_src_typ_code_rbs_prm_tbl(1) '||l_txn_src_typ_code_rbs_prm_tbl(1);
2701: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2694: pa_debug.g_err_stage:='l_rbs_version_id '||l_rbs_version_id;
2695: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2696:
2697: pa_debug.g_err_stage:='l_eligible_rlm_ids_tbl(1) '||l_eligible_rlm_ids_tbl(1);
2698: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2699:
2700: pa_debug.g_err_stage:='l_txn_src_typ_code_rbs_prm_tbl(1) '||l_txn_src_typ_code_rbs_prm_tbl(1);
2701: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2702:
2696:
2697: pa_debug.g_err_stage:='l_eligible_rlm_ids_tbl(1) '||l_eligible_rlm_ids_tbl(1);
2698: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2699:
2700: pa_debug.g_err_stage:='l_txn_src_typ_code_rbs_prm_tbl(1) '||l_txn_src_typ_code_rbs_prm_tbl(1);
2701: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2702:
2703: pa_debug.g_err_stage:='l_person_id_tbl(1) '||l_person_id_tbl(1);
2704: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2697: pa_debug.g_err_stage:='l_eligible_rlm_ids_tbl(1) '||l_eligible_rlm_ids_tbl(1);
2698: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2699:
2700: pa_debug.g_err_stage:='l_txn_src_typ_code_rbs_prm_tbl(1) '||l_txn_src_typ_code_rbs_prm_tbl(1);
2701: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2702:
2703: pa_debug.g_err_stage:='l_person_id_tbl(1) '||l_person_id_tbl(1);
2704: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2705:
2699:
2700: pa_debug.g_err_stage:='l_txn_src_typ_code_rbs_prm_tbl(1) '||l_txn_src_typ_code_rbs_prm_tbl(1);
2701: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2702:
2703: pa_debug.g_err_stage:='l_person_id_tbl(1) '||l_person_id_tbl(1);
2704: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2705:
2706: pa_debug.g_err_stage:='l_job_id_tbl(1) '||l_job_id_tbl(1);
2707: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2700: pa_debug.g_err_stage:='l_txn_src_typ_code_rbs_prm_tbl(1) '||l_txn_src_typ_code_rbs_prm_tbl(1);
2701: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2702:
2703: pa_debug.g_err_stage:='l_person_id_tbl(1) '||l_person_id_tbl(1);
2704: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2705:
2706: pa_debug.g_err_stage:='l_job_id_tbl(1) '||l_job_id_tbl(1);
2707: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2708:
2702:
2703: pa_debug.g_err_stage:='l_person_id_tbl(1) '||l_person_id_tbl(1);
2704: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2705:
2706: pa_debug.g_err_stage:='l_job_id_tbl(1) '||l_job_id_tbl(1);
2707: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2708:
2709: pa_debug.g_err_stage:='l_organization_id_tbl(1) '||l_organization_id_tbl(1);
2710: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2703: pa_debug.g_err_stage:='l_person_id_tbl(1) '||l_person_id_tbl(1);
2704: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2705:
2706: pa_debug.g_err_stage:='l_job_id_tbl(1) '||l_job_id_tbl(1);
2707: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2708:
2709: pa_debug.g_err_stage:='l_organization_id_tbl(1) '||l_organization_id_tbl(1);
2710: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2711:
2705:
2706: pa_debug.g_err_stage:='l_job_id_tbl(1) '||l_job_id_tbl(1);
2707: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2708:
2709: pa_debug.g_err_stage:='l_organization_id_tbl(1) '||l_organization_id_tbl(1);
2710: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2711:
2712: pa_debug.g_err_stage:='l_supplier_id_tbl(1) '||l_supplier_id_tbl(1);
2713: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2706: pa_debug.g_err_stage:='l_job_id_tbl(1) '||l_job_id_tbl(1);
2707: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2708:
2709: pa_debug.g_err_stage:='l_organization_id_tbl(1) '||l_organization_id_tbl(1);
2710: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2711:
2712: pa_debug.g_err_stage:='l_supplier_id_tbl(1) '||l_supplier_id_tbl(1);
2713: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2714:
2708:
2709: pa_debug.g_err_stage:='l_organization_id_tbl(1) '||l_organization_id_tbl(1);
2710: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2711:
2712: pa_debug.g_err_stage:='l_supplier_id_tbl(1) '||l_supplier_id_tbl(1);
2713: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2714:
2715: pa_debug.g_err_stage:='l_expenditure_type_tbl(1) '||l_expenditure_type_tbl(1);
2716: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2709: pa_debug.g_err_stage:='l_organization_id_tbl(1) '||l_organization_id_tbl(1);
2710: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2711:
2712: pa_debug.g_err_stage:='l_supplier_id_tbl(1) '||l_supplier_id_tbl(1);
2713: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2714:
2715: pa_debug.g_err_stage:='l_expenditure_type_tbl(1) '||l_expenditure_type_tbl(1);
2716: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2717:
2711:
2712: pa_debug.g_err_stage:='l_supplier_id_tbl(1) '||l_supplier_id_tbl(1);
2713: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2714:
2715: pa_debug.g_err_stage:='l_expenditure_type_tbl(1) '||l_expenditure_type_tbl(1);
2716: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2717:
2718: pa_debug.g_err_stage:='l_event_type_tbl(1) '||l_event_type_tbl(1);
2719: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2712: pa_debug.g_err_stage:='l_supplier_id_tbl(1) '||l_supplier_id_tbl(1);
2713: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2714:
2715: pa_debug.g_err_stage:='l_expenditure_type_tbl(1) '||l_expenditure_type_tbl(1);
2716: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2717:
2718: pa_debug.g_err_stage:='l_event_type_tbl(1) '||l_event_type_tbl(1);
2719: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2720:
2714:
2715: pa_debug.g_err_stage:='l_expenditure_type_tbl(1) '||l_expenditure_type_tbl(1);
2716: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2717:
2718: pa_debug.g_err_stage:='l_event_type_tbl(1) '||l_event_type_tbl(1);
2719: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2720:
2721: pa_debug.g_err_stage:='l_expenditure_category_tbl(1) '||l_expenditure_category_tbl(1);
2722: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2715: pa_debug.g_err_stage:='l_expenditure_type_tbl(1) '||l_expenditure_type_tbl(1);
2716: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2717:
2718: pa_debug.g_err_stage:='l_event_type_tbl(1) '||l_event_type_tbl(1);
2719: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2720:
2721: pa_debug.g_err_stage:='l_expenditure_category_tbl(1) '||l_expenditure_category_tbl(1);
2722: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2723:
2717:
2718: pa_debug.g_err_stage:='l_event_type_tbl(1) '||l_event_type_tbl(1);
2719: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2720:
2721: pa_debug.g_err_stage:='l_expenditure_category_tbl(1) '||l_expenditure_category_tbl(1);
2722: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2723:
2724: pa_debug.g_err_stage:='l_revenue_category_code_tbl(1) '||l_revenue_category_code_tbl(1);
2725: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2718: pa_debug.g_err_stage:='l_event_type_tbl(1) '||l_event_type_tbl(1);
2719: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2720:
2721: pa_debug.g_err_stage:='l_expenditure_category_tbl(1) '||l_expenditure_category_tbl(1);
2722: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2723:
2724: pa_debug.g_err_stage:='l_revenue_category_code_tbl(1) '||l_revenue_category_code_tbl(1);
2725: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2726:
2720:
2721: pa_debug.g_err_stage:='l_expenditure_category_tbl(1) '||l_expenditure_category_tbl(1);
2722: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2723:
2724: pa_debug.g_err_stage:='l_revenue_category_code_tbl(1) '||l_revenue_category_code_tbl(1);
2725: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2726:
2727: pa_debug.g_err_stage:='l_project_role_id_tbl(1) '||l_project_role_id_tbl(1);
2728: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2721: pa_debug.g_err_stage:='l_expenditure_category_tbl(1) '||l_expenditure_category_tbl(1);
2722: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2723:
2724: pa_debug.g_err_stage:='l_revenue_category_code_tbl(1) '||l_revenue_category_code_tbl(1);
2725: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2726:
2727: pa_debug.g_err_stage:='l_project_role_id_tbl(1) '||l_project_role_id_tbl(1);
2728: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2729:
2723:
2724: pa_debug.g_err_stage:='l_revenue_category_code_tbl(1) '||l_revenue_category_code_tbl(1);
2725: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2726:
2727: pa_debug.g_err_stage:='l_project_role_id_tbl(1) '||l_project_role_id_tbl(1);
2728: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2729:
2730: pa_debug.g_err_stage:='l_resource_class_code_tbl(1) '||l_resource_class_code_tbl(1);
2731: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2724: pa_debug.g_err_stage:='l_revenue_category_code_tbl(1) '||l_revenue_category_code_tbl(1);
2725: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2726:
2727: pa_debug.g_err_stage:='l_project_role_id_tbl(1) '||l_project_role_id_tbl(1);
2728: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2729:
2730: pa_debug.g_err_stage:='l_resource_class_code_tbl(1) '||l_resource_class_code_tbl(1);
2731: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2732:
2726:
2727: pa_debug.g_err_stage:='l_project_role_id_tbl(1) '||l_project_role_id_tbl(1);
2728: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2729:
2730: pa_debug.g_err_stage:='l_resource_class_code_tbl(1) '||l_resource_class_code_tbl(1);
2731: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2732:
2733: pa_debug.g_err_stage:='l_item_category_id_tbl(1) '||l_item_category_id_tbl(1);
2734: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2727: pa_debug.g_err_stage:='l_project_role_id_tbl(1) '||l_project_role_id_tbl(1);
2728: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2729:
2730: pa_debug.g_err_stage:='l_resource_class_code_tbl(1) '||l_resource_class_code_tbl(1);
2731: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2732:
2733: pa_debug.g_err_stage:='l_item_category_id_tbl(1) '||l_item_category_id_tbl(1);
2734: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2735:
2729:
2730: pa_debug.g_err_stage:='l_resource_class_code_tbl(1) '||l_resource_class_code_tbl(1);
2731: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2732:
2733: pa_debug.g_err_stage:='l_item_category_id_tbl(1) '||l_item_category_id_tbl(1);
2734: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2735:
2736: pa_debug.g_err_stage:='l_person_type_code_tbl(1) '||l_person_type_code_tbl(1);
2737: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2730: pa_debug.g_err_stage:='l_resource_class_code_tbl(1) '||l_resource_class_code_tbl(1);
2731: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2732:
2733: pa_debug.g_err_stage:='l_item_category_id_tbl(1) '||l_item_category_id_tbl(1);
2734: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2735:
2736: pa_debug.g_err_stage:='l_person_type_code_tbl(1) '||l_person_type_code_tbl(1);
2737: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2738:
2732:
2733: pa_debug.g_err_stage:='l_item_category_id_tbl(1) '||l_item_category_id_tbl(1);
2734: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2735:
2736: pa_debug.g_err_stage:='l_person_type_code_tbl(1) '||l_person_type_code_tbl(1);
2737: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2738:
2739: pa_debug.g_err_stage:='l_bom_resource_id_tbl(1) '||l_bom_resource_id_tbl(1);
2740: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2733: pa_debug.g_err_stage:='l_item_category_id_tbl(1) '||l_item_category_id_tbl(1);
2734: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2735:
2736: pa_debug.g_err_stage:='l_person_type_code_tbl(1) '||l_person_type_code_tbl(1);
2737: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2738:
2739: pa_debug.g_err_stage:='l_bom_resource_id_tbl(1) '||l_bom_resource_id_tbl(1);
2740: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2741:
2735:
2736: pa_debug.g_err_stage:='l_person_type_code_tbl(1) '||l_person_type_code_tbl(1);
2737: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2738:
2739: pa_debug.g_err_stage:='l_bom_resource_id_tbl(1) '||l_bom_resource_id_tbl(1);
2740: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2741:
2742: END IF;
2743:
2736: pa_debug.g_err_stage:='l_person_type_code_tbl(1) '||l_person_type_code_tbl(1);
2737: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2738:
2739: pa_debug.g_err_stage:='l_bom_resource_id_tbl(1) '||l_bom_resource_id_tbl(1);
2740: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2741:
2742: END IF;
2743:
2744:
2795:
2796: --Call the RBS Mapping API only if the rbs version id is not null
2797: IF l_rbs_version_id IS NOT NULL THEN
2798:
2799: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,'before PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs',3);
2800:
2801: PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs(
2802: p_budget_version_id => l_budget_version_id
2803: ,p_resource_list_id => l_resource_list_id
2836:
2837: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2838:
2839: IF l_debug_mode = 'Y' THEN
2840: pa_debug.g_err_stage:='Called API PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs returned error';
2841: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2842: END IF;
2843: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2844:
2837: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2838:
2839: IF l_debug_mode = 'Y' THEN
2840: pa_debug.g_err_stage:='Called API PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs returned error';
2841: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2842: END IF;
2843: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2844:
2845: END IF;
2869: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
2870: l_trace_stage := 340;
2871: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2872: IF l_debug_mode = 'Y' THEN
2873: pa_debug.g_err_stage:='Doing processing for TASK ASSIGNMENTS : p_context is'|| p_context;
2874: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2875: END IF;
2876: -------------------------------------------------------------------------
2877: -- To call Task Validation API we populate the PLSql tables with task
2870: l_trace_stage := 340;
2871: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2872: IF l_debug_mode = 'Y' THEN
2873: pa_debug.g_err_stage:='Doing processing for TASK ASSIGNMENTS : p_context is'|| p_context;
2874: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2875: END IF;
2876: -------------------------------------------------------------------------
2877: -- To call Task Validation API we populate the PLSql tables with task
2878: -- and resource data.
2878: -- and resource data.
2879: -------------------------------------------------------------------------
2880:
2881: IF l_debug_mode = 'Y' THEN
2882: pa_debug.g_err_stage:='Populating PlSql table with Task Data';
2883: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2884: END IF;
2885:
2886: -----------------------------------------------------------------
2879: -------------------------------------------------------------------------
2880:
2881: IF l_debug_mode = 'Y' THEN
2882: pa_debug.g_err_stage:='Populating PlSql table with Task Data';
2883: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2884: END IF;
2885:
2886: -----------------------------------------------------------------
2887: -- Populating Table of task_rec_type
2927: -- Populating Table of resource_rec_type
2928: -----------------------------------------------------------------
2929:
2930: IF l_debug_mode = 'Y' THEN
2931: pa_debug.g_err_stage:='Populating PlSql table with Resource Data';
2932: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2933: END IF;
2934:
2935: l_trace_stage := 380;
2928: -----------------------------------------------------------------
2929:
2930: IF l_debug_mode = 'Y' THEN
2931: pa_debug.g_err_stage:='Populating PlSql table with Resource Data';
2932: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2933: END IF;
2934:
2935: l_trace_stage := 380;
2936: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
3222: -------------------------------------------------
3223: -- Calling Task validation API
3224: -------------------------------------------------
3225: IF l_debug_mode = 'Y' THEN
3226: pa_debug.g_err_stage:='Calling API pa_task_assignment_utils.Validate_Create_Assignment';
3227: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3228: END IF;
3229:
3230: l_trace_stage := 420;
3223: -- Calling Task validation API
3224: -------------------------------------------------
3225: IF l_debug_mode = 'Y' THEN
3226: pa_debug.g_err_stage:='Calling API pa_task_assignment_utils.Validate_Create_Assignment';
3227: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3228: END IF;
3229:
3230: l_trace_stage := 420;
3231: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
3244: --dbms_output.put_line('qty aft is '||l_resource_rec_tbl(1).planning_end_date);
3245:
3246: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3247: IF l_debug_mode = 'Y' THEN
3248: pa_debug.g_err_stage:='Called API pa_task_assignment_utils.Validate_Create_Assignment returned error';
3249: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3250: END IF;
3251: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3252: END IF;
3245:
3246: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3247: IF l_debug_mode = 'Y' THEN
3248: pa_debug.g_err_stage:='Called API pa_task_assignment_utils.Validate_Create_Assignment returned error';
3249: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3250: END IF;
3251: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3252: END IF;
3253: IF l_debug_mode = 'Y' THEN
3250: END IF;
3251: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3252: END IF;
3253: IF l_debug_mode = 'Y' THEN
3254: pa_debug.g_err_stage:='Returned from pa_task_assignment_utils.Validate_Create_Assignment';
3255: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3256: END IF;
3257:
3258: l_trace_stage := 430;
3251: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3252: END IF;
3253: IF l_debug_mode = 'Y' THEN
3254: pa_debug.g_err_stage:='Returned from pa_task_assignment_utils.Validate_Create_Assignment';
3255: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3256: END IF;
3257:
3258: l_trace_stage := 430;
3259: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
3272: -- the resource data tables.
3273: -----------------------------------------------------------------------
3274:
3275: IF l_debug_mode = 'Y' THEN
3276: pa_debug.g_err_stage:='Deleting Data from all resource PLSql tables';
3277: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3278: END IF;
3279:
3280: l_trace_stage := 450;
3273: -----------------------------------------------------------------------
3274:
3275: IF l_debug_mode = 'Y' THEN
3276: pa_debug.g_err_stage:='Deleting Data from all resource PLSql tables';
3277: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3278: END IF;
3279:
3280: l_trace_stage := 450;
3281: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
3286: -- Validate_Create_Assignment
3287: -----------------------------------------------------------------------
3288:
3289: IF l_debug_mode = 'Y' THEN
3290: pa_debug.g_err_stage:='Populating resource data tables from the output parameter table l_resource_rec_tbl';
3291: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3292: END IF;
3293:
3294: FOR i IN l_resource_rec_tbl.FIRST .. l_resource_rec_tbl.LAST LOOP
3287: -----------------------------------------------------------------------
3288:
3289: IF l_debug_mode = 'Y' THEN
3290: pa_debug.g_err_stage:='Populating resource data tables from the output parameter table l_resource_rec_tbl';
3291: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3292: END IF;
3293:
3294: FOR i IN l_resource_rec_tbl.FIRST .. l_resource_rec_tbl.LAST LOOP
3295: l_trace_stage := 460;
3586: -- fixed curve spread curve id. - Bug 3607061 Starts. Please NOTE that fixed date spread curve id is
3587: -- SEEDED as 6, so we are able to hard code it below
3588:
3589: IF l_debug_mode = 'Y' THEN
3590: pa_debug.g_err_stage :='l_spread_curve_id_tbl - '||l_spread_curve_id_tbl(i);
3591: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3592:
3593: pa_debug.g_err_stage :='l_sp_fixed_date_tbl'||l_sp_fixed_date_tbl(i);
3594: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3587: -- SEEDED as 6, so we are able to hard code it below
3588:
3589: IF l_debug_mode = 'Y' THEN
3590: pa_debug.g_err_stage :='l_spread_curve_id_tbl - '||l_spread_curve_id_tbl(i);
3591: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3592:
3593: pa_debug.g_err_stage :='l_sp_fixed_date_tbl'||l_sp_fixed_date_tbl(i);
3594: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3595:
3589: IF l_debug_mode = 'Y' THEN
3590: pa_debug.g_err_stage :='l_spread_curve_id_tbl - '||l_spread_curve_id_tbl(i);
3591: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3592:
3593: pa_debug.g_err_stage :='l_sp_fixed_date_tbl'||l_sp_fixed_date_tbl(i);
3594: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3595:
3596: pa_debug.g_err_stage :='l_planning_start_date_tbl'||l_planning_start_date_tbl(i);
3597: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3590: pa_debug.g_err_stage :='l_spread_curve_id_tbl - '||l_spread_curve_id_tbl(i);
3591: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3592:
3593: pa_debug.g_err_stage :='l_sp_fixed_date_tbl'||l_sp_fixed_date_tbl(i);
3594: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3595:
3596: pa_debug.g_err_stage :='l_planning_start_date_tbl'||l_planning_start_date_tbl(i);
3597: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3598:
3592:
3593: pa_debug.g_err_stage :='l_sp_fixed_date_tbl'||l_sp_fixed_date_tbl(i);
3594: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3595:
3596: pa_debug.g_err_stage :='l_planning_start_date_tbl'||l_planning_start_date_tbl(i);
3597: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3598:
3599: pa_debug.g_err_stage :='l_planning_end_date_tbl'||l_planning_end_date_tbl(i);
3600: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3593: pa_debug.g_err_stage :='l_sp_fixed_date_tbl'||l_sp_fixed_date_tbl(i);
3594: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3595:
3596: pa_debug.g_err_stage :='l_planning_start_date_tbl'||l_planning_start_date_tbl(i);
3597: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3598:
3599: pa_debug.g_err_stage :='l_planning_end_date_tbl'||l_planning_end_date_tbl(i);
3600: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3601: END IF;
3595:
3596: pa_debug.g_err_stage :='l_planning_start_date_tbl'||l_planning_start_date_tbl(i);
3597: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3598:
3599: pa_debug.g_err_stage :='l_planning_end_date_tbl'||l_planning_end_date_tbl(i);
3600: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3601: END IF;
3602:
3603: IF ((l_spread_curve_id_tbl(i) = l_fixed_date_sp_id) AND
3596: pa_debug.g_err_stage :='l_planning_start_date_tbl'||l_planning_start_date_tbl(i);
3597: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3598:
3599: pa_debug.g_err_stage :='l_planning_end_date_tbl'||l_planning_end_date_tbl(i);
3600: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3601: END IF;
3602:
3603: IF ((l_spread_curve_id_tbl(i) = l_fixed_date_sp_id) AND
3604: (l_sp_fixed_date_tbl(i) IS NOT NULL) AND
3603: IF ((l_spread_curve_id_tbl(i) = l_fixed_date_sp_id) AND
3604: (l_sp_fixed_date_tbl(i) IS NOT NULL) AND
3605: (l_sp_fixed_date_tbl(i) NOT BETWEEN l_planning_start_date_tbl(i) AND l_planning_end_date_tbl(i)))THEN
3606: IF l_debug_mode = 'Y' THEN
3607: pa_debug.g_err_stage :='Sp Fixed Date not between planning start date and End Date';
3608: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3609: END IF;
3610: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3611: p_msg_name => 'PA_FP_SP_FIXED_DATE_OUT');
3604: (l_sp_fixed_date_tbl(i) IS NOT NULL) AND
3605: (l_sp_fixed_date_tbl(i) NOT BETWEEN l_planning_start_date_tbl(i) AND l_planning_end_date_tbl(i)))THEN
3606: IF l_debug_mode = 'Y' THEN
3607: pa_debug.g_err_stage :='Sp Fixed Date not between planning start date and End Date';
3608: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3609: END IF;
3610: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3611: p_msg_name => 'PA_FP_SP_FIXED_DATE_OUT');
3612: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3863: --***************************************************************************************
3864: ------------------------------------------------------------------------------
3865:
3866: IF l_debug_mode = 'Y' THEN
3867: pa_debug.g_err_stage:='data is deleted in bulk from pa_budget_lines and pa_resource_assignment based on the resource_assignment_id ';
3868: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3869: END IF;
3870:
3871: END IF;
3864: ------------------------------------------------------------------------------
3865:
3866: IF l_debug_mode = 'Y' THEN
3867: pa_debug.g_err_stage:='data is deleted in bulk from pa_budget_lines and pa_resource_assignment based on the resource_assignment_id ';
3868: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3869: END IF;
3870:
3871: END IF;
3872: --------------------------------------------------------------------------
3876: ------------------------------------------------------------------------------------------------
3877: -- Deriving Time Phased Code based on the budget version id and setting the spread amount flad
3878: -------------------------------------------------------------------------------------------------
3879: IF l_debug_mode = 'Y' THEN
3880: pa_debug.g_err_stage:='Deriving time phased code ';
3881: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3882: END IF;
3883:
3884: l_time_phased_code := pa_fin_plan_utils.get_time_phased_code(p_budget_version_id);
3877: -- Deriving Time Phased Code based on the budget version id and setting the spread amount flad
3878: -------------------------------------------------------------------------------------------------
3879: IF l_debug_mode = 'Y' THEN
3880: pa_debug.g_err_stage:='Deriving time phased code ';
3881: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3882: END IF;
3883:
3884: l_time_phased_code := pa_fin_plan_utils.get_time_phased_code(p_budget_version_id);
3885:
3883:
3884: l_time_phased_code := pa_fin_plan_utils.get_time_phased_code(p_budget_version_id);
3885:
3886: IF l_debug_mode = 'Y' THEN
3887: pa_debug.g_err_stage:='Deriving time phased code l_time_phased_code: '||l_time_phased_code;
3888: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3889: END IF;
3890: l_trace_stage := 550;
3891: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
3884: l_time_phased_code := pa_fin_plan_utils.get_time_phased_code(p_budget_version_id);
3885:
3886: IF l_debug_mode = 'Y' THEN
3887: pa_debug.g_err_stage:='Deriving time phased code l_time_phased_code: '||l_time_phased_code;
3888: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3889: END IF;
3890: l_trace_stage := 550;
3891: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
3892:
3902: ------------------------------------------------------------------------------------------------
3903: -- Deriving Proj Element Id based on element version id
3904: -------------------------------------------------------------------------------------------------
3905: IF l_debug_mode = 'Y' THEN
3906: pa_debug.g_err_stage:='Deriving Proj Element Id based on element version id';
3907: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3908: END IF;
3909:
3910: FOR i IN p_task_elem_version_id_tbl.FIRST .. p_task_elem_version_id_tbl.LAST LOOP
3903: -- Deriving Proj Element Id based on element version id
3904: -------------------------------------------------------------------------------------------------
3905: IF l_debug_mode = 'Y' THEN
3906: pa_debug.g_err_stage:='Deriving Proj Element Id based on element version id';
3907: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3908: END IF;
3909:
3910: FOR i IN p_task_elem_version_id_tbl.FIRST .. p_task_elem_version_id_tbl.LAST LOOP
3911: l_trace_stage := 570;
3915: l_trace_stage := 580;
3916: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
3917: FETCH c_proj_element_id INTO l_proj_element_id;
3918: IF l_debug_mode = 'Y' THEN
3919: pa_debug.g_err_stage:='Deriving Proj Element Id based on element version id l_proj_element_id : '|| l_proj_element_id;
3920: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3921: END IF;
3922: l_proj_element_id_tbl(i) := l_proj_element_id;
3923: CLOSE c_proj_element_id;
3916: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
3917: FETCH c_proj_element_id INTO l_proj_element_id;
3918: IF l_debug_mode = 'Y' THEN
3919: pa_debug.g_err_stage:='Deriving Proj Element Id based on element version id l_proj_element_id : '|| l_proj_element_id;
3920: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3921: END IF;
3922: l_proj_element_id_tbl(i) := l_proj_element_id;
3923: CLOSE c_proj_element_id;
3924:
3935: l_alt_tsk_valid := 'N'; -- CBS disabled
3936: END IF;
3937: IF l_alt_tsk_valid = 'N' THEN
3938: IF l_debug_mode = 'Y' THEN
3939: pa_debug.g_err_stage:='Cost Code for the given task is not valid : '|| l_proj_element_id;
3940: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3941: END IF;
3942: END IF;
3943: END IF;
3936: END IF;
3937: IF l_alt_tsk_valid = 'N' THEN
3938: IF l_debug_mode = 'Y' THEN
3939: pa_debug.g_err_stage:='Cost Code for the given task is not valid : '|| l_proj_element_id;
3940: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3941: END IF;
3942: END IF;
3943: END IF;
3944:
3949: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
3950: END LOOP;
3951:
3952: IF l_debug_mode = 'Y' THEN
3953: pa_debug.g_err_stage:='Deriving Proj Element Id based on element version id l_proj_element_id_tbl cnt : '|| l_proj_element_id_tbl.COUNT;
3954: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3955: END IF;
3956: l_trace_stage := 600;
3957: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
3950: END LOOP;
3951:
3952: IF l_debug_mode = 'Y' THEN
3953: pa_debug.g_err_stage:='Deriving Proj Element Id based on element version id l_proj_element_id_tbl cnt : '|| l_proj_element_id_tbl.COUNT;
3954: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3955: END IF;
3956: l_trace_stage := 600;
3957: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
3958:
3964: l_trace_stage := 610;
3965: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
3966:
3967: IF l_debug_mode = 'Y' THEN
3968: pa_debug.g_err_stage:='Deriving start date for task_element_version_ids';
3969: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3970: END IF;
3971:
3972: -- Bug 3793623 - Added new params p_planning_start_date_tbl and p_planning_end_date_tbl
3965: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
3966:
3967: IF l_debug_mode = 'Y' THEN
3968: pa_debug.g_err_stage:='Deriving start date for task_element_version_ids';
3969: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3970: END IF;
3971:
3972: -- Bug 3793623 - Added new params p_planning_start_date_tbl and p_planning_end_date_tbl
3973: PA_PLANNING_TRANSACTION_UTILS.get_default_planning_dates
3984:
3985: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3986:
3987: IF l_debug_mode = 'Y' THEN
3988: pa_debug.g_err_stage:='Called API pafpptub.get_default_planning_dates returned error';
3989: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ',pa_debug.g_err_stage, 3);
3990: END IF;
3991: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3992: END IF;
3985: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3986:
3987: IF l_debug_mode = 'Y' THEN
3988: pa_debug.g_err_stage:='Called API pafpptub.get_default_planning_dates returned error';
3989: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ',pa_debug.g_err_stage, 3);
3990: END IF;
3991: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3992: END IF;
3993:
4019: -- validation API then that value should be used.
4020: -----------------------------------------------------------------------------------------------------
4021:
4022: IF l_debug_mode = 'Y' THEN
4023: pa_debug.g_err_stage:='BULK INSERTING DATA INTO PA_RESOURCE_ASSIGNMENTS ';
4024: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4025: END IF;
4026:
4027: l_call_calc_api := 'N';
4020: -----------------------------------------------------------------------------------------------------
4021:
4022: IF l_debug_mode = 'Y' THEN
4023: pa_debug.g_err_stage:='BULK INSERTING DATA INTO PA_RESOURCE_ASSIGNMENTS ';
4024: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4025: END IF;
4026:
4027: l_call_calc_api := 'N';
4028:
4132: -- REFERENCE SO THAT THEY CAN BE USED WHEN AND WHERE
4133: -- NEEDED FOR DEBUGGIND ISSUE WITH BULK DTA INSERTION.
4134: -----------------------------------------------------
4135: /*
4136: pa_debug.g_err_stage:='l_proj_element_id_tbl :'||l_proj_element_id_tbl.COUNT;
4137: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4138: pa_debug.g_err_stage:='l_unit_of_measure_tbl :'||l_unit_of_measure_tbl.COUNT;
4139: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4140: pa_debug.g_err_stage:='p_task_elem_version_id_tbl :'||p_task_elem_version_id_tbl.COUNT;
4133: -- NEEDED FOR DEBUGGIND ISSUE WITH BULK DTA INSERTION.
4134: -----------------------------------------------------
4135: /*
4136: pa_debug.g_err_stage:='l_proj_element_id_tbl :'||l_proj_element_id_tbl.COUNT;
4137: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4138: pa_debug.g_err_stage:='l_unit_of_measure_tbl :'||l_unit_of_measure_tbl.COUNT;
4139: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4140: pa_debug.g_err_stage:='p_task_elem_version_id_tbl :'||p_task_elem_version_id_tbl.COUNT;
4141: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4134: -----------------------------------------------------
4135: /*
4136: pa_debug.g_err_stage:='l_proj_element_id_tbl :'||l_proj_element_id_tbl.COUNT;
4137: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4138: pa_debug.g_err_stage:='l_unit_of_measure_tbl :'||l_unit_of_measure_tbl.COUNT;
4139: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4140: pa_debug.g_err_stage:='p_task_elem_version_id_tbl :'||p_task_elem_version_id_tbl.COUNT;
4141: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4142: pa_debug.g_err_stage:='l_start_date_tbl :'||p_start_date_tbl.COUNT;
4135: /*
4136: pa_debug.g_err_stage:='l_proj_element_id_tbl :'||l_proj_element_id_tbl.COUNT;
4137: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4138: pa_debug.g_err_stage:='l_unit_of_measure_tbl :'||l_unit_of_measure_tbl.COUNT;
4139: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4140: pa_debug.g_err_stage:='p_task_elem_version_id_tbl :'||p_task_elem_version_id_tbl.COUNT;
4141: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4142: pa_debug.g_err_stage:='l_start_date_tbl :'||p_start_date_tbl.COUNT;
4143: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4136: pa_debug.g_err_stage:='l_proj_element_id_tbl :'||l_proj_element_id_tbl.COUNT;
4137: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4138: pa_debug.g_err_stage:='l_unit_of_measure_tbl :'||l_unit_of_measure_tbl.COUNT;
4139: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4140: pa_debug.g_err_stage:='p_task_elem_version_id_tbl :'||p_task_elem_version_id_tbl.COUNT;
4141: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4142: pa_debug.g_err_stage:='l_start_date_tbl :'||p_start_date_tbl.COUNT;
4143: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4144: pa_debug.g_err_stage:='l_end_date_tbl :'||p_end_date_tbl.COUNT;
4137: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4138: pa_debug.g_err_stage:='l_unit_of_measure_tbl :'||l_unit_of_measure_tbl.COUNT;
4139: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4140: pa_debug.g_err_stage:='p_task_elem_version_id_tbl :'||p_task_elem_version_id_tbl.COUNT;
4141: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4142: pa_debug.g_err_stage:='l_start_date_tbl :'||p_start_date_tbl.COUNT;
4143: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4144: pa_debug.g_err_stage:='l_end_date_tbl :'||p_end_date_tbl.COUNT;
4145: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4138: pa_debug.g_err_stage:='l_unit_of_measure_tbl :'||l_unit_of_measure_tbl.COUNT;
4139: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4140: pa_debug.g_err_stage:='p_task_elem_version_id_tbl :'||p_task_elem_version_id_tbl.COUNT;
4141: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4142: pa_debug.g_err_stage:='l_start_date_tbl :'||p_start_date_tbl.COUNT;
4143: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4144: pa_debug.g_err_stage:='l_end_date_tbl :'||p_end_date_tbl.COUNT;
4145: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4146: pa_debug.g_err_stage:='l_etc_method_code_tbl :'||l_etc_method_code_tbl.COUNT;
4139: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4140: pa_debug.g_err_stage:='p_task_elem_version_id_tbl :'||p_task_elem_version_id_tbl.COUNT;
4141: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4142: pa_debug.g_err_stage:='l_start_date_tbl :'||p_start_date_tbl.COUNT;
4143: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4144: pa_debug.g_err_stage:='l_end_date_tbl :'||p_end_date_tbl.COUNT;
4145: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4146: pa_debug.g_err_stage:='l_etc_method_code_tbl :'||l_etc_method_code_tbl.COUNT;
4147: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4140: pa_debug.g_err_stage:='p_task_elem_version_id_tbl :'||p_task_elem_version_id_tbl.COUNT;
4141: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4142: pa_debug.g_err_stage:='l_start_date_tbl :'||p_start_date_tbl.COUNT;
4143: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4144: pa_debug.g_err_stage:='l_end_date_tbl :'||p_end_date_tbl.COUNT;
4145: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4146: pa_debug.g_err_stage:='l_etc_method_code_tbl :'||l_etc_method_code_tbl.COUNT;
4147: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4148: pa_debug.g_err_stage:='l_res_type_code_tbl :'||l_res_type_code_tbl.COUNT;
4141: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4142: pa_debug.g_err_stage:='l_start_date_tbl :'||p_start_date_tbl.COUNT;
4143: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4144: pa_debug.g_err_stage:='l_end_date_tbl :'||p_end_date_tbl.COUNT;
4145: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4146: pa_debug.g_err_stage:='l_etc_method_code_tbl :'||l_etc_method_code_tbl.COUNT;
4147: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4148: pa_debug.g_err_stage:='l_res_type_code_tbl :'||l_res_type_code_tbl.COUNT;
4149: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4142: pa_debug.g_err_stage:='l_start_date_tbl :'||p_start_date_tbl.COUNT;
4143: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4144: pa_debug.g_err_stage:='l_end_date_tbl :'||p_end_date_tbl.COUNT;
4145: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4146: pa_debug.g_err_stage:='l_etc_method_code_tbl :'||l_etc_method_code_tbl.COUNT;
4147: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4148: pa_debug.g_err_stage:='l_res_type_code_tbl :'||l_res_type_code_tbl.COUNT;
4149: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4150: pa_debug.g_err_stage:='l_fc_res_type_code_tbl :'||l_fc_res_type_code_tbl.COUNT;
4143: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4144: pa_debug.g_err_stage:='l_end_date_tbl :'||p_end_date_tbl.COUNT;
4145: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4146: pa_debug.g_err_stage:='l_etc_method_code_tbl :'||l_etc_method_code_tbl.COUNT;
4147: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4148: pa_debug.g_err_stage:='l_res_type_code_tbl :'||l_res_type_code_tbl.COUNT;
4149: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4150: pa_debug.g_err_stage:='l_fc_res_type_code_tbl :'||l_fc_res_type_code_tbl.COUNT;
4151: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4144: pa_debug.g_err_stage:='l_end_date_tbl :'||p_end_date_tbl.COUNT;
4145: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4146: pa_debug.g_err_stage:='l_etc_method_code_tbl :'||l_etc_method_code_tbl.COUNT;
4147: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4148: pa_debug.g_err_stage:='l_res_type_code_tbl :'||l_res_type_code_tbl.COUNT;
4149: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4150: pa_debug.g_err_stage:='l_fc_res_type_code_tbl :'||l_fc_res_type_code_tbl.COUNT;
4151: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4152: pa_debug.g_err_stage:='l_resource_class_code_tbl :'||l_resource_class_code_tbl.COUNT;
4145: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4146: pa_debug.g_err_stage:='l_etc_method_code_tbl :'||l_etc_method_code_tbl.COUNT;
4147: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4148: pa_debug.g_err_stage:='l_res_type_code_tbl :'||l_res_type_code_tbl.COUNT;
4149: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4150: pa_debug.g_err_stage:='l_fc_res_type_code_tbl :'||l_fc_res_type_code_tbl.COUNT;
4151: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4152: pa_debug.g_err_stage:='l_resource_class_code_tbl :'||l_resource_class_code_tbl.COUNT;
4153: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4146: pa_debug.g_err_stage:='l_etc_method_code_tbl :'||l_etc_method_code_tbl.COUNT;
4147: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4148: pa_debug.g_err_stage:='l_res_type_code_tbl :'||l_res_type_code_tbl.COUNT;
4149: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4150: pa_debug.g_err_stage:='l_fc_res_type_code_tbl :'||l_fc_res_type_code_tbl.COUNT;
4151: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4152: pa_debug.g_err_stage:='l_resource_class_code_tbl :'||l_resource_class_code_tbl.COUNT;
4153: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4154: pa_debug.g_err_stage:='l_organization_id_tbl :'||l_organization_id_tbl.COUNT;
4147: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4148: pa_debug.g_err_stage:='l_res_type_code_tbl :'||l_res_type_code_tbl.COUNT;
4149: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4150: pa_debug.g_err_stage:='l_fc_res_type_code_tbl :'||l_fc_res_type_code_tbl.COUNT;
4151: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4152: pa_debug.g_err_stage:='l_resource_class_code_tbl :'||l_resource_class_code_tbl.COUNT;
4153: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4154: pa_debug.g_err_stage:='l_organization_id_tbl :'||l_organization_id_tbl.COUNT;
4155: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4148: pa_debug.g_err_stage:='l_res_type_code_tbl :'||l_res_type_code_tbl.COUNT;
4149: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4150: pa_debug.g_err_stage:='l_fc_res_type_code_tbl :'||l_fc_res_type_code_tbl.COUNT;
4151: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4152: pa_debug.g_err_stage:='l_resource_class_code_tbl :'||l_resource_class_code_tbl.COUNT;
4153: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4154: pa_debug.g_err_stage:='l_organization_id_tbl :'||l_organization_id_tbl.COUNT;
4155: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4156: pa_debug.g_err_stage:='l_job_id_tbl :'||l_job_id_tbl.COUNT;
4149: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4150: pa_debug.g_err_stage:='l_fc_res_type_code_tbl :'||l_fc_res_type_code_tbl.COUNT;
4151: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4152: pa_debug.g_err_stage:='l_resource_class_code_tbl :'||l_resource_class_code_tbl.COUNT;
4153: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4154: pa_debug.g_err_stage:='l_organization_id_tbl :'||l_organization_id_tbl.COUNT;
4155: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4156: pa_debug.g_err_stage:='l_job_id_tbl :'||l_job_id_tbl.COUNT;
4157: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4150: pa_debug.g_err_stage:='l_fc_res_type_code_tbl :'||l_fc_res_type_code_tbl.COUNT;
4151: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4152: pa_debug.g_err_stage:='l_resource_class_code_tbl :'||l_resource_class_code_tbl.COUNT;
4153: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4154: pa_debug.g_err_stage:='l_organization_id_tbl :'||l_organization_id_tbl.COUNT;
4155: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4156: pa_debug.g_err_stage:='l_job_id_tbl :'||l_job_id_tbl.COUNT;
4157: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4158: pa_debug.g_err_stage:='l_person_id_tbl :'||l_person_id_tbl.COUNT;
4151: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4152: pa_debug.g_err_stage:='l_resource_class_code_tbl :'||l_resource_class_code_tbl.COUNT;
4153: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4154: pa_debug.g_err_stage:='l_organization_id_tbl :'||l_organization_id_tbl.COUNT;
4155: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4156: pa_debug.g_err_stage:='l_job_id_tbl :'||l_job_id_tbl.COUNT;
4157: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4158: pa_debug.g_err_stage:='l_person_id_tbl :'||l_person_id_tbl.COUNT;
4159: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4152: pa_debug.g_err_stage:='l_resource_class_code_tbl :'||l_resource_class_code_tbl.COUNT;
4153: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4154: pa_debug.g_err_stage:='l_organization_id_tbl :'||l_organization_id_tbl.COUNT;
4155: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4156: pa_debug.g_err_stage:='l_job_id_tbl :'||l_job_id_tbl.COUNT;
4157: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4158: pa_debug.g_err_stage:='l_person_id_tbl :'||l_person_id_tbl.COUNT;
4159: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4160: pa_debug.g_err_stage:='l_revenue_category_code_tbl :'||l_revenue_category_code_tbl.COUNT;
4153: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4154: pa_debug.g_err_stage:='l_organization_id_tbl :'||l_organization_id_tbl.COUNT;
4155: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4156: pa_debug.g_err_stage:='l_job_id_tbl :'||l_job_id_tbl.COUNT;
4157: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4158: pa_debug.g_err_stage:='l_person_id_tbl :'||l_person_id_tbl.COUNT;
4159: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4160: pa_debug.g_err_stage:='l_revenue_category_code_tbl :'||l_revenue_category_code_tbl.COUNT;
4161: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4154: pa_debug.g_err_stage:='l_organization_id_tbl :'||l_organization_id_tbl.COUNT;
4155: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4156: pa_debug.g_err_stage:='l_job_id_tbl :'||l_job_id_tbl.COUNT;
4157: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4158: pa_debug.g_err_stage:='l_person_id_tbl :'||l_person_id_tbl.COUNT;
4159: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4160: pa_debug.g_err_stage:='l_revenue_category_code_tbl :'||l_revenue_category_code_tbl.COUNT;
4161: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4162: pa_debug.g_err_stage:='l_expenditure_type_tbl :'||l_expenditure_type_tbl.COUNT;
4155: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4156: pa_debug.g_err_stage:='l_job_id_tbl :'||l_job_id_tbl.COUNT;
4157: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4158: pa_debug.g_err_stage:='l_person_id_tbl :'||l_person_id_tbl.COUNT;
4159: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4160: pa_debug.g_err_stage:='l_revenue_category_code_tbl :'||l_revenue_category_code_tbl.COUNT;
4161: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4162: pa_debug.g_err_stage:='l_expenditure_type_tbl :'||l_expenditure_type_tbl.COUNT;
4163: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4156: pa_debug.g_err_stage:='l_job_id_tbl :'||l_job_id_tbl.COUNT;
4157: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4158: pa_debug.g_err_stage:='l_person_id_tbl :'||l_person_id_tbl.COUNT;
4159: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4160: pa_debug.g_err_stage:='l_revenue_category_code_tbl :'||l_revenue_category_code_tbl.COUNT;
4161: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4162: pa_debug.g_err_stage:='l_expenditure_type_tbl :'||l_expenditure_type_tbl.COUNT;
4163: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4164: pa_debug.g_err_stage:='l_expenditure_category_tbl :'||l_expenditure_category_tbl.COUNT;
4157: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4158: pa_debug.g_err_stage:='l_person_id_tbl :'||l_person_id_tbl.COUNT;
4159: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4160: pa_debug.g_err_stage:='l_revenue_category_code_tbl :'||l_revenue_category_code_tbl.COUNT;
4161: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4162: pa_debug.g_err_stage:='l_expenditure_type_tbl :'||l_expenditure_type_tbl.COUNT;
4163: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4164: pa_debug.g_err_stage:='l_expenditure_category_tbl :'||l_expenditure_category_tbl.COUNT;
4165: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4158: pa_debug.g_err_stage:='l_person_id_tbl :'||l_person_id_tbl.COUNT;
4159: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4160: pa_debug.g_err_stage:='l_revenue_category_code_tbl :'||l_revenue_category_code_tbl.COUNT;
4161: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4162: pa_debug.g_err_stage:='l_expenditure_type_tbl :'||l_expenditure_type_tbl.COUNT;
4163: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4164: pa_debug.g_err_stage:='l_expenditure_category_tbl :'||l_expenditure_category_tbl.COUNT;
4165: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4166: pa_debug.g_err_stage:='l_non_labor_resource_tbl :'||l_non_labor_resource_tbl.COUNT;
4159: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4160: pa_debug.g_err_stage:='l_revenue_category_code_tbl :'||l_revenue_category_code_tbl.COUNT;
4161: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4162: pa_debug.g_err_stage:='l_expenditure_type_tbl :'||l_expenditure_type_tbl.COUNT;
4163: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4164: pa_debug.g_err_stage:='l_expenditure_category_tbl :'||l_expenditure_category_tbl.COUNT;
4165: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4166: pa_debug.g_err_stage:='l_non_labor_resource_tbl :'||l_non_labor_resource_tbl.COUNT;
4167: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4160: pa_debug.g_err_stage:='l_revenue_category_code_tbl :'||l_revenue_category_code_tbl.COUNT;
4161: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4162: pa_debug.g_err_stage:='l_expenditure_type_tbl :'||l_expenditure_type_tbl.COUNT;
4163: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4164: pa_debug.g_err_stage:='l_expenditure_category_tbl :'||l_expenditure_category_tbl.COUNT;
4165: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4166: pa_debug.g_err_stage:='l_non_labor_resource_tbl :'||l_non_labor_resource_tbl.COUNT;
4167: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4168: pa_debug.g_err_stage:='l_event_type_tbl :'||l_event_type_tbl.COUNT;
4161: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4162: pa_debug.g_err_stage:='l_expenditure_type_tbl :'||l_expenditure_type_tbl.COUNT;
4163: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4164: pa_debug.g_err_stage:='l_expenditure_category_tbl :'||l_expenditure_category_tbl.COUNT;
4165: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4166: pa_debug.g_err_stage:='l_non_labor_resource_tbl :'||l_non_labor_resource_tbl.COUNT;
4167: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4168: pa_debug.g_err_stage:='l_event_type_tbl :'||l_event_type_tbl.COUNT;
4169: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4162: pa_debug.g_err_stage:='l_expenditure_type_tbl :'||l_expenditure_type_tbl.COUNT;
4163: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4164: pa_debug.g_err_stage:='l_expenditure_category_tbl :'||l_expenditure_category_tbl.COUNT;
4165: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4166: pa_debug.g_err_stage:='l_non_labor_resource_tbl :'||l_non_labor_resource_tbl.COUNT;
4167: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4168: pa_debug.g_err_stage:='l_event_type_tbl :'||l_event_type_tbl.COUNT;
4169: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4170: pa_debug.g_err_stage:='l_supplier_id_tbl :'||l_supplier_id_tbl.COUNT;
4163: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4164: pa_debug.g_err_stage:='l_expenditure_category_tbl :'||l_expenditure_category_tbl.COUNT;
4165: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4166: pa_debug.g_err_stage:='l_non_labor_resource_tbl :'||l_non_labor_resource_tbl.COUNT;
4167: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4168: pa_debug.g_err_stage:='l_event_type_tbl :'||l_event_type_tbl.COUNT;
4169: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4170: pa_debug.g_err_stage:='l_supplier_id_tbl :'||l_supplier_id_tbl.COUNT;
4171: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4164: pa_debug.g_err_stage:='l_expenditure_category_tbl :'||l_expenditure_category_tbl.COUNT;
4165: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4166: pa_debug.g_err_stage:='l_non_labor_resource_tbl :'||l_non_labor_resource_tbl.COUNT;
4167: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4168: pa_debug.g_err_stage:='l_event_type_tbl :'||l_event_type_tbl.COUNT;
4169: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4170: pa_debug.g_err_stage:='l_supplier_id_tbl :'||l_supplier_id_tbl.COUNT;
4171: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4172: pa_debug.g_err_stage:='l_inventory_item_id_tbl :'||l_inventory_item_id_tbl.COUNT;
4165: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4166: pa_debug.g_err_stage:='l_non_labor_resource_tbl :'||l_non_labor_resource_tbl.COUNT;
4167: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4168: pa_debug.g_err_stage:='l_event_type_tbl :'||l_event_type_tbl.COUNT;
4169: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4170: pa_debug.g_err_stage:='l_supplier_id_tbl :'||l_supplier_id_tbl.COUNT;
4171: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4172: pa_debug.g_err_stage:='l_inventory_item_id_tbl :'||l_inventory_item_id_tbl.COUNT;
4173: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4166: pa_debug.g_err_stage:='l_non_labor_resource_tbl :'||l_non_labor_resource_tbl.COUNT;
4167: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4168: pa_debug.g_err_stage:='l_event_type_tbl :'||l_event_type_tbl.COUNT;
4169: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4170: pa_debug.g_err_stage:='l_supplier_id_tbl :'||l_supplier_id_tbl.COUNT;
4171: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4172: pa_debug.g_err_stage:='l_inventory_item_id_tbl :'||l_inventory_item_id_tbl.COUNT;
4173: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4174: pa_debug.g_err_stage:='l_bom_resource_id_tbl :'||l_bom_resource_id_tbl.COUNT;
4167: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4168: pa_debug.g_err_stage:='l_event_type_tbl :'||l_event_type_tbl.COUNT;
4169: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4170: pa_debug.g_err_stage:='l_supplier_id_tbl :'||l_supplier_id_tbl.COUNT;
4171: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4172: pa_debug.g_err_stage:='l_inventory_item_id_tbl :'||l_inventory_item_id_tbl.COUNT;
4173: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4174: pa_debug.g_err_stage:='l_bom_resource_id_tbl :'||l_bom_resource_id_tbl.COUNT;
4175: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4168: pa_debug.g_err_stage:='l_event_type_tbl :'||l_event_type_tbl.COUNT;
4169: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4170: pa_debug.g_err_stage:='l_supplier_id_tbl :'||l_supplier_id_tbl.COUNT;
4171: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4172: pa_debug.g_err_stage:='l_inventory_item_id_tbl :'||l_inventory_item_id_tbl.COUNT;
4173: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4174: pa_debug.g_err_stage:='l_bom_resource_id_tbl :'||l_bom_resource_id_tbl.COUNT;
4175: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4176: pa_debug.g_err_stage:='l_inventory_item_id_tbl :'||l_inventory_item_id_tbl.COUNT;
4169: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4170: pa_debug.g_err_stage:='l_supplier_id_tbl :'||l_supplier_id_tbl.COUNT;
4171: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4172: pa_debug.g_err_stage:='l_inventory_item_id_tbl :'||l_inventory_item_id_tbl.COUNT;
4173: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4174: pa_debug.g_err_stage:='l_bom_resource_id_tbl :'||l_bom_resource_id_tbl.COUNT;
4175: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4176: pa_debug.g_err_stage:='l_inventory_item_id_tbl :'||l_inventory_item_id_tbl.COUNT;
4177: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4170: pa_debug.g_err_stage:='l_supplier_id_tbl :'||l_supplier_id_tbl.COUNT;
4171: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4172: pa_debug.g_err_stage:='l_inventory_item_id_tbl :'||l_inventory_item_id_tbl.COUNT;
4173: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4174: pa_debug.g_err_stage:='l_bom_resource_id_tbl :'||l_bom_resource_id_tbl.COUNT;
4175: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4176: pa_debug.g_err_stage:='l_inventory_item_id_tbl :'||l_inventory_item_id_tbl.COUNT;
4177: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4178: pa_debug.g_err_stage:='l_item_category_id_tbl :'||l_item_category_id_tbl.COUNT;
4171: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4172: pa_debug.g_err_stage:='l_inventory_item_id_tbl :'||l_inventory_item_id_tbl.COUNT;
4173: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4174: pa_debug.g_err_stage:='l_bom_resource_id_tbl :'||l_bom_resource_id_tbl.COUNT;
4175: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4176: pa_debug.g_err_stage:='l_inventory_item_id_tbl :'||l_inventory_item_id_tbl.COUNT;
4177: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4178: pa_debug.g_err_stage:='l_item_category_id_tbl :'||l_item_category_id_tbl.COUNT;
4179: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4172: pa_debug.g_err_stage:='l_inventory_item_id_tbl :'||l_inventory_item_id_tbl.COUNT;
4173: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4174: pa_debug.g_err_stage:='l_bom_resource_id_tbl :'||l_bom_resource_id_tbl.COUNT;
4175: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4176: pa_debug.g_err_stage:='l_inventory_item_id_tbl :'||l_inventory_item_id_tbl.COUNT;
4177: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4178: pa_debug.g_err_stage:='l_item_category_id_tbl :'||l_item_category_id_tbl.COUNT;
4179: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4180: pa_debug.g_err_stage:='l_mfc_cost_type_id_tbl :'||l_mfc_cost_type_id_tbl.COUNT;
4173: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4174: pa_debug.g_err_stage:='l_bom_resource_id_tbl :'||l_bom_resource_id_tbl.COUNT;
4175: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4176: pa_debug.g_err_stage:='l_inventory_item_id_tbl :'||l_inventory_item_id_tbl.COUNT;
4177: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4178: pa_debug.g_err_stage:='l_item_category_id_tbl :'||l_item_category_id_tbl.COUNT;
4179: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4180: pa_debug.g_err_stage:='l_mfc_cost_type_id_tbl :'||l_mfc_cost_type_id_tbl.COUNT;
4181: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4174: pa_debug.g_err_stage:='l_bom_resource_id_tbl :'||l_bom_resource_id_tbl.COUNT;
4175: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4176: pa_debug.g_err_stage:='l_inventory_item_id_tbl :'||l_inventory_item_id_tbl.COUNT;
4177: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4178: pa_debug.g_err_stage:='l_item_category_id_tbl :'||l_item_category_id_tbl.COUNT;
4179: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4180: pa_debug.g_err_stage:='l_mfc_cost_type_id_tbl :'||l_mfc_cost_type_id_tbl.COUNT;
4181: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4182: pa_debug.g_err_stage:='l_rate_expenditure_type_tbl :'||l_rate_expenditure_type_tbl.COUNT;
4175: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4176: pa_debug.g_err_stage:='l_inventory_item_id_tbl :'||l_inventory_item_id_tbl.COUNT;
4177: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4178: pa_debug.g_err_stage:='l_item_category_id_tbl :'||l_item_category_id_tbl.COUNT;
4179: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4180: pa_debug.g_err_stage:='l_mfc_cost_type_id_tbl :'||l_mfc_cost_type_id_tbl.COUNT;
4181: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4182: pa_debug.g_err_stage:='l_rate_expenditure_type_tbl :'||l_rate_expenditure_type_tbl.COUNT;
4183: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4176: pa_debug.g_err_stage:='l_inventory_item_id_tbl :'||l_inventory_item_id_tbl.COUNT;
4177: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4178: pa_debug.g_err_stage:='l_item_category_id_tbl :'||l_item_category_id_tbl.COUNT;
4179: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4180: pa_debug.g_err_stage:='l_mfc_cost_type_id_tbl :'||l_mfc_cost_type_id_tbl.COUNT;
4181: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4182: pa_debug.g_err_stage:='l_rate_expenditure_type_tbl :'||l_rate_expenditure_type_tbl.COUNT;
4183: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4184: pa_debug.g_err_stage:='l_rate_func_curr_code_tbl :'||l_rate_func_curr_code_tbl.COUNT;
4177: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4178: pa_debug.g_err_stage:='l_item_category_id_tbl :'||l_item_category_id_tbl.COUNT;
4179: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4180: pa_debug.g_err_stage:='l_mfc_cost_type_id_tbl :'||l_mfc_cost_type_id_tbl.COUNT;
4181: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4182: pa_debug.g_err_stage:='l_rate_expenditure_type_tbl :'||l_rate_expenditure_type_tbl.COUNT;
4183: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4184: pa_debug.g_err_stage:='l_rate_func_curr_code_tbl :'||l_rate_func_curr_code_tbl.COUNT;
4185: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4178: pa_debug.g_err_stage:='l_item_category_id_tbl :'||l_item_category_id_tbl.COUNT;
4179: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4180: pa_debug.g_err_stage:='l_mfc_cost_type_id_tbl :'||l_mfc_cost_type_id_tbl.COUNT;
4181: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4182: pa_debug.g_err_stage:='l_rate_expenditure_type_tbl :'||l_rate_expenditure_type_tbl.COUNT;
4183: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4184: pa_debug.g_err_stage:='l_rate_func_curr_code_tbl :'||l_rate_func_curr_code_tbl.COUNT;
4185: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4186: pa_debug.g_err_stage:='l_rate_based_flag_tbl :'||l_rate_based_flag_tbl.COUNT;
4179: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4180: pa_debug.g_err_stage:='l_mfc_cost_type_id_tbl :'||l_mfc_cost_type_id_tbl.COUNT;
4181: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4182: pa_debug.g_err_stage:='l_rate_expenditure_type_tbl :'||l_rate_expenditure_type_tbl.COUNT;
4183: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4184: pa_debug.g_err_stage:='l_rate_func_curr_code_tbl :'||l_rate_func_curr_code_tbl.COUNT;
4185: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4186: pa_debug.g_err_stage:='l_rate_based_flag_tbl :'||l_rate_based_flag_tbl.COUNT;
4187: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4180: pa_debug.g_err_stage:='l_mfc_cost_type_id_tbl :'||l_mfc_cost_type_id_tbl.COUNT;
4181: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4182: pa_debug.g_err_stage:='l_rate_expenditure_type_tbl :'||l_rate_expenditure_type_tbl.COUNT;
4183: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4184: pa_debug.g_err_stage:='l_rate_func_curr_code_tbl :'||l_rate_func_curr_code_tbl.COUNT;
4185: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4186: pa_debug.g_err_stage:='l_rate_based_flag_tbl :'||l_rate_based_flag_tbl.COUNT;
4187: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4188: pa_debug.g_err_stage:='l_resource_class_flag_tbl :'||l_resource_class_flag_tbl.COUNT;
4181: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4182: pa_debug.g_err_stage:='l_rate_expenditure_type_tbl :'||l_rate_expenditure_type_tbl.COUNT;
4183: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4184: pa_debug.g_err_stage:='l_rate_func_curr_code_tbl :'||l_rate_func_curr_code_tbl.COUNT;
4185: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4186: pa_debug.g_err_stage:='l_rate_based_flag_tbl :'||l_rate_based_flag_tbl.COUNT;
4187: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4188: pa_debug.g_err_stage:='l_resource_class_flag_tbl :'||l_resource_class_flag_tbl.COUNT;
4189: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4182: pa_debug.g_err_stage:='l_rate_expenditure_type_tbl :'||l_rate_expenditure_type_tbl.COUNT;
4183: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4184: pa_debug.g_err_stage:='l_rate_func_curr_code_tbl :'||l_rate_func_curr_code_tbl.COUNT;
4185: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4186: pa_debug.g_err_stage:='l_rate_based_flag_tbl :'||l_rate_based_flag_tbl.COUNT;
4187: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4188: pa_debug.g_err_stage:='l_resource_class_flag_tbl :'||l_resource_class_flag_tbl.COUNT;
4189: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4190: pa_debug.g_err_stage:='l_named_role_tbl :'||l_named_role_tbl.COUNT;
4183: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4184: pa_debug.g_err_stage:='l_rate_func_curr_code_tbl :'||l_rate_func_curr_code_tbl.COUNT;
4185: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4186: pa_debug.g_err_stage:='l_rate_based_flag_tbl :'||l_rate_based_flag_tbl.COUNT;
4187: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4188: pa_debug.g_err_stage:='l_resource_class_flag_tbl :'||l_resource_class_flag_tbl.COUNT;
4189: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4190: pa_debug.g_err_stage:='l_named_role_tbl :'||l_named_role_tbl.COUNT;
4191: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4184: pa_debug.g_err_stage:='l_rate_func_curr_code_tbl :'||l_rate_func_curr_code_tbl.COUNT;
4185: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4186: pa_debug.g_err_stage:='l_rate_based_flag_tbl :'||l_rate_based_flag_tbl.COUNT;
4187: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4188: pa_debug.g_err_stage:='l_resource_class_flag_tbl :'||l_resource_class_flag_tbl.COUNT;
4189: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4190: pa_debug.g_err_stage:='l_named_role_tbl :'||l_named_role_tbl.COUNT;
4191: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4192: pa_debug.g_err_stage:='l_incur_by_res_class_code_tbl :'||l_incur_by_res_class_code_tbl.COUNT;
4185: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4186: pa_debug.g_err_stage:='l_rate_based_flag_tbl :'||l_rate_based_flag_tbl.COUNT;
4187: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4188: pa_debug.g_err_stage:='l_resource_class_flag_tbl :'||l_resource_class_flag_tbl.COUNT;
4189: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4190: pa_debug.g_err_stage:='l_named_role_tbl :'||l_named_role_tbl.COUNT;
4191: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4192: pa_debug.g_err_stage:='l_incur_by_res_class_code_tbl :'||l_incur_by_res_class_code_tbl.COUNT;
4193: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4186: pa_debug.g_err_stage:='l_rate_based_flag_tbl :'||l_rate_based_flag_tbl.COUNT;
4187: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4188: pa_debug.g_err_stage:='l_resource_class_flag_tbl :'||l_resource_class_flag_tbl.COUNT;
4189: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4190: pa_debug.g_err_stage:='l_named_role_tbl :'||l_named_role_tbl.COUNT;
4191: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4192: pa_debug.g_err_stage:='l_incur_by_res_class_code_tbl :'||l_incur_by_res_class_code_tbl.COUNT;
4193: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4194: pa_debug.g_err_stage:='l_budget_version_id :'||l_budget_version_id;
4187: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4188: pa_debug.g_err_stage:='l_resource_class_flag_tbl :'||l_resource_class_flag_tbl.COUNT;
4189: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4190: pa_debug.g_err_stage:='l_named_role_tbl :'||l_named_role_tbl.COUNT;
4191: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4192: pa_debug.g_err_stage:='l_incur_by_res_class_code_tbl :'||l_incur_by_res_class_code_tbl.COUNT;
4193: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4194: pa_debug.g_err_stage:='l_budget_version_id :'||l_budget_version_id;
4195: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4188: pa_debug.g_err_stage:='l_resource_class_flag_tbl :'||l_resource_class_flag_tbl.COUNT;
4189: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4190: pa_debug.g_err_stage:='l_named_role_tbl :'||l_named_role_tbl.COUNT;
4191: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4192: pa_debug.g_err_stage:='l_incur_by_res_class_code_tbl :'||l_incur_by_res_class_code_tbl.COUNT;
4193: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4194: pa_debug.g_err_stage:='l_budget_version_id :'||l_budget_version_id;
4195: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4196: pa_debug.g_err_stage:='p_project_id :'||p_project_id;
4189: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4190: pa_debug.g_err_stage:='l_named_role_tbl :'||l_named_role_tbl.COUNT;
4191: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4192: pa_debug.g_err_stage:='l_incur_by_res_class_code_tbl :'||l_incur_by_res_class_code_tbl.COUNT;
4193: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4194: pa_debug.g_err_stage:='l_budget_version_id :'||l_budget_version_id;
4195: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4196: pa_debug.g_err_stage:='p_project_id :'||p_project_id;
4197: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4190: pa_debug.g_err_stage:='l_named_role_tbl :'||l_named_role_tbl.COUNT;
4191: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4192: pa_debug.g_err_stage:='l_incur_by_res_class_code_tbl :'||l_incur_by_res_class_code_tbl.COUNT;
4193: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4194: pa_debug.g_err_stage:='l_budget_version_id :'||l_budget_version_id;
4195: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4196: pa_debug.g_err_stage:='p_project_id :'||p_project_id;
4197: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4198: pa_debug.g_err_stage:='task_id :'||l_proj_element_id_tbl(i);
4191: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4192: pa_debug.g_err_stage:='l_incur_by_res_class_code_tbl :'||l_incur_by_res_class_code_tbl.COUNT;
4193: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4194: pa_debug.g_err_stage:='l_budget_version_id :'||l_budget_version_id;
4195: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4196: pa_debug.g_err_stage:='p_project_id :'||p_project_id;
4197: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4198: pa_debug.g_err_stage:='task_id :'||l_proj_element_id_tbl(i);
4199: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4192: pa_debug.g_err_stage:='l_incur_by_res_class_code_tbl :'||l_incur_by_res_class_code_tbl.COUNT;
4193: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4194: pa_debug.g_err_stage:='l_budget_version_id :'||l_budget_version_id;
4195: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4196: pa_debug.g_err_stage:='p_project_id :'||p_project_id;
4197: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4198: pa_debug.g_err_stage:='task_id :'||l_proj_element_id_tbl(i);
4199: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4200: pa_debug.g_err_stage:='project_assignment_id : -1';
4193: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4194: pa_debug.g_err_stage:='l_budget_version_id :'||l_budget_version_id;
4195: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4196: pa_debug.g_err_stage:='p_project_id :'||p_project_id;
4197: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4198: pa_debug.g_err_stage:='task_id :'||l_proj_element_id_tbl(i);
4199: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4200: pa_debug.g_err_stage:='project_assignment_id : -1';
4201: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4194: pa_debug.g_err_stage:='l_budget_version_id :'||l_budget_version_id;
4195: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4196: pa_debug.g_err_stage:='p_project_id :'||p_project_id;
4197: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4198: pa_debug.g_err_stage:='task_id :'||l_proj_element_id_tbl(i);
4199: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4200: pa_debug.g_err_stage:='project_assignment_id : -1';
4201: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4202: pa_debug.g_err_stage:='RESOURCE_LIST_MEMBER_ID :'||l_people_res_class_rlm_id;
4195: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4196: pa_debug.g_err_stage:='p_project_id :'||p_project_id;
4197: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4198: pa_debug.g_err_stage:='task_id :'||l_proj_element_id_tbl(i);
4199: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4200: pa_debug.g_err_stage:='project_assignment_id : -1';
4201: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4202: pa_debug.g_err_stage:='RESOURCE_LIST_MEMBER_ID :'||l_people_res_class_rlm_id;
4203: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);*/
4196: pa_debug.g_err_stage:='p_project_id :'||p_project_id;
4197: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4198: pa_debug.g_err_stage:='task_id :'||l_proj_element_id_tbl(i);
4199: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4200: pa_debug.g_err_stage:='project_assignment_id : -1';
4201: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4202: pa_debug.g_err_stage:='RESOURCE_LIST_MEMBER_ID :'||l_people_res_class_rlm_id;
4203: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);*/
4204:
4197: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4198: pa_debug.g_err_stage:='task_id :'||l_proj_element_id_tbl(i);
4199: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4200: pa_debug.g_err_stage:='project_assignment_id : -1';
4201: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4202: pa_debug.g_err_stage:='RESOURCE_LIST_MEMBER_ID :'||l_people_res_class_rlm_id;
4203: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);*/
4204:
4205: /* l_trace_stage := 761;
4198: pa_debug.g_err_stage:='task_id :'||l_proj_element_id_tbl(i);
4199: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4200: pa_debug.g_err_stage:='project_assignment_id : -1';
4201: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4202: pa_debug.g_err_stage:='RESOURCE_LIST_MEMBER_ID :'||l_people_res_class_rlm_id;
4203: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);*/
4204:
4205: /* l_trace_stage := 761;
4206: hr_utility.trace('l_proj_element_id_tbl(i) => '||to_char(l_proj_element_id_tbl(i)));
4199: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4200: pa_debug.g_err_stage:='project_assignment_id : -1';
4201: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4202: pa_debug.g_err_stage:='RESOURCE_LIST_MEMBER_ID :'||l_people_res_class_rlm_id;
4203: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);*/
4204:
4205: /* l_trace_stage := 761;
4206: hr_utility.trace('l_proj_element_id_tbl(i) => '||to_char(l_proj_element_id_tbl(i)));
4207: hr_utility.trace('l_unit_of_measure_tbl(l_ppl_index) => '||to_char(l_unit_of_measure_tbl(l_ppl_index)));
4240: -- Bug 3749516 Changing All reference of l_ppl_equip_index to l_ppl_index below
4241: l_ppl_index:=1; --This will be used in the bulk insert for people -- -- Bug 3749516
4242:
4243: IF l_debug_mode = 'Y' THEN
4244: pa_debug.g_err_stage:='BULK INSERTING DATA - p_context - Workplan :'||p_context ;
4245: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4246:
4247: pa_debug.g_err_stage:='BULK INSERTING Workplan DATA - rlm id :'||l_eligible_rlm_ids_tbl(l_ppl_index) ;
4248: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,6);
4241: l_ppl_index:=1; --This will be used in the bulk insert for people -- -- Bug 3749516
4242:
4243: IF l_debug_mode = 'Y' THEN
4244: pa_debug.g_err_stage:='BULK INSERTING DATA - p_context - Workplan :'||p_context ;
4245: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4246:
4247: pa_debug.g_err_stage:='BULK INSERTING Workplan DATA - rlm id :'||l_eligible_rlm_ids_tbl(l_ppl_index) ;
4248: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,6);
4249: END IF;
4243: IF l_debug_mode = 'Y' THEN
4244: pa_debug.g_err_stage:='BULK INSERTING DATA - p_context - Workplan :'||p_context ;
4245: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4246:
4247: pa_debug.g_err_stage:='BULK INSERTING Workplan DATA - rlm id :'||l_eligible_rlm_ids_tbl(l_ppl_index) ;
4248: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,6);
4249: END IF;
4250: -- gboomina Bug 8586393 - start
4251: -- Get 'Assignment same as Task Duration' flag from workplan attribute
4244: pa_debug.g_err_stage:='BULK INSERTING DATA - p_context - Workplan :'||p_context ;
4245: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4246:
4247: pa_debug.g_err_stage:='BULK INSERTING Workplan DATA - rlm id :'||l_eligible_rlm_ids_tbl(l_ppl_index) ;
4248: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,6);
4249: END IF;
4250: -- gboomina Bug 8586393 - start
4251: -- Get 'Assignment same as Task Duration' flag from workplan attribute
4252: -- and default it for hidden task assignments
4301: -- gboomina Bug 8586393 - end
4302:
4303:
4304: IF l_debug_mode = 'Y' THEN
4305: pa_debug.g_err_stage:='AFTER PREPARING INS DATA :'||p_context ;
4306: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4307:
4308: IF l_ins_task_elem_version_id_tbl.COUNT >0 THEN
4309: FOR i in l_ins_task_elem_version_id_tbl.FIRST .. l_ins_task_elem_version_id_tbl.LAST LOOP
4302:
4303:
4304: IF l_debug_mode = 'Y' THEN
4305: pa_debug.g_err_stage:='AFTER PREPARING INS DATA :'||p_context ;
4306: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4307:
4308: IF l_ins_task_elem_version_id_tbl.COUNT >0 THEN
4309: FOR i in l_ins_task_elem_version_id_tbl.FIRST .. l_ins_task_elem_version_id_tbl.LAST LOOP
4310: pa_debug.g_err_stage:='l_ins_proj_element_id_tbl :'||l_ins_proj_element_id_tbl(i) ;
4306: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4307:
4308: IF l_ins_task_elem_version_id_tbl.COUNT >0 THEN
4309: FOR i in l_ins_task_elem_version_id_tbl.FIRST .. l_ins_task_elem_version_id_tbl.LAST LOOP
4310: pa_debug.g_err_stage:='l_ins_proj_element_id_tbl :'||l_ins_proj_element_id_tbl(i) ;
4311: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4312:
4313: pa_debug.g_err_stage:='l_ins_task_elem_version_id_tbl :'||l_ins_task_elem_version_id_tbl(i) ;
4314: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4307:
4308: IF l_ins_task_elem_version_id_tbl.COUNT >0 THEN
4309: FOR i in l_ins_task_elem_version_id_tbl.FIRST .. l_ins_task_elem_version_id_tbl.LAST LOOP
4310: pa_debug.g_err_stage:='l_ins_proj_element_id_tbl :'||l_ins_proj_element_id_tbl(i) ;
4311: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4312:
4313: pa_debug.g_err_stage:='l_ins_task_elem_version_id_tbl :'||l_ins_task_elem_version_id_tbl(i) ;
4314: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4315:
4309: FOR i in l_ins_task_elem_version_id_tbl.FIRST .. l_ins_task_elem_version_id_tbl.LAST LOOP
4310: pa_debug.g_err_stage:='l_ins_proj_element_id_tbl :'||l_ins_proj_element_id_tbl(i) ;
4311: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4312:
4313: pa_debug.g_err_stage:='l_ins_task_elem_version_id_tbl :'||l_ins_task_elem_version_id_tbl(i) ;
4314: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4315:
4316: pa_debug.g_err_stage:='l_ins_start_date_tbl :'||l_ins_start_date_tbl(i) ;
4317: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4310: pa_debug.g_err_stage:='l_ins_proj_element_id_tbl :'||l_ins_proj_element_id_tbl(i) ;
4311: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4312:
4313: pa_debug.g_err_stage:='l_ins_task_elem_version_id_tbl :'||l_ins_task_elem_version_id_tbl(i) ;
4314: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4315:
4316: pa_debug.g_err_stage:='l_ins_start_date_tbl :'||l_ins_start_date_tbl(i) ;
4317: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4318:
4312:
4313: pa_debug.g_err_stage:='l_ins_task_elem_version_id_tbl :'||l_ins_task_elem_version_id_tbl(i) ;
4314: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4315:
4316: pa_debug.g_err_stage:='l_ins_start_date_tbl :'||l_ins_start_date_tbl(i) ;
4317: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4318:
4319: pa_debug.g_err_stage:='l_ins_end_date_tbl :'||l_ins_end_date_tbl(i) ;
4320: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4313: pa_debug.g_err_stage:='l_ins_task_elem_version_id_tbl :'||l_ins_task_elem_version_id_tbl(i) ;
4314: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4315:
4316: pa_debug.g_err_stage:='l_ins_start_date_tbl :'||l_ins_start_date_tbl(i) ;
4317: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4318:
4319: pa_debug.g_err_stage:='l_ins_end_date_tbl :'||l_ins_end_date_tbl(i) ;
4320: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4321: END LOOP;
4315:
4316: pa_debug.g_err_stage:='l_ins_start_date_tbl :'||l_ins_start_date_tbl(i) ;
4317: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4318:
4319: pa_debug.g_err_stage:='l_ins_end_date_tbl :'||l_ins_end_date_tbl(i) ;
4320: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4321: END LOOP;
4322: END IF;
4323: END IF;
4316: pa_debug.g_err_stage:='l_ins_start_date_tbl :'||l_ins_start_date_tbl(i) ;
4317: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4318:
4319: pa_debug.g_err_stage:='l_ins_end_date_tbl :'||l_ins_end_date_tbl(i) ;
4320: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4321: END LOOP;
4322: END IF;
4323: END IF;
4324:
4507: IF l_res_assignment_id_temp_tbl(k) IS NOT NULL THEN
4508: l_trace_stage := 780;
4509: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
4510: IF l_debug_mode = 'Y' THEN
4511: pa_debug.g_err_stage:='BULK INSERTING DATA - WORPLAN - PEOPLE '||l_res_assignment_id_temp_tbl(k);
4512: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4513: END IF;
4514: l_quantity_tbl(l_index) := l_ins_cal_people_effort_tbl(k);
4515: l_res_assignment_id_tbl(l_index) := l_res_assignment_id_temp_tbl(k);
4508: l_trace_stage := 780;
4509: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
4510: IF l_debug_mode = 'Y' THEN
4511: pa_debug.g_err_stage:='BULK INSERTING DATA - WORPLAN - PEOPLE '||l_res_assignment_id_temp_tbl(k);
4512: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4513: END IF;
4514: l_quantity_tbl(l_index) := l_ins_cal_people_effort_tbl(k);
4515: l_res_assignment_id_tbl(l_index) := l_res_assignment_id_temp_tbl(k);
4516: -- IF l_spread_amounts_for_ver = 'Y' THEN
4566: -- for p_context - TASK_ASSIGNMENTS
4567: --------------------------------------------
4568: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
4569: IF l_debug_mode = 'Y' THEN
4570: pa_debug.g_err_stage:='BULK INSERTING DATA - Context TASK p_context : '||p_context;
4571: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4572: END IF;
4573:
4574: -- Bug 12384023: Deriving job_id based on assignment start date :start
4567: --------------------------------------------
4568: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
4569: IF l_debug_mode = 'Y' THEN
4570: pa_debug.g_err_stage:='BULK INSERTING DATA - Context TASK p_context : '||p_context;
4571: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4572: END IF;
4573:
4574: -- Bug 12384023: Deriving job_id based on assignment start date :start
4575: FOR j IN l_eligible_rlm_ids_tbl.FIRST .. l_eligible_rlm_ids_tbl.LAST LOOP
4574: -- Bug 12384023: Deriving job_id based on assignment start date :start
4575: FOR j IN l_eligible_rlm_ids_tbl.FIRST .. l_eligible_rlm_ids_tbl.LAST LOOP
4576:
4577: IF l_debug_mode = 'Y' THEN
4578: pa_debug.g_err_stage:='PA_PLANNING_RESOURCE_UTILS: default_job l_job_id_tbl(j) : '||l_job_id_tbl(j);
4579: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4580: END IF;
4581:
4582: l_job_id_temp := NULL; --bug#13566990
4575: FOR j IN l_eligible_rlm_ids_tbl.FIRST .. l_eligible_rlm_ids_tbl.LAST LOOP
4576:
4577: IF l_debug_mode = 'Y' THEN
4578: pa_debug.g_err_stage:='PA_PLANNING_RESOURCE_UTILS: default_job l_job_id_tbl(j) : '||l_job_id_tbl(j);
4579: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4580: END IF;
4581:
4582: l_job_id_temp := NULL; --bug#13566990
4583:
4595: l_job_id_tbl(j) := l_job_id_temp;
4596: END IF;
4597:
4598: IF l_debug_mode = 'Y' THEN
4599: pa_debug.g_err_stage:='l_job_id_tbl(j) : '||l_job_id_tbl(j);
4600: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4601: END IF;
4602:
4603: END LOOP;
4596: END IF;
4597:
4598: IF l_debug_mode = 'Y' THEN
4599: pa_debug.g_err_stage:='l_job_id_tbl(j) : '||l_job_id_tbl(j);
4600: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4601: END IF;
4602:
4603: END LOOP;
4604: -- Bug 12384023: Deriving job_id based on assignment start date :end
4788: -------------------------------------------------------------------------------
4789:
4790: IF l_res_assignment_id_temp_tbl.COUNT <> l_eligible_rlm_ids_tbl.COUNT THEN
4791: IF l_debug_mode = 'Y' THEN
4792: pa_debug.g_err_stage:='For Budget and Forcast p_context - data mismatch';
4793: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4794: END IF;
4795: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4796: END IF;
4789:
4790: IF l_res_assignment_id_temp_tbl.COUNT <> l_eligible_rlm_ids_tbl.COUNT THEN
4791: IF l_debug_mode = 'Y' THEN
4792: pa_debug.g_err_stage:='For Budget and Forcast p_context - data mismatch';
4793: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4794: END IF;
4795: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4796: END IF;
4797: -----------------------------------------------------------------------
4808:
4809: FOR k IN l_res_assignment_id_temp_tbl.FIRST .. l_res_assignment_id_temp_tbl.LAST LOOP
4810:
4811: IF l_debug_mode = 'Y' THEN
4812: pa_debug.g_err_stage:='BULK INSERTING DATA - TASK Setting DATA - raid count : '||l_res_assignment_id_temp_tbl.COUNT;
4813: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4814: END IF;
4815:
4816: -- Bug 8370812 - Moved inside the IF loop
4809: FOR k IN l_res_assignment_id_temp_tbl.FIRST .. l_res_assignment_id_temp_tbl.LAST LOOP
4810:
4811: IF l_debug_mode = 'Y' THEN
4812: pa_debug.g_err_stage:='BULK INSERTING DATA - TASK Setting DATA - raid count : '||l_res_assignment_id_temp_tbl.COUNT;
4813: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4814: END IF;
4815:
4816: -- Bug 8370812 - Moved inside the IF loop
4817: -- l_res_assignment_id_tbl(l_index) := l_res_assignment_id_temp_tbl(k);
4829: /* bug fix:Bug fix:5726773 AND (p_burdened_cost_tbl(k) <> 0))) THEN */
4830: AND (p_burdened_cost_tbl(k) is NOT NULL))) THEN
4831:
4832: IF l_debug_mode = 'Y' THEN
4833: pa_debug.g_err_stage:='BULK INSERTING DATA - TASK spread amount flag';
4834: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4835: END IF;
4836:
4837: -- Bug 8370812
4830: AND (p_burdened_cost_tbl(k) is NOT NULL))) THEN
4831:
4832: IF l_debug_mode = 'Y' THEN
4833: pa_debug.g_err_stage:='BULK INSERTING DATA - TASK spread amount flag';
4834: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4835: END IF;
4836:
4837: -- Bug 8370812
4838: l_res_assignment_id_tbl(l_index) := l_res_assignment_id_temp_tbl(k);
4955: -------------------------------------------------------------------
4956:
4957: BEGIN
4958: IF l_debug_mode = 'Y' THEN
4959: pa_debug.g_err_stage:='BULK INSERTING DATA - Context TASK p_context : '||p_context;
4960: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4961:
4962: pa_debug.g_err_stage:='l_eligible_rlm_ids_tbl.count '||l_eligible_rlm_ids_tbl.count;
4963: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4956:
4957: BEGIN
4958: IF l_debug_mode = 'Y' THEN
4959: pa_debug.g_err_stage:='BULK INSERTING DATA - Context TASK p_context : '||p_context;
4960: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4961:
4962: pa_debug.g_err_stage:='l_eligible_rlm_ids_tbl.count '||l_eligible_rlm_ids_tbl.count;
4963: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4964:
4958: IF l_debug_mode = 'Y' THEN
4959: pa_debug.g_err_stage:='BULK INSERTING DATA - Context TASK p_context : '||p_context;
4960: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4961:
4962: pa_debug.g_err_stage:='l_eligible_rlm_ids_tbl.count '||l_eligible_rlm_ids_tbl.count;
4963: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4964:
4965: pa_debug.g_err_stage:='l_bf_quantity_tbl.count '||l_bf_quantity_tbl.count;
4966: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4959: pa_debug.g_err_stage:='BULK INSERTING DATA - Context TASK p_context : '||p_context;
4960: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4961:
4962: pa_debug.g_err_stage:='l_eligible_rlm_ids_tbl.count '||l_eligible_rlm_ids_tbl.count;
4963: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4964:
4965: pa_debug.g_err_stage:='l_bf_quantity_tbl.count '||l_bf_quantity_tbl.count;
4966: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4967:
4961:
4962: pa_debug.g_err_stage:='l_eligible_rlm_ids_tbl.count '||l_eligible_rlm_ids_tbl.count;
4963: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4964:
4965: pa_debug.g_err_stage:='l_bf_quantity_tbl.count '||l_bf_quantity_tbl.count;
4966: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4967:
4968: pa_debug.g_err_stage:='l_bf_raw_cost_tbl.count '||l_bf_raw_cost_tbl.count;
4969: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4962: pa_debug.g_err_stage:='l_eligible_rlm_ids_tbl.count '||l_eligible_rlm_ids_tbl.count;
4963: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4964:
4965: pa_debug.g_err_stage:='l_bf_quantity_tbl.count '||l_bf_quantity_tbl.count;
4966: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4967:
4968: pa_debug.g_err_stage:='l_bf_raw_cost_tbl.count '||l_bf_raw_cost_tbl.count;
4969: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4970:
4964:
4965: pa_debug.g_err_stage:='l_bf_quantity_tbl.count '||l_bf_quantity_tbl.count;
4966: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4967:
4968: pa_debug.g_err_stage:='l_bf_raw_cost_tbl.count '||l_bf_raw_cost_tbl.count;
4969: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4970:
4971: pa_debug.g_err_stage:='l_bf_burdened_cost_tbl.count '||l_bf_burdened_cost_tbl.count;
4972: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4965: pa_debug.g_err_stage:='l_bf_quantity_tbl.count '||l_bf_quantity_tbl.count;
4966: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4967:
4968: pa_debug.g_err_stage:='l_bf_raw_cost_tbl.count '||l_bf_raw_cost_tbl.count;
4969: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4970:
4971: pa_debug.g_err_stage:='l_bf_burdened_cost_tbl.count '||l_bf_burdened_cost_tbl.count;
4972: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4973:
4967:
4968: pa_debug.g_err_stage:='l_bf_raw_cost_tbl.count '||l_bf_raw_cost_tbl.count;
4969: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4970:
4971: pa_debug.g_err_stage:='l_bf_burdened_cost_tbl.count '||l_bf_burdened_cost_tbl.count;
4972: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4973:
4974: pa_debug.g_err_stage:='l_bf_revenue_tbl.count '||l_bf_revenue_tbl.count;
4975: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4968: pa_debug.g_err_stage:='l_bf_raw_cost_tbl.count '||l_bf_raw_cost_tbl.count;
4969: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4970:
4971: pa_debug.g_err_stage:='l_bf_burdened_cost_tbl.count '||l_bf_burdened_cost_tbl.count;
4972: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4973:
4974: pa_debug.g_err_stage:='l_bf_revenue_tbl.count '||l_bf_revenue_tbl.count;
4975: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4976:
4970:
4971: pa_debug.g_err_stage:='l_bf_burdened_cost_tbl.count '||l_bf_burdened_cost_tbl.count;
4972: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4973:
4974: pa_debug.g_err_stage:='l_bf_revenue_tbl.count '||l_bf_revenue_tbl.count;
4975: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4976:
4977: pa_debug.g_err_stage:='l_bf_currency_code_tbl.count '||l_bf_currency_code_tbl.count;
4978: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4971: pa_debug.g_err_stage:='l_bf_burdened_cost_tbl.count '||l_bf_burdened_cost_tbl.count;
4972: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4973:
4974: pa_debug.g_err_stage:='l_bf_revenue_tbl.count '||l_bf_revenue_tbl.count;
4975: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4976:
4977: pa_debug.g_err_stage:='l_bf_currency_code_tbl.count '||l_bf_currency_code_tbl.count;
4978: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4979:
4973:
4974: pa_debug.g_err_stage:='l_bf_revenue_tbl.count '||l_bf_revenue_tbl.count;
4975: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4976:
4977: pa_debug.g_err_stage:='l_bf_currency_code_tbl.count '||l_bf_currency_code_tbl.count;
4978: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4979:
4980: pa_debug.g_err_stage:='l_bf_cost_rate_tbl.count '||l_bf_cost_rate_tbl.count;
4981: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4974: pa_debug.g_err_stage:='l_bf_revenue_tbl.count '||l_bf_revenue_tbl.count;
4975: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4976:
4977: pa_debug.g_err_stage:='l_bf_currency_code_tbl.count '||l_bf_currency_code_tbl.count;
4978: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4979:
4980: pa_debug.g_err_stage:='l_bf_cost_rate_tbl.count '||l_bf_cost_rate_tbl.count;
4981: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4982:
4976:
4977: pa_debug.g_err_stage:='l_bf_currency_code_tbl.count '||l_bf_currency_code_tbl.count;
4978: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4979:
4980: pa_debug.g_err_stage:='l_bf_cost_rate_tbl.count '||l_bf_cost_rate_tbl.count;
4981: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4982:
4983: pa_debug.g_err_stage:='l_bf_bill_rate_tbl.count '||l_bf_bill_rate_tbl.count;
4984: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4977: pa_debug.g_err_stage:='l_bf_currency_code_tbl.count '||l_bf_currency_code_tbl.count;
4978: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4979:
4980: pa_debug.g_err_stage:='l_bf_cost_rate_tbl.count '||l_bf_cost_rate_tbl.count;
4981: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4982:
4983: pa_debug.g_err_stage:='l_bf_bill_rate_tbl.count '||l_bf_bill_rate_tbl.count;
4984: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4985:
4979:
4980: pa_debug.g_err_stage:='l_bf_cost_rate_tbl.count '||l_bf_cost_rate_tbl.count;
4981: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4982:
4983: pa_debug.g_err_stage:='l_bf_bill_rate_tbl.count '||l_bf_bill_rate_tbl.count;
4984: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4985:
4986: pa_debug.g_err_stage:='l_bf_burdened_rate_tbl.count '||l_bf_burdened_rate_tbl.count;
4987: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4980: pa_debug.g_err_stage:='l_bf_cost_rate_tbl.count '||l_bf_cost_rate_tbl.count;
4981: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4982:
4983: pa_debug.g_err_stage:='l_bf_bill_rate_tbl.count '||l_bf_bill_rate_tbl.count;
4984: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4985:
4986: pa_debug.g_err_stage:='l_bf_burdened_rate_tbl.count '||l_bf_burdened_rate_tbl.count;
4987: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4988:
4982:
4983: pa_debug.g_err_stage:='l_bf_bill_rate_tbl.count '||l_bf_bill_rate_tbl.count;
4984: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4985:
4986: pa_debug.g_err_stage:='l_bf_burdened_rate_tbl.count '||l_bf_burdened_rate_tbl.count;
4987: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4988:
4989:
4990: END IF;
4983: pa_debug.g_err_stage:='l_bf_bill_rate_tbl.count '||l_bf_bill_rate_tbl.count;
4984: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4985:
4986: pa_debug.g_err_stage:='l_bf_burdened_rate_tbl.count '||l_bf_burdened_rate_tbl.count;
4987: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4988:
4989:
4990: END IF;
4991:
5363:
5364:
5365: IF (l_index + SQL%BULK_EXCEPTIONS.COUNT ) <> l_eligible_rlm_ids_tbl.COUNT THEN
5366:
5367: pa_debug.g_err_stage:='No of inserted records + No. of errored records is not equal to total no. of input records';
5368: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5369:
5370: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5371: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
5364:
5365: IF (l_index + SQL%BULK_EXCEPTIONS.COUNT ) <> l_eligible_rlm_ids_tbl.COUNT THEN
5366:
5367: pa_debug.g_err_stage:='No of inserted records + No. of errored records is not equal to total no. of input records';
5368: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5369:
5370: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5371: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
5372: p_token1 => 'PROCEDURENAME',
5462: l_index := l_bf_task_id_tbl.count;
5463:
5464: IF (l_index + SQL%BULK_EXCEPTIONS.COUNT ) <> l_eligible_rlm_ids_tbl.COUNT THEN
5465:
5466: pa_debug.g_err_stage:='No of inserted records + No. of errored records is not equal to total no. of input records';
5467: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5468:
5469: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5470: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
5463:
5464: IF (l_index + SQL%BULK_EXCEPTIONS.COUNT ) <> l_eligible_rlm_ids_tbl.COUNT THEN
5465:
5466: pa_debug.g_err_stage:='No of inserted records + No. of errored records is not equal to total no. of input records';
5467: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5468:
5469: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5470: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
5471: p_token1 => 'PROCEDURENAME',
5488: END IF;--IF p_one_to_one_mapping_flag='Y' THEN
5489:
5490: ELSE
5491:
5492: pa_debug.g_err_stage:='No of duplicates found '||SQL%BULK_EXCEPTIONS.COUNT;
5493: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5494:
5495: RAISE;
5496:
5489:
5490: ELSE
5491:
5492: pa_debug.g_err_stage:='No of duplicates found '||SQL%BULK_EXCEPTIONS.COUNT;
5493: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5494:
5495: RAISE;
5496:
5497: END IF;
5498:
5499: END;
5500:
5501: IF l_debug_mode = 'Y' THEN
5502: pa_debug.g_err_stage:='FLAG 2 '||l_bf_ra_id_tbl.COUNT;
5503: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5504: END IF;
5505:
5506: -------------------------------------------------------------------------------
5499: END;
5500:
5501: IF l_debug_mode = 'Y' THEN
5502: pa_debug.g_err_stage:='FLAG 2 '||l_bf_ra_id_tbl.COUNT;
5503: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5504: END IF;
5505:
5506: -------------------------------------------------------------------------------
5507: --No of records in rlm id tbl should be equal to the no of records in ra id tb;
5509: IF l_bf_ra_id_tbl.COUNT <> l_eligible_rlm_ids_tbl.COUNT AND
5510: (p_skip_duplicates_flag = 'N') THEN
5511:
5512: IF l_debug_mode = 'Y' THEN
5513: pa_debug.g_err_stage:='INSIDE Bulk Data insert for budget/forecast';
5514: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5515:
5516: pa_debug.g_err_stage:='For Budget and Forcast p_context - data mismatch';
5517: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5510: (p_skip_duplicates_flag = 'N') THEN
5511:
5512: IF l_debug_mode = 'Y' THEN
5513: pa_debug.g_err_stage:='INSIDE Bulk Data insert for budget/forecast';
5514: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5515:
5516: pa_debug.g_err_stage:='For Budget and Forcast p_context - data mismatch';
5517: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5518: END IF;
5512: IF l_debug_mode = 'Y' THEN
5513: pa_debug.g_err_stage:='INSIDE Bulk Data insert for budget/forecast';
5514: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5515:
5516: pa_debug.g_err_stage:='For Budget and Forcast p_context - data mismatch';
5517: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5518: END IF;
5519: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5520:
5513: pa_debug.g_err_stage:='INSIDE Bulk Data insert for budget/forecast';
5514: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5515:
5516: pa_debug.g_err_stage:='For Budget and Forcast p_context - data mismatch';
5517: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5518: END IF;
5519: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5520:
5521: END IF;
5572: END IF;
5573:
5574: IF l_amount_exists ='Y' THEN
5575: IF l_debug_mode = 'Y' THEN
5576: pa_debug.g_err_stage:='Amount exists and preparing the tbls for calc API';
5577: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5578: END IF;
5579:
5580: IF l_bf_currency_code_tbl.EXISTS(k) AND
5573:
5574: IF l_amount_exists ='Y' THEN
5575: IF l_debug_mode = 'Y' THEN
5576: pa_debug.g_err_stage:='Amount exists and preparing the tbls for calc API';
5577: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5578: END IF;
5579:
5580: IF l_bf_currency_code_tbl.EXISTS(k) AND
5581: NVL(l_bf_currency_code_tbl(k),FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
5582: l_currency_code_tbl(l_index) := l_bf_currency_code_tbl(k);
5583: ELSE
5584:
5585: IF l_debug_mode = 'Y' THEN
5586: pa_debug.g_err_stage:='Currency code not passed when amounts are passed';
5587: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5588: END IF;
5589: --dbms_output.put_line('curr code not passed');
5590: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5583: ELSE
5584:
5585: IF l_debug_mode = 'Y' THEN
5586: pa_debug.g_err_stage:='Currency code not passed when amounts are passed';
5587: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5588: END IF;
5589: --dbms_output.put_line('curr code not passed');
5590: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5591: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5647:
5648: IF l_debug_mode = 'Y' THEN
5649: IF l_res_assignment_id_tbl.COUNT > 0 THEN
5650: FOR i in l_res_assignment_id_tbl.FIRST .. l_res_assignment_id_tbl.LAST LOOP
5651: pa_debug.g_err_stage:='CALCULATE PARAM l_res_assignment_id_tbl :'||l_res_assignment_id_tbl(i);
5652: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5653:
5654: pa_debug.g_err_stage:='CALCULATE PARAM l_quantity_tbl :'||l_quantity_tbl(i);
5655: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5648: IF l_debug_mode = 'Y' THEN
5649: IF l_res_assignment_id_tbl.COUNT > 0 THEN
5650: FOR i in l_res_assignment_id_tbl.FIRST .. l_res_assignment_id_tbl.LAST LOOP
5651: pa_debug.g_err_stage:='CALCULATE PARAM l_res_assignment_id_tbl :'||l_res_assignment_id_tbl(i);
5652: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5653:
5654: pa_debug.g_err_stage:='CALCULATE PARAM l_quantity_tbl :'||l_quantity_tbl(i);
5655: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5656:
5650: FOR i in l_res_assignment_id_tbl.FIRST .. l_res_assignment_id_tbl.LAST LOOP
5651: pa_debug.g_err_stage:='CALCULATE PARAM l_res_assignment_id_tbl :'||l_res_assignment_id_tbl(i);
5652: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5653:
5654: pa_debug.g_err_stage:='CALCULATE PARAM l_quantity_tbl :'||l_quantity_tbl(i);
5655: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5656:
5657: pa_debug.g_err_stage:='CALCULATE PARAM l_raw_cost_tbl :'||l_raw_cost_tbl(i);
5658: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5651: pa_debug.g_err_stage:='CALCULATE PARAM l_res_assignment_id_tbl :'||l_res_assignment_id_tbl(i);
5652: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5653:
5654: pa_debug.g_err_stage:='CALCULATE PARAM l_quantity_tbl :'||l_quantity_tbl(i);
5655: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5656:
5657: pa_debug.g_err_stage:='CALCULATE PARAM l_raw_cost_tbl :'||l_raw_cost_tbl(i);
5658: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5659:
5653:
5654: pa_debug.g_err_stage:='CALCULATE PARAM l_quantity_tbl :'||l_quantity_tbl(i);
5655: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5656:
5657: pa_debug.g_err_stage:='CALCULATE PARAM l_raw_cost_tbl :'||l_raw_cost_tbl(i);
5658: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5659:
5660: pa_debug.g_err_stage:='CALCULATE PARAM l_burdened_cost_tbl :'||l_burdened_cost_tbl(i);
5661: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5654: pa_debug.g_err_stage:='CALCULATE PARAM l_quantity_tbl :'||l_quantity_tbl(i);
5655: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5656:
5657: pa_debug.g_err_stage:='CALCULATE PARAM l_raw_cost_tbl :'||l_raw_cost_tbl(i);
5658: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5659:
5660: pa_debug.g_err_stage:='CALCULATE PARAM l_burdened_cost_tbl :'||l_burdened_cost_tbl(i);
5661: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5662:
5656:
5657: pa_debug.g_err_stage:='CALCULATE PARAM l_raw_cost_tbl :'||l_raw_cost_tbl(i);
5658: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5659:
5660: pa_debug.g_err_stage:='CALCULATE PARAM l_burdened_cost_tbl :'||l_burdened_cost_tbl(i);
5661: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5662:
5663: pa_debug.g_err_stage:='CALCULATE PARAM l_revenue_tbl :'||l_revenue_tbl(i);
5664: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5657: pa_debug.g_err_stage:='CALCULATE PARAM l_raw_cost_tbl :'||l_raw_cost_tbl(i);
5658: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5659:
5660: pa_debug.g_err_stage:='CALCULATE PARAM l_burdened_cost_tbl :'||l_burdened_cost_tbl(i);
5661: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5662:
5663: pa_debug.g_err_stage:='CALCULATE PARAM l_revenue_tbl :'||l_revenue_tbl(i);
5664: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5665:
5659:
5660: pa_debug.g_err_stage:='CALCULATE PARAM l_burdened_cost_tbl :'||l_burdened_cost_tbl(i);
5661: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5662:
5663: pa_debug.g_err_stage:='CALCULATE PARAM l_revenue_tbl :'||l_revenue_tbl(i);
5664: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5665:
5666: pa_debug.g_err_stage:='CALCULATE PARAM l_currency_code_tbl :'||l_currency_code_tbl(i);
5667: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5660: pa_debug.g_err_stage:='CALCULATE PARAM l_burdened_cost_tbl :'||l_burdened_cost_tbl(i);
5661: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5662:
5663: pa_debug.g_err_stage:='CALCULATE PARAM l_revenue_tbl :'||l_revenue_tbl(i);
5664: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5665:
5666: pa_debug.g_err_stage:='CALCULATE PARAM l_currency_code_tbl :'||l_currency_code_tbl(i);
5667: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5668:
5662:
5663: pa_debug.g_err_stage:='CALCULATE PARAM l_revenue_tbl :'||l_revenue_tbl(i);
5664: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5665:
5666: pa_debug.g_err_stage:='CALCULATE PARAM l_currency_code_tbl :'||l_currency_code_tbl(i);
5667: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5668:
5669: pa_debug.g_err_stage:='CALCULATE PARAM l_cost_rate_tbl :'||l_cost_rate_tbl(i);
5670: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5663: pa_debug.g_err_stage:='CALCULATE PARAM l_revenue_tbl :'||l_revenue_tbl(i);
5664: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5665:
5666: pa_debug.g_err_stage:='CALCULATE PARAM l_currency_code_tbl :'||l_currency_code_tbl(i);
5667: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5668:
5669: pa_debug.g_err_stage:='CALCULATE PARAM l_cost_rate_tbl :'||l_cost_rate_tbl(i);
5670: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5671:
5665:
5666: pa_debug.g_err_stage:='CALCULATE PARAM l_currency_code_tbl :'||l_currency_code_tbl(i);
5667: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5668:
5669: pa_debug.g_err_stage:='CALCULATE PARAM l_cost_rate_tbl :'||l_cost_rate_tbl(i);
5670: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5671:
5672: pa_debug.g_err_stage:='CALCULATE PARAM l_burden_multiplier_tbl :'||l_burden_multiplier_tbl(i);
5673: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5666: pa_debug.g_err_stage:='CALCULATE PARAM l_currency_code_tbl :'||l_currency_code_tbl(i);
5667: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5668:
5669: pa_debug.g_err_stage:='CALCULATE PARAM l_cost_rate_tbl :'||l_cost_rate_tbl(i);
5670: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5671:
5672: pa_debug.g_err_stage:='CALCULATE PARAM l_burden_multiplier_tbl :'||l_burden_multiplier_tbl(i);
5673: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5674:
5668:
5669: pa_debug.g_err_stage:='CALCULATE PARAM l_cost_rate_tbl :'||l_cost_rate_tbl(i);
5670: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5671:
5672: pa_debug.g_err_stage:='CALCULATE PARAM l_burden_multiplier_tbl :'||l_burden_multiplier_tbl(i);
5673: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5674:
5675: pa_debug.g_err_stage:='CALCULATE PARAM l_bill_rate_tbl :'||l_bill_rate_tbl(i);
5676: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5669: pa_debug.g_err_stage:='CALCULATE PARAM l_cost_rate_tbl :'||l_cost_rate_tbl(i);
5670: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5671:
5672: pa_debug.g_err_stage:='CALCULATE PARAM l_burden_multiplier_tbl :'||l_burden_multiplier_tbl(i);
5673: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5674:
5675: pa_debug.g_err_stage:='CALCULATE PARAM l_bill_rate_tbl :'||l_bill_rate_tbl(i);
5676: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5677: END LOOP;
5671:
5672: pa_debug.g_err_stage:='CALCULATE PARAM l_burden_multiplier_tbl :'||l_burden_multiplier_tbl(i);
5673: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5674:
5675: pa_debug.g_err_stage:='CALCULATE PARAM l_bill_rate_tbl :'||l_bill_rate_tbl(i);
5676: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5677: END LOOP;
5678: END IF;
5679: END IF;
5672: pa_debug.g_err_stage:='CALCULATE PARAM l_burden_multiplier_tbl :'||l_burden_multiplier_tbl(i);
5673: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5674:
5675: pa_debug.g_err_stage:='CALCULATE PARAM l_bill_rate_tbl :'||l_bill_rate_tbl(i);
5676: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5677: END LOOP;
5678: END IF;
5679: END IF;
5680:
5706: ,x_msg_data => l_msg_data);
5707:
5708: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5709: IF l_debug_mode = 'Y' THEN
5710: pa_debug.g_err_stage:='Called API PA_FP_CALC_PLAN_PKG.calculate api returned error';
5711: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5712: END IF;
5713:
5714: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5707:
5708: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5709: IF l_debug_mode = 'Y' THEN
5710: pa_debug.g_err_stage:='Called API PA_FP_CALC_PLAN_PKG.calculate api returned error';
5711: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5712: END IF;
5713:
5714: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5715: END IF;
5753: END IF;
5754:
5755: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5756: IF l_debug_mode = 'Y' THEN
5757: pa_debug.g_err_stage:='Called API PA_PROJ_TASK_STRUC_PUB.process_wbs_updates_wrp';
5758: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5759: END IF;
5760:
5761: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5754:
5755: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5756: IF l_debug_mode = 'Y' THEN
5757: pa_debug.g_err_stage:='Called API PA_PROJ_TASK_STRUC_PUB.process_wbs_updates_wrp';
5758: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5759: END IF;
5760:
5761: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5762: END IF;
5794: END IF;
5795:
5796: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5797: IF l_debug_mode = 'Y' THEN
5798: pa_debug.g_err_stage:='Called API PA_FIN_PLAN_PUB.create_default_plan_txn_rec returned error';
5799: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage, 3);
5800: END IF;
5801: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5802: END IF; /* 7161809 */
5795:
5796: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5797: IF l_debug_mode = 'Y' THEN
5798: pa_debug.g_err_stage:='Called API PA_FIN_PLAN_PUB.create_default_plan_txn_rec returned error';
5799: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage, 3);
5800: END IF;
5801: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5802: END IF; /* 7161809 */
5803:
5820:
5821: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5822:
5823: IF l_debug_mode = 'Y' THEN
5824: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
5825: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage, 3);
5826: END IF;
5827: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5828: END IF;
5821: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5822:
5823: IF l_debug_mode = 'Y' THEN
5824: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
5825: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage, 3);
5826: END IF;
5827: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5828: END IF;
5829:
5887:
5888: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5889:
5890: IF l_debug_mode = 'Y' THEN
5891: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
5892: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage, 3);
5893: END IF;
5894: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5895: END IF; */
5888: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5889:
5890: IF l_debug_mode = 'Y' THEN
5891: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
5892: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage, 3);
5893: END IF;
5894: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5895: END IF; */
5896:
5894: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5895: END IF; */
5896:
5897: IF l_debug_mode = 'Y' THEN
5898: pa_debug.g_err_stage:='CALLED THE PA_FP_CALC_PLAN_PKG.CALCULATE API';
5899: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5900: pa_debug.reset_curr_function;
5901: END IF;
5902: EXCEPTION
5895: END IF; */
5896:
5897: IF l_debug_mode = 'Y' THEN
5898: pa_debug.g_err_stage:='CALLED THE PA_FP_CALC_PLAN_PKG.CALCULATE API';
5899: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5900: pa_debug.reset_curr_function;
5901: END IF;
5902: EXCEPTION
5903:
5896:
5897: IF l_debug_mode = 'Y' THEN
5898: pa_debug.g_err_stage:='CALLED THE PA_FP_CALC_PLAN_PKG.CALCULATE API';
5899: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5900: pa_debug.reset_curr_function;
5901: END IF;
5902: EXCEPTION
5903:
5904: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5920: x_msg_count := l_msg_count;
5921: END IF;
5922: x_return_status := FND_API.G_RET_STS_ERROR;
5923: IF l_debug_mode = 'Y' THEN
5924: pa_debug.reset_curr_function;
5925: END IF;
5926: WHEN OTHERS THEN
5927:
5928: ROLLBACK TO SAVEPOINT ADD_PLANNING_TRANS_SP;
5932: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_PLANNING_TRANSACTION_PUB'
5933: ,p_procedure_name => 'add_planning_transactions');
5934:
5935: IF l_debug_mode = 'Y' THEN
5936: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5937: pa_debug.write('add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,5);
5938: pa_debug.reset_curr_function;
5939: END IF;
5940: RAISE;
5933: ,p_procedure_name => 'add_planning_transactions');
5934:
5935: IF l_debug_mode = 'Y' THEN
5936: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5937: pa_debug.write('add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,5);
5938: pa_debug.reset_curr_function;
5939: END IF;
5940: RAISE;
5941:
5934:
5935: IF l_debug_mode = 'Y' THEN
5936: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5937: pa_debug.write('add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,5);
5938: pa_debug.reset_curr_function;
5939: END IF;
5940: RAISE;
5941:
5942: END add_planning_transactions;
6267:
6268:
6269: x_msg_count := 0;
6270: x_return_status := FND_API.G_RET_STS_SUCCESS;
6271: l_debug_mode := 'Y'; --NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6272:
6273: --Added for Bug 4200168
6274: IF p_pji_rollup_required = 'Y' THEN
6275: l_pji_rollup_required := 'Y';
6279:
6280: pa_task_assignment_utils.g_require_progress_rollup := 'N';
6281:
6282: IF l_debug_mode = 'Y' THEN
6283: pa_debug.set_curr_function( p_function => 'Update_Planning_Transactions',
6284: p_debug_mode => l_debug_mode );
6285: END IF;
6286: --dbms_output.put_line('In upd planning txn');
6287:
6290: */
6291: SAVEPOINT Update_Planning_Transactions;
6292:
6293: IF l_debug_mode = 'Y' THEN
6294: pa_debug.g_err_stage := 'Checking for required parameters';
6295: print_msg(pa_debug.g_err_stage,l_module_name);
6296: END IF;
6297:
6298: /* Check for required parameters
6291: SAVEPOINT Update_Planning_Transactions;
6292:
6293: IF l_debug_mode = 'Y' THEN
6294: pa_debug.g_err_stage := 'Checking for required parameters';
6295: print_msg(pa_debug.g_err_stage,l_module_name);
6296: END IF;
6297:
6298: /* Check for required parameters
6299: */
6298: /* Check for required parameters
6299: */
6300:
6301: IF l_debug_mode = 'Y' THEN
6302: pa_debug.g_err_stage := 'Extending the local pl/sql tables: p_context =>' ||p_context;
6303: print_msg(pa_debug.g_err_stage,l_module_name);
6304: END IF;
6305:
6306:
6299: */
6300:
6301: IF l_debug_mode = 'Y' THEN
6302: pa_debug.g_err_stage := 'Extending the local pl/sql tables: p_context =>' ||p_context;
6303: print_msg(pa_debug.g_err_stage,l_module_name);
6304: END IF;
6305:
6306:
6307:
6310: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
6311: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
6312: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET ) THEN
6313:
6314: pa_debug.g_err_stage := 'The Context IN parameter is NULL';
6315: pa_debug.write(l_module_name, pa_debug.g_err_stage,l_debug_level5);
6316: --dbms_output.put_line('p_context is null');
6317:
6318: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6311: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
6312: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET ) THEN
6313:
6314: pa_debug.g_err_stage := 'The Context IN parameter is NULL';
6315: pa_debug.write(l_module_name, pa_debug.g_err_stage,l_debug_level5);
6316: --dbms_output.put_line('p_context is null');
6317:
6318: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6319: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
6321: END IF;
6322: --dbms_output.put_line('U01');
6323:
6324: IF l_debug_mode = 'Y' THEN
6325: pa_debug.g_err_stage:= 'Checking for required parameters';
6326: print_msg(pa_debug.g_err_stage,l_module_name);
6327: END IF;
6328:
6329:
6322: --dbms_output.put_line('U01');
6323:
6324: IF l_debug_mode = 'Y' THEN
6325: pa_debug.g_err_stage:= 'Checking for required parameters';
6326: print_msg(pa_debug.g_err_stage,l_module_name);
6327: END IF;
6328:
6329:
6330: /* Check for business rules violations
6329:
6330: /* Check for business rules violations
6331: */
6332: IF l_debug_mode = 'Y' THEN
6333: pa_debug.g_err_stage:= 'Validating input parameters';
6334: print_msg(pa_debug.g_err_stage,l_module_name);
6335: END IF;
6336:
6337: l_trace_stage := 50;
6330: /* Check for business rules violations
6331: */
6332: IF l_debug_mode = 'Y' THEN
6333: pa_debug.g_err_stage:= 'Validating input parameters';
6334: print_msg(pa_debug.g_err_stage,l_module_name);
6335: END IF;
6336:
6337: l_trace_stage := 50;
6338: --hr_utility.trace('PA_FP_PLAN_TXN_PUB.update_planning_transactions: '||to_char(l_trace_stage));
6342: */
6343: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN OR p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
6344: IF p_struct_elem_version_id IS NULL THEN
6345: IF l_debug_mode = 'Y' THEN
6346: pa_debug.g_err_stage:= 'p_struct_elem_version_id is null';
6347: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6348: END IF;
6349: --dbms_output.put_line('p_struct_elem_version_id is null');
6350:
6343: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN OR p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
6344: IF p_struct_elem_version_id IS NULL THEN
6345: IF l_debug_mode = 'Y' THEN
6346: pa_debug.g_err_stage:= 'p_struct_elem_version_id is null';
6347: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6348: END IF;
6349: --dbms_output.put_line('p_struct_elem_version_id is null');
6350:
6351: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6354: ELSE
6355: l_budget_version_id := PA_PLANNING_TRANSACTION_UTILS.Get_wp_budget_version_id(p_struct_elem_version_id);
6356: IF l_budget_version_id IS NULL THEN
6357: IF l_debug_mode = 'Y' THEN
6358: pa_debug.g_err_stage:='Calling add plan txn to create the version';
6359: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6360: END IF;
6361:
6362: BEGIN
6355: l_budget_version_id := PA_PLANNING_TRANSACTION_UTILS.Get_wp_budget_version_id(p_struct_elem_version_id);
6356: IF l_budget_version_id IS NULL THEN
6357: IF l_debug_mode = 'Y' THEN
6358: pa_debug.g_err_stage:='Calling add plan txn to create the version';
6359: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6360: END IF;
6361:
6362: BEGIN
6363: SELECT project_id
6367: AND ROWNUM=1;
6368: EXCEPTION
6369: WHEN NO_DATA_FOUND THEN
6370: IF l_debug_mode = 'Y' THEN
6371: pa_debug.g_err_stage:='Invalid value for p_struct_elem_version_id';
6372: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6373: END IF;
6374: --dbms_output.put_line('Invalid value for p_struct_elem_version_id');
6375: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6368: EXCEPTION
6369: WHEN NO_DATA_FOUND THEN
6370: IF l_debug_mode = 'Y' THEN
6371: pa_debug.g_err_stage:='Invalid value for p_struct_elem_version_id';
6372: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6373: END IF;
6374: --dbms_output.put_line('Invalid value for p_struct_elem_version_id');
6375: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6376: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
6388: ,x_msg_data => l_msg_data
6389: ,x_msg_count => l_msg_count);
6390: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6391: IF l_debug_mode = 'Y' THEN
6392: pa_debug.g_err_stage:='Called API pa_fp_planning_transaction_pub.add_planning_transaction api returned error';
6393: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6394: END IF;
6395: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6396: END IF;
6389: ,x_msg_count => l_msg_count);
6390: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6391: IF l_debug_mode = 'Y' THEN
6392: pa_debug.g_err_stage:='Called API pa_fp_planning_transaction_pub.add_planning_transaction api returned error';
6393: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6394: END IF;
6395: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6396: END IF;
6397: l_budget_version_id := PA_PLANNING_TRANSACTION_UTILS.Get_wp_budget_version_id(p_struct_elem_version_id);
6402: */
6403: ELSIF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST THEN
6404: IF p_budget_version_id IS NULL THEN
6405: IF l_debug_mode = 'Y' THEN
6406: pa_debug.g_err_stage:= 'p_budget_version_id is null';
6407: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6408: END IF;
6409: --dbms_output.put_line('p_budget_version_id is null');
6410: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6403: ELSIF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST THEN
6404: IF p_budget_version_id IS NULL THEN
6405: IF l_debug_mode = 'Y' THEN
6406: pa_debug.g_err_stage:= 'p_budget_version_id is null';
6407: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6408: END IF;
6409: --dbms_output.put_line('p_budget_version_id is null');
6410: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6411: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
6430: WHERE budget_version_id = l_budget_version_id;
6431: EXCEPTION
6432: WHEN OTHERS THEN
6433: IF l_debug_mode = 'Y' THEN
6434: pa_debug.g_err_stage:='Select failed on pa_budget_versions.';
6435: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6436: END IF;
6437: RAISE;
6438: END;
6431: EXCEPTION
6432: WHEN OTHERS THEN
6433: IF l_debug_mode = 'Y' THEN
6434: pa_debug.g_err_stage:='Select failed on pa_budget_versions.';
6435: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6436: END IF;
6437: RAISE;
6438: END;
6439:
6442: Instead when this API is called from Java instead of G_MISS_DATE '01-Jan-4712' is passed.
6443: Added code below to Replace '01-Jan-4712' by FND_API.G_MISS_DATE
6444: */
6445: IF l_debug_mode = 'Y' THEN
6446: pa_debug.g_err_stage:='Processing IN Date Tables for G_MISS_DATE';
6447: pa_debug.write('PA_FP_PLANNING_TXN_PUB.update_planning_transactions:'||l_module_name,pa_debug.g_err_stage,3);
6448: END IF;
6449:
6450: l_in_start_date_tbl := p_start_date_tbl;
6443: Added code below to Replace '01-Jan-4712' by FND_API.G_MISS_DATE
6444: */
6445: IF l_debug_mode = 'Y' THEN
6446: pa_debug.g_err_stage:='Processing IN Date Tables for G_MISS_DATE';
6447: pa_debug.write('PA_FP_PLANNING_TXN_PUB.update_planning_transactions:'||l_module_name,pa_debug.g_err_stage,3);
6448: END IF;
6449:
6450: l_in_start_date_tbl := p_start_date_tbl;
6451: l_in_end_date_tbl := p_end_date_tbl;
6552: ,x_msg_count => l_msg_count);
6553:
6554: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6555: IF l_debug_mode = 'Y' THEN
6556: pa_debug.g_err_stage:='Called API pa_planning_transaction_pub.check_and_create_task_rec_info api returned error';
6557: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6558: END IF;
6559: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6560: END IF;
6553:
6554: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6555: IF l_debug_mode = 'Y' THEN
6556: pa_debug.g_err_stage:='Called API pa_planning_transaction_pub.check_and_create_task_rec_info api returned error';
6557: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6558: END IF;
6559: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6560: END IF;
6561: --dbms_output.put_line ('pq1 is '||l_total_quantity_tbl(1));
6567: has called add plan tran api with effort and hence no more prorcessing is required.
6568: */
6569: IF l_resource_assignment_id_tbl.COUNT = 0 THEN
6570: IF l_debug_mode = 'Y' THEN
6571: pa_debug.g_err_stage:='No Data Returned from the api-----Returning';
6572: print_msg(pa_debug.g_err_stage,l_module_name);
6573: END IF;
6574: --dbms_output.put_line('No Data Returned from the api-----Returning');
6575: IF l_debug_mode = 'Y' THEN
6568: */
6569: IF l_resource_assignment_id_tbl.COUNT = 0 THEN
6570: IF l_debug_mode = 'Y' THEN
6571: pa_debug.g_err_stage:='No Data Returned from the api-----Returning';
6572: print_msg(pa_debug.g_err_stage,l_module_name);
6573: END IF;
6574: --dbms_output.put_line('No Data Returned from the api-----Returning');
6575: IF l_debug_mode = 'Y' THEN
6576: pa_debug.reset_curr_function;
6572: print_msg(pa_debug.g_err_stage,l_module_name);
6573: END IF;
6574: --dbms_output.put_line('No Data Returned from the api-----Returning');
6575: IF l_debug_mode = 'Y' THEN
6576: pa_debug.reset_curr_function;
6577: END IF;
6578: RETURN;
6579: END IF;
6580:
6587: /* The context is of not work plan type
6588: */
6589: --dbms_output.put_line('U3');
6590: IF l_debug_mode = 'Y' THEN
6591: pa_debug.g_err_stage:='Non Workplan type context';
6592: print_msg(pa_debug.g_err_stage,l_module_name);
6593: END IF;
6594: IF p_resource_assignment_id_tbl.COUNT =0 THEN
6595: IF l_debug_mode = 'Y' THEN
6588: */
6589: --dbms_output.put_line('U3');
6590: IF l_debug_mode = 'Y' THEN
6591: pa_debug.g_err_stage:='Non Workplan type context';
6592: print_msg(pa_debug.g_err_stage,l_module_name);
6593: END IF;
6594: IF p_resource_assignment_id_tbl.COUNT =0 THEN
6595: IF l_debug_mode = 'Y' THEN
6596: pa_debug.g_err_stage:='Resource Assignment Id table is empty---- Returning';
6592: print_msg(pa_debug.g_err_stage,l_module_name);
6593: END IF;
6594: IF p_resource_assignment_id_tbl.COUNT =0 THEN
6595: IF l_debug_mode = 'Y' THEN
6596: pa_debug.g_err_stage:='Resource Assignment Id table is empty---- Returning';
6597: print_msg(pa_debug.g_err_stage,l_module_name);
6598: END IF;
6599: IF l_debug_mode = 'Y' THEN
6600: pa_debug.reset_curr_function;
6593: END IF;
6594: IF p_resource_assignment_id_tbl.COUNT =0 THEN
6595: IF l_debug_mode = 'Y' THEN
6596: pa_debug.g_err_stage:='Resource Assignment Id table is empty---- Returning';
6597: print_msg(pa_debug.g_err_stage,l_module_name);
6598: END IF;
6599: IF l_debug_mode = 'Y' THEN
6600: pa_debug.reset_curr_function;
6601: END IF;
6596: pa_debug.g_err_stage:='Resource Assignment Id table is empty---- Returning';
6597: print_msg(pa_debug.g_err_stage,l_module_name);
6598: END IF;
6599: IF l_debug_mode = 'Y' THEN
6600: pa_debug.reset_curr_function;
6601: END IF;
6602: --dbms_output.put_line('Empty ra id tbl returning');
6603: RETURN;
6604: ELSE
6623: --have same no of elements as that p_resource_assignment_id_tbl
6624: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST THEN
6625: IF p_resource_assignment_id_tbl.COUNT <> p_currency_code_tbl.COUNT THEN
6626: IF l_debug_mode = 'Y' THEN
6627: pa_debug.g_err_stage:='the contents of p_currency_code_tbl not equal in number to contents in res assmt tbl';
6628: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6629: END IF;
6630: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6631: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
6624: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST THEN
6625: IF p_resource_assignment_id_tbl.COUNT <> p_currency_code_tbl.COUNT THEN
6626: IF l_debug_mode = 'Y' THEN
6627: pa_debug.g_err_stage:='the contents of p_currency_code_tbl not equal in number to contents in res assmt tbl';
6628: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6629: END IF;
6630: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6631: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
6632: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6638:
6639: -- Fetching spread curve id for fixed date spread curve : Bug 3607061 - Starts
6640: BEGIN
6641: IF l_debug_mode = 'Y' THEN
6642: pa_debug.g_err_stage:='Fetching spread curve id for fixed date spread curve';
6643: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6644: END IF;
6645: Select spread_curve_id
6646: into l_fixed_date_sp_id
6639: -- Fetching spread curve id for fixed date spread curve : Bug 3607061 - Starts
6640: BEGIN
6641: IF l_debug_mode = 'Y' THEN
6642: pa_debug.g_err_stage:='Fetching spread curve id for fixed date spread curve';
6643: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6644: END IF;
6645: Select spread_curve_id
6646: into l_fixed_date_sp_id
6647: from pa_spread_curves_b
6647: from pa_spread_curves_b
6648: where spread_curve_code = 'FIXED_DATE';
6649:
6650: IF l_debug_mode = 'Y' THEN
6651: pa_debug.g_err_stage:='Fetching spread curve id l_fixed_date_sp_id:'||l_fixed_date_sp_id;
6652: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6653: END IF;
6654:
6655: EXCEPTION
6648: where spread_curve_code = 'FIXED_DATE';
6649:
6650: IF l_debug_mode = 'Y' THEN
6651: pa_debug.g_err_stage:='Fetching spread curve id l_fixed_date_sp_id:'||l_fixed_date_sp_id;
6652: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6653: END IF;
6654:
6655: EXCEPTION
6656: WHEN NO_DATA_FOUND THEN
6654:
6655: EXCEPTION
6656: WHEN NO_DATA_FOUND THEN
6657: IF l_debug_mode = 'Y' THEN
6658: pa_debug.g_err_stage:='Fixed date spread curve not found in system';
6659: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6660: END IF;
6661: RAISE;
6662: END;
6655: EXCEPTION
6656: WHEN NO_DATA_FOUND THEN
6657: IF l_debug_mode = 'Y' THEN
6658: pa_debug.g_err_stage:='Fixed date spread curve not found in system';
6659: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6660: END IF;
6661: RAISE;
6662: END;
6663: -- Fetching spread curve id for fixed date spread curve : Bug 3607061 - Ends
6663: -- Fetching spread curve id for fixed date spread curve : Bug 3607061 - Ends
6664:
6665: --Extend all the local pl/sql tables.
6666: IF l_debug_mode = 'Y' THEN
6667: pa_debug.g_err_stage := 'Extending the local pl/sql tables';
6668: print_msg(pa_debug.g_err_stage,l_module_name);
6669: END IF;
6670:
6671: l_trace_stage := 200;
6664:
6665: --Extend all the local pl/sql tables.
6666: IF l_debug_mode = 'Y' THEN
6667: pa_debug.g_err_stage := 'Extending the local pl/sql tables';
6668: print_msg(pa_debug.g_err_stage,l_module_name);
6669: END IF;
6670:
6671: l_trace_stage := 200;
6672: --hr_utility.trace('PA_FP_PLAN_TXN_PUB.update_planning_transactions: '||to_char(l_trace_stage));
6817: -- 2. BULK update will possible since the values that are not passed will be defaulted to FND_API.G_MISS_XXX
6818:
6819:
6820: IF l_debug_mode = 'Y' THEN
6821: pa_debug.g_err_stage:='About to loop thru for assigning to rec types';
6822: print_msg(pa_debug.g_err_stage,l_module_name);
6823: END IF;
6824:
6825:
6818:
6819:
6820: IF l_debug_mode = 'Y' THEN
6821: pa_debug.g_err_stage:='About to loop thru for assigning to rec types';
6822: print_msg(pa_debug.g_err_stage,l_module_name);
6823: END IF;
6824:
6825:
6826: FOR i IN l_resource_assignment_id_tbl.FIRST .. l_resource_assignment_id_tbl.LAST LOOP
7142: /*-------------------------------------------------
7143: Calling Task validation API
7144: -------------------------------------------------*/
7145: IF l_debug_mode = 'Y' THEN
7146: pa_debug.g_err_stage:='Calling API pa_task_assignment_utils.Validate_Update_Assignment';
7147: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7148: l_debug_level3);
7149: END IF;
7150:
7143: Calling Task validation API
7144: -------------------------------------------------*/
7145: IF l_debug_mode = 'Y' THEN
7146: pa_debug.g_err_stage:='Calling API pa_task_assignment_utils.Validate_Update_Assignment';
7147: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7148: l_debug_level3);
7149: END IF;
7150:
7151: --hr_utility.trace('PA_FP_PLAN_TXN_PUB.update_planning_transactions: before calling validate_update_assignment');
7160: --hr_utility.trace('PA_FP_PLAN_TXN_PUB.update_planning_transactions: after calling validate_update_assignment');
7161:
7162: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7163: IF l_debug_mode = 'Y' THEN
7164: pa_debug.g_err_stage:='Called API PA_TASK_ASSIGNMENT_UTILS.Validate_Update_Assignment returned error';
7165: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7166: END IF;
7167: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7168: END IF;
7161:
7162: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7163: IF l_debug_mode = 'Y' THEN
7164: pa_debug.g_err_stage:='Called API PA_TASK_ASSIGNMENT_UTILS.Validate_Update_Assignment returned error';
7165: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7166: END IF;
7167: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7168: END IF;
7169:
7169:
7170: --If the rec tbl returned by validate API does not contain records then return
7171: IF l_resource_rec_tbl.COUNT=0 THEN
7172: IF l_debug_mode = 'Y' THEN
7173: pa_debug.g_err_stage:='Validate API returned 0 records';
7174: print_msg(pa_debug.g_err_stage,l_module_name);
7175: pa_debug.reset_curr_function;
7176: END IF;
7177: RETURN;
7170: --If the rec tbl returned by validate API does not contain records then return
7171: IF l_resource_rec_tbl.COUNT=0 THEN
7172: IF l_debug_mode = 'Y' THEN
7173: pa_debug.g_err_stage:='Validate API returned 0 records';
7174: print_msg(pa_debug.g_err_stage,l_module_name);
7175: pa_debug.reset_curr_function;
7176: END IF;
7177: RETURN;
7178: END IF;
7171: IF l_resource_rec_tbl.COUNT=0 THEN
7172: IF l_debug_mode = 'Y' THEN
7173: pa_debug.g_err_stage:='Validate API returned 0 records';
7174: print_msg(pa_debug.g_err_stage,l_module_name);
7175: pa_debug.reset_curr_function;
7176: END IF;
7177: RETURN;
7178: END IF;
7179:
7328: since this check will be done in Process_res_chg_Derv_calc_prms 3762278
7329: -- Added for Bug 3607061 - Starts
7330: -- Please not that FIXED DATE SPREAD CURVE ID is SEEDED as 6, so we are able to hard code it below
7331: IF l_debug_mode = 'Y' THEN
7332: pa_debug.g_err_stage:='Deriving SP Fixed Date';
7333: print_msg(pa_debug.g_err_stage,l_module_name);
7334: END IF;
7335: IF l_spread_curve_id_tbl(i) = l_fixed_date_sp_id THEN
7336: IF l_debug_mode = 'Y' THEN
7329: -- Added for Bug 3607061 - Starts
7330: -- Please not that FIXED DATE SPREAD CURVE ID is SEEDED as 6, so we are able to hard code it below
7331: IF l_debug_mode = 'Y' THEN
7332: pa_debug.g_err_stage:='Deriving SP Fixed Date';
7333: print_msg(pa_debug.g_err_stage,l_module_name);
7334: END IF;
7335: IF l_spread_curve_id_tbl(i) = l_fixed_date_sp_id THEN
7336: IF l_debug_mode = 'Y' THEN
7337: pa_debug.g_err_stage:='Spread Curve Id is of FIXED_DATE';
7333: print_msg(pa_debug.g_err_stage,l_module_name);
7334: END IF;
7335: IF l_spread_curve_id_tbl(i) = l_fixed_date_sp_id THEN
7336: IF l_debug_mode = 'Y' THEN
7337: pa_debug.g_err_stage:='Spread Curve Id is of FIXED_DATE';
7338: print_msg(pa_debug.g_err_stage,l_module_name);
7339: END IF;
7340: IF l_sp_fixed_date_tbl(i) = FND_API.G_MISS_DATE THEN
7341: IF l_debug_mode = 'Y' THEN
7334: END IF;
7335: IF l_spread_curve_id_tbl(i) = l_fixed_date_sp_id THEN
7336: IF l_debug_mode = 'Y' THEN
7337: pa_debug.g_err_stage:='Spread Curve Id is of FIXED_DATE';
7338: print_msg(pa_debug.g_err_stage,l_module_name);
7339: END IF;
7340: IF l_sp_fixed_date_tbl(i) = FND_API.G_MISS_DATE THEN
7341: IF l_debug_mode = 'Y' THEN
7342: pa_debug.g_err_stage:='Error - cannot nullify sp_fixed_date for Fixed Date Spread curve';
7338: print_msg(pa_debug.g_err_stage,l_module_name);
7339: END IF;
7340: IF l_sp_fixed_date_tbl(i) = FND_API.G_MISS_DATE THEN
7341: IF l_debug_mode = 'Y' THEN
7342: pa_debug.g_err_stage:='Error - cannot nullify sp_fixed_date for Fixed Date Spread curve';
7343: print_msg(pa_debug.g_err_stage,l_module_name);
7344: END IF;
7345: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7346: p_msg_name => 'PA_FP_SP_FIXED_DATE_NULL');
7339: END IF;
7340: IF l_sp_fixed_date_tbl(i) = FND_API.G_MISS_DATE THEN
7341: IF l_debug_mode = 'Y' THEN
7342: pa_debug.g_err_stage:='Error - cannot nullify sp_fixed_date for Fixed Date Spread curve';
7343: print_msg(pa_debug.g_err_stage,l_module_name);
7344: END IF;
7345: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7346: p_msg_name => 'PA_FP_SP_FIXED_DATE_NULL');
7347: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7366: , x_return_status => x_return_status);
7367: --dbms_output.put_line('4');
7368: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7369: IF l_debug_mode = 'Y' THEN
7370: pa_debug.g_err_stage:='Cpa_budget_utils.Get_Project_Currency_Info returned error';
7371: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7372: END IF;
7373: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7374: END IF;
7367: --dbms_output.put_line('4');
7368: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7369: IF l_debug_mode = 'Y' THEN
7370: pa_debug.g_err_stage:='Cpa_budget_utils.Get_Project_Currency_Info returned error';
7371: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7372: END IF;
7373: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7374: END IF;
7375:
7376: --Derive the tables that are required for Calculate API
7377: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR p_context = PA_FP_CONSTANTS_PKG.G_PLAN_CLASS_FORECAST THEN
7378:
7379: IF l_debug_mode = 'Y' THEN
7380: pa_debug.g_err_stage:='Preparing the pl/sql tables for calling calc api for BF';
7381: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7382: END IF;
7383:
7384:
7377: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR p_context = PA_FP_CONSTANTS_PKG.G_PLAN_CLASS_FORECAST THEN
7378:
7379: IF l_debug_mode = 'Y' THEN
7380: pa_debug.g_err_stage:='Preparing the pl/sql tables for calling calc api for BF';
7381: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7382: END IF;
7383:
7384:
7385: l_override_currency_code_tbl := p_txn_currency_override_tbl;
7416: -- i.e. the difference between the existing quantity and the quantity passed.
7417: ELSIF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK OR p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
7418:
7419: IF l_debug_mode = 'Y' THEN
7420: pa_debug.g_err_stage:='About to bulk collect into pl/sql tables req for calc api '||l_override_currency_code_tbl.last;
7421: print_msg(pa_debug.g_err_stage,l_module_name);
7422: END IF;
7423:
7424: /* Preparing PLSql Tables for Rates for Calling Calculate API*/
7417: ELSIF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK OR p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
7418:
7419: IF l_debug_mode = 'Y' THEN
7420: pa_debug.g_err_stage:='About to bulk collect into pl/sql tables req for calc api '||l_override_currency_code_tbl.last;
7421: print_msg(pa_debug.g_err_stage,l_module_name);
7422: END IF;
7423:
7424: /* Preparing PLSql Tables for Rates for Calling Calculate API*/
7425: -- Bug 3760166
7476: * got passed from the UI and ultimately returned back by the
7477: * validate TA api */
7478:
7479: IF l_debug_mode = 'Y' THEN
7480: pa_debug.g_err_stage:='Done with preparing the tables';
7481: print_msg(pa_debug.g_err_stage,l_module_name);
7482: END IF;
7483:
7484: END IF;
7477: * validate TA api */
7478:
7479: IF l_debug_mode = 'Y' THEN
7480: pa_debug.g_err_stage:='Done with preparing the tables';
7481: print_msg(pa_debug.g_err_stage,l_module_name);
7482: END IF;
7483:
7484: END IF;
7485:
7485:
7486: /* Calling the api Derive_Parameters_For_Calc_Api
7487: */
7488: IF l_debug_mode = 'Y' THEN
7489: pa_debug.g_err_stage:='Calling API Derive_Parameters_For_Calc_Api';
7490: print_msg(pa_debug.g_err_stage,l_module_name);
7491: END IF;
7492: --dbms_output.put_line('l_b_multiplier_tbl cnt is '||l_burdened_rate_override_tbl.count);
7493: --dbms_output.put_line('5');
7486: /* Calling the api Derive_Parameters_For_Calc_Api
7487: */
7488: IF l_debug_mode = 'Y' THEN
7489: pa_debug.g_err_stage:='Calling API Derive_Parameters_For_Calc_Api';
7490: print_msg(pa_debug.g_err_stage,l_module_name);
7491: END IF;
7492: --dbms_output.put_line('l_b_multiplier_tbl cnt is '||l_burdened_rate_override_tbl.count);
7493: --dbms_output.put_line('5');
7494: Process_res_chg_Derv_calc_prms
7547: ,x_msg_count => x_msg_count );
7548:
7549: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7550: IF l_debug_mode = 'Y' THEN
7551: pa_debug.g_err_stage:='Derive_Parameters_For_Calc_Api returned error';
7552: print_msg(pa_debug.g_err_stage,l_module_name);
7553: END IF;
7554: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7555: END IF;
7548:
7549: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7550: IF l_debug_mode = 'Y' THEN
7551: pa_debug.g_err_stage:='Derive_Parameters_For_Calc_Api returned error';
7552: print_msg(pa_debug.g_err_stage,l_module_name);
7553: END IF;
7554: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7555: END IF;
7556:
7558: --for a resource assignment with fixed spread curve. Hence the value returned should be considered
7559: l_sp_fixed_date_tbl := l_sp_fixed_date_new_tbl;
7560: --dbms_output.put_line(' cccc l_burdened_rate_override_tbl cnt is '||l_burdened_rate_override_tbl.count);
7561: IF l_debug_mode = 'Y' THEN
7562: pa_debug.g_err_stage:='Bulk updating pa_resource_assignments. start '||l_resource_assignment_id_tbl.FIRST ||' end '||l_resource_assignment_id_tbl.LAST;
7563: print_msg(pa_debug.g_err_stage,l_module_name);
7564: END IF;
7565:
7566: --dbms_output.put_line('6');
7559: l_sp_fixed_date_tbl := l_sp_fixed_date_new_tbl;
7560: --dbms_output.put_line(' cccc l_burdened_rate_override_tbl cnt is '||l_burdened_rate_override_tbl.count);
7561: IF l_debug_mode = 'Y' THEN
7562: pa_debug.g_err_stage:='Bulk updating pa_resource_assignments. start '||l_resource_assignment_id_tbl.FIRST ||' end '||l_resource_assignment_id_tbl.LAST;
7563: print_msg(pa_debug.g_err_stage,l_module_name);
7564: END IF;
7565:
7566: --dbms_output.put_line('6');
7567: --Prepare the pl/sql tables for the all columns in pa_resource_assignments to make use of bulk update
7695: l_plan_start_date_old_tbl as l_plan_start_date_new_tbl so that there is
7696: no distribution of amounts as the old and the new dates are the same.
7697: */
7698: IF l_debug_mode = 'Y' THEN
7699: pa_debug.g_err_stage:='p_distrib_amts - '||p_distrib_amts;
7700: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7701: END IF;
7702: IF (nvl(p_distrib_amts,'Y') = 'N') THEN
7703:
7696: no distribution of amounts as the old and the new dates are the same.
7697: */
7698: IF l_debug_mode = 'Y' THEN
7699: pa_debug.g_err_stage:='p_distrib_amts - '||p_distrib_amts;
7700: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7701: END IF;
7702: IF (nvl(p_distrib_amts,'Y') = 'N') THEN
7703:
7704: -- Start Bug 5906826
7705: /* Commented for Bug 9610380
7706: IF (l_resource_assignment_id_tbl.count > 1) THEN
7707:
7708: IF l_debug_mode = 'Y' THEN
7709: pa_debug.g_err_stage:= 'p_distrib_amts is N and resource assignment > 1';
7710: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7711: END IF;
7712:
7713: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7706: IF (l_resource_assignment_id_tbl.count > 1) THEN
7707:
7708: IF l_debug_mode = 'Y' THEN
7709: pa_debug.g_err_stage:= 'p_distrib_amts is N and resource assignment > 1';
7710: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7711: END IF;
7712:
7713: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7714: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7806:
7807: /* End of coding done for Bug 5684639.*/
7808:
7809: IF l_debug_mode = 'Y' THEN
7810: pa_debug.g_err_stage:='Calling API PA_FP_CALC_PLAN_PKG.calculate';
7811: print_msg(pa_debug.g_err_stage,l_module_name);
7812: pa_debug.g_err_stage:='Parameters to PA_FP_CALC_PLAN_PKG.calculate';
7813: print_msg(pa_debug.g_err_stage,l_module_name);
7814:
7807: /* End of coding done for Bug 5684639.*/
7808:
7809: IF l_debug_mode = 'Y' THEN
7810: pa_debug.g_err_stage:='Calling API PA_FP_CALC_PLAN_PKG.calculate';
7811: print_msg(pa_debug.g_err_stage,l_module_name);
7812: pa_debug.g_err_stage:='Parameters to PA_FP_CALC_PLAN_PKG.calculate';
7813: print_msg(pa_debug.g_err_stage,l_module_name);
7814:
7815: IF l_resource_assignment_id_tbl.COUNT>0 THEN
7808:
7809: IF l_debug_mode = 'Y' THEN
7810: pa_debug.g_err_stage:='Calling API PA_FP_CALC_PLAN_PKG.calculate';
7811: print_msg(pa_debug.g_err_stage,l_module_name);
7812: pa_debug.g_err_stage:='Parameters to PA_FP_CALC_PLAN_PKG.calculate';
7813: print_msg(pa_debug.g_err_stage,l_module_name);
7814:
7815: IF l_resource_assignment_id_tbl.COUNT>0 THEN
7816:
7809: IF l_debug_mode = 'Y' THEN
7810: pa_debug.g_err_stage:='Calling API PA_FP_CALC_PLAN_PKG.calculate';
7811: print_msg(pa_debug.g_err_stage,l_module_name);
7812: pa_debug.g_err_stage:='Parameters to PA_FP_CALC_PLAN_PKG.calculate';
7813: print_msg(pa_debug.g_err_stage,l_module_name);
7814:
7815: IF l_resource_assignment_id_tbl.COUNT>0 THEN
7816:
7817: FOR i in l_resource_assignment_id_tbl.FIRST .. l_resource_assignment_id_tbl.LAST LOOP
7815: IF l_resource_assignment_id_tbl.COUNT>0 THEN
7816:
7817: FOR i in l_resource_assignment_id_tbl.FIRST .. l_resource_assignment_id_tbl.LAST LOOP
7818:
7819: pa_debug.g_err_stage:='l_resource_assignment_id_tbl('||i||') is '||l_resource_assignment_id_tbl(i);
7820: print_msg(pa_debug.g_err_stage,l_module_name);
7821: --dbms_output.put_line( pa_debug.g_err_stage);
7822:
7823: pa_debug.g_err_stage:='l_currency_code_tbl('||i||') is '||l_currency_code_tbl(i);
7816:
7817: FOR i in l_resource_assignment_id_tbl.FIRST .. l_resource_assignment_id_tbl.LAST LOOP
7818:
7819: pa_debug.g_err_stage:='l_resource_assignment_id_tbl('||i||') is '||l_resource_assignment_id_tbl(i);
7820: print_msg(pa_debug.g_err_stage,l_module_name);
7821: --dbms_output.put_line( pa_debug.g_err_stage);
7822:
7823: pa_debug.g_err_stage:='l_currency_code_tbl('||i||') is '||l_currency_code_tbl(i);
7824: print_msg(pa_debug.g_err_stage,l_module_name);
7817: FOR i in l_resource_assignment_id_tbl.FIRST .. l_resource_assignment_id_tbl.LAST LOOP
7818:
7819: pa_debug.g_err_stage:='l_resource_assignment_id_tbl('||i||') is '||l_resource_assignment_id_tbl(i);
7820: print_msg(pa_debug.g_err_stage,l_module_name);
7821: --dbms_output.put_line( pa_debug.g_err_stage);
7822:
7823: pa_debug.g_err_stage:='l_currency_code_tbl('||i||') is '||l_currency_code_tbl(i);
7824: print_msg(pa_debug.g_err_stage,l_module_name);
7825: --dbms_output.put_line( pa_debug.g_err_stage);
7819: pa_debug.g_err_stage:='l_resource_assignment_id_tbl('||i||') is '||l_resource_assignment_id_tbl(i);
7820: print_msg(pa_debug.g_err_stage,l_module_name);
7821: --dbms_output.put_line( pa_debug.g_err_stage);
7822:
7823: pa_debug.g_err_stage:='l_currency_code_tbl('||i||') is '||l_currency_code_tbl(i);
7824: print_msg(pa_debug.g_err_stage,l_module_name);
7825: --dbms_output.put_line( pa_debug.g_err_stage);
7826:
7827: IF p_currency_code_tbl.EXISTS(i) THEN
7820: print_msg(pa_debug.g_err_stage,l_module_name);
7821: --dbms_output.put_line( pa_debug.g_err_stage);
7822:
7823: pa_debug.g_err_stage:='l_currency_code_tbl('||i||') is '||l_currency_code_tbl(i);
7824: print_msg(pa_debug.g_err_stage,l_module_name);
7825: --dbms_output.put_line( pa_debug.g_err_stage);
7826:
7827: IF p_currency_code_tbl.EXISTS(i) THEN
7828: pa_debug.g_err_stage:='p_currency_code_tbl('||i||') is '||p_currency_code_tbl(i);
7821: --dbms_output.put_line( pa_debug.g_err_stage);
7822:
7823: pa_debug.g_err_stage:='l_currency_code_tbl('||i||') is '||l_currency_code_tbl(i);
7824: print_msg(pa_debug.g_err_stage,l_module_name);
7825: --dbms_output.put_line( pa_debug.g_err_stage);
7826:
7827: IF p_currency_code_tbl.EXISTS(i) THEN
7828: pa_debug.g_err_stage:='p_currency_code_tbl('||i||') is '||p_currency_code_tbl(i);
7829: print_msg(pa_debug.g_err_stage,l_module_name);
7824: print_msg(pa_debug.g_err_stage,l_module_name);
7825: --dbms_output.put_line( pa_debug.g_err_stage);
7826:
7827: IF p_currency_code_tbl.EXISTS(i) THEN
7828: pa_debug.g_err_stage:='p_currency_code_tbl('||i||') is '||p_currency_code_tbl(i);
7829: print_msg(pa_debug.g_err_stage,l_module_name);
7830: ELSE
7831: pa_debug.g_err_stage:='p_currency_code_tbl('||i||') does not exist ';
7832: print_msg(pa_debug.g_err_stage,l_module_name);
7825: --dbms_output.put_line( pa_debug.g_err_stage);
7826:
7827: IF p_currency_code_tbl.EXISTS(i) THEN
7828: pa_debug.g_err_stage:='p_currency_code_tbl('||i||') is '||p_currency_code_tbl(i);
7829: print_msg(pa_debug.g_err_stage,l_module_name);
7830: ELSE
7831: pa_debug.g_err_stage:='p_currency_code_tbl('||i||') does not exist ';
7832: print_msg(pa_debug.g_err_stage,l_module_name);
7833: END IF;
7827: IF p_currency_code_tbl.EXISTS(i) THEN
7828: pa_debug.g_err_stage:='p_currency_code_tbl('||i||') is '||p_currency_code_tbl(i);
7829: print_msg(pa_debug.g_err_stage,l_module_name);
7830: ELSE
7831: pa_debug.g_err_stage:='p_currency_code_tbl('||i||') does not exist ';
7832: print_msg(pa_debug.g_err_stage,l_module_name);
7833: END IF;
7834: --dbms_output.put_line( pa_debug.g_err_stage);
7835:
7828: pa_debug.g_err_stage:='p_currency_code_tbl('||i||') is '||p_currency_code_tbl(i);
7829: print_msg(pa_debug.g_err_stage,l_module_name);
7830: ELSE
7831: pa_debug.g_err_stage:='p_currency_code_tbl('||i||') does not exist ';
7832: print_msg(pa_debug.g_err_stage,l_module_name);
7833: END IF;
7834: --dbms_output.put_line( pa_debug.g_err_stage);
7835:
7836: pa_debug.g_err_stage:='l_override_currency_code_tbl('||i||') is '||l_override_currency_code_tbl(i);
7830: ELSE
7831: pa_debug.g_err_stage:='p_currency_code_tbl('||i||') does not exist ';
7832: print_msg(pa_debug.g_err_stage,l_module_name);
7833: END IF;
7834: --dbms_output.put_line( pa_debug.g_err_stage);
7835:
7836: pa_debug.g_err_stage:='l_override_currency_code_tbl('||i||') is '||l_override_currency_code_tbl(i);
7837: print_msg(pa_debug.g_err_stage,l_module_name);
7838: --dbms_output.put_line( pa_debug.g_err_stage);
7832: print_msg(pa_debug.g_err_stage,l_module_name);
7833: END IF;
7834: --dbms_output.put_line( pa_debug.g_err_stage);
7835:
7836: pa_debug.g_err_stage:='l_override_currency_code_tbl('||i||') is '||l_override_currency_code_tbl(i);
7837: print_msg(pa_debug.g_err_stage,l_module_name);
7838: --dbms_output.put_line( pa_debug.g_err_stage);
7839:
7840: IF p_txn_currency_override_tbl.EXISTS(i) THEN
7833: END IF;
7834: --dbms_output.put_line( pa_debug.g_err_stage);
7835:
7836: pa_debug.g_err_stage:='l_override_currency_code_tbl('||i||') is '||l_override_currency_code_tbl(i);
7837: print_msg(pa_debug.g_err_stage,l_module_name);
7838: --dbms_output.put_line( pa_debug.g_err_stage);
7839:
7840: IF p_txn_currency_override_tbl.EXISTS(i) THEN
7841: pa_debug.g_err_stage:='p_txn_currency_override_tbl('||i||') is '||p_txn_currency_override_tbl(i);
7834: --dbms_output.put_line( pa_debug.g_err_stage);
7835:
7836: pa_debug.g_err_stage:='l_override_currency_code_tbl('||i||') is '||l_override_currency_code_tbl(i);
7837: print_msg(pa_debug.g_err_stage,l_module_name);
7838: --dbms_output.put_line( pa_debug.g_err_stage);
7839:
7840: IF p_txn_currency_override_tbl.EXISTS(i) THEN
7841: pa_debug.g_err_stage:='p_txn_currency_override_tbl('||i||') is '||p_txn_currency_override_tbl(i);
7842: print_msg(pa_debug.g_err_stage,l_module_name);
7837: print_msg(pa_debug.g_err_stage,l_module_name);
7838: --dbms_output.put_line( pa_debug.g_err_stage);
7839:
7840: IF p_txn_currency_override_tbl.EXISTS(i) THEN
7841: pa_debug.g_err_stage:='p_txn_currency_override_tbl('||i||') is '||p_txn_currency_override_tbl(i);
7842: print_msg(pa_debug.g_err_stage,l_module_name);
7843: ELSE
7844: pa_debug.g_err_stage:='p_txn_currency_override_tbl('||i||') does not exist ';
7845: print_msg(pa_debug.g_err_stage,l_module_name);
7838: --dbms_output.put_line( pa_debug.g_err_stage);
7839:
7840: IF p_txn_currency_override_tbl.EXISTS(i) THEN
7841: pa_debug.g_err_stage:='p_txn_currency_override_tbl('||i||') is '||p_txn_currency_override_tbl(i);
7842: print_msg(pa_debug.g_err_stage,l_module_name);
7843: ELSE
7844: pa_debug.g_err_stage:='p_txn_currency_override_tbl('||i||') does not exist ';
7845: print_msg(pa_debug.g_err_stage,l_module_name);
7846: END IF;
7840: IF p_txn_currency_override_tbl.EXISTS(i) THEN
7841: pa_debug.g_err_stage:='p_txn_currency_override_tbl('||i||') is '||p_txn_currency_override_tbl(i);
7842: print_msg(pa_debug.g_err_stage,l_module_name);
7843: ELSE
7844: pa_debug.g_err_stage:='p_txn_currency_override_tbl('||i||') does not exist ';
7845: print_msg(pa_debug.g_err_stage,l_module_name);
7846: END IF;
7847: --dbms_output.put_line( pa_debug.g_err_stage);
7848:
7841: pa_debug.g_err_stage:='p_txn_currency_override_tbl('||i||') is '||p_txn_currency_override_tbl(i);
7842: print_msg(pa_debug.g_err_stage,l_module_name);
7843: ELSE
7844: pa_debug.g_err_stage:='p_txn_currency_override_tbl('||i||') does not exist ';
7845: print_msg(pa_debug.g_err_stage,l_module_name);
7846: END IF;
7847: --dbms_output.put_line( pa_debug.g_err_stage);
7848:
7849: pa_debug.g_err_stage:='l_total_quantity_tbl('||i||') is '||l_total_quantity_tbl(i);
7843: ELSE
7844: pa_debug.g_err_stage:='p_txn_currency_override_tbl('||i||') does not exist ';
7845: print_msg(pa_debug.g_err_stage,l_module_name);
7846: END IF;
7847: --dbms_output.put_line( pa_debug.g_err_stage);
7848:
7849: pa_debug.g_err_stage:='l_total_quantity_tbl('||i||') is '||l_total_quantity_tbl(i);
7850: print_msg(pa_debug.g_err_stage,l_module_name);
7851: --dbms_output.put_line( pa_debug.g_err_stage);
7845: print_msg(pa_debug.g_err_stage,l_module_name);
7846: END IF;
7847: --dbms_output.put_line( pa_debug.g_err_stage);
7848:
7849: pa_debug.g_err_stage:='l_total_quantity_tbl('||i||') is '||l_total_quantity_tbl(i);
7850: print_msg(pa_debug.g_err_stage,l_module_name);
7851: --dbms_output.put_line( pa_debug.g_err_stage);
7852:
7853: IF p_quantity_tbl.EXISTS(i) THEN
7846: END IF;
7847: --dbms_output.put_line( pa_debug.g_err_stage);
7848:
7849: pa_debug.g_err_stage:='l_total_quantity_tbl('||i||') is '||l_total_quantity_tbl(i);
7850: print_msg(pa_debug.g_err_stage,l_module_name);
7851: --dbms_output.put_line( pa_debug.g_err_stage);
7852:
7853: IF p_quantity_tbl.EXISTS(i) THEN
7854: pa_debug.g_err_stage:='p_quantity_tbl('||i||') is '||p_quantity_tbl(i);
7847: --dbms_output.put_line( pa_debug.g_err_stage);
7848:
7849: pa_debug.g_err_stage:='l_total_quantity_tbl('||i||') is '||l_total_quantity_tbl(i);
7850: print_msg(pa_debug.g_err_stage,l_module_name);
7851: --dbms_output.put_line( pa_debug.g_err_stage);
7852:
7853: IF p_quantity_tbl.EXISTS(i) THEN
7854: pa_debug.g_err_stage:='p_quantity_tbl('||i||') is '||p_quantity_tbl(i);
7855: print_msg(pa_debug.g_err_stage,l_module_name);
7850: print_msg(pa_debug.g_err_stage,l_module_name);
7851: --dbms_output.put_line( pa_debug.g_err_stage);
7852:
7853: IF p_quantity_tbl.EXISTS(i) THEN
7854: pa_debug.g_err_stage:='p_quantity_tbl('||i||') is '||p_quantity_tbl(i);
7855: print_msg(pa_debug.g_err_stage,l_module_name);
7856: ELSE
7857: pa_debug.g_err_stage:='p_quantity_tbl('||i||') does not exist ';
7858: print_msg(pa_debug.g_err_stage,l_module_name);
7851: --dbms_output.put_line( pa_debug.g_err_stage);
7852:
7853: IF p_quantity_tbl.EXISTS(i) THEN
7854: pa_debug.g_err_stage:='p_quantity_tbl('||i||') is '||p_quantity_tbl(i);
7855: print_msg(pa_debug.g_err_stage,l_module_name);
7856: ELSE
7857: pa_debug.g_err_stage:='p_quantity_tbl('||i||') does not exist ';
7858: print_msg(pa_debug.g_err_stage,l_module_name);
7859: END IF;
7853: IF p_quantity_tbl.EXISTS(i) THEN
7854: pa_debug.g_err_stage:='p_quantity_tbl('||i||') is '||p_quantity_tbl(i);
7855: print_msg(pa_debug.g_err_stage,l_module_name);
7856: ELSE
7857: pa_debug.g_err_stage:='p_quantity_tbl('||i||') does not exist ';
7858: print_msg(pa_debug.g_err_stage,l_module_name);
7859: END IF;
7860: --dbms_output.put_line( pa_debug.g_err_stage);
7861:
7854: pa_debug.g_err_stage:='p_quantity_tbl('||i||') is '||p_quantity_tbl(i);
7855: print_msg(pa_debug.g_err_stage,l_module_name);
7856: ELSE
7857: pa_debug.g_err_stage:='p_quantity_tbl('||i||') does not exist ';
7858: print_msg(pa_debug.g_err_stage,l_module_name);
7859: END IF;
7860: --dbms_output.put_line( pa_debug.g_err_stage);
7861:
7862: pa_debug.g_err_stage:='l_total_raw_cost_tbl('||i||') is '||l_total_raw_cost_tbl(i);
7856: ELSE
7857: pa_debug.g_err_stage:='p_quantity_tbl('||i||') does not exist ';
7858: print_msg(pa_debug.g_err_stage,l_module_name);
7859: END IF;
7860: --dbms_output.put_line( pa_debug.g_err_stage);
7861:
7862: pa_debug.g_err_stage:='l_total_raw_cost_tbl('||i||') is '||l_total_raw_cost_tbl(i);
7863: print_msg(pa_debug.g_err_stage,l_module_name);
7864: --dbms_output.put_line( pa_debug.g_err_stage);
7858: print_msg(pa_debug.g_err_stage,l_module_name);
7859: END IF;
7860: --dbms_output.put_line( pa_debug.g_err_stage);
7861:
7862: pa_debug.g_err_stage:='l_total_raw_cost_tbl('||i||') is '||l_total_raw_cost_tbl(i);
7863: print_msg(pa_debug.g_err_stage,l_module_name);
7864: --dbms_output.put_line( pa_debug.g_err_stage);
7865:
7866: IF p_raw_cost_tbl.EXISTS(i) THEN
7859: END IF;
7860: --dbms_output.put_line( pa_debug.g_err_stage);
7861:
7862: pa_debug.g_err_stage:='l_total_raw_cost_tbl('||i||') is '||l_total_raw_cost_tbl(i);
7863: print_msg(pa_debug.g_err_stage,l_module_name);
7864: --dbms_output.put_line( pa_debug.g_err_stage);
7865:
7866: IF p_raw_cost_tbl.EXISTS(i) THEN
7867: pa_debug.g_err_stage:='p_raw_cost_tbl('||i||') is '||p_raw_cost_tbl(i);
7860: --dbms_output.put_line( pa_debug.g_err_stage);
7861:
7862: pa_debug.g_err_stage:='l_total_raw_cost_tbl('||i||') is '||l_total_raw_cost_tbl(i);
7863: print_msg(pa_debug.g_err_stage,l_module_name);
7864: --dbms_output.put_line( pa_debug.g_err_stage);
7865:
7866: IF p_raw_cost_tbl.EXISTS(i) THEN
7867: pa_debug.g_err_stage:='p_raw_cost_tbl('||i||') is '||p_raw_cost_tbl(i);
7868: print_msg(pa_debug.g_err_stage,l_module_name);
7863: print_msg(pa_debug.g_err_stage,l_module_name);
7864: --dbms_output.put_line( pa_debug.g_err_stage);
7865:
7866: IF p_raw_cost_tbl.EXISTS(i) THEN
7867: pa_debug.g_err_stage:='p_raw_cost_tbl('||i||') is '||p_raw_cost_tbl(i);
7868: print_msg(pa_debug.g_err_stage,l_module_name);
7869: ELSE
7870: pa_debug.g_err_stage:='p_raw_cost_tbl('||i||') does not exist ';
7871: print_msg(pa_debug.g_err_stage,l_module_name);
7864: --dbms_output.put_line( pa_debug.g_err_stage);
7865:
7866: IF p_raw_cost_tbl.EXISTS(i) THEN
7867: pa_debug.g_err_stage:='p_raw_cost_tbl('||i||') is '||p_raw_cost_tbl(i);
7868: print_msg(pa_debug.g_err_stage,l_module_name);
7869: ELSE
7870: pa_debug.g_err_stage:='p_raw_cost_tbl('||i||') does not exist ';
7871: print_msg(pa_debug.g_err_stage,l_module_name);
7872: END IF;
7866: IF p_raw_cost_tbl.EXISTS(i) THEN
7867: pa_debug.g_err_stage:='p_raw_cost_tbl('||i||') is '||p_raw_cost_tbl(i);
7868: print_msg(pa_debug.g_err_stage,l_module_name);
7869: ELSE
7870: pa_debug.g_err_stage:='p_raw_cost_tbl('||i||') does not exist ';
7871: print_msg(pa_debug.g_err_stage,l_module_name);
7872: END IF;
7873: --dbms_output.put_line( pa_debug.g_err_stage);
7874:
7867: pa_debug.g_err_stage:='p_raw_cost_tbl('||i||') is '||p_raw_cost_tbl(i);
7868: print_msg(pa_debug.g_err_stage,l_module_name);
7869: ELSE
7870: pa_debug.g_err_stage:='p_raw_cost_tbl('||i||') does not exist ';
7871: print_msg(pa_debug.g_err_stage,l_module_name);
7872: END IF;
7873: --dbms_output.put_line( pa_debug.g_err_stage);
7874:
7875: pa_debug.g_err_stage:='l_burdened_cost_tbl('||i||') is '||l_burdened_cost_tbl(i);
7869: ELSE
7870: pa_debug.g_err_stage:='p_raw_cost_tbl('||i||') does not exist ';
7871: print_msg(pa_debug.g_err_stage,l_module_name);
7872: END IF;
7873: --dbms_output.put_line( pa_debug.g_err_stage);
7874:
7875: pa_debug.g_err_stage:='l_burdened_cost_tbl('||i||') is '||l_burdened_cost_tbl(i);
7876: print_msg(pa_debug.g_err_stage,l_module_name);
7877: --dbms_output.put_line( pa_debug.g_err_stage);
7871: print_msg(pa_debug.g_err_stage,l_module_name);
7872: END IF;
7873: --dbms_output.put_line( pa_debug.g_err_stage);
7874:
7875: pa_debug.g_err_stage:='l_burdened_cost_tbl('||i||') is '||l_burdened_cost_tbl(i);
7876: print_msg(pa_debug.g_err_stage,l_module_name);
7877: --dbms_output.put_line( pa_debug.g_err_stage);
7878:
7879: IF p_burdened_cost_tbl.EXISTS(i) THEN
7872: END IF;
7873: --dbms_output.put_line( pa_debug.g_err_stage);
7874:
7875: pa_debug.g_err_stage:='l_burdened_cost_tbl('||i||') is '||l_burdened_cost_tbl(i);
7876: print_msg(pa_debug.g_err_stage,l_module_name);
7877: --dbms_output.put_line( pa_debug.g_err_stage);
7878:
7879: IF p_burdened_cost_tbl.EXISTS(i) THEN
7880: pa_debug.g_err_stage:='p_burdened_cost_tbl('||i||') is '||p_burdened_cost_tbl(i);
7873: --dbms_output.put_line( pa_debug.g_err_stage);
7874:
7875: pa_debug.g_err_stage:='l_burdened_cost_tbl('||i||') is '||l_burdened_cost_tbl(i);
7876: print_msg(pa_debug.g_err_stage,l_module_name);
7877: --dbms_output.put_line( pa_debug.g_err_stage);
7878:
7879: IF p_burdened_cost_tbl.EXISTS(i) THEN
7880: pa_debug.g_err_stage:='p_burdened_cost_tbl('||i||') is '||p_burdened_cost_tbl(i);
7881: print_msg(pa_debug.g_err_stage,l_module_name);
7876: print_msg(pa_debug.g_err_stage,l_module_name);
7877: --dbms_output.put_line( pa_debug.g_err_stage);
7878:
7879: IF p_burdened_cost_tbl.EXISTS(i) THEN
7880: pa_debug.g_err_stage:='p_burdened_cost_tbl('||i||') is '||p_burdened_cost_tbl(i);
7881: print_msg(pa_debug.g_err_stage,l_module_name);
7882: ELSE
7883: pa_debug.g_err_stage:='p_burdened_cost_tbl('||i||') does not exist ';
7884: print_msg(pa_debug.g_err_stage,l_module_name);
7877: --dbms_output.put_line( pa_debug.g_err_stage);
7878:
7879: IF p_burdened_cost_tbl.EXISTS(i) THEN
7880: pa_debug.g_err_stage:='p_burdened_cost_tbl('||i||') is '||p_burdened_cost_tbl(i);
7881: print_msg(pa_debug.g_err_stage,l_module_name);
7882: ELSE
7883: pa_debug.g_err_stage:='p_burdened_cost_tbl('||i||') does not exist ';
7884: print_msg(pa_debug.g_err_stage,l_module_name);
7885: END IF;
7879: IF p_burdened_cost_tbl.EXISTS(i) THEN
7880: pa_debug.g_err_stage:='p_burdened_cost_tbl('||i||') is '||p_burdened_cost_tbl(i);
7881: print_msg(pa_debug.g_err_stage,l_module_name);
7882: ELSE
7883: pa_debug.g_err_stage:='p_burdened_cost_tbl('||i||') does not exist ';
7884: print_msg(pa_debug.g_err_stage,l_module_name);
7885: END IF;
7886: --dbms_output.put_line( pa_debug.g_err_stage);
7887:
7880: pa_debug.g_err_stage:='p_burdened_cost_tbl('||i||') is '||p_burdened_cost_tbl(i);
7881: print_msg(pa_debug.g_err_stage,l_module_name);
7882: ELSE
7883: pa_debug.g_err_stage:='p_burdened_cost_tbl('||i||') does not exist ';
7884: print_msg(pa_debug.g_err_stage,l_module_name);
7885: END IF;
7886: --dbms_output.put_line( pa_debug.g_err_stage);
7887:
7888: pa_debug.g_err_stage:='l_revenue_tbl('||i||') is '||l_revenue_tbl(i);
7882: ELSE
7883: pa_debug.g_err_stage:='p_burdened_cost_tbl('||i||') does not exist ';
7884: print_msg(pa_debug.g_err_stage,l_module_name);
7885: END IF;
7886: --dbms_output.put_line( pa_debug.g_err_stage);
7887:
7888: pa_debug.g_err_stage:='l_revenue_tbl('||i||') is '||l_revenue_tbl(i);
7889: print_msg(pa_debug.g_err_stage,l_module_name);
7890: --dbms_output.put_line( pa_debug.g_err_stage);
7884: print_msg(pa_debug.g_err_stage,l_module_name);
7885: END IF;
7886: --dbms_output.put_line( pa_debug.g_err_stage);
7887:
7888: pa_debug.g_err_stage:='l_revenue_tbl('||i||') is '||l_revenue_tbl(i);
7889: print_msg(pa_debug.g_err_stage,l_module_name);
7890: --dbms_output.put_line( pa_debug.g_err_stage);
7891:
7892: IF p_revenue_tbl.EXISTS(i) THEN
7885: END IF;
7886: --dbms_output.put_line( pa_debug.g_err_stage);
7887:
7888: pa_debug.g_err_stage:='l_revenue_tbl('||i||') is '||l_revenue_tbl(i);
7889: print_msg(pa_debug.g_err_stage,l_module_name);
7890: --dbms_output.put_line( pa_debug.g_err_stage);
7891:
7892: IF p_revenue_tbl.EXISTS(i) THEN
7893: pa_debug.g_err_stage:='p_revenue_tbl('||i||') is '||p_revenue_tbl(i);
7886: --dbms_output.put_line( pa_debug.g_err_stage);
7887:
7888: pa_debug.g_err_stage:='l_revenue_tbl('||i||') is '||l_revenue_tbl(i);
7889: print_msg(pa_debug.g_err_stage,l_module_name);
7890: --dbms_output.put_line( pa_debug.g_err_stage);
7891:
7892: IF p_revenue_tbl.EXISTS(i) THEN
7893: pa_debug.g_err_stage:='p_revenue_tbl('||i||') is '||p_revenue_tbl(i);
7894: print_msg(pa_debug.g_err_stage,l_module_name);
7889: print_msg(pa_debug.g_err_stage,l_module_name);
7890: --dbms_output.put_line( pa_debug.g_err_stage);
7891:
7892: IF p_revenue_tbl.EXISTS(i) THEN
7893: pa_debug.g_err_stage:='p_revenue_tbl('||i||') is '||p_revenue_tbl(i);
7894: print_msg(pa_debug.g_err_stage,l_module_name);
7895: ELSE
7896: pa_debug.g_err_stage:='p_revenue_tbl('||i||') does not exist ';
7897: print_msg(pa_debug.g_err_stage,l_module_name);
7890: --dbms_output.put_line( pa_debug.g_err_stage);
7891:
7892: IF p_revenue_tbl.EXISTS(i) THEN
7893: pa_debug.g_err_stage:='p_revenue_tbl('||i||') is '||p_revenue_tbl(i);
7894: print_msg(pa_debug.g_err_stage,l_module_name);
7895: ELSE
7896: pa_debug.g_err_stage:='p_revenue_tbl('||i||') does not exist ';
7897: print_msg(pa_debug.g_err_stage,l_module_name);
7898: END IF;
7892: IF p_revenue_tbl.EXISTS(i) THEN
7893: pa_debug.g_err_stage:='p_revenue_tbl('||i||') is '||p_revenue_tbl(i);
7894: print_msg(pa_debug.g_err_stage,l_module_name);
7895: ELSE
7896: pa_debug.g_err_stage:='p_revenue_tbl('||i||') does not exist ';
7897: print_msg(pa_debug.g_err_stage,l_module_name);
7898: END IF;
7899: --dbms_output.put_line( pa_debug.g_err_stage);
7900:
7893: pa_debug.g_err_stage:='p_revenue_tbl('||i||') is '||p_revenue_tbl(i);
7894: print_msg(pa_debug.g_err_stage,l_module_name);
7895: ELSE
7896: pa_debug.g_err_stage:='p_revenue_tbl('||i||') does not exist ';
7897: print_msg(pa_debug.g_err_stage,l_module_name);
7898: END IF;
7899: --dbms_output.put_line( pa_debug.g_err_stage);
7900:
7901: pa_debug.g_err_stage:='l_raw_cost_rate_tbl('||i||') is '||l_raw_cost_rate_tbl(i);
7895: ELSE
7896: pa_debug.g_err_stage:='p_revenue_tbl('||i||') does not exist ';
7897: print_msg(pa_debug.g_err_stage,l_module_name);
7898: END IF;
7899: --dbms_output.put_line( pa_debug.g_err_stage);
7900:
7901: pa_debug.g_err_stage:='l_raw_cost_rate_tbl('||i||') is '||l_raw_cost_rate_tbl(i);
7902: print_msg(pa_debug.g_err_stage,l_module_name);
7903: --dbms_output.put_line( pa_debug.g_err_stage);
7897: print_msg(pa_debug.g_err_stage,l_module_name);
7898: END IF;
7899: --dbms_output.put_line( pa_debug.g_err_stage);
7900:
7901: pa_debug.g_err_stage:='l_raw_cost_rate_tbl('||i||') is '||l_raw_cost_rate_tbl(i);
7902: print_msg(pa_debug.g_err_stage,l_module_name);
7903: --dbms_output.put_line( pa_debug.g_err_stage);
7904:
7905: IF p_cost_rate_tbl.EXISTS(i) THEN
7898: END IF;
7899: --dbms_output.put_line( pa_debug.g_err_stage);
7900:
7901: pa_debug.g_err_stage:='l_raw_cost_rate_tbl('||i||') is '||l_raw_cost_rate_tbl(i);
7902: print_msg(pa_debug.g_err_stage,l_module_name);
7903: --dbms_output.put_line( pa_debug.g_err_stage);
7904:
7905: IF p_cost_rate_tbl.EXISTS(i) THEN
7906: pa_debug.g_err_stage:='p_cost_rate_tbl('||i||') is '||p_cost_rate_tbl(i);
7899: --dbms_output.put_line( pa_debug.g_err_stage);
7900:
7901: pa_debug.g_err_stage:='l_raw_cost_rate_tbl('||i||') is '||l_raw_cost_rate_tbl(i);
7902: print_msg(pa_debug.g_err_stage,l_module_name);
7903: --dbms_output.put_line( pa_debug.g_err_stage);
7904:
7905: IF p_cost_rate_tbl.EXISTS(i) THEN
7906: pa_debug.g_err_stage:='p_cost_rate_tbl('||i||') is '||p_cost_rate_tbl(i);
7907: print_msg(pa_debug.g_err_stage,l_module_name);
7902: print_msg(pa_debug.g_err_stage,l_module_name);
7903: --dbms_output.put_line( pa_debug.g_err_stage);
7904:
7905: IF p_cost_rate_tbl.EXISTS(i) THEN
7906: pa_debug.g_err_stage:='p_cost_rate_tbl('||i||') is '||p_cost_rate_tbl(i);
7907: print_msg(pa_debug.g_err_stage,l_module_name);
7908: ELSE
7909: pa_debug.g_err_stage:='p_cost_rate_tbl('||i||') does not exist ';
7910: print_msg(pa_debug.g_err_stage,l_module_name);
7903: --dbms_output.put_line( pa_debug.g_err_stage);
7904:
7905: IF p_cost_rate_tbl.EXISTS(i) THEN
7906: pa_debug.g_err_stage:='p_cost_rate_tbl('||i||') is '||p_cost_rate_tbl(i);
7907: print_msg(pa_debug.g_err_stage,l_module_name);
7908: ELSE
7909: pa_debug.g_err_stage:='p_cost_rate_tbl('||i||') does not exist ';
7910: print_msg(pa_debug.g_err_stage,l_module_name);
7911: END IF;
7905: IF p_cost_rate_tbl.EXISTS(i) THEN
7906: pa_debug.g_err_stage:='p_cost_rate_tbl('||i||') is '||p_cost_rate_tbl(i);
7907: print_msg(pa_debug.g_err_stage,l_module_name);
7908: ELSE
7909: pa_debug.g_err_stage:='p_cost_rate_tbl('||i||') does not exist ';
7910: print_msg(pa_debug.g_err_stage,l_module_name);
7911: END IF;
7912: --dbms_output.put_line( pa_debug.g_err_stage);
7913:
7906: pa_debug.g_err_stage:='p_cost_rate_tbl('||i||') is '||p_cost_rate_tbl(i);
7907: print_msg(pa_debug.g_err_stage,l_module_name);
7908: ELSE
7909: pa_debug.g_err_stage:='p_cost_rate_tbl('||i||') does not exist ';
7910: print_msg(pa_debug.g_err_stage,l_module_name);
7911: END IF;
7912: --dbms_output.put_line( pa_debug.g_err_stage);
7913:
7914: pa_debug.g_err_stage:='l_cost_rate_override_tbl('||i||') is '||l_cost_rate_override_tbl(i);
7908: ELSE
7909: pa_debug.g_err_stage:='p_cost_rate_tbl('||i||') does not exist ';
7910: print_msg(pa_debug.g_err_stage,l_module_name);
7911: END IF;
7912: --dbms_output.put_line( pa_debug.g_err_stage);
7913:
7914: pa_debug.g_err_stage:='l_cost_rate_override_tbl('||i||') is '||l_cost_rate_override_tbl(i);
7915: print_msg(pa_debug.g_err_stage,l_module_name);
7916: --dbms_output.put_line( pa_debug.g_err_stage);
7910: print_msg(pa_debug.g_err_stage,l_module_name);
7911: END IF;
7912: --dbms_output.put_line( pa_debug.g_err_stage);
7913:
7914: pa_debug.g_err_stage:='l_cost_rate_override_tbl('||i||') is '||l_cost_rate_override_tbl(i);
7915: print_msg(pa_debug.g_err_stage,l_module_name);
7916: --dbms_output.put_line( pa_debug.g_err_stage);
7917:
7918: IF p_cost_rate_override_tbl.EXISTS(i) THEN
7911: END IF;
7912: --dbms_output.put_line( pa_debug.g_err_stage);
7913:
7914: pa_debug.g_err_stage:='l_cost_rate_override_tbl('||i||') is '||l_cost_rate_override_tbl(i);
7915: print_msg(pa_debug.g_err_stage,l_module_name);
7916: --dbms_output.put_line( pa_debug.g_err_stage);
7917:
7918: IF p_cost_rate_override_tbl.EXISTS(i) THEN
7919: pa_debug.g_err_stage:='p_cost_rate_override_tbl('||i||') is '||p_cost_rate_override_tbl(i);
7912: --dbms_output.put_line( pa_debug.g_err_stage);
7913:
7914: pa_debug.g_err_stage:='l_cost_rate_override_tbl('||i||') is '||l_cost_rate_override_tbl(i);
7915: print_msg(pa_debug.g_err_stage,l_module_name);
7916: --dbms_output.put_line( pa_debug.g_err_stage);
7917:
7918: IF p_cost_rate_override_tbl.EXISTS(i) THEN
7919: pa_debug.g_err_stage:='p_cost_rate_override_tbl('||i||') is '||p_cost_rate_override_tbl(i);
7920: print_msg(pa_debug.g_err_stage,l_module_name);
7915: print_msg(pa_debug.g_err_stage,l_module_name);
7916: --dbms_output.put_line( pa_debug.g_err_stage);
7917:
7918: IF p_cost_rate_override_tbl.EXISTS(i) THEN
7919: pa_debug.g_err_stage:='p_cost_rate_override_tbl('||i||') is '||p_cost_rate_override_tbl(i);
7920: print_msg(pa_debug.g_err_stage,l_module_name);
7921: ELSE
7922: pa_debug.g_err_stage:='p_cost_rate_override_tbl('||i||') does not exist ';
7923: print_msg(pa_debug.g_err_stage,l_module_name);
7916: --dbms_output.put_line( pa_debug.g_err_stage);
7917:
7918: IF p_cost_rate_override_tbl.EXISTS(i) THEN
7919: pa_debug.g_err_stage:='p_cost_rate_override_tbl('||i||') is '||p_cost_rate_override_tbl(i);
7920: print_msg(pa_debug.g_err_stage,l_module_name);
7921: ELSE
7922: pa_debug.g_err_stage:='p_cost_rate_override_tbl('||i||') does not exist ';
7923: print_msg(pa_debug.g_err_stage,l_module_name);
7924: END IF;
7918: IF p_cost_rate_override_tbl.EXISTS(i) THEN
7919: pa_debug.g_err_stage:='p_cost_rate_override_tbl('||i||') is '||p_cost_rate_override_tbl(i);
7920: print_msg(pa_debug.g_err_stage,l_module_name);
7921: ELSE
7922: pa_debug.g_err_stage:='p_cost_rate_override_tbl('||i||') does not exist ';
7923: print_msg(pa_debug.g_err_stage,l_module_name);
7924: END IF;
7925: --dbms_output.put_line( pa_debug.g_err_stage);
7926:
7919: pa_debug.g_err_stage:='p_cost_rate_override_tbl('||i||') is '||p_cost_rate_override_tbl(i);
7920: print_msg(pa_debug.g_err_stage,l_module_name);
7921: ELSE
7922: pa_debug.g_err_stage:='p_cost_rate_override_tbl('||i||') does not exist ';
7923: print_msg(pa_debug.g_err_stage,l_module_name);
7924: END IF;
7925: --dbms_output.put_line( pa_debug.g_err_stage);
7926:
7927: pa_debug.g_err_stage:='l_b_multiplier_tbl('||i||') is '||l_b_multiplier_tbl(i);
7921: ELSE
7922: pa_debug.g_err_stage:='p_cost_rate_override_tbl('||i||') does not exist ';
7923: print_msg(pa_debug.g_err_stage,l_module_name);
7924: END IF;
7925: --dbms_output.put_line( pa_debug.g_err_stage);
7926:
7927: pa_debug.g_err_stage:='l_b_multiplier_tbl('||i||') is '||l_b_multiplier_tbl(i);
7928: print_msg(pa_debug.g_err_stage,l_module_name);
7929: --dbms_output.put_line( pa_debug.g_err_stage);
7923: print_msg(pa_debug.g_err_stage,l_module_name);
7924: END IF;
7925: --dbms_output.put_line( pa_debug.g_err_stage);
7926:
7927: pa_debug.g_err_stage:='l_b_multiplier_tbl('||i||') is '||l_b_multiplier_tbl(i);
7928: print_msg(pa_debug.g_err_stage,l_module_name);
7929: --dbms_output.put_line( pa_debug.g_err_stage);
7930:
7931: IF p_burdened_rate_tbl.EXISTS(i) THEN
7924: END IF;
7925: --dbms_output.put_line( pa_debug.g_err_stage);
7926:
7927: pa_debug.g_err_stage:='l_b_multiplier_tbl('||i||') is '||l_b_multiplier_tbl(i);
7928: print_msg(pa_debug.g_err_stage,l_module_name);
7929: --dbms_output.put_line( pa_debug.g_err_stage);
7930:
7931: IF p_burdened_rate_tbl.EXISTS(i) THEN
7932: pa_debug.g_err_stage:='p_burdened_rate_tbl('||i||') is '||p_burdened_rate_tbl(i);
7925: --dbms_output.put_line( pa_debug.g_err_stage);
7926:
7927: pa_debug.g_err_stage:='l_b_multiplier_tbl('||i||') is '||l_b_multiplier_tbl(i);
7928: print_msg(pa_debug.g_err_stage,l_module_name);
7929: --dbms_output.put_line( pa_debug.g_err_stage);
7930:
7931: IF p_burdened_rate_tbl.EXISTS(i) THEN
7932: pa_debug.g_err_stage:='p_burdened_rate_tbl('||i||') is '||p_burdened_rate_tbl(i);
7933: print_msg(pa_debug.g_err_stage,l_module_name);
7928: print_msg(pa_debug.g_err_stage,l_module_name);
7929: --dbms_output.put_line( pa_debug.g_err_stage);
7930:
7931: IF p_burdened_rate_tbl.EXISTS(i) THEN
7932: pa_debug.g_err_stage:='p_burdened_rate_tbl('||i||') is '||p_burdened_rate_tbl(i);
7933: print_msg(pa_debug.g_err_stage,l_module_name);
7934: ELSE
7935: pa_debug.g_err_stage:='p_burdened_rate_tbl('||i||') does not exist ';
7936: print_msg(pa_debug.g_err_stage,l_module_name);
7929: --dbms_output.put_line( pa_debug.g_err_stage);
7930:
7931: IF p_burdened_rate_tbl.EXISTS(i) THEN
7932: pa_debug.g_err_stage:='p_burdened_rate_tbl('||i||') is '||p_burdened_rate_tbl(i);
7933: print_msg(pa_debug.g_err_stage,l_module_name);
7934: ELSE
7935: pa_debug.g_err_stage:='p_burdened_rate_tbl('||i||') does not exist ';
7936: print_msg(pa_debug.g_err_stage,l_module_name);
7937: END IF;
7931: IF p_burdened_rate_tbl.EXISTS(i) THEN
7932: pa_debug.g_err_stage:='p_burdened_rate_tbl('||i||') is '||p_burdened_rate_tbl(i);
7933: print_msg(pa_debug.g_err_stage,l_module_name);
7934: ELSE
7935: pa_debug.g_err_stage:='p_burdened_rate_tbl('||i||') does not exist ';
7936: print_msg(pa_debug.g_err_stage,l_module_name);
7937: END IF;
7938: --dbms_output.put_line( pa_debug.g_err_stage);
7939:
7932: pa_debug.g_err_stage:='p_burdened_rate_tbl('||i||') is '||p_burdened_rate_tbl(i);
7933: print_msg(pa_debug.g_err_stage,l_module_name);
7934: ELSE
7935: pa_debug.g_err_stage:='p_burdened_rate_tbl('||i||') does not exist ';
7936: print_msg(pa_debug.g_err_stage,l_module_name);
7937: END IF;
7938: --dbms_output.put_line( pa_debug.g_err_stage);
7939:
7940: pa_debug.g_err_stage:='l_burdened_rate_override_tbl('||i||') is '||l_burdened_rate_override_tbl(i);
7934: ELSE
7935: pa_debug.g_err_stage:='p_burdened_rate_tbl('||i||') does not exist ';
7936: print_msg(pa_debug.g_err_stage,l_module_name);
7937: END IF;
7938: --dbms_output.put_line( pa_debug.g_err_stage);
7939:
7940: pa_debug.g_err_stage:='l_burdened_rate_override_tbl('||i||') is '||l_burdened_rate_override_tbl(i);
7941: print_msg(pa_debug.g_err_stage,l_module_name);
7942: --dbms_output.put_line( pa_debug.g_err_stage);
7936: print_msg(pa_debug.g_err_stage,l_module_name);
7937: END IF;
7938: --dbms_output.put_line( pa_debug.g_err_stage);
7939:
7940: pa_debug.g_err_stage:='l_burdened_rate_override_tbl('||i||') is '||l_burdened_rate_override_tbl(i);
7941: print_msg(pa_debug.g_err_stage,l_module_name);
7942: --dbms_output.put_line( pa_debug.g_err_stage);
7943:
7944: IF p_burdened_rate_override_tbl.EXISTS(i) THEN
7937: END IF;
7938: --dbms_output.put_line( pa_debug.g_err_stage);
7939:
7940: pa_debug.g_err_stage:='l_burdened_rate_override_tbl('||i||') is '||l_burdened_rate_override_tbl(i);
7941: print_msg(pa_debug.g_err_stage,l_module_name);
7942: --dbms_output.put_line( pa_debug.g_err_stage);
7943:
7944: IF p_burdened_rate_override_tbl.EXISTS(i) THEN
7945: pa_debug.g_err_stage:='p_burdened_rate_override_tbl('||i||') is '||p_burdened_rate_override_tbl(i);
7938: --dbms_output.put_line( pa_debug.g_err_stage);
7939:
7940: pa_debug.g_err_stage:='l_burdened_rate_override_tbl('||i||') is '||l_burdened_rate_override_tbl(i);
7941: print_msg(pa_debug.g_err_stage,l_module_name);
7942: --dbms_output.put_line( pa_debug.g_err_stage);
7943:
7944: IF p_burdened_rate_override_tbl.EXISTS(i) THEN
7945: pa_debug.g_err_stage:='p_burdened_rate_override_tbl('||i||') is '||p_burdened_rate_override_tbl(i);
7946: print_msg(pa_debug.g_err_stage,l_module_name);
7941: print_msg(pa_debug.g_err_stage,l_module_name);
7942: --dbms_output.put_line( pa_debug.g_err_stage);
7943:
7944: IF p_burdened_rate_override_tbl.EXISTS(i) THEN
7945: pa_debug.g_err_stage:='p_burdened_rate_override_tbl('||i||') is '||p_burdened_rate_override_tbl(i);
7946: print_msg(pa_debug.g_err_stage,l_module_name);
7947: ELSE
7948: pa_debug.g_err_stage:='p_burdened_rate_override_tbl('||i||') does not exist ';
7949: print_msg(pa_debug.g_err_stage,l_module_name);
7942: --dbms_output.put_line( pa_debug.g_err_stage);
7943:
7944: IF p_burdened_rate_override_tbl.EXISTS(i) THEN
7945: pa_debug.g_err_stage:='p_burdened_rate_override_tbl('||i||') is '||p_burdened_rate_override_tbl(i);
7946: print_msg(pa_debug.g_err_stage,l_module_name);
7947: ELSE
7948: pa_debug.g_err_stage:='p_burdened_rate_override_tbl('||i||') does not exist ';
7949: print_msg(pa_debug.g_err_stage,l_module_name);
7950: END IF;
7944: IF p_burdened_rate_override_tbl.EXISTS(i) THEN
7945: pa_debug.g_err_stage:='p_burdened_rate_override_tbl('||i||') is '||p_burdened_rate_override_tbl(i);
7946: print_msg(pa_debug.g_err_stage,l_module_name);
7947: ELSE
7948: pa_debug.g_err_stage:='p_burdened_rate_override_tbl('||i||') does not exist ';
7949: print_msg(pa_debug.g_err_stage,l_module_name);
7950: END IF;
7951: --dbms_output.put_line( pa_debug.g_err_stage);
7952:
7945: pa_debug.g_err_stage:='p_burdened_rate_override_tbl('||i||') is '||p_burdened_rate_override_tbl(i);
7946: print_msg(pa_debug.g_err_stage,l_module_name);
7947: ELSE
7948: pa_debug.g_err_stage:='p_burdened_rate_override_tbl('||i||') does not exist ';
7949: print_msg(pa_debug.g_err_stage,l_module_name);
7950: END IF;
7951: --dbms_output.put_line( pa_debug.g_err_stage);
7952:
7953: pa_debug.g_err_stage:='l_bill_rate_tbl('||i||') is '||l_bill_rate_tbl(i);
7947: ELSE
7948: pa_debug.g_err_stage:='p_burdened_rate_override_tbl('||i||') does not exist ';
7949: print_msg(pa_debug.g_err_stage,l_module_name);
7950: END IF;
7951: --dbms_output.put_line( pa_debug.g_err_stage);
7952:
7953: pa_debug.g_err_stage:='l_bill_rate_tbl('||i||') is '||l_bill_rate_tbl(i);
7954: print_msg(pa_debug.g_err_stage,l_module_name);
7955: --dbms_output.put_line( pa_debug.g_err_stage);
7949: print_msg(pa_debug.g_err_stage,l_module_name);
7950: END IF;
7951: --dbms_output.put_line( pa_debug.g_err_stage);
7952:
7953: pa_debug.g_err_stage:='l_bill_rate_tbl('||i||') is '||l_bill_rate_tbl(i);
7954: print_msg(pa_debug.g_err_stage,l_module_name);
7955: --dbms_output.put_line( pa_debug.g_err_stage);
7956:
7957: IF p_bill_rate_tbl.EXISTS(i) THEN
7950: END IF;
7951: --dbms_output.put_line( pa_debug.g_err_stage);
7952:
7953: pa_debug.g_err_stage:='l_bill_rate_tbl('||i||') is '||l_bill_rate_tbl(i);
7954: print_msg(pa_debug.g_err_stage,l_module_name);
7955: --dbms_output.put_line( pa_debug.g_err_stage);
7956:
7957: IF p_bill_rate_tbl.EXISTS(i) THEN
7958: pa_debug.g_err_stage:='p_bill_rate_tbl('||i||') is '||p_bill_rate_tbl(i);
7951: --dbms_output.put_line( pa_debug.g_err_stage);
7952:
7953: pa_debug.g_err_stage:='l_bill_rate_tbl('||i||') is '||l_bill_rate_tbl(i);
7954: print_msg(pa_debug.g_err_stage,l_module_name);
7955: --dbms_output.put_line( pa_debug.g_err_stage);
7956:
7957: IF p_bill_rate_tbl.EXISTS(i) THEN
7958: pa_debug.g_err_stage:='p_bill_rate_tbl('||i||') is '||p_bill_rate_tbl(i);
7959: print_msg(pa_debug.g_err_stage,l_module_name);
7954: print_msg(pa_debug.g_err_stage,l_module_name);
7955: --dbms_output.put_line( pa_debug.g_err_stage);
7956:
7957: IF p_bill_rate_tbl.EXISTS(i) THEN
7958: pa_debug.g_err_stage:='p_bill_rate_tbl('||i||') is '||p_bill_rate_tbl(i);
7959: print_msg(pa_debug.g_err_stage,l_module_name);
7960: ELSE
7961: pa_debug.g_err_stage:='p_bill_rate_tbl('||i||') does not exist ';
7962: print_msg(pa_debug.g_err_stage,l_module_name);
7955: --dbms_output.put_line( pa_debug.g_err_stage);
7956:
7957: IF p_bill_rate_tbl.EXISTS(i) THEN
7958: pa_debug.g_err_stage:='p_bill_rate_tbl('||i||') is '||p_bill_rate_tbl(i);
7959: print_msg(pa_debug.g_err_stage,l_module_name);
7960: ELSE
7961: pa_debug.g_err_stage:='p_bill_rate_tbl('||i||') does not exist ';
7962: print_msg(pa_debug.g_err_stage,l_module_name);
7963: END IF;
7957: IF p_bill_rate_tbl.EXISTS(i) THEN
7958: pa_debug.g_err_stage:='p_bill_rate_tbl('||i||') is '||p_bill_rate_tbl(i);
7959: print_msg(pa_debug.g_err_stage,l_module_name);
7960: ELSE
7961: pa_debug.g_err_stage:='p_bill_rate_tbl('||i||') does not exist ';
7962: print_msg(pa_debug.g_err_stage,l_module_name);
7963: END IF;
7964: --dbms_output.put_line( pa_debug.g_err_stage);
7965:
7958: pa_debug.g_err_stage:='p_bill_rate_tbl('||i||') is '||p_bill_rate_tbl(i);
7959: print_msg(pa_debug.g_err_stage,l_module_name);
7960: ELSE
7961: pa_debug.g_err_stage:='p_bill_rate_tbl('||i||') does not exist ';
7962: print_msg(pa_debug.g_err_stage,l_module_name);
7963: END IF;
7964: --dbms_output.put_line( pa_debug.g_err_stage);
7965:
7966: pa_debug.g_err_stage:='l_bill_rate_override_tbl('||i||') is '||l_bill_rate_override_tbl(i);
7960: ELSE
7961: pa_debug.g_err_stage:='p_bill_rate_tbl('||i||') does not exist ';
7962: print_msg(pa_debug.g_err_stage,l_module_name);
7963: END IF;
7964: --dbms_output.put_line( pa_debug.g_err_stage);
7965:
7966: pa_debug.g_err_stage:='l_bill_rate_override_tbl('||i||') is '||l_bill_rate_override_tbl(i);
7967: print_msg(pa_debug.g_err_stage,l_module_name);
7968: --dbms_output.put_line( pa_debug.g_err_stage);
7962: print_msg(pa_debug.g_err_stage,l_module_name);
7963: END IF;
7964: --dbms_output.put_line( pa_debug.g_err_stage);
7965:
7966: pa_debug.g_err_stage:='l_bill_rate_override_tbl('||i||') is '||l_bill_rate_override_tbl(i);
7967: print_msg(pa_debug.g_err_stage,l_module_name);
7968: --dbms_output.put_line( pa_debug.g_err_stage);
7969:
7970: IF p_bill_rate_override_tbl.EXISTS(i) THEN
7963: END IF;
7964: --dbms_output.put_line( pa_debug.g_err_stage);
7965:
7966: pa_debug.g_err_stage:='l_bill_rate_override_tbl('||i||') is '||l_bill_rate_override_tbl(i);
7967: print_msg(pa_debug.g_err_stage,l_module_name);
7968: --dbms_output.put_line( pa_debug.g_err_stage);
7969:
7970: IF p_bill_rate_override_tbl.EXISTS(i) THEN
7971: pa_debug.g_err_stage:='p_bill_rate_override_tbl('||i||') is '||p_bill_rate_override_tbl(i);
7964: --dbms_output.put_line( pa_debug.g_err_stage);
7965:
7966: pa_debug.g_err_stage:='l_bill_rate_override_tbl('||i||') is '||l_bill_rate_override_tbl(i);
7967: print_msg(pa_debug.g_err_stage,l_module_name);
7968: --dbms_output.put_line( pa_debug.g_err_stage);
7969:
7970: IF p_bill_rate_override_tbl.EXISTS(i) THEN
7971: pa_debug.g_err_stage:='p_bill_rate_override_tbl('||i||') is '||p_bill_rate_override_tbl(i);
7972: print_msg(pa_debug.g_err_stage,l_module_name);
7967: print_msg(pa_debug.g_err_stage,l_module_name);
7968: --dbms_output.put_line( pa_debug.g_err_stage);
7969:
7970: IF p_bill_rate_override_tbl.EXISTS(i) THEN
7971: pa_debug.g_err_stage:='p_bill_rate_override_tbl('||i||') is '||p_bill_rate_override_tbl(i);
7972: print_msg(pa_debug.g_err_stage,l_module_name);
7973: ELSE
7974: pa_debug.g_err_stage:='p_bill_rate_override_tbl('||i||') does not exist ';
7975: print_msg(pa_debug.g_err_stage,l_module_name);
7968: --dbms_output.put_line( pa_debug.g_err_stage);
7969:
7970: IF p_bill_rate_override_tbl.EXISTS(i) THEN
7971: pa_debug.g_err_stage:='p_bill_rate_override_tbl('||i||') is '||p_bill_rate_override_tbl(i);
7972: print_msg(pa_debug.g_err_stage,l_module_name);
7973: ELSE
7974: pa_debug.g_err_stage:='p_bill_rate_override_tbl('||i||') does not exist ';
7975: print_msg(pa_debug.g_err_stage,l_module_name);
7976: END IF;
7970: IF p_bill_rate_override_tbl.EXISTS(i) THEN
7971: pa_debug.g_err_stage:='p_bill_rate_override_tbl('||i||') is '||p_bill_rate_override_tbl(i);
7972: print_msg(pa_debug.g_err_stage,l_module_name);
7973: ELSE
7974: pa_debug.g_err_stage:='p_bill_rate_override_tbl('||i||') does not exist ';
7975: print_msg(pa_debug.g_err_stage,l_module_name);
7976: END IF;
7977: --dbms_output.put_line( pa_debug.g_err_stage);
7978:
7971: pa_debug.g_err_stage:='p_bill_rate_override_tbl('||i||') is '||p_bill_rate_override_tbl(i);
7972: print_msg(pa_debug.g_err_stage,l_module_name);
7973: ELSE
7974: pa_debug.g_err_stage:='p_bill_rate_override_tbl('||i||') does not exist ';
7975: print_msg(pa_debug.g_err_stage,l_module_name);
7976: END IF;
7977: --dbms_output.put_line( pa_debug.g_err_stage);
7978:
7979: pa_debug.g_err_stage:='l_rlm_id_change_flag_tbl('||i||') is '||l_rlm_id_change_flag_tbl(i);
7973: ELSE
7974: pa_debug.g_err_stage:='p_bill_rate_override_tbl('||i||') does not exist ';
7975: print_msg(pa_debug.g_err_stage,l_module_name);
7976: END IF;
7977: --dbms_output.put_line( pa_debug.g_err_stage);
7978:
7979: pa_debug.g_err_stage:='l_rlm_id_change_flag_tbl('||i||') is '||l_rlm_id_change_flag_tbl(i);
7980: print_msg(pa_debug.g_err_stage,l_module_name);
7981: --dbms_output.put_line( pa_debug.g_err_stage);
7975: print_msg(pa_debug.g_err_stage,l_module_name);
7976: END IF;
7977: --dbms_output.put_line( pa_debug.g_err_stage);
7978:
7979: pa_debug.g_err_stage:='l_rlm_id_change_flag_tbl('||i||') is '||l_rlm_id_change_flag_tbl(i);
7980: print_msg(pa_debug.g_err_stage,l_module_name);
7981: --dbms_output.put_line( pa_debug.g_err_stage);
7982: pa_debug.g_err_stage:='l_mfc_cost_type_id_old_tbl('||i||') is '||l_mfc_cost_type_id_old_tbl(i);
7983: print_msg(pa_debug.g_err_stage,l_module_name);
7976: END IF;
7977: --dbms_output.put_line( pa_debug.g_err_stage);
7978:
7979: pa_debug.g_err_stage:='l_rlm_id_change_flag_tbl('||i||') is '||l_rlm_id_change_flag_tbl(i);
7980: print_msg(pa_debug.g_err_stage,l_module_name);
7981: --dbms_output.put_line( pa_debug.g_err_stage);
7982: pa_debug.g_err_stage:='l_mfc_cost_type_id_old_tbl('||i||') is '||l_mfc_cost_type_id_old_tbl(i);
7983: print_msg(pa_debug.g_err_stage,l_module_name);
7984: --dbms_output.put_line( pa_debug.g_err_stage);
7977: --dbms_output.put_line( pa_debug.g_err_stage);
7978:
7979: pa_debug.g_err_stage:='l_rlm_id_change_flag_tbl('||i||') is '||l_rlm_id_change_flag_tbl(i);
7980: print_msg(pa_debug.g_err_stage,l_module_name);
7981: --dbms_output.put_line( pa_debug.g_err_stage);
7982: pa_debug.g_err_stage:='l_mfc_cost_type_id_old_tbl('||i||') is '||l_mfc_cost_type_id_old_tbl(i);
7983: print_msg(pa_debug.g_err_stage,l_module_name);
7984: --dbms_output.put_line( pa_debug.g_err_stage);
7985: pa_debug.g_err_stage:='l_mfc_cost_type_id_new_tbl('||i||') is '||l_mfc_cost_type_id_new_tbl(i);
7978:
7979: pa_debug.g_err_stage:='l_rlm_id_change_flag_tbl('||i||') is '||l_rlm_id_change_flag_tbl(i);
7980: print_msg(pa_debug.g_err_stage,l_module_name);
7981: --dbms_output.put_line( pa_debug.g_err_stage);
7982: pa_debug.g_err_stage:='l_mfc_cost_type_id_old_tbl('||i||') is '||l_mfc_cost_type_id_old_tbl(i);
7983: print_msg(pa_debug.g_err_stage,l_module_name);
7984: --dbms_output.put_line( pa_debug.g_err_stage);
7985: pa_debug.g_err_stage:='l_mfc_cost_type_id_new_tbl('||i||') is '||l_mfc_cost_type_id_new_tbl(i);
7986: print_msg(pa_debug.g_err_stage,l_module_name);
7979: pa_debug.g_err_stage:='l_rlm_id_change_flag_tbl('||i||') is '||l_rlm_id_change_flag_tbl(i);
7980: print_msg(pa_debug.g_err_stage,l_module_name);
7981: --dbms_output.put_line( pa_debug.g_err_stage);
7982: pa_debug.g_err_stage:='l_mfc_cost_type_id_old_tbl('||i||') is '||l_mfc_cost_type_id_old_tbl(i);
7983: print_msg(pa_debug.g_err_stage,l_module_name);
7984: --dbms_output.put_line( pa_debug.g_err_stage);
7985: pa_debug.g_err_stage:='l_mfc_cost_type_id_new_tbl('||i||') is '||l_mfc_cost_type_id_new_tbl(i);
7986: print_msg(pa_debug.g_err_stage,l_module_name);
7987: --dbms_output.put_line( pa_debug.g_err_stage);
7980: print_msg(pa_debug.g_err_stage,l_module_name);
7981: --dbms_output.put_line( pa_debug.g_err_stage);
7982: pa_debug.g_err_stage:='l_mfc_cost_type_id_old_tbl('||i||') is '||l_mfc_cost_type_id_old_tbl(i);
7983: print_msg(pa_debug.g_err_stage,l_module_name);
7984: --dbms_output.put_line( pa_debug.g_err_stage);
7985: pa_debug.g_err_stage:='l_mfc_cost_type_id_new_tbl('||i||') is '||l_mfc_cost_type_id_new_tbl(i);
7986: print_msg(pa_debug.g_err_stage,l_module_name);
7987: --dbms_output.put_line( pa_debug.g_err_stage);
7988: pa_debug.g_err_stage:='l_spread_curve_id_old_tbl('||i||') is '||l_spread_curve_id_old_tbl(i);
7981: --dbms_output.put_line( pa_debug.g_err_stage);
7982: pa_debug.g_err_stage:='l_mfc_cost_type_id_old_tbl('||i||') is '||l_mfc_cost_type_id_old_tbl(i);
7983: print_msg(pa_debug.g_err_stage,l_module_name);
7984: --dbms_output.put_line( pa_debug.g_err_stage);
7985: pa_debug.g_err_stage:='l_mfc_cost_type_id_new_tbl('||i||') is '||l_mfc_cost_type_id_new_tbl(i);
7986: print_msg(pa_debug.g_err_stage,l_module_name);
7987: --dbms_output.put_line( pa_debug.g_err_stage);
7988: pa_debug.g_err_stage:='l_spread_curve_id_old_tbl('||i||') is '||l_spread_curve_id_old_tbl(i);
7989: print_msg(pa_debug.g_err_stage,l_module_name);
7982: pa_debug.g_err_stage:='l_mfc_cost_type_id_old_tbl('||i||') is '||l_mfc_cost_type_id_old_tbl(i);
7983: print_msg(pa_debug.g_err_stage,l_module_name);
7984: --dbms_output.put_line( pa_debug.g_err_stage);
7985: pa_debug.g_err_stage:='l_mfc_cost_type_id_new_tbl('||i||') is '||l_mfc_cost_type_id_new_tbl(i);
7986: print_msg(pa_debug.g_err_stage,l_module_name);
7987: --dbms_output.put_line( pa_debug.g_err_stage);
7988: pa_debug.g_err_stage:='l_spread_curve_id_old_tbl('||i||') is '||l_spread_curve_id_old_tbl(i);
7989: print_msg(pa_debug.g_err_stage,l_module_name);
7990: --dbms_output.put_line( pa_debug.g_err_stage);
7983: print_msg(pa_debug.g_err_stage,l_module_name);
7984: --dbms_output.put_line( pa_debug.g_err_stage);
7985: pa_debug.g_err_stage:='l_mfc_cost_type_id_new_tbl('||i||') is '||l_mfc_cost_type_id_new_tbl(i);
7986: print_msg(pa_debug.g_err_stage,l_module_name);
7987: --dbms_output.put_line( pa_debug.g_err_stage);
7988: pa_debug.g_err_stage:='l_spread_curve_id_old_tbl('||i||') is '||l_spread_curve_id_old_tbl(i);
7989: print_msg(pa_debug.g_err_stage,l_module_name);
7990: --dbms_output.put_line( pa_debug.g_err_stage);
7991: pa_debug.g_err_stage:='l_spread_curve_id_new_tbl('||i||') is '||l_spread_curve_id_new_tbl(i);
7984: --dbms_output.put_line( pa_debug.g_err_stage);
7985: pa_debug.g_err_stage:='l_mfc_cost_type_id_new_tbl('||i||') is '||l_mfc_cost_type_id_new_tbl(i);
7986: print_msg(pa_debug.g_err_stage,l_module_name);
7987: --dbms_output.put_line( pa_debug.g_err_stage);
7988: pa_debug.g_err_stage:='l_spread_curve_id_old_tbl('||i||') is '||l_spread_curve_id_old_tbl(i);
7989: print_msg(pa_debug.g_err_stage,l_module_name);
7990: --dbms_output.put_line( pa_debug.g_err_stage);
7991: pa_debug.g_err_stage:='l_spread_curve_id_new_tbl('||i||') is '||l_spread_curve_id_new_tbl(i);
7992: print_msg(pa_debug.g_err_stage,l_module_name);
7985: pa_debug.g_err_stage:='l_mfc_cost_type_id_new_tbl('||i||') is '||l_mfc_cost_type_id_new_tbl(i);
7986: print_msg(pa_debug.g_err_stage,l_module_name);
7987: --dbms_output.put_line( pa_debug.g_err_stage);
7988: pa_debug.g_err_stage:='l_spread_curve_id_old_tbl('||i||') is '||l_spread_curve_id_old_tbl(i);
7989: print_msg(pa_debug.g_err_stage,l_module_name);
7990: --dbms_output.put_line( pa_debug.g_err_stage);
7991: pa_debug.g_err_stage:='l_spread_curve_id_new_tbl('||i||') is '||l_spread_curve_id_new_tbl(i);
7992: print_msg(pa_debug.g_err_stage,l_module_name);
7993: --dbms_output.put_line( pa_debug.g_err_stage);
7986: print_msg(pa_debug.g_err_stage,l_module_name);
7987: --dbms_output.put_line( pa_debug.g_err_stage);
7988: pa_debug.g_err_stage:='l_spread_curve_id_old_tbl('||i||') is '||l_spread_curve_id_old_tbl(i);
7989: print_msg(pa_debug.g_err_stage,l_module_name);
7990: --dbms_output.put_line( pa_debug.g_err_stage);
7991: pa_debug.g_err_stage:='l_spread_curve_id_new_tbl('||i||') is '||l_spread_curve_id_new_tbl(i);
7992: print_msg(pa_debug.g_err_stage,l_module_name);
7993: --dbms_output.put_line( pa_debug.g_err_stage);
7994: pa_debug.g_err_stage:='l_sp_fixed_date_old_tbl('||i||') is '||l_sp_fixed_date_old_tbl(i);
7987: --dbms_output.put_line( pa_debug.g_err_stage);
7988: pa_debug.g_err_stage:='l_spread_curve_id_old_tbl('||i||') is '||l_spread_curve_id_old_tbl(i);
7989: print_msg(pa_debug.g_err_stage,l_module_name);
7990: --dbms_output.put_line( pa_debug.g_err_stage);
7991: pa_debug.g_err_stage:='l_spread_curve_id_new_tbl('||i||') is '||l_spread_curve_id_new_tbl(i);
7992: print_msg(pa_debug.g_err_stage,l_module_name);
7993: --dbms_output.put_line( pa_debug.g_err_stage);
7994: pa_debug.g_err_stage:='l_sp_fixed_date_old_tbl('||i||') is '||l_sp_fixed_date_old_tbl(i);
7995: print_msg(pa_debug.g_err_stage,l_module_name);
7988: pa_debug.g_err_stage:='l_spread_curve_id_old_tbl('||i||') is '||l_spread_curve_id_old_tbl(i);
7989: print_msg(pa_debug.g_err_stage,l_module_name);
7990: --dbms_output.put_line( pa_debug.g_err_stage);
7991: pa_debug.g_err_stage:='l_spread_curve_id_new_tbl('||i||') is '||l_spread_curve_id_new_tbl(i);
7992: print_msg(pa_debug.g_err_stage,l_module_name);
7993: --dbms_output.put_line( pa_debug.g_err_stage);
7994: pa_debug.g_err_stage:='l_sp_fixed_date_old_tbl('||i||') is '||l_sp_fixed_date_old_tbl(i);
7995: print_msg(pa_debug.g_err_stage,l_module_name);
7996: --dbms_output.put_line( pa_debug.g_err_stage);
7989: print_msg(pa_debug.g_err_stage,l_module_name);
7990: --dbms_output.put_line( pa_debug.g_err_stage);
7991: pa_debug.g_err_stage:='l_spread_curve_id_new_tbl('||i||') is '||l_spread_curve_id_new_tbl(i);
7992: print_msg(pa_debug.g_err_stage,l_module_name);
7993: --dbms_output.put_line( pa_debug.g_err_stage);
7994: pa_debug.g_err_stage:='l_sp_fixed_date_old_tbl('||i||') is '||l_sp_fixed_date_old_tbl(i);
7995: print_msg(pa_debug.g_err_stage,l_module_name);
7996: --dbms_output.put_line( pa_debug.g_err_stage);
7997: if l_sp_fixed_date_new_tbl(i) = fnd_api.g_miss_date then
7990: --dbms_output.put_line( pa_debug.g_err_stage);
7991: pa_debug.g_err_stage:='l_spread_curve_id_new_tbl('||i||') is '||l_spread_curve_id_new_tbl(i);
7992: print_msg(pa_debug.g_err_stage,l_module_name);
7993: --dbms_output.put_line( pa_debug.g_err_stage);
7994: pa_debug.g_err_stage:='l_sp_fixed_date_old_tbl('||i||') is '||l_sp_fixed_date_old_tbl(i);
7995: print_msg(pa_debug.g_err_stage,l_module_name);
7996: --dbms_output.put_line( pa_debug.g_err_stage);
7997: if l_sp_fixed_date_new_tbl(i) = fnd_api.g_miss_date then
7998: pa_debug.g_err_stage:='l_sp_fixed_date_new_tbl('||i||') is g miss date';
7991: pa_debug.g_err_stage:='l_spread_curve_id_new_tbl('||i||') is '||l_spread_curve_id_new_tbl(i);
7992: print_msg(pa_debug.g_err_stage,l_module_name);
7993: --dbms_output.put_line( pa_debug.g_err_stage);
7994: pa_debug.g_err_stage:='l_sp_fixed_date_old_tbl('||i||') is '||l_sp_fixed_date_old_tbl(i);
7995: print_msg(pa_debug.g_err_stage,l_module_name);
7996: --dbms_output.put_line( pa_debug.g_err_stage);
7997: if l_sp_fixed_date_new_tbl(i) = fnd_api.g_miss_date then
7998: pa_debug.g_err_stage:='l_sp_fixed_date_new_tbl('||i||') is g miss date';
7999: else
7992: print_msg(pa_debug.g_err_stage,l_module_name);
7993: --dbms_output.put_line( pa_debug.g_err_stage);
7994: pa_debug.g_err_stage:='l_sp_fixed_date_old_tbl('||i||') is '||l_sp_fixed_date_old_tbl(i);
7995: print_msg(pa_debug.g_err_stage,l_module_name);
7996: --dbms_output.put_line( pa_debug.g_err_stage);
7997: if l_sp_fixed_date_new_tbl(i) = fnd_api.g_miss_date then
7998: pa_debug.g_err_stage:='l_sp_fixed_date_new_tbl('||i||') is g miss date';
7999: else
8000: pa_debug.g_err_stage:='l_sp_fixed_date_new_tbl('||i||') is '||l_sp_fixed_date_new_tbl(i);
7994: pa_debug.g_err_stage:='l_sp_fixed_date_old_tbl('||i||') is '||l_sp_fixed_date_old_tbl(i);
7995: print_msg(pa_debug.g_err_stage,l_module_name);
7996: --dbms_output.put_line( pa_debug.g_err_stage);
7997: if l_sp_fixed_date_new_tbl(i) = fnd_api.g_miss_date then
7998: pa_debug.g_err_stage:='l_sp_fixed_date_new_tbl('||i||') is g miss date';
7999: else
8000: pa_debug.g_err_stage:='l_sp_fixed_date_new_tbl('||i||') is '||l_sp_fixed_date_new_tbl(i);
8001: end if;
8002: print_msg(pa_debug.g_err_stage,l_module_name);
7996: --dbms_output.put_line( pa_debug.g_err_stage);
7997: if l_sp_fixed_date_new_tbl(i) = fnd_api.g_miss_date then
7998: pa_debug.g_err_stage:='l_sp_fixed_date_new_tbl('||i||') is g miss date';
7999: else
8000: pa_debug.g_err_stage:='l_sp_fixed_date_new_tbl('||i||') is '||l_sp_fixed_date_new_tbl(i);
8001: end if;
8002: print_msg(pa_debug.g_err_stage,l_module_name);
8003: --dbms_output.put_line( pa_debug.g_err_stage);
8004: pa_debug.g_err_stage:='l_plan_start_date_old_tbl('||i||') is '||l_plan_start_date_old_tbl(i);
7998: pa_debug.g_err_stage:='l_sp_fixed_date_new_tbl('||i||') is g miss date';
7999: else
8000: pa_debug.g_err_stage:='l_sp_fixed_date_new_tbl('||i||') is '||l_sp_fixed_date_new_tbl(i);
8001: end if;
8002: print_msg(pa_debug.g_err_stage,l_module_name);
8003: --dbms_output.put_line( pa_debug.g_err_stage);
8004: pa_debug.g_err_stage:='l_plan_start_date_old_tbl('||i||') is '||l_plan_start_date_old_tbl(i);
8005: print_msg(pa_debug.g_err_stage,l_module_name);
8006: --dbms_output.put_line( pa_debug.g_err_stage);
7999: else
8000: pa_debug.g_err_stage:='l_sp_fixed_date_new_tbl('||i||') is '||l_sp_fixed_date_new_tbl(i);
8001: end if;
8002: print_msg(pa_debug.g_err_stage,l_module_name);
8003: --dbms_output.put_line( pa_debug.g_err_stage);
8004: pa_debug.g_err_stage:='l_plan_start_date_old_tbl('||i||') is '||l_plan_start_date_old_tbl(i);
8005: print_msg(pa_debug.g_err_stage,l_module_name);
8006: --dbms_output.put_line( pa_debug.g_err_stage);
8007: if l_plan_start_date_new_tbl(i) = fnd_api.g_miss_date then
8000: pa_debug.g_err_stage:='l_sp_fixed_date_new_tbl('||i||') is '||l_sp_fixed_date_new_tbl(i);
8001: end if;
8002: print_msg(pa_debug.g_err_stage,l_module_name);
8003: --dbms_output.put_line( pa_debug.g_err_stage);
8004: pa_debug.g_err_stage:='l_plan_start_date_old_tbl('||i||') is '||l_plan_start_date_old_tbl(i);
8005: print_msg(pa_debug.g_err_stage,l_module_name);
8006: --dbms_output.put_line( pa_debug.g_err_stage);
8007: if l_plan_start_date_new_tbl(i) = fnd_api.g_miss_date then
8008: pa_debug.g_err_stage:='l_plan_start_date_new_tbl('||i||') is g miss date';
8001: end if;
8002: print_msg(pa_debug.g_err_stage,l_module_name);
8003: --dbms_output.put_line( pa_debug.g_err_stage);
8004: pa_debug.g_err_stage:='l_plan_start_date_old_tbl('||i||') is '||l_plan_start_date_old_tbl(i);
8005: print_msg(pa_debug.g_err_stage,l_module_name);
8006: --dbms_output.put_line( pa_debug.g_err_stage);
8007: if l_plan_start_date_new_tbl(i) = fnd_api.g_miss_date then
8008: pa_debug.g_err_stage:='l_plan_start_date_new_tbl('||i||') is g miss date';
8009: else
8002: print_msg(pa_debug.g_err_stage,l_module_name);
8003: --dbms_output.put_line( pa_debug.g_err_stage);
8004: pa_debug.g_err_stage:='l_plan_start_date_old_tbl('||i||') is '||l_plan_start_date_old_tbl(i);
8005: print_msg(pa_debug.g_err_stage,l_module_name);
8006: --dbms_output.put_line( pa_debug.g_err_stage);
8007: if l_plan_start_date_new_tbl(i) = fnd_api.g_miss_date then
8008: pa_debug.g_err_stage:='l_plan_start_date_new_tbl('||i||') is g miss date';
8009: else
8010: pa_debug.g_err_stage:='l_plan_start_date_new_tbl('||i||') is '||l_plan_start_date_new_tbl(i);
8004: pa_debug.g_err_stage:='l_plan_start_date_old_tbl('||i||') is '||l_plan_start_date_old_tbl(i);
8005: print_msg(pa_debug.g_err_stage,l_module_name);
8006: --dbms_output.put_line( pa_debug.g_err_stage);
8007: if l_plan_start_date_new_tbl(i) = fnd_api.g_miss_date then
8008: pa_debug.g_err_stage:='l_plan_start_date_new_tbl('||i||') is g miss date';
8009: else
8010: pa_debug.g_err_stage:='l_plan_start_date_new_tbl('||i||') is '||l_plan_start_date_new_tbl(i);
8011: end if;
8012: print_msg(pa_debug.g_err_stage,l_module_name);
8006: --dbms_output.put_line( pa_debug.g_err_stage);
8007: if l_plan_start_date_new_tbl(i) = fnd_api.g_miss_date then
8008: pa_debug.g_err_stage:='l_plan_start_date_new_tbl('||i||') is g miss date';
8009: else
8010: pa_debug.g_err_stage:='l_plan_start_date_new_tbl('||i||') is '||l_plan_start_date_new_tbl(i);
8011: end if;
8012: print_msg(pa_debug.g_err_stage,l_module_name);
8013: --dbms_output.put_line( pa_debug.g_err_stage);
8014: pa_debug.g_err_stage:='l_plan_end_date_old_tbl('||i||') is '||l_plan_end_date_old_tbl(i);
8008: pa_debug.g_err_stage:='l_plan_start_date_new_tbl('||i||') is g miss date';
8009: else
8010: pa_debug.g_err_stage:='l_plan_start_date_new_tbl('||i||') is '||l_plan_start_date_new_tbl(i);
8011: end if;
8012: print_msg(pa_debug.g_err_stage,l_module_name);
8013: --dbms_output.put_line( pa_debug.g_err_stage);
8014: pa_debug.g_err_stage:='l_plan_end_date_old_tbl('||i||') is '||l_plan_end_date_old_tbl(i);
8015: print_msg(pa_debug.g_err_stage,l_module_name);
8016: --dbms_output.put_line( pa_debug.g_err_stage);
8009: else
8010: pa_debug.g_err_stage:='l_plan_start_date_new_tbl('||i||') is '||l_plan_start_date_new_tbl(i);
8011: end if;
8012: print_msg(pa_debug.g_err_stage,l_module_name);
8013: --dbms_output.put_line( pa_debug.g_err_stage);
8014: pa_debug.g_err_stage:='l_plan_end_date_old_tbl('||i||') is '||l_plan_end_date_old_tbl(i);
8015: print_msg(pa_debug.g_err_stage,l_module_name);
8016: --dbms_output.put_line( pa_debug.g_err_stage);
8017: if l_plan_end_date_new_tbl(i) = fnd_api.g_miss_date then
8010: pa_debug.g_err_stage:='l_plan_start_date_new_tbl('||i||') is '||l_plan_start_date_new_tbl(i);
8011: end if;
8012: print_msg(pa_debug.g_err_stage,l_module_name);
8013: --dbms_output.put_line( pa_debug.g_err_stage);
8014: pa_debug.g_err_stage:='l_plan_end_date_old_tbl('||i||') is '||l_plan_end_date_old_tbl(i);
8015: print_msg(pa_debug.g_err_stage,l_module_name);
8016: --dbms_output.put_line( pa_debug.g_err_stage);
8017: if l_plan_end_date_new_tbl(i) = fnd_api.g_miss_date then
8018: pa_debug.g_err_stage:='l_plan_end_date_new_tbl('||i||') is g miss date';
8011: end if;
8012: print_msg(pa_debug.g_err_stage,l_module_name);
8013: --dbms_output.put_line( pa_debug.g_err_stage);
8014: pa_debug.g_err_stage:='l_plan_end_date_old_tbl('||i||') is '||l_plan_end_date_old_tbl(i);
8015: print_msg(pa_debug.g_err_stage,l_module_name);
8016: --dbms_output.put_line( pa_debug.g_err_stage);
8017: if l_plan_end_date_new_tbl(i) = fnd_api.g_miss_date then
8018: pa_debug.g_err_stage:='l_plan_end_date_new_tbl('||i||') is g miss date';
8019: else
8012: print_msg(pa_debug.g_err_stage,l_module_name);
8013: --dbms_output.put_line( pa_debug.g_err_stage);
8014: pa_debug.g_err_stage:='l_plan_end_date_old_tbl('||i||') is '||l_plan_end_date_old_tbl(i);
8015: print_msg(pa_debug.g_err_stage,l_module_name);
8016: --dbms_output.put_line( pa_debug.g_err_stage);
8017: if l_plan_end_date_new_tbl(i) = fnd_api.g_miss_date then
8018: pa_debug.g_err_stage:='l_plan_end_date_new_tbl('||i||') is g miss date';
8019: else
8020: pa_debug.g_err_stage:='l_plan_end_date_new_tbl('||i||') is '||l_plan_end_date_new_tbl(i);
8014: pa_debug.g_err_stage:='l_plan_end_date_old_tbl('||i||') is '||l_plan_end_date_old_tbl(i);
8015: print_msg(pa_debug.g_err_stage,l_module_name);
8016: --dbms_output.put_line( pa_debug.g_err_stage);
8017: if l_plan_end_date_new_tbl(i) = fnd_api.g_miss_date then
8018: pa_debug.g_err_stage:='l_plan_end_date_new_tbl('||i||') is g miss date';
8019: else
8020: pa_debug.g_err_stage:='l_plan_end_date_new_tbl('||i||') is '||l_plan_end_date_new_tbl(i);
8021: end if;
8022: print_msg(pa_debug.g_err_stage,l_module_name);
8016: --dbms_output.put_line( pa_debug.g_err_stage);
8017: if l_plan_end_date_new_tbl(i) = fnd_api.g_miss_date then
8018: pa_debug.g_err_stage:='l_plan_end_date_new_tbl('||i||') is g miss date';
8019: else
8020: pa_debug.g_err_stage:='l_plan_end_date_new_tbl('||i||') is '||l_plan_end_date_new_tbl(i);
8021: end if;
8022: print_msg(pa_debug.g_err_stage,l_module_name);
8023: --dbms_output.put_line( pa_debug.g_err_stage);
8024:
8018: pa_debug.g_err_stage:='l_plan_end_date_new_tbl('||i||') is g miss date';
8019: else
8020: pa_debug.g_err_stage:='l_plan_end_date_new_tbl('||i||') is '||l_plan_end_date_new_tbl(i);
8021: end if;
8022: print_msg(pa_debug.g_err_stage,l_module_name);
8023: --dbms_output.put_line( pa_debug.g_err_stage);
8024:
8025: END LOOP;
8026: END IF;
8019: else
8020: pa_debug.g_err_stage:='l_plan_end_date_new_tbl('||i||') is '||l_plan_end_date_new_tbl(i);
8021: end if;
8022: print_msg(pa_debug.g_err_stage,l_module_name);
8023: --dbms_output.put_line( pa_debug.g_err_stage);
8024:
8025: END LOOP;
8026: END IF;
8027: END IF;
8092:
8093: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8094:
8095: IF l_debug_mode = 'Y' THEN
8096: pa_debug.g_err_stage:='Called API PA_FP_CALC_PLAN_PKG.calculate returned error';
8097: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8098: END IF;
8099: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8100: END IF;
8093: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8094:
8095: IF l_debug_mode = 'Y' THEN
8096: pa_debug.g_err_stage:='Called API PA_FP_CALC_PLAN_PKG.calculate returned error';
8097: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8098: END IF;
8099: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8100: END IF;
8101:
8132:
8133: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8134:
8135: IF l_debug_mode = 'Y' THEN
8136: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
8137: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8138: END IF;
8139: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8140: END IF;
8133: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8134:
8135: IF l_debug_mode = 'Y' THEN
8136: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
8137: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8138: END IF;
8139: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8140: END IF;
8141:
8188:
8189: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8190:
8191: IF l_debug_mode = 'Y' THEN
8192: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
8193: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8194: END IF;
8195: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8196: END IF;
8189: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8190:
8191: IF l_debug_mode = 'Y' THEN
8192: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
8193: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8194: END IF;
8195: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8196: END IF;
8197: */
8217:
8218:
8219: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8220: IF l_debug_mode = 'Y' THEN
8221: pa_debug.g_err_stage:='Called API PA_PROJ_TASK_STRUC_PUB.process_wbs_updates_wrp';
8222: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.update_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
8223: END IF;
8224:
8225: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8218:
8219: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8220: IF l_debug_mode = 'Y' THEN
8221: pa_debug.g_err_stage:='Called API PA_PROJ_TASK_STRUC_PUB.process_wbs_updates_wrp';
8222: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.update_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
8223: END IF;
8224:
8225: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8226: END IF;
8226: END IF;
8227: --End bug 4492493
8228:
8229: IF l_debug_mode = 'Y' THEN
8230: pa_debug.reset_curr_function;
8231: END IF;
8232:
8233: EXCEPTION
8234: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8232:
8233: EXCEPTION
8234: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8235: IF l_debug_mode = 'Y' THEN
8236: pa_debug.g_err_stage:='In invalid args exception';
8237: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8238: END IF;
8239:
8240: l_msg_count := FND_MSG_PUB.count_msg;
8233: EXCEPTION
8234: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8235: IF l_debug_mode = 'Y' THEN
8236: pa_debug.g_err_stage:='In invalid args exception';
8237: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8238: END IF;
8239:
8240: l_msg_count := FND_MSG_PUB.count_msg;
8241: IF l_msg_count = 1 THEN
8240: l_msg_count := FND_MSG_PUB.count_msg;
8241: IF l_msg_count = 1 THEN
8242:
8243: IF l_debug_mode = 'Y' THEN
8244: pa_debug.g_err_stage:='In invalid args exception 1';
8245: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8246: END IF;
8247:
8248: PA_INTERFACE_UTILS_PUB.get_messages
8241: IF l_msg_count = 1 THEN
8242:
8243: IF l_debug_mode = 'Y' THEN
8244: pa_debug.g_err_stage:='In invalid args exception 1';
8245: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8246: END IF;
8247:
8248: PA_INTERFACE_UTILS_PUB.get_messages
8249: ( p_encoded => FND_API.G_TRUE
8255: x_msg_data := l_data;
8256: x_msg_count := l_msg_count;
8257: ELSE
8258: IF l_debug_mode = 'Y' THEN
8259: pa_debug.g_err_stage:='In invalid args exception 2';
8260: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8261: END IF;
8262:
8263: x_msg_count := l_msg_count;
8256: x_msg_count := l_msg_count;
8257: ELSE
8258: IF l_debug_mode = 'Y' THEN
8259: pa_debug.g_err_stage:='In invalid args exception 2';
8260: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8261: END IF;
8262:
8263: x_msg_count := l_msg_count;
8264:
8265: END IF;
8266: ROLLBACK TO Update_Planning_Transactions;
8267: x_return_status := FND_API.G_RET_STS_ERROR;
8268: IF l_debug_mode = 'Y' THEN
8269: pa_debug.g_err_stage:='In invalid args exception 3';
8270: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8271: pa_debug.reset_curr_function;
8272: END IF;
8273: IF l_debug_mode = 'Y' THEN
8266: ROLLBACK TO Update_Planning_Transactions;
8267: x_return_status := FND_API.G_RET_STS_ERROR;
8268: IF l_debug_mode = 'Y' THEN
8269: pa_debug.g_err_stage:='In invalid args exception 3';
8270: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8271: pa_debug.reset_curr_function;
8272: END IF;
8273: IF l_debug_mode = 'Y' THEN
8274: pa_debug.g_err_stage:='In invalid args exception 4 ';
8267: x_return_status := FND_API.G_RET_STS_ERROR;
8268: IF l_debug_mode = 'Y' THEN
8269: pa_debug.g_err_stage:='In invalid args exception 3';
8270: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8271: pa_debug.reset_curr_function;
8272: END IF;
8273: IF l_debug_mode = 'Y' THEN
8274: pa_debug.g_err_stage:='In invalid args exception 4 ';
8275: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8270: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8271: pa_debug.reset_curr_function;
8272: END IF;
8273: IF l_debug_mode = 'Y' THEN
8274: pa_debug.g_err_stage:='In invalid args exception 4 ';
8275: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8276: END IF;
8277:
8278:
8271: pa_debug.reset_curr_function;
8272: END IF;
8273: IF l_debug_mode = 'Y' THEN
8274: pa_debug.g_err_stage:='In invalid args exception 4 ';
8275: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8276: END IF;
8277:
8278:
8279: WHEN OTHERS THEN
8283: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_PLANNING_TRANSACTION_PUB'
8284: ,p_procedure_name => 'Update_Planning_Transactions');
8285:
8286: IF l_debug_mode = 'Y' THEN
8287: pa_debug.g_err_stage:='Unexpected Error' || SQLERRM;
8288: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8289: pa_debug.reset_curr_function;
8290: END IF;
8291: ROLLBACK TO Update_Planning_Transactions;
8284: ,p_procedure_name => 'Update_Planning_Transactions');
8285:
8286: IF l_debug_mode = 'Y' THEN
8287: pa_debug.g_err_stage:='Unexpected Error' || SQLERRM;
8288: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8289: pa_debug.reset_curr_function;
8290: END IF;
8291: ROLLBACK TO Update_Planning_Transactions;
8292:
8285:
8286: IF l_debug_mode = 'Y' THEN
8287: pa_debug.g_err_stage:='Unexpected Error' || SQLERRM;
8288: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8289: pa_debug.reset_curr_function;
8290: END IF;
8291: ROLLBACK TO Update_Planning_Transactions;
8292:
8293: RAISE;
8409: l_named_role_tbl SYSTEM.pa_varchar2_80_tbl_type:=SYSTEM.pa_varchar2_80_tbl_type();
8410:
8411: BEGIN
8412: IF l_debug_mode = 'Y' THEN
8413: pa_debug.g_err_stage:='In copy planning txn';
8414: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8415: END IF;
8416: --dbms_output.put_line('in copy plan txn1');
8417: x_msg_count := 0;
8410:
8411: BEGIN
8412: IF l_debug_mode = 'Y' THEN
8413: pa_debug.g_err_stage:='In copy planning txn';
8414: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8415: END IF;
8416: --dbms_output.put_line('in copy plan txn1');
8417: x_msg_count := 0;
8418: x_return_status := FND_API.G_RET_STS_SUCCESS;
8428:
8429: pa_task_assignment_utils.g_require_progress_rollup := 'N';
8430:
8431:
8432: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
8433: l_debug_mode := NVL(l_debug_mode, 'Y');
8434:
8435: -- Set curr function
8436: IF l_debug_mode = 'Y' THEN
8433: l_debug_mode := NVL(l_debug_mode, 'Y');
8434:
8435: -- Set curr function
8436: IF l_debug_mode = 'Y' THEN
8437: pa_debug.set_curr_function(
8438: p_function =>'plan_txn_pub.copy_plan_txn'
8439: ,p_debug_mode => l_debug_mode );
8440:
8441: pa_debug.g_err_stage:='Validating input parameters';
8437: pa_debug.set_curr_function(
8438: p_function =>'plan_txn_pub.copy_plan_txn'
8439: ,p_debug_mode => l_debug_mode );
8440:
8441: pa_debug.g_err_stage:='Validating input parameters';
8442: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8443: END IF;
8444:
8445: IF p_src_version_id_tbl.count <> p_targ_version_id_tbl.count THEN
8438: p_function =>'plan_txn_pub.copy_plan_txn'
8439: ,p_debug_mode => l_debug_mode );
8440:
8441: pa_debug.g_err_stage:='Validating input parameters';
8442: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8443: END IF;
8444:
8445: IF p_src_version_id_tbl.count <> p_targ_version_id_tbl.count THEN
8446:
8444:
8445: IF p_src_version_id_tbl.count <> p_targ_version_id_tbl.count THEN
8446:
8447: IF l_debug_mode = 'Y' THEN
8448: pa_debug.g_err_stage:='No of elements in p_src_version_id_tbl is not same as p_targ_version_id_tbl';
8449: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8450: END IF;
8451:
8452: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8445: IF p_src_version_id_tbl.count <> p_targ_version_id_tbl.count THEN
8446:
8447: IF l_debug_mode = 'Y' THEN
8448: pa_debug.g_err_stage:='No of elements in p_src_version_id_tbl is not same as p_targ_version_id_tbl';
8449: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8450: END IF;
8451:
8452: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8453: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8460: IF p_src_version_id_tbl.count=0 THEN
8461:
8462: IF l_debug_mode = 'Y' THEN
8463:
8464: pa_debug.g_err_stage:='The input tables are empty' ;
8465: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8466: pa_debug.reset_curr_function;
8467: END IF;
8468: RETURN;
8461:
8462: IF l_debug_mode = 'Y' THEN
8463:
8464: pa_debug.g_err_stage:='The input tables are empty' ;
8465: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8466: pa_debug.reset_curr_function;
8467: END IF;
8468: RETURN;
8469:
8462: IF l_debug_mode = 'Y' THEN
8463:
8464: pa_debug.g_err_stage:='The input tables are empty' ;
8465: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8466: pa_debug.reset_curr_function;
8467: END IF;
8468: RETURN;
8469:
8470: END IF;
8474: p_src_project_id IS NULL OR
8475: p_target_project_id IS NULL THEN
8476:
8477: IF l_debug_mode = 'Y' THEN
8478: pa_debug.g_err_stage:='p_context is '||p_context;
8479: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8480: END IF;
8481:
8482: IF l_debug_mode = 'Y' THEN
8475: p_target_project_id IS NULL THEN
8476:
8477: IF l_debug_mode = 'Y' THEN
8478: pa_debug.g_err_stage:='p_context is '||p_context;
8479: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8480: END IF;
8481:
8482: IF l_debug_mode = 'Y' THEN
8483: pa_debug.g_err_stage:='p_src_project_id is '||p_src_project_id;
8479: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8480: END IF;
8481:
8482: IF l_debug_mode = 'Y' THEN
8483: pa_debug.g_err_stage:='p_src_project_id is '||p_src_project_id;
8484: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8485: END IF;
8486:
8487: IF l_debug_mode = 'Y' THEN
8480: END IF;
8481:
8482: IF l_debug_mode = 'Y' THEN
8483: pa_debug.g_err_stage:='p_src_project_id is '||p_src_project_id;
8484: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8485: END IF;
8486:
8487: IF l_debug_mode = 'Y' THEN
8488: pa_debug.g_err_stage:='p_target_project_id is '||p_target_project_id;
8484: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8485: END IF;
8486:
8487: IF l_debug_mode = 'Y' THEN
8488: pa_debug.g_err_stage:='p_target_project_id is '||p_target_project_id;
8489: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8490: END IF;
8491:
8492: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8485: END IF;
8486:
8487: IF l_debug_mode = 'Y' THEN
8488: pa_debug.g_err_stage:='p_target_project_id is '||p_target_project_id;
8489: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8490: END IF;
8491:
8492: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8493: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8509: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN OR
8510: p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
8511:
8512: IF l_debug_mode = 'Y' THEN
8513: pa_debug.g_err_stage:='The calling context is workplan / task assignment p_src_version_id_tbl(1) '||p_src_version_id_tbl(1);
8514: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8515: END IF;
8516: --dbms_output.put_line('in copy plan txn2');
8517: --Derive the plan version id for the source and target element version ids
8510: p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
8511:
8512: IF l_debug_mode = 'Y' THEN
8513: pa_debug.g_err_stage:='The calling context is workplan / task assignment p_src_version_id_tbl(1) '||p_src_version_id_tbl(1);
8514: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8515: END IF;
8516: --dbms_output.put_line('in copy plan txn2');
8517: --Derive the plan version id for the source and target element version ids
8518: SELECT pbv.budget_version_id
8523: AND pt.element_version_id=p_src_version_id_tbl(1)
8524: AND pbv.wp_version_flag='Y';
8525:
8526: IF l_debug_mode = 'Y' THEN
8527: pa_debug.g_err_stage:='The calling context is workplan / task assignment p_targ_version_id_tbl(1) '||p_targ_version_id_tbl(1);
8528: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8529: END IF;
8530:
8531:
8524: AND pbv.wp_version_flag='Y';
8525:
8526: IF l_debug_mode = 'Y' THEN
8527: pa_debug.g_err_stage:='The calling context is workplan / task assignment p_targ_version_id_tbl(1) '||p_targ_version_id_tbl(1);
8528: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8529: END IF;
8530:
8531:
8532: --dbms_output.put_line('in copy plan txn2.5');
8539: AND pbv.wp_version_flag='Y';
8540:
8541: --CALL THE TA VALIDATION API
8542: IF l_debug_mode = 'Y' THEN
8543: pa_debug.g_err_stage:='The calling context is workplan / task assignment';
8544: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8545: END IF;
8546: --dbms_output.put_line('p_targ_version_id_tbl.count is '||p_targ_version_id_tbl.count);
8547:
8540:
8541: --CALL THE TA VALIDATION API
8542: IF l_debug_mode = 'Y' THEN
8543: pa_debug.g_err_stage:='The calling context is workplan / task assignment';
8544: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8545: END IF;
8546: --dbms_output.put_line('p_targ_version_id_tbl.count is '||p_targ_version_id_tbl.count);
8547:
8548: --This value will be used only when the x_calculate_flag of the below validate api is
8574: --dbms_output.put_line('l_calculate_flag is '||l_calculate_flag);
8575: --This code is for debugging only. Should be removed later
8576: IF l_debug_mode = 'Y' THEN
8577:
8578: pa_debug.g_err_stage:='validate_copy_assignment returned error '||x_return_status;
8579: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8580:
8581: END IF;
8582:
8575: --This code is for debugging only. Should be removed later
8576: IF l_debug_mode = 'Y' THEN
8577:
8578: pa_debug.g_err_stage:='validate_copy_assignment returned error '||x_return_status;
8579: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8580:
8581: END IF;
8582:
8583: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8583: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8584:
8585: IF l_debug_mode = 'Y' THEN
8586:
8587: pa_debug.g_err_stage:='validate_copy_assignment returned error';
8588: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8589:
8590: END IF;
8591: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8584:
8585: IF l_debug_mode = 'Y' THEN
8586:
8587: pa_debug.g_err_stage:='validate_copy_assignment returned error';
8588: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8589:
8590: END IF;
8591: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8592:
8594:
8595: IF l_resource_rec_tbl.COUNT =0 THEN
8596: IF l_debug_mode = 'Y' THEN
8597:
8598: pa_debug.g_err_stage:='Validate API returned 0 records in the res rec table-- returning';
8599: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8600: pa_debug.reset_curr_function;
8601: END IF;
8602: RETURN;
8595: IF l_resource_rec_tbl.COUNT =0 THEN
8596: IF l_debug_mode = 'Y' THEN
8597:
8598: pa_debug.g_err_stage:='Validate API returned 0 records in the res rec table-- returning';
8599: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8600: pa_debug.reset_curr_function;
8601: END IF;
8602: RETURN;
8603: END IF;
8596: IF l_debug_mode = 'Y' THEN
8597:
8598: pa_debug.g_err_stage:='Validate API returned 0 records in the res rec table-- returning';
8599: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8600: pa_debug.reset_curr_function;
8601: END IF;
8602: RETURN;
8603: END IF;
8604:
8630:
8631: END IF;
8632:
8633: IF l_debug_mode = 'Y' THEN
8634: pa_debug.g_err_stage:='Calling pa_fp_copy_from_pkg.create_res_task_maps '||l_ra_id_tbl.last;
8635: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8636: END IF;
8637: --dbms_output.put_line('calling create res task maps');
8638:
8631: END IF;
8632:
8633: IF l_debug_mode = 'Y' THEN
8634: pa_debug.g_err_stage:='Calling pa_fp_copy_from_pkg.create_res_task_maps '||l_ra_id_tbl.last;
8635: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8636: END IF;
8637: --dbms_output.put_line('calling create res task maps');
8638:
8639: --Call the API to create the mapping between source and target version ids.
8657: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8658:
8659: IF l_debug_mode = 'Y' THEN
8660:
8661: pa_debug.g_err_stage:='create_res_task_maps returned error';
8662: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8663:
8664: END IF;
8665: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8658:
8659: IF l_debug_mode = 'Y' THEN
8660:
8661: pa_debug.g_err_stage:='create_res_task_maps returned error';
8662: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8663:
8664: END IF;
8665: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8666:
8667: END IF;
8668:
8669:
8670: IF l_debug_mode = 'Y' THEN
8671: pa_debug.g_err_stage:='Calling PA_FP_COPY_FROM_PKG.Copy_Resource_Assignments';
8672: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8673: END IF;
8674:
8675: --dbms_output.put_line('calling copy res assmts S '||l_src_budget_version_id ||' T '||l_targ_budget_version_id );
8668:
8669:
8670: IF l_debug_mode = 'Y' THEN
8671: pa_debug.g_err_stage:='Calling PA_FP_COPY_FROM_PKG.Copy_Resource_Assignments';
8672: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8673: END IF;
8674:
8675: --dbms_output.put_line('calling copy res assmts S '||l_src_budget_version_id ||' T '||l_targ_budget_version_id );
8676: --Call the API to copy the resource assignments for the target version
8688: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8689:
8690: IF l_debug_mode = 'Y' THEN
8691:
8692: pa_debug.g_err_stage:='Copy_Resource_Assignments returned error';
8693: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8694:
8695: END IF;
8696: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8689:
8690: IF l_debug_mode = 'Y' THEN
8691:
8692: pa_debug.g_err_stage:='Copy_Resource_Assignments returned error';
8693: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8694:
8695: END IF;
8696: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8697:
8711:
8712: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8713:
8714: IF l_debug_mode = 'Y' THEN
8715: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
8716: print_msg(pa_debug.g_err_stage,l_module_name);
8717: END IF;
8718: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8719: END IF;
8712: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8713:
8714: IF l_debug_mode = 'Y' THEN
8715: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
8716: print_msg(pa_debug.g_err_stage,l_module_name);
8717: END IF;
8718: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8719: END IF;
8720:
8764:
8765: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8766:
8767: IF l_debug_mode = 'Y' THEN
8768: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
8769: print_msg(pa_debug.g_err_stage,l_module_name);
8770: END IF;
8771: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8772: END IF;
8765: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8766:
8767: IF l_debug_mode = 'Y' THEN
8768: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
8769: print_msg(pa_debug.g_err_stage,l_module_name);
8770: END IF;
8771: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8772: END IF;
8773: -- END Bug 5070740
8774:
8775: --Bug 4097749. Update the resource assigments created above with the named_role attribute returned by
8776: --the TA validate API
8777: IF l_debug_mode = 'Y' THEN
8778: pa_debug.g_err_stage:='About to update named role/parent assignment id in pa_resource_assignments';
8779: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8780: END IF;
8781:
8782: --Bug 4215676 . Modified the update sql for performance issues.
8775: --Bug 4097749. Update the resource assigments created above with the named_role attribute returned by
8776: --the TA validate API
8777: IF l_debug_mode = 'Y' THEN
8778: pa_debug.g_err_stage:='About to update named role/parent assignment id in pa_resource_assignments';
8779: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8780: END IF;
8781:
8782: --Bug 4215676 . Modified the update sql for performance issues.
8783: --The parent assignment id should be NULLED out.Please see the comment on exaclty similar DML UPDATE below
8832: WHERE parent_assignment_id = l_ra_id_tbl(i)
8833: AND budget_version_id = l_targ_budget_version_id;
8834:
8835: IF l_debug_mode = 'Y' THEN
8836: pa_debug.g_err_stage:='Done with updating named role/parent assignment id in pa_resource_assignments';
8837: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8838: END IF;
8839:
8840:
8833: AND budget_version_id = l_targ_budget_version_id;
8834:
8835: IF l_debug_mode = 'Y' THEN
8836: pa_debug.g_err_stage:='Done with updating named role/parent assignment id in pa_resource_assignments';
8837: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8838: END IF;
8839:
8840:
8841: IF l_debug_mode = 'Y' THEN
8838: END IF;
8839:
8840:
8841: IF l_debug_mode = 'Y' THEN
8842: pa_debug.g_err_stage:='Calling Calculate API';
8843: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8844: END IF;
8845: --dbms_output.put_line('in cal=y');
8846:
8839:
8840:
8841: IF l_debug_mode = 'Y' THEN
8842: pa_debug.g_err_stage:='Calling Calculate API';
8843: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8844: END IF;
8845: --dbms_output.put_line('in cal=y');
8846:
8847: pa_budget_utils.Get_Project_Currency_Info
8854: , x_return_status => x_return_status);
8855:
8856: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8857: IF l_debug_mode = 'Y' THEN
8858: pa_debug.g_err_stage:='Cpa_budget_utils.Get_Project_Currency_Info returned error';
8859: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8860: END IF;
8861: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8862: END IF;
8855:
8856: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8857: IF l_debug_mode = 'Y' THEN
8858: pa_debug.g_err_stage:='Cpa_budget_utils.Get_Project_Currency_Info returned error';
8859: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8860: END IF;
8861: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8862: END IF;
8863:
8948: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8949:
8950: IF l_debug_mode = 'Y' THEN
8951:
8952: pa_debug.g_err_stage:='PA_FP_CALC_PLAN_PKG.calculate returned error';
8953: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8954:
8955: END IF;
8956: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8949:
8950: IF l_debug_mode = 'Y' THEN
8951:
8952: pa_debug.g_err_stage:='PA_FP_CALC_PLAN_PKG.calculate returned error';
8953: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8954:
8955: END IF;
8956: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8957:
8961: ELSE--Calculate Flag is N
8962:
8963: --dbms_output.put_line('in cal<>y');
8964: IF l_debug_mode = 'Y' THEN
8965: pa_debug.g_err_stage:='Calling PA_FP_COPY_FROM_PKG.Copy_Budget_Lines';
8966: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8967: END IF;
8968:
8969: PA_FP_COPY_FROM_PKG.Copy_Budget_Lines(
8962:
8963: --dbms_output.put_line('in cal<>y');
8964: IF l_debug_mode = 'Y' THEN
8965: pa_debug.g_err_stage:='Calling PA_FP_COPY_FROM_PKG.Copy_Budget_Lines';
8966: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8967: END IF;
8968:
8969: PA_FP_COPY_FROM_PKG.Copy_Budget_Lines(
8970: p_source_plan_version_id => l_src_budget_version_id
8979: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8980:
8981: IF l_debug_mode = 'Y' THEN
8982:
8983: pa_debug.g_err_stage:='Copy_Budget_Lines returned error';
8984: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8985:
8986: END IF;
8987: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8980:
8981: IF l_debug_mode = 'Y' THEN
8982:
8983: pa_debug.g_err_stage:='Copy_Budget_Lines returned error';
8984: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8985:
8986: END IF;
8987: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8988:
8990:
8991: --Bug 4097749. Update the resource assigments created above with the named_role attribute returned by
8992: --the TA validate API
8993: IF l_debug_mode = 'Y' THEN
8994: pa_debug.g_err_stage:='About to update named role/parent assignment id in pa_resource_assignments';
8995: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8996: END IF;
8997:
8998: --Bug 4215676 . Modified the update sql for performance issues.
8991: --Bug 4097749. Update the resource assigments created above with the named_role attribute returned by
8992: --the TA validate API
8993: IF l_debug_mode = 'Y' THEN
8994: pa_debug.g_err_stage:='About to update named role/parent assignment id in pa_resource_assignments';
8995: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8996: END IF;
8997:
8998: --Bug 4215676 . Modified the update sql for performance issues.
8999: --The parent assignment id should be NULLED out since (copy resource assignments copies the source
9010: WHERE parent_assignment_id = l_ra_id_tbl(i)
9011: AND budget_version_id = l_targ_budget_version_id;
9012:
9013: IF l_debug_mode = 'Y' THEN
9014: pa_debug.g_err_stage:='Done with updating named role/parent assignment id in pa_resource_assignments';
9015: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
9016: END IF;
9017:
9018:
9011: AND budget_version_id = l_targ_budget_version_id;
9012:
9013: IF l_debug_mode = 'Y' THEN
9014: pa_debug.g_err_stage:='Done with updating named role/parent assignment id in pa_resource_assignments';
9015: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
9016: END IF;
9017:
9018:
9019: --Code changes for bug#4200168 starts here.
9105: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9106:
9107: IF l_debug_mode = 'Y' THEN
9108:
9109: pa_debug.g_err_stage:='convert_txn_currency returned error';
9110: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9111:
9112: END IF;
9113:
9106:
9107: IF l_debug_mode = 'Y' THEN
9108:
9109: pa_debug.g_err_stage:='convert_txn_currency returned error';
9110: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9111:
9112: END IF;
9113:
9114: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
9131:
9132: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9133:
9134: IF l_debug_mode = 'Y' THEN
9135: pa_debug.g_err_stage:='PA_PLANNING_TRANSACTION_UTILS.call_update_rep_lines_api returned error';
9136: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9137: END IF;
9138: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
9139: END IF;
9132: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9133:
9134: IF l_debug_mode = 'Y' THEN
9135: pa_debug.g_err_stage:='PA_PLANNING_TRANSACTION_UTILS.call_update_rep_lines_api returned error';
9136: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9137: END IF;
9138: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
9139: END IF;
9140:
9160: END IF;
9161:
9162: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9163: IF l_debug_mode = 'Y' THEN
9164: pa_debug.g_err_stage:='Called API PA_PROJ_TASK_STRUC_PUB.process_wbs_updates_wrp';
9165: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.copy_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
9166: END IF;
9167:
9168: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9161:
9162: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9163: IF l_debug_mode = 'Y' THEN
9164: pa_debug.g_err_stage:='Called API PA_PROJ_TASK_STRUC_PUB.process_wbs_updates_wrp';
9165: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.copy_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
9166: END IF;
9167:
9168: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9169: END IF;
9216:
9217: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9218:
9219: IF l_debug_mode = 'Y' THEN
9220: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
9221: print_msg(pa_debug.g_err_stage,l_module_name);
9222: END IF;
9223: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9224: END IF;
9217: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9218:
9219: IF l_debug_mode = 'Y' THEN
9220: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
9221: print_msg(pa_debug.g_err_stage,l_module_name);
9222: END IF;
9223: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9224: END IF;
9225:
9223: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9224: END IF;
9225:
9226: IF l_debug_mode = 'Y' THEN
9227: pa_debug.g_err_stage:='Exiting copy_planning_transactions';
9228: print_msg(pa_debug.g_err_stage,l_module_name);
9229: -- reset curr function
9230: pa_debug.reset_curr_function;
9231: END IF;
9224: END IF;
9225:
9226: IF l_debug_mode = 'Y' THEN
9227: pa_debug.g_err_stage:='Exiting copy_planning_transactions';
9228: print_msg(pa_debug.g_err_stage,l_module_name);
9229: -- reset curr function
9230: pa_debug.reset_curr_function;
9231: END IF;
9232: EXCEPTION
9226: IF l_debug_mode = 'Y' THEN
9227: pa_debug.g_err_stage:='Exiting copy_planning_transactions';
9228: print_msg(pa_debug.g_err_stage,l_module_name);
9229: -- reset curr function
9230: pa_debug.reset_curr_function;
9231: END IF;
9232: EXCEPTION
9233:
9234: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9251: x_return_status := FND_API.G_RET_STS_ERROR;
9252: ROLLBACK TO copy_plan_txn;
9253:
9254: IF l_debug_mode = 'Y' THEN
9255: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
9256: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9257: -- reset curr function
9258: pa_debug.reset_curr_function;
9259: END IF;
9252: ROLLBACK TO copy_plan_txn;
9253:
9254: IF l_debug_mode = 'Y' THEN
9255: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
9256: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9257: -- reset curr function
9258: pa_debug.reset_curr_function;
9259: END IF;
9260: RETURN;
9254: IF l_debug_mode = 'Y' THEN
9255: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
9256: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9257: -- reset curr function
9258: pa_debug.reset_curr_function;
9259: END IF;
9260: RETURN;
9261: WHEN Others THEN
9262: ROLLBACK TO copy_plan_txn;
9267: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_planning_transaction_pub'
9268: ,p_procedure_name => 'copy_planning_transactions');
9269:
9270: IF l_debug_mode = 'Y' THEN
9271: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9272: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9273: pa_debug.Reset_Curr_Function();
9274: END IF;
9275: RAISE;
9268: ,p_procedure_name => 'copy_planning_transactions');
9269:
9270: IF l_debug_mode = 'Y' THEN
9271: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9272: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9273: pa_debug.Reset_Curr_Function();
9274: END IF;
9275: RAISE;
9276: END copy_planning_transactions;
9269:
9270: IF l_debug_mode = 'Y' THEN
9271: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9272: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9273: pa_debug.Reset_Curr_Function();
9274: END IF;
9275: RAISE;
9276: END copy_planning_transactions;
9277:
9425: x_return_status := FND_API.G_RET_STS_SUCCESS;
9426:
9427: pa_task_assignment_utils.g_require_progress_rollup := 'N';
9428:
9429: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9430: l_debug_mode := NVL(l_debug_mode, 'N');
9431:
9432: -- Set curr function
9433: IF l_debug_mode = 'Y' THEN
9430: l_debug_mode := NVL(l_debug_mode, 'N');
9431:
9432: -- Set curr function
9433: IF l_debug_mode = 'Y' THEN
9434: pa_debug.set_curr_function(
9435: p_function =>'PA_FP_PLAN_TXN_PUB.delete_planning_transactions'
9436: ,p_debug_mode => l_debug_mode );
9437: END IF;
9438:
9437: END IF;
9438:
9439: IF l_debug_mode = 'Y' THEN
9440: /** printing all in params */
9441: pa_debug.g_err_stage := 'p_context=>'|| p_context||']p_task_or_res =>'||p_task_or_res||']';
9442: pa_debug.g_err_stage := pa_debug.g_err_stage||'p_validate_delete_flag=>'||p_validate_delete_flag||']';
9443: pa_debug.g_err_stage := pa_debug.g_err_stage||'p_calling_module=>'||p_calling_module||']';
9444: pa_debug.g_err_stage := pa_debug.g_err_stage||'RollupReqFlg=>'||p_rollup_required_flag||']';
9445: pa_debug.g_err_stage := pa_debug.g_err_stage||'PJiRollupFlg=>'||p_pji_rollup_required||']';
9438:
9439: IF l_debug_mode = 'Y' THEN
9440: /** printing all in params */
9441: pa_debug.g_err_stage := 'p_context=>'|| p_context||']p_task_or_res =>'||p_task_or_res||']';
9442: pa_debug.g_err_stage := pa_debug.g_err_stage||'p_validate_delete_flag=>'||p_validate_delete_flag||']';
9443: pa_debug.g_err_stage := pa_debug.g_err_stage||'p_calling_module=>'||p_calling_module||']';
9444: pa_debug.g_err_stage := pa_debug.g_err_stage||'RollupReqFlg=>'||p_rollup_required_flag||']';
9445: pa_debug.g_err_stage := pa_debug.g_err_stage||'PJiRollupFlg=>'||p_pji_rollup_required||']';
9446: pa_debug.g_err_stage := pa_debug.g_err_stage||'ElemVerTbCt['||p_element_version_id_tbl.count||']';
9439: IF l_debug_mode = 'Y' THEN
9440: /** printing all in params */
9441: pa_debug.g_err_stage := 'p_context=>'|| p_context||']p_task_or_res =>'||p_task_or_res||']';
9442: pa_debug.g_err_stage := pa_debug.g_err_stage||'p_validate_delete_flag=>'||p_validate_delete_flag||']';
9443: pa_debug.g_err_stage := pa_debug.g_err_stage||'p_calling_module=>'||p_calling_module||']';
9444: pa_debug.g_err_stage := pa_debug.g_err_stage||'RollupReqFlg=>'||p_rollup_required_flag||']';
9445: pa_debug.g_err_stage := pa_debug.g_err_stage||'PJiRollupFlg=>'||p_pji_rollup_required||']';
9446: pa_debug.g_err_stage := pa_debug.g_err_stage||'ElemVerTbCt['||p_element_version_id_tbl.count||']';
9447: pa_debug.g_err_stage := pa_debug.g_err_stage||'RaIdCt['||p_resource_assignment_tbl.count||']';
9440: /** printing all in params */
9441: pa_debug.g_err_stage := 'p_context=>'|| p_context||']p_task_or_res =>'||p_task_or_res||']';
9442: pa_debug.g_err_stage := pa_debug.g_err_stage||'p_validate_delete_flag=>'||p_validate_delete_flag||']';
9443: pa_debug.g_err_stage := pa_debug.g_err_stage||'p_calling_module=>'||p_calling_module||']';
9444: pa_debug.g_err_stage := pa_debug.g_err_stage||'RollupReqFlg=>'||p_rollup_required_flag||']';
9445: pa_debug.g_err_stage := pa_debug.g_err_stage||'PJiRollupFlg=>'||p_pji_rollup_required||']';
9446: pa_debug.g_err_stage := pa_debug.g_err_stage||'ElemVerTbCt['||p_element_version_id_tbl.count||']';
9447: pa_debug.g_err_stage := pa_debug.g_err_stage||'RaIdCt['||p_resource_assignment_tbl.count||']';
9448: pa_debug.g_err_stage := pa_debug.g_err_stage||'TaskIdCt['||p_task_id_tbl.count||']';
9441: pa_debug.g_err_stage := 'p_context=>'|| p_context||']p_task_or_res =>'||p_task_or_res||']';
9442: pa_debug.g_err_stage := pa_debug.g_err_stage||'p_validate_delete_flag=>'||p_validate_delete_flag||']';
9443: pa_debug.g_err_stage := pa_debug.g_err_stage||'p_calling_module=>'||p_calling_module||']';
9444: pa_debug.g_err_stage := pa_debug.g_err_stage||'RollupReqFlg=>'||p_rollup_required_flag||']';
9445: pa_debug.g_err_stage := pa_debug.g_err_stage||'PJiRollupFlg=>'||p_pji_rollup_required||']';
9446: pa_debug.g_err_stage := pa_debug.g_err_stage||'ElemVerTbCt['||p_element_version_id_tbl.count||']';
9447: pa_debug.g_err_stage := pa_debug.g_err_stage||'RaIdCt['||p_resource_assignment_tbl.count||']';
9448: pa_debug.g_err_stage := pa_debug.g_err_stage||'TaskIdCt['||p_task_id_tbl.count||']';
9449: pa_debug.g_err_stage := pa_debug.g_err_stage||'rbsElmCt['||p_rbs_element_id_tbl.count||']';
9442: pa_debug.g_err_stage := pa_debug.g_err_stage||'p_validate_delete_flag=>'||p_validate_delete_flag||']';
9443: pa_debug.g_err_stage := pa_debug.g_err_stage||'p_calling_module=>'||p_calling_module||']';
9444: pa_debug.g_err_stage := pa_debug.g_err_stage||'RollupReqFlg=>'||p_rollup_required_flag||']';
9445: pa_debug.g_err_stage := pa_debug.g_err_stage||'PJiRollupFlg=>'||p_pji_rollup_required||']';
9446: pa_debug.g_err_stage := pa_debug.g_err_stage||'ElemVerTbCt['||p_element_version_id_tbl.count||']';
9447: pa_debug.g_err_stage := pa_debug.g_err_stage||'RaIdCt['||p_resource_assignment_tbl.count||']';
9448: pa_debug.g_err_stage := pa_debug.g_err_stage||'TaskIdCt['||p_task_id_tbl.count||']';
9449: pa_debug.g_err_stage := pa_debug.g_err_stage||'rbsElmCt['||p_rbs_element_id_tbl.count||']';
9450: print_msg(pa_debug.g_err_stage,l_module_name);
9443: pa_debug.g_err_stage := pa_debug.g_err_stage||'p_calling_module=>'||p_calling_module||']';
9444: pa_debug.g_err_stage := pa_debug.g_err_stage||'RollupReqFlg=>'||p_rollup_required_flag||']';
9445: pa_debug.g_err_stage := pa_debug.g_err_stage||'PJiRollupFlg=>'||p_pji_rollup_required||']';
9446: pa_debug.g_err_stage := pa_debug.g_err_stage||'ElemVerTbCt['||p_element_version_id_tbl.count||']';
9447: pa_debug.g_err_stage := pa_debug.g_err_stage||'RaIdCt['||p_resource_assignment_tbl.count||']';
9448: pa_debug.g_err_stage := pa_debug.g_err_stage||'TaskIdCt['||p_task_id_tbl.count||']';
9449: pa_debug.g_err_stage := pa_debug.g_err_stage||'rbsElmCt['||p_rbs_element_id_tbl.count||']';
9450: print_msg(pa_debug.g_err_stage,l_module_name);
9451: End If;
9444: pa_debug.g_err_stage := pa_debug.g_err_stage||'RollupReqFlg=>'||p_rollup_required_flag||']';
9445: pa_debug.g_err_stage := pa_debug.g_err_stage||'PJiRollupFlg=>'||p_pji_rollup_required||']';
9446: pa_debug.g_err_stage := pa_debug.g_err_stage||'ElemVerTbCt['||p_element_version_id_tbl.count||']';
9447: pa_debug.g_err_stage := pa_debug.g_err_stage||'RaIdCt['||p_resource_assignment_tbl.count||']';
9448: pa_debug.g_err_stage := pa_debug.g_err_stage||'TaskIdCt['||p_task_id_tbl.count||']';
9449: pa_debug.g_err_stage := pa_debug.g_err_stage||'rbsElmCt['||p_rbs_element_id_tbl.count||']';
9450: print_msg(pa_debug.g_err_stage,l_module_name);
9451: End If;
9452: -------------------------------------------------------------------------------------------
9445: pa_debug.g_err_stage := pa_debug.g_err_stage||'PJiRollupFlg=>'||p_pji_rollup_required||']';
9446: pa_debug.g_err_stage := pa_debug.g_err_stage||'ElemVerTbCt['||p_element_version_id_tbl.count||']';
9447: pa_debug.g_err_stage := pa_debug.g_err_stage||'RaIdCt['||p_resource_assignment_tbl.count||']';
9448: pa_debug.g_err_stage := pa_debug.g_err_stage||'TaskIdCt['||p_task_id_tbl.count||']';
9449: pa_debug.g_err_stage := pa_debug.g_err_stage||'rbsElmCt['||p_rbs_element_id_tbl.count||']';
9450: print_msg(pa_debug.g_err_stage,l_module_name);
9451: End If;
9452: -------------------------------------------------------------------------------------------
9453: -- Extending all table lengths to the permissible values they would take.
9446: pa_debug.g_err_stage := pa_debug.g_err_stage||'ElemVerTbCt['||p_element_version_id_tbl.count||']';
9447: pa_debug.g_err_stage := pa_debug.g_err_stage||'RaIdCt['||p_resource_assignment_tbl.count||']';
9448: pa_debug.g_err_stage := pa_debug.g_err_stage||'TaskIdCt['||p_task_id_tbl.count||']';
9449: pa_debug.g_err_stage := pa_debug.g_err_stage||'rbsElmCt['||p_rbs_element_id_tbl.count||']';
9450: print_msg(pa_debug.g_err_stage,l_module_name);
9451: End If;
9452: -------------------------------------------------------------------------------------------
9453: -- Extending all table lengths to the permissible values they would take.
9454: -------------------------------------------------------------------------------------------
9452: -------------------------------------------------------------------------------------------
9453: -- Extending all table lengths to the permissible values they would take.
9454: -------------------------------------------------------------------------------------------
9455: IF l_debug_mode = 'Y' THEN
9456: pa_debug.g_err_stage:='Extending all table lengths to the permissible values they would take';
9457: print_msg(pa_debug.g_err_stage,l_module_name);
9458: END IF;
9459:
9460: IF l_debug_mode = 'Y' THEN
9453: -- Extending all table lengths to the permissible values they would take.
9454: -------------------------------------------------------------------------------------------
9455: IF l_debug_mode = 'Y' THEN
9456: pa_debug.g_err_stage:='Extending all table lengths to the permissible values they would take';
9457: print_msg(pa_debug.g_err_stage,l_module_name);
9458: END IF;
9459:
9460: IF l_debug_mode = 'Y' THEN
9461: pa_debug.g_err_stage:='Extending all table lengths to the permissible values they would take';
9457: print_msg(pa_debug.g_err_stage,l_module_name);
9458: END IF;
9459:
9460: IF l_debug_mode = 'Y' THEN
9461: pa_debug.g_err_stage:='Extending all table lengths to the permissible values they would take';
9462: print_msg(pa_debug.g_err_stage,l_module_name);
9463: END IF;
9464:
9465: IF p_element_version_id_tbl.COUNT > 0 THEN
9458: END IF;
9459:
9460: IF l_debug_mode = 'Y' THEN
9461: pa_debug.g_err_stage:='Extending all table lengths to the permissible values they would take';
9462: print_msg(pa_debug.g_err_stage,l_module_name);
9463: END IF;
9464:
9465: IF p_element_version_id_tbl.COUNT > 0 THEN
9466: l_delete_task_flag_tbl.extend(p_element_version_id_tbl.LAST);
9477: ----------------------------------------------------
9478: -- Validating input parameters
9479: ----------------------------------------------------
9480: IF l_debug_mode = 'Y' THEN
9481: pa_debug.g_err_stage:='Validating input parameters';
9482: print_msg(pa_debug.g_err_stage,l_module_name);
9483: END IF;
9484:
9485: --Check for mandatory parameters
9478: -- Validating input parameters
9479: ----------------------------------------------------
9480: IF l_debug_mode = 'Y' THEN
9481: pa_debug.g_err_stage:='Validating input parameters';
9482: print_msg(pa_debug.g_err_stage,l_module_name);
9483: END IF;
9484:
9485: --Check for mandatory parameters
9486: IF p_context IS NULL OR
9486: IF p_context IS NULL OR
9487: p_task_or_res IS NULL THEN
9488:
9489: IF l_debug_mode = 'Y' THEN
9490: pa_debug.g_err_stage:='p_context Is'||p_context;
9491: pa_debug.g_err_stage:=pa_debug.g_err_stage||': p_task_or_res Is'||p_task_or_res;
9492: print_msg(pa_debug.g_err_stage,l_module_name);
9493: END IF;
9494:
9487: p_task_or_res IS NULL THEN
9488:
9489: IF l_debug_mode = 'Y' THEN
9490: pa_debug.g_err_stage:='p_context Is'||p_context;
9491: pa_debug.g_err_stage:=pa_debug.g_err_stage||': p_task_or_res Is'||p_task_or_res;
9492: print_msg(pa_debug.g_err_stage,l_module_name);
9493: END IF;
9494:
9495: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9488:
9489: IF l_debug_mode = 'Y' THEN
9490: pa_debug.g_err_stage:='p_context Is'||p_context;
9491: pa_debug.g_err_stage:=pa_debug.g_err_stage||': p_task_or_res Is'||p_task_or_res;
9492: print_msg(pa_debug.g_err_stage,l_module_name);
9493: END IF;
9494:
9495: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9496: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
9498: END IF;
9499:
9500: IF p_task_or_res = 'TASKS' AND p_calling_module='PROCESS_RES_CHG_DERV_CALC_PRMS' THEN
9501: IF l_debug_mode = 'Y' THEN
9502: pa_debug.g_err_stage:='calling module is PROCESS_RES_CHG_DERV_CALC_PRMS when p_task_or_res is TASKS';
9503: print_msg(pa_debug.g_err_stage,l_module_name);
9504: END IF;
9505: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9506: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
9499:
9500: IF p_task_or_res = 'TASKS' AND p_calling_module='PROCESS_RES_CHG_DERV_CALC_PRMS' THEN
9501: IF l_debug_mode = 'Y' THEN
9502: pa_debug.g_err_stage:='calling module is PROCESS_RES_CHG_DERV_CALC_PRMS when p_task_or_res is TASKS';
9503: print_msg(pa_debug.g_err_stage,l_module_name);
9504: END IF;
9505: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9506: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
9507: p_token1 => 'PROCEDURENAME',
9513: IF ( p_task_or_res = 'TASKS'
9514: AND p_context in (PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET,
9515: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
9516: IF l_debug_mode = 'Y' THEN
9517: pa_debug.g_err_stage:='P_task_or_res is Task for B/F Context';
9518: print_msg(pa_debug.g_err_stage,l_module_name);
9519: END IF;
9520: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9521: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
9514: AND p_context in (PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET,
9515: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
9516: IF l_debug_mode = 'Y' THEN
9517: pa_debug.g_err_stage:='P_task_or_res is Task for B/F Context';
9518: print_msg(pa_debug.g_err_stage,l_module_name);
9519: END IF;
9520: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9521: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
9522: p_token1 => 'PROCEDURENAME',
9532: p_rate_based_flag_tbl.COUNT <> p_resource_assignment_tbl.COUNT OR
9533: p_resource_class_code_tbl.COUNT <> p_resource_assignment_tbl.COUNT ) THEN
9534:
9535: IF l_debug_mode = 'Y' THEN
9536: pa_debug.g_err_stage:='p_resource_assignment_tbl.COUNT IS '||p_resource_assignment_tbl.COUNT ;
9537: print_msg(pa_debug.g_err_stage,l_module_name);
9538:
9539: pa_debug.g_err_stage:='p_task_id_tbl.COUNT IS '||p_task_id_tbl.COUNT ;
9540: print_msg(pa_debug.g_err_stage,l_module_name);
9533: p_resource_class_code_tbl.COUNT <> p_resource_assignment_tbl.COUNT ) THEN
9534:
9535: IF l_debug_mode = 'Y' THEN
9536: pa_debug.g_err_stage:='p_resource_assignment_tbl.COUNT IS '||p_resource_assignment_tbl.COUNT ;
9537: print_msg(pa_debug.g_err_stage,l_module_name);
9538:
9539: pa_debug.g_err_stage:='p_task_id_tbl.COUNT IS '||p_task_id_tbl.COUNT ;
9540: print_msg(pa_debug.g_err_stage,l_module_name);
9541:
9535: IF l_debug_mode = 'Y' THEN
9536: pa_debug.g_err_stage:='p_resource_assignment_tbl.COUNT IS '||p_resource_assignment_tbl.COUNT ;
9537: print_msg(pa_debug.g_err_stage,l_module_name);
9538:
9539: pa_debug.g_err_stage:='p_task_id_tbl.COUNT IS '||p_task_id_tbl.COUNT ;
9540: print_msg(pa_debug.g_err_stage,l_module_name);
9541:
9542: pa_debug.g_err_stage:='p_rbs_element_id_tbl.COUNT IS '||p_rbs_element_id_tbl.COUNT ;
9543: print_msg(pa_debug.g_err_stage,l_module_name);
9536: pa_debug.g_err_stage:='p_resource_assignment_tbl.COUNT IS '||p_resource_assignment_tbl.COUNT ;
9537: print_msg(pa_debug.g_err_stage,l_module_name);
9538:
9539: pa_debug.g_err_stage:='p_task_id_tbl.COUNT IS '||p_task_id_tbl.COUNT ;
9540: print_msg(pa_debug.g_err_stage,l_module_name);
9541:
9542: pa_debug.g_err_stage:='p_rbs_element_id_tbl.COUNT IS '||p_rbs_element_id_tbl.COUNT ;
9543: print_msg(pa_debug.g_err_stage,l_module_name);
9544:
9538:
9539: pa_debug.g_err_stage:='p_task_id_tbl.COUNT IS '||p_task_id_tbl.COUNT ;
9540: print_msg(pa_debug.g_err_stage,l_module_name);
9541:
9542: pa_debug.g_err_stage:='p_rbs_element_id_tbl.COUNT IS '||p_rbs_element_id_tbl.COUNT ;
9543: print_msg(pa_debug.g_err_stage,l_module_name);
9544:
9545: pa_debug.g_err_stage:='p_rate_based_flag_tbl.COUNT IS '||p_rate_based_flag_tbl.COUNT ;
9546: print_msg(pa_debug.g_err_stage,l_module_name);
9539: pa_debug.g_err_stage:='p_task_id_tbl.COUNT IS '||p_task_id_tbl.COUNT ;
9540: print_msg(pa_debug.g_err_stage,l_module_name);
9541:
9542: pa_debug.g_err_stage:='p_rbs_element_id_tbl.COUNT IS '||p_rbs_element_id_tbl.COUNT ;
9543: print_msg(pa_debug.g_err_stage,l_module_name);
9544:
9545: pa_debug.g_err_stage:='p_rate_based_flag_tbl.COUNT IS '||p_rate_based_flag_tbl.COUNT ;
9546: print_msg(pa_debug.g_err_stage,l_module_name);
9547:
9541:
9542: pa_debug.g_err_stage:='p_rbs_element_id_tbl.COUNT IS '||p_rbs_element_id_tbl.COUNT ;
9543: print_msg(pa_debug.g_err_stage,l_module_name);
9544:
9545: pa_debug.g_err_stage:='p_rate_based_flag_tbl.COUNT IS '||p_rate_based_flag_tbl.COUNT ;
9546: print_msg(pa_debug.g_err_stage,l_module_name);
9547:
9548: pa_debug.g_err_stage:='p_resource_class_code_tbl.COUNT IS '||p_resource_class_code_tbl.COUNT ;
9549: print_msg(pa_debug.g_err_stage,l_module_name);
9542: pa_debug.g_err_stage:='p_rbs_element_id_tbl.COUNT IS '||p_rbs_element_id_tbl.COUNT ;
9543: print_msg(pa_debug.g_err_stage,l_module_name);
9544:
9545: pa_debug.g_err_stage:='p_rate_based_flag_tbl.COUNT IS '||p_rate_based_flag_tbl.COUNT ;
9546: print_msg(pa_debug.g_err_stage,l_module_name);
9547:
9548: pa_debug.g_err_stage:='p_resource_class_code_tbl.COUNT IS '||p_resource_class_code_tbl.COUNT ;
9549: print_msg(pa_debug.g_err_stage,l_module_name);
9550:
9544:
9545: pa_debug.g_err_stage:='p_rate_based_flag_tbl.COUNT IS '||p_rate_based_flag_tbl.COUNT ;
9546: print_msg(pa_debug.g_err_stage,l_module_name);
9547:
9548: pa_debug.g_err_stage:='p_resource_class_code_tbl.COUNT IS '||p_resource_class_code_tbl.COUNT ;
9549: print_msg(pa_debug.g_err_stage,l_module_name);
9550:
9551: pa_debug.g_err_stage:='p_resource_assignment_tbl.COUNT IS '||p_resource_assignment_tbl.COUNT ;
9552: print_msg(pa_debug.g_err_stage,l_module_name);
9545: pa_debug.g_err_stage:='p_rate_based_flag_tbl.COUNT IS '||p_rate_based_flag_tbl.COUNT ;
9546: print_msg(pa_debug.g_err_stage,l_module_name);
9547:
9548: pa_debug.g_err_stage:='p_resource_class_code_tbl.COUNT IS '||p_resource_class_code_tbl.COUNT ;
9549: print_msg(pa_debug.g_err_stage,l_module_name);
9550:
9551: pa_debug.g_err_stage:='p_resource_assignment_tbl.COUNT IS '||p_resource_assignment_tbl.COUNT ;
9552: print_msg(pa_debug.g_err_stage,l_module_name);
9553:
9547:
9548: pa_debug.g_err_stage:='p_resource_class_code_tbl.COUNT IS '||p_resource_class_code_tbl.COUNT ;
9549: print_msg(pa_debug.g_err_stage,l_module_name);
9550:
9551: pa_debug.g_err_stage:='p_resource_assignment_tbl.COUNT IS '||p_resource_assignment_tbl.COUNT ;
9552: print_msg(pa_debug.g_err_stage,l_module_name);
9553:
9554: END IF;
9555: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9548: pa_debug.g_err_stage:='p_resource_class_code_tbl.COUNT IS '||p_resource_class_code_tbl.COUNT ;
9549: print_msg(pa_debug.g_err_stage,l_module_name);
9550:
9551: pa_debug.g_err_stage:='p_resource_assignment_tbl.COUNT IS '||p_resource_assignment_tbl.COUNT ;
9552: print_msg(pa_debug.g_err_stage,l_module_name);
9553:
9554: END IF;
9555: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9556: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
9567: (p_task_or_res = 'ASSIGNMENT' AND
9568: p_resource_assignment_tbl.count =0) THEN
9569:
9570: IF l_debug_mode = 'Y' THEN
9571: pa_debug.g_err_stage:='The input table is empty. returning';
9572: print_msg(pa_debug.g_err_stage,l_module_name);
9573: pa_debug.reset_curr_function;
9574: END IF;
9575: RETURN;
9568: p_resource_assignment_tbl.count =0) THEN
9569:
9570: IF l_debug_mode = 'Y' THEN
9571: pa_debug.g_err_stage:='The input table is empty. returning';
9572: print_msg(pa_debug.g_err_stage,l_module_name);
9573: pa_debug.reset_curr_function;
9574: END IF;
9575: RETURN;
9576: END IF;
9569:
9570: IF l_debug_mode = 'Y' THEN
9571: pa_debug.g_err_stage:='The input table is empty. returning';
9572: print_msg(pa_debug.g_err_stage,l_module_name);
9573: pa_debug.reset_curr_function;
9574: END IF;
9575: RETURN;
9576: END IF;
9577:
9596: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK OR
9597: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN --{
9598:
9599: IF l_debug_mode = 'Y' THEN
9600: pa_debug.g_err_stage:='The calling context is task assignment. Calling the validation API';
9601: print_msg(pa_debug.g_err_stage,l_module_name);
9602: END IF;
9603:
9604: PA_TASK_ASSIGNMENT_UTILS.VALIDATE_DELETE_ASSIGNMENT
9597: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN --{
9598:
9599: IF l_debug_mode = 'Y' THEN
9600: pa_debug.g_err_stage:='The calling context is task assignment. Calling the validation API';
9601: print_msg(pa_debug.g_err_stage,l_module_name);
9602: END IF;
9603:
9604: PA_TASK_ASSIGNMENT_UTILS.VALIDATE_DELETE_ASSIGNMENT
9605: ( p_context => p_context
9614: ,x_task_assmt_ids_tbl => l_task_assmt_ids_tbl --Bug 4951422
9615: ,x_return_status => x_return_status);
9616:
9617: IF l_debug_mode = 'Y' THEN
9618: pa_debug.g_err_stage:= 'After calling Validate OutParms: l_delete_task_flag_tblCount[';
9619: pa_debug.g_err_stage:= pa_debug.g_err_stage||l_delete_task_flag_tbl.count||']';
9620: pa_debug.g_err_stage:= pa_debug.g_err_stage||'l_delete_assmt_flag_tblcount[';
9621: pa_debug.g_err_stage:= pa_debug.g_err_stage||l_delete_assmt_flag_tbl.count||']';
9622: pa_debug.g_err_stage:= pa_debug.g_err_stage||'l_task_assmt_ids_tblCount[';
9615: ,x_return_status => x_return_status);
9616:
9617: IF l_debug_mode = 'Y' THEN
9618: pa_debug.g_err_stage:= 'After calling Validate OutParms: l_delete_task_flag_tblCount[';
9619: pa_debug.g_err_stage:= pa_debug.g_err_stage||l_delete_task_flag_tbl.count||']';
9620: pa_debug.g_err_stage:= pa_debug.g_err_stage||'l_delete_assmt_flag_tblcount[';
9621: pa_debug.g_err_stage:= pa_debug.g_err_stage||l_delete_assmt_flag_tbl.count||']';
9622: pa_debug.g_err_stage:= pa_debug.g_err_stage||'l_task_assmt_ids_tblCount[';
9623: pa_debug.g_err_stage:= pa_debug.g_err_stage||l_task_assmt_ids_tbl.count||']';
9616:
9617: IF l_debug_mode = 'Y' THEN
9618: pa_debug.g_err_stage:= 'After calling Validate OutParms: l_delete_task_flag_tblCount[';
9619: pa_debug.g_err_stage:= pa_debug.g_err_stage||l_delete_task_flag_tbl.count||']';
9620: pa_debug.g_err_stage:= pa_debug.g_err_stage||'l_delete_assmt_flag_tblcount[';
9621: pa_debug.g_err_stage:= pa_debug.g_err_stage||l_delete_assmt_flag_tbl.count||']';
9622: pa_debug.g_err_stage:= pa_debug.g_err_stage||'l_task_assmt_ids_tblCount[';
9623: pa_debug.g_err_stage:= pa_debug.g_err_stage||l_task_assmt_ids_tbl.count||']';
9624: pa_debug.g_err_stage:= pa_debug.g_err_stage||'RetSts['||x_return_status||']';
9617: IF l_debug_mode = 'Y' THEN
9618: pa_debug.g_err_stage:= 'After calling Validate OutParms: l_delete_task_flag_tblCount[';
9619: pa_debug.g_err_stage:= pa_debug.g_err_stage||l_delete_task_flag_tbl.count||']';
9620: pa_debug.g_err_stage:= pa_debug.g_err_stage||'l_delete_assmt_flag_tblcount[';
9621: pa_debug.g_err_stage:= pa_debug.g_err_stage||l_delete_assmt_flag_tbl.count||']';
9622: pa_debug.g_err_stage:= pa_debug.g_err_stage||'l_task_assmt_ids_tblCount[';
9623: pa_debug.g_err_stage:= pa_debug.g_err_stage||l_task_assmt_ids_tbl.count||']';
9624: pa_debug.g_err_stage:= pa_debug.g_err_stage||'RetSts['||x_return_status||']';
9625: print_msg(pa_debug.g_err_stage,l_module_name);
9618: pa_debug.g_err_stage:= 'After calling Validate OutParms: l_delete_task_flag_tblCount[';
9619: pa_debug.g_err_stage:= pa_debug.g_err_stage||l_delete_task_flag_tbl.count||']';
9620: pa_debug.g_err_stage:= pa_debug.g_err_stage||'l_delete_assmt_flag_tblcount[';
9621: pa_debug.g_err_stage:= pa_debug.g_err_stage||l_delete_assmt_flag_tbl.count||']';
9622: pa_debug.g_err_stage:= pa_debug.g_err_stage||'l_task_assmt_ids_tblCount[';
9623: pa_debug.g_err_stage:= pa_debug.g_err_stage||l_task_assmt_ids_tbl.count||']';
9624: pa_debug.g_err_stage:= pa_debug.g_err_stage||'RetSts['||x_return_status||']';
9625: print_msg(pa_debug.g_err_stage,l_module_name);
9626: End If;
9619: pa_debug.g_err_stage:= pa_debug.g_err_stage||l_delete_task_flag_tbl.count||']';
9620: pa_debug.g_err_stage:= pa_debug.g_err_stage||'l_delete_assmt_flag_tblcount[';
9621: pa_debug.g_err_stage:= pa_debug.g_err_stage||l_delete_assmt_flag_tbl.count||']';
9622: pa_debug.g_err_stage:= pa_debug.g_err_stage||'l_task_assmt_ids_tblCount[';
9623: pa_debug.g_err_stage:= pa_debug.g_err_stage||l_task_assmt_ids_tbl.count||']';
9624: pa_debug.g_err_stage:= pa_debug.g_err_stage||'RetSts['||x_return_status||']';
9625: print_msg(pa_debug.g_err_stage,l_module_name);
9626: End If;
9627:
9620: pa_debug.g_err_stage:= pa_debug.g_err_stage||'l_delete_assmt_flag_tblcount[';
9621: pa_debug.g_err_stage:= pa_debug.g_err_stage||l_delete_assmt_flag_tbl.count||']';
9622: pa_debug.g_err_stage:= pa_debug.g_err_stage||'l_task_assmt_ids_tblCount[';
9623: pa_debug.g_err_stage:= pa_debug.g_err_stage||l_task_assmt_ids_tbl.count||']';
9624: pa_debug.g_err_stage:= pa_debug.g_err_stage||'RetSts['||x_return_status||']';
9625: print_msg(pa_debug.g_err_stage,l_module_name);
9626: End If;
9627:
9628: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9621: pa_debug.g_err_stage:= pa_debug.g_err_stage||l_delete_assmt_flag_tbl.count||']';
9622: pa_debug.g_err_stage:= pa_debug.g_err_stage||'l_task_assmt_ids_tblCount[';
9623: pa_debug.g_err_stage:= pa_debug.g_err_stage||l_task_assmt_ids_tbl.count||']';
9624: pa_debug.g_err_stage:= pa_debug.g_err_stage||'RetSts['||x_return_status||']';
9625: print_msg(pa_debug.g_err_stage,l_module_name);
9626: End If;
9627:
9628: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9629: IF l_debug_mode = 'Y' THEN
9626: End If;
9627:
9628: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9629: IF l_debug_mode = 'Y' THEN
9630: pa_debug.g_err_stage:='The calling context is task assignment. Calling the validation API';
9631: print_msg(pa_debug.g_err_stage,l_module_name);
9632: END IF;
9633: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9634: End If;
9627:
9628: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9629: IF l_debug_mode = 'Y' THEN
9630: pa_debug.g_err_stage:='The calling context is task assignment. Calling the validation API';
9631: print_msg(pa_debug.g_err_stage,l_module_name);
9632: END IF;
9633: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9634: End If;
9635: END IF; --}
9656: FOR i IN p_element_version_id_tbl.FIRST .. p_element_version_id_tbl.LAST LOOP
9657: l_cntr := i;
9658: BEGIN
9659: IF l_debug_mode = 'Y' THEN
9660: pa_debug.g_err_stage:=l_cntr||'..Getting budget version id from p_element_version_id_tbl';
9661: pa_debug.g_err_stage:=pa_debug.g_err_stage||'['||p_element_version_id_tbl(l_cntr)||']';
9662: print_msg(pa_debug.g_err_stage,l_module_name);
9663: END IF;
9664: SELECT pbv.project_id
9657: l_cntr := i;
9658: BEGIN
9659: IF l_debug_mode = 'Y' THEN
9660: pa_debug.g_err_stage:=l_cntr||'..Getting budget version id from p_element_version_id_tbl';
9661: pa_debug.g_err_stage:=pa_debug.g_err_stage||'['||p_element_version_id_tbl(l_cntr)||']';
9662: print_msg(pa_debug.g_err_stage,l_module_name);
9663: END IF;
9664: SELECT pbv.project_id
9665: ,pbv.budget_version_id
9658: BEGIN
9659: IF l_debug_mode = 'Y' THEN
9660: pa_debug.g_err_stage:=l_cntr||'..Getting budget version id from p_element_version_id_tbl';
9661: pa_debug.g_err_stage:=pa_debug.g_err_stage||'['||p_element_version_id_tbl(l_cntr)||']';
9662: print_msg(pa_debug.g_err_stage,l_module_name);
9663: END IF;
9664: SELECT pbv.project_id
9665: ,pbv.budget_version_id
9666: ,pbv.ci_id
9677: EXIT;
9678: EXCEPTION
9679: WHEN NO_DATA_FOUND THEN
9680: IF l_debug_mode = 'Y' THEN
9681: pa_debug.g_err_stage:='No Data Found: No budget Exists for this Task Element Version Ids';
9682: print_msg(pa_debug.g_err_stage,l_module_name);
9683: END IF;
9684: NULL;
9685: END;
9678: EXCEPTION
9679: WHEN NO_DATA_FOUND THEN
9680: IF l_debug_mode = 'Y' THEN
9681: pa_debug.g_err_stage:='No Data Found: No budget Exists for this Task Element Version Ids';
9682: print_msg(pa_debug.g_err_stage,l_module_name);
9683: END IF;
9684: NULL;
9685: END;
9686: END LOOP;
9692: l_task_assmt_ids_tbl is NOT NULL and -- Bug 5408333 fix - ORA-06531: Reference to uninitialized collection
9693: l_task_assmt_ids_tbl.COUNT > 0 Then
9694: BEGIN
9695: IF l_debug_mode = 'Y' THEN
9696: pa_debug.g_err_stage:='2..Getting budget version id from l_task_assmt_ids_tbl';
9697: pa_debug.g_err_stage:=pa_debug.g_err_stage||'['||l_task_assmt_ids_tbl(1)||']';
9698: print_msg(pa_debug.g_err_stage,l_module_name);
9699: END IF;
9700: SELECT pbv.project_id
9693: l_task_assmt_ids_tbl.COUNT > 0 Then
9694: BEGIN
9695: IF l_debug_mode = 'Y' THEN
9696: pa_debug.g_err_stage:='2..Getting budget version id from l_task_assmt_ids_tbl';
9697: pa_debug.g_err_stage:=pa_debug.g_err_stage||'['||l_task_assmt_ids_tbl(1)||']';
9698: print_msg(pa_debug.g_err_stage,l_module_name);
9699: END IF;
9700: SELECT pbv.project_id
9701: ,pbv.budget_version_id
9694: BEGIN
9695: IF l_debug_mode = 'Y' THEN
9696: pa_debug.g_err_stage:='2..Getting budget version id from l_task_assmt_ids_tbl';
9697: pa_debug.g_err_stage:=pa_debug.g_err_stage||'['||l_task_assmt_ids_tbl(1)||']';
9698: print_msg(pa_debug.g_err_stage,l_module_name);
9699: END IF;
9700: SELECT pbv.project_id
9701: ,pbv.budget_version_id
9702: ,pbv.ci_id
9709: AND pra.resource_assignment_id =l_task_assmt_ids_tbl(1);
9710: EXCEPTION
9711: WHEN NO_DATA_FOUND THEN
9712: IF l_debug_mode = 'Y' THEN
9713: pa_debug.g_err_stage:='No Data Found: No budget Exists for this Task Assignment Ids';
9714: print_msg(pa_debug.g_err_stage,l_module_name);
9715: END IF;
9716: NULL;
9717: END;
9710: EXCEPTION
9711: WHEN NO_DATA_FOUND THEN
9712: IF l_debug_mode = 'Y' THEN
9713: pa_debug.g_err_stage:='No Data Found: No budget Exists for this Task Assignment Ids';
9714: print_msg(pa_debug.g_err_stage,l_module_name);
9715: END IF;
9716: NULL;
9717: END;
9718:
9728:
9729: BEGIN
9730:
9731: IF l_debug_mode = 'Y' THEN
9732: pa_debug.g_err_stage:='2..Getting budget version id from p_resource_assignment_tbl';
9733: pa_debug.g_err_stage:=pa_debug.g_err_stage||'['||p_resource_assignment_tbl(1)||']';
9734: print_msg(pa_debug.g_err_stage,l_module_name);
9735: END IF;
9736: SELECT pbv.project_id
9729: BEGIN
9730:
9731: IF l_debug_mode = 'Y' THEN
9732: pa_debug.g_err_stage:='2..Getting budget version id from p_resource_assignment_tbl';
9733: pa_debug.g_err_stage:=pa_debug.g_err_stage||'['||p_resource_assignment_tbl(1)||']';
9734: print_msg(pa_debug.g_err_stage,l_module_name);
9735: END IF;
9736: SELECT pbv.project_id
9737: ,pbv.budget_version_id
9730:
9731: IF l_debug_mode = 'Y' THEN
9732: pa_debug.g_err_stage:='2..Getting budget version id from p_resource_assignment_tbl';
9733: pa_debug.g_err_stage:=pa_debug.g_err_stage||'['||p_resource_assignment_tbl(1)||']';
9734: print_msg(pa_debug.g_err_stage,l_module_name);
9735: END IF;
9736: SELECT pbv.project_id
9737: ,pbv.budget_version_id
9738: ,pbv.ci_id
9745: AND pra.resource_assignment_id =p_resource_assignment_tbl(1);
9746: EXCEPTION
9747: WHEN NO_DATA_FOUND THEN
9748: IF l_debug_mode = 'Y' THEN
9749: pa_debug.g_err_stage:='No Data Found: No budget Exists for this resource Assignment Ids';
9750: print_msg(pa_debug.g_err_stage,l_module_name);
9751: END IF;
9752: NULL;
9753: END;
9746: EXCEPTION
9747: WHEN NO_DATA_FOUND THEN
9748: IF l_debug_mode = 'Y' THEN
9749: pa_debug.g_err_stage:='No Data Found: No budget Exists for this resource Assignment Ids';
9750: print_msg(pa_debug.g_err_stage,l_module_name);
9751: END IF;
9752: NULL;
9753: END;
9754:
9754:
9755: END IF; --}
9756:
9757: IF l_debug_mode = 'Y' THEN
9758: pa_debug.g_err_stage:='ProjId['||l_project_id||']BudgetVers['||l_budget_version_id||']Ciid['||l_ci_id||']';
9759: print_msg(pa_debug.g_err_stage,l_module_name);
9760: END IF;
9761:
9762: If l_budget_version_id is NULL Then
9755: END IF; --}
9756:
9757: IF l_debug_mode = 'Y' THEN
9758: pa_debug.g_err_stage:='ProjId['||l_project_id||']BudgetVers['||l_budget_version_id||']Ciid['||l_ci_id||']';
9759: print_msg(pa_debug.g_err_stage,l_module_name);
9760: END IF;
9761:
9762: If l_budget_version_id is NULL Then
9763: IF l_debug_mode = 'Y' THEN
9760: END IF;
9761:
9762: If l_budget_version_id is NULL Then
9763: IF l_debug_mode = 'Y' THEN
9764: pa_debug.g_err_stage:='Exiting delete_planning_transactions as No budget version exists';
9765: print_msg(pa_debug.g_err_stage,l_module_name);
9766: pa_debug.reset_curr_function;
9767: END IF;
9768: RETURN;
9761:
9762: If l_budget_version_id is NULL Then
9763: IF l_debug_mode = 'Y' THEN
9764: pa_debug.g_err_stage:='Exiting delete_planning_transactions as No budget version exists';
9765: print_msg(pa_debug.g_err_stage,l_module_name);
9766: pa_debug.reset_curr_function;
9767: END IF;
9768: RETURN;
9769: End If;
9762: If l_budget_version_id is NULL Then
9763: IF l_debug_mode = 'Y' THEN
9764: pa_debug.g_err_stage:='Exiting delete_planning_transactions as No budget version exists';
9765: print_msg(pa_debug.g_err_stage,l_module_name);
9766: pa_debug.reset_curr_function;
9767: END IF;
9768: RETURN;
9769: End If;
9770: /* End of Bug fix:5349668: */
9775: IF p_task_or_res = 'TASKS' THEN
9776:
9777: IF l_delete_task_flag_tbl.count=0 THEN
9778: IF l_debug_mode = 'Y' THEN
9779: pa_debug.g_err_stage:='No elements in the l_delete_task_flag_tbl';
9780: print_msg(pa_debug.g_err_stage,l_module_name);
9781: pa_debug.reset_curr_function;
9782: END IF;
9783: RETURN;
9776:
9777: IF l_delete_task_flag_tbl.count=0 THEN
9778: IF l_debug_mode = 'Y' THEN
9779: pa_debug.g_err_stage:='No elements in the l_delete_task_flag_tbl';
9780: print_msg(pa_debug.g_err_stage,l_module_name);
9781: pa_debug.reset_curr_function;
9782: END IF;
9783: RETURN;
9784: END IF;
9777: IF l_delete_task_flag_tbl.count=0 THEN
9778: IF l_debug_mode = 'Y' THEN
9779: pa_debug.g_err_stage:='No elements in the l_delete_task_flag_tbl';
9780: print_msg(pa_debug.g_err_stage,l_module_name);
9781: pa_debug.reset_curr_function;
9782: END IF;
9783: RETURN;
9784: END IF;
9785:
9784: END IF;
9785:
9786: IF l_delete_task_flag_tbl.count<>p_element_version_id_tbl.count THEN
9787: IF l_debug_mode = 'Y' THEN
9788: pa_debug.g_err_stage:='Num elements in l_delete_task_flag_tbl, p_element_version_id_tbl dont match';
9789: print_msg(pa_debug.g_err_stage,l_module_name);
9790: END IF;
9791: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9792: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
9785:
9786: IF l_delete_task_flag_tbl.count<>p_element_version_id_tbl.count THEN
9787: IF l_debug_mode = 'Y' THEN
9788: pa_debug.g_err_stage:='Num elements in l_delete_task_flag_tbl, p_element_version_id_tbl dont match';
9789: print_msg(pa_debug.g_err_stage,l_module_name);
9790: END IF;
9791: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9792: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
9793: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9798: --that wbs_elememnt_version_id will be populated only for Workplan versions and hence all the checks done in
9799: --the commented SQL are already done in that API
9800: IF l_task_assmt_ids_tbl.COUNT > 0 Then --{
9801: IF l_debug_mode = 'Y' THEN
9802: pa_debug.g_err_stage:='Deleting all budget lines based on l_task_assmt_ids_tbl';
9803: print_msg(pa_debug.g_err_stage,l_module_name);
9804: END IF;
9805: FORALL i IN 1..l_task_assmt_ids_tbl.COUNT
9806: DELETE
9799: --the commented SQL are already done in that API
9800: IF l_task_assmt_ids_tbl.COUNT > 0 Then --{
9801: IF l_debug_mode = 'Y' THEN
9802: pa_debug.g_err_stage:='Deleting all budget lines based on l_task_assmt_ids_tbl';
9803: print_msg(pa_debug.g_err_stage,l_module_name);
9804: END IF;
9805: FORALL i IN 1..l_task_assmt_ids_tbl.COUNT
9806: DELETE
9807: FROM pa_budget_lines pbl
9851: l_pfc_cur_conv_rej_code_tbl,
9852: l_resource_assignment_id_tbl;
9853:
9854: IF l_debug_mode = 'Y' THEN
9855: pa_debug.g_err_stage:='Deleting all resource assignments for the tasks for which the fla is passed as Y';
9856: print_msg(pa_debug.g_err_stage,l_module_name);
9857: END IF;
9858:
9859: -- IPM changes - populate tmp table to use for deletion later
9852: l_resource_assignment_id_tbl;
9853:
9854: IF l_debug_mode = 'Y' THEN
9855: pa_debug.g_err_stage:='Deleting all resource assignments for the tasks for which the fla is passed as Y';
9856: print_msg(pa_debug.g_err_stage,l_module_name);
9857: END IF;
9858:
9859: -- IPM changes - populate tmp table to use for deletion later
9860: IF l_resource_assignment_id_tbl.COUNT > 0 THEN
9923: ELSIF p_task_or_res = 'ASSIGNMENT' THEN
9924:
9925: IF l_delete_assmt_flag_tbl.count=0 THEN
9926: IF l_debug_mode = 'Y' THEN
9927: pa_debug.g_err_stage:='No elements in the l_delete_assmt_flag_tbl';
9928: print_msg(pa_debug.g_err_stage,l_module_name);
9929: pa_debug.reset_curr_function;
9930: END IF;
9931: RETURN;
9924:
9925: IF l_delete_assmt_flag_tbl.count=0 THEN
9926: IF l_debug_mode = 'Y' THEN
9927: pa_debug.g_err_stage:='No elements in the l_delete_assmt_flag_tbl';
9928: print_msg(pa_debug.g_err_stage,l_module_name);
9929: pa_debug.reset_curr_function;
9930: END IF;
9931: RETURN;
9932: END IF;
9925: IF l_delete_assmt_flag_tbl.count=0 THEN
9926: IF l_debug_mode = 'Y' THEN
9927: pa_debug.g_err_stage:='No elements in the l_delete_assmt_flag_tbl';
9928: print_msg(pa_debug.g_err_stage,l_module_name);
9929: pa_debug.reset_curr_function;
9930: END IF;
9931: RETURN;
9932: END IF;
9933:
9932: END IF;
9933:
9934: IF l_delete_assmt_flag_tbl.count<>p_resource_assignment_tbl.count THEN
9935: IF l_debug_mode = 'Y' THEN
9936: pa_debug.g_err_stage:='No of elements in l_delete_task_flag_tbl ';
9937: pa_debug.g_err_stage:=pa_debug.g_err_stage||'and p_resource_assignment_tbl dont match';
9938: print_msg(pa_debug.g_err_stage,l_module_name);
9939: END IF;
9940: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9933:
9934: IF l_delete_assmt_flag_tbl.count<>p_resource_assignment_tbl.count THEN
9935: IF l_debug_mode = 'Y' THEN
9936: pa_debug.g_err_stage:='No of elements in l_delete_task_flag_tbl ';
9937: pa_debug.g_err_stage:=pa_debug.g_err_stage||'and p_resource_assignment_tbl dont match';
9938: print_msg(pa_debug.g_err_stage,l_module_name);
9939: END IF;
9940: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9941: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
9934: IF l_delete_assmt_flag_tbl.count<>p_resource_assignment_tbl.count THEN
9935: IF l_debug_mode = 'Y' THEN
9936: pa_debug.g_err_stage:='No of elements in l_delete_task_flag_tbl ';
9937: pa_debug.g_err_stage:=pa_debug.g_err_stage||'and p_resource_assignment_tbl dont match';
9938: print_msg(pa_debug.g_err_stage,l_module_name);
9939: END IF;
9940: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9941: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
9942: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9942: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9943: END IF;
9944:
9945: IF l_debug_mode = 'Y' THEN
9946: pa_debug.g_err_stage:='Deleting all budget lines for the res assmts for Assignment Context';
9947: print_msg(pa_debug.g_err_stage,l_module_name);
9948: END IF;
9949:
9950: FORALL i IN l_delete_assmt_flag_tbl.first..l_delete_assmt_flag_tbl.last
9943: END IF;
9944:
9945: IF l_debug_mode = 'Y' THEN
9946: pa_debug.g_err_stage:='Deleting all budget lines for the res assmts for Assignment Context';
9947: print_msg(pa_debug.g_err_stage,l_module_name);
9948: END IF;
9949:
9950: FORALL i IN l_delete_assmt_flag_tbl.first..l_delete_assmt_flag_tbl.last
9951: DELETE
10003: l_pfc_cur_conv_rej_code_tbl,
10004: l_resource_assignment_id_tbl;
10005:
10006: IF l_debug_mode = 'Y' THEN
10007: pa_debug.g_err_stage:='Deleting all resource assignments for the tasks for which the fla is passed as Y';
10008: print_msg(pa_debug.g_err_stage,l_module_name);
10009: END IF;
10010:
10011: -- IPM changes - populate tmp table to use for deletion later
10004: l_resource_assignment_id_tbl;
10005:
10006: IF l_debug_mode = 'Y' THEN
10007: pa_debug.g_err_stage:='Deleting all resource assignments for the tasks for which the fla is passed as Y';
10008: print_msg(pa_debug.g_err_stage,l_module_name);
10009: END IF;
10010:
10011: -- IPM changes - populate tmp table to use for deletion later
10012: -- hr_utility.trace('RM DEL6');
10080: IF p_task_or_res = 'TASKS' THEN
10081:
10082: IF p_element_version_id_tbl.count=0 THEN
10083: IF l_debug_mode = 'Y' THEN
10084: pa_debug.g_err_stage:='No elements in the p_element_version_id_tbl';
10085: print_msg(pa_debug.g_err_stage,l_module_name);
10086: pa_debug.reset_curr_function;
10087: END IF;
10088: RETURN;
10081:
10082: IF p_element_version_id_tbl.count=0 THEN
10083: IF l_debug_mode = 'Y' THEN
10084: pa_debug.g_err_stage:='No elements in the p_element_version_id_tbl';
10085: print_msg(pa_debug.g_err_stage,l_module_name);
10086: pa_debug.reset_curr_function;
10087: END IF;
10088: RETURN;
10089: END IF;
10082: IF p_element_version_id_tbl.count=0 THEN
10083: IF l_debug_mode = 'Y' THEN
10084: pa_debug.g_err_stage:='No elements in the p_element_version_id_tbl';
10085: print_msg(pa_debug.g_err_stage,l_module_name);
10086: pa_debug.reset_curr_function;
10087: END IF;
10088: RETURN;
10089: END IF;
10090:
10098: l_ta_display_flag:='N'; */ --Bug 3808720
10099: END IF;
10100:
10101: IF l_debug_mode = 'Y' THEN
10102: pa_debug.g_err_stage:='l_wp_version_flag IS '||l_wp_version_flag;
10103: print_msg(pa_debug.g_err_stage,l_module_name);
10104: END IF;
10105:
10106:
10099: END IF;
10100:
10101: IF l_debug_mode = 'Y' THEN
10102: pa_debug.g_err_stage:='l_wp_version_flag IS '||l_wp_version_flag;
10103: print_msg(pa_debug.g_err_stage,l_module_name);
10104: END IF;
10105:
10106:
10107: IF p_context in (PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET,
10113:
10114:
10115: If l_budget_version_id is NOT NULL Then --Bug fix:5349668 --{
10116: IF l_debug_mode = 'Y' THEN
10117: pa_debug.g_err_stage:='2..Deleting budget lines based on Task element Version Ids';
10118: print_msg(pa_debug.g_err_stage,l_module_name);
10119: END IF;
10120: FORALL i IN p_element_version_id_tbl.first..p_element_version_id_tbl.last
10121: DELETE
10114:
10115: If l_budget_version_id is NOT NULL Then --Bug fix:5349668 --{
10116: IF l_debug_mode = 'Y' THEN
10117: pa_debug.g_err_stage:='2..Deleting budget lines based on Task element Version Ids';
10118: print_msg(pa_debug.g_err_stage,l_module_name);
10119: END IF;
10120: FORALL i IN p_element_version_id_tbl.first..p_element_version_id_tbl.last
10121: DELETE
10122: FROM pa_budget_lines pbl
10202: END IF;
10203: End If; --}
10204:
10205: IF l_debug_mode = 'Y' THEN
10206: pa_debug.g_err_stage:='Deleting all res assmts for which the flag is passed as Y';
10207: print_msg(pa_debug.g_err_stage,l_module_name);
10208: END IF;
10209:
10210: If p_element_version_id_tbl.COUNT > 0 AND l_budget_version_id is NOT NULL Then --Bug fix:5349668 --{
10203: End If; --}
10204:
10205: IF l_debug_mode = 'Y' THEN
10206: pa_debug.g_err_stage:='Deleting all res assmts for which the flag is passed as Y';
10207: print_msg(pa_debug.g_err_stage,l_module_name);
10208: END IF;
10209:
10210: If p_element_version_id_tbl.COUNT > 0 AND l_budget_version_id is NOT NULL Then --Bug fix:5349668 --{
10211: FORALL i IN p_element_version_id_tbl.first..p_element_version_id_tbl.last
10255: ELSIF p_task_or_res = 'ASSIGNMENT' THEN
10256:
10257: IF p_resource_assignment_tbl.count=0 THEN
10258: IF l_debug_mode = 'Y' THEN
10259: pa_debug.g_err_stage:='No elements in the p_resource_assignment_tbl';
10260: print_msg(pa_debug.g_err_stage,l_module_name);
10261: pa_debug.reset_curr_function;
10262: END IF;
10263: RETURN;
10256:
10257: IF p_resource_assignment_tbl.count=0 THEN
10258: IF l_debug_mode = 'Y' THEN
10259: pa_debug.g_err_stage:='No elements in the p_resource_assignment_tbl';
10260: print_msg(pa_debug.g_err_stage,l_module_name);
10261: pa_debug.reset_curr_function;
10262: END IF;
10263: RETURN;
10264: END IF;
10257: IF p_resource_assignment_tbl.count=0 THEN
10258: IF l_debug_mode = 'Y' THEN
10259: pa_debug.g_err_stage:='No elements in the p_resource_assignment_tbl';
10260: print_msg(pa_debug.g_err_stage,l_module_name);
10261: pa_debug.reset_curr_function;
10262: END IF;
10263: RETURN;
10264: END IF;
10265:
10267:
10268: IF p_currency_code_tbl.COUNT > 0 THEN --If Currnecy Code is Passed.
10269: IF p_resource_assignment_tbl.count <> p_currency_code_tbl.COUNT THEN --Count Should be equal to ra id count
10270: IF l_debug_mode = 'Y' THEN
10271: pa_debug.g_err_stage:='Count Mismatch for currency code and Reource Assignment';
10272: print_msg(pa_debug.g_err_stage,l_module_name);
10273: END IF;
10274: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10275: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10268: IF p_currency_code_tbl.COUNT > 0 THEN --If Currnecy Code is Passed.
10269: IF p_resource_assignment_tbl.count <> p_currency_code_tbl.COUNT THEN --Count Should be equal to ra id count
10270: IF l_debug_mode = 'Y' THEN
10271: pa_debug.g_err_stage:='Count Mismatch for currency code and Reource Assignment';
10272: print_msg(pa_debug.g_err_stage,l_module_name);
10273: END IF;
10274: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10275: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10276: p_token1 => 'PROCEDURENAME',
10287: --Checking for the existence of budget lines for the element version ids passed. Bug 3589130
10288: IF p_validate_delete_flag='Y' THEN
10289:
10290: IF l_debug_mode = 'Y' THEN
10291: pa_debug.g_err_stage:='Checking for the existence of budget lines';
10292: print_msg(pa_debug.g_err_stage,l_module_name);
10293: END IF;
10294:
10295: BEGIN
10288: IF p_validate_delete_flag='Y' THEN
10289:
10290: IF l_debug_mode = 'Y' THEN
10291: pa_debug.g_err_stage:='Checking for the existence of budget lines';
10292: print_msg(pa_debug.g_err_stage,l_module_name);
10293: END IF;
10294:
10295: BEGIN
10296: FOR i IN p_resource_assignment_tbl.first..p_resource_assignment_tbl.last LOOP
10322:
10323: EXCEPTION
10324: WHEN SKIP_LOOP THEN
10325: IF l_debug_mode = 'Y' THEN
10326: pa_debug.g_err_stage:='Budget lines exist for the resource assignment id passed '||p_resource_assignment_tbl(i);
10327: print_msg(pa_debug.g_err_stage,l_module_name);
10328: END IF;
10329: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10330: p_msg_name => 'PA_FP_AMT_EXISTS_FOR_PLAN_ELEM');
10323: EXCEPTION
10324: WHEN SKIP_LOOP THEN
10325: IF l_debug_mode = 'Y' THEN
10326: pa_debug.g_err_stage:='Budget lines exist for the resource assignment id passed '||p_resource_assignment_tbl(i);
10327: print_msg(pa_debug.g_err_stage,l_module_name);
10328: END IF;
10329: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10330: p_msg_name => 'PA_FP_AMT_EXISTS_FOR_PLAN_ELEM');
10331: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10339: -- Bug Fix: 4569365. Removed MRC code.
10340: END IF;
10341:
10342: IF l_debug_mode = 'Y' THEN
10343: pa_debug.g_err_stage:='Deleting all budget lines ';
10344: print_msg(pa_debug.g_err_stage,l_module_name);
10345: END IF;
10346:
10347: FORALL i IN p_resource_assignment_tbl.first..p_resource_assignment_tbl.last
10340: END IF;
10341:
10342: IF l_debug_mode = 'Y' THEN
10343: pa_debug.g_err_stage:='Deleting all budget lines ';
10344: print_msg(pa_debug.g_err_stage,l_module_name);
10345: END IF;
10346:
10347: FORALL i IN p_resource_assignment_tbl.first..p_resource_assignment_tbl.last
10348: DELETE
10428:
10429: IF nvl(p_calling_module,'-99') <> 'PROCESS_RES_CHG_DERV_CALC_PRMS' THEN
10430:
10431: IF l_debug_mode = 'Y' THEN
10432: pa_debug.g_err_stage:='Deleting all res assmts for which the flag is passed as Y';
10433: print_msg(pa_debug.g_err_stage,l_module_name);
10434: END IF;
10435:
10436: FORALL i IN p_resource_assignment_tbl.first..p_resource_assignment_tbl.last
10429: IF nvl(p_calling_module,'-99') <> 'PROCESS_RES_CHG_DERV_CALC_PRMS' THEN
10430:
10431: IF l_debug_mode = 'Y' THEN
10432: pa_debug.g_err_stage:='Deleting all res assmts for which the flag is passed as Y';
10433: print_msg(pa_debug.g_err_stage,l_module_name);
10434: END IF;
10435:
10436: FORALL i IN p_resource_assignment_tbl.first..p_resource_assignment_tbl.last
10437: DELETE
10481:
10482: --Rollup the amounts to budget versions as some of the budget lines with amounts might have got
10483: --deleted
10484: IF l_debug_mode = 'Y' THEN
10485: pa_debug.g_err_stage:='No of Rec Deleted from RA : ' || l_ra_id_in_pra_tbl.COUNT;
10486: print_msg(pa_debug.g_err_stage,l_module_name);
10487: IF l_ra_id_in_pra_tbl.COUNT > 0 THEN
10488: FOR i in l_ra_id_in_pra_tbl.FIRST .. l_ra_id_in_pra_tbl.LAST LOOP
10489: pa_debug.g_err_stage:='Deleted RA Id : ' || l_ra_id_in_pra_tbl(i);
10482: --Rollup the amounts to budget versions as some of the budget lines with amounts might have got
10483: --deleted
10484: IF l_debug_mode = 'Y' THEN
10485: pa_debug.g_err_stage:='No of Rec Deleted from RA : ' || l_ra_id_in_pra_tbl.COUNT;
10486: print_msg(pa_debug.g_err_stage,l_module_name);
10487: IF l_ra_id_in_pra_tbl.COUNT > 0 THEN
10488: FOR i in l_ra_id_in_pra_tbl.FIRST .. l_ra_id_in_pra_tbl.LAST LOOP
10489: pa_debug.g_err_stage:='Deleted RA Id : ' || l_ra_id_in_pra_tbl(i);
10490: print_msg(pa_debug.g_err_stage,l_module_name);
10485: pa_debug.g_err_stage:='No of Rec Deleted from RA : ' || l_ra_id_in_pra_tbl.COUNT;
10486: print_msg(pa_debug.g_err_stage,l_module_name);
10487: IF l_ra_id_in_pra_tbl.COUNT > 0 THEN
10488: FOR i in l_ra_id_in_pra_tbl.FIRST .. l_ra_id_in_pra_tbl.LAST LOOP
10489: pa_debug.g_err_stage:='Deleted RA Id : ' || l_ra_id_in_pra_tbl(i);
10490: print_msg(pa_debug.g_err_stage,l_module_name);
10491: END LOOP;
10492: END IF;
10493: END IF;
10486: print_msg(pa_debug.g_err_stage,l_module_name);
10487: IF l_ra_id_in_pra_tbl.COUNT > 0 THEN
10488: FOR i in l_ra_id_in_pra_tbl.FIRST .. l_ra_id_in_pra_tbl.LAST LOOP
10489: pa_debug.g_err_stage:='Deleted RA Id : ' || l_ra_id_in_pra_tbl(i);
10490: print_msg(pa_debug.g_err_stage,l_module_name);
10491: END LOOP;
10492: END IF;
10493: END IF;
10494:
10498: -- if records have been inserted in pa_Resource_asgn_curr_tmp, in the delete flow.
10499: -- Note: Deriving l_budget_version_id may not be the right approach as we avoid calling BV/RA
10500: -- rollup api and pji api when l_budget_version_id is null (No BLs deleted)
10501: IF l_budget_version_id IS NOT NULL THEN
10502: pa_debug.g_err_stage:='Calling pa_fp_gen_amount_utils.get_plan_version_dtls:bv_id ' || l_budget_version_id;
10503: print_msg(pa_debug.g_err_stage,l_module_name);
10504:
10505: pa_fp_gen_amount_utils.get_plan_version_dtls
10506: (p_project_id => l_project_id,
10499: -- Note: Deriving l_budget_version_id may not be the right approach as we avoid calling BV/RA
10500: -- rollup api and pji api when l_budget_version_id is null (No BLs deleted)
10501: IF l_budget_version_id IS NOT NULL THEN
10502: pa_debug.g_err_stage:='Calling pa_fp_gen_amount_utils.get_plan_version_dtls:bv_id ' || l_budget_version_id;
10503: print_msg(pa_debug.g_err_stage,l_module_name);
10504:
10505: pa_fp_gen_amount_utils.get_plan_version_dtls
10506: (p_project_id => l_project_id,
10507: p_budget_version_id => l_budget_version_id,
10512:
10513: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10514:
10515: IF l_debug_mode = 'Y' THEN
10516: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
10517: print_msg(pa_debug.g_err_stage,l_module_name);
10518: END IF;
10519: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10520: END IF;
10513: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10514:
10515: IF l_debug_mode = 'Y' THEN
10516: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
10517: print_msg(pa_debug.g_err_stage,l_module_name);
10518: END IF;
10519: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10520: END IF;
10521:
10518: END IF;
10519: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10520: END IF;
10521:
10522: pa_debug.g_err_stage:='Calling pa_res_asg_currency_pub.maintain_data:bv_id ' || l_budget_version_id;
10523: print_msg(pa_debug.g_err_stage,l_module_name);
10524:
10525: pa_res_asg_currency_pub.maintain_data(
10526: p_fp_cols_rec => l_fp_cols_rec,
10519: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10520: END IF;
10521:
10522: pa_debug.g_err_stage:='Calling pa_res_asg_currency_pub.maintain_data:bv_id ' || l_budget_version_id;
10523: print_msg(pa_debug.g_err_stage,l_module_name);
10524:
10525: pa_res_asg_currency_pub.maintain_data(
10526: p_fp_cols_rec => l_fp_cols_rec,
10527: p_calling_module => 'UPDATE_PLAN_TRANSACTION',
10539:
10540: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10541:
10542: IF l_debug_mode = 'Y' THEN
10543: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
10544: print_msg(pa_debug.g_err_stage,l_module_name);
10545: END IF;
10546: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10547: END IF;
10540: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10541:
10542: IF l_debug_mode = 'Y' THEN
10543: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
10544: print_msg(pa_debug.g_err_stage,l_module_name);
10545: END IF;
10546: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10547: END IF;
10548:
10563: l_mode := null;
10564: END IF;
10565:
10566: IF l_budget_version_id IS NOT NULL THEN
10567: pa_debug.g_err_stage:='Calling PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION:l_budget_version_id '||l_budget_version_id;
10568: print_msg(pa_debug.g_err_stage,l_module_name);
10569:
10570: PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION
10571: ( p_budget_version_id => l_budget_version_id
10564: END IF;
10565:
10566: IF l_budget_version_id IS NOT NULL THEN
10567: pa_debug.g_err_stage:='Calling PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION:l_budget_version_id '||l_budget_version_id;
10568: print_msg(pa_debug.g_err_stage,l_module_name);
10569:
10570: PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION
10571: ( p_budget_version_id => l_budget_version_id
10572: ,p_entire_version => 'Y'
10576: ,x_msg_data => l_msg_data);
10577:
10578: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10579: IF l_debug_mode = 'Y' THEN
10580: pa_debug.g_err_stage:='The API PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION returned error';
10581: print_msg(pa_debug.g_err_stage,l_module_name);
10582: END IF;
10583: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10584: END IF;
10577:
10578: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10579: IF l_debug_mode = 'Y' THEN
10580: pa_debug.g_err_stage:='The API PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION returned error';
10581: print_msg(pa_debug.g_err_stage,l_module_name);
10582: END IF;
10583: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10584: END IF;
10585:
10597:
10598: IF l_resource_assignment_id_tbl.count >0 THEN
10599:
10600: IF l_debug_mode = 'Y' THEN
10601: pa_debug.g_err_stage:='Prepare pl/sql tables for rbs element id and task id';
10602: print_msg(pa_debug.g_err_stage,l_module_name);
10603: END IF;
10604:
10605: --Prepare the pl/sql tables for task id, rbs element id , resource class code and rate based flag.
10598: IF l_resource_assignment_id_tbl.count >0 THEN
10599:
10600: IF l_debug_mode = 'Y' THEN
10601: pa_debug.g_err_stage:='Prepare pl/sql tables for rbs element id and task id';
10602: print_msg(pa_debug.g_err_stage,l_module_name);
10603: END IF;
10604:
10605: --Prepare the pl/sql tables for task id, rbs element id , resource class code and rate based flag.
10606: --These pl/sql tables should be same in length to the pl/sql tables prepared while deleting the budget
10621: LOOP
10622: IF l_ra_id_in_pra_tbl.EXISTS(l_ra_index) THEN
10623: IF l_ra_id_in_pra_tbl(l_ra_index) = l_resource_assignment_id_tbl(i) THEN
10624: IF l_debug_mode = 'Y' THEN
10625: pa_debug.g_err_stage:='Stepping In - l_ra_index : '||l_ra_index;
10626: print_msg(pa_debug.g_err_stage,l_module_name);
10627: END IF;
10628: l_task_id := l_task_id_in_pra_tbl(l_ra_index);
10629: l_rbs_element_id := l_rbs_element_id_in_pra_tbl(l_ra_index);
10622: IF l_ra_id_in_pra_tbl.EXISTS(l_ra_index) THEN
10623: IF l_ra_id_in_pra_tbl(l_ra_index) = l_resource_assignment_id_tbl(i) THEN
10624: IF l_debug_mode = 'Y' THEN
10625: pa_debug.g_err_stage:='Stepping In - l_ra_index : '||l_ra_index;
10626: print_msg(pa_debug.g_err_stage,l_module_name);
10627: END IF;
10628: l_task_id := l_task_id_in_pra_tbl(l_ra_index);
10629: l_rbs_element_id := l_rbs_element_id_in_pra_tbl(l_ra_index);
10630: l_res_class_code := l_res_class_code_in_pra_tbl(l_ra_index);
10631: l_rate_based_flag := l_rate_based_flag_in_pra_tbl(l_ra_index);
10632: EXIT; --Exit LOOP
10633: ELSE
10634: IF l_debug_mode = 'Y' THEN
10635: pa_debug.g_err_stage:='Stepping Over - l_ra_index : '||l_ra_index;
10636: print_msg(pa_debug.g_err_stage,l_module_name);
10637: END IF;
10638: l_ra_index:=l_ra_index+1;
10639: END IF;
10632: EXIT; --Exit LOOP
10633: ELSE
10634: IF l_debug_mode = 'Y' THEN
10635: pa_debug.g_err_stage:='Stepping Over - l_ra_index : '||l_ra_index;
10636: print_msg(pa_debug.g_err_stage,l_module_name);
10637: END IF;
10638: l_ra_index:=l_ra_index+1;
10639: END IF;
10640: ELSE
10639: END IF;
10640: ELSE
10641: BEGIN
10642: IF l_debug_mode = 'Y' THEN
10643: pa_debug.g_err_stage:='Fetching Data from PA Res Assignment';
10644: print_msg(pa_debug.g_err_stage,l_module_name);
10645: END IF;
10646: SELECT TASK_ID,
10647: RBS_ELEMENT_ID,
10640: ELSE
10641: BEGIN
10642: IF l_debug_mode = 'Y' THEN
10643: pa_debug.g_err_stage:='Fetching Data from PA Res Assignment';
10644: print_msg(pa_debug.g_err_stage,l_module_name);
10645: END IF;
10646: SELECT TASK_ID,
10647: RBS_ELEMENT_ID,
10648: RESOURCE_CLASS_CODE,
10658:
10659: EXCEPTION
10660: WHEN NO_DATA_FOUND THEN
10661: IF l_debug_mode = 'Y' THEN
10662: pa_debug.g_err_stage:='No Data Found in RA Table for Bl deleted.';
10663: print_msg(pa_debug.g_err_stage,l_module_name);
10664: END IF;
10665: RAISE;
10666: END;
10659: EXCEPTION
10660: WHEN NO_DATA_FOUND THEN
10661: IF l_debug_mode = 'Y' THEN
10662: pa_debug.g_err_stage:='No Data Found in RA Table for Bl deleted.';
10663: print_msg(pa_debug.g_err_stage,l_module_name);
10664: END IF;
10665: RAISE;
10666: END;
10667: END IF;
10667: END IF;
10668: END LOOP;
10669:
10670: IF l_debug_mode = 'Y' THEN
10671: pa_debug.g_err_stage:='Data for Update Rep Lines';
10672: print_msg(pa_debug.g_err_stage,l_module_name);
10673:
10674: pa_debug.g_err_stage:='l_task_id '||l_task_id;
10675: print_msg(pa_debug.g_err_stage,l_module_name);
10668: END LOOP;
10669:
10670: IF l_debug_mode = 'Y' THEN
10671: pa_debug.g_err_stage:='Data for Update Rep Lines';
10672: print_msg(pa_debug.g_err_stage,l_module_name);
10673:
10674: pa_debug.g_err_stage:='l_task_id '||l_task_id;
10675: print_msg(pa_debug.g_err_stage,l_module_name);
10676:
10670: IF l_debug_mode = 'Y' THEN
10671: pa_debug.g_err_stage:='Data for Update Rep Lines';
10672: print_msg(pa_debug.g_err_stage,l_module_name);
10673:
10674: pa_debug.g_err_stage:='l_task_id '||l_task_id;
10675: print_msg(pa_debug.g_err_stage,l_module_name);
10676:
10677: pa_debug.g_err_stage:='l_rbs_element_id '||l_rbs_element_id;
10678: print_msg(pa_debug.g_err_stage,l_module_name);
10671: pa_debug.g_err_stage:='Data for Update Rep Lines';
10672: print_msg(pa_debug.g_err_stage,l_module_name);
10673:
10674: pa_debug.g_err_stage:='l_task_id '||l_task_id;
10675: print_msg(pa_debug.g_err_stage,l_module_name);
10676:
10677: pa_debug.g_err_stage:='l_rbs_element_id '||l_rbs_element_id;
10678: print_msg(pa_debug.g_err_stage,l_module_name);
10679:
10673:
10674: pa_debug.g_err_stage:='l_task_id '||l_task_id;
10675: print_msg(pa_debug.g_err_stage,l_module_name);
10676:
10677: pa_debug.g_err_stage:='l_rbs_element_id '||l_rbs_element_id;
10678: print_msg(pa_debug.g_err_stage,l_module_name);
10679:
10680: pa_debug.g_err_stage:='l_res_class_code '||l_res_class_code;
10681: print_msg(pa_debug.g_err_stage,l_module_name);
10674: pa_debug.g_err_stage:='l_task_id '||l_task_id;
10675: print_msg(pa_debug.g_err_stage,l_module_name);
10676:
10677: pa_debug.g_err_stage:='l_rbs_element_id '||l_rbs_element_id;
10678: print_msg(pa_debug.g_err_stage,l_module_name);
10679:
10680: pa_debug.g_err_stage:='l_res_class_code '||l_res_class_code;
10681: print_msg(pa_debug.g_err_stage,l_module_name);
10682:
10676:
10677: pa_debug.g_err_stage:='l_rbs_element_id '||l_rbs_element_id;
10678: print_msg(pa_debug.g_err_stage,l_module_name);
10679:
10680: pa_debug.g_err_stage:='l_res_class_code '||l_res_class_code;
10681: print_msg(pa_debug.g_err_stage,l_module_name);
10682:
10683: pa_debug.g_err_stage:='l_rate_based_flag '||l_rate_based_flag;
10684: print_msg(pa_debug.g_err_stage,l_module_name);
10677: pa_debug.g_err_stage:='l_rbs_element_id '||l_rbs_element_id;
10678: print_msg(pa_debug.g_err_stage,l_module_name);
10679:
10680: pa_debug.g_err_stage:='l_res_class_code '||l_res_class_code;
10681: print_msg(pa_debug.g_err_stage,l_module_name);
10682:
10683: pa_debug.g_err_stage:='l_rate_based_flag '||l_rate_based_flag;
10684: print_msg(pa_debug.g_err_stage,l_module_name);
10685: END IF;
10679:
10680: pa_debug.g_err_stage:='l_res_class_code '||l_res_class_code;
10681: print_msg(pa_debug.g_err_stage,l_module_name);
10682:
10683: pa_debug.g_err_stage:='l_rate_based_flag '||l_rate_based_flag;
10684: print_msg(pa_debug.g_err_stage,l_module_name);
10685: END IF;
10686:
10687: l_task_id_tbl(i) :=l_task_id;
10680: pa_debug.g_err_stage:='l_res_class_code '||l_res_class_code;
10681: print_msg(pa_debug.g_err_stage,l_module_name);
10682:
10683: pa_debug.g_err_stage:='l_rate_based_flag '||l_rate_based_flag;
10684: print_msg(pa_debug.g_err_stage,l_module_name);
10685: END IF;
10686:
10687: l_task_id_tbl(i) :=l_task_id;
10688: l_rbs_element_id_tbl(i) :=l_rbs_element_id;
10694:
10695: IF l_counter <> l_resource_assignment_id_tbl.COUNT THEN
10696:
10697: IF l_debug_mode = 'Y' THEN
10698: pa_debug.g_err_stage:='Error in preparing pl/sql tables for rbs element id and task id ';
10699: print_msg(pa_debug.g_err_stage,l_module_name);
10700: END IF;
10701:
10702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10695: IF l_counter <> l_resource_assignment_id_tbl.COUNT THEN
10696:
10697: IF l_debug_mode = 'Y' THEN
10698: pa_debug.g_err_stage:='Error in preparing pl/sql tables for rbs element id and task id ';
10699: print_msg(pa_debug.g_err_stage,l_module_name);
10700: END IF;
10701:
10702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10703:
10703:
10704: END IF;
10705:
10706: IF l_debug_mode = 'Y' THEN
10707: pa_debug.g_err_stage:='No of rows deleted from pa_budget_lines= '||l_resource_assignment_id_tbl.count;
10708: print_msg(pa_debug.g_err_stage,l_module_name);
10709: END IF;
10710:
10711:
10704: END IF;
10705:
10706: IF l_debug_mode = 'Y' THEN
10707: pa_debug.g_err_stage:='No of rows deleted from pa_budget_lines= '||l_resource_assignment_id_tbl.count;
10708: print_msg(pa_debug.g_err_stage,l_module_name);
10709: END IF;
10710:
10711:
10712:
10744: ,x_msg_count => x_msg_count );
10745:
10746: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10747: IF l_debug_mode = 'Y' THEN
10748: pa_debug.g_err_stage:='The API pa_planning_transaction_utils.call_update_rep_lines_api returned error';
10749: print_msg(pa_debug.g_err_stage,l_module_name);
10750: END IF;
10751: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10752: END IF;
10745:
10746: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10747: IF l_debug_mode = 'Y' THEN
10748: pa_debug.g_err_stage:='The API pa_planning_transaction_utils.call_update_rep_lines_api returned error';
10749: print_msg(pa_debug.g_err_stage,l_module_name);
10750: END IF;
10751: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10752: END IF;
10753:
10768: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y')) AND
10769: l_budget_version_id IS NOT NULL THEN -- Bug 5381920
10770:
10771: IF l_debug_mode = 'Y' THEN
10772: pa_debug.g_err_stage:='Calling PA_PROJ_TASK_STRUC_PUB.process_wbs_updates_wrp API';
10773: print_msg(pa_debug.g_err_stage,l_module_name);
10774: END IF;
10775:
10776: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
10769: l_budget_version_id IS NOT NULL THEN -- Bug 5381920
10770:
10771: IF l_debug_mode = 'Y' THEN
10772: pa_debug.g_err_stage:='Calling PA_PROJ_TASK_STRUC_PUB.process_wbs_updates_wrp API';
10773: print_msg(pa_debug.g_err_stage,l_module_name);
10774: END IF;
10775:
10776: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
10777: ( p_calling_context => 'ASGMT_PLAN_CHANGE'
10786:
10787: END IF;
10788: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10789: IF l_debug_mode = 'Y' THEN
10790: pa_debug.g_err_stage:='After Called process_wbs_updates_wrp:retSts['||x_return_status||']';
10791: print_msg(pa_debug.g_err_stage,l_module_name);
10792: END IF;
10793:
10794: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10787: END IF;
10788: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10789: IF l_debug_mode = 'Y' THEN
10790: pa_debug.g_err_stage:='After Called process_wbs_updates_wrp:retSts['||x_return_status||']';
10791: print_msg(pa_debug.g_err_stage,l_module_name);
10792: END IF;
10793:
10794: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10795: END IF;
10795: END IF;
10796: --End bug 4492493
10797:
10798: IF l_debug_mode = 'Y' THEN
10799: pa_debug.g_err_stage:='Exiting delete_planning_transactions';
10800: print_msg(pa_debug.g_err_stage,l_module_name);
10801: -- reset curr function
10802: pa_debug.reset_curr_function;
10803: END IF;
10796: --End bug 4492493
10797:
10798: IF l_debug_mode = 'Y' THEN
10799: pa_debug.g_err_stage:='Exiting delete_planning_transactions';
10800: print_msg(pa_debug.g_err_stage,l_module_name);
10801: -- reset curr function
10802: pa_debug.reset_curr_function;
10803: END IF;
10804: EXCEPTION
10798: IF l_debug_mode = 'Y' THEN
10799: pa_debug.g_err_stage:='Exiting delete_planning_transactions';
10800: print_msg(pa_debug.g_err_stage,l_module_name);
10801: -- reset curr function
10802: pa_debug.reset_curr_function;
10803: END IF;
10804: EXCEPTION
10805:
10806: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10822:
10823: x_return_status := FND_API.G_RET_STS_ERROR;
10824:
10825: IF l_debug_mode = 'Y' THEN
10826: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
10827: print_msg(pa_debug.g_err_stage,l_module_name);
10828: -- reset curr function
10829: pa_debug.reset_curr_function;
10830: END IF;
10823: x_return_status := FND_API.G_RET_STS_ERROR;
10824:
10825: IF l_debug_mode = 'Y' THEN
10826: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
10827: print_msg(pa_debug.g_err_stage,l_module_name);
10828: -- reset curr function
10829: pa_debug.reset_curr_function;
10830: END IF;
10831: RETURN;
10825: IF l_debug_mode = 'Y' THEN
10826: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
10827: print_msg(pa_debug.g_err_stage,l_module_name);
10828: -- reset curr function
10829: pa_debug.reset_curr_function;
10830: END IF;
10831: RETURN;
10832: WHEN OTHERS THEN
10833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10837: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_planning_transaction_pub'
10838: ,p_procedure_name => 'delete_planning_transactions');
10839:
10840: IF l_debug_mode = 'Y' THEN
10841: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10842: print_msg(pa_debug.g_err_stage,l_module_name);
10843: -- reset curr function
10844: pa_debug.Reset_Curr_Function();
10845: END IF;
10838: ,p_procedure_name => 'delete_planning_transactions');
10839:
10840: IF l_debug_mode = 'Y' THEN
10841: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10842: print_msg(pa_debug.g_err_stage,l_module_name);
10843: -- reset curr function
10844: pa_debug.Reset_Curr_Function();
10845: END IF;
10846: RAISE;
10840: IF l_debug_mode = 'Y' THEN
10841: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10842: print_msg(pa_debug.g_err_stage,l_module_name);
10843: -- reset curr function
10844: pa_debug.Reset_Curr_Function();
10845: END IF;
10846: RAISE;
10847: END delete_planning_transactions;
10848:
10888: l_plan_in_multi_curr_flag pa_proj_fp_options.plan_in_multi_curr_flag%TYPE;
10889: l_src_fp_option_id pa_proj_fp_options.proj_fp_options_id%TYPE;
10890: BEGIN
10891:
10892: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
10893: l_debug_mode := NVL(l_debug_mode, 'N');
10894: x_msg_count := 0;
10895: x_return_status := FND_API.G_RET_STS_SUCCESS;
10896: IF l_debug_mode = 'Y' THEN
10893: l_debug_mode := NVL(l_debug_mode, 'N');
10894: x_msg_count := 0;
10895: x_return_status := FND_API.G_RET_STS_SUCCESS;
10896: IF l_debug_mode = 'Y' THEN
10897: PA_DEBUG.Set_Curr_Function( p_function => 'PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type',
10898: p_debug_mode => l_debug_mode );
10899: END IF;
10900: ---------------------------------------------------------------
10901: -- validating input parameter p_project_id.
10901: -- validating input parameter p_project_id.
10902: -- p_project_id cannot be passed as null.
10903: ---------------------------------------------------------------
10904: IF l_debug_mode = 'Y' THEN
10905: pa_debug.g_err_stage:='Validating input parameters';
10906: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,3);
10907: END IF;
10908:
10909: IF (p_src_project_id IS NULL) OR
10902: -- p_project_id cannot be passed as null.
10903: ---------------------------------------------------------------
10904: IF l_debug_mode = 'Y' THEN
10905: pa_debug.g_err_stage:='Validating input parameters';
10906: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,3);
10907: END IF;
10908:
10909: IF (p_src_project_id IS NULL) OR
10910: (p_targ_project_id IS NULL) THEN
10908:
10909: IF (p_src_project_id IS NULL) OR
10910: (p_targ_project_id IS NULL) THEN
10911: IF l_debug_mode = 'Y' THEN
10912: pa_debug.g_err_stage:='Invalid Arguments Passed - src and targ Project Ids are null';
10913: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,5);
10914: END IF;
10915: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10916: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
10909: IF (p_src_project_id IS NULL) OR
10910: (p_targ_project_id IS NULL) THEN
10911: IF l_debug_mode = 'Y' THEN
10912: pa_debug.g_err_stage:='Invalid Arguments Passed - src and targ Project Ids are null';
10913: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,5);
10914: END IF;
10915: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10916: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
10917: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10922: -- enable_wp_flag = 'Y'
10923: ---------------------------------------------------------------
10924:
10925: IF l_debug_mode = 'Y' THEN
10926: pa_debug.g_err_stage:='checking availability of a wp type';
10927: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,3);
10928: END IF;
10929:
10930: ---------------------------------------------------------
10923: ---------------------------------------------------------------
10924:
10925: IF l_debug_mode = 'Y' THEN
10926: pa_debug.g_err_stage:='checking availability of a wp type';
10927: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,3);
10928: END IF;
10929:
10930: ---------------------------------------------------------
10931: -- In case of no data found, the exception handling block
10941: EXCEPTION
10942:
10943: WHEN NO_DATA_FOUND THEN
10944: IF l_debug_mode = 'Y' THEN
10945: pa_debug.g_err_stage :='No WORK PLAN TYPE present in the system';
10946: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,1);
10947: END IF;
10948:
10949: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10942:
10943: WHEN NO_DATA_FOUND THEN
10944: IF l_debug_mode = 'Y' THEN
10945: pa_debug.g_err_stage :='No WORK PLAN TYPE present in the system';
10946: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,1);
10947: END IF;
10948:
10949: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10950: p_msg_name => 'PA_FP_NO_WP_PLAN_TYPE' );
10956: -- Checking if workplan_type is already attched for the
10957: -- passed project_id
10958: ---------------------------------------------------------
10959: IF l_debug_mode = 'Y' THEN
10960: pa_debug.g_err_stage:='checking if wp type is already attched for project id';
10961: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,3);
10962: END IF;
10963:
10964: BEGIN -- BLOCK to check if workplan_type is already attched for the passed project_id - Starts
10957: -- passed project_id
10958: ---------------------------------------------------------
10959: IF l_debug_mode = 'Y' THEN
10960: pa_debug.g_err_stage:='checking if wp type is already attched for project id';
10961: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,3);
10962: END IF;
10963:
10964: BEGIN -- BLOCK to check if workplan_type is already attched for the passed project_id - Starts
10965:
10987:
10988: IF l_proj_wp_type_exists = 0 THEN
10989:
10990: IF l_debug_mode = 'Y' THEN
10991: pa_debug.g_err_stage:='Getting the fp option id for the wp plan type of the source project ';
10992: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,3);
10993: END IF;
10994:
10995: IF p_src_project_id <> p_targ_project_id THEN
10988: IF l_proj_wp_type_exists = 0 THEN
10989:
10990: IF l_debug_mode = 'Y' THEN
10991: pa_debug.g_err_stage:='Getting the fp option id for the wp plan type of the source project ';
10992: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,3);
10993: END IF;
10994:
10995: IF p_src_project_id <> p_targ_project_id THEN
10996:
11010: END IF;
11011:
11012:
11013: IF l_debug_mode = 'Y' THEN
11014: pa_debug.g_err_stage:='Calling API pa_proj_fp_options_pub.create_fp_option';
11015: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,3);
11016: END IF;
11017:
11018: IF l_debug_mode = 'Y' THEN
11011:
11012:
11013: IF l_debug_mode = 'Y' THEN
11014: pa_debug.g_err_stage:='Calling API pa_proj_fp_options_pub.create_fp_option';
11015: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,3);
11016: END IF;
11017:
11018: IF l_debug_mode = 'Y' THEN
11019: pa_debug.g_err_stage:='The source fp option id is '||l_src_fp_option_id;
11015: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,3);
11016: END IF;
11017:
11018: IF l_debug_mode = 'Y' THEN
11019: pa_debug.g_err_stage:='The source fp option id is '||l_src_fp_option_id;
11020: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,3);
11021: END IF;
11022:
11023:
11016: END IF;
11017:
11018: IF l_debug_mode = 'Y' THEN
11019: pa_debug.g_err_stage:='The source fp option id is '||l_src_fp_option_id;
11020: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,3);
11021: END IF;
11022:
11023:
11024: pa_proj_fp_options_pub.Create_FP_Option (
11034: ,x_msg_data => l_msg_data);
11035:
11036: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11037: IF l_debug_mode = 'Y' THEN
11038: pa_debug.g_err_stage:='Called API pa_proj_fp_options_pub.Create_FP_Option returned error';
11039: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,5);
11040: END IF;
11041: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11042: END IF;
11035:
11036: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11037: IF l_debug_mode = 'Y' THEN
11038: pa_debug.g_err_stage:='Called API pa_proj_fp_options_pub.Create_FP_Option returned error';
11039: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,5);
11040: END IF;
11041: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11042: END IF;
11043:
11046: FROM pa_proj_fp_options
11047: WHERE proj_fp_options_id = l_proj_fp_options_id;
11048:
11049: IF l_debug_mode = 'Y' THEN
11050: pa_debug.g_err_stage:='Calling API pa_fp_txn_currencies_pub.Copy_Fp_Txn_Currencies';
11051: pa_debug.write('Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,3);
11052: END IF;
11053:
11054: PA_FP_TXN_CURRENCIES_PUB.COPY_FP_TXN_CURRENCIES (
11047: WHERE proj_fp_options_id = l_proj_fp_options_id;
11048:
11049: IF l_debug_mode = 'Y' THEN
11050: pa_debug.g_err_stage:='Calling API pa_fp_txn_currencies_pub.Copy_Fp_Txn_Currencies';
11051: pa_debug.write('Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,3);
11052: END IF;
11053:
11054: PA_FP_TXN_CURRENCIES_PUB.COPY_FP_TXN_CURRENCIES (
11055: p_source_fp_option_id => l_src_fp_option_id
11061: ,x_msg_data => l_msg_data );
11062:
11063: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11064: IF l_debug_mode = 'Y' THEN
11065: pa_debug.g_err_stage:='Called API PA_FP_TXN_CURRENCIES_PUB.COPY_FP_TXN_CURRENCIES returned error';
11066: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,5);
11067: END IF;
11068: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11069: END IF;
11062:
11063: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11064: IF l_debug_mode = 'Y' THEN
11065: pa_debug.g_err_stage:='Called API PA_FP_TXN_CURRENCIES_PUB.COPY_FP_TXN_CURRENCIES returned error';
11066: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,5);
11067: END IF;
11068: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11069: END IF;
11070:
11069: END IF;
11070:
11071: END IF;
11072: IF l_debug_mode = 'Y' THEN
11073: pa_debug.reset_curr_function;
11074: END IF;
11075:
11076: EXCEPTION
11077:
11091: x_msg_count := l_msg_count;
11092: END IF;
11093: x_return_status := FND_API.G_RET_STS_ERROR;
11094: IF l_debug_mode = 'Y' THEN
11095: pa_debug.reset_curr_function;
11096: END IF;
11097: WHEN OTHERS THEN
11098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11099: x_msg_count := 1;
11101: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_PLANNING_TRANSACTION_PUB'
11102: ,p_procedure_name => 'PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type');
11103:
11104: IF l_debug_mode = 'Y' THEN
11105: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
11106: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,5);
11107: pa_debug.reset_curr_function;
11108: END IF;
11109: RAISE;
11102: ,p_procedure_name => 'PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type');
11103:
11104: IF l_debug_mode = 'Y' THEN
11105: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
11106: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,5);
11107: pa_debug.reset_curr_function;
11108: END IF;
11109: RAISE;
11110:
11103:
11104: IF l_debug_mode = 'Y' THEN
11105: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
11106: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,5);
11107: pa_debug.reset_curr_function;
11108: END IF;
11109: RAISE;
11110:
11111: END add_wp_plan_type;
11193: AND resource_class_code in (PA_FP_CONSTANTS_PKG.G_RESOURCE_CLASS_CODE_PPL);
11194:
11195: BEGIN
11196:
11197: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
11198: l_debug_mode := NVL(l_debug_mode, 'N');
11199: x_msg_count := 0;
11200: x_return_status := FND_API.G_RET_STS_SUCCESS;
11201: IF l_debug_mode = 'Y' THEN
11198: l_debug_mode := NVL(l_debug_mode, 'N');
11199: x_msg_count := 0;
11200: x_return_status := FND_API.G_RET_STS_SUCCESS;
11201: IF l_debug_mode = 'Y' THEN
11202: PA_DEBUG.Set_Curr_Function( p_function => 'fp_planning_txn_pub.chk_and_create_task',
11203: p_debug_mode => l_debug_mode );
11204: END IF;
11205: -----------------------------------------------------------------------
11206: -- Input Parameter Validation. If no element version id is passed then
11209: l_elem_ver_id_cnt := p_element_version_id_tbl.COUNT;
11210:
11211: --Extending the local pl/sql tables. The length of the local tables should be element version id count
11212: IF l_debug_mode = 'Y' THEN
11213: pa_debug.g_err_stage:='Extending the local pl/sql tbls';
11214: print_msg(pa_debug.g_err_stage,l_module_name);
11215: END IF;
11216: x_element_version_id_tbl := SYSTEM.PA_NUM_TBL_TYPE();
11217: x_planning_start_date_tbl := SYSTEM.PA_DATE_TBL_TYPE();
11210:
11211: --Extending the local pl/sql tables. The length of the local tables should be element version id count
11212: IF l_debug_mode = 'Y' THEN
11213: pa_debug.g_err_stage:='Extending the local pl/sql tbls';
11214: print_msg(pa_debug.g_err_stage,l_module_name);
11215: END IF;
11216: x_element_version_id_tbl := SYSTEM.PA_NUM_TBL_TYPE();
11217: x_planning_start_date_tbl := SYSTEM.PA_DATE_TBL_TYPE();
11218: x_planning_end_date_tbl := SYSTEM.PA_DATE_TBL_TYPE();
11235: x_burdened_cost_tbl.extend(l_elem_ver_id_cnt);
11236:
11237: IF l_elem_ver_id_cnt = 0 THEN
11238: IF l_debug_mode = 'Y' THEN
11239: pa_debug.g_err_stage:='Validating input parameters - No element version id is passed - return to calling entity';
11240: print_msg(pa_debug.g_err_stage,l_module_name);
11241: pa_debug.reset_curr_function;
11242: END IF;
11243: RETURN;
11236:
11237: IF l_elem_ver_id_cnt = 0 THEN
11238: IF l_debug_mode = 'Y' THEN
11239: pa_debug.g_err_stage:='Validating input parameters - No element version id is passed - return to calling entity';
11240: print_msg(pa_debug.g_err_stage,l_module_name);
11241: pa_debug.reset_curr_function;
11242: END IF;
11243: RETURN;
11244: END IF;
11237: IF l_elem_ver_id_cnt = 0 THEN
11238: IF l_debug_mode = 'Y' THEN
11239: pa_debug.g_err_stage:='Validating input parameters - No element version id is passed - return to calling entity';
11240: print_msg(pa_debug.g_err_stage,l_module_name);
11241: pa_debug.reset_curr_function;
11242: END IF;
11243: RETURN;
11244: END IF;
11245:
11267: --------------------------------------------------------------------------
11268:
11269:
11270: IF l_debug_mode = 'Y' THEN
11271: pa_debug.g_err_stage:='Iterating through the IN Parameters and Populating the Out parameters.';
11272: print_msg(pa_debug.g_err_stage,l_module_name);
11273: END IF;
11274:
11275: /* Loop through all element version ids and retrieve ra_id and res_class_code */
11268:
11269:
11270: IF l_debug_mode = 'Y' THEN
11271: pa_debug.g_err_stage:='Iterating through the IN Parameters and Populating the Out parameters.';
11272: print_msg(pa_debug.g_err_stage,l_module_name);
11273: END IF;
11274:
11275: /* Loop through all element version ids and retrieve ra_id and res_class_code */
11276: FOR i IN p_element_version_id_tbl.FIRST .. p_element_version_id_tbl.LAST LOOP
11381: END LOOP;
11382:
11383: --Prepare the pl/sql tbls that should be returned from the API
11384: IF l_debug_mode = 'Y' THEN
11385: pa_debug.g_err_stage:='Making a copy of the pl/sql tables which should be returned by this API';
11386: print_msg(pa_debug.g_err_stage,l_module_name);
11387: END IF;
11388:
11389:
11382:
11383: --Prepare the pl/sql tbls that should be returned from the API
11384: IF l_debug_mode = 'Y' THEN
11385: pa_debug.g_err_stage:='Making a copy of the pl/sql tables which should be returned by this API';
11386: print_msg(pa_debug.g_err_stage,l_module_name);
11387: END IF;
11388:
11389:
11390: l_element_version_id_tbl_tmp.extend(l_out_tbl_index-1);
11416: x_burdened_cost_tbl :=l_burdened_cost_tbl_tmp ;
11417:
11418: --Prepare the pl/sql tbls that should be passed to add planning txn APIs
11419: IF l_debug_mode = 'Y' THEN
11420: pa_debug.g_err_stage:='Making a copy of the pl/sql tables which should be used in calling add plan txn api';
11421: print_msg(pa_debug.g_err_stage,l_module_name);
11422: END IF;
11423:
11424: l_element_version_id_tbl_tmp.DELETE;
11417:
11418: --Prepare the pl/sql tbls that should be passed to add planning txn APIs
11419: IF l_debug_mode = 'Y' THEN
11420: pa_debug.g_err_stage:='Making a copy of the pl/sql tables which should be used in calling add plan txn api';
11421: print_msg(pa_debug.g_err_stage,l_module_name);
11422: END IF;
11423:
11424: l_element_version_id_tbl_tmp.DELETE;
11425: l_planning_start_date_tbl_tmp.DELETE;
11454: l_planned_people_effort_tbl:=l_planned_ppl_effort_tbl_tmp ;
11455: l_raw_cost_tbl :=l_raw_cost_tbl_tmp ;
11456: l_burdened_cost_tbl :=l_burdened_cost_tbl_tmp ;
11457: IF l_debug_mode = 'Y' THEN
11458: pa_debug.g_err_stage:='Calling add_planning_transactions API if index of param tables if greater than 1, l_add_tbl_index:.' || l_add_tbl_index;
11459: print_msg(pa_debug.g_err_stage,l_module_name);
11460: END IF;
11461:
11462:
11455: l_raw_cost_tbl :=l_raw_cost_tbl_tmp ;
11456: l_burdened_cost_tbl :=l_burdened_cost_tbl_tmp ;
11457: IF l_debug_mode = 'Y' THEN
11458: pa_debug.g_err_stage:='Calling add_planning_transactions API if index of param tables if greater than 1, l_add_tbl_index:.' || l_add_tbl_index;
11459: print_msg(pa_debug.g_err_stage,l_module_name);
11460: END IF;
11461:
11462:
11463: IF l_add_tbl_index > 1 THEN
11491: );
11492:
11493: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11494: IF l_debug_mode = 'Y' THEN
11495: pa_debug.g_err_stage:='Called API PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions ,api returned error';
11496: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11497: END IF;
11498: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11499: END IF;
11492:
11493: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11494: IF l_debug_mode = 'Y' THEN
11495: pa_debug.g_err_stage:='Called API PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions ,api returned error';
11496: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11497: END IF;
11498: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11499: END IF;
11500:
11500:
11501: END IF;
11502:
11503: IF l_debug_mode = 'Y' THEN
11504: pa_debug.reset_curr_function;
11505: END IF;
11506: EXCEPTION
11507: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11508: l_msg_count := FND_MSG_PUB.count_msg;
11520: x_msg_count := l_msg_count;
11521: END IF;
11522: x_return_status := FND_API.G_RET_STS_ERROR;
11523: IF l_debug_mode = 'Y' THEN
11524: pa_debug.reset_curr_function;
11525: END IF;
11526: WHEN OTHERS THEN
11527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11528: x_msg_count := 1;
11530: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_PLANNING_TRANSACTION_PUB'
11531: ,p_procedure_name => 'check_and_create_task_rec_info');
11532:
11533: IF l_debug_mode = 'Y' THEN
11534: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
11535: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11536: pa_debug.reset_curr_function;
11537: END IF;
11538: RAISE;
11531: ,p_procedure_name => 'check_and_create_task_rec_info');
11532:
11533: IF l_debug_mode = 'Y' THEN
11534: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
11535: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11536: pa_debug.reset_curr_function;
11537: END IF;
11538: RAISE;
11539:
11532:
11533: IF l_debug_mode = 'Y' THEN
11534: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
11535: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11536: pa_debug.reset_curr_function;
11537: END IF;
11538: RAISE;
11539:
11540: END check_and_create_task_rec_info;
11633:
11634: x_msg_count := 0;
11635: x_return_status := FND_API.G_RET_STS_SUCCESS;
11636:
11637: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
11638: l_debug_mode := NVL(l_debug_mode, 'Y');
11639:
11640: -- Set curr function
11641: IF l_debug_mode = 'Y' THEN
11638: l_debug_mode := NVL(l_debug_mode, 'Y');
11639:
11640: -- Set curr function
11641: IF l_debug_mode = 'Y' THEN
11642: PA_DEBUG.set_curr_function(
11643: p_function =>'PA_FP_PLANNING_TRANSACTION_PUB.Refresh_Plan_Txns'
11644: ,p_debug_mode => l_debug_mode );
11645: END IF;
11646: -- Check for business rules violations
11645: END IF;
11646: -- Check for business rules violations
11647:
11648: IF l_debug_mode = 'Y' THEN
11649: pa_debug.g_err_stage:='Validating input parameters';
11650: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
11651: END IF;
11652:
11653: IF (p_budget_version_id IS NULL)
11646: -- Check for business rules violations
11647:
11648: IF l_debug_mode = 'Y' THEN
11649: pa_debug.g_err_stage:='Validating input parameters';
11650: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
11651: END IF;
11652:
11653: IF (p_budget_version_id IS NULL)
11654: THEN
11653: IF (p_budget_version_id IS NULL)
11654: THEN
11655:
11656: IF l_debug_mode = 'Y' THEN
11657: pa_debug.g_err_stage:='p_budget_version_id = '|| p_budget_version_id;
11658: pa_debug.write('Refresh_Plan_Txns: ' ||g_module_name,pa_debug.g_err_stage,5);
11659: END IF;
11660:
11661: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11654: THEN
11655:
11656: IF l_debug_mode = 'Y' THEN
11657: pa_debug.g_err_stage:='p_budget_version_id = '|| p_budget_version_id;
11658: pa_debug.write('Refresh_Plan_Txns: ' ||g_module_name,pa_debug.g_err_stage,5);
11659: END IF;
11660:
11661: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11662: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
11673: nvl(p_time_phase_change_flag, 'N') = 'N' AND
11674: nvl(p_rev_der_method_change,'N') = 'N' --Bug 5462471
11675: THEN
11676: IF l_debug_mode = 'Y' THEN
11677: pa_debug.g_err_stage:='No change required, Exiting Refresh_Plan_Txns';
11678: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
11679: -- reset curr function
11680: pa_debug.Reset_Curr_Function();
11681: END IF;
11674: nvl(p_rev_der_method_change,'N') = 'N' --Bug 5462471
11675: THEN
11676: IF l_debug_mode = 'Y' THEN
11677: pa_debug.g_err_stage:='No change required, Exiting Refresh_Plan_Txns';
11678: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
11679: -- reset curr function
11680: pa_debug.Reset_Curr_Function();
11681: END IF;
11682: RETURN;
11676: IF l_debug_mode = 'Y' THEN
11677: pa_debug.g_err_stage:='No change required, Exiting Refresh_Plan_Txns';
11678: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
11679: -- reset curr function
11680: pa_debug.Reset_Curr_Function();
11681: END IF;
11682: RETURN;
11683: END IF;
11684:
11718:
11719: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11720:
11721: IF l_debug_mode = 'Y' THEN
11722: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
11723: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
11724: END IF;
11725: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11726: END IF;
11719: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11720:
11721: IF l_debug_mode = 'Y' THEN
11722: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
11723: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
11724: END IF;
11725: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11726: END IF;
11727:
11753:
11754: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11755:
11756: IF l_debug_mode = 'Y' THEN
11757: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
11758: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
11759: END IF;
11760: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11761: END IF;
11754: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11755:
11756: IF l_debug_mode = 'Y' THEN
11757: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
11758: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
11759: END IF;
11760: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11761: END IF;
11762:
11768: nvl(p_rev_der_method_change,'N') = 'Y' THEN --Bug 5462471
11769: -- Delete all the planning transactions for the version.
11770:
11771: IF l_debug_mode = 'Y' THEN
11772: pa_debug.g_err_stage:='Deleting all the resource assignment records for the version';
11773: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
11774: END IF;
11775:
11776: DELETE
11769: -- Delete all the planning transactions for the version.
11770:
11771: IF l_debug_mode = 'Y' THEN
11772: pa_debug.g_err_stage:='Deleting all the resource assignment records for the version';
11773: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
11774: END IF;
11775:
11776: DELETE
11777: FROM pa_resource_assignments
11804:
11805: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11806:
11807: IF l_debug_mode = 'Y' THEN
11808: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
11809: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
11810: END IF;
11811: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11812: END IF;
11805: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11806:
11807: IF l_debug_mode = 'Y' THEN
11808: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
11809: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
11810: END IF;
11811: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11812: END IF;
11813:
11828:
11829: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11830:
11831: IF l_debug_mode = 'Y' THEN
11832: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
11833: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
11834: END IF;
11835: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11836: END IF;
11829: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11830:
11831: IF l_debug_mode = 'Y' THEN
11832: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
11833: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
11834: END IF;
11835: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11836: END IF;
11837:
11841: -- bug 4724017: Checking for categorized resource list to avoid
11842: -- calling create_default_task_plan_txns, not to create default
11843: -- planning txns for categorized RLs, when planning level changes.
11844: IF l_debug_mode = 'Y' THEN
11845: pa_debug.g_err_stage:='Fetching uncategorized flag when planning level changes';
11846: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
11847: END IF;
11848: BEGIN
11849: SELECT nvl(uncategorized_flag,'N')
11842: -- calling create_default_task_plan_txns, not to create default
11843: -- planning txns for categorized RLs, when planning level changes.
11844: IF l_debug_mode = 'Y' THEN
11845: pa_debug.g_err_stage:='Fetching uncategorized flag when planning level changes';
11846: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
11847: END IF;
11848: BEGIN
11849: SELECT nvl(uncategorized_flag,'N')
11850: INTO l_res_list_uncategorized_flag
11851: FROM pa_resource_lists_all_bg
11852: WHERE resource_list_id = budget_version_info_rec.resource_list_id;
11853:
11854: IF l_debug_mode = 'Y' THEN
11855: pa_debug.g_err_stage:='l_res_list_uncategorized_flag: ' || l_res_list_uncategorized_flag;
11856: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
11857: END IF;
11858: EXCEPTION
11859: WHEN NO_DATA_FOUND THEN
11852: WHERE resource_list_id = budget_version_info_rec.resource_list_id;
11853:
11854: IF l_debug_mode = 'Y' THEN
11855: pa_debug.g_err_stage:='l_res_list_uncategorized_flag: ' || l_res_list_uncategorized_flag;
11856: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
11857: END IF;
11858: EXCEPTION
11859: WHEN NO_DATA_FOUND THEN
11860: IF l_debug_mode = 'Y' THEN
11857: END IF;
11858: EXCEPTION
11859: WHEN NO_DATA_FOUND THEN
11860: IF l_debug_mode = 'Y' THEN
11861: pa_debug.g_err_stage:='No uncategorized flag found for the resource list id passed';
11862: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
11863: END IF;
11864: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11865: END;
11858: EXCEPTION
11859: WHEN NO_DATA_FOUND THEN
11860: IF l_debug_mode = 'Y' THEN
11861: pa_debug.g_err_stage:='No uncategorized flag found for the resource list id passed';
11862: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
11863: END IF;
11864: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11865: END;
11866:
11870: IF l_res_list_uncategorized_flag = 'Y' THEN
11871: -- Insert default task planning trasaction for the version
11872:
11873: IF l_debug_mode = 'Y' THEN
11874: pa_debug.g_err_stage:='Calling pa_fp_planning_transaction_pub.create_default_task_plan_txns';
11875: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
11876: END IF;
11877:
11878: pa_fp_planning_transaction_pub.create_default_task_plan_txns (
11871: -- Insert default task planning trasaction for the version
11872:
11873: IF l_debug_mode = 'Y' THEN
11874: pa_debug.g_err_stage:='Calling pa_fp_planning_transaction_pub.create_default_task_plan_txns';
11875: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
11876: END IF;
11877:
11878: pa_fp_planning_transaction_pub.create_default_task_plan_txns (
11879: p_budget_version_id => p_budget_version_id
11938: ,x_msg_data => l_msg_data);
11939:
11940: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11941: IF l_debug_mode = 'Y' THEN
11942: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
11943: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
11944: END IF;
11945: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11946: END IF;
11939:
11940: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11941: IF l_debug_mode = 'Y' THEN
11942: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
11943: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
11944: END IF;
11945: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11946: END IF;
11947:
11946: END IF;
11947:
11948: -- Update all the task planning elements with new FINACIAL ELEMENT rlmid
11949: IF l_debug_mode = 'Y' THEN
11950: pa_debug.g_err_stage:='Updaing res assignments with new FINANCIAL ELEMENTS rlmid : ' || l_fin_res_class_rlm_id;
11951: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
11952: END IF;
11953:
11954: UPDATE pa_resource_assignments
11947:
11948: -- Update all the task planning elements with new FINACIAL ELEMENT rlmid
11949: IF l_debug_mode = 'Y' THEN
11950: pa_debug.g_err_stage:='Updaing res assignments with new FINANCIAL ELEMENTS rlmid : ' || l_fin_res_class_rlm_id;
11951: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
11952: END IF;
11953:
11954: UPDATE pa_resource_assignments
11955: SET resource_list_member_id = l_fin_res_class_rlm_id
11971:
11972: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11973:
11974: IF l_debug_mode = 'Y' THEN
11975: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
11976: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
11977: END IF;
11978: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11979: END IF;
11972: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11973:
11974: IF l_debug_mode = 'Y' THEN
11975: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
11976: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
11977: END IF;
11978: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11979: END IF;
11980:
11995:
11996: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11997:
11998: IF l_debug_mode = 'Y' THEN
11999: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
12000: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
12001: END IF;
12002: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12003: END IF;
11996: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11997:
11998: IF l_debug_mode = 'Y' THEN
11999: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
12000: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
12001: END IF;
12002: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12003: END IF;
12004: END IF; --} IF l_delete_ra_id_tbl.COUNT > 0 THEN
12015: ,x_msg_data => l_msg_data);
12016:
12017: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12018: IF l_debug_mode = 'Y' THEN
12019: pa_debug.g_err_stage:='Called API PA_FP_ROLLUP_PKG.rollup_budget_version returned error';
12020: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
12021: END IF;
12022: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12023: END IF;
12016:
12017: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12018: IF l_debug_mode = 'Y' THEN
12019: pa_debug.g_err_stage:='Called API PA_FP_ROLLUP_PKG.rollup_budget_version returned error';
12020: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
12021: END IF;
12022: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12023: END IF;
12024: END IF;
12040: ,x_msg_data => l_msg_data);
12041:
12042: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12043: IF l_debug_mode = 'Y' THEN
12044: pa_debug.g_err_stage:='Called API Refresh_rbs_for_versions returned error';
12045: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
12046: END IF;
12047: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12048: END IF;
12041:
12042: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12043: IF l_debug_mode = 'Y' THEN
12044: pa_debug.g_err_stage:='Called API Refresh_rbs_for_versions returned error';
12045: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
12046: END IF;
12047: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12048: END IF;
12049: END IF;
12060: -- populating the l_budget_version_id_tbl with p_budget_version_id
12061: l_budget_version_id_tbl := SYSTEM.pa_num_tbl_type(p_budget_version_id);
12062:
12063: IF l_debug_mode = 'Y' THEN
12064: pa_debug.g_err_stage:='Calling PJI_FM_XBS_ACCUM_MAINT.PLAN_DELETE';
12065: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
12066: END IF;
12067:
12068: -- Call PJI delete api first to delete existing summarization data
12061: l_budget_version_id_tbl := SYSTEM.pa_num_tbl_type(p_budget_version_id);
12062:
12063: IF l_debug_mode = 'Y' THEN
12064: pa_debug.g_err_stage:='Calling PJI_FM_XBS_ACCUM_MAINT.PLAN_DELETE';
12065: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
12066: END IF;
12067:
12068: -- Call PJI delete api first to delete existing summarization data
12069: PJI_FM_XBS_ACCUM_MAINT.PLAN_DELETE (
12077: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12078: END IF;
12079:
12080: IF l_debug_mode = 'Y' THEN
12081: pa_debug.g_err_stage:='Call complete to PJI_FM_XBS_ACCUM_MAINT.PLAN_DELETE';
12082: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
12083: END IF;
12084:
12085: IF l_debug_mode = 'Y' THEN
12078: END IF;
12079:
12080: IF l_debug_mode = 'Y' THEN
12081: pa_debug.g_err_stage:='Call complete to PJI_FM_XBS_ACCUM_MAINT.PLAN_DELETE';
12082: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
12083: END IF;
12084:
12085: IF l_debug_mode = 'Y' THEN
12086: pa_debug.g_err_stage:='Calling PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE';
12082: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
12083: END IF;
12084:
12085: IF l_debug_mode = 'Y' THEN
12086: pa_debug.g_err_stage:='Calling PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE';
12087: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
12088: END IF;
12089:
12090: -- Call PLAN_CREATE to create summarization data as per the new RBS
12083: END IF;
12084:
12085: IF l_debug_mode = 'Y' THEN
12086: pa_debug.g_err_stage:='Calling PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE';
12087: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
12088: END IF;
12089:
12090: -- Call PLAN_CREATE to create summarization data as per the new RBS
12091: PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE (
12099: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12100: END IF;
12101:
12102: IF l_debug_mode = 'Y' THEN
12103: pa_debug.g_err_stage:='Call complete to PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE';
12104: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
12105: END IF;
12106:
12107: END IF;
12100: END IF;
12101:
12102: IF l_debug_mode = 'Y' THEN
12103: pa_debug.g_err_stage:='Call complete to PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE';
12104: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
12105: END IF;
12106:
12107: END IF;
12108:
12106:
12107: END IF;
12108:
12109: IF l_debug_mode = 'Y' THEN
12110: pa_debug.g_err_stage:='Exiting Refresh_Plan_Txns';
12111: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
12112: -- reset curr function
12113: pa_debug.Reset_Curr_Function();
12114: END IF;
12107: END IF;
12108:
12109: IF l_debug_mode = 'Y' THEN
12110: pa_debug.g_err_stage:='Exiting Refresh_Plan_Txns';
12111: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
12112: -- reset curr function
12113: pa_debug.Reset_Curr_Function();
12114: END IF;
12115:
12109: IF l_debug_mode = 'Y' THEN
12110: pa_debug.g_err_stage:='Exiting Refresh_Plan_Txns';
12111: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
12112: -- reset curr function
12113: pa_debug.Reset_Curr_Function();
12114: END IF;
12115:
12116: EXCEPTION
12117:
12134:
12135: x_return_status := FND_API.G_RET_STS_ERROR;
12136:
12137: IF l_debug_mode = 'Y' THEN
12138: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
12139: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
12140: -- reset curr function
12141: pa_debug.Reset_Curr_Function();
12142: END IF;
12135: x_return_status := FND_API.G_RET_STS_ERROR;
12136:
12137: IF l_debug_mode = 'Y' THEN
12138: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
12139: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
12140: -- reset curr function
12141: pa_debug.Reset_Curr_Function();
12142: END IF;
12143:
12137: IF l_debug_mode = 'Y' THEN
12138: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
12139: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
12140: -- reset curr function
12141: pa_debug.Reset_Curr_Function();
12142: END IF;
12143:
12144: RETURN;
12145: WHEN Others THEN
12150: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_PLANNING_TRANSACTION_PUB'
12151: ,p_procedure_name => 'Refresh_Plan_Txns');
12152:
12153: IF l_debug_mode = 'Y' THEN
12154: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
12155: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
12156: -- reset curr function
12157: pa_debug.Reset_Curr_Function();
12158: END IF;
12151: ,p_procedure_name => 'Refresh_Plan_Txns');
12152:
12153: IF l_debug_mode = 'Y' THEN
12154: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
12155: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
12156: -- reset curr function
12157: pa_debug.Reset_Curr_Function();
12158: END IF;
12159: RAISE;
12153: IF l_debug_mode = 'Y' THEN
12154: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
12155: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
12156: -- reset curr function
12157: pa_debug.Reset_Curr_Function();
12158: END IF;
12159: RAISE;
12160: END Refresh_Plan_Txns;
12161:
12265: l_plan_class_code pa_fin_plan_types_b.plan_class_code%TYPE;
12266:
12267: BEGIN
12268: FND_MSG_PUB.initialize;
12269: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
12270: l_debug_mode := NVL(l_debug_mode, 'Y');
12271: IF l_debug_mode = 'Y' THEN
12272: pa_debug.set_curr_function( p_function => 'Create_Default_Task_Plan_Txns',
12273: p_debug_mode => l_debug_mode );
12268: FND_MSG_PUB.initialize;
12269: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
12270: l_debug_mode := NVL(l_debug_mode, 'Y');
12271: IF l_debug_mode = 'Y' THEN
12272: pa_debug.set_curr_function( p_function => 'Create_Default_Task_Plan_Txns',
12273: p_debug_mode => l_debug_mode );
12274: END IF;
12275: x_msg_count := 0;
12276: x_return_status := FND_API.G_RET_STS_SUCCESS;
12278:
12279: -- Check for business rules violations
12280:
12281: IF l_debug_mode = 'Y' THEN
12282: pa_debug.g_err_stage:='Validating input parameters';
12283: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
12284: END IF;
12285:
12286: -- Check if budget version id is null
12279: -- Check for business rules violations
12280:
12281: IF l_debug_mode = 'Y' THEN
12282: pa_debug.g_err_stage:='Validating input parameters';
12283: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
12284: END IF;
12285:
12286: -- Check if budget version id is null
12287:
12290: (nvl(p_add_all_resources_flag,'x') NOT IN ('Y','N'))
12291: THEN
12292:
12293: IF l_debug_mode = 'Y' THEN
12294: pa_debug.g_err_stage:='P_budget_version_id = '||P_budget_version_id;
12295: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
12296: END IF;
12297:
12298: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12291: THEN
12292:
12293: IF l_debug_mode = 'Y' THEN
12294: pa_debug.g_err_stage:='P_budget_version_id = '||P_budget_version_id;
12295: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
12296: END IF;
12297:
12298: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12299: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
12298: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12299: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
12300:
12301: IF l_debug_mode = 'Y' THEN
12302: pa_debug.g_err_stage:='Invalid Arguments Passed';
12303: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
12304: END IF;
12305: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12306:
12299: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
12300:
12301: IF l_debug_mode = 'Y' THEN
12302: pa_debug.g_err_stage:='Invalid Arguments Passed';
12303: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
12304: END IF;
12305: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12306:
12307: END IF;
12308:
12309: --Fetch budget version values
12310:
12311: IF l_debug_mode = 'Y' THEN
12312: pa_debug.g_err_stage:='Fetching budget version properties';
12313: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
12314: END IF;
12315:
12316: OPEN version_info_cur(P_budget_version_id);
12309: --Fetch budget version values
12310:
12311: IF l_debug_mode = 'Y' THEN
12312: pa_debug.g_err_stage:='Fetching budget version properties';
12313: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
12314: END IF;
12315:
12316: OPEN version_info_cur(P_budget_version_id);
12317: FETCH version_info_cur INTO version_info_rec;
12332: WHERE project_id = version_info_rec.project_id;
12333: EXCEPTION
12334: WHEN OTHERS THEN
12335: IF l_debug_mode = 'Y' THEN
12336: pa_debug.g_err_stage:='Error while fetching start and completion dates for the project';
12337: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
12338: END IF;
12339: RAISE;
12340: END;
12333: EXCEPTION
12334: WHEN OTHERS THEN
12335: IF l_debug_mode = 'Y' THEN
12336: pa_debug.g_err_stage:='Error while fetching start and completion dates for the project';
12337: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
12338: END IF;
12339: RAISE;
12340: END;
12341:
12353: --hr_utility.trace('G_BUDGET_ENTRY_LEVEL_LOWEST -> rlmids'|| l_people_res_class_rlm_id || 'x' || l_equip_res_class_rlm_id || 'x' || l_fin_res_class_rlm_id || 'x' || l_mat_res_class_rlm_id);
12354:
12355: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12356: IF l_debug_mode = 'Y' THEN
12357: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
12358: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
12359: END IF;
12360: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12361: END IF;
12354:
12355: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12356: IF l_debug_mode = 'Y' THEN
12357: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
12358: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
12359: END IF;
12360: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12361: END IF;
12362:
12368:
12369: EXCEPTION
12370: WHEN OTHERS THEN
12371: IF l_debug_mode = 'Y' THEN
12372: pa_debug.g_err_stage:='Error while fetching plan_class_code for the budget_version_id';
12373: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
12374: END IF;
12375: RAISE;
12376: END;
12369: EXCEPTION
12370: WHEN OTHERS THEN
12371: IF l_debug_mode = 'Y' THEN
12372: pa_debug.g_err_stage:='Error while fetching plan_class_code for the budget_version_id';
12373: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
12374: END IF;
12375: RAISE;
12376: END;
12377:
12402:
12403:
12404: IF version_info_rec.plan_level_code = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT THEN
12405: IF l_debug_mode = 'Y' THEN
12406: pa_debug.g_err_stage:= 'Planning at project level: Inserting a record';
12407: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
12408: END IF;
12409:
12410: l_element_version_id_tbl.extend(1);
12403:
12404: IF version_info_rec.plan_level_code = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT THEN
12405: IF l_debug_mode = 'Y' THEN
12406: pa_debug.g_err_stage:= 'Planning at project level: Inserting a record';
12407: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
12408: END IF;
12409:
12410: l_element_version_id_tbl.extend(1);
12411: l_element_version_id_tbl(1):= 0;
12423: ,x_msg_data => l_msg_data );
12424:
12425: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12426: IF l_debug_mode = 'Y' THEN
12427: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
12428: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
12429: END IF;
12430: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12431: END IF;
12424:
12425: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12426: IF l_debug_mode = 'Y' THEN
12427: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
12428: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
12429: END IF;
12430: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12431: END IF;
12432:
12432:
12433:
12434: ELSIF version_info_rec.plan_level_code = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_TOP THEN
12435: IF l_debug_mode = 'Y' THEN
12436: pa_debug.g_err_stage:= 'Planning at top task level: Opening cursor top_tasks_cur';
12437: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
12438: END IF;
12439:
12440: OPEN top_tasks_cur( version_info_rec.project_id, version_info_rec.structure_version_id);
12433:
12434: ELSIF version_info_rec.plan_level_code = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_TOP THEN
12435: IF l_debug_mode = 'Y' THEN
12436: pa_debug.g_err_stage:= 'Planning at top task level: Opening cursor top_tasks_cur';
12437: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
12438: END IF;
12439:
12440: OPEN top_tasks_cur( version_info_rec.project_id, version_info_rec.structure_version_id);
12441:
12439:
12440: OPEN top_tasks_cur( version_info_rec.project_id, version_info_rec.structure_version_id);
12441:
12442: IF l_debug_mode = 'Y' THEN
12443: pa_debug.g_err_stage:= 'Fetching cursor values for top tasks and doing bulk insert';
12444: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
12445: END IF;
12446:
12447: LOOP
12440: OPEN top_tasks_cur( version_info_rec.project_id, version_info_rec.structure_version_id);
12441:
12442: IF l_debug_mode = 'Y' THEN
12443: pa_debug.g_err_stage:= 'Fetching cursor values for top tasks and doing bulk insert';
12444: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
12445: END IF;
12446:
12447: LOOP
12448: FETCH top_tasks_cur BULK COLLECT INTO l_element_version_id_tbl LIMIT l_max_fetch_size;
12462: END IF;
12463:
12464: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12465: IF l_debug_mode = 'Y' THEN
12466: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
12467: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
12468: END IF;
12469: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12470: END IF;
12463:
12464: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12465: IF l_debug_mode = 'Y' THEN
12466: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
12467: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
12468: END IF;
12469: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12470: END IF;
12471: -- Exit if fetch size is less than 200
12477: ELSIF version_info_rec.plan_level_code = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_LOWEST THEN
12478: --hr_utility.trace('G_BUDGET_ENTRY_LEVEL_LOWEST -> '||PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_LOWEST);
12479:
12480: IF l_debug_mode = 'Y' THEN
12481: pa_debug.g_err_stage:= 'Planning at lowest task level: Opening cursor lowest_tasks_cur';
12482: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
12483: END IF;
12484:
12485: OPEN lowest_tasks_cur( version_info_rec.structure_version_id);
12478: --hr_utility.trace('G_BUDGET_ENTRY_LEVEL_LOWEST -> '||PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_LOWEST);
12479:
12480: IF l_debug_mode = 'Y' THEN
12481: pa_debug.g_err_stage:= 'Planning at lowest task level: Opening cursor lowest_tasks_cur';
12482: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
12483: END IF;
12484:
12485: OPEN lowest_tasks_cur( version_info_rec.structure_version_id);
12486:
12484:
12485: OPEN lowest_tasks_cur( version_info_rec.structure_version_id);
12486:
12487: IF l_debug_mode = 'Y' THEN
12488: pa_debug.g_err_stage:= 'Fetching cursor values for lowest tasks and doing bulk insert';
12489: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
12490: END IF;
12491:
12492:
12485: OPEN lowest_tasks_cur( version_info_rec.structure_version_id);
12486:
12487: IF l_debug_mode = 'Y' THEN
12488: pa_debug.g_err_stage:= 'Fetching cursor values for lowest tasks and doing bulk insert';
12489: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
12490: END IF;
12491:
12492:
12493:
12508: ,x_msg_data => l_msg_data );
12509:
12510: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12511: IF l_debug_mode = 'Y' THEN
12512: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
12513: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
12514: END IF;
12515: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12516: END IF;
12509:
12510: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12511: IF l_debug_mode = 'Y' THEN
12512: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
12513: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
12514: END IF;
12515: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12516: END IF;
12517: END IF;
12522: CLOSE lowest_tasks_cur;
12523: END IF;
12524:
12525: IF l_debug_mode = 'Y' THEN
12526: pa_debug.g_err_stage:='Exiting Create_Default_Task_Plan_Txns:';
12527: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
12528: --Reset the error stack
12529: pa_debug.reset_curr_function;
12530: END IF;
12523: END IF;
12524:
12525: IF l_debug_mode = 'Y' THEN
12526: pa_debug.g_err_stage:='Exiting Create_Default_Task_Plan_Txns:';
12527: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
12528: --Reset the error stack
12529: pa_debug.reset_curr_function;
12530: END IF;
12531: EXCEPTION
12525: IF l_debug_mode = 'Y' THEN
12526: pa_debug.g_err_stage:='Exiting Create_Default_Task_Plan_Txns:';
12527: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
12528: --Reset the error stack
12529: pa_debug.reset_curr_function;
12530: END IF;
12531: EXCEPTION
12532:
12533: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12545: ELSE
12546: x_msg_count := l_msg_count;
12547: END IF;
12548: x_return_status := FND_API.G_RET_STS_ERROR;
12549: -- pa_debug.g_err_stage:='Invalid Arguments Passed';
12550: -- pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
12551: IF l_debug_mode = 'Y' THEN
12552: pa_debug.reset_curr_function;
12553: END IF;
12546: x_msg_count := l_msg_count;
12547: END IF;
12548: x_return_status := FND_API.G_RET_STS_ERROR;
12549: -- pa_debug.g_err_stage:='Invalid Arguments Passed';
12550: -- pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
12551: IF l_debug_mode = 'Y' THEN
12552: pa_debug.reset_curr_function;
12553: END IF;
12554: RETURN;
12548: x_return_status := FND_API.G_RET_STS_ERROR;
12549: -- pa_debug.g_err_stage:='Invalid Arguments Passed';
12550: -- pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
12551: IF l_debug_mode = 'Y' THEN
12552: pa_debug.reset_curr_function;
12553: END IF;
12554: RETURN;
12555:
12556: WHEN Others THEN
12559: x_msg_data := SQLERRM;
12560: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_PLANNING_TRANSACTION_PUB'
12561: ,p_procedure_name => 'CREATE_DEFAULT_TASK_PLAN_TXNS');
12562: IF l_debug_mode = 'Y' THEN
12563: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
12564: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
12565: pa_debug.reset_curr_function;
12566: END IF;
12567: RAISE;
12560: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_PLANNING_TRANSACTION_PUB'
12561: ,p_procedure_name => 'CREATE_DEFAULT_TASK_PLAN_TXNS');
12562: IF l_debug_mode = 'Y' THEN
12563: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
12564: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
12565: pa_debug.reset_curr_function;
12566: END IF;
12567: RAISE;
12568:
12561: ,p_procedure_name => 'CREATE_DEFAULT_TASK_PLAN_TXNS');
12562: IF l_debug_mode = 'Y' THEN
12563: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
12564: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
12565: pa_debug.reset_curr_function;
12566: END IF;
12567: RAISE;
12568:
12569: END Create_Default_Task_Plan_Txns;
12766:
12767: x_msg_count := 0;
12768: x_return_status := FND_API.G_RET_STS_SUCCESS;
12769:
12770: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
12771: l_debug_mode := NVL(l_debug_mode, 'Y');
12772:
12773: -- Set curr function
12774: IF l_debug_mode = 'Y' THEN
12771: l_debug_mode := NVL(l_debug_mode, 'Y');
12772:
12773: -- Set curr function
12774: IF l_debug_mode = 'Y' THEN
12775: pa_debug.set_curr_function(
12776: p_function =>'PA_FP_PLANNING_TRANSACTION_PUB.REFRESH_WP_SETTINGS'
12777: ,p_debug_mode => l_debug_mode );
12778: END IF;
12779: -- Check for business rules violations
12777: ,p_debug_mode => l_debug_mode );
12778: END IF;
12779: -- Check for business rules violations
12780: IF l_debug_mode = 'Y' THEN
12781: pa_debug.g_err_stage:='Validating input parameters';
12782: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,3);
12783: END IF;
12784:
12785: IF (p_project_id IS NULL)
12778: END IF;
12779: -- Check for business rules violations
12780: IF l_debug_mode = 'Y' THEN
12781: pa_debug.g_err_stage:='Validating input parameters';
12782: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,3);
12783: END IF;
12784:
12785: IF (p_project_id IS NULL)
12786: THEN
12785: IF (p_project_id IS NULL)
12786: THEN
12787:
12788: IF l_debug_mode = 'Y' THEN
12789: pa_debug.g_err_stage:='Project_id = '||p_project_id;
12790: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
12791: END IF;
12792:
12793: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12786: THEN
12787:
12788: IF l_debug_mode = 'Y' THEN
12789: pa_debug.g_err_stage:='Project_id = '||p_project_id;
12790: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
12791: END IF;
12792:
12793: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12794: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
12802: FETCH parent_plan_type_cur INTO parent_plan_type_rec;
12803: CLOSE parent_plan_type_cur;
12804:
12805: IF l_debug_mode = 'Y' THEN
12806: pa_debug.g_err_stage:='getting plan type info';
12807: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,3);
12808: END IF;
12809:
12810:
12803: CLOSE parent_plan_type_cur;
12804:
12805: IF l_debug_mode = 'Y' THEN
12806: pa_debug.g_err_stage:='getting plan type info';
12807: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,3);
12808: END IF;
12809:
12810:
12811: -- Check if versioning is enabled for wp structure
12818: CLOSE working_workplan_versions_cur;
12819:
12820:
12821: IF l_debug_mode = 'Y' THEN
12822: pa_debug.g_err_stage:='getting woking versions';
12823: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,3);
12824: END IF;
12825:
12826:
12819:
12820:
12821: IF l_debug_mode = 'Y' THEN
12822: pa_debug.g_err_stage:='getting woking versions';
12823: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,3);
12824: END IF;
12825:
12826:
12827: -- Adding for bug 4543744
12832: (nvl(PA_WORKPLAN_ATTR_UTILS.Check_Wp_Versioning_Enabled(p_project_id),'N') = 'N'
12833: OR nvl(PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_project_id),'N') = 'Y')) THEN
12834:
12835: IF l_debug_mode = 'Y' THEN
12836: pa_debug.g_err_stage:='About to insert negative lines';
12837: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
12838: pa_debug.g_err_stage:='l_budget_version_id_tbl' || l_budget_version_id_tbl.count;
12839: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
12840:
12833: OR nvl(PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_project_id),'N') = 'Y')) THEN
12834:
12835: IF l_debug_mode = 'Y' THEN
12836: pa_debug.g_err_stage:='About to insert negative lines';
12837: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
12838: pa_debug.g_err_stage:='l_budget_version_id_tbl' || l_budget_version_id_tbl.count;
12839: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
12840:
12841: END IF;
12834:
12835: IF l_debug_mode = 'Y' THEN
12836: pa_debug.g_err_stage:='About to insert negative lines';
12837: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
12838: pa_debug.g_err_stage:='l_budget_version_id_tbl' || l_budget_version_id_tbl.count;
12839: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
12840:
12841: END IF;
12842:
12835: IF l_debug_mode = 'Y' THEN
12836: pa_debug.g_err_stage:='About to insert negative lines';
12837: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
12838: pa_debug.g_err_stage:='l_budget_version_id_tbl' || l_budget_version_id_tbl.count;
12839: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
12840:
12841: END IF;
12842:
12843:
12844: FOR i IN l_budget_version_id_tbl.FIRST .. l_budget_version_id_tbl.LAST
12845: LOOP
12846:
12847: IF l_debug_mode = 'Y' THEN
12848: pa_debug.g_err_stage:='Calling call_update_rep_lines' || l_budget_version_id_tbl(i);
12849: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
12850: END IF;
12851:
12852: PA_PLANNING_TRANSACTION_UTILS.call_update_rep_lines_api
12845: LOOP
12846:
12847: IF l_debug_mode = 'Y' THEN
12848: pa_debug.g_err_stage:='Calling call_update_rep_lines' || l_budget_version_id_tbl(i);
12849: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
12850: END IF;
12851:
12852: PA_PLANNING_TRANSACTION_UTILS.call_update_rep_lines_api
12853: --( p_source => 'POPULATE_PJI_TABLE' --Commented for bug 5073350.
12860:
12861: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12862:
12863: IF l_debug_mode = 'Y' THEN
12864: pa_debug.g_err_stage:='PA_PLANNING_TRANSACTION_UTILS.call_update_rep_lines_api returned error';
12865: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
12866: END IF;
12867: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
12868: END IF;
12861: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12862:
12863: IF l_debug_mode = 'Y' THEN
12864: pa_debug.g_err_stage:='PA_PLANNING_TRANSACTION_UTILS.call_update_rep_lines_api returned error';
12865: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
12866: END IF;
12867: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
12868: END IF;
12869:
12871:
12872: END IF; -- inserting negative rows
12873:
12874: IF l_debug_mode = 'Y' THEN
12875: pa_debug.g_err_stage:='inserted -ve lines';
12876: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,3);
12877: END IF;
12878:
12879:
12872: END IF; -- inserting negative rows
12873:
12874: IF l_debug_mode = 'Y' THEN
12875: pa_debug.g_err_stage:='inserted -ve lines';
12876: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,3);
12877: END IF;
12878:
12879:
12880: IF nvl(p_resource_list_change, 'N') = 'Y' THEN
12898: ,x_msg_data => x_msg_data);
12899:
12900: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12901: IF l_debug_mode = 'Y' THEN
12902: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
12903: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
12904: END IF;
12905: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12906: END IF;
12899:
12900: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12901: IF l_debug_mode = 'Y' THEN
12902: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
12903: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
12904: END IF;
12905: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12906: END IF;
12907:
13030: ,x_msg_data => x_msg_data);
13031:
13032: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13033: IF l_debug_mode = 'Y' THEN
13034: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
13035: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13036: END IF;
13037: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13038: END IF;
13031:
13032: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13033: IF l_debug_mode = 'Y' THEN
13034: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
13035: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13036: END IF;
13037: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13038: END IF;
13039: END IF;
13054: ,x_msg_data => x_msg_data );
13055:
13056: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13057: IF l_debug_mode = 'Y' THEN
13058: pa_debug.g_err_stage:='Called API PA_FP_TXN_CURRENCIES_PUB.copy_fp_txn_currencies api returned error';
13059: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13060: END IF;
13061: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13062: END IF;
13055:
13056: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13057: IF l_debug_mode = 'Y' THEN
13058: pa_debug.g_err_stage:='Called API PA_FP_TXN_CURRENCIES_PUB.copy_fp_txn_currencies api returned error';
13059: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13060: END IF;
13061: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13062: END IF;
13063:
13088: END IF;
13089: --CBS changes: Bug 13639638 end
13090:
13091: IF l_debug_mode = 'Y' THEN
13092: pa_debug.g_err_stage:='about to call delete palnning trans';
13093: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,3);
13094: END IF;
13095:
13096: IF nvl(l_res_assignment_id_tbl.count,0) > 0 THEN
13089: --CBS changes: Bug 13639638 end
13090:
13091: IF l_debug_mode = 'Y' THEN
13092: pa_debug.g_err_stage:='about to call delete palnning trans';
13093: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,3);
13094: END IF;
13095:
13096: IF nvl(l_res_assignment_id_tbl.count,0) > 0 THEN
13097: -- If there is any data to be deleted call delete_planning_txns api
13123:
13124: IF nvl(p_resource_list_change, 'N') = 'Y' THEN
13125: -- Update all the task planning elements with new FINACIAL ELEMENT rlmid
13126: IF l_debug_mode = 'Y' THEN
13127: pa_debug.g_err_stage:='Updaing res assignments with new FINANCIAL ELEMENTS rlmid : ' || l_fin_res_class_rlm_id;
13128: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,3);
13129: END IF;
13130:
13131: UPDATE pa_resource_assignments
13124: IF nvl(p_resource_list_change, 'N') = 'Y' THEN
13125: -- Update all the task planning elements with new FINACIAL ELEMENT rlmid
13126: IF l_debug_mode = 'Y' THEN
13127: pa_debug.g_err_stage:='Updaing res assignments with new FINANCIAL ELEMENTS rlmid : ' || l_fin_res_class_rlm_id;
13128: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,3);
13129: END IF;
13130:
13131: UPDATE pa_resource_assignments
13132: SET resource_list_member_id = l_people_res_class_rlm_id
13176: ,x_msg_data => x_msg_data);
13177:
13178: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13179: IF l_debug_mode = 'Y' THEN
13180: pa_debug.g_err_stage:='Called API PA_FP_CALC_PLAN_PKG.calculate api returned error';
13181: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13182: END IF;
13183: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13184: END IF;
13177:
13178: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13179: IF l_debug_mode = 'Y' THEN
13180: pa_debug.g_err_stage:='Called API PA_FP_CALC_PLAN_PKG.calculate api returned error';
13181: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13182: END IF;
13183: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13184: END IF;
13185: END IF;
13197: ,x_msg_data => x_msg_data);
13198:
13199: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13200: IF l_debug_mode = 'Y' THEN
13201: pa_debug.g_err_stage:='Called API PA_FP_ROLLUP_PKG.rollup_budget_version api returned error';
13202: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13203: END IF;
13204: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13205: END IF;
13198:
13199: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13200: IF l_debug_mode = 'Y' THEN
13201: pa_debug.g_err_stage:='Called API PA_FP_ROLLUP_PKG.rollup_budget_version api returned error';
13202: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13203: END IF;
13204: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13205: END IF;
13206: END IF;
13230:
13231: -- Fetch all the working plan versions in a table
13232:
13233: IF l_debug_mode = 'Y' THEN
13234: pa_debug.g_err_stage:='rbs change Yes';
13235: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,3);
13236: END IF;
13237:
13238:
13231: -- Fetch all the working plan versions in a table
13232:
13233: IF l_debug_mode = 'Y' THEN
13234: pa_debug.g_err_stage:='rbs change Yes';
13235: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,3);
13236: END IF;
13237:
13238:
13239: OPEN working_workplan_versions_cur;
13279:
13280: -- Check return status
13281: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13282: IF l_debug_mode = 'Y' THEN
13283: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api returned error';
13284: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13285: END IF;
13286: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13287: ELSE
13280: -- Check return status
13281: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13282: IF l_debug_mode = 'Y' THEN
13283: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api returned error';
13284: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13285: END IF;
13286: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13287: ELSE
13288: -- Check count of the required out tables to be the same
13289: IF l_txn_source_id_tbl.count <> l_rbs_element_id_tbl.count OR
13290: l_txn_source_id_tbl.count <> l_txn_accum_header_id_tbl.count
13291: THEN
13292: IF l_debug_mode = 'Y' THEN
13293: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api
13294: returned out tables with different count';
13295: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13296: pa_debug.g_err_stage:='l_txn_source_id_tbl.count = ' || l_txn_source_id_tbl.count;
13297: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13291: THEN
13292: IF l_debug_mode = 'Y' THEN
13293: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api
13294: returned out tables with different count';
13295: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13296: pa_debug.g_err_stage:='l_txn_source_id_tbl.count = ' || l_txn_source_id_tbl.count;
13297: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13298: pa_debug.g_err_stage:='l_rbs_element_id_tbl.count = ' || l_rbs_element_id_tbl.count;
13299: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13292: IF l_debug_mode = 'Y' THEN
13293: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api
13294: returned out tables with different count';
13295: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13296: pa_debug.g_err_stage:='l_txn_source_id_tbl.count = ' || l_txn_source_id_tbl.count;
13297: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13298: pa_debug.g_err_stage:='l_rbs_element_id_tbl.count = ' || l_rbs_element_id_tbl.count;
13299: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13300: pa_debug.g_err_stage:=
13293: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api
13294: returned out tables with different count';
13295: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13296: pa_debug.g_err_stage:='l_txn_source_id_tbl.count = ' || l_txn_source_id_tbl.count;
13297: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13298: pa_debug.g_err_stage:='l_rbs_element_id_tbl.count = ' || l_rbs_element_id_tbl.count;
13299: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13300: pa_debug.g_err_stage:=
13301: 'l_txn_accum_header_id_tbl.count = ' || l_txn_accum_header_id_tbl.count;
13294: returned out tables with different count';
13295: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13296: pa_debug.g_err_stage:='l_txn_source_id_tbl.count = ' || l_txn_source_id_tbl.count;
13297: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13298: pa_debug.g_err_stage:='l_rbs_element_id_tbl.count = ' || l_rbs_element_id_tbl.count;
13299: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13300: pa_debug.g_err_stage:=
13301: 'l_txn_accum_header_id_tbl.count = ' || l_txn_accum_header_id_tbl.count;
13302: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13295: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13296: pa_debug.g_err_stage:='l_txn_source_id_tbl.count = ' || l_txn_source_id_tbl.count;
13297: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13298: pa_debug.g_err_stage:='l_rbs_element_id_tbl.count = ' || l_rbs_element_id_tbl.count;
13299: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13300: pa_debug.g_err_stage:=
13301: 'l_txn_accum_header_id_tbl.count = ' || l_txn_accum_header_id_tbl.count;
13302: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13303: END IF;
13296: pa_debug.g_err_stage:='l_txn_source_id_tbl.count = ' || l_txn_source_id_tbl.count;
13297: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13298: pa_debug.g_err_stage:='l_rbs_element_id_tbl.count = ' || l_rbs_element_id_tbl.count;
13299: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13300: pa_debug.g_err_stage:=
13301: 'l_txn_accum_header_id_tbl.count = ' || l_txn_accum_header_id_tbl.count;
13302: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13303: END IF;
13304: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13298: pa_debug.g_err_stage:='l_rbs_element_id_tbl.count = ' || l_rbs_element_id_tbl.count;
13299: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13300: pa_debug.g_err_stage:=
13301: 'l_txn_accum_header_id_tbl.count = ' || l_txn_accum_header_id_tbl.count;
13302: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13303: END IF;
13304: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13305: END IF;
13306: END IF;
13332: ,last_update_login = FND_GLOBAL.login_id
13333: WHERE budget_version_id = l_budget_version_id_tbl(i);
13334:
13335: IF l_debug_mode = 'Y' THEN
13336: pa_debug.g_err_stage:='Done with mapping';
13337: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,3);
13338: END IF;
13339:
13340:
13333: WHERE budget_version_id = l_budget_version_id_tbl(i);
13334:
13335: IF l_debug_mode = 'Y' THEN
13336: pa_debug.g_err_stage:='Done with mapping';
13337: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,3);
13338: END IF;
13339:
13340:
13341: END IF;
13356: OR nvl(p_track_costs_flag_change, 'N') = 'Y' OR ( nvl(p_rbs_version_change, 'N') = 'Y' AND
13357: (nvl(PA_WORKPLAN_ATTR_UTILS.Check_Wp_Versioning_Enabled(p_project_id),'N') = 'N'
13358: OR nvl(PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_project_id),'N') = 'Y')) THEN
13359: IF l_debug_mode = 'Y' THEN
13360: pa_debug.g_err_stage:='About to insert positive values with new rbs element ids';
13361: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
13362: END IF;
13363:
13364:
13357: (nvl(PA_WORKPLAN_ATTR_UTILS.Check_Wp_Versioning_Enabled(p_project_id),'N') = 'N'
13358: OR nvl(PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_project_id),'N') = 'Y')) THEN
13359: IF l_debug_mode = 'Y' THEN
13360: pa_debug.g_err_stage:='About to insert positive values with new rbs element ids';
13361: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
13362: END IF;
13363:
13364:
13365: FOR i IN l_budget_version_id_tbl.FIRST .. l_budget_version_id_tbl.LAST
13374: ,x_msg_count => x_msg_count);
13375:
13376: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13377: IF l_debug_mode = 'Y' THEN
13378: pa_debug.g_err_stage:='PA_PLANNING_TRANSACTION_UTILS.call_update_rep_lines_api returned error';
13379: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
13380: END IF; RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13381: END IF;
13382: END LOOP;
13375:
13376: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13377: IF l_debug_mode = 'Y' THEN
13378: pa_debug.g_err_stage:='PA_PLANNING_TRANSACTION_UTILS.call_update_rep_lines_api returned error';
13379: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
13380: END IF; RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13381: END IF;
13382: END LOOP;
13383:
13401: End of commented code for bug 5073350*/
13402: END IF; -- inserting positive rows
13403:
13404: IF l_debug_mode = 'Y' THEN
13405: pa_debug.g_err_stage:='Exiting REFRESH_WP_SETTINGS';
13406: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,3);
13407: -- reset curr function
13408: pa_debug.reset_curr_function();
13409: END IF;
13402: END IF; -- inserting positive rows
13403:
13404: IF l_debug_mode = 'Y' THEN
13405: pa_debug.g_err_stage:='Exiting REFRESH_WP_SETTINGS';
13406: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,3);
13407: -- reset curr function
13408: pa_debug.reset_curr_function();
13409: END IF;
13410:
13404: IF l_debug_mode = 'Y' THEN
13405: pa_debug.g_err_stage:='Exiting REFRESH_WP_SETTINGS';
13406: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,3);
13407: -- reset curr function
13408: pa_debug.reset_curr_function();
13409: END IF;
13410:
13411: EXCEPTION
13412:
13429:
13430: x_return_status := FND_API.G_RET_STS_ERROR;
13431:
13432: IF l_debug_mode = 'Y' THEN
13433: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
13434: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13435: -- reset curr function
13436: pa_debug.reset_curr_function();
13437: END IF;
13430: x_return_status := FND_API.G_RET_STS_ERROR;
13431:
13432: IF l_debug_mode = 'Y' THEN
13433: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
13434: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13435: -- reset curr function
13436: pa_debug.reset_curr_function();
13437: END IF;
13438:
13432: IF l_debug_mode = 'Y' THEN
13433: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
13434: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13435: -- reset curr function
13436: pa_debug.reset_curr_function();
13437: END IF;
13438:
13439: RETURN;
13440: WHEN Others THEN
13445: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_PLANNING_TRANSACTION_PUB'
13446: ,p_procedure_name => 'REFRESH_WP_SETTINGS');
13447:
13448: IF l_debug_mode = 'Y' THEN
13449: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
13450: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13451: -- reset curr function
13452: pa_debug.Reset_Curr_Function();
13453: END IF;
13446: ,p_procedure_name => 'REFRESH_WP_SETTINGS');
13447:
13448: IF l_debug_mode = 'Y' THEN
13449: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
13450: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13451: -- reset curr function
13452: pa_debug.Reset_Curr_Function();
13453: END IF;
13454: RAISE;
13448: IF l_debug_mode = 'Y' THEN
13449: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
13450: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13451: -- reset curr function
13452: pa_debug.Reset_Curr_Function();
13453: END IF;
13454: RAISE;
13455: END REFRESH_WP_SETTINGS;
13456:
13538:
13539: x_msg_count := 0;
13540: x_return_status := FND_API.G_RET_STS_SUCCESS;
13541:
13542: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
13543: l_debug_mode := NVL(l_debug_mode, 'Y');
13544:
13545: -- Set curr function
13546: IF l_debug_mode = 'Y' THEN
13543: l_debug_mode := NVL(l_debug_mode, 'Y');
13544:
13545: -- Set curr function
13546: IF l_debug_mode = 'Y' THEN
13547: pa_debug.set_curr_function(
13548: p_function =>'PAFPPTPB.Refresh_rbs_for_versions'
13549: ,p_debug_mode => l_debug_mode );
13550: END IF;
13551: -- Check for business rules violations
13549: ,p_debug_mode => l_debug_mode );
13550: END IF;
13551: -- Check for business rules violations
13552: IF l_debug_mode = 'Y' THEN
13553: pa_debug.g_err_stage:='Validating input parameters';
13554: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,3);
13555: END IF;
13556:
13557: IF (p_project_id IS NULL) OR
13550: END IF;
13551: -- Check for business rules violations
13552: IF l_debug_mode = 'Y' THEN
13553: pa_debug.g_err_stage:='Validating input parameters';
13554: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,3);
13555: END IF;
13556:
13557: IF (p_project_id IS NULL) OR
13558: (p_fin_plan_type_id IS NULL) OR
13559: (p_calling_context = 'SINGLE_VERSION' AND p_budget_version_id IS NULL )
13560: THEN
13561:
13562: IF l_debug_mode = 'Y' THEN
13563: pa_debug.g_err_stage:='Project_id = '||p_project_id;
13564: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13565:
13566: pa_debug.g_err_stage:='Fin_plan_type_id = '||p_fin_plan_type_id;
13567: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13560: THEN
13561:
13562: IF l_debug_mode = 'Y' THEN
13563: pa_debug.g_err_stage:='Project_id = '||p_project_id;
13564: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13565:
13566: pa_debug.g_err_stage:='Fin_plan_type_id = '||p_fin_plan_type_id;
13567: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13568:
13562: IF l_debug_mode = 'Y' THEN
13563: pa_debug.g_err_stage:='Project_id = '||p_project_id;
13564: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13565:
13566: pa_debug.g_err_stage:='Fin_plan_type_id = '||p_fin_plan_type_id;
13567: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13568:
13569: pa_debug.g_err_stage:='p_calling_context = '||p_calling_context;
13570: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13563: pa_debug.g_err_stage:='Project_id = '||p_project_id;
13564: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13565:
13566: pa_debug.g_err_stage:='Fin_plan_type_id = '||p_fin_plan_type_id;
13567: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13568:
13569: pa_debug.g_err_stage:='p_calling_context = '||p_calling_context;
13570: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13571:
13565:
13566: pa_debug.g_err_stage:='Fin_plan_type_id = '||p_fin_plan_type_id;
13567: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13568:
13569: pa_debug.g_err_stage:='p_calling_context = '||p_calling_context;
13570: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13571:
13572: pa_debug.g_err_stage:='p_budget_version_id = '||p_budget_version_id;
13573: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13566: pa_debug.g_err_stage:='Fin_plan_type_id = '||p_fin_plan_type_id;
13567: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13568:
13569: pa_debug.g_err_stage:='p_calling_context = '||p_calling_context;
13570: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13571:
13572: pa_debug.g_err_stage:='p_budget_version_id = '||p_budget_version_id;
13573: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13574: END IF;
13568:
13569: pa_debug.g_err_stage:='p_calling_context = '||p_calling_context;
13570: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13571:
13572: pa_debug.g_err_stage:='p_budget_version_id = '||p_budget_version_id;
13573: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13574: END IF;
13575:
13576: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
13569: pa_debug.g_err_stage:='p_calling_context = '||p_calling_context;
13570: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13571:
13572: pa_debug.g_err_stage:='p_budget_version_id = '||p_budget_version_id;
13573: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13574: END IF;
13575:
13576: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
13577: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
13602: -- Added NOT for bug 4094762
13603: IF input_budget_version_rec.ci_id IS NOT NULL THEN
13604:
13605: IF l_debug_mode = 'Y' THEN
13606: pa_debug.g_err_stage:=' PJI data not required for CI versions. Returning';
13607: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,3);
13608: pa_debug.reset_curr_function();
13609: END IF;
13610: RETURN;
13603: IF input_budget_version_rec.ci_id IS NOT NULL THEN
13604:
13605: IF l_debug_mode = 'Y' THEN
13606: pa_debug.g_err_stage:=' PJI data not required for CI versions. Returning';
13607: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,3);
13608: pa_debug.reset_curr_function();
13609: END IF;
13610: RETURN;
13611:
13604:
13605: IF l_debug_mode = 'Y' THEN
13606: pa_debug.g_err_stage:=' PJI data not required for CI versions. Returning';
13607: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,3);
13608: pa_debug.reset_curr_function();
13609: END IF;
13610: RETURN;
13611:
13612: END IF;
13629:
13630: -- if there are no budget versions for the plan type return
13631: IF l_budget_version_id_tbl.count = 0 THEN
13632: IF l_debug_mode = 'Y' THEN
13633: pa_debug.g_err_stage:='Working Versions do not exist for the plan type. Returning';
13634: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,3);
13635: pa_debug.reset_curr_function();
13636: END IF;
13637: RETURN;
13630: -- if there are no budget versions for the plan type return
13631: IF l_budget_version_id_tbl.count = 0 THEN
13632: IF l_debug_mode = 'Y' THEN
13633: pa_debug.g_err_stage:='Working Versions do not exist for the plan type. Returning';
13634: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,3);
13635: pa_debug.reset_curr_function();
13636: END IF;
13637: RETURN;
13638: END IF;
13631: IF l_budget_version_id_tbl.count = 0 THEN
13632: IF l_debug_mode = 'Y' THEN
13633: pa_debug.g_err_stage:='Working Versions do not exist for the plan type. Returning';
13634: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,3);
13635: pa_debug.reset_curr_function();
13636: END IF;
13637: RETURN;
13638: END IF;
13639:
13675:
13676: -- Check return status
13677: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13678: IF l_debug_mode = 'Y' THEN
13679: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api returned error';
13680: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13681: END IF;
13682: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13683: ELSE
13676: -- Check return status
13677: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13678: IF l_debug_mode = 'Y' THEN
13679: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api returned error';
13680: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13681: END IF;
13682: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13683: ELSE
13684: -- Check count of the required out tables to be the same
13685: IF l_txn_source_id_tbl.count <> l_rbs_element_id_tbl.count OR
13686: l_txn_source_id_tbl.count <> l_txn_accum_header_id_tbl.count
13687: THEN
13688: IF l_debug_mode = 'Y' THEN
13689: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api
13690: returned out tables with different count';
13691: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13692: pa_debug.g_err_stage:='l_txn_source_id_tbl.count = ' || l_txn_source_id_tbl.count;
13693: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13687: THEN
13688: IF l_debug_mode = 'Y' THEN
13689: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api
13690: returned out tables with different count';
13691: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13692: pa_debug.g_err_stage:='l_txn_source_id_tbl.count = ' || l_txn_source_id_tbl.count;
13693: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13694: pa_debug.g_err_stage:='l_rbs_element_id_tbl.count = ' || l_rbs_element_id_tbl.count;
13695: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13688: IF l_debug_mode = 'Y' THEN
13689: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api
13690: returned out tables with different count';
13691: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13692: pa_debug.g_err_stage:='l_txn_source_id_tbl.count = ' || l_txn_source_id_tbl.count;
13693: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13694: pa_debug.g_err_stage:='l_rbs_element_id_tbl.count = ' || l_rbs_element_id_tbl.count;
13695: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13696: pa_debug.g_err_stage:=
13689: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api
13690: returned out tables with different count';
13691: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13692: pa_debug.g_err_stage:='l_txn_source_id_tbl.count = ' || l_txn_source_id_tbl.count;
13693: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13694: pa_debug.g_err_stage:='l_rbs_element_id_tbl.count = ' || l_rbs_element_id_tbl.count;
13695: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13696: pa_debug.g_err_stage:=
13697: 'l_txn_accum_header_id_tbl.count = ' || l_txn_accum_header_id_tbl.count;
13690: returned out tables with different count';
13691: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13692: pa_debug.g_err_stage:='l_txn_source_id_tbl.count = ' || l_txn_source_id_tbl.count;
13693: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13694: pa_debug.g_err_stage:='l_rbs_element_id_tbl.count = ' || l_rbs_element_id_tbl.count;
13695: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13696: pa_debug.g_err_stage:=
13697: 'l_txn_accum_header_id_tbl.count = ' || l_txn_accum_header_id_tbl.count;
13698: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13691: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13692: pa_debug.g_err_stage:='l_txn_source_id_tbl.count = ' || l_txn_source_id_tbl.count;
13693: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13694: pa_debug.g_err_stage:='l_rbs_element_id_tbl.count = ' || l_rbs_element_id_tbl.count;
13695: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13696: pa_debug.g_err_stage:=
13697: 'l_txn_accum_header_id_tbl.count = ' || l_txn_accum_header_id_tbl.count;
13698: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13699: END IF;
13692: pa_debug.g_err_stage:='l_txn_source_id_tbl.count = ' || l_txn_source_id_tbl.count;
13693: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13694: pa_debug.g_err_stage:='l_rbs_element_id_tbl.count = ' || l_rbs_element_id_tbl.count;
13695: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13696: pa_debug.g_err_stage:=
13697: 'l_txn_accum_header_id_tbl.count = ' || l_txn_accum_header_id_tbl.count;
13698: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13699: END IF;
13700: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13694: pa_debug.g_err_stage:='l_rbs_element_id_tbl.count = ' || l_rbs_element_id_tbl.count;
13695: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13696: pa_debug.g_err_stage:=
13697: 'l_txn_accum_header_id_tbl.count = ' || l_txn_accum_header_id_tbl.count;
13698: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13699: END IF;
13700: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13701: END IF;
13702: END IF;
13755: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13756: END IF;
13757:
13758: IF l_debug_mode = 'Y' THEN
13759: pa_debug.g_err_stage:='Exiting Refresh_rbs_for_versions';
13760: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,3);
13761: -- reset curr function
13762: pa_debug.reset_curr_function();
13763: END IF;
13756: END IF;
13757:
13758: IF l_debug_mode = 'Y' THEN
13759: pa_debug.g_err_stage:='Exiting Refresh_rbs_for_versions';
13760: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,3);
13761: -- reset curr function
13762: pa_debug.reset_curr_function();
13763: END IF;
13764:
13758: IF l_debug_mode = 'Y' THEN
13759: pa_debug.g_err_stage:='Exiting Refresh_rbs_for_versions';
13760: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,3);
13761: -- reset curr function
13762: pa_debug.reset_curr_function();
13763: END IF;
13764:
13765: EXCEPTION
13766:
13783:
13784: x_return_status := FND_API.G_RET_STS_ERROR;
13785:
13786: IF l_debug_mode = 'Y' THEN
13787: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
13788: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13789: -- reset curr function
13790: pa_debug.reset_curr_function();
13791: END IF;
13784: x_return_status := FND_API.G_RET_STS_ERROR;
13785:
13786: IF l_debug_mode = 'Y' THEN
13787: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
13788: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13789: -- reset curr function
13790: pa_debug.reset_curr_function();
13791: END IF;
13792: RETURN;
13786: IF l_debug_mode = 'Y' THEN
13787: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
13788: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13789: -- reset curr function
13790: pa_debug.reset_curr_function();
13791: END IF;
13792: RETURN;
13793: WHEN Others THEN
13794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13798: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_planning_transaction_pub'
13799: ,p_procedure_name => 'Refresh_rbs_for_versions');
13800:
13801: IF l_debug_mode = 'Y' THEN
13802: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
13803: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13804: -- reset curr function
13805: pa_debug.Reset_Curr_Function();
13806: END IF;
13799: ,p_procedure_name => 'Refresh_rbs_for_versions');
13800:
13801: IF l_debug_mode = 'Y' THEN
13802: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
13803: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13804: -- reset curr function
13805: pa_debug.Reset_Curr_Function();
13806: END IF;
13807: RAISE;
13801: IF l_debug_mode = 'Y' THEN
13802: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
13803: pa_debug.write('Refresh_rbs_for_versions: ' || g_module_name,pa_debug.g_err_stage,5);
13804: -- reset curr function
13805: pa_debug.Reset_Curr_Function();
13806: END IF;
13807: RAISE;
13808: END Refresh_rbs_for_versions;
13809: