[Home] [Help]
1: PACKAGE BODY CS_Charge_Create_Order_PUB as
2: /* $Header: csxpchob.pls 120.2 2005/09/29 07:09:45 pkesani noship $ */
3:
4: /*********** Global Variables ********************************/
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CS_Charge_Create_Order_PUB' ;
1: PACKAGE BODY CS_Charge_Create_Order_PUB as
2: /* $Header: csxpchob.pls 120.2 2005/09/29 07:09:45 pkesani noship $ */
3:
4: /*********** Global Variables ********************************/
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CS_Charge_Create_Order_PUB' ;
6:
7:
8: -- *******************************************************
9: -- Start of Comments
60:
61:
62: BEGIN
63: -- Standard Start of API Savepoint
64: SAVEPOINT CS_Charge_Create_Order_PUB;
65:
66: -- Standard Call to check API compatibility
67: IF NOT FND_API.Compatible_API_Call( l_api_version,
68: p_api_version,
228: );
229:
230: EXCEPTION
231: WHEN FND_API.G_EXC_ERROR THEN
232: ROLLBACK TO CS_Charge_Create_Order_PUB;
233: x_return_status := FND_API.G_RET_STS_ERROR;
234: FND_MSG_PUB.Count_And_Get
235: ( p_count => x_msg_count,
236: p_data => x_msg_data
235: ( p_count => x_msg_count,
236: p_data => x_msg_data
237: );
238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
239: ROLLBACK TO CS_Charge_Create_Order_PUB;
240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
241: FND_MSG_PUB.Count_And_Get
242: ( p_count => x_msg_count,
243: p_data => x_msg_data
242: ( p_count => x_msg_count,
243: p_data => x_msg_data
244: );
245: WHEN OTHERS THEN
246: ROLLBACK TO CS_Charge_Create_Order_PUB;
247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
248: IF FND_MSG_PUB.Check_Msg_Level
249: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
250: THEN
258: p_data => x_msg_data
259: );
260: END Submit_Order;
261:
262: End CS_Charge_Create_Order_PUB;