[Home] [Help]
361: --## for the new budget version. As we're running baseline in 'B' mode for that award/projcet again
362: --## we need to clean up and rebuild data.
363:
364: Delete
365: from gms_balances
366: where project_id = p_project_id
367: and award_id = p_award_id
368: and budget_version_id = l_bvid
369: and balance_type='REV';
423: p_bud_task_id NUMBER,
424: p_check_task VARCHAR2,
425: p_expenditure_item_date DATE) IS
426: SELECT MAX(TRUNC(gb.start_date)),MIN(TRUNC(gb.end_date))
427: FROM gms_balances gb
428: WHERE gb.project_id = p_project_id
429: AND gb.award_id = p_award_id
430: AND gb.budget_version_id = p_budget_version_id
431: AND gb.balance_type = 'BGT'
971: --5481465: End
972:
973: Begin
974:
975: -- 1. Update revenue amout in GMS_BALANCES for each record in gms_rev cursor.
976:
977: -- Bug 4732065: Shifted logic for deriving SOB inside LOOP
978: -- Start of the bug 5481465
979:
1234: -- 4c. Update balance
1235:
1236: x_stage:='Update balance';
1237:
1238: UPDATE gms_balances gb
1239: set revenue_period_to_date = nvl(revenue_period_to_date,0) + nvl(l_amount_tbl(i),0) --nvl(rev_gen.amount,0) as part of the bug 5481465
1240: WHERE gb.project_id = l_project_id_tbl(i) --rev_gen.project_id as part of the bug 5481465
1241: AND gb.award_id = l_award_id_tbl(i)--rev_gen.award_id as part of the bug 5481465
1242: AND (gb.task_id = l_task_id_tbl(i) --rev_gen.task_id as part of the bug 5481465
1282: -- a record in balances as actuals are already posted. Bug 3487431
1283:
1284: select gb.start_date, gb.end_date
1285: into x_start_date, x_end_date
1286: from gms_balances gb
1287: where gb.budget_version_id = x_budget_version_id
1288: and /* rev_gen.expenditure_item_date for bug 5481465 */ l_ei_date_tbl(i) between
1289: gb.start_date and gb.end_date
1290: and rownum = 1;
1352: END if;
1353:
1354: x_stage:='Insert New Balance';
1355:
1356: insert into gms_balances (project_id
1357: ,award_id
1358: ,task_id
1359: ,resource_list_member_id
1360: ,set_of_books_id
1733: ---------------------------------------------------------------------------------------------------+
1734: -- Bug 4053891 Ends
1735:
1736:
1737: x_stage := '400'; -- Update GMS_BALANCES record
1738: IF L_DEBUG = 'Y' THEN
1739: gms_error_pkg.gms_debug('----------------------------------------------','C');
1740: gms_error_pkg.gms_debug('Expenditure --> '||to_char(rec_gms_packets.document_header_id),'C');
1741: gms_error_pkg.gms_debug('Adl --> '||to_char(rec_gms_packets.document_distribution_id),'C');
1751: /* UPDATE sql commented and rewritten into two separate queries
1752: inside IF..ELSE blocks based on rec_gms_packets.document_type */
1753:
1754: /*
1755: UPDATE gms_balances gb
1756: SET gb.actual_period_to_date = nvl(gb.actual_period_to_date,0) +
1757: (nvl(rec_gms_packets.entered_dr,0)- nvl(rec_gms_packets.entered_cr,0)) *
1758: decode(rec_gms_packets.document_type,'EXP',1,0),
1759: gb.encumb_period_to_date = nvl(gb.encumb_period_to_date,0) +
1773: AND rownum = 1;
1774: */
1775: IF (rec_gms_packets.document_type = 'BGT') THEN
1776:
1777: UPDATE gms_balances gb
1778: SET gb.actual_period_to_date = nvl(gb.actual_period_to_date,0) +
1779: (nvl(rec_gms_packets.entered_dr,0)- nvl(rec_gms_packets.entered_cr,0)) *
1780: decode(rec_gms_packets.document_type,'EXP',1,0),
1781: gb.encumb_period_to_date = nvl(gb.encumb_period_to_date,0) +
1792: AND rownum = 1;
1793:
1794: ELSIF (rec_gms_packets.document_type <>'BGT') THEN
1795:
1796: UPDATE gms_balances gb
1797: SET gb.actual_period_to_date = nvl(gb.actual_period_to_date,0) +
1798: (nvl(rec_gms_packets.entered_dr,0)- nvl(rec_gms_packets.entered_cr,0)) *
1799: decode(rec_gms_packets.document_type,'EXP',1,0),
1800: gb.encumb_period_to_date = nvl(gb.encumb_period_to_date,0) +
1897: END if;
1898:
1899: x_stage := '800';
1900:
1901: -- Insert GMS_BALANCES record where balance record not exist
1902:
1903: insert into gms_balances (project_id
1904: ,award_id
1905: ,task_id
1899: x_stage := '800';
1900:
1901: -- Insert GMS_BALANCES record where balance record not exist
1902:
1903: insert into gms_balances (project_id
1904: ,award_id
1905: ,task_id
1906: ,top_task_id
1907: ,resource_list_member_id