1: PACKAGE BODY IBE_Quote_Checkout_Pvt as
2: /* $Header: IBEVQASB.pls 120.13.12020000.3 2013/03/11 09:18:25 amaheshw ship $ */
3: -- Start of Comments
4: -- Package name : IBE_Quote_Checkout_Pvt
5: -- Purpose :
1: PACKAGE BODY IBE_Quote_Checkout_Pvt as
2: /* $Header: IBEVQASB.pls 120.13.12020000.3 2013/03/11 09:18:25 amaheshw ship $ */
3: -- Start of Comments
4: -- Package name : IBE_Quote_Checkout_Pvt
5: -- Purpose :
6: -- NOTE :
7:
8: -- End of Comments
8: -- End of Comments
9:
10: -- Default number of records fetch per call
11: l_true VARCHAR2(1) := FND_API.G_TRUE;
12: G_PKG_NAME CONSTANT VARCHAR2(30) := 'IBE_Quote_Checkout_Pvt';
13: G_FILE_NAME CONSTANT VARCHAR2(12):= 'IBEVQASB.pls';
14: G_AUTH_ERROR CONSTANT NUMBER :=3;
15: PROCEDURE Authorize_Credit_Card(
16: p_qte_Header_Id IN NUMBER
218:
219: EXCEPTION
220: WHEN FND_API.G_EXC_ERROR THEN
221: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
222: IBE_Util.Debug('Expected exception in IBE_Quote_Checkout_Pvt.Authorize_Credit_Card');
223: END IF;
224:
225: x_return_status := FND_API.G_RET_STS_ERROR;
226: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
232: RAISE FND_API.G_EXC_ERROR;
233:
234: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
235: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
236: IBE_Util.Debug('Unexpected exception in IBE_Quote_Checkout_Pvt.Authorize_Credit_Card');
237: END IF;
238:
239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
240: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
243: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
244:
245: WHEN OTHERS THEN
246: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
247: IBE_Util.Debug('Unknown exception in IBE_Quote_Checkout_Pvt.Authorize_Credit_Card');
248: END IF;
249:
250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
251: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
276:
277: BEGIN
278:
279: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
280: IBE_Util.Debug('IBE_Quote_Checkout_Pvt.Default_Order_State Start');
281: END IF;
282:
283: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
284: IBE_Util.Debug('Submit_Control_Rec.Book_Flag=' || px_submit_control_rec.book_flag);
337: IBE_Util.Debug('Updated Submit_Control_Rec.Book_Flag=' || px_submit_control_rec.book_flag);
338: END IF;
339:
340: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
341: IBE_Util.Debug('IBE_Quote_Checkout_Pvt.Default_Order_State Finishes');
342: END IF;
343:
344: END Default_Order_State;
345:
463: IBE_UTIL.DEBUG('SUBMITQUOTE: After Calling log_environment_info');
464: END IF;
465: --ibe_util.enable_debug;
466: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
467: IBE_Util.Debug('Begin IBE_Quote_Checkout_Pvt.SubmitQuote()');
468: END IF;
469:
470: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
471: IBE_UTIL.DEBUG('Submit_Quote: p_validate_user flag='||p_validate_user);
678: END IF;
679:
680: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
681: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
682: IBE_Util.Debug('IBE_Quote_Checkout_Pvt.Authorize_Credit_Card(): Exp Error while entering the quote ');
683: END IF;
684:
685: RAISE FND_API.G_EXC_ERROR;
686: END IF;
765: END IF;
766:
767: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
768: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
769: IBE_Util.Debug('Else:IBE_Quote_Checkout_Pvt.Authorize_Credit_Card(): Exp Error while entering the quote ');
770: END IF;
771:
772: RAISE FND_API.G_EXC_ERROR;
773: END IF;
1036: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1037: p_count => x_msg_count ,
1038: p_data => x_msg_data);
1039: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1040: IBE_Util.Debug('End IBE_Quote_Checkout_Pvt.SubmitQuote()');
1041: END IF;
1042: --ibe_util.disable_debug;
1043: EXCEPTION
1044: WHEN FND_API.G_EXC_ERROR THEN
1042: --ibe_util.disable_debug;
1043: EXCEPTION
1044: WHEN FND_API.G_EXC_ERROR THEN
1045: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1046: IBE_Util.Debug('Expected exception in IBE_Quote_Checkout_Pvt.SubmitQuote');
1047: END IF;
1048: ROLLBACK TO SUBMITQUOTE_PVT;
1049: x_return_status := FND_API.G_RET_STS_ERROR;
1050: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1051: p_count => x_msg_count ,
1052: p_data => x_msg_data);
1053: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1054: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1055: IBE_Util.Debug('Unexpected exception in IBE_Quote_Checkout_Pvt.SubmitQuote');
1056: END IF;
1057:
1058: ROLLBACK TO SUBMITQUOTE_PVT;
1059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1061: p_count => x_msg_count ,
1062: p_data => x_msg_data);
1063: WHEN OTHERS THEN
1064: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1065: IBE_Util.Debug('Unknown exception in IBE_Quote_Checkout_Pvt.SubmitQuote');
1066: END IF;
1067:
1068: ROLLBACK TO SUBMITQUOTE_PVT;
1069: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1074: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1075: p_count => x_msg_count ,
1076: p_data => x_msg_data);
1077: END SubmitQuote;
1078: END IBE_Quote_Checkout_Pvt;