[Home] [Help]
1: PACKAGE BODY PO_SOURCING_PVT AS
2: /* $Header: POXVCPAB.pls 120.11.12020000.2 2013/02/10 23:54:07 vegajula ship $*/
3:
4:
5: ---
25: ---
26:
27: --------------------------------------------------------------------------------
28:
29: g_pkg_name CONSTANT VARCHAR2(30) := 'PO_SOURCING_PVT';
30: g_log_head CONSTANT VARCHAR2(30) := 'po.plsql.PO_SOURCING_PVT.';
31: g_debug_stmt CONSTANT BOOLEAN := PO_DEBUG.is_debug_stmt_on;
32: g_debug_unexp CONSTANT BOOLEAN := PO_DEBUG.is_debug_unexp_on;
33:
26:
27: --------------------------------------------------------------------------------
28:
29: g_pkg_name CONSTANT VARCHAR2(30) := 'PO_SOURCING_PVT';
30: g_log_head CONSTANT VARCHAR2(30) := 'po.plsql.PO_SOURCING_PVT.';
31: g_debug_stmt CONSTANT BOOLEAN := PO_DEBUG.is_debug_stmt_on;
32: g_debug_unexp CONSTANT BOOLEAN := PO_DEBUG.is_debug_unexp_on;
33:
34:
294: p_message => SQLERRM);
295: END IF;
296:
297: FND_MSG_PUB.add_exc_msg(
298: p_pkg_name => 'PO_SOURCING_PVT',
299: p_procedure_name => l_api_name,
300: p_error_text => NULL);
301: END get_system_defaults;
302:
578: p_token => g_progress,
579: p_message => SQLERRM);
580: END IF;
581: FND_MSG_PUB.add_exc_msg(
582: p_pkg_name => 'PO_SOURCING_PVT',
583: p_procedure_name => l_api_name,
584: p_error_text => NULL);
585:
586: END DEFAULT_CPA;
791: p_token => g_progress,
792: p_message => SQLERRM);
793: END IF;
794: FND_MSG_PUB.add_exc_msg(
795: p_pkg_name => 'PO_SOURCING_PVT',
796: p_procedure_name => l_api_name,
797: p_error_text => NULL);
798: END VALIDATE_CPA;
799:
1597: IF g_debug_stmt THEN
1598: po_debug.debug_stmt
1599: (p_log_head => g_log_head || l_api_name,
1600: p_token => g_progress,
1601: p_message => 'PO_SOURCING_PVT.INSERT_CPA: Inside l_uda_template_exception'
1602: );
1603: END IF;
1604:
1605: fnd_message.set_name ('PO', 'PO_UDA_TEMPLATE_ID_NULL');
1614: p_token => g_progress,
1615: p_message => SQLERRM);
1616: END IF;
1617: FND_MSG_PUB.add_exc_msg(
1618: p_pkg_name => 'PO_SOURCING_PVT',
1619: p_procedure_name => l_api_name,
1620: p_error_text => NULL);
1621: END INSERT_CPA;
1622:
1779: g_progress := '501';
1780: IF g_debug_stmt THEN
1781: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1782: p_token => g_progress,
1783: p_message => 'Before calling po_sourcing_pvt.default_cpa');
1784: END IF;
1785: -- Default the required fields in the record
1786: DEFAULT_CPA(
1787: x_return_status => l_return_status
1790: g_progress := '502';
1791: IF g_debug_stmt THEN
1792: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1793: p_token => g_progress,
1794: p_message => 'After calling po_sourcing_pvt.default_cpa');
1795: END IF;
1796:
1797: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1798: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1806: g_progress := '503';
1807: IF g_debug_stmt THEN
1808: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1809: p_token => g_progress,
1810: p_message => 'Before calling po_sourcing_pvt.validate_cpa');
1811: END IF;
1812:
1813: VALIDATE_CPA(
1814: x_return_status => l_return_status
1817: g_progress := '504';
1818: IF g_debug_stmt THEN
1819: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1820: p_token => g_progress,
1821: p_message => 'After calling po_sourcing_pvt.validate_cpa');
1822: END IF;
1823:
1824: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1825: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1833: g_progress := '505';
1834: IF g_debug_stmt THEN
1835: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1836: p_token => g_progress,
1837: p_message => 'Before calling po_sourcing_pvt.insert_cpa');
1838: END IF;
1839:
1840: INSERT_CPA (
1841: p_auction_header_id => p_auction_header_id,
1851: g_progress := '506';
1852: IF g_debug_stmt THEN
1853: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1854: p_token => g_progress,
1855: p_message => 'After calling po_sourcing_pvt.insert_cpa');
1856: END IF;
1857:
1858: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1859: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1925: p_message => SQLERRM);
1926: END IF;
1927:
1928: FND_MSG_PUB.add_exc_msg(
1929: p_pkg_name => 'PO_SOURCING_PVT',
1930: p_procedure_name => l_api_name,
1931: p_error_text => NULL);
1932: END CREATE_CPA;
1933:
1986: p_token => g_progress,
1987: p_message => SQLERRM);
1988: END IF;
1989: FND_MSG_PUB.add_exc_msg(
1990: p_pkg_name => 'PO_SOURCING_PVT',
1991: p_procedure_name => l_api_name,
1992: p_error_text => NULL);
1993: END DELETE_INTERFACE_HEADER;
1994:
1992: p_error_text => NULL);
1993: END DELETE_INTERFACE_HEADER;
1994:
1995:
1996: END PO_SOURCING_PVT;