[Home] [Help]
932: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
933: END IF;
934: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
935: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
936: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
937: END IF;
938:
939: IF p_calling_context IS NULL THEN
940: IF p_pa_debug_mode = 'Y' THEN
942: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
943: END IF;
944: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
945: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
946: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
947: END IF;
948:
949: IF p_function_name IS NULL THEN
950: IF p_pa_debug_mode = 'Y' THEN
952: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
953: END IF;
954: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
955: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
956: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
957: END IF;
958:
959: -- dbms_output.put_line('validateing ver type');
960: IF p_calling_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN THEN
956: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
957: END IF;
958:
959: -- dbms_output.put_line('validateing ver type');
960: IF p_calling_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN THEN
961:
962: IF p_fin_plan_type_id IS NULL THEN /* Bug 3139924 */
963: IF p_pa_debug_mode = 'Y' THEN
964: pa_debug.g_err_stage := 'Plan Type Id can not be null';
965: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
966: END IF;
967: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
968: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
969: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
970: END IF;
971:
972: IF p_version_type IS NULL THEN
973: IF p_pa_debug_mode = 'Y' THEN
976: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
977: END IF;
978: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
979: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
980: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
981: ELSIF p_version_type NOT IN (PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST,
982: PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE,
983: PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL) THEN
984: IF p_pa_debug_mode = 'Y' THEN
977: END IF;
978: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
979: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
980: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
981: ELSIF p_version_type NOT IN (PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST,
982: PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE,
983: PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL) THEN
984: IF p_pa_debug_mode = 'Y' THEN
985: pa_debug.g_err_stage := 'Version Type '|| p_version_type ||' is invalid. ';
978: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
979: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
980: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
981: ELSIF p_version_type NOT IN (PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST,
982: PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE,
983: PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL) THEN
984: IF p_pa_debug_mode = 'Y' THEN
985: pa_debug.g_err_stage := 'Version Type '|| p_version_type ||' is invalid. ';
986: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
979: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
980: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
981: ELSIF p_version_type NOT IN (PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST,
982: PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE,
983: PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL) THEN
984: IF p_pa_debug_mode = 'Y' THEN
985: pa_debug.g_err_stage := 'Version Type '|| p_version_type ||' is invalid. ';
986: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
987: END IF;
986: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
987: END IF;
988: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
989: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
990: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
991: END IF;
992: END IF;
993: -- dbms_output.put_line('after validateing ver type');
994: /* Validations of input parameters are over */
1044:
1045: -- Now check if the user has FUNCTION SECURITY on the function passed
1046: -- for BUDGETs Model
1047:
1048: IF p_calling_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET THEN
1049:
1050: IF p_function_name = 'PA_PM_CREATE_DRAFT_BUDGET' THEN
1051: -- dbms_output.put_line('before checking for PA_PM_CREATE_DRAFT_BUDGET x_return_status'
1052: --||x_return_status);
1398: RETURN;
1399: --Bug 4224464: End of changes
1400:
1401: ELSE -- Unhandled functions security - Hence throw invalid arg exception
1402: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
1403: END IF;-- End of function security checks for BUDGETs model
1404:
1405: ELSIF p_calling_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN THEN
1406:
1401: ELSE -- Unhandled functions security - Hence throw invalid arg exception
1402: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
1403: END IF;-- End of function security checks for BUDGETs model
1404:
1405: ELSIF p_calling_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN THEN
1406:
1407: /* Derive the plan class of the plan type */
1408:
1409: l_plan_class := pa_fin_plan_type_global.plantype_to_planclass(
1417: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1418: END IF;
1419: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1420: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1421: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
1422:
1423: END IF;
1424:
1425: IF p_pa_debug_mode = 'Y' THEN
1443: p_function_name = 'PA_PM_UPDATE_BUDGET_LINE' THEN
1444:
1445: -- In case of FINPLAN, check fn security for COST or ALL version
1446:
1447: IF p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST OR
1448: p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL THEN
1449:
1450: IF l_plan_class = 'APPROVED_BUDGET' THEN
1451:
1444:
1445: -- In case of FINPLAN, check fn security for COST or ALL version
1446:
1447: IF p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST OR
1448: p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL THEN
1449:
1450: IF l_plan_class = 'APPROVED_BUDGET' THEN
1451:
1452: l_function_name := 'PA_FP_APP_BDGT_MNT_COST_PLAN';
1467: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1468: END IF;
1469: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1470: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1471: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
1472:
1473: END IF;
1474:
1475: PA_PM_FUNCTION_SECURITY_PUB.check_function_security(
1501:
1502: --We should NOT use ELSIF here as we want this block also to be executed
1503: --when p_version_type is ALL.
1504:
1505: IF p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE OR
1506: p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL THEN
1507:
1508: IF l_plan_class = 'APPROVED_BUDGET' THEN
1509:
1502: --We should NOT use ELSIF here as we want this block also to be executed
1503: --when p_version_type is ALL.
1504:
1505: IF p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE OR
1506: p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL THEN
1507:
1508: IF l_plan_class = 'APPROVED_BUDGET' THEN
1509:
1510: l_function_name := 'PA_FP_APP_BDGT_MNT_REV_PLAN';
1525: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1526: END IF;
1527: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1528: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1529: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
1530:
1531: END IF;
1532:
1533: PA_PM_FUNCTION_SECURITY_PUB.check_function_security(
1555:
1556: END IF;
1557:
1558: -- In case of FINPLAN, check fn security for ALL version
1559: IF p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL THEN
1560:
1561: IF l_cost_ret_status = l_function_is_allowed OR
1562: l_rev_ret_status = l_function_is_allowed THEN
1563: l_ret_code := l_function_is_allowed;
1577: ELSIF p_function_name = 'PA_PM_BASELINE_BUDGET' THEN
1578:
1579: -- In case of FINPLAN, check fn security for COST or ALL version
1580:
1581: IF p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST OR
1582: p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL THEN
1583:
1584: IF l_plan_class = 'APPROVED_BUDGET' THEN
1585:
1578:
1579: -- In case of FINPLAN, check fn security for COST or ALL version
1580:
1581: IF p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST OR
1582: p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL THEN
1583:
1584: IF l_plan_class = 'APPROVED_BUDGET' THEN
1585:
1586: l_function_name := 'PA_FP_APP_BDGT_BSLN_COST_PLAN';
1601: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1602: END IF;
1603: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1604: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1605: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
1606:
1607: END IF;
1608:
1609: PA_PM_FUNCTION_SECURITY_PUB.check_function_security(
1631:
1632: END IF;
1633:
1634: --In case of FINPLAN, check fn security for REVENUE or ALL version
1635: IF p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE OR
1636: p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL THEN
1637:
1638: IF l_plan_class = 'APPROVED_BUDGET' THEN
1639:
1632: END IF;
1633:
1634: --In case of FINPLAN, check fn security for REVENUE or ALL version
1635: IF p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE OR
1636: p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL THEN
1637:
1638: IF l_plan_class = 'APPROVED_BUDGET' THEN
1639:
1640: l_function_name := 'PA_FP_APP_BDGT_BSLN_REV_PLAN';
1656: END IF;
1657:
1658: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1659: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1660: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
1661:
1662: END IF;
1663:
1664: PA_PM_FUNCTION_SECURITY_PUB.check_function_security(
1686:
1687: END IF;
1688:
1689: --In case of FINPLAN, check fn security for ALL version
1690: IF p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL THEN
1691:
1692: IF l_cost_ret_status = l_function_is_allowed OR
1693: l_rev_ret_status = l_function_is_allowed THEN
1694: l_ret_code := l_function_is_allowed;
1727: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1728: END IF;
1729: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1730: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1731: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
1732:
1733: END IF;
1734:
1735: PA_PM_FUNCTION_SECURITY_PUB.check_function_security(
1779: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1780: END IF;
1781: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1782: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1783: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
1784:
1785: END IF;
1786:
1787: PA_PM_FUNCTION_SECURITY_PUB.check_function_security(
1813: ELSIF p_function_name = 'PA_PM_UPDATE_CHG_DOC' THEN -- for maintaing CI versions
1814:
1815: -- check fn security for COST or ALL version
1816:
1817: IF p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST OR
1818: p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL THEN
1819:
1820: l_function_name := 'PA_FP_MNT_CHG_DOC_COST_FIN_IMP';
1821:
1814:
1815: -- check fn security for COST or ALL version
1816:
1817: IF p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST OR
1818: p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL THEN
1819:
1820: l_function_name := 'PA_FP_MNT_CHG_DOC_COST_FIN_IMP';
1821:
1822: PA_PM_FUNCTION_SECURITY_PUB.check_function_security(
1844:
1845: END IF;
1846:
1847: --In case of FINPLAN, check fn security for REVENUE or ALL version
1848: IF p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE OR
1849: p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL THEN
1850: l_function_name := 'PA_FP_MNT_CHG_DOC_REV_FIN_IMP';
1851:
1852: PA_PM_FUNCTION_SECURITY_PUB.check_function_security(
1845: END IF;
1846:
1847: --In case of FINPLAN, check fn security for REVENUE or ALL version
1848: IF p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE OR
1849: p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL THEN
1850: l_function_name := 'PA_FP_MNT_CHG_DOC_REV_FIN_IMP';
1851:
1852: PA_PM_FUNCTION_SECURITY_PUB.check_function_security(
1853: p_api_version_number => p_api_version_number,
1873: END IF;
1874:
1875: END IF;
1876:
1877: IF p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL THEN
1878:
1879: IF l_cost_ret_status = l_function_is_allowed OR
1880: l_rev_ret_status = l_function_is_allowed THEN
1881: l_ret_code := l_function_is_allowed;
1893: END IF; -- Comparision for ALL version_type ends
1894:
1895: ELSIF p_function_name = 'PA_PM_SUBMIT_BUDGET' THEN -- submit privilege for budget/forecasts
1896:
1897: IF p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST OR
1898: p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL THEN
1899:
1900: IF l_plan_class = 'APPROVED_BUDGET' THEN
1901:
1894:
1895: ELSIF p_function_name = 'PA_PM_SUBMIT_BUDGET' THEN -- submit privilege for budget/forecasts
1896:
1897: IF p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST OR
1898: p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL THEN
1899:
1900: IF l_plan_class = 'APPROVED_BUDGET' THEN
1901:
1902: l_function_name := 'PA_FP_APP_BDGT_SUB_COST_PLAN';
1917: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1918: END IF;
1919: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1920: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1921: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
1922:
1923: END IF;
1924:
1925: PA_PM_FUNCTION_SECURITY_PUB.check_function_security(
1947:
1948: END IF;
1949:
1950: --In case of FINPLAN, check fn security for REVENUE or ALL version
1951: IF p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE OR
1952: p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL THEN
1953:
1954: IF l_plan_class = 'APPROVED_BUDGET' THEN
1955:
1948: END IF;
1949:
1950: --In case of FINPLAN, check fn security for REVENUE or ALL version
1951: IF p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE OR
1952: p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL THEN
1953:
1954: IF l_plan_class = 'APPROVED_BUDGET' THEN
1955:
1956: l_function_name := 'PA_FP_APP_BDGT_SUB_REV_PLAN';
1972: END IF;
1973:
1974: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1975: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1976: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
1977:
1978: END IF;
1979:
1980: PA_PM_FUNCTION_SECURITY_PUB.check_function_security(
2002:
2003: END IF;
2004:
2005: --In case of FINPLAN, check fn security for ALL version
2006: IF p_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL THEN
2007:
2008: IF l_cost_ret_status = l_function_is_allowed OR
2009: l_rev_ret_status = l_function_is_allowed THEN
2010: l_ret_code := l_function_is_allowed;
2028: END IF;
2029: pa_utils.add_message
2030: (p_app_short_name => 'PA',
2031: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2032: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2033:
2034: END IF; -- end of processing for various function calls
2035: -- Bug 3986129: FP.M Web ADI changes ends
2036:
2048: pa_debug.g_err_stage := 'Unhandled case of p_calling_context '||p_calling_context;
2049: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2050: END IF;
2051:
2052: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2053:
2054: END IF;
2055:
2056: --Changes for bug 3182963
2059: END IF;
2060:
2061: -- Exception handling
2062: EXCEPTION
2063: WHEN PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC THEN
2064: l_ret_code :=l_function_not_allowed;
2065: x_ret_code := l_function_not_allowed;
2066: x_return_status := FND_API.G_RET_STS_ERROR;
2067: