[Home] [Help]
2578: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2579: l_msg_count NUMBER;
2580: l_msg_data VARCHAR2(1000);
2581:
2582: l_shipment_IDs_Tbl AHL_OSP_SHIPMENT_PUB.Ship_ID_Tbl_Type;
2583:
2584: BEGIN
2585: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2586: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2612: END IF;
2613: IF (l_temp_num > 0) THEN
2614: -- Call Shipment API. This API will not throw an error or
2615: -- re-book if the shipment is already booked
2616: AHL_OSP_SHIPMENT_PUB.Book_Order(p_api_version => 1.0,
2617: p_init_msg_list => FND_API.G_FALSE,
2618: p_commit => FND_API.G_FALSE,
2619: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2620: p_oe_header_tbl => l_shipment_IDs_Tbl,
2625:
2626: x_return_status := l_return_status;
2627: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2628: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2629: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AHL_OSP_SHIPMENT_PUB.Book_Order Did not succeed');
2630: END IF;
2631: RAISE FND_API.G_EXC_ERROR; -- Rollback and return error
2632: END IF;
2633: -- No errors in current procedure: Check only passed in flag
2632: END IF;
2633: -- No errors in current procedure: Check only passed in flag
2634: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2635: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2636: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AHL_OSP_SHIPMENT_PUB.Book_Order Succeeded. About to COMMIT work.');
2637: END IF;
2638: COMMIT WORK;
2639: END IF;
2640: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN