[Home] [Help]
992: -- # Code flow is as follows for each of the BEM: Lowest Task/Top Task/Project Level
993: -- # If API called through Check funds or form
994: -- Check if txn exists in pa_bc_packets or in pa_bc_commitments_all
995: -- Elsif API called during Baseline/YearEnd
996: -- Check if txn exists in pa_bc_balances or pa_bc_packets
997: -- # For baseline/yearend , we're using bc_balances to increase performance ..
998: -- -----------------------------------------------------------------------------------------+
999: FUNCTION Is_account_change_allowed (P_budget_version_id IN Number,
1000: P_resource_assignment_id IN Number,
1070: select 'Y'
1071: into g_txn_exists_for_bvid
1072: from dual
1073: where exists (select 1
1074: from pa_bc_balances pbb
1075: where pbb.budget_version_id = g_current_baseline_bvid
1076: and pbb.project_id = g_api_project_id
1077: and pbb.balance_type <> 'BGT');
1078: Exception
1287: End; -- 'L' : pa_bc_packets
1288:
1289: Else
1290:
1291: Begin -- 'L' : pa_bc_balances
1292:
1293: Select 'N'
1294: into l_return_status
1295: from pa_resource_assignments pra,
1299: and pbl.period_name = P_period_name
1300: and pra.resource_assignment_id = pbl.resource_assignment_id
1301: and pra.budget_version_id = pbl.budget_version_id
1302: and exists(select 1
1303: from pa_bc_balances pbb
1304: where pbb.budget_version_id = pra.budget_version_id
1305: and pbb.project_id = pra.project_id
1306: and pbb.task_id = pra.task_id
1307: and pbb.resource_list_member_id = pra.resource_list_member_id
1329: Exception
1330: When no_data_found then
1331: return 'Y';
1332: End; -- 'L' : pa_bc_packets
1333: End; -- 'L' : pa_bc_balances
1334:
1335: End if; --Check funds or regular mode
1336:
1337: -- ------------------------------- 'T' ---------------------------------------------------+
1375: End; -- 'T' : pa_bc_packets
1376:
1377: Else
1378:
1379: Begin -- 'T' : pa_bc_balances
1380:
1381: Select 'N'
1382: into l_return_status
1383: from pa_resource_assignments pra,
1387: and pbl.period_name = P_period_name
1388: and pra.resource_assignment_id = pbl.resource_assignment_id
1389: and pra.budget_version_id = pbl.budget_version_id
1390: and exists(select 1
1391: from pa_bc_balances pbb
1392: where pbb.budget_version_id = pra.budget_version_id
1393: and pbb.project_id = pra.project_id
1394: and pbb.top_task_id = pra.task_id
1395: and pbb.resource_list_member_id = pra.resource_list_member_id
1416: Exception
1417: When no_data_found then
1418: return 'Y';
1419: End; -- 'T' : pa_bc_packets
1420: End; -- 'T' : pa_bc_balances
1421:
1422: End If; -- checkfunds or regular mode
1423:
1424: -- ------------------------------- 'P' ---------------------------------------------------+
1460: End; -- 'P' : pa_bc_packets
1461:
1462: Else
1463:
1464: Begin -- 'P' : pa_bc_balances
1465:
1466: Select 'N'
1467: into l_return_status
1468: from pa_resource_assignments pra,
1472: and pbl.period_name = P_period_name
1473: and pra.resource_assignment_id = pbl.resource_assignment_id
1474: and pra.budget_version_id = pbl.budget_version_id
1475: and exists(select 1
1476: from pa_bc_balances pbb
1477: where pbb.budget_version_id = pra.budget_version_id
1478: and pbb.project_id = pra.project_id
1479: and pbb.resource_list_member_id = pra.resource_list_member_id
1480: and trunc(pbb.start_date) = trunc(pbl.start_date)
1500: Exception
1501: When no_data_found then
1502: return 'Y';
1503: End; -- 'P' : pa_bc_packets
1504: End; -- 'P' : pa_bc_balances
1505:
1506: End if; -- checkfunds or normal mode
1507:
1508: End If;
1567: Select 'N'
1568: into l_allowed_flag
1569: from dual
1570: where exists(select 1
1571: from pa_bc_balances pbb
1572: where pbb.budget_version_id = p_budget_version_id
1573: and pbb.task_id = p_task_id
1574: and nvl(pbb.parent_member_id,-99) = nvl(p_parent_resource_id,-99)
1575: and pbb.resource_list_member_id = p_resource_list_member_id
1599: Select 'N'
1600: into l_allowed_flag
1601: from dual
1602: where exists(select 1
1603: from pa_bc_balances pbb
1604: where pbb.budget_version_id = p_budget_version_id
1605: and pbb.top_task_id = p_top_task_id
1606: and nvl(pbb.parent_member_id,-99) = nvl(p_parent_resource_id,-99)
1607: and pbb.resource_list_member_id = p_resource_list_member_id
1631: Select 'N'
1632: into l_allowed_flag
1633: from dual
1634: where exists(select 1
1635: from pa_bc_balances pbb
1636: where pbb.budget_version_id = p_budget_version_id
1637: and nvl(pbb.parent_member_id,-99) = nvl(p_parent_resource_id,-99)
1638: and pbb.resource_list_member_id = p_resource_list_member_id
1639: and pbb.start_date = p_start_date
1680: Select 'N'
1681: into l_allowed_flag
1682: from dual
1683: where exists(select 1
1684: from pa_bc_balances pbb
1685: where pbb.budget_version_id = p_budget_version_id
1686: and pbb.task_id = p_task_id
1687: and nvl(pbb.parent_member_id,-99) = nvl(p_parent_resource_id,-99)
1688: and pbb.resource_list_member_id = p_resource_list_member_id
1712: Select 'N'
1713: into l_allowed_flag
1714: from dual
1715: where exists(select 1
1716: from pa_bc_balances pbb
1717: where pbb.budget_version_id = p_budget_version_id
1718: and pbb.top_task_id = p_top_task_id
1719: and nvl(pbb.parent_member_id,-99) = nvl(p_parent_resource_id,-99)
1720: and pbb.resource_list_member_id = p_resource_list_member_id
1743: Select 'N'
1744: into l_allowed_flag
1745: from dual
1746: where exists(select 1
1747: from pa_bc_balances pbb
1748: where pbb.budget_version_id = p_budget_version_id
1749: and nvl(pbb.parent_member_id,-99) = nvl(p_parent_resource_id,-99)
1750: and pbb.resource_list_member_id = p_resource_list_member_id
1751: and pbb.start_date = p_start_date