[Home] [Help]
3903: -- Start of variables declared for bug 4035856
3904: l_src_delta_amt_adj_task_id pa_tasks.task_id%TYPE;
3905: l_targ_delta_amt_adj_rlm_id pa_resource_list_members.resource_list_member_id%TYPE;
3906: l_src_delta_amt_adj_ra_id pa_resource_assignments.resource_assignment_id%TYPE;
3907: l_src_delta_amt_adj_start_date pa_budget_lines.start_date%TYPE;
3908: l_pc_revenue_delta pa_budget_lines.project_revenue%TYPE;
3909: l_pfc_revenue_delta pa_budget_lines.revenue%TYPE;
3910: l_pc_rev_merged pa_budget_lines.project_revenue%TYPE;
3911: l_pfc_rev_merged pa_budget_lines.revenue%TYPE;
6520:
6521: END IF;--IF l_src_time_phased_code = 'N' AND (l_targ_time_phased_code = 'P' OR l_targ_time_phased_code = 'G') THEN
6522:
6523: --Get the budget line sequence before inserting data into budget lines. After inserting the budget lines
6524: --the sequence is again compared to see the no. of budget lines that have got inserted. Since pa_budget_lines_s.currval
6525: --is used at a later part of code this SELECT should not be removed
6526: SELECT pa_budget_lines_s.nextval
6527: INTO l_id_before_bl_insertion
6528: FROM DUAL;
6522:
6523: --Get the budget line sequence before inserting data into budget lines. After inserting the budget lines
6524: --the sequence is again compared to see the no. of budget lines that have got inserted. Since pa_budget_lines_s.currval
6525: --is used at a later part of code this SELECT should not be removed
6526: SELECT pa_budget_lines_s.nextval
6527: INTO l_id_before_bl_insertion
6528: FROM DUAL;
6529:
6530: --dbms_output.put_line('I25');
6741: pbl.txn_raw_cost,
6742: pbl.txn_burdened_cost,
6743: pbl.txn_revenue,
6744: pbl.bucketing_period_code,
6745: pa_budget_lines_s.nextval,
6746: pbl.budget_version_id,
6747: pbl.txn_standard_cost_rate,
6748: DECODE(l_target_version_type,
6749: 'REVENUE',pbl.txn_cost_rate_override,
7147: pbl.txn_raw_cost,
7148: pbl.txn_burdened_cost,
7149: pbl.txn_revenue,
7150: pbl.bucketing_period_code,
7151: pa_budget_lines_s.nextval,
7152: pbl.budget_version_id,
7153: pbl.txn_standard_cost_rate,
7154: DECODE(l_target_version_type,
7155: 'REVENUE',pbl.txn_cost_rate_override,
7554: pbl.txn_raw_cost,
7555: pbl.txn_burdened_cost,
7556: pbl.txn_revenue,
7557: pbl.bucketing_period_code,
7558: pa_budget_lines_s.nextval,
7559: pbl.budget_version_id,
7560: pbl.txn_standard_cost_rate,
7561: DECODE(l_target_version_type,
7562: 'REVENUE',pbl.txn_cost_rate_override,
7960: pbl.txn_raw_cost,
7961: pbl.txn_burdened_cost,
7962: pbl.txn_revenue,
7963: pbl.bucketing_period_code,
7964: pa_budget_lines_s.nextval,
7965: pbl.budget_version_id,
7966: pbl.txn_standard_cost_rate,
7967: DECODE(l_target_version_type,
7968: 'REVENUE',pbl.txn_cost_rate_override,
9650: l_bl_TXN_RAW_COST_tbl(kk),
9651: l_bl_TXN_BURDENED_COST_tbl(kk),
9652: l_bl_TXN_REVENUE_tbl(kk),
9653: l_bl_BUCKETING_PERIOD_CODE_tbl(kk),
9654: pa_budget_lines_s.nextval,
9655: p_budget_version_id,
9656: l_bl_TXN_STD_COST_RATE_tbl(kk),
9657: DECODE(l_target_version_type,
9658: 'REVENUE',l_bl_TXN_COST_RATE_OVERIDE_tbl(kk),
10077:
10078: ----Prepare the pl/sql tbls to call the API in planning transaction utils that calls PJI API
10079: ----plan_update
10080:
10081: SELECT pa_budget_lines_s.currval
10082: INTO l_dummy
10083: FROM dual;
10084:
10085: IF l_dummy=l_id_before_bl_insertion THEN
10087: l_id_after_bl_insertion := l_id_before_bl_insertion;
10088:
10089: ELSE
10090:
10091: SELECT pa_budget_lines_s.nextval
10092: INTO l_id_after_bl_insertion
10093: FROM dual;
10094:
10095: END IF;
10572: l_impl_pc_rev_amt := l_targ_pc_rev_after_merge - l_targ_pc_rev_before_merge + l_pc_revenue_delta;
10573: l_impl_pfc_rev_amt := l_targ_pfc_rev_after_merge - l_targ_pfc_rev_before_merge + l_pfc_revenue_delta;
10574:
10575: ELSE
10576: --Derive l_pc/pfc_revenue_delta. In this case we have to go to pa_budget_lines since the amounts
10577: --would not have got rolled up
10578: SELECT sum(pbl.project_revenue) - l_targ_pc_rev_before_merge
10579: ,sum(pbl.revenue) - l_targ_pfc_rev_before_merge
10580: INTO l_impl_pc_rev_amt