116: l_old_line_tbl OE_ORDER_PUB.Line_TBL_Type;
117: l_msg_count NUMBER;
118: l_active_phase_count NUMBER;
119: l_msg_data VARCHAR2(2000);
120: l_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;
121: l_tax_calculation_event_code varchar2(30) := NULL;
122: l_notify BOOLEAN := FALSE;
123: l_in_loop_index NUMBER := 1;
124: l_line_adj_tbl OE_ORDER_PUB.LINE_ADJ_TBL_Type;
178: IF l_debug_level > 0 THEN
179: oe_debug_pub.add( 'ENTERING UPDATE_BOOKED_FLAG', 0.5) ;
180: END IF;
181:
182: x_return_status := FND_API.G_RET_STS_SUCCESS;
183: x_validate_cfg := FALSE;
184: x_freeze_inc_items := FALSE;
185:
186: -- NOTE: Process order is called twice, once to update the booked flag
252: );
253:
254: OE_MSG_PUB.reset_msg_context('HEADER');
255:
256: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
257: x_return_status := FND_API.G_RET_STS_ERROR;
258: -- if unexpected error, then do NOT validate lines.
259: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
253:
254: OE_MSG_PUB.reset_msg_context('HEADER');
255:
256: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
257: x_return_status := FND_API.G_RET_STS_ERROR;
258: -- if unexpected error, then do NOT validate lines.
259: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
261: RETURN;
255:
256: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
257: x_return_status := FND_API.G_RET_STS_ERROR;
258: -- if unexpected error, then do NOT validate lines.
259: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
261: RETURN;
262: END IF;
263:
256: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
257: x_return_status := FND_API.G_RET_STS_ERROR;
258: -- if unexpected error, then do NOT validate lines.
259: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
261: RETURN;
262: END IF;
263:
264: -- Check whether we need to call the Pricing at BOOKING
367: ELSIF l_line_tbl(l_index).item_type_code in ('CLASS','KIT') THEN
368: x_freeze_inc_items := TRUE;
369: END IF;
370:
371: l_return_status := FND_API.G_RET_STS_SUCCESS;
372: l_line_tbl(l_index).operation := OE_GLOBALS.G_OPR_UPDATE;
373: l_line_tbl(l_index).booked_flag := 'Y';
374: l_line_tbl(l_index).flow_status_code := 'BOOKED';
375: l_line_tbl(l_index).last_updated_by := FND_GLOBAL.USER_ID;
398: );
399:
400: OE_MSG_PUB.reset_msg_context('LINE');
401:
402: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
403: x_return_status := FND_API.G_RET_STS_ERROR;
404: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
406: RETURN;
399:
400: OE_MSG_PUB.reset_msg_context('LINE');
401:
402: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
403: x_return_status := FND_API.G_RET_STS_ERROR;
404: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
406: RETURN;
407: END IF;
400: OE_MSG_PUB.reset_msg_context('LINE');
401:
402: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
403: x_return_status := FND_API.G_RET_STS_ERROR;
404: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
406: RETURN;
407: END IF;
408:
401:
402: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
403: x_return_status := FND_API.G_RET_STS_ERROR;
404: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
406: RETURN;
407: END IF;
408:
409: -- bug 1406890
421: p_requesting_entity_id => l_line_tbl(l_index).line_id,
422: p_request_type => OE_GLOBALS.g_tax_line,
423: x_return_status => l_return_status);
424:
425: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
426: x_return_status := FND_API.G_RET_STS_ERROR;
427: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
429: RETURN;
422: p_request_type => OE_GLOBALS.g_tax_line,
423: x_return_status => l_return_status);
424:
425: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
426: x_return_status := FND_API.G_RET_STS_ERROR;
427: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
429: RETURN;
430: END IF;
423: x_return_status => l_return_status);
424:
425: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
426: x_return_status := FND_API.G_RET_STS_ERROR;
427: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
429: RETURN;
430: END IF;
431:
424:
425: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
426: x_return_status := FND_API.G_RET_STS_ERROR;
427: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
429: RETURN;
430: END IF;
431:
432: END IF; -- if item_type_code not in INCLUDED or CONFIG
478: END IF;
479: --taxER End
480:
481: -- Return error if there were validation errors for the header/line
482: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
483: RAISE FND_API.G_EXC_ERROR;
484: END IF;
485:
486:
479: --taxER End
480:
481: -- Return error if there were validation errors for the header/line
482: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
483: RAISE FND_API.G_EXC_ERROR;
484: END IF;
485:
486:
487: -- Update the booked_flag and flow_status on the tables
484: END IF;
485:
486:
487: -- Update the booked_flag and flow_status on the tables
488: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
489:
490: UPDATE oe_order_headers_all
491: SET booked_flag = 'Y'
492: , booked_date = sysdate
527: p_requesting_entity_id => l_header_rec.header_id,
528: p_request_type => 'OE_ORDER_BOOKED', --OE_GLOBALS.G_DFLT_HSCREDIT_FOR_SREP,
529: x_return_status => l_return_status);
530:
531: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
532: x_return_status := FND_API.G_RET_STS_ERROR;
533: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
535: RETURN;
528: p_request_type => 'OE_ORDER_BOOKED', --OE_GLOBALS.G_DFLT_HSCREDIT_FOR_SREP,
529: x_return_status => l_return_status);
530:
531: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
532: x_return_status := FND_API.G_RET_STS_ERROR;
533: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
535: RETURN;
536: END IF;
529: x_return_status => l_return_status);
530:
531: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
532: x_return_status := FND_API.G_RET_STS_ERROR;
533: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
535: RETURN;
536: END IF;
537: END IF;
530:
531: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
532: x_return_status := FND_API.G_RET_STS_ERROR;
533: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
535: RETURN;
536: END IF;
537: END IF;
538: --OIP SUN ER changes End
544: Pricing_Book_Event(p_x_line_tbl => l_line_tbl
545: , p_header_id => p_header_id
546: , x_return_status => l_return_status
547: );
548: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
549: RAISE FND_API.G_EXC_ERROR;
550: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
552: END IF;
545: , p_header_id => p_header_id
546: , x_return_status => l_return_status
547: );
548: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
549: RAISE FND_API.G_EXC_ERROR;
550: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
552: END IF;
553: END IF;
546: , x_return_status => l_return_status
547: );
548: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
549: RAISE FND_API.G_EXC_ERROR;
550: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
552: END IF;
553: END IF;
554: */
547: );
548: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
549: RAISE FND_API.G_EXC_ERROR;
550: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
552: END IF;
553: END IF;
554: */
555:
619: IF l_debug_level > 0 THEN
620: oe_debug_pub.add( 'HDR INDEX IS: ' || L_NOTIFY_INDEX , 1 ) ;
621: END IF;
622:
623: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
624: RAISE FND_API.G_EXC_ERROR;
625: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
627: END IF;
620: oe_debug_pub.add( 'HDR INDEX IS: ' || L_NOTIFY_INDEX , 1 ) ;
621: END IF;
622:
623: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
624: RAISE FND_API.G_EXC_ERROR;
625: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
627: END IF;
628:
621: END IF;
622:
623: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
624: RAISE FND_API.G_EXC_ERROR;
625: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
627: END IF;
628:
629: IF l_notify_index is not null then
622:
623: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
624: RAISE FND_API.G_EXC_ERROR;
625: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
627: END IF;
628:
629: IF l_notify_index is not null then
630: -- modify Global Picture
681: IF l_debug_level > 0 THEN
682: oe_debug_pub.add( 'UPDATE_GLOBAL INDEX IN OE_ORDER_BOOK_UTIL FOR LINE_ID '||L_LINE_TBL ( L_LOOP_INDEX ) .LINE_ID ||' IS: ' || L_NOTIFY_INDEX , 1 ) ;
683: END IF;
684:
685: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
686: RAISE FND_API.G_EXC_ERROR;
687: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
689: END IF;
682: oe_debug_pub.add( 'UPDATE_GLOBAL INDEX IN OE_ORDER_BOOK_UTIL FOR LINE_ID '||L_LINE_TBL ( L_LOOP_INDEX ) .LINE_ID ||' IS: ' || L_NOTIFY_INDEX , 1 ) ;
683: END IF;
684:
685: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
686: RAISE FND_API.G_EXC_ERROR;
687: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
689: END IF;
690:
683: END IF;
684:
685: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
686: RAISE FND_API.G_EXC_ERROR;
687: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
689: END IF;
690:
691: IF l_notify_index is not null then
684:
685: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
686: RAISE FND_API.G_EXC_ERROR;
687: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
689: END IF;
690:
691: IF l_notify_index is not null then
692: -- modify Global Picture
783: );
784:
785: -- renga -end change for tax calculation event enhancement
786:
787: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
788: RAISE FND_API.G_EXC_ERROR;
789: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
791: END IF;
784:
785: -- renga -end change for tax calculation event enhancement
786:
787: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
788: RAISE FND_API.G_EXC_ERROR;
789: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
791: END IF;
792:
785: -- renga -end change for tax calculation event enhancement
786:
787: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
788: RAISE FND_API.G_EXC_ERROR;
789: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
791: END IF;
792:
793: END IF; /* code set is pack H or higher */
786:
787: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
788: RAISE FND_API.G_EXC_ERROR;
789: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
791: END IF;
792:
793: END IF; /* code set is pack H or higher */
794: /* jolin end*/
813: -- Added debug for bug 13435459
814: IF l_debug_level > 0 THEN
815: oe_debug_pub.add( 'AFTER PRICING BOOK EVENT', 0.5) ;
816: END IF;
817: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
818: RAISE FND_API.G_EXC_ERROR;
819: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
821: END IF;
814: IF l_debug_level > 0 THEN
815: oe_debug_pub.add( 'AFTER PRICING BOOK EVENT', 0.5) ;
816: END IF;
817: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
818: RAISE FND_API.G_EXC_ERROR;
819: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
821: END IF;
822: END IF;
815: oe_debug_pub.add( 'AFTER PRICING BOOK EVENT', 0.5) ;
816: END IF;
817: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
818: RAISE FND_API.G_EXC_ERROR;
819: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
821: END IF;
822: END IF;
823:
816: END IF;
817: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
818: RAISE FND_API.G_EXC_ERROR;
819: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
821: END IF;
822: END IF;
823:
824: IF OE_FEATURES_PVT.Is_Margin_Avail THEN
829: IF l_debug_level > 0 THEN
830: oe_debug_pub.add( 'EXITING UPDATE_BOOKED_FLAG', 0.5) ;
831: END IF;
832: EXCEPTION
833: WHEN FND_API.G_EXC_ERROR THEN
834: x_return_status := FND_API.G_RET_STS_ERROR;
835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
837: WHEN OTHERS THEN
830: oe_debug_pub.add( 'EXITING UPDATE_BOOKED_FLAG', 0.5) ;
831: END IF;
832: EXCEPTION
833: WHEN FND_API.G_EXC_ERROR THEN
834: x_return_status := FND_API.G_RET_STS_ERROR;
835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
837: WHEN OTHERS THEN
838: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
831: END IF;
832: EXCEPTION
833: WHEN FND_API.G_EXC_ERROR THEN
834: x_return_status := FND_API.G_RET_STS_ERROR;
835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
837: WHEN OTHERS THEN
838: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
839: IF FND_MSG_PUB.Check_Msg_Level
832: EXCEPTION
833: WHEN FND_API.G_EXC_ERROR THEN
834: x_return_status := FND_API.G_RET_STS_ERROR;
835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
837: WHEN OTHERS THEN
838: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
839: IF FND_MSG_PUB.Check_Msg_Level
840: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
834: x_return_status := FND_API.G_RET_STS_ERROR;
835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
837: WHEN OTHERS THEN
838: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
839: IF FND_MSG_PUB.Check_Msg_Level
840: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
841: THEN
842: OE_MSG_PUB.Add_Exc_Msg
843: ( G_PKG_NAME
844: , 'Update_Booked_Flag'
845: );
846: END IF;
847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
848: END Update_Booked_Flag;
849:
850: PROCEDURE Verify_Payment_AT_Booking
851: ( p_header_id IN NUMBER
876: );
877:
878: EXCEPTION
879: WHEN OTHERS THEN
880: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
881: IF FND_MSG_PUB.Check_Msg_Level
882: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
883: THEN
884: OE_MSG_PUB.Add_Exc_Msg
908: IF l_debug_level > 0 THEN
909: oe_debug_pub.add('Entering Oe_Order_Book_Util.Validate_sales_Credits' ) ;
910: END IF;
911:
912: h_return_status := FND_API.G_RET_STS_SUCCESS;
913: -- Validate Header Sales Credits
914: OE_Validate_Header_Scredit.Validate_HSC_TOTAL_FOR_BK
915: ( p_header_id => p_header_id
916: , x_return_status => x_return_status );
920: END IF;
921:
922: -- FP bug 4697708
923: -- h_return_status := x_return_status;
924: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
925: h_return_status := x_return_status;
926: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
927: RETURN;
928: END IF;
922: -- FP bug 4697708
923: -- h_return_status := x_return_status;
924: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
925: h_return_status := x_return_status;
926: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
927: RETURN;
928: END IF;
929:
930:
927: RETURN;
928: END IF;
929:
930:
931: l_return_status := FND_API.G_RET_STS_SUCCESS;
932:
933: -- commented out for FP 4697708
934: /*
935: -- IF added for nocopy analysis
932:
933: -- commented out for FP 4697708
934: /*
935: -- IF added for nocopy analysis
936: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
937: x_return_status := FND_API.G_RET_STS_ERROR;
938: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
940: RETURN ;
933: -- commented out for FP 4697708
934: /*
935: -- IF added for nocopy analysis
936: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
937: x_return_status := FND_API.G_RET_STS_ERROR;
938: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
940: RETURN ;
941: ELSE
934: /*
935: -- IF added for nocopy analysis
936: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
937: x_return_status := FND_API.G_RET_STS_ERROR;
938: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
940: RETURN ;
941: ELSE
942: x_return_status := FND_API.G_RET_STS_SUCCESS;
935: -- IF added for nocopy analysis
936: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
937: x_return_status := FND_API.G_RET_STS_ERROR;
938: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
940: RETURN ;
941: ELSE
942: x_return_status := FND_API.G_RET_STS_SUCCESS;
943: END IF;
938: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
940: RETURN ;
941: ELSE
942: x_return_status := FND_API.G_RET_STS_SUCCESS;
943: END IF;
944: */
945:
946: --FP bug 3872166 start
953: oe_debug_pub.add( 'RETURN STATUS AFTER LSC FOR LINE '||l_line_id.line_id|| 'IS '||X_RETURN_STATUS ) ;
954: END IF;
955:
956: -- FP bug 4697708
957: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
958: l_return_status := x_return_status;
959: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
960: RETURN;
961: END IF;
955:
956: -- FP bug 4697708
957: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
958: l_return_status := x_return_status;
959: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
960: RETURN;
961: END IF;
962: END LOOP;
963: --FP bug 3872166 end
967: END IF;
968:
969: -- FP bug 4697708
970: /*
971: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
972: l_return_status := x_return_status;
973: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
974: -- x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
975: RETURN;
969: -- FP bug 4697708
970: /*
971: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
972: l_return_status := x_return_status;
973: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
974: -- x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
975: RETURN;
976: ELSE -- nocopy analysis
977: l_return_status := FND_API.G_RET_STS_SUCCESS;
970: /*
971: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
972: l_return_status := x_return_status;
973: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
974: -- x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
975: RETURN;
976: ELSE -- nocopy analysis
977: l_return_status := FND_API.G_RET_STS_SUCCESS;
978: END IF;
973: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
974: -- x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
975: RETURN;
976: ELSE -- nocopy analysis
977: l_return_status := FND_API.G_RET_STS_SUCCESS;
978: END IF;
979: */
980:
981: IF h_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_ERROR THEN
977: l_return_status := FND_API.G_RET_STS_SUCCESS;
978: END IF;
979: */
980:
981: IF h_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_ERROR THEN
982: x_return_status := FND_API.G_RET_STS_ERROR;
983: ELSIF h_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR l_return_status
984: = FND_API.G_RET_STS_UNEXP_ERROR THEN
985: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
978: END IF;
979: */
980:
981: IF h_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_ERROR THEN
982: x_return_status := FND_API.G_RET_STS_ERROR;
983: ELSIF h_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR l_return_status
984: = FND_API.G_RET_STS_UNEXP_ERROR THEN
985: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
986: ELSE
979: */
980:
981: IF h_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_ERROR THEN
982: x_return_status := FND_API.G_RET_STS_ERROR;
983: ELSIF h_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR l_return_status
984: = FND_API.G_RET_STS_UNEXP_ERROR THEN
985: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
986: ELSE
987: x_return_status := FND_API.G_RET_STS_SUCCESS;
980:
981: IF h_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_ERROR THEN
982: x_return_status := FND_API.G_RET_STS_ERROR;
983: ELSIF h_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR l_return_status
984: = FND_API.G_RET_STS_UNEXP_ERROR THEN
985: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
986: ELSE
987: x_return_status := FND_API.G_RET_STS_SUCCESS;
988: END IF;
981: IF h_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_ERROR THEN
982: x_return_status := FND_API.G_RET_STS_ERROR;
983: ELSIF h_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR l_return_status
984: = FND_API.G_RET_STS_UNEXP_ERROR THEN
985: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
986: ELSE
987: x_return_status := FND_API.G_RET_STS_SUCCESS;
988: END IF;
989:
983: ELSIF h_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR l_return_status
984: = FND_API.G_RET_STS_UNEXP_ERROR THEN
985: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
986: ELSE
987: x_return_status := FND_API.G_RET_STS_SUCCESS;
988: END IF;
989:
990: IF l_debug_level > 0 THEN
991: oe_debug_pub.add('Exiting Oe_Order_Book_Util.Validate_sales_Credits: '||x_return_status ) ;
992: END IF;
993:
994: EXCEPTION
995: WHEN OTHERS THEN
996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
997: IF FND_MSG_PUB.Check_Msg_Level
998: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
999: THEN
1000: OE_MSG_PUB.Add_Exc_Msg
1044: ,x_msg_data => l_msg_data
1045: );
1046:
1047:
1048: IF ( x_return_status = FND_API.G_RET_STS_SUCCESS AND
1049: l_check_holds_result = FND_API.G_TRUE )
1050: THEN
1051: FND_MESSAGE.SET_NAME('ONT','OE_BOOKING_HOLD_EXISTS');
1052: OE_MSG_PUB.ADD;
1045: );
1046:
1047:
1048: IF ( x_return_status = FND_API.G_RET_STS_SUCCESS AND
1049: l_check_holds_result = FND_API.G_TRUE )
1050: THEN
1051: FND_MESSAGE.SET_NAME('ONT','OE_BOOKING_HOLD_EXISTS');
1052: OE_MSG_PUB.ADD;
1053: x_return_status := FND_API.G_RET_STS_ERROR;
1049: l_check_holds_result = FND_API.G_TRUE )
1050: THEN
1051: FND_MESSAGE.SET_NAME('ONT','OE_BOOKING_HOLD_EXISTS');
1052: OE_MSG_PUB.ADD;
1053: x_return_status := FND_API.G_RET_STS_ERROR;
1054: /* Changes for bug#2673236:Begin */
1055: ELSIF (x_return_status = FND_API.G_RET_STS_SUCCESS AND
1056: l_check_holds_result = FND_API.G_FALSE )
1057: THEN
1051: FND_MESSAGE.SET_NAME('ONT','OE_BOOKING_HOLD_EXISTS');
1052: OE_MSG_PUB.ADD;
1053: x_return_status := FND_API.G_RET_STS_ERROR;
1054: /* Changes for bug#2673236:Begin */
1055: ELSIF (x_return_status = FND_API.G_RET_STS_SUCCESS AND
1056: l_check_holds_result = FND_API.G_FALSE )
1057: THEN
1058: IF nvl(fnd_profile.value('ONT_PREVENT_BOOKING'),'N')='Y' THEN
1059: IF l_debug_level > 0 THEN
1052: OE_MSG_PUB.ADD;
1053: x_return_status := FND_API.G_RET_STS_ERROR;
1054: /* Changes for bug#2673236:Begin */
1055: ELSIF (x_return_status = FND_API.G_RET_STS_SUCCESS AND
1056: l_check_holds_result = FND_API.G_FALSE )
1057: THEN
1058: IF nvl(fnd_profile.value('ONT_PREVENT_BOOKING'),'N')='Y' THEN
1059: IF l_debug_level > 0 THEN
1060: oe_debug_pub.add( 'Profile ont_prevent_booking is set' , 1 ) ;
1083: ,x_msg_data => l_msg_data
1084: );
1085:
1086:
1087: IF ( x_return_status = FND_API.G_RET_STS_SUCCESS AND
1088: p_hold_rec.x_result_out = FND_API.G_TRUE )
1089: THEN
1090: FND_MESSAGE.SET_NAME('ONT','OE_BOOKING_HOLD_EXISTS');
1091: OE_MSG_PUB.ADD;
1084: );
1085:
1086:
1087: IF ( x_return_status = FND_API.G_RET_STS_SUCCESS AND
1088: p_hold_rec.x_result_out = FND_API.G_TRUE )
1089: THEN
1090: FND_MESSAGE.SET_NAME('ONT','OE_BOOKING_HOLD_EXISTS');
1091: OE_MSG_PUB.ADD;
1092: x_return_status := FND_API.G_RET_STS_ERROR;
1088: p_hold_rec.x_result_out = FND_API.G_TRUE )
1089: THEN
1090: FND_MESSAGE.SET_NAME('ONT','OE_BOOKING_HOLD_EXISTS');
1091: OE_MSG_PUB.ADD;
1092: x_return_status := FND_API.G_RET_STS_ERROR;
1093: END IF;
1094: END IF;
1095: EXCEPTION
1096: WHEN NO_DATA_FOUND THEN
1104: END IF;
1105:
1106: EXCEPTION
1107: WHEN OTHERS THEN
1108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1109: IF FND_MSG_PUB.Check_Msg_Level
1110: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1111: THEN
1112: OE_MSG_PUB.Add_Exc_Msg
1118:
1119: ---------------------------------------------------------------
1120: PROCEDURE BOOK_ORDER
1121: (p_api_version_number IN NUMBER
1122: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1123: ,p_header_id IN NUMBER
1124: ,x_return_status OUT NOCOPY VARCHAR2
1125:
1126: ,x_msg_count OUT NOCOPY NUMBER
1152:
1153: SAVEPOINT BOOK_ORDER;
1154:
1155: -- Initialize API return status to success
1156: x_return_status := FND_API.G_RET_STS_SUCCESS;
1157:
1158: -- Standard call to check for call compatibility
1159:
1160: IF NOT FND_API.Compatible_API_Call
1156: x_return_status := FND_API.G_RET_STS_SUCCESS;
1157:
1158: -- Standard call to check for call compatibility
1159:
1160: IF NOT FND_API.Compatible_API_Call
1161: ( l_api_version_number
1162: , p_api_version_number
1163: , l_api_name
1164: , G_PKG_NAME
1163: , l_api_name
1164: , G_PKG_NAME
1165: )
1166: THEN
1167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1168: END IF;
1169:
1170: -- Initialize message list.
1171:
1168: END IF;
1169:
1170: -- Initialize message list.
1171:
1172: IF FND_API.to_Boolean(p_init_msg_list) THEN
1173: OE_MSG_PUB.initialize;
1174: END IF;
1175:
1176:
1192:
1193: -- if unexpected error, then go to exception handler. If there
1194: -- were validation failures, then it is expected error therefore
1195: -- go to order and line validation and then raise error.
1196: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1197: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1198: END IF;
1199:
1200: IF l_debug_level > 0 THEN
1193: -- if unexpected error, then go to exception handler. If there
1194: -- were validation failures, then it is expected error therefore
1195: -- go to order and line validation and then raise error.
1196: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1197: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1198: END IF;
1199:
1200: IF l_debug_level > 0 THEN
1201: oe_debug_pub.add( 'RETURN STATUS AFTER SALES CREDITS:'||L_RETURN_STATUS ) ;
1216: END IF;
1217:
1218: -- if failure during validate sales credits OR during order and
1219: -- line validation, raise error
1220: IF (x_return_status = FND_API.G_RET_STS_ERROR OR
1221: l_return_status = FND_API.G_RET_STS_ERROR ) THEN
1222: RAISE FND_API.G_EXC_ERROR;
1223: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1217:
1218: -- if failure during validate sales credits OR during order and
1219: -- line validation, raise error
1220: IF (x_return_status = FND_API.G_RET_STS_ERROR OR
1221: l_return_status = FND_API.G_RET_STS_ERROR ) THEN
1222: RAISE FND_API.G_EXC_ERROR;
1223: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1225: END IF;
1218: -- if failure during validate sales credits OR during order and
1219: -- line validation, raise error
1220: IF (x_return_status = FND_API.G_RET_STS_ERROR OR
1221: l_return_status = FND_API.G_RET_STS_ERROR ) THEN
1222: RAISE FND_API.G_EXC_ERROR;
1223: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1225: END IF;
1226:
1219: -- line validation, raise error
1220: IF (x_return_status = FND_API.G_RET_STS_ERROR OR
1221: l_return_status = FND_API.G_RET_STS_ERROR ) THEN
1222: RAISE FND_API.G_EXC_ERROR;
1223: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1225: END IF;
1226:
1227:
1220: IF (x_return_status = FND_API.G_RET_STS_ERROR OR
1221: l_return_status = FND_API.G_RET_STS_ERROR ) THEN
1222: RAISE FND_API.G_EXC_ERROR;
1223: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1225: END IF;
1226:
1227:
1228: -- Validate configurations, if any, in this order
1237: IF l_debug_level > 0 THEN
1238: oe_debug_pub.add( 'RETURN STATUS AFTER VALIDATE CFGS:'||L_RETURN_STATUS,0.5 ) ; -- debug level 0.5 added for bug 13435459
1239: END IF;
1240:
1241: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1242: RAISE FND_API.G_EXC_ERROR;
1243: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1245: END IF;
1238: oe_debug_pub.add( 'RETURN STATUS AFTER VALIDATE CFGS:'||L_RETURN_STATUS,0.5 ) ; -- debug level 0.5 added for bug 13435459
1239: END IF;
1240:
1241: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1242: RAISE FND_API.G_EXC_ERROR;
1243: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1245: END IF;
1246:
1239: END IF;
1240:
1241: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1242: RAISE FND_API.G_EXC_ERROR;
1243: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1245: END IF;
1246:
1247: END IF;
1240:
1241: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1242: RAISE FND_API.G_EXC_ERROR;
1243: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1245: END IF;
1246:
1247: END IF;
1248:
1263: IF l_debug_level > 0 THEN
1264: oe_debug_pub.add( 'RETURN STATUS AFTER FREEZE INC:'||L_RETURN_STATUS,0.5 ) ; -- debug level 0.5 added for bug 13435459
1265: END IF;
1266:
1267: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1268: RAISE FND_API.G_EXC_ERROR;
1269: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1271: END IF;
1264: oe_debug_pub.add( 'RETURN STATUS AFTER FREEZE INC:'||L_RETURN_STATUS,0.5 ) ; -- debug level 0.5 added for bug 13435459
1265: END IF;
1266:
1267: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1268: RAISE FND_API.G_EXC_ERROR;
1269: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1271: END IF;
1272:
1265: END IF;
1266:
1267: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1268: RAISE FND_API.G_EXC_ERROR;
1269: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1271: END IF;
1272:
1273: END IF;
1266:
1267: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1268: RAISE FND_API.G_EXC_ERROR;
1269: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1271: END IF;
1272:
1273: END IF;
1274:
1285: , p_notify => FALSE
1286: , x_return_status => l_return_status
1287: );
1288:
1289: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1290: RAISE FND_API.G_EXC_ERROR;
1291: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1293: END IF;
1286: , x_return_status => l_return_status
1287: );
1288:
1289: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1290: RAISE FND_API.G_EXC_ERROR;
1291: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1293: END IF;
1294:
1287: );
1288:
1289: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1290: RAISE FND_API.G_EXC_ERROR;
1291: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1293: END IF;
1294:
1295:
1288:
1289: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1290: RAISE FND_API.G_EXC_ERROR;
1291: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1293: END IF;
1294:
1295:
1296: -- ABH
1299:
1300:
1301: /****************************************************
1302: l_header_id_char := TO_CHAR(p_header_id);
1303: --This procedure would return status of FND_API.G_RET_STS_SUCCESS only if the order passed QA check
1304: QA_Order(
1305: p_api_version_number => 1.0,
1306: p_init_msg_list => 'T',
1307: p_header_id_list => l_header_id_char,
1311: x_msg_count => l_msg_count,
1312: x_msg_data => l_msg_data
1313: );
1314:
1315: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1316: RAISE FND_API.G_EXC_ERROR;
1317: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1319: END IF;
1312: x_msg_data => l_msg_data
1313: );
1314:
1315: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1316: RAISE FND_API.G_EXC_ERROR;
1317: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1319: END IF;
1320: ****************************************************/
1313: );
1314:
1315: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1316: RAISE FND_API.G_EXC_ERROR;
1317: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1319: END IF;
1320: ****************************************************/
1321:
1314:
1315: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1316: RAISE FND_API.G_EXC_ERROR;
1317: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1319: END IF;
1320: ****************************************************/
1321:
1322: --Check for licensing
1336: x_msg_count => l_msg_count,
1337: x_msg_data => l_msg_data);
1338:
1339:
1340: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1341:
1342: IF l_qa_return_status = FND_API.G_RET_STS_ERROR THEN
1343: RAISE FND_API.G_EXC_ERROR;
1344: ELSIF l_qa_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1338:
1339:
1340: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1341:
1342: IF l_qa_return_status = FND_API.G_RET_STS_ERROR THEN
1343: RAISE FND_API.G_EXC_ERROR;
1344: ELSIF l_qa_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1346: END IF;
1339:
1340: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1341:
1342: IF l_qa_return_status = FND_API.G_RET_STS_ERROR THEN
1343: RAISE FND_API.G_EXC_ERROR;
1344: ELSIF l_qa_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1346: END IF;
1347:
1340: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1341:
1342: IF l_qa_return_status = FND_API.G_RET_STS_ERROR THEN
1343: RAISE FND_API.G_EXC_ERROR;
1344: ELSIF l_qa_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1346: END IF;
1347:
1348: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1341:
1342: IF l_qa_return_status = FND_API.G_RET_STS_ERROR THEN
1343: RAISE FND_API.G_EXC_ERROR;
1344: ELSIF l_qa_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1346: END IF;
1347:
1348: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1349: RAISE FND_API.G_EXC_ERROR;
1344: ELSIF l_qa_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1346: END IF;
1347:
1348: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1349: RAISE FND_API.G_EXC_ERROR;
1350: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1352: END IF;
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1346: END IF;
1347:
1348: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1349: RAISE FND_API.G_EXC_ERROR;
1350: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1352: END IF;
1353:
1346: END IF;
1347:
1348: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1349: RAISE FND_API.G_EXC_ERROR;
1350: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1352: END IF;
1353:
1354:
1347:
1348: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1349: RAISE FND_API.G_EXC_ERROR;
1350: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1352: END IF;
1353:
1354:
1355: END IF;
1379: -- Added debug for bug 13435459
1380: IF l_debug_level > 0 THEN
1381: oe_debug_pub.add( 'AFTER VERIFY PAYMENT', 0.5) ;
1382: END IF;
1383: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1384: RAISE FND_API.G_EXC_ERROR;
1385: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1387: END IF;
1380: IF l_debug_level > 0 THEN
1381: oe_debug_pub.add( 'AFTER VERIFY PAYMENT', 0.5) ;
1382: END IF;
1383: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1384: RAISE FND_API.G_EXC_ERROR;
1385: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1387: END IF;
1388: END IF;
1381: oe_debug_pub.add( 'AFTER VERIFY PAYMENT', 0.5) ;
1382: END IF;
1383: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1384: RAISE FND_API.G_EXC_ERROR;
1385: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1387: END IF;
1388: END IF;
1389: ELSE
1382: END IF;
1383: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1384: RAISE FND_API.G_EXC_ERROR;
1385: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1387: END IF;
1388: END IF;
1389: ELSE
1390: IF nvl(OE_GLOBALS.G_PAYMENT_PROCESSED, 'N') <> 'Y' THEN
1407: -- execution of requests is only towards the end, just before Verify_Payments.
1408: -- If there is an error in between logging and execution of requests,
1409: -- requests were not cleared from the cache earlier resulting
1410: -- in bugs like 2285308.
1411: WHEN FND_API.G_EXC_ERROR THEN
1412: IF l_debug_level > 0 THEN
1413: oe_debug_pub.add( 'EXP. ERROR IN OE_ORDER_BOOK.BOOK_ORDER' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
1414: END IF;
1415: x_return_status := FND_API.G_RET_STS_ERROR;
1411: WHEN FND_API.G_EXC_ERROR THEN
1412: IF l_debug_level > 0 THEN
1413: oe_debug_pub.add( 'EXP. ERROR IN OE_ORDER_BOOK.BOOK_ORDER' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
1414: END IF;
1415: x_return_status := FND_API.G_RET_STS_ERROR;
1416: OE_Delayed_Requests_PVT.Clear_Request(l_return_status);
1417: OE_MSG_PUB.Count_And_Get
1418: ( p_count => x_msg_count
1419: , p_data => x_msg_data
1418: ( p_count => x_msg_count
1419: , p_data => x_msg_data
1420: );
1421: ROLLBACK TO BOOK_ORDER;
1422: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1423: IF l_debug_level > 0 THEN
1424: oe_debug_pub.add( 'UNEXP. ERROR IN OE_ORDER_BOOK.BOOK_ORDER' ,0.5 ) ; -- debug level changed to 0.5 for bug 13435459
1425: END IF;
1426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1422: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1423: IF l_debug_level > 0 THEN
1424: oe_debug_pub.add( 'UNEXP. ERROR IN OE_ORDER_BOOK.BOOK_ORDER' ,0.5 ) ; -- debug level changed to 0.5 for bug 13435459
1425: END IF;
1426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1427: OE_Delayed_Requests_PVT.Clear_Request(l_return_status);
1428: OE_MSG_PUB.Count_And_Get
1429: ( p_count => x_msg_count
1430: , p_data => x_msg_data
1433: WHEN OTHERS THEN
1434: IF l_debug_level > 0 THEN
1435: oe_debug_pub.add( 'OTHERS ERROR IN OE_ORDER_BOOK.BOOK_ORDER' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
1436: END IF;
1437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1438: OE_Delayed_Requests_PVT.Clear_Request(l_return_status);
1439: IF FND_MSG_PUB.Check_Msg_Level
1440: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1441: THEN
1461: -- adding a message to the stack.
1462: ---------------------------------------------------------------------
1463: PROCEDURE Complete_Book_Eligible
1464: (p_api_version_number IN NUMBER
1465: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1466: , p_header_id IN NUMBER
1467: , x_return_status OUT NOCOPY VARCHAR2
1468:
1469: , x_msg_count OUT NOCOPY NUMBER
1514: oe_debug_pub.add( 'ENTER OE_ORDER_BOOK.COMPLETE_BOOK_ELIGIBLE' , 1 ) ;
1515: END IF;
1516:
1517: -- Initialize API return status to success
1518: x_return_status := FND_API.G_RET_STS_SUCCESS;
1519:
1520: -- Standard call to check for call compatibility
1521:
1522: IF NOT FND_API.Compatible_API_Call
1518: x_return_status := FND_API.G_RET_STS_SUCCESS;
1519:
1520: -- Standard call to check for call compatibility
1521:
1522: IF NOT FND_API.Compatible_API_Call
1523: ( l_api_version_number
1524: , p_api_version_number
1525: , l_api_name
1526: , G_PKG_NAME
1525: , l_api_name
1526: , G_PKG_NAME
1527: )
1528: THEN
1529: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1530: END IF;
1531:
1532: -- Initialize message list.
1533:
1530: END IF;
1531:
1532: -- Initialize message list.
1533:
1534: IF FND_API.to_Boolean(p_init_msg_list) THEN
1535: OE_MSG_PUB.initialize;
1536: END IF;
1537: -- modified the following query to fetch flow_status_code for 13536089
1538: SELECT order_source_id, orig_sys_document_ref, change_sequence, source_document_type_id, source_document_id,flow_status_code
1589: IF (booking_errored%FOUND)
1590: THEN
1591: FND_MESSAGE.SET_NAME('ONT','OE_ORDER_BOOK_ERRORED');
1592: OE_MSG_PUB.ADD;
1593: RAISE FND_API.G_EXC_ERROR;
1594: -- Else the order is NOT eligible for booking: raise an error.
1595: ELSE
1596: FND_MESSAGE.SET_NAME('ONT','OE_ORDER_NOT_BOOK_ELIGIBLE');
1597: OE_MSG_PUB.ADD;
1594: -- Else the order is NOT eligible for booking: raise an error.
1595: ELSE
1596: FND_MESSAGE.SET_NAME('ONT','OE_ORDER_NOT_BOOK_ELIGIBLE');
1597: OE_MSG_PUB.ADD;
1598: RAISE FND_API.G_EXC_ERROR;
1599: END IF;
1600: CLOSE booking_errored;
1601: END IF;
1602: END IF;
1615: OE_ORDER_UTIL.Lock_Order_Object
1616: (p_header_id => p_header_id
1617: ,x_return_status => x_return_status
1618: );
1619: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1620: RAISE FND_API.G_EXC_ERROR;
1621: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1623: END IF;
1616: (p_header_id => p_header_id
1617: ,x_return_status => x_return_status
1618: );
1619: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1620: RAISE FND_API.G_EXC_ERROR;
1621: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1623: END IF;
1624:
1617: ,x_return_status => x_return_status
1618: );
1619: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1620: RAISE FND_API.G_EXC_ERROR;
1621: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1623: END IF;
1624:
1625: -- Call WF_ENGINE to complete the BOOK_ELIGIBLE activity and proceed
1618: );
1619: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1620: RAISE FND_API.G_EXC_ERROR;
1621: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1623: END IF;
1624:
1625: -- Call WF_ENGINE to complete the BOOK_ELIGIBLE activity and proceed
1626: -- to the next activity in the order workflow
1713: p_status=>l_flow_status_code,
1714: p_event_name => 'oracle.apps.ont.oip.processfailure.update',
1715: p_nameVal_tbl => l_nameVal_tbl);
1716: -- END OF FIX 13536089
1717: RAISE FND_API.G_EXC_ERROR;
1718: END IF;
1719: CLOSE book_eligible;
1720:
1721: END IF;
1733: oe_debug_pub.add( 'EXIT OE_ORDER_BOOK.COMPLETE_BOOK_ELIGIBLE' , 1 ) ;
1734: END IF;
1735:
1736: EXCEPTION
1737: WHEN FND_API.G_EXC_ERROR THEN
1738: x_return_status := FND_API.G_RET_STS_ERROR;
1739: IF (book_eligible%ISOPEN) THEN
1740: CLOSE book_eligible;
1741: END IF;
1734: END IF;
1735:
1736: EXCEPTION
1737: WHEN FND_API.G_EXC_ERROR THEN
1738: x_return_status := FND_API.G_RET_STS_ERROR;
1739: IF (book_eligible%ISOPEN) THEN
1740: CLOSE book_eligible;
1741: END IF;
1742: OE_MSG_PUB.Count_And_Get
1743: ( p_count => x_msg_count
1744: , p_data => x_msg_data
1745: );
1746: OE_MSG_PUB.Reset_Msg_Context(p_entity_code => 'HEADER');
1747: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1748: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1749: IF (book_eligible%ISOPEN) THEN
1750: CLOSE book_eligible;
1751: END IF;
1744: , p_data => x_msg_data
1745: );
1746: OE_MSG_PUB.Reset_Msg_Context(p_entity_code => 'HEADER');
1747: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1748: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1749: IF (book_eligible%ISOPEN) THEN
1750: CLOSE book_eligible;
1751: END IF;
1752: OE_MSG_PUB.Count_And_Get
1754: , p_data => x_msg_data
1755: );
1756: OE_MSG_PUB.Reset_Msg_Context(p_entity_code => 'HEADER');
1757: WHEN OTHERS THEN
1758: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1759: IF (book_eligible%ISOPEN) THEN
1760: CLOSE book_eligible;
1761: END IF;
1762: IF OE_MSG_PUB.Check_Msg_Level
1790: -- for booking multi_selected orders.
1791: ---------------------------------------------------------------------
1792: PROCEDURE Book_Multiple_Orders
1793: (p_api_version_number IN NUMBER
1794: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1795: ,p_header_id_list IN OE_GLOBALS.Selected_Record_Tbl
1796: ,p_header_count IN NUMBER
1797: ,x_error_count OUT NOCOPY NUMBER
1798:
1823: oe_debug_pub.add( 'ENTER OE_ORDER_BOOK.BOOK_MULTIPLE_ORDERS' , 1 ) ;
1824: END IF;
1825:
1826: -- Initialize API return status to success
1827: x_return_status := FND_API.G_RET_STS_SUCCESS;
1828: x_error_count := 0;
1829:
1830: -- Standard call to check for call compatibility
1831:
1828: x_error_count := 0;
1829:
1830: -- Standard call to check for call compatibility
1831:
1832: IF NOT FND_API.Compatible_API_Call
1833: ( l_api_version_number
1834: , p_api_version_number
1835: , l_api_name
1836: , G_PKG_NAME
1835: , l_api_name
1836: , G_PKG_NAME
1837: )
1838: THEN
1839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1840: END IF;
1841:
1842: -- Initialize message list.
1843:
1840: END IF;
1841:
1842: -- Initialize message list.
1843:
1844: IF FND_API.to_Boolean(p_init_msg_list) THEN
1845: OE_MSG_PUB.initialize;
1846: END IF;
1847: initial := 1;
1848: FOR I IN 1..p_header_count LOOP
1877: WHERE l_header_id=h.header_id;
1878: IF (l_Transaction_Phase_Code='N' ) THEN
1879: OE_Order_Wf_Util.Complete_eligible_and_Book(
1880: p_api_version_number => 1.0
1881: , p_init_msg_list => FND_API.G_FALSE
1882: , p_header_id => l_header_id
1883: , x_return_status => l_return_status
1884: , x_msg_count => l_msg_count
1885: , x_msg_data => l_msg_data );
1885: , x_msg_data => l_msg_data );
1886: ELSE
1887: OE_Order_Book_Util.Complete_Book_Eligible (
1888: p_api_version_number => 1.0
1889: , p_init_msg_list => FND_API.G_FALSE
1890: , p_header_id => l_header_id
1891: , x_return_status => l_return_status
1892: , x_msg_count => l_msg_count
1893: , x_msg_data => l_msg_data);
1892: , x_msg_count => l_msg_count
1893: , x_msg_data => l_msg_data);
1894: END IF ;
1895:
1896: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1897: x_error_count := x_error_count + 1.0;
1898: x_return_status := FND_API.G_RET_STS_ERROR;
1899: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1900: x_error_count := x_error_count + 1.0;
1894: END IF ;
1895:
1896: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1897: x_error_count := x_error_count + 1.0;
1898: x_return_status := FND_API.G_RET_STS_ERROR;
1899: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1900: x_error_count := x_error_count + 1.0;
1901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1902: END IF;
1895:
1896: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1897: x_error_count := x_error_count + 1.0;
1898: x_return_status := FND_API.G_RET_STS_ERROR;
1899: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1900: x_error_count := x_error_count + 1.0;
1901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1902: END IF;
1903:
1897: x_error_count := x_error_count + 1.0;
1898: x_return_status := FND_API.G_RET_STS_ERROR;
1899: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1900: x_error_count := x_error_count + 1.0;
1901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1902: END IF;
1903:
1904: initial := nextpos + 1.0;
1905: END LOOP;
1908: oe_debug_pub.add( 'EXIT OE_ORDER_BOOK.BOOK_MULTIPLE_ORDERS' , 1 ) ;
1909: END IF;
1910:
1911: EXCEPTION
1912: WHEN FND_API.G_EXC_ERROR THEN
1913: x_return_status := FND_API.G_RET_STS_ERROR;
1914: OE_MSG_PUB.Count_And_Get
1915: ( p_count => x_msg_count
1916: , p_data => x_msg_data
1909: END IF;
1910:
1911: EXCEPTION
1912: WHEN FND_API.G_EXC_ERROR THEN
1913: x_return_status := FND_API.G_RET_STS_ERROR;
1914: OE_MSG_PUB.Count_And_Get
1915: ( p_count => x_msg_count
1916: , p_data => x_msg_data
1917: );
1914: OE_MSG_PUB.Count_And_Get
1915: ( p_count => x_msg_count
1916: , p_data => x_msg_data
1917: );
1918: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1920: OE_MSG_PUB.Count_And_Get
1921: ( p_count => x_msg_count
1922: , p_data => x_msg_data
1915: ( p_count => x_msg_count
1916: , p_data => x_msg_data
1917: );
1918: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1920: OE_MSG_PUB.Count_And_Get
1921: ( p_count => x_msg_count
1922: , p_data => x_msg_data
1923: );
1921: ( p_count => x_msg_count
1922: , p_data => x_msg_data
1923: );
1924: WHEN OTHERS THEN
1925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1926: IF OE_MSG_PUB.Check_Msg_Level
1927: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1928: THEN
1929: OE_MSG_PUB.Add_Exc_Msg
1953: -- Called from the form package OE_ORDER_CONTROL.Book_Order_Button
1954: -- for QA'ing multi_selected orders or just a single order.
1955: PROCEDURE QA_Order
1956: (p_api_version_number IN NUMBER
1957: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1958: ,p_header_id_list IN OUT NOCOPY VARCHAR2
1959: ,p_header_count IN NUMBER
1960: ,x_error_count OUT NOCOPY NUMBER
1961: ,x_return_status OUT NOCOPY VARCHAR2
1989: oe_debug_pub.add('p_header_count: ' || p_header_count, 1);
1990: END IF;
1991:
1992: -- Initialize API return status to success
1993: x_return_status := FND_API.G_RET_STS_SUCCESS;
1994: x_error_count := 0;
1995:
1996: --Check for licensing
1997: IF OE_Contracts_util.check_license() <> 'Y' THEN
2004:
2005:
2006: -- Standard call to check for call compatibility
2007:
2008: IF NOT FND_API.Compatible_API_Call
2009: ( l_api_version_number
2010: , p_api_version_number
2011: , l_api_name
2012: , G_PKG_NAME
2011: , l_api_name
2012: , G_PKG_NAME
2013: )
2014: THEN
2015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2016: END IF;
2017:
2018: -- Initialize message list.
2019:
2016: END IF;
2017:
2018: -- Initialize message list.
2019:
2020: IF FND_API.to_Boolean(p_init_msg_list) THEN
2021: OE_MSG_PUB.initialize;
2022: END IF;
2023:
2024: --initialize PL/SQL tables
2076: oe_debug_pub.add('l_return_status for l_header_id_tbl('||I||'): '||l_header_id_tbl(I)||' is '|| l_return_status);
2077: oe_debug_pub.add('l_qa_return_status for l_header_id_tbl('||I||'): '||l_header_id_tbl(I)||' is '|| l_qa_return_status);
2078: END IF;
2079:
2080: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2081: IF l_qa_return_status = FND_API.G_RET_STS_ERROR THEN
2082: l_delete_header_id_tbl(J) := I; --keep track of which header id to delete later
2083: J := J + 1;
2084: x_error_count := x_error_count + 1.0;
2077: oe_debug_pub.add('l_qa_return_status for l_header_id_tbl('||I||'): '||l_header_id_tbl(I)||' is '|| l_qa_return_status);
2078: END IF;
2079:
2080: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2081: IF l_qa_return_status = FND_API.G_RET_STS_ERROR THEN
2082: l_delete_header_id_tbl(J) := I; --keep track of which header id to delete later
2083: J := J + 1;
2084: x_error_count := x_error_count + 1.0;
2085: x_return_status := FND_API.G_RET_STS_ERROR;
2081: IF l_qa_return_status = FND_API.G_RET_STS_ERROR THEN
2082: l_delete_header_id_tbl(J) := I; --keep track of which header id to delete later
2083: J := J + 1;
2084: x_error_count := x_error_count + 1.0;
2085: x_return_status := FND_API.G_RET_STS_ERROR;
2086:
2087: ELSIF l_qa_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2088: l_delete_header_id_tbl(J) := I; --keep track of which header id to delete later
2089: J := J + 1;
2083: J := J + 1;
2084: x_error_count := x_error_count + 1.0;
2085: x_return_status := FND_API.G_RET_STS_ERROR;
2086:
2087: ELSIF l_qa_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2088: l_delete_header_id_tbl(J) := I; --keep track of which header id to delete later
2089: J := J + 1;
2090: x_error_count := x_error_count + 1.0;
2091: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2087: ELSIF l_qa_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2088: l_delete_header_id_tbl(J) := I; --keep track of which header id to delete later
2089: J := J + 1;
2090: x_error_count := x_error_count + 1.0;
2091: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2092:
2093: END IF;
2094:
2095: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2091: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2092:
2093: END IF;
2094:
2095: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2096: RAISE FND_API.G_EXC_ERROR;
2097: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2099: END IF;
2092:
2093: END IF;
2094:
2095: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2096: RAISE FND_API.G_EXC_ERROR;
2097: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2099: END IF;
2100:
2093: END IF;
2094:
2095: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2096: RAISE FND_API.G_EXC_ERROR;
2097: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2099: END IF;
2100:
2101:
2094:
2095: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2096: RAISE FND_API.G_EXC_ERROR;
2097: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2099: END IF;
2100:
2101:
2102: END LOOP;
2151: oe_debug_pub.add( 'EXIT OE_ORDER_BOOK.QA_ORDER' , 1 ) ;
2152: END IF;
2153:
2154: EXCEPTION
2155: WHEN FND_API.G_EXC_ERROR THEN
2156: x_return_status := FND_API.G_RET_STS_ERROR;
2157: OE_MSG_PUB.Count_And_Get
2158: ( p_count => x_msg_count
2159: , p_data => x_msg_data
2152: END IF;
2153:
2154: EXCEPTION
2155: WHEN FND_API.G_EXC_ERROR THEN
2156: x_return_status := FND_API.G_RET_STS_ERROR;
2157: OE_MSG_PUB.Count_And_Get
2158: ( p_count => x_msg_count
2159: , p_data => x_msg_data
2160: );
2157: OE_MSG_PUB.Count_And_Get
2158: ( p_count => x_msg_count
2159: , p_data => x_msg_data
2160: );
2161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2163: OE_MSG_PUB.Count_And_Get
2164: ( p_count => x_msg_count
2165: , p_data => x_msg_data
2158: ( p_count => x_msg_count
2159: , p_data => x_msg_data
2160: );
2161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2163: OE_MSG_PUB.Count_And_Get
2164: ( p_count => x_msg_count
2165: , p_data => x_msg_data
2166: );
2164: ( p_count => x_msg_count
2165: , p_data => x_msg_data
2166: );
2167: WHEN OTHERS THEN
2168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2169: IF OE_MSG_PUB.Check_Msg_Level
2170: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2171: THEN
2172: OE_MSG_PUB.Add_Exc_Msg