[Home] [Help]
138: IF (l_debug = 1) THEN
139: print_debug('Cannot find so order line or OU for order line = '
140: || p_order_line_id, 9);
141: END IF;
142: RAISE FND_API.G_EXC_ERROR;
143: END;
144:
145: /* commented the selection of COA using LE - OU link which is obsoleted in R12
146: and replaced the code with selection of COAs using the API - INV_GLOBALS.GET_LEDGER_INFO
167: --the message compatible with LE uptake project
168: print_debug('Cannot find ledger id for the selling OU = '
169: || l_selling_org_id, 9);
170: END IF;
171: RAISE FND_API.G_EXC_ERROR;
172: END;
173:
174: BEGIN
175: SELECT chart_of_accounts_id
184: -- Modified the message text set of books to ledger for making the message compatible with LE uptake project
185: print_debug('Cannot find chart of accounts id for the Ledger ID = '
186: || l_sob_id, 9);
187: END IF;
188: RAISE FND_API.G_EXC_ERROR;
189: END;
190: */
191:
192: BEGIN
199: x_coa_id => l_coa_id,
200: p_account_info_context => 'BOTH');
201: IF NVL(lreturn_status , 'S') = 'E' THEN
202: print_debug('Cannot find Ledger Information for Operating Unit = '||l_selling_org_id , 9);
203: RAISE FND_API.G_EXC_ERROR;
204: END IF;
205: END;
206:
207: IF (l_debug = 1) THEN
231: IF (l_debug = 1) THEN
232: print_debug('l_success = FALSE', 9);
233: print_debug('error msg : ' || l_error_msg, 9);
234: END IF;
235: RAISE FND_API.G_EXC_ERROR;
236: END IF;
237:
238: x_return_status := G_RET_STS_SUCCESS;
239: EXCEPTION
236: END IF;
237:
238: x_return_status := G_RET_STS_SUCCESS;
239: EXCEPTION
240: WHEN FND_API.G_EXC_ERROR THEN
241: x_return_status := G_RET_STS_ERROR;
242: IF (l_debug = 1) THEN
243: print_debug('GET_COGS_FOR_LOGICAL_SO: Expected Error', 9);
244: print_debug('SQL Error: ' || Sqlerrm(SQLCODE), 9);
511: print_debug('l_msg_data = ' || l_msg_data, 9);
512: END IF;
513: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_GET_COST_GROUP');
514: FND_MSG_PUB.ADD;
515: RAISE FND_API.G_EXC_ERROR;
516: END IF;
517:
518:
519: /*Bug# 5027170. The column 'logical_transaction' is included in the following
737: | |
738: | Input Parameters : |
739: | p_api_version_number - API version number |
740: | p_init_msg_lst - Whether initialize the error message list or not|
741: | Should be fnd_api.g_false or fnd_api.g_true |
742: | p_transaction_id - transaction id of the inserted SO issue MMT |
743: | record. |
744: | p_transaction_temp_id - mmtt transaction temp id, only will be passed |
745: | from the inventory transaction manager for internal order intransit |
744: | p_transaction_temp_id - mmtt transaction temp id, only will be passed |
745: | from the inventory transaction manager for internal order intransit |
746: | issue transactions, where the destination type is EXPENSE |
747: | Output Parameters : |
748: | x_return_status - fnd_api.g_ret_sts_success, if succeeded |
749: | fnd_api.g_ret_sts_exc_error, if an expected |
750: | error occurred |
751: | fnd_api.g_ret_sts_unexp_error, if an unexpected |
752: | eror occurred |
745: | from the inventory transaction manager for internal order intransit |
746: | issue transactions, where the destination type is EXPENSE |
747: | Output Parameters : |
748: | x_return_status - fnd_api.g_ret_sts_success, if succeeded |
749: | fnd_api.g_ret_sts_exc_error, if an expected |
750: | error occurred |
751: | fnd_api.g_ret_sts_unexp_error, if an unexpected |
752: | eror occurred |
753: | x_msg_count - Number of error message in the error message |
747: | Output Parameters : |
748: | x_return_status - fnd_api.g_ret_sts_success, if succeeded |
749: | fnd_api.g_ret_sts_exc_error, if an expected |
750: | error occurred |
751: | fnd_api.g_ret_sts_unexp_error, if an unexpected |
752: | eror occurred |
753: | x_msg_count - Number of error message in the error message |
754: | list |
755: | x_msg_data - If the number of error message in the error |
802: print_debug('p_transaction_temp_id = ' || p_transaction_temp_id, 9);
803: END IF;
804:
805: -- Standard call to check for call compatibility
806: IF NOT fnd_api.compatible_api_call(l_api_version_number,
807: l_in_api_version_number, l_api_name, g_pkg_name) THEN
808: RAISE fnd_api.g_exc_unexpected_error;
809: END IF;
810:
804:
805: -- Standard call to check for call compatibility
806: IF NOT fnd_api.compatible_api_call(l_api_version_number,
807: l_in_api_version_number, l_api_name, g_pkg_name) THEN
808: RAISE fnd_api.g_exc_unexpected_error;
809: END IF;
810:
811: -- Initialize message list.
812: IF fnd_api.to_boolean(l_init_msg_lst) THEN
808: RAISE fnd_api.g_exc_unexpected_error;
809: END IF;
810:
811: -- Initialize message list.
812: IF fnd_api.to_boolean(l_init_msg_lst) THEN
813: fnd_msg_pub.initialize;
814: END IF;
815:
816:
841: IF (l_debug = 1) THEN
842: print_debug('AFter calling create_exp_req_rcpt_trx', 9);
843: END IF;
844:
845: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
846: IF (l_debug = 1) THEN
847: print_debug('create_exp_req_rcpt_trx returns error', 9);
848: END IF;
849: RAISE FND_API.G_EXC_ERROR;
845: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
846: IF (l_debug = 1) THEN
847: print_debug('create_exp_req_rcpt_trx returns error', 9);
848: END IF;
849: RAISE FND_API.G_EXC_ERROR;
850: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
851: IF (l_debug = 1) THEN
852: print_debug('create_exp_req_rcpt_trx returns unexpected error', 9);
853: END IF;
846: IF (l_debug = 1) THEN
847: print_debug('create_exp_req_rcpt_trx returns error', 9);
848: END IF;
849: RAISE FND_API.G_EXC_ERROR;
850: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
851: IF (l_debug = 1) THEN
852: print_debug('create_exp_req_rcpt_trx returns unexpected error', 9);
853: END IF;
854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
850: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
851: IF (l_debug = 1) THEN
852: print_debug('create_exp_req_rcpt_trx returns unexpected error', 9);
853: END IF;
854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
855: END IF;
856: IF (l_debug = 1) THEN
857: print_debug('create_exp_req_rcpt_trx returns success', 9);
858: END IF;
855: END IF;
856: IF (l_debug = 1) THEN
857: print_debug('create_exp_req_rcpt_trx returns success', 9);
858: END IF;
859: x_return_status := FND_API.G_RET_STS_SUCCESS;
860:
861: ELSE
862:
863: IF ((l_transaction_source_type_id = G_SOURCETYPE_SALESORDER and
910: print_debug('Cannot find the selling and shipping OU of the sales order', 9);
911: END IF;
912: FND_MESSAGE.SET_NAME('INV', 'INV_NO_OU');
913: FND_MSG_PUB.ADD;
914: RAISE FND_API.G_EXC_ERROR;
915: END;
916:
917: -- check if the selling OU is not the same as the shipping OU, the
918: -- transaction flow exists and new transaction flow is checked, then
963: END IF;
964:
965: INV_TRANSACTION_FLOW_PUB.check_transaction_flow(
966: p_api_version => 1.0
967: , p_init_msg_list => fnd_api.g_false
968: , p_start_operating_unit => l_shipping_OU
969: , p_end_operating_unit => l_selling_OU
970: , p_flow_type => G_SHIPPING
971: , p_organization_id => l_ship_from_org_id
989: IF (l_return_status = G_RET_STS_ERROR) THEN
990: IF (l_debug = 1) THEN
991: print_debug('Check trx flow returns error: ' || l_msg_data, 9);
992: END IF;
993: RAISE FND_API.G_EXC_ERROR;
994: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
995: IF (l_debug = 1) THEN
996: print_debug('Check trx flow returns unexpected error: ' || l_msg_data, 9);
997: END IF;
994: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
995: IF (l_debug = 1) THEN
996: print_debug('Check trx flow returns unexpected error: ' || l_msg_data, 9);
997: END IF;
998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
999: END IF;
1000:
1001: IF (l_debug = 1) THEN
1002: print_debug('Check trx flow returns success', 9);
1019: EXCEPTION
1020: WHEN no_data_found THEN
1021: IF (l_debug = 1) THEN
1022: print_debug('No MMT found while updating so_issue_acct_type' || p_transaction_id, 9);
1023: x_return_status:= FND_API.g_ret_sts_error;
1024: END IF;
1025: END;
1026: x_return_status := FND_API.G_RET_STS_SUCCESS;
1027: return;
1022: print_debug('No MMT found while updating so_issue_acct_type' || p_transaction_id, 9);
1023: x_return_status:= FND_API.g_ret_sts_error;
1024: END IF;
1025: END;
1026: x_return_status := FND_API.G_RET_STS_SUCCESS;
1027: return;
1028: END IF; -- end of (l_selling_OU <> l_shipping_OU)
1029: l_progress := 50;
1030: --Bug 5103108: Added this condition so that other transaction
1067: print_debug('Costing Release Level < Costing J Release Level', 9);
1068: END IF;
1069: FND_MESSAGE.SET_NAME('INV', 'INV_CST_JRELEASE');
1070: FND_MSG_PUB.ADD;
1071: RAISE FND_API.G_EXC_ERROR;
1072: ELSIF (OE_CODE_CONTROL.Get_Code_Release_Level < '110510') THEN
1073: IF (l_debug = 1) THEN
1074: print_debug('OM Release Level < 110510', 9);
1075: END IF;
1074: print_debug('OM Release Level < 110510', 9);
1075: END IF;
1076: FND_MESSAGE.SET_NAME('INV', 'INV_OM_JRELEASE');
1077: FND_MSG_PUB.ADD;
1078: RAISE FND_API.G_EXC_ERROR;
1079: END IF;
1080:
1081: IF (l_debug = 1) THEN
1082: print_debug('l_transaction_flow_exists=1 AND l_new_accounting_flag=Y', 9);
1201: print_debug('Error when creating logical trx table', 9);
1202: END IF;
1203: FND_MESSAGE.SET_NAME('INV', 'INV_LOG_TRX_REC_ERROR');
1204: FND_MSG_PUB.ADD;
1205: RAISE FND_API.G_EXC_ERROR ;
1206: END;
1207:
1208: --bug fix - the defer flag should be set only if it is being
1209: -- called by the concurrent program which will set the value of
1236: IF (l_debug = 1) THEN
1237: print_debug('AFter calling create_logical_transactions', 9);
1238: END IF;
1239:
1240: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1241: IF (l_debug = 1) THEN
1242: print_debug('create_logical_transactions returns error', 9);
1243: END IF;
1244: RAISE FND_API.G_EXC_ERROR;
1240: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1241: IF (l_debug = 1) THEN
1242: print_debug('create_logical_transactions returns error', 9);
1243: END IF;
1244: RAISE FND_API.G_EXC_ERROR;
1245: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1246: IF (l_debug = 1) THEN
1247: print_debug('create_logical_transactions returns unexpected error', 9);
1248: END IF;
1241: IF (l_debug = 1) THEN
1242: print_debug('create_logical_transactions returns error', 9);
1243: END IF;
1244: RAISE FND_API.G_EXC_ERROR;
1245: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1246: IF (l_debug = 1) THEN
1247: print_debug('create_logical_transactions returns unexpected error', 9);
1248: END IF;
1249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1245: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1246: IF (l_debug = 1) THEN
1247: print_debug('create_logical_transactions returns unexpected error', 9);
1248: END IF;
1249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1250: END IF;
1251: IF (l_debug = 1) THEN
1252: print_debug('create_logical_transactions returns success', 9);
1253: END IF;
1262: || p_transaction_id ,9);
1263: END IF;
1264: FND_MESSAGE.SET_NAME('INV', 'INV_MMT_NOT_FOUND');
1265: FND_MSG_PUB.ADD;
1266: RAISE FND_API.G_EXC_ERROR;
1267: END IF;
1268: ELSIF (l_transaction_flow_exists = INV_TRANSACTION_FLOW_PUB.G_TRANSACTION_FLOW_FOUND
1269: AND l_new_accounting_flag = 'N') THEN
1270: IF (l_debug = 1) THEN
1283: || p_transaction_id ,9);
1284: END IF;
1285: FND_MESSAGE.SET_NAME('INV', 'INV_MMT_NOT_FOUND');
1286: FND_MSG_PUB.ADD;
1287: RAISE FND_API.G_EXC_ERROR;
1288: END IF;
1289:
1290: END IF;--end of (l_transaction_flow_exists = 1 AND l_new_accounting_flag = 'Y')
1291: x_return_status := FND_API.G_RET_STS_SUCCESS;
1287: RAISE FND_API.G_EXC_ERROR;
1288: END IF;
1289:
1290: END IF;--end of (l_transaction_flow_exists = 1 AND l_new_accounting_flag = 'Y')
1291: x_return_status := FND_API.G_RET_STS_SUCCESS;
1292: END IF;--End condition for 'if' internal order int shipment trx.
1293: EXCEPTION
1294: WHEN FND_API.G_EXC_ERROR THEN
1295: IF (l_debug = 1) THEN
1290: END IF;--end of (l_transaction_flow_exists = 1 AND l_new_accounting_flag = 'Y')
1291: x_return_status := FND_API.G_RET_STS_SUCCESS;
1292: END IF;--End condition for 'if' internal order int shipment trx.
1293: EXCEPTION
1294: WHEN FND_API.G_EXC_ERROR THEN
1295: IF (l_debug = 1) THEN
1296: print_debug('create_logical_trx_wrapper error exception, l_progress = '
1297: || l_progress, 9);
1298: END IF;
1295: IF (l_debug = 1) THEN
1296: print_debug('create_logical_trx_wrapper error exception, l_progress = '
1297: || l_progress, 9);
1298: END IF;
1299: x_return_status := FND_API.G_RET_STS_ERROR;
1300: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1301:
1302: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1303: IF (l_debug = 1) THEN
1298: END IF;
1299: x_return_status := FND_API.G_RET_STS_ERROR;
1300: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1301:
1302: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1303: IF (l_debug = 1) THEN
1304: print_debug('create_logical_trx_wrapper unexpected error exception,l_progress = ' || l_progress, 9);
1305: END IF;
1306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1302: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1303: IF (l_debug = 1) THEN
1304: print_debug('create_logical_trx_wrapper unexpected error exception,l_progress = ' || l_progress, 9);
1305: END IF;
1306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1307: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1308:
1309: WHEN OTHERS THEN
1310: IF (l_debug = 1) THEN
1309: WHEN OTHERS THEN
1310: IF (l_debug = 1) THEN
1311: print_debug('create_logical_trx_wrapper other exception, l_progress = ' || l_progress || ' ' || substr(sqlerrm, 1, 100), 9);
1312: END IF;
1313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1314: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1315:
1316: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1317: FND_MSG_PUB.Add_Exc_Msg
1345: | |
1346: | Input Parameters: |
1347: | p_api_version_number - API version number |
1348: | p_init_msg_lst - Whether initialize the error message list or not |
1349: | Should be fnd_api.g_false or fnd_api.g_true |
1350: | p_mtl_trx_tbl - An array of mtl_trx_rec_type records, the definition |
1351: | is in the INV_LOGICAL_TRANSACTION_GLOBAL package. |
1352: | p_validation_flag - To indicate whether the call to this API is a trusted|
1353: | call or not. Depending on this flag, we will decide |
1395: | not done the creation of the logical transactions|
1396: | and this API would have to explode the |
1397: | intermediate nodes. |
1398: | Output Parameters: |
1399: | x_return_status - fnd_api.g_ret_sts_success, if succeeded |
1400: | fnd_api.g_ret_sts_exc_error, if an expected error |
1401: | occurred |
1402: | fnd_api.g_ret_sts_unexp_error, if an unexpected error |
1403: | occurred |
1396: | and this API would have to explode the |
1397: | intermediate nodes. |
1398: | Output Parameters: |
1399: | x_return_status - fnd_api.g_ret_sts_success, if succeeded |
1400: | fnd_api.g_ret_sts_exc_error, if an expected error |
1401: | occurred |
1402: | fnd_api.g_ret_sts_unexp_error, if an unexpected error |
1403: | occurred |
1404: | x_msg_count - Number of error message in the error message list |
1398: | Output Parameters: |
1399: | x_return_status - fnd_api.g_ret_sts_success, if succeeded |
1400: | fnd_api.g_ret_sts_exc_error, if an expected error |
1401: | occurred |
1402: | fnd_api.g_ret_sts_unexp_error, if an unexpected error |
1403: | occurred |
1404: | x_msg_count - Number of error message in the error message list |
1405: | x_msg_data - If the number of error message in the error message |
1406: | message list is one, the error message is in |
1490: print_debug('p_exploded_flag = ' || p_exploded_flag, 9);
1491: END IF;
1492:
1493: -- Standard call to check for call compatibility
1494: IF NOT fnd_api.compatible_api_call(l_api_version_number,
1495: l_in_api_version_number, l_api_name, g_pkg_name) THEN
1496: RAISE fnd_api.g_exc_unexpected_error;
1497: END IF;
1498:
1492:
1493: -- Standard call to check for call compatibility
1494: IF NOT fnd_api.compatible_api_call(l_api_version_number,
1495: l_in_api_version_number, l_api_name, g_pkg_name) THEN
1496: RAISE fnd_api.g_exc_unexpected_error;
1497: END IF;
1498:
1499: -- Initialize message list.
1500: IF fnd_api.to_boolean(l_init_msg_lst) THEN
1496: RAISE fnd_api.g_exc_unexpected_error;
1497: END IF;
1498:
1499: -- Initialize message list.
1500: IF fnd_api.to_boolean(l_init_msg_lst) THEN
1501: fnd_msg_pub.initialize;
1502: END IF;
1503:
1504:
1528: print_debug('Cannot get defer logical trx flag from mtl_parameters', 9);
1529: END IF;
1530: FND_MESSAGE.SET_NAME('INV', 'INV_DEFER_LOGICAL_ERR');
1531: FND_MSG_PUB.ADD;
1532: RAISE FND_API.G_EXC_ERROR;
1533: END;
1534: END IF;
1535:
1536: IF (l_debug = 1) THEN
1565: print_debug('x_msg_data = ' || x_msg_data, 9);
1566: END IF;
1567: FND_MESSAGE.SET_NAME('INV', 'INV_PERIOD_RETRIEVAL_ERROR');
1568: FND_MSG_PUB.ADD;
1569: RAISE FND_API.G_EXC_ERROR;
1570: END IF;
1571: END IF;
1572:
1573: -- get the project if the locator is populated and tied to project
1623: print_debug('l_msg_data = ' || l_msg_data, 9);
1624: END IF;
1625: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_GET_COST_GROUP');
1626: FND_MSG_PUB.ADD;
1627: RAISE FND_API.G_EXC_ERROR;
1628: END IF;
1629:
1630: l_mtl_trx_tbl(i).costed_flag := 'N';
1631: l_mtl_trx_tbl(i).invoiced_flag := null;
1658: print_debug('Records are not exploded', 9);
1659: END IF;
1660: FND_MESSAGE.SET_NAME('INV', 'INV_REC_NOT_EXPLODED');
1661: FND_MSG_PUB.ADD;
1662: RAISE FND_API.G_EXC_ERROR;
1663: END IF;
1664:
1665: IF (l_debug = 1) THEN
1666: print_debug('Get the start OU from the transaction flow header', 9);
1714: print_debug('x_msg_data = ' || x_msg_data, 9);
1715: END IF;
1716: FND_MESSAGE.SET_NAME('INV', 'INV_PERIOD_RETRIEVAL_ERROR');
1717: FND_MSG_PUB.ADD;
1718: RAISE FND_API.G_EXC_ERROR;
1719: END IF;
1720: END IF;
1721:
1722: -- Populate cost group id to the record
1780: print_debug('l_msg_data = ' || l_msg_data, 9);
1781: END IF;
1782: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_GET_COST_GROUP');
1783: FND_MSG_PUB.ADD;
1784: RAISE FND_API.G_EXC_ERROR;
1785: END IF;
1786: END IF;
1787:
1788: IF (l_mtl_trx_tbl(i).transfer_cost_group_id is null) THEN
1802: print_debug('l_msg_data = ' || l_msg_data, 9);
1803: END IF;
1804: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_GET_COST_GROUP');
1805: FND_MSG_PUB.ADD;
1806: RAISE FND_API.G_EXC_ERROR;
1807: END IF;
1808: END IF;
1809: END IF;
1810: END LOOP;
1824: IF (l_debug = 1) THEN
1825: print_debug('Cannot defer creating logical trx for global proc/return to vendor', 9);
1826: END IF;
1827:
1828: x_return_status := FND_API.G_RET_STS_ERROR;
1829: FND_MESSAGE.SET_NAME('INV', 'INV_CANNOT_DEFER_LOGICAL_TRX');
1830: FND_MSG_PUB.ADD;
1831: RAISE FND_API.G_EXC_ERROR;
1832: END IF; -- end of if (l_defer_logical_trx = G_NOT_DEFER_LOGICAL_TRX)
1827:
1828: x_return_status := FND_API.G_RET_STS_ERROR;
1829: FND_MESSAGE.SET_NAME('INV', 'INV_CANNOT_DEFER_LOGICAL_TRX');
1830: FND_MSG_PUB.ADD;
1831: RAISE FND_API.G_EXC_ERROR;
1832: END IF; -- end of if (l_defer_logical_trx = G_NOT_DEFER_LOGICAL_TRX)
1833: -- true dropship(shipping flow)/SO issue across OUs/RMA return
1834: ELSIF (p_logical_trx_type_code = G_LOGTRXCODE_DSDELIVER
1835: or p_logical_trx_type_code = G_LOGTRXCODE_RMASOISSUE) THEN
1839: IF (l_debug = 1) THEN
1840: print_debug('Cannot defer creating logical trx for true dropship', 9);
1841: END IF;
1842:
1843: x_return_status := FND_API.G_RET_STS_ERROR;
1844: FND_MESSAGE.SET_NAME('INV', 'INV_CANNOT_DEFER_LOGICAL_TRX');
1845: FND_MSG_PUB.ADD;
1846: RAISE FND_API.G_EXC_ERROR;
1847: ELSIF (p_logical_trx_type_code = G_LOGTRXCODE_RMASOISSUE
1842:
1843: x_return_status := FND_API.G_RET_STS_ERROR;
1844: FND_MESSAGE.SET_NAME('INV', 'INV_CANNOT_DEFER_LOGICAL_TRX');
1845: FND_MSG_PUB.ADD;
1846: RAISE FND_API.G_EXC_ERROR;
1847: ELSIF (p_logical_trx_type_code = G_LOGTRXCODE_RMASOISSUE
1848: and l_defer_logical_trx = G_DEFER_LOGICAL_TRX) THEN
1849: -- If sales order issue/RMA and yes defer flag, update the MMT record
1850:
1865: print_debug('No MMT record is found to update with logical_transactions_created=N', 9);
1866: END IF;
1867: FND_MESSAGE.SET_NAME('INV', 'INV_MMT_NOT_FOUND');
1868: FND_MSG_PUB.ADD;
1869: RAISE FND_API.G_EXC_ERROR;
1870: END IF;
1871: return;
1872: END IF;
1873:
1900: print_debug('Transaction flow not defined for header_id = ' || p_trx_flow_header_id, 9);
1901: END IF;
1902: FND_MESSAGE.SET_NAME('INV', 'INV_NO_TRX_FLOW');
1903: FND_MSG_PUB.ADD;
1904: RAISE FND_API.G_EXC_ERROR;
1905: END;
1906:
1907: -- For dropship deliver, get the sales order id and populate to transaction_source_id
1908: -- Also get the lot_control_code and serial_control_code of the item.
1984: print_debug('no sales order found for line id = ' || l_mtl_trx_tbl(1).trx_source_line_id, 9);
1985: END IF;
1986: FND_MESSAGE.SET_NAME('INV', 'INV_NO_SO');
1987: FND_MSG_PUB.ADD;
1988: RAISE FND_API.G_EXC_ERROR;
1989:
1990: WHEN others THEN
1991: IF (l_debug = 1) THEN
1992: print_debug('when others ' || sqlerrm, 9);
1993: print_Debug('l_progress = ' || l_progress, 9);
1994: END IF;
1995: FND_MESSAGE.SET_NAME('INV', 'INV_NO_SO');
1996: FND_MSG_PUB.ADD;
1997: RAISE FND_API.G_EXC_ERROR;
1998: END;
1999:
2000: IF (l_debug = 1) THEN
2001: print_debug('sales order id = ' ||
2079: print_debug('l_msg_data = ' || l_msg_data, 9);
2080: END IF;
2081: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_GET_COST_GROUP');
2082: FND_MSG_PUB.ADD;
2083: RAISE FND_API.G_EXC_ERROR;
2084: END IF;
2085:
2086: IF (l_mtl_trx_tbl(1).acct_period_id IS NULL) THEN
2087: l_progress := 260;
2098: print_debug('x_msg_data = ' || x_msg_data, 9);
2099: END IF;
2100: FND_MESSAGE.SET_NAME('INV', 'INV_PERIOD_RETRIEVAL_ERROR');
2101: FND_MSG_PUB.ADD;
2102: RAISE FND_API.G_EXC_ERROR;
2103: END IF;
2104: END IF;
2105:
2106: l_mtl_trx_tbl(1).costed_flag := 'N';
2148: print_debug('l_msg_data = ' || l_msg_data, 9);
2149: END IF;
2150: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_GET_COST_GROUP');
2151: FND_MSG_PUB.ADD;
2152: RAISE FND_API.G_EXC_ERROR;
2153: END IF;
2154: END IF;
2155:
2156: l_mtl_trx_tbl(1).currency_code := null;
2185: print_debug('l_msg_data = ' || l_msg_data, 9);
2186: END IF;
2187: FND_MESSAGE.SET_NAME('INV', 'INV_NO_COGS_FOR_LOG_SO');
2188: FND_MSG_PUB.ADD;
2189: RAISE FND_API.G_EXC_ERROR;
2190: END IF;
2191:
2192: l_progress := 300;
2193: SELECT mtl_material_transactions_s.nextval
2215: , x_msg_data => l_msg_data
2216: , x_msg_count => l_msg_count
2217: , x_transaction_flows_tbl => l_trx_flow_tbl
2218: , p_api_version => 1.0
2219: , p_init_msg_list => fnd_api.g_false
2220: , p_header_id => p_trx_flow_header_id
2221: , p_get_default_cost_group => 'Y');
2222:
2223: IF (l_debug = 1) THEN
2224: print_debug('get_transaction_flow returns status = ' || l_return_status, 9);
2225: print_debug('Transaction flow counts = ' || l_trx_flow_tbl.COUNT, 9);
2226: END IF;
2227:
2228: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2229: IF (l_debug = 1) THEN
2230: print_debug('get_transaction_flow returns error: ' || l_msg_data, 9);
2231: END IF;
2232: RAISE FND_API.G_EXC_ERROR;
2228: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2229: IF (l_debug = 1) THEN
2230: print_debug('get_transaction_flow returns error: ' || l_msg_data, 9);
2231: END IF;
2232: RAISE FND_API.G_EXC_ERROR;
2233: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2234: IF (l_debug = 1) THEN
2235: print_debug('get_transaction_flow returns unexpected error: ' || l_msg_data, 9);
2236: END IF;
2229: IF (l_debug = 1) THEN
2230: print_debug('get_transaction_flow returns error: ' || l_msg_data, 9);
2231: END IF;
2232: RAISE FND_API.G_EXC_ERROR;
2233: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2234: IF (l_debug = 1) THEN
2235: print_debug('get_transaction_flow returns unexpected error: ' || l_msg_data, 9);
2236: END IF;
2237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2233: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2234: IF (l_debug = 1) THEN
2235: print_debug('get_transaction_flow returns unexpected error: ' || l_msg_data, 9);
2236: END IF;
2237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2238: END IF;
2239:
2240: -- If there is transaction flow, then get the the transfer price
2241: -- and construct a pl/sql transfer price table
2283: , x_currency_code => l_transfer_price_tbl(i).functional_currency_code
2284: , x_incr_transfer_price => l_transfer_price_tbl(i).incr_transfer_price
2285: , x_incr_currency_code => l_transfer_price_tbl(i).incr_currency_code
2286: , p_api_version => 1.0
2287: , p_init_msg_list => fnd_api.g_false
2288: , p_from_org_id => l_transfer_price_tbl(i).from_org_id
2289: , p_to_org_id => l_transfer_price_tbl(i).to_org_id
2290: , p_transaction_uom => l_mtl_trx_tbl(1).transaction_uom
2291: , p_inventory_item_id => l_mtl_trx_tbl(1).inventory_item_id
2297: IF (l_debug = 1) THEN
2298: print_debug('get_transfer_price returns status = ' || l_return_status, 9);
2299: END IF;
2300:
2301: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2302: IF (l_debug = 1) THEN
2303: print_debug('get_transfer_price returns error: ' || l_msg_data, 9);
2304: END IF;
2305: RAISE FND_API.G_EXC_ERROR;
2301: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2302: IF (l_debug = 1) THEN
2303: print_debug('get_transfer_price returns error: ' || l_msg_data, 9);
2304: END IF;
2305: RAISE FND_API.G_EXC_ERROR;
2306: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2307: IF (l_debug = 1) THEN
2308: print_debug('get_transfer_price returns unexpected error: ' || l_msg_data, 9);
2309: END IF;
2302: IF (l_debug = 1) THEN
2303: print_debug('get_transfer_price returns error: ' || l_msg_data, 9);
2304: END IF;
2305: RAISE FND_API.G_EXC_ERROR;
2306: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2307: IF (l_debug = 1) THEN
2308: print_debug('get_transfer_price returns unexpected error: ' || l_msg_data, 9);
2309: END IF;
2310: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2306: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2307: IF (l_debug = 1) THEN
2308: print_debug('get_transfer_price returns unexpected error: ' || l_msg_data, 9);
2309: END IF;
2310: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2311: END IF;
2312: END LOOP;
2313:
2314: IF (l_debug = 1) THEN
2344: || l_mtl_trx_tbl(1).inventory_item_id, 9);
2345: END IF;
2346: FND_MESSAGE.SET_NAME('INV', 'INV_NO_ITEM_FOUND');
2347: FND_MSG_PUB.ADD;
2348: RAISE FND_API.G_EXC_ERROR;
2349: END;
2350:
2351: -- loop for each record of transaction flow table and construct the logical
2352: -- transaction table
2454: print_debug('x_msg_data = ' || x_msg_data, 9);
2455: END IF;
2456: FND_MESSAGE.SET_NAME('INV', 'INV_PERIOD_RETRIEVAL_ERROR');
2457: FND_MSG_PUB.ADD;
2458: RAISE FND_API.G_EXC_ERROR;
2459: END IF;
2460:
2461: IF (l_inv_asset_flag = 'Y') THEN
2462: l_mtl_trx_tbl(l_index).distribution_account_id := l_trx_flow_tbl(i).INVENTORY_ACCRUAL_ACCOUNT_ID;
2483: WHEN NO_DATA_FOUND THEN
2484: print_debug('Item not found for item id: '|| l_mtl_trx_tbl(1).inventory_item_id, 9);
2485: FND_MESSAGE.SET_NAME('INV', 'INV_NO_ITEM_FOUND');
2486: FND_MSG_PUB.ADD;
2487: RAISE FND_API.G_EXC_ERROR;
2488: END;
2489:
2490: print_debug('Transaction UOM is: '||p_mtl_trx_tbl(1).transaction_uom, 9);
2491:
2538: , x_msg_data => l_msg_data
2539: , x_msg_count => l_msg_count);
2540:
2541:
2542: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2543: IF (l_debug = 1) THEN
2544: print_debug('l_return_status = ' || l_return_status, 9);
2545: print_debug('l_msg_data = ' || l_msg_data, 9);
2546: RAISE FND_API.G_EXC_ERROR;
2542: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2543: IF (l_debug = 1) THEN
2544: print_debug('l_return_status = ' || l_return_status, 9);
2545: print_debug('l_msg_data = ' || l_msg_data, 9);
2546: RAISE FND_API.G_EXC_ERROR;
2547: END IF;
2548: END IF;
2549: -- Commented following for bug 6696446
2550: -- l_mtl_trx_tbl(l_index).transaction_cost := round(l_mtl_trx_tbl(l_index).transaction_cost,2);
2658: print_debug('x_msg_data = ' || x_msg_data, 9);
2659: END IF;
2660: FND_MESSAGE.SET_NAME('INV', 'INV_PERIOD_RETRIEVAL_ERROR');
2661: FND_MSG_PUB.ADD;
2662: RAISE FND_API.G_EXC_ERROR;
2663: END IF;
2664:
2665: IF (l_inv_asset_flag = 'Y') THEN
2666: l_mtl_trx_tbl(l_index).distribution_account_id := l_trx_flow_tbl(i).INVENTORY_ACCRUAL_ACCOUNT_ID;
2683: WHEN NO_DATA_FOUND THEN
2684: print_debug('Item not found for item id: '|| l_mtl_trx_tbl(1).inventory_item_id, 9);
2685: FND_MESSAGE.SET_NAME('INV', 'INV_NO_ITEM_FOUND');
2686: FND_MSG_PUB.ADD;
2687: RAISE FND_API.G_EXC_ERROR;
2688: END;
2689: l_uom_rate := 1;
2690:
2691: print_debug('Transaction UOM is: '||p_mtl_trx_tbl(1).transaction_uom, 9);
2738: , x_return_status => l_return_status
2739: , x_msg_data => l_msg_data
2740: , x_msg_count => l_msg_count);
2741:
2742: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2743: IF (l_debug = 1) THEN
2744: print_debug('l_return_status = ' || l_return_status, 9);
2745: print_debug('l_msg_data = ' || l_msg_data, 9);
2746: RAISE FND_API.G_EXC_ERROR;
2742: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2743: IF (l_debug = 1) THEN
2744: print_debug('l_return_status = ' || l_return_status, 9);
2745: print_debug('l_msg_data = ' || l_msg_data, 9);
2746: RAISE FND_API.G_EXC_ERROR;
2747: END IF;
2748: END IF;
2749:
2750: -- commented following for bug 6696446
2809: print_debug('l_msg_data = ' || l_msg_data, 9);
2810: END IF;
2811: FND_MESSAGE.SET_NAME('INV', 'INV_NO_COGS_FOR_LOG_SO');
2812: FND_MSG_PUB.ADD;
2813: RAISE FND_API.G_EXC_ERROR;
2814: END IF;
2815:
2816: l_mtl_trx_tbl(l_index).currency_code := null;
2817: l_mtl_trx_tbl(l_index).transaction_cost := l_mtl_trx_tbl(l_index-1).transaction_cost;
2968: print_debug('Transaction type not found', 9);
2969: END IF;
2970: FND_MESSAGE.SET_NAME('INV', 'INV_TRX_TYPE_ERROR');
2971: FND_MSG_PUB.ADD;
2972: RAISE FND_API.G_EXC_ERROR;
2973: END;
2974: ELSE
2975: IF (l_debug = 1) THEN
2976: print_debug('Trx action id, trx source type id or trx type is invalid', 9);
2976: print_debug('Trx action id, trx source type id or trx type is invalid', 9);
2977: END IF;
2978: FND_MESSAGE.SET_NAME('INV', 'INV_TRX_TYPE_ERROR');
2979: FND_MSG_PUB.ADD;
2980: RAISE FND_API.G_EXC_ERROR;
2981: END IF;
2982: END IF;
2983: END LOOP;
2984: END IF;
2998: , p_mtl_trx_tbl => l_mtl_trx_tbl
2999: , p_validation_level => p_validation_flag
3000: , p_logical_trx_type_code => p_logical_trx_type_code);
3001:
3002: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3003: IF (l_debug = 1) THEN
3004: print_debug('Validate_input_parameters returns error: ' || l_msg_data, 9);
3005: END IF;
3006: RAISE FND_API.G_EXC_ERROR;
3002: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3003: IF (l_debug = 1) THEN
3004: print_debug('Validate_input_parameters returns error: ' || l_msg_data, 9);
3005: END IF;
3006: RAISE FND_API.G_EXC_ERROR;
3007: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3008: IF (l_debug = 1) THEN
3009: print_debug('Validate_input_parameters returns unexpected error: ' || l_msg_data, 9);
3010: END IF;
3003: IF (l_debug = 1) THEN
3004: print_debug('Validate_input_parameters returns error: ' || l_msg_data, 9);
3005: END IF;
3006: RAISE FND_API.G_EXC_ERROR;
3007: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3008: IF (l_debug = 1) THEN
3009: print_debug('Validate_input_parameters returns unexpected error: ' || l_msg_data, 9);
3010: END IF;
3011: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3007: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3008: IF (l_debug = 1) THEN
3009: print_debug('Validate_input_parameters returns unexpected error: ' || l_msg_data, 9);
3010: END IF;
3011: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3012: END IF;
3013: END IF;
3014:
3015: -- validate_input_parameters returns success, call inv_mmt_insert to insert the
3023: x_return_status => l_return_status
3024: , x_msg_count => l_msg_count
3025: , x_msg_data => l_msg_data
3026: , p_api_version_number => 1.0
3027: , p_init_msg_lst => fnd_api.g_false
3028: , p_mtl_trx_tbl => l_mtl_trx_tbl
3029: , p_logical_trx_type_code => p_logical_trx_type_code);
3030:
3031: IF (l_debug = 1) THEN
3031: IF (l_debug = 1) THEN
3032: print_debug('After calling inv_mmt_insert, return status = ' || l_return_status, 9);
3033: END IF;
3034:
3035: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3036: IF (l_debug = 1) THEN
3037: print_debug('inv_mmt_insert returns error: ' || l_msg_data, 9);
3038: END IF;
3039: RAISE FND_API.G_EXC_ERROR;
3035: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3036: IF (l_debug = 1) THEN
3037: print_debug('inv_mmt_insert returns error: ' || l_msg_data, 9);
3038: END IF;
3039: RAISE FND_API.G_EXC_ERROR;
3040: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3041: IF (l_debug = 1) THEN
3042: print_debug('inv_mmt_insert returns unexpected error: ' || l_msg_data, 9);
3043: END IF;
3036: IF (l_debug = 1) THEN
3037: print_debug('inv_mmt_insert returns error: ' || l_msg_data, 9);
3038: END IF;
3039: RAISE FND_API.G_EXC_ERROR;
3040: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3041: IF (l_debug = 1) THEN
3042: print_debug('inv_mmt_insert returns unexpected error: ' || l_msg_data, 9);
3043: END IF;
3044: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3040: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3041: IF (l_debug = 1) THEN
3042: print_debug('inv_mmt_insert returns unexpected error: ' || l_msg_data, 9);
3043: END IF;
3044: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3045: END IF;
3046:
3047: -- For dropship deliver, if the item is lot or serial controlled, we need to
3048: -- insert into mtl_transaction_lot_numbers or mtl_unit_transactions
3053: (x_return_status => l_return_status,
3054: x_msg_count => l_msg_count,
3055: x_msg_data => l_msg_data,
3056: p_api_version_number => 1.0,
3057: p_init_msg_lst => fnd_api.g_false,
3058: p_parent_transaction_id => l_mtl_trx_tbl(1).parent_transaction_id,
3059: p_transaction_id => l_mtl_trx_tbl(1).transaction_id,
3060: p_lot_control_code => l_lot_control_code,
3061: p_serial_control_code => l_serial_control_code,
3064: p_primary_quantity => l_mtl_trx_tbl(1).primary_quantity,
3065: p_trx_source_type_id => l_mtl_trx_tbl(1).transaction_source_type_id,
3066: p_revision => l_mtl_trx_tbl(1).revision);
3067:
3068: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3069: IF (l_debug = 1) THEN
3070: print_debug('inv_lot_serial_insert returns error: ' || l_msg_data, 9);
3071: END IF;
3072: RAISE FND_API.G_EXC_ERROR;
3068: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3069: IF (l_debug = 1) THEN
3070: print_debug('inv_lot_serial_insert returns error: ' || l_msg_data, 9);
3071: END IF;
3072: RAISE FND_API.G_EXC_ERROR;
3073: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3074: IF (l_debug = 1) THEN
3075: print_debug('inv_lot_serial_insert returns unexpected error: ' || l_msg_data, 9);
3076: END IF;
3069: IF (l_debug = 1) THEN
3070: print_debug('inv_lot_serial_insert returns error: ' || l_msg_data, 9);
3071: END IF;
3072: RAISE FND_API.G_EXC_ERROR;
3073: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3074: IF (l_debug = 1) THEN
3075: print_debug('inv_lot_serial_insert returns unexpected error: ' || l_msg_data, 9);
3076: END IF;
3077: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3073: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3074: IF (l_debug = 1) THEN
3075: print_debug('inv_lot_serial_insert returns unexpected error: ' || l_msg_data, 9);
3076: END IF;
3077: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3078: END IF;
3079: END IF;
3080:
3081: IF (l_mtl_trx_tbl(1).lpn_id IS NOT NULL) THEN
3092: || l_mtl_trx_tbl(1).lpn_id ,9);
3093: END IF;
3094: FND_MESSAGE.SET_NAME('INV', 'INV_LPN_UPDATE_FAILURE');
3095: FND_MSG_PUB.ADD;
3096: RAISE FND_API.G_EXC_ERROR;
3097: END IF;
3098: ******/
3099: --Calling wms_container_pvt.Modify_LPN API to update the
3100: -- context.
3103: l_lpn.lpn_context := 4;
3104: wms_container_pvt.Modify_LPN
3105: (
3106: p_api_version => 1.0
3107: , p_init_msg_list => fnd_api.g_false
3108: , p_commit => fnd_api.g_false
3109: , p_validation_level => fnd_api.g_valid_level_full
3110: , x_return_status => l_return_status
3111: , x_msg_count => l_msg_count
3104: wms_container_pvt.Modify_LPN
3105: (
3106: p_api_version => 1.0
3107: , p_init_msg_list => fnd_api.g_false
3108: , p_commit => fnd_api.g_false
3109: , p_validation_level => fnd_api.g_valid_level_full
3110: , x_return_status => l_return_status
3111: , x_msg_count => l_msg_count
3112: , x_msg_data => l_msg_data
3105: (
3106: p_api_version => 1.0
3107: , p_init_msg_list => fnd_api.g_false
3108: , p_commit => fnd_api.g_false
3109: , p_validation_level => fnd_api.g_valid_level_full
3110: , x_return_status => l_return_status
3111: , x_msg_count => l_msg_count
3112: , x_msg_data => l_msg_data
3113: , p_lpn => l_lpn
3120: print_debug('l_msg_data = ' || l_msg_data, 9);
3121: END IF;
3122: FND_MESSAGE.SET_NAME('INV', 'INV_LPN_UPDATE_FAILURE');
3123: FND_MSG_PUB.ADD;
3124: RAISE FND_API.G_EXC_ERROR;
3125: END IF;
3126: END IF;
3127: END IF;
3128:
3186: print_debug('l_row_id = ' || l_row_id, 9);
3187: END IF;
3188: FND_MESSAGE.SET_NAME('INV', 'INV_INSERT_COST_ERR');
3189: FND_MSG_PUB.ADD;
3190: RAISE FND_API.G_EXC_ERROR;
3191: END IF;
3192: ELSE
3193: IF (l_debug = 1)
3194: THEN
3234: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_UOM_CONV');
3235: FND_MESSAGE.SET_TOKEN('VALUE1', l_mtl_trx_tbl(i).transaction_uom);
3236: FND_MESSAGE.SET_TOKEN('VALUE2', l_primary_uom);
3237: FND_MSG_PUB.ADD;
3238: RAISE FND_API.G_EXC_ERROR;
3239: END IF;
3240:
3241: print_debug('l_uom_rate = ' || l_uom_rate, 9);
3242:
3268: print_debug('l_row_id = ' || l_row_id, 9);
3269: END IF;
3270: FND_MESSAGE.SET_NAME('INV', 'INV_INSERT_COST_ERR');
3271: FND_MSG_PUB.ADD;
3272: RAISE FND_API.G_EXC_ERROR;
3273: ELSE
3274: IF (l_debug = 1) THEN
3275: print_debug('MTL_CST_TXN_COST_DETAILS_PKG.Insert_Row returns success', 9);
3276: END IF;
3300: print_debug('OE_DS_PVT.DropShipReceive returns false', 9);
3301: END IF;
3302: FND_MESSAGE.SET_NAME('INV', 'INV_DS_UPDATE_ERROR');
3303: FND_MSG_PUB.ADD;
3304: RAISE FND_API.G_EXC_ERROR;
3305: ELSE
3306: IF (l_debug = 1) THEN
3307: print_debug('OE_DS_PVT.DropShipReceive returns true', 9);
3308: END IF;
3332: || p_mtl_trx_tbl(1).transaction_id ,9);
3333: END IF;
3334: FND_MESSAGE.SET_NAME('INV', 'INV_MMT_NOT_FOUND');
3335: FND_MSG_PUB.ADD;
3336: RAISE FND_API.G_EXC_ERROR;
3337: END IF;
3338:
3339: -- Call INV_TXNSTUB_PUB.postTransaction only for logical PO receipt record
3340: -- of true dropship
3347: ( p_header_id => null
3348: ,p_transaction_id => p_mtl_trx_tbl(1).transaction_id
3349: ,x_return_status => l_return_status);
3350:
3351: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3352: IF (l_debug = 1) THEN
3353: print_debug('INV_TXNSTUB_PUB.postTransaction returns error: ' || l_msg_data, 9);
3354: END IF;
3355: RAISE FND_API.G_EXC_ERROR;
3351: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3352: IF (l_debug = 1) THEN
3353: print_debug('INV_TXNSTUB_PUB.postTransaction returns error: ' || l_msg_data, 9);
3354: END IF;
3355: RAISE FND_API.G_EXC_ERROR;
3356: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3357: IF (l_debug = 1) THEN
3358: print_debug('INV_TXNSTUB_PUB.postTransaction returns unexpected error: ' || l_msg_data, 9);
3359: END IF;
3352: IF (l_debug = 1) THEN
3353: print_debug('INV_TXNSTUB_PUB.postTransaction returns error: ' || l_msg_data, 9);
3354: END IF;
3355: RAISE FND_API.G_EXC_ERROR;
3356: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3357: IF (l_debug = 1) THEN
3358: print_debug('INV_TXNSTUB_PUB.postTransaction returns unexpected error: ' || l_msg_data, 9);
3359: END IF;
3360: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3356: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3357: IF (l_debug = 1) THEN
3358: print_debug('INV_TXNSTUB_PUB.postTransaction returns unexpected error: ' || l_msg_data, 9);
3359: END IF;
3360: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3361: ELSE
3362: IF (l_debug = 1) THEN
3363: print_debug('INV_TXNSTUB_PUB returns success', 9);
3364: END IF;
3391: || p_mtl_trx_tbl(1).transaction_id ,9);
3392: END IF;
3393: FND_MESSAGE.SET_NAME('INV', 'INV_MMT_NOT_FOUND');
3394: FND_MSG_PUB.ADD;
3395: RAISE FND_API.G_EXC_ERROR;
3396: END IF;
3397: END IF;
3398:
3399:
3423: IF (l_debug = 1) THEN
3424: print_debug('After calling price_update_insert, l_return_status = ' || l_return_status, 9);
3425: END IF;
3426:
3427: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3428: IF (l_debug = 1) THEN
3429: print_debug('price_update_insert returns error: ' || l_msg_data, 9);
3430: END IF;
3431: RAISE FND_API.G_EXC_ERROR;
3427: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3428: IF (l_debug = 1) THEN
3429: print_debug('price_update_insert returns error: ' || l_msg_data, 9);
3430: END IF;
3431: RAISE FND_API.G_EXC_ERROR;
3432: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3433: IF (l_debug = 1) THEN
3434: print_debug('price_update_insert returns unexpected error: ' || l_msg_data, 9);
3435: END IF;
3428: IF (l_debug = 1) THEN
3429: print_debug('price_update_insert returns error: ' || l_msg_data, 9);
3430: END IF;
3431: RAISE FND_API.G_EXC_ERROR;
3432: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3433: IF (l_debug = 1) THEN
3434: print_debug('price_update_insert returns unexpected error: ' || l_msg_data, 9);
3435: END IF;
3436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3432: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3433: IF (l_debug = 1) THEN
3434: print_debug('price_update_insert returns unexpected error: ' || l_msg_data, 9);
3435: END IF;
3436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3437: ELSE
3438: IF (l_debug = 1) THEN
3439: print_debug('price_update_insert returns success', 9);
3440: END IF;
3443: END IF;
3444:
3445: x_return_status := G_RET_STS_SUCCESS;
3446: EXCEPTION
3447: WHEN FND_API.G_EXC_ERROR THEN
3448: x_return_status := FND_API.G_RET_STS_ERROR;
3449: ROLLBACK TO create_logical_transactions;
3450:
3451: IF (l_debug = 1) THEN
3444:
3445: x_return_status := G_RET_STS_SUCCESS;
3446: EXCEPTION
3447: WHEN FND_API.G_EXC_ERROR THEN
3448: x_return_status := FND_API.G_RET_STS_ERROR;
3449: ROLLBACK TO create_logical_transactions;
3450:
3451: IF (l_debug = 1) THEN
3452: print_debug('create_logical_transactions: Expected Error, l_progress = ' || l_progress, 9);
3456:
3457: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3458:
3459:
3460: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3462: ROLLBACK TO create_logical_transactions;
3463:
3464: IF (l_debug = 1) THEN
3457: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3458:
3459:
3460: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3462: ROLLBACK TO create_logical_transactions;
3463:
3464: IF (l_debug = 1) THEN
3465: print_debug('create_logical_transactions: Unexpected Error, l_progress = ' || l_progress, 9);
3469:
3470: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3471:
3472: WHEN OTHERS THEN
3473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3474: ROLLBACK TO create_logical_transactions;
3475:
3476: IF (l_debug = 1) THEN
3477: print_debug('create_logical_transactions: Other Error, l_progress = ' || l_progress, 9);
3550: ( x_return_status => l_return_status
3551: , x_msg_count => l_msg_count
3552: , x_msg_data => l_msg_data
3553: , p_api_version_number => p_api_version
3554: , p_init_msg_lst => fnd_api.g_true
3555: , p_transaction_id => l_txn_rec.transaction_id
3556: );
3557: EXCEPTION
3558: WHEN OTHERS THEN
3618: | p_api_version_number - API version number
3619: |
3620: | p_init_msg_lst - Whether initialize the error message list
3621: | or not
3622: | Should be fnd_api.g_false or fnd_api.g_true
3623: |
3624: | p_organization_id - Organziation Id of the org that is being
3625: | closed .
3626: |
3633: | organization that is being closed.
3634: |
3635: | Output Parameters :
3636: |
3637: | x_return_status - fnd_api.g_ret_sts_success, if succeeded
3638: |
3639: | fnd_api.g_ret_sts_exc_error, if an expected
3640: |
3641: | error occurred
3635: | Output Parameters :
3636: |
3637: | x_return_status - fnd_api.g_ret_sts_success, if succeeded
3638: |
3639: | fnd_api.g_ret_sts_exc_error, if an expected
3640: |
3641: | error occurred
3642: |
3643: | fnd_api.g_ret_sts_unexp_error, if an
3639: | fnd_api.g_ret_sts_exc_error, if an expected
3640: |
3641: | error occurred
3642: |
3643: | fnd_api.g_ret_sts_unexp_error, if an
3644: | unexpected
3645: | eror occurred
3646: |
3647: | x_msg_count - Number of error message in the error message
3699: p_period_start_date IS NULL OR p_period_end_date IS NULL) then
3700: IF (l_debug = 1) THEN
3701: print_debug('Invalid input parameters', 9);
3702: END IF;
3703: RAISE FND_API.G_EXC_ERROR;
3704: END IF;
3705:
3706: IF (l_debug = 1) THEN
3707: print_debug('Before calling compatible API', 9);
3708: END IF;
3709:
3710:
3711: -- Standard call to check for call compatibility
3712: IF NOT fnd_api.compatible_api_call
3713: (l_api_version_number, l_in_api_version_number, l_api_name, g_pkg_name) THEN
3714: RAISE fnd_api.g_exc_unexpected_error;
3715: END IF;
3716:
3710:
3711: -- Standard call to check for call compatibility
3712: IF NOT fnd_api.compatible_api_call
3713: (l_api_version_number, l_in_api_version_number, l_api_name, g_pkg_name) THEN
3714: RAISE fnd_api.g_exc_unexpected_error;
3715: END IF;
3716:
3717: IF (l_debug = 1) THEN
3718: print_debug('Before calling init API', 9);
3718: print_debug('Before calling init API', 9);
3719: END IF;
3720:
3721: -- Initialize message list.
3722: IF fnd_api.to_boolean(l_init_msg_lst) THEN
3723: fnd_msg_pub.initialize;
3724: END IF;
3725:
3726: IF (l_debug = 1) THEN
3754: EXCEPTION
3755: WHEN others THEN
3756: IF (l_debug = 1) THEN
3757: print_debug('Timezone API returned error: ' || l_transaction_date, 9);
3758: RAISE fnd_api.g_exc_unexpected_error;
3759: END IF;
3760:
3761: END;
3762:
3806: ELSE
3807: x_period_close := 'N';
3808: x_return_status := G_RET_STS_UNEXP_ERROR;
3809: print_debug('Check Account Period Close: Count incorrect', 9);
3810: RAISE fnd_api.g_exc_unexpected_error;
3811: END IF;
3812:
3813: END LOOP;
3814:
3890: ELSE
3891: x_period_close := 'N';
3892: x_return_status := G_RET_STS_UNEXP_ERROR;
3893: print_debug('Check Account Period Close: Count incorrect', 9);
3894: RAISE fnd_api.g_exc_unexpected_error;
3895: END IF;
3896: *******/
3897:
3898: EXCEPTION
3895: END IF;
3896: *******/
3897:
3898: EXCEPTION
3899: WHEN FND_API.G_EXC_ERROR THEN
3900: x_return_status := FND_API.G_RET_STS_ERROR;
3901:
3902: IF (l_debug = 1) THEN
3903: print_debug('Check Account Period Close: Expected Error', 9);
3896: *******/
3897:
3898: EXCEPTION
3899: WHEN FND_API.G_EXC_ERROR THEN
3900: x_return_status := FND_API.G_RET_STS_ERROR;
3901:
3902: IF (l_debug = 1) THEN
3903: print_debug('Check Account Period Close: Expected Error', 9);
3904: print_debug('SQL Error: ' || Sqlerrm(SQLCODE),9);
3907:
3908: FND_MSG_PUB.count_and_get
3909: (p_count => x_msg_count, p_data => x_msg_data);
3910:
3911: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3912: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3913:
3914: IF (l_debug = 1) THEN
3915: print_debug('Check Account Period Close: Unexpected Error', 9);
3908: FND_MSG_PUB.count_and_get
3909: (p_count => x_msg_count, p_data => x_msg_data);
3910:
3911: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3912: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3913:
3914: IF (l_debug = 1) THEN
3915: print_debug('Check Account Period Close: Unexpected Error', 9);
3916: print_debug('SQL Error: ' || Sqlerrm(SQLCODE),9);
3920: FND_MSG_PUB.count_and_get
3921: (p_count => x_msg_count, p_data => x_msg_data);
3922:
3923: WHEN OTHERS THEN
3924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3925:
3926: IF (l_debug = 1) THEN
3927: print_debug('Check Account Period Close: Other Error', 9);
3928: print_debug('SQL Error: ' || Sqlerrm(SQLCODE),9);
4355: print_debug('p_transaction_temp_id = ' || p_transaction_temp_id, 9);
4356: END IF;
4357:
4358: -- Standard call to check for call compatibility
4359: IF NOT fnd_api.compatible_api_call(l_api_version_number,
4360: l_in_api_version_number, l_api_name, g_pkg_name)
4361: THEN
4362: RAISE fnd_api.g_exc_unexpected_error;
4363: END IF;
4358: -- Standard call to check for call compatibility
4359: IF NOT fnd_api.compatible_api_call(l_api_version_number,
4360: l_in_api_version_number, l_api_name, g_pkg_name)
4361: THEN
4362: RAISE fnd_api.g_exc_unexpected_error;
4363: END IF;
4364:
4365: -- Initialize message list.
4366: IF fnd_api.to_boolean(l_init_msg_lst)
4362: RAISE fnd_api.g_exc_unexpected_error;
4363: END IF;
4364:
4365: -- Initialize message list.
4366: IF fnd_api.to_boolean(l_init_msg_lst)
4367: THEN
4368: fnd_msg_pub.initialize;
4369: END IF;
4370:
4778: print_debug(' l_pri_qty: ' || l_pri_qty || ' l_owner_pri_uom: ' || l_owner_pri_uom, 9);
4779: print_debug(' l_sec_qty: ' || l_sec_qty || ' l_sec_uom: ' || l_sec_uom, 9);
4780: print_debug(' l_item_id: ' || l_item_id || ' l_owner_org_id: ' || l_owner_org_id, 9);
4781: END IF;
4782: RAISE FND_API.G_EXC_ERROR;
4783: END IF;
4784:
4785: -- dbms_output.put_line('INV_CONVERT.within_deviation (PASS) ');
4786: IF (l_debug = 1) THEN
4858: IF ( x_return_status <> G_RET_STS_SUCCESS )
4859: THEN
4860: print_debug(l_procedure_name || ': Error from INV_TRANSACTION_FLOW_PUB.convert_currency: ' ||
4861: x_msg_data, 9);
4862: IF x_return_status = FND_API.G_RET_STS_ERROR
4863: THEN
4864: RAISE FND_API.G_EXC_ERROR;
4865: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4866: THEN
4860: print_debug(l_procedure_name || ': Error from INV_TRANSACTION_FLOW_PUB.convert_currency: ' ||
4861: x_msg_data, 9);
4862: IF x_return_status = FND_API.G_RET_STS_ERROR
4863: THEN
4864: RAISE FND_API.G_EXC_ERROR;
4865: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4866: THEN
4867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4868: END IF;
4861: x_msg_data, 9);
4862: IF x_return_status = FND_API.G_RET_STS_ERROR
4863: THEN
4864: RAISE FND_API.G_EXC_ERROR;
4865: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4866: THEN
4867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4868: END IF;
4869: END IF;
4863: THEN
4864: RAISE FND_API.G_EXC_ERROR;
4865: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4866: THEN
4867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4868: END IF;
4869: END IF;
4870:
4871: -- Bug 5326088: Default to 1 otherwise it is NULL and hence transfer price is NULL.
5189: print_debug(l_procedure_name || 'l_msg_data = ' || l_msg_data, 9);
5190: END IF;
5191: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_GET_COST_GROUP');
5192: FND_MSG_PUB.ADD;
5193: RAISE FND_API.G_EXC_ERROR;
5194: END IF;
5195: */
5196: EXCEPTION
5197: WHEN no_data_found