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);
1139: END IF;
1140:
1141: -- Standard call to check for call compatibility
1142: l_stmt_num := 10;
1143: IF NOT FND_API.Compatible_API_Call (
1144: l_api_version,
1145: p_api_version,
1146: l_api_name,
1147: G_PKG_NAME ) THEN
1144: l_api_version,
1145: p_api_version,
1146: l_api_name,
1147: G_PKG_NAME ) THEN
1148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1149: END IF;
1150:
1151: -- Initialize message list if p_init_msg_list is set to TRUE
1152: l_stmt_num := 20;
1149: END IF;
1150:
1151: -- Initialize message list if p_init_msg_list is set to TRUE
1152: l_stmt_num := 20;
1153: IF FND_API.to_Boolean(p_init_msg_list) THEN
1154: FND_MSG_PUB.initialize;
1155: END IF;
1156:
1157: -- Initialize API return status to success
1155: END IF;
1156:
1157: -- Initialize API return status to success
1158:
1159: x_return_status := FND_API.G_RET_STS_SUCCESS;
1160:
1161:
1162: -- Get Information from RCV_ACCOUNTING_EVENTS and populate l_rcv_ae_line
1163: BEGIN
1340: x_gl_information => l_glinfo
1341: );
1342:
1343:
1344: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1345: l_api_message := 'Error in getting GL Information';
1346: IF G_DEBUG = 'Y' THEN
1347: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1348: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||
1348: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||
1349: '.'||l_api_name||l_stmt_num ,'Create_AccountingEntry: '||l_stmt_num||' : '||l_api_message);
1350: END IF;
1351: END IF;
1352: RAISE FND_API.g_exc_unexpected_error;
1353: END IF;
1354:
1355:
1356: -- Populate currency information into currency structure
1719: L_RCV_AE_LINE.LDD_COST_ABS_ACCOUNTED := L_RCV_AE_LINE.ACCOUNTED_CR - L_RCV_AE_LINE.ACCOUNTED_DR;
1720:
1721: END IF;
1722:
1723: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1724: l_api_message := 'Error in getting Accounting Line Type';
1725: IF G_DEBUG = 'Y' THEN
1726: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1727: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||
1727: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||
1728: '.'||l_api_name||l_stmt_num ,'Create_AccountingEntry: '||l_stmt_num||' : '||l_api_message);
1729: END IF;
1730: END IF;
1731: RAISE FND_API.g_exc_unexpected_error;
1732: END IF;
1733:
1734: -- Insert Accounting Lines in the Sub Ledger
1735: l_stmt_num := 240;
1741: p_rcv_ae_line => l_rcv_ae_line,
1742: p_glinfo => l_glinfo
1743: );
1744:
1745: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1746: l_api_message := 'Error inserting into RCV_RECEIVING_SUB_LEDGER';
1747: IF G_DEBUG = 'Y' THEN
1748: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1749: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||
1749: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||
1750: '.'||l_api_name||l_stmt_num ,'Create_AccountingEntry: '||l_stmt_num||' : '||l_api_message);
1751: END IF;
1752: END IF;
1753: RAISE FND_API.g_exc_unexpected_error;
1754: END IF;
1755:
1756: -- Raise the SLA event
1757: l_trx_info.TRANSACTION_ID := L_RCV_AE_LINE.RCV_TRANSACTION_ID;
1793: l_stmt_num := 260;
1794:
1795: CST_XLA_PVT.Create_RCVXLAEvent(
1796: p_api_version => 1.0,
1797: p_init_msg_list => FND_API.G_FALSE,
1798: p_commit => FND_API.G_FALSE,
1799: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1800: x_return_status => l_return_status,
1801: x_msg_count => x_msg_count,
1794:
1795: CST_XLA_PVT.Create_RCVXLAEvent(
1796: p_api_version => 1.0,
1797: p_init_msg_list => FND_API.G_FALSE,
1798: p_commit => FND_API.G_FALSE,
1799: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1800: x_return_status => l_return_status,
1801: x_msg_count => x_msg_count,
1802: x_msg_data => x_msg_data,
1795: CST_XLA_PVT.Create_RCVXLAEvent(
1796: p_api_version => 1.0,
1797: p_init_msg_list => FND_API.G_FALSE,
1798: p_commit => FND_API.G_FALSE,
1799: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1800: x_return_status => l_return_status,
1801: x_msg_count => x_msg_count,
1802: x_msg_data => x_msg_data,
1803: p_trx_info => l_trx_info);
1801: x_msg_count => x_msg_count,
1802: x_msg_data => x_msg_data,
1803: p_trx_info => l_trx_info);
1804:
1805: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1806: l_api_message := 'Error raising SLA Event';
1807: IF G_DEBUG = 'Y' THEN
1808: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1809: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||
1809: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||
1810: '.'||l_api_name||l_stmt_num ,'Create_AccountingEntry: '||l_stmt_num||' : '||l_api_message);
1811: END IF;
1812: END IF;
1813: RAISE FND_API.g_exc_unexpected_error;
1814: END IF;
1815:
1816:
1817: IF G_DEBUG = 'Y' THEN
1821: END IF;
1822: END IF;
1823:
1824: EXCEPTION
1825: WHEN FND_API.g_exc_error THEN
1826: ROLLBACK TO RCV_CreateAccounting_PVT;
1827: x_return_status := FND_API.g_ret_sts_error;
1828: FND_MSG_PUB.count_and_get
1829: ( p_count => x_msg_count
1823:
1824: EXCEPTION
1825: WHEN FND_API.g_exc_error THEN
1826: ROLLBACK TO RCV_CreateAccounting_PVT;
1827: x_return_status := FND_API.g_ret_sts_error;
1828: FND_MSG_PUB.count_and_get
1829: ( p_count => x_msg_count
1830: , p_data => x_msg_data
1831: );
1828: FND_MSG_PUB.count_and_get
1829: ( p_count => x_msg_count
1830: , p_data => x_msg_data
1831: );
1832: WHEN FND_API.g_exc_unexpected_error THEN
1833: ROLLBACK TO RCV_CreateAccounting_PVT;
1834: x_return_status := FND_API.g_ret_sts_unexp_error ;
1835: FND_MSG_PUB.count_and_get
1836: ( p_count => x_msg_count
1830: , p_data => x_msg_data
1831: );
1832: WHEN FND_API.g_exc_unexpected_error THEN
1833: ROLLBACK TO RCV_CreateAccounting_PVT;
1834: x_return_status := FND_API.g_ret_sts_unexp_error ;
1835: FND_MSG_PUB.count_and_get
1836: ( p_count => x_msg_count
1837: , p_data => x_msg_data
1838: );
1855: SQLERRM
1856: );
1857:
1858: END IF;
1859: x_return_status := FND_API.G_RET_STS_ERROR;
1860: FND_MSG_PUB.count_and_get
1861: ( p_count => x_msg_count
1862: , p_data => x_msg_data
1863: );
1879: SQLERRM
1880: );
1881:
1882: END IF;
1883: x_return_status := FND_API.G_RET_STS_ERROR;
1884: FND_MSG_PUB.count_and_get
1885: ( p_count => x_msg_count
1886: , p_data => x_msg_data
1887: );
1904: SQLERRM
1905: );
1906:
1907: END IF;
1908: x_return_status := FND_API.G_RET_STS_ERROR;
1909: FND_MSG_PUB.count_and_get
1910: ( p_count => x_msg_count
1911: , p_data => x_msg_data
1912: );
1929: SQLERRM
1930: );
1931:
1932: END IF;
1933: x_return_status := FND_API.G_RET_STS_ERROR;
1934: FND_MSG_PUB.count_and_get
1935: ( p_count => x_msg_count
1936: , p_data => x_msg_data
1937: );