217: IS
218:
219: CURSOR funding_amount (x_funding_level varchar) is
220: SELECT task_id, sum(nvl(projfunc_allocated_amount,0)) fund_amt
221: FROM pa_project_fundings
222: WHERE project_id = p_project_id
223: AND ( (budget_type_code IN ('DRAFT', 'BASELINE') AND PA_FUND_REVAL_PVT.G_REVAL_FLAG ='N')
224: OR (PA_FUND_REVAL_PVT.G_REVAL_FLAG ='Y' AND (
225: ( (budget_type_code ='BASELINE') OR
440: /* Added for fp */
441: CURSOR funding_amount (x_funding_level varchar) is
442: SELECT task_id, sum(nvl(projfunc_allocated_amount,0)) pf_fund_amt,
443: sum(nvl(project_allocated_amount,0)) proj_fund_amt
444: FROM pa_project_fundings
445: WHERE project_id = p_project_id
446: AND ((budget_type_code IN ('DRAFT', 'BASELINE')
447: AND PA_FUND_REVAL_PVT.G_REVAL_FLAG ='N')
448: OR (PA_FUND_REVAL_PVT.G_REVAL_FLAG ='Y'
460: UNION
461: SELECT task_id,
462: sum(nvl(projfunc_allocated_amount,0)) pf_fund_amt,
463: sum(nvl(project_allocated_amount,0)) proj_fund_amt
464: FROM pa_project_fundings
465: WHERE project_id = p_project_id
466: AND PA_Funding_Core.G_FUND_BASELINE_FLAG = 'Y'
467: AND (NVL(Submit_Baseline_Flag,'N') = 'Y' OR
468: budget_type_code = 'BASELINE' )
875: PA_Funding_Core.G_FUND_BASELINE_FLAG := 'Y';
876:
877: -- First update the submit_Baseline_Flag as 'Y' and then proceed for
878: -- further baselining of the funding lines
879: Update PA_Project_Fundings
880: SET Submit_Baseline_Flag = 'Y'
881: Where Project_ID = P_Project_ID
882: AND Agreement_ID = P_Agreement_ID
883: AND CI_ID is null
912:
913: -- First update the submit_Baseline_Flag as 'Y' and then proceed for
914: -- further baselining of the funding lines
915: FORALL ci_rec in P_CI_ID_Tab.FIRST..P_CI_ID_Tab.LAST
916: Update PA_Project_Fundings
917: SET Submit_Baseline_Flag = 'Y'
918: Where Project_ID = P_Project_ID
919: AND CI_ID = P_CI_ID_Tab(ci_rec)
920: AND Budget_Type_Code = 'DRAFT'