[Home] [Help]
81: l_tp_location_name VARCHAR2(3200);
82: l_addr_id VARCHAR2(3200);
83:
84: --
85: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
86: --
87: BEGIN
88: IF l_debug_level > 0 THEN
89: oe_debug_pub.add( 'ADDRESS TYPE = '||P_ADDRESS_TYPE_IN ) ;
85: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
86: --
87: BEGIN
88: IF l_debug_level > 0 THEN
89: oe_debug_pub.add( 'ADDRESS TYPE = '||P_ADDRESS_TYPE_IN ) ;
90: END IF;
91: IF l_debug_level > 0 THEN
92: oe_debug_pub.add( 'ORG = '||P_ORG_ID_IN ) ;
93: END IF;
88: IF l_debug_level > 0 THEN
89: oe_debug_pub.add( 'ADDRESS TYPE = '||P_ADDRESS_TYPE_IN ) ;
90: END IF;
91: IF l_debug_level > 0 THEN
92: oe_debug_pub.add( 'ORG = '||P_ORG_ID_IN ) ;
93: END IF;
94: IF l_debug_level > 0 THEN
95: oe_debug_pub.add( 'ADDRESS ID = '||P_ADDRESS_ID_IN ) ;
96: END IF;
91: IF l_debug_level > 0 THEN
92: oe_debug_pub.add( 'ORG = '||P_ORG_ID_IN ) ;
93: END IF;
94: IF l_debug_level > 0 THEN
95: oe_debug_pub.add( 'ADDRESS ID = '||P_ADDRESS_ID_IN ) ;
96: END IF;
97:
98: IF p_address_type_in = 'CUSTOMER' THEN
99: l_address_type := 1;
100: ELSIF p_address_type_in = 'HR_LOCATION' THEN
101: l_address_type := 2;
102: END IF;
103: IF l_debug_level > 0 THEN
104: oe_debug_pub.add( 'BEFORE CALLING EC ADDRESS DERIVATION API' ) ;
105: END IF;
106:
107: ece_trading_partners_pub.ece_get_address_wrapper(
108: p_api_version_number => 1.0,
153: x_region_3_out => l_region3);
154:
155:
156: IF l_debug_level > 0 THEN
157: oe_debug_pub.add( 'ADDR1 = '||SUBSTR ( L_ADDR1 , 0 , 240 ) ) ;
158: END IF;
159: IF l_debug_level > 0 THEN
160: oe_debug_pub.add( 'CITY = '||L_CITY ) ;
161: END IF;
156: IF l_debug_level > 0 THEN
157: oe_debug_pub.add( 'ADDR1 = '||SUBSTR ( L_ADDR1 , 0 , 240 ) ) ;
158: END IF;
159: IF l_debug_level > 0 THEN
160: oe_debug_pub.add( 'CITY = '||L_CITY ) ;
161: END IF;
162: IF l_debug_level > 0 THEN
163: oe_debug_pub.add( 'ZIP = '||L_ZIP ) ;
164: END IF;
159: IF l_debug_level > 0 THEN
160: oe_debug_pub.add( 'CITY = '||L_CITY ) ;
161: END IF;
162: IF l_debug_level > 0 THEN
163: oe_debug_pub.add( 'ZIP = '||L_ZIP ) ;
164: END IF;
165: IF l_debug_level > 0 THEN
166: oe_debug_pub.add( 'COUNTRY = '||L_COUNTRY ) ;
167: END IF;
162: IF l_debug_level > 0 THEN
163: oe_debug_pub.add( 'ZIP = '||L_ZIP ) ;
164: END IF;
165: IF l_debug_level > 0 THEN
166: oe_debug_pub.add( 'COUNTRY = '||L_COUNTRY ) ;
167: END IF;
168: EXCEPTION
169:
170: WHEN OTHERS THEN
417: OE_ORDER_LINES_ALL
418: WHERE
419: top_model_line_id = p_top_model_line_id;
420: --
421: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
422: --
423:
424: l_header_rec_isnull Varchar2(1) := 'N';
425:
428:
429: BEGIN
430:
431: IF l_debug_level > 0 THEN
432: oe_debug_pub.add( 'ENTERING OE_ACKNOWLEDGMENT_PVT.PROCESS_ACKNOWLEDGMENT' , 1 ) ;
433: END IF;
434:
435: /***
436: -- Bug fix 1633094 start
433: END IF;
434:
435: /***
436: -- Bug fix 1633094 start
437: oe_debug_pub.add('Before Calling FND api to check the EC inst',1);
438: IF fnd_installation.get_app_info('EC', l_status, l_industry, l_o_schema)
439: THEN
440: IF nvl(l_status,'N') = 'N' THEN
441: oe_debug_pub.add('EC not installed - No ACK required',1);
437: oe_debug_pub.add('Before Calling FND api to check the EC inst',1);
438: IF fnd_installation.get_app_info('EC', l_status, l_industry, l_o_schema)
439: THEN
440: IF nvl(l_status,'N') = 'N' THEN
441: oe_debug_pub.add('EC not installed - No ACK required',1);
442: oe_debug_pub.add('Exiting OE_Acknowledgment_Pvt.Process_acknowledgment',1);
443: x_return_status := FND_API.G_RET_STS_SUCCESS;
444: RETURN;
445: END IF; -- l_status is N
438: IF fnd_installation.get_app_info('EC', l_status, l_industry, l_o_schema)
439: THEN
440: IF nvl(l_status,'N') = 'N' THEN
441: oe_debug_pub.add('EC not installed - No ACK required',1);
442: oe_debug_pub.add('Exiting OE_Acknowledgment_Pvt.Process_acknowledgment',1);
443: x_return_status := FND_API.G_RET_STS_SUCCESS;
444: RETURN;
445: END IF; -- l_status is N
446: ELSE
443: x_return_status := FND_API.G_RET_STS_SUCCESS;
444: RETURN;
445: END IF; -- l_status is N
446: ELSE
447: oe_debug_pub.add('Call to fnd_installation.get_app_info is FALSE',1);
448: oe_debug_pub.add('Exiting OE_Acknowledgment_Pvt.Process_acknowledgment',1);
449: x_return_status := FND_API.G_RET_STS_SUCCESS;
450: RETURN;
451: END IF; -- call to fnd_installation
444: RETURN;
445: END IF; -- l_status is N
446: ELSE
447: oe_debug_pub.add('Call to fnd_installation.get_app_info is FALSE',1);
448: oe_debug_pub.add('Exiting OE_Acknowledgment_Pvt.Process_acknowledgment',1);
449: x_return_status := FND_API.G_RET_STS_SUCCESS;
450: RETURN;
451: END IF; -- call to fnd_installation
452: -- Bug fix 1633094 end
459: END IF;
460:
461: IF OE_GLOBALS.G_EC_INSTALLED <> 'Y' THEN
462: IF l_debug_level > 0 THEN
463: oe_debug_pub.add( 'EC NOT INSTALLED - NO ACK REQUIRED' , 1 ) ;
464: END IF;
465: IF l_debug_level > 0 THEN
466: oe_debug_pub.add( 'EXITING OE_ACKNOWLEDGMENT_PVT.PROCESS_ACKNOWLEDGMENT' , 1 ) ;
467: END IF;
462: IF l_debug_level > 0 THEN
463: oe_debug_pub.add( 'EC NOT INSTALLED - NO ACK REQUIRED' , 1 ) ;
464: END IF;
465: IF l_debug_level > 0 THEN
466: oe_debug_pub.add( 'EXITING OE_ACKNOWLEDGMENT_PVT.PROCESS_ACKNOWLEDGMENT' , 1 ) ;
467: END IF;
468: RETURN;
469: END IF;
470:
468: RETURN;
469: END IF;
470:
471: IF l_debug_level > 0 THEN
472: oe_debug_pub.add( 'BEFORE CHECKING IF HEADER_ID EXISTS FOR HEADER REC' , 3 ) ;
473: END IF;
474: IF l_debug_level > 0 THEN
475: oe_debug_pub.add( 'HEADER_ID_ACK = '||L_HEADER_REC.HEADER_ID ) ;
476: END IF;
471: IF l_debug_level > 0 THEN
472: oe_debug_pub.add( 'BEFORE CHECKING IF HEADER_ID EXISTS FOR HEADER REC' , 3 ) ;
473: END IF;
474: IF l_debug_level > 0 THEN
475: oe_debug_pub.add( 'HEADER_ID_ACK = '||L_HEADER_REC.HEADER_ID ) ;
476: END IF;
477:
478: IF (l_header_rec.header_id <> FND_API.G_MISS_NUM AND
479: nvl(l_header_rec.header_id,0) <> 0)
478: IF (l_header_rec.header_id <> FND_API.G_MISS_NUM AND
479: nvl(l_header_rec.header_id,0) <> 0)
480: THEN
481: IF l_debug_level > 0 THEN
482: oe_debug_pub.add( 'BEFORE GETTING BOOKED_FLAG' , 3 ) ;
483: END IF;
484:
485: -- l_header_rec := OE_Header_Util.Query_Row
486: -- (p_header_id => l_header_rec.header_id);
485: -- l_header_rec := OE_Header_Util.Query_Row
486: -- (p_header_id => l_header_rec.header_id);
487:
488: IF l_debug_level > 0 THEN
489: oe_debug_pub.add( 'l_header_rec: price list '||l_header_val_rec.price_list ) ;
490: oe_debug_pub.add( 'L_header_rec: order_category_code '||l_header_rec.order_category_code ) ;
491: oe_debug_pub.add( 'l_header_rec: first_ack date '||l_header_rec.first_ack_date ) ;
492: oe_debug_pub.add( 'l_header_rec: first_ack code '||l_header_rec.first_ack_code ) ;
493: oe_debug_pub.add( 'l_header_rec: shipping instructions' ||l_header_rec.shipping_instructions ) ;
486: -- (p_header_id => l_header_rec.header_id);
487:
488: IF l_debug_level > 0 THEN
489: oe_debug_pub.add( 'l_header_rec: price list '||l_header_val_rec.price_list ) ;
490: oe_debug_pub.add( 'L_header_rec: order_category_code '||l_header_rec.order_category_code ) ;
491: oe_debug_pub.add( 'l_header_rec: first_ack date '||l_header_rec.first_ack_date ) ;
492: oe_debug_pub.add( 'l_header_rec: first_ack code '||l_header_rec.first_ack_code ) ;
493: oe_debug_pub.add( 'l_header_rec: shipping instructions' ||l_header_rec.shipping_instructions ) ;
494: oe_debug_pub.add( 'l_header_rec: packing instructions' ||l_header_rec.packing_instructions ) ;
487:
488: IF l_debug_level > 0 THEN
489: oe_debug_pub.add( 'l_header_rec: price list '||l_header_val_rec.price_list ) ;
490: oe_debug_pub.add( 'L_header_rec: order_category_code '||l_header_rec.order_category_code ) ;
491: oe_debug_pub.add( 'l_header_rec: first_ack date '||l_header_rec.first_ack_date ) ;
492: oe_debug_pub.add( 'l_header_rec: first_ack code '||l_header_rec.first_ack_code ) ;
493: oe_debug_pub.add( 'l_header_rec: shipping instructions' ||l_header_rec.shipping_instructions ) ;
494: oe_debug_pub.add( 'l_header_rec: packing instructions' ||l_header_rec.packing_instructions ) ;
495: END IF;
488: IF l_debug_level > 0 THEN
489: oe_debug_pub.add( 'l_header_rec: price list '||l_header_val_rec.price_list ) ;
490: oe_debug_pub.add( 'L_header_rec: order_category_code '||l_header_rec.order_category_code ) ;
491: oe_debug_pub.add( 'l_header_rec: first_ack date '||l_header_rec.first_ack_date ) ;
492: oe_debug_pub.add( 'l_header_rec: first_ack code '||l_header_rec.first_ack_code ) ;
493: oe_debug_pub.add( 'l_header_rec: shipping instructions' ||l_header_rec.shipping_instructions ) ;
494: oe_debug_pub.add( 'l_header_rec: packing instructions' ||l_header_rec.packing_instructions ) ;
495: END IF;
496: BEGIN
489: oe_debug_pub.add( 'l_header_rec: price list '||l_header_val_rec.price_list ) ;
490: oe_debug_pub.add( 'L_header_rec: order_category_code '||l_header_rec.order_category_code ) ;
491: oe_debug_pub.add( 'l_header_rec: first_ack date '||l_header_rec.first_ack_date ) ;
492: oe_debug_pub.add( 'l_header_rec: first_ack code '||l_header_rec.first_ack_code ) ;
493: oe_debug_pub.add( 'l_header_rec: shipping instructions' ||l_header_rec.shipping_instructions ) ;
494: oe_debug_pub.add( 'l_header_rec: packing instructions' ||l_header_rec.packing_instructions ) ;
495: END IF;
496: BEGIN
497: SELECT booked_flag INTO l_booked_flag
490: oe_debug_pub.add( 'L_header_rec: order_category_code '||l_header_rec.order_category_code ) ;
491: oe_debug_pub.add( 'l_header_rec: first_ack date '||l_header_rec.first_ack_date ) ;
492: oe_debug_pub.add( 'l_header_rec: first_ack code '||l_header_rec.first_ack_code ) ;
493: oe_debug_pub.add( 'l_header_rec: shipping instructions' ||l_header_rec.shipping_instructions ) ;
494: oe_debug_pub.add( 'l_header_rec: packing instructions' ||l_header_rec.packing_instructions ) ;
495: END IF;
496: BEGIN
497: SELECT booked_flag INTO l_booked_flag
498: FROM oe_order_headers
500:
501: IF l_booked_flag = 'Y' THEN
502: l_header_rec.booked_flag := l_booked_flag;
503: IF l_debug_level > 0 THEN
504: oe_debug_pub.add( 'ORDER IS BOOKED 1' ) ;
505: END IF;
506: END IF;
507:
508: EXCEPTION
508: EXCEPTION
509: WHEN OTHERS THEN
510: x_return_status := FND_API.G_RET_STS_SUCCESS;
511: IF l_debug_level > 0 THEN
512: oe_debug_pub.add( 'EXCEPTION IN GETTING BOOKED_FLAG' , 3 ) ;
513: END IF;
514: RETURN;
515: END;
516:
521: nvl(l_line_tbl(l_line_tbl.first).header_id,0) <> 0)
522: THEN
523: Begin
524: IF l_debug_level > 0 THEN
525: oe_debug_pub.add( 'BEFORE QUERYING THE HEADER REC' ) ;
526: END IF;
527: -- l_header_rec := OE_Header_Util.Query_Row
528: -- (p_header_id => l_line_tbl(1).header_id);
529: -- This is to get the index of the line table, as
534: -- that means that there were no header level changes
535: -- but we still need the header record to perform tp check + send ack,
536: -- so get it from the cache if possible
537: IF l_debug_level > 0 THEN
538: oe_debug_pub.add( 'Header Id in cache is : '||oe_order_cache.g_header_rec.header_id);
539: END IF;
540: IF OE_ORDER_CACHE.g_header_rec.header_id <> FND_API.G_MISS_NUM AND
541: nvl(OE_ORDER_CACHE.g_header_rec.header_id,0) = l_line_tbl(l_line_index).header_id THEN
542: l_header_rec := OE_ORDER_CACHE.g_header_rec;
540: IF OE_ORDER_CACHE.g_header_rec.header_id <> FND_API.G_MISS_NUM AND
541: nvl(OE_ORDER_CACHE.g_header_rec.header_id,0) = l_line_tbl(l_line_index).header_id THEN
542: l_header_rec := OE_ORDER_CACHE.g_header_rec;
543: IF l_debug_level > 0 THEN
544: oe_debug_pub.add('Assigned header record from cache with booked flag '|| l_header_rec.booked_flag);
545: END IF;
546: ELSE
547: -- end bug 4048709
548: OE_Header_Util.Query_Row
555: Exception
556: When Others Then
557: x_return_status := FND_API.G_RET_STS_SUCCESS;
558: IF l_debug_level > 0 THEN
559: oe_debug_pub.add( 'NOTHING TO ACKNOWLEDGE - ELSIF' , 3 ) ;
560: END IF;
561: RETURN;
562: End;
563: ELSE
562: End;
563: ELSE
564: x_return_status := FND_API.G_RET_STS_SUCCESS;
565: IF l_debug_level > 0 THEN
566: oe_debug_pub.add( 'NOTHING TO ACKNOWLEDGE - ELSE' , 3 ) ;
567: END IF;
568: RETURN;
569: END IF;
570:
576: -- have enabled the acknowledgment transactions.
577: -- -------------------------------------------------------------
578: */
579: IF l_debug_level > 0 THEN
580: oe_debug_pub.add( 'BEFORE CHECKING IF TRADING PARTNER' ) ;
581: END IF;
582:
583: -- aksingh performance cache
584: IF G_CURR_SOLD_TO_ORG_ID = l_header_rec.sold_to_org_id AND
586: G_PRIMARY_SETUP = FALSE)
587: THEN
588: x_return_status := FND_API.G_RET_STS_SUCCESS;
589: IF l_debug_level > 0 THEN
590: oe_debug_pub.add( 'CHECKED CACHED VALUE POAO NOT EDI ENABLED G_CURR' , 3 ) ;
591: END IF;
592: RETURN;
593: END IF;
594:
604:
605: l_tp_ret := FALSE;
606:
607: IF l_debug_level > 0 THEN
608: oe_debug_pub.add( 'SOLD_TO_ORG_ID: '||TO_CHAR ( L_HEADER_REC.SOLD_TO_ORG_ID ) , 3 ) ;
609: END IF;
610: IF l_debug_level > 0 THEN
611: oe_debug_pub.add( 'INVOICE_TO_ORG_ID: '||TO_CHAR ( L_HEADER_REC.INVOICE_TO_ORG_ID ) , 3 ) ;
612: END IF;
607: IF l_debug_level > 0 THEN
608: oe_debug_pub.add( 'SOLD_TO_ORG_ID: '||TO_CHAR ( L_HEADER_REC.SOLD_TO_ORG_ID ) , 3 ) ;
609: END IF;
610: IF l_debug_level > 0 THEN
611: oe_debug_pub.add( 'INVOICE_TO_ORG_ID: '||TO_CHAR ( L_HEADER_REC.INVOICE_TO_ORG_ID ) , 3 ) ;
612: END IF;
613:
614: BEGIN
615: IF l_debug_level > 0 THEN
612: END IF;
613:
614: BEGIN
615: IF l_debug_level > 0 THEN
616: oe_debug_pub.add( 'BEFORE GETTING SOLD_TO SITE FOR THE CUSTOMER' ) ;
617: END IF;
618: -----------------------------------------------------------------
619: -- Fixing bug #1513426, using the HZ tables directly instead of
620: -- RA views to improve the performance
637: G_CURR_SOLD_TO_ORG_ID := l_header_rec.sold_to_org_id;
638: G_CURR_ADDRESS_ID := l_address_id;
639: G_PRIMARY_SETUP := TRUE;
640: IF l_debug_level > 0 THEN
641: oe_debug_pub.add( 'L_SITE_USE_ID ' || TO_CHAR ( L_SITE_USE_ID ) , 3 ) ;
642: END IF;
643: IF l_debug_level > 0 THEN
644: oe_debug_pub.add( 'L_ADDRESS_ID ' || TO_CHAR ( L_ADDRESS_ID ) , 3 ) ;
645: END IF;
640: IF l_debug_level > 0 THEN
641: oe_debug_pub.add( 'L_SITE_USE_ID ' || TO_CHAR ( L_SITE_USE_ID ) , 3 ) ;
642: END IF;
643: IF l_debug_level > 0 THEN
644: oe_debug_pub.add( 'L_ADDRESS_ID ' || TO_CHAR ( L_ADDRESS_ID ) , 3 ) ;
645: END IF;
646: IF l_debug_level > 0 THEN
647: oe_debug_pub.add( 'AFTER GETTING SOLD_TO SITE FOR THE CUSTOMER' ) ;
648: END IF;
643: IF l_debug_level > 0 THEN
644: oe_debug_pub.add( 'L_ADDRESS_ID ' || TO_CHAR ( L_ADDRESS_ID ) , 3 ) ;
645: END IF;
646: IF l_debug_level > 0 THEN
647: oe_debug_pub.add( 'AFTER GETTING SOLD_TO SITE FOR THE CUSTOMER' ) ;
648: END IF;
649: EXCEPTION
650:
651: WHEN NO_DATA_FOUND THEN
650:
651: WHEN NO_DATA_FOUND THEN
652: x_return_status := FND_API.G_RET_STS_SUCCESS;
653: IF l_debug_level > 0 THEN
654: oe_debug_pub.add( 'NO PRIMARY SOLD_TO SET FOR CUSTOMER' , 2 ) ;
655: END IF;
656: G_CURR_SOLD_TO_ORG_ID := l_header_rec.sold_to_org_id;
657: G_CURR_ADDRESS_ID := NULL;
658: G_PRIMARY_SETUP := FALSE;
660: WHEN OTHERS THEN
661:
662: x_return_status := FND_API.G_RET_STS_SUCCESS;
663: IF l_debug_level > 0 THEN
664: oe_debug_pub.add( 'NOT ABLE TO GET PRIMARY SOLD_TO FOR CUSTOMER' , 1 ) ;
665: END IF;
666: RETURN;
667: END;
668:
682: ,p_msg_data => l_msg_data);
683:
684: IF l_header_rec.first_ack_code is not null THEN
685: IF l_debug_level > 0 THEN
686: oe_debug_pub.add( 'Check if POCAO Enabled ',1 );
687: END IF;
688:
689: G_POCAO_ENABLED := EC_TRADING_PARTNER_PVT.Is_Entity_Enabled (
690: p_api_version_number => 1.0
701: ,p_msg_data => l_msg_data);
702:
703: IF NOT G_POCAO_ENABLED THEN
704: IF l_debug_level > 0 THEN
705: oe_debug_pub.add( 'POCAO NOT ENABLED',1 ) ;
706: END IF;
707: l_tp_ret := FALSE;
708: END IF;
709: END IF;
709: END IF;
710:
711:
712: IF l_debug_level > 0 THEN
713: oe_debug_pub.add( 'AFTER CALL TO THE EDI API' ) ;
714: END IF;
715:
716: IF l_tp_ret = FALSE then
717: G_TP_RET := FALSE;
716: IF l_tp_ret = FALSE then
717: G_TP_RET := FALSE;
718: x_return_status := FND_API.G_RET_STS_SUCCESS;
719: IF l_debug_level > 0 THEN
720: oe_debug_pub.add( 'CUSTOMER/INVOICE-TO-ADDRESS/POAO NOT EDI ENABLED' , 3 ) ;
721: END IF;
722: RETURN;
723: END IF;
724:
752: THEN
753: -- aksingh 2 line added on 10/22/00
754: NULL;
755: ELSE
756: oe_debug_pub.add('lines are not scheduled',3);
757: l_booked_shipped := 'N';
758: EXIT;
759: END IF;
760: i := l_line_tbl.Next(i);
762: */ -- Till this commented for the post H
763: NULL;
764: ELSE
765: IF l_debug_level > 0 THEN
766: oe_debug_pub.add( 'ORDER IS NOT BOOKED' , 3 ) ;
767: END IF;
768: l_booked_shipped := 'N';
769: END IF;
770: END IF;
771:
772: IF l_booked_shipped = 'N' THEN
773: x_return_status := FND_API.G_RET_STS_SUCCESS;
774: IF l_debug_level > 0 THEN
775: oe_debug_pub.add( 'ACKNOWLEDGMENT NOT REQUIRED' , 3 ) ;
776: END IF;
777: RETURN;
778: END IF;
779:
777: RETURN;
778: END IF;
779:
780: IF l_debug_level > 0 THEN
781: oe_debug_pub.add( 'BEFORE CHECKING IF FIELDS CHANGED' , 3 ) ;
782: END IF;
783:
784: /* -------------------------------------------------------------
785: Now Check to see at what level the data has been changed
789: */
790: J:= l_line_tbl.last;
791: I:= l_line_tbl.first;
792: IF l_debug_level > 0 THEN
793: oe_debug_pub.add( 'I = '||I ) ;
794: END IF;
795: IF l_debug_level > 0 THEN
796: oe_debug_pub.add( 'J = '||J ) ;
797: oe_debug_pub.add('header first_ack_code: => ' || l_header_rec.first_ack_code);
792: IF l_debug_level > 0 THEN
793: oe_debug_pub.add( 'I = '||I ) ;
794: END IF;
795: IF l_debug_level > 0 THEN
796: oe_debug_pub.add( 'J = '||J ) ;
797: oe_debug_pub.add('header first_ack_code: => ' || l_header_rec.first_ack_code);
798: END IF;
799:
800:
793: oe_debug_pub.add( 'I = '||I ) ;
794: END IF;
795: IF l_debug_level > 0 THEN
796: oe_debug_pub.add( 'J = '||J ) ;
797: oe_debug_pub.add('header first_ack_code: => ' || l_header_rec.first_ack_code);
798: END IF;
799:
800:
801: While i is not null loop
806:
807: -- bug 3439319 added this block instead of NULLing out the resv_qty
808: Begin
809: IF l_debug_level > 0 THEN
810: oe_debug_pub.add('header_id => ' || l_line_tbl(I).header_id);
811: oe_debug_pub.add('line_id => ' || l_line_tbl(I).line_id);
812: oe_debug_pub.add('org_id => ' || l_line_tbl(I).org_id);
813: oe_debug_pub.add('unit_selling_price = '||l_line_tbl(I).unit_selling_price);
814: oe_debug_pub.add('unit_selling_price old = '||l_old_line_tbl(I).unit_selling_price);
807: -- bug 3439319 added this block instead of NULLing out the resv_qty
808: Begin
809: IF l_debug_level > 0 THEN
810: oe_debug_pub.add('header_id => ' || l_line_tbl(I).header_id);
811: oe_debug_pub.add('line_id => ' || l_line_tbl(I).line_id);
812: oe_debug_pub.add('org_id => ' || l_line_tbl(I).org_id);
813: oe_debug_pub.add('unit_selling_price = '||l_line_tbl(I).unit_selling_price);
814: oe_debug_pub.add('unit_selling_price old = '||l_old_line_tbl(I).unit_selling_price);
815: oe_debug_pub.add('schedule_ship_date = '||l_line_tbl(I).schedule_ship_date);
808: Begin
809: IF l_debug_level > 0 THEN
810: oe_debug_pub.add('header_id => ' || l_line_tbl(I).header_id);
811: oe_debug_pub.add('line_id => ' || l_line_tbl(I).line_id);
812: oe_debug_pub.add('org_id => ' || l_line_tbl(I).org_id);
813: oe_debug_pub.add('unit_selling_price = '||l_line_tbl(I).unit_selling_price);
814: oe_debug_pub.add('unit_selling_price old = '||l_old_line_tbl(I).unit_selling_price);
815: oe_debug_pub.add('schedule_ship_date = '||l_line_tbl(I).schedule_ship_date);
816: oe_debug_pub.add('schedule_ship_date old = '||l_old_line_tbl(I).schedule_ship_date);
809: IF l_debug_level > 0 THEN
810: oe_debug_pub.add('header_id => ' || l_line_tbl(I).header_id);
811: oe_debug_pub.add('line_id => ' || l_line_tbl(I).line_id);
812: oe_debug_pub.add('org_id => ' || l_line_tbl(I).org_id);
813: oe_debug_pub.add('unit_selling_price = '||l_line_tbl(I).unit_selling_price);
814: oe_debug_pub.add('unit_selling_price old = '||l_old_line_tbl(I).unit_selling_price);
815: oe_debug_pub.add('schedule_ship_date = '||l_line_tbl(I).schedule_ship_date);
816: oe_debug_pub.add('schedule_ship_date old = '||l_old_line_tbl(I).schedule_ship_date);
817: oe_debug_pub.add('ordered_quantity = '||l_line_tbl(I).ordered_quantity);
810: oe_debug_pub.add('header_id => ' || l_line_tbl(I).header_id);
811: oe_debug_pub.add('line_id => ' || l_line_tbl(I).line_id);
812: oe_debug_pub.add('org_id => ' || l_line_tbl(I).org_id);
813: oe_debug_pub.add('unit_selling_price = '||l_line_tbl(I).unit_selling_price);
814: oe_debug_pub.add('unit_selling_price old = '||l_old_line_tbl(I).unit_selling_price);
815: oe_debug_pub.add('schedule_ship_date = '||l_line_tbl(I).schedule_ship_date);
816: oe_debug_pub.add('schedule_ship_date old = '||l_old_line_tbl(I).schedule_ship_date);
817: oe_debug_pub.add('ordered_quantity = '||l_line_tbl(I).ordered_quantity);
818: oe_debug_pub.add('ordered_quantity_old = '||l_old_line_tbl(I).ordered_quantity);
811: oe_debug_pub.add('line_id => ' || l_line_tbl(I).line_id);
812: oe_debug_pub.add('org_id => ' || l_line_tbl(I).org_id);
813: oe_debug_pub.add('unit_selling_price = '||l_line_tbl(I).unit_selling_price);
814: oe_debug_pub.add('unit_selling_price old = '||l_old_line_tbl(I).unit_selling_price);
815: oe_debug_pub.add('schedule_ship_date = '||l_line_tbl(I).schedule_ship_date);
816: oe_debug_pub.add('schedule_ship_date old = '||l_old_line_tbl(I).schedule_ship_date);
817: oe_debug_pub.add('ordered_quantity = '||l_line_tbl(I).ordered_quantity);
818: oe_debug_pub.add('ordered_quantity_old = '||l_old_line_tbl(I).ordered_quantity);
819: oe_debug_pub.add('schedule_arrival_date = '||l_line_tbl(I).schedule_arrival_date);
812: oe_debug_pub.add('org_id => ' || l_line_tbl(I).org_id);
813: oe_debug_pub.add('unit_selling_price = '||l_line_tbl(I).unit_selling_price);
814: oe_debug_pub.add('unit_selling_price old = '||l_old_line_tbl(I).unit_selling_price);
815: oe_debug_pub.add('schedule_ship_date = '||l_line_tbl(I).schedule_ship_date);
816: oe_debug_pub.add('schedule_ship_date old = '||l_old_line_tbl(I).schedule_ship_date);
817: oe_debug_pub.add('ordered_quantity = '||l_line_tbl(I).ordered_quantity);
818: oe_debug_pub.add('ordered_quantity_old = '||l_old_line_tbl(I).ordered_quantity);
819: oe_debug_pub.add('schedule_arrival_date = '||l_line_tbl(I).schedule_arrival_date);
820: oe_debug_pub.add('schedule_arrival_date old = '||l_old_line_tbl(I).schedule_arrival_date);
813: oe_debug_pub.add('unit_selling_price = '||l_line_tbl(I).unit_selling_price);
814: oe_debug_pub.add('unit_selling_price old = '||l_old_line_tbl(I).unit_selling_price);
815: oe_debug_pub.add('schedule_ship_date = '||l_line_tbl(I).schedule_ship_date);
816: oe_debug_pub.add('schedule_ship_date old = '||l_old_line_tbl(I).schedule_ship_date);
817: oe_debug_pub.add('ordered_quantity = '||l_line_tbl(I).ordered_quantity);
818: oe_debug_pub.add('ordered_quantity_old = '||l_old_line_tbl(I).ordered_quantity);
819: oe_debug_pub.add('schedule_arrival_date = '||l_line_tbl(I).schedule_arrival_date);
820: oe_debug_pub.add('schedule_arrival_date old = '||l_old_line_tbl(I).schedule_arrival_date);
821: oe_debug_pub.add('shipped_quantity = '||nvl(l_line_tbl(I).shipped_quantity,0));
814: oe_debug_pub.add('unit_selling_price old = '||l_old_line_tbl(I).unit_selling_price);
815: oe_debug_pub.add('schedule_ship_date = '||l_line_tbl(I).schedule_ship_date);
816: oe_debug_pub.add('schedule_ship_date old = '||l_old_line_tbl(I).schedule_ship_date);
817: oe_debug_pub.add('ordered_quantity = '||l_line_tbl(I).ordered_quantity);
818: oe_debug_pub.add('ordered_quantity_old = '||l_old_line_tbl(I).ordered_quantity);
819: oe_debug_pub.add('schedule_arrival_date = '||l_line_tbl(I).schedule_arrival_date);
820: oe_debug_pub.add('schedule_arrival_date old = '||l_old_line_tbl(I).schedule_arrival_date);
821: oe_debug_pub.add('shipped_quantity = '||nvl(l_line_tbl(I).shipped_quantity,0));
822: oe_debug_pub.add('shipped_quantity old = '||nvl(l_old_line_tbl(I).shipped_quantity,0));
815: oe_debug_pub.add('schedule_ship_date = '||l_line_tbl(I).schedule_ship_date);
816: oe_debug_pub.add('schedule_ship_date old = '||l_old_line_tbl(I).schedule_ship_date);
817: oe_debug_pub.add('ordered_quantity = '||l_line_tbl(I).ordered_quantity);
818: oe_debug_pub.add('ordered_quantity_old = '||l_old_line_tbl(I).ordered_quantity);
819: oe_debug_pub.add('schedule_arrival_date = '||l_line_tbl(I).schedule_arrival_date);
820: oe_debug_pub.add('schedule_arrival_date old = '||l_old_line_tbl(I).schedule_arrival_date);
821: oe_debug_pub.add('shipped_quantity = '||nvl(l_line_tbl(I).shipped_quantity,0));
822: oe_debug_pub.add('shipped_quantity old = '||nvl(l_old_line_tbl(I).shipped_quantity,0));
823: oe_debug_pub.add('first_ack_code line = '||nvl(l_line_tbl(I).first_ack_code,'Nul'));
816: oe_debug_pub.add('schedule_ship_date old = '||l_old_line_tbl(I).schedule_ship_date);
817: oe_debug_pub.add('ordered_quantity = '||l_line_tbl(I).ordered_quantity);
818: oe_debug_pub.add('ordered_quantity_old = '||l_old_line_tbl(I).ordered_quantity);
819: oe_debug_pub.add('schedule_arrival_date = '||l_line_tbl(I).schedule_arrival_date);
820: oe_debug_pub.add('schedule_arrival_date old = '||l_old_line_tbl(I).schedule_arrival_date);
821: oe_debug_pub.add('shipped_quantity = '||nvl(l_line_tbl(I).shipped_quantity,0));
822: oe_debug_pub.add('shipped_quantity old = '||nvl(l_old_line_tbl(I).shipped_quantity,0));
823: oe_debug_pub.add('first_ack_code line = '||nvl(l_line_tbl(I).first_ack_code,'Nul'));
824: oe_debug_pub.add('uom = '||l_line_tbl(I).order_quantity_uom);
817: oe_debug_pub.add('ordered_quantity = '||l_line_tbl(I).ordered_quantity);
818: oe_debug_pub.add('ordered_quantity_old = '||l_old_line_tbl(I).ordered_quantity);
819: oe_debug_pub.add('schedule_arrival_date = '||l_line_tbl(I).schedule_arrival_date);
820: oe_debug_pub.add('schedule_arrival_date old = '||l_old_line_tbl(I).schedule_arrival_date);
821: oe_debug_pub.add('shipped_quantity = '||nvl(l_line_tbl(I).shipped_quantity,0));
822: oe_debug_pub.add('shipped_quantity old = '||nvl(l_old_line_tbl(I).shipped_quantity,0));
823: oe_debug_pub.add('first_ack_code line = '||nvl(l_line_tbl(I).first_ack_code,'Nul'));
824: oe_debug_pub.add('uom = '||l_line_tbl(I).order_quantity_uom);
825: oe_debug_pub.add('uom old = '||l_old_line_tbl(I).order_quantity_uom);
818: oe_debug_pub.add('ordered_quantity_old = '||l_old_line_tbl(I).ordered_quantity);
819: oe_debug_pub.add('schedule_arrival_date = '||l_line_tbl(I).schedule_arrival_date);
820: oe_debug_pub.add('schedule_arrival_date old = '||l_old_line_tbl(I).schedule_arrival_date);
821: oe_debug_pub.add('shipped_quantity = '||nvl(l_line_tbl(I).shipped_quantity,0));
822: oe_debug_pub.add('shipped_quantity old = '||nvl(l_old_line_tbl(I).shipped_quantity,0));
823: oe_debug_pub.add('first_ack_code line = '||nvl(l_line_tbl(I).first_ack_code,'Nul'));
824: oe_debug_pub.add('uom = '||l_line_tbl(I).order_quantity_uom);
825: oe_debug_pub.add('uom old = '||l_old_line_tbl(I).order_quantity_uom);
826: oe_debug_pub.add('inv item id = '||l_line_tbl(I).inventory_item_id);
819: oe_debug_pub.add('schedule_arrival_date = '||l_line_tbl(I).schedule_arrival_date);
820: oe_debug_pub.add('schedule_arrival_date old = '||l_old_line_tbl(I).schedule_arrival_date);
821: oe_debug_pub.add('shipped_quantity = '||nvl(l_line_tbl(I).shipped_quantity,0));
822: oe_debug_pub.add('shipped_quantity old = '||nvl(l_old_line_tbl(I).shipped_quantity,0));
823: oe_debug_pub.add('first_ack_code line = '||nvl(l_line_tbl(I).first_ack_code,'Nul'));
824: oe_debug_pub.add('uom = '||l_line_tbl(I).order_quantity_uom);
825: oe_debug_pub.add('uom old = '||l_old_line_tbl(I).order_quantity_uom);
826: oe_debug_pub.add('inv item id = '||l_line_tbl(I).inventory_item_id);
827: oe_debug_pub.add('inv item id old = '||l_old_line_tbl(I).inventory_item_id);
820: oe_debug_pub.add('schedule_arrival_date old = '||l_old_line_tbl(I).schedule_arrival_date);
821: oe_debug_pub.add('shipped_quantity = '||nvl(l_line_tbl(I).shipped_quantity,0));
822: oe_debug_pub.add('shipped_quantity old = '||nvl(l_old_line_tbl(I).shipped_quantity,0));
823: oe_debug_pub.add('first_ack_code line = '||nvl(l_line_tbl(I).first_ack_code,'Nul'));
824: oe_debug_pub.add('uom = '||l_line_tbl(I).order_quantity_uom);
825: oe_debug_pub.add('uom old = '||l_old_line_tbl(I).order_quantity_uom);
826: oe_debug_pub.add('inv item id = '||l_line_tbl(I).inventory_item_id);
827: oe_debug_pub.add('inv item id old = '||l_old_line_tbl(I).inventory_item_id);
828: oe_debug_pub.add('line first_ack_code old: => ' || l_old_line_tbl(I).first_ack_code);
821: oe_debug_pub.add('shipped_quantity = '||nvl(l_line_tbl(I).shipped_quantity,0));
822: oe_debug_pub.add('shipped_quantity old = '||nvl(l_old_line_tbl(I).shipped_quantity,0));
823: oe_debug_pub.add('first_ack_code line = '||nvl(l_line_tbl(I).first_ack_code,'Nul'));
824: oe_debug_pub.add('uom = '||l_line_tbl(I).order_quantity_uom);
825: oe_debug_pub.add('uom old = '||l_old_line_tbl(I).order_quantity_uom);
826: oe_debug_pub.add('inv item id = '||l_line_tbl(I).inventory_item_id);
827: oe_debug_pub.add('inv item id old = '||l_old_line_tbl(I).inventory_item_id);
828: oe_debug_pub.add('line first_ack_code old: => ' || l_old_line_tbl(I).first_ack_code);
829: oe_debug_pub.add('line first_ack_code new: => ' || l_line_tbl(I).first_ack_code);
822: oe_debug_pub.add('shipped_quantity old = '||nvl(l_old_line_tbl(I).shipped_quantity,0));
823: oe_debug_pub.add('first_ack_code line = '||nvl(l_line_tbl(I).first_ack_code,'Nul'));
824: oe_debug_pub.add('uom = '||l_line_tbl(I).order_quantity_uom);
825: oe_debug_pub.add('uom old = '||l_old_line_tbl(I).order_quantity_uom);
826: oe_debug_pub.add('inv item id = '||l_line_tbl(I).inventory_item_id);
827: oe_debug_pub.add('inv item id old = '||l_old_line_tbl(I).inventory_item_id);
828: oe_debug_pub.add('line first_ack_code old: => ' || l_old_line_tbl(I).first_ack_code);
829: oe_debug_pub.add('line first_ack_code new: => ' || l_line_tbl(I).first_ack_code);
830: oe_debug_pub.add('line operation old: => ' || l_old_line_tbl(I).operation);
823: oe_debug_pub.add('first_ack_code line = '||nvl(l_line_tbl(I).first_ack_code,'Nul'));
824: oe_debug_pub.add('uom = '||l_line_tbl(I).order_quantity_uom);
825: oe_debug_pub.add('uom old = '||l_old_line_tbl(I).order_quantity_uom);
826: oe_debug_pub.add('inv item id = '||l_line_tbl(I).inventory_item_id);
827: oe_debug_pub.add('inv item id old = '||l_old_line_tbl(I).inventory_item_id);
828: oe_debug_pub.add('line first_ack_code old: => ' || l_old_line_tbl(I).first_ack_code);
829: oe_debug_pub.add('line first_ack_code new: => ' || l_line_tbl(I).first_ack_code);
830: oe_debug_pub.add('line operation old: => ' || l_old_line_tbl(I).operation);
831: oe_debug_pub.add('line operation new: => ' || l_line_tbl(I).operation);
824: oe_debug_pub.add('uom = '||l_line_tbl(I).order_quantity_uom);
825: oe_debug_pub.add('uom old = '||l_old_line_tbl(I).order_quantity_uom);
826: oe_debug_pub.add('inv item id = '||l_line_tbl(I).inventory_item_id);
827: oe_debug_pub.add('inv item id old = '||l_old_line_tbl(I).inventory_item_id);
828: oe_debug_pub.add('line first_ack_code old: => ' || l_old_line_tbl(I).first_ack_code);
829: oe_debug_pub.add('line first_ack_code new: => ' || l_line_tbl(I).first_ack_code);
830: oe_debug_pub.add('line operation old: => ' || l_old_line_tbl(I).operation);
831: oe_debug_pub.add('line operation new: => ' || l_line_tbl(I).operation);
832: END IF;
825: oe_debug_pub.add('uom old = '||l_old_line_tbl(I).order_quantity_uom);
826: oe_debug_pub.add('inv item id = '||l_line_tbl(I).inventory_item_id);
827: oe_debug_pub.add('inv item id old = '||l_old_line_tbl(I).inventory_item_id);
828: oe_debug_pub.add('line first_ack_code old: => ' || l_old_line_tbl(I).first_ack_code);
829: oe_debug_pub.add('line first_ack_code new: => ' || l_line_tbl(I).first_ack_code);
830: oe_debug_pub.add('line operation old: => ' || l_old_line_tbl(I).operation);
831: oe_debug_pub.add('line operation new: => ' || l_line_tbl(I).operation);
832: END IF;
833:
826: oe_debug_pub.add('inv item id = '||l_line_tbl(I).inventory_item_id);
827: oe_debug_pub.add('inv item id old = '||l_old_line_tbl(I).inventory_item_id);
828: oe_debug_pub.add('line first_ack_code old: => ' || l_old_line_tbl(I).first_ack_code);
829: oe_debug_pub.add('line first_ack_code new: => ' || l_line_tbl(I).first_ack_code);
830: oe_debug_pub.add('line operation old: => ' || l_old_line_tbl(I).operation);
831: oe_debug_pub.add('line operation new: => ' || l_line_tbl(I).operation);
832: END IF;
833:
834: l_sales_order_id := OE_SCHEDULE_UTIL.Get_mtl_sales_order_id(l_line_tbl(I).header_id);
827: oe_debug_pub.add('inv item id old = '||l_old_line_tbl(I).inventory_item_id);
828: oe_debug_pub.add('line first_ack_code old: => ' || l_old_line_tbl(I).first_ack_code);
829: oe_debug_pub.add('line first_ack_code new: => ' || l_line_tbl(I).first_ack_code);
830: oe_debug_pub.add('line operation old: => ' || l_old_line_tbl(I).operation);
831: oe_debug_pub.add('line operation new: => ' || l_line_tbl(I).operation);
832: END IF;
833:
834: l_sales_order_id := OE_SCHEDULE_UTIL.Get_mtl_sales_order_id(l_line_tbl(I).header_id);
835:
833:
834: l_sales_order_id := OE_SCHEDULE_UTIL.Get_mtl_sales_order_id(l_line_tbl(I).header_id);
835:
836: IF l_debug_level > 0 THEN
837: oe_debug_pub.add('l_sales_order_id => ' || l_sales_order_id);
838: END IF;
839:
840: l_line_tbl(I).reserved_quantity := oe_line_util.Get_Reserved_Quantity (
841: p_header_id => l_sales_order_id,
841: p_header_id => l_sales_order_id,
842: p_line_id => p_line_tbl(I).line_id,
843: p_org_id => p_line_tbl(I).org_id);
844: IF l_debug_level > 0 THEN
845: oe_debug_pub.add('Reserved_Qty => ' || l_line_tbl(I).reserved_quantity);
846: END IF;
847: Exception
848: When Others Then
849: oe_debug_pub.add('When Others After the call to get_reserv_qty in OEXVACKB');
845: oe_debug_pub.add('Reserved_Qty => ' || l_line_tbl(I).reserved_quantity);
846: END IF;
847: Exception
848: When Others Then
849: oe_debug_pub.add('When Others After the call to get_reserv_qty in OEXVACKB');
850: l_line_tbl(I).reserved_quantity := NULL;
851: END;
852:
853: -- FOR I IN l_line_tbl.first..l_line_tbl.last LOOP
877: THEN
878: -- Set local variable to continue Acknowledgment processing
879: -- And Exit from Loop
880: IF l_debug_level > 0 THEN
881: oe_debug_pub.add( 'LINE DATA HAS CHANGED' ) ;
882: END IF;
883:
884: l_ack_req_flag := 'B';
885: /* Bug 2671184 :
895: ELSE
896: -- no attribute change was detected so if the acknowledgment has been
897: -- extracted previously, do not send this line
898: IF l_debug_level > 0 THEN
899: oe_debug_pub.add('No attribute change detected.');
900: END IF;
901:
902: If l_header_rec.first_ack_code Is Not Null Then
903: IF l_debug_level > 0 THEN
900: END IF;
901:
902: If l_header_rec.first_ack_code Is Not Null Then
903: IF l_debug_level > 0 THEN
904: oe_debug_pub.add('line will not be acknowledged.');
905: END IF;
906: l_line_tbl(I).changed_lines_pocao := 'N';
907: --EXIT;
908: End If;
908: End If;
909: END IF;
910: l_validation_org_id := OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
911: IF l_debug_level > 0 THEN
912: oe_debug_pub.add( 'FIRST_ACK_CODE FROM PROCAPI = '||L_LINE_TBL ( I ) .FIRST_ACK_CODE ) ;
913: END IF;
914:
915: BEGIN
916: -- Fix for the bug2722519
922: AND b.site_use_code='SHIP_TO';
923: -- removed unnecessary validation of customer account, bug 3656640
924:
925: IF l_debug_level > 0 THEN
926: oe_debug_pub.add( 'SHIP-LINE- TO ADDR ID = '||L_SHIP_TO_ADDR_ID ) ;
927: END IF;
928: EXCEPTION
929: WHEN OTHERS THEN
930: NULL;
928: EXCEPTION
929: WHEN OTHERS THEN
930: NULL;
931: IF l_debug_level > 0 THEN
932: oe_debug_pub.add( 'UNABLE TO DERIVE SHIP_TO ADDR FOR LINE' ) ;
933: END IF;
934: END;
935:
936: get_address(
968: l_line_val_tbl(I).ship_to_location := l_ship_to_addr_code;
969: l_line_tbl(I).ship_to_edi_location_code := l_ship_to_location_code;
970: /* Code for Blanket Sales Orders */
971: IF l_debug_level > 0 THEN
972: oe_debug_pub.add( 'Entering into Blanket related model code') ;
973: END IF;
974: IF l_line_tbl(I).item_type_code = 'INCLUDED' THEN
975: l_top_model_line_id := l_line_tbl(I).top_model_line_id;
976: OPEN GET_TOP_MODEL(l_top_model_line_id);
979: l_blanket_number,
980: l_blanket_line_number;
981: IF GET_TOP_MODEL%NOTFOUND THEN
982: IF l_debug_level > 0 THEN
983: oe_debug_pub.add( 'Blanket number and Blanket line number NOT FOUND for the cursor GET_TOP_MODEL' ) ;
984: END IF;
985: END IF;
986: CLOSE GET_TOP_MODEL;
987: l_line_tbl(I).blanket_number := l_blanket_number;
988: l_line_tbl(I).blanket_line_number := l_blanket_line_number;
989: END IF;
990:
991: IF l_debug_level > 0 THEN
992: oe_debug_pub.add( 'Leaving Blanket related code for the Top Model Line Id: '||l_top_model_line_id) ;
993: oe_debug_pub.add( 'Leaving Blanket related code Blanket Number : '||l_blanket_number) ;
994: oe_debug_pub.add( 'Leaving Blanket related code Blanket Line Number : '||l_blanket_line_number) ;
995: END IF;
996:
989: END IF;
990:
991: IF l_debug_level > 0 THEN
992: oe_debug_pub.add( 'Leaving Blanket related code for the Top Model Line Id: '||l_top_model_line_id) ;
993: oe_debug_pub.add( 'Leaving Blanket related code Blanket Number : '||l_blanket_number) ;
994: oe_debug_pub.add( 'Leaving Blanket related code Blanket Line Number : '||l_blanket_line_number) ;
995: END IF;
996:
997: IF l_debug_level > 0 THEN
990:
991: IF l_debug_level > 0 THEN
992: oe_debug_pub.add( 'Leaving Blanket related code for the Top Model Line Id: '||l_top_model_line_id) ;
993: oe_debug_pub.add( 'Leaving Blanket related code Blanket Number : '||l_blanket_number) ;
994: oe_debug_pub.add( 'Leaving Blanket related code Blanket Line Number : '||l_blanket_line_number) ;
995: END IF;
996:
997: IF l_debug_level > 0 THEN
998: oe_debug_pub.add( 'SHIP TO EDI CODE = '||L_SHIP_TO_LOCATION_CODE ) ;
994: oe_debug_pub.add( 'Leaving Blanket related code Blanket Line Number : '||l_blanket_line_number) ;
995: END IF;
996:
997: IF l_debug_level > 0 THEN
998: oe_debug_pub.add( 'SHIP TO EDI CODE = '||L_SHIP_TO_LOCATION_CODE ) ;
999: END IF;
1000: IF l_debug_level > 0 THEN
1001: oe_debug_pub.add( 'ADDR1 = '||L_LINE_VAL_TBL ( I ) .SHIP_TO_ADDRESS1 ) ;
1002: END IF;
997: IF l_debug_level > 0 THEN
998: oe_debug_pub.add( 'SHIP TO EDI CODE = '||L_SHIP_TO_LOCATION_CODE ) ;
999: END IF;
1000: IF l_debug_level > 0 THEN
1001: oe_debug_pub.add( 'ADDR1 = '||L_LINE_VAL_TBL ( I ) .SHIP_TO_ADDRESS1 ) ;
1002: END IF;
1003: IF l_debug_level > 0 THEN
1004: oe_debug_pub.add( 'SHIP TO CONTACT ID = '||L_LINE_TBL ( I ) .SHIP_TO_CONTACT_ID ) ;
1005: END IF;
1000: IF l_debug_level > 0 THEN
1001: oe_debug_pub.add( 'ADDR1 = '||L_LINE_VAL_TBL ( I ) .SHIP_TO_ADDRESS1 ) ;
1002: END IF;
1003: IF l_debug_level > 0 THEN
1004: oe_debug_pub.add( 'SHIP TO CONTACT ID = '||L_LINE_TBL ( I ) .SHIP_TO_CONTACT_ID ) ;
1005: END IF;
1006: IF l_debug_level > 0 THEN
1007: oe_debug_pub.add( 'ACTUAL_SHIPMENT_DATE = '||L_LINE_TBL ( I ) .ACTUAL_SHIPMENT_DATE ) ;
1008: END IF;
1003: IF l_debug_level > 0 THEN
1004: oe_debug_pub.add( 'SHIP TO CONTACT ID = '||L_LINE_TBL ( I ) .SHIP_TO_CONTACT_ID ) ;
1005: END IF;
1006: IF l_debug_level > 0 THEN
1007: oe_debug_pub.add( 'ACTUAL_SHIPMENT_DATE = '||L_LINE_TBL ( I ) .ACTUAL_SHIPMENT_DATE ) ;
1008: END IF;
1009: IF l_debug_level > 0 THEN
1010: oe_debug_pub.add( 'ACTUAL_ARRIVAL_DATE = '||L_LINE_TBL ( I ) .ACTUAL_ARRIVAL_DATE ) ;
1011: END IF;
1006: IF l_debug_level > 0 THEN
1007: oe_debug_pub.add( 'ACTUAL_SHIPMENT_DATE = '||L_LINE_TBL ( I ) .ACTUAL_SHIPMENT_DATE ) ;
1008: END IF;
1009: IF l_debug_level > 0 THEN
1010: oe_debug_pub.add( 'ACTUAL_ARRIVAL_DATE = '||L_LINE_TBL ( I ) .ACTUAL_ARRIVAL_DATE ) ;
1011: END IF;
1012: IF l_debug_level > 0 THEN
1013: oe_debug_pub.add( 'CUSTOMER_DOCK_CODE = '||L_LINE_TBL ( I ) .CUSTOMER_DOCK_CODE ) ;
1014: END IF;
1009: IF l_debug_level > 0 THEN
1010: oe_debug_pub.add( 'ACTUAL_ARRIVAL_DATE = '||L_LINE_TBL ( I ) .ACTUAL_ARRIVAL_DATE ) ;
1011: END IF;
1012: IF l_debug_level > 0 THEN
1013: oe_debug_pub.add( 'CUSTOMER_DOCK_CODE = '||L_LINE_TBL ( I ) .CUSTOMER_DOCK_CODE ) ;
1014: END IF;
1015: IF l_debug_level > 0 THEN
1016: oe_debug_pub.add( 'CUST_PRODUCTION_SEQ_NUM = '||L_LINE_TBL ( I ) .CUST_PRODUCTION_SEQ_NUM ) ;
1017: END IF;
1012: IF l_debug_level > 0 THEN
1013: oe_debug_pub.add( 'CUSTOMER_DOCK_CODE = '||L_LINE_TBL ( I ) .CUSTOMER_DOCK_CODE ) ;
1014: END IF;
1015: IF l_debug_level > 0 THEN
1016: oe_debug_pub.add( 'CUST_PRODUCTION_SEQ_NUM = '||L_LINE_TBL ( I ) .CUST_PRODUCTION_SEQ_NUM ) ;
1017: END IF;
1018: IF l_debug_level > 0 THEN
1019: oe_debug_pub.add( 'CUSTOMER_PRODUCTION_LINE = '||L_LINE_TBL ( I ) .CUSTOMER_PRODUCTION_LINE ) ;
1020: END IF;
1015: IF l_debug_level > 0 THEN
1016: oe_debug_pub.add( 'CUST_PRODUCTION_SEQ_NUM = '||L_LINE_TBL ( I ) .CUST_PRODUCTION_SEQ_NUM ) ;
1017: END IF;
1018: IF l_debug_level > 0 THEN
1019: oe_debug_pub.add( 'CUSTOMER_PRODUCTION_LINE = '||L_LINE_TBL ( I ) .CUSTOMER_PRODUCTION_LINE ) ;
1020: END IF;
1021: IF l_debug_level > 0 THEN
1022: oe_debug_pub.add( 'CUST_MODEL_SERIAL_NUMBER = '||L_LINE_TBL ( I ) .CUST_MODEL_SERIAL_NUMBER ) ;
1023: END IF;
1018: IF l_debug_level > 0 THEN
1019: oe_debug_pub.add( 'CUSTOMER_PRODUCTION_LINE = '||L_LINE_TBL ( I ) .CUSTOMER_PRODUCTION_LINE ) ;
1020: END IF;
1021: IF l_debug_level > 0 THEN
1022: oe_debug_pub.add( 'CUST_MODEL_SERIAL_NUMBER = '||L_LINE_TBL ( I ) .CUST_MODEL_SERIAL_NUMBER ) ;
1023: END IF;
1024: IF l_debug_level > 0 THEN
1025: oe_debug_pub.add( 'CUSTOMER_JOB = '||L_LINE_TBL ( I ) .CUSTOMER_JOB ) ;
1026: END IF;
1021: IF l_debug_level > 0 THEN
1022: oe_debug_pub.add( 'CUST_MODEL_SERIAL_NUMBER = '||L_LINE_TBL ( I ) .CUST_MODEL_SERIAL_NUMBER ) ;
1023: END IF;
1024: IF l_debug_level > 0 THEN
1025: oe_debug_pub.add( 'CUSTOMER_JOB = '||L_LINE_TBL ( I ) .CUSTOMER_JOB ) ;
1026: END IF;
1027: IF l_debug_level > 0 THEN
1028: oe_debug_pub.add( 'CUSTOMER_PAYMENT_TERM = '||L_LINE_VAL_TBL ( I ) .CUSTOMER_PAYMENT_TERM ) ;
1029: END IF;
1024: IF l_debug_level > 0 THEN
1025: oe_debug_pub.add( 'CUSTOMER_JOB = '||L_LINE_TBL ( I ) .CUSTOMER_JOB ) ;
1026: END IF;
1027: IF l_debug_level > 0 THEN
1028: oe_debug_pub.add( 'CUSTOMER_PAYMENT_TERM = '||L_LINE_VAL_TBL ( I ) .CUSTOMER_PAYMENT_TERM ) ;
1029: END IF;
1030:
1031:
1032: BEGIN
1041: AND b.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
1042: AND b.OBJECT_TABLE_NAME = 'HZ_PARTIES'
1043: AND b.DIRECTIONAL_FLAG = 'F';
1044: IF l_debug_level > 0 THEN
1045: oe_debug_pub.add( 'SHIP TO CONTACT = '||L_LINE_VAL_TBL ( I ) .SHIP_TO_CONTACT_LAST_NAME ) ;
1046: END IF;
1047: EXCEPTION
1048: WHEN OTHERS THEN
1049: NULL;
1047: EXCEPTION
1048: WHEN OTHERS THEN
1049: NULL;
1050: IF l_debug_level > 0 THEN
1051: oe_debug_pub.add( 'UNABLE TO GET FIRST/LAST NAME FOR LINE SHIP_TO' ) ;
1052: END IF;
1053: END;
1054:
1055: BEGIN
1059: WHERE inventory_item_id = l_line_tbl(I).inventory_item_id
1060: AND organization_id = l_validation_org_id;
1061: l_line_val_tbl(I).inventory_item := l_concatenated_segments;
1062: IF l_debug_level > 0 THEN
1063: oe_debug_pub.add( 'ITEM ID = '||L_LINE_TBL ( I ) .INVENTORY_ITEM_ID ) ;
1064: END IF;
1065: IF l_debug_level > 0 THEN
1066: oe_debug_pub.add( 'ITEM NAME = '||L_LINE_VAL_TBL ( I ) .INVENTORY_ITEM ) ;
1067: END IF;
1062: IF l_debug_level > 0 THEN
1063: oe_debug_pub.add( 'ITEM ID = '||L_LINE_TBL ( I ) .INVENTORY_ITEM_ID ) ;
1064: END IF;
1065: IF l_debug_level > 0 THEN
1066: oe_debug_pub.add( 'ITEM NAME = '||L_LINE_VAL_TBL ( I ) .INVENTORY_ITEM ) ;
1067: END IF;
1068: IF l_debug_level > 0 THEN
1069: oe_debug_pub.add( 'INDEX IS = '||I ) ;
1070: END IF;
1065: IF l_debug_level > 0 THEN
1066: oe_debug_pub.add( 'ITEM NAME = '||L_LINE_VAL_TBL ( I ) .INVENTORY_ITEM ) ;
1067: END IF;
1068: IF l_debug_level > 0 THEN
1069: oe_debug_pub.add( 'INDEX IS = '||I ) ;
1070: END IF;
1071: EXCEPTION
1072: WHEN OTHERS THEN
1073: NULL;
1071: EXCEPTION
1072: WHEN OTHERS THEN
1073: NULL;
1074: IF l_debug_level > 0 THEN
1075: oe_debug_pub.add( 'UNABLE TO GET ITEM NAME' ) ;
1076: END IF;
1077: END;
1078: /* 1944673 */
1079: l_line_val_tbl(i).line_type := OE_Id_To_Value.Line_Type
1130: where hl.location_id = hu.location_id
1131: AND hu.organization_id = l_line_tbl(I).ship_from_org_id;
1132:
1133: IF l_debug_level > 0 THEN
1134: oe_debug_pub.add( 'SHIP-FROM LINE ADDR ID = '||L_SHIP_FROM_ADDR_ID ) ;
1135: END IF;
1136: EXCEPTION
1137: WHEN OTHERS THEN
1138: NULL;
1136: EXCEPTION
1137: WHEN OTHERS THEN
1138: NULL;
1139: IF l_debug_level > 0 THEN
1140: oe_debug_pub.add( 'UNABLE TO DERIVE SHIP_FROM ADDR FOR LINE' ) ;
1141: END IF;
1142: END;
1143:
1144: get_address(
1175: l_line_val_tbl(I).ship_from_region3 := SUBSTR(l_region3,0,240);
1176: l_line_val_tbl(I).ship_from_org := l_ship_from_addr_code;
1177: l_line_tbl(I).ship_from_edi_location_code := SUBSTR(l_ship_from_location_code,0,40);
1178: IF l_debug_level > 0 THEN
1179: oe_debug_pub.add( 'ADDR1 = '||L_LINE_VAL_TBL ( I ) .SHIP_FROM_ADDRESS1 ) ;
1180: END IF;
1181: IF l_debug_level > 0 THEN
1182: oe_debug_pub.add( 'INSIDE WHILE LOOP I = '||I ) ;
1183: END IF;
1178: IF l_debug_level > 0 THEN
1179: oe_debug_pub.add( 'ADDR1 = '||L_LINE_VAL_TBL ( I ) .SHIP_FROM_ADDRESS1 ) ;
1180: END IF;
1181: IF l_debug_level > 0 THEN
1182: oe_debug_pub.add( 'INSIDE WHILE LOOP I = '||I ) ;
1183: END IF;
1184:
1185: if (l_line_tbl(I).operation is NULL OR
1186: l_line_tbl(I).operation = FND_API.G_MISS_CHAR )
1201: where hl.location_id = hu.location_id
1202: AND hu.organization_id = l_header_rec.ship_from_org_id;
1203:
1204: IF l_debug_level > 0 THEN
1205: oe_debug_pub.add( 'SHIP-FROM HEADER ADDR ID = '||L_SHIP_FROM_ADDR_ID ) ;
1206: END IF;
1207: IF l_debug_level > 0 THEN
1208: oe_debug_pub.add( 'SHIP-FROM HEADER SHIP_FROM ORG = '||L_HEADER_REC.SHIP_FROM_ORG_ID ) ;
1209: END IF;
1204: IF l_debug_level > 0 THEN
1205: oe_debug_pub.add( 'SHIP-FROM HEADER ADDR ID = '||L_SHIP_FROM_ADDR_ID ) ;
1206: END IF;
1207: IF l_debug_level > 0 THEN
1208: oe_debug_pub.add( 'SHIP-FROM HEADER SHIP_FROM ORG = '||L_HEADER_REC.SHIP_FROM_ORG_ID ) ;
1209: END IF;
1210: IF l_debug_level > 0 THEN
1211: oe_debug_pub.add( 'SHIP-FROM HEADER EDI LOC CODE = '||L_SHIP_FROM_LOCATION_CODE ) ;
1212: END IF;
1207: IF l_debug_level > 0 THEN
1208: oe_debug_pub.add( 'SHIP-FROM HEADER SHIP_FROM ORG = '||L_HEADER_REC.SHIP_FROM_ORG_ID ) ;
1209: END IF;
1210: IF l_debug_level > 0 THEN
1211: oe_debug_pub.add( 'SHIP-FROM HEADER EDI LOC CODE = '||L_SHIP_FROM_LOCATION_CODE ) ;
1212: END IF;
1213: IF l_debug_level > 0 THEN
1214: oe_debug_pub.add( 'SHIP-FROM HEADER ADDR CODE = '||L_SHIP_FROM_ADDR_CODE ) ;
1215: END IF;
1210: IF l_debug_level > 0 THEN
1211: oe_debug_pub.add( 'SHIP-FROM HEADER EDI LOC CODE = '||L_SHIP_FROM_LOCATION_CODE ) ;
1212: END IF;
1213: IF l_debug_level > 0 THEN
1214: oe_debug_pub.add( 'SHIP-FROM HEADER ADDR CODE = '||L_SHIP_FROM_ADDR_CODE ) ;
1215: END IF;
1216: EXCEPTION
1217: WHEN OTHERS THEN
1218: NULL;
1216: EXCEPTION
1217: WHEN OTHERS THEN
1218: NULL;
1219: IF l_debug_level > 0 THEN
1220: oe_debug_pub.add( 'UNABLE TO DERIVE SHIP_FROM ADDR FOR HEADER' ) ;
1221: END IF;
1222: END;
1223:
1224: get_address(
1255: l_header_val_rec.ship_from_region3 := SUBSTR(l_region3,0,240);
1256: l_header_val_rec.ship_from_org := l_ship_from_addr_code;
1257: l_header_rec.ship_from_edi_location_code := l_ship_from_location_code;
1258: IF l_debug_level > 0 THEN
1259: oe_debug_pub.add( 'ADDR1 = '||L_HEADER_VAL_REC.SHIP_FROM_ADDRESS1 ) ;
1260: END IF;
1261:
1262: /* -----------------------------------------------------------------
1263: -- IF the local variable is not set above meaning that data at line
1285: -----------------------------------------------------
1286: */
1287: BEGIN
1288: IF l_debug_level > 0 THEN
1289: oe_debug_pub.add( 'SOLD_TO_SITE_USE_ID: ' || l_header_rec.sold_to_site_use_id) ;
1290: END IF;
1291:
1292: OE_ID_TO_VALUE.Customer_Location(p_sold_to_site_use_id => l_header_rec.sold_to_site_use_id,
1293: x_sold_to_location_address1 => l_header_val_rec.sold_to_location_address1,
1303: EXCEPTION
1304: WHEN OTHERS THEN
1305: NULL;
1306: IF l_debug_level > 0 THEN
1307: oe_debug_pub.add( 'UNABLE TO DERIVE SOLD_TO_LOCATION FOR HEADER' ) ;
1308: END IF;
1309: END;
1310:
1311:
1316: */
1317:
1318: BEGIN
1319: IF l_debug_level > 0 THEN
1320: oe_debug_pub.add( 'END CUSTOMER ID: ' || l_header_rec.end_customer_id) ;
1321: END IF;
1322:
1323: OE_ID_TO_VALUE.End_Customer( p_end_customer_id => l_header_rec.end_customer_id
1324: , x_end_customer_name => l_header_val_rec.end_customer_name
1328: EXCEPTION
1329: WHEN OTHERS THEN
1330: NULL;
1331: IF l_debug_level > 0 THEN
1332: oe_debug_pub.add( 'UNABLE TO DERIVE END CUSTOMER FOR HEADER' ) ;
1333: END IF;
1334: END;
1335:
1336:
1341: */
1342:
1343: BEGIN
1344: IF l_debug_level > 0 THEN
1345: oe_debug_pub.add( 'END CUSTOMER CONTACT ID: ' || l_header_rec.end_customer_contact_id) ;
1346: END IF;
1347:
1348: l_header_val_rec.end_customer_contact := OE_ID_TO_VALUE.End_Customer_Contact( p_end_customer_contact_id => l_header_rec.end_customer_contact_id);
1349:
1350: EXCEPTION
1351: WHEN OTHERS THEN
1352: NULL;
1353: IF l_debug_level > 0 THEN
1354: oe_debug_pub.add( 'UNABLE TO DERIVE END CUSTOMER CONTACT FOR HEADER' ) ;
1355: END IF;
1356: END;
1357:
1358:
1363: */
1364:
1365: BEGIN
1366: IF l_debug_level > 0 THEN
1367: oe_debug_pub.add( 'END CUSTOMER SITE USE ID: ' || l_header_rec.end_customer_site_use_id) ;
1368: END IF;
1369:
1370: OE_ID_TO_VALUE.End_Customer_Site_Use( p_end_customer_site_use_id => l_header_rec.end_customer_site_use_id
1371: , x_end_customer_address1 => l_header_val_rec.end_customer_site_address1
1382: EXCEPTION
1383: WHEN OTHERS THEN
1384: NULL;
1385: IF l_debug_level > 0 THEN
1386: oe_debug_pub.add( 'UNABLE TO DERIVE END CUSTOMER LOCATION FOR HEADER' ) ;
1387: END IF;
1388: END;
1389: --Added for bug 4034441 end
1390:
1405: AND b.site_use_code='BILL_TO';
1406: -- removed unnecessary validation of customer account, bug 3656640
1407:
1408: IF l_debug_level > 0 THEN
1409: oe_debug_pub.add( 'BILL TO ADDR ID = '||L_BILL_TO_ADDR_ID ) ;
1410: END IF;
1411: EXCEPTION
1412: WHEN OTHERS THEN
1413: NULL;
1411: EXCEPTION
1412: WHEN OTHERS THEN
1413: NULL;
1414: IF l_debug_level > 0 THEN
1415: oe_debug_pub.add( 'UNABLE TO DERIVE BILL_TO ADDR FOR HEAD' ) ;
1416: END IF;
1417: END;
1418:
1419: BEGIN
1426: AND b.site_use_code='SHIP_TO';
1427: -- removed unnecessary validation of customer account, bug 3656640
1428:
1429: IF l_debug_level > 0 THEN
1430: oe_debug_pub.add( 'SHIP TO ADDR ID = '||L_SHIP_TO_ADDR_ID ) ;
1431: END IF;
1432: EXCEPTION
1433: WHEN OTHERS THEN
1434: NULL;
1432: EXCEPTION
1433: WHEN OTHERS THEN
1434: NULL;
1435: IF l_debug_level > 0 THEN
1436: oe_debug_pub.add( 'UNABLE TO DERIVE SHIP_TO ADDR FOR HEAD' ) ;
1437: END IF;
1438: END;
1439:
1440: BEGIN
1445: AND b.site_use_id = l_header_rec.sold_to_org_id
1446: AND b.site_use_code='SOLD_TO'
1447: AND a.cust_account_id = l_header_rec.sold_to_org_id;
1448: IF l_debug_level > 0 THEN
1449: oe_debug_pub.add( 'SOLD TO ADDR ID = '||L_SOLD_TO_ADDR_ID ) ;
1450: END IF;
1451:
1452: EXCEPTION
1453: WHEN OTHERS THEN
1452: EXCEPTION
1453: WHEN OTHERS THEN
1454: NULL;
1455: IF l_debug_level > 0 THEN
1456: oe_debug_pub.add( 'UNABLE TO DERIVE SOLD_TO ADDR FOR HEAD' ) ;
1457: END IF;
1458: END;
1459:
1460: get_address(
1494: l_header_rec.bill_to_edi_location_code := l_bill_to_location_code;
1495: l_header_rec.ship_to_edi_location_code := l_ship_to_location_code;
1496: l_header_rec.sold_to_edi_location_code := l_sold_to_location_code;
1497: IF l_debug_level > 0 THEN
1498: oe_debug_pub.add( 'SOLD TO LOCATION CODE = '||L_SOLD_TO_ADDR_CODE ) ;
1499: END IF;
1500: IF l_debug_level > 0 THEN
1501: oe_debug_pub.add( 'SHIP TO EDI CODE = '||L_SHIP_TO_LOCATION_CODE ) ;
1502: END IF;
1497: IF l_debug_level > 0 THEN
1498: oe_debug_pub.add( 'SOLD TO LOCATION CODE = '||L_SOLD_TO_ADDR_CODE ) ;
1499: END IF;
1500: IF l_debug_level > 0 THEN
1501: oe_debug_pub.add( 'SHIP TO EDI CODE = '||L_SHIP_TO_LOCATION_CODE ) ;
1502: END IF;
1503: IF l_debug_level > 0 THEN
1504: oe_debug_pub.add( 'BILL TO EDI CODE = '||L_BILL_TO_LOCATION_CODE ) ;
1505: END IF;
1500: IF l_debug_level > 0 THEN
1501: oe_debug_pub.add( 'SHIP TO EDI CODE = '||L_SHIP_TO_LOCATION_CODE ) ;
1502: END IF;
1503: IF l_debug_level > 0 THEN
1504: oe_debug_pub.add( 'BILL TO EDI CODE = '||L_BILL_TO_LOCATION_CODE ) ;
1505: END IF;
1506: IF l_debug_level > 0 THEN
1507: oe_debug_pub.add( 'ADDR1 = '||L_HEADER_VAL_REC.INVOICE_TO_ADDRESS1 ) ;
1508: END IF;
1503: IF l_debug_level > 0 THEN
1504: oe_debug_pub.add( 'BILL TO EDI CODE = '||L_BILL_TO_LOCATION_CODE ) ;
1505: END IF;
1506: IF l_debug_level > 0 THEN
1507: oe_debug_pub.add( 'ADDR1 = '||L_HEADER_VAL_REC.INVOICE_TO_ADDRESS1 ) ;
1508: END IF;
1509:
1510: get_address(
1511: p_address_type_in => 'CUSTOMER',
1539: l_header_val_rec.ship_to_country := SUBSTR(l_country,0,60);
1540: l_header_val_rec.ship_to_county := SUBSTR(l_county,0,60);
1541: l_header_val_rec.ship_to_province := SUBSTR(l_province,0,240);
1542: IF l_debug_level > 0 THEN
1543: oe_debug_pub.add( 'ADDR1 = '||L_HEADER_VAL_REC.SHIP_TO_ADDRESS1 ) ;
1544: END IF;
1545:
1546: get_address(
1547: p_address_type_in => 'CUSTOMER',
1575: l_header_val_rec.sold_to_country := SUBSTR(l_country,0,60);
1576: l_header_val_rec.sold_to_county := SUBSTR(l_county,0,60);
1577: l_header_val_rec.sold_to_province := SUBSTR(l_province,0,240);
1578: IF l_debug_level > 0 THEN
1579: oe_debug_pub.add( 'ADDR1 = '||L_HEADER_VAL_REC.SOLD_TO_ADDRESS1 ) ;
1580: END IF;
1581: IF l_debug_level > 0 THEN
1582: oe_debug_pub.add( 'INV CONTACT ID = '||L_HEADER_REC.INVOICE_TO_CONTACT_ID ) ;
1583: END IF;
1578: IF l_debug_level > 0 THEN
1579: oe_debug_pub.add( 'ADDR1 = '||L_HEADER_VAL_REC.SOLD_TO_ADDRESS1 ) ;
1580: END IF;
1581: IF l_debug_level > 0 THEN
1582: oe_debug_pub.add( 'INV CONTACT ID = '||L_HEADER_REC.INVOICE_TO_CONTACT_ID ) ;
1583: END IF;
1584: IF l_debug_level > 0 THEN
1585: oe_debug_pub.add( 'SHIP TO CONTACT ID= '||L_HEADER_REC.SHIP_TO_CONTACT_ID ) ;
1586: END IF;
1581: IF l_debug_level > 0 THEN
1582: oe_debug_pub.add( 'INV CONTACT ID = '||L_HEADER_REC.INVOICE_TO_CONTACT_ID ) ;
1583: END IF;
1584: IF l_debug_level > 0 THEN
1585: oe_debug_pub.add( 'SHIP TO CONTACT ID= '||L_HEADER_REC.SHIP_TO_CONTACT_ID ) ;
1586: END IF;
1587: IF l_debug_level > 0 THEN
1588: oe_debug_pub.add( 'SOLD TO CONTACT ID = '||L_HEADER_REC.SOLD_TO_CONTACT_ID ) ;
1589: END IF;
1584: IF l_debug_level > 0 THEN
1585: oe_debug_pub.add( 'SHIP TO CONTACT ID= '||L_HEADER_REC.SHIP_TO_CONTACT_ID ) ;
1586: END IF;
1587: IF l_debug_level > 0 THEN
1588: oe_debug_pub.add( 'SOLD TO CONTACT ID = '||L_HEADER_REC.SOLD_TO_CONTACT_ID ) ;
1589: END IF;
1590:
1591: BEGIN
1592: SELECT a.person_last_name, a.person_first_name
1599: AND b.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
1600: AND b.OBJECT_TABLE_NAME = 'HZ_PARTIES'
1601: AND b.DIRECTIONAL_FLAG = 'F';
1602: IF l_debug_level > 0 THEN
1603: oe_debug_pub.add( 'SOLD TO CONTACT = '||L_HEADER_VAL_REC.SOLD_TO_CONTACT_LAST_NAME ) ;
1604: END IF;
1605: EXCEPTION
1606: WHEN OTHERS THEN
1607: NULL;
1605: EXCEPTION
1606: WHEN OTHERS THEN
1607: NULL;
1608: IF l_debug_level > 0 THEN
1609: oe_debug_pub.add( 'UNABLE TO DERIVE SOLD_TO_CONTACT LAST NAME FOR HEAD' ) ;
1610: END IF;
1611: END;
1612:
1613: BEGIN
1622: AND b.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
1623: AND b.OBJECT_TABLE_NAME = 'HZ_PARTIES'
1624: AND b.DIRECTIONAL_FLAG = 'F';
1625: IF l_debug_level > 0 THEN
1626: oe_debug_pub.add( 'SHIP TO CONTACT = '||L_HEADER_VAL_REC.SHIP_TO_CONTACT_LAST_NAME ) ;
1627: END IF;
1628: EXCEPTION
1629: WHEN OTHERS THEN
1630: NULL;
1628: EXCEPTION
1629: WHEN OTHERS THEN
1630: NULL;
1631: IF l_debug_level > 0 THEN
1632: oe_debug_pub.add( 'UNABLE TO DERIVE SHIP_TO_CONTACT LAST NAME FOR HEAD' ) ;
1633: END IF;
1634: END;
1635: l_header_val_rec.order_type := OE_Id_To_Value.Order_Type
1636: ( p_order_type_id => l_header_rec.order_type_id );
1635: l_header_val_rec.order_type := OE_Id_To_Value.Order_Type
1636: ( p_order_type_id => l_header_rec.order_type_id );
1637:
1638: IF l_debug_level > 0 THEN
1639: oe_debug_pub.add( 'L_HEADER_REC: '||L_HEADER_VAL_REC.ORDER_TYPE ) ;
1640: END IF;
1641: l_header_val_rec.payment_term := OE_Id_To_Value.Payment_Term
1642: ( p_payment_term_id => l_header_rec.payment_term_id );
1643: IF l_debug_level > 0 THEN
1640: END IF;
1641: l_header_val_rec.payment_term := OE_Id_To_Value.Payment_Term
1642: ( p_payment_term_id => l_header_rec.payment_term_id );
1643: IF l_debug_level > 0 THEN
1644: oe_debug_pub.add( 'L_HEADER_REC: PAYMENT TERM :'||L_HEADER_VAL_REC.PAYMENT_TERM ) ;
1645: END IF;
1646:
1647: l_header_val_rec.price_list := OE_Id_To_Value.Price_List
1648: ( p_price_list_id => l_header_rec.price_list_id );
1646:
1647: l_header_val_rec.price_list := OE_Id_To_Value.Price_List
1648: ( p_price_list_id => l_header_rec.price_list_id );
1649: IF l_debug_level > 0 THEN
1650: oe_debug_pub.add( 'L_HEADER_REC: PRICE LIST '||L_HEADER_VAL_REC.PRICE_LIST ) ;
1651: END IF;
1652: IF l_debug_level > 0 THEN
1653: oe_debug_pub.add( 'L_HEADER_REC: ORDER_CATEGORY_CODE '||L_HEADER_REC.ORDER_CATEGORY_CODE ) ;
1654: END IF;
1649: IF l_debug_level > 0 THEN
1650: oe_debug_pub.add( 'L_HEADER_REC: PRICE LIST '||L_HEADER_VAL_REC.PRICE_LIST ) ;
1651: END IF;
1652: IF l_debug_level > 0 THEN
1653: oe_debug_pub.add( 'L_HEADER_REC: ORDER_CATEGORY_CODE '||L_HEADER_REC.ORDER_CATEGORY_CODE ) ;
1654: END IF;
1655:
1656: l_header_val_rec.salesrep := OE_Id_To_Value.salesrep
1657: ( p_salesrep_id => l_header_rec.salesrep_id
1731: x_invoice_to_customer_name => l_header_val_rec.invoice_to_customer_name);
1732:
1733:
1734: IF l_debug_level > 0 THEN
1735: oe_debug_pub.add( 'L_HEADER_REC: SALES REP '||L_HEADER_VAL_REC.SALESREP ) ;
1736: END IF;
1737:
1738: BEGIN
1739: SELECT a.person_last_name, a.person_first_name
1746: AND b.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
1747: AND b.OBJECT_TABLE_NAME = 'HZ_PARTIES'
1748: AND b.DIRECTIONAL_FLAG = 'F';
1749: IF l_debug_level > 0 THEN
1750: oe_debug_pub.add( 'INVOICE TO CONTACT = '||L_HEADER_VAL_REC.INVOICE_TO_CONTACT_LAST_NAME ) ;
1751: END IF;
1752:
1753:
1754: IF l_debug_level > 0 THEN
1751: END IF;
1752:
1753:
1754: IF l_debug_level > 0 THEN
1755: oe_debug_pub.add( 'L_HEADER_REC: PAYMENT TERM :'||L_HEADER_VAL_REC.PAYMENT_TERM ) ;
1756: END IF;
1757:
1758:
1759: EXCEPTION
1759: EXCEPTION
1760: WHEN OTHERS THEN
1761: NULL;
1762: IF l_debug_level > 0 THEN
1763: oe_debug_pub.add( 'UNABLE TO DERIVE LAST/FIRST NAME FOR HEADER' ) ;
1764: END IF;
1765: END;
1766:
1767: /* -------------------------------------------------------------
1770: the l_ack_req_flag value.
1771: -------------------------------------------------------------
1772: */
1773: IF l_debug_level > 0 THEN
1774: oe_debug_pub.add( 'L_ACK_REQ_FLAG = '||L_ACK_REQ_FLAG , 3 ) ;
1775: END IF;
1776:
1777: IF l_ack_req_flag IN ('B', 'H')
1778: OR l_header_rec.first_ack_code is null THEN
1776:
1777: IF l_ack_req_flag IN ('B', 'H')
1778: OR l_header_rec.first_ack_code is null THEN
1779: IF l_debug_level > 0 THEN
1780: oe_debug_pub.add( 'BEFORE INSERTING HEADER ACKNOWLEDGMENT RECORD' , 3 ) ;
1781: END IF;
1782: IF l_debug_level > 0 THEN
1783: oe_debug_pub.add( 'EDI LOCATION CODE'||L_HEADER_REC.SHIP_FROM_EDI_LOCATION_CODE ) ;
1784: END IF;
1779: IF l_debug_level > 0 THEN
1780: oe_debug_pub.add( 'BEFORE INSERTING HEADER ACKNOWLEDGMENT RECORD' , 3 ) ;
1781: END IF;
1782: IF l_debug_level > 0 THEN
1783: oe_debug_pub.add( 'EDI LOCATION CODE'||L_HEADER_REC.SHIP_FROM_EDI_LOCATION_CODE ) ;
1784: END IF;
1785:
1786: l_rejected_lines := 'Y';
1787: /* Bug 2416561 : Calling the Convert_Miss_To_Null for the id records */
1807: -- Insert Line Information
1808:
1809: -- Check if line acknowledgment need to be sent
1810: IF l_debug_level > 0 THEN
1811: oe_debug_pub.add( 'CHECK IF LINE ACKNOWLEDGMENT NEED TO BE SENT' ) ;
1812: END IF;
1813: IF l_debug_level > 0 THEN
1814: oe_debug_pub.add( 'L_ACK_REQ_FLAG'|| L_ACK_REQ_FLAG ) ;
1815: END IF;
1810: IF l_debug_level > 0 THEN
1811: oe_debug_pub.add( 'CHECK IF LINE ACKNOWLEDGMENT NEED TO BE SENT' ) ;
1812: END IF;
1813: IF l_debug_level > 0 THEN
1814: oe_debug_pub.add( 'L_ACK_REQ_FLAG'|| L_ACK_REQ_FLAG ) ;
1815: END IF;
1816: IF l_debug_level > 0 THEN
1817: oe_debug_pub.add( 'L_HEADER_REC.FIRST_ACK_CODE :'||L_HEADER_REC.FIRST_ACK_CODE ) ;
1818: END IF;
1813: IF l_debug_level > 0 THEN
1814: oe_debug_pub.add( 'L_ACK_REQ_FLAG'|| L_ACK_REQ_FLAG ) ;
1815: END IF;
1816: IF l_debug_level > 0 THEN
1817: oe_debug_pub.add( 'L_HEADER_REC.FIRST_ACK_CODE :'||L_HEADER_REC.FIRST_ACK_CODE ) ;
1818: END IF;
1819: IF l_ack_req_flag = 'B'
1820: OR l_header_rec.first_ack_code is null THEN
1821: IF l_debug_level > 0 THEN
1818: END IF;
1819: IF l_ack_req_flag = 'B'
1820: OR l_header_rec.first_ack_code is null THEN
1821: IF l_debug_level > 0 THEN
1822: oe_debug_pub.add( 'BEFORE INSERTING LINE ACKNOWLEDGMENT RECORD' , 3 ) ;
1823: END IF;
1824: OE_Line_Ack_Util.Insert_Row
1825: (p_line_tbl => l_line_tbl
1826: , p_line_val_tbl => l_line_val_tbl
1839:
1840: -- Insert Lots Information
1841:
1842: IF l_debug_level > 0 THEN
1843: oe_debug_pub.add( 'BEFORE INSERTING LINE LOTSERIAL ACKNOWLEDGMENT RECORD' , 3 ) ;
1844: END IF;
1845:
1846: OE_Lots_Ack_Util.Insert_Row
1847: ( p_lot_serial_tbl => l_lot_serial_tbl
1864: -- Call Get_Reject_Line to get rejected lines and Lotserials
1865: -- if l_rejected_line = 'Y'
1866:
1867: IF l_debug_level > 0 THEN
1868: oe_debug_pub.add('before getting rejected lines' , 3 ) ;
1869: oe_debug_pub.add('Order_source_id ' || l_header_rec.order_source_id);
1870: oe_debug_pub.add('Request_id ' || l_header_rec.request_id);
1871: oe_debug_pub.add('Orig_Sys_Doc '|| l_header_rec.orig_sys_document_ref);
1872: oe_debug_pub.add('Change_Seq ' || l_header_rec.change_sequence);
1865: -- if l_rejected_line = 'Y'
1866:
1867: IF l_debug_level > 0 THEN
1868: oe_debug_pub.add('before getting rejected lines' , 3 ) ;
1869: oe_debug_pub.add('Order_source_id ' || l_header_rec.order_source_id);
1870: oe_debug_pub.add('Request_id ' || l_header_rec.request_id);
1871: oe_debug_pub.add('Orig_Sys_Doc '|| l_header_rec.orig_sys_document_ref);
1872: oe_debug_pub.add('Change_Seq ' || l_header_rec.change_sequence);
1873: END IF;
1866:
1867: IF l_debug_level > 0 THEN
1868: oe_debug_pub.add('before getting rejected lines' , 3 ) ;
1869: oe_debug_pub.add('Order_source_id ' || l_header_rec.order_source_id);
1870: oe_debug_pub.add('Request_id ' || l_header_rec.request_id);
1871: oe_debug_pub.add('Orig_Sys_Doc '|| l_header_rec.orig_sys_document_ref);
1872: oe_debug_pub.add('Change_Seq ' || l_header_rec.change_sequence);
1873: END IF;
1874:
1867: IF l_debug_level > 0 THEN
1868: oe_debug_pub.add('before getting rejected lines' , 3 ) ;
1869: oe_debug_pub.add('Order_source_id ' || l_header_rec.order_source_id);
1870: oe_debug_pub.add('Request_id ' || l_header_rec.request_id);
1871: oe_debug_pub.add('Orig_Sys_Doc '|| l_header_rec.orig_sys_document_ref);
1872: oe_debug_pub.add('Change_Seq ' || l_header_rec.change_sequence);
1873: END IF;
1874:
1875: OE_Rejected_Lines_Ack.Get_Rejected_Lines
1868: oe_debug_pub.add('before getting rejected lines' , 3 ) ;
1869: oe_debug_pub.add('Order_source_id ' || l_header_rec.order_source_id);
1870: oe_debug_pub.add('Request_id ' || l_header_rec.request_id);
1871: oe_debug_pub.add('Orig_Sys_Doc '|| l_header_rec.orig_sys_document_ref);
1872: oe_debug_pub.add('Change_Seq ' || l_header_rec.change_sequence);
1873: END IF;
1874:
1875: OE_Rejected_Lines_Ack.Get_Rejected_Lines
1876: ( p_request_id => l_header_rec.request_id
1896: -- Insert rejected lines and lotserials only if got any rejected records
1897:
1898: IF l_reject_line_tbl.COUNT > 0 THEN
1899: IF l_debug_level > 0 THEN
1900: oe_debug_pub.add( 'BEFORE INSERTING REJECTED LINES' , 3 ) ;
1901: END IF;
1902:
1903: OE_Line_Ack_Util.Insert_Row
1904: (p_line_tbl => l_reject_line_tbl
1917: END IF;
1918:
1919: IF l_reject_lot_serial_tbl.COUNT > 0 THEN
1920: IF l_debug_level > 0 THEN
1921: oe_debug_pub.add( 'BEFORE INSERTING REJECTED LINE LOTSERIALS' , 3 ) ;
1922: END IF;
1923:
1924: OE_Lots_Ack_Util.Insert_Row
1925: (p_lot_serial_tbl => l_reject_lot_serial_tbl
1949: EXCEPTION
1950:
1951: WHEN FND_API.G_EXC_ERROR THEN
1952: IF l_debug_level > 0 THEN
1953: oe_debug_pub.add( 'ENCOUNTERED ERROR EXCEPTION' , 2 ) ;
1954: END IF;
1955: x_return_status := FND_API.G_RET_STS_ERROR;
1956:
1957: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1955: x_return_status := FND_API.G_RET_STS_ERROR;
1956:
1957: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1958: IF l_debug_level > 0 THEN
1959: oe_debug_pub.add( 'ENCOUNTERED UNEXPECTED ERROR EXCEPTION'||SQLERRM , 1 ) ;
1960: END IF;
1961: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1962:
1963: WHEN OTHERS THEN
1961: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1962:
1963: WHEN OTHERS THEN
1964: IF l_debug_level > 0 THEN
1965: oe_debug_pub.add( 'ENCOUNTERED OTHERS ERROR EXCEPTION IN OE_ACKNOWLEDGMENT_PVT.PROCESS_ACKNOWLEDGMENT: '||SQLERRM , 1 ) ;
1966: END IF;
1967: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1968:
1969: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1984: x_return_status Out NOCOPY /* file.sql.39 change */ VARCHAR2
1985: )
1986: Is
1987:
1988: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1989: l_status Varchar2(1);
1990: l_industry Varchar2(1);
1991: l_o_schema Varchar2(30);
1992: l_booked_flag Varchar2(1);
2025: l_sales_order_id Number;
2026: Begin
2027:
2028: If l_debug_level > 0 Then
2029: Oe_Debug_Pub.Add('Entering New Process Acknowledgment');
2030: End If;
2031:
2032: -- Check if EC is installed
2033: If Oe_Globals.G_EC_INSTALLED Is Null Then
2035: End If;
2036: If Oe_Globals.G_EC_INSTALLED <> 'Y' Then
2037: x_return_status := FND_API.G_RET_STS_SUCCESS;
2038: If l_debug_level > 0 Then
2039: oe_debug_pub.add('EC not installed');
2040: End If;
2041: -- Raise event to log message
2042: Return;
2043: End If;
2062: Exception
2063: When Others Then
2064: x_return_status := FND_API.G_RET_STS_SUCCESS;
2065: If l_debug_level > 0 Then
2066: oe_debug_pub.add('Exception in getting booked flag');
2067: End If;
2068: Return;
2069: End;
2070: Elsif l_line_tbl.count > 0 And
2078: -- that means that there were no header level changes
2079: -- but we still need the header record to perform tp check + send ack,
2080: -- so get it from the cache if possible
2081: IF l_debug_level > 0 THEN
2082: oe_debug_pub.add( 'Header Id in cache is : '||oe_order_cache.g_header_rec.header_id);
2083: END IF;
2084: IF OE_ORDER_CACHE.g_header_rec.header_id <> FND_API.G_MISS_NUM AND
2085: nvl(OE_ORDER_CACHE.g_header_rec.header_id,0) = l_line_tbl(l_line_index).header_id THEN
2086: l_header_rec := OE_ORDER_CACHE.g_header_rec;
2084: IF OE_ORDER_CACHE.g_header_rec.header_id <> FND_API.G_MISS_NUM AND
2085: nvl(OE_ORDER_CACHE.g_header_rec.header_id,0) = l_line_tbl(l_line_index).header_id THEN
2086: l_header_rec := OE_ORDER_CACHE.g_header_rec;
2087: IF l_debug_level > 0 THEN
2088: oe_debug_pub.add('Assigned header record from cache with booked flag '|| l_header_rec.booked_flag);
2089: END IF;
2090: ELSE
2091: -- end bug 4048709
2092: OE_Header_Util.Query_Row
2098: Exception
2099: When Others Then
2100: x_return_status := FND_API.G_RET_STS_SUCCESS;
2101: If l_debug_level > 0 Then
2102: oe_debug_pub.add('Exception in l_line_tbl.count > 0');
2103: End If;
2104: Return;
2105: End;
2106: Else
2106: Else
2107: -- Nothing to Acknowledge
2108: x_return_status := FND_API.G_RET_STS_SUCCESS;
2109: If l_debug_level > 0 Then
2110: oe_debug_pub.add('Exception else, Nothing to Acknowledge');
2111: End If;
2112: Return;
2113: End If;
2114:
2115: If G_CURR_SOLD_TO_ORG_ID = l_header_rec.sold_to_org_id and
2116: (G_TP_RET = FALSE Or G_PRIMARY_SETUP = FALSE) Then
2117: x_return_status := FND_API.G_RET_STS_SUCCESS;
2118: If l_debug_level > 0 Then
2119: oe_debug_pub.add('Transaction Not Enabled for Trading Partner');
2120: End If;
2121: -- Raise event to log message
2122: /*
2123: fnd_message.set_name('ONT', 'OE_OI_OUTBOUND_SETUP_ERR');
2152:
2153: l_tp_ret := FALSE;
2154:
2155: Begin
2156: Oe_Debug_Pub.Add('before select of sold to org id');
2157: Select /*MOAC_SQL_CHANGES*/ b.site_use_id, a.cust_acct_site_id
2158: Into l_site_use_id, l_address_id
2159: From hz_cust_site_uses b, hz_cust_acct_sites_all a
2160: Where a.cust_acct_site_id = b.cust_acct_site_id
2175: G_CURR_ADDRESS_ID := NULL;
2176: G_PRIMARY_SETUP := FALSE;
2177:
2178: If l_debug_level > 0 Then
2179: oe_debug_pub.add('No Primary Sold To set');
2180: End If;
2181: -- Raise event to log message
2182: /*
2183: fnd_message.set_name('ONT', 'OE_OI_TP_NOT_FOUND');
2205:
2206: When Others Then
2207: x_return_status := FND_API.G_RET_STS_SUCCESS;
2208: If l_debug_level > 0 Then
2209: oe_debug_pub.add('Not able to get primary sold to exception');
2210: End If;
2211: Return;
2212: End;
2213:
2228: IF l_tp_ret = FALSE Then
2229: G_TP_RET := FALSE;
2230: x_return_status := FND_API.G_RET_STS_SUCCESS;
2231: If l_debug_level > 0 Then
2232: oe_debug_pub.add('Transaction not enabled');
2233: End If;
2234: -- Raise event to log message
2235: Return;
2236: End If;
2249:
2250: -- bug 3439319 added this block instead of NULLing out the resv_qty
2251: Begin
2252: IF l_debug_level > 0 THEN
2253: oe_debug_pub.add('header_id => ' || l_line_tbl(I).header_id);
2254: oe_debug_pub.add('line_id => ' || l_line_tbl(I).line_id);
2255: oe_debug_pub.add('org_id => ' || l_line_tbl(I).org_id);
2256: END IF;
2257:
2250: -- bug 3439319 added this block instead of NULLing out the resv_qty
2251: Begin
2252: IF l_debug_level > 0 THEN
2253: oe_debug_pub.add('header_id => ' || l_line_tbl(I).header_id);
2254: oe_debug_pub.add('line_id => ' || l_line_tbl(I).line_id);
2255: oe_debug_pub.add('org_id => ' || l_line_tbl(I).org_id);
2256: END IF;
2257:
2258: l_sales_order_id := OE_SCHEDULE_UTIL.Get_mtl_sales_order_id(l_line_tbl(I).header_id);
2251: Begin
2252: IF l_debug_level > 0 THEN
2253: oe_debug_pub.add('header_id => ' || l_line_tbl(I).header_id);
2254: oe_debug_pub.add('line_id => ' || l_line_tbl(I).line_id);
2255: oe_debug_pub.add('org_id => ' || l_line_tbl(I).org_id);
2256: END IF;
2257:
2258: l_sales_order_id := OE_SCHEDULE_UTIL.Get_mtl_sales_order_id(l_line_tbl(I).header_id);
2259:
2257:
2258: l_sales_order_id := OE_SCHEDULE_UTIL.Get_mtl_sales_order_id(l_line_tbl(I).header_id);
2259:
2260: IF l_debug_level > 0 THEN
2261: oe_debug_pub.add('l_sales_order_id => ' || l_sales_order_id);
2262: END IF;
2263:
2264: l_line_tbl(I).reserved_quantity := oe_line_util.Get_Reserved_Quantity (
2265: p_header_id => l_sales_order_id,
2265: p_header_id => l_sales_order_id,
2266: p_line_id => p_line_tbl(I).line_id,
2267: p_org_id => p_line_tbl(I).org_id);
2268: IF l_debug_level > 0 THEN
2269: oe_debug_pub.add('Reserved_Qty => ' || l_line_tbl(I).reserved_quantity);
2270: END IF;
2271:
2272: Exception
2273: When Others Then
2311:
2312: if (l_line_tbl(I).operation is NULL OR
2313: l_line_tbl(I).operation = FND_API.G_MISS_CHAR ) THEN
2314: l_line_tbl(I).operation := NULL; -- for bug 4764583/5178052
2315: oe_debug_pub.add(' Setting Operation G_MISS_CHAR to NULL');
2316: end if;
2317:
2318: i := l_line_tbl.next(i);
2319:
2377:
2378: exception
2379: when others then
2380: If l_debug_level > 0 Then
2381: oe_debug_pub.add('OTHERS EXCEPTION WHEN DERIVING SOLD TO ORG');
2382: End If;
2383: end;
2384:
2385: OE_Rejected_Lines_Ack.Get_Rejected_Lines
2446:
2447: Exception
2448: When Others Then
2449: If l_debug_level >0 Then
2450: Oe_Debug_Pub.Add('When Others in new Process_Acknowledgment');
2451: Oe_Debug_Pub.Add('Error: '||sqlerrm);
2452: End If;
2453:
2454: End Process_Acknowledgment;
2447: Exception
2448: When Others Then
2449: If l_debug_level >0 Then
2450: Oe_Debug_Pub.Add('When Others in new Process_Acknowledgment');
2451: Oe_Debug_Pub.Add('Error: '||sqlerrm);
2452: End If;
2453:
2454: End Process_Acknowledgment;
2455: