[Home] [Help]
809: x_err_stage :='PA_BU_NO_PROJ_END_DATE';
810: return;
811: end if;
812:
813: update pa_budget_lines
814: set start_date= v_project_start_date,
815: end_date = v_project_completion_date
816: where resource_assignment_id in
817: (select resource_assignment_id
849: x_err_code := 20;
850: x_err_stage :='PA_BU_NO_TASK_PROJ_DATE';
851: exit;
852: ELSE
853: UPDATE pa_budget_lines
854: SET start_date = bl_rec.start_date,
855: end_date = bl_rec.completion_date
856: WHERE resource_assignment_id = bl_rec.resource_assignment_id
857: AND ((start_date <> bl_rec.start_date) or (end_date <> bl_rec.completion_date));
1156:
1157: begin
1158: l_cls_prds_exists := 'N';
1159: SELECT 'Y' into l_cls_prds_exists
1160: FROM pa_budget_lines l
1161: , gl_period_statuses s
1162: , pa_implementations i
1163: , pa_budget_versions v
1164: where s.application_id = pa_period_process_pkg.application_id
1297:
1298: --copy resource assignments
1299: if l_draft_exists then
1300: x_err_stage := 'About to delete budget lines in closed gl periods in dest';
1301: delete from pa_budget_lines
1302: where budget_version_id=l_dest_version_id
1303: and period_name not in (select s.period_name
1304: from gl_period_statuses s
1305: , pa_implementations i
1351: AND sa.task_id=da.task_id(+)
1352: AND sa.resource_list_member_id=da.resource_list_member_id(+)
1353: AND da.resource_assignment_id IS NULL;
1354: x_err_stage := 'About to insert budget lines to dest';
1355: INSERT INTO pa_budget_lines
1356: (budget_line_id,
1357: budget_version_id,
1358: resource_assignment_id,
1359: start_date,
1396: project_currency_code,
1397: txn_currency_code
1398: )
1399: select
1400: pa_budget_lines_s.nextval,
1401: l_dest_version_id,
1402: dra.resource_assignment_id,
1403: pbl.start_date,
1404: sysdate,
1438: 'B',
1439: pbl.projfunc_currency_code,
1440: pbl.project_currency_code,
1441: pbl.txn_currency_code
1442: from pa_budget_lines pbl,
1443: pa_resource_assignments sra,
1444: pa_resource_assignments dra
1445: where dra.budget_version_id = l_dest_version_id
1446: and sra.budget_version_id = p_src_version_id
1458: delete from pa_resource_assignments
1459: where budget_version_id = l_dest_version_id
1460: and resource_assignment_id not in
1461: (select distinct resource_assignment_id
1462: from pa_budget_lines
1463: where budget_version_id = l_dest_version_id);
1464: x_err_stage := 'About to begin mrc processing';
1465:
1466: -- Commented below MRC code for Bug 5838587
1978: --
1979: --
1980:
1981: -- 23-feb-2006 prachand Bug 4914055: Copy Project failing in copy_lines due to performance issues
1982: -- Replace the insert statement into pa_budget_lines with a bulk insert.
1983:
1984: procedure copy_lines (x_src_version_id in number,
1985: x_amount_change_pct in number,
1986: x_rounding_precision in number,
2238: IF l_min_start_date is NULL THEN
2239:
2240: SELECT min(bl.start_date)
2241: INTO l_min_start_Date
2242: FROM pa_budget_lines bl
2243: WHERE bl.budget_version_id = x_src_version_id;
2244:
2245: -- If l_start_date is null after the above select it implies
2246: -- there are no budget lines. So return immediately as nothing
2269: end if; -- shift days non zero
2270:
2271: for budget_line_row in
2272: (select l.resource_assignment_id, l.start_date, l.end_date,a.task_id, l.period_name
2273: from pa_budget_lines l,
2274: pa_resource_assignments a
2275: where a.budget_version_id = x_src_version_id
2276: and a.resource_assignment_id = l.resource_assignment_id
2277: and NVL(a.RESOURCE_ASSIGNMENT_TYPE,'USER_ENTERED') = 'USER_ENTERED'
2355: -- bug 4772773: Commented out the following code block for performance reasons.
2356: /*
2357: if (x_entry_level_code <> 'P') then
2358:
2359: INSERT INTO pa_budget_lines
2360: (budget_line_id, /* FPB2
2361: budget_version_id, /* FPB2
2362: resource_assignment_id,
2363: start_date,
2442: 'B',
2443: l.projfunc_currency_code,
2444: l.project_currency_code,
2445: l.txn_currency_code
2446: from pa_budget_lines l,
2447: pa_resource_assignments sa,
2448: pa_tasks st,
2449: pa_tasks dt,
2450: pa_resource_assignments da,
2465: ;
2466:
2467: else
2468:
2469: insert into pa_budget_lines
2470: (budget_line_id, /* FPB2
2471: budget_version_id, /* FPB2
2472: resource_assignment_id,
2473: start_date,
2552: 'B',
2553: l.projfunc_currency_code,
2554: l.project_currency_code,
2555: l.txn_currency_code
2556: from pa_budget_lines l,
2557: pa_resource_assignments sa,
2558: pa_resource_assignments da,
2559: pa_fp_bl_map_tmp bmt /* FPB2
2560: where l.resource_assignment_id =
2663: l_revenue_source_tbl,
2664: l_projfunc_currency_code_tbl,
2665: l_project_currency_code_tbl,
2666: l_txn_currency_code_tbl
2667: from pa_budget_lines l,
2668: pa_resource_assignments sa,
2669: pa_tasks st,
2670: pa_tasks dt,
2671: pa_resource_assignments da,
2768: l_revenue_source_tbl,
2769: l_projfunc_currency_code_tbl,
2770: l_project_currency_code_tbl,
2771: l_txn_currency_code_tbl
2772: from pa_budget_lines l,
2773: pa_resource_assignments sa,
2774: pa_resource_assignments da,
2775: pa_fp_bl_map_tmp bmt /* FPB2 */
2776: where l.budget_version_id = x_src_version_id
2870: l_revenue_source_tbl,
2871: l_projfunc_currency_code_tbl,
2872: l_project_currency_code_tbl,
2873: l_txn_currency_code_tbl
2874: from pa_budget_lines l,
2875: pa_resource_assignments sa,
2876: pa_tasks st,
2877: pa_tasks dt,
2878: pa_resource_assignments da,
2979: l_revenue_source_tbl,
2980: l_projfunc_currency_code_tbl,
2981: l_project_currency_code_tbl,
2982: l_txn_currency_code_tbl
2983: from pa_budget_lines l,
2984: pa_resource_assignments sa,
2985: pa_resource_assignments da,
2986: pa_fp_bl_map_tmp bmt, /* FPB2 */
2987: PA_FP_CPY_PERIODS_TMP pptmp
3085: l_revenue_source_tbl,
3086: l_projfunc_currency_code_tbl,
3087: l_project_currency_code_tbl,
3088: l_txn_currency_code_tbl
3089: from pa_budget_lines l,
3090: pa_resource_assignments sa,
3091: pa_tasks st,
3092: pa_tasks dt,
3093: pa_resource_assignments da,
3191: l_revenue_source_tbl,
3192: l_projfunc_currency_code_tbl,
3193: l_project_currency_code_tbl,
3194: l_txn_currency_code_tbl
3195: from pa_budget_lines l,
3196: pa_resource_assignments sa,
3197: pa_resource_assignments da,
3198: pa_fp_bl_map_tmp bmt /* FPB2 */
3199: where l.budget_version_id = x_src_version_id
3208: end if; -- project level
3209: end if; -- time phase R, N
3210: end if; -- shift date 0
3211:
3212: -- inserting bulk into pa_budget_lines bug 4772773
3213: FORALL i IN l_budget_line_id_tbl.FIRST .. l_budget_line_id_tbl.LAST
3214:
3215: INSERT INTO pa_budget_lines
3216: (budget_line_id, /* FPB2 */
3211:
3212: -- inserting bulk into pa_budget_lines bug 4772773
3213: FORALL i IN l_budget_line_id_tbl.FIRST .. l_budget_line_id_tbl.LAST
3214:
3215: INSERT INTO pa_budget_lines
3216: (budget_line_id, /* FPB2 */
3217: budget_version_id, /* FPB2 */
3218: resource_assignment_id,
3219: start_date,