1: PACKAGE BODY OE_Purchase_Release_PVT AS
2: /* $Header: OEXVDSPB.pls 120.14.12010000.3 2008/10/21 06:30:20 spothula ship $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: OEXVDSPB.pls 120.14.12010000.3 2008/10/21 06:30:20 spothula ship $ */
3:
4: -- Global constant holding the package name
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_Purchase_Release_PVT';
7:
8:
9: /*-----------------------------------------------------------------
10: PROCEDURE : OELOGO
302:
303: IF (l_result = FND_API.G_TRUE) then
304: FND_MESSAGE.SET_NAME('ONT','OE_II_HOLD_FOUND');
305: OE_MSG_PUB.Add;
306: l_drop_ship_line_rec.result := OE_Purchase_Release_PVT.G_RES_ONHOLD;
307: l_drop_ship_line_rec.return_status := FND_API.G_RET_STS_ERROR;
308: RAISE Purchase_Release_Incomplete;
309: END IF;
310: END IF;/* If line is not a service line */
620: end if; --added for bug 7433481
621: END IF;
622:
623: l_drop_ship_line_rec.return_status := FND_API.G_RET_STS_SUCCESS;
624: l_drop_ship_line_rec.result := OE_Purchase_Release_PVT.G_RES_COMPLETE;
625:
626: EXCEPTION
627: WHEN Purchase_Release_Incomplete THEN
628: IF l_debug_level > 0 THEN
629: oe_debug_pub.add('Exception Purchase Release Incomplete',1);
630: oe_debug_pub.add('Purchase Release activity is incomplete for line ID : '||l_drop_ship_line_rec.line_id,1);
631: END IF;
632: l_drop_ship_line_rec.return_status := FND_API.G_RET_STS_ERROR;
633: IF l_drop_ship_line_rec.result <> OE_Purchase_Release_PVT.G_RES_ONHOLD THEN
634: l_drop_ship_line_rec.result := OE_Purchase_Release_PVT.G_RES_INCOMPLETE;
635: END IF;
636: --OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME ,'Purchase_Release'); bug 4683857
637: WHEN FND_API.G_EXC_ERROR THEN
630: oe_debug_pub.add('Purchase Release activity is incomplete for line ID : '||l_drop_ship_line_rec.line_id,1);
631: END IF;
632: l_drop_ship_line_rec.return_status := FND_API.G_RET_STS_ERROR;
633: IF l_drop_ship_line_rec.result <> OE_Purchase_Release_PVT.G_RES_ONHOLD THEN
634: l_drop_ship_line_rec.result := OE_Purchase_Release_PVT.G_RES_INCOMPLETE;
635: END IF;
636: --OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME ,'Purchase_Release'); bug 4683857
637: WHEN FND_API.G_EXC_ERROR THEN
638: l_drop_ship_line_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
636: --OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME ,'Purchase_Release'); bug 4683857
637: WHEN FND_API.G_EXC_ERROR THEN
638: l_drop_ship_line_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
639: -- Changes for Bug - 2352589
640: IF l_drop_ship_line_rec.result <> OE_Purchase_Release_PVT.G_RES_ONHOLD THEN
641: l_drop_ship_line_rec.result := OE_Purchase_Release_PVT.G_RES_INCOMPLETE;
642: END IF;
643: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME ,'Purchase_Release');
644: IF l_debug_level > 0 THEN
637: WHEN FND_API.G_EXC_ERROR THEN
638: l_drop_ship_line_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
639: -- Changes for Bug - 2352589
640: IF l_drop_ship_line_rec.result <> OE_Purchase_Release_PVT.G_RES_ONHOLD THEN
641: l_drop_ship_line_rec.result := OE_Purchase_Release_PVT.G_RES_INCOMPLETE;
642: END IF;
643: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME ,'Purchase_Release');
644: IF l_debug_level > 0 THEN
645: oe_debug_pub.add('AN EXPECTED ERROR RAISED..'||SQLERRM , 1 ) ;
1956: END IF;
1957:
1958: END Process_DropShip_CMS_Requests;
1959:
1960: END OE_Purchase_Release_PVT;