[Home] [Help]
805: x_err_stage :='PA_BU_NO_PROJ_END_DATE';
806: return;
807: end if;
808:
809: update pa_budget_lines
810: set start_date= v_project_start_date,
811: end_date = v_project_completion_date
812: where resource_assignment_id in
813: (select resource_assignment_id
845: x_err_code := 20;
846: x_err_stage :='PA_BU_NO_TASK_PROJ_DATE';
847: exit;
848: ELSE
849: UPDATE pa_budget_lines
850: SET start_date = bl_rec.start_date,
851: end_date = bl_rec.completion_date
852: WHERE resource_assignment_id = bl_rec.resource_assignment_id
853: AND ((start_date <> bl_rec.start_date) or (end_date <> bl_rec.completion_date));
1152:
1153: begin
1154: l_cls_prds_exists := 'N';
1155: SELECT 'Y' into l_cls_prds_exists
1156: FROM pa_budget_lines l
1157: , gl_period_statuses s
1158: , pa_implementations i
1159: , pa_budget_versions v
1160: where s.application_id = pa_period_process_pkg.application_id
1293:
1294: --copy resource assignments
1295: if l_draft_exists then
1296: x_err_stage := 'About to delete budget lines in closed gl periods in dest';
1297: delete from pa_budget_lines
1298: where budget_version_id=l_dest_version_id
1299: and period_name not in (select s.period_name
1300: from gl_period_statuses s
1301: , pa_implementations i
1347: AND sa.task_id=da.task_id(+)
1348: AND sa.resource_list_member_id=da.resource_list_member_id(+)
1349: AND da.resource_assignment_id IS NULL;
1350: x_err_stage := 'About to insert budget lines to dest';
1351: INSERT INTO pa_budget_lines
1352: (budget_line_id,
1353: budget_version_id,
1354: resource_assignment_id,
1355: start_date,
1392: project_currency_code,
1393: txn_currency_code
1394: )
1395: select
1396: pa_budget_lines_s.nextval,
1397: l_dest_version_id,
1398: dra.resource_assignment_id,
1399: pbl.start_date,
1400: sysdate,
1434: 'B',
1435: pbl.projfunc_currency_code,
1436: pbl.project_currency_code,
1437: pbl.txn_currency_code
1438: from pa_budget_lines pbl,
1439: pa_resource_assignments sra,
1440: pa_resource_assignments dra
1441: where dra.budget_version_id = l_dest_version_id
1442: and sra.budget_version_id = p_src_version_id
1454: delete from pa_resource_assignments
1455: where budget_version_id = l_dest_version_id
1456: and resource_assignment_id not in
1457: (select distinct resource_assignment_id
1458: from pa_budget_lines
1459: where budget_version_id = l_dest_version_id);
1460: x_err_stage := 'About to begin mrc processing';
1461:
1462: -- Commented below MRC code for Bug 5838587
1974: --
1975: --
1976:
1977: -- 23-feb-2006 prachand Bug 4914055: Copy Project failing in copy_lines due to performance issues
1978: -- Replace the insert statement into pa_budget_lines with a bulk insert.
1979:
1980: procedure copy_lines (x_src_version_id in number,
1981: x_amount_change_pct in number,
1982: x_rounding_precision in number,
2234: IF l_min_start_date is NULL THEN
2235:
2236: SELECT min(bl.start_date)
2237: INTO l_min_start_Date
2238: FROM pa_budget_lines bl
2239: WHERE bl.budget_version_id = x_src_version_id;
2240:
2241: -- If l_start_date is null after the above select it implies
2242: -- there are no budget lines. So return immediately as nothing
2265: end if; -- shift days non zero
2266:
2267: for budget_line_row in
2268: (select l.resource_assignment_id, l.start_date, l.end_date,a.task_id, l.period_name
2269: from pa_budget_lines l,
2270: pa_resource_assignments a
2271: where a.budget_version_id = x_src_version_id
2272: and a.resource_assignment_id = l.resource_assignment_id
2273: and NVL(a.RESOURCE_ASSIGNMENT_TYPE,'USER_ENTERED') = 'USER_ENTERED'
2351: -- bug 4772773: Commented out the following code block for performance reasons.
2352: /*
2353: if (x_entry_level_code <> 'P') then
2354:
2355: INSERT INTO pa_budget_lines
2356: (budget_line_id, /* FPB2
2357: budget_version_id, /* FPB2
2358: resource_assignment_id,
2359: start_date,
2438: 'B',
2439: l.projfunc_currency_code,
2440: l.project_currency_code,
2441: l.txn_currency_code
2442: from pa_budget_lines l,
2443: pa_resource_assignments sa,
2444: pa_tasks st,
2445: pa_tasks dt,
2446: pa_resource_assignments da,
2461: ;
2462:
2463: else
2464:
2465: insert into pa_budget_lines
2466: (budget_line_id, /* FPB2
2467: budget_version_id, /* FPB2
2468: resource_assignment_id,
2469: start_date,
2548: 'B',
2549: l.projfunc_currency_code,
2550: l.project_currency_code,
2551: l.txn_currency_code
2552: from pa_budget_lines l,
2553: pa_resource_assignments sa,
2554: pa_resource_assignments da,
2555: pa_fp_bl_map_tmp bmt /* FPB2
2556: where l.resource_assignment_id =
2659: l_revenue_source_tbl,
2660: l_projfunc_currency_code_tbl,
2661: l_project_currency_code_tbl,
2662: l_txn_currency_code_tbl
2663: from pa_budget_lines l,
2664: pa_resource_assignments sa,
2665: pa_tasks st,
2666: pa_tasks dt,
2667: pa_resource_assignments da,
2764: l_revenue_source_tbl,
2765: l_projfunc_currency_code_tbl,
2766: l_project_currency_code_tbl,
2767: l_txn_currency_code_tbl
2768: from pa_budget_lines l,
2769: pa_resource_assignments sa,
2770: pa_resource_assignments da,
2771: pa_fp_bl_map_tmp bmt /* FPB2 */
2772: where l.budget_version_id = x_src_version_id
2866: l_revenue_source_tbl,
2867: l_projfunc_currency_code_tbl,
2868: l_project_currency_code_tbl,
2869: l_txn_currency_code_tbl
2870: from pa_budget_lines l,
2871: pa_resource_assignments sa,
2872: pa_tasks st,
2873: pa_tasks dt,
2874: pa_resource_assignments da,
2975: l_revenue_source_tbl,
2976: l_projfunc_currency_code_tbl,
2977: l_project_currency_code_tbl,
2978: l_txn_currency_code_tbl
2979: from pa_budget_lines l,
2980: pa_resource_assignments sa,
2981: pa_resource_assignments da,
2982: pa_fp_bl_map_tmp bmt, /* FPB2 */
2983: PA_FP_CPY_PERIODS_TMP pptmp
3081: l_revenue_source_tbl,
3082: l_projfunc_currency_code_tbl,
3083: l_project_currency_code_tbl,
3084: l_txn_currency_code_tbl
3085: from pa_budget_lines l,
3086: pa_resource_assignments sa,
3087: pa_tasks st,
3088: pa_tasks dt,
3089: pa_resource_assignments da,
3187: l_revenue_source_tbl,
3188: l_projfunc_currency_code_tbl,
3189: l_project_currency_code_tbl,
3190: l_txn_currency_code_tbl
3191: from pa_budget_lines l,
3192: pa_resource_assignments sa,
3193: pa_resource_assignments da,
3194: pa_fp_bl_map_tmp bmt /* FPB2 */
3195: where l.budget_version_id = x_src_version_id
3204: end if; -- project level
3205: end if; -- time phase R, N
3206: end if; -- shift date 0
3207:
3208: -- inserting bulk into pa_budget_lines bug 4772773
3209: FORALL i IN l_budget_line_id_tbl.FIRST .. l_budget_line_id_tbl.LAST
3210:
3211: INSERT INTO pa_budget_lines
3212: (budget_line_id, /* FPB2 */
3207:
3208: -- inserting bulk into pa_budget_lines bug 4772773
3209: FORALL i IN l_budget_line_id_tbl.FIRST .. l_budget_line_id_tbl.LAST
3210:
3211: INSERT INTO pa_budget_lines
3212: (budget_line_id, /* FPB2 */
3213: budget_version_id, /* FPB2 */
3214: resource_assignment_id,
3215: start_date,