[Home] [Help]
41: x_ci_est_qty := NULL;
42: x_ci_planned_qty := NULL;
43: x_baselined_planned_qty := NULL;
44:
45: x_return_status := FND_API.G_RET_STS_SUCCESS;
46: x_msg_count := 0;
47: x_no_of_ci_plan_versions := 0;
48: x_margin_derived_from_code := 'B';
49: IF P_PA_DEBUG_MODE = 'Y' THEN
311: IF P_PA_DEBUG_MODE = 'Y' THEN
312: pa_debug.write_file('Get_Fin_Plan_Dtls: ' || SQLERRM);
313: END IF;
314: pa_debug.reset_err_stack;
315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
316: RAISE;
317: END Get_Fin_Plan_Dtls;
318:
319:
495: END IF;
496: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
497: l_debug_mode := NVL(l_debug_mode, 'Y');
498: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
499: x_return_status := FND_API.G_RET_STS_SUCCESS;
500: x_msg_count := 0;
501: ----DBMS_OUTPUT.PUT_LINE('FP_CI_GET_VERSION_DETAILS - 1');
502: --Get the column values for this budget version id and project id combination
503: BEGIN
561: PA_UTILS.ADD_MESSAGE
562: ( p_app_short_name => 'PA',
563: p_msg_name => 'PA_FP_CI_NO_VERSION_DATA_FOUND');
564: ----DBMS_OUTPUT.PUT_LINE('FP_CI_GET_VERSION_DETAILS - 2***');
565: x_return_status := FND_API.G_RET_STS_ERROR;
566: END;
567: -- Get the resource list name to check if the
568: -- budget version is planned with resource or
569: -- without resource
587: IF P_PA_DEBUG_MODE = 'Y' THEN
588: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_GET_VERSION_DETAILS';
589: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
590: END IF;
591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
592: PA_DEBUG.Reset_Curr_Function;
593: RAISE;
594: END FP_CI_GET_VERSION_DETAILS;
595: -- end of FP_CI_GET_VERSION_DETAILS
700: END IF;
701: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
702: l_debug_mode := NVL(l_debug_mode, 'Y');
703: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
704: x_return_status := FND_API.G_RET_STS_SUCCESS;
705: x_msg_count := 0;
706: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 1');
707: -- The API is sure to have ONE target version id for merge check
708:
1089: WHEN RAISE_MERGE_ERROR THEN
1090: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 35');
1091: x_merge_possible_code_tbl.extend(1);
1092: x_merge_possible_code_tbl (i) := l_merge_possible_code;
1093: x_return_status := FND_API.G_RET_STS_ERROR;
1094: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 36****');
1095: select ci_id into l_token_ci_id from
1096: pa_budget_versions where
1097: budget_version_id = l_s_version_id;
1510: WHEN RAISE_MERGE_ERROR THEN
1511: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 35');
1512: x_merge_possible_code_tbl.extend(1);
1513: x_merge_possible_code_tbl (i) := l_merge_possible_code;
1514: x_return_status := FND_API.G_RET_STS_ERROR;
1515: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 36****');
1516: END;
1517: END IF;
1518: END LOOP;
1528: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_MERGE_POSSIBLE';
1529: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1530: END IF;
1531: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 37');
1532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1533: PA_DEBUG.Reset_Curr_Function;
1534: RAISE;
1535:
1536: END FP_CI_CHECK_MERGE_POSSIBLE;
1540: /* isFundingLevelChangeAllowed requires 2 input parameters:
1541: p_project_id -- the project_id context
1542: p_proposed_fund_level -- The proposed funding level which is defaulted to null
1543:
1544: The API adds a message and returns x_return_status as FND_API.G_RET_STS_ERROR
1545: when the proposed funding level cannot be changed. */
1546:
1547: PROCEDURE isFundingLevelChangeAllowed
1548: (
1580: and ppa.baseline_funding_flag = 'Y';
1581:
1582: BEGIN
1583:
1584: x_return_status := FND_API.G_RET_STS_SUCCESS;
1585:
1586: open check_ci_funding_level;
1587: fetch check_ci_funding_level into l_ci_funding_level;
1588: IF check_ci_funding_level%NOTFOUND THEN
1585:
1586: open check_ci_funding_level;
1587: fetch check_ci_funding_level into l_ci_funding_level;
1588: IF check_ci_funding_level%NOTFOUND THEN
1589: x_return_status := FND_API.G_RET_STS_SUCCESS;
1590: x_msg_count := FND_MSG_PUB.Count_Msg;
1591: close check_ci_funding_level;
1592: return;
1593: END IF;
1598: /* Project funding level being modified to Top Task level
1599: where as Budget planning level is at project level
1600: throw an error as this mismatch cannot be handled in auto-baseline */
1601:
1602: x_return_status := FND_API.G_RET_STS_ERROR;
1603:
1604: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1605: p_msg_name => 'PA_FP_CHK_FUNDING_LVL');
1606: END IF;
1611: x_err_stage,
1612: x_err_stack);
1613:
1614: if (x_err_code <> 0) then
1615: x_return_status := FND_API.G_RET_STS_ERROR;
1616: x_msg_count := FND_MSG_PUB.Count_Msg;
1617: if x_msg_count = 1 then
1618: PA_INTERFACE_UTILS_PUB.get_messages
1619: (p_encoded => FND_API.G_TRUE,
1615: x_return_status := FND_API.G_RET_STS_ERROR;
1616: x_msg_count := FND_MSG_PUB.Count_Msg;
1617: if x_msg_count = 1 then
1618: PA_INTERFACE_UTILS_PUB.get_messages
1619: (p_encoded => FND_API.G_TRUE,
1620: p_msg_index => 1,
1621: p_data => x_msg_data,
1622: p_msg_index_out => l_msg_index_out);
1623: end if;
1628: /* Project funding level being modified to Top Task level
1629: where as Budget planning level is at project level
1630: throw an error as this mismatch cannot be handled in auto-baseline */
1631:
1632: x_return_status := FND_API.G_RET_STS_ERROR;
1633: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1634: p_msg_name => 'PA_FP_CHK_FUNDING_LVL');
1635: END IF;
1636: END IF;
1638: x_msg_count := FND_MSG_PUB.Count_Msg;
1639:
1640: IF x_msg_count = 1 then
1641: PA_INTERFACE_UTILS_PUB.get_messages
1642: (p_encoded => FND_API.G_TRUE,
1643: p_msg_index => 1,
1644: p_data => x_msg_data,
1645: p_msg_index_out => l_msg_index_out);
1646: END IF;
1646: END IF;
1647:
1648: EXCEPTION
1649: WHEN OTHERS THEN
1650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1651: x_msg_count := 1;
1652: x_msg_data := SQLERRM;
1653: FND_MSG_PUB.add_exc_msg
1654: ( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
1657:
1658: END isFundingLevelChangeAllowed;
1659:
1660: /* isAgreementDeletionAllowed API needs to be called before deleting an Agreement.
1661: If x_return_status is FND_API.G_RET_STS_ERROR then do not allow deletion of agreement.
1662: Display the error message from the stack or x_msg_data (when x_msg_count=1).
1663: */
1664:
1665: PROCEDURE isAgreementDeletionAllowed
1683: and bv.project_id = fu.project_id
1684: and bv.agreement_id = p_agreement_id);
1685: BEGIN
1686:
1687: x_return_status := FND_API.G_RET_STS_SUCCESS;
1688: l_found := 'N';
1689:
1690: open c1;
1691: fetch c1 into l_found;
1691: fetch c1 into l_found;
1692: close c1;
1693:
1694: IF l_found = 'Y' then
1695: x_return_status := FND_API.G_RET_STS_ERROR;
1696: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1697: p_msg_name => 'PA_FP_AGR_CI_NO_DELETE');
1698: END IF;
1699:
1700:
1701: x_msg_count := FND_MSG_PUB.Count_Msg;
1702: IF x_msg_count = 1 then
1703: PA_INTERFACE_UTILS_PUB.get_messages
1704: (p_encoded => FND_API.G_TRUE,
1705: p_msg_index => 1,
1706: p_data => x_msg_data,
1707: p_msg_index_out => l_msg_index_out);
1708: END IF;
1708: END IF;
1709:
1710: EXCEPTION
1711: WHEN NO_DATA_FOUND THEN
1712: x_return_status := FND_API.G_RET_STS_SUCCESS;
1713: x_msg_count := FND_MSG_PUB.Count_Msg;
1714: IF x_msg_count = 1 then
1715: PA_INTERFACE_UTILS_PUB.get_messages
1716: (p_encoded => FND_API.G_TRUE,
1712: x_return_status := FND_API.G_RET_STS_SUCCESS;
1713: x_msg_count := FND_MSG_PUB.Count_Msg;
1714: IF x_msg_count = 1 then
1715: PA_INTERFACE_UTILS_PUB.get_messages
1716: (p_encoded => FND_API.G_TRUE,
1717: p_msg_index => 1,
1718: p_data => x_msg_data,
1719: p_msg_index_out => l_msg_index_out);
1720: END IF;
1718: p_data => x_msg_data,
1719: p_msg_index_out => l_msg_index_out);
1720: END IF;
1721: WHEN OTHERS THEN
1722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1723: x_msg_count := 1;
1724: x_msg_data := SQLERRM;
1725: FND_MSG_PUB.add_exc_msg
1726: ( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
1730: END isAgreementDeletionAllowed;
1731:
1732:
1733: /* isAgrCurrencyChangeAllowed API needs to be called before changing Agreement/Funding Currency.
1734: If x_return_status is FND_API.G_RET_STS_ERROR then do not allow change in currency.
1735: Display the error message from the stack or x_msg_data (when x_msg_count=1).
1736: */
1737:
1738: PROCEDURE isAgrCurrencyChangeAllowed
1755: and bv.project_id = fu.project_id
1756: and bv.agreement_id = p_agreement_id);
1757: BEGIN
1758:
1759: x_return_status := FND_API.G_RET_STS_SUCCESS;
1760: l_found := 'N';
1761:
1762: open c1;
1763: fetch c1 into l_found;
1763: fetch c1 into l_found;
1764: close c1;
1765:
1766: IF l_found = 'Y' then
1767: x_return_status := FND_API.G_RET_STS_ERROR;
1768: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1769: p_msg_name => 'PA_FP_AGR_CUR_NO_CHANGE');
1770: END IF;
1771:
1772:
1773: x_msg_count := FND_MSG_PUB.Count_Msg;
1774: IF x_msg_count = 1 then
1775: PA_INTERFACE_UTILS_PUB.get_messages
1776: (p_encoded => FND_API.G_TRUE,
1777: p_msg_index => 1,
1778: p_data => x_msg_data,
1779: p_msg_index_out => l_msg_index_out);
1780: END IF;
1780: END IF;
1781:
1782: EXCEPTION
1783: WHEN NO_DATA_FOUND THEN
1784: x_return_status := FND_API.G_RET_STS_SUCCESS;
1785: x_msg_count := FND_MSG_PUB.Count_Msg;
1786: IF x_msg_count = 1 then
1787: PA_INTERFACE_UTILS_PUB.get_messages
1788: (p_encoded => FND_API.G_TRUE,
1784: x_return_status := FND_API.G_RET_STS_SUCCESS;
1785: x_msg_count := FND_MSG_PUB.Count_Msg;
1786: IF x_msg_count = 1 then
1787: PA_INTERFACE_UTILS_PUB.get_messages
1788: (p_encoded => FND_API.G_TRUE,
1789: p_msg_index => 1,
1790: p_data => x_msg_data,
1791: p_msg_index_out => l_msg_index_out);
1792: END IF;
1790: p_data => x_msg_data,
1791: p_msg_index_out => l_msg_index_out);
1792: END IF;
1793: WHEN OTHERS THEN
1794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1795: x_msg_count := 1;
1796: x_msg_data := SQLERRM;
1797: FND_MSG_PUB.add_exc_msg
1798: ( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
1918: AND pra.project_assignment_id = -1);
1919: BEGIN
1920:
1921: x_msg_count := 0;
1922: x_return_status := FND_API.G_RET_STS_SUCCESS;
1923: pa_debug.set_err_stack('PA_FP_CONTROL_ITEMS_UTILS.Is_Create_CI_Version_Allowed');
1924: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1925: l_debug_mode := NVL(l_debug_mode, 'Y');
1926: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1978: x_return_status => l_return_status,
1979: x_msg_count => l_msg_count,
1980: x_msg_data => l_msg_data );
1981:
1982: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1983: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1984: END IF;
1985:
1986:
2038: ,x_return_status => l_return_status
2039: ,x_msg_count => l_msg_count
2040: ,x_msg_data => l_msg_data);
2041:
2042: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2043: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2044: END IF;
2045:
2046: /* Bug# 2682955 - Creating plannable elements based on the impacted task is ONLY applicable
2185: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2186: END IF;
2187:
2188: -- raise error if the ci version cant be created
2189: x_return_status := FND_API.G_RET_STS_ERROR;
2190:
2191: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2192: p_msg_name => 'PA_FP_CI_VERSION_NOT_ALLOWED');
2193: RETURN;
2204: EXCEPTION
2205:
2206: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2207:
2208: x_return_status := FND_API.G_RET_STS_ERROR;
2209: l_msg_count := FND_MSG_PUB.count_msg;
2210: IF l_msg_count = 1 THEN
2211: PA_INTERFACE_UTILS_PUB.get_messages
2212: (p_encoded => FND_API.G_TRUE
2208: x_return_status := FND_API.G_RET_STS_ERROR;
2209: l_msg_count := FND_MSG_PUB.count_msg;
2210: IF l_msg_count = 1 THEN
2211: PA_INTERFACE_UTILS_PUB.get_messages
2212: (p_encoded => FND_API.G_TRUE
2213: ,p_msg_index => 1
2214: ,p_msg_count => l_msg_count
2215: ,p_msg_data => l_msg_data
2216: ,p_data => l_data
2227: RAISE;
2228:
2229: WHEN others THEN
2230:
2231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2232: x_msg_count := 1;
2233: x_msg_data := SQLERRM;
2234: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
2235: ,p_procedure_name => 'Is_Create_CI_Version_Allowed');
2251: x_return_status OUT NOCOPY VARCHAR2 ) IS --File.Sql.39 bug 4440895
2252: l_count NUMBER := 0;
2253:
2254: BEGIN
2255: x_return_status := FND_API.G_RET_STS_SUCCESS;
2256:
2257: IF P_PA_DEBUG_MODE = 'Y' THEN
2258: pa_debug.init_err_stack('IsValidAgreement: ' || 'PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls');
2259: END IF;
2258: pa_debug.init_err_stack('IsValidAgreement: ' || 'PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls');
2259: END IF;
2260:
2261: IF p_agreement_number IS NULL THEN
2262: x_return_status := FND_API.G_RET_STS_ERROR;
2263: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
2264: p_msg_name => 'PA_FP_AGR_NUM_REQ' );
2265: pa_debug.reset_err_stack;
2266: RETURN;
2278: pa_debug.reset_err_stack;
2279: RETURN;
2280: EXCEPTION
2281: WHEN NO_DATA_FOUND THEN
2282: x_return_status := FND_API.G_RET_STS_ERROR;
2283: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
2284: p_msg_name => 'PA_FP_AGR_INVALID',
2285: p_token1 => 'AGREEMENT_NUMBER',
2286: p_value1 => p_agreement_number);
2294: IF P_PA_DEBUG_MODE = 'Y' THEN
2295: pa_debug.write_file('IsValidAgreement: ' || SQLERRM);
2296: END IF;
2297: pa_debug.reset_err_stack;
2298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2299: RAISE;
2300: END IsValidAgreement;
2301:
2302: FUNCTION IsFpAutoBaselineEnabled(p_project_id IN NUMBER)
2384: END IF;
2385: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2386: l_debug_mode := NVL(l_debug_mode, 'Y');
2387: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2388: x_return_status := FND_API.G_RET_STS_SUCCESS;
2389: x_msg_count := 0;
2390: ----DBMS_OUTPUT.PUT_LINE('GET_BUDGET_VERSION_INFO - 1');
2391: --Get the column values for this budget version id and project id combination
2392: -- Added x_plan_class_code below
2421: PA_UTILS.ADD_MESSAGE
2422: ( p_app_short_name => 'PA',
2423: p_msg_name => 'PA_FP_CI_NO_VERSION_DATA_FOUND');
2424: ----DBMS_OUTPUT.PUT_LINE('FP_CI_GET_VERSION_DETAILS - 2***');
2425: x_return_status := FND_API.G_RET_STS_ERROR;
2426: END;
2427:
2428: BEGIN
2429: SELECT project_currency_code
2448: IF P_PA_DEBUG_MODE = 'Y' THEN
2449: PA_DEBUG.g_err_stage := 'Unexpected error in GET_BUDGET_VERSION_INFO';
2450: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2451: END IF;
2452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2453: PA_DEBUG.Reset_Curr_Function;
2454: RAISE;
2455: END GET_BUDGET_VERSION_INFO;
2456: -- end of GET_BUDGET_VERSION_INFO
2534: bv.approved_rev_plan_type_flag = 'Y')) ;
2535:
2536: BEGIN
2537:
2538: x_return_status := FND_API.G_RET_STS_SUCCESS;
2539:
2540: l_stage := 100;
2541:
2542: select name,
2587:
2588: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2589: p_data => x_msg_data);
2590: x_msg_count := fnd_msg_pub.count_msg;
2591: x_return_status := FND_API.G_RET_STS_ERROR;
2592: close c1;
2593:
2594: return;
2595: END IF;
2600: x_msg_count := FND_MSG_PUB.Count_Msg;
2601:
2602: IF x_msg_count = 1 then
2603: PA_INTERFACE_UTILS_PUB.get_messages
2604: (p_encoded => FND_API.G_TRUE,
2605: p_msg_index => 1,
2606: p_data => x_msg_data,
2607: p_msg_index_out => l_msg_index_out);
2608: END IF;
2605: p_msg_index => 1,
2606: p_data => x_msg_data,
2607: p_msg_index_out => l_msg_index_out);
2608: END IF;
2609: x_return_status := FND_API.G_RET_STS_SUCCESS;
2610:
2611: EXCEPTION
2612: WHEN OTHERS THEN
2613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2609: x_return_status := FND_API.G_RET_STS_SUCCESS;
2610:
2611: EXCEPTION
2612: WHEN OTHERS THEN
2613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2614: x_msg_count := 1;
2615: x_msg_data := to_char(l_stage)||'-'||SQLERRM;
2616: FND_MSG_PUB.add_exc_msg
2617: ( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
2644: ,pa_proj_fp_options pot
2645: where pos.fin_plan_version_id = p_source_bv_id
2646: and pot.fin_plan_version_id = p_target_bv_id;
2647: BEGIN
2648: x_return_status := FND_API.G_RET_STS_SUCCESS;
2649:
2650: open c1;
2651: l_stage := 100;
2652: fetch c1 into l_source_time_phased_code
2661:
2662: l_stage := 400;
2663: --For Bug 3642884
2664: x_attributes_same_flag := 'N';
2665: x_return_status := FND_API.G_RET_STS_SUCCESS;
2666: x_msg_count := FND_MSG_PUB.Count_Msg;
2667: x_msg_data := NULL;
2668:
2669: ELSE
2669: ELSE
2670: l_stage := 500;
2671: --For Bug 3642884
2672: x_attributes_same_flag := 'Y';
2673: x_return_status := FND_API.G_RET_STS_SUCCESS;
2674: x_msg_count := FND_MSG_PUB.Count_Msg;
2675: x_msg_data := NULL;
2676: END IF;
2677:
2676: END IF;
2677:
2678: EXCEPTION
2679: WHEN OTHERS THEN
2680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2681: x_msg_count := 1;
2682: x_msg_data := to_char(l_stage)||'-'||SQLERRM;
2683: FND_MSG_PUB.add_exc_msg
2684: ( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
2717: END IF;
2718: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2719: l_debug_mode := NVL(l_debug_mode, 'Y');
2720: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2721: x_return_status := FND_API.G_RET_STS_SUCCESS;
2722: x_msg_count := 0;
2723: ----DBMS_OUTPUT.PUT_LINE('CHECK_PLAN_VERSION_NAME_OR_ID - 1');
2724: --Get the number of versions for this budget version name
2725: -- fin plan type id and project id combination
2758: IF P_PA_DEBUG_MODE = 'Y' THEN
2759: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_PLAN_VERSION_NAME_OR_ID';
2760: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2761: END IF;
2762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2763: PA_DEBUG.Reset_Curr_Function;
2764: RAISE;
2765: END CHECK_PLAN_VERSION_NAME_OR_ID;
2766: -- end of CHECK_PLAN_VERSION_NAME_OR_ID
2819: END IF;
2820: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2821: l_debug_mode := NVL(l_debug_mode, 'Y');
2822: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2823: x_return_status := FND_API.G_RET_STS_SUCCESS;
2824: x_msg_count := 0;
2825: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_COPY_POSSIBLE - 1');
2826:
2827: IF(p_source_version_type = 'COST') THEN
2897: x_return_status => l_return_status,
2898: x_msg_count => l_msg_count,
2899: x_msg_data => l_msg_data );
2900:
2901: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2902: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2903: END IF;
2904:
2905: SELECT
2934: WHEN NO_DATA_FOUND THEN
2935: PA_UTILS.ADD_MESSAGE
2936: ( p_app_short_name => 'PA',
2937: p_msg_name => 'PA_FP_CI_NO_PLAN_LVL_DATA_FND');
2938: x_return_status := FND_API.G_RET_STS_ERROR;
2939: END;
2940: ELSE
2941: BEGIN
2942:
2965: x_return_status => l_return_status,
2966: x_msg_count => l_msg_count,
2967: x_msg_data => l_msg_data );
2968:
2969: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2970: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2971: END IF;
2972:
2973: SELECT
3004: PA_UTILS.ADD_MESSAGE
3005: ( p_app_short_name => 'PA',
3006: p_msg_name => 'PA_FP_CI_NO_PLAN_LVL_DATA_FND');
3007: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_COPY_POSSIBLE - 2***');
3008: x_return_status := FND_API.G_RET_STS_ERROR;
3009: END;
3010: END IF;
3011:
3012: --DBMS_OUTPUT.PUT_LINE('l_target_plan_level_code : ' || l_target_plan_level_code);
3060: (l_time_phase_code_flag = 'Y')
3061: )THEN
3062:
3063: x_copy_possible_flag := 'Y';
3064: x_return_status := FND_API.G_RET_STS_SUCCESS;
3065: x_msg_count := FND_MSG_PUB.Count_Msg;
3066: x_msg_data := NULL;
3067:
3068: ELSE
3100: p_value2 => l_token_v_type
3101: );
3102:
3103: x_copy_possible_flag := 'N';
3104: x_return_status := FND_API.G_RET_STS_SUCCESS;
3105: x_msg_count := FND_MSG_PUB.Count_Msg;
3106: x_msg_data := NULL;
3107: END IF;
3108: EXCEPTION
3109: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3110: l_msg_count := FND_MSG_PUB.count_msg;
3111: IF l_msg_count = 1 THEN
3112: PA_INTERFACE_UTILS_PUB.get_messages
3113: (p_encoded => FND_API.G_TRUE
3114: ,p_msg_index => 1
3115: ,p_msg_count => l_msg_count
3116: ,p_msg_data => l_msg_data
3117: ,p_data => l_data
3120: x_msg_count := l_msg_count;
3121: ELSE
3122: x_msg_count := l_msg_count;
3123: END IF;
3124: x_return_status := FND_API.G_RET_STS_ERROR;
3125: pa_debug.reset_err_stack;
3126: RAISE;
3127: WHEN OTHERS THEN
3128: FND_MSG_PUB.add_exc_msg
3133: IF P_PA_DEBUG_MODE = 'Y' THEN
3134: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_COPY_POSSIBLE';
3135: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3136: END IF;
3137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3138: PA_DEBUG.Reset_Curr_Function;
3139:
3140: END FP_CI_CHECK_COPY_POSSIBLE;
3141:
3166: END IF;
3167: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3168: l_debug_mode := NVL(l_debug_mode, 'Y');
3169: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3170: x_return_status := FND_API.G_RET_STS_SUCCESS;
3171: x_msg_count := 0;
3172:
3173: x_call_fp_api_flag := 'N';
3174: ----DBMS_OUTPUT.PUT_LINE('CHECK_FP_PLAN_VERSION_EXISTS - 1');
3200: IF P_PA_DEBUG_MODE = 'Y' THEN
3201: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_FP_PLAN_VERSION_EXISTS';
3202: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3203: END IF;
3204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3205: PA_DEBUG.Reset_Curr_Function;
3206: RAISE;
3207: END CHECK_FP_PLAN_VERSION_EXISTS;
3208: -- end of CHECK_FP_PLAN_VERSION_EXISTS
3253: l_merge_possible_code_tbl SYSTEM.pa_varchar2_1_tbl_type:=SYSTEM.pa_varchar2_1_tbl_type();
3254:
3255: BEGIN
3256: x_msg_count := 0;
3257: x_return_status := FND_API.G_RET_STS_SUCCESS;
3258: IF p_pa_debug_mode = 'Y' THEN
3259: pa_debug.set_err_stack('Pa_Fp_Control_Items_Utils.Fp_Ci_Impact_Submit_Chk');
3260: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
3261: END IF;
3313: ,x_return_status => l_return_status
3314: ,x_msg_count => l_msg_count
3315: ,x_msg_data => l_msg_data);
3316:
3317: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3318: IF P_PA_DEBUG_MODE = 'Y' THEN
3319: pa_debug.g_err_stage := 'No working version found.';
3320: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3321: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3351: x_msg_count => x_msg_count,
3352: x_msg_data => x_msg_data
3353: );
3354:
3355: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3356: x_return_status := l_return_status ;
3357: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
3358:
3359: END LOOP;
3353: );
3354:
3355: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3356: x_return_status := l_return_status ;
3357: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
3358:
3359: END LOOP;
3360:
3361: END IF; -- nvl(l_ci_version_id_tbl.last,0) < 1
3368: END IF;
3369:
3370: EXCEPTION
3371: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3372: x_return_status := FND_API.G_RET_STS_ERROR;
3373: l_msg_count := FND_MSG_PUB.count_msg;
3374: IF l_msg_count = 1 THEN
3375: PA_INTERFACE_UTILS_PUB.get_messages
3376: (p_encoded => FND_API.G_TRUE
3372: x_return_status := FND_API.G_RET_STS_ERROR;
3373: l_msg_count := FND_MSG_PUB.count_msg;
3374: IF l_msg_count = 1 THEN
3375: PA_INTERFACE_UTILS_PUB.get_messages
3376: (p_encoded => FND_API.G_TRUE
3377: ,p_msg_index => 1
3378: ,p_msg_count => l_msg_count
3379: ,p_msg_data => l_msg_data
3380: ,p_data => l_data
3391: so that the calling procedure checks for the return status of this procedure
3392: and handles it appropriately. */
3393: RETURN;
3394: WHEN OTHERS THEN
3395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3396: x_msg_count := 1;
3397: x_msg_data := SQLERRM;
3398: FND_MSG_PUB.add_exc_msg
3399: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
3457:
3458: BEGIN
3459:
3460: x_msg_count := 0;
3461: x_return_status := FND_API.G_RET_STS_SUCCESS;
3462: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3463: IF l_debug_mode = 'Y' THEN
3464: pa_debug.set_err_stack('Pa_Fp_Control_Items_Utils.FP_CI_VALIDATE_UPDATE_IMPACT');
3465: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3563: EXCEPTION
3564:
3565: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3566:
3567: x_return_status := FND_API.G_RET_STS_ERROR;
3568: l_msg_count := FND_MSG_PUB.count_msg;
3569:
3570: IF l_msg_count = 1 and x_msg_data IS NULL THEN
3571: PA_INTERFACE_UTILS_PUB.get_messages
3568: l_msg_count := FND_MSG_PUB.count_msg;
3569:
3570: IF l_msg_count = 1 and x_msg_data IS NULL THEN
3571: PA_INTERFACE_UTILS_PUB.get_messages
3572: (p_encoded => FND_API.G_TRUE
3573: ,p_msg_index => 1
3574: ,p_msg_count => l_msg_count
3575: ,p_msg_data => l_msg_data
3576: ,p_data => l_data
3586: RAISE;
3587:
3588: WHEN others THEN
3589:
3590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3591: x_msg_count := 1;
3592: x_msg_data := SQLERRM;
3593:
3594: FND_MSG_PUB.add_exc_msg
3661: l_count := 0;
3662: x_msg_count := 0;
3663: l_error_msg_header_flag := 'N';
3664: x_res_resgr_mismatch_flag := 'N';
3665: x_return_status := FND_API.G_RET_STS_SUCCESS;
3666:
3667: select o.proj_fp_options_id,
3668: bv.version_type into
3669: l_source_fp_opt_id,
3744: where resource_list_member_id = l_prj_rlm_id;
3745: end if;
3746: if l_source_plan_level = 'G' and
3747: l_target_plan_level = 'R' then
3748: x_return_status := FND_API.G_RET_STS_ERROR;
3749:
3750: if p_calling_mode = 'INCLUDE_CR_TO_CO' then
3751: l_message_code := 'PA_FP_CI_C_INVP_RES_TO_RES_GRP';
3752: elsif p_calling_mode = 'INCLUDE' then
3903: end if;
3904:
3905: if l_source_plan_level = 'G' AND
3906: l_target_plan_level = 'R' THEN
3907: x_return_status := FND_API.G_RET_STS_ERROR;
3908: if l_error_msg_header_flag = 'N' then
3909: x_res_resgr_mismatch_flag := 'Y';
3910: l_error_msg_header_flag := 'Y';
3911: if
3990:
3991: EXCEPTION
3992: WHEN OTHERS THEN
3993:
3994: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3995: fnd_msg_pub.add_exc_msg(p_pkg_name => 'Pa_Fp_Control_Items_Utils',
3996: p_procedure_name => 'chk_res_resgrp_mismatch',
3997: p_error_text => SUBSTRB(SQLERRM,1,240));
3998: fnd_msg_pub.count_and_get(p_count => x_msg_count,
4063: x_msg_count := 0;
4064: l_error_msg_header_flag := 'N';
4065: x_tsk_plan_level_mismatch := 'N';
4066: l_index := 1;
4067: x_return_status := FND_API.G_RET_STS_SUCCESS;
4068: IF P_PA_DEBUG_MODE = 'Y' THEN
4069: PA_DEBUG.init_err_stack('PA_FP_CI_IMPLEMENT_PKG.implement_change_order');
4070: END IF;
4071:
4210: l_target_task_number := NULL;
4211: end;
4212:
4213: if l_error_msg_header_flag = 'N' then
4214: x_return_status := FND_API.G_RET_STS_ERROR;
4215: l_error_msg_header_flag := 'Y';
4216: if p_calling_mode = 'INCLUDE_CR_TO_CO' then
4217: l_message_code := 'PA_FP_CI_C_INV_TSK_LVL';
4218: elsif p_calling_mode = 'INCLUDE' then
4273: WHEN OTHERS THEN
4274: IF p_pa_debug_mode = 'Y' THEN
4275: PA_DEBUG.Reset_Err_Stack;
4276: END IF;
4277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4278: fnd_msg_pub.add_exc_msg(p_pkg_name => 'Pa_Fp_Control_Items_Utils',
4279: p_procedure_name => 'chk_tsk_plan_level_mismatch',
4280: p_error_text => SUBSTRB(SQLERRM,1,240));
4281: fnd_msg_pub.count_and_get(p_count => x_msg_count,
4952: BEGIN
4953:
4954: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4955: x_msg_count := 0;
4956: x_return_status := FND_API.G_RET_STS_SUCCESS;
4957: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
4958: p_debug_mode => l_debug_mode );
4959:
4960:
6000: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
6001: l_msg_count := FND_MSG_PUB.count_msg;
6002: IF l_msg_count = 1 THEN
6003: PA_INTERFACE_UTILS_PUB.get_messages
6004: (p_encoded => FND_API.G_TRUE
6005: ,p_msg_index => 1
6006: ,p_msg_count => l_msg_count
6007: ,p_msg_data => l_msg_data
6008: ,p_data => l_data
6011: x_msg_count := l_msg_count;
6012: ELSE
6013: x_msg_count := l_msg_count;
6014: END IF;
6015: x_return_status := FND_API.G_RET_STS_ERROR;
6016: pa_debug.reset_curr_function;
6017: RETURN;
6018:
6019: WHEN OTHERS THEN
6016: pa_debug.reset_curr_function;
6017: RETURN;
6018:
6019: WHEN OTHERS THEN
6020: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6021: x_msg_count := 1;
6022: x_msg_data := SQLERRM;
6023: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
6024: ,p_procedure_name => 'get_summary_data');
7152: BEGIN
7153:
7154: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7155: x_msg_count := 0;
7156: x_return_status := FND_API.G_RET_STS_SUCCESS;
7157: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
7158: p_debug_mode => l_debug_mode );
7159:
7160:
7501: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7502: l_msg_count := FND_MSG_PUB.count_msg;
7503: IF l_msg_count = 1 THEN
7504: PA_INTERFACE_UTILS_PUB.get_messages
7505: (p_encoded => FND_API.G_TRUE
7506: ,p_msg_index => 1
7507: ,p_msg_count => l_msg_count
7508: ,p_msg_data => l_msg_data
7509: ,p_data => l_data
7512: x_msg_count := l_msg_count;
7513: ELSE
7514: x_msg_count := l_msg_count;
7515: END IF;
7516: x_return_status := FND_API.G_RET_STS_ERROR;
7517: pa_debug.reset_curr_function;
7518: RETURN;
7519:
7520: WHEN OTHERS THEN
7517: pa_debug.reset_curr_function;
7518: RETURN;
7519:
7520: WHEN OTHERS THEN
7521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7522: x_msg_count := 1;
7523: x_msg_data := SQLERRM;
7524: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
7525: ,p_procedure_name => 'get_not_included');
7634: l_msg_count := FND_MSG_PUB.count_msg;
7635:
7636: IF l_msg_count = 1 THEN
7637: PA_INTERFACE_UTILS_PUB.get_messages
7638: (p_encoded => FND_API.G_TRUE
7639: ,p_msg_index => 1
7640: ,p_msg_count => l_msg_count
7641: ,p_msg_data => l_msg_data
7642: ,p_data => l_data
7770: p_debug_mode => P_PA_debug_mode );
7771:
7772:
7773: x_msg_count := 0;
7774: x_return_status := FND_API.G_RET_STS_SUCCESS;
7775:
7776: IF (p_ci_id IS NULL)
7777: THEN
7778:
7842: l_msg_count := FND_MSG_PUB.count_msg;
7843:
7844: IF l_msg_count = 1 and x_msg_data IS NULL THEN
7845: PA_INTERFACE_UTILS_PUB.get_messages
7846: (p_encoded => FND_API.G_TRUE
7847: ,p_msg_index => 1
7848: ,p_msg_count => l_msg_count
7849: ,p_msg_data => l_msg_data
7850: ,p_data => l_data
7853: x_msg_count := l_msg_count;
7854: ELSE
7855: x_msg_count := l_msg_count;
7856: END IF;
7857: x_return_status := FND_API.G_RET_STS_ERROR;
7858:
7859: pa_debug.reset_curr_function;
7860:
7861: RETURN;
7860:
7861: RETURN;
7862:
7863: WHEN Others THEN
7864: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7865: x_msg_count := 1;
7866: x_msg_data := SQLERRM;
7867:
7868: IF c_vers_for_ci%ISOPEN THEN
8005: p_debug_mode => l_debug_mode );
8006:
8007:
8008: x_msg_count := 0;
8009: x_return_status := FND_API.G_RET_STS_SUCCESS;
8010:
8011: -- initialising all the output tables
8012: X_pt_id_tbl := SYSTEM.pa_num_tbl_type();
8013: X_pt_name_tbl := SYSTEM.pa_varchar2_150_tbl_type();
8081: p_privilege => 'PA_FP_BDGT_SUB_COST_PLAN',
8082: p_object_name => 'PA_PROJECTS',
8083: p_object_key => P_project_id);
8084:
8085: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8086: IF l_debug_mode = 'Y' THEN
8087: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost';
8088: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8089: END IF;
8097: x_msg_data => l_msg_data,
8098: p_privilege => 'PA_FP_BDGT_SUB_REV_PLAN',
8099: p_object_name => 'PA_PROJECTS',
8100: p_object_key => P_project_id);
8101: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8102: IF l_debug_mode = 'Y' THEN
8103: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue';
8104: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8105: END IF;
8113: x_msg_data => l_msg_data,
8114: p_privilege => 'PA_FP_APP_BDGT_SUB_COST_PLAN',
8115: p_object_name => 'PA_PROJECTS',
8116: p_object_key => P_project_id);
8117: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8118: IF l_debug_mode = 'Y' THEN
8119: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost Approved';
8120: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8121: END IF;
8129: x_msg_data => l_msg_data,
8130: p_privilege => 'PA_FP_APP_BDGT_SUB_REV_PLAN',
8131: p_object_name => 'PA_PROJECTS',
8132: p_object_key => P_project_id);
8133: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8134: IF l_debug_mode = 'Y' THEN
8135: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue Approved';
8136: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8137: END IF;
8145: x_msg_data => l_msg_data,
8146: p_privilege => 'PA_FP_FCST_SUB_COST_PLAN',
8147: p_object_name => 'PA_PROJECTS',
8148: p_object_key => P_project_id);
8149: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8150: IF l_debug_mode = 'Y' THEN
8151: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost Forecast';
8152: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8153: END IF;
8161: x_msg_data => l_msg_data,
8162: p_privilege => 'PA_FP_FCST_SUB_REV_PLAN',
8163: p_object_name => 'PA_PROJECTS',
8164: p_object_key => P_project_id);
8165: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8166: IF l_debug_mode = 'Y' THEN
8167: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue Forecast';
8168: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8169: END IF;
8228: x_msg_data => l_msg_data,
8229: X_msg_count => l_msg_count);
8230:
8231:
8232: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8233: IF l_debug_mode = 'Y' THEN
8234: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
8235: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8236: END IF;
8280: x_return_status => l_return_status,
8281: x_msg_data => l_msg_data,
8282: X_msg_count => l_msg_count);
8283:
8284: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8285: IF l_debug_mode = 'Y' THEN
8286: pa_debug.g_err_stage:= 'Error in get_impl_details';
8287: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8288: END IF;
8364: x_return_status => l_return_status,
8365: x_msg_data => l_msg_data,
8366: X_msg_count => l_msg_count);
8367:
8368: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8369: IF l_debug_mode = 'Y' THEN
8370: pa_debug.g_err_stage:= 'Error in get_summary_amounts';
8371: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8372: END IF;
8544: x_msg_data => l_msg_data,
8545: x_msg_count => l_msg_count,
8546: x_return_status => l_return_status);
8547:
8548: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8549: IF P_PA_debug_mode = 'Y' THEN
8550: pa_debug.g_err_stage:= 'Error in get_fp_ci_agreement_dtls';
8551: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8552: END IF;
8568: CLOSE c_plan_types_attached;
8569: END IF;
8570: IF l_msg_count = 1 and x_msg_data IS NULL THEN
8571: PA_INTERFACE_UTILS_PUB.get_messages
8572: (p_encoded => FND_API.G_TRUE
8573: ,p_msg_index => 1
8574: ,p_msg_count => l_msg_count
8575: ,p_msg_data => l_msg_data
8576: ,p_data => l_data
8579: x_msg_count := l_msg_count;
8580: ELSE
8581: x_msg_count := l_msg_count;
8582: END IF;
8583: x_return_status := FND_API.G_RET_STS_ERROR;
8584:
8585: pa_debug.reset_curr_function;
8586: RETURN;
8587:
8585: pa_debug.reset_curr_function;
8586: RETURN;
8587:
8588: WHEN Others THEN
8589: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8590: x_msg_count := 1;
8591: x_msg_data := SQLERRM;
8592:
8593: IF c_plan_types_attached%ISOPEN THEN
8725: p_debug_mode => P_PA_debug_mode );
8726:
8727:
8728: x_msg_count := 0;
8729: x_return_status := FND_API.G_RET_STS_SUCCESS;
8730:
8731:
8732: -- Check if project id and ci id are null
8733:
8817: x_return_status => l_return_status,
8818: x_msg_data => l_msg_data,
8819: X_msg_count => l_msg_count);
8820:
8821: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8822: IF P_PA_debug_mode = 'Y' THEN
8823: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
8824: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8825: END IF;
8896: ,x_msg_data => l_msg_data
8897: ,X_msg_count => l_msg_count);
8898:
8899:
8900: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8901: IF P_PA_debug_mode = 'Y' THEN
8902: pa_debug.g_err_stage:= 'Error in GET_CURR_WORKING_VERSION_IDS';
8903: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8904: END IF;
9062: x_msg_data => l_msg_data,
9063: x_msg_count => l_msg_count,
9064: x_return_status => l_return_status);
9065:
9066: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9067: IF P_PA_debug_mode = 'Y' THEN
9068: pa_debug.g_err_stage:= 'Error in get_fp_ci_agreement_dtls';
9069: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9070: END IF;
9219: l_msg_count := FND_MSG_PUB.count_msg;
9220:
9221: IF l_msg_count = 1 and x_msg_data IS NULL THEN
9222: PA_INTERFACE_UTILS_PUB.get_messages
9223: (p_encoded => FND_API.G_TRUE
9224: ,p_msg_index => 1
9225: ,p_msg_count => l_msg_count
9226: ,p_msg_data => l_msg_data
9227: ,p_data => l_data
9230: x_msg_count := l_msg_count;
9231: ELSE
9232: x_msg_count := l_msg_count;
9233: END IF;
9234: x_return_status := FND_API.G_RET_STS_ERROR;
9235:
9236: pa_debug.reset_curr_function;
9237: RETURN;
9238:
9236: pa_debug.reset_curr_function;
9237: RETURN;
9238:
9239: WHEN Others THEN
9240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9241: x_msg_count := 1;
9242: x_msg_data := SQLERRM;
9243:
9244: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
9340: BEGIN
9341: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9342: l_debug_mode := NVL(l_debug_mode, 'Y');
9343: x_msg_count := 0;
9344: x_return_status := FND_API.G_RET_STS_SUCCESS;
9345: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
9346: p_debug_mode => l_debug_mode );
9347:
9348: IF p_ci_id IS NULL OR
9379: x_return_status => x_return_status,
9380: x_msg_data => x_msg_data,
9381: X_msg_count => x_msg_count);
9382:
9383: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9384:
9385: IF l_debug_mode = 'Y' THEN
9386: pa_debug.g_err_stage:='Called API Pa_Fp_Control_Items_Utils.get_ci_versions returned error';
9387: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9488: x_msg_data => x_msg_data,
9489: x_msg_count => x_msg_count,
9490: x_return_status => x_return_status);
9491:
9492: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9493:
9494: IF l_debug_mode = 'Y' THEN
9495: pa_debug.g_err_stage:='Called API pa_fp_control_items_utils.get_app_cw_ver_ids_for_proj returned error';
9496: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9660: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9661: l_msg_count := FND_MSG_PUB.count_msg;
9662: IF l_msg_count = 1 THEN
9663: PA_INTERFACE_UTILS_PUB.get_messages
9664: (p_encoded => FND_API.G_TRUE
9665: ,p_msg_index => 1
9666: ,p_msg_count => l_msg_count
9667: ,p_msg_data => l_msg_data
9668: ,p_data => l_data
9673: ELSE
9674:
9675: x_msg_count := l_msg_count;
9676: END IF;
9677: x_return_status := FND_API.G_RET_STS_ERROR;
9678: pa_debug.reset_curr_function;
9679:
9680: WHEN OTHERS THEN
9681:
9678: pa_debug.reset_curr_function;
9679:
9680: WHEN OTHERS THEN
9681:
9682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9683: x_msg_count := 1;
9684: x_msg_data := SQLERRM;
9685: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PAFPCIUB'
9686: ,p_procedure_name => 'get_dtls_for_view_fin_imp_pg');
9737: BEGIN
9738: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9739: l_debug_mode := NVL(l_debug_mode, 'Y');
9740: x_msg_count := 0;
9741: x_return_status := FND_API.G_RET_STS_SUCCESS;
9742: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
9743: p_debug_mode => l_debug_mode );
9744:
9745: IF p_project_id IS NULL THEN
9806:
9807: l_msg_count := FND_MSG_PUB.count_msg;
9808: IF l_msg_count = 1 THEN
9809: PA_INTERFACE_UTILS_PUB.get_messages
9810: (p_encoded => FND_API.G_TRUE
9811: ,p_msg_index => 1
9812: ,p_msg_count => l_msg_count
9813: ,p_msg_data => l_msg_data
9814: ,p_data => l_data
9819: ELSE
9820:
9821: x_msg_count := l_msg_count;
9822: END IF;
9823: x_return_status := FND_API.G_RET_STS_ERROR;
9824: pa_debug.reset_curr_function;
9825:
9826: WHEN OTHERS THEN
9827:
9826: WHEN OTHERS THEN
9827:
9828: CLOSE c_app_cw_ver_csr; -- Added for bug#6405905 by vvjoshi
9829:
9830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9831: x_msg_count := 1;
9832: x_msg_data := SQLERRM;
9833: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PAFPCIUB'
9834: ,p_procedure_name => 'get_app_cw_ver_ids_for_proj');
9966: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9967: l_msg_count := FND_MSG_PUB.count_msg;
9968: IF l_msg_count = 1 THEN
9969: PA_INTERFACE_UTILS_PUB.get_messages
9970: (p_encoded => FND_API.G_TRUE
9971: ,p_msg_index => 1
9972: ,p_msg_count => l_msg_count
9973: ,p_msg_data => l_msg_data
9974: ,p_data => l_data
10056:
10057: BEGIN
10058:
10059: x_msg_count := 0;
10060: x_return_status := FND_API.G_RET_STS_SUCCESS;
10061:
10062: -- Set curr function
10063: pa_debug.set_curr_function(
10064: p_function =>'PAFPCIUB.get_txn_curr_code_of_ci_ver'
10120: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10121: l_msg_count := FND_MSG_PUB.count_msg;
10122: IF l_msg_count = 1 THEN
10123: PA_INTERFACE_UTILS_PUB.get_messages
10124: (p_encoded => FND_API.G_TRUE
10125: ,p_msg_index => 1
10126: ,p_msg_count => l_msg_count
10127: ,p_msg_data => l_msg_data
10128: ,p_data => l_data
10133: ELSE
10134:
10135: x_msg_count := l_msg_count;
10136: END IF;
10137: x_return_status := FND_API.G_RET_STS_ERROR;
10138: pa_debug.reset_curr_function;
10139: WHEN Others THEN
10140:
10141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10137: x_return_status := FND_API.G_RET_STS_ERROR;
10138: pa_debug.reset_curr_function;
10139: WHEN Others THEN
10140:
10141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10142: x_msg_count := 1;
10143: x_msg_data := SQLERRM;
10144:
10145: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
10236: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10237: l_msg_count := FND_MSG_PUB.count_msg;
10238: IF l_msg_count = 1 THEN
10239: PA_INTERFACE_UTILS_PUB.get_messages
10240: (p_encoded => FND_API.G_TRUE
10241: ,p_msg_index => 1
10242: ,p_msg_count => l_msg_count
10243: ,p_msg_data => l_msg_data
10244: ,p_data => l_data