36: -- OUT :
37: ----------------------------------------------------------------------------------
38: PROCEDURE Get_GLInformation(
39: p_api_version IN NUMBER,
40: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
41: p_commit IN VARCHAR2 := FND_API.G_FALSE,
42: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
43: x_return_status OUT NOCOPY VARCHAR2,
44: x_msg_count OUT NOCOPY NUMBER,
37: ----------------------------------------------------------------------------------
38: PROCEDURE Get_GLInformation(
39: p_api_version IN NUMBER,
40: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
41: p_commit IN VARCHAR2 := FND_API.G_FALSE,
42: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
43: x_return_status OUT NOCOPY VARCHAR2,
44: x_msg_count OUT NOCOPY NUMBER,
45: x_msg_data OUT NOCOPY VARCHAR2,
38: PROCEDURE Get_GLInformation(
39: p_api_version IN NUMBER,
40: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
41: p_commit IN VARCHAR2 := FND_API.G_FALSE,
42: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
43: x_return_status OUT NOCOPY VARCHAR2,
44: x_msg_count OUT NOCOPY NUMBER,
45: x_msg_data OUT NOCOPY VARCHAR2,
46: p_event_date IN DATE,
76: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin' ,'Get_GLInformation <<');
77: END IF;
78: END IF;
79: -- Standard call to check for call compatibility
80: IF NOT FND_API.Compatible_API_Call (
81: l_api_version,
82: p_api_version,
83: l_api_name,
84: G_PKG_NAME ) THEN
81: l_api_version,
82: p_api_version,
83: l_api_name,
84: G_PKG_NAME ) THEN
85: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
86: END IF;
87:
88: -- Initialize message list
89: l_stmt_num := 10;
87:
88: -- Initialize message list
89: l_stmt_num := 10;
90:
91: IF FND_API.to_boolean( p_init_msg_list ) THEN
92: FND_MSG_PUB.initialize;
93: END IF;
94:
95: -- Initialize API return status to success
92: FND_MSG_PUB.initialize;
93: END IF;
94:
95: -- Initialize API return status to success
96: x_return_status := FND_API.G_RET_STS_SUCCESS;
97:
98: -- Find if GL is installed
99: l_stmt_num := 20;
100: l_gl_installed := FND_INSTALLATION.GET_APP_INFO ('SQLGL',
213: FND_MSG_PUB.count_and_get
214: ( p_count => x_msg_count
215: , p_data => x_msg_data
216: );
217: x_return_status := FND_API.G_RET_STS_ERROR;
218:
219: WHEN NO_PO_PERIOD THEN
220: IF G_DEBUG = 'Y' THEN
221: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
239: FND_MSG_PUB.count_and_get
240: ( p_count => x_msg_count
241: , p_data => x_msg_data
242: );
243: x_return_status := FND_API.G_RET_STS_ERROR;
244:
245: WHEN OTHERS THEN
246: IF G_DEBUG = 'Y' THEN
247: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
264: FND_MSG_PUB.count_and_get
265: ( p_count => x_msg_count
266: , p_data => x_msg_data
267: );
268: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
269:
270: END Get_GLInformation;
271:
272:
285: ----------------------------------------------------------------------------------
286:
287: PROCEDURE Insert_SubLedgerLines(
288: p_api_version IN NUMBER,
289: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
290: p_commit IN VARCHAR2 := FND_API.G_FALSE,
291: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
292: x_return_status OUT NOCOPY VARCHAR2,
293: x_msg_count OUT NOCOPY NUMBER,
286:
287: PROCEDURE Insert_SubLedgerLines(
288: p_api_version IN NUMBER,
289: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
290: p_commit IN VARCHAR2 := FND_API.G_FALSE,
291: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
292: x_return_status OUT NOCOPY VARCHAR2,
293: x_msg_count OUT NOCOPY NUMBER,
294: x_msg_data OUT NOCOPY VARCHAR2,
287: PROCEDURE Insert_SubLedgerLines(
288: p_api_version IN NUMBER,
289: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
290: p_commit IN VARCHAR2 := FND_API.G_FALSE,
291: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
292: x_return_status OUT NOCOPY VARCHAR2,
293: x_msg_count OUT NOCOPY NUMBER,
294: x_msg_data OUT NOCOPY VARCHAR2,
295: p_rcv_ae_line IN RCV_AE_REC_TYPE,
301: l_stmt_num NUMBER;
302: l_api_message VARCHAR2(1000);
303:
304: l_api_name CONSTANT VARCHAR2(30) := 'Insert_SubLedgerLines';
305: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
306: l_msg_count NUMBER := 0;
307: l_msg_data VARCHAR2(8000) := '';
308:
309: l_rcv_sub_ledger_id NUMBER;
324: BEGIN
325: -- Initialize message list
326: l_stmt_num := 10;
327:
328: IF FND_API.to_boolean( p_init_msg_list ) THEN
329: FND_MSG_PUB.initialize;
330: END IF;
331:
332: -- Initialize API return status to success
329: FND_MSG_PUB.initialize;
330: END IF;
331:
332: -- Initialize API return status to success
333: x_return_status := FND_API.G_RET_STS_SUCCESS;
334:
335: -- USER_CURRENCY_CONV_TYPE
336: BEGIN
337: l_stmt_num := 20;
720: SQLERRM
721: );
722:
723: END IF;
724: x_return_status := FND_API.G_RET_STS_ERROR;
725: FND_MSG_PUB.Count_And_Get
726: ( p_count => x_msg_count,
727: p_data => x_msg_data
728: );
744: SQLERRM
745: );
746:
747: END IF;
748: x_return_status := FND_API.G_RET_STS_ERROR;
749: FND_MSG_PUB.Count_And_Get
750: ( p_count => x_msg_count,
751: p_data => x_msg_data
752: );
776: ----------------------------------------------------------------------------------
777:
778: PROCEDURE Get_AccountingLineType(
779: p_api_version IN NUMBER,
780: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
781: p_commit IN VARCHAR2 := FND_API.G_FALSE,
782: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
783: x_return_status OUT NOCOPY VARCHAR2,
784: x_msg_count OUT NOCOPY NUMBER,
777:
778: PROCEDURE Get_AccountingLineType(
779: p_api_version IN NUMBER,
780: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
781: p_commit IN VARCHAR2 := FND_API.G_FALSE,
782: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
783: x_return_status OUT NOCOPY VARCHAR2,
784: x_msg_count OUT NOCOPY NUMBER,
785: x_msg_data OUT NOCOPY VARCHAR2,
778: PROCEDURE Get_AccountingLineType(
779: p_api_version IN NUMBER,
780: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
781: p_commit IN VARCHAR2 := FND_API.G_FALSE,
782: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
783: x_return_status OUT NOCOPY VARCHAR2,
784: x_msg_count OUT NOCOPY NUMBER,
785: x_msg_data OUT NOCOPY VARCHAR2,
786: p_event_type_id IN NUMBER,
803:
804: BEGIN
805: -- Initialize message list
806: l_stmt_num := 10;
807: IF FND_API.to_boolean( p_init_msg_list ) THEN
808: FND_MSG_PUB.initialize;
809: END IF;
810:
811: -- Initialize API return status to success
808: FND_MSG_PUB.initialize;
809: END IF;
810:
811: -- Initialize API return status to success
812: x_return_status := FND_API.G_RET_STS_SUCCESS;
813:
814:
815: -- Initialize
816: x_debit_line_type := '';
992: SQLERRM
993: );
994:
995: END IF;
996: x_return_status := FND_API.G_RET_STS_ERROR;
997: FND_MSG_PUB.Count_And_Get
998: ( p_count => x_msg_count,
999: p_data => x_msg_data
1000: );
1016: SQLERRM
1017: );
1018:
1019: END IF;
1020: x_return_status := FND_API.G_RET_STS_ERROR;
1021: FND_MSG_PUB.Count_And_Get
1022: ( p_count => x_msg_count,
1023: p_data => x_msg_data
1024: );
1047: ----------------------------------------------------------------------------------
1048:
1049: PROCEDURE Create_AccountingEntry(
1050: p_api_version IN NUMBER,
1051: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1052: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1053: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1054: x_return_status OUT NOCOPY VARCHAR2,
1055: x_msg_count OUT NOCOPY NUMBER,
1048:
1049: PROCEDURE Create_AccountingEntry(
1050: p_api_version IN NUMBER,
1051: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1052: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1053: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1054: x_return_status OUT NOCOPY VARCHAR2,
1055: x_msg_count OUT NOCOPY NUMBER,
1056: x_msg_data OUT NOCOPY VARCHAR2,
1049: PROCEDURE Create_AccountingEntry(
1050: p_api_version IN NUMBER,
1051: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1052: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1053: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1054: x_return_status OUT NOCOPY VARCHAR2,
1055: x_msg_count OUT NOCOPY NUMBER,
1056: x_msg_data OUT NOCOPY VARCHAR2,
1057: p_accounting_event_id IN NUMBER,
1062: l_api_name CONSTANT VARCHAR2(30) := 'Create_AccountingEntry';
1063: l_api_version CONSTANT NUMBER := 1.0;
1064:
1065: /* Return */
1066: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1067: l_msg_count NUMBER := 0;
1068: l_msg_data VARCHAR2(8000) := '';
1069: l_stmt_num NUMBER := 0;
1070: l_api_message VARCHAR2(1000);
1140: END IF;
1141:
1142: -- Standard call to check for call compatibility
1143: l_stmt_num := 10;
1144: IF NOT FND_API.Compatible_API_Call (
1145: l_api_version,
1146: p_api_version,
1147: l_api_name,
1148: G_PKG_NAME ) THEN
1145: l_api_version,
1146: p_api_version,
1147: l_api_name,
1148: G_PKG_NAME ) THEN
1149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1150: END IF;
1151:
1152: -- Initialize message list if p_init_msg_list is set to TRUE
1153: l_stmt_num := 20;
1150: END IF;
1151:
1152: -- Initialize message list if p_init_msg_list is set to TRUE
1153: l_stmt_num := 20;
1154: IF FND_API.to_Boolean(p_init_msg_list) THEN
1155: FND_MSG_PUB.initialize;
1156: END IF;
1157:
1158: -- Initialize API return status to success
1156: END IF;
1157:
1158: -- Initialize API return status to success
1159:
1160: x_return_status := FND_API.G_RET_STS_SUCCESS;
1161:
1162:
1163: -- Get Information from RCV_ACCOUNTING_EVENTS and populate l_rcv_ae_line
1164: BEGIN
1343: x_gl_information => l_glinfo
1344: );
1345:
1346:
1347: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1348: l_api_message := 'Error in getting GL Information';
1349: IF G_DEBUG = 'Y' THEN
1350: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1351: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||
1351: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||
1352: '.'||l_api_name||l_stmt_num ,'Create_AccountingEntry: '||l_stmt_num||' : '||l_api_message);
1353: END IF;
1354: END IF;
1355: RAISE FND_API.g_exc_unexpected_error;
1356: END IF;
1357:
1358:
1359: -- Populate currency information into currency structure
1722: L_RCV_AE_LINE.LDD_COST_ABS_ACCOUNTED := L_RCV_AE_LINE.ACCOUNTED_CR - L_RCV_AE_LINE.ACCOUNTED_DR;
1723:
1724: END IF;
1725:
1726: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1727: l_api_message := 'Error in getting Accounting Line Type';
1728: IF G_DEBUG = 'Y' THEN
1729: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1730: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||
1730: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||
1731: '.'||l_api_name||l_stmt_num ,'Create_AccountingEntry: '||l_stmt_num||' : '||l_api_message);
1732: END IF;
1733: END IF;
1734: RAISE FND_API.g_exc_unexpected_error;
1735: END IF;
1736:
1737: -- Insert Accounting Lines in the Sub Ledger
1738: l_stmt_num := 240;
1744: p_rcv_ae_line => l_rcv_ae_line,
1745: p_glinfo => l_glinfo
1746: );
1747:
1748: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1749: l_api_message := 'Error inserting into RCV_RECEIVING_SUB_LEDGER';
1750: IF G_DEBUG = 'Y' THEN
1751: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1752: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||
1752: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||
1753: '.'||l_api_name||l_stmt_num ,'Create_AccountingEntry: '||l_stmt_num||' : '||l_api_message);
1754: END IF;
1755: END IF;
1756: RAISE FND_API.g_exc_unexpected_error;
1757: END IF;
1758:
1759: -- Raise the SLA event
1760: l_trx_info.TRANSACTION_ID := L_RCV_AE_LINE.RCV_TRANSACTION_ID;
1796: l_stmt_num := 260;
1797:
1798: CST_XLA_PVT.Create_RCVXLAEvent(
1799: p_api_version => 1.0,
1800: p_init_msg_list => FND_API.G_FALSE,
1801: p_commit => FND_API.G_FALSE,
1802: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1803: x_return_status => l_return_status,
1804: x_msg_count => x_msg_count,
1797:
1798: CST_XLA_PVT.Create_RCVXLAEvent(
1799: p_api_version => 1.0,
1800: p_init_msg_list => FND_API.G_FALSE,
1801: p_commit => FND_API.G_FALSE,
1802: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1803: x_return_status => l_return_status,
1804: x_msg_count => x_msg_count,
1805: x_msg_data => x_msg_data,
1798: CST_XLA_PVT.Create_RCVXLAEvent(
1799: p_api_version => 1.0,
1800: p_init_msg_list => FND_API.G_FALSE,
1801: p_commit => FND_API.G_FALSE,
1802: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1803: x_return_status => l_return_status,
1804: x_msg_count => x_msg_count,
1805: x_msg_data => x_msg_data,
1806: p_trx_info => l_trx_info);
1804: x_msg_count => x_msg_count,
1805: x_msg_data => x_msg_data,
1806: p_trx_info => l_trx_info);
1807:
1808: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1809: l_api_message := 'Error raising SLA Event';
1810: IF G_DEBUG = 'Y' THEN
1811: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1812: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||
1812: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||
1813: '.'||l_api_name||l_stmt_num ,'Create_AccountingEntry: '||l_stmt_num||' : '||l_api_message);
1814: END IF;
1815: END IF;
1816: RAISE FND_API.g_exc_unexpected_error;
1817: END IF;
1818:
1819:
1820: IF G_DEBUG = 'Y' THEN
1824: END IF;
1825: END IF;
1826:
1827: EXCEPTION
1828: WHEN FND_API.g_exc_error THEN
1829: ROLLBACK TO RCV_CreateAccounting_PVT;
1830: x_return_status := FND_API.g_ret_sts_error;
1831: FND_MSG_PUB.count_and_get
1832: ( p_count => x_msg_count
1826:
1827: EXCEPTION
1828: WHEN FND_API.g_exc_error THEN
1829: ROLLBACK TO RCV_CreateAccounting_PVT;
1830: x_return_status := FND_API.g_ret_sts_error;
1831: FND_MSG_PUB.count_and_get
1832: ( p_count => x_msg_count
1833: , p_data => x_msg_data
1834: );
1831: FND_MSG_PUB.count_and_get
1832: ( p_count => x_msg_count
1833: , p_data => x_msg_data
1834: );
1835: WHEN FND_API.g_exc_unexpected_error THEN
1836: ROLLBACK TO RCV_CreateAccounting_PVT;
1837: x_return_status := FND_API.g_ret_sts_unexp_error ;
1838: FND_MSG_PUB.count_and_get
1839: ( p_count => x_msg_count
1833: , p_data => x_msg_data
1834: );
1835: WHEN FND_API.g_exc_unexpected_error THEN
1836: ROLLBACK TO RCV_CreateAccounting_PVT;
1837: x_return_status := FND_API.g_ret_sts_unexp_error ;
1838: FND_MSG_PUB.count_and_get
1839: ( p_count => x_msg_count
1840: , p_data => x_msg_data
1841: );
1858: SQLERRM
1859: );
1860:
1861: END IF;
1862: x_return_status := FND_API.G_RET_STS_ERROR;
1863: FND_MSG_PUB.count_and_get
1864: ( p_count => x_msg_count
1865: , p_data => x_msg_data
1866: );
1882: SQLERRM
1883: );
1884:
1885: END IF;
1886: x_return_status := FND_API.G_RET_STS_ERROR;
1887: FND_MSG_PUB.count_and_get
1888: ( p_count => x_msg_count
1889: , p_data => x_msg_data
1890: );
1907: SQLERRM
1908: );
1909:
1910: END IF;
1911: x_return_status := FND_API.G_RET_STS_ERROR;
1912: FND_MSG_PUB.count_and_get
1913: ( p_count => x_msg_count
1914: , p_data => x_msg_data
1915: );
1932: SQLERRM
1933: );
1934:
1935: END IF;
1936: x_return_status := FND_API.G_RET_STS_ERROR;
1937: FND_MSG_PUB.count_and_get
1938: ( p_count => x_msg_count
1939: , p_data => x_msg_data
1940: );