[Home] [Help]
370: BEGIN
371:
372: SAVEPOINT EXECUTE_NOTIF;
373:
374: -- Standard call to check for call compatibility.
375: IF NOT FND_API.COMPATIBLE_API_CALL (L_API_VERSION, P_API_VERSION, L_API_NAME, G_PKG_NAME)
376: THEN
377: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_ERROR, 'dpp.plsql.' || L_FULL_NAME, L_API_NAME || ' : Not a compatible API call.');
378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
562: BEGIN
563:
564: SAVEPOINT EXEC_PROCESS;
565:
566: -- Standard call to check for call compatibility.
567: IF NOT FND_API.COMPATIBLE_API_CALL (L_API_VERSION, P_API_VERSION, L_API_NAME, G_PKG_NAME)
568: THEN
569: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_ERROR, 'dpp.plsql.' || L_FULL_NAME, L_API_NAME || ' : Not a compatible API call.');
570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
998: l_supp_trade_profile_id NUMBER;
999: l_exe_process_cnt NUMBER := 0;
1000:
1001: BEGIN
1002: -- Standard Start of API savepoint
1003: SAVEPOINT POPULATE_EXECUTIONPROCESS;
1004:
1005: -- Standard call to check for call compatibility.
1006: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1001: BEGIN
1002: -- Standard Start of API savepoint
1003: SAVEPOINT POPULATE_EXECUTIONPROCESS;
1004:
1005: -- Standard call to check for call compatibility.
1006: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1007: p_api_version_number,
1008: l_api_name,
1009: G_PKG_NAME)
1036: ROLLBACK TO POPULATE_EXECUTIONPROCESS;
1037: x_return_status := FND_API.G_RET_STS_ERROR;
1038: FND_FILE.PUT_LINE(FND_FILE.LOG,G_NO_SETUP_MSG);
1039: FND_FILE.NEW_LINE(FND_FILE.LOG);
1040: -- Standard call to get message count and if count=1, get the message
1041: FND_MSG_PUB.Count_And_Get (
1042: p_encoded => FND_API.G_FALSE,
1043: p_count => x_msg_count,
1044: p_data => x_msg_data
1047: ROLLBACK TO POPULATE_EXECUTIONPROCESS;
1048: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1049: FND_FILE.PUT_LINE(FND_FILE.LOG,'Unexpected error occured: ' || SQLERRM);
1050: FND_FILE.NEW_LINE(FND_FILE.LOG);
1051: -- Standard call to get message count and if count=1, get the message
1052: FND_MSG_PUB.Count_And_Get (
1053: p_encoded => FND_API.G_FALSE,
1054: p_count => x_msg_count,
1055: p_data => x_msg_data
1061: FND_FILE.NEW_LINE(FND_FILE.LOG);
1062: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1063: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1064: END IF;
1065: -- Standard call to get message count and if count=1, get the message
1066: FND_MSG_PUB.Count_And_Get (
1067: p_encoded => FND_API.G_FALSE,
1068: p_count => x_msg_count,
1069: p_data => x_msg_data
1183: ROLLBACK TO InsertExecProcesses;
1184: x_return_status := FND_API.G_RET_STS_ERROR;
1185: FND_FILE.PUT_LINE(FND_FILE.LOG,G_NO_SETUP_MSG);
1186: FND_FILE.NEW_LINE(FND_FILE.LOG);
1187: -- Standard call to get message count and if count=1, get the message
1188: FND_MSG_PUB.Count_And_Get (
1189: p_encoded => FND_API.G_FALSE,
1190: p_count => x_msg_count,
1191: p_data => x_msg_data
1194: ROLLBACK TO InsertExecProcesses;
1195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1196: FND_FILE.PUT_LINE(FND_FILE.LOG,'Unexpected error occured: ' || SQLERRM);
1197: FND_FILE.NEW_LINE(FND_FILE.LOG);
1198: -- Standard call to get message count and if count=1, get the message
1199: FND_MSG_PUB.Count_And_Get (
1200: p_encoded => FND_API.G_FALSE,
1201: p_count => x_msg_count,
1202: p_data => x_msg_data
1208: FND_FILE.NEW_LINE(FND_FILE.LOG);
1209: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1210: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1211: END IF;
1212: -- Standard call to get message count and if count=1, get the message
1213: FND_MSG_PUB.Count_And_Get (
1214: p_encoded => FND_API.G_FALSE,
1215: p_count => x_msg_count,
1216: p_data => x_msg_data
1518: WHEN FND_API.G_EXC_ERROR THEN
1519: ROLLBACK TO Change_Status;
1520: retcode := 2;
1521: errbuf := 'Error';
1522: -- Standard call to get message count and if count=1, get the message
1523: FND_MSG_PUB.Count_And_Get (
1524: p_encoded => FND_API.G_FALSE,
1525: p_count => l_msg_count,
1526: p_data => l_msg_data
1536: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1537: ROLLBACK TO Change_Status;
1538: retcode := 2;
1539: errbuf := 'Error';
1540: -- Standard call to get message count and if count=1, get the message
1541: FND_MSG_PUB.Count_And_Get (
1542: p_encoded => FND_API.G_FALSE,
1543: p_count => l_msg_count,
1544: p_data => l_msg_data
1560: fnd_message.set_token('ERRNO', sqlcode);
1561: fnd_message.set_token('REASON', sqlerrm);
1562: FND_MSG_PUB.add;
1563:
1564: -- Standard call to get message count and if count=1, get the message
1565: FND_MSG_PUB.Count_And_Get (
1566: p_encoded => FND_API.G_FALSE,
1567: p_count => l_msg_count,
1568: p_data => l_msg_data
1636: FROM dpp_transaction_headers_all
1637: WHERE transaction_header_id = p_txn_hdr_id;
1638:
1639: BEGIN
1640: -- Standard Start of API savepoint
1641: SAVEPOINT APPROVE_TRANSACTION;
1642:
1643: -- Standard call to check for call compatibility.
1644: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1639: BEGIN
1640: -- Standard Start of API savepoint
1641: SAVEPOINT APPROVE_TRANSACTION;
1642:
1643: -- Standard call to check for call compatibility.
1644: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1645: p_api_version_number,
1646: l_api_name,
1647: G_PKG_NAME)
1708: ROLLBACK TO APPROVE_TRANSACTION;
1709: x_return_status := FND_API.G_RET_STS_ERROR;
1710: --FND_FILE.PUT_LINE(FND_FILE.LOG,'Supplier Trade Profile or Process Setup not available');
1711: --FND_FILE.NEW_LINE(FND_FILE.LOG);
1712: -- Standard call to get message count and if count=1, get the message
1713: FND_MSG_PUB.Count_And_Get (
1714: p_encoded => FND_API.G_FALSE,
1715: p_count => x_msg_count,
1716: p_data => x_msg_data
1719: ROLLBACK TO APPROVE_TRANSACTION;
1720: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1721: FND_FILE.PUT_LINE(FND_FILE.LOG,'Unexpected error occured: ' || SQLERRM);
1722: FND_FILE.NEW_LINE(FND_FILE.LOG);
1723: -- Standard call to get message count and if count=1, get the message
1724: FND_MSG_PUB.Count_And_Get (
1725: p_encoded => FND_API.G_FALSE,
1726: p_count => x_msg_count,
1727: p_data => x_msg_data
1733: FND_FILE.NEW_LINE(FND_FILE.LOG);
1734: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1735: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1736: END IF;
1737: -- Standard call to get message count and if count=1, get the message
1738: FND_MSG_PUB.Count_And_Get (
1739: p_encoded => FND_API.G_FALSE,
1740: p_count => x_msg_count,
1741: p_data => x_msg_data
1781: l_msg_data VARCHAR2(4000);
1782: l_msg_count NUMBER;
1783:
1784: BEGIN
1785: -- Standard Start of API savepoint
1786: SAVEPOINT UPDATE_STATUS;
1787:
1788: -- Standard call to check for call compatibility.
1789: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1784: BEGIN
1785: -- Standard Start of API savepoint
1786: SAVEPOINT UPDATE_STATUS;
1787:
1788: -- Standard call to check for call compatibility.
1789: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1790: p_api_version_number,
1791: l_api_name,
1792: G_PKG_NAME)
1836: ROLLBACK TO UPDATE_STATUS;
1837: x_return_status := FND_API.G_RET_STS_ERROR;
1838: --FND_FILE.PUT_LINE(FND_FILE.LOG,'Supplier Trade Profile or Process Setup not available');
1839: --FND_FILE.NEW_LINE(FND_FILE.LOG);
1840: -- Standard call to get message count and if count=1, get the message
1841: FND_MSG_PUB.Count_And_Get (
1842: p_encoded => FND_API.G_FALSE,
1843: p_count => x_msg_count,
1844: p_data => x_msg_data
1847: ROLLBACK TO UPDATE_STATUS;
1848: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1849: FND_FILE.PUT_LINE(FND_FILE.LOG,'Unexpected error occured: ' || SQLERRM);
1850: FND_FILE.NEW_LINE(FND_FILE.LOG);
1851: -- Standard call to get message count and if count=1, get the message
1852: FND_MSG_PUB.Count_And_Get (
1853: p_encoded => FND_API.G_FALSE,
1854: p_count => x_msg_count,
1855: p_data => x_msg_data
1861: FND_FILE.NEW_LINE(FND_FILE.LOG);
1862: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1863: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1864: END IF;
1865: -- Standard call to get message count and if count=1, get the message
1866: FND_MSG_PUB.Count_And_Get (
1867: p_encoded => FND_API.G_FALSE,
1868: p_count => x_msg_count,
1869: p_data => x_msg_data
1920: FROM dpp_transaction_headers_all dtha
1921: WHERE dtha.transaction_header_id = p_transaction_header_id;
1922:
1923: BEGIN
1924: -- Standard Start of API savepoint
1925: SAVEPOINT UPDATE_HEADERLOG;
1926:
1927: -- Standard call to check for call compatibility.
1928: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1923: BEGIN
1924: -- Standard Start of API savepoint
1925: SAVEPOINT UPDATE_HEADERLOG;
1926:
1927: -- Standard call to check for call compatibility.
1928: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1929: p_api_version_number,
1930: l_api_name,
1931: G_PKG_NAME)