1: PACKAGE BODY PA_FP_ADJUSTMENT_UTILS AS
2: -- $Header: PAFPADJB.pls 120.5 2007/11/26 07:50:38 vgovvala ship $
3:
4: P_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
5: L_MODULE varchar2(100) := 'PA_FP_ADJUSTMENT_UTILS';
6: L_FuncProc varchar2(250) := 'DEFAULT';
7: li_message_level NUMBER := 1;
8: li_curr_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
184:
185: L_FuncProc := 'Get_Summary_Info';
186: x_return_status := FND_API.G_RET_STS_SUCCESS;
187:
188: pa_debug.g_err_stage:='Beginning of ' || L_FuncProc;
189: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
190:
191: --Obtain Plan Info
192:
185: L_FuncProc := 'Get_Summary_Info';
186: x_return_status := FND_API.G_RET_STS_SUCCESS;
187:
188: pa_debug.g_err_stage:='Beginning of ' || L_FuncProc;
189: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
190:
191: --Obtain Plan Info
192:
193: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
190:
191: --Obtain Plan Info
192:
193: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
194: PA_DEBUG.write(x_module => L_Module,
195: x_msg => 'p_project_id: ' || p_project_id,
196: x_log_level => 3);
197: PA_DEBUG.write(x_module => L_Module,
198: x_msg => 'p_cost_budget_version_id: ' || p_cost_budget_version_id,
193: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
194: PA_DEBUG.write(x_module => L_Module,
195: x_msg => 'p_project_id: ' || p_project_id,
196: x_log_level => 3);
197: PA_DEBUG.write(x_module => L_Module,
198: x_msg => 'p_cost_budget_version_id: ' || p_cost_budget_version_id,
199: x_log_level => 3);
200: PA_DEBUG.write(x_module => L_Module,
201: x_msg => 'p_rev_budget_version_id: ' || p_rev_budget_version_id,
196: x_log_level => 3);
197: PA_DEBUG.write(x_module => L_Module,
198: x_msg => 'p_cost_budget_version_id: ' || p_cost_budget_version_id,
199: x_log_level => 3);
200: PA_DEBUG.write(x_module => L_Module,
201: x_msg => 'p_rev_budget_version_id: ' || p_rev_budget_version_id,
202: x_log_level => 3);
203: PA_DEBUG.write(x_module => L_Module,
204: x_msg => 'p_wbs_element_id: ' || p_wbs_element_id,
199: x_log_level => 3);
200: PA_DEBUG.write(x_module => L_Module,
201: x_msg => 'p_rev_budget_version_id: ' || p_rev_budget_version_id,
202: x_log_level => 3);
203: PA_DEBUG.write(x_module => L_Module,
204: x_msg => 'p_wbs_element_id: ' || p_wbs_element_id,
205: x_log_level => 3);
206: PA_DEBUG.write(x_module => L_Module,
207: x_msg => 'p_rbs_element_id: ' || p_rbs_element_id,
202: x_log_level => 3);
203: PA_DEBUG.write(x_module => L_Module,
204: x_msg => 'p_wbs_element_id: ' || p_wbs_element_id,
205: x_log_level => 3);
206: PA_DEBUG.write(x_module => L_Module,
207: x_msg => 'p_rbs_element_id: ' || p_rbs_element_id,
208: x_log_level => 3);
209: PA_DEBUG.write(x_module => L_Module,
210: x_msg => 'p_wbs_structure_version_id: ' || p_wbs_structure_version_id,
205: x_log_level => 3);
206: PA_DEBUG.write(x_module => L_Module,
207: x_msg => 'p_rbs_element_id: ' || p_rbs_element_id,
208: x_log_level => 3);
209: PA_DEBUG.write(x_module => L_Module,
210: x_msg => 'p_wbs_structure_version_id: ' || p_wbs_structure_version_id,
211: x_log_level => 3);
212: PA_DEBUG.write(x_module => L_Module,
213: x_msg => 'p_rbs_version_id: ' || p_rbs_version_id,
208: x_log_level => 3);
209: PA_DEBUG.write(x_module => L_Module,
210: x_msg => 'p_wbs_structure_version_id: ' || p_wbs_structure_version_id,
211: x_log_level => 3);
212: PA_DEBUG.write(x_module => L_Module,
213: x_msg => 'p_rbs_version_id: ' || p_rbs_version_id,
214: x_log_level => 3);
215: PA_DEBUG.write(x_module => L_Module,
216: x_msg => 'p_resource_tbl_flag: ' || p_resource_tbl_flag,
211: x_log_level => 3);
212: PA_DEBUG.write(x_module => L_Module,
213: x_msg => 'p_rbs_version_id: ' || p_rbs_version_id,
214: x_log_level => 3);
215: PA_DEBUG.write(x_module => L_Module,
216: x_msg => 'p_resource_tbl_flag: ' || p_resource_tbl_flag,
217: x_log_level => 3);
218: FOR temp_i IN 1..p_resource_assignment_id_tbl.COUNT LOOP
219: PA_DEBUG.write(x_module => L_Module,
215: PA_DEBUG.write(x_module => L_Module,
216: x_msg => 'p_resource_tbl_flag: ' || p_resource_tbl_flag,
217: x_log_level => 3);
218: FOR temp_i IN 1..p_resource_assignment_id_tbl.COUNT LOOP
219: PA_DEBUG.write(x_module => L_Module,
220: x_msg => 'p_resource_assignment_id_tbl(' || temp_i || '): ' || p_resource_assignment_id_tbl(temp_i),
221: x_log_level => 3);
222: END LOOP;
223: FOR temp_i IN 1..p_txn_currency_code_tbl.COUNT LOOP
220: x_msg => 'p_resource_assignment_id_tbl(' || temp_i || '): ' || p_resource_assignment_id_tbl(temp_i),
221: x_log_level => 3);
222: END LOOP;
223: FOR temp_i IN 1..p_txn_currency_code_tbl.COUNT LOOP
224: PA_DEBUG.write(x_module => L_Module,
225: x_msg => 'p_txn_currency_code_tbl(' || temp_i || '): ' || p_txn_currency_code_tbl(temp_i),
226: x_log_level => 3);
227: END LOOP;
228: PA_DEBUG.write(x_module => L_Module,
224: PA_DEBUG.write(x_module => L_Module,
225: x_msg => 'p_txn_currency_code_tbl(' || temp_i || '): ' || p_txn_currency_code_tbl(temp_i),
226: x_log_level => 3);
227: END LOOP;
228: PA_DEBUG.write(x_module => L_Module,
229: x_msg => 'p_wbs_rollup_flag: ' || p_wbs_rollup_flag,
230: x_log_level => 3);
231: PA_DEBUG.write(x_module => L_Module,
232: x_msg => 'p_rbs_rollup_flag: ' || p_rbs_rollup_flag,
227: END LOOP;
228: PA_DEBUG.write(x_module => L_Module,
229: x_msg => 'p_wbs_rollup_flag: ' || p_wbs_rollup_flag,
230: x_log_level => 3);
231: PA_DEBUG.write(x_module => L_Module,
232: x_msg => 'p_rbs_rollup_flag: ' || p_rbs_rollup_flag,
233: x_log_level => 3);
234: END IF;
235:
279: l_workplan_costs_enabled_flag;
280: CLOSE C1_Plan_Info;
281: END IF;
282:
283: PA_DEBUG.write(x_module => L_Module,
284: x_msg => 'Got Plan Info',
285: x_log_level => 3);
286:
287: --Obtain Currency Info
292: x_pfc_currency;
293: CLOSE C1_Currency_Info;
294: END IF;
295:
296: PA_DEBUG.write(x_module => L_Module,
297: x_msg => 'Got Currency Info',
298: x_log_level => 3);
299:
300: --Obtain Task Name/Number.
321: END IF;
322: END LOOP;
323: END IF;
324:
325: PA_DEBUG.write(x_module => L_Module,
326: x_msg => 'Got Task Name/Number',
327: x_log_level => 3);
328:
329: --Obtain Resource Name
364: END IF;
365: END LOOP;
366: END IF;
367:
368: PA_DEBUG.write(x_module => L_Module,
369: x_msg => 'Got Resource Info',
370: x_log_level => 3);
371:
372: IF l_predicate1 is not null and p_txn_currency_code_tbl.COUNT > 0 THEN
630: x_rev_total_labor_hours, x_rev_total_equip_hours;
631: CLOSE l_cur;
632: END IF;
633:
634: PA_DEBUG.write(x_module => L_Module,
635: x_msg => 'Fetched Data',
636: x_log_level => 3);
637:
638: --Margin Calculation can be calculated using either Raw Cost or Burdened Cost.
654: IF x_pc_revenue <> 0 THEN
655: x_margin_percent := NVL((x_pc_margin/x_pc_revenue)*100,0);
656: END IF;
657:
658: pa_debug.g_err_stage:='End of ' || L_FuncProc;
659: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
660:
661: EXCEPTION
662: WHEN OTHERS THEN
655: x_margin_percent := NVL((x_pc_margin/x_pc_revenue)*100,0);
656: END IF;
657:
658: pa_debug.g_err_stage:='End of ' || L_FuncProc;
659: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
660:
661: EXCEPTION
662: WHEN OTHERS THEN
663: --dbms_output.put_line('Others Exception in ' || L_FuncProc);
661: EXCEPTION
662: WHEN OTHERS THEN
663: --dbms_output.put_line('Others Exception in ' || L_FuncProc);
664: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 6) THEN
665: PA_DEBUG.write_log (x_module => L_Module
666: ,x_msg => 'Unexp. Error:' || L_FuncProc || SQLERRM
667: ,x_log_level => 6);
668: END IF;
669: FND_MSG_PUB.add_exc_msg( p_pkg_name => L_Module,
880:
881: L_FuncProc := 'Compute_Hierarchy';
882: x_return_status := FND_API.G_RET_STS_SUCCESS;
883:
884: pa_debug.g_err_stage:='Beginning of ' || L_FuncProc;
885: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
886:
887: x_res_assignment_id_tbl := SYSTEM.PA_NUM_TBL_TYPE();
888: x_txn_currency_code_tbl := SYSTEM.pa_varchar2_15_tbl_type();
881: L_FuncProc := 'Compute_Hierarchy';
882: x_return_status := FND_API.G_RET_STS_SUCCESS;
883:
884: pa_debug.g_err_stage:='Beginning of ' || L_FuncProc;
885: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
886:
887: x_res_assignment_id_tbl := SYSTEM.PA_NUM_TBL_TYPE();
888: x_txn_currency_code_tbl := SYSTEM.pa_varchar2_15_tbl_type();
889: x_rev_res_assignment_id_tbl := SYSTEM.PA_NUM_TBL_TYPE();
1343: END IF;
1344:
1345: END IF;
1346:
1347: pa_debug.g_err_stage:='End of ' || L_FuncProc;
1348: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1349:
1350: EXCEPTION
1351: WHEN OTHERS THEN
1344:
1345: END IF;
1346:
1347: pa_debug.g_err_stage:='End of ' || L_FuncProc;
1348: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1349:
1350: EXCEPTION
1351: WHEN OTHERS THEN
1352: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 6) THEN
1349:
1350: EXCEPTION
1351: WHEN OTHERS THEN
1352: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 6) THEN
1353: PA_DEBUG.write_log (x_module => L_Module
1354: ,x_msg => 'Unexp. Error:' || L_FuncProc || SQLERRM
1355: ,x_log_level => 6);
1356: END IF;
1357: FND_MSG_PUB.add_exc_msg( p_pkg_name => L_Module,
1454:
1455: L_FuncProc := 'Adjust_Planning_Transactions';
1456: x_return_status := FND_API.G_RET_STS_SUCCESS;
1457:
1458: pa_debug.g_err_stage:='Beginning of ' || L_FuncProc;
1459: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1460:
1461: IF p_adjustment_type = 'QUANTITY' THEN
1462: l_quantity_adj_pct := p_adjustment_percentage;
1455: L_FuncProc := 'Adjust_Planning_Transactions';
1456: x_return_status := FND_API.G_RET_STS_SUCCESS;
1457:
1458: pa_debug.g_err_stage:='Beginning of ' || L_FuncProc;
1459: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1460:
1461: IF p_adjustment_type = 'QUANTITY' THEN
1462: l_quantity_adj_pct := p_adjustment_percentage;
1463: ELSIF p_adjustment_type = 'COST_QUANTITY' THEN
1480: ELSE
1481: RETURN;
1482: END IF;
1483:
1484: pa_debug.g_err_stage:='p_project_id ' || p_project_id;
1485: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1486: pa_debug.g_err_stage:= L_FuncProc || ' p_context: ' || p_context;
1487: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1488: pa_debug.g_err_stage:= L_FuncProc || ' p_user_id: ' || p_user_id;
1481: RETURN;
1482: END IF;
1483:
1484: pa_debug.g_err_stage:='p_project_id ' || p_project_id;
1485: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1486: pa_debug.g_err_stage:= L_FuncProc || ' p_context: ' || p_context;
1487: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1488: pa_debug.g_err_stage:= L_FuncProc || ' p_user_id: ' || p_user_id;
1489: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1482: END IF;
1483:
1484: pa_debug.g_err_stage:='p_project_id ' || p_project_id;
1485: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1486: pa_debug.g_err_stage:= L_FuncProc || ' p_context: ' || p_context;
1487: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1488: pa_debug.g_err_stage:= L_FuncProc || ' p_user_id: ' || p_user_id;
1489: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1490: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_budget_version_id: ' || p_cost_budget_version_id;
1483:
1484: pa_debug.g_err_stage:='p_project_id ' || p_project_id;
1485: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1486: pa_debug.g_err_stage:= L_FuncProc || ' p_context: ' || p_context;
1487: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1488: pa_debug.g_err_stage:= L_FuncProc || ' p_user_id: ' || p_user_id;
1489: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1490: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_budget_version_id: ' || p_cost_budget_version_id;
1491: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1484: pa_debug.g_err_stage:='p_project_id ' || p_project_id;
1485: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1486: pa_debug.g_err_stage:= L_FuncProc || ' p_context: ' || p_context;
1487: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1488: pa_debug.g_err_stage:= L_FuncProc || ' p_user_id: ' || p_user_id;
1489: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1490: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_budget_version_id: ' || p_cost_budget_version_id;
1491: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1492: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_budget_version_id: ' || p_rev_budget_version_id;
1485: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1486: pa_debug.g_err_stage:= L_FuncProc || ' p_context: ' || p_context;
1487: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1488: pa_debug.g_err_stage:= L_FuncProc || ' p_user_id: ' || p_user_id;
1489: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1490: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_budget_version_id: ' || p_cost_budget_version_id;
1491: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1492: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_budget_version_id: ' || p_rev_budget_version_id;
1493: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1486: pa_debug.g_err_stage:= L_FuncProc || ' p_context: ' || p_context;
1487: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1488: pa_debug.g_err_stage:= L_FuncProc || ' p_user_id: ' || p_user_id;
1489: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1490: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_budget_version_id: ' || p_cost_budget_version_id;
1491: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1492: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_budget_version_id: ' || p_rev_budget_version_id;
1493: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1494: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_fin_plan_type_id: ' || p_cost_fin_plan_type_id;
1487: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1488: pa_debug.g_err_stage:= L_FuncProc || ' p_user_id: ' || p_user_id;
1489: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1490: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_budget_version_id: ' || p_cost_budget_version_id;
1491: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1492: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_budget_version_id: ' || p_rev_budget_version_id;
1493: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1494: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_fin_plan_type_id: ' || p_cost_fin_plan_type_id;
1495: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1488: pa_debug.g_err_stage:= L_FuncProc || ' p_user_id: ' || p_user_id;
1489: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1490: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_budget_version_id: ' || p_cost_budget_version_id;
1491: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1492: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_budget_version_id: ' || p_rev_budget_version_id;
1493: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1494: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_fin_plan_type_id: ' || p_cost_fin_plan_type_id;
1495: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1496: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_version_type: ' || p_cost_version_type;
1489: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1490: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_budget_version_id: ' || p_cost_budget_version_id;
1491: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1492: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_budget_version_id: ' || p_rev_budget_version_id;
1493: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1494: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_fin_plan_type_id: ' || p_cost_fin_plan_type_id;
1495: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1496: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_version_type: ' || p_cost_version_type;
1497: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1490: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_budget_version_id: ' || p_cost_budget_version_id;
1491: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1492: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_budget_version_id: ' || p_rev_budget_version_id;
1493: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1494: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_fin_plan_type_id: ' || p_cost_fin_plan_type_id;
1495: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1496: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_version_type: ' || p_cost_version_type;
1497: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1498: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_fin_plan_type_id: ' || p_rev_fin_plan_type_id;
1491: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1492: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_budget_version_id: ' || p_rev_budget_version_id;
1493: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1494: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_fin_plan_type_id: ' || p_cost_fin_plan_type_id;
1495: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1496: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_version_type: ' || p_cost_version_type;
1497: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1498: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_fin_plan_type_id: ' || p_rev_fin_plan_type_id;
1499: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1492: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_budget_version_id: ' || p_rev_budget_version_id;
1493: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1494: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_fin_plan_type_id: ' || p_cost_fin_plan_type_id;
1495: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1496: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_version_type: ' || p_cost_version_type;
1497: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1498: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_fin_plan_type_id: ' || p_rev_fin_plan_type_id;
1499: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1500: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_version_type: ' || p_rev_version_type;
1493: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1494: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_fin_plan_type_id: ' || p_cost_fin_plan_type_id;
1495: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1496: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_version_type: ' || p_cost_version_type;
1497: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1498: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_fin_plan_type_id: ' || p_rev_fin_plan_type_id;
1499: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1500: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_version_type: ' || p_rev_version_type;
1501: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1494: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_fin_plan_type_id: ' || p_cost_fin_plan_type_id;
1495: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1496: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_version_type: ' || p_cost_version_type;
1497: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1498: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_fin_plan_type_id: ' || p_rev_fin_plan_type_id;
1499: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1500: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_version_type: ' || p_rev_version_type;
1501: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1502: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_flag: ' || p_new_version_flag;
1495: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1496: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_version_type: ' || p_cost_version_type;
1497: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1498: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_fin_plan_type_id: ' || p_rev_fin_plan_type_id;
1499: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1500: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_version_type: ' || p_rev_version_type;
1501: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1502: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_flag: ' || p_new_version_flag;
1503: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1496: pa_debug.g_err_stage:= L_FuncProc || ' p_cost_version_type: ' || p_cost_version_type;
1497: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1498: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_fin_plan_type_id: ' || p_rev_fin_plan_type_id;
1499: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1500: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_version_type: ' || p_rev_version_type;
1501: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1502: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_flag: ' || p_new_version_flag;
1503: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1504: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_name: ' || p_new_version_name;
1497: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1498: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_fin_plan_type_id: ' || p_rev_fin_plan_type_id;
1499: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1500: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_version_type: ' || p_rev_version_type;
1501: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1502: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_flag: ' || p_new_version_flag;
1503: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1504: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_name: ' || p_new_version_name;
1505: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1498: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_fin_plan_type_id: ' || p_rev_fin_plan_type_id;
1499: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1500: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_version_type: ' || p_rev_version_type;
1501: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1502: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_flag: ' || p_new_version_flag;
1503: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1504: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_name: ' || p_new_version_name;
1505: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1506: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_desc: ' || p_new_version_desc;
1499: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1500: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_version_type: ' || p_rev_version_type;
1501: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1502: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_flag: ' || p_new_version_flag;
1503: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1504: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_name: ' || p_new_version_name;
1505: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1506: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_desc: ' || p_new_version_desc;
1507: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1500: pa_debug.g_err_stage:= L_FuncProc || ' p_rev_version_type: ' || p_rev_version_type;
1501: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1502: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_flag: ' || p_new_version_flag;
1503: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1504: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_name: ' || p_new_version_name;
1505: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1506: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_desc: ' || p_new_version_desc;
1507: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1508: pa_debug.g_err_stage:= L_FuncProc || ' p_adjustment_type: ' || p_adjustment_type;
1501: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1502: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_flag: ' || p_new_version_flag;
1503: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1504: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_name: ' || p_new_version_name;
1505: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1506: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_desc: ' || p_new_version_desc;
1507: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1508: pa_debug.g_err_stage:= L_FuncProc || ' p_adjustment_type: ' || p_adjustment_type;
1509: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1502: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_flag: ' || p_new_version_flag;
1503: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1504: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_name: ' || p_new_version_name;
1505: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1506: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_desc: ' || p_new_version_desc;
1507: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1508: pa_debug.g_err_stage:= L_FuncProc || ' p_adjustment_type: ' || p_adjustment_type;
1509: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1510: pa_debug.g_err_stage:= L_FuncProc || ' p_adjustment_percentage: ' || p_adjustment_percentage;
1503: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1504: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_name: ' || p_new_version_name;
1505: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1506: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_desc: ' || p_new_version_desc;
1507: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1508: pa_debug.g_err_stage:= L_FuncProc || ' p_adjustment_type: ' || p_adjustment_type;
1509: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1510: pa_debug.g_err_stage:= L_FuncProc || ' p_adjustment_percentage: ' || p_adjustment_percentage;
1511: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1504: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_name: ' || p_new_version_name;
1505: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1506: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_desc: ' || p_new_version_desc;
1507: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1508: pa_debug.g_err_stage:= L_FuncProc || ' p_adjustment_type: ' || p_adjustment_type;
1509: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1510: pa_debug.g_err_stage:= L_FuncProc || ' p_adjustment_percentage: ' || p_adjustment_percentage;
1511: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1512: pa_debug.g_err_stage:= L_FuncProc || ' p_WBS_Element_Id: ' || p_WBS_Element_Id;
1505: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1506: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_desc: ' || p_new_version_desc;
1507: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1508: pa_debug.g_err_stage:= L_FuncProc || ' p_adjustment_type: ' || p_adjustment_type;
1509: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1510: pa_debug.g_err_stage:= L_FuncProc || ' p_adjustment_percentage: ' || p_adjustment_percentage;
1511: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1512: pa_debug.g_err_stage:= L_FuncProc || ' p_WBS_Element_Id: ' || p_WBS_Element_Id;
1513: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1506: pa_debug.g_err_stage:= L_FuncProc || ' p_new_version_desc: ' || p_new_version_desc;
1507: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1508: pa_debug.g_err_stage:= L_FuncProc || ' p_adjustment_type: ' || p_adjustment_type;
1509: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1510: pa_debug.g_err_stage:= L_FuncProc || ' p_adjustment_percentage: ' || p_adjustment_percentage;
1511: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1512: pa_debug.g_err_stage:= L_FuncProc || ' p_WBS_Element_Id: ' || p_WBS_Element_Id;
1513: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1514: pa_debug.g_err_stage:= L_FuncProc || ' p_RBS_Element_Id: ' || p_RBS_Element_Id;
1507: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1508: pa_debug.g_err_stage:= L_FuncProc || ' p_adjustment_type: ' || p_adjustment_type;
1509: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1510: pa_debug.g_err_stage:= L_FuncProc || ' p_adjustment_percentage: ' || p_adjustment_percentage;
1511: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1512: pa_debug.g_err_stage:= L_FuncProc || ' p_WBS_Element_Id: ' || p_WBS_Element_Id;
1513: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1514: pa_debug.g_err_stage:= L_FuncProc || ' p_RBS_Element_Id: ' || p_RBS_Element_Id;
1515: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1508: pa_debug.g_err_stage:= L_FuncProc || ' p_adjustment_type: ' || p_adjustment_type;
1509: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1510: pa_debug.g_err_stage:= L_FuncProc || ' p_adjustment_percentage: ' || p_adjustment_percentage;
1511: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1512: pa_debug.g_err_stage:= L_FuncProc || ' p_WBS_Element_Id: ' || p_WBS_Element_Id;
1513: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1514: pa_debug.g_err_stage:= L_FuncProc || ' p_RBS_Element_Id: ' || p_RBS_Element_Id;
1515: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1516: pa_debug.g_err_stage:= L_FuncProc || ' p_WBS_Structure_Version_Id: ' || p_WBS_Structure_Version_Id;
1509: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1510: pa_debug.g_err_stage:= L_FuncProc || ' p_adjustment_percentage: ' || p_adjustment_percentage;
1511: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1512: pa_debug.g_err_stage:= L_FuncProc || ' p_WBS_Element_Id: ' || p_WBS_Element_Id;
1513: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1514: pa_debug.g_err_stage:= L_FuncProc || ' p_RBS_Element_Id: ' || p_RBS_Element_Id;
1515: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1516: pa_debug.g_err_stage:= L_FuncProc || ' p_WBS_Structure_Version_Id: ' || p_WBS_Structure_Version_Id;
1517: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1510: pa_debug.g_err_stage:= L_FuncProc || ' p_adjustment_percentage: ' || p_adjustment_percentage;
1511: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1512: pa_debug.g_err_stage:= L_FuncProc || ' p_WBS_Element_Id: ' || p_WBS_Element_Id;
1513: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1514: pa_debug.g_err_stage:= L_FuncProc || ' p_RBS_Element_Id: ' || p_RBS_Element_Id;
1515: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1516: pa_debug.g_err_stage:= L_FuncProc || ' p_WBS_Structure_Version_Id: ' || p_WBS_Structure_Version_Id;
1517: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1518: pa_debug.g_err_stage:= L_FuncProc || ' p_RBS_Version_Id: ' || p_RBS_Version_Id;
1511: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1512: pa_debug.g_err_stage:= L_FuncProc || ' p_WBS_Element_Id: ' || p_WBS_Element_Id;
1513: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1514: pa_debug.g_err_stage:= L_FuncProc || ' p_RBS_Element_Id: ' || p_RBS_Element_Id;
1515: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1516: pa_debug.g_err_stage:= L_FuncProc || ' p_WBS_Structure_Version_Id: ' || p_WBS_Structure_Version_Id;
1517: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1518: pa_debug.g_err_stage:= L_FuncProc || ' p_RBS_Version_Id: ' || p_RBS_Version_Id;
1519: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1512: pa_debug.g_err_stage:= L_FuncProc || ' p_WBS_Element_Id: ' || p_WBS_Element_Id;
1513: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1514: pa_debug.g_err_stage:= L_FuncProc || ' p_RBS_Element_Id: ' || p_RBS_Element_Id;
1515: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1516: pa_debug.g_err_stage:= L_FuncProc || ' p_WBS_Structure_Version_Id: ' || p_WBS_Structure_Version_Id;
1517: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1518: pa_debug.g_err_stage:= L_FuncProc || ' p_RBS_Version_Id: ' || p_RBS_Version_Id;
1519: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1520: IF p_resource_assignment_id_tbl.COUNT > 0 THEN
1513: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1514: pa_debug.g_err_stage:= L_FuncProc || ' p_RBS_Element_Id: ' || p_RBS_Element_Id;
1515: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1516: pa_debug.g_err_stage:= L_FuncProc || ' p_WBS_Structure_Version_Id: ' || p_WBS_Structure_Version_Id;
1517: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1518: pa_debug.g_err_stage:= L_FuncProc || ' p_RBS_Version_Id: ' || p_RBS_Version_Id;
1519: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1520: IF p_resource_assignment_id_tbl.COUNT > 0 THEN
1521: FOR i IN p_resource_assignment_id_tbl.FIRST .. p_resource_assignment_id_tbl.LAST LOOP
1514: pa_debug.g_err_stage:= L_FuncProc || ' p_RBS_Element_Id: ' || p_RBS_Element_Id;
1515: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1516: pa_debug.g_err_stage:= L_FuncProc || ' p_WBS_Structure_Version_Id: ' || p_WBS_Structure_Version_Id;
1517: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1518: pa_debug.g_err_stage:= L_FuncProc || ' p_RBS_Version_Id: ' || p_RBS_Version_Id;
1519: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1520: IF p_resource_assignment_id_tbl.COUNT > 0 THEN
1521: FOR i IN p_resource_assignment_id_tbl.FIRST .. p_resource_assignment_id_tbl.LAST LOOP
1522: pa_debug.g_err_stage:= L_FuncProc || ' p_resource_assignment_id_tbl(' || i || '): ' || p_resource_assignment_id_tbl(i);
1515: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1516: pa_debug.g_err_stage:= L_FuncProc || ' p_WBS_Structure_Version_Id: ' || p_WBS_Structure_Version_Id;
1517: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1518: pa_debug.g_err_stage:= L_FuncProc || ' p_RBS_Version_Id: ' || p_RBS_Version_Id;
1519: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1520: IF p_resource_assignment_id_tbl.COUNT > 0 THEN
1521: FOR i IN p_resource_assignment_id_tbl.FIRST .. p_resource_assignment_id_tbl.LAST LOOP
1522: pa_debug.g_err_stage:= L_FuncProc || ' p_resource_assignment_id_tbl(' || i || '): ' || p_resource_assignment_id_tbl(i);
1523: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1518: pa_debug.g_err_stage:= L_FuncProc || ' p_RBS_Version_Id: ' || p_RBS_Version_Id;
1519: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1520: IF p_resource_assignment_id_tbl.COUNT > 0 THEN
1521: FOR i IN p_resource_assignment_id_tbl.FIRST .. p_resource_assignment_id_tbl.LAST LOOP
1522: pa_debug.g_err_stage:= L_FuncProc || ' p_resource_assignment_id_tbl(' || i || '): ' || p_resource_assignment_id_tbl(i);
1523: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1524: END LOOP;
1525: ELSE
1526: pa_debug.g_err_stage:= L_FuncProc || ' p_resource_assignment_id_tbl is EMPTY';
1519: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1520: IF p_resource_assignment_id_tbl.COUNT > 0 THEN
1521: FOR i IN p_resource_assignment_id_tbl.FIRST .. p_resource_assignment_id_tbl.LAST LOOP
1522: pa_debug.g_err_stage:= L_FuncProc || ' p_resource_assignment_id_tbl(' || i || '): ' || p_resource_assignment_id_tbl(i);
1523: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1524: END LOOP;
1525: ELSE
1526: pa_debug.g_err_stage:= L_FuncProc || ' p_resource_assignment_id_tbl is EMPTY';
1527: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1522: pa_debug.g_err_stage:= L_FuncProc || ' p_resource_assignment_id_tbl(' || i || '): ' || p_resource_assignment_id_tbl(i);
1523: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1524: END LOOP;
1525: ELSE
1526: pa_debug.g_err_stage:= L_FuncProc || ' p_resource_assignment_id_tbl is EMPTY';
1527: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1528: END IF;
1529: IF p_txn_currency_code_tbl.COUNT > 0 THEN
1530: FOR i IN p_txn_currency_code_tbl.FIRST .. p_txn_currency_code_tbl.LAST LOOP
1523: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1524: END LOOP;
1525: ELSE
1526: pa_debug.g_err_stage:= L_FuncProc || ' p_resource_assignment_id_tbl is EMPTY';
1527: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1528: END IF;
1529: IF p_txn_currency_code_tbl.COUNT > 0 THEN
1530: FOR i IN p_txn_currency_code_tbl.FIRST .. p_txn_currency_code_tbl.LAST LOOP
1531: pa_debug.g_err_stage:= L_FuncProc || ' p_txn_currency_code_tbl(' || i || '): ' || p_txn_currency_code_tbl(i);
1527: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1528: END IF;
1529: IF p_txn_currency_code_tbl.COUNT > 0 THEN
1530: FOR i IN p_txn_currency_code_tbl.FIRST .. p_txn_currency_code_tbl.LAST LOOP
1531: pa_debug.g_err_stage:= L_FuncProc || ' p_txn_currency_code_tbl(' || i || '): ' || p_txn_currency_code_tbl(i);
1532: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1533: END LOOP;
1534: ELSE
1535: pa_debug.g_err_stage:= L_FuncProc || ' p_txn_currency_code_tbl is EMPTY';
1528: END IF;
1529: IF p_txn_currency_code_tbl.COUNT > 0 THEN
1530: FOR i IN p_txn_currency_code_tbl.FIRST .. p_txn_currency_code_tbl.LAST LOOP
1531: pa_debug.g_err_stage:= L_FuncProc || ' p_txn_currency_code_tbl(' || i || '): ' || p_txn_currency_code_tbl(i);
1532: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1533: END LOOP;
1534: ELSE
1535: pa_debug.g_err_stage:= L_FuncProc || ' p_txn_currency_code_tbl is EMPTY';
1536: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1531: pa_debug.g_err_stage:= L_FuncProc || ' p_txn_currency_code_tbl(' || i || '): ' || p_txn_currency_code_tbl(i);
1532: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1533: END LOOP;
1534: ELSE
1535: pa_debug.g_err_stage:= L_FuncProc || ' p_txn_currency_code_tbl is EMPTY';
1536: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1537: END IF;
1538:
1539: IF P_CONTEXT='WORKPLAN' THEN
1532: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1533: END LOOP;
1534: ELSE
1535: pa_debug.g_err_stage:= L_FuncProc || ' p_txn_currency_code_tbl is EMPTY';
1536: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1537: END IF;
1538:
1539: IF P_CONTEXT='WORKPLAN' THEN
1540: IF 'Y' <> pa_task_assignment_utils.check_edit_task_ok(
1554: END IF;
1555: ELSIF P_CONTEXT IN ('BUDGET', 'FORECAST') THEN
1556: IF nvl(p_cost_budget_version_id, -1) <> -1 THEN
1557:
1558: pa_debug.g_err_stage:= L_FuncProc || ' l_user_id: ' || l_user_id;
1559: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1560:
1561: pa_fin_plan_utils.Check_Locked_By_User
1562: (p_user_id => l_user_id,
1555: ELSIF P_CONTEXT IN ('BUDGET', 'FORECAST') THEN
1556: IF nvl(p_cost_budget_version_id, -1) <> -1 THEN
1557:
1558: pa_debug.g_err_stage:= L_FuncProc || ' l_user_id: ' || l_user_id;
1559: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1560:
1561: pa_fin_plan_utils.Check_Locked_By_User
1562: (p_user_id => l_user_id,
1563: p_budget_version_id => p_cost_budget_version_id,
1566: x_return_status => x_return_status,
1567: x_msg_count => x_msg_count,
1568: x_msg_data => x_msg_data);
1569:
1570: pa_debug.g_err_stage:= L_FuncProc || ' x_return_status: ' || x_return_status;
1571: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1572:
1573: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1574: pa_debug.g_err_stage:='Rasing API_EXCEPTION 1';
1567: x_msg_count => x_msg_count,
1568: x_msg_data => x_msg_data);
1569:
1570: pa_debug.g_err_stage:= L_FuncProc || ' x_return_status: ' || x_return_status;
1571: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1572:
1573: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1574: pa_debug.g_err_stage:='Rasing API_EXCEPTION 1';
1575: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1570: pa_debug.g_err_stage:= L_FuncProc || ' x_return_status: ' || x_return_status;
1571: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1572:
1573: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1574: pa_debug.g_err_stage:='Rasing API_EXCEPTION 1';
1575: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1576: RAISE api_exception;
1577: END IF;
1578:
1571: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1572:
1573: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1574: pa_debug.g_err_stage:='Rasing API_EXCEPTION 1';
1575: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1576: RAISE api_exception;
1577: END IF;
1578:
1579: pa_fin_plan_utils.CHECK_IF_PLAN_TYPE_EDITABLE
1585: x_msg_count => x_msg_count,
1586: x_msg_data => x_msg_data);
1587:
1588: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1589: pa_debug.g_err_stage:='Rasing API_EXCEPTION 2';
1590: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1591: RAISE api_exception;
1592: END IF;
1593: END IF;
1586: x_msg_data => x_msg_data);
1587:
1588: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1589: pa_debug.g_err_stage:='Rasing API_EXCEPTION 2';
1590: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1591: RAISE api_exception;
1592: END IF;
1593: END IF;
1594:
1602: PA_UTILS.ADD_MESSAGE
1603: (p_app_short_name => 'PA',
1604: p_msg_name => 'PA_NO_ACCESS_TO_UPDATE');
1605:
1606: pa_debug.reset_err_stack;
1607: x_return_status := FND_API.G_RET_STS_ERROR;
1608: RETURN;
1609: ELSIF nvl(P_rev_budget_version_id, -1) <> -1 THEN
1610: -- No access to update for the cost version in terms of
1615:
1616: PA_UTILS.ADD_MESSAGE
1617: (p_app_short_name => 'PA',
1618: p_msg_name => 'PA_NO_ACCESS_TO_UPDATE');
1619: pa_debug.reset_err_stack;
1620: x_return_status := FND_API.G_RET_STS_ERROR;
1621: RETURN;
1622: END IF;
1623:
1632: x_msg_count => x_msg_count,
1633: x_msg_data => x_msg_data);
1634:
1635: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1636: pa_debug.g_err_stage:='Rasing API_EXCEPTION 3';
1637: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1638: RAISE api_exception;
1639: END IF;
1640:
1633: x_msg_data => x_msg_data);
1634:
1635: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1636: pa_debug.g_err_stage:='Rasing API_EXCEPTION 3';
1637: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1638: RAISE api_exception;
1639: END IF;
1640:
1641: pa_fin_plan_utils.CHECK_IF_PLAN_TYPE_EDITABLE
1647: x_msg_count => x_msg_count,
1648: x_msg_data => x_msg_data);
1649:
1650: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1651: pa_debug.g_err_stage:='Rasing API_EXCEPTION 4';
1652: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1653: RAISE api_exception;
1654: END IF;
1655:
1648: x_msg_data => x_msg_data);
1649:
1650: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1651: pa_debug.g_err_stage:='Rasing API_EXCEPTION 4';
1652: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1653: RAISE api_exception;
1654: END IF;
1655:
1656: IF r_locked_by_person_id is null then
1663: PA_UTILS.ADD_MESSAGE
1664: (p_app_short_name => 'PA',
1665: p_msg_name => 'PA_UPDATE_PUB_VER_ERR');
1666:
1667: pa_debug.reset_err_stack;
1668: x_return_status := FND_API.G_RET_STS_ERROR;
1669: RETURN;
1670: ELSIF p_adjustment_type IN ('QUANTITY', 'REVENUE_QUANTITY') AND
1671: (r_locked_by_user_flag <> 'Y' OR r_editable_flag <> 'Y' OR
1674: PA_UTILS.ADD_MESSAGE
1675: (p_app_short_name => 'PA',
1676: p_msg_name => 'PA_UPDATE_PUB_VER_ERR');
1677:
1678: pa_debug.reset_err_stack;
1679: x_return_status := FND_API.G_RET_STS_ERROR;
1680: RETURN;
1681: END IF;
1682: END IF; -- IF p_adjustment_type IN ( 'BILL_RATE', 'QUANTITY') THEN
1710: X_rev_txn_currency_code_tbl => L_rev_txn_curr_code_tbl,
1711: X_return_status => x_return_status);
1712:
1713: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1714: pa_debug.g_err_stage:='Rasing API_EXCEPTION 5';
1715: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1716: RAISE api_exception;
1717: END IF;
1718: ELSE
1711: X_return_status => x_return_status);
1712:
1713: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1714: pa_debug.g_err_stage:='Rasing API_EXCEPTION 5';
1715: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1716: RAISE api_exception;
1717: END IF;
1718: ELSE
1719: pa_debug.g_err_stage:='Rasing API_EXCEPTION 6';
1715: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1716: RAISE api_exception;
1717: END IF;
1718: ELSE
1719: pa_debug.g_err_stage:='Rasing API_EXCEPTION 6';
1720: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1721: RAISE api_exception;
1722: END IF;
1723: ELSE
1716: RAISE api_exception;
1717: END IF;
1718: ELSE
1719: pa_debug.g_err_stage:='Rasing API_EXCEPTION 6';
1720: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1721: RAISE api_exception;
1722: END IF;
1723: ELSE
1724: IF p_txn_currency_code_tbl.count = 0 THEN
1754: END IF;
1755: END IF;
1756:
1757: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1758: pa_debug.g_err_stage:='Rasing API_EXCEPTION 7';
1759: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1760: RAISE api_exception;
1761: END IF;
1762:
1755: END IF;
1756:
1757: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1758: pa_debug.g_err_stage:='Rasing API_EXCEPTION 7';
1759: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1760: RAISE api_exception;
1761: END IF;
1762:
1763: IF P_new_version_flag = 'Y' THEN
1765: ((p_adjustment_type IN ('COST_RATE', 'BURDENED_RATE', 'QUANTITY', 'COST_QUANTITY','RAW_COST','BURDENED_COST')) OR
1766: (p_cost_plan_setup = 'COST_AND_REV_SAME' AND p_adjustment_type in ('BILL_RATE','REVENUE'))) THEN
1767:
1768: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
1769: PA_DEBUG.write(x_module => L_Module,
1770: x_msg => 'Calling Copy_Version for Cost',
1771: x_log_level => 3);
1772: PA_DEBUG.write(x_module => L_Module,
1773: x_msg => 'p_project_id: ' || p_project_id,
1768: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
1769: PA_DEBUG.write(x_module => L_Module,
1770: x_msg => 'Calling Copy_Version for Cost',
1771: x_log_level => 3);
1772: PA_DEBUG.write(x_module => L_Module,
1773: x_msg => 'p_project_id: ' || p_project_id,
1774: x_log_level => 3);
1775: PA_DEBUG.write(x_module => L_Module,
1776: x_msg => 'p_source_version_id: ' || p_cost_budget_version_id,
1771: x_log_level => 3);
1772: PA_DEBUG.write(x_module => L_Module,
1773: x_msg => 'p_project_id: ' || p_project_id,
1774: x_log_level => 3);
1775: PA_DEBUG.write(x_module => L_Module,
1776: x_msg => 'p_source_version_id: ' || p_cost_budget_version_id,
1777: x_log_level => 3);
1778: PA_DEBUG.write(x_module => L_Module,
1779: x_msg => 'p_copy_mode: ' || PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING,
1774: x_log_level => 3);
1775: PA_DEBUG.write(x_module => L_Module,
1776: x_msg => 'p_source_version_id: ' || p_cost_budget_version_id,
1777: x_log_level => 3);
1778: PA_DEBUG.write(x_module => L_Module,
1779: x_msg => 'p_copy_mode: ' || PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING,
1780: x_log_level => 3);
1781: PA_DEBUG.write(x_module => L_Module,
1782: x_msg => 'p_calling_mode: ' || PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN,
1777: x_log_level => 3);
1778: PA_DEBUG.write(x_module => L_Module,
1779: x_msg => 'p_copy_mode: ' || PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING,
1780: x_log_level => 3);
1781: PA_DEBUG.write(x_module => L_Module,
1782: x_msg => 'p_calling_mode: ' || PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN,
1783: x_log_level => 3);
1784: PA_DEBUG.write(x_module => L_Module,
1785: x_msg => 'px_target_version_id: ' || l_target_budget_version_id,
1780: x_log_level => 3);
1781: PA_DEBUG.write(x_module => L_Module,
1782: x_msg => 'p_calling_mode: ' || PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN,
1783: x_log_level => 3);
1784: PA_DEBUG.write(x_module => L_Module,
1785: x_msg => 'px_target_version_id: ' || l_target_budget_version_id,
1786: x_log_level => 3);
1787: END IF;
1788:
1797: x_msg_count => x_msg_count,
1798: x_msg_data => x_msg_data);
1799:
1800: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1801: pa_debug.g_err_stage:='Rasing API_EXCEPTION 8';
1802: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1803: RAISE api_exception;
1804: ELSE
1805: pa_debug.g_err_stage:='Copy_Version Returned Success';
1798: x_msg_data => x_msg_data);
1799:
1800: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1801: pa_debug.g_err_stage:='Rasing API_EXCEPTION 8';
1802: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1803: RAISE api_exception;
1804: ELSE
1805: pa_debug.g_err_stage:='Copy_Version Returned Success';
1806: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1801: pa_debug.g_err_stage:='Rasing API_EXCEPTION 8';
1802: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1803: RAISE api_exception;
1804: ELSE
1805: pa_debug.g_err_stage:='Copy_Version Returned Success';
1806: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1807:
1808: IF L_res_assignment_id_tbl.count <> 0 THEN
1809: FOR j in 1..l_res_assignment_id_tbl.COUNT LOOP
1802: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1803: RAISE api_exception;
1804: ELSE
1805: pa_debug.g_err_stage:='Copy_Version Returned Success';
1806: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1807:
1808: IF L_res_assignment_id_tbl.count <> 0 THEN
1809: FOR j in 1..l_res_assignment_id_tbl.COUNT LOOP
1810: IF j > 1 THEN
1824: ' where pra.budget_version_id = :1 ' || /* to_char(l_target_budget_version_id) || */
1825: ' and pra.resource_assignment_id = bl.resource_assignment_id ' ||
1826: ' and pra.parent_assignment_id in (' || l_predicate3 || ')';
1827:
1828: pa_debug.g_err_stage:='l_sql3: ' || l_sql3;
1829: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1830:
1831: -- SQL Repository Bug 4884427; SQL ID 14901305
1832: -- Supply the bind variable value with the USING clause.
1825: ' and pra.resource_assignment_id = bl.resource_assignment_id ' ||
1826: ' and pra.parent_assignment_id in (' || l_predicate3 || ')';
1827:
1828: pa_debug.g_err_stage:='l_sql3: ' || l_sql3;
1829: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1830:
1831: -- SQL Repository Bug 4884427; SQL ID 14901305
1832: -- Supply the bind variable value with the USING clause.
1833:
1863: IF nvl(p_rev_budget_version_id, -1) <> -1 AND
1864: p_adjustment_type IN ('BILL_RATE', 'QUANTITY', 'REVENUE_QUANTITY','REVENUE') THEN
1865:
1866: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
1867: PA_DEBUG.write(x_module => L_Module,
1868: x_msg => 'Calling Copy_Version for Revenue',
1869: x_log_level => 3);
1870: PA_DEBUG.write(x_module => L_Module,
1871: x_msg => 'p_project_id: ' || p_project_id,
1866: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
1867: PA_DEBUG.write(x_module => L_Module,
1868: x_msg => 'Calling Copy_Version for Revenue',
1869: x_log_level => 3);
1870: PA_DEBUG.write(x_module => L_Module,
1871: x_msg => 'p_project_id: ' || p_project_id,
1872: x_log_level => 3);
1873: PA_DEBUG.write(x_module => L_Module,
1874: x_msg => 'p_source_version_id: ' || p_rev_budget_version_id,
1869: x_log_level => 3);
1870: PA_DEBUG.write(x_module => L_Module,
1871: x_msg => 'p_project_id: ' || p_project_id,
1872: x_log_level => 3);
1873: PA_DEBUG.write(x_module => L_Module,
1874: x_msg => 'p_source_version_id: ' || p_rev_budget_version_id,
1875: x_log_level => 3);
1876: PA_DEBUG.write(x_module => L_Module,
1877: x_msg => 'p_copy_mode: ' || PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING,
1872: x_log_level => 3);
1873: PA_DEBUG.write(x_module => L_Module,
1874: x_msg => 'p_source_version_id: ' || p_rev_budget_version_id,
1875: x_log_level => 3);
1876: PA_DEBUG.write(x_module => L_Module,
1877: x_msg => 'p_copy_mode: ' || PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING,
1878: x_log_level => 3);
1879: PA_DEBUG.write(x_module => L_Module,
1880: x_msg => 'p_calling_mode: ' || PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN,
1875: x_log_level => 3);
1876: PA_DEBUG.write(x_module => L_Module,
1877: x_msg => 'p_copy_mode: ' || PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING,
1878: x_log_level => 3);
1879: PA_DEBUG.write(x_module => L_Module,
1880: x_msg => 'p_calling_mode: ' || PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN,
1881: x_log_level => 3);
1882: PA_DEBUG.write(x_module => L_Module,
1883: x_msg => 'px_target_version_id: ' || l_target_rev_version_id,
1878: x_log_level => 3);
1879: PA_DEBUG.write(x_module => L_Module,
1880: x_msg => 'p_calling_mode: ' || PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN,
1881: x_log_level => 3);
1882: PA_DEBUG.write(x_module => L_Module,
1883: x_msg => 'px_target_version_id: ' || l_target_rev_version_id,
1884: x_log_level => 3);
1885: END IF;
1886:
1895: x_msg_count => x_msg_count,
1896: x_msg_data => x_msg_data);
1897:
1898: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1899: pa_debug.g_err_stage:='Rasing API_EXCEPTION 9';
1900: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1901: RAISE api_exception;
1902: ELSE
1903: pa_debug.g_err_stage:='copy Version Returned Success';
1896: x_msg_data => x_msg_data);
1897:
1898: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1899: pa_debug.g_err_stage:='Rasing API_EXCEPTION 9';
1900: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1901: RAISE api_exception;
1902: ELSE
1903: pa_debug.g_err_stage:='copy Version Returned Success';
1904: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1899: pa_debug.g_err_stage:='Rasing API_EXCEPTION 9';
1900: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1901: RAISE api_exception;
1902: ELSE
1903: pa_debug.g_err_stage:='copy Version Returned Success';
1904: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1905: IF L_rev_res_assignment_id_tbl.count <> 0 THEN
1906: FOR j in 1..L_rev_res_assignment_id_tbl.COUNT LOOP
1907: IF j > 1 THEN
1900: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1901: RAISE api_exception;
1902: ELSE
1903: pa_debug.g_err_stage:='copy Version Returned Success';
1904: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1905: IF L_rev_res_assignment_id_tbl.count <> 0 THEN
1906: FOR j in 1..L_rev_res_assignment_id_tbl.COUNT LOOP
1907: IF j > 1 THEN
1908: l_predicate2 := l_predicate2 || ',' || L_rev_res_assignment_id_tbl(j);
1920: ' and pra.resource_assignment_id = bl.resource_assignment_id ' ||
1921: ' and pra.parent_assignment_id in (' || l_predicate2 || ')';
1922:
1923:
1924: pa_debug.g_err_stage:='l_sql2: ' || l_sql2;
1925: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1926:
1927: -- SQL Repository Bug 4884427; SQL ID 14901323
1928: -- Supply the bind variable value with the USING clause.
1921: ' and pra.parent_assignment_id in (' || l_predicate2 || ')';
1922:
1923:
1924: pa_debug.g_err_stage:='l_sql2: ' || l_sql2;
1925: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1926:
1927: -- SQL Repository Bug 4884427; SQL ID 14901323
1928: -- Supply the bind variable value with the USING clause.
1929:
1957: END IF;
1958: END IF;
1959:
1960: -- Start of Debug Statements
1961: pa_debug.g_err_stage:='l_cost_budget_version_id ' || l_cost_budget_version_id;
1962: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1963: pa_debug.g_err_stage:='l_rev_budget_version_id ' || l_rev_budget_version_id;
1964: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1965: pa_debug.g_err_stage:='l_quantity_adj_pct ' || l_quantity_adj_pct;
1958: END IF;
1959:
1960: -- Start of Debug Statements
1961: pa_debug.g_err_stage:='l_cost_budget_version_id ' || l_cost_budget_version_id;
1962: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1963: pa_debug.g_err_stage:='l_rev_budget_version_id ' || l_rev_budget_version_id;
1964: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1965: pa_debug.g_err_stage:='l_quantity_adj_pct ' || l_quantity_adj_pct;
1966: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1959:
1960: -- Start of Debug Statements
1961: pa_debug.g_err_stage:='l_cost_budget_version_id ' || l_cost_budget_version_id;
1962: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1963: pa_debug.g_err_stage:='l_rev_budget_version_id ' || l_rev_budget_version_id;
1964: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1965: pa_debug.g_err_stage:='l_quantity_adj_pct ' || l_quantity_adj_pct;
1966: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1967: pa_debug.g_err_stage:='l_burdened_rate_adj_pct ' || l_burdened_rate_adj_pct;
1960: -- Start of Debug Statements
1961: pa_debug.g_err_stage:='l_cost_budget_version_id ' || l_cost_budget_version_id;
1962: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1963: pa_debug.g_err_stage:='l_rev_budget_version_id ' || l_rev_budget_version_id;
1964: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1965: pa_debug.g_err_stage:='l_quantity_adj_pct ' || l_quantity_adj_pct;
1966: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1967: pa_debug.g_err_stage:='l_burdened_rate_adj_pct ' || l_burdened_rate_adj_pct;
1968: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1961: pa_debug.g_err_stage:='l_cost_budget_version_id ' || l_cost_budget_version_id;
1962: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1963: pa_debug.g_err_stage:='l_rev_budget_version_id ' || l_rev_budget_version_id;
1964: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1965: pa_debug.g_err_stage:='l_quantity_adj_pct ' || l_quantity_adj_pct;
1966: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1967: pa_debug.g_err_stage:='l_burdened_rate_adj_pct ' || l_burdened_rate_adj_pct;
1968: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1969: pa_debug.g_err_stage:='l_bill_rate_adj_pct ' || l_bill_rate_adj_pct;
1962: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1963: pa_debug.g_err_stage:='l_rev_budget_version_id ' || l_rev_budget_version_id;
1964: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1965: pa_debug.g_err_stage:='l_quantity_adj_pct ' || l_quantity_adj_pct;
1966: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1967: pa_debug.g_err_stage:='l_burdened_rate_adj_pct ' || l_burdened_rate_adj_pct;
1968: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1969: pa_debug.g_err_stage:='l_bill_rate_adj_pct ' || l_bill_rate_adj_pct;
1970: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1963: pa_debug.g_err_stage:='l_rev_budget_version_id ' || l_rev_budget_version_id;
1964: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1965: pa_debug.g_err_stage:='l_quantity_adj_pct ' || l_quantity_adj_pct;
1966: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1967: pa_debug.g_err_stage:='l_burdened_rate_adj_pct ' || l_burdened_rate_adj_pct;
1968: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1969: pa_debug.g_err_stage:='l_bill_rate_adj_pct ' || l_bill_rate_adj_pct;
1970: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1971:
1964: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1965: pa_debug.g_err_stage:='l_quantity_adj_pct ' || l_quantity_adj_pct;
1966: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1967: pa_debug.g_err_stage:='l_burdened_rate_adj_pct ' || l_burdened_rate_adj_pct;
1968: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1969: pa_debug.g_err_stage:='l_bill_rate_adj_pct ' || l_bill_rate_adj_pct;
1970: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1971:
1972: IF l_res_assignment_id_tbl.COUNT > 0 THEN
1965: pa_debug.g_err_stage:='l_quantity_adj_pct ' || l_quantity_adj_pct;
1966: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1967: pa_debug.g_err_stage:='l_burdened_rate_adj_pct ' || l_burdened_rate_adj_pct;
1968: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1969: pa_debug.g_err_stage:='l_bill_rate_adj_pct ' || l_bill_rate_adj_pct;
1970: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1971:
1972: IF l_res_assignment_id_tbl.COUNT > 0 THEN
1973: FOR i IN l_res_assignment_id_tbl.FIRST .. l_res_assignment_id_tbl.LAST LOOP
1966: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1967: pa_debug.g_err_stage:='l_burdened_rate_adj_pct ' || l_burdened_rate_adj_pct;
1968: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1969: pa_debug.g_err_stage:='l_bill_rate_adj_pct ' || l_bill_rate_adj_pct;
1970: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1971:
1972: IF l_res_assignment_id_tbl.COUNT > 0 THEN
1973: FOR i IN l_res_assignment_id_tbl.FIRST .. l_res_assignment_id_tbl.LAST LOOP
1974: pa_debug.g_err_stage:= L_FuncProc || ' l_res_assignment_id_tbl(' || i || '): ' || l_res_assignment_id_tbl(i);
1970: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1971:
1972: IF l_res_assignment_id_tbl.COUNT > 0 THEN
1973: FOR i IN l_res_assignment_id_tbl.FIRST .. l_res_assignment_id_tbl.LAST LOOP
1974: pa_debug.g_err_stage:= L_FuncProc || ' l_res_assignment_id_tbl(' || i || '): ' || l_res_assignment_id_tbl(i);
1975: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1976: END LOOP;
1977: ELSE
1978: pa_debug.g_err_stage:= L_FuncProc || ' l_res_assignment_id_tbl is EMPTY';
1971:
1972: IF l_res_assignment_id_tbl.COUNT > 0 THEN
1973: FOR i IN l_res_assignment_id_tbl.FIRST .. l_res_assignment_id_tbl.LAST LOOP
1974: pa_debug.g_err_stage:= L_FuncProc || ' l_res_assignment_id_tbl(' || i || '): ' || l_res_assignment_id_tbl(i);
1975: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1976: END LOOP;
1977: ELSE
1978: pa_debug.g_err_stage:= L_FuncProc || ' l_res_assignment_id_tbl is EMPTY';
1979: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1974: pa_debug.g_err_stage:= L_FuncProc || ' l_res_assignment_id_tbl(' || i || '): ' || l_res_assignment_id_tbl(i);
1975: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1976: END LOOP;
1977: ELSE
1978: pa_debug.g_err_stage:= L_FuncProc || ' l_res_assignment_id_tbl is EMPTY';
1979: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1980: END IF;
1981:
1982: IF l_txn_curr_code_tbl.COUNT > 0 THEN
1975: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1976: END LOOP;
1977: ELSE
1978: pa_debug.g_err_stage:= L_FuncProc || ' l_res_assignment_id_tbl is EMPTY';
1979: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1980: END IF;
1981:
1982: IF l_txn_curr_code_tbl.COUNT > 0 THEN
1983: FOR i IN l_txn_curr_code_tbl.FIRST .. l_txn_curr_code_tbl.LAST LOOP
1980: END IF;
1981:
1982: IF l_txn_curr_code_tbl.COUNT > 0 THEN
1983: FOR i IN l_txn_curr_code_tbl.FIRST .. l_txn_curr_code_tbl.LAST LOOP
1984: pa_debug.g_err_stage:= L_FuncProc || ' l_txn_curr_code_tbl(' || i || '): ' || l_txn_curr_code_tbl(i);
1985: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1986: END LOOP;
1987: ELSE
1988: pa_debug.g_err_stage:= L_FuncProc || ' l_txn_curr_code_tbl is EMPTY';
1981:
1982: IF l_txn_curr_code_tbl.COUNT > 0 THEN
1983: FOR i IN l_txn_curr_code_tbl.FIRST .. l_txn_curr_code_tbl.LAST LOOP
1984: pa_debug.g_err_stage:= L_FuncProc || ' l_txn_curr_code_tbl(' || i || '): ' || l_txn_curr_code_tbl(i);
1985: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1986: END LOOP;
1987: ELSE
1988: pa_debug.g_err_stage:= L_FuncProc || ' l_txn_curr_code_tbl is EMPTY';
1989: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1984: pa_debug.g_err_stage:= L_FuncProc || ' l_txn_curr_code_tbl(' || i || '): ' || l_txn_curr_code_tbl(i);
1985: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1986: END LOOP;
1987: ELSE
1988: pa_debug.g_err_stage:= L_FuncProc || ' l_txn_curr_code_tbl is EMPTY';
1989: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1990: END IF;
1991:
1992: IF l_rev_res_assignment_id_tbl.COUNT > 0 THEN
1985: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1986: END LOOP;
1987: ELSE
1988: pa_debug.g_err_stage:= L_FuncProc || ' l_txn_curr_code_tbl is EMPTY';
1989: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1990: END IF;
1991:
1992: IF l_rev_res_assignment_id_tbl.COUNT > 0 THEN
1993: FOR i IN l_rev_res_assignment_id_tbl.FIRST .. l_rev_res_assignment_id_tbl.LAST LOOP
1990: END IF;
1991:
1992: IF l_rev_res_assignment_id_tbl.COUNT > 0 THEN
1993: FOR i IN l_rev_res_assignment_id_tbl.FIRST .. l_rev_res_assignment_id_tbl.LAST LOOP
1994: pa_debug.g_err_stage:= L_FuncProc || ' l_rev_res_assignment_id_tbl(' || i || '): ' || l_rev_res_assignment_id_tbl(i);
1995: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1996: END LOOP;
1997: ELSE
1998: pa_debug.g_err_stage:= L_FuncProc || ' l_rev_res_assignment_id_tbl is EMPTY';
1991:
1992: IF l_rev_res_assignment_id_tbl.COUNT > 0 THEN
1993: FOR i IN l_rev_res_assignment_id_tbl.FIRST .. l_rev_res_assignment_id_tbl.LAST LOOP
1994: pa_debug.g_err_stage:= L_FuncProc || ' l_rev_res_assignment_id_tbl(' || i || '): ' || l_rev_res_assignment_id_tbl(i);
1995: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1996: END LOOP;
1997: ELSE
1998: pa_debug.g_err_stage:= L_FuncProc || ' l_rev_res_assignment_id_tbl is EMPTY';
1999: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1994: pa_debug.g_err_stage:= L_FuncProc || ' l_rev_res_assignment_id_tbl(' || i || '): ' || l_rev_res_assignment_id_tbl(i);
1995: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1996: END LOOP;
1997: ELSE
1998: pa_debug.g_err_stage:= L_FuncProc || ' l_rev_res_assignment_id_tbl is EMPTY';
1999: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
2000: END IF;
2001:
2002: IF l_rev_txn_curr_code_tbl.COUNT > 0 THEN
1995: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
1996: END LOOP;
1997: ELSE
1998: pa_debug.g_err_stage:= L_FuncProc || ' l_rev_res_assignment_id_tbl is EMPTY';
1999: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
2000: END IF;
2001:
2002: IF l_rev_txn_curr_code_tbl.COUNT > 0 THEN
2003: FOR i IN l_rev_txn_curr_code_tbl.FIRST .. l_rev_txn_curr_code_tbl.LAST LOOP
2000: END IF;
2001:
2002: IF l_rev_txn_curr_code_tbl.COUNT > 0 THEN
2003: FOR i IN l_rev_txn_curr_code_tbl.FIRST .. l_rev_txn_curr_code_tbl.LAST LOOP
2004: pa_debug.g_err_stage:= L_FuncProc || ' l_rev_txn_curr_code_tbl(' || i || '): ' || l_rev_txn_curr_code_tbl(i);
2005: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
2006: END LOOP;
2007: ELSE
2008: pa_debug.g_err_stage:= L_FuncProc || ' l_rev_txn_curr_code_tbl is EMPTY';
2001:
2002: IF l_rev_txn_curr_code_tbl.COUNT > 0 THEN
2003: FOR i IN l_rev_txn_curr_code_tbl.FIRST .. l_rev_txn_curr_code_tbl.LAST LOOP
2004: pa_debug.g_err_stage:= L_FuncProc || ' l_rev_txn_curr_code_tbl(' || i || '): ' || l_rev_txn_curr_code_tbl(i);
2005: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
2006: END LOOP;
2007: ELSE
2008: pa_debug.g_err_stage:= L_FuncProc || ' l_rev_txn_curr_code_tbl is EMPTY';
2009: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
2004: pa_debug.g_err_stage:= L_FuncProc || ' l_rev_txn_curr_code_tbl(' || i || '): ' || l_rev_txn_curr_code_tbl(i);
2005: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
2006: END LOOP;
2007: ELSE
2008: pa_debug.g_err_stage:= L_FuncProc || ' l_rev_txn_curr_code_tbl is EMPTY';
2009: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
2010: END IF;
2011: -- End of Debugging Statements
2012:
2005: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
2006: END LOOP;
2007: ELSE
2008: pa_debug.g_err_stage:= L_FuncProc || ' l_rev_txn_curr_code_tbl is EMPTY';
2009: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
2010: END IF;
2011: -- End of Debugging Statements
2012:
2013: IF l_res_assignment_id_tbl.COUNT = 0 AND l_rev_res_assignment_id_tbl.COUNT = 0 THEN
2042: ,x_return_status => x_return_status
2043: ,x_msg_count => x_msg_count
2044: ,x_msg_data => x_msg_data);
2045: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2046: pa_debug.g_err_stage:='Rasing API_EXCEPTION 10';
2047: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
2048: RAISE api_exception;
2049: END IF;
2050:
2043: ,x_msg_count => x_msg_count
2044: ,x_msg_data => x_msg_data);
2045: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2046: pa_debug.g_err_stage:='Rasing API_EXCEPTION 10';
2047: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
2048: RAISE api_exception;
2049: END IF;
2050:
2051: l_target_budget_version_id_tbl.extend(1);
2056: x_return_status => x_return_status,
2057: x_msg_code => x_msg_data);
2058:
2059: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2060: pa_debug.g_err_stage:='Rasing API_EXCEPTION 11';
2061: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
2062: RAISE api_exception;
2063: END IF;
2064: ELSE
2057: x_msg_code => x_msg_data);
2058:
2059: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2060: pa_debug.g_err_stage:='Rasing API_EXCEPTION 11';
2061: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
2062: RAISE api_exception;
2063: END IF;
2064: ELSE
2065: pa_fp_calc_plan_pkg.calculate (
2081: ,x_return_status => x_return_status
2082: ,x_msg_count => x_msg_count
2083: ,x_msg_data => x_msg_data);
2084: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2085: pa_debug.g_err_stage:='Rasing API_EXCEPTION 12';
2086: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
2087: RAISE api_exception;
2088: END IF;
2089: END IF;
2082: ,x_msg_count => x_msg_count
2083: ,x_msg_data => x_msg_data);
2084: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2085: pa_debug.g_err_stage:='Rasing API_EXCEPTION 12';
2086: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
2087: RAISE api_exception;
2088: END IF;
2089: END IF;
2090: END IF;
2114: ,x_return_status => x_return_status
2115: ,x_msg_count => x_msg_count
2116: ,x_msg_data => x_msg_data);
2117: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2118: pa_debug.g_err_stage:='Rasing API_EXCEPTION 13';
2119: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
2120: RAISE api_exception;
2121: END IF;
2122:
2115: ,x_msg_count => x_msg_count
2116: ,x_msg_data => x_msg_data);
2117: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2118: pa_debug.g_err_stage:='Rasing API_EXCEPTION 13';
2119: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
2120: RAISE api_exception;
2121: END IF;
2122:
2123: l_target_rev_version_id_tbl.extend(1);
2128: x_return_status => x_return_status,
2129: x_msg_code => x_msg_data);
2130:
2131: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2132: pa_debug.g_err_stage:='Rasing API_EXCEPTION 14';
2133: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
2134: RAISE api_exception;
2135: END IF;
2136: ELSE
2129: x_msg_code => x_msg_data);
2130:
2131: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2132: pa_debug.g_err_stage:='Rasing API_EXCEPTION 14';
2133: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
2134: RAISE api_exception;
2135: END IF;
2136: ELSE
2137: pa_fp_calc_plan_pkg.calculate (
2153: ,x_return_status => x_return_status
2154: ,x_msg_count => x_msg_count
2155: ,x_msg_data => x_msg_data);
2156: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2157: pa_debug.g_err_stage:='Rasing API_EXCEPTION 15';
2158: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
2159: RAISE api_exception;
2160: END IF;
2161: END IF;
2154: ,x_msg_count => x_msg_count
2155: ,x_msg_data => x_msg_data);
2156: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2157: pa_debug.g_err_stage:='Rasing API_EXCEPTION 15';
2158: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
2159: RAISE api_exception;
2160: END IF;
2161: END IF;
2162: END IF;
2165: COMMIT;
2166: END IF;
2167: END IF;
2168:
2169: pa_debug.g_err_stage:='End of ' || L_FuncProc;
2170: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
2171: EXCEPTION
2172: WHEN FND_API.G_EXC_ERROR THEN
2173: x_return_status := FND_API.G_RET_STS_ERROR;
2166: END IF;
2167: END IF;
2168:
2169: pa_debug.g_err_stage:='End of ' || L_FuncProc;
2170: pa_debug.write(L_Module,pa_debug.g_err_stage,3);
2171: EXCEPTION
2172: WHEN FND_API.G_EXC_ERROR THEN
2173: x_return_status := FND_API.G_RET_STS_ERROR;
2174: x_msg_count := Fnd_Msg_Pub.count_msg;
2172: WHEN FND_API.G_EXC_ERROR THEN
2173: x_return_status := FND_API.G_RET_STS_ERROR;
2174: x_msg_count := Fnd_Msg_Pub.count_msg;
2175: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
2176: PA_DEBUG.write_log (x_module => L_Module
2177: ,x_msg => 'Error: ' || L_FuncProc || ' ' || SQLERRM
2178: ,x_log_level => 3);
2179: END IF;
2180: WHEN API_EXCEPTION THEN
2178: ,x_log_level => 3);
2179: END IF;
2180: WHEN API_EXCEPTION THEN
2181: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
2182: PA_DEBUG.write_log (x_module => L_Module
2183: ,x_msg => 'Error:' || L_FuncProc || SQLERRM
2184: ,x_log_level => 3);
2185: END IF;
2186: FND_MSG_PUB.add_exc_msg(p_pkg_name => L_Module,
2187: p_procedure_name => L_FuncProc);
2188: RAISE;
2189: WHEN OTHERS THEN
2190: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 6) THEN
2191: PA_DEBUG.write_log (x_module => L_Module
2192: ,x_msg => 'Unexp. Error:' || L_FuncProc || SQLERRM
2193: ,x_log_level => 6);
2194: END IF;
2195: FND_MSG_PUB.add_exc_msg(p_pkg_name => L_Module,