[Home] [Help]
1143: -- # Code flow is as follows for each of the BEM: Lowest Task/Top Task/Project Level
1144: -- # If API called through Check funds or form
1145: -- Check if txn exists in pa_bc_packets or in pa_bc_commitments_all
1146: -- Elsif API called during Baseline/YearEnd
1147: -- Check if txn exists in pa_bc_balances or pa_bc_packets
1148: -- # For baseline/yearend , we're using bc_balances to increase performance ..
1149: -- -----------------------------------------------------------------------------------------+
1150: FUNCTION Is_account_change_allowed (P_budget_version_id IN Number,
1151: P_resource_assignment_id IN Number,
1221: select 'Y'
1222: into g_txn_exists_for_bvid
1223: from dual
1224: where exists (select 1
1225: from pa_bc_balances pbb
1226: where pbb.budget_version_id = g_current_baseline_bvid
1227: and pbb.project_id = g_api_project_id
1228: and pbb.balance_type <> 'BGT');
1229: Exception
1438: End; -- 'L' : pa_bc_packets
1439:
1440: Else
1441:
1442: Begin -- 'L' : pa_bc_balances
1443:
1444: Select 'N'
1445: into l_return_status
1446: from pa_resource_assignments pra,
1450: and pbl.period_name = P_period_name
1451: and pra.resource_assignment_id = pbl.resource_assignment_id
1452: and pra.budget_version_id = pbl.budget_version_id
1453: and exists(select 1
1454: from pa_bc_balances pbb
1455: where pbb.budget_version_id = pra.budget_version_id
1456: and pbb.project_id = pra.project_id
1457: and pbb.task_id = pra.task_id
1458: and pbb.resource_list_member_id = pra.resource_list_member_id
1480: Exception
1481: When no_data_found then
1482: return 'Y';
1483: End; -- 'L' : pa_bc_packets
1484: End; -- 'L' : pa_bc_balances
1485:
1486: End if; --Check funds or regular mode
1487:
1488: -- ------------------------------- 'T' ---------------------------------------------------+
1526: End; -- 'T' : pa_bc_packets
1527:
1528: Else
1529:
1530: Begin -- 'T' : pa_bc_balances
1531:
1532: Select 'N'
1533: into l_return_status
1534: from pa_resource_assignments pra,
1538: and pbl.period_name = P_period_name
1539: and pra.resource_assignment_id = pbl.resource_assignment_id
1540: and pra.budget_version_id = pbl.budget_version_id
1541: and exists(select 1
1542: from pa_bc_balances pbb
1543: where pbb.budget_version_id = pra.budget_version_id
1544: and pbb.project_id = pra.project_id
1545: and pbb.top_task_id = pra.task_id
1546: and pbb.resource_list_member_id = pra.resource_list_member_id
1567: Exception
1568: When no_data_found then
1569: return 'Y';
1570: End; -- 'T' : pa_bc_packets
1571: End; -- 'T' : pa_bc_balances
1572:
1573: End If; -- checkfunds or regular mode
1574:
1575: -- ------------------------------- 'P' ---------------------------------------------------+
1611: End; -- 'P' : pa_bc_packets
1612:
1613: Else
1614:
1615: Begin -- 'P' : pa_bc_balances
1616:
1617: Select 'N'
1618: into l_return_status
1619: from pa_resource_assignments pra,
1623: and pbl.period_name = P_period_name
1624: and pra.resource_assignment_id = pbl.resource_assignment_id
1625: and pra.budget_version_id = pbl.budget_version_id
1626: and exists(select 1
1627: from pa_bc_balances pbb
1628: where pbb.budget_version_id = pra.budget_version_id
1629: and pbb.project_id = pra.project_id
1630: and pbb.resource_list_member_id = pra.resource_list_member_id
1631: and trunc(pbb.start_date) = trunc(pbl.start_date)
1651: Exception
1652: When no_data_found then
1653: return 'Y';
1654: End; -- 'P' : pa_bc_packets
1655: End; -- 'P' : pa_bc_balances
1656:
1657: End if; -- checkfunds or normal mode
1658:
1659: End If;
1718: Select 'N'
1719: into l_allowed_flag
1720: from dual
1721: where exists(select 1
1722: from pa_bc_balances pbb
1723: where pbb.budget_version_id = p_budget_version_id
1724: and pbb.task_id = p_task_id
1725: and nvl(pbb.parent_member_id,-99) = nvl(p_parent_resource_id,-99)
1726: and pbb.resource_list_member_id = p_resource_list_member_id
1750: Select 'N'
1751: into l_allowed_flag
1752: from dual
1753: where exists(select 1
1754: from pa_bc_balances pbb
1755: where pbb.budget_version_id = p_budget_version_id
1756: and pbb.top_task_id = p_top_task_id
1757: and nvl(pbb.parent_member_id,-99) = nvl(p_parent_resource_id,-99)
1758: and pbb.resource_list_member_id = p_resource_list_member_id
1782: Select 'N'
1783: into l_allowed_flag
1784: from dual
1785: where exists(select 1
1786: from pa_bc_balances pbb
1787: where pbb.budget_version_id = p_budget_version_id
1788: and nvl(pbb.parent_member_id,-99) = nvl(p_parent_resource_id,-99)
1789: and pbb.resource_list_member_id = p_resource_list_member_id
1790: and pbb.start_date = p_start_date
1831: Select 'N'
1832: into l_allowed_flag
1833: from dual
1834: where exists(select 1
1835: from pa_bc_balances pbb
1836: where pbb.budget_version_id = p_budget_version_id
1837: and pbb.task_id = p_task_id
1838: and nvl(pbb.parent_member_id,-99) = nvl(p_parent_resource_id,-99)
1839: and pbb.resource_list_member_id = p_resource_list_member_id
1863: Select 'N'
1864: into l_allowed_flag
1865: from dual
1866: where exists(select 1
1867: from pa_bc_balances pbb
1868: where pbb.budget_version_id = p_budget_version_id
1869: and pbb.top_task_id = p_top_task_id
1870: and nvl(pbb.parent_member_id,-99) = nvl(p_parent_resource_id,-99)
1871: and pbb.resource_list_member_id = p_resource_list_member_id
1894: Select 'N'
1895: into l_allowed_flag
1896: from dual
1897: where exists(select 1
1898: from pa_bc_balances pbb
1899: where pbb.budget_version_id = p_budget_version_id
1900: and nvl(pbb.parent_member_id,-99) = nvl(p_parent_resource_id,-99)
1901: and pbb.resource_list_member_id = p_resource_list_member_id
1902: and pbb.start_date = p_start_date