28: p_index Number,
29: p_header_counter Number
30: ) IS
31: l_count number; -- bug 4558093
32: l_hdr_count number := OE_BULK_ORDER_PVT.G_HEADER_REC.HEADER_ID.count;
33: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
34:
35: Begin
36: --bug 4558093
41: G_PRICE_FLAG.MIXED.extend(l_hdr_count - l_count);
42: END IF;
43: If l_debug_level > 0 Then
44: oe_debug_pub.add('inside set_price_flag');
45: oe_debug_pub.add('p_header_counter : '||p_header_counter||'hdr count : '||oe_bulk_order_pvt.g_header_rec.header_id.count);
46: oe_debug_pub.add('G_PRICE_FLAG count : '||G_PRICE_FLAG.ALL_LINES_Y.count);
47: end if;
48:
49: If G_PRICE_FLAG.ALL_LINES_Y(p_header_counter) is null or G_PRICE_FLAG.ALL_LINES_N(p_header_counter) is null or G_PRICE_FLAG.MIXED(p_header_counter) is null Then
70: end;
71:
72:
73:
74: Procedure set_hdr_price_flag(p_header_rec IN OUT NOCOPY OE_BULK_ORDER_PVT.HEADER_REC_TYPE) IS
75:
76: l_hdr_ctr Number := p_header_rec.header_id.count;
77: i Number;
78: l_count number;
128: oe_debug_pub.add('p_count:'||p_count);
129: End If;
130:
131: For i in p_start_index..p_start_index + p_count - 1 Loop
132: If OE_BULK_ORDER_PVT.G_Line_Rec.Booked_Flag.exists(i) Then
133: OE_BULK_ORDER_PVT.G_Line_Rec.Booked_Flag(i):='N';
134: Else
135: If l_debug_level > 0 Then
136: oe_debug_pub.add('Record index:'||i||' does not exists');
129: End If;
130:
131: For i in p_start_index..p_start_index + p_count - 1 Loop
132: If OE_BULK_ORDER_PVT.G_Line_Rec.Booked_Flag.exists(i) Then
133: OE_BULK_ORDER_PVT.G_Line_Rec.Booked_Flag(i):='N';
134: Else
135: If l_debug_level > 0 Then
136: oe_debug_pub.add('Record index:'||i||' does not exists');
137: End If;
566: oe_debug_pub.add('inside update_global_line');
567: end if;
568: For valid in valid_lines Loop
569:
570: l_ordered_quantity:=OE_BULK_ORDER_PVT.G_Line_Rec.Ordered_Quantity(valid.line_index);
571:
572: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_Selling_Price(valid.line_index):=
573: nvl(valid.unit_selling_price, valid.unit_selling_price_per_pqty*nvl(valid.pricing_quantity,l_ordered_quantity)/l_ordered_quantity);
574:
568: For valid in valid_lines Loop
569:
570: l_ordered_quantity:=OE_BULK_ORDER_PVT.G_Line_Rec.Ordered_Quantity(valid.line_index);
571:
572: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_Selling_Price(valid.line_index):=
573: nvl(valid.unit_selling_price, valid.unit_selling_price_per_pqty*nvl(valid.pricing_quantity,l_ordered_quantity)/l_ordered_quantity);
574:
575: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_List_Price(valid.line_index):=
576: nvl(valid.UNIT_LIST_PRICE, valid.unit_list_price_per_pqty*nvl(valid.pricing_quantity,l_ordered_quantity)/l_ordered_quantity);
571:
572: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_Selling_Price(valid.line_index):=
573: nvl(valid.unit_selling_price, valid.unit_selling_price_per_pqty*nvl(valid.pricing_quantity,l_ordered_quantity)/l_ordered_quantity);
574:
575: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_List_Price(valid.line_index):=
576: nvl(valid.UNIT_LIST_PRICE, valid.unit_list_price_per_pqty*nvl(valid.pricing_quantity,l_ordered_quantity)/l_ordered_quantity);
577:
578: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_Selling_Price_Per_Pqty(valid.line_index):= valid.Unit_Selling_Price_Per_PQTY;
579:
574:
575: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_List_Price(valid.line_index):=
576: nvl(valid.UNIT_LIST_PRICE, valid.unit_list_price_per_pqty*nvl(valid.pricing_quantity,l_ordered_quantity)/l_ordered_quantity);
577:
578: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_Selling_Price_Per_Pqty(valid.line_index):= valid.Unit_Selling_Price_Per_PQTY;
579:
580: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_List_Price_Per_Pqty(valid.line_index):=valid.Unit_List_Price_Per_Pqty;
581:
582: If valid.pricing_quantity <> -99999 Then
576: nvl(valid.UNIT_LIST_PRICE, valid.unit_list_price_per_pqty*nvl(valid.pricing_quantity,l_ordered_quantity)/l_ordered_quantity);
577:
578: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_Selling_Price_Per_Pqty(valid.line_index):= valid.Unit_Selling_Price_Per_PQTY;
579:
580: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_List_Price_Per_Pqty(valid.line_index):=valid.Unit_List_Price_Per_Pqty;
581:
582: If valid.pricing_quantity <> -99999 Then
583: OE_BULK_ORDER_PVT.G_Line_Rec.Pricing_Quantity(valid.line_index):=valid.pricing_quantity;
584: OE_BULK_ORDER_PVT.G_Line_Rec.Pricing_QUantity_Uom(Valid.line_index):=valid.pricing_quantity_uom;
579:
580: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_List_Price_Per_Pqty(valid.line_index):=valid.Unit_List_Price_Per_Pqty;
581:
582: If valid.pricing_quantity <> -99999 Then
583: OE_BULK_ORDER_PVT.G_Line_Rec.Pricing_Quantity(valid.line_index):=valid.pricing_quantity;
584: OE_BULK_ORDER_PVT.G_Line_Rec.Pricing_QUantity_Uom(Valid.line_index):=valid.pricing_quantity_uom;
585: Else ---99999 no conversion, set pricing and order uom to same
586: OE_BULK_ORDER_PVT.G_Line_Rec.Pricing_Quantity(valid.line_index):=l_ordered_quantity;
587: OE_BULK_ORDER_PVT.G_Line_Rec.Pricing_QUantity_Uom(Valid.line_index):=OE_BULK_ORDER_PVT.G_Line_Rec.Order_Quantity_Uom(Valid.line_index);
580: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_List_Price_Per_Pqty(valid.line_index):=valid.Unit_List_Price_Per_Pqty;
581:
582: If valid.pricing_quantity <> -99999 Then
583: OE_BULK_ORDER_PVT.G_Line_Rec.Pricing_Quantity(valid.line_index):=valid.pricing_quantity;
584: OE_BULK_ORDER_PVT.G_Line_Rec.Pricing_QUantity_Uom(Valid.line_index):=valid.pricing_quantity_uom;
585: Else ---99999 no conversion, set pricing and order uom to same
586: OE_BULK_ORDER_PVT.G_Line_Rec.Pricing_Quantity(valid.line_index):=l_ordered_quantity;
587: OE_BULK_ORDER_PVT.G_Line_Rec.Pricing_QUantity_Uom(Valid.line_index):=OE_BULK_ORDER_PVT.G_Line_Rec.Order_Quantity_Uom(Valid.line_index);
588: End If;
582: If valid.pricing_quantity <> -99999 Then
583: OE_BULK_ORDER_PVT.G_Line_Rec.Pricing_Quantity(valid.line_index):=valid.pricing_quantity;
584: OE_BULK_ORDER_PVT.G_Line_Rec.Pricing_QUantity_Uom(Valid.line_index):=valid.pricing_quantity_uom;
585: Else ---99999 no conversion, set pricing and order uom to same
586: OE_BULK_ORDER_PVT.G_Line_Rec.Pricing_Quantity(valid.line_index):=l_ordered_quantity;
587: OE_BULK_ORDER_PVT.G_Line_Rec.Pricing_QUantity_Uom(Valid.line_index):=OE_BULK_ORDER_PVT.G_Line_Rec.Order_Quantity_Uom(Valid.line_index);
588: End If;
589:
590: If valid.price_list_id <> -9999 Then
583: OE_BULK_ORDER_PVT.G_Line_Rec.Pricing_Quantity(valid.line_index):=valid.pricing_quantity;
584: OE_BULK_ORDER_PVT.G_Line_Rec.Pricing_QUantity_Uom(Valid.line_index):=valid.pricing_quantity_uom;
585: Else ---99999 no conversion, set pricing and order uom to same
586: OE_BULK_ORDER_PVT.G_Line_Rec.Pricing_Quantity(valid.line_index):=l_ordered_quantity;
587: OE_BULK_ORDER_PVT.G_Line_Rec.Pricing_QUantity_Uom(Valid.line_index):=OE_BULK_ORDER_PVT.G_Line_Rec.Order_Quantity_Uom(Valid.line_index);
588: End If;
589:
590: If valid.price_list_id <> -9999 Then
591: OE_BULK_ORDER_PVT.G_Line_Rec.Price_List_Id(Valid.line_index):=Valid.Price_List_Id;
587: OE_BULK_ORDER_PVT.G_Line_Rec.Pricing_QUantity_Uom(Valid.line_index):=OE_BULK_ORDER_PVT.G_Line_Rec.Order_Quantity_Uom(Valid.line_index);
588: End If;
589:
590: If valid.price_list_id <> -9999 Then
591: OE_BULK_ORDER_PVT.G_Line_Rec.Price_List_Id(Valid.line_index):=Valid.Price_List_Id;
592: Else
593: OE_BULK_ORDER_PVT.G_Line_Rec.Price_List_Id(Valid.line_index):=NULL;
594: End If;
595:
589:
590: If valid.price_list_id <> -9999 Then
591: OE_BULK_ORDER_PVT.G_Line_Rec.Price_List_Id(Valid.line_index):=Valid.Price_List_Id;
592: Else
593: OE_BULK_ORDER_PVT.G_Line_Rec.Price_List_Id(Valid.line_index):=NULL;
594: End If;
595:
596: -- OE_BULK_ORDER_PVT.G_Line_Rec.Price_Request_Code(Valid.line_index):=Valid.Price_Request_Code;
597: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_List_Percent(Valid.line_index):=Valid.Unit_List_Percent;
592: Else
593: OE_BULK_ORDER_PVT.G_Line_Rec.Price_List_Id(Valid.line_index):=NULL;
594: End If;
595:
596: -- OE_BULK_ORDER_PVT.G_Line_Rec.Price_Request_Code(Valid.line_index):=Valid.Price_Request_Code;
597: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_List_Percent(Valid.line_index):=Valid.Unit_List_Percent;
598: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_Percent_Base_Price(Valid.line_index):=Valid.Unit_Percent_Base_Price;
599: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_Selling_Percent(Valid.line_index):=Valid.Unit_Selling_Percent;
600:
593: OE_BULK_ORDER_PVT.G_Line_Rec.Price_List_Id(Valid.line_index):=NULL;
594: End If;
595:
596: -- OE_BULK_ORDER_PVT.G_Line_Rec.Price_Request_Code(Valid.line_index):=Valid.Price_Request_Code;
597: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_List_Percent(Valid.line_index):=Valid.Unit_List_Percent;
598: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_Percent_Base_Price(Valid.line_index):=Valid.Unit_Percent_Base_Price;
599: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_Selling_Percent(Valid.line_index):=Valid.Unit_Selling_Percent;
600:
601: End Loop;
594: End If;
595:
596: -- OE_BULK_ORDER_PVT.G_Line_Rec.Price_Request_Code(Valid.line_index):=Valid.Price_Request_Code;
597: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_List_Percent(Valid.line_index):=Valid.Unit_List_Percent;
598: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_Percent_Base_Price(Valid.line_index):=Valid.Unit_Percent_Base_Price;
599: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_Selling_Percent(Valid.line_index):=Valid.Unit_Selling_Percent;
600:
601: End Loop;
602: End;
595:
596: -- OE_BULK_ORDER_PVT.G_Line_Rec.Price_Request_Code(Valid.line_index):=Valid.Price_Request_Code;
597: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_List_Percent(Valid.line_index):=Valid.Unit_List_Percent;
598: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_Percent_Base_Price(Valid.line_index):=Valid.Unit_Percent_Base_Price;
599: OE_BULK_ORDER_PVT.G_Line_Rec.Unit_Selling_Percent(Valid.line_index):=Valid.Unit_Selling_Percent;
600:
601: End Loop;
602: End;
603:
601: End Loop;
602: End;
603:
604: PROCEDURE Booking_Failed(p_index IN NUMBER,
605: p_header_rec IN OUT NOCOPY OE_BULK_ORDER_PVT.HEADER_REC_TYPE)
606: IS
607: l_start_index BINARY_INTEGER;
608: BEGIN
609: -- Update DB values
618: ,flow_status_code = 'ENTERED'
619: WHERE header_id = p_header_rec.header_id(p_index);
620:
621: -- Also, delete from DBI tables if booking fails
622: IF OE_BULK_ORDER_PVT.G_DBI_INSTALLED = 'Y' THEN
623: DELETE FROM ONT_DBI_CHANGE_LOG
624: WHERE header_id = p_header_rec.header_id(p_index);
625: END IF;
626:
627: -- Un-set booking fields on global records
628: p_header_rec.booked_flag(p_index) := 'N';
629: l_start_index := 1;
630:
631: /*FOR l_index IN l_start_index..OE_Bulk_Order_PVT.G_LINE_REC.HEADER_ID.COUNT LOOP
632: IF OE_Bulk_Order_PVT.G_LINE_REC.header_id(l_index) = p_header_rec.header_id(p_index)
633: THEN
634: OE_Bulk_Order_PVT.G_LINE_REC.booked_flag(l_index) := 'N';
635: ELSIF OE_Bulk_Order_PVT.G_LINE_REC.header_id(l_index) >
628: p_header_rec.booked_flag(p_index) := 'N';
629: l_start_index := 1;
630:
631: /*FOR l_index IN l_start_index..OE_Bulk_Order_PVT.G_LINE_REC.HEADER_ID.COUNT LOOP
632: IF OE_Bulk_Order_PVT.G_LINE_REC.header_id(l_index) = p_header_rec.header_id(p_index)
633: THEN
634: OE_Bulk_Order_PVT.G_LINE_REC.booked_flag(l_index) := 'N';
635: ELSIF OE_Bulk_Order_PVT.G_LINE_REC.header_id(l_index) >
636: p_header_rec.header_id(p_index)
630:
631: /*FOR l_index IN l_start_index..OE_Bulk_Order_PVT.G_LINE_REC.HEADER_ID.COUNT LOOP
632: IF OE_Bulk_Order_PVT.G_LINE_REC.header_id(l_index) = p_header_rec.header_id(p_index)
633: THEN
634: OE_Bulk_Order_PVT.G_LINE_REC.booked_flag(l_index) := 'N';
635: ELSIF OE_Bulk_Order_PVT.G_LINE_REC.header_id(l_index) >
636: p_header_rec.header_id(p_index)
637: THEN
638: l_start_index := l_index;
631: /*FOR l_index IN l_start_index..OE_Bulk_Order_PVT.G_LINE_REC.HEADER_ID.COUNT LOOP
632: IF OE_Bulk_Order_PVT.G_LINE_REC.header_id(l_index) = p_header_rec.header_id(p_index)
633: THEN
634: OE_Bulk_Order_PVT.G_LINE_REC.booked_flag(l_index) := 'N';
635: ELSIF OE_Bulk_Order_PVT.G_LINE_REC.header_id(l_index) >
636: p_header_rec.header_id(p_index)
637: THEN
638: l_start_index := l_index;
639: EXIT;
649: 2. The g_header_rec memory always contains the correct booked_flag.
650: 3. Before process acknowledgment, we call credit_check
651: 4. Credit_Check will one by one loop through the G_HEADER_REC updates the db header book_flag as 'BOOKED' and then perform the credit check for each order
652: ****************************************************************************************************/
653: PROCEDURE Credit_Check (p_header_rec IN OUT NOCOPY OE_BULK_ORDER_PVT.HEADER_REC_TYPE) As
654: l_msg_count Number;
655: l_msg_data Varchar2(2000);
656: l_return_status Varchar2(30);
657: l_header_id number;
671: Begin
672:
673: -- Update the booked flag only if real Time CC is required
674: -- else the booked_flag is already set on the record
675: IF OE_BULK_ORDER_PVT.G_REALTIME_CC_REQUIRED = 'Y' THEN
676: update oe_order_headers_all set booked_flag = 'Y'
677: where header_id = p_header_rec.header_id(i);
678: END IF;
679:
761: End If;
762:
763: If l_debug_level > 0 Then
764: oe_debug_pub.add('before checking Booked_Flag');
765: oe_debug_pub.add('Booked_Flag = '||OE_Bulk_Order_Pvt.G_Header_Rec.Booked_Flag(p_header_index));
766: oe_debug_pub.add('after printing Booked_Flag');
767: end if;
768: If OE_Bulk_Order_Pvt.G_Header_Rec.Booked_Flag(p_header_index) = 'N' Then
769: If l_debug_level > 0 Then
764: oe_debug_pub.add('before checking Booked_Flag');
765: oe_debug_pub.add('Booked_Flag = '||OE_Bulk_Order_Pvt.G_Header_Rec.Booked_Flag(p_header_index));
766: oe_debug_pub.add('after printing Booked_Flag');
767: end if;
768: If OE_Bulk_Order_Pvt.G_Header_Rec.Booked_Flag(p_header_index) = 'N' Then
769: If l_debug_level > 0 Then
770: Oe_Debug_Pub.add('Order has been unbooked, no further unbook action is needed');
771: End If;
772: RETURN;
771: End If;
772: RETURN;
773: End If;
774:
775: If OE_Bulk_Order_Pvt.G_Header_Rec.Booked_Flag(p_header_index) = 'Y' Then
776: OE_Bulk_Order_Pvt.G_Header_Rec.Booked_Flag(p_header_index):='N';
777: If p_line_index Is Not NULL Then
778: --First unbook the line, then move the pointer up and unbook the line until header_index changes.
779: --Then move the pointer down from the p_line_index and unblook the line until header_index changes
772: RETURN;
773: End If;
774:
775: If OE_Bulk_Order_Pvt.G_Header_Rec.Booked_Flag(p_header_index) = 'Y' Then
776: OE_Bulk_Order_Pvt.G_Header_Rec.Booked_Flag(p_header_index):='N';
777: If p_line_index Is Not NULL Then
778: --First unbook the line, then move the pointer up and unbook the line until header_index changes.
779: --Then move the pointer down from the p_line_index and unblook the line until header_index changes
780: OE_BULK_ORDER_PVT.G_Line_Rec.Booked_Flag(p_line_index):='N';
776: OE_Bulk_Order_Pvt.G_Header_Rec.Booked_Flag(p_header_index):='N';
777: If p_line_index Is Not NULL Then
778: --First unbook the line, then move the pointer up and unbook the line until header_index changes.
779: --Then move the pointer down from the p_line_index and unblook the line until header_index changes
780: OE_BULK_ORDER_PVT.G_Line_Rec.Booked_Flag(p_line_index):='N';
781:
782: l_index := p_line_index;
783:
784: While l_index > 0 Loop
785:
786: If l_debug_level > 0 Then
787: oe_debug_pub.add('in the while loop');
788: end if;
789: OE_BULK_ORDER_PVT.G_Line_Rec.Booked_Flag(l_index) := 'N';
790:
791: If OE_BULK_ORDER_PVT.G_Line_Rec.item_type_code(l_index) = 'KIT' Then
792: Unbook_Included_Item(p_start_index=> OE_BULK_ORDER_PVT.G_Line_Rec.ii_start_index(l_index),
793: p_count => OE_BULK_ORDER_PVT.G_Line_Rec.ii_count(l_index));
787: oe_debug_pub.add('in the while loop');
788: end if;
789: OE_BULK_ORDER_PVT.G_Line_Rec.Booked_Flag(l_index) := 'N';
790:
791: If OE_BULK_ORDER_PVT.G_Line_Rec.item_type_code(l_index) = 'KIT' Then
792: Unbook_Included_Item(p_start_index=> OE_BULK_ORDER_PVT.G_Line_Rec.ii_start_index(l_index),
793: p_count => OE_BULK_ORDER_PVT.G_Line_Rec.ii_count(l_index));
794: End If;
795: If l_debug_level > 0 Then
788: end if;
789: OE_BULK_ORDER_PVT.G_Line_Rec.Booked_Flag(l_index) := 'N';
790:
791: If OE_BULK_ORDER_PVT.G_Line_Rec.item_type_code(l_index) = 'KIT' Then
792: Unbook_Included_Item(p_start_index=> OE_BULK_ORDER_PVT.G_Line_Rec.ii_start_index(l_index),
793: p_count => OE_BULK_ORDER_PVT.G_Line_Rec.ii_count(l_index));
794: End If;
795: If l_debug_level > 0 Then
796: oe_debug_pub.add('after checking item_type_code');
789: OE_BULK_ORDER_PVT.G_Line_Rec.Booked_Flag(l_index) := 'N';
790:
791: If OE_BULK_ORDER_PVT.G_Line_Rec.item_type_code(l_index) = 'KIT' Then
792: Unbook_Included_Item(p_start_index=> OE_BULK_ORDER_PVT.G_Line_Rec.ii_start_index(l_index),
793: p_count => OE_BULK_ORDER_PVT.G_Line_Rec.ii_count(l_index));
794: End If;
795: If l_debug_level > 0 Then
796: oe_debug_pub.add('after checking item_type_code');
797: end if;
795: If l_debug_level > 0 Then
796: oe_debug_pub.add('after checking item_type_code');
797: end if;
798: If l_index <> 1 Then
799: If OE_BULK_ORDER_PVT.G_Line_Rec.Header_Index(l_index) <>
800: OE_BULK_ORDER_PVT.G_Line_Rec.Header_Index(l_index-1)
801: Then
802: Exit;
803: End If;
796: oe_debug_pub.add('after checking item_type_code');
797: end if;
798: If l_index <> 1 Then
799: If OE_BULK_ORDER_PVT.G_Line_Rec.Header_Index(l_index) <>
800: OE_BULK_ORDER_PVT.G_Line_Rec.Header_Index(l_index-1)
801: Then
802: Exit;
803: End If;
804: End If;
807: End Loop;
808:
809: l_index := p_line_index;
810:
811: While l_index <= OE_BULK_ORDER_PVT.G_Line_Rec.Line_Id.Count Loop
812:
813: OE_BULK_ORDER_PVT.G_Line_Rec.Booked_Flag(l_index) := 'N';
814:
815: If OE_BULK_ORDER_PVT.G_Line_Rec.item_type_code(l_index) = 'KIT' Then
809: l_index := p_line_index;
810:
811: While l_index <= OE_BULK_ORDER_PVT.G_Line_Rec.Line_Id.Count Loop
812:
813: OE_BULK_ORDER_PVT.G_Line_Rec.Booked_Flag(l_index) := 'N';
814:
815: If OE_BULK_ORDER_PVT.G_Line_Rec.item_type_code(l_index) = 'KIT' Then
816: Unbook_Included_Item(p_start_index=> OE_BULK_ORDER_PVT.G_Line_Rec.ii_start_index(l_index),
817: p_count => OE_BULK_ORDER_PVT.G_Line_Rec.ii_count(l_index));
811: While l_index <= OE_BULK_ORDER_PVT.G_Line_Rec.Line_Id.Count Loop
812:
813: OE_BULK_ORDER_PVT.G_Line_Rec.Booked_Flag(l_index) := 'N';
814:
815: If OE_BULK_ORDER_PVT.G_Line_Rec.item_type_code(l_index) = 'KIT' Then
816: Unbook_Included_Item(p_start_index=> OE_BULK_ORDER_PVT.G_Line_Rec.ii_start_index(l_index),
817: p_count => OE_BULK_ORDER_PVT.G_Line_Rec.ii_count(l_index));
818: End If;
819:
812:
813: OE_BULK_ORDER_PVT.G_Line_Rec.Booked_Flag(l_index) := 'N';
814:
815: If OE_BULK_ORDER_PVT.G_Line_Rec.item_type_code(l_index) = 'KIT' Then
816: Unbook_Included_Item(p_start_index=> OE_BULK_ORDER_PVT.G_Line_Rec.ii_start_index(l_index),
817: p_count => OE_BULK_ORDER_PVT.G_Line_Rec.ii_count(l_index));
818: End If;
819:
820:
813: OE_BULK_ORDER_PVT.G_Line_Rec.Booked_Flag(l_index) := 'N';
814:
815: If OE_BULK_ORDER_PVT.G_Line_Rec.item_type_code(l_index) = 'KIT' Then
816: Unbook_Included_Item(p_start_index=> OE_BULK_ORDER_PVT.G_Line_Rec.ii_start_index(l_index),
817: p_count => OE_BULK_ORDER_PVT.G_Line_Rec.ii_count(l_index));
818: End If;
819:
820:
821: IF l_index <> OE_BULK_ORDER_PVT.G_Line_Rec.Line_Id.Count Then
817: p_count => OE_BULK_ORDER_PVT.G_Line_Rec.ii_count(l_index));
818: End If;
819:
820:
821: IF l_index <> OE_BULK_ORDER_PVT.G_Line_Rec.Line_Id.Count Then
822: If OE_BULK_ORDER_PVT.G_Line_Rec.Header_Index(l_index) <>
823: OE_BULK_ORDER_PVT.G_Line_Rec.Header_Index(l_index+1) Then
824: Exit;
825: End If;
818: End If;
819:
820:
821: IF l_index <> OE_BULK_ORDER_PVT.G_Line_Rec.Line_Id.Count Then
822: If OE_BULK_ORDER_PVT.G_Line_Rec.Header_Index(l_index) <>
823: OE_BULK_ORDER_PVT.G_Line_Rec.Header_Index(l_index+1) Then
824: Exit;
825: End If;
826: End If;
819:
820:
821: IF l_index <> OE_BULK_ORDER_PVT.G_Line_Rec.Line_Id.Count Then
822: If OE_BULK_ORDER_PVT.G_Line_Rec.Header_Index(l_index) <>
823: OE_BULK_ORDER_PVT.G_Line_Rec.Header_Index(l_index+1) Then
824: Exit;
825: End If;
826: End If;
827:
938: l_ordered_item Varchar2(2000);
939: l_order_quantity_uom Varchar2(3);
940: l_price_list_id Number;
941: l_inventory_item_id Number;
942: l_line_count Number := OE_BULK_ORDER_PVT.G_LINE_REC.line_id.count;
943:
944: Begin
945:
946: If l_debug_level > 0 Then
945:
946: If l_debug_level > 0 Then
947: oe_debug_pub.add('inside check_errors');
948: end if;
949: OE_BULK_ORDER_PVT.G_Line_Rec.source_document_type_id.extend(l_line_count);
950: OE_BULK_ORDER_PVT.G_Line_Rec.source_document_line_id.extend(l_line_count);
951:
952: For wrong_line in wrong_lines loop
953: if l_debug_level > 0 Then
946: If l_debug_level > 0 Then
947: oe_debug_pub.add('inside check_errors');
948: end if;
949: OE_BULK_ORDER_PVT.G_Line_Rec.source_document_type_id.extend(l_line_count);
950: OE_BULK_ORDER_PVT.G_Line_Rec.source_document_line_id.extend(l_line_count);
951:
952: For wrong_line in wrong_lines loop
953: if l_debug_level > 0 Then
954: oe_debug_pub.add('inside wrong_line loop');
954: oe_debug_pub.add('inside wrong_line loop');
955: oe_debug_pub.add('line_index = '||wrong_line.line_index);
956: end if;
957:
958: l_header_id := OE_BULK_ORDER_PVT.G_Line_Rec.header_id(wrong_line.line_index);
959: l_order_source_id := OE_BULK_ORDER_PVT.G_Line_Rec.order_source_id(wrong_line.line_index);
960: l_orig_sys_document_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_document_ref(wrong_line.line_index);
961: l_orig_sys_line_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_line_ref(wrong_line.line_index);
962: l_orig_sys_shipment_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_shipment_ref(wrong_line.line_index);
955: oe_debug_pub.add('line_index = '||wrong_line.line_index);
956: end if;
957:
958: l_header_id := OE_BULK_ORDER_PVT.G_Line_Rec.header_id(wrong_line.line_index);
959: l_order_source_id := OE_BULK_ORDER_PVT.G_Line_Rec.order_source_id(wrong_line.line_index);
960: l_orig_sys_document_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_document_ref(wrong_line.line_index);
961: l_orig_sys_line_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_line_ref(wrong_line.line_index);
962: l_orig_sys_shipment_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_shipment_ref(wrong_line.line_index);
963: l_change_sequence := OE_BULK_ORDER_PVT.G_Line_Rec.change_sequence(wrong_line.line_index);
956: end if;
957:
958: l_header_id := OE_BULK_ORDER_PVT.G_Line_Rec.header_id(wrong_line.line_index);
959: l_order_source_id := OE_BULK_ORDER_PVT.G_Line_Rec.order_source_id(wrong_line.line_index);
960: l_orig_sys_document_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_document_ref(wrong_line.line_index);
961: l_orig_sys_line_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_line_ref(wrong_line.line_index);
962: l_orig_sys_shipment_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_shipment_ref(wrong_line.line_index);
963: l_change_sequence := OE_BULK_ORDER_PVT.G_Line_Rec.change_sequence(wrong_line.line_index);
964: l_source_document_type_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_type_id(wrong_line.line_index);
957:
958: l_header_id := OE_BULK_ORDER_PVT.G_Line_Rec.header_id(wrong_line.line_index);
959: l_order_source_id := OE_BULK_ORDER_PVT.G_Line_Rec.order_source_id(wrong_line.line_index);
960: l_orig_sys_document_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_document_ref(wrong_line.line_index);
961: l_orig_sys_line_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_line_ref(wrong_line.line_index);
962: l_orig_sys_shipment_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_shipment_ref(wrong_line.line_index);
963: l_change_sequence := OE_BULK_ORDER_PVT.G_Line_Rec.change_sequence(wrong_line.line_index);
964: l_source_document_type_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_type_id(wrong_line.line_index);
965: l_source_document_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_id(wrong_line.line_index);
958: l_header_id := OE_BULK_ORDER_PVT.G_Line_Rec.header_id(wrong_line.line_index);
959: l_order_source_id := OE_BULK_ORDER_PVT.G_Line_Rec.order_source_id(wrong_line.line_index);
960: l_orig_sys_document_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_document_ref(wrong_line.line_index);
961: l_orig_sys_line_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_line_ref(wrong_line.line_index);
962: l_orig_sys_shipment_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_shipment_ref(wrong_line.line_index);
963: l_change_sequence := OE_BULK_ORDER_PVT.G_Line_Rec.change_sequence(wrong_line.line_index);
964: l_source_document_type_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_type_id(wrong_line.line_index);
965: l_source_document_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_id(wrong_line.line_index);
966: l_source_document_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_line_id(wrong_line.line_index);
959: l_order_source_id := OE_BULK_ORDER_PVT.G_Line_Rec.order_source_id(wrong_line.line_index);
960: l_orig_sys_document_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_document_ref(wrong_line.line_index);
961: l_orig_sys_line_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_line_ref(wrong_line.line_index);
962: l_orig_sys_shipment_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_shipment_ref(wrong_line.line_index);
963: l_change_sequence := OE_BULK_ORDER_PVT.G_Line_Rec.change_sequence(wrong_line.line_index);
964: l_source_document_type_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_type_id(wrong_line.line_index);
965: l_source_document_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_id(wrong_line.line_index);
966: l_source_document_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_line_id(wrong_line.line_index);
967: l_booked_flag := OE_BULK_ORDER_PVT.G_Line_Rec.booked_flag(wrong_line.line_index);
960: l_orig_sys_document_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_document_ref(wrong_line.line_index);
961: l_orig_sys_line_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_line_ref(wrong_line.line_index);
962: l_orig_sys_shipment_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_shipment_ref(wrong_line.line_index);
963: l_change_sequence := OE_BULK_ORDER_PVT.G_Line_Rec.change_sequence(wrong_line.line_index);
964: l_source_document_type_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_type_id(wrong_line.line_index);
965: l_source_document_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_id(wrong_line.line_index);
966: l_source_document_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_line_id(wrong_line.line_index);
967: l_booked_flag := OE_BULK_ORDER_PVT.G_Line_Rec.booked_flag(wrong_line.line_index);
968: l_item_type_code := OE_BULK_ORDER_PVT.G_Line_Rec.item_type_code(wrong_line.line_index);
961: l_orig_sys_line_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_line_ref(wrong_line.line_index);
962: l_orig_sys_shipment_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_shipment_ref(wrong_line.line_index);
963: l_change_sequence := OE_BULK_ORDER_PVT.G_Line_Rec.change_sequence(wrong_line.line_index);
964: l_source_document_type_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_type_id(wrong_line.line_index);
965: l_source_document_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_id(wrong_line.line_index);
966: l_source_document_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_line_id(wrong_line.line_index);
967: l_booked_flag := OE_BULK_ORDER_PVT.G_Line_Rec.booked_flag(wrong_line.line_index);
968: l_item_type_code := OE_BULK_ORDER_PVT.G_Line_Rec.item_type_code(wrong_line.line_index);
969: l_line_category_code := OE_BULK_ORDER_PVT.G_Line_Rec.line_category_code(wrong_line.line_index);
962: l_orig_sys_shipment_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_shipment_ref(wrong_line.line_index);
963: l_change_sequence := OE_BULK_ORDER_PVT.G_Line_Rec.change_sequence(wrong_line.line_index);
964: l_source_document_type_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_type_id(wrong_line.line_index);
965: l_source_document_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_id(wrong_line.line_index);
966: l_source_document_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_line_id(wrong_line.line_index);
967: l_booked_flag := OE_BULK_ORDER_PVT.G_Line_Rec.booked_flag(wrong_line.line_index);
968: l_item_type_code := OE_BULK_ORDER_PVT.G_Line_Rec.item_type_code(wrong_line.line_index);
969: l_line_category_code := OE_BULK_ORDER_PVT.G_Line_Rec.line_category_code(wrong_line.line_index);
970: l_calculate_price_flag := OE_BULK_ORDER_PVT.G_Line_Rec.calculate_price_flag(wrong_line.line_index);
963: l_change_sequence := OE_BULK_ORDER_PVT.G_Line_Rec.change_sequence(wrong_line.line_index);
964: l_source_document_type_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_type_id(wrong_line.line_index);
965: l_source_document_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_id(wrong_line.line_index);
966: l_source_document_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_line_id(wrong_line.line_index);
967: l_booked_flag := OE_BULK_ORDER_PVT.G_Line_Rec.booked_flag(wrong_line.line_index);
968: l_item_type_code := OE_BULK_ORDER_PVT.G_Line_Rec.item_type_code(wrong_line.line_index);
969: l_line_category_code := OE_BULK_ORDER_PVT.G_Line_Rec.line_category_code(wrong_line.line_index);
970: l_calculate_price_flag := OE_BULK_ORDER_PVT.G_Line_Rec.calculate_price_flag(wrong_line.line_index);
971: l_top_model_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.top_model_line_id(wrong_line.line_index);
964: l_source_document_type_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_type_id(wrong_line.line_index);
965: l_source_document_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_id(wrong_line.line_index);
966: l_source_document_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_line_id(wrong_line.line_index);
967: l_booked_flag := OE_BULK_ORDER_PVT.G_Line_Rec.booked_flag(wrong_line.line_index);
968: l_item_type_code := OE_BULK_ORDER_PVT.G_Line_Rec.item_type_code(wrong_line.line_index);
969: l_line_category_code := OE_BULK_ORDER_PVT.G_Line_Rec.line_category_code(wrong_line.line_index);
970: l_calculate_price_flag := OE_BULK_ORDER_PVT.G_Line_Rec.calculate_price_flag(wrong_line.line_index);
971: l_top_model_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.top_model_line_id(wrong_line.line_index);
972: l_order_quantity_uom := OE_BULK_ORDER_PVT.G_Line_Rec.order_quantity_uom(wrong_line.line_index);
965: l_source_document_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_id(wrong_line.line_index);
966: l_source_document_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_line_id(wrong_line.line_index);
967: l_booked_flag := OE_BULK_ORDER_PVT.G_Line_Rec.booked_flag(wrong_line.line_index);
968: l_item_type_code := OE_BULK_ORDER_PVT.G_Line_Rec.item_type_code(wrong_line.line_index);
969: l_line_category_code := OE_BULK_ORDER_PVT.G_Line_Rec.line_category_code(wrong_line.line_index);
970: l_calculate_price_flag := OE_BULK_ORDER_PVT.G_Line_Rec.calculate_price_flag(wrong_line.line_index);
971: l_top_model_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.top_model_line_id(wrong_line.line_index);
972: l_order_quantity_uom := OE_BULK_ORDER_PVT.G_Line_Rec.order_quantity_uom(wrong_line.line_index);
973: l_price_list_id := OE_BULK_ORDER_PVT.G_Line_Rec.price_list_id(wrong_line.line_index);
966: l_source_document_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_line_id(wrong_line.line_index);
967: l_booked_flag := OE_BULK_ORDER_PVT.G_Line_Rec.booked_flag(wrong_line.line_index);
968: l_item_type_code := OE_BULK_ORDER_PVT.G_Line_Rec.item_type_code(wrong_line.line_index);
969: l_line_category_code := OE_BULK_ORDER_PVT.G_Line_Rec.line_category_code(wrong_line.line_index);
970: l_calculate_price_flag := OE_BULK_ORDER_PVT.G_Line_Rec.calculate_price_flag(wrong_line.line_index);
971: l_top_model_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.top_model_line_id(wrong_line.line_index);
972: l_order_quantity_uom := OE_BULK_ORDER_PVT.G_Line_Rec.order_quantity_uom(wrong_line.line_index);
973: l_price_list_id := OE_BULK_ORDER_PVT.G_Line_Rec.price_list_id(wrong_line.line_index);
974: l_inventory_item_id := OE_BULK_ORDER_PVT.G_Line_Rec.inventory_item_id(wrong_line.line_index);
967: l_booked_flag := OE_BULK_ORDER_PVT.G_Line_Rec.booked_flag(wrong_line.line_index);
968: l_item_type_code := OE_BULK_ORDER_PVT.G_Line_Rec.item_type_code(wrong_line.line_index);
969: l_line_category_code := OE_BULK_ORDER_PVT.G_Line_Rec.line_category_code(wrong_line.line_index);
970: l_calculate_price_flag := OE_BULK_ORDER_PVT.G_Line_Rec.calculate_price_flag(wrong_line.line_index);
971: l_top_model_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.top_model_line_id(wrong_line.line_index);
972: l_order_quantity_uom := OE_BULK_ORDER_PVT.G_Line_Rec.order_quantity_uom(wrong_line.line_index);
973: l_price_list_id := OE_BULK_ORDER_PVT.G_Line_Rec.price_list_id(wrong_line.line_index);
974: l_inventory_item_id := OE_BULK_ORDER_PVT.G_Line_Rec.inventory_item_id(wrong_line.line_index);
975:
968: l_item_type_code := OE_BULK_ORDER_PVT.G_Line_Rec.item_type_code(wrong_line.line_index);
969: l_line_category_code := OE_BULK_ORDER_PVT.G_Line_Rec.line_category_code(wrong_line.line_index);
970: l_calculate_price_flag := OE_BULK_ORDER_PVT.G_Line_Rec.calculate_price_flag(wrong_line.line_index);
971: l_top_model_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.top_model_line_id(wrong_line.line_index);
972: l_order_quantity_uom := OE_BULK_ORDER_PVT.G_Line_Rec.order_quantity_uom(wrong_line.line_index);
973: l_price_list_id := OE_BULK_ORDER_PVT.G_Line_Rec.price_list_id(wrong_line.line_index);
974: l_inventory_item_id := OE_BULK_ORDER_PVT.G_Line_Rec.inventory_item_id(wrong_line.line_index);
975:
976:
969: l_line_category_code := OE_BULK_ORDER_PVT.G_Line_Rec.line_category_code(wrong_line.line_index);
970: l_calculate_price_flag := OE_BULK_ORDER_PVT.G_Line_Rec.calculate_price_flag(wrong_line.line_index);
971: l_top_model_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.top_model_line_id(wrong_line.line_index);
972: l_order_quantity_uom := OE_BULK_ORDER_PVT.G_Line_Rec.order_quantity_uom(wrong_line.line_index);
973: l_price_list_id := OE_BULK_ORDER_PVT.G_Line_Rec.price_list_id(wrong_line.line_index);
974: l_inventory_item_id := OE_BULK_ORDER_PVT.G_Line_Rec.inventory_item_id(wrong_line.line_index);
975:
976:
977: If l_debug_level > 0 Then oe_debug_pub.add('before set_msg_context'); end if;
970: l_calculate_price_flag := OE_BULK_ORDER_PVT.G_Line_Rec.calculate_price_flag(wrong_line.line_index);
971: l_top_model_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.top_model_line_id(wrong_line.line_index);
972: l_order_quantity_uom := OE_BULK_ORDER_PVT.G_Line_Rec.order_quantity_uom(wrong_line.line_index);
973: l_price_list_id := OE_BULK_ORDER_PVT.G_Line_Rec.price_list_id(wrong_line.line_index);
974: l_inventory_item_id := OE_BULK_ORDER_PVT.G_Line_Rec.inventory_item_id(wrong_line.line_index);
975:
976:
977: If l_debug_level > 0 Then oe_debug_pub.add('before set_msg_context'); end if;
978:
1231: --first check if the header is already has been unbooked, if yes, we would
1232: --assume all the lines have already been unbooked. If 'NO', unbook the header
1233: --and all the lines including included under this order.
1234: --we can use header_index.
1235: Unbook_Order(OE_BULK_ORDER_PVT.G_Line_Rec.Header_Index(wrong_line.line_index),wrong_line.line_index);
1236:
1237: If l_debug_level > 0 Then oe_debug_pub.add('after call to Unbook_Order'); END IF;
1238: Else
1239: l_invalid_line:='N';
1279: IF l_debug_level > 0 THEN
1280: oe_debug_pub.add('inside check gsa');
1281: END IF;
1282: for i in gsa_violators loop
1283: l_inventory_item_id := OE_BULK_ORDER_PVT.G_Line_Rec.inventory_item_id(i.line_index);
1284: l_header_id := OE_BULK_ORDER_PVT.G_Line_Rec.header_id(i.line_index);
1285: l_top_model_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.top_model_line_id(i.line_index);
1286: If l_debug_level > 0 Then
1287: oe_debug_pub.add('before set_msg_context');
1280: oe_debug_pub.add('inside check gsa');
1281: END IF;
1282: for i in gsa_violators loop
1283: l_inventory_item_id := OE_BULK_ORDER_PVT.G_Line_Rec.inventory_item_id(i.line_index);
1284: l_header_id := OE_BULK_ORDER_PVT.G_Line_Rec.header_id(i.line_index);
1285: l_top_model_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.top_model_line_id(i.line_index);
1286: If l_debug_level > 0 Then
1287: oe_debug_pub.add('before set_msg_context');
1288: end if;
1281: END IF;
1282: for i in gsa_violators loop
1283: l_inventory_item_id := OE_BULK_ORDER_PVT.G_Line_Rec.inventory_item_id(i.line_index);
1284: l_header_id := OE_BULK_ORDER_PVT.G_Line_Rec.header_id(i.line_index);
1285: l_top_model_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.top_model_line_id(i.line_index);
1286: If l_debug_level > 0 Then
1287: oe_debug_pub.add('before set_msg_context');
1288: end if;
1289:
1286: If l_debug_level > 0 Then
1287: oe_debug_pub.add('before set_msg_context');
1288: end if;
1289:
1290: l_order_source_id := OE_BULK_ORDER_PVT.G_Line_Rec.order_source_id(i.line_index);
1291: l_orig_sys_document_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_document_ref(i.line_index);
1292: l_orig_sys_line_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_line_ref(i.line_index);
1293: l_orig_sys_shipment_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_shipment_ref(i.line_index);
1294: l_change_sequence := OE_BULK_ORDER_PVT.G_Line_Rec.change_sequence(i.line_index);
1287: oe_debug_pub.add('before set_msg_context');
1288: end if;
1289:
1290: l_order_source_id := OE_BULK_ORDER_PVT.G_Line_Rec.order_source_id(i.line_index);
1291: l_orig_sys_document_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_document_ref(i.line_index);
1292: l_orig_sys_line_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_line_ref(i.line_index);
1293: l_orig_sys_shipment_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_shipment_ref(i.line_index);
1294: l_change_sequence := OE_BULK_ORDER_PVT.G_Line_Rec.change_sequence(i.line_index);
1295: l_source_document_type_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_type_id(i.line_index);
1288: end if;
1289:
1290: l_order_source_id := OE_BULK_ORDER_PVT.G_Line_Rec.order_source_id(i.line_index);
1291: l_orig_sys_document_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_document_ref(i.line_index);
1292: l_orig_sys_line_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_line_ref(i.line_index);
1293: l_orig_sys_shipment_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_shipment_ref(i.line_index);
1294: l_change_sequence := OE_BULK_ORDER_PVT.G_Line_Rec.change_sequence(i.line_index);
1295: l_source_document_type_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_type_id(i.line_index);
1296: l_source_document_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_id(i.line_index);
1289:
1290: l_order_source_id := OE_BULK_ORDER_PVT.G_Line_Rec.order_source_id(i.line_index);
1291: l_orig_sys_document_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_document_ref(i.line_index);
1292: l_orig_sys_line_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_line_ref(i.line_index);
1293: l_orig_sys_shipment_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_shipment_ref(i.line_index);
1294: l_change_sequence := OE_BULK_ORDER_PVT.G_Line_Rec.change_sequence(i.line_index);
1295: l_source_document_type_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_type_id(i.line_index);
1296: l_source_document_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_id(i.line_index);
1297: l_source_document_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_line_id(i.line_index);
1290: l_order_source_id := OE_BULK_ORDER_PVT.G_Line_Rec.order_source_id(i.line_index);
1291: l_orig_sys_document_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_document_ref(i.line_index);
1292: l_orig_sys_line_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_line_ref(i.line_index);
1293: l_orig_sys_shipment_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_shipment_ref(i.line_index);
1294: l_change_sequence := OE_BULK_ORDER_PVT.G_Line_Rec.change_sequence(i.line_index);
1295: l_source_document_type_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_type_id(i.line_index);
1296: l_source_document_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_id(i.line_index);
1297: l_source_document_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_line_id(i.line_index);
1298: OE_BULK_MSG_PUB.set_msg_context
1291: l_orig_sys_document_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_document_ref(i.line_index);
1292: l_orig_sys_line_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_line_ref(i.line_index);
1293: l_orig_sys_shipment_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_shipment_ref(i.line_index);
1294: l_change_sequence := OE_BULK_ORDER_PVT.G_Line_Rec.change_sequence(i.line_index);
1295: l_source_document_type_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_type_id(i.line_index);
1296: l_source_document_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_id(i.line_index);
1297: l_source_document_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_line_id(i.line_index);
1298: OE_BULK_MSG_PUB.set_msg_context
1299: ( p_entity_code => 'LINE'
1292: l_orig_sys_line_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_line_ref(i.line_index);
1293: l_orig_sys_shipment_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_shipment_ref(i.line_index);
1294: l_change_sequence := OE_BULK_ORDER_PVT.G_Line_Rec.change_sequence(i.line_index);
1295: l_source_document_type_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_type_id(i.line_index);
1296: l_source_document_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_id(i.line_index);
1297: l_source_document_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_line_id(i.line_index);
1298: OE_BULK_MSG_PUB.set_msg_context
1299: ( p_entity_code => 'LINE'
1300: ,p_entity_id => i.line_id
1293: l_orig_sys_shipment_ref := OE_BULK_ORDER_PVT.G_Line_Rec.orig_sys_shipment_ref(i.line_index);
1294: l_change_sequence := OE_BULK_ORDER_PVT.G_Line_Rec.change_sequence(i.line_index);
1295: l_source_document_type_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_type_id(i.line_index);
1296: l_source_document_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_id(i.line_index);
1297: l_source_document_line_id := OE_BULK_ORDER_PVT.G_Line_Rec.source_document_line_id(i.line_index);
1298: OE_BULK_MSG_PUB.set_msg_context
1299: ( p_entity_code => 'LINE'
1300: ,p_entity_id => i.line_id
1301: ,p_header_id => l_header_id
1361:
1362:
1363:
1364: PROCEDURE Price_Orders
1365: (p_header_rec IN OUT NOCOPY OE_BULK_ORDER_PVT.HEADER_REC_TYPE
1366: , p_line_rec IN OUT NOCOPY OE_WSH_BULK_GRP.LINE_REC_TYPE
1367: , p_adjustments_exist IN VARCHAR2 --pibadj
1368: , x_return_status OUT NOCOPY VARCHAR2
1369: )