[Home] [Help]
1071: -- then no impact records would be present.
1072: BEGIN
1073: SELECT 'Y'
1074: INTO l_impact_record_exists
1075: FROM DUAL
1076: WHERE EXISTS
1077: (SELECT 1
1078: FROM pa_ci_impacts
1079: WHERE ci_id = l_t_fp_ci_id
1503: -- are two source versions version type would be either cost or rev only.
1504: BEGIN
1505: SELECT 'Y'
1506: INTO l_impact_record_exists
1507: FROM DUAL
1508: WHERE EXISTS
1509: (SELECT 1
1510: FROM pa_ci_impacts
1511: WHERE ci_id = l_t_fp_ci_id
2066: -- are two source versions version type would be either cost or rev only.
2067: BEGIN
2068: SELECT 'Y'
2069: INTO l_impact_record_exists
2070: FROM DUAL
2071: WHERE EXISTS
2072: (SELECT 1
2073: FROM pa_ci_impacts
2074: WHERE ci_id = l_t_fp_ci_id
5036: FOR ind IN L_targ_ra_id_tbl.FIRST..L_targ_ra_id_tbl.LAST LOOP
5037: IF L_targ_ra_id_tbl(ind) IS NULL THEN
5038: SELECT pa_resource_assignments_s.nextval
5039: INTO L_targ_ra_id_tbl(ind)
5040: FROM dual;
5041: END IF;
5042: l_res_assmt_map_rec_tbl(ind).task_id:=l_targ_task_id_tbl(ind);
5043: l_res_assmt_map_rec_tbl(ind).resource_list_member_id:=l_targ_rlm_id_tbl(ind);
5044: l_res_assmt_map_rec_tbl(ind).resource_assignment_id:=L_targ_ra_id_tbl(ind);
6065: ,l_targ_project_role_id_tbl(kk) -- PROJECT_ROLE_ID
6066: ,l_targ_RESOURCE_CLASS_FLAG_tbl(kk) -- RESOURCE_CLASS_FLAG
6067: ,l_targ_NAMED_ROLE_tbl(kk) -- NAMED_ROLE
6068: ,l_targ_txn_accum_header_id_tbl(kk) -- TXN ACCUM HEADER ID
6069: FROM dual
6070: WHERE L_ra_dml_code_tbl(kk)='INSERT';
6071:
6072:
6073: IF P_PA_debug_mode = 'Y' THEN
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');
6531: IF l_src_time_phased_code = l_targ_time_phased_code OR l_targ_time_phased_code = 'N' THEN
6532: IF l_targ_time_phased_code = 'N' THEN
9681: 0,null,
9682: l_bl_TXN_BURDENED_COST_tbl(kk)/l_bl_TXN_RAW_COST_tbl(kk)))),
9683: l_bl_PC_CUR_CONV_REJ_CODE_tbl(kk),
9684: l_bl_PFC_CUR_CONV_REJ_CODE_tbl(kk)
9685: from dual
9686: where l_upd_ra_bl_dml_code_tbl(kk)='INSERT';
9687:
9688: --dbms_output.put_line('I43');
9689:
9800: END IF;
9801: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9802: END IF;
9803: IF l_debug_mode = 'Y' THEN
9804: pa_debug.g_err_stage:='Start of residual amount logic';
9805: pa_debug.write('Round_Budget_Line_Amounts: ' || l_module_name,pa_debug.g_err_stage,3);
9806: END IF;
9807:
9808: Begin
9812: INTO l_targ_pfc_rev_after_merge, l_targ_pc_rev_after_merge
9813: FROM pa_budget_lines
9814: WHERE budget_version_id = p_budget_version_id;
9815:
9816: -- Initialise residual amount variables to zero
9817: l_pc_revenue_delta := 0;
9818: l_pfc_revenue_delta := 0;
9819:
9820: -- Compute the total implemented amount using already implemented amount and currently
9880:
9881: IF (l_pfc_revenue_delta <> 0 OR l_pc_revenue_delta <> 0) THEN
9882:
9883: -- Find source resource assignment id, budget line start_date into which
9884: -- the residual amount should be added
9885: IF l_src_resource_list_id = l_targ_resource_list_id THEN
9886:
9887: OPEN src_delta_amt_adj_ra_cur(l_src_ver_id_tbl(j));
9888: FETCH src_delta_amt_adj_ra_cur INTO
10018: END IF;
10019: Exception
10020: WHEN OTHERS THEN
10021: IF P_PA_DEBUG_MODE = 'Y' THEN
10022: pa_debug.g_err_stage:='Error in residual amount adjust logic'||SQLERRM;
10023: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10024: END IF;
10025: RAISE;
10026: End;
10025: RAISE;
10026: End;
10027:
10028: IF l_debug_mode = 'Y' THEN
10029: pa_debug.g_err_stage:='End of residual amount logic';
10030: pa_debug.write('Round_Budget_Line_Amounts: ' || l_module_name,pa_debug.g_err_stage,3);
10031: END IF;
10032:
10033: END IF;
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
10086:
10087: l_id_after_bl_insertion := l_id_before_bl_insertion;
10089: ELSE
10090:
10091: SELECT pa_budget_lines_s.nextval
10092: INTO l_id_after_bl_insertion
10093: FROM dual;
10094:
10095: END IF;
10096:
10097: IF l_id_before_bl_insertion <> l_id_after_bl_insertion THEN
10564: IF l_targ_app_rev_flag = 'Y' AND
10565: l_impl_type_tbl(j) <> 'COST' AND
10566: l_rev_impl_flag ='Y' THEN
10567:
10568: --In this code to put the residual amount into the last budget line would have got executed and
10569: --hence l_targ_pc/pfc_rev_after_merge and l_pc/pfc_revenue_delta would have got populated above
10570: IF l_partial_factor <> 1 THEN
10571:
10572: l_impl_pc_rev_amt := l_targ_pc_rev_after_merge - l_targ_pc_rev_before_merge + l_pc_revenue_delta;
11036: CURSOR c_chk_rej_codes (ci_ci_ver_id1 pa_budget_versions.budget_version_id%TYPE,
11037: ci_ci_ver_id2 pa_budget_versions.budget_version_id%TYPE)
11038: IS
11039: SELECT 'Y'
11040: FROM DUAL
11041: WHERE EXISTS (SELECT 1
11042: FROM pa_budget_lines pbl
11043: WHERE pbl.budget_version_id IN (ci_ci_ver_id1, ci_ci_ver_id2)
11044: AND( pbl.cost_rejection_code IS NOT NULL