[Home] [Help]
4772: l_unit_of_measure :=3;
4773: END IF;
4774: --
4775: -- If current Budget version id not Last posted Budget Version then entries in
4776: -- pqh_gms_excess would be meaningless. Hence delete them.
4777: --
4778: OPEN csr_last_posted_ver;
4779: FETCH csr_last_posted_ver INTO g_last_posted_ver;
4780: IF (csr_last_posted_ver%FOUND AND g_last_posted_ver <> g_budget_version_id)
4778: OPEN csr_last_posted_ver;
4779: FETCH csr_last_posted_ver INTO g_last_posted_ver;
4780: IF (csr_last_posted_ver%FOUND AND g_last_posted_ver <> g_budget_version_id)
4781: THEN
4782: DELETE from pqh_gms_excess
4783: WHERE budget_period_id in (Select budget_period_id
4784: From
4785: pqh_budget_periods bpr
4786: ,pqh_budget_details bdt
4833: FOR inx in 1..l_num.COUNT
4834: LOOP
4835: --
4836: --For Each PTAEO in period make adjustments according to LD encumbrance/Liquidation.
4837: --Also store Excess amounts if any in pqh_gms_excess table
4838: --
4839: adjust_ptaeo_gms_amount(l_num(inx),l_unit_of_measure,l_period_encumbrance,l_period_tot_amt);
4840: --
4841: END LOOP;
4870:
4871: --
4872: -- Cursor to Fetch GMS excess amount for that PTAEO.
4873: -- IF LD encumbered amont 700 for a period but PTAEO in that period is only transfering 200 then excess
4874: -- 500 will be kept in pqh_gms_excess table for that budget_period and PTAEO
4875: --
4876: Cursor csr_ptaeo_excess(inx binary_integer) IS
4877: Select amount
4878: From pqh_gms_excess
4874: -- 500 will be kept in pqh_gms_excess table for that budget_period and PTAEO
4875: --
4876: Cursor csr_ptaeo_excess(inx binary_integer) IS
4877: Select amount
4878: From pqh_gms_excess
4879: Where
4880: budget_period_id =g_period_amt_tab(inx).period_id
4881: AND project_id =g_period_amt_tab(inx).project_id
4882: AND task_id =g_period_amt_tab(inx).task_id
4955: -- If net PTAEO excess after all adjustments is zero delete record, otherwise update
4956: --
4957: IF l_ptaeo_excess = 0 THEN
4958: --
4959: DELETE FROM PQH_GMS_EXCESS
4960: WHERE budget_period_id =g_period_amt_tab(p_inx).period_id
4961: AND project_id =g_period_amt_tab(p_inx).project_id
4962: AND task_id =g_period_amt_tab(p_inx).task_id
4963: AND award_id =g_period_amt_tab(p_inx).award_id
4965: AND organization_id =g_period_amt_tab(p_inx).organization_id;
4966: --
4967: ELSE
4968: --
4969: UPDATE PQH_GMS_EXCESS
4970: SET amount = l_ptaeo_excess
4971: WHERE budget_period_id =g_period_amt_tab(p_inx).period_id
4972: AND project_id =g_period_amt_tab(p_inx).project_id
4973: AND task_id =g_period_amt_tab(p_inx).task_id
4977: --
4978: END IF;
4979: --
4980: -- If currently there is no excess for that PTAEO/Period and PTAEO amount after adjustment is negative
4981: -- post that amount to pqh_gms_excess and make PTAEO maount as zero
4982: --
4983: ELSE
4984: l_ptaeo_amt := l_ptaeo_amt - l_ptaeo_adjustment;
4985: hr_utility.set_location('PTAEO Excess after Adjustment:'||-l_ptaeo_amt, 50);
4984: l_ptaeo_amt := l_ptaeo_amt - l_ptaeo_adjustment;
4985: hr_utility.set_location('PTAEO Excess after Adjustment:'||-l_ptaeo_amt, 50);
4986: --
4987: IF l_ptaeo_amt < 0 THEN
4988: INSERT into pqh_gms_excess
4989: ( GMS_EXCESS_ID
4990: ,BUDGET_PERIOD_ID
4991: ,PROJECT_ID
4992: ,TASK_ID
4996: ,AMOUNT
4997: )
4998: VALUES
4999: (
5000: pqh_gms_excess_s.nextval
5001: ,g_period_amt_tab(p_inx).period_id
5002: ,g_period_amt_tab(p_inx).project_id
5003: ,g_period_amt_tab(p_inx).task_id
5004: ,g_period_amt_tab(p_inx).award_id