334: END IF;
335: EXCEPTION
336: WHEN FND_API.G_EXC_ERROR THEN
337: x_return_status := FND_API.G_RET_STS_ERROR;
338: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
339: , p_data => x_msg_data);
340: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
342: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
338: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
339: , p_data => x_msg_data);
340: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
342: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
343: , p_data => x_msg_data);
344: WHEN OTHERS THEN
345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
346: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
342: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
343: , p_data => x_msg_data);
344: WHEN OTHERS THEN
345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
346: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
347: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'INV_LINE_RETURN_TO_STOCK');
348: END IF;
349: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
350: , p_data => x_msg_data);
343: , p_data => x_msg_data);
344: WHEN OTHERS THEN
345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
346: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
347: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'INV_LINE_RETURN_TO_STOCK');
348: END IF;
349: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
350: , p_data => x_msg_data);
351:
345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
346: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
347: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'INV_LINE_RETURN_TO_STOCK');
348: END IF;
349: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
350: , p_data => x_msg_data);
351:
352: END INV_LINE_RETURN_TO_STOCK;
353:
546:
547: BEGIN
548: x_return_status := FND_API.G_RET_STS_SUCCESS;
549: x_ret_code := 0;
550: fnd_msg_pub.initialize;
551:
552: IF p_ship_delivery = 'YES' THEN
553: CHECK_SHIP_SET(
554: p_delivery_id => p_delivery_id,
557: x_error_msg => l_error_msg);
558: IF x_return_status = 'E' THEN
559: FND_MESSAGE.SET_NAME('INV', 'WMS_WSH_SHIPSET_FORCED');
560: FND_MESSAGE.SET_TOKEN('SHIP_SET_NAME', l_ship_set);
561: FND_MSG_PUB.ADD;
562: RAISE unspec_ship_set_exists;
563: ELSIF x_return_status = 'U' THEN
564: RAISE fnd_api.g_exc_unexpected_error;
565: END IF;
569: x_return_Status => x_return_status,
570: x_error_msg => l_error_msg);
571: IF x_return_status = 'E' THEN
572: FND_MESSAGE.SET_NAME('INV', 'WMS_INCOMPLETE_DELI');
573: FND_MSG_PUB.ADD;
574: RAISE incomplete_delivery;
575: ELSIF x_return_status = 'U' THEN
576: RAISE fnd_api.g_exc_unexpected_error;
577: END IF;
617: x_return_status := fnd_api.g_ret_sts_error;
618: x_ret_code := 1;
619:
620: -- Get message count and data
621: fnd_msg_pub.count_and_get
622: ( p_count => x_msg_count
623: , p_data => x_msg_data
624: );
625:
627: x_return_status := fnd_api.g_ret_sts_error;
628: x_ret_code := 2;
629:
630: -- Get message count and data
631: fnd_msg_pub.count_and_get
632: ( p_count => x_msg_count
633: , p_data => x_msg_data
634: );
635:
655: x_msg_count OUT NOCOPY NUMBER) IS
656: l_error_msg VARCHAR2(2000) := NULL;
657: unassign_lines_exc EXCEPTION;
658: BEGIN
659: fnd_msg_pub.initialize;
660:
661: INV_SHIPPING_TRANSACTION_PUB.UNASSIGN_DELIVERY_LINES(
662: p_delivery_id => p_delivery_id,
663: x_return_Status => x_return_status,
692: WHEN OTHERS THEN
693: x_return_status := fnd_api.g_ret_sts_unexp_error;
694:
695: -- Get message count and data
696: fnd_msg_pub.count_and_get
697: ( p_count => x_msg_count
698: , p_data => x_msg_data
699: );
700: