1: PACKAGE BODY OE_Purchase_Release_PVT AS
2: /* $Header: OEXVDSPB.pls 120.19 2012/01/04 12:20:52 snimmaga ship $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: OEXVDSPB.pls 120.19 2012/01/04 12:20:52 snimmaga 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
304:
305: IF (l_result = FND_API.G_TRUE) then
306: FND_MESSAGE.SET_NAME('ONT','OE_II_HOLD_FOUND');
307: OE_MSG_PUB.Add;
308: l_drop_ship_line_rec.result := OE_Purchase_Release_PVT.G_RES_ONHOLD;
309: l_drop_ship_line_rec.return_status := FND_API.G_RET_STS_ERROR;
310: RAISE Purchase_Release_Incomplete;
311: END IF;
312: END IF;/* If line is not a service line */
655: end if; --added for bug 7433481
656: END IF;
657:
658: l_drop_ship_line_rec.return_status := FND_API.G_RET_STS_SUCCESS;
659: l_drop_ship_line_rec.result := OE_Purchase_Release_PVT.G_RES_COMPLETE;
660:
661: EXCEPTION
662: WHEN Purchase_Release_Incomplete THEN
663: IF l_debug_level > 0 THEN
664: oe_debug_pub.add('Exception Purchase Release Incomplete',1);
665: oe_debug_pub.add('Purchase Release activity is incomplete for line ID : '||l_drop_ship_line_rec.line_id,1);
666: END IF;
667: l_drop_ship_line_rec.return_status := FND_API.G_RET_STS_ERROR;
668: IF l_drop_ship_line_rec.result <> OE_Purchase_Release_PVT.G_RES_ONHOLD THEN
669: l_drop_ship_line_rec.result := OE_Purchase_Release_PVT.G_RES_INCOMPLETE;
670: END IF;
671: --OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME ,'Purchase_Release'); bug 4683857
672: WHEN FND_API.G_EXC_ERROR THEN
665: oe_debug_pub.add('Purchase Release activity is incomplete for line ID : '||l_drop_ship_line_rec.line_id,1);
666: END IF;
667: l_drop_ship_line_rec.return_status := FND_API.G_RET_STS_ERROR;
668: IF l_drop_ship_line_rec.result <> OE_Purchase_Release_PVT.G_RES_ONHOLD THEN
669: l_drop_ship_line_rec.result := OE_Purchase_Release_PVT.G_RES_INCOMPLETE;
670: END IF;
671: --OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME ,'Purchase_Release'); bug 4683857
672: WHEN FND_API.G_EXC_ERROR THEN
673: l_drop_ship_line_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
671: --OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME ,'Purchase_Release'); bug 4683857
672: WHEN FND_API.G_EXC_ERROR THEN
673: l_drop_ship_line_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
674: -- Changes for Bug - 2352589
675: IF l_drop_ship_line_rec.result <> OE_Purchase_Release_PVT.G_RES_ONHOLD THEN
676: l_drop_ship_line_rec.result := OE_Purchase_Release_PVT.G_RES_INCOMPLETE;
677: END IF;
678: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME ,'Purchase_Release');
679: IF l_debug_level > 0 THEN
672: WHEN FND_API.G_EXC_ERROR THEN
673: l_drop_ship_line_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
674: -- Changes for Bug - 2352589
675: IF l_drop_ship_line_rec.result <> OE_Purchase_Release_PVT.G_RES_ONHOLD THEN
676: l_drop_ship_line_rec.result := OE_Purchase_Release_PVT.G_RES_INCOMPLETE;
677: END IF;
678: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME ,'Purchase_Release');
679: IF l_debug_level > 0 THEN
680: oe_debug_pub.add('AN EXPECTED ERROR RAISED..'||SQLERRM , 1 ) ;
1991: END IF;
1992:
1993: END Process_DropShip_CMS_Requests;
1994:
1995: END OE_Purchase_Release_PVT;