[Home] [Help]
34: x_ci_est_qty := NULL;
35: x_ci_planned_qty := NULL;
36: x_baselined_planned_qty := NULL;
37:
38: x_return_status := FND_API.G_RET_STS_SUCCESS;
39: x_msg_count := 0;
40: x_no_of_ci_plan_versions := 0;
41: x_margin_derived_from_code := 'B';
42: IF P_PA_DEBUG_MODE = 'Y' THEN
287: IF P_PA_DEBUG_MODE = 'Y' THEN
288: pa_debug.write_file('Get_Fin_Plan_Dtls: ' || SQLERRM);
289: END IF;
290: pa_debug.reset_err_stack;
291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
292: RAISE;
293: END Get_Fin_Plan_Dtls;
294:
295:
471: END IF;
472: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
473: l_debug_mode := NVL(l_debug_mode, 'Y');
474: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
475: x_return_status := FND_API.G_RET_STS_SUCCESS;
476: x_msg_count := 0;
477: ----DBMS_OUTPUT.PUT_LINE('FP_CI_GET_VERSION_DETAILS - 1');
478: --Get the column values for this budget version id and project id combination
479: BEGIN
537: PA_UTILS.ADD_MESSAGE
538: ( p_app_short_name => 'PA',
539: p_msg_name => 'PA_FP_CI_NO_VERSION_DATA_FOUND');
540: ----DBMS_OUTPUT.PUT_LINE('FP_CI_GET_VERSION_DETAILS - 2***');
541: x_return_status := FND_API.G_RET_STS_ERROR;
542: END;
543: -- Get the resource list name to check if the
544: -- budget version is planned with resource or
545: -- without resource
563: IF P_PA_DEBUG_MODE = 'Y' THEN
564: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_GET_VERSION_DETAILS';
565: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
566: END IF;
567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
568: PA_DEBUG.Reset_Curr_Function;
569: RAISE;
570: END FP_CI_GET_VERSION_DETAILS;
571: -- end of FP_CI_GET_VERSION_DETAILS
671: END IF;
672: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
673: l_debug_mode := NVL(l_debug_mode, 'Y');
674: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
675: x_return_status := FND_API.G_RET_STS_SUCCESS;
676: x_msg_count := 0;
677: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 1');
678: -- The API is sure to have ONE target version id for merge check
679:
1055: WHEN RAISE_MERGE_ERROR THEN
1056: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 35');
1057: x_merge_possible_code_tbl.extend(1);
1058: x_merge_possible_code_tbl (i) := l_merge_possible_code;
1059: x_return_status := FND_API.G_RET_STS_ERROR;
1060: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 36****');
1061: select ci_id into l_token_ci_id from
1062: pa_budget_versions where
1063: budget_version_id = l_s_version_id;
1476: WHEN RAISE_MERGE_ERROR THEN
1477: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 35');
1478: x_merge_possible_code_tbl.extend(1);
1479: x_merge_possible_code_tbl (i) := l_merge_possible_code;
1480: x_return_status := FND_API.G_RET_STS_ERROR;
1481: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 36****');
1482: END;
1483: END IF;
1484: END LOOP;
1494: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_MERGE_POSSIBLE';
1495: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1496: END IF;
1497: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 37');
1498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1499: PA_DEBUG.Reset_Curr_Function;
1500: RAISE;
1501:
1502: END FP_CI_CHECK_MERGE_POSSIBLE;
1506: /* isFundingLevelChangeAllowed requires 2 input parameters:
1507: p_project_id -- the project_id context
1508: p_proposed_fund_level -- The proposed funding level which is defaulted to null
1509:
1510: The API adds a message and returns x_return_status as FND_API.G_RET_STS_ERROR
1511: when the proposed funding level cannot be changed. */
1512:
1513: PROCEDURE isFundingLevelChangeAllowed
1514: (
1546: and ppa.baseline_funding_flag = 'Y';
1547:
1548: BEGIN
1549:
1550: x_return_status := FND_API.G_RET_STS_SUCCESS;
1551:
1552: open check_ci_funding_level;
1553: fetch check_ci_funding_level into l_ci_funding_level;
1554: IF check_ci_funding_level%NOTFOUND THEN
1551:
1552: open check_ci_funding_level;
1553: fetch check_ci_funding_level into l_ci_funding_level;
1554: IF check_ci_funding_level%NOTFOUND THEN
1555: x_return_status := FND_API.G_RET_STS_SUCCESS;
1556: x_msg_count := FND_MSG_PUB.Count_Msg;
1557: close check_ci_funding_level;
1558: return;
1559: END IF;
1564: /* Project funding level being modified to Top Task level
1565: where as Budget planning level is at project level
1566: throw an error as this mismatch cannot be handled in auto-baseline */
1567:
1568: x_return_status := FND_API.G_RET_STS_ERROR;
1569:
1570: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1571: p_msg_name => 'PA_FP_CHK_FUNDING_LVL');
1572: END IF;
1577: x_err_stage,
1578: x_err_stack);
1579:
1580: if (x_err_code <> 0) then
1581: x_return_status := FND_API.G_RET_STS_ERROR;
1582: x_msg_count := FND_MSG_PUB.Count_Msg;
1583: if x_msg_count = 1 then
1584: PA_INTERFACE_UTILS_PUB.get_messages
1585: (p_encoded => FND_API.G_TRUE,
1581: x_return_status := FND_API.G_RET_STS_ERROR;
1582: x_msg_count := FND_MSG_PUB.Count_Msg;
1583: if x_msg_count = 1 then
1584: PA_INTERFACE_UTILS_PUB.get_messages
1585: (p_encoded => FND_API.G_TRUE,
1586: p_msg_index => 1,
1587: p_data => x_msg_data,
1588: p_msg_index_out => l_msg_index_out);
1589: end if;
1594: /* Project funding level being modified to Top Task level
1595: where as Budget planning level is at project level
1596: throw an error as this mismatch cannot be handled in auto-baseline */
1597:
1598: x_return_status := FND_API.G_RET_STS_ERROR;
1599: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1600: p_msg_name => 'PA_FP_CHK_FUNDING_LVL');
1601: END IF;
1602: END IF;
1604: x_msg_count := FND_MSG_PUB.Count_Msg;
1605:
1606: IF x_msg_count = 1 then
1607: PA_INTERFACE_UTILS_PUB.get_messages
1608: (p_encoded => FND_API.G_TRUE,
1609: p_msg_index => 1,
1610: p_data => x_msg_data,
1611: p_msg_index_out => l_msg_index_out);
1612: END IF;
1612: END IF;
1613:
1614: EXCEPTION
1615: WHEN OTHERS THEN
1616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1617: x_msg_count := 1;
1618: x_msg_data := SQLERRM;
1619: FND_MSG_PUB.add_exc_msg
1620: ( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
1623:
1624: END isFundingLevelChangeAllowed;
1625:
1626: /* isAgreementDeletionAllowed API needs to be called before deleting an Agreement.
1627: If x_return_status is FND_API.G_RET_STS_ERROR then do not allow deletion of agreement.
1628: Display the error message from the stack or x_msg_data (when x_msg_count=1).
1629: */
1630:
1631: PROCEDURE isAgreementDeletionAllowed
1649: and bv.project_id = fu.project_id
1650: and bv.agreement_id = p_agreement_id);
1651: BEGIN
1652:
1653: x_return_status := FND_API.G_RET_STS_SUCCESS;
1654: l_found := 'N';
1655:
1656: open c1;
1657: fetch c1 into l_found;
1657: fetch c1 into l_found;
1658: close c1;
1659:
1660: IF l_found = 'Y' then
1661: x_return_status := FND_API.G_RET_STS_ERROR;
1662: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1663: p_msg_name => 'PA_FP_AGR_CI_NO_DELETE');
1664: END IF;
1665:
1666:
1667: x_msg_count := FND_MSG_PUB.Count_Msg;
1668: IF x_msg_count = 1 then
1669: PA_INTERFACE_UTILS_PUB.get_messages
1670: (p_encoded => FND_API.G_TRUE,
1671: p_msg_index => 1,
1672: p_data => x_msg_data,
1673: p_msg_index_out => l_msg_index_out);
1674: END IF;
1674: END IF;
1675:
1676: EXCEPTION
1677: WHEN NO_DATA_FOUND THEN
1678: x_return_status := FND_API.G_RET_STS_SUCCESS;
1679: x_msg_count := FND_MSG_PUB.Count_Msg;
1680: IF x_msg_count = 1 then
1681: PA_INTERFACE_UTILS_PUB.get_messages
1682: (p_encoded => FND_API.G_TRUE,
1678: x_return_status := FND_API.G_RET_STS_SUCCESS;
1679: x_msg_count := FND_MSG_PUB.Count_Msg;
1680: IF x_msg_count = 1 then
1681: PA_INTERFACE_UTILS_PUB.get_messages
1682: (p_encoded => FND_API.G_TRUE,
1683: p_msg_index => 1,
1684: p_data => x_msg_data,
1685: p_msg_index_out => l_msg_index_out);
1686: END IF;
1684: p_data => x_msg_data,
1685: p_msg_index_out => l_msg_index_out);
1686: END IF;
1687: WHEN OTHERS THEN
1688: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1689: x_msg_count := 1;
1690: x_msg_data := SQLERRM;
1691: FND_MSG_PUB.add_exc_msg
1692: ( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
1696: END isAgreementDeletionAllowed;
1697:
1698:
1699: /* isAgrCurrencyChangeAllowed API needs to be called before changing Agreement/Funding Currency.
1700: If x_return_status is FND_API.G_RET_STS_ERROR then do not allow change in currency.
1701: Display the error message from the stack or x_msg_data (when x_msg_count=1).
1702: */
1703:
1704: PROCEDURE isAgrCurrencyChangeAllowed
1721: and bv.project_id = fu.project_id
1722: and bv.agreement_id = p_agreement_id);
1723: BEGIN
1724:
1725: x_return_status := FND_API.G_RET_STS_SUCCESS;
1726: l_found := 'N';
1727:
1728: open c1;
1729: fetch c1 into l_found;
1729: fetch c1 into l_found;
1730: close c1;
1731:
1732: IF l_found = 'Y' then
1733: x_return_status := FND_API.G_RET_STS_ERROR;
1734: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1735: p_msg_name => 'PA_FP_AGR_CUR_NO_CHANGE');
1736: END IF;
1737:
1738:
1739: x_msg_count := FND_MSG_PUB.Count_Msg;
1740: IF x_msg_count = 1 then
1741: PA_INTERFACE_UTILS_PUB.get_messages
1742: (p_encoded => FND_API.G_TRUE,
1743: p_msg_index => 1,
1744: p_data => x_msg_data,
1745: p_msg_index_out => l_msg_index_out);
1746: END IF;
1746: END IF;
1747:
1748: EXCEPTION
1749: WHEN NO_DATA_FOUND THEN
1750: x_return_status := FND_API.G_RET_STS_SUCCESS;
1751: x_msg_count := FND_MSG_PUB.Count_Msg;
1752: IF x_msg_count = 1 then
1753: PA_INTERFACE_UTILS_PUB.get_messages
1754: (p_encoded => FND_API.G_TRUE,
1750: x_return_status := FND_API.G_RET_STS_SUCCESS;
1751: x_msg_count := FND_MSG_PUB.Count_Msg;
1752: IF x_msg_count = 1 then
1753: PA_INTERFACE_UTILS_PUB.get_messages
1754: (p_encoded => FND_API.G_TRUE,
1755: p_msg_index => 1,
1756: p_data => x_msg_data,
1757: p_msg_index_out => l_msg_index_out);
1758: END IF;
1756: p_data => x_msg_data,
1757: p_msg_index_out => l_msg_index_out);
1758: END IF;
1759: WHEN OTHERS THEN
1760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1761: x_msg_count := 1;
1762: x_msg_data := SQLERRM;
1763: FND_MSG_PUB.add_exc_msg
1764: ( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
1884: AND pra.project_assignment_id = -1);
1885: BEGIN
1886:
1887: x_msg_count := 0;
1888: x_return_status := FND_API.G_RET_STS_SUCCESS;
1889: pa_debug.set_err_stack('PA_FP_CONTROL_ITEMS_UTILS.Is_Create_CI_Version_Allowed');
1890: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1891: l_debug_mode := NVL(l_debug_mode, 'Y');
1892: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1944: x_return_status => l_return_status,
1945: x_msg_count => l_msg_count,
1946: x_msg_data => l_msg_data );
1947:
1948: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1949: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1950: END IF;
1951:
1952:
2004: ,x_return_status => l_return_status
2005: ,x_msg_count => l_msg_count
2006: ,x_msg_data => l_msg_data);
2007:
2008: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2009: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2010: END IF;
2011:
2012: /* Bug# 2682955 - Creating plannable elements based on the impacted task is ONLY applicable
2151: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2152: END IF;
2153:
2154: -- raise error if the ci version cant be created
2155: x_return_status := FND_API.G_RET_STS_ERROR;
2156:
2157: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2158: p_msg_name => 'PA_FP_CI_VERSION_NOT_ALLOWED');
2159: RETURN;
2170: EXCEPTION
2171:
2172: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2173:
2174: x_return_status := FND_API.G_RET_STS_ERROR;
2175: l_msg_count := FND_MSG_PUB.count_msg;
2176: IF l_msg_count = 1 THEN
2177: PA_INTERFACE_UTILS_PUB.get_messages
2178: (p_encoded => FND_API.G_TRUE
2174: x_return_status := FND_API.G_RET_STS_ERROR;
2175: l_msg_count := FND_MSG_PUB.count_msg;
2176: IF l_msg_count = 1 THEN
2177: PA_INTERFACE_UTILS_PUB.get_messages
2178: (p_encoded => FND_API.G_TRUE
2179: ,p_msg_index => 1
2180: ,p_msg_count => l_msg_count
2181: ,p_msg_data => l_msg_data
2182: ,p_data => l_data
2193: RAISE;
2194:
2195: WHEN others THEN
2196:
2197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2198: x_msg_count := 1;
2199: x_msg_data := SQLERRM;
2200: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
2201: ,p_procedure_name => 'Is_Create_CI_Version_Allowed');
2217: x_return_status OUT NOCOPY VARCHAR2 ) IS --File.Sql.39 bug 4440895
2218: l_count NUMBER := 0;
2219:
2220: BEGIN
2221: x_return_status := FND_API.G_RET_STS_SUCCESS;
2222:
2223: IF P_PA_DEBUG_MODE = 'Y' THEN
2224: pa_debug.init_err_stack('IsValidAgreement: ' || 'PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls');
2225: END IF;
2224: pa_debug.init_err_stack('IsValidAgreement: ' || 'PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls');
2225: END IF;
2226:
2227: IF p_agreement_number IS NULL THEN
2228: x_return_status := FND_API.G_RET_STS_ERROR;
2229: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
2230: p_msg_name => 'PA_FP_AGR_NUM_REQ' );
2231: pa_debug.reset_err_stack;
2232: RETURN;
2244: pa_debug.reset_err_stack;
2245: RETURN;
2246: EXCEPTION
2247: WHEN NO_DATA_FOUND THEN
2248: x_return_status := FND_API.G_RET_STS_ERROR;
2249: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
2250: p_msg_name => 'PA_FP_AGR_INVALID',
2251: p_token1 => 'AGREEMENT_NUMBER',
2252: p_value1 => p_agreement_number);
2260: IF P_PA_DEBUG_MODE = 'Y' THEN
2261: pa_debug.write_file('IsValidAgreement: ' || SQLERRM);
2262: END IF;
2263: pa_debug.reset_err_stack;
2264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2265: RAISE;
2266: END IsValidAgreement;
2267:
2268: FUNCTION IsFpAutoBaselineEnabled(p_project_id IN NUMBER)
2350: END IF;
2351: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2352: l_debug_mode := NVL(l_debug_mode, 'Y');
2353: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2354: x_return_status := FND_API.G_RET_STS_SUCCESS;
2355: x_msg_count := 0;
2356: ----DBMS_OUTPUT.PUT_LINE('GET_BUDGET_VERSION_INFO - 1');
2357: --Get the column values for this budget version id and project id combination
2358: -- Added x_plan_class_code below
2387: PA_UTILS.ADD_MESSAGE
2388: ( p_app_short_name => 'PA',
2389: p_msg_name => 'PA_FP_CI_NO_VERSION_DATA_FOUND');
2390: ----DBMS_OUTPUT.PUT_LINE('FP_CI_GET_VERSION_DETAILS - 2***');
2391: x_return_status := FND_API.G_RET_STS_ERROR;
2392: END;
2393:
2394: BEGIN
2395: SELECT project_currency_code
2414: IF P_PA_DEBUG_MODE = 'Y' THEN
2415: PA_DEBUG.g_err_stage := 'Unexpected error in GET_BUDGET_VERSION_INFO';
2416: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2417: END IF;
2418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2419: PA_DEBUG.Reset_Curr_Function;
2420: RAISE;
2421: END GET_BUDGET_VERSION_INFO;
2422: -- end of GET_BUDGET_VERSION_INFO
2485: bv.approved_rev_plan_type_flag = 'Y')) ;
2486:
2487: BEGIN
2488:
2489: x_return_status := FND_API.G_RET_STS_SUCCESS;
2490:
2491: l_stage := 100;
2492:
2493: select name,
2538:
2539: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2540: p_data => x_msg_data);
2541: x_msg_count := fnd_msg_pub.count_msg;
2542: x_return_status := FND_API.G_RET_STS_ERROR;
2543: close c1;
2544:
2545: return;
2546: END IF;
2551: x_msg_count := FND_MSG_PUB.Count_Msg;
2552:
2553: IF x_msg_count = 1 then
2554: PA_INTERFACE_UTILS_PUB.get_messages
2555: (p_encoded => FND_API.G_TRUE,
2556: p_msg_index => 1,
2557: p_data => x_msg_data,
2558: p_msg_index_out => l_msg_index_out);
2559: END IF;
2556: p_msg_index => 1,
2557: p_data => x_msg_data,
2558: p_msg_index_out => l_msg_index_out);
2559: END IF;
2560: x_return_status := FND_API.G_RET_STS_SUCCESS;
2561:
2562: EXCEPTION
2563: WHEN OTHERS THEN
2564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2560: x_return_status := FND_API.G_RET_STS_SUCCESS;
2561:
2562: EXCEPTION
2563: WHEN OTHERS THEN
2564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2565: x_msg_count := 1;
2566: x_msg_data := to_char(l_stage)||'-'||SQLERRM;
2567: FND_MSG_PUB.add_exc_msg
2568: ( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
2595: ,pa_proj_fp_options pot
2596: where pos.fin_plan_version_id = p_source_bv_id
2597: and pot.fin_plan_version_id = p_target_bv_id;
2598: BEGIN
2599: x_return_status := FND_API.G_RET_STS_SUCCESS;
2600:
2601: open c1;
2602: l_stage := 100;
2603: fetch c1 into l_source_time_phased_code
2612:
2613: l_stage := 400;
2614: --For Bug 3642884
2615: x_attributes_same_flag := 'N';
2616: x_return_status := FND_API.G_RET_STS_SUCCESS;
2617: x_msg_count := FND_MSG_PUB.Count_Msg;
2618: x_msg_data := NULL;
2619:
2620: ELSE
2620: ELSE
2621: l_stage := 500;
2622: --For Bug 3642884
2623: x_attributes_same_flag := 'Y';
2624: x_return_status := FND_API.G_RET_STS_SUCCESS;
2625: x_msg_count := FND_MSG_PUB.Count_Msg;
2626: x_msg_data := NULL;
2627: END IF;
2628:
2627: END IF;
2628:
2629: EXCEPTION
2630: WHEN OTHERS THEN
2631: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2632: x_msg_count := 1;
2633: x_msg_data := to_char(l_stage)||'-'||SQLERRM;
2634: FND_MSG_PUB.add_exc_msg
2635: ( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
2668: END IF;
2669: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2670: l_debug_mode := NVL(l_debug_mode, 'Y');
2671: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2672: x_return_status := FND_API.G_RET_STS_SUCCESS;
2673: x_msg_count := 0;
2674: ----DBMS_OUTPUT.PUT_LINE('CHECK_PLAN_VERSION_NAME_OR_ID - 1');
2675: --Get the number of versions for this budget version name
2676: -- fin plan type id and project id combination
2709: IF P_PA_DEBUG_MODE = 'Y' THEN
2710: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_PLAN_VERSION_NAME_OR_ID';
2711: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2712: END IF;
2713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2714: PA_DEBUG.Reset_Curr_Function;
2715: RAISE;
2716: END CHECK_PLAN_VERSION_NAME_OR_ID;
2717: -- end of CHECK_PLAN_VERSION_NAME_OR_ID
2770: END IF;
2771: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2772: l_debug_mode := NVL(l_debug_mode, 'Y');
2773: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2774: x_return_status := FND_API.G_RET_STS_SUCCESS;
2775: x_msg_count := 0;
2776: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_COPY_POSSIBLE - 1');
2777:
2778: IF(p_source_version_type = 'COST') THEN
2848: x_return_status => l_return_status,
2849: x_msg_count => l_msg_count,
2850: x_msg_data => l_msg_data );
2851:
2852: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2853: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2854: END IF;
2855:
2856: SELECT
2885: WHEN NO_DATA_FOUND THEN
2886: PA_UTILS.ADD_MESSAGE
2887: ( p_app_short_name => 'PA',
2888: p_msg_name => 'PA_FP_CI_NO_PLAN_LVL_DATA_FND');
2889: x_return_status := FND_API.G_RET_STS_ERROR;
2890: END;
2891: ELSE
2892: BEGIN
2893:
2916: x_return_status => l_return_status,
2917: x_msg_count => l_msg_count,
2918: x_msg_data => l_msg_data );
2919:
2920: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2921: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2922: END IF;
2923:
2924: SELECT
2955: PA_UTILS.ADD_MESSAGE
2956: ( p_app_short_name => 'PA',
2957: p_msg_name => 'PA_FP_CI_NO_PLAN_LVL_DATA_FND');
2958: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_COPY_POSSIBLE - 2***');
2959: x_return_status := FND_API.G_RET_STS_ERROR;
2960: END;
2961: END IF;
2962:
2963: --DBMS_OUTPUT.PUT_LINE('l_target_plan_level_code : ' || l_target_plan_level_code);
3011: (l_time_phase_code_flag = 'Y')
3012: )THEN
3013:
3014: x_copy_possible_flag := 'Y';
3015: x_return_status := FND_API.G_RET_STS_SUCCESS;
3016: x_msg_count := FND_MSG_PUB.Count_Msg;
3017: x_msg_data := NULL;
3018:
3019: ELSE
3051: p_value2 => l_token_v_type
3052: );
3053:
3054: x_copy_possible_flag := 'N';
3055: x_return_status := FND_API.G_RET_STS_SUCCESS;
3056: x_msg_count := FND_MSG_PUB.Count_Msg;
3057: x_msg_data := NULL;
3058: END IF;
3059: EXCEPTION
3060: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3061: l_msg_count := FND_MSG_PUB.count_msg;
3062: IF l_msg_count = 1 THEN
3063: PA_INTERFACE_UTILS_PUB.get_messages
3064: (p_encoded => FND_API.G_TRUE
3065: ,p_msg_index => 1
3066: ,p_msg_count => l_msg_count
3067: ,p_msg_data => l_msg_data
3068: ,p_data => l_data
3071: x_msg_count := l_msg_count;
3072: ELSE
3073: x_msg_count := l_msg_count;
3074: END IF;
3075: x_return_status := FND_API.G_RET_STS_ERROR;
3076: pa_debug.reset_err_stack;
3077: RAISE;
3078: WHEN OTHERS THEN
3079: FND_MSG_PUB.add_exc_msg
3084: IF P_PA_DEBUG_MODE = 'Y' THEN
3085: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_COPY_POSSIBLE';
3086: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3087: END IF;
3088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3089: PA_DEBUG.Reset_Curr_Function;
3090:
3091: END FP_CI_CHECK_COPY_POSSIBLE;
3092:
3117: END IF;
3118: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3119: l_debug_mode := NVL(l_debug_mode, 'Y');
3120: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3121: x_return_status := FND_API.G_RET_STS_SUCCESS;
3122: x_msg_count := 0;
3123:
3124: x_call_fp_api_flag := 'N';
3125: ----DBMS_OUTPUT.PUT_LINE('CHECK_FP_PLAN_VERSION_EXISTS - 1');
3151: IF P_PA_DEBUG_MODE = 'Y' THEN
3152: PA_DEBUG.g_err_stage := 'Unexpected error in CHECK_FP_PLAN_VERSION_EXISTS';
3153: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
3154: END IF;
3155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3156: PA_DEBUG.Reset_Curr_Function;
3157: RAISE;
3158: END CHECK_FP_PLAN_VERSION_EXISTS;
3159: -- end of CHECK_FP_PLAN_VERSION_EXISTS
3204: l_merge_possible_code_tbl SYSTEM.pa_varchar2_1_tbl_type:=SYSTEM.pa_varchar2_1_tbl_type();
3205:
3206: BEGIN
3207: x_msg_count := 0;
3208: x_return_status := FND_API.G_RET_STS_SUCCESS;
3209: IF p_pa_debug_mode = 'Y' THEN
3210: pa_debug.set_err_stack('Pa_Fp_Control_Items_Utils.Fp_Ci_Impact_Submit_Chk');
3211: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
3212: END IF;
3264: ,x_return_status => l_return_status
3265: ,x_msg_count => l_msg_count
3266: ,x_msg_data => l_msg_data);
3267:
3268: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3269: IF P_PA_DEBUG_MODE = 'Y' THEN
3270: pa_debug.g_err_stage := 'No working version found.';
3271: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3272: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3302: x_msg_count => x_msg_count,
3303: x_msg_data => x_msg_data
3304: );
3305:
3306: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3307: x_return_status := l_return_status ;
3308: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
3309:
3310: END LOOP;
3304: );
3305:
3306: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3307: x_return_status := l_return_status ;
3308: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
3309:
3310: END LOOP;
3311:
3312: END IF; -- nvl(l_ci_version_id_tbl.last,0) < 1
3319: END IF;
3320:
3321: EXCEPTION
3322: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3323: x_return_status := FND_API.G_RET_STS_ERROR;
3324: l_msg_count := FND_MSG_PUB.count_msg;
3325: IF l_msg_count = 1 THEN
3326: PA_INTERFACE_UTILS_PUB.get_messages
3327: (p_encoded => FND_API.G_TRUE
3323: x_return_status := FND_API.G_RET_STS_ERROR;
3324: l_msg_count := FND_MSG_PUB.count_msg;
3325: IF l_msg_count = 1 THEN
3326: PA_INTERFACE_UTILS_PUB.get_messages
3327: (p_encoded => FND_API.G_TRUE
3328: ,p_msg_index => 1
3329: ,p_msg_count => l_msg_count
3330: ,p_msg_data => l_msg_data
3331: ,p_data => l_data
3342: so that the calling procedure checks for the return status of this procedure
3343: and handles it appropriately. */
3344: RETURN;
3345: WHEN OTHERS THEN
3346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3347: x_msg_count := 1;
3348: x_msg_data := SQLERRM;
3349: FND_MSG_PUB.add_exc_msg
3350: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
3408:
3409: BEGIN
3410:
3411: x_msg_count := 0;
3412: x_return_status := FND_API.G_RET_STS_SUCCESS;
3413: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3414: IF l_debug_mode = 'Y' THEN
3415: pa_debug.set_err_stack('Pa_Fp_Control_Items_Utils.FP_CI_VALIDATE_UPDATE_IMPACT');
3416: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3514: EXCEPTION
3515:
3516: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3517:
3518: x_return_status := FND_API.G_RET_STS_ERROR;
3519: l_msg_count := FND_MSG_PUB.count_msg;
3520:
3521: IF l_msg_count = 1 and x_msg_data IS NULL THEN
3522: PA_INTERFACE_UTILS_PUB.get_messages
3519: l_msg_count := FND_MSG_PUB.count_msg;
3520:
3521: IF l_msg_count = 1 and x_msg_data IS NULL THEN
3522: PA_INTERFACE_UTILS_PUB.get_messages
3523: (p_encoded => FND_API.G_TRUE
3524: ,p_msg_index => 1
3525: ,p_msg_count => l_msg_count
3526: ,p_msg_data => l_msg_data
3527: ,p_data => l_data
3537: RAISE;
3538:
3539: WHEN others THEN
3540:
3541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3542: x_msg_count := 1;
3543: x_msg_data := SQLERRM;
3544:
3545: FND_MSG_PUB.add_exc_msg
3612: l_count := 0;
3613: x_msg_count := 0;
3614: l_error_msg_header_flag := 'N';
3615: x_res_resgr_mismatch_flag := 'N';
3616: x_return_status := FND_API.G_RET_STS_SUCCESS;
3617:
3618: select o.proj_fp_options_id,
3619: bv.version_type into
3620: l_source_fp_opt_id,
3695: where resource_list_member_id = l_prj_rlm_id;
3696: end if;
3697: if l_source_plan_level = 'G' and
3698: l_target_plan_level = 'R' then
3699: x_return_status := FND_API.G_RET_STS_ERROR;
3700:
3701: if p_calling_mode = 'INCLUDE_CR_TO_CO' then
3702: l_message_code := 'PA_FP_CI_C_INVP_RES_TO_RES_GRP';
3703: elsif p_calling_mode = 'INCLUDE' then
3854: end if;
3855:
3856: if l_source_plan_level = 'G' AND
3857: l_target_plan_level = 'R' THEN
3858: x_return_status := FND_API.G_RET_STS_ERROR;
3859: if l_error_msg_header_flag = 'N' then
3860: x_res_resgr_mismatch_flag := 'Y';
3861: l_error_msg_header_flag := 'Y';
3862: if
3941:
3942: EXCEPTION
3943: WHEN OTHERS THEN
3944:
3945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3946: fnd_msg_pub.add_exc_msg(p_pkg_name => 'Pa_Fp_Control_Items_Utils',
3947: p_procedure_name => 'chk_res_resgrp_mismatch',
3948: p_error_text => SUBSTRB(SQLERRM,1,240));
3949: fnd_msg_pub.count_and_get(p_count => x_msg_count,
4014: x_msg_count := 0;
4015: l_error_msg_header_flag := 'N';
4016: x_tsk_plan_level_mismatch := 'N';
4017: l_index := 1;
4018: x_return_status := FND_API.G_RET_STS_SUCCESS;
4019: IF P_PA_DEBUG_MODE = 'Y' THEN
4020: PA_DEBUG.init_err_stack('PA_FP_CI_IMPLEMENT_PKG.implement_change_order');
4021: END IF;
4022:
4161: l_target_task_number := NULL;
4162: end;
4163:
4164: if l_error_msg_header_flag = 'N' then
4165: x_return_status := FND_API.G_RET_STS_ERROR;
4166: l_error_msg_header_flag := 'Y';
4167: if p_calling_mode = 'INCLUDE_CR_TO_CO' then
4168: l_message_code := 'PA_FP_CI_C_INV_TSK_LVL';
4169: elsif p_calling_mode = 'INCLUDE' then
4224: WHEN OTHERS THEN
4225: IF p_pa_debug_mode = 'Y' THEN
4226: PA_DEBUG.Reset_Err_Stack;
4227: END IF;
4228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4229: fnd_msg_pub.add_exc_msg(p_pkg_name => 'Pa_Fp_Control_Items_Utils',
4230: p_procedure_name => 'chk_tsk_plan_level_mismatch',
4231: p_error_text => SUBSTRB(SQLERRM,1,240));
4232: fnd_msg_pub.count_and_get(p_count => x_msg_count,
4896: BEGIN
4897:
4898: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4899: x_msg_count := 0;
4900: x_return_status := FND_API.G_RET_STS_SUCCESS;
4901: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
4902: p_debug_mode => l_debug_mode );
4903:
4904:
5944: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5945: l_msg_count := FND_MSG_PUB.count_msg;
5946: IF l_msg_count = 1 THEN
5947: PA_INTERFACE_UTILS_PUB.get_messages
5948: (p_encoded => FND_API.G_TRUE
5949: ,p_msg_index => 1
5950: ,p_msg_count => l_msg_count
5951: ,p_msg_data => l_msg_data
5952: ,p_data => l_data
5955: x_msg_count := l_msg_count;
5956: ELSE
5957: x_msg_count := l_msg_count;
5958: END IF;
5959: x_return_status := FND_API.G_RET_STS_ERROR;
5960: pa_debug.reset_curr_function;
5961: RETURN;
5962:
5963: WHEN OTHERS THEN
5960: pa_debug.reset_curr_function;
5961: RETURN;
5962:
5963: WHEN OTHERS THEN
5964: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5965: x_msg_count := 1;
5966: x_msg_data := SQLERRM;
5967: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
5968: ,p_procedure_name => 'get_summary_data');
7080: BEGIN
7081:
7082: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7083: x_msg_count := 0;
7084: x_return_status := FND_API.G_RET_STS_SUCCESS;
7085: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
7086: p_debug_mode => l_debug_mode );
7087:
7088:
7429: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7430: l_msg_count := FND_MSG_PUB.count_msg;
7431: IF l_msg_count = 1 THEN
7432: PA_INTERFACE_UTILS_PUB.get_messages
7433: (p_encoded => FND_API.G_TRUE
7434: ,p_msg_index => 1
7435: ,p_msg_count => l_msg_count
7436: ,p_msg_data => l_msg_data
7437: ,p_data => l_data
7440: x_msg_count := l_msg_count;
7441: ELSE
7442: x_msg_count := l_msg_count;
7443: END IF;
7444: x_return_status := FND_API.G_RET_STS_ERROR;
7445: pa_debug.reset_curr_function;
7446: RETURN;
7447:
7448: WHEN OTHERS THEN
7445: pa_debug.reset_curr_function;
7446: RETURN;
7447:
7448: WHEN OTHERS THEN
7449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7450: x_msg_count := 1;
7451: x_msg_data := SQLERRM;
7452: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
7453: ,p_procedure_name => 'get_not_included');
7562: l_msg_count := FND_MSG_PUB.count_msg;
7563:
7564: IF l_msg_count = 1 THEN
7565: PA_INTERFACE_UTILS_PUB.get_messages
7566: (p_encoded => FND_API.G_TRUE
7567: ,p_msg_index => 1
7568: ,p_msg_count => l_msg_count
7569: ,p_msg_data => l_msg_data
7570: ,p_data => l_data
7695: p_debug_mode => P_PA_debug_mode );
7696:
7697:
7698: x_msg_count := 0;
7699: x_return_status := FND_API.G_RET_STS_SUCCESS;
7700:
7701: IF (p_ci_id IS NULL)
7702: THEN
7703:
7752: l_msg_count := FND_MSG_PUB.count_msg;
7753:
7754: IF l_msg_count = 1 and x_msg_data IS NULL THEN
7755: PA_INTERFACE_UTILS_PUB.get_messages
7756: (p_encoded => FND_API.G_TRUE
7757: ,p_msg_index => 1
7758: ,p_msg_count => l_msg_count
7759: ,p_msg_data => l_msg_data
7760: ,p_data => l_data
7763: x_msg_count := l_msg_count;
7764: ELSE
7765: x_msg_count := l_msg_count;
7766: END IF;
7767: x_return_status := FND_API.G_RET_STS_ERROR;
7768:
7769: pa_debug.reset_curr_function;
7770:
7771: RETURN;
7770:
7771: RETURN;
7772:
7773: WHEN Others THEN
7774: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7775: x_msg_count := 1;
7776: x_msg_data := SQLERRM;
7777:
7778: IF c_vers_for_ci%ISOPEN THEN
7910: p_debug_mode => l_debug_mode );
7911:
7912:
7913: x_msg_count := 0;
7914: x_return_status := FND_API.G_RET_STS_SUCCESS;
7915:
7916: -- initialising all the output tables
7917: X_pt_id_tbl := SYSTEM.pa_num_tbl_type();
7918: X_pt_name_tbl := SYSTEM.pa_varchar2_150_tbl_type();
7986: p_privilege => 'PA_FP_BDGT_SUB_COST_PLAN',
7987: p_object_name => 'PA_PROJECTS',
7988: p_object_key => P_project_id);
7989:
7990: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7991: IF l_debug_mode = 'Y' THEN
7992: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost';
7993: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7994: END IF;
8002: x_msg_data => l_msg_data,
8003: p_privilege => 'PA_FP_BDGT_SUB_REV_PLAN',
8004: p_object_name => 'PA_PROJECTS',
8005: p_object_key => P_project_id);
8006: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8007: IF l_debug_mode = 'Y' THEN
8008: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue';
8009: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8010: END IF;
8018: x_msg_data => l_msg_data,
8019: p_privilege => 'PA_FP_APP_BDGT_SUB_COST_PLAN',
8020: p_object_name => 'PA_PROJECTS',
8021: p_object_key => P_project_id);
8022: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8023: IF l_debug_mode = 'Y' THEN
8024: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost Approved';
8025: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8026: END IF;
8034: x_msg_data => l_msg_data,
8035: p_privilege => 'PA_FP_APP_BDGT_SUB_REV_PLAN',
8036: p_object_name => 'PA_PROJECTS',
8037: p_object_key => P_project_id);
8038: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8039: IF l_debug_mode = 'Y' THEN
8040: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue Approved';
8041: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8042: END IF;
8050: x_msg_data => l_msg_data,
8051: p_privilege => 'PA_FP_FCST_SUB_COST_PLAN',
8052: p_object_name => 'PA_PROJECTS',
8053: p_object_key => P_project_id);
8054: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8055: IF l_debug_mode = 'Y' THEN
8056: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost Forecast';
8057: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8058: END IF;
8066: x_msg_data => l_msg_data,
8067: p_privilege => 'PA_FP_FCST_SUB_REV_PLAN',
8068: p_object_name => 'PA_PROJECTS',
8069: p_object_key => P_project_id);
8070: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8071: IF l_debug_mode = 'Y' THEN
8072: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue Forecast';
8073: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8074: END IF;
8133: x_msg_data => l_msg_data,
8134: X_msg_count => l_msg_count);
8135:
8136:
8137: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8138: IF l_debug_mode = 'Y' THEN
8139: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
8140: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8141: END IF;
8185: x_return_status => l_return_status,
8186: x_msg_data => l_msg_data,
8187: X_msg_count => l_msg_count);
8188:
8189: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8190: IF l_debug_mode = 'Y' THEN
8191: pa_debug.g_err_stage:= 'Error in get_impl_details';
8192: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8193: END IF;
8269: x_return_status => l_return_status,
8270: x_msg_data => l_msg_data,
8271: X_msg_count => l_msg_count);
8272:
8273: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8274: IF l_debug_mode = 'Y' THEN
8275: pa_debug.g_err_stage:= 'Error in get_summary_amounts';
8276: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8277: END IF;
8436: CLOSE c_plan_types_attached;
8437: END IF;
8438: IF l_msg_count = 1 and x_msg_data IS NULL THEN
8439: PA_INTERFACE_UTILS_PUB.get_messages
8440: (p_encoded => FND_API.G_TRUE
8441: ,p_msg_index => 1
8442: ,p_msg_count => l_msg_count
8443: ,p_msg_data => l_msg_data
8444: ,p_data => l_data
8447: x_msg_count := l_msg_count;
8448: ELSE
8449: x_msg_count := l_msg_count;
8450: END IF;
8451: x_return_status := FND_API.G_RET_STS_ERROR;
8452:
8453: pa_debug.reset_curr_function;
8454: RETURN;
8455:
8453: pa_debug.reset_curr_function;
8454: RETURN;
8455:
8456: WHEN Others THEN
8457: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8458: x_msg_count := 1;
8459: x_msg_data := SQLERRM;
8460:
8461: IF c_plan_types_attached%ISOPEN THEN
8588: p_debug_mode => P_PA_debug_mode );
8589:
8590:
8591: x_msg_count := 0;
8592: x_return_status := FND_API.G_RET_STS_SUCCESS;
8593:
8594:
8595: -- Check if project id and ci id are null
8596:
8680: x_return_status => l_return_status,
8681: x_msg_data => l_msg_data,
8682: X_msg_count => l_msg_count);
8683:
8684: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8685: IF P_PA_debug_mode = 'Y' THEN
8686: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
8687: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8688: END IF;
8738: ,x_msg_data => l_msg_data
8739: ,X_msg_count => l_msg_count);
8740:
8741:
8742: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8743: IF P_PA_debug_mode = 'Y' THEN
8744: pa_debug.g_err_stage:= 'Error in GET_CURR_WORKING_VERSION_IDS';
8745: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8746: END IF;
8904: x_msg_data => l_msg_data,
8905: x_msg_count => l_msg_count,
8906: x_return_status => l_return_status);
8907:
8908: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8909: IF P_PA_debug_mode = 'Y' THEN
8910: pa_debug.g_err_stage:= 'Error in get_fp_ci_agreement_dtls';
8911: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8912: END IF;
9061: l_msg_count := FND_MSG_PUB.count_msg;
9062:
9063: IF l_msg_count = 1 and x_msg_data IS NULL THEN
9064: PA_INTERFACE_UTILS_PUB.get_messages
9065: (p_encoded => FND_API.G_TRUE
9066: ,p_msg_index => 1
9067: ,p_msg_count => l_msg_count
9068: ,p_msg_data => l_msg_data
9069: ,p_data => l_data
9072: x_msg_count := l_msg_count;
9073: ELSE
9074: x_msg_count := l_msg_count;
9075: END IF;
9076: x_return_status := FND_API.G_RET_STS_ERROR;
9077:
9078: pa_debug.reset_curr_function;
9079: RETURN;
9080:
9078: pa_debug.reset_curr_function;
9079: RETURN;
9080:
9081: WHEN Others THEN
9082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9083: x_msg_count := 1;
9084: x_msg_data := SQLERRM;
9085:
9086: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
9182: BEGIN
9183: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9184: l_debug_mode := NVL(l_debug_mode, 'Y');
9185: x_msg_count := 0;
9186: x_return_status := FND_API.G_RET_STS_SUCCESS;
9187: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
9188: p_debug_mode => l_debug_mode );
9189:
9190: IF p_ci_id IS NULL OR
9221: x_return_status => x_return_status,
9222: x_msg_data => x_msg_data,
9223: X_msg_count => x_msg_count);
9224:
9225: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9226:
9227: IF l_debug_mode = 'Y' THEN
9228: pa_debug.g_err_stage:='Called API Pa_Fp_Control_Items_Utils.get_ci_versions returned error';
9229: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9330: x_msg_data => x_msg_data,
9331: x_msg_count => x_msg_count,
9332: x_return_status => x_return_status);
9333:
9334: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9335:
9336: IF l_debug_mode = 'Y' THEN
9337: pa_debug.g_err_stage:='Called API pa_fp_control_items_utils.get_app_cw_ver_ids_for_proj returned error';
9338: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9502: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9503: l_msg_count := FND_MSG_PUB.count_msg;
9504: IF l_msg_count = 1 THEN
9505: PA_INTERFACE_UTILS_PUB.get_messages
9506: (p_encoded => FND_API.G_TRUE
9507: ,p_msg_index => 1
9508: ,p_msg_count => l_msg_count
9509: ,p_msg_data => l_msg_data
9510: ,p_data => l_data
9515: ELSE
9516:
9517: x_msg_count := l_msg_count;
9518: END IF;
9519: x_return_status := FND_API.G_RET_STS_ERROR;
9520: pa_debug.reset_curr_function;
9521:
9522: WHEN OTHERS THEN
9523:
9520: pa_debug.reset_curr_function;
9521:
9522: WHEN OTHERS THEN
9523:
9524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9525: x_msg_count := 1;
9526: x_msg_data := SQLERRM;
9527: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PAFPCIUB'
9528: ,p_procedure_name => 'get_dtls_for_view_fin_imp_pg');
9579: BEGIN
9580: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9581: l_debug_mode := NVL(l_debug_mode, 'Y');
9582: x_msg_count := 0;
9583: x_return_status := FND_API.G_RET_STS_SUCCESS;
9584: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
9585: p_debug_mode => l_debug_mode );
9586:
9587: IF p_project_id IS NULL THEN
9648:
9649: l_msg_count := FND_MSG_PUB.count_msg;
9650: IF l_msg_count = 1 THEN
9651: PA_INTERFACE_UTILS_PUB.get_messages
9652: (p_encoded => FND_API.G_TRUE
9653: ,p_msg_index => 1
9654: ,p_msg_count => l_msg_count
9655: ,p_msg_data => l_msg_data
9656: ,p_data => l_data
9661: ELSE
9662:
9663: x_msg_count := l_msg_count;
9664: END IF;
9665: x_return_status := FND_API.G_RET_STS_ERROR;
9666: pa_debug.reset_curr_function;
9667:
9668: WHEN OTHERS THEN
9669:
9668: WHEN OTHERS THEN
9669:
9670: CLOSE c_app_cw_ver_csr; -- Added for bug#6405905 by vvjoshi
9671:
9672: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9673: x_msg_count := 1;
9674: x_msg_data := SQLERRM;
9675: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PAFPCIUB'
9676: ,p_procedure_name => 'get_app_cw_ver_ids_for_proj');
9808: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9809: l_msg_count := FND_MSG_PUB.count_msg;
9810: IF l_msg_count = 1 THEN
9811: PA_INTERFACE_UTILS_PUB.get_messages
9812: (p_encoded => FND_API.G_TRUE
9813: ,p_msg_index => 1
9814: ,p_msg_count => l_msg_count
9815: ,p_msg_data => l_msg_data
9816: ,p_data => l_data
9872:
9873: BEGIN
9874:
9875: x_msg_count := 0;
9876: x_return_status := FND_API.G_RET_STS_SUCCESS;
9877:
9878: -- Set curr function
9879: pa_debug.set_curr_function(
9880: p_function =>'PAFPCIUB.get_txn_curr_code_of_ci_ver'
9936: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9937: l_msg_count := FND_MSG_PUB.count_msg;
9938: IF l_msg_count = 1 THEN
9939: PA_INTERFACE_UTILS_PUB.get_messages
9940: (p_encoded => FND_API.G_TRUE
9941: ,p_msg_index => 1
9942: ,p_msg_count => l_msg_count
9943: ,p_msg_data => l_msg_data
9944: ,p_data => l_data
9949: ELSE
9950:
9951: x_msg_count := l_msg_count;
9952: END IF;
9953: x_return_status := FND_API.G_RET_STS_ERROR;
9954: pa_debug.reset_curr_function;
9955: WHEN Others THEN
9956:
9957: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9953: x_return_status := FND_API.G_RET_STS_ERROR;
9954: pa_debug.reset_curr_function;
9955: WHEN Others THEN
9956:
9957: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9958: x_msg_count := 1;
9959: x_msg_data := SQLERRM;
9960:
9961: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
10052: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10053: l_msg_count := FND_MSG_PUB.count_msg;
10054: IF l_msg_count = 1 THEN
10055: PA_INTERFACE_UTILS_PUB.get_messages
10056: (p_encoded => FND_API.G_TRUE
10057: ,p_msg_index => 1
10058: ,p_msg_count => l_msg_count
10059: ,p_msg_data => l_msg_data
10060: ,p_data => l_data