[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: oe_debug_pub.add( 'ENTERING OE_ACKNOWLEDGMENT_PVT.PROCESS_ACKNOWLEDGMENT', 0.5); -- debug level changed to 0.5 for bug 13435459
434: END IF;
435:
436: /***
429: BEGIN
430:
431: IF l_debug_level > 0 THEN
432: oe_debug_pub.add( 'ENTERING OE_ACKNOWLEDGMENT_PVT.PROCESS_ACKNOWLEDGMENT' , 1 ) ;
433: oe_debug_pub.add( 'ENTERING OE_ACKNOWLEDGMENT_PVT.PROCESS_ACKNOWLEDGMENT', 0.5); -- debug level changed to 0.5 for bug 13435459
434: END IF;
435:
436: /***
437: -- Bug fix 1633094 start
434: END IF;
435:
436: /***
437: -- Bug fix 1633094 start
438: oe_debug_pub.add('Before Calling FND api to check the EC inst',1);
439: IF fnd_installation.get_app_info('EC', l_status, l_industry, l_o_schema)
440: THEN
441: IF nvl(l_status,'N') = 'N' THEN
442: oe_debug_pub.add('EC not installed - No ACK required',1);
438: oe_debug_pub.add('Before Calling FND api to check the EC inst',1);
439: IF fnd_installation.get_app_info('EC', l_status, l_industry, l_o_schema)
440: THEN
441: IF nvl(l_status,'N') = 'N' THEN
442: oe_debug_pub.add('EC not installed - No ACK required',1);
443: oe_debug_pub.add('Exiting OE_Acknowledgment_Pvt.Process_acknowledgment',1);
444: x_return_status := FND_API.G_RET_STS_SUCCESS;
445: RETURN;
446: END IF; -- l_status is N
439: IF fnd_installation.get_app_info('EC', l_status, l_industry, l_o_schema)
440: THEN
441: IF nvl(l_status,'N') = 'N' THEN
442: oe_debug_pub.add('EC not installed - No ACK required',1);
443: oe_debug_pub.add('Exiting OE_Acknowledgment_Pvt.Process_acknowledgment',1);
444: x_return_status := FND_API.G_RET_STS_SUCCESS;
445: RETURN;
446: END IF; -- l_status is N
447: ELSE
444: x_return_status := FND_API.G_RET_STS_SUCCESS;
445: RETURN;
446: END IF; -- l_status is N
447: ELSE
448: oe_debug_pub.add('Call to fnd_installation.get_app_info is FALSE',1);
449: oe_debug_pub.add('Exiting OE_Acknowledgment_Pvt.Process_acknowledgment',1);
450: x_return_status := FND_API.G_RET_STS_SUCCESS;
451: RETURN;
452: END IF; -- call to fnd_installation
445: RETURN;
446: END IF; -- l_status is N
447: ELSE
448: oe_debug_pub.add('Call to fnd_installation.get_app_info is FALSE',1);
449: oe_debug_pub.add('Exiting OE_Acknowledgment_Pvt.Process_acknowledgment',1);
450: x_return_status := FND_API.G_RET_STS_SUCCESS;
451: RETURN;
452: END IF; -- call to fnd_installation
453: -- Bug fix 1633094 end
460: END IF;
461:
462: IF OE_GLOBALS.G_EC_INSTALLED <> 'Y' THEN
463: IF l_debug_level > 0 THEN
464: oe_debug_pub.add( 'EC NOT INSTALLED - NO ACK REQUIRED' , 1 ) ;
465: END IF;
466: IF l_debug_level > 0 THEN
467: oe_debug_pub.add( 'EXITING OE_ACKNOWLEDGMENT_PVT.PROCESS_ACKNOWLEDGMENT' , 1 ) ;
468: END IF;
463: IF l_debug_level > 0 THEN
464: oe_debug_pub.add( 'EC NOT INSTALLED - NO ACK REQUIRED' , 1 ) ;
465: END IF;
466: IF l_debug_level > 0 THEN
467: oe_debug_pub.add( 'EXITING OE_ACKNOWLEDGMENT_PVT.PROCESS_ACKNOWLEDGMENT' , 1 ) ;
468: END IF;
469: RETURN;
470: END IF;
471:
469: RETURN;
470: END IF;
471:
472: IF l_debug_level > 0 THEN
473: oe_debug_pub.add( 'BEFORE CHECKING IF HEADER_ID EXISTS FOR HEADER REC' , 3 ) ;
474: END IF;
475: IF l_debug_level > 0 THEN
476: oe_debug_pub.add( 'HEADER_ID_ACK = '||L_HEADER_REC.HEADER_ID ) ;
477: END IF;
472: IF l_debug_level > 0 THEN
473: oe_debug_pub.add( 'BEFORE CHECKING IF HEADER_ID EXISTS FOR HEADER REC' , 3 ) ;
474: END IF;
475: IF l_debug_level > 0 THEN
476: oe_debug_pub.add( 'HEADER_ID_ACK = '||L_HEADER_REC.HEADER_ID ) ;
477: END IF;
478:
479: IF (l_header_rec.header_id <> FND_API.G_MISS_NUM AND
480: nvl(l_header_rec.header_id,0) <> 0)
479: IF (l_header_rec.header_id <> FND_API.G_MISS_NUM AND
480: nvl(l_header_rec.header_id,0) <> 0)
481: THEN
482: IF l_debug_level > 0 THEN
483: oe_debug_pub.add( 'BEFORE GETTING BOOKED_FLAG' , 3 ) ;
484: END IF;
485:
486: -- l_header_rec := OE_Header_Util.Query_Row
487: -- (p_header_id => l_header_rec.header_id);
486: -- l_header_rec := OE_Header_Util.Query_Row
487: -- (p_header_id => l_header_rec.header_id);
488:
489: IF l_debug_level > 0 THEN
490: oe_debug_pub.add( 'l_header_rec: price list '||l_header_val_rec.price_list ) ;
491: oe_debug_pub.add( 'L_header_rec: order_category_code '||l_header_rec.order_category_code ) ;
492: oe_debug_pub.add( 'l_header_rec: first_ack date '||l_header_rec.first_ack_date ) ;
493: oe_debug_pub.add( 'l_header_rec: first_ack code '||l_header_rec.first_ack_code ) ;
494: oe_debug_pub.add( 'l_header_rec: shipping instructions' ||l_header_rec.shipping_instructions ) ;
487: -- (p_header_id => l_header_rec.header_id);
488:
489: IF l_debug_level > 0 THEN
490: oe_debug_pub.add( 'l_header_rec: price list '||l_header_val_rec.price_list ) ;
491: oe_debug_pub.add( 'L_header_rec: order_category_code '||l_header_rec.order_category_code ) ;
492: oe_debug_pub.add( 'l_header_rec: first_ack date '||l_header_rec.first_ack_date ) ;
493: oe_debug_pub.add( 'l_header_rec: first_ack code '||l_header_rec.first_ack_code ) ;
494: oe_debug_pub.add( 'l_header_rec: shipping instructions' ||l_header_rec.shipping_instructions ) ;
495: oe_debug_pub.add( 'l_header_rec: packing instructions' ||l_header_rec.packing_instructions ) ;
488:
489: IF l_debug_level > 0 THEN
490: oe_debug_pub.add( 'l_header_rec: price list '||l_header_val_rec.price_list ) ;
491: oe_debug_pub.add( 'L_header_rec: order_category_code '||l_header_rec.order_category_code ) ;
492: oe_debug_pub.add( 'l_header_rec: first_ack date '||l_header_rec.first_ack_date ) ;
493: oe_debug_pub.add( 'l_header_rec: first_ack code '||l_header_rec.first_ack_code ) ;
494: oe_debug_pub.add( 'l_header_rec: shipping instructions' ||l_header_rec.shipping_instructions ) ;
495: oe_debug_pub.add( 'l_header_rec: packing instructions' ||l_header_rec.packing_instructions ) ;
496: END IF;
489: IF l_debug_level > 0 THEN
490: oe_debug_pub.add( 'l_header_rec: price list '||l_header_val_rec.price_list ) ;
491: oe_debug_pub.add( 'L_header_rec: order_category_code '||l_header_rec.order_category_code ) ;
492: oe_debug_pub.add( 'l_header_rec: first_ack date '||l_header_rec.first_ack_date ) ;
493: oe_debug_pub.add( 'l_header_rec: first_ack code '||l_header_rec.first_ack_code ) ;
494: oe_debug_pub.add( 'l_header_rec: shipping instructions' ||l_header_rec.shipping_instructions ) ;
495: oe_debug_pub.add( 'l_header_rec: packing instructions' ||l_header_rec.packing_instructions ) ;
496: END IF;
497: BEGIN
490: oe_debug_pub.add( 'l_header_rec: price list '||l_header_val_rec.price_list ) ;
491: oe_debug_pub.add( 'L_header_rec: order_category_code '||l_header_rec.order_category_code ) ;
492: oe_debug_pub.add( 'l_header_rec: first_ack date '||l_header_rec.first_ack_date ) ;
493: oe_debug_pub.add( 'l_header_rec: first_ack code '||l_header_rec.first_ack_code ) ;
494: oe_debug_pub.add( 'l_header_rec: shipping instructions' ||l_header_rec.shipping_instructions ) ;
495: oe_debug_pub.add( 'l_header_rec: packing instructions' ||l_header_rec.packing_instructions ) ;
496: END IF;
497: BEGIN
498: SELECT booked_flag INTO l_booked_flag
491: oe_debug_pub.add( 'L_header_rec: order_category_code '||l_header_rec.order_category_code ) ;
492: oe_debug_pub.add( 'l_header_rec: first_ack date '||l_header_rec.first_ack_date ) ;
493: oe_debug_pub.add( 'l_header_rec: first_ack code '||l_header_rec.first_ack_code ) ;
494: oe_debug_pub.add( 'l_header_rec: shipping instructions' ||l_header_rec.shipping_instructions ) ;
495: oe_debug_pub.add( 'l_header_rec: packing instructions' ||l_header_rec.packing_instructions ) ;
496: END IF;
497: BEGIN
498: SELECT booked_flag INTO l_booked_flag
499: FROM oe_order_headers
501:
502: IF l_booked_flag = 'Y' THEN
503: l_header_rec.booked_flag := l_booked_flag;
504: IF l_debug_level > 0 THEN
505: oe_debug_pub.add( 'ORDER IS BOOKED 1' ) ;
506: END IF;
507: END IF;
508:
509: EXCEPTION
509: EXCEPTION
510: WHEN OTHERS THEN
511: x_return_status := FND_API.G_RET_STS_SUCCESS;
512: IF l_debug_level > 0 THEN
513: oe_debug_pub.add( 'EXCEPTION IN GETTING BOOKED_FLAG' , 3 ) ;
514: END IF;
515: RETURN;
516: END;
517:
522: nvl(l_line_tbl(l_line_tbl.first).header_id,0) <> 0)
523: THEN
524: Begin
525: IF l_debug_level > 0 THEN
526: oe_debug_pub.add( 'BEFORE QUERYING THE HEADER REC' ) ;
527: END IF;
528: -- l_header_rec := OE_Header_Util.Query_Row
529: -- (p_header_id => l_line_tbl(1).header_id);
530: -- This is to get the index of the line table, as
535: -- that means that there were no header level changes
536: -- but we still need the header record to perform tp check + send ack,
537: -- so get it from the cache if possible
538: IF l_debug_level > 0 THEN
539: oe_debug_pub.add( 'Header Id in cache is : '||oe_order_cache.g_header_rec.header_id);
540: END IF;
541: IF OE_ORDER_CACHE.g_header_rec.header_id <> FND_API.G_MISS_NUM AND
542: nvl(OE_ORDER_CACHE.g_header_rec.header_id,0) = l_line_tbl(l_line_index).header_id THEN
543: l_header_rec := OE_ORDER_CACHE.g_header_rec;
541: IF OE_ORDER_CACHE.g_header_rec.header_id <> FND_API.G_MISS_NUM AND
542: nvl(OE_ORDER_CACHE.g_header_rec.header_id,0) = l_line_tbl(l_line_index).header_id THEN
543: l_header_rec := OE_ORDER_CACHE.g_header_rec;
544: IF l_debug_level > 0 THEN
545: oe_debug_pub.add('Assigned header record from cache with booked flag '|| l_header_rec.booked_flag);
546: END IF;
547: ELSE
548: -- end bug 4048709
549: OE_Header_Util.Query_Row
556: Exception
557: When Others Then
558: x_return_status := FND_API.G_RET_STS_SUCCESS;
559: IF l_debug_level > 0 THEN
560: oe_debug_pub.add( 'NOTHING TO ACKNOWLEDGE - ELSIF' , 3 ) ;
561: END IF;
562: RETURN;
563: End;
564: ELSE
563: End;
564: ELSE
565: x_return_status := FND_API.G_RET_STS_SUCCESS;
566: IF l_debug_level > 0 THEN
567: oe_debug_pub.add( 'NOTHING TO ACKNOWLEDGE - ELSE' , 3 ) ;
568: END IF;
569: RETURN;
570: END IF;
571:
577: -- have enabled the acknowledgment transactions.
578: -- -------------------------------------------------------------
579: */
580: IF l_debug_level > 0 THEN
581: oe_debug_pub.add( 'BEFORE CHECKING IF TRADING PARTNER' ) ;
582: END IF;
583:
584: -- aksingh performance cache
585: IF G_CURR_SOLD_TO_ORG_ID = l_header_rec.sold_to_org_id AND
587: G_PRIMARY_SETUP = FALSE)
588: THEN
589: x_return_status := FND_API.G_RET_STS_SUCCESS;
590: IF l_debug_level > 0 THEN
591: oe_debug_pub.add( 'CHECKED CACHED VALUE POAO NOT EDI ENABLED G_CURR' , 3 ) ;
592: END IF;
593: RETURN;
594: END IF;
595:
605:
606: l_tp_ret := FALSE;
607:
608: IF l_debug_level > 0 THEN
609: oe_debug_pub.add( 'SOLD_TO_ORG_ID: '||TO_CHAR ( L_HEADER_REC.SOLD_TO_ORG_ID ) , 3 ) ;
610: END IF;
611: IF l_debug_level > 0 THEN
612: oe_debug_pub.add( 'INVOICE_TO_ORG_ID: '||TO_CHAR ( L_HEADER_REC.INVOICE_TO_ORG_ID ) , 3 ) ;
613: END IF;
608: IF l_debug_level > 0 THEN
609: oe_debug_pub.add( 'SOLD_TO_ORG_ID: '||TO_CHAR ( L_HEADER_REC.SOLD_TO_ORG_ID ) , 3 ) ;
610: END IF;
611: IF l_debug_level > 0 THEN
612: oe_debug_pub.add( 'INVOICE_TO_ORG_ID: '||TO_CHAR ( L_HEADER_REC.INVOICE_TO_ORG_ID ) , 3 ) ;
613: END IF;
614:
615: BEGIN
616: IF l_debug_level > 0 THEN
613: END IF;
614:
615: BEGIN
616: IF l_debug_level > 0 THEN
617: oe_debug_pub.add( 'BEFORE GETTING SOLD_TO SITE FOR THE CUSTOMER' ) ;
618: END IF;
619: -----------------------------------------------------------------
620: -- Fixing bug #1513426, using the HZ tables directly instead of
621: -- RA views to improve the performance
638: G_CURR_SOLD_TO_ORG_ID := l_header_rec.sold_to_org_id;
639: G_CURR_ADDRESS_ID := l_address_id;
640: G_PRIMARY_SETUP := TRUE;
641: IF l_debug_level > 0 THEN
642: oe_debug_pub.add( 'L_SITE_USE_ID ' || TO_CHAR ( L_SITE_USE_ID ) , 3 ) ;
643: END IF;
644: IF l_debug_level > 0 THEN
645: oe_debug_pub.add( 'L_ADDRESS_ID ' || TO_CHAR ( L_ADDRESS_ID ) , 3 ) ;
646: END IF;
641: IF l_debug_level > 0 THEN
642: oe_debug_pub.add( 'L_SITE_USE_ID ' || TO_CHAR ( L_SITE_USE_ID ) , 3 ) ;
643: END IF;
644: IF l_debug_level > 0 THEN
645: oe_debug_pub.add( 'L_ADDRESS_ID ' || TO_CHAR ( L_ADDRESS_ID ) , 3 ) ;
646: END IF;
647: IF l_debug_level > 0 THEN
648: oe_debug_pub.add( 'AFTER GETTING SOLD_TO SITE FOR THE CUSTOMER' ) ;
649: END IF;
644: IF l_debug_level > 0 THEN
645: oe_debug_pub.add( 'L_ADDRESS_ID ' || TO_CHAR ( L_ADDRESS_ID ) , 3 ) ;
646: END IF;
647: IF l_debug_level > 0 THEN
648: oe_debug_pub.add( 'AFTER GETTING SOLD_TO SITE FOR THE CUSTOMER' ) ;
649: END IF;
650: EXCEPTION
651:
652: WHEN NO_DATA_FOUND THEN
651:
652: WHEN NO_DATA_FOUND THEN
653: x_return_status := FND_API.G_RET_STS_SUCCESS;
654: IF l_debug_level > 0 THEN
655: oe_debug_pub.add( 'NO PRIMARY SOLD_TO SET FOR CUSTOMER' , 2 ) ;
656: END IF;
657: G_CURR_SOLD_TO_ORG_ID := l_header_rec.sold_to_org_id;
658: G_CURR_ADDRESS_ID := NULL;
659: G_PRIMARY_SETUP := FALSE;
661: WHEN OTHERS THEN
662:
663: x_return_status := FND_API.G_RET_STS_SUCCESS;
664: IF l_debug_level > 0 THEN
665: oe_debug_pub.add( 'NOT ABLE TO GET PRIMARY SOLD_TO FOR CUSTOMER' , 1 ) ;
666: END IF;
667: RETURN;
668: END;
669:
683: ,p_msg_data => l_msg_data);
684:
685: IF l_header_rec.first_ack_code is not null THEN
686: IF l_debug_level > 0 THEN
687: oe_debug_pub.add( 'Check if POCAO Enabled ',1 );
688: END IF;
689:
690: G_POCAO_ENABLED := EC_TRADING_PARTNER_PVT.Is_Entity_Enabled (
691: p_api_version_number => 1.0
702: ,p_msg_data => l_msg_data);
703:
704: IF NOT G_POCAO_ENABLED THEN
705: IF l_debug_level > 0 THEN
706: oe_debug_pub.add( 'POCAO NOT ENABLED',1 ) ;
707: END IF;
708: l_tp_ret := FALSE;
709: END IF;
710: END IF;
710: END IF;
711:
712:
713: IF l_debug_level > 0 THEN
714: oe_debug_pub.add( 'AFTER CALL TO THE EDI API' ) ;
715: END IF;
716:
717: IF l_tp_ret = FALSE then
718: G_TP_RET := FALSE;
717: IF l_tp_ret = FALSE then
718: G_TP_RET := FALSE;
719: x_return_status := FND_API.G_RET_STS_SUCCESS;
720: IF l_debug_level > 0 THEN
721: oe_debug_pub.add( 'CUSTOMER/INVOICE-TO-ADDRESS/POAO NOT EDI ENABLED' , 3 ) ;
722: END IF;
723: RETURN;
724: END IF;
725:
753: THEN
754: -- aksingh 2 line added on 10/22/00
755: NULL;
756: ELSE
757: oe_debug_pub.add('lines are not scheduled',3);
758: l_booked_shipped := 'N';
759: EXIT;
760: END IF;
761: i := l_line_tbl.Next(i);
763: */ -- Till this commented for the post H
764: NULL;
765: ELSE
766: IF l_debug_level > 0 THEN
767: oe_debug_pub.add( 'ORDER IS NOT BOOKED' , 3 ) ;
768: END IF;
769: l_booked_shipped := 'N';
770: END IF;
771: END IF;
772:
773: IF l_booked_shipped = 'N' THEN
774: x_return_status := FND_API.G_RET_STS_SUCCESS;
775: IF l_debug_level > 0 THEN
776: oe_debug_pub.add( 'ACKNOWLEDGMENT NOT REQUIRED' , 3 ) ;
777: END IF;
778: RETURN;
779: END IF;
780:
778: RETURN;
779: END IF;
780:
781: IF l_debug_level > 0 THEN
782: oe_debug_pub.add( 'BEFORE CHECKING IF FIELDS CHANGED' , 3 ) ;
783: END IF;
784:
785: /* -------------------------------------------------------------
786: Now Check to see at what level the data has been changed
790: */
791: J:= l_line_tbl.last;
792: I:= l_line_tbl.first;
793: IF l_debug_level > 0 THEN
794: oe_debug_pub.add( 'I = '||I ) ;
795: END IF;
796: IF l_debug_level > 0 THEN
797: oe_debug_pub.add( 'J = '||J ) ;
798: oe_debug_pub.add('header first_ack_code: => ' || l_header_rec.first_ack_code);
793: IF l_debug_level > 0 THEN
794: oe_debug_pub.add( 'I = '||I ) ;
795: END IF;
796: IF l_debug_level > 0 THEN
797: oe_debug_pub.add( 'J = '||J ) ;
798: oe_debug_pub.add('header first_ack_code: => ' || l_header_rec.first_ack_code);
799: END IF;
800:
801:
794: oe_debug_pub.add( 'I = '||I ) ;
795: END IF;
796: IF l_debug_level > 0 THEN
797: oe_debug_pub.add( 'J = '||J ) ;
798: oe_debug_pub.add('header first_ack_code: => ' || l_header_rec.first_ack_code);
799: END IF;
800:
801:
802: While i is not null loop
807:
808: -- bug 3439319 added this block instead of NULLing out the resv_qty
809: Begin
810: IF l_debug_level > 0 THEN
811: oe_debug_pub.add('header_id => ' || l_line_tbl(I).header_id);
812: oe_debug_pub.add('line_id => ' || l_line_tbl(I).line_id);
813: oe_debug_pub.add('org_id => ' || l_line_tbl(I).org_id);
814: oe_debug_pub.add('unit_selling_price = '||l_line_tbl(I).unit_selling_price);
815: oe_debug_pub.add('unit_selling_price old = '||l_old_line_tbl(I).unit_selling_price);
808: -- bug 3439319 added this block instead of NULLing out the resv_qty
809: Begin
810: IF l_debug_level > 0 THEN
811: oe_debug_pub.add('header_id => ' || l_line_tbl(I).header_id);
812: oe_debug_pub.add('line_id => ' || l_line_tbl(I).line_id);
813: oe_debug_pub.add('org_id => ' || l_line_tbl(I).org_id);
814: oe_debug_pub.add('unit_selling_price = '||l_line_tbl(I).unit_selling_price);
815: oe_debug_pub.add('unit_selling_price old = '||l_old_line_tbl(I).unit_selling_price);
816: oe_debug_pub.add('schedule_ship_date = '||l_line_tbl(I).schedule_ship_date);
809: Begin
810: IF l_debug_level > 0 THEN
811: oe_debug_pub.add('header_id => ' || l_line_tbl(I).header_id);
812: oe_debug_pub.add('line_id => ' || l_line_tbl(I).line_id);
813: oe_debug_pub.add('org_id => ' || l_line_tbl(I).org_id);
814: oe_debug_pub.add('unit_selling_price = '||l_line_tbl(I).unit_selling_price);
815: oe_debug_pub.add('unit_selling_price old = '||l_old_line_tbl(I).unit_selling_price);
816: oe_debug_pub.add('schedule_ship_date = '||l_line_tbl(I).schedule_ship_date);
817: oe_debug_pub.add('schedule_ship_date old = '||l_old_line_tbl(I).schedule_ship_date);
810: IF l_debug_level > 0 THEN
811: oe_debug_pub.add('header_id => ' || l_line_tbl(I).header_id);
812: oe_debug_pub.add('line_id => ' || l_line_tbl(I).line_id);
813: oe_debug_pub.add('org_id => ' || l_line_tbl(I).org_id);
814: oe_debug_pub.add('unit_selling_price = '||l_line_tbl(I).unit_selling_price);
815: oe_debug_pub.add('unit_selling_price old = '||l_old_line_tbl(I).unit_selling_price);
816: oe_debug_pub.add('schedule_ship_date = '||l_line_tbl(I).schedule_ship_date);
817: oe_debug_pub.add('schedule_ship_date old = '||l_old_line_tbl(I).schedule_ship_date);
818: oe_debug_pub.add('ordered_quantity = '||l_line_tbl(I).ordered_quantity);
811: oe_debug_pub.add('header_id => ' || l_line_tbl(I).header_id);
812: oe_debug_pub.add('line_id => ' || l_line_tbl(I).line_id);
813: oe_debug_pub.add('org_id => ' || l_line_tbl(I).org_id);
814: oe_debug_pub.add('unit_selling_price = '||l_line_tbl(I).unit_selling_price);
815: oe_debug_pub.add('unit_selling_price old = '||l_old_line_tbl(I).unit_selling_price);
816: oe_debug_pub.add('schedule_ship_date = '||l_line_tbl(I).schedule_ship_date);
817: oe_debug_pub.add('schedule_ship_date old = '||l_old_line_tbl(I).schedule_ship_date);
818: oe_debug_pub.add('ordered_quantity = '||l_line_tbl(I).ordered_quantity);
819: oe_debug_pub.add('ordered_quantity_old = '||l_old_line_tbl(I).ordered_quantity);
812: oe_debug_pub.add('line_id => ' || l_line_tbl(I).line_id);
813: oe_debug_pub.add('org_id => ' || l_line_tbl(I).org_id);
814: oe_debug_pub.add('unit_selling_price = '||l_line_tbl(I).unit_selling_price);
815: oe_debug_pub.add('unit_selling_price old = '||l_old_line_tbl(I).unit_selling_price);
816: oe_debug_pub.add('schedule_ship_date = '||l_line_tbl(I).schedule_ship_date);
817: oe_debug_pub.add('schedule_ship_date old = '||l_old_line_tbl(I).schedule_ship_date);
818: oe_debug_pub.add('ordered_quantity = '||l_line_tbl(I).ordered_quantity);
819: oe_debug_pub.add('ordered_quantity_old = '||l_old_line_tbl(I).ordered_quantity);
820: oe_debug_pub.add('schedule_arrival_date = '||l_line_tbl(I).schedule_arrival_date);
813: oe_debug_pub.add('org_id => ' || l_line_tbl(I).org_id);
814: oe_debug_pub.add('unit_selling_price = '||l_line_tbl(I).unit_selling_price);
815: oe_debug_pub.add('unit_selling_price old = '||l_old_line_tbl(I).unit_selling_price);
816: oe_debug_pub.add('schedule_ship_date = '||l_line_tbl(I).schedule_ship_date);
817: oe_debug_pub.add('schedule_ship_date old = '||l_old_line_tbl(I).schedule_ship_date);
818: oe_debug_pub.add('ordered_quantity = '||l_line_tbl(I).ordered_quantity);
819: oe_debug_pub.add('ordered_quantity_old = '||l_old_line_tbl(I).ordered_quantity);
820: oe_debug_pub.add('schedule_arrival_date = '||l_line_tbl(I).schedule_arrival_date);
821: oe_debug_pub.add('schedule_arrival_date old = '||l_old_line_tbl(I).schedule_arrival_date);
814: oe_debug_pub.add('unit_selling_price = '||l_line_tbl(I).unit_selling_price);
815: oe_debug_pub.add('unit_selling_price old = '||l_old_line_tbl(I).unit_selling_price);
816: oe_debug_pub.add('schedule_ship_date = '||l_line_tbl(I).schedule_ship_date);
817: oe_debug_pub.add('schedule_ship_date old = '||l_old_line_tbl(I).schedule_ship_date);
818: oe_debug_pub.add('ordered_quantity = '||l_line_tbl(I).ordered_quantity);
819: oe_debug_pub.add('ordered_quantity_old = '||l_old_line_tbl(I).ordered_quantity);
820: oe_debug_pub.add('schedule_arrival_date = '||l_line_tbl(I).schedule_arrival_date);
821: oe_debug_pub.add('schedule_arrival_date old = '||l_old_line_tbl(I).schedule_arrival_date);
822: oe_debug_pub.add('shipped_quantity = '||nvl(l_line_tbl(I).shipped_quantity,0));
815: oe_debug_pub.add('unit_selling_price old = '||l_old_line_tbl(I).unit_selling_price);
816: oe_debug_pub.add('schedule_ship_date = '||l_line_tbl(I).schedule_ship_date);
817: oe_debug_pub.add('schedule_ship_date old = '||l_old_line_tbl(I).schedule_ship_date);
818: oe_debug_pub.add('ordered_quantity = '||l_line_tbl(I).ordered_quantity);
819: oe_debug_pub.add('ordered_quantity_old = '||l_old_line_tbl(I).ordered_quantity);
820: oe_debug_pub.add('schedule_arrival_date = '||l_line_tbl(I).schedule_arrival_date);
821: oe_debug_pub.add('schedule_arrival_date old = '||l_old_line_tbl(I).schedule_arrival_date);
822: oe_debug_pub.add('shipped_quantity = '||nvl(l_line_tbl(I).shipped_quantity,0));
823: oe_debug_pub.add('shipped_quantity old = '||nvl(l_old_line_tbl(I).shipped_quantity,0));
816: oe_debug_pub.add('schedule_ship_date = '||l_line_tbl(I).schedule_ship_date);
817: oe_debug_pub.add('schedule_ship_date old = '||l_old_line_tbl(I).schedule_ship_date);
818: oe_debug_pub.add('ordered_quantity = '||l_line_tbl(I).ordered_quantity);
819: oe_debug_pub.add('ordered_quantity_old = '||l_old_line_tbl(I).ordered_quantity);
820: oe_debug_pub.add('schedule_arrival_date = '||l_line_tbl(I).schedule_arrival_date);
821: oe_debug_pub.add('schedule_arrival_date old = '||l_old_line_tbl(I).schedule_arrival_date);
822: oe_debug_pub.add('shipped_quantity = '||nvl(l_line_tbl(I).shipped_quantity,0));
823: oe_debug_pub.add('shipped_quantity old = '||nvl(l_old_line_tbl(I).shipped_quantity,0));
824: oe_debug_pub.add('first_ack_code line = '||nvl(l_line_tbl(I).first_ack_code,'Nul'));
817: oe_debug_pub.add('schedule_ship_date old = '||l_old_line_tbl(I).schedule_ship_date);
818: oe_debug_pub.add('ordered_quantity = '||l_line_tbl(I).ordered_quantity);
819: oe_debug_pub.add('ordered_quantity_old = '||l_old_line_tbl(I).ordered_quantity);
820: oe_debug_pub.add('schedule_arrival_date = '||l_line_tbl(I).schedule_arrival_date);
821: oe_debug_pub.add('schedule_arrival_date old = '||l_old_line_tbl(I).schedule_arrival_date);
822: oe_debug_pub.add('shipped_quantity = '||nvl(l_line_tbl(I).shipped_quantity,0));
823: oe_debug_pub.add('shipped_quantity old = '||nvl(l_old_line_tbl(I).shipped_quantity,0));
824: oe_debug_pub.add('first_ack_code line = '||nvl(l_line_tbl(I).first_ack_code,'Nul'));
825: oe_debug_pub.add('uom = '||l_line_tbl(I).order_quantity_uom);
818: oe_debug_pub.add('ordered_quantity = '||l_line_tbl(I).ordered_quantity);
819: oe_debug_pub.add('ordered_quantity_old = '||l_old_line_tbl(I).ordered_quantity);
820: oe_debug_pub.add('schedule_arrival_date = '||l_line_tbl(I).schedule_arrival_date);
821: oe_debug_pub.add('schedule_arrival_date old = '||l_old_line_tbl(I).schedule_arrival_date);
822: oe_debug_pub.add('shipped_quantity = '||nvl(l_line_tbl(I).shipped_quantity,0));
823: oe_debug_pub.add('shipped_quantity old = '||nvl(l_old_line_tbl(I).shipped_quantity,0));
824: oe_debug_pub.add('first_ack_code line = '||nvl(l_line_tbl(I).first_ack_code,'Nul'));
825: oe_debug_pub.add('uom = '||l_line_tbl(I).order_quantity_uom);
826: oe_debug_pub.add('uom old = '||l_old_line_tbl(I).order_quantity_uom);
819: oe_debug_pub.add('ordered_quantity_old = '||l_old_line_tbl(I).ordered_quantity);
820: oe_debug_pub.add('schedule_arrival_date = '||l_line_tbl(I).schedule_arrival_date);
821: oe_debug_pub.add('schedule_arrival_date old = '||l_old_line_tbl(I).schedule_arrival_date);
822: oe_debug_pub.add('shipped_quantity = '||nvl(l_line_tbl(I).shipped_quantity,0));
823: oe_debug_pub.add('shipped_quantity old = '||nvl(l_old_line_tbl(I).shipped_quantity,0));
824: oe_debug_pub.add('first_ack_code line = '||nvl(l_line_tbl(I).first_ack_code,'Nul'));
825: oe_debug_pub.add('uom = '||l_line_tbl(I).order_quantity_uom);
826: oe_debug_pub.add('uom old = '||l_old_line_tbl(I).order_quantity_uom);
827: oe_debug_pub.add('inv item id = '||l_line_tbl(I).inventory_item_id);
820: oe_debug_pub.add('schedule_arrival_date = '||l_line_tbl(I).schedule_arrival_date);
821: oe_debug_pub.add('schedule_arrival_date old = '||l_old_line_tbl(I).schedule_arrival_date);
822: oe_debug_pub.add('shipped_quantity = '||nvl(l_line_tbl(I).shipped_quantity,0));
823: oe_debug_pub.add('shipped_quantity old = '||nvl(l_old_line_tbl(I).shipped_quantity,0));
824: oe_debug_pub.add('first_ack_code line = '||nvl(l_line_tbl(I).first_ack_code,'Nul'));
825: oe_debug_pub.add('uom = '||l_line_tbl(I).order_quantity_uom);
826: oe_debug_pub.add('uom old = '||l_old_line_tbl(I).order_quantity_uom);
827: oe_debug_pub.add('inv item id = '||l_line_tbl(I).inventory_item_id);
828: oe_debug_pub.add('inv item id old = '||l_old_line_tbl(I).inventory_item_id);
821: oe_debug_pub.add('schedule_arrival_date old = '||l_old_line_tbl(I).schedule_arrival_date);
822: oe_debug_pub.add('shipped_quantity = '||nvl(l_line_tbl(I).shipped_quantity,0));
823: oe_debug_pub.add('shipped_quantity old = '||nvl(l_old_line_tbl(I).shipped_quantity,0));
824: oe_debug_pub.add('first_ack_code line = '||nvl(l_line_tbl(I).first_ack_code,'Nul'));
825: oe_debug_pub.add('uom = '||l_line_tbl(I).order_quantity_uom);
826: oe_debug_pub.add('uom old = '||l_old_line_tbl(I).order_quantity_uom);
827: oe_debug_pub.add('inv item id = '||l_line_tbl(I).inventory_item_id);
828: oe_debug_pub.add('inv item id old = '||l_old_line_tbl(I).inventory_item_id);
829: oe_debug_pub.add('line first_ack_code old: => ' || l_old_line_tbl(I).first_ack_code);
822: oe_debug_pub.add('shipped_quantity = '||nvl(l_line_tbl(I).shipped_quantity,0));
823: oe_debug_pub.add('shipped_quantity old = '||nvl(l_old_line_tbl(I).shipped_quantity,0));
824: oe_debug_pub.add('first_ack_code line = '||nvl(l_line_tbl(I).first_ack_code,'Nul'));
825: oe_debug_pub.add('uom = '||l_line_tbl(I).order_quantity_uom);
826: oe_debug_pub.add('uom old = '||l_old_line_tbl(I).order_quantity_uom);
827: oe_debug_pub.add('inv item id = '||l_line_tbl(I).inventory_item_id);
828: oe_debug_pub.add('inv item id old = '||l_old_line_tbl(I).inventory_item_id);
829: oe_debug_pub.add('line first_ack_code old: => ' || l_old_line_tbl(I).first_ack_code);
830: oe_debug_pub.add('line first_ack_code new: => ' || l_line_tbl(I).first_ack_code);
823: oe_debug_pub.add('shipped_quantity old = '||nvl(l_old_line_tbl(I).shipped_quantity,0));
824: oe_debug_pub.add('first_ack_code line = '||nvl(l_line_tbl(I).first_ack_code,'Nul'));
825: oe_debug_pub.add('uom = '||l_line_tbl(I).order_quantity_uom);
826: oe_debug_pub.add('uom old = '||l_old_line_tbl(I).order_quantity_uom);
827: oe_debug_pub.add('inv item id = '||l_line_tbl(I).inventory_item_id);
828: oe_debug_pub.add('inv item id old = '||l_old_line_tbl(I).inventory_item_id);
829: oe_debug_pub.add('line first_ack_code old: => ' || l_old_line_tbl(I).first_ack_code);
830: oe_debug_pub.add('line first_ack_code new: => ' || l_line_tbl(I).first_ack_code);
831: oe_debug_pub.add('line operation old: => ' || l_old_line_tbl(I).operation);
824: oe_debug_pub.add('first_ack_code line = '||nvl(l_line_tbl(I).first_ack_code,'Nul'));
825: oe_debug_pub.add('uom = '||l_line_tbl(I).order_quantity_uom);
826: oe_debug_pub.add('uom old = '||l_old_line_tbl(I).order_quantity_uom);
827: oe_debug_pub.add('inv item id = '||l_line_tbl(I).inventory_item_id);
828: oe_debug_pub.add('inv item id old = '||l_old_line_tbl(I).inventory_item_id);
829: oe_debug_pub.add('line first_ack_code old: => ' || l_old_line_tbl(I).first_ack_code);
830: oe_debug_pub.add('line first_ack_code new: => ' || l_line_tbl(I).first_ack_code);
831: oe_debug_pub.add('line operation old: => ' || l_old_line_tbl(I).operation);
832: oe_debug_pub.add('line operation new: => ' || l_line_tbl(I).operation);
825: oe_debug_pub.add('uom = '||l_line_tbl(I).order_quantity_uom);
826: oe_debug_pub.add('uom old = '||l_old_line_tbl(I).order_quantity_uom);
827: oe_debug_pub.add('inv item id = '||l_line_tbl(I).inventory_item_id);
828: oe_debug_pub.add('inv item id old = '||l_old_line_tbl(I).inventory_item_id);
829: oe_debug_pub.add('line first_ack_code old: => ' || l_old_line_tbl(I).first_ack_code);
830: oe_debug_pub.add('line first_ack_code new: => ' || l_line_tbl(I).first_ack_code);
831: oe_debug_pub.add('line operation old: => ' || l_old_line_tbl(I).operation);
832: oe_debug_pub.add('line operation new: => ' || l_line_tbl(I).operation);
833: END IF;
826: oe_debug_pub.add('uom old = '||l_old_line_tbl(I).order_quantity_uom);
827: oe_debug_pub.add('inv item id = '||l_line_tbl(I).inventory_item_id);
828: oe_debug_pub.add('inv item id old = '||l_old_line_tbl(I).inventory_item_id);
829: oe_debug_pub.add('line first_ack_code old: => ' || l_old_line_tbl(I).first_ack_code);
830: oe_debug_pub.add('line first_ack_code new: => ' || l_line_tbl(I).first_ack_code);
831: oe_debug_pub.add('line operation old: => ' || l_old_line_tbl(I).operation);
832: oe_debug_pub.add('line operation new: => ' || l_line_tbl(I).operation);
833: END IF;
834:
827: oe_debug_pub.add('inv item id = '||l_line_tbl(I).inventory_item_id);
828: oe_debug_pub.add('inv item id old = '||l_old_line_tbl(I).inventory_item_id);
829: oe_debug_pub.add('line first_ack_code old: => ' || l_old_line_tbl(I).first_ack_code);
830: oe_debug_pub.add('line first_ack_code new: => ' || l_line_tbl(I).first_ack_code);
831: oe_debug_pub.add('line operation old: => ' || l_old_line_tbl(I).operation);
832: oe_debug_pub.add('line operation new: => ' || l_line_tbl(I).operation);
833: END IF;
834:
835: l_sales_order_id := OE_SCHEDULE_UTIL.Get_mtl_sales_order_id(l_line_tbl(I).header_id);
828: oe_debug_pub.add('inv item id old = '||l_old_line_tbl(I).inventory_item_id);
829: oe_debug_pub.add('line first_ack_code old: => ' || l_old_line_tbl(I).first_ack_code);
830: oe_debug_pub.add('line first_ack_code new: => ' || l_line_tbl(I).first_ack_code);
831: oe_debug_pub.add('line operation old: => ' || l_old_line_tbl(I).operation);
832: oe_debug_pub.add('line operation new: => ' || l_line_tbl(I).operation);
833: END IF;
834:
835: l_sales_order_id := OE_SCHEDULE_UTIL.Get_mtl_sales_order_id(l_line_tbl(I).header_id);
836:
834:
835: l_sales_order_id := OE_SCHEDULE_UTIL.Get_mtl_sales_order_id(l_line_tbl(I).header_id);
836:
837: IF l_debug_level > 0 THEN
838: oe_debug_pub.add('l_sales_order_id => ' || l_sales_order_id);
839: END IF;
840:
841: l_line_tbl(I).reserved_quantity := oe_line_util.Get_Reserved_Quantity (
842: p_header_id => l_sales_order_id,
842: p_header_id => l_sales_order_id,
843: p_line_id => p_line_tbl(I).line_id,
844: p_org_id => p_line_tbl(I).org_id);
845: IF l_debug_level > 0 THEN
846: oe_debug_pub.add('Reserved_Qty => ' || l_line_tbl(I).reserved_quantity);
847: END IF;
848: Exception
849: When Others Then
850: oe_debug_pub.add('When Others After the call to get_reserv_qty in OEXVACKB');
846: oe_debug_pub.add('Reserved_Qty => ' || l_line_tbl(I).reserved_quantity);
847: END IF;
848: Exception
849: When Others Then
850: oe_debug_pub.add('When Others After the call to get_reserv_qty in OEXVACKB');
851: l_line_tbl(I).reserved_quantity := NULL;
852: END;
853:
854: -- FOR I IN l_line_tbl.first..l_line_tbl.last LOOP
878: THEN
879: -- Set local variable to continue Acknowledgment processing
880: -- And Exit from Loop
881: IF l_debug_level > 0 THEN
882: oe_debug_pub.add( 'LINE DATA HAS CHANGED' ) ;
883: END IF;
884:
885: l_ack_req_flag := 'B';
886: /* Bug 2671184 :
896: ELSE
897: -- no attribute change was detected so if the acknowledgment has been
898: -- extracted previously, do not send this line
899: IF l_debug_level > 0 THEN
900: oe_debug_pub.add('No attribute change detected.');
901: END IF;
902:
903: If l_header_rec.first_ack_code Is Not Null Then
904: IF l_debug_level > 0 THEN
901: END IF;
902:
903: If l_header_rec.first_ack_code Is Not Null Then
904: IF l_debug_level > 0 THEN
905: oe_debug_pub.add('line will not be acknowledged.');
906: END IF;
907: l_line_tbl(I).changed_lines_pocao := 'N';
908: --EXIT;
909: End If;
909: End If;
910: END IF;
911: l_validation_org_id := OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
912: IF l_debug_level > 0 THEN
913: oe_debug_pub.add( 'FIRST_ACK_CODE FROM PROCAPI = '||L_LINE_TBL ( I ) .FIRST_ACK_CODE ) ;
914: END IF;
915:
916: BEGIN
917: -- Fix for the bug2722519
923: AND b.site_use_code='SHIP_TO';
924: -- removed unnecessary validation of customer account, bug 3656640
925:
926: IF l_debug_level > 0 THEN
927: oe_debug_pub.add( 'SHIP-LINE- TO ADDR ID = '||L_SHIP_TO_ADDR_ID ) ;
928: END IF;
929: EXCEPTION
930: WHEN OTHERS THEN
931: NULL;
929: EXCEPTION
930: WHEN OTHERS THEN
931: NULL;
932: IF l_debug_level > 0 THEN
933: oe_debug_pub.add( 'UNABLE TO DERIVE SHIP_TO ADDR FOR LINE' ) ;
934: END IF;
935: END;
936:
937: get_address(
969: l_line_val_tbl(I).ship_to_location := l_ship_to_addr_code;
970: l_line_tbl(I).ship_to_edi_location_code := l_ship_to_location_code;
971: /* Code for Blanket Sales Orders */
972: IF l_debug_level > 0 THEN
973: oe_debug_pub.add( 'Entering into Blanket related model code') ;
974: END IF;
975: IF l_line_tbl(I).item_type_code = 'INCLUDED' THEN
976: l_top_model_line_id := l_line_tbl(I).top_model_line_id;
977: OPEN GET_TOP_MODEL(l_top_model_line_id);
980: l_blanket_number,
981: l_blanket_line_number;
982: IF GET_TOP_MODEL%NOTFOUND THEN
983: IF l_debug_level > 0 THEN
984: oe_debug_pub.add( 'Blanket number and Blanket line number NOT FOUND for the cursor GET_TOP_MODEL' ) ;
985: END IF;
986: END IF;
987: CLOSE GET_TOP_MODEL;
988: l_line_tbl(I).blanket_number := l_blanket_number;
989: l_line_tbl(I).blanket_line_number := l_blanket_line_number;
990: END IF;
991:
992: IF l_debug_level > 0 THEN
993: oe_debug_pub.add( 'Leaving Blanket related code for the Top Model Line Id: '||l_top_model_line_id) ;
994: oe_debug_pub.add( 'Leaving Blanket related code Blanket Number : '||l_blanket_number) ;
995: oe_debug_pub.add( 'Leaving Blanket related code Blanket Line Number : '||l_blanket_line_number) ;
996: END IF;
997:
990: END IF;
991:
992: IF l_debug_level > 0 THEN
993: oe_debug_pub.add( 'Leaving Blanket related code for the Top Model Line Id: '||l_top_model_line_id) ;
994: oe_debug_pub.add( 'Leaving Blanket related code Blanket Number : '||l_blanket_number) ;
995: oe_debug_pub.add( 'Leaving Blanket related code Blanket Line Number : '||l_blanket_line_number) ;
996: END IF;
997:
998: IF l_debug_level > 0 THEN
991:
992: IF l_debug_level > 0 THEN
993: oe_debug_pub.add( 'Leaving Blanket related code for the Top Model Line Id: '||l_top_model_line_id) ;
994: oe_debug_pub.add( 'Leaving Blanket related code Blanket Number : '||l_blanket_number) ;
995: oe_debug_pub.add( 'Leaving Blanket related code Blanket Line Number : '||l_blanket_line_number) ;
996: END IF;
997:
998: IF l_debug_level > 0 THEN
999: oe_debug_pub.add( 'SHIP TO EDI CODE = '||L_SHIP_TO_LOCATION_CODE ) ;
995: oe_debug_pub.add( 'Leaving Blanket related code Blanket Line Number : '||l_blanket_line_number) ;
996: END IF;
997:
998: IF l_debug_level > 0 THEN
999: oe_debug_pub.add( 'SHIP TO EDI CODE = '||L_SHIP_TO_LOCATION_CODE ) ;
1000: END IF;
1001: IF l_debug_level > 0 THEN
1002: oe_debug_pub.add( 'ADDR1 = '||L_LINE_VAL_TBL ( I ) .SHIP_TO_ADDRESS1 ) ;
1003: END IF;
998: IF l_debug_level > 0 THEN
999: oe_debug_pub.add( 'SHIP TO EDI CODE = '||L_SHIP_TO_LOCATION_CODE ) ;
1000: END IF;
1001: IF l_debug_level > 0 THEN
1002: oe_debug_pub.add( 'ADDR1 = '||L_LINE_VAL_TBL ( I ) .SHIP_TO_ADDRESS1 ) ;
1003: END IF;
1004: IF l_debug_level > 0 THEN
1005: oe_debug_pub.add( 'SHIP TO CONTACT ID = '||L_LINE_TBL ( I ) .SHIP_TO_CONTACT_ID ) ;
1006: END IF;
1001: IF l_debug_level > 0 THEN
1002: oe_debug_pub.add( 'ADDR1 = '||L_LINE_VAL_TBL ( I ) .SHIP_TO_ADDRESS1 ) ;
1003: END IF;
1004: IF l_debug_level > 0 THEN
1005: oe_debug_pub.add( 'SHIP TO CONTACT ID = '||L_LINE_TBL ( I ) .SHIP_TO_CONTACT_ID ) ;
1006: END IF;
1007: IF l_debug_level > 0 THEN
1008: oe_debug_pub.add( 'ACTUAL_SHIPMENT_DATE = '||L_LINE_TBL ( I ) .ACTUAL_SHIPMENT_DATE ) ;
1009: END IF;
1004: IF l_debug_level > 0 THEN
1005: oe_debug_pub.add( 'SHIP TO CONTACT ID = '||L_LINE_TBL ( I ) .SHIP_TO_CONTACT_ID ) ;
1006: END IF;
1007: IF l_debug_level > 0 THEN
1008: oe_debug_pub.add( 'ACTUAL_SHIPMENT_DATE = '||L_LINE_TBL ( I ) .ACTUAL_SHIPMENT_DATE ) ;
1009: END IF;
1010: IF l_debug_level > 0 THEN
1011: oe_debug_pub.add( 'ACTUAL_ARRIVAL_DATE = '||L_LINE_TBL ( I ) .ACTUAL_ARRIVAL_DATE ) ;
1012: END IF;
1007: IF l_debug_level > 0 THEN
1008: oe_debug_pub.add( 'ACTUAL_SHIPMENT_DATE = '||L_LINE_TBL ( I ) .ACTUAL_SHIPMENT_DATE ) ;
1009: END IF;
1010: IF l_debug_level > 0 THEN
1011: oe_debug_pub.add( 'ACTUAL_ARRIVAL_DATE = '||L_LINE_TBL ( I ) .ACTUAL_ARRIVAL_DATE ) ;
1012: END IF;
1013: IF l_debug_level > 0 THEN
1014: oe_debug_pub.add( 'CUSTOMER_DOCK_CODE = '||L_LINE_TBL ( I ) .CUSTOMER_DOCK_CODE ) ;
1015: END IF;
1010: IF l_debug_level > 0 THEN
1011: oe_debug_pub.add( 'ACTUAL_ARRIVAL_DATE = '||L_LINE_TBL ( I ) .ACTUAL_ARRIVAL_DATE ) ;
1012: END IF;
1013: IF l_debug_level > 0 THEN
1014: oe_debug_pub.add( 'CUSTOMER_DOCK_CODE = '||L_LINE_TBL ( I ) .CUSTOMER_DOCK_CODE ) ;
1015: END IF;
1016: IF l_debug_level > 0 THEN
1017: oe_debug_pub.add( 'CUST_PRODUCTION_SEQ_NUM = '||L_LINE_TBL ( I ) .CUST_PRODUCTION_SEQ_NUM ) ;
1018: END IF;
1013: IF l_debug_level > 0 THEN
1014: oe_debug_pub.add( 'CUSTOMER_DOCK_CODE = '||L_LINE_TBL ( I ) .CUSTOMER_DOCK_CODE ) ;
1015: END IF;
1016: IF l_debug_level > 0 THEN
1017: oe_debug_pub.add( 'CUST_PRODUCTION_SEQ_NUM = '||L_LINE_TBL ( I ) .CUST_PRODUCTION_SEQ_NUM ) ;
1018: END IF;
1019: IF l_debug_level > 0 THEN
1020: oe_debug_pub.add( 'CUSTOMER_PRODUCTION_LINE = '||L_LINE_TBL ( I ) .CUSTOMER_PRODUCTION_LINE ) ;
1021: END IF;
1016: IF l_debug_level > 0 THEN
1017: oe_debug_pub.add( 'CUST_PRODUCTION_SEQ_NUM = '||L_LINE_TBL ( I ) .CUST_PRODUCTION_SEQ_NUM ) ;
1018: END IF;
1019: IF l_debug_level > 0 THEN
1020: oe_debug_pub.add( 'CUSTOMER_PRODUCTION_LINE = '||L_LINE_TBL ( I ) .CUSTOMER_PRODUCTION_LINE ) ;
1021: END IF;
1022: IF l_debug_level > 0 THEN
1023: oe_debug_pub.add( 'CUST_MODEL_SERIAL_NUMBER = '||L_LINE_TBL ( I ) .CUST_MODEL_SERIAL_NUMBER ) ;
1024: END IF;
1019: IF l_debug_level > 0 THEN
1020: oe_debug_pub.add( 'CUSTOMER_PRODUCTION_LINE = '||L_LINE_TBL ( I ) .CUSTOMER_PRODUCTION_LINE ) ;
1021: END IF;
1022: IF l_debug_level > 0 THEN
1023: oe_debug_pub.add( 'CUST_MODEL_SERIAL_NUMBER = '||L_LINE_TBL ( I ) .CUST_MODEL_SERIAL_NUMBER ) ;
1024: END IF;
1025: IF l_debug_level > 0 THEN
1026: oe_debug_pub.add( 'CUSTOMER_JOB = '||L_LINE_TBL ( I ) .CUSTOMER_JOB ) ;
1027: END IF;
1022: IF l_debug_level > 0 THEN
1023: oe_debug_pub.add( 'CUST_MODEL_SERIAL_NUMBER = '||L_LINE_TBL ( I ) .CUST_MODEL_SERIAL_NUMBER ) ;
1024: END IF;
1025: IF l_debug_level > 0 THEN
1026: oe_debug_pub.add( 'CUSTOMER_JOB = '||L_LINE_TBL ( I ) .CUSTOMER_JOB ) ;
1027: END IF;
1028: IF l_debug_level > 0 THEN
1029: oe_debug_pub.add( 'CUSTOMER_PAYMENT_TERM = '||L_LINE_VAL_TBL ( I ) .CUSTOMER_PAYMENT_TERM ) ;
1030: END IF;
1025: IF l_debug_level > 0 THEN
1026: oe_debug_pub.add( 'CUSTOMER_JOB = '||L_LINE_TBL ( I ) .CUSTOMER_JOB ) ;
1027: END IF;
1028: IF l_debug_level > 0 THEN
1029: oe_debug_pub.add( 'CUSTOMER_PAYMENT_TERM = '||L_LINE_VAL_TBL ( I ) .CUSTOMER_PAYMENT_TERM ) ;
1030: END IF;
1031:
1032:
1033: BEGIN
1042: AND b.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
1043: AND b.OBJECT_TABLE_NAME = 'HZ_PARTIES'
1044: AND b.DIRECTIONAL_FLAG = 'F';
1045: IF l_debug_level > 0 THEN
1046: oe_debug_pub.add( 'SHIP TO CONTACT = '||L_LINE_VAL_TBL ( I ) .SHIP_TO_CONTACT_LAST_NAME ) ;
1047: END IF;
1048: EXCEPTION
1049: WHEN OTHERS THEN
1050: NULL;
1048: EXCEPTION
1049: WHEN OTHERS THEN
1050: NULL;
1051: IF l_debug_level > 0 THEN
1052: oe_debug_pub.add( 'UNABLE TO GET FIRST/LAST NAME FOR LINE SHIP_TO' ) ;
1053: END IF;
1054: END;
1055:
1056: BEGIN
1060: WHERE inventory_item_id = l_line_tbl(I).inventory_item_id
1061: AND organization_id = l_validation_org_id;
1062: l_line_val_tbl(I).inventory_item := l_concatenated_segments;
1063: IF l_debug_level > 0 THEN
1064: oe_debug_pub.add( 'ITEM ID = '||L_LINE_TBL ( I ) .INVENTORY_ITEM_ID ) ;
1065: END IF;
1066: IF l_debug_level > 0 THEN
1067: oe_debug_pub.add( 'ITEM NAME = '||L_LINE_VAL_TBL ( I ) .INVENTORY_ITEM ) ;
1068: END IF;
1063: IF l_debug_level > 0 THEN
1064: oe_debug_pub.add( 'ITEM ID = '||L_LINE_TBL ( I ) .INVENTORY_ITEM_ID ) ;
1065: END IF;
1066: IF l_debug_level > 0 THEN
1067: oe_debug_pub.add( 'ITEM NAME = '||L_LINE_VAL_TBL ( I ) .INVENTORY_ITEM ) ;
1068: END IF;
1069: IF l_debug_level > 0 THEN
1070: oe_debug_pub.add( 'INDEX IS = '||I ) ;
1071: END IF;
1066: IF l_debug_level > 0 THEN
1067: oe_debug_pub.add( 'ITEM NAME = '||L_LINE_VAL_TBL ( I ) .INVENTORY_ITEM ) ;
1068: END IF;
1069: IF l_debug_level > 0 THEN
1070: oe_debug_pub.add( 'INDEX IS = '||I ) ;
1071: END IF;
1072: EXCEPTION
1073: WHEN OTHERS THEN
1074: NULL;
1072: EXCEPTION
1073: WHEN OTHERS THEN
1074: NULL;
1075: IF l_debug_level > 0 THEN
1076: oe_debug_pub.add( 'UNABLE TO GET ITEM NAME' ) ;
1077: END IF;
1078: END;
1079: /* 1944673 */
1080: l_line_val_tbl(i).line_type := OE_Id_To_Value.Line_Type
1157: where hl.location_id = hu.location_id
1158: AND hu.organization_id = l_line_tbl(I).ship_from_org_id;
1159:
1160: IF l_debug_level > 0 THEN
1161: oe_debug_pub.add( 'SHIP-FROM LINE ADDR ID = '||L_SHIP_FROM_ADDR_ID ) ;
1162: END IF;
1163: EXCEPTION
1164: WHEN OTHERS THEN
1165: NULL;
1163: EXCEPTION
1164: WHEN OTHERS THEN
1165: NULL;
1166: IF l_debug_level > 0 THEN
1167: oe_debug_pub.add( 'UNABLE TO DERIVE SHIP_FROM ADDR FOR LINE' ) ;
1168: END IF;
1169: END;
1170:
1171: get_address(
1202: l_line_val_tbl(I).ship_from_region3 := SUBSTR(l_region3,0,240);
1203: l_line_val_tbl(I).ship_from_org := l_ship_from_addr_code;
1204: l_line_tbl(I).ship_from_edi_location_code := SUBSTR(l_ship_from_location_code,0,40);
1205: IF l_debug_level > 0 THEN
1206: oe_debug_pub.add( 'ADDR1 = '||L_LINE_VAL_TBL ( I ) .SHIP_FROM_ADDRESS1 ) ;
1207: END IF;
1208: IF l_debug_level > 0 THEN
1209: oe_debug_pub.add( 'INSIDE WHILE LOOP I = '||I ) ;
1210: END IF;
1205: IF l_debug_level > 0 THEN
1206: oe_debug_pub.add( 'ADDR1 = '||L_LINE_VAL_TBL ( I ) .SHIP_FROM_ADDRESS1 ) ;
1207: END IF;
1208: IF l_debug_level > 0 THEN
1209: oe_debug_pub.add( 'INSIDE WHILE LOOP I = '||I ) ;
1210: END IF;
1211:
1212: if (l_line_tbl(I).operation is NULL OR
1213: l_line_tbl(I).operation = FND_API.G_MISS_CHAR )
1228: where hl.location_id = hu.location_id
1229: AND hu.organization_id = l_header_rec.ship_from_org_id;
1230:
1231: IF l_debug_level > 0 THEN
1232: oe_debug_pub.add( 'SHIP-FROM HEADER ADDR ID = '||L_SHIP_FROM_ADDR_ID ) ;
1233: END IF;
1234: IF l_debug_level > 0 THEN
1235: oe_debug_pub.add( 'SHIP-FROM HEADER SHIP_FROM ORG = '||L_HEADER_REC.SHIP_FROM_ORG_ID ) ;
1236: END IF;
1231: IF l_debug_level > 0 THEN
1232: oe_debug_pub.add( 'SHIP-FROM HEADER ADDR ID = '||L_SHIP_FROM_ADDR_ID ) ;
1233: END IF;
1234: IF l_debug_level > 0 THEN
1235: oe_debug_pub.add( 'SHIP-FROM HEADER SHIP_FROM ORG = '||L_HEADER_REC.SHIP_FROM_ORG_ID ) ;
1236: END IF;
1237: IF l_debug_level > 0 THEN
1238: oe_debug_pub.add( 'SHIP-FROM HEADER EDI LOC CODE = '||L_SHIP_FROM_LOCATION_CODE ) ;
1239: END IF;
1234: IF l_debug_level > 0 THEN
1235: oe_debug_pub.add( 'SHIP-FROM HEADER SHIP_FROM ORG = '||L_HEADER_REC.SHIP_FROM_ORG_ID ) ;
1236: END IF;
1237: IF l_debug_level > 0 THEN
1238: oe_debug_pub.add( 'SHIP-FROM HEADER EDI LOC CODE = '||L_SHIP_FROM_LOCATION_CODE ) ;
1239: END IF;
1240: IF l_debug_level > 0 THEN
1241: oe_debug_pub.add( 'SHIP-FROM HEADER ADDR CODE = '||L_SHIP_FROM_ADDR_CODE ) ;
1242: END IF;
1237: IF l_debug_level > 0 THEN
1238: oe_debug_pub.add( 'SHIP-FROM HEADER EDI LOC CODE = '||L_SHIP_FROM_LOCATION_CODE ) ;
1239: END IF;
1240: IF l_debug_level > 0 THEN
1241: oe_debug_pub.add( 'SHIP-FROM HEADER ADDR CODE = '||L_SHIP_FROM_ADDR_CODE ) ;
1242: END IF;
1243: EXCEPTION
1244: WHEN OTHERS THEN
1245: NULL;
1243: EXCEPTION
1244: WHEN OTHERS THEN
1245: NULL;
1246: IF l_debug_level > 0 THEN
1247: oe_debug_pub.add( 'UNABLE TO DERIVE SHIP_FROM ADDR FOR HEADER' ) ;
1248: END IF;
1249: END;
1250:
1251: get_address(
1282: l_header_val_rec.ship_from_region3 := SUBSTR(l_region3,0,240);
1283: l_header_val_rec.ship_from_org := l_ship_from_addr_code;
1284: l_header_rec.ship_from_edi_location_code := l_ship_from_location_code;
1285: IF l_debug_level > 0 THEN
1286: oe_debug_pub.add( 'ADDR1 = '||L_HEADER_VAL_REC.SHIP_FROM_ADDRESS1 ) ;
1287: END IF;
1288:
1289: /* -----------------------------------------------------------------
1290: -- IF the local variable is not set above meaning that data at line
1312: -----------------------------------------------------
1313: */
1314: BEGIN
1315: IF l_debug_level > 0 THEN
1316: oe_debug_pub.add( 'SOLD_TO_SITE_USE_ID: ' || l_header_rec.sold_to_site_use_id) ;
1317: END IF;
1318:
1319: OE_ID_TO_VALUE.Customer_Location(p_sold_to_site_use_id => l_header_rec.sold_to_site_use_id,
1320: x_sold_to_location_address1 => l_header_val_rec.sold_to_location_address1,
1330: EXCEPTION
1331: WHEN OTHERS THEN
1332: NULL;
1333: IF l_debug_level > 0 THEN
1334: oe_debug_pub.add( 'UNABLE TO DERIVE SOLD_TO_LOCATION FOR HEADER' ) ;
1335: END IF;
1336: END;
1337:
1338:
1343: */
1344:
1345: BEGIN
1346: IF l_debug_level > 0 THEN
1347: oe_debug_pub.add( 'END CUSTOMER ID: ' || l_header_rec.end_customer_id) ;
1348: END IF;
1349:
1350: OE_ID_TO_VALUE.End_Customer( p_end_customer_id => l_header_rec.end_customer_id
1351: , x_end_customer_name => l_header_val_rec.end_customer_name
1355: EXCEPTION
1356: WHEN OTHERS THEN
1357: NULL;
1358: IF l_debug_level > 0 THEN
1359: oe_debug_pub.add( 'UNABLE TO DERIVE END CUSTOMER FOR HEADER' ) ;
1360: END IF;
1361: END;
1362:
1363:
1368: */
1369:
1370: BEGIN
1371: IF l_debug_level > 0 THEN
1372: oe_debug_pub.add( 'END CUSTOMER CONTACT ID: ' || l_header_rec.end_customer_contact_id) ;
1373: END IF;
1374:
1375: 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);
1376:
1377: EXCEPTION
1378: WHEN OTHERS THEN
1379: NULL;
1380: IF l_debug_level > 0 THEN
1381: oe_debug_pub.add( 'UNABLE TO DERIVE END CUSTOMER CONTACT FOR HEADER' ) ;
1382: END IF;
1383: END;
1384:
1385:
1390: */
1391:
1392: BEGIN
1393: IF l_debug_level > 0 THEN
1394: oe_debug_pub.add( 'END CUSTOMER SITE USE ID: ' || l_header_rec.end_customer_site_use_id) ;
1395: END IF;
1396:
1397: OE_ID_TO_VALUE.End_Customer_Site_Use( p_end_customer_site_use_id => l_header_rec.end_customer_site_use_id
1398: , x_end_customer_address1 => l_header_val_rec.end_customer_site_address1
1409: EXCEPTION
1410: WHEN OTHERS THEN
1411: NULL;
1412: IF l_debug_level > 0 THEN
1413: oe_debug_pub.add( 'UNABLE TO DERIVE END CUSTOMER LOCATION FOR HEADER' ) ;
1414: END IF;
1415: END;
1416: --Added for bug 4034441 end
1417:
1432: AND b.site_use_code='BILL_TO';
1433: -- removed unnecessary validation of customer account, bug 3656640
1434:
1435: IF l_debug_level > 0 THEN
1436: oe_debug_pub.add( 'BILL TO ADDR ID = '||L_BILL_TO_ADDR_ID ) ;
1437: END IF;
1438: EXCEPTION
1439: WHEN OTHERS THEN
1440: NULL;
1438: EXCEPTION
1439: WHEN OTHERS THEN
1440: NULL;
1441: IF l_debug_level > 0 THEN
1442: oe_debug_pub.add( 'UNABLE TO DERIVE BILL_TO ADDR FOR HEAD' ) ;
1443: END IF;
1444: END;
1445:
1446: BEGIN
1453: AND b.site_use_code='SHIP_TO';
1454: -- removed unnecessary validation of customer account, bug 3656640
1455:
1456: IF l_debug_level > 0 THEN
1457: oe_debug_pub.add( 'SHIP TO ADDR ID = '||L_SHIP_TO_ADDR_ID ) ;
1458: END IF;
1459: EXCEPTION
1460: WHEN OTHERS THEN
1461: NULL;
1459: EXCEPTION
1460: WHEN OTHERS THEN
1461: NULL;
1462: IF l_debug_level > 0 THEN
1463: oe_debug_pub.add( 'UNABLE TO DERIVE SHIP_TO ADDR FOR HEAD' ) ;
1464: END IF;
1465: END;
1466:
1467: BEGIN
1472: AND b.site_use_id = l_header_rec.sold_to_org_id
1473: AND b.site_use_code='SOLD_TO'
1474: AND a.cust_account_id = l_header_rec.sold_to_org_id;
1475: IF l_debug_level > 0 THEN
1476: oe_debug_pub.add( 'SOLD TO ADDR ID = '||L_SOLD_TO_ADDR_ID ) ;
1477: END IF;
1478:
1479: EXCEPTION
1480: WHEN OTHERS THEN
1479: EXCEPTION
1480: WHEN OTHERS THEN
1481: NULL;
1482: IF l_debug_level > 0 THEN
1483: oe_debug_pub.add( 'UNABLE TO DERIVE SOLD_TO ADDR FOR HEAD' ) ;
1484: END IF;
1485: END;
1486:
1487: get_address(
1521: l_header_rec.bill_to_edi_location_code := l_bill_to_location_code;
1522: l_header_rec.ship_to_edi_location_code := l_ship_to_location_code;
1523: l_header_rec.sold_to_edi_location_code := l_sold_to_location_code;
1524: IF l_debug_level > 0 THEN
1525: oe_debug_pub.add( 'SOLD TO LOCATION CODE = '||L_SOLD_TO_ADDR_CODE ) ;
1526: END IF;
1527: IF l_debug_level > 0 THEN
1528: oe_debug_pub.add( 'SHIP TO EDI CODE = '||L_SHIP_TO_LOCATION_CODE ) ;
1529: END IF;
1524: IF l_debug_level > 0 THEN
1525: oe_debug_pub.add( 'SOLD TO LOCATION CODE = '||L_SOLD_TO_ADDR_CODE ) ;
1526: END IF;
1527: IF l_debug_level > 0 THEN
1528: oe_debug_pub.add( 'SHIP TO EDI CODE = '||L_SHIP_TO_LOCATION_CODE ) ;
1529: END IF;
1530: IF l_debug_level > 0 THEN
1531: oe_debug_pub.add( 'BILL TO EDI CODE = '||L_BILL_TO_LOCATION_CODE ) ;
1532: END IF;
1527: IF l_debug_level > 0 THEN
1528: oe_debug_pub.add( 'SHIP TO EDI CODE = '||L_SHIP_TO_LOCATION_CODE ) ;
1529: END IF;
1530: IF l_debug_level > 0 THEN
1531: oe_debug_pub.add( 'BILL TO EDI CODE = '||L_BILL_TO_LOCATION_CODE ) ;
1532: END IF;
1533: IF l_debug_level > 0 THEN
1534: oe_debug_pub.add( 'ADDR1 = '||L_HEADER_VAL_REC.INVOICE_TO_ADDRESS1 ) ;
1535: END IF;
1530: IF l_debug_level > 0 THEN
1531: oe_debug_pub.add( 'BILL TO EDI CODE = '||L_BILL_TO_LOCATION_CODE ) ;
1532: END IF;
1533: IF l_debug_level > 0 THEN
1534: oe_debug_pub.add( 'ADDR1 = '||L_HEADER_VAL_REC.INVOICE_TO_ADDRESS1 ) ;
1535: END IF;
1536:
1537: get_address(
1538: p_address_type_in => 'CUSTOMER',
1566: l_header_val_rec.ship_to_country := SUBSTR(l_country,0,60);
1567: l_header_val_rec.ship_to_county := SUBSTR(l_county,0,60);
1568: l_header_val_rec.ship_to_province := SUBSTR(l_province,0,240);
1569: IF l_debug_level > 0 THEN
1570: oe_debug_pub.add( 'ADDR1 = '||L_HEADER_VAL_REC.SHIP_TO_ADDRESS1 ) ;
1571: END IF;
1572:
1573: get_address(
1574: p_address_type_in => 'CUSTOMER',
1602: l_header_val_rec.sold_to_country := SUBSTR(l_country,0,60);
1603: l_header_val_rec.sold_to_county := SUBSTR(l_county,0,60);
1604: l_header_val_rec.sold_to_province := SUBSTR(l_province,0,240);
1605: IF l_debug_level > 0 THEN
1606: oe_debug_pub.add( 'ADDR1 = '||L_HEADER_VAL_REC.SOLD_TO_ADDRESS1 ) ;
1607: END IF;
1608: IF l_debug_level > 0 THEN
1609: oe_debug_pub.add( 'INV CONTACT ID = '||L_HEADER_REC.INVOICE_TO_CONTACT_ID ) ;
1610: END IF;
1605: IF l_debug_level > 0 THEN
1606: oe_debug_pub.add( 'ADDR1 = '||L_HEADER_VAL_REC.SOLD_TO_ADDRESS1 ) ;
1607: END IF;
1608: IF l_debug_level > 0 THEN
1609: oe_debug_pub.add( 'INV CONTACT ID = '||L_HEADER_REC.INVOICE_TO_CONTACT_ID ) ;
1610: END IF;
1611: IF l_debug_level > 0 THEN
1612: oe_debug_pub.add( 'SHIP TO CONTACT ID= '||L_HEADER_REC.SHIP_TO_CONTACT_ID ) ;
1613: END IF;
1608: IF l_debug_level > 0 THEN
1609: oe_debug_pub.add( 'INV CONTACT ID = '||L_HEADER_REC.INVOICE_TO_CONTACT_ID ) ;
1610: END IF;
1611: IF l_debug_level > 0 THEN
1612: oe_debug_pub.add( 'SHIP TO CONTACT ID= '||L_HEADER_REC.SHIP_TO_CONTACT_ID ) ;
1613: END IF;
1614: IF l_debug_level > 0 THEN
1615: oe_debug_pub.add( 'SOLD TO CONTACT ID = '||L_HEADER_REC.SOLD_TO_CONTACT_ID ) ;
1616: END IF;
1611: IF l_debug_level > 0 THEN
1612: oe_debug_pub.add( 'SHIP TO CONTACT ID= '||L_HEADER_REC.SHIP_TO_CONTACT_ID ) ;
1613: END IF;
1614: IF l_debug_level > 0 THEN
1615: oe_debug_pub.add( 'SOLD TO CONTACT ID = '||L_HEADER_REC.SOLD_TO_CONTACT_ID ) ;
1616: END IF;
1617:
1618: BEGIN
1619: SELECT a.person_last_name, a.person_first_name
1626: AND b.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
1627: AND b.OBJECT_TABLE_NAME = 'HZ_PARTIES'
1628: AND b.DIRECTIONAL_FLAG = 'F';
1629: IF l_debug_level > 0 THEN
1630: oe_debug_pub.add( 'SOLD TO CONTACT = '||L_HEADER_VAL_REC.SOLD_TO_CONTACT_LAST_NAME ) ;
1631: END IF;
1632: EXCEPTION
1633: WHEN OTHERS THEN
1634: NULL;
1632: EXCEPTION
1633: WHEN OTHERS THEN
1634: NULL;
1635: IF l_debug_level > 0 THEN
1636: oe_debug_pub.add( 'UNABLE TO DERIVE SOLD_TO_CONTACT LAST NAME FOR HEAD' ) ;
1637: END IF;
1638: END;
1639:
1640: BEGIN
1649: AND b.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
1650: AND b.OBJECT_TABLE_NAME = 'HZ_PARTIES'
1651: AND b.DIRECTIONAL_FLAG = 'F';
1652: IF l_debug_level > 0 THEN
1653: oe_debug_pub.add( 'SHIP TO CONTACT = '||L_HEADER_VAL_REC.SHIP_TO_CONTACT_LAST_NAME ) ;
1654: END IF;
1655: EXCEPTION
1656: WHEN OTHERS THEN
1657: NULL;
1655: EXCEPTION
1656: WHEN OTHERS THEN
1657: NULL;
1658: IF l_debug_level > 0 THEN
1659: oe_debug_pub.add( 'UNABLE TO DERIVE SHIP_TO_CONTACT LAST NAME FOR HEAD' ) ;
1660: END IF;
1661: END;
1662: l_header_val_rec.order_type := OE_Id_To_Value.Order_Type
1663: ( p_order_type_id => l_header_rec.order_type_id );
1662: l_header_val_rec.order_type := OE_Id_To_Value.Order_Type
1663: ( p_order_type_id => l_header_rec.order_type_id );
1664:
1665: IF l_debug_level > 0 THEN
1666: oe_debug_pub.add( 'L_HEADER_REC: '||L_HEADER_VAL_REC.ORDER_TYPE ) ;
1667: END IF;
1668: l_header_val_rec.payment_term := OE_Id_To_Value.Payment_Term
1669: ( p_payment_term_id => l_header_rec.payment_term_id );
1670: IF l_debug_level > 0 THEN
1667: END IF;
1668: l_header_val_rec.payment_term := OE_Id_To_Value.Payment_Term
1669: ( p_payment_term_id => l_header_rec.payment_term_id );
1670: IF l_debug_level > 0 THEN
1671: oe_debug_pub.add( 'L_HEADER_REC: PAYMENT TERM :'||L_HEADER_VAL_REC.PAYMENT_TERM ) ;
1672: END IF;
1673:
1674: l_header_val_rec.price_list := OE_Id_To_Value.Price_List
1675: ( p_price_list_id => l_header_rec.price_list_id );
1673:
1674: l_header_val_rec.price_list := OE_Id_To_Value.Price_List
1675: ( p_price_list_id => l_header_rec.price_list_id );
1676: IF l_debug_level > 0 THEN
1677: oe_debug_pub.add( 'L_HEADER_REC: PRICE LIST '||L_HEADER_VAL_REC.PRICE_LIST ) ;
1678: END IF;
1679: IF l_debug_level > 0 THEN
1680: oe_debug_pub.add( 'L_HEADER_REC: ORDER_CATEGORY_CODE '||L_HEADER_REC.ORDER_CATEGORY_CODE ) ;
1681: END IF;
1676: IF l_debug_level > 0 THEN
1677: oe_debug_pub.add( 'L_HEADER_REC: PRICE LIST '||L_HEADER_VAL_REC.PRICE_LIST ) ;
1678: END IF;
1679: IF l_debug_level > 0 THEN
1680: oe_debug_pub.add( 'L_HEADER_REC: ORDER_CATEGORY_CODE '||L_HEADER_REC.ORDER_CATEGORY_CODE ) ;
1681: END IF;
1682:
1683: l_header_val_rec.salesrep := OE_Id_To_Value.salesrep
1684: ( p_salesrep_id => l_header_rec.salesrep_id
1758: x_invoice_to_customer_name => l_header_val_rec.invoice_to_customer_name);
1759:
1760:
1761: IF l_debug_level > 0 THEN
1762: oe_debug_pub.add( 'L_HEADER_REC: SALES REP '||L_HEADER_VAL_REC.SALESREP ) ;
1763: END IF;
1764:
1765: BEGIN
1766: SELECT a.person_last_name, a.person_first_name
1773: AND b.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
1774: AND b.OBJECT_TABLE_NAME = 'HZ_PARTIES'
1775: AND b.DIRECTIONAL_FLAG = 'F';
1776: IF l_debug_level > 0 THEN
1777: oe_debug_pub.add( 'INVOICE TO CONTACT = '||L_HEADER_VAL_REC.INVOICE_TO_CONTACT_LAST_NAME ) ;
1778: END IF;
1779:
1780:
1781: IF l_debug_level > 0 THEN
1778: END IF;
1779:
1780:
1781: IF l_debug_level > 0 THEN
1782: oe_debug_pub.add( 'L_HEADER_REC: PAYMENT TERM :'||L_HEADER_VAL_REC.PAYMENT_TERM ) ;
1783: END IF;
1784:
1785:
1786: EXCEPTION
1786: EXCEPTION
1787: WHEN OTHERS THEN
1788: NULL;
1789: IF l_debug_level > 0 THEN
1790: oe_debug_pub.add( 'UNABLE TO DERIVE LAST/FIRST NAME FOR HEADER' ) ;
1791: END IF;
1792: END;
1793:
1794: /* -------------------------------------------------------------
1797: the l_ack_req_flag value.
1798: -------------------------------------------------------------
1799: */
1800: IF l_debug_level > 0 THEN
1801: oe_debug_pub.add( 'L_ACK_REQ_FLAG = '||L_ACK_REQ_FLAG , 3 ) ;
1802: END IF;
1803:
1804: IF l_ack_req_flag IN ('B', 'H')
1805: OR l_header_rec.first_ack_code is null THEN
1803:
1804: IF l_ack_req_flag IN ('B', 'H')
1805: OR l_header_rec.first_ack_code is null THEN
1806: IF l_debug_level > 0 THEN
1807: oe_debug_pub.add( 'BEFORE INSERTING HEADER ACKNOWLEDGMENT RECORD' , 3 ) ;
1808: END IF;
1809: IF l_debug_level > 0 THEN
1810: oe_debug_pub.add( 'EDI LOCATION CODE'||L_HEADER_REC.SHIP_FROM_EDI_LOCATION_CODE ) ;
1811: END IF;
1806: IF l_debug_level > 0 THEN
1807: oe_debug_pub.add( 'BEFORE INSERTING HEADER ACKNOWLEDGMENT RECORD' , 3 ) ;
1808: END IF;
1809: IF l_debug_level > 0 THEN
1810: oe_debug_pub.add( 'EDI LOCATION CODE'||L_HEADER_REC.SHIP_FROM_EDI_LOCATION_CODE ) ;
1811: END IF;
1812:
1813: l_rejected_lines := 'Y';
1814: /* Bug 2416561 : Calling the Convert_Miss_To_Null for the id records */
1834: -- Insert Line Information
1835:
1836: -- Check if line acknowledgment need to be sent
1837: IF l_debug_level > 0 THEN
1838: oe_debug_pub.add( 'CHECK IF LINE ACKNOWLEDGMENT NEED TO BE SENT' ) ;
1839: END IF;
1840: IF l_debug_level > 0 THEN
1841: oe_debug_pub.add( 'L_ACK_REQ_FLAG'|| L_ACK_REQ_FLAG ) ;
1842: END IF;
1837: IF l_debug_level > 0 THEN
1838: oe_debug_pub.add( 'CHECK IF LINE ACKNOWLEDGMENT NEED TO BE SENT' ) ;
1839: END IF;
1840: IF l_debug_level > 0 THEN
1841: oe_debug_pub.add( 'L_ACK_REQ_FLAG'|| L_ACK_REQ_FLAG ) ;
1842: END IF;
1843: IF l_debug_level > 0 THEN
1844: oe_debug_pub.add( 'L_HEADER_REC.FIRST_ACK_CODE :'||L_HEADER_REC.FIRST_ACK_CODE ) ;
1845: END IF;
1840: IF l_debug_level > 0 THEN
1841: oe_debug_pub.add( 'L_ACK_REQ_FLAG'|| L_ACK_REQ_FLAG ) ;
1842: END IF;
1843: IF l_debug_level > 0 THEN
1844: oe_debug_pub.add( 'L_HEADER_REC.FIRST_ACK_CODE :'||L_HEADER_REC.FIRST_ACK_CODE ) ;
1845: END IF;
1846: IF l_ack_req_flag = 'B'
1847: OR l_header_rec.first_ack_code is null THEN
1848: IF l_debug_level > 0 THEN
1845: END IF;
1846: IF l_ack_req_flag = 'B'
1847: OR l_header_rec.first_ack_code is null THEN
1848: IF l_debug_level > 0 THEN
1849: oe_debug_pub.add( 'BEFORE INSERTING LINE ACKNOWLEDGMENT RECORD' , 3 ) ;
1850: END IF;
1851: OE_Line_Ack_Util.Insert_Row
1852: (p_line_tbl => l_line_tbl
1853: , p_line_val_tbl => l_line_val_tbl
1866:
1867: -- Insert Lots Information
1868:
1869: IF l_debug_level > 0 THEN
1870: oe_debug_pub.add( 'BEFORE INSERTING LINE LOTSERIAL ACKNOWLEDGMENT RECORD' , 3 ) ;
1871: END IF;
1872:
1873: OE_Lots_Ack_Util.Insert_Row
1874: ( p_lot_serial_tbl => l_lot_serial_tbl
1891: -- Call Get_Reject_Line to get rejected lines and Lotserials
1892: -- if l_rejected_line = 'Y'
1893:
1894: IF l_debug_level > 0 THEN
1895: oe_debug_pub.add('before getting rejected lines' , 3 ) ;
1896: oe_debug_pub.add('Order_source_id ' || l_header_rec.order_source_id);
1897: oe_debug_pub.add('Request_id ' || l_header_rec.request_id);
1898: oe_debug_pub.add('Orig_Sys_Doc '|| l_header_rec.orig_sys_document_ref);
1899: oe_debug_pub.add('Change_Seq ' || l_header_rec.change_sequence);
1892: -- if l_rejected_line = 'Y'
1893:
1894: IF l_debug_level > 0 THEN
1895: oe_debug_pub.add('before getting rejected lines' , 3 ) ;
1896: oe_debug_pub.add('Order_source_id ' || l_header_rec.order_source_id);
1897: oe_debug_pub.add('Request_id ' || l_header_rec.request_id);
1898: oe_debug_pub.add('Orig_Sys_Doc '|| l_header_rec.orig_sys_document_ref);
1899: oe_debug_pub.add('Change_Seq ' || l_header_rec.change_sequence);
1900: END IF;
1893:
1894: IF l_debug_level > 0 THEN
1895: oe_debug_pub.add('before getting rejected lines' , 3 ) ;
1896: oe_debug_pub.add('Order_source_id ' || l_header_rec.order_source_id);
1897: oe_debug_pub.add('Request_id ' || l_header_rec.request_id);
1898: oe_debug_pub.add('Orig_Sys_Doc '|| l_header_rec.orig_sys_document_ref);
1899: oe_debug_pub.add('Change_Seq ' || l_header_rec.change_sequence);
1900: END IF;
1901:
1894: IF l_debug_level > 0 THEN
1895: oe_debug_pub.add('before getting rejected lines' , 3 ) ;
1896: oe_debug_pub.add('Order_source_id ' || l_header_rec.order_source_id);
1897: oe_debug_pub.add('Request_id ' || l_header_rec.request_id);
1898: oe_debug_pub.add('Orig_Sys_Doc '|| l_header_rec.orig_sys_document_ref);
1899: oe_debug_pub.add('Change_Seq ' || l_header_rec.change_sequence);
1900: END IF;
1901:
1902: OE_Rejected_Lines_Ack.Get_Rejected_Lines
1895: oe_debug_pub.add('before getting rejected lines' , 3 ) ;
1896: oe_debug_pub.add('Order_source_id ' || l_header_rec.order_source_id);
1897: oe_debug_pub.add('Request_id ' || l_header_rec.request_id);
1898: oe_debug_pub.add('Orig_Sys_Doc '|| l_header_rec.orig_sys_document_ref);
1899: oe_debug_pub.add('Change_Seq ' || l_header_rec.change_sequence);
1900: END IF;
1901:
1902: OE_Rejected_Lines_Ack.Get_Rejected_Lines
1903: ( p_request_id => l_header_rec.request_id
1923: -- Insert rejected lines and lotserials only if got any rejected records
1924:
1925: IF l_reject_line_tbl.COUNT > 0 THEN
1926: IF l_debug_level > 0 THEN
1927: oe_debug_pub.add( 'BEFORE INSERTING REJECTED LINES' , 3 ) ;
1928: END IF;
1929:
1930: OE_Line_Ack_Util.Insert_Row
1931: (p_line_tbl => l_reject_line_tbl
1944: END IF;
1945:
1946: IF l_reject_lot_serial_tbl.COUNT > 0 THEN
1947: IF l_debug_level > 0 THEN
1948: oe_debug_pub.add( 'BEFORE INSERTING REJECTED LINE LOTSERIALS' , 3 ) ;
1949: END IF;
1950:
1951: OE_Lots_Ack_Util.Insert_Row
1952: (p_lot_serial_tbl => l_reject_lot_serial_tbl
1972:
1973: x_return_status := FND_API.G_RET_STS_SUCCESS;
1974:
1975: IF l_debug_level > 0 THEN -- debug level changed to 0.5 for bug 13435459
1976: oe_debug_pub.add( 'EXITING OE_ACKNOWLEDGMENT_PVT.PROCESS_ACKNOWLEDGMENT', 0.5);
1977: END IF;
1978:
1979: EXCEPTION
1980:
1979: EXCEPTION
1980:
1981: WHEN FND_API.G_EXC_ERROR THEN
1982: IF l_debug_level > 0 THEN
1983: oe_debug_pub.add( 'ENCOUNTERED ERROR EXCEPTION' , 2 ) ;
1984: END IF;
1985: x_return_status := FND_API.G_RET_STS_ERROR;
1986:
1987: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1985: x_return_status := FND_API.G_RET_STS_ERROR;
1986:
1987: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1988: IF l_debug_level > 0 THEN
1989: oe_debug_pub.add( 'ENCOUNTERED UNEXPECTED ERROR EXCEPTION'||SQLERRM , 1 ) ;
1990: END IF;
1991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1992:
1993: WHEN OTHERS THEN
1991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1992:
1993: WHEN OTHERS THEN
1994: IF l_debug_level > 0 THEN
1995: oe_debug_pub.add( 'ENCOUNTERED OTHERS ERROR EXCEPTION IN OE_ACKNOWLEDGMENT_PVT.PROCESS_ACKNOWLEDGMENT: '||SQLERRM , 1 ) ;
1996: END IF;
1997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1998:
1999: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2014: x_return_status Out NOCOPY /* file.sql.39 change */ VARCHAR2
2015: )
2016: Is
2017:
2018: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2019: l_status Varchar2(1);
2020: l_industry Varchar2(1);
2021: l_o_schema Varchar2(30);
2022: l_booked_flag Varchar2(1);
2055: l_sales_order_id Number;
2056: Begin
2057:
2058: If l_debug_level > 0 Then
2059: Oe_Debug_Pub.Add('Entering New Process Acknowledgment');
2060: End If;
2061:
2062: -- Check if EC is installed
2063: If Oe_Globals.G_EC_INSTALLED Is Null Then
2065: End If;
2066: If Oe_Globals.G_EC_INSTALLED <> 'Y' Then
2067: x_return_status := FND_API.G_RET_STS_SUCCESS;
2068: If l_debug_level > 0 Then
2069: oe_debug_pub.add('EC not installed');
2070: End If;
2071: -- Raise event to log message
2072: Return;
2073: End If;
2092: Exception
2093: When Others Then
2094: x_return_status := FND_API.G_RET_STS_SUCCESS;
2095: If l_debug_level > 0 Then
2096: oe_debug_pub.add('Exception in getting booked flag');
2097: End If;
2098: Return;
2099: End;
2100: Elsif l_line_tbl.count > 0 And
2108: -- that means that there were no header level changes
2109: -- but we still need the header record to perform tp check + send ack,
2110: -- so get it from the cache if possible
2111: IF l_debug_level > 0 THEN
2112: oe_debug_pub.add( 'Header Id in cache is : '||oe_order_cache.g_header_rec.header_id);
2113: END IF;
2114: IF OE_ORDER_CACHE.g_header_rec.header_id <> FND_API.G_MISS_NUM AND
2115: nvl(OE_ORDER_CACHE.g_header_rec.header_id,0) = l_line_tbl(l_line_index).header_id THEN
2116: l_header_rec := OE_ORDER_CACHE.g_header_rec;
2114: IF OE_ORDER_CACHE.g_header_rec.header_id <> FND_API.G_MISS_NUM AND
2115: nvl(OE_ORDER_CACHE.g_header_rec.header_id,0) = l_line_tbl(l_line_index).header_id THEN
2116: l_header_rec := OE_ORDER_CACHE.g_header_rec;
2117: IF l_debug_level > 0 THEN
2118: oe_debug_pub.add('Assigned header record from cache with booked flag '|| l_header_rec.booked_flag);
2119: END IF;
2120: ELSE
2121: -- end bug 4048709
2122: OE_Header_Util.Query_Row
2128: Exception
2129: When Others Then
2130: x_return_status := FND_API.G_RET_STS_SUCCESS;
2131: If l_debug_level > 0 Then
2132: oe_debug_pub.add('Exception in l_line_tbl.count > 0');
2133: End If;
2134: Return;
2135: End;
2136: Else
2136: Else
2137: -- Nothing to Acknowledge
2138: x_return_status := FND_API.G_RET_STS_SUCCESS;
2139: If l_debug_level > 0 Then
2140: oe_debug_pub.add('Exception else, Nothing to Acknowledge');
2141: End If;
2142: Return;
2143: End If;
2144:
2145: If G_CURR_SOLD_TO_ORG_ID = l_header_rec.sold_to_org_id and
2146: (G_TP_RET = FALSE Or G_PRIMARY_SETUP = FALSE) Then
2147: x_return_status := FND_API.G_RET_STS_SUCCESS;
2148: If l_debug_level > 0 Then
2149: oe_debug_pub.add('Transaction Not Enabled for Trading Partner');
2150: End If;
2151: -- Raise event to log message
2152: /*
2153: fnd_message.set_name('ONT', 'OE_OI_OUTBOUND_SETUP_ERR');
2182:
2183: l_tp_ret := FALSE;
2184:
2185: Begin
2186: Oe_Debug_Pub.Add('before select of sold to org id');
2187: Select /*MOAC_SQL_CHANGES*/ b.site_use_id, a.cust_acct_site_id
2188: Into l_site_use_id, l_address_id
2189: From hz_cust_site_uses b, hz_cust_acct_sites_all a
2190: Where a.cust_acct_site_id = b.cust_acct_site_id
2205: G_CURR_ADDRESS_ID := NULL;
2206: G_PRIMARY_SETUP := FALSE;
2207:
2208: If l_debug_level > 0 Then
2209: oe_debug_pub.add('No Primary Sold To set');
2210: End If;
2211: -- Raise event to log message
2212: /*
2213: fnd_message.set_name('ONT', 'OE_OI_TP_NOT_FOUND');
2235:
2236: When Others Then
2237: x_return_status := FND_API.G_RET_STS_SUCCESS;
2238: If l_debug_level > 0 Then
2239: oe_debug_pub.add('Not able to get primary sold to exception');
2240: End If;
2241: Return;
2242: End;
2243:
2258: IF l_tp_ret = FALSE Then
2259: G_TP_RET := FALSE;
2260: x_return_status := FND_API.G_RET_STS_SUCCESS;
2261: If l_debug_level > 0 Then
2262: oe_debug_pub.add('Transaction not enabled');
2263: End If;
2264: -- Raise event to log message
2265: Return;
2266: End If;
2279:
2280: -- bug 3439319 added this block instead of NULLing out the resv_qty
2281: Begin
2282: IF l_debug_level > 0 THEN
2283: oe_debug_pub.add('header_id => ' || l_line_tbl(I).header_id);
2284: oe_debug_pub.add('line_id => ' || l_line_tbl(I).line_id);
2285: oe_debug_pub.add('org_id => ' || l_line_tbl(I).org_id);
2286: END IF;
2287:
2280: -- bug 3439319 added this block instead of NULLing out the resv_qty
2281: Begin
2282: IF l_debug_level > 0 THEN
2283: oe_debug_pub.add('header_id => ' || l_line_tbl(I).header_id);
2284: oe_debug_pub.add('line_id => ' || l_line_tbl(I).line_id);
2285: oe_debug_pub.add('org_id => ' || l_line_tbl(I).org_id);
2286: END IF;
2287:
2288: l_sales_order_id := OE_SCHEDULE_UTIL.Get_mtl_sales_order_id(l_line_tbl(I).header_id);
2281: Begin
2282: IF l_debug_level > 0 THEN
2283: oe_debug_pub.add('header_id => ' || l_line_tbl(I).header_id);
2284: oe_debug_pub.add('line_id => ' || l_line_tbl(I).line_id);
2285: oe_debug_pub.add('org_id => ' || l_line_tbl(I).org_id);
2286: END IF;
2287:
2288: l_sales_order_id := OE_SCHEDULE_UTIL.Get_mtl_sales_order_id(l_line_tbl(I).header_id);
2289:
2287:
2288: l_sales_order_id := OE_SCHEDULE_UTIL.Get_mtl_sales_order_id(l_line_tbl(I).header_id);
2289:
2290: IF l_debug_level > 0 THEN
2291: oe_debug_pub.add('l_sales_order_id => ' || l_sales_order_id);
2292: END IF;
2293:
2294: l_line_tbl(I).reserved_quantity := oe_line_util.Get_Reserved_Quantity (
2295: p_header_id => l_sales_order_id,
2295: p_header_id => l_sales_order_id,
2296: p_line_id => p_line_tbl(I).line_id,
2297: p_org_id => p_line_tbl(I).org_id);
2298: IF l_debug_level > 0 THEN
2299: oe_debug_pub.add('Reserved_Qty => ' || l_line_tbl(I).reserved_quantity);
2300: END IF;
2301:
2302: Exception
2303: When Others Then
2341:
2342: if (l_line_tbl(I).operation is NULL OR
2343: l_line_tbl(I).operation = FND_API.G_MISS_CHAR ) THEN
2344: l_line_tbl(I).operation := NULL; -- for bug 4764583/5178052
2345: oe_debug_pub.add(' Setting Operation G_MISS_CHAR to NULL');
2346: end if;
2347:
2348: i := l_line_tbl.next(i);
2349:
2407:
2408: exception
2409: when others then
2410: If l_debug_level > 0 Then
2411: oe_debug_pub.add('OTHERS EXCEPTION WHEN DERIVING SOLD TO ORG');
2412: End If;
2413: end;
2414:
2415: OE_Rejected_Lines_Ack.Get_Rejected_Lines
2476:
2477: Exception
2478: When Others Then
2479: If l_debug_level >0 Then
2480: Oe_Debug_Pub.Add('When Others in new Process_Acknowledgment');
2481: Oe_Debug_Pub.Add('Error: '||sqlerrm);
2482: End If;
2483:
2484: End Process_Acknowledgment;
2477: Exception
2478: When Others Then
2479: If l_debug_level >0 Then
2480: Oe_Debug_Pub.Add('When Others in new Process_Acknowledgment');
2481: Oe_Debug_Pub.Add('Error: '||sqlerrm);
2482: End If;
2483:
2484: End Process_Acknowledgment;
2485: