[Home] [Help]
1083: -- then no impact records would be present.
1084: BEGIN
1085: SELECT 'Y'
1086: INTO l_impact_record_exists
1087: FROM DUAL
1088: WHERE EXISTS
1089: (SELECT 1
1090: FROM pa_ci_impacts
1091: WHERE ci_id = l_t_fp_ci_id
1337: -- Bug 5845142. Cost CI Impact can be of type ALL
1338: BEGIN
1339: SELECT 'Y'
1340: INTO l_impact_record_exists
1341: FROM DUAL
1342: WHERE EXISTS
1343: (SELECT 1
1344: FROM pa_ci_impacts
1345: WHERE ci_id = l_t_fp_ci_id
1678: -- Bug 5845142
1679: BEGIN
1680: SELECT 'Y'
1681: INTO l_impact_record_exists
1682: FROM DUAL
1683: WHERE EXISTS
1684: (SELECT 1
1685: FROM pa_ci_impacts
1686: WHERE ci_id = l_t_fp_ci_id
4429: FOR ind IN L_targ_ra_id_tbl.FIRST..L_targ_ra_id_tbl.LAST LOOP
4430: IF L_targ_ra_id_tbl(ind) IS NULL THEN
4431: SELECT pa_resource_assignments_s.nextval
4432: INTO L_targ_ra_id_tbl(ind)
4433: FROM dual;
4434: END IF;
4435: l_res_assmt_map_rec_tbl(ind).task_id:=l_targ_task_id_tbl(ind);
4436: l_res_assmt_map_rec_tbl(ind).resource_list_member_id:=l_targ_rlm_id_tbl(ind);
4437: l_res_assmt_map_rec_tbl(ind).resource_assignment_id:=L_targ_ra_id_tbl(ind);
5461: ,l_targ_project_role_id_tbl(kk) -- PROJECT_ROLE_ID
5462: ,l_targ_RESOURCE_CLASS_FLAG_tbl(kk) -- RESOURCE_CLASS_FLAG
5463: ,l_targ_NAMED_ROLE_tbl(kk) -- NAMED_ROLE
5464: ,l_targ_txn_accum_header_id_tbl(kk) -- TXN ACCUM HEADER ID
5465: FROM dual
5466: WHERE L_ra_dml_code_tbl(kk)='INSERT';
5467:
5468:
5469: IF P_PA_debug_mode = 'Y' THEN
5924: --the sequence is again compared to see the no. of budget lines that have got inserted. Since pa_budget_lines_s.currval
5925: --is used at a later part of code this SELECT should not be removed
5926: SELECT pa_budget_lines_s.nextval
5927: INTO l_id_before_bl_insertion
5928: FROM DUAL;
5929:
5930: --dbms_output.put_line('I25');
5931: IF l_src_time_phased_code = l_targ_time_phased_code OR l_targ_time_phased_code = 'N' THEN
5932: IF l_targ_time_phased_code = 'N' THEN
9081: 0,null,
9082: l_bl_TXN_BURDENED_COST_tbl(kk)/l_bl_TXN_RAW_COST_tbl(kk)))),
9083: l_bl_PC_CUR_CONV_REJ_CODE_tbl(kk),
9084: l_bl_PFC_CUR_CONV_REJ_CODE_tbl(kk)
9085: from dual
9086: where l_upd_ra_bl_dml_code_tbl(kk)='INSERT';
9087:
9088: --dbms_output.put_line('I43');
9089:
9200: END IF;
9201: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9202: END IF;
9203: IF l_debug_mode = 'Y' THEN
9204: pa_debug.g_err_stage:='Start of residual amount logic';
9205: pa_debug.write('Round_Budget_Line_Amounts: ' || l_module_name,pa_debug.g_err_stage,3);
9206: END IF;
9207:
9208: Begin
9212: INTO l_targ_pfc_rev_after_merge, l_targ_pc_rev_after_merge
9213: FROM pa_budget_lines
9214: WHERE budget_version_id = p_budget_version_id;
9215:
9216: -- Initialise residual amount variables to zero
9217: l_pc_revenue_delta := 0;
9218: l_pfc_revenue_delta := 0;
9219:
9220: -- Compute the total implemented amount using already implemented amount and currently
9280:
9281: IF (l_pfc_revenue_delta <> 0 OR l_pc_revenue_delta <> 0) THEN
9282:
9283: -- Find source resource assignment id, budget line start_date into which
9284: -- the residual amount should be added
9285: IF l_src_resource_list_id = l_targ_resource_list_id THEN
9286:
9287: OPEN src_delta_amt_adj_ra_cur(l_src_ver_id_tbl(j));
9288: FETCH src_delta_amt_adj_ra_cur INTO
9418: END IF;
9419: Exception
9420: WHEN OTHERS THEN
9421: IF P_PA_DEBUG_MODE = 'Y' THEN
9422: pa_debug.g_err_stage:='Error in residual amount adjust logic'||SQLERRM;
9423: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9424: END IF;
9425: RAISE;
9426: End;
9425: RAISE;
9426: End;
9427:
9428: IF l_debug_mode = 'Y' THEN
9429: pa_debug.g_err_stage:='End of residual amount logic';
9430: pa_debug.write('Round_Budget_Line_Amounts: ' || l_module_name,pa_debug.g_err_stage,3);
9431: END IF;
9432:
9433: END IF;
9479: ----plan_update
9480:
9481: SELECT pa_budget_lines_s.currval
9482: INTO l_dummy
9483: FROM dual;
9484:
9485: IF l_dummy=l_id_before_bl_insertion THEN
9486:
9487: l_id_after_bl_insertion := l_id_before_bl_insertion;
9489: ELSE
9490:
9491: SELECT pa_budget_lines_s.nextval
9492: INTO l_id_after_bl_insertion
9493: FROM dual;
9494:
9495: END IF;
9496:
9497: IF l_id_before_bl_insertion <> l_id_after_bl_insertion THEN
9970: IF l_targ_app_rev_flag = 'Y' AND
9971: l_impl_type_tbl(j) <> 'COST' AND
9972: l_rev_impl_flag ='Y' THEN
9973:
9974: --In this code to put the residual amount into the last budget line would have got executed and
9975: --hence l_targ_pc/pfc_rev_after_merge and l_pc/pfc_revenue_delta would have got populated above
9976: IF l_partial_factor <> 1 THEN
9977:
9978: l_impl_pc_rev_amt := l_targ_pc_rev_after_merge - l_targ_pc_rev_before_merge + l_pc_revenue_delta;
10442: CURSOR c_chk_rej_codes (ci_ci_ver_id1 pa_budget_versions.budget_version_id%TYPE,
10443: ci_ci_ver_id2 pa_budget_versions.budget_version_id%TYPE)
10444: IS
10445: SELECT 'Y'
10446: FROM DUAL
10447: WHERE EXISTS (SELECT 1
10448: FROM pa_budget_lines pbl
10449: WHERE pbl.budget_version_id IN (ci_ci_ver_id1, ci_ci_ver_id2)
10450: AND( pbl.cost_rejection_code IS NOT NULL
13883: else
13884: ins_index := ins_index + 1;
13885: select pa_ci_dir_cost_details_s.nextval
13886: into seq_value
13887: from dual;
13888:
13889: i_PaCiDirCostDetTbl(ins_index).dc_line_id := seq_value;
13890: i_PaCiDirCostDetTbl(ins_index).ci_id := l_ci_id_to;
13891: i_PaCiDirCostDetTbl(ins_index).project_id := l_project_id;