1: package body CTO_WIP_UTIL as
2: /* $Header: CTOWIPUB.pls 120.4.12020000.2 2012/07/05 09:42:07 ntungare ship $ */
3: /*============================================================================+
4: | Copyright (c) 1993 Oracle Corporation Belmont, California, USA |
5: | All rights reserved. |
902: x_result_out := FND_API.G_FALSE;
903:
904: when FND_API.G_EXC_ERROR then
905: IF PG_DEBUG <> 0 THEN
906: oe_debug_pub.add('Delivery_Planned: ' || 'CTO_WIP_UTIL.Delivery_Planned::exp error', 1);
907: END IF;
908: x_return_status := FND_API.G_RET_STS_ERROR;
909: CTO_MSG_PUB.Count_And_Get
910: (p_msg_count => x_msg_count
912: );
913:
914: when FND_API.G_EXC_UNEXPECTED_ERROR then
915: IF PG_DEBUG <> 0 THEN
916: oe_debug_pub.add('Delivery_Planned: ' || 'CTO_WIP_UTIL.Delivery_Planned::unexp error', 1);
917: END IF;
918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
919: CTO_MSG_PUB.Count_And_Get
920: (p_msg_count => x_msg_count
922: );
923:
924: when OTHERS then
925: IF PG_DEBUG <> 0 THEN
926: oe_debug_pub.add('Delivery_Planned: ' || 'CTO_WIP_UTIL.Delivery_Planned::others', 1);
927: END IF;
928: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
929: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
930: then
928: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
929: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
930: then
931: FND_MSG_PUB.Add_Exc_Msg
932: ( 'CTO_WIP_UTIL'
933: , 'Delivery_Planned'
934: );
935: end if;
936: CTO_MSG_PUB.Count_And_Get
941: END Delivery_Planned;
942:
943:
944:
945: end CTO_WIP_UTIL;