[Home] [Help]
2545: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2546: l_msg_count NUMBER;
2547: l_msg_data VARCHAR2(1000);
2548:
2549: l_shipment_IDs_Tbl AHL_OSP_SHIPMENT_PUB.Ship_ID_Tbl_Type;
2550:
2551: BEGIN
2552: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2553: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2579: END IF;
2580: IF (l_temp_num > 0) THEN
2581: -- Call Shipment API. This API will not throw an error or
2582: -- re-book if the shipment is already booked
2583: AHL_OSP_SHIPMENT_PUB.Book_Order(p_api_version => 1.0,
2584: p_init_msg_list => FND_API.G_FALSE,
2585: p_commit => FND_API.G_FALSE,
2586: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2587: p_oe_header_tbl => l_shipment_IDs_Tbl,
2592:
2593: x_return_status := l_return_status;
2594: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2595: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2596: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AHL_OSP_SHIPMENT_PUB.Book_Order Did not succeed');
2597: END IF;
2598: RAISE FND_API.G_EXC_ERROR; -- Rollback and return error
2599: END IF;
2600: -- No errors in current procedure: Check only passed in flag
2599: END IF;
2600: -- No errors in current procedure: Check only passed in flag
2601: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2602: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2603: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AHL_OSP_SHIPMENT_PUB.Book_Order Succeeded. About to COMMIT work.');
2604: END IF;
2605: COMMIT WORK;
2606: END IF;
2607: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN