73: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
74:
75: BEGIN
76:
77: p_return_status := FND_API.G_RET_STS_SUCCESS;
78:
79: IF l_debug_level > 0 THEN
80: oe_debug_pub.add( 'OEXPVPMB: IN APPLY VERIFY LINE HOLDS' ) ;
81: END IF;
105: , x_return_status => l_return_status
106: );
107:
108: -- Return with Success if this Hold Already exists on the order
109: IF l_hold_result = FND_API.G_TRUE THEN
110: IF l_debug_level > 0 THEN
111: oe_debug_pub.add( 'OEXPVPMB: HOLD ALREADY APPLIED ON LINE ID : ' || P_LINE_ID ) ;
112: END IF;
113: RETURN ;
124: l_hold_source_rec.line_id := p_line_id;
125:
126: OE_Holds_PUB.Apply_Holds
127: ( p_api_version => 1.0
128: , p_validation_level => FND_API.G_VALID_LEVEL_NONE
129: , p_hold_source_rec => l_hold_source_rec
130: , x_msg_count => l_msg_count
131: , x_msg_data => l_msg_data
132: , x_return_status => l_return_status
131: , x_msg_data => l_msg_data
132: , x_return_status => l_return_status
133: );
134:
135: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
136: IF p_hold_id = 16 THEN
137:
138: BEGIN
139: SELECT line_number,
164: IF l_debug_level > 0 THEN
165: oe_debug_pub.add( 'OEXVPPYB: Pending Payment Authorization hold has been applied on order line.', 3);
166: END IF;
167: END IF;
168: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
169: RAISE FND_API.G_EXC_ERROR;
170: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
172: END IF;
165: oe_debug_pub.add( 'OEXVPPYB: Pending Payment Authorization hold has been applied on order line.', 3);
166: END IF;
167: END IF;
168: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
169: RAISE FND_API.G_EXC_ERROR;
170: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
172: END IF;
173:
166: END IF;
167: END IF;
168: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
169: RAISE FND_API.G_EXC_ERROR;
170: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
172: END IF;
173:
174: -- bug 4339864
167: END IF;
168: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
169: RAISE FND_API.G_EXC_ERROR;
170: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
172: END IF;
173:
174: -- bug 4339864
175: IF l_debug_level > 0 THEN
184: END IF;
185:
186: EXCEPTION
187:
188: WHEN FND_API.G_EXC_ERROR THEN
189: p_return_status := FND_API.G_RET_STS_ERROR;
190: OE_MSG_PUB.Count_And_Get
191: ( p_count => l_msg_count,
192: p_data => l_msg_data
185:
186: EXCEPTION
187:
188: WHEN FND_API.G_EXC_ERROR THEN
189: p_return_status := FND_API.G_RET_STS_ERROR;
190: OE_MSG_PUB.Count_And_Get
191: ( p_count => l_msg_count,
192: p_data => l_msg_data
193: );
191: ( p_count => l_msg_count,
192: p_data => l_msg_data
193: );
194:
195: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
196: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
197: OE_MSG_PUB.Count_And_Get
198: ( p_count => l_msg_count,
199: p_data => l_msg_data
192: p_data => l_msg_data
193: );
194:
195: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
196: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
197: OE_MSG_PUB.Count_And_Get
198: ( p_count => l_msg_count,
199: p_data => l_msg_data
200: );
199: p_data => l_msg_data
200: );
201:
202: WHEN OTHERS THEN
203: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
204: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
205: THEN
206: FND_MSG_PUB.Add_Exc_Msg
207: ( G_PKG_NAME
343: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
344: --
345: BEGIN
346:
347: p_return_status := FND_API.G_RET_STS_SUCCESS;
348:
349: IF l_debug_level > 0 THEN
350: oe_debug_pub.add( 'OEXPVPMB: IN RELEASE CREDIT CHECK HOLD' ) ;
351: END IF;
375: , x_msg_data => l_msg_data
376: , x_return_status => l_return_status
377: );
378:
379: IF l_hold_result = FND_API.G_TRUE THEN
380:
381: IF l_debug_level > 0 THEN
382: oe_debug_pub.add( 'OEXPVPMB: RELEASING CREDIT CHECK HOLD ON HEADER ID:' || TO_CHAR ( P_HEADER_ID ) || '/' || TO_CHAR ( C1.LINE_ID ) , 1 ) ;
383: END IF;
398: , x_msg_data => l_msg_data
399: , x_return_status => l_return_status
400: );
401:
402: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
403: RAISE FND_API.G_EXC_ERROR;
404: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
406: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
399: , x_return_status => l_return_status
400: );
401:
402: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
403: RAISE FND_API.G_EXC_ERROR;
404: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
406: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
407: fnd_message.set_name('ONT', 'OE_CC_HOLD_REMOVED');
400: );
401:
402: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
403: RAISE FND_API.G_EXC_ERROR;
404: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
406: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
407: fnd_message.set_name('ONT', 'OE_CC_HOLD_REMOVED');
408: oe_msg_pub.add;
401:
402: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
403: RAISE FND_API.G_EXC_ERROR;
404: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
406: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
407: fnd_message.set_name('ONT', 'OE_CC_HOLD_REMOVED');
408: oe_msg_pub.add;
409: END IF;
402: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
403: RAISE FND_API.G_EXC_ERROR;
404: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
406: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
407: fnd_message.set_name('ONT', 'OE_CC_HOLD_REMOVED');
408: oe_msg_pub.add;
409: END IF;
410:
413: END LOOP;
414:
415: EXCEPTION
416:
417: WHEN FND_API.G_EXC_ERROR THEN
418: p_return_status := FND_API.G_RET_STS_ERROR;
419: OE_MSG_PUB.Count_And_Get
420: ( p_count => l_msg_count,
421: p_data => l_msg_data
414:
415: EXCEPTION
416:
417: WHEN FND_API.G_EXC_ERROR THEN
418: p_return_status := FND_API.G_RET_STS_ERROR;
419: OE_MSG_PUB.Count_And_Get
420: ( p_count => l_msg_count,
421: p_data => l_msg_data
422: );
420: ( p_count => l_msg_count,
421: p_data => l_msg_data
422: );
423:
424: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
425: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
426: OE_MSG_PUB.Count_And_Get
427: ( p_count => l_msg_count,
428: p_data => l_msg_data
421: p_data => l_msg_data
422: );
423:
424: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
425: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
426: OE_MSG_PUB.Count_And_Get
427: ( p_count => l_msg_count,
428: p_data => l_msg_data
429: );
428: p_data => l_msg_data
429: );
430:
431: WHEN OTHERS THEN
432: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
433: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
434: THEN
435: FND_MSG_PUB.Add_Exc_Msg
436: ( G_PKG_NAME
482: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
483: --
484: BEGIN
485:
486: p_return_status := FND_API.G_RET_STS_SUCCESS;
487:
488: IF l_debug_level > 0 THEN
489: oe_debug_pub.add( 'OEXPVPMB: IN APPLY CREDIT CHECK HOLDS' ) ;
490: END IF;
499: oe_debug_pub.add( 'OEXPVPMB: HOLD ID : '||P_HOLD_ID ) ;
500: END IF;
501:
502: -- If the call was made from a delayed request, always apply hold.
503: IF NVL(p_delayed_request, FND_API.G_FALSE) = FND_API.G_TRUE THEN
504: l_apply_hold := 'Y';
505: ELSE
506: IF CHECK_MANUAL_RELEASED_HOLDS (
507: p_calling_action => p_calling_action,
531: , x_return_status => l_return_status
532: );
533:
534: -- Return with Success if this Hold Already exists on the order
535: IF l_hold_result = FND_API.G_TRUE THEN
536: IF l_debug_level > 0 THEN
537: oe_debug_pub.add( 'OEXPVPMB: HOLD ALREADY APPLIED ON HEADER/LINE ID:' || P_HEADER_ID || '/' || C1.LINE_ID ) ;
538: END IF;
539: -- IF One line is on Hold, other lines will NOT go on hold
556: l_hold_source_rec.line_id := C1.line_id;
557:
558: OE_Holds_PUB.Apply_Holds
559: ( p_api_version => 1.0
560: , p_validation_level => FND_API.G_VALID_LEVEL_NONE
561: , p_hold_source_rec => l_hold_source_rec
562: , x_msg_count => l_msg_count
563: , x_msg_data => l_msg_data
564: , x_return_status => l_return_status
563: , x_msg_data => l_msg_data
564: , x_return_status => l_return_status
565: );
566:
567: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
568: RAISE FND_API.G_EXC_ERROR;
569: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
571: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
564: , x_return_status => l_return_status
565: );
566:
567: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
568: RAISE FND_API.G_EXC_ERROR;
569: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
571: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
572: --fnd_message.set_name('ONT', 'OE_CC_HOLD_APPLIED');
565: );
566:
567: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
568: RAISE FND_API.G_EXC_ERROR;
569: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
571: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
572: --fnd_message.set_name('ONT', 'OE_CC_HOLD_APPLIED');
573: l_attribute := 'Credit Check';
566:
567: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
568: RAISE FND_API.G_EXC_ERROR;
569: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
571: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
572: --fnd_message.set_name('ONT', 'OE_CC_HOLD_APPLIED');
573: l_attribute := 'Credit Check';
574: l_line_number := C1.line_number;
567: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
568: RAISE FND_API.G_EXC_ERROR;
569: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
571: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
572: --fnd_message.set_name('ONT', 'OE_CC_HOLD_APPLIED');
573: l_attribute := 'Credit Check';
574: l_line_number := C1.line_number;
575: fnd_message.set_name('ONT','OE_HLD_APPLIED_LINE');
586: END LOOP;
587:
588: EXCEPTION
589:
590: WHEN FND_API.G_EXC_ERROR THEN
591: p_return_status := FND_API.G_RET_STS_ERROR;
592: OE_MSG_PUB.Count_And_Get
593: ( p_count => l_msg_count,
594: p_data => l_msg_data
587:
588: EXCEPTION
589:
590: WHEN FND_API.G_EXC_ERROR THEN
591: p_return_status := FND_API.G_RET_STS_ERROR;
592: OE_MSG_PUB.Count_And_Get
593: ( p_count => l_msg_count,
594: p_data => l_msg_data
595: );
593: ( p_count => l_msg_count,
594: p_data => l_msg_data
595: );
596:
597: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
598: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
599: OE_MSG_PUB.Count_And_Get
600: ( p_count => l_msg_count,
601: p_data => l_msg_data
594: p_data => l_msg_data
595: );
596:
597: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
598: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
599: OE_MSG_PUB.Count_And_Get
600: ( p_count => l_msg_count,
601: p_data => l_msg_data
602: );
601: p_data => l_msg_data
602: );
603:
604: WHEN OTHERS THEN
605: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
606: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
607: THEN
608: FND_MSG_PUB.Add_Exc_Msg
609: ( G_PKG_NAME
680: IF l_debug_level > 0 THEN
681: oe_debug_pub.add( 'OEXPVPMB: AFTER CALLING CREDIT REQUEST API:' || L_RESULT_OUT ) ;
682: END IF;
683:
684: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
685: RAISE FND_API.G_EXC_ERROR;
686: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
688: END IF;
681: oe_debug_pub.add( 'OEXPVPMB: AFTER CALLING CREDIT REQUEST API:' || L_RESULT_OUT ) ;
682: END IF;
683:
684: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
685: RAISE FND_API.G_EXC_ERROR;
686: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
688: END IF;
689:
682: END IF;
683:
684: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
685: RAISE FND_API.G_EXC_ERROR;
686: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
688: END IF;
689:
690: -- Release Any existing CC Holds
683:
684: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
685: RAISE FND_API.G_EXC_ERROR;
686: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
688: END IF;
689:
690: -- Release Any existing CC Holds
691: IF l_debug_level > 0 THEN
698: , p_msg_count => l_msg_count
699: , p_msg_data => l_msg_data
700: , p_return_status => l_return_status
701: );
702: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
703: RAISE FND_API.G_EXC_ERROR;
704: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
705: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
706: END IF;
699: , p_msg_data => l_msg_data
700: , p_return_status => l_return_status
701: );
702: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
703: RAISE FND_API.G_EXC_ERROR;
704: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
705: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
706: END IF;
707:
700: , p_return_status => l_return_status
701: );
702: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
703: RAISE FND_API.G_EXC_ERROR;
704: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
705: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
706: END IF;
707:
708: -- Check the Out Result of Credit Checking
701: );
702: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
703: RAISE FND_API.G_EXC_ERROR;
704: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
705: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
706: END IF;
707:
708: -- Check the Out Result of Credit Checking
709: IF l_result_out = 'PASS' THEN
719: , p_msg_count => l_msg_count
720: , p_msg_data => l_msg_data
721: , p_return_status => l_return_status
722: );
723: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
724: RAISE FND_API.G_EXC_ERROR;
725: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
727: END IF;
720: , p_msg_data => l_msg_data
721: , p_return_status => l_return_status
722: );
723: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
724: RAISE FND_API.G_EXC_ERROR;
725: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
727: END IF;
728:
721: , p_return_status => l_return_status
722: );
723: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
724: RAISE FND_API.G_EXC_ERROR;
725: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
727: END IF;
728:
729: ELSE -- Failed
722: );
723: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
724: RAISE FND_API.G_EXC_ERROR;
725: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
727: END IF;
728:
729: ELSE -- Failed
730:
742: , p_msg_count => l_msg_count
743: , p_msg_data => l_msg_data
744: , p_return_status => l_return_status
745: );
746: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
747: RAISE FND_API.G_EXC_ERROR;
748: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
750: END IF;
743: , p_msg_data => l_msg_data
744: , p_return_status => l_return_status
745: );
746: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
747: RAISE FND_API.G_EXC_ERROR;
748: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
750: END IF;
751:
744: , p_return_status => l_return_status
745: );
746: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
747: RAISE FND_API.G_EXC_ERROR;
748: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
750: END IF;
751:
752: END IF; -- IF Result Out of Credit Checking
745: );
746: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
747: RAISE FND_API.G_EXC_ERROR;
748: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
750: END IF;
751:
752: END IF; -- IF Result Out of Credit Checking
753: END LOOP;
757: END IF;
758:
759: EXCEPTION
760:
761: WHEN FND_API.G_EXC_ERROR THEN
762: p_return_status := FND_API.G_RET_STS_ERROR;
763: OE_MSG_PUB.Count_And_Get
764: ( p_count => l_msg_count,
765: p_data => l_msg_data
758:
759: EXCEPTION
760:
761: WHEN FND_API.G_EXC_ERROR THEN
762: p_return_status := FND_API.G_RET_STS_ERROR;
763: OE_MSG_PUB.Count_And_Get
764: ( p_count => l_msg_count,
765: p_data => l_msg_data
766: );
764: ( p_count => l_msg_count,
765: p_data => l_msg_data
766: );
767:
768: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
769: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
770: OE_MSG_PUB.Count_And_Get
771: ( p_count => l_msg_count,
772: p_data => l_msg_data
765: p_data => l_msg_data
766: );
767:
768: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
769: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
770: OE_MSG_PUB.Count_And_Get
771: ( p_count => l_msg_count,
772: p_data => l_msg_data
773: );
772: p_data => l_msg_data
773: );
774:
775: WHEN OTHERS THEN
776: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
777: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
778: THEN
779: OE_MSG_PUB.Add_Exc_Msg
780: ( G_PKG_NAME
839: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
840: --
841: BEGIN
842:
843: p_return_status := FND_API.G_RET_STS_SUCCESS;
844:
845: IF l_debug_level > 0 THEN
846: oe_debug_pub.add( 'OEXPVPMB: IN VERIFY PAYMENT MAIN' , 1 ) ;
847: END IF;
887: IF l_debug_level > 0 THEN
888: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING CALL FROM DELAYED REQUEST OR NOT' ) ;
889: END IF;
890: --
891: IF NVL(p_delayed_request, FND_API.G_FALSE) = FND_API.G_TRUE THEN
892:
893: /*
894: ** Fix for 1967295:
895: ** As VOID has been de-supported by iPayment, commenting
922: , p_msg_data => l_msg_data
923: , p_result_out => l_result_out
924: , p_return_status => l_return_status
925: );
926: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
927: RAISE FND_API.G_EXC_ERROR;
928: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
929: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
930: END IF;
923: , p_result_out => l_result_out
924: , p_return_status => l_return_status
925: );
926: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
927: RAISE FND_API.G_EXC_ERROR;
928: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
929: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
930: END IF;
931:
924: , p_return_status => l_return_status
925: );
926: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
927: RAISE FND_API.G_EXC_ERROR;
928: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
929: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
930: END IF;
931:
932: -- Requery Order Header just in case it was updated during VOID.
925: );
926: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
927: RAISE FND_API.G_EXC_ERROR;
928: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
929: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
930: END IF;
931:
932: -- Requery Order Header just in case it was updated during VOID.
933: OE_DEBUG_PUB.ADD('OEXPVPMB: Requerying Order Header After Void : ');
1114: IF l_debug_level > 0 THEN
1115: oe_debug_pub.add( 'OEXPVPMB: after calling Process_Payments, returns tatus is: '||l_return_status, 3 ) ;
1116: END IF;
1117:
1118: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1119: RAISE FND_API.G_EXC_ERROR;
1120: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1122: END IF;
1115: oe_debug_pub.add( 'OEXPVPMB: after calling Process_Payments, returns tatus is: '||l_return_status, 3 ) ;
1116: END IF;
1117:
1118: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1119: RAISE FND_API.G_EXC_ERROR;
1120: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1122: END IF;
1123:
1116: END IF;
1117:
1118: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1119: RAISE FND_API.G_EXC_ERROR;
1120: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1122: END IF;
1123:
1124: RETURN;
1117:
1118: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1119: RAISE FND_API.G_EXC_ERROR;
1120: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1122: END IF;
1123:
1124: RETURN;
1125: -- end of multiple payments processing.
1276: IF l_debug_level > 0 THEN
1277: oe_debug_pub.add( 'OEXPVPMB: AFTER CALLING CREDIT REQUEST API' ) ;
1278: END IF;
1279:
1280: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1281: RAISE FND_API.G_EXC_ERROR;
1282: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1284: END IF;
1277: oe_debug_pub.add( 'OEXPVPMB: AFTER CALLING CREDIT REQUEST API' ) ;
1278: END IF;
1279:
1280: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1281: RAISE FND_API.G_EXC_ERROR;
1282: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1284: END IF;
1285: -- Check the Out Result of Credit Checking
1278: END IF;
1279:
1280: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1281: RAISE FND_API.G_EXC_ERROR;
1282: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1284: END IF;
1285: -- Check the Out Result of Credit Checking
1286: IF l_result_out = 'PASS' THEN
1279:
1280: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1281: RAISE FND_API.G_EXC_ERROR;
1282: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1284: END IF;
1285: -- Check the Out Result of Credit Checking
1286: IF l_result_out = 'PASS' THEN
1287:
1296: , p_msg_count => l_msg_count
1297: , p_msg_data => l_msg_data
1298: , p_return_status => l_return_status
1299: );
1300: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1301: RAISE FND_API.G_EXC_ERROR;
1302: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1304: END IF;
1297: , p_msg_data => l_msg_data
1298: , p_return_status => l_return_status
1299: );
1300: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1301: RAISE FND_API.G_EXC_ERROR;
1302: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1304: END IF;
1305:
1298: , p_return_status => l_return_status
1299: );
1300: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1301: RAISE FND_API.G_EXC_ERROR;
1302: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1304: END IF;
1305:
1306: ELSE -- Failed
1299: );
1300: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1301: RAISE FND_API.G_EXC_ERROR;
1302: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1304: END IF;
1305:
1306: ELSE -- Failed
1307: IF CHECK_MANUAL_RELEASED_HOLDS (
1320: , p_msg_count => l_msg_count
1321: , p_msg_data => l_msg_data
1322: , p_return_status => l_return_status
1323: );
1324: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1325: RAISE FND_API.G_EXC_ERROR;
1326: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1328: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
1321: , p_msg_data => l_msg_data
1322: , p_return_status => l_return_status
1323: );
1324: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1325: RAISE FND_API.G_EXC_ERROR;
1326: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1328: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
1329: fnd_message.set_name('ONT', 'OE_CC_HOLD_APPLIED');
1322: , p_return_status => l_return_status
1323: );
1324: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1325: RAISE FND_API.G_EXC_ERROR;
1326: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1328: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
1329: fnd_message.set_name('ONT', 'OE_CC_HOLD_APPLIED');
1330: oe_msg_pub.add;
1323: );
1324: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1325: RAISE FND_API.G_EXC_ERROR;
1326: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1328: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
1329: fnd_message.set_name('ONT', 'OE_CC_HOLD_APPLIED');
1330: oe_msg_pub.add;
1331: END IF;
1324: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1325: RAISE FND_API.G_EXC_ERROR;
1326: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1328: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
1329: fnd_message.set_name('ONT', 'OE_CC_HOLD_APPLIED');
1330: oe_msg_pub.add;
1331: END IF;
1332: END IF; -- CHECK_MANUAL_RELEASED_HOLDS
1381: IF l_debug_level > 0 THEN
1382: oe_debug_pub.add( 'OEXPVPMB: AFTER CALLING PAYMENT REQUEST API' ) ;
1383: END IF;
1384:
1385: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1386: RAISE FND_API.G_EXC_ERROR;
1387: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1389: END IF;
1382: oe_debug_pub.add( 'OEXPVPMB: AFTER CALLING PAYMENT REQUEST API' ) ;
1383: END IF;
1384:
1385: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1386: RAISE FND_API.G_EXC_ERROR;
1387: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1389: END IF;
1390:
1383: END IF;
1384:
1385: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1386: RAISE FND_API.G_EXC_ERROR;
1387: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1389: END IF;
1390:
1391: -- If No Error Occurred in Payment Request, Release any existing
1384:
1385: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1386: RAISE FND_API.G_EXC_ERROR;
1387: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1389: END IF;
1390:
1391: -- If No Error Occurred in Payment Request, Release any existing
1392: -- Credit Checking Holds This will ensure that for Elctronic Payment
1401: , p_msg_count => l_msg_count
1402: , p_msg_data => l_msg_data
1403: , p_return_status => l_return_status
1404: );
1405: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1406: RAISE FND_API.G_EXC_ERROR;
1407: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1409: END IF;
1402: , p_msg_data => l_msg_data
1403: , p_return_status => l_return_status
1404: );
1405: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1406: RAISE FND_API.G_EXC_ERROR;
1407: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1409: END IF;
1410:
1403: , p_return_status => l_return_status
1404: );
1405: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1406: RAISE FND_API.G_EXC_ERROR;
1407: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1409: END IF;
1410:
1411: -- Check the Out Result of Payment Request
1404: );
1405: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1406: RAISE FND_API.G_EXC_ERROR;
1407: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1409: END IF;
1410:
1411: -- Check the Out Result of Payment Request
1412: IF l_result_out = 'PASS' THEN
1422: , p_msg_count => l_msg_count
1423: , p_msg_data => l_msg_data
1424: , p_return_status => l_return_status
1425: );
1426: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1427: RAISE FND_API.G_EXC_ERROR;
1428: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1430: END IF;
1423: , p_msg_data => l_msg_data
1424: , p_return_status => l_return_status
1425: );
1426: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1427: RAISE FND_API.G_EXC_ERROR;
1428: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1430: END IF;
1431:
1424: , p_return_status => l_return_status
1425: );
1426: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1427: RAISE FND_API.G_EXC_ERROR;
1428: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1430: END IF;
1431:
1432: ELSIF l_result_out = 'RISK' THEN
1425: );
1426: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1427: RAISE FND_API.G_EXC_ERROR;
1428: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1430: END IF;
1431:
1432: ELSIF l_result_out = 'RISK' THEN
1433:
1442: , p_msg_count => l_msg_count
1443: , p_msg_data => l_msg_data
1444: , p_return_status => l_return_status
1445: );
1446: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1447: RAISE FND_API.G_EXC_ERROR;
1448: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1450: END IF;
1443: , p_msg_data => l_msg_data
1444: , p_return_status => l_return_status
1445: );
1446: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1447: RAISE FND_API.G_EXC_ERROR;
1448: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1450: END IF;
1451:
1444: , p_return_status => l_return_status
1445: );
1446: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1447: RAISE FND_API.G_EXC_ERROR;
1448: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1450: END IF;
1451:
1452: ELSE -- Failed
1445: );
1446: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1447: RAISE FND_API.G_EXC_ERROR;
1448: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1450: END IF;
1451:
1452: ELSE -- Failed
1453:
1462: , p_msg_count => l_msg_count
1463: , p_msg_data => l_msg_data
1464: , p_return_status => l_return_status
1465: );
1466: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1467: RAISE FND_API.G_EXC_ERROR;
1468: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1470: END IF;
1463: , p_msg_data => l_msg_data
1464: , p_return_status => l_return_status
1465: );
1466: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1467: RAISE FND_API.G_EXC_ERROR;
1468: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1470: END IF;
1471:
1464: , p_return_status => l_return_status
1465: );
1466: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1467: RAISE FND_API.G_EXC_ERROR;
1468: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1470: END IF;
1471:
1472: END IF; -- IF Result Out of Payment Request
1465: );
1466: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1467: RAISE FND_API.G_EXC_ERROR;
1468: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1470: END IF;
1471:
1472: END IF; -- IF Result Out of Payment Request
1473:
1605: IF l_debug_level > 0 THEN
1606: oe_debug_pub.add( 'OEXPVPMB: AFTER CALLING CREDIT REQUEST API' ) ;
1607: END IF;
1608:
1609: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1610: RAISE FND_API.G_EXC_ERROR;
1611: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1612: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1613: END IF;
1606: oe_debug_pub.add( 'OEXPVPMB: AFTER CALLING CREDIT REQUEST API' ) ;
1607: END IF;
1608:
1609: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1610: RAISE FND_API.G_EXC_ERROR;
1611: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1612: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1613: END IF;
1614: -- Check the Out Result of Credit Checking
1607: END IF;
1608:
1609: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1610: RAISE FND_API.G_EXC_ERROR;
1611: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1612: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1613: END IF;
1614: -- Check the Out Result of Credit Checking
1615: IF l_result_out = 'PASS' THEN
1608:
1609: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1610: RAISE FND_API.G_EXC_ERROR;
1611: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1612: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1613: END IF;
1614: -- Check the Out Result of Credit Checking
1615: IF l_result_out = 'PASS' THEN
1616:
1625: , p_msg_count => l_msg_count
1626: , p_msg_data => l_msg_data
1627: , p_return_status => l_return_status
1628: );
1629: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1630: RAISE FND_API.G_EXC_ERROR;
1631: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1633: END IF;
1626: , p_msg_data => l_msg_data
1627: , p_return_status => l_return_status
1628: );
1629: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1630: RAISE FND_API.G_EXC_ERROR;
1631: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1633: END IF;
1634:
1627: , p_return_status => l_return_status
1628: );
1629: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1630: RAISE FND_API.G_EXC_ERROR;
1631: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1633: END IF;
1634:
1635: ELSE -- Failed
1628: );
1629: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1630: RAISE FND_API.G_EXC_ERROR;
1631: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1633: END IF;
1634:
1635: ELSE -- Failed
1636: IF CHECK_MANUAL_RELEASED_HOLDS (
1649: , p_msg_count => l_msg_count
1650: , p_msg_data => l_msg_data
1651: , p_return_status => l_return_status
1652: );
1653: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1654: RAISE FND_API.G_EXC_ERROR;
1655: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1657: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
1650: , p_msg_data => l_msg_data
1651: , p_return_status => l_return_status
1652: );
1653: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1654: RAISE FND_API.G_EXC_ERROR;
1655: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1657: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
1658: fnd_message.set_name('ONT', 'OE_CC_HOLD_APPLIED');
1651: , p_return_status => l_return_status
1652: );
1653: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1654: RAISE FND_API.G_EXC_ERROR;
1655: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1657: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
1658: fnd_message.set_name('ONT', 'OE_CC_HOLD_APPLIED');
1659: oe_msg_pub.add;
1652: );
1653: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1654: RAISE FND_API.G_EXC_ERROR;
1655: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1657: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
1658: fnd_message.set_name('ONT', 'OE_CC_HOLD_APPLIED');
1659: oe_msg_pub.add;
1660: END IF;
1653: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1654: RAISE FND_API.G_EXC_ERROR;
1655: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1657: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
1658: fnd_message.set_name('ONT', 'OE_CC_HOLD_APPLIED');
1659: oe_msg_pub.add;
1660: END IF;
1661: END IF; -- CHECK_MANUAL_RELEASED_HOLDS
1690: );
1691:
1692: EXCEPTION
1693:
1694: WHEN FND_API.G_EXC_ERROR THEN
1695: p_return_status := FND_API.G_RET_STS_ERROR;
1696: OE_MSG_PUB.Count_And_Get
1697: ( p_count => l_msg_count,
1698: p_data => l_msg_data
1691:
1692: EXCEPTION
1693:
1694: WHEN FND_API.G_EXC_ERROR THEN
1695: p_return_status := FND_API.G_RET_STS_ERROR;
1696: OE_MSG_PUB.Count_And_Get
1697: ( p_count => l_msg_count,
1698: p_data => l_msg_data
1699: );
1697: ( p_count => l_msg_count,
1698: p_data => l_msg_data
1699: );
1700:
1701: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1702: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1703: OE_MSG_PUB.Count_And_Get
1704: ( p_count => l_msg_count,
1705: p_data => l_msg_data
1698: p_data => l_msg_data
1699: );
1700:
1701: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1702: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1703: OE_MSG_PUB.Count_And_Get
1704: ( p_count => l_msg_count,
1705: p_data => l_msg_data
1706: );
1705: p_data => l_msg_data
1706: );
1707:
1708: WHEN OTHERS THEN
1709: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1710: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1711: THEN
1712: OE_MSG_PUB.Add_Exc_Msg
1713: ( G_PKG_NAME
1836: RETURN (l_calling_action);
1837:
1838: EXCEPTION
1839: WHEN OTHERS THEN
1840: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1841:
1842: END Which_Rule;
1843:
1844: /*-------------------------------------------------------------------
2087: , x_return_status => l_return_status
2088: );
2089:
2090: -- Check the Result
2091: IF l_hold_result = FND_API.G_TRUE THEN
2092: p_hold_exists := 'Y';
2093: IF l_debug_level > 0 THEN
2094: oe_debug_pub.add( 'OEXPVPMB: HOLD EXISTS ON ORDER' ) ;
2095: END IF;
2143: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2144: --
2145: BEGIN
2146:
2147: p_return_status := FND_API.G_RET_STS_SUCCESS;
2148:
2149: IF l_debug_level > 0 THEN
2150: oe_debug_pub.add( 'OEXPVPMB: IN RELEASE VERIFY HOLD' ) ;
2151: END IF;
2191: , x_msg_data => l_msg_data
2192: , x_return_status => l_return_status
2193: );
2194:
2195: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2196: RAISE FND_API.G_EXC_ERROR;
2197: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2199: END IF;
2192: , x_return_status => l_return_status
2193: );
2194:
2195: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2196: RAISE FND_API.G_EXC_ERROR;
2197: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2199: END IF;
2200:
2193: );
2194:
2195: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2196: RAISE FND_API.G_EXC_ERROR;
2197: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2199: END IF;
2200:
2201: END IF; -- Do nothing if the hold has already been released.
2194:
2195: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2196: RAISE FND_API.G_EXC_ERROR;
2197: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2199: END IF;
2200:
2201: END IF; -- Do nothing if the hold has already been released.
2202:
2237: , x_msg_data => l_msg_data
2238: , x_return_status => l_return_status
2239: );
2240:
2241: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2242: RAISE FND_API.G_EXC_ERROR;
2243: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2245: END IF;
2238: , x_return_status => l_return_status
2239: );
2240:
2241: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2242: RAISE FND_API.G_EXC_ERROR;
2243: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2245: END IF;
2246:
2239: );
2240:
2241: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2242: RAISE FND_API.G_EXC_ERROR;
2243: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2245: END IF;
2246:
2247: END IF; -- Do nothing if the hold has already been released.
2240:
2241: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2242: RAISE FND_API.G_EXC_ERROR;
2243: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2245: END IF;
2246:
2247: END IF; -- Do nothing if the hold has already been released.
2248:
2284: , x_msg_data => l_msg_data
2285: , x_return_status => l_return_status
2286: );
2287:
2288: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2289: RAISE FND_API.G_EXC_ERROR;
2290: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2292: END IF;
2285: , x_return_status => l_return_status
2286: );
2287:
2288: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2289: RAISE FND_API.G_EXC_ERROR;
2290: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2292: END IF;
2293: END IF; -- Do nothing if the hold has already been released.
2286: );
2287:
2288: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2289: RAISE FND_API.G_EXC_ERROR;
2290: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2292: END IF;
2293: END IF; -- Do nothing if the hold has already been released.
2294: END IF;
2287:
2288: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2289: RAISE FND_API.G_EXC_ERROR;
2290: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2292: END IF;
2293: END IF; -- Do nothing if the hold has already been released.
2294: END IF;
2295:
2333: , x_msg_data => l_msg_data
2334: , x_return_status => l_return_status
2335: );
2336:
2337: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2338: RAISE FND_API.G_EXC_ERROR;
2339: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2341: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
2334: , x_return_status => l_return_status
2335: );
2336:
2337: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2338: RAISE FND_API.G_EXC_ERROR;
2339: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2341: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
2342: fnd_message.set_name('ONT', 'OE_CC_HOLD_REMOVED');
2335: );
2336:
2337: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2338: RAISE FND_API.G_EXC_ERROR;
2339: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2341: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
2342: fnd_message.set_name('ONT', 'OE_CC_HOLD_REMOVED');
2343: oe_msg_pub.add;
2336:
2337: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2338: RAISE FND_API.G_EXC_ERROR;
2339: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2341: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
2342: fnd_message.set_name('ONT', 'OE_CC_HOLD_REMOVED');
2343: oe_msg_pub.add;
2344: END IF;
2337: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2338: RAISE FND_API.G_EXC_ERROR;
2339: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2341: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
2342: fnd_message.set_name('ONT', 'OE_CC_HOLD_REMOVED');
2343: oe_msg_pub.add;
2344: END IF;
2345:
2348: END IF; -- Electronic Payment
2349:
2350: EXCEPTION
2351:
2352: WHEN FND_API.G_EXC_ERROR THEN
2353: p_return_status := FND_API.G_RET_STS_ERROR;
2354: OE_MSG_PUB.Count_And_Get
2355: ( p_count => l_msg_count,
2356: p_data => l_msg_data
2349:
2350: EXCEPTION
2351:
2352: WHEN FND_API.G_EXC_ERROR THEN
2353: p_return_status := FND_API.G_RET_STS_ERROR;
2354: OE_MSG_PUB.Count_And_Get
2355: ( p_count => l_msg_count,
2356: p_data => l_msg_data
2357: );
2355: ( p_count => l_msg_count,
2356: p_data => l_msg_data
2357: );
2358:
2359: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2360: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2361: OE_MSG_PUB.Count_And_Get
2362: ( p_count => l_msg_count,
2363: p_data => l_msg_data
2356: p_data => l_msg_data
2357: );
2358:
2359: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2360: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2361: OE_MSG_PUB.Count_And_Get
2362: ( p_count => l_msg_count,
2363: p_data => l_msg_data
2364: );
2363: p_data => l_msg_data
2364: );
2365:
2366: WHEN OTHERS THEN
2367: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2368: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2369: THEN
2370: FND_MSG_PUB.Add_Exc_Msg
2371: ( G_PKG_NAME
2405: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2406: --
2407: BEGIN
2408:
2409: p_return_status := FND_API.G_RET_STS_SUCCESS;
2410:
2411: IF l_debug_level > 0 THEN
2412: oe_debug_pub.add( 'OEXPVPMB: IN APPLY VERIFY HOLDS' ) ;
2413: END IF;
2448: l_hold_source_rec.hold_entity_id := p_header_id; -- Order Header
2449:
2450: OE_Holds_PUB.Apply_Holds
2451: ( p_api_version => 1.0
2452: , p_validation_level => FND_API.G_VALID_LEVEL_NONE
2453: , p_hold_source_rec => l_hold_source_rec
2454: , x_msg_count => l_msg_count
2455: , x_msg_data => l_msg_data
2456: , x_return_status => l_return_status
2455: , x_msg_data => l_msg_data
2456: , x_return_status => l_return_status
2457: );
2458:
2459: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2460: IF p_hold_id = 16 THEN
2461: FND_MESSAGE.SET_NAME('ONT','ONT_PENDING_AUTH_HOLD_APPLIED');
2462: FND_MESSAGE.SET_TOKEN('LEVEL','ORDER');
2463: OE_MSG_PUB.ADD;
2464: IF l_debug_level > 0 THEN
2465: oe_debug_pub.add( 'OEXVPPYB: Pending Payment Authorization hold has been applied on order.', 3);
2466: END IF;
2467: END IF;
2468: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2469: RAISE FND_API.G_EXC_ERROR;
2470: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2472: END IF;
2465: oe_debug_pub.add( 'OEXVPPYB: Pending Payment Authorization hold has been applied on order.', 3);
2466: END IF;
2467: END IF;
2468: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2469: RAISE FND_API.G_EXC_ERROR;
2470: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2472: END IF;
2473:
2466: END IF;
2467: END IF;
2468: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2469: RAISE FND_API.G_EXC_ERROR;
2470: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2472: END IF;
2473:
2474: IF l_debug_level > 0 THEN
2467: END IF;
2468: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2469: RAISE FND_API.G_EXC_ERROR;
2470: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2472: END IF;
2473:
2474: IF l_debug_level > 0 THEN
2475: oe_debug_pub.add( 'OEXPVPMB: APPLIED VERIFY HOLD ON HEADER ID:' || P_HEADER_ID ) ;
2476: END IF;
2477:
2478: EXCEPTION
2479:
2480: WHEN FND_API.G_EXC_ERROR THEN
2481: p_return_status := FND_API.G_RET_STS_ERROR;
2482: OE_MSG_PUB.Count_And_Get
2483: ( p_count => l_msg_count,
2484: p_data => l_msg_data
2477:
2478: EXCEPTION
2479:
2480: WHEN FND_API.G_EXC_ERROR THEN
2481: p_return_status := FND_API.G_RET_STS_ERROR;
2482: OE_MSG_PUB.Count_And_Get
2483: ( p_count => l_msg_count,
2484: p_data => l_msg_data
2485: );
2483: ( p_count => l_msg_count,
2484: p_data => l_msg_data
2485: );
2486:
2487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2488: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2489: OE_MSG_PUB.Count_And_Get
2490: ( p_count => l_msg_count,
2491: p_data => l_msg_data
2484: p_data => l_msg_data
2485: );
2486:
2487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2488: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2489: OE_MSG_PUB.Count_And_Get
2490: ( p_count => l_msg_count,
2491: p_data => l_msg_data
2492: );
2491: p_data => l_msg_data
2492: );
2493:
2494: WHEN OTHERS THEN
2495: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2496: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2497: THEN
2498: FND_MSG_PUB.Add_Exc_Msg
2499: ( G_PKG_NAME
2537: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2538: --
2539: BEGIN
2540:
2541: p_return_status := FND_API.G_RET_STS_SUCCESS;
2542:
2543: IF l_debug_level > 0 THEN
2544: oe_debug_pub.add( 'OEXPVPMB: IN APPLY VERIFY HOLDS' ) ;
2545: END IF;
2580: l_hold_source_rec.hold_entity_id := p_header_id; -- Order Header
2581:
2582: OE_Holds_PUB.Apply_Holds
2583: ( p_api_version => 1.0
2584: , p_validation_level => FND_API.G_VALID_LEVEL_NONE
2585: , p_hold_source_rec => l_hold_source_rec
2586: , x_msg_count => l_msg_count
2587: , x_msg_data => l_msg_data
2588: , x_return_status => l_return_status
2587: , x_msg_data => l_msg_data
2588: , x_return_status => l_return_status
2589: );
2590:
2591: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2592: IF p_hold_id = 16 THEN
2593: FND_MESSAGE.SET_NAME('ONT','ONT_PENDING_AUTH_HOLD_APPLIED');
2594: FND_MESSAGE.SET_TOKEN('LEVEL','ORDER');
2595: OE_MSG_PUB.ADD;
2596: IF l_debug_level > 0 THEN
2597: oe_debug_pub.add( 'OEXVPPYB: Pending Payment Authorization hold has been applied on order.', 3);
2598: END IF;
2599: END IF;
2600: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2601: RAISE FND_API.G_EXC_ERROR;
2602: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2604: END IF;
2597: oe_debug_pub.add( 'OEXVPPYB: Pending Payment Authorization hold has been applied on order.', 3);
2598: END IF;
2599: END IF;
2600: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2601: RAISE FND_API.G_EXC_ERROR;
2602: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2604: END IF;
2605:
2598: END IF;
2599: END IF;
2600: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2601: RAISE FND_API.G_EXC_ERROR;
2602: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2604: END IF;
2605:
2606: -- bug 4339864
2599: END IF;
2600: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2601: RAISE FND_API.G_EXC_ERROR;
2602: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2604: END IF;
2605:
2606: -- bug 4339864
2607: IF l_debug_level > 0 THEN
2616: END IF;
2617:
2618: EXCEPTION
2619:
2620: WHEN FND_API.G_EXC_ERROR THEN
2621: p_return_status := FND_API.G_RET_STS_ERROR;
2622: OE_MSG_PUB.Count_And_Get
2623: ( p_count => l_msg_count,
2624: p_data => l_msg_data
2617:
2618: EXCEPTION
2619:
2620: WHEN FND_API.G_EXC_ERROR THEN
2621: p_return_status := FND_API.G_RET_STS_ERROR;
2622: OE_MSG_PUB.Count_And_Get
2623: ( p_count => l_msg_count,
2624: p_data => l_msg_data
2625: );
2623: ( p_count => l_msg_count,
2624: p_data => l_msg_data
2625: );
2626:
2627: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2628: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2629: OE_MSG_PUB.Count_And_Get
2630: ( p_count => l_msg_count,
2631: p_data => l_msg_data
2624: p_data => l_msg_data
2625: );
2626:
2627: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2628: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2629: OE_MSG_PUB.Count_And_Get
2630: ( p_count => l_msg_count,
2631: p_data => l_msg_data
2632: );
2631: p_data => l_msg_data
2632: );
2633:
2634: WHEN OTHERS THEN
2635: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2636: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2637: THEN
2638: FND_MSG_PUB.Add_Exc_Msg
2639: ( G_PKG_NAME
2673: --
2674: BEGIN
2675:
2676: p_result_out := 'PASS';
2677: p_return_status := FND_API.G_RET_STS_SUCCESS;
2678:
2679: IF l_debug_level > 0 THEN
2680: oe_debug_pub.add( 'OEXPVPMB: IN PAYMENT REQUEST MAIN' ) ;
2681: END IF;
2727: , p_msg_data => l_msg_data
2728: , p_result_out => p_result_out
2729: , p_return_status=> l_return_status
2730: );
2731: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2732: RAISE FND_API.G_EXC_ERROR;
2733: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2735: END IF;
2728: , p_result_out => p_result_out
2729: , p_return_status=> l_return_status
2730: );
2731: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2732: RAISE FND_API.G_EXC_ERROR;
2733: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2735: END IF;
2736:
2729: , p_return_status=> l_return_status
2730: );
2731: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2732: RAISE FND_API.G_EXC_ERROR;
2733: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2735: END IF;
2736:
2737: ELSIF p_trxn_type = 'VOIDAUTHONLY' THEN
2730: );
2731: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2732: RAISE FND_API.G_EXC_ERROR;
2733: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2735: END IF;
2736:
2737: ELSIF p_trxn_type = 'VOIDAUTHONLY' THEN
2738:
2765: , p_msg_data => l_msg_data
2766: , p_return_status=> l_return_status
2767: , p_void_supported => l_void_supported
2768: ) ;
2769: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2770: RAISE FND_API.G_EXC_ERROR;
2771: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2773: END IF;
2766: , p_return_status=> l_return_status
2767: , p_void_supported => l_void_supported
2768: ) ;
2769: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2770: RAISE FND_API.G_EXC_ERROR;
2771: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2773: END IF;
2774: END IF;
2767: , p_void_supported => l_void_supported
2768: ) ;
2769: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2770: RAISE FND_API.G_EXC_ERROR;
2771: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2773: END IF;
2774: END IF;
2775:
2768: ) ;
2769: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2770: RAISE FND_API.G_EXC_ERROR;
2771: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2773: END IF;
2774: END IF;
2775:
2776: -- Return if VOID is not even supported.
2805: , l_msg_count
2806: , l_msg_data
2807: , l_return_status
2808: );
2809: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2810: RAISE FND_API.G_EXC_ERROR;
2811: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2813: END IF;
2806: , l_msg_data
2807: , l_return_status
2808: );
2809: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2810: RAISE FND_API.G_EXC_ERROR;
2811: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2813: END IF;
2814:
2807: , l_return_status
2808: );
2809: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2810: RAISE FND_API.G_EXC_ERROR;
2811: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2813: END IF;
2814:
2815: -- Release any existing Credit Card Holds on the Order
2808: );
2809: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2810: RAISE FND_API.G_EXC_ERROR;
2811: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2813: END IF;
2814:
2815: -- Release any existing Credit Card Holds on the Order
2816: IF l_debug_level > 0 THEN
2823: , p_msg_count => l_msg_count
2824: , p_msg_data => l_msg_data
2825: , p_return_status => l_return_status
2826: );
2827: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2828: RAISE FND_API.G_EXC_ERROR;
2829: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2830: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2831: END IF;
2824: , p_msg_data => l_msg_data
2825: , p_return_status => l_return_status
2826: );
2827: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2828: RAISE FND_API.G_EXC_ERROR;
2829: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2830: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2831: END IF;
2832:
2825: , p_return_status => l_return_status
2826: );
2827: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2828: RAISE FND_API.G_EXC_ERROR;
2829: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2830: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2831: END IF;
2832:
2833: END IF;
2826: );
2827: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2828: RAISE FND_API.G_EXC_ERROR;
2829: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2830: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2831: END IF;
2832:
2833: END IF;
2834:
2833: END IF;
2834:
2835: EXCEPTION
2836:
2837: WHEN FND_API.G_EXC_ERROR THEN
2838: p_result_out := 'FAIL';
2839: p_return_status := FND_API.G_RET_STS_ERROR;
2840: OE_MSG_PUB.Count_And_Get
2841: ( p_count => l_msg_count,
2835: EXCEPTION
2836:
2837: WHEN FND_API.G_EXC_ERROR THEN
2838: p_result_out := 'FAIL';
2839: p_return_status := FND_API.G_RET_STS_ERROR;
2840: OE_MSG_PUB.Count_And_Get
2841: ( p_count => l_msg_count,
2842: p_data => l_msg_data
2843: );
2841: ( p_count => l_msg_count,
2842: p_data => l_msg_data
2843: );
2844:
2845: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2846: p_result_out := 'FAIL';
2847: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2848: OE_MSG_PUB.Count_And_Get
2849: ( p_count => l_msg_count,
2843: );
2844:
2845: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2846: p_result_out := 'FAIL';
2847: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2848: OE_MSG_PUB.Count_And_Get
2849: ( p_count => l_msg_count,
2850: p_data => l_msg_data
2851: );
2851: );
2852:
2853: WHEN OTHERS THEN
2854: p_result_out := 'FAIL';
2855: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2856: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2857: THEN
2858: FND_MSG_PUB.Add_Exc_Msg
2859: ( G_PKG_NAME
3097: --
3098: BEGIN
3099:
3100: p_result_out := 'PASS' ;
3101: p_return_status := FND_API.G_RET_STS_SUCCESS;
3102:
3103: IF l_debug_level > 0 THEN
3104: oe_debug_pub.add( 'OEXPVPMB: IN AUTHORIZE PAYMENT' ) ;
3105: END IF;
3139: , p_msg_data => l_msg_data
3140: , p_return_status=> l_return_status
3141: , p_void_supported => l_void_supported
3142: ) ;
3143: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3144: p_result_out := 'FAIL';
3145: RETURN;
3146: END IF;
3147:
3685: oe_debug_pub.add( 'OEXPVPMB: AFTER EXECUTING THE PL/SQL BLOCK' ) ;
3686: END IF;
3687: --
3688:
3689: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR l_status > 0 THEN
3690: --bug 4065891 commenting out the following code which checks for err_code = 'IBY_0008'
3691: -- Check if the Operation was Supported or not
3692: /* IF NVL(l_err_code, 'XXX') = 'IBY_0008' THEN
3693: l_return_status := FND_API.G_RET_STS_SUCCESS;
3689: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR l_status > 0 THEN
3690: --bug 4065891 commenting out the following code which checks for err_code = 'IBY_0008'
3691: -- Check if the Operation was Supported or not
3692: /* IF NVL(l_err_code, 'XXX') = 'IBY_0008' THEN
3693: l_return_status := FND_API.G_RET_STS_SUCCESS;
3694: IF l_debug_level > 0 THEN
3695: oe_debug_pub.add( 'OEXPVPMB: OPERATION NOT SUPPORTED.' ) ;
3696: END IF;
3697: RETURN;
3756: , l_msg_data
3757: , l_return_status
3758: );
3759:
3760: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3761: p_result_out := 'FAIL';
3762: RETURN;
3763: END IF;
3764:
3794: EXCEPTION
3795:
3796: WHEN OTHERS THEN
3797: p_result_out := 'FAIL';
3798: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3799:
3800: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3801: THEN
3802: FND_MSG_PUB.Add_Exc_Msg
4265: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4266: --
4267: BEGIN
4268:
4269: p_return_status := FND_API.G_RET_STS_SUCCESS;
4270: p_void_supported:= 'Y';
4271:
4272: IF l_debug_level > 0 THEN
4273: oe_debug_pub.add( 'OEXPVPMB: IN VOID PAYMENT' ) ;
4357: IF l_status > 0 THEN
4358:
4359: -- Check if the Operation was Supported or not
4360: IF NVL(l_err_code, 'XXX') = 'IBY_0008' THEN
4361: l_return_status := FND_API.G_RET_STS_SUCCESS;
4362: p_void_supported:= 'N';
4363: IF l_debug_level > 0 THEN
4364: oe_debug_pub.add( 'OEXPVPMB: VOID TRANSACTION NOT SUPPORTED.' ) ;
4365: END IF;
4364: oe_debug_pub.add( 'OEXPVPMB: VOID TRANSACTION NOT SUPPORTED.' ) ;
4365: END IF;
4366: RETURN;
4367: ELSE
4368: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4369: END IF;
4370: END IF;
4371:
4372: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4368: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4369: END IF;
4370: END IF;
4371:
4372: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4373:
4374: -- Message "The following error(s) occurred when calling iPayment for Credit Card Transaction :"
4375: FND_MESSAGE.SET_NAME('ONT','OE_VPM_IPAYMENT_ERROR');
4376: FND_MESSAGE.SET_TOKEN('ERRCODE',l_err_code);
4398: IF l_debug_level > 0 THEN
4399: oe_debug_pub.add( 'OEXPVPMB: BEP ERR MESG : '||L_BEP_ERR_MESG ) ;
4400: END IF;
4401:
4402: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4403:
4404: END IF;
4405:
4406: EXCEPTION
4404: END IF;
4405:
4406: EXCEPTION
4407:
4408: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4409: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4410: OE_MSG_PUB.Count_And_Get
4411: ( p_count => l_msg_count,
4412: p_data => l_msg_data
4405:
4406: EXCEPTION
4407:
4408: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4409: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4410: OE_MSG_PUB.Count_And_Get
4411: ( p_count => l_msg_count,
4412: p_data => l_msg_data
4413: );
4412: p_data => l_msg_data
4413: );
4414:
4415: WHEN OTHERS THEN
4416: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4417: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4418: THEN
4419: FND_MSG_PUB.Add_Exc_Msg
4420: ( G_PKG_NAME
4669: END IF;
4670: IF l_debug_level > 0 THEN
4671: oe_debug_pub.add( 'OEXPVPMB: ERROR: '||SQLERRM ) ;
4672: END IF;
4673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4674: end;
4675:
4676: END IF;
4677:
4714: END IF;
4715: IF l_debug_level > 0 THEN
4716: oe_debug_pub.add( 'OEXPVPMB: ERROR: '||SQLERRM ) ;
4717: END IF;
4718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4719: end;
4720:
4721: END IF;
4722:
4870: BEGIN
4871:
4872: SAVEPOINT Update_Authorization_Info;
4873:
4874: p_return_status := FND_API.G_RET_STS_SUCCESS;
4875:
4876: IF l_debug_level > 0 THEN
4877: oe_debug_pub.add( 'OEXPVPMB: IN UPDATE AUTHORIZATION INFORMATION' ) ;
4878: END IF;
4882: (p_header_id => p_header_id
4883: ,p_x_header_rec => l_old_header_rec
4884: ,x_return_status => l_return_status
4885: );
4886: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4887: RAISE FND_API.G_EXC_ERROR;
4888: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4889: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4890: END IF;
4883: ,p_x_header_rec => l_old_header_rec
4884: ,x_return_status => l_return_status
4885: );
4886: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4887: RAISE FND_API.G_EXC_ERROR;
4888: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4889: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4890: END IF;
4891:
4884: ,x_return_status => l_return_status
4885: );
4886: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4887: RAISE FND_API.G_EXC_ERROR;
4888: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4889: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4890: END IF;
4891:
4892: l_header_rec := l_old_header_rec;
4885: );
4886: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4887: RAISE FND_API.G_EXC_ERROR;
4888: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4889: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4890: END IF;
4891:
4892: l_header_rec := l_old_header_rec;
4893:
4968: IF l_debug_level > 0 THEN
4969: oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_DATE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_DATE , 1 ) ;
4970: END IF;
4971:
4972: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4973: RAISE FND_API.G_EXC_ERROR;
4974: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4976: END IF;
4969: oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_DATE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_DATE , 1 ) ;
4970: END IF;
4971:
4972: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4973: RAISE FND_API.G_EXC_ERROR;
4974: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4976: END IF;
4977:
4970: END IF;
4971:
4972: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4973: RAISE FND_API.G_EXC_ERROR;
4974: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4976: END IF;
4977:
4978: -- Process requests is TRUE so still need to call it, but don't need to notify
4971:
4972: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4973: RAISE FND_API.G_EXC_ERROR;
4974: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4976: END IF;
4977:
4978: -- Process requests is TRUE so still need to call it, but don't need to notify
4979: IF l_debug_level > 0 THEN
4986: , p_old_header_rec => l_old_header_rec
4987: , x_return_status => l_return_status
4988: );
4989:
4990: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4991: RAISE FND_API.G_EXC_ERROR;
4992: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4994: END IF;
4987: , x_return_status => l_return_status
4988: );
4989:
4990: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4991: RAISE FND_API.G_EXC_ERROR;
4992: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4994: END IF;
4995:
4988: );
4989:
4990: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4991: RAISE FND_API.G_EXC_ERROR;
4992: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4994: END IF;
4995:
4996: END IF ; /* global entity index null check */
4989:
4990: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4991: RAISE FND_API.G_EXC_ERROR;
4992: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4994: END IF;
4995:
4996: END IF ; /* global entity index null check */
4997:
5007: , p_old_header_rec => l_old_header_rec
5008: , x_return_status => l_return_status
5009: );
5010:
5011: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5012: RAISE FND_API.G_EXC_ERROR;
5013: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5015: END IF;
5008: , x_return_status => l_return_status
5009: );
5010:
5011: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5012: RAISE FND_API.G_EXC_ERROR;
5013: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5015: END IF;
5016:
5009: );
5010:
5011: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5012: RAISE FND_API.G_EXC_ERROR;
5013: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5015: END IF;
5016:
5017: -- notification framework end
5010:
5011: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5012: RAISE FND_API.G_EXC_ERROR;
5013: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5015: END IF;
5016:
5017: -- notification framework end
5018: END IF; /* code set is pack H or higher */
5019: /* jolin end*/
5020:
5021: EXCEPTION
5022:
5023: WHEN FND_API.G_EXC_ERROR THEN
5024: ROLLBACK TO Update_Authorization_Info;
5025: p_return_status := FND_API.G_RET_STS_ERROR;
5026: OE_MSG_PUB.Count_And_Get
5027: ( p_count => l_msg_count,
5021: EXCEPTION
5022:
5023: WHEN FND_API.G_EXC_ERROR THEN
5024: ROLLBACK TO Update_Authorization_Info;
5025: p_return_status := FND_API.G_RET_STS_ERROR;
5026: OE_MSG_PUB.Count_And_Get
5027: ( p_count => l_msg_count,
5028: p_data => l_msg_data
5029: );
5027: ( p_count => l_msg_count,
5028: p_data => l_msg_data
5029: );
5030:
5031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5032: ROLLBACK TO Update_Authorization_Info;
5033: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5034: OE_MSG_PUB.Count_And_Get
5035: ( p_count => l_msg_count,
5029: );
5030:
5031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5032: ROLLBACK TO Update_Authorization_Info;
5033: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5034: OE_MSG_PUB.Count_And_Get
5035: ( p_count => l_msg_count,
5036: p_data => l_msg_data
5037: );
5037: );
5038:
5039: WHEN OTHERS THEN
5040: ROLLBACK TO Update_Authorization_Info;
5041: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5042:
5043: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5044: THEN
5045: FND_MSG_PUB.Add_Exc_Msg
5260:
5261: BEGIN
5262:
5263: p_result_out := 'PASS' ;
5264: p_return_status := FND_API.G_RET_STS_SUCCESS;
5265:
5266: IF l_debug_level > 0 THEN
5267: oe_debug_pub.add( 'OEXPVPMB: IN AUTHORIZE MULTIPLE PAYMENTS' ) ;
5268: END IF;
5392: , p_msg_count => l_msg_count
5393: , p_msg_data => l_msg_data
5394: , p_return_status => l_return_status
5395: );
5396: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5397: RAISE FND_API.G_EXC_ERROR;
5398: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5400: END IF;
5393: , p_msg_data => l_msg_data
5394: , p_return_status => l_return_status
5395: );
5396: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5397: RAISE FND_API.G_EXC_ERROR;
5398: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5400: END IF;
5401: goto Next_In_Loop;
5394: , p_return_status => l_return_status
5395: );
5396: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5397: RAISE FND_API.G_EXC_ERROR;
5398: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5400: END IF;
5401: goto Next_In_Loop;
5402: END IF;
5395: );
5396: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5397: RAISE FND_API.G_EXC_ERROR;
5398: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5400: END IF;
5401: goto Next_In_Loop;
5402: END IF;
5403:
5450: , p_msg_count => l_msg_count
5451: , p_msg_data => l_msg_data
5452: , p_return_status => l_return_status
5453: );
5454: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5455: RAISE FND_API.G_EXC_ERROR;
5456: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5458: END IF;
5451: , p_msg_data => l_msg_data
5452: , p_return_status => l_return_status
5453: );
5454: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5455: RAISE FND_API.G_EXC_ERROR;
5456: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5458: END IF;
5459: goto Next_In_Loop;
5452: , p_return_status => l_return_status
5453: );
5454: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5455: RAISE FND_API.G_EXC_ERROR;
5456: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5458: END IF;
5459: goto Next_In_Loop;
5460: END IF;
5453: );
5454: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5455: RAISE FND_API.G_EXC_ERROR;
5456: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5458: END IF;
5459: goto Next_In_Loop;
5460: END IF;
5461:
5654: , x_return_status => l_return_status
5655: );
5656: END IF;
5657:
5658: IF l_hold_result = FND_API.G_TRUE THEN
5659: IF l_debug_level > 0 THEN
5660: oe_debug_pub.add( 'OEXPVPMB: ORDER IS ON RISK HOLD' ) ;
5661: END IF;
5662: l_result_status := 'RISK';
5955:
5956: --For bug 3571485
5957: l_format_mask := get_format_mask(p_header_rec.transactional_curr_code);
5958:
5959: IF l_return_status = FND_API.G_RET_STS_SUCCESS AND
5960: l_response.result_code = 'AUTH_SUCCESS' THEN
5961:
5962: IF l_debug_level >0 THEN
5963: oe_debug_pub.add('Authorization successful....');
5985: , p_return_status => l_return_status
5986: );
5987: END IF;
5988:
5989: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5990: RAISE FND_API.G_EXC_ERROR;
5991: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5993: END IF;
5986: );
5987: END IF;
5988:
5989: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5990: RAISE FND_API.G_EXC_ERROR;
5991: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5993: END IF;
5994:
5987: END IF;
5988:
5989: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5990: RAISE FND_API.G_EXC_ERROR;
5991: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5993: END IF;
5994:
5995: --Risk Score evaluation -- Bug 6805953
5988:
5989: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5990: RAISE FND_API.G_EXC_ERROR;
5991: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5993: END IF;
5994:
5995: --Risk Score evaluation -- Bug 6805953
5996: IF nvl(p_risk_eval_flag, 'Y') = 'Y' THEN --change flag to p_risk_eval_flag l_RiskEval_Enable_Flag verify
6062: END IF;
6063: -- the value is reject, then
6064: FND_MESSAGE.SET_NAME('ONT','ONT_RISK_VALIDATION_FAILED');
6065: OE_MSG_PUB.ADD;
6066: RAISE FND_API.G_EXC_ERROR;
6067: END IF; --Reject flag
6068: comm rej */
6069: END IF; -- risk score > threshold
6070: END IF; --risk eval flag = y
6096:
6097: --bug 4767915
6098: --A new message has been added for the scenario when the
6099: --authorization is successful but security code validation has failed
6100: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS AND
6101: l_response.result_code = 'SECURITY_CODE_WARNING' THEN
6102:
6103: IF l_debug_level > 0 THEN
6104: oe_debug_pub.add('Security code warning...');
6165: FND_MESSAGE.SET_NAME('ONT','ONT_CC_SECURITY_CODE_FAILED');
6166: OE_MSG_PUB.ADD;
6167: RETURN;
6168: --bug 4767915
6169: /* ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS AND
6170: l_response.result_code = 'RISK_THRESHOLD_EXCEEDED' THEN
6171:
6172: IF l_debug_level > 0 THEN
6173: oe_debug_pub.add('Risk threshold exceeded...');
6292: -- the value is to reject on failure, then
6293: -- raise error so the transaction will fail
6294: FND_MESSAGE.SET_NAME('ONT',' ONT_CC_AUTH_FAILED'); FND_MESSAGE.SET_TOKEN('AMOUNT',TO_CHAR(l_amount_to_authorize,l_format_mask));
6295: OE_MSG_PUB.ADD;
6296: RAISE FND_API.G_EXC_ERROR;
6297: END IF;
6298: comm rej*/
6299: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6300: RAISE FND_API.G_EXC_ERROR;
6295: OE_MSG_PUB.ADD;
6296: RAISE FND_API.G_EXC_ERROR;
6297: END IF;
6298: comm rej*/
6299: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6300: RAISE FND_API.G_EXC_ERROR;
6301: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6303: END IF;
6296: RAISE FND_API.G_EXC_ERROR;
6297: END IF;
6298: comm rej*/
6299: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6300: RAISE FND_API.G_EXC_ERROR;
6301: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6303: END IF;
6304:
6297: END IF;
6298: comm rej*/
6299: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6300: RAISE FND_API.G_EXC_ERROR;
6301: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6303: END IF;
6304:
6305: END IF; --Return status of create_auth
6298: comm rej*/
6299: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6300: RAISE FND_API.G_EXC_ERROR;
6301: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6303: END IF;
6304:
6305: END IF; --Return status of create_auth
6306:
6346: );
6347: END IF;
6348:
6349:
6350: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6351: p_result_out := 'FAIL';
6352:
6353:
6354:
6386: -- To either release or apply the verify hold.
6387: p_result_out := l_result_status;
6388:
6389: IF l_result_status = 'PASS'
6390: AND l_return_status = FND_API.G_RET_STS_SUCCESS THEN
6391:
6392: -- Release Any existing CC Holds
6393: IF l_debug_level > 0 THEN
6394: oe_debug_pub.add( 'OEXPVPMB: RELEASING LINE LEVEL CREDIT CARD HOLDS' ) ;
6414: , p_return_status => l_return_status
6415: );
6416: END IF;
6417:
6418: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6419: RAISE FND_API.G_EXC_ERROR;
6420: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6422: END IF;
6415: );
6416: END IF;
6417:
6418: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6419: RAISE FND_API.G_EXC_ERROR;
6420: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6422: END IF;
6423:
6416: END IF;
6417:
6418: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6419: RAISE FND_API.G_EXC_ERROR;
6420: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6422: END IF;
6423:
6424: ELSIF l_result_status = 'RISK' THEN
6417:
6418: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6419: RAISE FND_API.G_EXC_ERROR;
6420: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6422: END IF;
6423:
6424: ELSIF l_result_status = 'RISK' THEN
6425:
6446: , p_return_status => l_return_status
6447: );
6448: END IF;
6449:
6450: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6451: RAISE FND_API.G_EXC_ERROR;
6452: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6454: END IF;
6447: );
6448: END IF;
6449:
6450: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6451: RAISE FND_API.G_EXC_ERROR;
6452: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6454: END IF;
6455:
6448: END IF;
6449:
6450: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6451: RAISE FND_API.G_EXC_ERROR;
6452: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6454: END IF;
6455:
6456: ELSE -- Failed
6449:
6450: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6451: RAISE FND_API.G_EXC_ERROR;
6452: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6454: END IF;
6455:
6456: ELSE -- Failed
6457:
6479: , p_return_status => l_return_status
6480: );
6481: END IF;
6482:
6483: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6484: RAISE FND_API.G_EXC_ERROR;
6485: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6487: END IF;
6480: );
6481: END IF;
6482:
6483: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6484: RAISE FND_API.G_EXC_ERROR;
6485: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6487: END IF;
6488:
6481: END IF;
6482:
6483: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6484: RAISE FND_API.G_EXC_ERROR;
6485: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6487: END IF;
6488:
6489: END IF; -- IF Result Status.
6482:
6483: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6484: RAISE FND_API.G_EXC_ERROR;
6485: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6487: END IF;
6488:
6489: END IF; -- IF Result Status.
6490:
6494:
6495: p_return_status := l_return_status;
6496:
6497: EXCEPTION
6498: WHEN FND_API.G_EXC_ERROR THEN
6499: l_err_message := SQLERRM;
6500: IF l_debug_level > 0 THEN
6501: oe_debug_pub.add('Create_Authorization error....exc');
6502: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status);
6503: oe_debug_pub.add('Result code'||l_response.result_code);
6504: oe_debug_pub.add('Error'||l_err_message);
6505: END IF;
6506:
6507: p_return_status := FND_API.G_RET_STS_ERROR;
6508: OE_MSG_PUB.Count_And_Get
6509: ( p_count => l_msg_count,
6510: p_data => l_msg_data
6511: );
6509: ( p_count => l_msg_count,
6510: p_data => l_msg_data
6511: );
6512:
6513: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6514: l_err_message := SQLERRM;
6515: IF l_debug_level > 0 THEN
6516: oe_debug_pub.add('Create_Authorization error....unxc');
6517: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status);
6518: oe_debug_pub.add('Result code'||l_response.result_code);
6519: oe_debug_pub.add('f Error'||l_err_message);
6520: END IF;
6521:
6522: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6523: OE_MSG_PUB.Count_And_Get
6524: ( p_count => l_msg_count,
6525: p_data => l_msg_data
6526: );
6529: l_err_message := SQLERRM;
6530: oe_debug_pub.add('Returned error others part in Auth multi payments...'||l_err_message);
6531:
6532: p_result_out := 'FAIL';
6533: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6534:
6535: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6536: THEN
6537: FND_MSG_PUB.Add_Exc_Msg
6577: --
6578:
6579: BEGIN
6580:
6581: x_return_status := FND_API.G_RET_STS_SUCCESS;
6582: IF l_debug_level > 0 THEN
6583: oe_debug_pub.add( 'OEXPVPMB: IN CHECK REAUTHORIZE ORDER' ) ;
6584: END IF;
6585:
6613: x_msg_count => x_msg_count,
6614: x_msg_data => x_msg_data,
6615: x_return_status => x_return_status);
6616:
6617: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6618: RAISE FND_API.G_EXC_ERROR;
6619: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6621: END IF;
6614: x_msg_data => x_msg_data,
6615: x_return_status => x_return_status);
6616:
6617: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6618: RAISE FND_API.G_EXC_ERROR;
6619: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6621: END IF;
6622:
6615: x_return_status => x_return_status);
6616:
6617: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6618: RAISE FND_API.G_EXC_ERROR;
6619: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6621: END IF;
6622:
6623: -- update oe_payments table
6616:
6617: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6618: RAISE FND_API.G_EXC_ERROR;
6619: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6621: END IF;
6622:
6623: -- update oe_payments table
6624: UPDATE oe_payments
6669: x_msg_count => x_msg_count,
6670: x_msg_data => x_msg_data,
6671: x_return_status => x_return_status);
6672:
6673: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6674: RAISE FND_API.G_EXC_ERROR;
6675: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6677: END IF;
6670: x_msg_data => x_msg_data,
6671: x_return_status => x_return_status);
6672:
6673: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6674: RAISE FND_API.G_EXC_ERROR;
6675: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6677: END IF;
6678:
6671: x_return_status => x_return_status);
6672:
6673: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6674: RAISE FND_API.G_EXC_ERROR;
6675: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6677: END IF;
6678:
6679: -- update oe_payments table
6672:
6673: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6674: RAISE FND_API.G_EXC_ERROR;
6675: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6677: END IF;
6678:
6679: -- update oe_payments table
6680: UPDATE oe_payments
6706:
6707: p_reauthorize_out := l_reauthorize_flag ;
6708:
6709: EXCEPTION WHEN OTHERS THEN
6710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6711: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6712: THEN
6713: FND_MSG_PUB.Add_Exc_Msg
6714: ( G_PKG_NAME
6750:
6751: --pnpl start
6752: l_pay_now_total_detail_tbl AR_VIEW_TERM_GRP.amounts_table;
6753: l_pay_now_total_summary_rec AR_VIEW_TERM_GRP.summary_amounts_rec;
6754: l_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;
6755: l_return_value NUMBER;
6756: --pnpl end
6757:
6758: --
6932:
6933: -- calling AR API to get pay now total
6934: AR_VIEW_TERM_GRP.pay_now_amounts
6935: (p_api_version => 1.0
6936: ,p_init_msg_list => FND_API.G_TRUE
6937: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6938: ,p_currency_code => OE_Order_Cache.g_header_rec.transactional_curr_code
6939: ,p_amounts_tbl => l_pay_now_total_detail_tbl
6940: ,x_pay_now_summary_rec => l_pay_now_total_summary_rec
6933: -- calling AR API to get pay now total
6934: AR_VIEW_TERM_GRP.pay_now_amounts
6935: (p_api_version => 1.0
6936: ,p_init_msg_list => FND_API.G_TRUE
6937: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6938: ,p_currency_code => OE_Order_Cache.g_header_rec.transactional_curr_code
6939: ,p_amounts_tbl => l_pay_now_total_detail_tbl
6940: ,x_pay_now_summary_rec => l_pay_now_total_summary_rec
6941: ,x_return_status => l_return_status
6986: WHEN OTHERS THEN
6987: IF l_debug_level > 0 THEN
6988: oe_debug_pub.add( 'Unexpected Error from OE_Verify_Payment_PUB.Get_Line_Total ' || SQLERRM ) ;
6989: END IF;
6990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6991: END Get_Line_Total;
6992:
6993: --bug3225795 start
6994: --This function is currently similar to Get_Line_Total. Needs to be changed later to consider partial invoicing.
7017:
7018: --pnpl start
7019: l_pay_now_total_detail_tbl AR_VIEW_TERM_GRP.amounts_table;
7020: l_pay_now_total_summary_rec AR_VIEW_TERM_GRP.summary_amounts_rec;
7021: l_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;
7022: l_return_value NUMBER;
7023: --pnpl end
7024:
7025:
7180:
7181: -- calling AR API to get pay now total
7182: AR_VIEW_TERM_GRP.pay_now_amounts
7183: (p_api_version => 1.0
7184: ,p_init_msg_list => FND_API.G_TRUE
7185: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7186: ,p_currency_code => OE_Order_Cache.g_header_rec.transactional_curr_code
7187: ,p_amounts_tbl => l_pay_now_total_detail_tbl
7188: ,x_pay_now_summary_rec => l_pay_now_total_summary_rec
7181: -- calling AR API to get pay now total
7182: AR_VIEW_TERM_GRP.pay_now_amounts
7183: (p_api_version => 1.0
7184: ,p_init_msg_list => FND_API.G_TRUE
7185: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7186: ,p_currency_code => OE_Order_Cache.g_header_rec.transactional_curr_code
7187: ,p_amounts_tbl => l_pay_now_total_detail_tbl
7188: ,x_pay_now_summary_rec => l_pay_now_total_summary_rec
7189: ,x_return_status => l_return_status
7220: WHEN OTHERS THEN
7221: IF l_debug_level > 0 THEN
7222: oe_debug_pub.add( 'FROM OE_Verify_Payment_PUB.Get_Inv_Line_Total' ) ;
7223: END IF;
7224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7225: END Get_Inv_Line_Total;
7226:
7227: --This function also needs to be modified later to consider partial invoicing
7228: FUNCTION Outbound_Order_Total
7387: ,x_msg_count => l_msg_count
7388: ,x_msg_data => l_msg_data
7389: ,x_return_status => l_return_status
7390: );
7391: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7392: IF l_debug_level > 0 THEN
7393: oe_debug_pub.add('Error in OE_Prepayment_PVT.Get_Pay_Now_Amounts... returning zero');
7394: END IF;
7395: RETURN 0;
7433: WHEN OTHERS THEN
7434: IF l_debug_level > 0 THEN
7435: oe_debug_pub.add( 'FROM OUTBOUND TOTAL OTHERS: ' || SQLERRM ) ;
7436: END IF;
7437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7438:
7439: END Outbound_Order_Total;
7440:
7441: --bug3225795 end
7475:
7476:
7477: SAVEPOINT Update_AuthInfo_for_MultiPmnts;
7478:
7479: p_return_status := FND_API.G_RET_STS_SUCCESS;
7480:
7481: IF l_debug_level > 0 THEN
7482: oe_debug_pub.add( 'OEXPVPMB: IN UPDATE AUTHORIZATION INFORMATION' ) ;
7483: END IF;
7489: ,p_payment_number => null
7490: ,p_x_Header_Payment_rec => l_old_Header_Payment_rec
7491: ,x_return_status => l_return_status
7492: );
7493: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7494: RAISE FND_API.G_EXC_ERROR;
7495: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7497: END IF;
7490: ,p_x_Header_Payment_rec => l_old_Header_Payment_rec
7491: ,x_return_status => l_return_status
7492: );
7493: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7494: RAISE FND_API.G_EXC_ERROR;
7495: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7497: END IF;
7498:
7491: ,x_return_status => l_return_status
7492: );
7493: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7494: RAISE FND_API.G_EXC_ERROR;
7495: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7497: END IF;
7498:
7499: l_Line_Payment_rec := l_old_Line_Payment_rec;
7492: );
7493: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7494: RAISE FND_API.G_EXC_ERROR;
7495: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7497: END IF;
7498:
7499: l_Line_Payment_rec := l_old_Line_Payment_rec;
7500:
7606: IF l_debug_level > 0 THEN
7607: oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_DATE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_DATE , 1 ) ;
7608: END IF;
7609:
7610: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7611: RAISE FND_API.G_EXC_ERROR;
7612: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7614: END IF;
7607: oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_DATE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_DATE , 1 ) ;
7608: END IF;
7609:
7610: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7611: RAISE FND_API.G_EXC_ERROR;
7612: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7614: END IF;
7615:
7608: END IF;
7609:
7610: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7611: RAISE FND_API.G_EXC_ERROR;
7612: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7614: END IF;
7615:
7616: -- Process requests is TRUE so still need to call it, but don't need to notify
7609:
7610: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7611: RAISE FND_API.G_EXC_ERROR;
7612: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7614: END IF;
7615:
7616: -- Process requests is TRUE so still need to call it, but don't need to notify
7617: IF l_debug_level > 0 THEN
7624: , p_old_header_rec => l_old_header_rec
7625: , x_return_status => l_return_status
7626: );
7627:
7628: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7629: RAISE FND_API.G_EXC_ERROR;
7630: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7632: END IF;
7625: , x_return_status => l_return_status
7626: );
7627:
7628: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7629: RAISE FND_API.G_EXC_ERROR;
7630: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7632: END IF;
7633:
7626: );
7627:
7628: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7629: RAISE FND_API.G_EXC_ERROR;
7630: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7632: END IF;
7633:
7634: END IF ; -- global entity index null check
7627:
7628: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7629: RAISE FND_API.G_EXC_ERROR;
7630: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7632: END IF;
7633:
7634: END IF ; -- global entity index null check
7635:
7645: , p_old_header_rec => l_old_header_rec
7646: , x_return_status => l_return_status
7647: );
7648:
7649: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7650: RAISE FND_API.G_EXC_ERROR;
7651: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7652: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7653: END IF;
7646: , x_return_status => l_return_status
7647: );
7648:
7649: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7650: RAISE FND_API.G_EXC_ERROR;
7651: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7652: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7653: END IF;
7654:
7647: );
7648:
7649: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7650: RAISE FND_API.G_EXC_ERROR;
7651: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7652: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7653: END IF;
7654:
7655: -- notification framework end
7648:
7649: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7650: RAISE FND_API.G_EXC_ERROR;
7651: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7652: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7653: END IF;
7654:
7655: -- notification framework end
7656: END IF; -- code set is pack H or higher
7657: -- end of code commented out for Multiple Payments Project */
7658:
7659: EXCEPTION
7660:
7661: WHEN FND_API.G_EXC_ERROR THEN
7662: ROLLBACK TO Update_AuthInfo_for_MultiPmnts;
7663: p_return_status := FND_API.G_RET_STS_ERROR;
7664: OE_MSG_PUB.Count_And_Get
7665: ( p_count => l_msg_count,
7659: EXCEPTION
7660:
7661: WHEN FND_API.G_EXC_ERROR THEN
7662: ROLLBACK TO Update_AuthInfo_for_MultiPmnts;
7663: p_return_status := FND_API.G_RET_STS_ERROR;
7664: OE_MSG_PUB.Count_And_Get
7665: ( p_count => l_msg_count,
7666: p_data => l_msg_data
7667: );
7665: ( p_count => l_msg_count,
7666: p_data => l_msg_data
7667: );
7668:
7669: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7670: ROLLBACK TO Update_AuthInfo_for_MultiPmnts;
7671: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7672: OE_MSG_PUB.Count_And_Get
7673: ( p_count => l_msg_count,
7667: );
7668:
7669: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7670: ROLLBACK TO Update_AuthInfo_for_MultiPmnts;
7671: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7672: OE_MSG_PUB.Count_And_Get
7673: ( p_count => l_msg_count,
7674: p_data => l_msg_data
7675: );
7675: );
7676:
7677: WHEN OTHERS THEN
7678: ROLLBACK TO Update_AuthInfo_for_MultiPmnts;
7679: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7680:
7681: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7682: THEN
7683: FND_MSG_PUB.Add_Exc_Msg
7713: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7714:
7715: BEGIN
7716:
7717: p_return_status := FND_API.G_RET_STS_SUCCESS;
7718: IF l_debug_level > 0 THEN
7719: oe_debug_pub.add( 'OEXPVPMB: IN RELEASE VERIFY LINE HOLD' ) ;
7720: END IF;
7721:
7748: , x_return_status => l_return_status
7749: );
7750:
7751: -- Check the Result
7752: IF l_hold_result = FND_API.G_TRUE THEN
7753:
7754: IF l_debug_level > 0 THEN
7755: oe_debug_pub.add( 'OEXPVPMB: RELEASING CC FAILURE HOLD ON ORDER HEADER ID:' || p_header_id ) ;
7756: END IF;
7770: , x_msg_data => l_msg_data
7771: , x_return_status => l_return_status
7772: );
7773:
7774: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7775: RAISE FND_API.G_EXC_ERROR;
7776: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7778: END IF;
7771: , x_return_status => l_return_status
7772: );
7773:
7774: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7775: RAISE FND_API.G_EXC_ERROR;
7776: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7778: END IF;
7779:
7772: );
7773:
7774: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7775: RAISE FND_API.G_EXC_ERROR;
7776: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7778: END IF;
7779:
7780: END IF; -- Do nothing if the hold has already been released.
7773:
7774: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7775: RAISE FND_API.G_EXC_ERROR;
7776: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7778: END IF;
7779:
7780: END IF; -- Do nothing if the hold has already been released.
7781:
7804: , x_return_status => l_return_status
7805: );
7806:
7807: -- Check the Result
7808: IF l_hold_result = FND_API.G_TRUE THEN
7809:
7810: IF l_debug_level > 0 THEN
7811: oe_debug_pub.add( 'OEXPVPMB: RELEASING CC RISK HOLD ON ORDER LINE ID:' || p_line_id ) ;
7812: END IF;
7825: , x_msg_data => l_msg_data
7826: , x_return_status => l_return_status
7827: );
7828:
7829: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7830: RAISE FND_API.G_EXC_ERROR;
7831: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7833: END IF;
7826: , x_return_status => l_return_status
7827: );
7828:
7829: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7830: RAISE FND_API.G_EXC_ERROR;
7831: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7833: END IF;
7834:
7827: );
7828:
7829: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7830: RAISE FND_API.G_EXC_ERROR;
7831: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7833: END IF;
7834:
7835: END IF; -- Do nothing if the hold has already been released.
7828:
7829: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7830: RAISE FND_API.G_EXC_ERROR;
7831: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7833: END IF;
7834:
7835: END IF; -- Do nothing if the hold has already been released.
7836:
7859: , x_return_status => l_return_status
7860: );
7861:
7862: -- Check the Result
7863: IF l_hold_result = FND_API.G_TRUE THEN
7864:
7865: IF l_debug_level > 0 THEN
7866: oe_debug_pub.add( 'OEXPVPMB: RELEASING CC RISK HOLD ON ORDER LINE ID:' || p_line_id ) ;
7867: END IF;
7880: , x_msg_data => l_msg_data
7881: , x_return_status => l_return_status
7882: );
7883:
7884: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7885: RAISE FND_API.G_EXC_ERROR;
7886: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7887: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7888: END IF;
7881: , x_return_status => l_return_status
7882: );
7883:
7884: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7885: RAISE FND_API.G_EXC_ERROR;
7886: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7887: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7888: END IF;
7889:
7882: );
7883:
7884: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7885: RAISE FND_API.G_EXC_ERROR;
7886: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7887: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7888: END IF;
7889:
7890: END IF; -- Do nothing if the hold has already been released.
7883:
7884: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7885: RAISE FND_API.G_EXC_ERROR;
7886: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7887: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7888: END IF;
7889:
7890: END IF; -- Do nothing if the hold has already been released.
7891: END IF;
7893: END IF; -- Electronic Payment
7894:
7895: EXCEPTION
7896:
7897: WHEN FND_API.G_EXC_ERROR THEN
7898: p_return_status := FND_API.G_RET_STS_ERROR;
7899: OE_MSG_PUB.Count_And_Get
7900: ( p_count => l_msg_count,
7901: p_data => l_msg_data
7894:
7895: EXCEPTION
7896:
7897: WHEN FND_API.G_EXC_ERROR THEN
7898: p_return_status := FND_API.G_RET_STS_ERROR;
7899: OE_MSG_PUB.Count_And_Get
7900: ( p_count => l_msg_count,
7901: p_data => l_msg_data
7902: );
7900: ( p_count => l_msg_count,
7901: p_data => l_msg_data
7902: );
7903:
7904: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7905: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7906: OE_MSG_PUB.Count_And_Get
7907: ( p_count => l_msg_count,
7908: p_data => l_msg_data
7901: p_data => l_msg_data
7902: );
7903:
7904: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7905: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7906: OE_MSG_PUB.Count_And_Get
7907: ( p_count => l_msg_count,
7908: p_data => l_msg_data
7909: );
7908: p_data => l_msg_data
7909: );
7910:
7911: WHEN OTHERS THEN
7912: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7913: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7914: THEN
7915: FND_MSG_PUB.Add_Exc_Msg
7916: ( G_PKG_NAME
7954: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7955:
7956: BEGIN
7957:
7958: p_return_status := FND_API.G_RET_STS_SUCCESS;
7959:
7960: IF l_debug_level > 0 THEN
7961: oe_debug_pub.add( 'OEXPVPMB: IN APPLY VERIFY LINE HOLDS' ) ;
7962: END IF;
7986: , x_return_status => l_return_status
7987: );
7988:
7989: -- Return with Success if this Hold Already exists on the order
7990: IF l_hold_result = FND_API.G_TRUE THEN
7991: IF l_debug_level > 0 THEN
7992: oe_debug_pub.add( 'OEXPVPMB: HOLD ALREADY APPLIED ON LINE ID : ' || P_LINE_ID ) ;
7993: END IF;
7994: RETURN ;
8005: l_hold_source_rec.line_id := p_line_id;
8006:
8007: OE_Holds_PUB.Apply_Holds
8008: ( p_api_version => 1.0
8009: , p_validation_level => FND_API.G_VALID_LEVEL_NONE
8010: , p_hold_source_rec => l_hold_source_rec
8011: , x_msg_count => l_msg_count
8012: , x_msg_data => l_msg_data
8013: , x_return_status => l_return_status
8012: , x_msg_data => l_msg_data
8013: , x_return_status => l_return_status
8014: );
8015:
8016: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
8017: IF p_hold_id = 16 THEN
8018:
8019: BEGIN
8020: SELECT line_number,
8045: IF l_debug_level > 0 THEN
8046: oe_debug_pub.add( 'OEXVPPYB: Pending Payment Authorization hold has been applied on order line.', 3);
8047: END IF;
8048: END IF;
8049: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8050: RAISE FND_API.G_EXC_ERROR;
8051: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8052: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8053: END IF;
8046: oe_debug_pub.add( 'OEXVPPYB: Pending Payment Authorization hold has been applied on order line.', 3);
8047: END IF;
8048: END IF;
8049: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8050: RAISE FND_API.G_EXC_ERROR;
8051: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8052: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8053: END IF;
8054:
8047: END IF;
8048: END IF;
8049: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8050: RAISE FND_API.G_EXC_ERROR;
8051: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8052: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8053: END IF;
8054:
8055: IF l_debug_level > 0 THEN
8048: END IF;
8049: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8050: RAISE FND_API.G_EXC_ERROR;
8051: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8052: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8053: END IF;
8054:
8055: IF l_debug_level > 0 THEN
8056: oe_debug_pub.add( 'OEXPVPMB: APPLIED VERIFY HOLD ON LINE ID:' || P_LINE_ID ) ;
8057: END IF;
8058:
8059: EXCEPTION
8060:
8061: WHEN FND_API.G_EXC_ERROR THEN
8062: p_return_status := FND_API.G_RET_STS_ERROR;
8063: OE_MSG_PUB.Count_And_Get
8064: ( p_count => l_msg_count,
8065: p_data => l_msg_data
8058:
8059: EXCEPTION
8060:
8061: WHEN FND_API.G_EXC_ERROR THEN
8062: p_return_status := FND_API.G_RET_STS_ERROR;
8063: OE_MSG_PUB.Count_And_Get
8064: ( p_count => l_msg_count,
8065: p_data => l_msg_data
8066: );
8064: ( p_count => l_msg_count,
8065: p_data => l_msg_data
8066: );
8067:
8068: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8069: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8070: OE_MSG_PUB.Count_And_Get
8071: ( p_count => l_msg_count,
8072: p_data => l_msg_data
8065: p_data => l_msg_data
8066: );
8067:
8068: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8069: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8070: OE_MSG_PUB.Count_And_Get
8071: ( p_count => l_msg_count,
8072: p_data => l_msg_data
8073: );
8072: p_data => l_msg_data
8073: );
8074:
8075: WHEN OTHERS THEN
8076: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8077: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8078: THEN
8079: FND_MSG_PUB.Add_Exc_Msg
8080: ( G_PKG_NAME
8148: --
8149:
8150: BEGIN
8151:
8152: l_return_status := FND_API.G_RET_STS_SUCCESS;
8153:
8154: IF l_debug_level > 0 THEN
8155: oe_debug_pub.add( 'Entering Create_New_Payment_Trxn.', 1 ) ;
8156: END IF;
8187: P_payer => l_payer,
8188: X_trxn_attribs => l_trxn_attribs,
8189: X_response => l_response_code);
8190:
8191: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8192: IF l_debug_level > 0 THEN
8193: oe_debug_pub.add('Result error code in Get_Transaction_Extension'||l_response_code.result_code);
8194: END IF;
8195: RAISE FND_API.G_EXC_ERROR;
8191: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8192: IF l_debug_level > 0 THEN
8193: oe_debug_pub.add('Result error code in Get_Transaction_Extension'||l_response_code.result_code);
8194: END IF;
8195: RAISE FND_API.G_EXC_ERROR;
8196: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8197: IF l_debug_level > 0 THEN
8198: oe_debug_pub.add('Result error code in Get_Transaction_Extension'||l_response_code.result_code);
8199: END IF;
8192: IF l_debug_level > 0 THEN
8193: oe_debug_pub.add('Result error code in Get_Transaction_Extension'||l_response_code.result_code);
8194: END IF;
8195: RAISE FND_API.G_EXC_ERROR;
8196: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8197: IF l_debug_level > 0 THEN
8198: oe_debug_pub.add('Result error code in Get_Transaction_Extension'||l_response_code.result_code);
8199: END IF;
8200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8196: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8197: IF l_debug_level > 0 THEN
8198: oe_debug_pub.add('Result error code in Get_Transaction_Extension'||l_response_code.result_code);
8199: END IF;
8200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8201: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
8202: IF l_debug_level > 0 THEN
8203: oe_debug_pub.add('Get_Transaction_Extension assignment Successful....');
8204: oe_debug_pub.add('After call to Get Transaction Extension'||l_return_status);
8197: IF l_debug_level > 0 THEN
8198: oe_debug_pub.add('Result error code in Get_Transaction_Extension'||l_response_code.result_code);
8199: END IF;
8200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8201: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
8202: IF l_debug_level > 0 THEN
8203: oe_debug_pub.add('Get_Transaction_Extension assignment Successful....');
8204: oe_debug_pub.add('After call to Get Transaction Extension'||l_return_status);
8205: oe_debug_pub.add('After call to get trxn...instr sec code'||l_trxn_attribs.instrument_security_code);
8256:
8257: --bug 5028932
8258: IF Oe_Payment_Trxn_Util.Get_CC_Security_Code_Use = 'REQUIRED'
8259: AND (l_trxn_attribs.Instrument_Security_Code IS NULL OR
8260: OE_GLOBALS.Equal(l_trxn_attribs.Instrument_Security_Code,FND_API.G_MISS_CHAR))
8261: THEN
8262: IF p_instrument_security_code IS NOT NULL AND
8263: NOT OE_GLOBALS.Equal(p_instrument_security_code,FND_API.G_MISS_CHAR) THEN
8264: l_trxn_attribs.Instrument_Security_Code := p_instrument_security_code;
8259: AND (l_trxn_attribs.Instrument_Security_Code IS NULL OR
8260: OE_GLOBALS.Equal(l_trxn_attribs.Instrument_Security_Code,FND_API.G_MISS_CHAR))
8261: THEN
8262: IF p_instrument_security_code IS NOT NULL AND
8263: NOT OE_GLOBALS.Equal(p_instrument_security_code,FND_API.G_MISS_CHAR) THEN
8264: l_trxn_attribs.Instrument_Security_Code := p_instrument_security_code;
8265: ELSE
8266: FND_MESSAGE.SET_NAME('ONT','OE_CC_SECURITY_CODE_REQD');
8267: OE_Msg_Pub.Add;
8264: l_trxn_attribs.Instrument_Security_Code := p_instrument_security_code;
8265: ELSE
8266: FND_MESSAGE.SET_NAME('ONT','OE_CC_SECURITY_CODE_REQD');
8267: OE_Msg_Pub.Add;
8268: RAISE FND_API.G_EXC_ERROR;
8269: END IF;
8270: END IF;
8271: --bug 5028932
8272:
8272:
8273: -- create new payment transaction extension id
8274: IBY_Fndcpt_Trxn_Pub.Create_Transaction_Extension
8275: (p_api_version => 1.0,
8276: p_init_msg_list => FND_API.G_TRUE,
8277: p_commit => FND_API.G_FALSE,
8278: X_return_status => l_return_status,
8279: X_msg_count => l_msg_count,
8280: X_msg_data => l_msg_data,
8273: -- create new payment transaction extension id
8274: IBY_Fndcpt_Trxn_Pub.Create_Transaction_Extension
8275: (p_api_version => 1.0,
8276: p_init_msg_list => FND_API.G_TRUE,
8277: p_commit => FND_API.G_FALSE,
8278: X_return_status => l_return_status,
8279: X_msg_count => l_msg_count,
8280: X_msg_data => l_msg_data,
8281: P_payer => l_payer,
8291: oe_debug_pub.add('Result code'||l_Response_code.result_code);
8292: oe_debug_pub.add('Return status'||l_Return_Status);
8293: END IF;
8294:
8295: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8296: IF l_debug_level > 0 THEN
8297: oe_debug_pub.add('Result error code in Create_Transaction_Extension'||l_response_code.result_code);
8298: END IF;
8299: RAISE FND_API.G_EXC_ERROR;
8295: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8296: IF l_debug_level > 0 THEN
8297: oe_debug_pub.add('Result error code in Create_Transaction_Extension'||l_response_code.result_code);
8298: END IF;
8299: RAISE FND_API.G_EXC_ERROR;
8300: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8301: IF l_debug_level > 0 THEN
8302: oe_debug_pub.add('Result error code in Create_Transaction_Extension'||l_response_code.result_code);
8303: END IF;
8296: IF l_debug_level > 0 THEN
8297: oe_debug_pub.add('Result error code in Create_Transaction_Extension'||l_response_code.result_code);
8298: END IF;
8299: RAISE FND_API.G_EXC_ERROR;
8300: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8301: IF l_debug_level > 0 THEN
8302: oe_debug_pub.add('Result error code in Create_Transaction_Extension'||l_response_code.result_code);
8303: END IF;
8304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8300: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8301: IF l_debug_level > 0 THEN
8302: oe_debug_pub.add('Result error code in Create_Transaction_Extension'||l_response_code.result_code);
8303: END IF;
8304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8305: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
8306: IF l_debug_level > 0 THEN
8307: oe_debug_pub.add('Create_Transaction_Extension assignment Successful....');
8308: oe_debug_pub.add('After call to Create_Transaction_Extension'||l_return_status);
8301: IF l_debug_level > 0 THEN
8302: oe_debug_pub.add('Result error code in Create_Transaction_Extension'||l_response_code.result_code);
8303: END IF;
8304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8305: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
8306: IF l_debug_level > 0 THEN
8307: oe_debug_pub.add('Create_Transaction_Extension assignment Successful....');
8308: oe_debug_pub.add('After call to Create_Transaction_Extension'||l_return_status);
8309: oe_debug_pub.add('New trxn extension id'||x_trxn_extension_id);
8317: END IF;
8318:
8319: EXCEPTION
8320:
8321: WHEN FND_API.G_EXC_ERROR THEN
8322:
8323: X_return_status := FND_API.G_RET_STS_ERROR;
8324: OE_MSG_PUB.Count_And_Get
8325: ( p_count => l_msg_count,
8319: EXCEPTION
8320:
8321: WHEN FND_API.G_EXC_ERROR THEN
8322:
8323: X_return_status := FND_API.G_RET_STS_ERROR;
8324: OE_MSG_PUB.Count_And_Get
8325: ( p_count => l_msg_count,
8326: p_data => l_msg_data
8327: );
8324: OE_MSG_PUB.Count_And_Get
8325: ( p_count => l_msg_count,
8326: p_data => l_msg_data
8327: );
8328: RAISE FND_API.G_EXC_ERROR;
8329:
8330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8331:
8332: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8326: p_data => l_msg_data
8327: );
8328: RAISE FND_API.G_EXC_ERROR;
8329:
8330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8331:
8332: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8333: OE_MSG_PUB.Count_And_Get
8334: ( p_count => l_msg_count,
8328: RAISE FND_API.G_EXC_ERROR;
8329:
8330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8331:
8332: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8333: OE_MSG_PUB.Count_And_Get
8334: ( p_count => l_msg_count,
8335: p_data => l_msg_data
8336: );
8333: OE_MSG_PUB.Count_And_Get
8334: ( p_count => l_msg_count,
8335: p_data => l_msg_data
8336: );
8337: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8338:
8339: WHEN OTHERS THEN
8340:
8341: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8337: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8338:
8339: WHEN OTHERS THEN
8340:
8341: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8342: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8343: THEN
8344: FND_MSG_PUB.Add_Exc_Msg
8345: ( G_PKG_NAME
8350: OE_MSG_PUB.Count_And_Get
8351: ( p_count => l_msg_count,
8352: p_data => l_msg_data
8353: );
8354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8355:
8356:
8357: END Create_New_Payment_Trxn;
8358: