[Home] [Help]
122: IF (l_debug = 1) THEN
123: print_debug('Cannot find so order line or OU for order line = '
124: || p_order_line_id, 9);
125: END IF;
126: RAISE FND_API.G_EXC_ERROR;
127: END;
128:
129: /* commented the selection of COA using LE - OU link which is obsoleted in R12
130: and replaced the code with selection of COAs using the API - INV_GLOBALS.GET_LEDGER_INFO
151: --the message compatible with LE uptake project
152: print_debug('Cannot find ledger id for the selling OU = '
153: || l_selling_org_id, 9);
154: END IF;
155: RAISE FND_API.G_EXC_ERROR;
156: END;
157:
158: BEGIN
159: SELECT chart_of_accounts_id
168: -- Modified the message text set of books to ledger for making the message compatible with LE uptake project
169: print_debug('Cannot find chart of accounts id for the Ledger ID = '
170: || l_sob_id, 9);
171: END IF;
172: RAISE FND_API.G_EXC_ERROR;
173: END;
174: */
175:
176: BEGIN
183: x_coa_id => l_coa_id,
184: p_account_info_context => 'BOTH');
185: IF NVL(lreturn_status , 'S') = 'E' THEN
186: print_debug('Cannot find Ledger Information for Operating Unit = '||l_selling_org_id , 9);
187: RAISE FND_API.G_EXC_ERROR;
188: END IF;
189: END;
190:
191: IF (l_debug = 1) THEN
215: IF (l_debug = 1) THEN
216: print_debug('l_success = FALSE', 9);
217: print_debug('error msg : ' || l_error_msg, 9);
218: END IF;
219: RAISE FND_API.G_EXC_ERROR;
220: END IF;
221:
222: x_return_status := G_RET_STS_SUCCESS;
223: EXCEPTION
220: END IF;
221:
222: x_return_status := G_RET_STS_SUCCESS;
223: EXCEPTION
224: WHEN FND_API.G_EXC_ERROR THEN
225: x_return_status := G_RET_STS_ERROR;
226: IF (l_debug = 1) THEN
227: print_debug('GET_COGS_FOR_LOGICAL_SO: Expected Error', 9);
228: print_debug('SQL Error: ' || Sqlerrm(SQLCODE), 9);
495: print_debug('l_msg_data = ' || l_msg_data, 9);
496: END IF;
497: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_GET_COST_GROUP');
498: FND_MSG_PUB.ADD;
499: RAISE FND_API.G_EXC_ERROR;
500: END IF;
501:
502:
503: /*Bug# 5027170. The column 'logical_transaction' is included in the following
721: | |
722: | Input Parameters : |
723: | p_api_version_number - API version number |
724: | p_init_msg_lst - Whether initialize the error message list or not|
725: | Should be fnd_api.g_false or fnd_api.g_true |
726: | p_transaction_id - transaction id of the inserted SO issue MMT |
727: | record. |
728: | p_transaction_temp_id - mmtt transaction temp id, only will be passed |
729: | from the inventory transaction manager for internal order intransit |
728: | p_transaction_temp_id - mmtt transaction temp id, only will be passed |
729: | from the inventory transaction manager for internal order intransit |
730: | issue transactions, where the destination type is EXPENSE |
731: | Output Parameters : |
732: | x_return_status - fnd_api.g_ret_sts_success, if succeeded |
733: | fnd_api.g_ret_sts_exc_error, if an expected |
734: | error occurred |
735: | fnd_api.g_ret_sts_unexp_error, if an unexpected |
736: | eror occurred |
729: | from the inventory transaction manager for internal order intransit |
730: | issue transactions, where the destination type is EXPENSE |
731: | Output Parameters : |
732: | x_return_status - fnd_api.g_ret_sts_success, if succeeded |
733: | fnd_api.g_ret_sts_exc_error, if an expected |
734: | error occurred |
735: | fnd_api.g_ret_sts_unexp_error, if an unexpected |
736: | eror occurred |
737: | x_msg_count - Number of error message in the error message |
731: | Output Parameters : |
732: | x_return_status - fnd_api.g_ret_sts_success, if succeeded |
733: | fnd_api.g_ret_sts_exc_error, if an expected |
734: | error occurred |
735: | fnd_api.g_ret_sts_unexp_error, if an unexpected |
736: | eror occurred |
737: | x_msg_count - Number of error message in the error message |
738: | list |
739: | x_msg_data - If the number of error message in the error |
786: print_debug('p_transaction_temp_id = ' || p_transaction_temp_id, 9);
787: END IF;
788:
789: -- Standard call to check for call compatibility
790: IF NOT fnd_api.compatible_api_call(l_api_version_number,
791: l_in_api_version_number, l_api_name, g_pkg_name) THEN
792: RAISE fnd_api.g_exc_unexpected_error;
793: END IF;
794:
788:
789: -- Standard call to check for call compatibility
790: IF NOT fnd_api.compatible_api_call(l_api_version_number,
791: l_in_api_version_number, l_api_name, g_pkg_name) THEN
792: RAISE fnd_api.g_exc_unexpected_error;
793: END IF;
794:
795: -- Initialize message list.
796: IF fnd_api.to_boolean(l_init_msg_lst) THEN
792: RAISE fnd_api.g_exc_unexpected_error;
793: END IF;
794:
795: -- Initialize message list.
796: IF fnd_api.to_boolean(l_init_msg_lst) THEN
797: fnd_msg_pub.initialize;
798: END IF;
799:
800:
825: IF (l_debug = 1) THEN
826: print_debug('AFter calling create_exp_req_rcpt_trx', 9);
827: END IF;
828:
829: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
830: IF (l_debug = 1) THEN
831: print_debug('create_exp_req_rcpt_trx returns error', 9);
832: END IF;
833: RAISE FND_API.G_EXC_ERROR;
829: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
830: IF (l_debug = 1) THEN
831: print_debug('create_exp_req_rcpt_trx returns error', 9);
832: END IF;
833: RAISE FND_API.G_EXC_ERROR;
834: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
835: IF (l_debug = 1) THEN
836: print_debug('create_exp_req_rcpt_trx returns unexpected error', 9);
837: END IF;
830: IF (l_debug = 1) THEN
831: print_debug('create_exp_req_rcpt_trx returns error', 9);
832: END IF;
833: RAISE FND_API.G_EXC_ERROR;
834: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
835: IF (l_debug = 1) THEN
836: print_debug('create_exp_req_rcpt_trx returns unexpected error', 9);
837: END IF;
838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
834: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
835: IF (l_debug = 1) THEN
836: print_debug('create_exp_req_rcpt_trx returns unexpected error', 9);
837: END IF;
838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
839: END IF;
840: IF (l_debug = 1) THEN
841: print_debug('create_exp_req_rcpt_trx returns success', 9);
842: END IF;
839: END IF;
840: IF (l_debug = 1) THEN
841: print_debug('create_exp_req_rcpt_trx returns success', 9);
842: END IF;
843: x_return_status := FND_API.G_RET_STS_SUCCESS;
844:
845: ELSE
846:
847: IF ((l_transaction_source_type_id = G_SOURCETYPE_SALESORDER and
894: print_debug('Cannot find the selling and shipping OU of the sales order', 9);
895: END IF;
896: FND_MESSAGE.SET_NAME('INV', 'INV_NO_OU');
897: FND_MSG_PUB.ADD;
898: RAISE FND_API.G_EXC_ERROR;
899: END;
900:
901: -- check if the selling OU is not the same as the shipping OU, the
902: -- transaction flow exists and new transaction flow is checked, then
947: END IF;
948:
949: INV_TRANSACTION_FLOW_PUB.check_transaction_flow(
950: p_api_version => 1.0
951: , p_init_msg_list => fnd_api.g_false
952: , p_start_operating_unit => l_shipping_OU
953: , p_end_operating_unit => l_selling_OU
954: , p_flow_type => G_SHIPPING
955: , p_organization_id => l_ship_from_org_id
973: IF (l_return_status = G_RET_STS_ERROR) THEN
974: IF (l_debug = 1) THEN
975: print_debug('Check trx flow returns error: ' || l_msg_data, 9);
976: END IF;
977: RAISE FND_API.G_EXC_ERROR;
978: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
979: IF (l_debug = 1) THEN
980: print_debug('Check trx flow returns unexpected error: ' || l_msg_data, 9);
981: END IF;
978: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
979: IF (l_debug = 1) THEN
980: print_debug('Check trx flow returns unexpected error: ' || l_msg_data, 9);
981: END IF;
982: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
983: END IF;
984:
985: IF (l_debug = 1) THEN
986: print_debug('Check trx flow returns success', 9);
1003: EXCEPTION
1004: WHEN no_data_found THEN
1005: IF (l_debug = 1) THEN
1006: print_debug('No MMT found while updating so_issue_acct_type' || p_transaction_id, 9);
1007: x_return_status:= FND_API.g_ret_sts_error;
1008: END IF;
1009: END;
1010: x_return_status := FND_API.G_RET_STS_SUCCESS;
1011: return;
1006: print_debug('No MMT found while updating so_issue_acct_type' || p_transaction_id, 9);
1007: x_return_status:= FND_API.g_ret_sts_error;
1008: END IF;
1009: END;
1010: x_return_status := FND_API.G_RET_STS_SUCCESS;
1011: return;
1012: END IF; -- end of (l_selling_OU <> l_shipping_OU)
1013: l_progress := 50;
1014: --Bug 5103108: Added this condition so that other transaction
1051: print_debug('Costing Release Level < Costing J Release Level', 9);
1052: END IF;
1053: FND_MESSAGE.SET_NAME('INV', 'INV_CST_JRELEASE');
1054: FND_MSG_PUB.ADD;
1055: RAISE FND_API.G_EXC_ERROR;
1056: ELSIF (OE_CODE_CONTROL.Get_Code_Release_Level < '110510') THEN
1057: IF (l_debug = 1) THEN
1058: print_debug('OM Release Level < 110510', 9);
1059: END IF;
1058: print_debug('OM Release Level < 110510', 9);
1059: END IF;
1060: FND_MESSAGE.SET_NAME('INV', 'INV_OM_JRELEASE');
1061: FND_MSG_PUB.ADD;
1062: RAISE FND_API.G_EXC_ERROR;
1063: END IF;
1064:
1065: IF (l_debug = 1) THEN
1066: print_debug('l_transaction_flow_exists=1 AND l_new_accounting_flag=Y', 9);
1185: print_debug('Error when creating logical trx table', 9);
1186: END IF;
1187: FND_MESSAGE.SET_NAME('INV', 'INV_LOG_TRX_REC_ERROR');
1188: FND_MSG_PUB.ADD;
1189: RAISE FND_API.G_EXC_ERROR ;
1190: END;
1191:
1192: --bug fix - the defer flag should be set only if it is being
1193: -- called by the concurrent program which will set the value of
1220: IF (l_debug = 1) THEN
1221: print_debug('AFter calling create_logical_transactions', 9);
1222: END IF;
1223:
1224: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1225: IF (l_debug = 1) THEN
1226: print_debug('create_logical_transactions returns error', 9);
1227: END IF;
1228: RAISE FND_API.G_EXC_ERROR;
1224: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1225: IF (l_debug = 1) THEN
1226: print_debug('create_logical_transactions returns error', 9);
1227: END IF;
1228: RAISE FND_API.G_EXC_ERROR;
1229: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1230: IF (l_debug = 1) THEN
1231: print_debug('create_logical_transactions returns unexpected error', 9);
1232: END IF;
1225: IF (l_debug = 1) THEN
1226: print_debug('create_logical_transactions returns error', 9);
1227: END IF;
1228: RAISE FND_API.G_EXC_ERROR;
1229: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1230: IF (l_debug = 1) THEN
1231: print_debug('create_logical_transactions returns unexpected error', 9);
1232: END IF;
1233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1229: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1230: IF (l_debug = 1) THEN
1231: print_debug('create_logical_transactions returns unexpected error', 9);
1232: END IF;
1233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1234: END IF;
1235: IF (l_debug = 1) THEN
1236: print_debug('create_logical_transactions returns success', 9);
1237: END IF;
1246: || p_transaction_id ,9);
1247: END IF;
1248: FND_MESSAGE.SET_NAME('INV', 'INV_MMT_NOT_FOUND');
1249: FND_MSG_PUB.ADD;
1250: RAISE FND_API.G_EXC_ERROR;
1251: END IF;
1252: ELSIF (l_transaction_flow_exists = INV_TRANSACTION_FLOW_PUB.G_TRANSACTION_FLOW_FOUND
1253: AND l_new_accounting_flag = 'N') THEN
1254: IF (l_debug = 1) THEN
1267: || p_transaction_id ,9);
1268: END IF;
1269: FND_MESSAGE.SET_NAME('INV', 'INV_MMT_NOT_FOUND');
1270: FND_MSG_PUB.ADD;
1271: RAISE FND_API.G_EXC_ERROR;
1272: END IF;
1273:
1274: END IF;--end of (l_transaction_flow_exists = 1 AND l_new_accounting_flag = 'Y')
1275: x_return_status := FND_API.G_RET_STS_SUCCESS;
1271: RAISE FND_API.G_EXC_ERROR;
1272: END IF;
1273:
1274: END IF;--end of (l_transaction_flow_exists = 1 AND l_new_accounting_flag = 'Y')
1275: x_return_status := FND_API.G_RET_STS_SUCCESS;
1276: END IF;--End condition for 'if' internal order int shipment trx.
1277: EXCEPTION
1278: WHEN FND_API.G_EXC_ERROR THEN
1279: IF (l_debug = 1) THEN
1274: END IF;--end of (l_transaction_flow_exists = 1 AND l_new_accounting_flag = 'Y')
1275: x_return_status := FND_API.G_RET_STS_SUCCESS;
1276: END IF;--End condition for 'if' internal order int shipment trx.
1277: EXCEPTION
1278: WHEN FND_API.G_EXC_ERROR THEN
1279: IF (l_debug = 1) THEN
1280: print_debug('create_logical_trx_wrapper error exception, l_progress = '
1281: || l_progress, 9);
1282: END IF;
1279: IF (l_debug = 1) THEN
1280: print_debug('create_logical_trx_wrapper error exception, l_progress = '
1281: || l_progress, 9);
1282: END IF;
1283: x_return_status := FND_API.G_RET_STS_ERROR;
1284: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1285:
1286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1287: IF (l_debug = 1) THEN
1282: END IF;
1283: x_return_status := FND_API.G_RET_STS_ERROR;
1284: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1285:
1286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1287: IF (l_debug = 1) THEN
1288: print_debug('create_logical_trx_wrapper unexpected error exception,l_progress = ' || l_progress, 9);
1289: END IF;
1290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1287: IF (l_debug = 1) THEN
1288: print_debug('create_logical_trx_wrapper unexpected error exception,l_progress = ' || l_progress, 9);
1289: END IF;
1290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1291: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1292:
1293: WHEN OTHERS THEN
1294: IF (l_debug = 1) THEN
1293: WHEN OTHERS THEN
1294: IF (l_debug = 1) THEN
1295: print_debug('create_logical_trx_wrapper other exception, l_progress = ' || l_progress || ' ' || substr(sqlerrm, 1, 100), 9);
1296: END IF;
1297: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1298: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1299:
1300: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1301: FND_MSG_PUB.Add_Exc_Msg
1329: | |
1330: | Input Parameters: |
1331: | p_api_version_number - API version number |
1332: | p_init_msg_lst - Whether initialize the error message list or not |
1333: | Should be fnd_api.g_false or fnd_api.g_true |
1334: | p_mtl_trx_tbl - An array of mtl_trx_rec_type records, the definition |
1335: | is in the INV_LOGICAL_TRANSACTION_GLOBAL package. |
1336: | p_validation_flag - To indicate whether the call to this API is a trusted|
1337: | call or not. Depending on this flag, we will decide |
1379: | not done the creation of the logical transactions|
1380: | and this API would have to explode the |
1381: | intermediate nodes. |
1382: | Output Parameters: |
1383: | x_return_status - fnd_api.g_ret_sts_success, if succeeded |
1384: | fnd_api.g_ret_sts_exc_error, if an expected error |
1385: | occurred |
1386: | fnd_api.g_ret_sts_unexp_error, if an unexpected error |
1387: | occurred |
1380: | and this API would have to explode the |
1381: | intermediate nodes. |
1382: | Output Parameters: |
1383: | x_return_status - fnd_api.g_ret_sts_success, if succeeded |
1384: | fnd_api.g_ret_sts_exc_error, if an expected error |
1385: | occurred |
1386: | fnd_api.g_ret_sts_unexp_error, if an unexpected error |
1387: | occurred |
1388: | x_msg_count - Number of error message in the error message list |
1382: | Output Parameters: |
1383: | x_return_status - fnd_api.g_ret_sts_success, if succeeded |
1384: | fnd_api.g_ret_sts_exc_error, if an expected error |
1385: | occurred |
1386: | fnd_api.g_ret_sts_unexp_error, if an unexpected error |
1387: | occurred |
1388: | x_msg_count - Number of error message in the error message list |
1389: | x_msg_data - If the number of error message in the error message |
1390: | message list is one, the error message is in |
1473: print_debug('p_exploded_flag = ' || p_exploded_flag, 9);
1474: END IF;
1475:
1476: -- Standard call to check for call compatibility
1477: IF NOT fnd_api.compatible_api_call(l_api_version_number,
1478: l_in_api_version_number, l_api_name, g_pkg_name) THEN
1479: RAISE fnd_api.g_exc_unexpected_error;
1480: END IF;
1481:
1475:
1476: -- Standard call to check for call compatibility
1477: IF NOT fnd_api.compatible_api_call(l_api_version_number,
1478: l_in_api_version_number, l_api_name, g_pkg_name) THEN
1479: RAISE fnd_api.g_exc_unexpected_error;
1480: END IF;
1481:
1482: -- Initialize message list.
1483: IF fnd_api.to_boolean(l_init_msg_lst) THEN
1479: RAISE fnd_api.g_exc_unexpected_error;
1480: END IF;
1481:
1482: -- Initialize message list.
1483: IF fnd_api.to_boolean(l_init_msg_lst) THEN
1484: fnd_msg_pub.initialize;
1485: END IF;
1486:
1487:
1511: print_debug('Cannot get defer logical trx flag from mtl_parameters', 9);
1512: END IF;
1513: FND_MESSAGE.SET_NAME('INV', 'INV_DEFER_LOGICAL_ERR');
1514: FND_MSG_PUB.ADD;
1515: RAISE FND_API.G_EXC_ERROR;
1516: END;
1517: END IF;
1518:
1519: IF (l_debug = 1) THEN
1548: print_debug('x_msg_data = ' || x_msg_data, 9);
1549: END IF;
1550: FND_MESSAGE.SET_NAME('INV', 'INV_PERIOD_RETRIEVAL_ERROR');
1551: FND_MSG_PUB.ADD;
1552: RAISE FND_API.G_EXC_ERROR;
1553: END IF;
1554: END IF;
1555:
1556: -- get the project if the locator is populated and tied to project
1606: print_debug('l_msg_data = ' || l_msg_data, 9);
1607: END IF;
1608: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_GET_COST_GROUP');
1609: FND_MSG_PUB.ADD;
1610: RAISE FND_API.G_EXC_ERROR;
1611: END IF;
1612:
1613: l_mtl_trx_tbl(i).costed_flag := 'N';
1614: l_mtl_trx_tbl(i).invoiced_flag := null;
1641: print_debug('Records are not exploded', 9);
1642: END IF;
1643: FND_MESSAGE.SET_NAME('INV', 'INV_REC_NOT_EXPLODED');
1644: FND_MSG_PUB.ADD;
1645: RAISE FND_API.G_EXC_ERROR;
1646: END IF;
1647:
1648: IF (l_debug = 1) THEN
1649: print_debug('Get the start OU from the transaction flow header', 9);
1697: print_debug('x_msg_data = ' || x_msg_data, 9);
1698: END IF;
1699: FND_MESSAGE.SET_NAME('INV', 'INV_PERIOD_RETRIEVAL_ERROR');
1700: FND_MSG_PUB.ADD;
1701: RAISE FND_API.G_EXC_ERROR;
1702: END IF;
1703: END IF;
1704:
1705: -- Populate cost group id to the record
1763: print_debug('l_msg_data = ' || l_msg_data, 9);
1764: END IF;
1765: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_GET_COST_GROUP');
1766: FND_MSG_PUB.ADD;
1767: RAISE FND_API.G_EXC_ERROR;
1768: END IF;
1769: END IF;
1770:
1771: IF (l_mtl_trx_tbl(i).transfer_cost_group_id is null) THEN
1785: print_debug('l_msg_data = ' || l_msg_data, 9);
1786: END IF;
1787: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_GET_COST_GROUP');
1788: FND_MSG_PUB.ADD;
1789: RAISE FND_API.G_EXC_ERROR;
1790: END IF;
1791: END IF;
1792: END IF;
1793: END LOOP;
1807: IF (l_debug = 1) THEN
1808: print_debug('Cannot defer creating logical trx for global proc/return to vendor', 9);
1809: END IF;
1810:
1811: x_return_status := FND_API.G_RET_STS_ERROR;
1812: FND_MESSAGE.SET_NAME('INV', 'INV_CANNOT_DEFER_LOGICAL_TRX');
1813: FND_MSG_PUB.ADD;
1814: RAISE FND_API.G_EXC_ERROR;
1815: END IF; -- end of if (l_defer_logical_trx = G_NOT_DEFER_LOGICAL_TRX)
1810:
1811: x_return_status := FND_API.G_RET_STS_ERROR;
1812: FND_MESSAGE.SET_NAME('INV', 'INV_CANNOT_DEFER_LOGICAL_TRX');
1813: FND_MSG_PUB.ADD;
1814: RAISE FND_API.G_EXC_ERROR;
1815: END IF; -- end of if (l_defer_logical_trx = G_NOT_DEFER_LOGICAL_TRX)
1816: -- true dropship(shipping flow)/SO issue across OUs/RMA return
1817: ELSIF (p_logical_trx_type_code = G_LOGTRXCODE_DSDELIVER
1818: or p_logical_trx_type_code = G_LOGTRXCODE_RMASOISSUE) THEN
1822: IF (l_debug = 1) THEN
1823: print_debug('Cannot defer creating logical trx for true dropship', 9);
1824: END IF;
1825:
1826: x_return_status := FND_API.G_RET_STS_ERROR;
1827: FND_MESSAGE.SET_NAME('INV', 'INV_CANNOT_DEFER_LOGICAL_TRX');
1828: FND_MSG_PUB.ADD;
1829: RAISE FND_API.G_EXC_ERROR;
1830: ELSIF (p_logical_trx_type_code = G_LOGTRXCODE_RMASOISSUE
1825:
1826: x_return_status := FND_API.G_RET_STS_ERROR;
1827: FND_MESSAGE.SET_NAME('INV', 'INV_CANNOT_DEFER_LOGICAL_TRX');
1828: FND_MSG_PUB.ADD;
1829: RAISE FND_API.G_EXC_ERROR;
1830: ELSIF (p_logical_trx_type_code = G_LOGTRXCODE_RMASOISSUE
1831: and l_defer_logical_trx = G_DEFER_LOGICAL_TRX) THEN
1832: -- If sales order issue/RMA and yes defer flag, update the MMT record
1833:
1848: print_debug('No MMT record is found to update with logical_transactions_created=N', 9);
1849: END IF;
1850: FND_MESSAGE.SET_NAME('INV', 'INV_MMT_NOT_FOUND');
1851: FND_MSG_PUB.ADD;
1852: RAISE FND_API.G_EXC_ERROR;
1853: END IF;
1854: return;
1855: END IF;
1856:
1883: print_debug('Transaction flow not defined for header_id = ' || p_trx_flow_header_id, 9);
1884: END IF;
1885: FND_MESSAGE.SET_NAME('INV', 'INV_NO_TRX_FLOW');
1886: FND_MSG_PUB.ADD;
1887: RAISE FND_API.G_EXC_ERROR;
1888: END;
1889:
1890: -- For dropship deliver, get the sales order id and populate to transaction_source_id
1891: -- Also get the lot_control_code and serial_control_code of the item.
1967: print_debug('no sales order found for line id = ' || l_mtl_trx_tbl(1).trx_source_line_id, 9);
1968: END IF;
1969: FND_MESSAGE.SET_NAME('INV', 'INV_NO_SO');
1970: FND_MSG_PUB.ADD;
1971: RAISE FND_API.G_EXC_ERROR;
1972:
1973: WHEN others THEN
1974: IF (l_debug = 1) THEN
1975: print_debug('when others ' || sqlerrm, 9);
1976: print_Debug('l_progress = ' || l_progress, 9);
1977: END IF;
1978: FND_MESSAGE.SET_NAME('INV', 'INV_NO_SO');
1979: FND_MSG_PUB.ADD;
1980: RAISE FND_API.G_EXC_ERROR;
1981: END;
1982:
1983: IF (l_debug = 1) THEN
1984: print_debug('sales order id = ' ||
2062: print_debug('l_msg_data = ' || l_msg_data, 9);
2063: END IF;
2064: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_GET_COST_GROUP');
2065: FND_MSG_PUB.ADD;
2066: RAISE FND_API.G_EXC_ERROR;
2067: END IF;
2068:
2069: IF (l_mtl_trx_tbl(1).acct_period_id IS NULL) THEN
2070: l_progress := 260;
2081: print_debug('x_msg_data = ' || x_msg_data, 9);
2082: END IF;
2083: FND_MESSAGE.SET_NAME('INV', 'INV_PERIOD_RETRIEVAL_ERROR');
2084: FND_MSG_PUB.ADD;
2085: RAISE FND_API.G_EXC_ERROR;
2086: END IF;
2087: END IF;
2088:
2089: l_mtl_trx_tbl(1).costed_flag := 'N';
2131: print_debug('l_msg_data = ' || l_msg_data, 9);
2132: END IF;
2133: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_GET_COST_GROUP');
2134: FND_MSG_PUB.ADD;
2135: RAISE FND_API.G_EXC_ERROR;
2136: END IF;
2137: END IF;
2138:
2139: l_mtl_trx_tbl(1).currency_code := null;
2168: print_debug('l_msg_data = ' || l_msg_data, 9);
2169: END IF;
2170: FND_MESSAGE.SET_NAME('INV', 'INV_NO_COGS_FOR_LOG_SO');
2171: FND_MSG_PUB.ADD;
2172: RAISE FND_API.G_EXC_ERROR;
2173: END IF;
2174:
2175: l_progress := 300;
2176: SELECT mtl_material_transactions_s.nextval
2198: , x_msg_data => l_msg_data
2199: , x_msg_count => l_msg_count
2200: , x_transaction_flows_tbl => l_trx_flow_tbl
2201: , p_api_version => 1.0
2202: , p_init_msg_list => fnd_api.g_false
2203: , p_header_id => p_trx_flow_header_id
2204: , p_get_default_cost_group => 'Y');
2205:
2206: IF (l_debug = 1) THEN
2207: print_debug('get_transaction_flow returns status = ' || l_return_status, 9);
2208: print_debug('Transaction flow counts = ' || l_trx_flow_tbl.COUNT, 9);
2209: END IF;
2210:
2211: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2212: IF (l_debug = 1) THEN
2213: print_debug('get_transaction_flow returns error: ' || l_msg_data, 9);
2214: END IF;
2215: RAISE FND_API.G_EXC_ERROR;
2211: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2212: IF (l_debug = 1) THEN
2213: print_debug('get_transaction_flow returns error: ' || l_msg_data, 9);
2214: END IF;
2215: RAISE FND_API.G_EXC_ERROR;
2216: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2217: IF (l_debug = 1) THEN
2218: print_debug('get_transaction_flow returns unexpected error: ' || l_msg_data, 9);
2219: END IF;
2212: IF (l_debug = 1) THEN
2213: print_debug('get_transaction_flow returns error: ' || l_msg_data, 9);
2214: END IF;
2215: RAISE FND_API.G_EXC_ERROR;
2216: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2217: IF (l_debug = 1) THEN
2218: print_debug('get_transaction_flow returns unexpected error: ' || l_msg_data, 9);
2219: END IF;
2220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2216: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2217: IF (l_debug = 1) THEN
2218: print_debug('get_transaction_flow returns unexpected error: ' || l_msg_data, 9);
2219: END IF;
2220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2221: END IF;
2222:
2223: -- If there is transaction flow, then get the the transfer price
2224: -- and construct a pl/sql transfer price table
2266: , x_currency_code => l_transfer_price_tbl(i).functional_currency_code
2267: , x_incr_transfer_price => l_transfer_price_tbl(i).incr_transfer_price
2268: , x_incr_currency_code => l_transfer_price_tbl(i).incr_currency_code
2269: , p_api_version => 1.0
2270: , p_init_msg_list => fnd_api.g_false
2271: , p_from_org_id => l_transfer_price_tbl(i).from_org_id
2272: , p_to_org_id => l_transfer_price_tbl(i).to_org_id
2273: , p_transaction_uom => l_mtl_trx_tbl(1).transaction_uom
2274: , p_inventory_item_id => l_mtl_trx_tbl(1).inventory_item_id
2280: IF (l_debug = 1) THEN
2281: print_debug('get_transfer_price returns status = ' || l_return_status, 9);
2282: END IF;
2283:
2284: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2285: IF (l_debug = 1) THEN
2286: print_debug('get_transfer_price returns error: ' || l_msg_data, 9);
2287: END IF;
2288: RAISE FND_API.G_EXC_ERROR;
2284: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2285: IF (l_debug = 1) THEN
2286: print_debug('get_transfer_price returns error: ' || l_msg_data, 9);
2287: END IF;
2288: RAISE FND_API.G_EXC_ERROR;
2289: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2290: IF (l_debug = 1) THEN
2291: print_debug('get_transfer_price returns unexpected error: ' || l_msg_data, 9);
2292: END IF;
2285: IF (l_debug = 1) THEN
2286: print_debug('get_transfer_price returns error: ' || l_msg_data, 9);
2287: END IF;
2288: RAISE FND_API.G_EXC_ERROR;
2289: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2290: IF (l_debug = 1) THEN
2291: print_debug('get_transfer_price returns unexpected error: ' || l_msg_data, 9);
2292: END IF;
2293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2289: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2290: IF (l_debug = 1) THEN
2291: print_debug('get_transfer_price returns unexpected error: ' || l_msg_data, 9);
2292: END IF;
2293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2294: END IF;
2295: END LOOP;
2296:
2297: IF (l_debug = 1) THEN
2327: || l_mtl_trx_tbl(1).inventory_item_id, 9);
2328: END IF;
2329: FND_MESSAGE.SET_NAME('INV', 'INV_NO_ITEM_FOUND');
2330: FND_MSG_PUB.ADD;
2331: RAISE FND_API.G_EXC_ERROR;
2332: END;
2333:
2334: -- loop for each record of transaction flow table and construct the logical
2335: -- transaction table
2437: print_debug('x_msg_data = ' || x_msg_data, 9);
2438: END IF;
2439: FND_MESSAGE.SET_NAME('INV', 'INV_PERIOD_RETRIEVAL_ERROR');
2440: FND_MSG_PUB.ADD;
2441: RAISE FND_API.G_EXC_ERROR;
2442: END IF;
2443:
2444: IF (l_inv_asset_flag = 'Y') THEN
2445: l_mtl_trx_tbl(l_index).distribution_account_id := l_trx_flow_tbl(i).INVENTORY_ACCRUAL_ACCOUNT_ID;
2466: WHEN NO_DATA_FOUND THEN
2467: print_debug('Item not found for item id: '|| l_mtl_trx_tbl(1).inventory_item_id, 9);
2468: FND_MESSAGE.SET_NAME('INV', 'INV_NO_ITEM_FOUND');
2469: FND_MSG_PUB.ADD;
2470: RAISE FND_API.G_EXC_ERROR;
2471: END;
2472:
2473: print_debug('Transaction UOM is: '||p_mtl_trx_tbl(1).transaction_uom, 9);
2474:
2508: , x_return_status => l_return_status
2509: , x_msg_data => l_msg_data
2510: , x_msg_count => l_msg_count);
2511:
2512: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2513: IF (l_debug = 1) THEN
2514: print_debug('l_return_status = ' || l_return_status, 9);
2515: print_debug('l_msg_data = ' || l_msg_data, 9);
2516: RAISE FND_API.G_EXC_ERROR;
2512: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2513: IF (l_debug = 1) THEN
2514: print_debug('l_return_status = ' || l_return_status, 9);
2515: print_debug('l_msg_data = ' || l_msg_data, 9);
2516: RAISE FND_API.G_EXC_ERROR;
2517: END IF;
2518: END IF;
2519:
2520: l_mtl_trx_tbl(l_index).transaction_cost := round(l_mtl_trx_tbl(l_index).transaction_cost,2);
2628: print_debug('x_msg_data = ' || x_msg_data, 9);
2629: END IF;
2630: FND_MESSAGE.SET_NAME('INV', 'INV_PERIOD_RETRIEVAL_ERROR');
2631: FND_MSG_PUB.ADD;
2632: RAISE FND_API.G_EXC_ERROR;
2633: END IF;
2634:
2635: IF (l_inv_asset_flag = 'Y') THEN
2636: l_mtl_trx_tbl(l_index).distribution_account_id := l_trx_flow_tbl(i).INVENTORY_ACCRUAL_ACCOUNT_ID;
2653: WHEN NO_DATA_FOUND THEN
2654: print_debug('Item not found for item id: '|| l_mtl_trx_tbl(1).inventory_item_id, 9);
2655: FND_MESSAGE.SET_NAME('INV', 'INV_NO_ITEM_FOUND');
2656: FND_MSG_PUB.ADD;
2657: RAISE FND_API.G_EXC_ERROR;
2658: END;
2659: l_uom_rate := 1;
2660:
2661: print_debug('Transaction UOM is: '||p_mtl_trx_tbl(1).transaction_uom, 9);
2694: , x_functional_currency_code => l_mtl_trx_tbl(l_index).currency_code
2695: , x_return_status => l_return_status
2696: , x_msg_data => l_msg_data
2697: , x_msg_count => l_msg_count);
2698: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2699: IF (l_debug = 1) THEN
2700: print_debug('l_return_status = ' || l_return_status, 9);
2701: print_debug('l_msg_data = ' || l_msg_data, 9);
2702: RAISE FND_API.G_EXC_ERROR;
2698: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2699: IF (l_debug = 1) THEN
2700: print_debug('l_return_status = ' || l_return_status, 9);
2701: print_debug('l_msg_data = ' || l_msg_data, 9);
2702: RAISE FND_API.G_EXC_ERROR;
2703: END IF;
2704: END IF;
2705:
2706: l_mtl_trx_tbl(l_index).transaction_cost := round(l_mtl_trx_tbl(l_index).transaction_cost,2);
2764: print_debug('l_msg_data = ' || l_msg_data, 9);
2765: END IF;
2766: FND_MESSAGE.SET_NAME('INV', 'INV_NO_COGS_FOR_LOG_SO');
2767: FND_MSG_PUB.ADD;
2768: RAISE FND_API.G_EXC_ERROR;
2769: END IF;
2770:
2771: l_mtl_trx_tbl(l_index).currency_code := null;
2772: l_mtl_trx_tbl(l_index).transaction_cost := l_mtl_trx_tbl(l_index-1).transaction_cost;
2923: print_debug('Transaction type not found', 9);
2924: END IF;
2925: FND_MESSAGE.SET_NAME('INV', 'INV_TRX_TYPE_ERROR');
2926: FND_MSG_PUB.ADD;
2927: RAISE FND_API.G_EXC_ERROR;
2928: END;
2929: ELSE
2930: IF (l_debug = 1) THEN
2931: print_debug('Trx action id, trx source type id or trx type is invalid', 9);
2931: print_debug('Trx action id, trx source type id or trx type is invalid', 9);
2932: END IF;
2933: FND_MESSAGE.SET_NAME('INV', 'INV_TRX_TYPE_ERROR');
2934: FND_MSG_PUB.ADD;
2935: RAISE FND_API.G_EXC_ERROR;
2936: END IF;
2937: END IF;
2938: END LOOP;
2939: END IF;
2953: , p_mtl_trx_tbl => l_mtl_trx_tbl
2954: , p_validation_level => p_validation_flag
2955: , p_logical_trx_type_code => p_logical_trx_type_code);
2956:
2957: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2958: IF (l_debug = 1) THEN
2959: print_debug('Validate_input_parameters returns error: ' || l_msg_data, 9);
2960: END IF;
2961: RAISE FND_API.G_EXC_ERROR;
2957: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2958: IF (l_debug = 1) THEN
2959: print_debug('Validate_input_parameters returns error: ' || l_msg_data, 9);
2960: END IF;
2961: RAISE FND_API.G_EXC_ERROR;
2962: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2963: IF (l_debug = 1) THEN
2964: print_debug('Validate_input_parameters returns unexpected error: ' || l_msg_data, 9);
2965: END IF;
2958: IF (l_debug = 1) THEN
2959: print_debug('Validate_input_parameters returns error: ' || l_msg_data, 9);
2960: END IF;
2961: RAISE FND_API.G_EXC_ERROR;
2962: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2963: IF (l_debug = 1) THEN
2964: print_debug('Validate_input_parameters returns unexpected error: ' || l_msg_data, 9);
2965: END IF;
2966: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2962: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2963: IF (l_debug = 1) THEN
2964: print_debug('Validate_input_parameters returns unexpected error: ' || l_msg_data, 9);
2965: END IF;
2966: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2967: END IF;
2968: END IF;
2969:
2970: -- validate_input_parameters returns success, call inv_mmt_insert to insert the
2978: x_return_status => l_return_status
2979: , x_msg_count => l_msg_count
2980: , x_msg_data => l_msg_data
2981: , p_api_version_number => 1.0
2982: , p_init_msg_lst => fnd_api.g_false
2983: , p_mtl_trx_tbl => l_mtl_trx_tbl
2984: , p_logical_trx_type_code => p_logical_trx_type_code);
2985:
2986: IF (l_debug = 1) THEN
2986: IF (l_debug = 1) THEN
2987: print_debug('After calling inv_mmt_insert, return status = ' || l_return_status, 9);
2988: END IF;
2989:
2990: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2991: IF (l_debug = 1) THEN
2992: print_debug('inv_mmt_insert returns error: ' || l_msg_data, 9);
2993: END IF;
2994: RAISE FND_API.G_EXC_ERROR;
2990: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2991: IF (l_debug = 1) THEN
2992: print_debug('inv_mmt_insert returns error: ' || l_msg_data, 9);
2993: END IF;
2994: RAISE FND_API.G_EXC_ERROR;
2995: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2996: IF (l_debug = 1) THEN
2997: print_debug('inv_mmt_insert returns unexpected error: ' || l_msg_data, 9);
2998: END IF;
2991: IF (l_debug = 1) THEN
2992: print_debug('inv_mmt_insert returns error: ' || l_msg_data, 9);
2993: END IF;
2994: RAISE FND_API.G_EXC_ERROR;
2995: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2996: IF (l_debug = 1) THEN
2997: print_debug('inv_mmt_insert returns unexpected error: ' || l_msg_data, 9);
2998: END IF;
2999: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2995: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2996: IF (l_debug = 1) THEN
2997: print_debug('inv_mmt_insert returns unexpected error: ' || l_msg_data, 9);
2998: END IF;
2999: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3000: END IF;
3001:
3002: -- For dropship deliver, if the item is lot or serial controlled, we need to
3003: -- insert into mtl_transaction_lot_numbers or mtl_unit_transactions
3008: (x_return_status => l_return_status,
3009: x_msg_count => l_msg_count,
3010: x_msg_data => l_msg_data,
3011: p_api_version_number => 1.0,
3012: p_init_msg_lst => fnd_api.g_false,
3013: p_parent_transaction_id => l_mtl_trx_tbl(1).parent_transaction_id,
3014: p_transaction_id => l_mtl_trx_tbl(1).transaction_id,
3015: p_lot_control_code => l_lot_control_code,
3016: p_serial_control_code => l_serial_control_code,
3019: p_primary_quantity => l_mtl_trx_tbl(1).primary_quantity,
3020: p_trx_source_type_id => l_mtl_trx_tbl(1).transaction_source_type_id,
3021: p_revision => l_mtl_trx_tbl(1).revision);
3022:
3023: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3024: IF (l_debug = 1) THEN
3025: print_debug('inv_lot_serial_insert returns error: ' || l_msg_data, 9);
3026: END IF;
3027: RAISE FND_API.G_EXC_ERROR;
3023: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3024: IF (l_debug = 1) THEN
3025: print_debug('inv_lot_serial_insert returns error: ' || l_msg_data, 9);
3026: END IF;
3027: RAISE FND_API.G_EXC_ERROR;
3028: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3029: IF (l_debug = 1) THEN
3030: print_debug('inv_lot_serial_insert returns unexpected error: ' || l_msg_data, 9);
3031: END IF;
3024: IF (l_debug = 1) THEN
3025: print_debug('inv_lot_serial_insert returns error: ' || l_msg_data, 9);
3026: END IF;
3027: RAISE FND_API.G_EXC_ERROR;
3028: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3029: IF (l_debug = 1) THEN
3030: print_debug('inv_lot_serial_insert returns unexpected error: ' || l_msg_data, 9);
3031: END IF;
3032: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3028: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3029: IF (l_debug = 1) THEN
3030: print_debug('inv_lot_serial_insert returns unexpected error: ' || l_msg_data, 9);
3031: END IF;
3032: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3033: END IF;
3034: END IF;
3035:
3036: IF (l_mtl_trx_tbl(1).lpn_id IS NOT NULL) THEN
3047: || l_mtl_trx_tbl(1).lpn_id ,9);
3048: END IF;
3049: FND_MESSAGE.SET_NAME('INV', 'INV_LPN_UPDATE_FAILURE');
3050: FND_MSG_PUB.ADD;
3051: RAISE FND_API.G_EXC_ERROR;
3052: END IF;
3053: ******/
3054: --Calling wms_container_pvt.Modify_LPN API to update the
3055: -- context.
3058: l_lpn.lpn_context := 4;
3059: wms_container_pvt.Modify_LPN
3060: (
3061: p_api_version => 1.0
3062: , p_init_msg_list => fnd_api.g_false
3063: , p_commit => fnd_api.g_false
3064: , p_validation_level => fnd_api.g_valid_level_full
3065: , x_return_status => l_return_status
3066: , x_msg_count => l_msg_count
3059: wms_container_pvt.Modify_LPN
3060: (
3061: p_api_version => 1.0
3062: , p_init_msg_list => fnd_api.g_false
3063: , p_commit => fnd_api.g_false
3064: , p_validation_level => fnd_api.g_valid_level_full
3065: , x_return_status => l_return_status
3066: , x_msg_count => l_msg_count
3067: , x_msg_data => l_msg_data
3060: (
3061: p_api_version => 1.0
3062: , p_init_msg_list => fnd_api.g_false
3063: , p_commit => fnd_api.g_false
3064: , p_validation_level => fnd_api.g_valid_level_full
3065: , x_return_status => l_return_status
3066: , x_msg_count => l_msg_count
3067: , x_msg_data => l_msg_data
3068: , p_lpn => l_lpn
3075: print_debug('l_msg_data = ' || l_msg_data, 9);
3076: END IF;
3077: FND_MESSAGE.SET_NAME('INV', 'INV_LPN_UPDATE_FAILURE');
3078: FND_MSG_PUB.ADD;
3079: RAISE FND_API.G_EXC_ERROR;
3080: END IF;
3081: END IF;
3082: END IF;
3083:
3141: print_debug('l_row_id = ' || l_row_id, 9);
3142: END IF;
3143: FND_MESSAGE.SET_NAME('INV', 'INV_INSERT_COST_ERR');
3144: FND_MSG_PUB.ADD;
3145: RAISE FND_API.G_EXC_ERROR;
3146: END IF;
3147: ELSE
3148: IF (l_debug = 1)
3149: THEN
3181: print_debug('l_row_id = ' || l_row_id, 9);
3182: END IF;
3183: FND_MESSAGE.SET_NAME('INV', 'INV_INSERT_COST_ERR');
3184: FND_MSG_PUB.ADD;
3185: RAISE FND_API.G_EXC_ERROR;
3186: ELSE
3187: IF (l_debug = 1) THEN
3188: print_debug('MTL_CST_TXN_COST_DETAILS_PKG.Insert_Row returns success', 9);
3189: END IF;
3213: print_debug('OE_DS_PVT.DropShipReceive returns false', 9);
3214: END IF;
3215: FND_MESSAGE.SET_NAME('INV', 'INV_DS_UPDATE_ERROR');
3216: FND_MSG_PUB.ADD;
3217: RAISE FND_API.G_EXC_ERROR;
3218: ELSE
3219: IF (l_debug = 1) THEN
3220: print_debug('OE_DS_PVT.DropShipReceive returns true', 9);
3221: END IF;
3245: || p_mtl_trx_tbl(1).transaction_id ,9);
3246: END IF;
3247: FND_MESSAGE.SET_NAME('INV', 'INV_MMT_NOT_FOUND');
3248: FND_MSG_PUB.ADD;
3249: RAISE FND_API.G_EXC_ERROR;
3250: END IF;
3251:
3252: -- Call INV_TXNSTUB_PUB.postTransaction only for logical PO receipt record
3253: -- of true dropship
3260: ( p_header_id => null
3261: ,p_transaction_id => p_mtl_trx_tbl(1).transaction_id
3262: ,x_return_status => l_return_status);
3263:
3264: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3265: IF (l_debug = 1) THEN
3266: print_debug('INV_TXNSTUB_PUB.postTransaction returns error: ' || l_msg_data, 9);
3267: END IF;
3268: RAISE FND_API.G_EXC_ERROR;
3264: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3265: IF (l_debug = 1) THEN
3266: print_debug('INV_TXNSTUB_PUB.postTransaction returns error: ' || l_msg_data, 9);
3267: END IF;
3268: RAISE FND_API.G_EXC_ERROR;
3269: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3270: IF (l_debug = 1) THEN
3271: print_debug('INV_TXNSTUB_PUB.postTransaction returns unexpected error: ' || l_msg_data, 9);
3272: END IF;
3265: IF (l_debug = 1) THEN
3266: print_debug('INV_TXNSTUB_PUB.postTransaction returns error: ' || l_msg_data, 9);
3267: END IF;
3268: RAISE FND_API.G_EXC_ERROR;
3269: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3270: IF (l_debug = 1) THEN
3271: print_debug('INV_TXNSTUB_PUB.postTransaction returns unexpected error: ' || l_msg_data, 9);
3272: END IF;
3273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3269: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3270: IF (l_debug = 1) THEN
3271: print_debug('INV_TXNSTUB_PUB.postTransaction returns unexpected error: ' || l_msg_data, 9);
3272: END IF;
3273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3274: ELSE
3275: IF (l_debug = 1) THEN
3276: print_debug('INV_TXNSTUB_PUB returns success', 9);
3277: END IF;
3304: || p_mtl_trx_tbl(1).transaction_id ,9);
3305: END IF;
3306: FND_MESSAGE.SET_NAME('INV', 'INV_MMT_NOT_FOUND');
3307: FND_MSG_PUB.ADD;
3308: RAISE FND_API.G_EXC_ERROR;
3309: END IF;
3310: END IF;
3311:
3312:
3336: IF (l_debug = 1) THEN
3337: print_debug('After calling price_update_insert, l_return_status = ' || l_return_status, 9);
3338: END IF;
3339:
3340: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3341: IF (l_debug = 1) THEN
3342: print_debug('price_update_insert returns error: ' || l_msg_data, 9);
3343: END IF;
3344: RAISE FND_API.G_EXC_ERROR;
3340: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3341: IF (l_debug = 1) THEN
3342: print_debug('price_update_insert returns error: ' || l_msg_data, 9);
3343: END IF;
3344: RAISE FND_API.G_EXC_ERROR;
3345: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3346: IF (l_debug = 1) THEN
3347: print_debug('price_update_insert returns unexpected error: ' || l_msg_data, 9);
3348: END IF;
3341: IF (l_debug = 1) THEN
3342: print_debug('price_update_insert returns error: ' || l_msg_data, 9);
3343: END IF;
3344: RAISE FND_API.G_EXC_ERROR;
3345: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3346: IF (l_debug = 1) THEN
3347: print_debug('price_update_insert returns unexpected error: ' || l_msg_data, 9);
3348: END IF;
3349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3345: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3346: IF (l_debug = 1) THEN
3347: print_debug('price_update_insert returns unexpected error: ' || l_msg_data, 9);
3348: END IF;
3349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3350: ELSE
3351: IF (l_debug = 1) THEN
3352: print_debug('price_update_insert returns success', 9);
3353: END IF;
3356: END IF;
3357:
3358: x_return_status := G_RET_STS_SUCCESS;
3359: EXCEPTION
3360: WHEN FND_API.G_EXC_ERROR THEN
3361: x_return_status := FND_API.G_RET_STS_ERROR;
3362: ROLLBACK TO create_logical_transactions;
3363:
3364: IF (l_debug = 1) THEN
3357:
3358: x_return_status := G_RET_STS_SUCCESS;
3359: EXCEPTION
3360: WHEN FND_API.G_EXC_ERROR THEN
3361: x_return_status := FND_API.G_RET_STS_ERROR;
3362: ROLLBACK TO create_logical_transactions;
3363:
3364: IF (l_debug = 1) THEN
3365: print_debug('create_logical_transactions: Expected Error, l_progress = ' || l_progress, 9);
3369:
3370: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3371:
3372:
3373: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3375: ROLLBACK TO create_logical_transactions;
3376:
3377: IF (l_debug = 1) THEN
3370: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3371:
3372:
3373: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3375: ROLLBACK TO create_logical_transactions;
3376:
3377: IF (l_debug = 1) THEN
3378: print_debug('create_logical_transactions: Unexpected Error, l_progress = ' || l_progress, 9);
3382:
3383: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3384:
3385: WHEN OTHERS THEN
3386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3387: ROLLBACK TO create_logical_transactions;
3388:
3389: IF (l_debug = 1) THEN
3390: print_debug('create_logical_transactions: Other Error, l_progress = ' || l_progress, 9);
3463: ( x_return_status => l_return_status
3464: , x_msg_count => l_msg_count
3465: , x_msg_data => l_msg_data
3466: , p_api_version_number => p_api_version
3467: , p_init_msg_lst => fnd_api.g_true
3468: , p_transaction_id => l_txn_rec.transaction_id
3469: );
3470: EXCEPTION
3471: WHEN OTHERS THEN
3531: | p_api_version_number - API version number
3532: |
3533: | p_init_msg_lst - Whether initialize the error message list
3534: | or not
3535: | Should be fnd_api.g_false or fnd_api.g_true
3536: |
3537: | p_organization_id - Organziation Id of the org that is being
3538: | closed .
3539: |
3546: | organization that is being closed.
3547: |
3548: | Output Parameters :
3549: |
3550: | x_return_status - fnd_api.g_ret_sts_success, if succeeded
3551: |
3552: | fnd_api.g_ret_sts_exc_error, if an expected
3553: |
3554: | error occurred
3548: | Output Parameters :
3549: |
3550: | x_return_status - fnd_api.g_ret_sts_success, if succeeded
3551: |
3552: | fnd_api.g_ret_sts_exc_error, if an expected
3553: |
3554: | error occurred
3555: |
3556: | fnd_api.g_ret_sts_unexp_error, if an
3552: | fnd_api.g_ret_sts_exc_error, if an expected
3553: |
3554: | error occurred
3555: |
3556: | fnd_api.g_ret_sts_unexp_error, if an
3557: | unexpected
3558: | eror occurred
3559: |
3560: | x_msg_count - Number of error message in the error message
3612: p_period_start_date IS NULL OR p_period_end_date IS NULL) then
3613: IF (l_debug = 1) THEN
3614: print_debug('Invalid input parameters', 9);
3615: END IF;
3616: RAISE FND_API.G_EXC_ERROR;
3617: END IF;
3618:
3619: IF (l_debug = 1) THEN
3620: print_debug('Before calling compatible API', 9);
3621: END IF;
3622:
3623:
3624: -- Standard call to check for call compatibility
3625: IF NOT fnd_api.compatible_api_call
3626: (l_api_version_number, l_in_api_version_number, l_api_name, g_pkg_name) THEN
3627: RAISE fnd_api.g_exc_unexpected_error;
3628: END IF;
3629:
3623:
3624: -- Standard call to check for call compatibility
3625: IF NOT fnd_api.compatible_api_call
3626: (l_api_version_number, l_in_api_version_number, l_api_name, g_pkg_name) THEN
3627: RAISE fnd_api.g_exc_unexpected_error;
3628: END IF;
3629:
3630: IF (l_debug = 1) THEN
3631: print_debug('Before calling init API', 9);
3631: print_debug('Before calling init API', 9);
3632: END IF;
3633:
3634: -- Initialize message list.
3635: IF fnd_api.to_boolean(l_init_msg_lst) THEN
3636: fnd_msg_pub.initialize;
3637: END IF;
3638:
3639: IF (l_debug = 1) THEN
3667: EXCEPTION
3668: WHEN others THEN
3669: IF (l_debug = 1) THEN
3670: print_debug('Timezone API returned error: ' || l_transaction_date, 9);
3671: RAISE fnd_api.g_exc_unexpected_error;
3672: END IF;
3673:
3674: END;
3675:
3719: ELSE
3720: x_period_close := 'N';
3721: x_return_status := G_RET_STS_UNEXP_ERROR;
3722: print_debug('Check Account Period Close: Count incorrect', 9);
3723: RAISE fnd_api.g_exc_unexpected_error;
3724: END IF;
3725:
3726: END LOOP;
3727:
3803: ELSE
3804: x_period_close := 'N';
3805: x_return_status := G_RET_STS_UNEXP_ERROR;
3806: print_debug('Check Account Period Close: Count incorrect', 9);
3807: RAISE fnd_api.g_exc_unexpected_error;
3808: END IF;
3809: *******/
3810:
3811: EXCEPTION
3808: END IF;
3809: *******/
3810:
3811: EXCEPTION
3812: WHEN FND_API.G_EXC_ERROR THEN
3813: x_return_status := FND_API.G_RET_STS_ERROR;
3814:
3815: IF (l_debug = 1) THEN
3816: print_debug('Check Account Period Close: Expected Error', 9);
3809: *******/
3810:
3811: EXCEPTION
3812: WHEN FND_API.G_EXC_ERROR THEN
3813: x_return_status := FND_API.G_RET_STS_ERROR;
3814:
3815: IF (l_debug = 1) THEN
3816: print_debug('Check Account Period Close: Expected Error', 9);
3817: print_debug('SQL Error: ' || Sqlerrm(SQLCODE),9);
3820:
3821: FND_MSG_PUB.count_and_get
3822: (p_count => x_msg_count, p_data => x_msg_data);
3823:
3824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3826:
3827: IF (l_debug = 1) THEN
3828: print_debug('Check Account Period Close: Unexpected Error', 9);
3821: FND_MSG_PUB.count_and_get
3822: (p_count => x_msg_count, p_data => x_msg_data);
3823:
3824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3826:
3827: IF (l_debug = 1) THEN
3828: print_debug('Check Account Period Close: Unexpected Error', 9);
3829: print_debug('SQL Error: ' || Sqlerrm(SQLCODE),9);
3833: FND_MSG_PUB.count_and_get
3834: (p_count => x_msg_count, p_data => x_msg_data);
3835:
3836: WHEN OTHERS THEN
3837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3838:
3839: IF (l_debug = 1) THEN
3840: print_debug('Check Account Period Close: Other Error', 9);
3841: print_debug('SQL Error: ' || Sqlerrm(SQLCODE),9);
4268: print_debug('p_transaction_temp_id = ' || p_transaction_temp_id, 9);
4269: END IF;
4270:
4271: -- Standard call to check for call compatibility
4272: IF NOT fnd_api.compatible_api_call(l_api_version_number,
4273: l_in_api_version_number, l_api_name, g_pkg_name)
4274: THEN
4275: RAISE fnd_api.g_exc_unexpected_error;
4276: END IF;
4271: -- Standard call to check for call compatibility
4272: IF NOT fnd_api.compatible_api_call(l_api_version_number,
4273: l_in_api_version_number, l_api_name, g_pkg_name)
4274: THEN
4275: RAISE fnd_api.g_exc_unexpected_error;
4276: END IF;
4277:
4278: -- Initialize message list.
4279: IF fnd_api.to_boolean(l_init_msg_lst)
4275: RAISE fnd_api.g_exc_unexpected_error;
4276: END IF;
4277:
4278: -- Initialize message list.
4279: IF fnd_api.to_boolean(l_init_msg_lst)
4280: THEN
4281: fnd_msg_pub.initialize;
4282: END IF;
4283:
4691: print_debug(' l_pri_qty: ' || l_pri_qty || ' l_owner_pri_uom: ' || l_owner_pri_uom, 9);
4692: print_debug(' l_sec_qty: ' || l_sec_qty || ' l_sec_uom: ' || l_sec_uom, 9);
4693: print_debug(' l_item_id: ' || l_item_id || ' l_owner_org_id: ' || l_owner_org_id, 9);
4694: END IF;
4695: RAISE FND_API.G_EXC_ERROR;
4696: END IF;
4697:
4698: -- dbms_output.put_line('INV_CONVERT.within_deviation (PASS) ');
4699: IF (l_debug = 1) THEN
4770: IF ( x_return_status <> G_RET_STS_SUCCESS )
4771: THEN
4772: print_debug(l_procedure_name || ': Error from INV_TRANSACTION_FLOW_PUB.convert_currency: ' ||
4773: x_msg_data, 9);
4774: IF x_return_status = FND_API.G_RET_STS_ERROR
4775: THEN
4776: RAISE FND_API.G_EXC_ERROR;
4777: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4778: THEN
4772: print_debug(l_procedure_name || ': Error from INV_TRANSACTION_FLOW_PUB.convert_currency: ' ||
4773: x_msg_data, 9);
4774: IF x_return_status = FND_API.G_RET_STS_ERROR
4775: THEN
4776: RAISE FND_API.G_EXC_ERROR;
4777: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4778: THEN
4779: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4780: END IF;
4773: x_msg_data, 9);
4774: IF x_return_status = FND_API.G_RET_STS_ERROR
4775: THEN
4776: RAISE FND_API.G_EXC_ERROR;
4777: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4778: THEN
4779: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4780: END IF;
4781: END IF;
4775: THEN
4776: RAISE FND_API.G_EXC_ERROR;
4777: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4778: THEN
4779: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4780: END IF;
4781: END IF;
4782:
4783: -- Bug 5326088: Default to 1 otherwise it is NULL and hence transfer price is NULL.
5101: print_debug(l_procedure_name || 'l_msg_data = ' || l_msg_data, 9);
5102: END IF;
5103: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_GET_COST_GROUP');
5104: FND_MSG_PUB.ADD;
5105: RAISE FND_API.G_EXC_ERROR;
5106: END IF;
5107: */
5108: EXCEPTION
5109: WHEN no_data_found