[Home] [Help]
37: Procedure Set_Recursion_Mode (p_Entity_Code number,
38: p_In_Out number := 1)
39: IS
40: --
41: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
42: --
43: Begin
44: IF l_debug_level > 0 THEN
45: oe_debug_pub.add( 'ENTER SET RECURSION MODE' , 1 ) ;
41: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
42: --
43: Begin
44: IF l_debug_level > 0 THEN
45: oe_debug_pub.add( 'ENTER SET RECURSION MODE' , 1 ) ;
46: oe_debug_pub.add( 'ENTITY CODE-'||P_ENTITY_CODE , 1 ) ;
47: oe_debug_pub.add( 'ENTRY-EXIT MODE -'||P_IN_OUT , 1 ) ;
48: oe_debug_pub.add( 'RECURSION MODE AT ENTRY -' || OE_GLOBALS.G_RECURSION_MODE , 1 ) ;
49: oe_debug_pub.add( 'RECURSION MODE WITHOUT EXP AT ENTRY -' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
42: --
43: Begin
44: IF l_debug_level > 0 THEN
45: oe_debug_pub.add( 'ENTER SET RECURSION MODE' , 1 ) ;
46: oe_debug_pub.add( 'ENTITY CODE-'||P_ENTITY_CODE , 1 ) ;
47: oe_debug_pub.add( 'ENTRY-EXIT MODE -'||P_IN_OUT , 1 ) ;
48: oe_debug_pub.add( 'RECURSION MODE AT ENTRY -' || OE_GLOBALS.G_RECURSION_MODE , 1 ) ;
49: oe_debug_pub.add( 'RECURSION MODE WITHOUT EXP AT ENTRY -' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
50: END IF;
43: Begin
44: IF l_debug_level > 0 THEN
45: oe_debug_pub.add( 'ENTER SET RECURSION MODE' , 1 ) ;
46: oe_debug_pub.add( 'ENTITY CODE-'||P_ENTITY_CODE , 1 ) ;
47: oe_debug_pub.add( 'ENTRY-EXIT MODE -'||P_IN_OUT , 1 ) ;
48: oe_debug_pub.add( 'RECURSION MODE AT ENTRY -' || OE_GLOBALS.G_RECURSION_MODE , 1 ) ;
49: oe_debug_pub.add( 'RECURSION MODE WITHOUT EXP AT ENTRY -' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
50: END IF;
51:
44: IF l_debug_level > 0 THEN
45: oe_debug_pub.add( 'ENTER SET RECURSION MODE' , 1 ) ;
46: oe_debug_pub.add( 'ENTITY CODE-'||P_ENTITY_CODE , 1 ) ;
47: oe_debug_pub.add( 'ENTRY-EXIT MODE -'||P_IN_OUT , 1 ) ;
48: oe_debug_pub.add( 'RECURSION MODE AT ENTRY -' || OE_GLOBALS.G_RECURSION_MODE , 1 ) ;
49: oe_debug_pub.add( 'RECURSION MODE WITHOUT EXP AT ENTRY -' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
50: END IF;
51:
52: IF p_entity_code = 1 THEN
45: oe_debug_pub.add( 'ENTER SET RECURSION MODE' , 1 ) ;
46: oe_debug_pub.add( 'ENTITY CODE-'||P_ENTITY_CODE , 1 ) ;
47: oe_debug_pub.add( 'ENTRY-EXIT MODE -'||P_IN_OUT , 1 ) ;
48: oe_debug_pub.add( 'RECURSION MODE AT ENTRY -' || OE_GLOBALS.G_RECURSION_MODE , 1 ) ;
49: oe_debug_pub.add( 'RECURSION MODE WITHOUT EXP AT ENTRY -' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
50: END IF;
51:
52: IF p_entity_code = 1 THEN
53: IF p_In_Out = 1 THEN
288: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
289: NULL;
290: END IF;
291: IF l_debug_level > 0 THEN
292: oe_debug_pub.add( 'RECURSION MODE AT EXIT -' || OE_GLOBALS.G_RECURSION_MODE , 1 ) ;
293: oe_debug_pub.add( 'RECURSION MODE WITHOUT EXP AT EXIT -' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
294: END IF;
295: End Set_Recursion_Mode ;
296:
289: NULL;
290: END IF;
291: IF l_debug_level > 0 THEN
292: oe_debug_pub.add( 'RECURSION MODE AT EXIT -' || OE_GLOBALS.G_RECURSION_MODE , 1 ) ;
293: oe_debug_pub.add( 'RECURSION MODE WITHOUT EXP AT EXIT -' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
294: END IF;
295: End Set_Recursion_Mode ;
296:
297:
324: FUNCTION Valid_Upgraded_Order(p_header_id Number)
325: RETURN Boolean
326: IS
327: --
328: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
329: --
330: BEGIN
331:
332: IF l_debug_level > 0 THEN
329: --
330: BEGIN
331:
332: IF l_debug_level > 0 THEN
333: oe_debug_pub.add( 'ENTER VALID UPGRADED ORDER' ) ;
334: END IF;
335: IF (NOT OE_GLOBALS.EQUAL(p_header_id, g_header_id)) OR
336: -- aksingh perf removing OR part of below condition as not required
337: -- (g_header_id IS NULL OR g_upgraded_flag IS NULL)
345: END IF;
346:
347: IF g_upgraded_flag IN ('P','I') THEN
348: IF l_debug_level > 0 THEN
349: oe_debug_pub.add( 'ORDER PARTIALLY UPGRADED ' ) ;
350: END IF;
351: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_UPG_ORDER');
352: OE_MSG_PUB.Add;
353: RETURN FALSE;
353: RETURN FALSE;
354: END IF;
355:
356: IF l_debug_level > 0 THEN
357: oe_debug_pub.add( 'EXIT VALID UPGRADED ORDER ' ) ;
358: END IF;
359: RETURN TRUE;
360:
361: EXCEPTION
392: l_on_operation_action NUMBER;
393: x_msg_count NUMBER;
394: x_msg_data VARCHAR2(2000);
395: --
396: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
397: l_org_id number ;
398: --
399: BEGIN
400: --Moac changes start
415:
416: x_return_status := FND_API.G_RET_STS_SUCCESS;
417:
418: IF l_debug_level > 0 THEN
419: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.HEADER ' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
420: END IF;
421:
422: -- This is to check if the order is an upgraded order and is upgraded
423: -- correctly
423: -- correctly
424: IF p_x_header_rec.operation <> OE_GLOBALS.G_OPR_CREATE THEN
425:
426: IF l_debug_level > 0 THEN
427: oe_debug_pub.add( 'BEFORE CALLING VALID UPGRADE ORDER' , 2 ) ;
428: END IF;
429: IF NOT Valid_Upgraded_Order(p_x_header_rec.header_id ) THEN
430: RAISE FND_API.G_EXC_ERROR;
431: END IF;
474: , p_control_rec => p_control_rec
475: );
476:
477: IF l_debug_level > 0 THEN
478: oe_debug_pub.add( 'OE_ORDER_PVT.HEADER AFTER INIT CONTROL REC' , 2 ) ;
479: END IF;
480:
481: -- Set record return status.
482:
486:
487: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
488:
489: IF l_debug_level > 0 THEN
490: oe_debug_pub.add( 'OPERATION = CREATE SO SET OLD TO NULL' , 2 ) ;
491: END IF;
492: p_x_header_rec.db_flag := FND_API.G_FALSE;
493:
494: -- Set missing old record elements to NULL.
499: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_DELETE
500: THEN
501:
502: IF l_debug_level > 0 THEN
503: oe_debug_pub.add( 'OPERATION = UPDATE SO QUERY OLD' , 2 ) ;
504: END IF;
505:
506: p_x_header_rec.db_flag := FND_API.G_TRUE;
507:
510: IF p_x_old_header_rec.header_id = FND_API.G_MISS_NUM
511: OR p_x_old_header_rec.header_id IS NULL
512: THEN
513: IF l_debug_level > 0 THEN
514: oe_debug_pub.add( 'QUERYING OLD HEADER REC' ,0.5 ) ; --debug level 0.5 added for bug 13435459
515: END IF;
516:
517: OE_Header_Util.Query_Row
518: ( p_header_id => p_x_header_rec.header_id
519: , x_header_rec => p_x_old_header_rec
520: );
521:
522: IF l_debug_level > 0 THEN
523: oe_debug_pub.add( 'AFTER QUERYING OLD HEADER REC' ,0.5 ) ; --debug level 0.5 added for bug 13435459
524: END IF;
525:
526: ELSE
527:
531:
532: END IF;
533:
534: IF l_debug_level > 0 THEN
535: oe_debug_pub.add( 'CALLING COMPLETE RECORD' , 0.5 ) ; --debug level changed to 0.5 for bug 13435459
536: END IF;
537:
538: -- Complete new record from old
539:
542: , p_old_header_rec => p_x_old_header_rec
543: );
544:
545: IF l_debug_level > 0 THEN
546: oe_debug_pub.add( 'AFTER CALLING COMPLETE RECORD' , 0.5 ) ; --debug level changed to 0.5 for bug 13435459
547: END IF;
548:
549: OE_MSG_PUB.update_msg_context(
550: p_entity_code => 'HEADER'
570: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
571: THEN
572:
573: IF l_debug_level > 0 THEN
574: oe_debug_pub.add( 'CALLING CHECK ATTRIBUTES SECURITY',0.5 ) ; -- debug level 0.5 added for bug 13435459
575: END IF;
576: -- check if this operation is allowed
577: -- on all the changed attributes
578: OE_Header_Security.Attributes
582: , x_return_status => l_return_status
583: );
584:
585: IF l_debug_level > 0 THEN
586: oe_debug_pub.add( 'AFTER CHECK ATTRIBUTES SECURITY',0.5 ) ; -- debug added for bug 13435459
587: END IF;
588:
589: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
602:
603: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
604:
605: IF l_debug_level > 0 THEN
606: oe_debug_pub.add( 'CALLING VALIDATE ATTRIBUTES' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
607: END IF;
608:
609: OE_Validate_Header.Attributes
610: ( x_return_status => l_return_status
613: , p_validation_level => p_validation_level
614: );
615:
616: IF l_debug_level > 0 THEN
617: oe_debug_pub.add( 'AFTER VALIDATE ATTRIBUTES' , 0.5 ) ; -- debug added for bug 13435459
618: END IF;
619:
620: IF p_validation_level <> OE_GLOBALS.G_VALID_LEVEL_PARTIAL THEN
621: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
631:
632: IF l_control_rec.clear_dependents THEN
633:
634: IF l_debug_level > 0 THEN
635: oe_debug_pub.add( 'CLEAR DEPENDENT' , 0.5 ) ; -- debug level 0.5 added for bug 13435459
636: END IF;
637:
638: OE_Header_Util.Clear_Dependent_Attr
639: ( p_x_header_rec => p_x_header_rec
640: , p_old_header_rec => p_x_old_header_rec
641: );
642:
643: IF l_debug_level > 0 THEN
644: oe_debug_pub.add( 'AFTER CLEAR DEPENDENT' , 0.5 ) ; -- debug added for bug 13435459
645: END IF;
646: END IF;
647:
648: -- Default missing attributes
650: IF l_control_rec.default_attributes
651: THEN
652:
653: IF l_debug_level > 0 THEN
654: oe_debug_pub.add( 'DEFAULT MISSING' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
655: END IF;
656:
657: OE_Default_Header.Attributes
658: ( p_x_header_rec => p_x_header_rec
661:
662: END IF;
663:
664: IF l_debug_level > 0 THEN
665: oe_debug_pub.add( 'AFTER DEFAULT MISSING' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
666: END IF;
667:
668: -- Apply attribute changes
669:
670: IF l_control_rec.change_attributes
671: THEN
672:
673: IF l_debug_level > 0 THEN
674: oe_debug_pub.add( 'APPLY ATTRIBUTE CHANGES' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
675:
676: END IF;
677:
678: OE_Header_Util.Apply_Attribute_Changes
680: , p_old_header_rec => p_x_old_header_rec
681: );
682:
683: IF l_debug_level > 0 THEN
684: oe_debug_pub.add( 'AFTER APPLY ATTRIBUTE CHANGES' , 0.5 ) ; -- debug added for bug 13435459
685: END IF;
686:
687: END IF;
688:
692: and p_x_header_rec.cancelled_flag<>'Y' --added for bug 6494347
693: THEN
694:
695: IF l_debug_level > 0 THEN
696: oe_debug_pub.add( 'VALIDATE ENTITY' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
697: END IF;
698:
699: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
700:
715:
716: END IF;
717:
718: IF l_debug_level > 0 THEN
719: oe_debug_pub.add( 'AFTER VALIDATE ENTITY' , 0.5 ) ; -- debug added for bug 13435459
720: END IF;
721:
722: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
742: AND OE_Header_Security.g_check_all_cols_constraint = 'Y')
743: AND l_control_rec.check_security
744: THEN
745: IF l_debug_level > 0 THEN
746: oe_debug_pub.add( 'CHECK ENTITY SECURITY' ,0.5 ) ; --debug level 0.5 added for bug 13435459
747: END IF;
748:
749: OE_Header_Security.Entity
750: (p_header_rec => p_x_header_rec
752: , x_return_status => l_return_status
753: );
754:
755: IF l_debug_level > 0 THEN
756: oe_debug_pub.add( 'AFTER CHECK ENTITY SECURITY' ,0.5 ) ; --debug added for bug 13435459
757: END IF;
758:
759: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
776:
777: IF l_control_rec.write_to_db THEN
778:
779: IF l_debug_level > 0 THEN
780: oe_debug_pub.add( 'WRITE TO DB' , 0.5 ) ; --debug level changed to 0.5 fro bug 13435459
781: END IF;
782:
783: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
784:
800:
801: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
802:
803: IF l_debug_level > 0 THEN
804: oe_debug_pub.add( 'HEADER FLOW STATUS :'||P_X_HEADER_REC.FLOW_STATUS_CODE , 1 ) ;
805: END IF;
806: OE_Header_Util.Update_Row (p_x_header_rec);
807:
808: ELSIF p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
814: l_resp_id := FND_GLOBAL.RESP_ID;
815: l_application_id := FND_GLOBAL.RESP_APPL_ID;
816:
817: IF l_debug_level > 0 THEN
818: oe_debug_pub.add( 'USER ID IS '|| L_USER_ID ) ;
819: oe_debug_pub.add( 'RESP ID IS '|| L_RESP_ID ) ;
820: oe_debug_pub.add( 'APPL ID IS '|| L_APPLICATION_ID ) ;
821: END IF;
822:
815: l_application_id := FND_GLOBAL.RESP_APPL_ID;
816:
817: IF l_debug_level > 0 THEN
818: oe_debug_pub.add( 'USER ID IS '|| L_USER_ID ) ;
819: oe_debug_pub.add( 'RESP ID IS '|| L_RESP_ID ) ;
820: oe_debug_pub.add( 'APPL ID IS '|| L_APPLICATION_ID ) ;
821: END IF;
822:
823:
816:
817: IF l_debug_level > 0 THEN
818: oe_debug_pub.add( 'USER ID IS '|| L_USER_ID ) ;
819: oe_debug_pub.add( 'RESP ID IS '|| L_RESP_ID ) ;
820: oe_debug_pub.add( 'APPL ID IS '|| L_APPLICATION_ID ) ;
821: END IF;
822:
823:
824: OE_Header_Util.Insert_Row (p_x_header_rec);
844:
845: OE_Header_Security.g_check_all_cols_constraint := 'Y';
846:
847: IF l_debug_level > 0 THEN
848: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.HEADER' , 0.5 ) ; --debug level 0.5 added for bug13435459
849: END IF;
850: OE_MSG_PUB.reset_msg_context('HEADER');
851:
852: set_recursion_mode(p_Entity_Code => 2,
862: x_return_status := FND_API.G_RET_STS_ERROR;
863: OE_Header_Security.g_check_all_cols_constraint := 'Y';
864: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
865: IF l_debug_level > 0 THEN
866: oe_debug_pub.add( 'DELETE REQUEST1' , 2 ) ;
867: END IF;
868: OE_Delayed_Requests_Pvt.Clear_Request
869: (x_return_status => l_return_status);
870: END IF;
878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
879: OE_Header_Security.g_check_all_cols_constraint := 'Y';
880: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
881: IF l_debug_level > 0 THEN
882: oe_debug_pub.add( 'DELETE REQUEST2' , 2 ) ;
883: END IF;
884: OE_Delayed_Requests_Pvt.Clear_Request
885: (x_return_status => l_return_status);
886: END IF;
902: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
903: OE_Header_Security.g_check_all_cols_constraint := 'Y';
904: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
905: IF l_debug_level > 0 THEN
906: oe_debug_pub.add( 'DELETE REQUEST3' , 2 ) ;
907: END IF;
908: OE_Delayed_Requests_Pvt.Clear_Request
909: (x_return_status => l_return_status);
910: END IF;
946: l_booked_flag VARCHAR2(1);
947: l_quota_flag VARCHAR2(1);
948: --bug 5049879
949: --
950: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
951: l_org_id number ;
952: --
953: BEGIN
954:
977:
978: -- Init local table variables.
979:
980: IF l_debug_level > 0 THEN
981: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.HEADER_SCREDITS' , 1 ) ;
982: END IF;
983:
984: -- FOR I IN 1..p_x_Header_Scredit_tbl.COUNT LOOP
985:
1005: IF l_header_Scredit_rec.header_id IS NOT NULL AND
1006: l_header_Scredit_rec.header_id <> FND_API.G_MISS_NUM THEN
1007: BEGIN
1008: IF l_debug_level > 0 THEN
1009: oe_debug_pub.add('Getting reference data for header_id:'||l_header_Scredit_rec.header_id);
1010: END IF;
1011: SELECT order_source_id, orig_sys_document_ref, change_sequence,
1012: source_document_type_id, source_document_id
1013: INTO l_order_source_id, l_orig_sys_document_ref, l_change_sequence,
1048: l_old_header_Scredit_rec.header_id <> FND_API.G_MISS_NUM THEN
1049:
1050: BEGIN
1051: IF l_debug_level > 0 THEN
1052: oe_debug_pub.add('Getting reference data for old header_id:'||l_old_header_Scredit_rec.header_id);
1053: END IF;
1054: SELECT order_source_id, orig_sys_document_ref, change_sequence,
1055: source_document_type_id, source_document_id
1056: INTO l_order_source_id, l_orig_sys_document_ref, l_change_sequence,
1162: OR l_header_scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
1163: THEN
1164:
1165: IF l_debug_level > 0 THEN
1166: oe_debug_pub.add( 'CHECK ATTRIBUTES SECURITY' ) ;
1167: END IF;
1168: -- check if this operation is allowed
1169: -- on all the changed attributes
1170: OE_Header_Scredit_Security.Attributes
1283: AND OE_Header_Scredit_Security.g_check_all_cols_constraint = 'Y')
1284: AND l_control_rec.check_security
1285: THEN
1286: IF l_debug_level > 0 THEN
1287: oe_debug_pub.add( 'CHECK ENTITY SECURITY' ) ;
1288: END IF;
1289:
1290: OE_Header_Scredit_Security.Entity
1291: (p_header_scredit_rec => l_header_scredit_rec
1326: IF nvl(l_booked_flag, 'N') = 'Y' and nvl(l_quota_flag, 'N') = 'Y' THEN
1327: OE_Validate_Header_Scredit.Validate_HSC_TOTAL_FOR_BK(l_header_scredit_rec.return_status,
1328: l_header_scredit_rec.header_id);
1329: IF l_debug_level > 0 THEN
1330: oe_debug_pub.add('after delete_row and hdr validate_hsc_quota_total rt status : ' || l_header_scredit_rec.return_status);
1331: END IF;
1332: l_del_ret_status := l_header_scredit_rec.return_status; --bug 5331854
1333:
1334: END IF;
1389:
1390: IF l_control_Rec.Process_Partial THEN
1391: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1392: IF l_debug_level > 0 THEN
1393: oe_debug_pub.add( 'DELETE REQUEST4' , 2 ) ;
1394: END IF;
1395: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
1396: (p_entity_code =>OE_GLOBALS.G_ENTITY_HEADER_SCREDIT,
1397: p_entity_id => l_header_scredit_rec.sales_credit_id,
1441: I := p_x_Header_Scredit_tbl.NEXT(I);
1442: END LOOP;
1443:
1444: IF l_debug_level > 0 THEN
1445: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.HEADER_SCREDITS' , 1 ) ;
1446: END IF;
1447: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1448:
1449: set_recursion_mode(p_Entity_Code => 4,
1456: p_In_out => 0);
1457: x_return_status := FND_API.G_RET_STS_ERROR;
1458: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1459: IF l_debug_level > 0 THEN
1460: oe_debug_pub.add( 'DELETE REQUEST5' , 2 ) ;
1461: END IF;
1462: OE_Delayed_Requests_Pvt.Clear_Request
1463: (x_return_status => l_return_status);
1464: END IF;
1470: p_In_out => 0);
1471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1472: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1473: IF l_debug_level > 0 THEN
1474: oe_debug_pub.add( 'DELETE REQUEST6' , 2 ) ;
1475: END IF;
1476: OE_Delayed_Requests_Pvt.Clear_Request
1477: (x_return_status => l_return_status);
1478: END IF;
1484: p_In_out => 0);
1485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1486: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1487: IF l_debug_level > 0 THEN
1488: oe_debug_pub.add( 'DELETE REQUEST7' , 2 ) ;
1489: END IF;
1490: OE_Delayed_Requests_Pvt.Clear_Request
1491: (x_return_status => l_return_status);
1492: END IF;
1531: l_source_document_id NUMBER;
1532:
1533: I NUMBER; -- Used as index for while loop
1534: --
1535: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1536: l_org_id number ;
1537: --
1538: BEGIN
1539:
1560:
1561: -- Init local table variables.
1562:
1563: IF l_debug_level > 0 THEN
1564: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.HEADER_PAYMENTS' , 1 ) ;
1565: END IF;
1566:
1567: -- FOR I IN 1..p_x_Header_Payment_tbl.COUNT LOOP
1568:
1588: IF l_header_Payment_rec.header_id IS NOT NULL AND
1589: l_header_Payment_rec.header_id <> FND_API.G_MISS_NUM THEN
1590: BEGIN
1591: IF l_debug_level > 0 THEN
1592: oe_debug_pub.add('Getting reference data for header_id:'||l_header_Payment_rec.header_id);
1593: END IF;
1594: SELECT order_source_id, orig_sys_document_ref, change_sequence,
1595: source_document_type_id, source_document_id
1596: INTO l_order_source_id, l_orig_sys_document_ref, l_change_sequence,
1631: l_old_header_Payment_rec.header_id <> FND_API.G_MISS_NUM THEN
1632:
1633: BEGIN
1634: IF l_debug_level > 0 THEN
1635: oe_debug_pub.add('Getting reference data for old header_id:'||l_old_header_Payment_rec.header_id);
1636: END IF;
1637: SELECT order_source_id, orig_sys_document_ref, change_sequence,
1638: source_document_type_id, source_document_id
1639: INTO l_order_source_id, l_orig_sys_document_ref, l_change_sequence,
1691:
1692: -- Set missing old record elements to NULL.
1693:
1694: IF l_debug_level > 0 THEN
1695: oe_debug_pub.add('Payment:before OE_Header_Payment_Util.Convert_Miss_To_Null', 5);
1696: END IF;
1697: OE_Header_Payment_Util.Convert_Miss_To_Null (l_old_Header_Payment_rec);
1698: IF l_debug_level > 0 THEN
1699: oe_debug_pub.add('Payment:after OE_Header_Payment_Util.Convert_Miss_To_Null', 5);
1695: oe_debug_pub.add('Payment:before OE_Header_Payment_Util.Convert_Miss_To_Null', 5);
1696: END IF;
1697: OE_Header_Payment_Util.Convert_Miss_To_Null (l_old_Header_Payment_rec);
1698: IF l_debug_level > 0 THEN
1699: oe_debug_pub.add('Payment:after OE_Header_Payment_Util.Convert_Miss_To_Null', 5);
1700: END IF;
1701:
1702: ELSIF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1703: OR l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE
1711: OR l_old_Header_Payment_rec.payment_number IS NULL
1712: THEN
1713:
1714: IF l_debug_level > 0 THEN
1715: oe_debug_pub.add('Payment:before OE_Header_Payment_Util.Query_Row', 5);
1716: END IF;
1717: OE_Header_Payment_Util.Query_Row
1718: ( p_payment_number => l_Header_Payment_rec.payment_number
1719: , p_header_id => l_Header_Payment_rec.header_id
1719: , p_header_id => l_Header_Payment_rec.header_id
1720: , x_header_payment_rec => l_old_Header_Payment_rec
1721: );
1722: IF l_debug_level > 0 THEN
1723: oe_debug_pub.add('Payment:after OE_Header_Payment_Util.Query_Row', 5);
1724: END IF;
1725:
1726: ELSE
1727:
1727:
1728: -- Set missing old record elements to NULL.
1729:
1730: IF l_debug_level > 0 THEN
1731: oe_debug_pub.add('Payment:before OE_Header_Payment_Util.Convert_Miss_To_Null', 5);
1732: END IF;
1733: OE_Header_Payment_Util.Convert_Miss_To_Null (l_old_Header_Payment_rec);
1734: IF l_debug_level > 0 THEN
1735: oe_debug_pub.add('Payment:after OE_Header_Payment_Util.Convert_Miss_To_Null', 5);
1731: oe_debug_pub.add('Payment:before OE_Header_Payment_Util.Convert_Miss_To_Null', 5);
1732: END IF;
1733: OE_Header_Payment_Util.Convert_Miss_To_Null (l_old_Header_Payment_rec);
1734: IF l_debug_level > 0 THEN
1735: oe_debug_pub.add('Payment:after OE_Header_Payment_Util.Convert_Miss_To_Null', 5);
1736: END IF;
1737:
1738: END IF;
1739:
1739:
1740: -- Complete new record from old
1741:
1742: IF l_debug_level > 0 THEN
1743: oe_debug_pub.add('Payment:before OE_Header_Payment_Util.Complete_Record', 5);
1744: END IF;
1745: OE_Header_Payment_Util.Complete_Record
1746: ( p_x_Header_Payment_rec => l_Header_Payment_rec
1747: , p_old_Header_Payment_rec => l_old_Header_Payment_rec
1746: ( p_x_Header_Payment_rec => l_Header_Payment_rec
1747: , p_old_Header_Payment_rec => l_old_Header_Payment_rec
1748: );
1749: IF l_debug_level > 0 THEN
1750: oe_debug_pub.add('Payment:after OE_Header_Payment_Util.Complete_Record', 5);
1751: END IF;
1752:
1753: OE_MSG_PUB.update_msg_context(
1754: p_entity_code => 'HEADER_PAYMENT'
1770: OR l_header_payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
1771: THEN
1772:
1773: IF l_debug_level > 0 THEN
1774: oe_debug_pub.add( 'CHECK ATTRIBUTES SECURITY' ) ;
1775: END IF;
1776: -- check if this operation is allowed
1777: -- on all the changed attributes
1778: IF l_debug_level > 0 THEN
1775: END IF;
1776: -- check if this operation is allowed
1777: -- on all the changed attributes
1778: IF l_debug_level > 0 THEN
1779: oe_debug_pub.add('Payment:before OE_Header_Payment_Security.Attributes', 5);
1780: END IF;
1781: OE_Header_Payment_Security.Attributes
1782: (p_header_payment_rec => l_header_payment_rec
1783: , p_old_header_payment_rec => l_old_header_payment_rec
1784: , x_result => l_sec_result
1785: , x_return_status => l_return_status
1786: );
1787: IF l_debug_level > 0 THEN
1788: oe_debug_pub.add('Payment:after OE_Header_Payment_Security.Attributes', 5);
1789: END IF;
1790:
1791: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1792: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1803: -- Attribute level validation.
1804:
1805: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
1806: IF l_debug_level > 0 THEN
1807: oe_debug_pub.add('Payment:before OE_Validate_Header_Payment.Attributes', 5);
1808: END IF;
1809:
1810: OE_Validate_Header_Payment.Attributes
1811: ( x_return_status => l_return_status
1812: , p_Header_Payment_rec => l_Header_Payment_rec
1813: , p_old_Header_Payment_rec => l_old_Header_Payment_rec
1814: );
1815: IF l_debug_level > 0 THEN
1816: oe_debug_pub.add('Payment:after OE_Validate_Header_Payment.Attributes',5);
1817: END IF;
1818:
1819: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1829:
1830: IF l_control_rec.clear_dependents THEN
1831:
1832: IF l_debug_level > 0 THEN
1833: oe_debug_pub.add('Payment:before OE_Header_Payment_Util.Clear_Dependent_Attr', 5);
1834: END IF;
1835: OE_Header_Payment_Util.Clear_Dependent_Attr
1836: ( p_x_Header_Payment_rec => l_Header_Payment_rec
1837: , p_old_Header_Payment_rec => l_old_Header_Payment_rec
1836: ( p_x_Header_Payment_rec => l_Header_Payment_rec
1837: , p_old_Header_Payment_rec => l_old_Header_Payment_rec
1838: );
1839: IF l_debug_level > 0 THEN
1840: oe_debug_pub.add('Payment:after OE_Header_Payment_Util.Clear_Dependent_Attr', 5);
1841: END IF;
1842:
1843: END IF;
1844:
1846:
1847: IF l_control_rec.default_attributes
1848: THEN
1849: IF l_debug_level > 0 THEN
1850: oe_debug_pub.add('Payment:before OE_Default_Header_Payment.Attributes', 5);
1851: END IF;
1852:
1853: OE_Default_Header_Payment.Attributes
1854: ( p_x_Header_Payment_rec => l_Header_Payment_rec
1854: ( p_x_Header_Payment_rec => l_Header_Payment_rec
1855: , p_old_header_payment_rec => l_old_header_payment_rec
1856: );
1857: IF l_debug_level > 0 THEN
1858: oe_debug_pub.add('Payment:after OE_Default_Header_Payment.Attributes', 5);
1859: END IF;
1860:
1861: END IF;
1862:
1865: IF l_control_rec.change_attributes
1866: THEN
1867:
1868: IF l_debug_level > 0 THEN
1869: oe_debug_pub.add('Payment:before OE_Header_Payment_Util.Apply_Attribute_Changes', 5);
1870: END IF;
1871: OE_Header_Payment_Util.Apply_Attribute_Changes
1872: ( p_x_Header_Payment_rec => l_Header_Payment_rec
1873: , p_old_Header_Payment_rec => l_old_Header_Payment_rec
1872: ( p_x_Header_Payment_rec => l_Header_Payment_rec
1873: , p_old_Header_Payment_rec => l_old_Header_Payment_rec
1874: );
1875: IF l_debug_level > 0 THEN
1876: oe_debug_pub.add('Payment:after OE_Header_Payment_Util.Apply_Attribute_Changes', 5);
1877: END IF;
1878:
1879: END IF;
1880:
1884:
1885: IF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
1886:
1887: IF l_debug_level > 0 THEN
1888: oe_debug_pub.add('Payment:before OE_Validate_Header_Payment.Entity_Delete', 5);
1889: END IF;
1890: OE_Validate_Header_Payment.Entity_Delete
1891: ( x_return_status => l_return_status
1892: , p_Header_Payment_rec => l_Header_Payment_rec
1891: ( x_return_status => l_return_status
1892: , p_Header_Payment_rec => l_Header_Payment_rec
1893: );
1894: IF l_debug_level > 0 THEN
1895: oe_debug_pub.add('Payment:after OE_Validate_Header_Payment.Entity_Delete', 5);
1896: END IF;
1897:
1898: ELSE
1899: IF l_debug_level > 0 THEN
1896: END IF;
1897:
1898: ELSE
1899: IF l_debug_level > 0 THEN
1900: oe_debug_pub.add('Payment:before OE_Validate_Header_Payment.Entity',5);
1901: END IF;
1902:
1903: OE_Validate_Header_Payment.Entity
1904: ( x_return_status => l_return_status
1905: , p_Header_Payment_rec => l_Header_Payment_rec
1906: , p_old_Header_Payment_rec => l_old_Header_Payment_rec
1907: );
1908: IF l_debug_level > 0 THEN
1909: oe_debug_pub.add('Payment:after OE_Validate_Header_Payment.Entity, 5');
1910: END IF;
1911:
1912: END IF;
1913:
1933: AND OE_Header_Payment_Security.g_check_all_cols_constraint = 'Y')
1934: AND l_control_rec.check_security
1935: THEN
1936: IF l_debug_level > 0 THEN
1937: oe_debug_pub.add( 'CHECK ENTITY SECURITY' ) ;
1938: END IF;
1939: IF l_debug_level > 0 THEN
1940: oe_debug_pub.add('Payment:before OE_Header_Payment_Security.Entity', 5);
1941: END IF;
1936: IF l_debug_level > 0 THEN
1937: oe_debug_pub.add( 'CHECK ENTITY SECURITY' ) ;
1938: END IF;
1939: IF l_debug_level > 0 THEN
1940: oe_debug_pub.add('Payment:before OE_Header_Payment_Security.Entity', 5);
1941: END IF;
1942:
1943: OE_Header_Payment_Security.Entity
1944: (p_header_payment_rec => l_header_payment_rec
1945: , x_result => l_sec_result
1946: , x_return_status => l_return_status
1947: );
1948: IF l_debug_level > 0 THEN
1949: oe_debug_pub.add('Payment:after OE_Header_Payment_Security.Entity', 5);
1950: END IF;
1951:
1952: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1953: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1966: IF l_control_rec.write_to_db THEN
1967:
1968: /* Start Audit Trail */
1969: IF l_debug_level > 0 THEN
1970: oe_debug_pub.add('Payment:before Oe_Header_Payment_Util.Pre_Write_Process', 5);
1971: END IF;
1972: Oe_Header_Payment_Util.Pre_Write_Process
1973: (p_x_header_Payment_rec => l_header_payment_rec,
1974: p_old_header_payment_rec => l_old_header_payment_rec);
1972: Oe_Header_Payment_Util.Pre_Write_Process
1973: (p_x_header_Payment_rec => l_header_payment_rec,
1974: p_old_header_payment_rec => l_old_header_payment_rec);
1975: IF l_debug_level > 0 THEN
1976: oe_debug_pub.add('Payment:after Oe_Header_Payment_Util.Pre_Write_Process', 5);
1977: END IF;
1978: /* End AuditTrail */
1979:
1980: IF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
1978: /* End AuditTrail */
1979:
1980: IF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
1981: IF l_debug_level > 0 THEN
1982: oe_debug_pub.add('Payment:before Oe_Header_Payment_Util.Delete_Row',5);
1983: END IF;
1984:
1985: OE_Header_Payment_Util.Delete_Row
1986: ( p_payment_number => l_Header_Payment_rec.payment_number
1986: ( p_payment_number => l_Header_Payment_rec.payment_number
1987: , p_header_id => l_Header_Payment_rec.header_id
1988: );
1989: IF l_debug_level > 0 THEN
1990: oe_debug_pub.add('Payment:after Oe_Header_Payment_Util.Delete_Row',5);
1991: END IF;
1992:
1993: ELSE
1994:
2007: l_Header_Payment_rec.creation_date := SYSDATE;
2008: l_Header_Payment_rec.created_by := FND_GLOBAL.USER_ID;
2009:
2010: IF l_debug_level > 0 THEN
2011: oe_debug_pub.add('Payment:before Oe_Header_Payment_Util.Insert_Row', 5);
2012: END IF;
2013: OE_Header_Payment_Util.Insert_Row (l_Header_Payment_rec);
2014: IF l_debug_level > 0 THEN
2015: oe_debug_pub.add('Payment:after Oe_Header_Payment_Util.Insert_Row', 5);
2011: oe_debug_pub.add('Payment:before Oe_Header_Payment_Util.Insert_Row', 5);
2012: END IF;
2013: OE_Header_Payment_Util.Insert_Row (l_Header_Payment_rec);
2014: IF l_debug_level > 0 THEN
2015: oe_debug_pub.add('Payment:after Oe_Header_Payment_Util.Insert_Row', 5);
2016: END IF;
2017:
2018: END IF;
2019:
2051: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2052: IF l_control_Rec.Process_Partial THEN
2053: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2054: IF l_debug_level > 0 THEN
2055: oe_debug_pub.add( 'DELETE REQUEST4' , 2 ) ;
2056: END IF;
2057: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
2058: (p_entity_code =>OE_GLOBALS.G_ENTITY_HEADER_PAYMENT,
2059: p_entity_id => l_header_payment_rec.header_id,
2097: I := p_x_Header_Payment_tbl.NEXT(I);
2098: END LOOP;
2099:
2100: IF l_debug_level > 0 THEN
2101: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.HEADER_PAYMENTS' , 1 ) ;
2102: END IF;
2103: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2104:
2105: EXCEPTION
2108:
2109: x_return_status := FND_API.G_RET_STS_ERROR;
2110: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2111: IF l_debug_level > 0 THEN
2112: oe_debug_pub.add( 'DELETE REQUEST5' , 2 ) ;
2113: END IF;
2114: OE_Delayed_Requests_Pvt.Clear_Request
2115: (x_return_status => l_return_status);
2116: END IF;
2120:
2121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2122: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2123: IF l_debug_level > 0 THEN
2124: oe_debug_pub.add( 'DELETE REQUEST6' , 2 ) ;
2125: END IF;
2126: OE_Delayed_Requests_Pvt.Clear_Request
2127: (x_return_status => l_return_status);
2128: END IF;
2132:
2133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2134: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2135: IF l_debug_level > 0 THEN
2136: oe_debug_pub.add( 'DELETE REQUEST7' , 2 ) ;
2137: END IF;
2138: OE_Delayed_Requests_Pvt.Clear_Request
2139: (x_return_status => l_return_status);
2140: END IF;
2173: )
2174: RETURN NUMBER
2175: IS
2176: --
2177: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2178: --
2179: BEGIN
2180:
2181: -- SERVICE line if service line identifiers are populated
2185: <> FND_API.G_MISS_NUM )
2186: THEN
2187:
2188: IF l_debug_level > 0 THEN
2189: oe_debug_pub.add( 'SERVICE LINE' , 1 ) ;
2190: END IF;
2191: RETURN 3;
2192:
2193: -- Top model line identifiers are populated
2203: OR ( p_line_rec.top_model_line_index <> FND_API.G_MISS_NUM
2204: AND p_line_rec.top_model_line_index = p_line_index )
2205: THEN
2206: IF l_debug_level > 0 THEN
2207: oe_debug_pub.add( 'TOP MODEL LINE' , 1 ) ;
2208: END IF;
2209: RETURN 1;
2210: -- OPTION/CLASS line if line is NOT the model line
2211: ELSE
2209: RETURN 1;
2210: -- OPTION/CLASS line if line is NOT the model line
2211: ELSE
2212: IF l_debug_level > 0 THEN
2213: oe_debug_pub.add( 'OPTION/CLASS LINE' , 1 ) ;
2214: END IF;
2215: RETURN 2;
2216: END IF;
2217:
2219:
2220: -- STANDARD line if neither the top model line identifiers
2221: -- nor the service line identifiers are populated
2222: IF l_debug_level > 0 THEN
2223: oe_debug_pub.add( 'STANDARD LINE' , 1 ) ;
2224: END IF;
2225: RETURN 1;
2226:
2227: END IF;
2440: J NUMBER := 0;
2441: l_num_lines NUMBER;
2442: l_bom_item_type NUMBER;
2443: --
2444: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2445: l_org_id number ;
2446: --
2447: BEGIN
2448:
2465:
2466: Print_Time('Entering OE_ORDER_PVT.LINES ' || l_num_lines );
2467:
2468: IF l_debug_level > 0 THEN
2469: oe_debug_pub.add('Entering OE_ORDER_PVT.LINES ' || l_num_lines, 0.5); --added for bug 13435459
2470: END IF;
2471:
2472: x_return_status := FND_API.G_RET_STS_SUCCESS;
2473:
2490: -- options so that we can populate the option's top_model_line_id and
2491: -- link_to_line_id.
2492:
2493: IF l_debug_level > 0 THEN
2494: oe_debug_pub.add( 'G_CONFIG_UI_USED '|| OE_CONFIG_UTIL.G_CONFIG_UI_USED , 5 ) ;
2495: END IF;
2496:
2497: l_mode := 'MODELS_AND_STANDARD' ;
2498:
2500:
2501: WHILE I IS NOT NULL AND l_num_lines > 0
2502: LOOP
2503: IF l_debug_level > 0 THEN
2504: oe_debug_pub.add( '---------LOOPING FOR NTH TIME N= '|| I , 1 ) ;
2505: END IF;
2506:
2507: IF p_x_line_tbl(I).operation = OE_GLOBALS.G_OPR_NONE THEN
2508: IF l_debug_level > 0 THEN
2505: END IF;
2506:
2507: IF p_x_line_tbl(I).operation = OE_GLOBALS.G_OPR_NONE THEN
2508: IF l_debug_level > 0 THEN
2509: oe_debug_pub.add( 'OPERATION IS NONE ' , 1 ) ;
2510: END IF;
2511:
2512: IF nvl(p_x_line_tbl(I).semi_processed_flag, FALSE) = FALSE THEN
2513: IF l_debug_level > 0 THEN
2510: END IF;
2511:
2512: IF nvl(p_x_line_tbl(I).semi_processed_flag, FALSE) = FALSE THEN
2513: IF l_debug_level > 0 THEN
2514: oe_debug_pub.add( 'ALREADY CAME IN , OPR = NONE' , 5 ) ;
2515: END IF;
2516: p_x_line_tbl(I).semi_processed_flag := TRUE;
2517: l_num_lines := l_num_lines - 1;
2518: END IF;
2562: --Added for bug 4937633 end
2563:
2564: l_line_rec := p_x_line_tbl(I);
2565: IF l_debug_level > 0 THEN
2566: oe_debug_pub.add( 'SCH ARR DATE='||L_LINE_REC.SCHEDULE_ARRIVAL_DATE ) ;
2567: END IF;
2568:
2569: -- Load old records
2570: IF p_x_old_line_tbl.EXISTS(I) THEN
2624:
2625: IF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2626:
2627: IF l_debug_level > 0 THEN
2628: oe_debug_pub.add( 'OPERATION = CREATE SO SETTING OLD TO NULL' , 2 ) ;
2629: END IF;
2630:
2631: l_line_rec.db_flag := FND_API.G_FALSE;
2632:
2639: -- as the booking process also locks the order header.
2640:
2641: /*******
2642: IF l_header_locked = FND_API.G_MISS_CHAR THEN
2643: oe_debug_pub.add('locking the header record');
2644:
2645: SAVEPOINT Header_Lock;
2646:
2647: OE_Header_Util.Lock_Row
2669: l_line_rec.operation = OE_GLOBALS.G_OPR_DELETE
2670: THEN
2671:
2672: IF l_debug_level > 0 THEN
2673: oe_debug_pub.add( 'OPERATION = UPDATE SO QUERY OLD' , 1 ) ;
2674: END IF;
2675:
2676: l_line_rec.db_flag := FND_API.G_TRUE;
2677:
2681: l_old_line_rec.line_id IS NULL
2682: THEN
2683:
2684: IF l_debug_level > 0 THEN
2685: oe_debug_pub.add( 'QUERYING OLD LINE REC' ,0.5 ) ; --debug added for bug 13435459
2686: END IF;
2687:
2688: OE_Line_Util.Query_Row
2689: ( p_line_id => l_line_rec.line_id
2689: ( p_line_id => l_line_rec.line_id
2690: , x_line_rec => l_old_line_rec );
2691:
2692: IF l_debug_level > 0 THEN
2693: oe_debug_pub.add( 'AFTER QUERYING OLD LINE REC' ,0.5 ) ; --debug added for bug 13435459
2694: END IF;
2695:
2696:
2697: -- Only for lines we are reassiging queried line into old tbl
2699: p_x_old_line_tbl(I) := l_old_line_rec;
2700:
2701: ELSE
2702: IF l_debug_level > 0 THEN
2703: oe_debug_pub.add( 'Before convert_miss_to_null'||l_old_line_rec.reserved_quantity , 0.5 ) ; --debug level changed to 0.5 for bug 13435459
2704: END IF;
2705: -- Set missing old record elements to NULL.
2706: OE_Line_Util.Convert_Miss_To_Null (l_old_line_rec);
2707:
2705: -- Set missing old record elements to NULL.
2706: OE_Line_Util.Convert_Miss_To_Null (l_old_line_rec);
2707:
2708: IF l_debug_level > 0 THEN
2709: oe_debug_pub.add( 'After convert_miss_to_null'||l_old_line_rec.reserved_quantity , 0.5 ) ; --debug level changed to 0.5 for bug 13435459
2710: END IF;
2711:
2712: END IF;
2713: -- Reverting Changes(done for bug9654935) For bug 10207400
2718: /*Ending changes for bug 9654935 */
2719: -- Complete new record from old
2720:
2721: IF l_debug_level > 0 THEN
2722: oe_debug_pub.add( 'COMPLETE NEW RECORD FROM OLD' , 0.5 ) ; --debug level changed to 0.5 for 13435459
2723: END IF;
2724:
2725: OE_Line_Util.Complete_Record
2726: ( p_x_line_rec => l_line_rec
2726: ( p_x_line_rec => l_line_rec
2727: ,p_old_line_rec => l_old_line_rec);
2728:
2729: IF l_debug_level > 0 THEN
2730: oe_debug_pub.add( 'AFTER COMPLETE NEW RECORD FROM OLD' , 0.5 ) ; --debug level changed to 0.5 for 13435459
2731: END IF;
2732:
2733: OE_MSG_PUB.update_msg_context
2734: ( p_entity_code => 'LINE'
2749: AND nvl(l_line_rec.xml_transaction_type_code, FND_API.G_MISS_CHAR)
2750: IN (OE_Acknowledgment_Pub.G_TRANSACTION_CHO,OE_Acknowledgment_Pub.G_TRANSACTION_CPO) THEN -- 3A8/3A9
2751:
2752: IF l_debug_level > 0 THEN --debug level changed to 0.5 for 13435459
2753: oe_debug_pub.add( 'Calling OE_Acknowledgment_PUB.Process_3A8 for transaction type: '|| l_line_rec.xml_transaction_type_code, 0.5 ) ;
2754: END IF;
2755: OE_Acknowledgment_PUB.Process_3A8
2756: ( p_x_line_rec => l_line_rec
2757: , p_old_line_rec => l_old_line_rec
2757: , p_old_line_rec => l_old_line_rec
2758: , x_return_status => l_return_status
2759: );
2760: IF l_debug_level > 0 THEN
2761: oe_debug_pub.add( 'Return status after call to Process_3A8:' || l_return_status, 0.5 ) ; --bug13435459
2762: END IF;
2763:
2764: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2770:
2771: END IF; -- if operation is create.
2772:
2773: IF l_debug_level > 0 THEN
2774: oe_debug_pub.add( 'AT LINE LEVEL HEADER_ID' || L_LINE_REC.HEADER_ID , 2 ) ;
2775: END IF;
2776: IF I = p_x_line_tbl.FIRST THEN
2777: IF NOT Valid_Upgraded_Order(l_line_rec.header_id) THEN
2778: RAISE FND_API.G_EXC_ERROR;
2799: NOT (OE_GLOBALS.G_HTML_FLAG)) OR
2800: p_control_rec.write_to_db THEN
2801:
2802: IF l_debug_level > 0 THEN
2803: oe_debug_pub.add( 'LOCKING THE HEADER RECORD' ,0.5 ) ; -- debug level added for bug 13435459
2804: END IF;
2805:
2806: OE_Header_Util.Lock_Row
2807: ( p_header_id => l_line_rec.header_id
2808: ,x_return_status => l_return_status
2809: ,p_x_header_rec => l_locked_header_rec);
2810:
2811: IF l_debug_level > 0 THEN
2812: oe_debug_pub.add( 'AFTER LOCKING THE HEADER RECORD' ,0.5 ) ; -- debug added for bug 13435459
2813: END IF;
2814:
2815:
2816: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2839:
2840: ------------- lines loop starts ------------------------------
2841:
2842: IF l_debug_level > 0 THEN
2843: oe_debug_pub.add( 'ITEM TYPE :'||P_X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
2844: END IF;
2845:
2846: l_check_item_type := Check_Item_Type(l_line_rec,I);
2847:
2845:
2846: l_check_item_type := Check_Item_Type(l_line_rec,I);
2847:
2848: IF l_debug_level > 0 THEN
2849: oe_debug_pub.add( 'CHECK_ITEM_TYPE RETURNS :'||L_CHECK_ITEM_TYPE ) ;
2850: END IF;
2851:
2852:
2853:
2854: IF (l_mode = 'MODELS_AND_STANDARD') AND
2855: l_check_item_type = 1 THEN
2856:
2857: IF l_debug_level > 0 THEN
2858: oe_debug_pub.add( 'L_MODE IS MODELS_AND_STANDARD' , 1 ) ;
2859: END IF;
2860:
2861: IF OE_Config_Util.G_Config_UI_Used = 'N' AND
2862: l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
2869: THEN
2870: -- bug 3286378
2871: IF l_line_rec.inventory_item_id IS NULL THEN
2872: IF l_debug_level > 0 THEN
2873: oe_debug_pub.add( 'No Item at the line' , 1 ) ;
2874: END IF;
2875: p_x_line_tbl(I).component_code := null;
2876: p_x_line_tbl(I).component_sequence_id := null;
2877: p_x_line_tbl(I).sort_order := null;
2877: p_x_line_tbl(I).sort_order := null;
2878: ELSIF NOT OE_GLOBALS.EQUAL(l_line_rec.inventory_item_id,
2879: l_old_line_rec.inventory_item_id) THEN
2880: IF l_debug_level > 0 THEN
2881: oe_debug_pub.add('Line Item is Changed '
2882: ||l_line_rec.inventory_item_id , 1 ) ;
2883: END IF;
2884:
2885: BEGIN
2891: AND organization_id
2892: = OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
2893:
2894: IF l_debug_level > 0 THEN
2895: oe_debug_pub.add('old Line Item exists '
2896: ||l_bom_item_type, 1);
2897: END IF;
2898:
2899: ELSE
2899: ELSE
2900: l_bom_item_type := 1;
2901: END IF;
2902: IF l_debug_level > 0 THEN
2903: oe_debug_pub.add('BOM ITEM TYPE : '||l_bom_item_type, 1);
2904: END IF;
2905:
2906: IF l_bom_item_type = 1 THEN
2907: IF l_debug_level > 0 THEN
2904: END IF;
2905:
2906: IF l_bom_item_type = 1 THEN
2907: IF l_debug_level > 0 THEN
2908: oe_debug_pub.add( 'CALLING Complete_Config_Line' ,0.5); --debug level changed to 0.5 for bug 13435459
2909: oe_debug_pub.add
2910: ('comp seq id '||l_line_rec.component_sequence_id,1);
2911: END IF;
2912:
2905:
2906: IF l_bom_item_type = 1 THEN
2907: IF l_debug_level > 0 THEN
2908: oe_debug_pub.add( 'CALLING Complete_Config_Line' ,0.5); --debug level changed to 0.5 for bug 13435459
2909: oe_debug_pub.add
2910: ('comp seq id '||l_line_rec.component_sequence_id,1);
2911: END IF;
2912:
2913: l_line_rec.component_code := null;
2919: ,p_item_type => 1
2920: ,p_x_line_tbl => p_x_line_tbl);
2921:
2922: IF l_debug_level > 0 THEN
2923: oe_debug_pub.add( 'AFTER CALLING Complete_Config_Line' ,0.5); --debug added for bug 13435459
2924: END IF;
2925:
2926: p_x_line_tbl(I).component_code
2927: := l_line_rec.component_code;
2929: := l_line_rec.component_sequence_id;
2930: p_x_line_tbl(I).sort_order := l_line_rec.sort_order;
2931: ELSE
2932: IF l_debug_level > 0 THEN
2933: oe_debug_pub.add( 'Setting Component code to Null',1);
2934: END IF;
2935: p_x_line_tbl(I).component_code := null;
2936: p_x_line_tbl(I).component_sequence_id := null;
2937: p_x_line_tbl(I).sort_order := null;
2938: END IF;
2939: EXCEPTION
2940: WHEN OTHERS THEN
2941: IF l_debug_level > 0 THEN
2942: oe_debug_pub.add( 'Did not get any bom item type',1);
2943: END IF;
2944: --RAISE FND_API.G_EXC_ERROR;
2945: RAISE;
2946: END;
2956: IF (l_mode = 'OPTIONS') AND
2957: l_check_item_type = 2 THEN
2958:
2959: IF l_debug_level > 0 THEN
2960: oe_debug_pub.add( 'L_MODE IS OPTIONS' , 1 ) ;
2961: END IF;
2962:
2963: IF nvl(l_line_rec.semi_processed_flag, FALSE) = TRUE THEN
2964: IF l_debug_level > 0 THEN
2961: END IF;
2962:
2963: IF nvl(l_line_rec.semi_processed_flag, FALSE) = TRUE THEN
2964: IF l_debug_level > 0 THEN
2965: oe_debug_pub.add( 'LINE IS ALREADY PROCESSED , GOTO END..' , 1 ) ;
2966: END IF;
2967: GOTO end_of_lines_loop;
2968: END IF;
2969:
2985: IF (l_line_rec.top_model_line_id = FND_API.G_MISS_NUM) OR
2986: (l_line_rec.top_model_line_id IS NULL) THEN
2987:
2988: IF l_debug_level > 0 THEN
2989: oe_debug_pub.add( 'MODEL:'||P_X_LINE_TBL ( L_TOP_MODEL_LINE_INDEX ) .RETURN_STATUS ) ;
2990: END IF;
2991:
2992:
2993: IF p_x_line_tbl(l_top_model_line_index).return_status =
3001: ELSE
3002: IF p_x_line_tbl(l_top_model_line_index).return_status IS NULL
3003: THEN
3004: IF l_debug_level > 0 THEN
3005: oe_debug_pub.add( 'TOP MODEL RETURN STATUS IS NULL' , 1 ) ;
3006: END IF;
3007: END IF;
3008:
3009: IF l_debug_level > 0 THEN
3006: END IF;
3007: END IF;
3008:
3009: IF l_debug_level > 0 THEN
3010: oe_debug_pub.add( 'TOP MODEL LINE PROCESSED WITH ERRORS' , 1 ) ;
3011: END IF;
3012:
3013: GOTO end_of_lines_loop;
3014: END IF; -- ret sts success
3017:
3018:
3019: ELSE -- Invalid Index
3020: IF l_debug_level > 0 THEN
3021: oe_debug_pub.add( 'INVALID LINE INDEX ' , 2 ) ;
3022: END IF;
3023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3024: END IF; -- if valid index, top model is not at the index
3025:
3024: END IF; -- if valid index, top model is not at the index
3025:
3026: ELSE
3027: IF l_debug_level > 0 THEN
3028: oe_debug_pub.add( 'MODE IS OPTIONS BUT NO TOP MODEL LINE INDEX??' , 1 ) ;
3029: END IF;
3030: END IF; -- if top model line index is populated
3031:
3032: -- if it comes here, everything was OK. ---------
3065:
3066: IF nvl(l_line_rec.item_type_code, 'A') <> OE_GLOBALS.G_ITEM_CLASS
3067: THEN
3068: IF l_debug_level > 0 THEN
3069: oe_debug_pub.add( 'NOT A CLASS , SKIP' , 3 ) ;
3070: END IF;
3071:
3072: IF l_line_rec.split_from_line_id is NULL THEN
3073: J := J + 1;
3081:
3082: IF nvl(l_line_rec.item_type_code, 'A') = OE_GLOBALS.G_ITEM_CLASS
3083: THEN
3084: IF l_debug_level > 0 THEN
3085: oe_debug_pub.add( 'THIS CLASS IS ALREADY SAVED' , 3 ) ;
3086: END IF;
3087: l_process_this_line := FALSE;
3088: END IF;
3089:
3105: IF (l_mode = 'SERVICE') AND
3106: l_check_item_type = 3 THEN
3107:
3108: IF l_debug_level > 0 THEN
3109: oe_debug_pub.add( 'JPN: MODE IS SERVICE' ) ;
3110: END IF;
3111: l_process_this_line := TRUE;
3112:
3113: IF ((l_line_rec.service_line_index <> FND_API.G_MISS_NUM) AND
3140:
3141: END IF;
3142: ELSE -- Invalid Index
3143: IF l_debug_level > 0 THEN
3144: oe_debug_pub.add( 'INVALID SERVICE LINE INDEX ' , 2 ) ;
3145: END IF;
3146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3147: END IF; -- If Valid Line Index
3148:
3154:
3155: IF l_process_this_line = FALSE THEN
3156:
3157: IF l_debug_level > 0 THEN
3158: oe_debug_pub.add( 'MODE AND ITEM TYPE DOES NOT MATCH , GO TO END' , 1 ) ;
3159: END IF;
3160:
3161: l_line_rec.semi_processed_flag := FALSE;
3162: p_x_line_tbl(I).semi_processed_flag := FALSE;
3167: l_line_rec.semi_processed_flag := TRUE;
3168: p_x_line_tbl(I).semi_processed_flag := TRUE;
3169: l_num_lines := l_num_lines - 1;
3170: IF l_debug_level > 0 THEN
3171: oe_debug_pub.add( L_NUM_LINES|| ' '||L_LINE_REC.ITEM_TYPE_CODE||L_LINE_REC.LINE_ID , 1 ) ;
3172: END IF;
3173:
3174: END IF; -- to process the line or not
3175:
3177:
3178: -- Load old records.
3179:
3180: IF l_debug_level > 0 THEN
3181: oe_debug_pub.add( 'STARTING LINE LOOP. HEADER_ID = '|| TO_CHAR ( L_LINE_REC.HEADER_ID ) , 2 ) ;
3182: END IF;
3183:
3184: -- Load API control record
3185:
3199: l_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
3200: THEN
3201:
3202: IF l_debug_level > 0 THEN
3203: oe_debug_pub.add( 'CHECK ATTRIBUTES SECURITY' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
3204: END IF;
3205: -- check if this operation is allowed on all the changed attributes
3206: OE_Line_Security.Attributes
3207: ( p_line_rec => l_line_rec
3209: ,x_result => l_sec_result
3210: ,x_return_status => l_return_status);
3211:
3212: IF l_debug_level > 0 THEN
3213: oe_debug_pub.add( 'AFTER CHECK ATTRIBUTES SECURITY' , 0.5 ) ; --debug added for 13435459
3214: END IF;
3215:
3216: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3234: l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3235: THEN
3236:
3237: IF l_debug_level > 0 THEN
3238: oe_debug_pub.add( 'ATTRIBUTE VALIDATION' , 0.5 ) ; --debug level changed to 0.5 for 13435459
3239: END IF;
3240:
3241: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
3242:
3246: ,p_old_line_rec => l_old_line_rec
3247: ,p_validation_level => p_validation_level);
3248:
3249: IF l_debug_level > 0 THEN
3250: oe_debug_pub.add( 'AFTER ATTRIBUTE VALIDATION' , 0.5 ) ; --debug changed to 0.5 for 13435459
3251: END IF;
3252:
3253: IF p_validation_level <> OE_GLOBALS.G_VALID_LEVEL_PARTIAL THEN
3254: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3271: l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3272: THEN
3273:
3274: IF l_debug_level > 0 THEN
3275: oe_debug_pub.add( 'CLEAR DEPENDENT ATTRIBUTES' , 0.5 ) ; --debug changed to 0.5 for 13435459
3276: END IF;
3277:
3278: OE_Line_Util_Ext.Clear_Dependent_Attr
3279: ( p_x_line_rec => l_line_rec
3279: ( p_x_line_rec => l_line_rec
3280: ,p_old_line_rec => l_old_line_rec );
3281:
3282: IF l_debug_level > 0 THEN
3283: oe_debug_pub.add( 'AFTER CLEAR DEPENDENT ATTRIBUTES' , 0.5 ) ; --debug changed to 0.5 for 13435459
3284: END IF;
3285:
3286:
3287: END IF;
3295: l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3296: THEN
3297:
3298: IF l_debug_level > 0 THEN
3299: oe_debug_pub.add( 'DEFAULT MISSING' , 0.5 ) ; --debug changed to 0.5 for 13435459
3300: END IF;
3301:
3302: OE_Default_Line.Attributes
3303: ( p_x_line_rec => l_line_rec
3303: ( p_x_line_rec => l_line_rec
3304: ,p_old_line_rec => l_old_line_rec);
3305:
3306: IF l_debug_level > 0 THEN
3307: oe_debug_pub.add( 'AFTER DEFAULT MISSING' , 0.5 ) ; --debug added for 13435459
3308: END IF;
3309:
3310:
3311: ELSE
3310:
3311: ELSE
3312:
3313: IF l_debug_level > 0 THEN
3314: oe_debug_pub.add( 'SPLIT:DEFAULT ATTRIBUTES ' , 0.5 ) ; --debug changed to 0.5 for 13435459
3315: END IF;
3316: OE_Split_Util.Default_Attributes
3317: ( p_x_line_rec => l_line_rec
3318: ,p_old_line_rec => l_old_line_rec);
3317: ( p_x_line_rec => l_line_rec
3318: ,p_old_line_rec => l_old_line_rec);
3319:
3320: IF l_debug_level > 0 THEN
3321: oe_debug_pub.add( 'AFTER SPLIT:DEFAULT ATTRIBUTES ' , 0.5 ) ; --debug changed to 0.5 for 13435459
3322: END IF;
3323:
3324: END IF;
3325:
3334: -- l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3335: THEN
3336:
3337: IF l_debug_level > 0 THEN
3338: oe_debug_pub.add( 'APPLY ATTRIBUTE CHANGES' , 0.5 ) ; --debug level changed to 0.5 for 13435459
3339: END IF;
3340:
3341: OE_Line_Util.Apply_Attribute_Changes
3342: ( p_x_line_rec => l_line_rec
3342: ( p_x_line_rec => l_line_rec
3343: ,p_old_line_rec => l_old_line_rec );
3344:
3345: IF l_debug_level > 0 THEN
3346: oe_debug_pub.add( 'AFTER APPLY ATTRIBUTE CHANGES' , 0.5 ) ; --debug added for 13435459
3347: END IF;
3348:
3349:
3350: IF l_line_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3371:
3372: THEN
3373:
3374: IF l_debug_level > 0 THEN
3375: oe_debug_pub.add( 'VALIDATE ENTITY' ,0.5 ) ; ---debug level changed to 0.5 for 13435459
3376: END IF;
3377:
3378: IF l_line_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
3379:
3390: ,p_validation_level => p_validation_level);
3391:
3392: END IF;
3393: IF l_debug_level > 0 THEN
3394: oe_debug_pub.add( 'AFTER VALIDATE ENTITY' ,0.5 ) ; ---debug level changed to 0.5 for 13435459
3395: END IF;
3396:
3397: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3423: OE_Line_Security.g_check_all_cols_constraint = 'Y') AND
3424: l_control_rec.check_security THEN
3425:
3426: IF l_debug_level > 0 THEN
3427: oe_debug_pub.add( 'CHECK ENTITY SECURITY' , 0.5 ) ; --13435459
3428: END IF;
3429:
3430: OE_Line_Security.Entity
3431: ( p_line_rec => l_line_rec
3432: ,x_result => l_sec_result
3433: ,x_return_status => l_return_status );
3434:
3435: IF l_debug_level > 0 THEN
3436: oe_debug_pub.add( 'AFTER CHECK ENTITY SECURITY' , 0.5 ) ; --13435459
3437: END IF;
3438:
3439:
3440: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3451: END IF;
3452:
3453:
3454: IF l_debug_level > 0 THEN
3455: oe_debug_pub.add( 'STATUS' || L_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
3456: END IF;
3457:
3458: -- Step 3.5. Perform action which need to be performed before
3459: -- writing to the DB (like Scheduling).
3468: -- Step 4. Write to DB
3469:
3470: IF l_control_rec.write_to_db THEN
3471: IF l_debug_level > 0 THEN
3472: oe_debug_pub.add( 'WRITE TO DB' , 0.5 ) ; -- for bug 13435459
3473: END IF;
3474:
3475: IF l_line_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
3476: OE_Line_Util.Delete_Row
3483: l_is_ota_line := OE_OTA_UTIL.Is_OTA_Line(l_order_quantity_uom);
3484:
3485: If (l_is_ota_line) THEN
3486: IF l_debug_level > 0 THEN
3487: oe_debug_pub.add( 'LINE IS OF OTA TYPE' , 0.5 ) ; --debug level changed to 0.5 for 13435459
3488: END IF;
3489: OE_OTA_UTIL.Notify_OTA
3490: ( p_line_id => l_line_rec.line_id
3491: ,p_org_id => l_line_rec.org_id
3493: ,p_daemon_type => 'D'
3494: ,x_return_status => l_return_status );
3495:
3496: IF l_debug_level > 0 THEN
3497: oe_debug_pub.add( 'AFTER NOTIFY_OTA API' , 0.5 ) ; --debug level changed to 13435459
3498: END IF;
3499: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3501: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3515: l_application_id := FND_GLOBAL.RESP_APPL_ID;
3516:
3517: IF l_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
3518: IF l_debug_level > 0 THEN
3519: oe_debug_pub.add( 'CALLING UPDATE ROW' , 0.5 ) ; --debug changed to 0.5 for 13435459
3520: END IF;
3521:
3522: OE_Line_Util.Update_Row (l_line_rec);
3523: IF l_debug_level > 0 THEN
3520: END IF;
3521:
3522: OE_Line_Util.Update_Row (l_line_rec);
3523: IF l_debug_level > 0 THEN
3524: oe_debug_pub.add( 'AFTER CALLING UPDATE ROW' , 0.5 ) ; --debug changed to 0.5 for 13435459
3525: END IF;
3526:
3527:
3528: ELSIF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
3530: l_line_rec.creation_date := SYSDATE;
3531: l_line_rec.created_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
3532:
3533: IF l_debug_level > 0 THEN
3534: oe_debug_pub.add( '3.STATUS '||L_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
3535: END IF;
3536:
3537: IF l_debug_level > 0 THEN
3538: oe_debug_pub.add( 'CALLING INSERT ROW' , 0.5 ) ; --debug added for 13435459
3534: oe_debug_pub.add( '3.STATUS '||L_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
3535: END IF;
3536:
3537: IF l_debug_level > 0 THEN
3538: oe_debug_pub.add( 'CALLING INSERT ROW' , 0.5 ) ; --debug added for 13435459
3539: END IF;
3540:
3541: OE_Line_Util.Insert_Row (l_line_rec);
3542: IF l_debug_level > 0 THEN
3539: END IF;
3540:
3541: OE_Line_Util.Insert_Row (l_line_rec);
3542: IF l_debug_level > 0 THEN
3543: oe_debug_pub.add( 'AFTER CALLING INSERT ROW' , 0.5 ) ; --debug added for 13435459
3544: END IF;
3545:
3546: END IF;
3547:
3569: p_x_line_tbl(I).semi_processed_flag := l_process_this_line;
3570:
3571: IF p_x_line_tbl(I).semi_processed_flag THEN
3572: IF l_debug_level > 0 THEN
3573: oe_debug_pub.add( I || ' SEMI PROCESSED FLAG SET ' , 1 ) ;
3574: END IF;
3575: END IF;
3576:
3577: IF l_debug_level > 0 THEN
3574: END IF;
3575: END IF;
3576:
3577: IF l_debug_level > 0 THEN
3578: oe_debug_pub.add( 'BOTTOM OF LINE LOOP' , 2 ) ;
3579: END IF;
3580:
3581: OE_Line_Security.g_check_all_cols_constraint := 'Y';
3582: OE_MSG_PUB.reset_msg_context('LINE');
3581: OE_Line_Security.g_check_all_cols_constraint := 'Y';
3582: OE_MSG_PUB.reset_msg_context('LINE');
3583:
3584: IF l_debug_level > 0 THEN
3585: oe_debug_pub.add( 'SCH ARRIVAL_DATE='||L_LINE_REC.SCHEDULE_ARRIVAL_DATE ) ;
3586: END IF;
3587:
3588: EXCEPTION
3589:
3620:
3621:
3622: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
3623: IF l_debug_level > 0 THEN
3624: oe_debug_pub.add( 'DELETE REQUEST8' , 2 ) ;
3625: END IF;
3626:
3627: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
3628: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3679:
3680: <
3681:
3682: IF l_debug_level > 0 THEN
3683: oe_debug_pub.add( 'NO. OF LINES TO PROCESS ' || L_NUM_LINES , 1 ) ;
3684: END IF;
3685:
3686: I := p_x_line_tbl.NEXT(I);
3687:
3696:
3697: I := p_x_line_tbl.FIRST;
3698:
3699: IF l_debug_level > 0 THEN
3700: oe_debug_pub.add( 'NO. OF SKIPPED OPTIONS ' || L_OPTIONS_INDEX_TBL.COUNT , 1 ) ;
3701: END IF;
3702:
3703: IF COMPLETE_AND_CLASS_SAVE_MODE AND l_num_lines > 0 THEN
3704:
3702:
3703: IF COMPLETE_AND_CLASS_SAVE_MODE AND l_num_lines > 0 THEN
3704:
3705: IF l_debug_level > 0 THEN
3706: oe_debug_pub.add( 'COMPLETE MODE WAS TRUE' , 3 ) ;
3707: END IF;
3708: COMPLETE_AND_CLASS_SAVE_MODE := FALSE;
3709:
3710: IF OE_Config_Util.G_Config_UI_Used = 'N' AND
3720: l_options_index_tbl.DELETE;
3721:
3722: IF l_class_index is NOT NULL THEN
3723: IF l_debug_level > 0 THEN
3724: oe_debug_pub.add( 'NEW CLASSES ADDED' , 3 ) ;
3725: END IF;
3726:
3727: COMPLETE_AND_CLASS_SAVE_MODE := TRUE;
3728:
3732:
3733: END IF;
3734: ELSE
3735: IF l_debug_level > 0 THEN
3736: oe_debug_pub.add( 'MODE IS SERVICE NOW' , 3 ) ;
3737: END IF;
3738: l_mode := 'SERVICE';
3739: END IF;
3740:
3752:
3753: Print_Time('Exiting OE_ORDER_PVT.LINES');
3754:
3755: IF l_debug_level > 0 THEN
3756: oe_debug_pub.add('Exiting OE_ORDER_PVT.LINES ',0.5); --added for bug 13435459
3757: END IF;
3758:
3759:
3760: OE_MSG_PUB.reset_msg_context('LINE');
3774:
3775:
3776: IF NOT (OE_GLOBALS.G_UI_FLAG) AND line_ctr = 1 THEN
3777: IF l_debug_level > 0 THEN
3778: oe_debug_pub.add( 'DELETE REQUEST9' , 2 ) ;
3779: END IF;
3780: oe_delayed_requests_pvt.Clear_Request
3781: (x_return_status => l_return_status);
3782:
3806: OE_MSG_PUB.reset_msg_context('LINE');
3807:
3808: IF NOT (OE_GLOBALS.G_UI_FLAG) and line_ctr = 1 THEN
3809: IF l_debug_level > 0 THEN
3810: oe_debug_pub.add( 'DELETE REQUEST10' , 2 ) ;
3811: END IF;
3812: oe_delayed_requests_pvt.Clear_Request
3813: (x_return_status => l_return_status);
3814:
3832: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3833:
3834: IF NOT (OE_GLOBALS.G_UI_FLAG) and line_ctr = 1 THEN
3835: IF l_debug_level > 0 THEN
3836: oe_debug_pub.add( 'DELETE REQUEST11' , 2 ) ;
3837: END IF;
3838: oe_delayed_requests_pvt.Clear_Request
3839: (x_return_status => l_return_status);
3840:
3889: l_source_document_type_id NUMBER;
3890: l_source_document_id NUMBER;
3891: l_source_document_line_id NUMBER;
3892:
3893: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3894: l_org_id number ;
3895: BEGIN
3896: --MOAC changes start
3897: l_org_id := MO_GLOBAL.get_current_org_id;
3915: SAVEPOINT Line_Scredits;
3916: END IF;
3917:
3918: IF l_debug_level > 0 THEN
3919: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.LINE_SCREDITS' , 1 ) ;
3920: END IF;
3921:
3922: -- FOR I IN 1..p_x_Line_Scredit_tbl.COUNT LOOP
3923:
3938: IF l_line_Scredit_rec.line_id IS NOT NULL AND
3939: l_line_Scredit_rec.line_id <> FND_API.G_MISS_NUM THEN
3940: BEGIN
3941: IF l_debug_level > 0 THEN
3942: oe_debug_pub.add('Getting reference data for line_id:'||l_line_Scredit_rec.line_id);
3943: END IF;
3944: SELECT order_source_id, orig_sys_document_ref, change_sequence,
3945: source_document_type_id, source_document_id, orig_sys_line_ref,
3946: source_document_line_id, orig_sys_shipment_ref
3989: IF l_old_line_Scredit_rec.line_id IS NOT NULL AND
3990: l_old_line_Scredit_rec.line_id <> FND_API.G_MISS_NUM THEN
3991: BEGIN
3992: IF l_debug_level > 0 THEN
3993: oe_debug_pub.add('Getting reference data for old line_id:'||l_old_line_Scredit_rec.line_id);
3994: END IF;
3995: SELECT order_source_id, orig_sys_document_ref, change_sequence,
3996: source_document_type_id, source_document_id, orig_sys_line_ref,
3997: source_document_line_id, orig_sys_shipment_ref
4111: OR l_line_scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
4112: THEN
4113:
4114: IF l_debug_level > 0 THEN
4115: oe_debug_pub.add( 'CHECK ATTRIBUTES SECURITY' ) ;
4116: END IF;
4117:
4118: OE_Line_Scredit_Security.Attributes
4119: (p_line_scredit_rec => l_line_scredit_rec
4153: END IF;
4154:
4155: -- Clear dependent attributes.
4156: IF l_debug_level > 0 THEN
4157: oe_debug_pub.add( ' CLEAR DEPENDENT' || L_LINE_SCREDIT_REC.HEADER_ID ) ;
4158: END IF;
4159:
4160: IF l_control_rec.clear_dependents THEN
4161:
4167: END IF;
4168:
4169: -- Default missing attributes
4170: IF l_debug_level > 0 THEN
4171: oe_debug_pub.add( ' DEFAULTING' || L_LINE_SCREDIT_REC.HEADER_ID ) ;
4172: END IF;
4173:
4174: IF l_control_rec.default_attributes
4175: THEN
4182: END IF;
4183:
4184: -- Apply attribute changes
4185: IF l_debug_level > 0 THEN
4186: oe_debug_pub.add( ' APPLY ATTRIBUTES' || L_LINE_SCREDIT_REC.HEADER_ID ) ;
4187: END IF;
4188:
4189: IF l_control_rec.change_attributes
4190: THEN
4197: END IF;
4198:
4199: -- Entity level validation.
4200: IF l_debug_level > 0 THEN
4201: oe_debug_pub.add( ' ENTITY VALIDATION ' || L_LINE_SCREDIT_REC.HEADER_ID ) ;
4202: END IF;
4203:
4204: IF l_control_rec.validate_entity THEN
4205:
4244: AND l_control_rec.check_security
4245: THEN
4246:
4247: IF l_debug_level > 0 THEN
4248: oe_debug_pub.add( 'CHECK ENTITY SECURITY' ) ;
4249: END IF;
4250:
4251: OE_Line_Scredit_Security.Entity
4252: (p_line_scredit_rec => l_line_scredit_rec
4337: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4338: IF l_control_rec.Process_Partial THEN
4339: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4340: IF l_debug_level > 0 THEN
4341: oe_debug_pub.add( 'DELETE REQUEST12' , 2 ) ;
4342: END IF;
4343: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
4344: (p_entity_code =>OE_GLOBALS.G_ENTITY_LINE_SCREDIT,
4345: p_entity_id => l_line_scredit_rec.sales_credit_id,
4383: END LOOP;
4384:
4385:
4386: IF l_debug_level > 0 THEN
4387: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.LINE_SCREDITS' , 1 ) ;
4388: END IF;
4389: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4390: set_recursion_mode(p_Entity_Code => 7,
4391: p_In_out => 0);
4397: p_In_out => 0);
4398: x_return_status := FND_API.G_RET_STS_ERROR;
4399: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4400: IF l_debug_level > 0 THEN
4401: oe_debug_pub.add( 'DELETE REQUEST13' , 2 ) ;
4402: END IF;
4403: OE_Delayed_Requests_Pvt.Clear_Request
4404: (x_return_status => l_return_status);
4405: END IF;
4411: p_In_out => 0);
4412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4413: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4414: IF l_debug_level > 0 THEN
4415: oe_debug_pub.add( 'DELETE REQUEST14' , 2 ) ;
4416: END IF;
4417: OE_Delayed_Requests_Pvt.Clear_Request
4418: (x_return_status => l_return_status);
4419: END IF;
4425: p_In_out => 0);
4426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4427: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4428: IF l_debug_level > 0 THEN
4429: oe_debug_pub.add( 'DELETE REQUEST15' , 2 ) ;
4430: END IF;
4431: OE_Delayed_Requests_Pvt.Clear_Request
4432: (x_return_status => l_return_status);
4433: END IF;
4473: l_source_document_type_id NUMBER;
4474: l_source_document_id NUMBER;
4475: l_source_document_line_id NUMBER;
4476:
4477: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4478: l_org_id number ;
4479: BEGIN
4480: --MOAC changes start
4481: l_org_id := MO_GLOBAL.get_current_org_id;
4497: SAVEPOINT Line_Payments;
4498: END IF;
4499:
4500: IF l_debug_level > 0 THEN
4501: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.LINE_PAYMENTS' , 1 ) ;
4502: END IF;
4503:
4504: -- FOR I IN 1..p_x_Line_Payment_tbl.COUNT LOOP
4505:
4520: IF l_line_Payment_rec.line_id IS NOT NULL AND
4521: l_line_Payment_rec.line_id <> FND_API.G_MISS_NUM THEN
4522: BEGIN
4523: IF l_debug_level > 0 THEN
4524: oe_debug_pub.add('Getting reference data for line_id:'||l_line_Payment_rec.line_id);
4525: END IF;
4526: SELECT order_source_id, orig_sys_document_ref, change_sequence,
4527: source_document_type_id, source_document_id, orig_sys_line_ref,
4528: source_document_line_id, orig_sys_shipment_ref
4571: IF l_old_line_Payment_rec.line_id IS NOT NULL AND
4572: l_old_line_Payment_rec.line_id <> FND_API.G_MISS_NUM THEN
4573: BEGIN
4574: IF l_debug_level > 0 THEN
4575: oe_debug_pub.add('Getting reference data for old line_id:'||l_old_line_Payment_rec.line_id);
4576: END IF;
4577: SELECT order_source_id, orig_sys_document_ref, change_sequence,
4578: source_document_type_id, source_document_id, orig_sys_line_ref,
4579: source_document_line_id, orig_sys_shipment_ref
4640:
4641: -- Set missing old record elements to NULL.
4642:
4643: IF l_debug_level > 0 THEN
4644: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Convert_Miss_To_Null', 5);
4645: END IF;
4646: OE_Line_Payment_Util.Convert_Miss_To_Null (l_old_Line_Payment_rec);
4647: IF l_debug_level > 0 THEN
4648: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Convert_Miss_To_Null', 5);
4644: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Convert_Miss_To_Null', 5);
4645: END IF;
4646: OE_Line_Payment_Util.Convert_Miss_To_Null (l_old_Line_Payment_rec);
4647: IF l_debug_level > 0 THEN
4648: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Convert_Miss_To_Null', 5);
4649: END IF;
4650:
4651: ELSIF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE
4652: OR l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE
4659: IF l_old_Line_Payment_rec.payment_number = FND_API.G_MISS_NUM
4660: THEN
4661:
4662: IF l_debug_level > 0 THEN
4663: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Query_Row', 5);
4664: END IF;
4665: OE_Line_Payment_Util.Query_Row
4666: ( p_payment_number => l_Line_Payment_rec.payment_number
4667: , p_line_id => l_Line_Payment_rec.line_id
4668: , p_header_id => l_Line_Payment_rec.header_id
4669: , x_line_payment_rec => l_old_Line_Payment_rec
4670: );
4671: IF l_debug_level > 0 THEN
4672: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Query_Row', 5);
4673: END IF;
4674:
4675: ELSE
4676:
4682:
4683: -- Complete new record from old
4684:
4685: IF l_debug_level > 0 THEN
4686: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Complete_Record', 5);
4687: END IF;
4688: OE_Line_Payment_Util.Complete_Record
4689: ( p_x_Line_Payment_rec => l_Line_Payment_rec
4690: , p_old_Line_Payment_rec => l_old_Line_Payment_rec
4689: ( p_x_Line_Payment_rec => l_Line_Payment_rec
4690: , p_old_Line_Payment_rec => l_old_Line_Payment_rec
4691: );
4692: IF l_debug_level > 0 THEN
4693: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Complete_Record', 5);
4694: END IF;
4695:
4696: OE_MSG_PUB.update_msg_context(
4697: p_entity_code => 'LINE_PAYMENT'
4713: OR l_line_payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
4714: THEN
4715:
4716: IF l_debug_level > 0 THEN
4717: oe_debug_pub.add('Payment:before OE_Line_Payment_Security.Attributes', 5);
4718: END IF;
4719: OE_Line_Payment_Security.Attributes
4720: (p_line_payment_rec => l_line_payment_rec
4721: , p_old_line_payment_rec => l_old_line_payment_rec
4722: , x_result => l_sec_result
4723: , x_return_status => l_return_status
4724: );
4725: IF l_debug_level > 0 THEN
4726: oe_debug_pub.add('Payment:after OE_Line_Payment_Security.Attributes', 5);
4727: END IF;
4728:
4729: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4742:
4743: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
4744:
4745: IF l_debug_level > 0 THEN
4746: oe_debug_pub.add('Payment:before OE_Validate_Line_Payment.Attributes', 5);
4747: END IF;
4748: OE_Validate_Line_Payment.Attributes
4749: ( x_return_status => l_return_status
4750: , p_Line_Payment_rec => l_Line_Payment_rec
4750: , p_Line_Payment_rec => l_Line_Payment_rec
4751: , p_old_Line_Payment_rec => l_old_Line_Payment_rec
4752: );
4753: IF l_debug_level > 0 THEN
4754: oe_debug_pub.add('Payment:after OE_Validate_Line_Payment.Attributes', 5);
4755: END IF;
4756:
4757: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4763: END IF;
4764:
4765: -- Clear dependent attributes.
4766: IF l_debug_level > 0 THEN
4767: oe_debug_pub.add( ' CLEAR DEPENDENT' || L_LINE_PAYMENT_REC.HEADER_ID ) ;
4768: END IF;
4769:
4770: IF l_control_rec.clear_dependents THEN
4771:
4769:
4770: IF l_control_rec.clear_dependents THEN
4771:
4772: IF l_debug_level > 0 THEN
4773: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Clear_Dependent_Attr', 5);
4774: END IF;
4775: OE_Line_Payment_Util.Clear_Dependent_Attr
4776: ( p_x_Line_Payment_rec => l_Line_Payment_rec
4777: , p_old_Line_Payment_rec => l_old_Line_Payment_rec
4776: ( p_x_Line_Payment_rec => l_Line_Payment_rec
4777: , p_old_Line_Payment_rec => l_old_Line_Payment_rec
4778: );
4779: IF l_debug_level > 0 THEN
4780: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Clear_Dependent_Attr', 5);
4781: END IF;
4782:
4783: END IF;
4784:
4783: END IF;
4784:
4785: -- Default missing attributes
4786: IF l_debug_level > 0 THEN
4787: oe_debug_pub.add( ' DEFAULTING' || L_LINE_PAYMENT_REC.HEADER_ID ) ;
4788: END IF;
4789:
4790: IF l_control_rec.default_attributes
4791: THEN
4790: IF l_control_rec.default_attributes
4791: THEN
4792:
4793: IF l_debug_level > 0 THEN
4794: oe_debug_pub.add('Payment:before OE_Default_Line_Payment.Attributes', 5);
4795: END IF;
4796: OE_Default_Line_Payment.Attributes
4797: ( p_x_Line_Payment_rec => l_Line_Payment_rec
4798: , p_old_line_payment_rec => l_old_line_Payment_Rec
4797: ( p_x_Line_Payment_rec => l_Line_Payment_rec
4798: , p_old_line_payment_rec => l_old_line_Payment_Rec
4799: );
4800: IF l_debug_level > 0 THEN
4801: oe_debug_pub.add('Payment:after OE_Default_Line_Payment.Attributes', 5);
4802: END IF;
4803:
4804: END IF;
4805:
4804: END IF;
4805:
4806: -- Apply attribute changes
4807: IF l_debug_level > 0 THEN
4808: oe_debug_pub.add( ' APPLY ATTRIBUTES' || L_LINE_PAYMENT_REC.HEADER_ID ) ;
4809: END IF;
4810:
4811: IF l_control_rec.change_attributes
4812: THEN
4811: IF l_control_rec.change_attributes
4812: THEN
4813:
4814: IF l_debug_level > 0 THEN
4815: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Apply_Attribute_Changes', 5);
4816: END IF;
4817: OE_Line_Payment_Util.Apply_Attribute_Changes
4818: ( p_x_Line_Payment_rec => l_Line_Payment_rec
4819: , p_old_Line_Payment_rec => l_old_Line_Payment_rec
4818: ( p_x_Line_Payment_rec => l_Line_Payment_rec
4819: , p_old_Line_Payment_rec => l_old_Line_Payment_rec
4820: );
4821: IF l_debug_level > 0 THEN
4822: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Apply_Attribute_Changes', 5);
4823: END IF;
4824:
4825: END IF;
4826:
4825: END IF;
4826:
4827: -- Entity level validation.
4828: IF l_debug_level > 0 THEN
4829: oe_debug_pub.add( ' ENTITY VALIDATION ' || L_LINE_PAYMENT_REC.HEADER_ID ) ;
4830: END IF;
4831:
4832: IF l_control_rec.validate_entity THEN
4833:
4833:
4834: IF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
4835:
4836: IF l_debug_level > 0 THEN
4837: oe_debug_pub.add('Payment:before OE_Validate_Line_Payment.Entity_Delete', 5);
4838: END IF;
4839: OE_Validate_Line_Payment.Entity_Delete
4840: ( x_return_status => l_return_status
4841: , p_Line_Payment_rec => l_Line_Payment_rec
4840: ( x_return_status => l_return_status
4841: , p_Line_Payment_rec => l_Line_Payment_rec
4842: );
4843: IF l_debug_level > 0 THEN
4844: oe_debug_pub.add('Payment:after OE_Validate_Line_Payment.Entity_Delete', 5);
4845: END IF;
4846:
4847: ELSE
4848:
4846:
4847: ELSE
4848:
4849: IF l_debug_level > 0 THEN
4850: oe_debug_pub.add('Payment:before OE_Validate_Line_Payment.Entity', 5);
4851: END IF;
4852: OE_Validate_Line_Payment.Entity
4853: ( x_return_status => l_return_status
4854: , p_Line_Payment_rec => l_Line_Payment_rec
4854: , p_Line_Payment_rec => l_Line_Payment_rec
4855: , p_old_Line_Payment_rec => l_old_Line_Payment_rec
4856: );
4857: IF l_debug_level > 0 THEN
4858: oe_debug_pub.add('Payment:after OE_Validate_Line_Payment.Entity', 5);
4859: END IF;
4860:
4861: END IF;
4862:
4884: AND l_control_rec.check_security
4885: THEN
4886:
4887: IF l_debug_level > 0 THEN
4888: oe_debug_pub.add('Payment:before OE_Line_Payment_Security.Entity', 5);
4889: END IF;
4890: OE_Line_Payment_Security.Entity
4891: (p_line_payment_rec => l_line_payment_rec
4892: , x_result => l_sec_result
4892: , x_result => l_sec_result
4893: , x_return_status => l_return_status
4894: );
4895: IF l_debug_level > 0 THEN
4896: oe_debug_pub.add('Payment:after OE_Line_Payment_Security.Entity', 5);
4897: END IF;
4898:
4899: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4913: IF l_control_rec.write_to_db THEN
4914:
4915: /* Start Audit Trail */
4916: IF l_debug_level > 0 THEN
4917: oe_debug_pub.add('Payment:before Oe_line_Payment_Util.Pre_Write_Process', 5);
4918: END IF;
4919: Oe_line_Payment_Util.Pre_Write_Process
4920: (p_x_line_payment_rec => l_line_payment_rec,
4921: p_old_line_payment_rec => l_old_line_payment_rec);
4919: Oe_line_Payment_Util.Pre_Write_Process
4920: (p_x_line_payment_rec => l_line_payment_rec,
4921: p_old_line_payment_rec => l_old_line_payment_rec);
4922: IF l_debug_level > 0 THEN
4923: oe_debug_pub.add('Payment:after Oe_line_Payment_Util.Pre_Write_Process', 5);
4924: END IF;
4925: /* End AuditTrail */
4926:
4927: IF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
4926:
4927: IF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
4928:
4929: IF l_debug_level > 0 THEN
4930: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Delete_Row', 5);
4931: END IF;
4932: OE_Line_Payment_Util.Delete_Row
4933: ( p_payment_number => l_Line_Payment_rec.payment_number
4934: , p_line_id => l_Line_Payment_rec.line_id
4934: , p_line_id => l_Line_Payment_rec.line_id
4935: , p_header_id => l_Line_Payment_rec.header_id
4936: );
4937: IF l_debug_level > 0 THEN
4938: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Delete_Row', 5);
4939: END IF;
4940:
4941: ELSE
4942:
4948:
4949: IF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
4950:
4951: IF l_debug_level > 0 THEN
4952: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Update_Row', 5);
4953: END IF;
4954: OE_Line_Payment_Util.Update_Row (l_Line_Payment_rec);
4955: IF l_debug_level > 0 THEN
4956: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Update_Row', 5);
4952: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Update_Row', 5);
4953: END IF;
4954: OE_Line_Payment_Util.Update_Row (l_Line_Payment_rec);
4955: IF l_debug_level > 0 THEN
4956: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Update_Row', 5);
4957: END IF;
4958:
4959: ELSIF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
4960:
4961: l_Line_Payment_rec.creation_date := SYSDATE;
4962: l_Line_Payment_rec.created_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
4963:
4964: IF l_debug_level > 0 THEN
4965: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Insert_Row', 5);
4966: END IF;
4967: OE_Line_Payment_Util.Insert_Row (l_Line_Payment_rec);
4968: IF l_debug_level > 0 THEN
4969: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Insert_Row', 5);
4965: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Insert_Row', 5);
4966: END IF;
4967: OE_Line_Payment_Util.Insert_Row (l_Line_Payment_rec);
4968: IF l_debug_level > 0 THEN
4969: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Insert_Row', 5);
4970: END IF;
4971:
4972: END IF;
4973:
5005: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
5006: IF l_control_rec.Process_Partial THEN
5007: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5008: IF l_debug_level > 0 THEN
5009: oe_debug_pub.add( 'DELETE REQUEST12' , 2 ) ;
5010: END IF;
5011: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
5012: (p_entity_code =>OE_GLOBALS.G_ENTITY_LINE_PAYMENT,
5013: p_entity_id => l_line_payment_rec.line_id,
5051: END LOOP;
5052:
5053:
5054: IF l_debug_level > 0 THEN
5055: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.LINE_PAYMENTS' , 1 ) ;
5056: END IF;
5057: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
5058: EXCEPTION
5059:
5061:
5062: x_return_status := FND_API.G_RET_STS_ERROR;
5063: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5064: IF l_debug_level > 0 THEN
5065: oe_debug_pub.add( 'DELETE REQUEST13' , 2 ) ;
5066: END IF;
5067: OE_Delayed_Requests_Pvt.Clear_Request
5068: (x_return_status => l_return_status);
5069: END IF;
5073:
5074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5075: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5076: IF l_debug_level > 0 THEN
5077: oe_debug_pub.add( 'DELETE REQUEST14' , 2 ) ;
5078: END IF;
5079: OE_Delayed_Requests_Pvt.Clear_Request
5080: (x_return_status => l_return_status);
5081: END IF;
5085:
5086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5087: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5088: IF l_debug_level > 0 THEN
5089: oe_debug_pub.add( 'DELETE REQUEST15' , 2 ) ;
5090: END IF;
5091: OE_Delayed_Requests_Pvt.Clear_Request
5092: (x_return_status => l_return_status);
5093: END IF;
5121: l_control_rec OE_GLOBALS.Control_Rec_Type;
5122: l_Lot_Serial_rec OE_Order_PUB.Lot_Serial_Rec_Type;
5123: l_old_Lot_Serial_rec OE_Order_PUB.Lot_Serial_Rec_Type;
5124: I NUMBER; -- Used as index.
5125: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5126: l_org_id number;
5127: BEGIN
5128: --MOAC changes start
5129: l_org_id := MO_GLOBAL.get_current_org_id;
5380:
5381: x_return_status := FND_API.G_RET_STS_ERROR;
5382: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5383: IF l_debug_level > 0 THEN
5384: oe_debug_pub.add( 'DELETE REQUEST17' , 2 ) ;
5385: END IF;
5386: OE_Delayed_Requests_Pvt.Clear_Request
5387: (x_return_status => l_return_status);
5388: END IF;
5391:
5392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5393: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5394: IF l_debug_level > 0 THEN
5395: oe_debug_pub.add( 'DELETE REQUEST18' , 2 ) ;
5396: END IF;
5397: OE_Delayed_Requests_Pvt.Clear_Request
5398: (x_return_status => l_return_status);
5399: END IF;
5402:
5403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5404: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5405: IF l_debug_level > 0 THEN
5406: oe_debug_pub.add( 'DELETE REQUEST19' , 2 ) ;
5407: END IF;
5408: OE_Delayed_Requests_Pvt.Clear_Request
5409: (x_return_status => l_return_status);
5410: END IF;
5498: IS
5499: l_return_status VARCHAR2(30);
5500: l_msg_count NUMBER;
5501: l_msg_data VARCHAR2(2000);
5502: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5503: l_header_id NUMBER; -- added for bug 2781468 hashraf
5504: l_index NUMBER;
5505: l_line_id NUMBER;
5506: l_edi_ack_pfile Varchar2(3);
5513:
5514: BEGIN
5515:
5516: IF l_debug_level > 0 THEN
5517: oe_debug_pub.add( 'ENTER OE_ORDER_PVT.PROCESS_REQUESTS_AND_NOTIFY' , 1 ) ;
5518: END IF;
5519: x_return_status := FND_API.G_RET_STS_SUCCESS;
5520: IF NOT oe_globals.g_call_process_req THEN --9354229
5521: IF l_debug_level > 0 THEN
5518: END IF;
5519: x_return_status := FND_API.G_RET_STS_SUCCESS;
5520: IF NOT oe_globals.g_call_process_req THEN --9354229
5521: IF l_debug_level > 0 THEN
5522: oe_debug_pub.add( 'EXIT PROCESS_REQUESTS_AND_NOTIFY' , 1 ) ;
5523: END IF;
5524: RETURN;
5525: END IF;
5526: set_recursion_mode(p_Entity_Code => 8,
5538: --4241385
5539: /* querying the org_id here to het the value of the system parameter ONT_AUTO_SCH_SETS*/
5540: IF p_line_tbl.count>0 THEN
5541: IF l_debug_level > 0 THEN
5542: oe_debug_pub.add( 'get org id' , 1 ) ;
5543: END IF;
5544: l_auto_sch_flag:= Nvl(oe_sys_parameters.Value('ONT_AUTO_SCH_SETS',p_line_tbl(1).org_id),'Y');
5545:
5546: END IF ;
5739: -- If notify, then call service and acknowledgments notify APIs
5740:
5741: IF p_notify THEN
5742: IF l_debug_level > 0 THEN
5743: oe_debug_pub.add( 'CALLING NOTIFY_OC API' , 1 ) ;
5744: END IF;
5745:
5746: OE_SERVICE_UTIL.Notify_OC
5747: ( p_api_version_number => 1.0
5783: , p_old_Lot_Serial_val_tbl => p_old_Lot_Serial_val_tbl
5784: );
5785:
5786: IF l_debug_level > 0 THEN
5787: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
5788: END IF;
5789: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5791: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5793: END IF;
5794: END IF; --p_notify
5795:
5796: IF l_debug_level > 0 THEN
5797: oe_debug_pub.add( 'PROCESSING ACKS' , 1 ) ;
5798: END IF;
5799:
5800: IF p_notify AND p_process_ack THEN
5801: IF l_debug_level > 0 THEN
5798: END IF;
5799:
5800: IF p_notify AND p_process_ack THEN
5801: IF l_debug_level > 0 THEN
5802: oe_debug_pub.add( 'CALLING ACKS API' , 1 ) ;
5803: END IF;
5804:
5805: -- ediack changes
5806: If Oe_Code_Control.Code_Release_level >= '110510' And
5852: END IF; -- p_notify and p_process_ack
5853:
5854: ELSE /*post pack H*/
5855: IF l_debug_level > 0 THEN
5856: oe_debug_pub.add( 'JPN: GLOBAL RECURSION WITHOUT EXCEPTION: ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
5857: oe_debug_pub.add( 'JPN: GLOBAL CACHE BOOKED FLAG' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5858: oe_debug_pub.add( 'JPN: GLOBAL PICTURE HEADER BOOKED FLAG' || OE_ORDER_UTIL.G_HEADER_REC.BOOKED_FLAG ) ;
5859: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5860: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5853:
5854: ELSE /*post pack H*/
5855: IF l_debug_level > 0 THEN
5856: oe_debug_pub.add( 'JPN: GLOBAL RECURSION WITHOUT EXCEPTION: ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
5857: oe_debug_pub.add( 'JPN: GLOBAL CACHE BOOKED FLAG' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5858: oe_debug_pub.add( 'JPN: GLOBAL PICTURE HEADER BOOKED FLAG' || OE_ORDER_UTIL.G_HEADER_REC.BOOKED_FLAG ) ;
5859: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5860: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5861: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5854: ELSE /*post pack H*/
5855: IF l_debug_level > 0 THEN
5856: oe_debug_pub.add( 'JPN: GLOBAL RECURSION WITHOUT EXCEPTION: ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
5857: oe_debug_pub.add( 'JPN: GLOBAL CACHE BOOKED FLAG' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5858: oe_debug_pub.add( 'JPN: GLOBAL PICTURE HEADER BOOKED FLAG' || OE_ORDER_UTIL.G_HEADER_REC.BOOKED_FLAG ) ;
5859: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5860: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5861: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5862: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5855: IF l_debug_level > 0 THEN
5856: oe_debug_pub.add( 'JPN: GLOBAL RECURSION WITHOUT EXCEPTION: ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
5857: oe_debug_pub.add( 'JPN: GLOBAL CACHE BOOKED FLAG' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5858: oe_debug_pub.add( 'JPN: GLOBAL PICTURE HEADER BOOKED FLAG' || OE_ORDER_UTIL.G_HEADER_REC.BOOKED_FLAG ) ;
5859: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5860: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5861: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5862: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5863: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5856: oe_debug_pub.add( 'JPN: GLOBAL RECURSION WITHOUT EXCEPTION: ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
5857: oe_debug_pub.add( 'JPN: GLOBAL CACHE BOOKED FLAG' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5858: oe_debug_pub.add( 'JPN: GLOBAL PICTURE HEADER BOOKED FLAG' || OE_ORDER_UTIL.G_HEADER_REC.BOOKED_FLAG ) ;
5859: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5860: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5861: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5862: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5863: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5864: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5857: oe_debug_pub.add( 'JPN: GLOBAL CACHE BOOKED FLAG' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5858: oe_debug_pub.add( 'JPN: GLOBAL PICTURE HEADER BOOKED FLAG' || OE_ORDER_UTIL.G_HEADER_REC.BOOKED_FLAG ) ;
5859: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5860: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5861: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5862: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5863: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5864: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5865: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5858: oe_debug_pub.add( 'JPN: GLOBAL PICTURE HEADER BOOKED FLAG' || OE_ORDER_UTIL.G_HEADER_REC.BOOKED_FLAG ) ;
5859: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5860: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5861: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5862: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5863: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5864: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5865: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5866: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5859: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5860: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5861: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5862: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5863: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5864: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5865: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5866: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5867: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5860: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5861: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5862: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5863: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5864: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5865: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5866: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5867: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5868: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_SCREDIT_TBL.COUNT ) ;
5861: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5862: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5863: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5864: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5865: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5866: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5867: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5868: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_SCREDIT_TBL.COUNT ) ;
5869: oe_debug_pub.add( 'JPN: COUNT OF NEW LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_LOT_SERIAL_TBL.COUNT ) ;
5862: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5863: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5864: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5865: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5866: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5867: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5868: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_SCREDIT_TBL.COUNT ) ;
5869: oe_debug_pub.add( 'JPN: COUNT OF NEW LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_LOT_SERIAL_TBL.COUNT ) ;
5870: oe_debug_pub.add( 'JPN: COUNT OF OLD LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_OLD_LOT_SERIAL_TBL.COUNT ) ;
5863: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5864: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5865: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5866: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5867: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5868: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_SCREDIT_TBL.COUNT ) ;
5869: oe_debug_pub.add( 'JPN: COUNT OF NEW LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_LOT_SERIAL_TBL.COUNT ) ;
5870: oe_debug_pub.add( 'JPN: COUNT OF OLD LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_OLD_LOT_SERIAL_TBL.COUNT ) ;
5871: END IF;
5864: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5865: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5866: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5867: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5868: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_SCREDIT_TBL.COUNT ) ;
5869: oe_debug_pub.add( 'JPN: COUNT OF NEW LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_LOT_SERIAL_TBL.COUNT ) ;
5870: oe_debug_pub.add( 'JPN: COUNT OF OLD LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_OLD_LOT_SERIAL_TBL.COUNT ) ;
5871: END IF;
5872:
5865: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5866: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5867: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5868: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_SCREDIT_TBL.COUNT ) ;
5869: oe_debug_pub.add( 'JPN: COUNT OF NEW LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_LOT_SERIAL_TBL.COUNT ) ;
5870: oe_debug_pub.add( 'JPN: COUNT OF OLD LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_OLD_LOT_SERIAL_TBL.COUNT ) ;
5871: END IF;
5872:
5873: /*check global pictures, to see if there's any record in the seven key entities*/
5866: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5867: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5868: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_SCREDIT_TBL.COUNT ) ;
5869: oe_debug_pub.add( 'JPN: COUNT OF NEW LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_LOT_SERIAL_TBL.COUNT ) ;
5870: oe_debug_pub.add( 'JPN: COUNT OF OLD LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_OLD_LOT_SERIAL_TBL.COUNT ) ;
5871: END IF;
5872:
5873: /*check global pictures, to see if there's any record in the seven key entities*/
5874:
5895: AND OE_ORDER_UTIL.g_header_rec.header_id <> FND_API.G_MISS_NUM) THEN
5896: l_header_id := OE_ORDER_UTIL.g_header_rec.header_id;
5897:
5898: IF l_debug_level > 0 THEN
5899: oe_debug_pub.add('header id in g_header_rec is: ' || l_header_id ) ;
5900: END IF;
5901:
5902: ELSIF ( OE_ORDER_UTIL.g_header_adj_tbl.count >0 ) THEN
5903: IF l_debug_level > 0 THEN
5900: END IF;
5901:
5902: ELSIF ( OE_ORDER_UTIL.g_header_adj_tbl.count >0 ) THEN
5903: IF l_debug_level > 0 THEN
5904: oe_debug_pub.add('Inside the header_adj_tbl loop');
5905: END IF;
5906: l_index := OE_ORDER_UTIL.g_header_adj_tbl.first;
5907: IF (l_index is not null) THEN
5908: l_header_id := OE_ORDER_UTIL.g_header_adj_tbl(l_index).header_id;
5906: l_index := OE_ORDER_UTIL.g_header_adj_tbl.first;
5907: IF (l_index is not null) THEN
5908: l_header_id := OE_ORDER_UTIL.g_header_adj_tbl(l_index).header_id;
5909: IF l_debug_level > 0 THEN
5910: oe_debug_pub.add('header id in g_header_adj_tbl is: ' || l_header_id ) ;
5911: oe_debug_pub.add('l_index in g_header_adj_tbl is: ' || l_index ) ;
5912: END IF;
5913: END IF;
5914:
5907: IF (l_index is not null) THEN
5908: l_header_id := OE_ORDER_UTIL.g_header_adj_tbl(l_index).header_id;
5909: IF l_debug_level > 0 THEN
5910: oe_debug_pub.add('header id in g_header_adj_tbl is: ' || l_header_id ) ;
5911: oe_debug_pub.add('l_index in g_header_adj_tbl is: ' || l_index ) ;
5912: END IF;
5913: END IF;
5914:
5915: ELSIF ( OE_ORDER_UTIL.g_Header_Scredit_tbl.count >0 ) THEN
5913: END IF;
5914:
5915: ELSIF ( OE_ORDER_UTIL.g_Header_Scredit_tbl.count >0 ) THEN
5916: IF l_debug_level > 0 THEN
5917: oe_debug_pub.add('Inside the header_Scredit_tbl loop');
5918: END IF;
5919: l_index := OE_ORDER_UTIL.g_header_Scredit_tbl.first;
5920: IF (l_index is not null) THEN
5921: l_header_id := OE_ORDER_UTIL.g_header_Scredit_tbl(l_index).header_id;
5919: l_index := OE_ORDER_UTIL.g_header_Scredit_tbl.first;
5920: IF (l_index is not null) THEN
5921: l_header_id := OE_ORDER_UTIL.g_header_Scredit_tbl(l_index).header_id;
5922: IF l_debug_level > 0 THEN
5923: oe_debug_pub.add('header id in g_header_Scredit_tbl is: ' || l_header_id ) ;
5924: oe_debug_pub.add('l_index in g_header_Scredit_tbl is: ' || l_index ) ;
5925: END IF;
5926: END IF;
5927:
5920: IF (l_index is not null) THEN
5921: l_header_id := OE_ORDER_UTIL.g_header_Scredit_tbl(l_index).header_id;
5922: IF l_debug_level > 0 THEN
5923: oe_debug_pub.add('header id in g_header_Scredit_tbl is: ' || l_header_id ) ;
5924: oe_debug_pub.add('l_index in g_header_Scredit_tbl is: ' || l_index ) ;
5925: END IF;
5926: END IF;
5927:
5928: ELSIF ( OE_ORDER_UTIL.g_line_tbl.count >0 ) THEN
5926: END IF;
5927:
5928: ELSIF ( OE_ORDER_UTIL.g_line_tbl.count >0 ) THEN
5929: IF l_debug_level > 0 THEN
5930: oe_debug_pub.add('Inside the line loop');
5931: END IF;
5932: l_index := OE_ORDER_UTIL.g_line_tbl.first;
5933: IF (l_index is not null) THEN
5934: l_header_id := OE_ORDER_UTIL.g_line_tbl(l_index).header_id;
5932: l_index := OE_ORDER_UTIL.g_line_tbl.first;
5933: IF (l_index is not null) THEN
5934: l_header_id := OE_ORDER_UTIL.g_line_tbl(l_index).header_id;
5935: IF l_debug_level > 0 THEN
5936: oe_debug_pub.add('header id in g_line_tbl is: ' || l_header_id ) ;
5937: oe_debug_pub.add('l_index in g_line_tbl is: ' || l_index ) ;
5938: END IF;
5939: END IF;
5940:
5933: IF (l_index is not null) THEN
5934: l_header_id := OE_ORDER_UTIL.g_line_tbl(l_index).header_id;
5935: IF l_debug_level > 0 THEN
5936: oe_debug_pub.add('header id in g_line_tbl is: ' || l_header_id ) ;
5937: oe_debug_pub.add('l_index in g_line_tbl is: ' || l_index ) ;
5938: END IF;
5939: END IF;
5940:
5941: ELSIF ( OE_ORDER_UTIL.g_line_adj_tbl.count >0 ) THEN
5940:
5941: ELSIF ( OE_ORDER_UTIL.g_line_adj_tbl.count >0 ) THEN
5942:
5943: IF l_debug_level > 0 THEN
5944: oe_debug_pub.add('Inside the line_adj loop');
5945: END IF;
5946: l_index := OE_ORDER_UTIL.g_line_adj_tbl.first;
5947: IF (l_index is not null) THEN
5948:
5947: IF (l_index is not null) THEN
5948:
5949: l_header_id := OE_ORDER_UTIL.g_line_adj_tbl(l_index).header_id;
5950: IF l_debug_level > 0 THEN
5951: oe_debug_pub.add('header id in g_line_adj_tbl is: ' || l_header_id ) ;
5952: oe_debug_pub.add('l_index in g_line_adj_tbl is: ' || l_index ) ;
5953: END IF;
5954: END IF;
5955:
5948:
5949: l_header_id := OE_ORDER_UTIL.g_line_adj_tbl(l_index).header_id;
5950: IF l_debug_level > 0 THEN
5951: oe_debug_pub.add('header id in g_line_adj_tbl is: ' || l_header_id ) ;
5952: oe_debug_pub.add('l_index in g_line_adj_tbl is: ' || l_index ) ;
5953: END IF;
5954: END IF;
5955:
5956: ELSIF ( OE_ORDER_UTIL.g_line_Scredit_tbl.count >0 ) THEN
5955:
5956: ELSIF ( OE_ORDER_UTIL.g_line_Scredit_tbl.count >0 ) THEN
5957:
5958: IF l_debug_level > 0 THEN
5959: oe_debug_pub.add('Inside the line_Scredit loop');
5960: END IF;
5961: l_index := OE_ORDER_UTIL.g_line_Scredit_tbl.first;
5962: IF (l_index is not null) THEN
5963:
5962: IF (l_index is not null) THEN
5963:
5964: l_header_id := OE_ORDER_UTIL.g_line_Scredit_tbl(l_index).header_id;
5965: IF l_debug_level > 0 THEN
5966: oe_debug_pub.add('header id in g_line_Scredit_tbl is: ' || l_header_id );
5967: oe_debug_pub.add('l_index in g_line_Scredit_tbl is: ' || l_index ) ;
5968: END IF;
5969: END IF;
5970:
5963:
5964: l_header_id := OE_ORDER_UTIL.g_line_Scredit_tbl(l_index).header_id;
5965: IF l_debug_level > 0 THEN
5966: oe_debug_pub.add('header id in g_line_Scredit_tbl is: ' || l_header_id );
5967: oe_debug_pub.add('l_index in g_line_Scredit_tbl is: ' || l_index ) ;
5968: END IF;
5969: END IF;
5970:
5971: ELSIF ( OE_ORDER_UTIL.g_Lot_Serial_tbl.count >0 ) THEN
5969: END IF;
5970:
5971: ELSIF ( OE_ORDER_UTIL.g_Lot_Serial_tbl.count >0 ) THEN
5972: IF l_debug_level > 0 THEN
5973: oe_debug_pub.add('Inside the group by_lot_serial loop');
5974: END IF;
5975: l_index := OE_ORDER_UTIL.g_Lot_Serial_tbl.first;
5976: IF (l_index is not null) THEN
5977: l_line_id := OE_ORDER_UTIL.g_Lot_Serial_tbl(l_index).line_id;
5986: null;
5987: END;
5988:
5989: IF l_debug_level > 0 THEN
5990: oe_debug_pub.add('header id in g_Lot_Serial_tbl is: ' || l_header_id);
5991: oe_debug_pub.add('line id in g_Lot_Serial_tbl is: ' || l_line_id);
5992: oe_debug_pub.add('l_index in g_Lot_Serial_tbl is: ' || l_index);
5993: END IF;
5994: END IF; -- l_index is not null in g_lot
5987: END;
5988:
5989: IF l_debug_level > 0 THEN
5990: oe_debug_pub.add('header id in g_Lot_Serial_tbl is: ' || l_header_id);
5991: oe_debug_pub.add('line id in g_Lot_Serial_tbl is: ' || l_line_id);
5992: oe_debug_pub.add('l_index in g_Lot_Serial_tbl is: ' || l_index);
5993: END IF;
5994: END IF; -- l_index is not null in g_lot
5995:
5988:
5989: IF l_debug_level > 0 THEN
5990: oe_debug_pub.add('header id in g_Lot_Serial_tbl is: ' || l_header_id);
5991: oe_debug_pub.add('line id in g_Lot_Serial_tbl is: ' || l_line_id);
5992: oe_debug_pub.add('l_index in g_Lot_Serial_tbl is: ' || l_index);
5993: END IF;
5994: END IF; -- l_index is not null in g_lot
5995:
5996: END IF; -- end if-elsif
5995:
5996: END IF; -- end if-elsif
5997:
5998: IF l_debug_level > 0 THEN
5999: oe_debug_pub.add( 'header id is: ' || l_header_id ) ;
6000: END IF;
6001:
6002: IF (l_header_id is not null AND l_header_id <> FND_API.G_MISS_NUM) THEN
6003:
6001:
6002: IF (l_header_id is not null AND l_header_id <> FND_API.G_MISS_NUM) THEN
6003:
6004: IF l_debug_level > 0 THEN
6005: oe_debug_pub.add('Just before calling Load_Order_Header');
6006: END IF;
6007:
6008: Oe_Order_Cache.Load_Order_Header(l_header_id);
6009: END IF;
6008: Oe_Order_Cache.Load_Order_Header(l_header_id);
6009: END IF;
6010:
6011: IF l_debug_level > 0 THEN
6012: oe_debug_pub.add('Out of Load_Order_Header in PRN');
6013: END IF;
6014: /* end of bug 2781468*/
6015:
6016: IF (OE_ORDER_UTIL.G_Recursion_Without_Exception = 'N' AND
6016: IF (OE_ORDER_UTIL.G_Recursion_Without_Exception = 'N' AND
6017: OE_ORDER_CACHE.g_header_rec.booked_flag = 'Y') THEN
6018:
6019: IF l_debug_level > 0 THEN
6020: oe_debug_pub.add( 'POST PACK H. CALLING NOTIFY_OC API' , 1 ) ;
6021: END IF;
6022:
6023: OE_SERVICE_UTIL.Notify_OC
6024: ( p_api_version_number => 1.0
6046: , p_old_Lot_Serial_tbl => OE_ORDER_UTIL.g_old_Lot_Serial_tbl
6047: );
6048:
6049: IF l_debug_level > 0 THEN
6050: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
6051: END IF;
6052: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6054: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6058:
6059: END IF;
6060:
6061: IF l_debug_level > 0 THEN
6062: oe_debug_pub.add( 'PROCESSING ACKS' , 1 ) ;
6063: oe_debug_pub.add( 'PACKS ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
6064: oe_debug_pub.add( 'PACKS' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG , 1 ) ;
6065: END IF;
6066:
6059: END IF;
6060:
6061: IF l_debug_level > 0 THEN
6062: oe_debug_pub.add( 'PROCESSING ACKS' , 1 ) ;
6063: oe_debug_pub.add( 'PACKS ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
6064: oe_debug_pub.add( 'PACKS' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG , 1 ) ;
6065: END IF;
6066:
6067: --SUN OIP ER
6060:
6061: IF l_debug_level > 0 THEN
6062: oe_debug_pub.add( 'PROCESSING ACKS' , 1 ) ;
6063: oe_debug_pub.add( 'PACKS ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
6064: oe_debug_pub.add( 'PACKS' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG , 1 ) ;
6065: END IF;
6066:
6067: --SUN OIP ER
6068: If NVL (Fnd_Profile.Value('ONT_RAISE_STATUS_CHANGE_BUSINESS_EVENT'), 'N')='Y' THEN
6107: IF (OE_ORDER_UTIL.G_Recursion_Without_Exception = 'N' AND
6108: OE_ORDER_CACHE.g_header_rec.booked_flag = 'Y' AND p_process_ack) THEN
6109:
6110: IF l_debug_level > 0 THEN
6111: oe_debug_pub.add( 'POST PACK H.CALLING ACKS API' , 1 ) ;
6112: END IF;
6113:
6114: -- { Start 3A6 changes, Design will still honor the Booking as
6115: -- the starting point of the triggering of the Show Sales Order
6120:
6121: -- { Start of If order_source_id = 20
6122: -- The below condition will only executed for the the XML Xactions
6123: IF l_debug_level > 0 THEN
6124: oe_debug_pub.add( 'PACKS ' || OE_ORDER_CACHE.G_HEADER_REC.ORDER_SOURCE_ID , 1 ) ;
6125: oe_debug_pub.add( 'PACKS ' || OE_ORDER_CACHE.G_HEADER_REC.SOLD_TO_ORG_ID , 1 ) ;
6126: END IF;
6127:
6128: If OE_ORDER_CACHE.g_header_rec.order_source_id in (20) OR
6121: -- { Start of If order_source_id = 20
6122: -- The below condition will only executed for the the XML Xactions
6123: IF l_debug_level > 0 THEN
6124: oe_debug_pub.add( 'PACKS ' || OE_ORDER_CACHE.G_HEADER_REC.ORDER_SOURCE_ID , 1 ) ;
6125: oe_debug_pub.add( 'PACKS ' || OE_ORDER_CACHE.G_HEADER_REC.SOLD_TO_ORG_ID , 1 ) ;
6126: END IF;
6127:
6128: If OE_ORDER_CACHE.g_header_rec.order_source_id in (20) OR
6129: NVL(Fnd_Profile.Value('ONT_RAISE_STATUS_CHANGE_BUSINESS_EVENT'), 'N')='Y' OR
6191: END IF;
6192:
6193: -- DBI project changes start
6194: IF l_debug_level > 0 THEN
6195: oe_debug_pub.add( 'CALLING OE_DBI_UTIL' , 1 ) ;
6196: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
6197: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
6198: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
6199: END IF;
6192:
6193: -- DBI project changes start
6194: IF l_debug_level > 0 THEN
6195: oe_debug_pub.add( 'CALLING OE_DBI_UTIL' , 1 ) ;
6196: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
6197: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
6198: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
6199: END IF;
6200:
6193: -- DBI project changes start
6194: IF l_debug_level > 0 THEN
6195: oe_debug_pub.add( 'CALLING OE_DBI_UTIL' , 1 ) ;
6196: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
6197: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
6198: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
6199: END IF;
6200:
6201: IF NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'), 'N') = 'Y' AND
6194: IF l_debug_level > 0 THEN
6195: oe_debug_pub.add( 'CALLING OE_DBI_UTIL' , 1 ) ;
6196: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
6197: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
6198: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
6199: END IF;
6200:
6201: IF NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'), 'N') = 'Y' AND
6202: oe_order_cache.g_header_rec.booked_flag = 'Y' AND
6231: /* Fix Bug # 3241831: Reset Global after all requests have been processed */
6232: IF OE_GLOBALS.G_RECURSION_MODE = 'N' AND OE_GLOBALS.G_UI_FLAG = FALSE THEN
6233: IF OE_OE_FORM_CANCEL_LINE.g_ord_lvl_can THEN
6234: IF l_debug_level > 0 THEN
6235: oe_debug_pub.add('SET G_ORD_LVL_CAN TO FALSE FOR NON UI ORDER CANCEL');
6236: END IF;
6237: OE_OE_FORM_CANCEL_LINE.g_ord_lvl_can := FALSE;
6238: END IF;
6239: END IF;
6244: OE_GLOBALS.G_HEADER_CREATED := FALSE;
6245: END IF;
6246:
6247: IF l_debug_level > 0 THEN
6248: oe_debug_pub.add( 'EXIT OE_ORDER_PVT.PROCESS_REQUESTS_AND_NOTIFY' , 1 ) ;
6249: END IF;
6250: set_recursion_mode(p_Entity_Code => 8,
6251: p_In_out => 0);
6252: IF l_debug_level > 0 THEN
6249: END IF;
6250: set_recursion_mode(p_Entity_Code => 8,
6251: p_In_out => 0);
6252: IF l_debug_level > 0 THEN
6253: oe_debug_pub.add( 'GLOBAL REQUEST TABLE COUNT- PRN'|| OE_DELAYED_REQUESTS_PVT.G_DELAYED_REQUESTS.COUNT , 1 ) ;
6254: END IF;
6255:
6256:
6257: EXCEPTION
6284:
6285: set_recursion_mode(p_Entity_Code => 8,
6286: p_In_out => 0);
6287: IF l_debug_level > 0 THEN
6288: oe_debug_pub.add( 'PO: EXITING PROCESS_REQUESTS_AND_NOTIFY WITH OTHERS ERROR' , 2 ) ;
6289: END IF;
6290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6291: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
6292: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
6391: l_old_Line_Scredit_tbl OE_Order_PUB.Line_Scredit_Tbl_Type;
6392: l_old_Line_Payment_tbl OE_Order_PUB.Line_Payment_Tbl_Type;
6393: l_old_Lot_Serial_tbl OE_Order_PUB.Lot_Serial_Tbl_Type;
6394: l_old_Lot_Serial_val_tbl OE_Order_PUB.Lot_Serial_Val_Tbl_Type;
6395: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6396: l_edi_ack_pfile Varchar2(3);
6397: l_transaction_phase_code VARCHAR2(1); -- Added for bug 4758902
6398: l_hdr_flow_status_refresh VARCHAR2(1); -- Added for bug 8435946
6399: BEGIN
6397: l_transaction_phase_code VARCHAR2(1); -- Added for bug 4758902
6398: l_hdr_flow_status_refresh VARCHAR2(1); -- Added for bug 8435946
6399: BEGIN
6400: IF l_debug_level > 0 THEN
6401: oe_debug_pub.add( 'ENTER PROCESS_ORDER_AG' , 1 ) ;
6402: END IF;
6403:
6404: -- Initialize x_return_status
6405: x_return_status := FND_API.G_RET_STS_SUCCESS;
6426: l_old_Lot_Serial_tbl := p_old_Lot_Serial_tbl;
6427:
6428:
6429: IF l_debug_level > 0 THEN
6430: oe_debug_pub.add( 'BEFORE HEADER PROCESSING' , 2 ) ;
6431: oe_debug_pub.add( 'HEADER_ID' || P_X_HEADER_REC.HEADER_ID , 2 ) ;
6432: oe_debug_pub.add( 'OPERATION' || P_X_HEADER_REC.OPERATION , 2 ) ;
6433: END IF;
6434:
6427:
6428:
6429: IF l_debug_level > 0 THEN
6430: oe_debug_pub.add( 'BEFORE HEADER PROCESSING' , 2 ) ;
6431: oe_debug_pub.add( 'HEADER_ID' || P_X_HEADER_REC.HEADER_ID , 2 ) ;
6432: oe_debug_pub.add( 'OPERATION' || P_X_HEADER_REC.OPERATION , 2 ) ;
6433: END IF;
6434:
6435: -------------------------------------------------------
6428:
6429: IF l_debug_level > 0 THEN
6430: oe_debug_pub.add( 'BEFORE HEADER PROCESSING' , 2 ) ;
6431: oe_debug_pub.add( 'HEADER_ID' || P_X_HEADER_REC.HEADER_ID , 2 ) ;
6432: oe_debug_pub.add( 'OPERATION' || P_X_HEADER_REC.OPERATION , 2 ) ;
6433: END IF;
6434:
6435: -------------------------------------------------------
6436: -- Process Header
6478: RAISE FND_API.G_EXC_ERROR;
6479: END IF;
6480: END IF;
6481: IF l_debug_level > 0 THEN
6482: oe_debug_pub.add( 'AFTER HEADER PROCESSING HEADER_ID = '|| TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) , 2 ) ;
6483: END IF;
6484:
6485: -- Perform header group requests.
6486:
6506:
6507: -- FOR I IN 1..p_x_header_adj_tbl.COUNT LOOP
6508:
6509: IF l_debug_level > 0 THEN
6510: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_ADJ_TBL' , 2 ) ;
6511: END IF;
6512:
6513: IF p_x_header_adj_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6514: AND (p_x_header_adj_tbl(I).header_id IS NULL OR
6543: -- Header_Adjs
6544:
6545: IF p_x_header_adj_tbl.COUNT > 0 THEN
6546: IF l_debug_level > 0 THEN
6547: oe_debug_pub.add( 'BEFORE OE_ORDER_ADJ_PVT.HEADER_ADJS PROCESSING' , 2 ) ;
6548: END IF;
6549: oe_order_adj_pvt.Header_Adjs
6550: ( p_validation_level => p_validation_level
6551: , p_control_rec => p_control_rec
6554: );
6555: END IF;
6556:
6557: IF l_debug_level > 0 THEN
6558: oe_debug_pub.add( 'AFTER HEADER_ADJS PROCESSING' , 2 ) ;
6559: END IF;
6560: -- Perform Header_Adj group requests.
6561:
6562: IF (p_control_rec.process AND
6590:
6591: WHILE I IS NOT NULL LOOP
6592:
6593: IF l_debug_level > 0 THEN
6594: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_PRICE_ATT_TBL' , 2 ) ;
6595: END IF;
6596: IF p_x_header_price_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6597: AND (p_x_header_price_att_tbl(I).header_id IS NULL OR
6598: p_x_header_price_att_tbl(I).header_id = FND_API.G_MISS_NUM)
6615: -- Header_Price_Atts
6616:
6617: IF p_x_header_price_Att_tbl.COUNT > 0 THEN
6618: IF l_debug_level > 0 THEN
6619: oe_debug_pub.add( 'BEFORE OE_ORDER_ADJ_PVT.HEADER_PRICE_ATTS PROCESSING' , 2 ) ;
6620: END IF;
6621: oe_order_adj_pvt.Header_Price_Atts
6622: ( p_validation_level => p_validation_level
6623: , p_control_rec => p_control_rec
6626: );
6627: END IF;
6628:
6629: IF l_debug_level > 0 THEN
6630: oe_debug_pub.add( 'AFTER HEADER_PRICE_ATTS PROCESSING' , 2 ) ;
6631: END IF;
6632: -- Perform Header_Price_Att group requests.
6633:
6634: IF (p_control_rec.process AND
6664:
6665: WHILE I IS NOT NULL LOOP
6666:
6667: IF l_debug_level > 0 THEN
6668: oe_debug_pub.add( 'SETTING PRICE ADJUSTMENT ID ON HDR_ADJ_ATTBS' , 2 ) ;
6669: END IF;
6670: IF p_x_header_adj_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6671: AND (p_x_header_adj_att_tbl(I).price_adjustment_id IS NULL OR
6672: p_x_header_adj_att_tbl(I).price_adjustment_id = FND_API.G_MISS_NUM)
6681: ELSE
6682: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
6683: THEN
6684: IF l_debug_level > 0 THEN
6685: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( P_X_HEADER_ADJ_ATT_TBL ( I ) .ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
6686: END IF;
6687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6688: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
6689: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Attribs');
6700: -- Header_Adj_Atts
6701: IF p_x_header_adj_Att_tbl.COUNT > 0 THEN
6702:
6703: IF l_debug_level > 0 THEN
6704: oe_debug_pub.add( 'BEFORE OE_ORDER_ADJ_PVT.HEADER_ADJ_ATTS PROCESSING' , 2 ) ;
6705: END IF;
6706: oe_order_adj_pvt.Header_Adj_Atts
6707: ( p_validation_level => p_validation_level
6708: , p_control_rec => p_control_rec
6710: , p_x_old_Header_Adj_Att_tbl => l_old_header_Adj_Att_tbl
6711: );
6712:
6713: IF l_debug_level > 0 THEN
6714: oe_debug_pub.add( 'AFTER HEADER_ADJ_ATTS PROCESSING' , 2 ) ;
6715: END IF;
6716:
6717: END IF;
6718:
6727:
6728: WHILE I IS NOT NULL LOOP
6729:
6730: IF l_debug_level > 0 THEN
6731: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_ADJ_ASSOC_TBL' , 2 ) ;
6732: END IF;
6733: IF p_x_header_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6734: AND (p_x_header_adj_assoc_tbl(I).Price_Adjustment_id IS NULL OR
6735: p_x_header_adj_assoc_tbl(I).Price_Adjustment_id = FND_API.G_MISS_NUM)
6743: ELSE
6744: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
6745: THEN
6746: IF l_debug_level > 0 THEN
6747: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( P_X_HEADER_ADJ_ASSOC_TBL ( I ) .ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
6748: END IF;
6749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6750: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
6751: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Assocs');
6777:
6778: IF p_x_header_adj_Assoc_tbl.COUNT > 0 THEN
6779:
6780: IF l_debug_level > 0 THEN
6781: oe_debug_pub.add( 'BEFORE OE_ORDER_ADJ_PVT.HEADER_ADJ_ASSOCS PROCESSING' , 2 ) ;
6782: END IF;
6783: oe_order_adj_pvt.Header_Adj_Assocs
6784: ( p_validation_level => p_validation_level
6785: , p_control_rec => p_control_rec
6787: , p_x_old_Header_Adj_Assoc_tbl => l_old_header_Adj_Assoc_tbl
6788: );
6789:
6790: IF l_debug_level > 0 THEN
6791: oe_debug_pub.add( 'AFTER HEADER_ADJ_ASSOCS PROCESSING' , 2 ) ;
6792: END IF;
6793: END IF;
6794:
6795:
6803: I := p_x_header_scredit_tbl.FIRST;
6804: WHILE I IS NOT NULL LOOP
6805:
6806: IF l_debug_level > 0 THEN
6807: oe_debug_pub.add( 'SETTING HEADER_ID ON HEADER_SCREDIT_TBL' , 2 ) ;
6808: END IF;
6809: IF p_x_header_scredit_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6810: AND (p_x_header_scredit_tbl(I).header_id IS NULL OR
6811: p_x_header_scredit_tbl(I).header_id = FND_API.G_MISS_NUM)
6830:
6831: IF p_x_header_scredit_tbl.COUNT > 0 THEN
6832:
6833: IF l_debug_level > 0 THEN
6834: oe_debug_pub.add( 'BEFORE HEADER_SCREDITS PROCESSING' , 2 ) ;
6835: END IF;
6836: Header_Scredits
6837: ( p_validation_level => p_validation_level
6838: , p_control_rec => p_control_rec
6849: RAISE FND_API.G_EXC_ERROR;
6850: END IF;
6851: END IF;
6852: IF l_debug_level > 0 THEN
6853: oe_debug_pub.add( 'AFTER HEADER_SCREDITS PROCESSING' , 2 ) ;
6854: END IF;
6855:
6856: END IF;
6857:
6914: I := p_x_header_payment_tbl.FIRST;
6915: WHILE I IS NOT NULL LOOP
6916:
6917: IF l_debug_level > 0 THEN
6918: oe_debug_pub.add( 'SETTING HEADER_ID ON HEADER_PAYMENT_TBL' , 2 ) ;
6919: END IF;
6920: IF p_x_header_payment_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6921: AND (p_x_header_payment_tbl(I).header_id IS NULL OR
6922: p_x_header_payment_tbl(I).header_id = FND_API.G_MISS_NUM)
6941:
6942: IF p_x_header_payment_tbl.COUNT > 0 THEN
6943:
6944: IF l_debug_level > 0 THEN
6945: oe_debug_pub.add( 'BEFORE HEADER_PAYMENTS PROCESSING' , 2 ) ;
6946: END IF;
6947: Header_Payments
6948: ( p_validation_level => p_validation_level
6949: , p_control_rec => p_control_rec
6960: RAISE FND_API.G_EXC_ERROR;
6961: END IF;
6962: END IF;
6963: IF l_debug_level > 0 THEN
6964: oe_debug_pub.add( 'AFTER HEADER_PAYMENTS PROCESSING' , 2 ) ;
6965: END IF;
6966:
6967: END IF;
6968:
7016: FROM oe_order_lines_all
7017: WHERE line_id = p_x_line_tbl(I).line_id;
7018: EXCEPTION
7019: WHEN NO_DATA_FOUND THEN
7020: oe_debug_pub.add(' No Transaction Phase Code for parent split line.',1);
7021: NULL;
7022: WHEN OTHERS THEN
7023: oe_debug_pub.add(' OTHERS: No Transaction Phase Code for parent split line.',1);
7024: NULL;
7019: WHEN NO_DATA_FOUND THEN
7020: oe_debug_pub.add(' No Transaction Phase Code for parent split line.',1);
7021: NULL;
7022: WHEN OTHERS THEN
7023: oe_debug_pub.add(' OTHERS: No Transaction Phase Code for parent split line.',1);
7024: NULL;
7025: END;
7026:
7027: IF NVL(l_transaction_phase_code,'F') = 'N' THEN
7024: NULL;
7025: END;
7026:
7027: IF NVL(l_transaction_phase_code,'F') = 'N' THEN
7028: oe_debug_pub.add(' Line Id : '||p_x_line_tbl(I).line_id||' cannot be split. It is in Negotiation Phase.');
7029: FND_MESSAGE.SET_NAME('ONT','OE_PC_SPLIT_VIOLATION');
7030: FND_MESSAGE.SET_TOKEN('OBJECT',p_x_line_tbl(I).line_id);
7031: FND_MESSAGE.SET_TOKEN('REASON','Line is in Negotiation Phase');
7032: OE_MSG_PUB.Add;
7107:
7108: IF p_x_line_tbl.COUNT > 0 THEN
7109:
7110: IF l_debug_level > 0 THEN
7111: oe_debug_pub.add( 'BEFORE LINES PROCESSING' , 2 ) ;
7112: END IF;
7113: Lines
7114: ( p_validation_level => p_validation_level
7115: , p_control_rec => p_control_rec
7126: RAISE FND_API.G_EXC_ERROR;
7127: END IF;
7128: END IF;
7129: IF l_debug_level > 0 THEN
7130: oe_debug_pub.add( 'AFTER LINES PROCESSING' , 2 ) ;
7131: END IF;
7132:
7133: END IF;
7134:
7136: I := p_x_line_scredit_tbl.FIRST;
7137: WHILE I IS NOT NULL LOOP
7138:
7139: IF l_debug_level > 0 THEN
7140: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE SC TABLE' ) ;
7141: END IF;
7142: IF p_x_line_scredit_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7143: AND (p_x_line_scredit_tbl(I).line_id IS NULL OR
7144: p_x_line_scredit_tbl(I).line_id = FND_API.G_MISS_NUM)
7143: AND (p_x_line_scredit_tbl(I).line_id IS NULL OR
7144: p_x_line_scredit_tbl(I).line_id = FND_API.G_MISS_NUM)
7145: THEN
7146: IF l_debug_level > 0 THEN
7147: oe_debug_pub.add( 'SETTING LINE IDS ON LINE SC TABLE' , 2 ) ;
7148: END IF;
7149:
7150: -- Check If parent exists.
7151:
7165:
7166: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7167: THEN
7168: IF l_debug_level > 0 THEN
7169: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON LINE SALES CREDITS' , 2 ) ;
7170: END IF;
7171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7172: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7173: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Scredit');
7187: I := p_x_line_payment_tbl.FIRST;
7188: WHILE I IS NOT NULL LOOP
7189:
7190: IF l_debug_level > 0 THEN
7191: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE SC TABLE' ) ;
7192: END IF;
7193: IF p_x_line_payment_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7194: AND (p_x_line_payment_tbl(I).line_id IS NULL OR
7195: p_x_line_payment_tbl(I).line_id = FND_API.G_MISS_NUM)
7194: AND (p_x_line_payment_tbl(I).line_id IS NULL OR
7195: p_x_line_payment_tbl(I).line_id = FND_API.G_MISS_NUM)
7196: THEN
7197: IF l_debug_level > 0 THEN
7198: oe_debug_pub.add( 'SETTING LINE IDS ON LINE PAYMENT TABLE' , 2 ) ;
7199: END IF;
7200:
7201: -- Check If parent exists.
7202:
7211:
7212: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7213: THEN
7214: IF l_debug_level > 0 THEN
7215: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON LINE SALES CREDITS' , 2 ) ;
7216: END IF;
7217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7218: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7219: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Payment');
7233: I := p_x_line_adj_tbl.FIRST;
7234: WHILE I IS NOT NULL LOOP
7235:
7236: IF l_debug_level > 0 THEN
7237: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE ADJ TABLE' , 2 ) ;
7238: END IF;
7239:
7240: IF p_x_line_adj_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7241: AND (p_x_line_adj_tbl(I).line_id IS NULL OR
7242: p_x_line_adj_tbl(I).line_id = FND_API.G_MISS_NUM)
7243: THEN
7244:
7245: IF l_debug_level > 0 THEN
7246: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ADJ TABLE' , 2 ) ;
7247: END IF;
7248: -- Check If parent exists.
7249:
7250: IF p_x_line_adj_tbl(I).line_index <> fnd_api.g_miss_num and
7258: ELSIF p_x_line_adj_tbl(I).header_id is not null and
7259: p_x_line_adj_tbl(I).header_id <> FND_API.G_MISS_NUM Then
7260: -- Treat the adjustment record as a header_adjustment record
7261: IF l_debug_level > 0 THEN
7262: oe_debug_pub.add( 'TREATING THE RECORD AS HEADER_ADJUSTMENT' ) ;
7263: END IF;
7264: ELSE
7265:
7266: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7265:
7266: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7267: THEN
7268: IF l_debug_level > 0 THEN
7269: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
7270: END IF;
7271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7272:
7273: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7290: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7291: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE)
7292: THEN
7293: IF l_debug_level > 0 THEN
7294: oe_debug_pub.add( 'PROCESS LINE REQUESTS' ) ;
7295: END IF;
7296:
7297: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7298: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
7381: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_SCREDIT)
7382: THEN
7383:
7384: IF l_debug_level > 0 THEN
7385: oe_debug_pub.add( 'PROCESSING DELAYED REQUESTS FOR LINES' , 2 ) ;
7386: END IF;
7387:
7388: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7389: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Scredit
7391: ,x_return_status => l_return_status
7392: );
7393:
7394: IF l_debug_level > 0 THEN
7395: oe_debug_pub.add( 'PROCESSED DELAYED REQUESTS FOR LINES' , 2 ) ;
7396: END IF;
7397:
7398: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7440: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_PAYMENT)
7441: THEN
7442:
7443: IF l_debug_level > 0 THEN
7444: oe_debug_pub.add( 'PROCESSING DELAYED REQUESTS FOR LINES' , 2 ) ;
7445: END IF;
7446:
7447: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7448: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_PAYMENT
7450: ,x_return_status => l_return_status
7451: );
7452:
7453: IF l_debug_level > 0 THEN
7454: oe_debug_pub.add( 'PROCESSED DELAYED REQUESTS FOR LINES' , 2 ) ;
7455: END IF;
7456:
7457: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7546: I := p_x_line_price_Att_tbl.FIRST;
7547: WHILE I IS NOT NULL LOOP
7548:
7549: IF l_debug_level > 0 THEN
7550: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE ATTRIBUTES TABLE' , 2 ) ;
7551: END IF;
7552: IF p_x_line_price_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7553: AND (p_x_line_price_att_tbl(I).line_id IS NULL OR
7554: p_x_line_price_att_tbl(I).line_id = FND_API.G_MISS_NUM)
7554: p_x_line_price_att_tbl(I).line_id = FND_API.G_MISS_NUM)
7555: THEN
7556:
7557: IF l_debug_level > 0 THEN
7558: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ATTRIB TABLE' , 2 ) ;
7559: END IF;
7560: -- Check If parent exists.
7561:
7562: IF p_x_line_tbl.EXISTS(p_x_line_price_att_tbl(I).line_index) THEN
7570:
7571: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7572: THEN
7573: IF l_debug_level > 0 THEN
7574: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( P_X_LINE_PRICE_ATT_TBL ( I ) .LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
7575: END IF;
7576: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7577:
7578: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7631: I := p_x_line_adj_Att_tbl.FIRST;
7632: WHILE I IS NOT NULL LOOP
7633:
7634: IF l_debug_level > 0 THEN
7635: oe_debug_pub.add( 'SETTING PRICE_ADJUSTMENT_ID ON LINE ADJ ATTRIB TABLE' , 2 ) ;
7636: END IF;
7637:
7638: IF p_x_line_adj_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7639: AND (p_x_line_adj_att_tbl(I).price_adjustment_id IS NULL OR
7640: p_x_line_adj_att_tbl(I).price_adjustment_id = FND_API.G_MISS_NUM)
7641: THEN
7642:
7643: IF l_debug_level > 0 THEN
7644: oe_debug_pub.add( 'SETTING ADJ IDS ON LINE ADJ ATTRIB TABLE' , 2 ) ;
7645: END IF;
7646: -- Check If parent exists.
7647:
7648: IF p_x_line_adj_tbl.EXISTS(p_x_Line_Adj_att_tbl(I).Adj_index) THEN
7655:
7656: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7657: THEN
7658: IF l_debug_level > 0 THEN
7659: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( P_X_LINE_ADJ_ATT_TBL ( I ) .ADJ_INDEX ) ||'ON ADJ ATTRIBS' , 2 ) ;
7660: END IF;
7661: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7662:
7663: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7694: I := p_x_line_adj_Assoc_tbl.FIRST;
7695: WHILE I IS NOT NULL LOOP
7696:
7697: IF l_debug_level > 0 THEN
7698: oe_debug_pub.add( 'SETTING PRICE_ADJUSTMENT_ID ON LINE ADJ ASSOCS TABLE' , 2 ) ;
7699: END IF;
7700: IF p_x_line_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7701: AND (p_x_line_adj_assoc_tbl(I).price_adjustment_id IS NULL OR
7702: p_x_line_adj_assoc_tbl(I).price_adjustment_id = FND_API.G_MISS_NUM)
7702: p_x_line_adj_assoc_tbl(I).price_adjustment_id = FND_API.G_MISS_NUM)
7703: THEN
7704:
7705: IF l_debug_level > 0 THEN
7706: oe_debug_pub.add( 'SETTING ADJ IDS ON LINE ADJ ASSOCS TABLE' , 2 ) ;
7707: END IF;
7708: -- Check If parent exists.
7709:
7710: IF p_x_line_adj_tbl.EXISTS(p_x_Line_Adj_assoc_tbl(I).Adj_index) THEN
7717:
7718: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7719: THEN
7720: IF l_debug_level > 0 THEN
7721: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( P_X_LINE_ADJ_ASSOC_TBL ( I ) .ADJ_INDEX ) ||'ON ADJ ASSOCS' , 2 ) ;
7722: END IF;
7723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7724:
7725: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7737: p_x_line_adj_assoc_tbl(I).Line_id = FND_API.G_MISS_NUM)
7738: THEN
7739:
7740: IF l_debug_level > 0 THEN
7741: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ADJ ASSOCS TABLE' , 2 ) ;
7742: END IF;
7743: -- Check If parent exists.
7744:
7745: IF p_x_line_tbl.EXISTS(p_x_line_adj_assoc_tbl(I).Line_Index) THEN
7786: I := p_x_action_request_tbl.FIRST;
7787: WHILE I IS NOT NULL LOOP
7788:
7789: IF l_debug_level > 0 THEN
7790: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON REQUEST TABLE' , 2 ) ;
7791: END IF;
7792:
7793: IF (p_x_action_request_tbl(I).entity_code = OE_GLOBALS.G_ENTITY_HEADER) THEN
7794:
7795: IF (p_x_action_request_tbl(I).entity_id IS NULL OR
7796: p_x_action_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
7797: THEN
7798: IF l_debug_level > 0 THEN
7799: oe_debug_pub.add( 'SETTING HEADER IDS ON REQUEST TABLE FOR HEADER ENTITY' , 2 ) ;
7800: END IF;
7801: IF p_x_header_rec.header_id IS NULL OR
7802: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
7803: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
7814: IF (p_x_action_request_tbl(I).entity_id IS NULL OR
7815: p_x_action_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
7816: THEN
7817: IF l_debug_level > 0 THEN
7818: oe_debug_pub.add( 'SETTING LINE IDS ON REQUEST TABLE FOR LINE ENTITY' , 2 ) ;
7819: END IF;
7820: -- Check If entity record exists.
7821:
7822: IF p_x_line_tbl.EXISTS(p_x_action_request_tbl(I).entity_index) THEN
7829:
7830: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7831: THEN
7832: IF l_debug_level > 0 THEN
7833: oe_debug_pub.add( 'INVALID ENTITY INDEX ' ||TO_CHAR ( p_x_action_request_tbl ( I ) .ENTITY_INDEX ) ||'ON REQUEST TABLE FOR LINE ENTITY' , 2 ) ;
7834: END IF;
7835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7836: END IF;
7837: END IF;
7842: IF (p_x_action_request_tbl(I).entity_id IS NULL OR
7843: p_x_action_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
7844: THEN
7845: IF l_debug_level > 0 THEN
7846: oe_debug_pub.add( 'SETTING HEADER IDS ON REQUEST TABLE FOR VERIFY_PAYMENT' , 2 ) ;
7847: END IF;
7848: IF p_x_header_rec.header_id IS NULL OR
7849: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
7850: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
7863: -- Step 7. Perform Object group logic
7864:
7865: -- Perform Delayed Requests for all the the entities
7866: IF l_debug_level > 0 THEN
7867: oe_debug_pub.add( 'OEXVORDB: BEFORE CALLING PROCESS_DELAYED_REQUESTS' , 2 ) ;
7868: END IF;
7869: IF (p_control_rec.process AND
7870: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7871: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
7874: OE_DELAYED_REQUESTS_PVT.Process_Delayed_Requests(
7875: x_return_status => l_return_status
7876: );
7877: IF l_debug_level > 0 THEN
7878: oe_debug_pub.add( 'OEXVORDB: COMPLETED PROCESS_DELAYED_REQUESTS ' || ' WITH RETURN STATUS' || L_RETURN_STATUS , 2 ) ;
7879: END IF;
7880: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7882: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7897: END IF;
7898: /* comm rej
7899: --R12 CVV2
7900: IF l_debug_level > 0 THEN
7901: oe_debug_pub.add('after OE_Delayed_Requests_PVT.Process_Order_Actions cvv2');
7902: END IF;
7903: i := p_x_action_request_tbl.first;
7904: while i is not null loop
7905: IF l_debug_level > 0 THEN
7902: END IF;
7903: i := p_x_action_request_tbl.first;
7904: while i is not null loop
7905: IF l_debug_level > 0 THEN
7906: oe_debug_pub.add('return_status : ' || p_x_action_request_tbl(i).return_status);
7907: oe_debug_pub.add('request_type : ' || p_x_action_request_tbl(i).request_type);
7908: END IF;
7909: IF p_x_action_request_tbl(i).return_status = FND_API.G_RET_STS_ERROR
7910: AND p_x_action_request_tbl(i).request_type = OE_GLOBALS.G_VERIFY_PAYMENT THEN
7903: i := p_x_action_request_tbl.first;
7904: while i is not null loop
7905: IF l_debug_level > 0 THEN
7906: oe_debug_pub.add('return_status : ' || p_x_action_request_tbl(i).return_status);
7907: oe_debug_pub.add('request_type : ' || p_x_action_request_tbl(i).request_type);
7908: END IF;
7909: IF p_x_action_request_tbl(i).return_status = FND_API.G_RET_STS_ERROR
7910: AND p_x_action_request_tbl(i).request_type = OE_GLOBALS.G_VERIFY_PAYMENT THEN
7911: x_return_status := FND_API.G_RET_STS_ERROR;
7943: END IF;
7944:
7945:
7946: IF l_debug_level > 0 THEN
7947: oe_debug_pub.add( 'OEXVORDB: AFTER PROCESS_ORDER_ACTIONS' , 2 ) ;
7948: END IF;
7949:
7950:
7951: -- Clear API cache.
8050: I := p_x_line_adj_Assoc_tbl.NEXT(I);
8051: END LOOP;
8052:
8053: IF l_debug_level > 0 THEN
8054: oe_debug_pub.add( 'JPN: BEFORE CALLING NOTIFY , HEADER_ID IS: ' || P_X_HEADER_REC.HEADER_ID ) ;
8055: END IF;
8056: -- Calling Update Notice API - Provided by OC
8057: -- This API will notify OC about the changes happen in OM side for order
8058:
8061:
8062: IF (OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508') then
8063: /* Call Process Requests and notify */
8064: IF l_debug_level > 0 THEN
8065: oe_debug_pub.add( 'CALLING PROCESS_REQUESTS_AND_NOTIFY FOR PACK H IN PROCESS_ORDER_AG' );
8066: END IF;
8067: Process_Requests_And_Notify(
8068: p_process_requests => FALSE,
8069: p_notify => TRUE,
8097: /* Pre Pack H processsing */
8098:
8099:
8100: IF l_debug_level > 0 THEN
8101: oe_debug_pub.add( 'CS BEFORE CALLING NOTIFY_OC API' , 1 ) ;
8102: END IF;
8103: IF x_return_status = FND_API.G_RET_STS_SUCCESS AND
8104: p_control_rec.write_to_db = TRUE
8105: AND oe_order_cache.g_header_rec.booked_flag = 'Y'
8104: p_control_rec.write_to_db = TRUE
8105: AND oe_order_cache.g_header_rec.booked_flag = 'Y'
8106: THEN
8107: IF l_debug_level > 0 THEN
8108: oe_debug_pub.add( 'CS CALLING NOTIFY_OC API' , 1 ) ;
8109: END IF;
8110:
8111: OE_SERVICE_UTIL.Notify_OC
8112: ( p_api_version_number => l_api_version_number
8152: );
8153:
8154:
8155: IF l_debug_level > 0 THEN
8156: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
8157: END IF;
8158: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8160: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8164:
8165: END IF;
8166:
8167: IF l_debug_level > 0 THEN
8168: oe_debug_pub.add( 'PROCESSING ACKS' , 1 ) ;
8169: END IF;
8170:
8171: IF OE_Globals.G_RECURSION_MODE <> 'Y' AND
8172: x_return_status = FND_API.G_RET_STS_SUCCESS AND
8172: x_return_status = FND_API.G_RET_STS_SUCCESS AND
8173: l_control_rec.write_to_db = TRUE
8174: THEN
8175: IF l_debug_level > 0 THEN
8176: oe_debug_pub.add( 'CALLING ACKS API' , 1 ) ;
8177: END IF;
8178:
8179: If Oe_Code_Control.Code_Release_Level >= '110510' And
8180: p_x_header_rec.order_source_id in (0,2,6) And
8236:
8237: -- x_return_status := l_return_status;
8238:
8239: IF l_debug_level > 0 THEN
8240: oe_debug_pub.add( 'EXIT PROCESS_ORDER_AG' , 1 ) ;
8241: END IF;
8242: END Process_Order_AG;
8243:
8244: /*----------------------------------------------------------------
8496: I NUMBER; -- Used for as table index.
8497: l_init_msg_list VARCHAR2(1) := p_init_msg_list;
8498: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
8499: l_Call_Split BOOLEAN := FALSE;
8500: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8501: l_edi_ack_pfile Varchar2(3);
8502:
8503: BEGIN
8504:
8517: END IF;
8518:
8519:
8520: IF l_debug_level > 0 THEN
8521: oe_debug_pub.add( 'ENTERING OE_ORDER_PUB.PROCESS_ORDER' , 1 ) ;
8522: END IF;
8523: -- Standard call to check for call compatibility
8524:
8525: IF NOT FND_API.Compatible_API_Call
8649:
8650: -- Header
8651:
8652: IF l_debug_level > 0 THEN
8653: oe_debug_pub.add( 'BEFORE HEADER PROCESSING' , 2 ) ;
8654: oe_debug_pub.add( 'HEADER_ID' || L_HEADER_REC.HEADER_ID , 2 ) ;
8655: oe_debug_pub.add( 'OPERATION' || L_HEADER_REC.OPERATION , 2 ) ;
8656: END IF;
8657:
8650: -- Header
8651:
8652: IF l_debug_level > 0 THEN
8653: oe_debug_pub.add( 'BEFORE HEADER PROCESSING' , 2 ) ;
8654: oe_debug_pub.add( 'HEADER_ID' || L_HEADER_REC.HEADER_ID , 2 ) ;
8655: oe_debug_pub.add( 'OPERATION' || L_HEADER_REC.OPERATION , 2 ) ;
8656: END IF;
8657:
8658: -------------------------------------------------------
8651:
8652: IF l_debug_level > 0 THEN
8653: oe_debug_pub.add( 'BEFORE HEADER PROCESSING' , 2 ) ;
8654: oe_debug_pub.add( 'HEADER_ID' || L_HEADER_REC.HEADER_ID , 2 ) ;
8655: oe_debug_pub.add( 'OPERATION' || L_HEADER_REC.OPERATION , 2 ) ;
8656: END IF;
8657:
8658: -------------------------------------------------------
8659: -- Process Header
8701: RAISE FND_API.G_EXC_ERROR;
8702: END IF;
8703: END IF;
8704: IF l_debug_level > 0 THEN
8705: oe_debug_pub.add( 'AFTER HEADER PROCESSING HEADER_ID = '|| TO_CHAR ( L_HEADER_REC.HEADER_ID ) , 2 ) ;
8706: END IF;
8707:
8708: -- Perform header group requests.
8709:
8729:
8730: -- FOR I IN 1..l_Header_Adj_tbl.COUNT LOOP
8731:
8732: IF l_debug_level > 0 THEN
8733: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_ADJ_TBL' , 2 ) ;
8734: END IF;
8735: l_Header_Adj_rec := l_Header_Adj_tbl(I);
8736:
8737: IF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE
8767: -- Header_Adjs
8768:
8769: IF l_Header_Adj_tbl.COUNT > 0 THEN
8770: IF l_debug_level > 0 THEN
8771: oe_debug_pub.add( 'BEFORE OE_ORDER_ADJ_PVT.HEADER_ADJS PROCESSING' , 2 ) ;
8772: END IF;
8773: oe_order_adj_pvt.Header_Adjs
8774: ( p_validation_level => p_validation_level
8775: , p_control_rec => p_control_rec
8778: );
8779: END IF;
8780:
8781: IF l_debug_level > 0 THEN
8782: oe_debug_pub.add( 'AFTER HEADER_ADJS PROCESSING' , 2 ) ;
8783: END IF;
8784: -- Perform Header_Adj group requests.
8785:
8786: IF (p_control_rec.process AND
8814:
8815: WHILE I IS NOT NULL LOOP
8816:
8817: IF l_debug_level > 0 THEN
8818: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_PRICE_ATT_TBL' , 2 ) ;
8819: END IF;
8820: l_Header_Price_Att_Rec := l_Header_Price_att_tbl(I);
8821:
8822: IF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
8841: -- Header_Price_Atts
8842:
8843: IF l_Header_Price_Att_tbl.COUNT > 0 THEN
8844: IF l_debug_level > 0 THEN
8845: oe_debug_pub.add( 'BEFORE OE_ORDER_ADJ_PVT.HEADER_PRICE_ATTS PROCESSING' , 2 ) ;
8846: END IF;
8847: oe_order_adj_pvt.Header_Price_Atts
8848: ( p_validation_level => p_validation_level
8849: , p_control_rec => p_control_rec
8852: );
8853: END IF;
8854:
8855: IF l_debug_level > 0 THEN
8856: oe_debug_pub.add( 'AFTER HEADER_PRICE_ATTS PROCESSING' , 2 ) ;
8857: END IF;
8858: -- Perform Header_Price_Att group requests.
8859:
8860: IF (p_control_rec.process AND
8890:
8891: WHILE I IS NOT NULL LOOP
8892:
8893: IF l_debug_level > 0 THEN
8894: oe_debug_pub.add( 'SETTING PRICE ADJUSTMENT ID ON HDR_ADJ_ATTBS' , 2 ) ;
8895: END IF;
8896: l_Header_Adj_Att_rec := l_Header_Adj_Att_tbl(I);
8897:
8898: IF l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
8909: ELSE
8910: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
8911: THEN
8912: IF l_debug_level > 0 THEN
8913: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( L_HEADER_ADJ_ATT_REC.ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
8914: END IF;
8915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8916: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
8917: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Attribs');
8928: -- Header_Adj_Atts
8929: IF l_Header_Adj_Att_tbl.COUNT > 0 THEN
8930:
8931: IF l_debug_level > 0 THEN
8932: oe_debug_pub.add( 'BEFORE OE_ORDER_ADJ_PVT.HEADER_ADJ_ATTS PROCESSING' , 2 ) ;
8933: END IF;
8934: oe_order_adj_pvt.Header_Adj_Atts
8935: ( p_validation_level => p_validation_level
8936: , p_control_rec => p_control_rec
8938: , p_x_old_Header_Adj_Att_tbl => l_old_Header_Adj_Att_tbl
8939: );
8940:
8941: IF l_debug_level > 0 THEN
8942: oe_debug_pub.add( 'AFTER HEADER_ADJ_ATTS PROCESSING' , 2 ) ;
8943: END IF;
8944:
8945: END IF;
8946:
8981:
8982: WHILE I IS NOT NULL LOOP
8983:
8984: IF l_debug_level > 0 THEN
8985: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_ADJ_ASSOC_TBL' , 2 ) ;
8986: END IF;
8987: l_Header_Adj_Assoc_rec := l_Header_Adj_Assoc_tbl(I);
8988:
8989: IF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
8999: ELSE
9000: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9001: THEN
9002: IF l_debug_level > 0 THEN
9003: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( L_HEADER_ADJ_ASSOC_REC.ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
9004: END IF;
9005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9006: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9007: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Assocs');
9033:
9034: IF l_Header_Adj_Assoc_tbl.COUNT > 0 THEN
9035:
9036: IF l_debug_level > 0 THEN
9037: oe_debug_pub.add( 'BEFORE OE_ORDER_ADJ_PVT.HEADER_ADJ_ASSOCS PROCESSING' , 2 ) ;
9038: END IF;
9039: oe_order_adj_pvt.Header_Adj_Assocs
9040: ( p_validation_level => p_validation_level
9041: , p_control_rec => p_control_rec
9043: , p_x_old_Header_Adj_Assoc_tbl => l_old_Header_Adj_Assoc_tbl
9044: );
9045:
9046: IF l_debug_level > 0 THEN
9047: oe_debug_pub.add( 'AFTER HEADER_ADJ_ASSOCS PROCESSING' , 2 ) ;
9048: END IF;
9049: END IF;
9050:
9051: -- Perform Header_Adj_Assoc group requests.
9087: I := l_Header_Scredit_tbl.FIRST;
9088: WHILE I IS NOT NULL LOOP
9089:
9090: IF l_debug_level > 0 THEN
9091: oe_debug_pub.add( 'SETTING HEADER_ID ON HEADER_SCREDIT_TBL:'||to_char(l_header_rec.header_id)||'.' , 2 ) ;
9092: END IF;
9093:
9094: l_Header_Scredit_rec := l_Header_Scredit_tbl(I);
9095:
9117:
9118: IF l_Header_Scredit_tbl.COUNT > 0 THEN
9119:
9120: IF l_debug_level > 0 THEN
9121: oe_debug_pub.add( 'BEFORE HEADER_SCREDITS PROCESSING' , 2 ) ;
9122: END IF;
9123: Header_Scredits
9124: ( p_validation_level => p_validation_level
9125: , p_control_rec => p_control_rec
9136: RAISE FND_API.G_EXC_ERROR;
9137: END IF;
9138: END IF;
9139: IF l_debug_level > 0 THEN
9140: oe_debug_pub.add( 'AFTER HEADER_SCREDITS PROCESSING' , 2 ) ;
9141: END IF;
9142:
9143: END IF;
9144:
9294:
9295: IF l_line_tbl.COUNT > 0 THEN
9296:
9297: IF l_debug_level > 0 THEN
9298: oe_debug_pub.add( 'BEFORE LINES PROCESSING' , 2 ) ;
9299: END IF;
9300: Lines
9301: ( p_validation_level => p_validation_level
9302: , p_control_rec => p_control_rec
9313: RAISE FND_API.G_EXC_ERROR;
9314: END IF;
9315: END IF;
9316: IF l_debug_level > 0 THEN
9317: oe_debug_pub.add( 'AFTER LINES PROCESSING' , 2 ) ;
9318: END IF;
9319:
9320: END IF;
9321:
9325: /* IF l_line_tbl.COUNT > 0 THEN
9326:
9327: IF l_Line_Scredit_tbl.COUNT > 0 THEN
9328:
9329: oe_debug_pub.add('Setting Header/Line Ids on Line SC table', 2);
9330:
9331: FOR k in l_Line_Scredit_tbl.first .. l_line_Scredit_tbl.last LOOP
9332:
9333: -- oe_debug_pub.add('Processing Line SC Record ' ||TO_CHAR(k), 2);
9329: oe_debug_pub.add('Setting Header/Line Ids on Line SC table', 2);
9330:
9331: FOR k in l_Line_Scredit_tbl.first .. l_line_Scredit_tbl.last LOOP
9332:
9333: -- oe_debug_pub.add('Processing Line SC Record ' ||TO_CHAR(k), 2);
9334:
9335: IF (l_line_Scredit_tbl(k).line_index <> FND_API.G_MISS_NUM)
9336: AND (l_line_Scredit_tbl(k).line_index IS NOT NULL) THEN
9337:
9356:
9357:
9358: ELSE -- Invalid Index
9359:
9360: oe_debug_pub.add('Invalid Line Index '
9361: ||TO_CHAR(l_line_index)
9362: ||' on Line Sales Credits', 2);
9363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9364:
9370:
9371:
9372: IF l_Line_Adj_tbl.COUNT > 0 THEN
9373:
9374: oe_debug_pub.add('Setting Header/Line Ids on Line Adj table', 2);
9375:
9376: FOR k in l_Line_Adj_tbl.first .. l_line_Adj_tbl.last LOOP
9377:
9378: -- oe_debug_pub.add('Processing Line Adj Record ' ||TO_CHAR(k), 2);
9374: oe_debug_pub.add('Setting Header/Line Ids on Line Adj table', 2);
9375:
9376: FOR k in l_Line_Adj_tbl.first .. l_line_Adj_tbl.last LOOP
9377:
9378: -- oe_debug_pub.add('Processing Line Adj Record ' ||TO_CHAR(k), 2);
9379:
9380: IF (l_line_Adj_tbl(k).line_index <> FND_API.G_MISS_NUM)
9381: AND (l_line_Adj_tbl(k).line_index IS NOT NULL) THEN
9382:
9380: IF (l_line_Adj_tbl(k).line_index <> FND_API.G_MISS_NUM)
9381: AND (l_line_Adj_tbl(k).line_index IS NOT NULL) THEN
9382:
9383: l_line_index := l_line_Adj_tbl(k).line_index;
9384: oe_debug_pub.add('Line Index is '||TO_CHAR(l_line_index), 2);
9385:
9386: IF l_line_tbl.EXISTS(l_line_index) THEN
9387:
9388: IF (l_line_Adj_tbl(k).line_id = FND_API.G_MISS_NUM)
9400: END IF; -- Header Id on Child is missing or is null
9401:
9402: ELSE -- Invalid Index
9403:
9404: oe_debug_pub.add('Invalid Line Index '
9405: ||TO_CHAR(l_line_index)
9406: ||'on Line Price Adjustments', 2);
9407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9408:
9420: I := l_Line_Scredit_tbl.FIRST;
9421: WHILE I IS NOT NULL LOOP
9422:
9423: IF l_debug_level > 0 THEN
9424: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE SC TABLE' ) ;
9425: END IF;
9426: l_Line_Scredit_rec := l_Line_Scredit_tbl(I);
9427:
9428: IF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE
9429: AND (l_Line_Scredit_rec.line_id IS NULL OR
9430: l_Line_Scredit_rec.line_id = FND_API.G_MISS_NUM)
9431: THEN
9432: IF l_debug_level > 0 THEN
9433: oe_debug_pub.add( 'SETTING LINE IDS ON LINE SC TABLE' , 2 ) ;
9434: END IF;
9435:
9436: -- Check If parent exists.
9437:
9451:
9452: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9453: THEN
9454: IF l_debug_level > 0 THEN
9455: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON LINE SALES CREDITS' , 2 ) ;
9456: END IF;
9457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9458: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9459: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Scredit');
9474: I := l_Line_Adj_tbl.FIRST;
9475: WHILE I IS NOT NULL LOOP
9476:
9477: IF l_debug_level > 0 THEN
9478: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE ADJ TABLE' , 2 ) ;
9479: END IF;
9480: l_Line_Adj_rec := l_Line_Adj_tbl(I);
9481:
9482: IF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE
9484: l_Line_Adj_rec.line_id = FND_API.G_MISS_NUM)
9485: THEN
9486:
9487: IF l_debug_level > 0 THEN
9488: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ADJ TABLE' , 2 ) ;
9489: END IF;
9490: -- Check If parent exists.
9491:
9492: IF l_Line_Adj_rec.line_index <> fnd_api.g_miss_num and
9500: ELSIF l_Line_Adj_tbl(I).header_id is not null and
9501: l_Line_Adj_tbl(I).header_id <> FND_API.G_MISS_NUM Then
9502: -- Treat the adjustment record as a header_adjustment record
9503: IF l_debug_level > 0 THEN
9504: oe_debug_pub.add( 'TREATING THE RECORD AS HEADER_ADJUSTMENT' ) ;
9505: END IF;
9506: ELSE
9507:
9508: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9507:
9508: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9509: THEN
9510: IF l_debug_level > 0 THEN
9511: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
9512: END IF;
9513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9514:
9515: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9532: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9533: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE)
9534: THEN
9535: IF l_debug_level > 0 THEN
9536: oe_debug_pub.add( 'PROCESS LINE REQUESTS' ) ;
9537: END IF;
9538:
9539: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9540: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
9623: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_SCREDIT)
9624: THEN
9625:
9626: IF l_debug_level > 0 THEN
9627: oe_debug_pub.add( 'PROCESSING DELAYED REQUESTS FOR LINES' , 2 ) ;
9628: END IF;
9629:
9630: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9631: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Scredit
9633: ,x_return_status => l_return_status
9634: );
9635:
9636: IF l_debug_level > 0 THEN
9637: oe_debug_pub.add( 'PROCESSED DELAYED REQUESTS FOR LINES' , 2 ) ;
9638: END IF;
9639:
9640: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9733: I := l_Line_Price_Att_tbl.FIRST;
9734: WHILE I IS NOT NULL LOOP
9735:
9736: IF l_debug_level > 0 THEN
9737: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE ATTRIBUTES TABLE' , 2 ) ;
9738: END IF;
9739: l_Line_Price_Att_rec := l_Line_Price_Att_tbl(I);
9740:
9741: IF l_Line_Price_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
9743: l_Line_Price_Att_rec.line_id = FND_API.G_MISS_NUM)
9744: THEN
9745:
9746: IF l_debug_level > 0 THEN
9747: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ATTRIB TABLE' , 2 ) ;
9748: END IF;
9749: -- Check If parent exists.
9750:
9751: IF l_line_tbl.EXISTS(l_Line_Price_Att_rec.line_index) THEN
9759:
9760: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9761: THEN
9762: IF l_debug_level > 0 THEN
9763: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_PRICE_ATT_REC.LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
9764: END IF;
9765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9766:
9767: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9820: I := l_Line_Adj_Att_tbl.FIRST;
9821: WHILE I IS NOT NULL LOOP
9822:
9823: IF l_debug_level > 0 THEN
9824: oe_debug_pub.add( 'SETTING PRICE_ADJUSTMENT_ID ON LINE ADJ ATTRIB TABLE' , 2 ) ;
9825: END IF;
9826: l_Line_Adj_Att_rec := l_Line_Adj_Att_tbl(I);
9827:
9828: IF l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
9830: l_Line_Adj_Att_rec.price_adjustment_id = FND_API.G_MISS_NUM)
9831: THEN
9832:
9833: IF l_debug_level > 0 THEN
9834: oe_debug_pub.add( 'SETTING ADJ IDS ON LINE ADJ ATTRIB TABLE' , 2 ) ;
9835: END IF;
9836: -- Check If parent exists.
9837:
9838: IF l_line_Adj_tbl.EXISTS(l_Line_Adj_Att_rec.Adj_index) THEN
9845:
9846: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9847: THEN
9848: IF l_debug_level > 0 THEN
9849: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( L_LINE_ADJ_ATT_REC.ADJ_INDEX ) ||'ON ADJ ATTRIBS' , 2 ) ;
9850: END IF;
9851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9852:
9853: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9907: I := l_Line_Adj_Assoc_tbl.FIRST;
9908: WHILE I IS NOT NULL LOOP
9909:
9910: IF l_debug_level > 0 THEN
9911: oe_debug_pub.add( 'SETTING PRICE_ADJUSTMENT_ID ON LINE ADJ ASSOCS TABLE' , 2 ) ;
9912: END IF;
9913: l_Line_Adj_Assoc_rec := l_Line_Adj_Assoc_tbl(I);
9914:
9915: IF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
9917: l_Line_Adj_Assoc_rec.price_adjustment_id = FND_API.G_MISS_NUM)
9918: THEN
9919:
9920: IF l_debug_level > 0 THEN
9921: oe_debug_pub.add( 'SETTING ADJ IDS ON LINE ADJ ASSOCS TABLE' , 2 ) ;
9922: END IF;
9923: -- Check If parent exists.
9924:
9925: IF l_line_Adj_tbl.EXISTS(l_Line_Adj_Assoc_rec.Adj_index) THEN
9932:
9933: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9934: THEN
9935: IF l_debug_level > 0 THEN
9936: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( L_LINE_ADJ_ASSOC_REC.ADJ_INDEX ) ||'ON ADJ ASSOCS' , 2 ) ;
9937: END IF;
9938: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9939:
9940: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9952: l_Line_Adj_Assoc_rec.Line_id = FND_API.G_MISS_NUM)
9953: THEN
9954:
9955: IF l_debug_level > 0 THEN
9956: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ADJ ASSOCS TABLE' , 2 ) ;
9957: END IF;
9958: -- Check If parent exists.
9959:
9960: IF l_line_tbl.EXISTS(l_Line_Adj_Assoc_rec.Line_Index) THEN
10021: -- Set entity_id on request table using the line index.
10022: /*
10023: IF l_request_tbl.COUNT > 0 THEN
10024:
10025: oe_debug_pub.add('Setting Header/Line Ids on Line Adj table', 2);
10026:
10027: FOR k in l_request_tbl.first .. l_request_tbl.last LOOP
10028:
10029: -- oe_debug_pub.add('Processing Line Requests ' ||TO_CHAR(k), 2);
10025: oe_debug_pub.add('Setting Header/Line Ids on Line Adj table', 2);
10026:
10027: FOR k in l_request_tbl.first .. l_request_tbl.last LOOP
10028:
10029: -- oe_debug_pub.add('Processing Line Requests ' ||TO_CHAR(k), 2);
10030: IF (l_request_tbl(k).entity_code IS NULL OR
10031: l_request_tbl(k).entity_code = Oe_Globals.G_ENTITY_HEADER) THEN
10032:
10033: IF (l_request_tbl(k).entity_id = FND_API.G_MISS_NUM
10048: IF (to_number(l_request_tbl(k).param1) <> FND_API.G_MISS_NUM)
10049: AND (l_request_tbl(k).param1 IS NOT NULL) THEN
10050:
10051: l_line_index := to_number(l_request_tbl(k).param1) ;
10052: oe_debug_pub.add('Line Index is '||TO_CHAR(l_line_index), 2);
10053:
10054: IF l_line_tbl.EXISTS(l_line_index) THEN
10055:
10056: IF (l_request_tbl(k).entity_id = FND_API.G_MISS_NUM)
10061: END IF; -- Line Id on Child is missing or is null
10062:
10063: ELSE -- Invalid Index
10064:
10065: oe_debug_pub.add('Invalid Line Index '
10066: ||TO_CHAR(l_line_index)
10067: ||'on Action Request', 2);
10068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10069: END IF; -- If Valid Line Index
10079: I := l_request_tbl.FIRST;
10080: WHILE I IS NOT NULL LOOP
10081:
10082: IF l_debug_level > 0 THEN
10083: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON REQUEST TABLE' , 2 ) ;
10084: END IF;
10085:
10086: IF (l_request_tbl(I).entity_code = OE_GLOBALS.G_ENTITY_HEADER) THEN
10087:
10088: IF (l_request_tbl(I).entity_id IS NULL OR
10089: l_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
10090: THEN
10091: IF l_debug_level > 0 THEN
10092: oe_debug_pub.add( 'SETTING HEADER IDS ON REQUEST TABLE FOR HEADER ENTITY' , 2 ) ;
10093: END IF;
10094: IF l_header_rec.header_id IS NULL OR
10095: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
10096: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
10106: IF (l_request_tbl(I).entity_id IS NULL OR
10107: l_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
10108: THEN
10109: IF l_debug_level > 0 THEN
10110: oe_debug_pub.add( 'SETTING LINE IDS ON REQUEST TABLE FOR LINE ENTITY' , 2 ) ;
10111: END IF;
10112: -- Check If entity record exists.
10113:
10114: IF l_line_tbl.EXISTS(l_request_tbl(I).entity_index) THEN
10121:
10122: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
10123: THEN
10124: IF l_debug_level > 0 THEN
10125: oe_debug_pub.add( 'INVALID ENTITY INDEX ' ||TO_CHAR ( L_REQUEST_TBL ( I ) .ENTITY_INDEX ) ||'ON REQUEST TABLE FOR LINE ENTITY' , 2 ) ;
10126: END IF;
10127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10128: END IF;
10129: END IF;
10137: -- Step 7. Perform Object group logic
10138:
10139: -- Perform Delayed Requests for all the the entities
10140: IF l_debug_level > 0 THEN
10141: oe_debug_pub.add( 'OEXVORDB: BEFORE CALLING PROCESS_DELAYED_REQUESTS' , 2 ) ;
10142: END IF;
10143: IF (p_control_rec.process AND
10144: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
10145: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
10148: OE_DELAYED_REQUESTS_PVT.Process_Delayed_Requests(
10149: x_return_status => l_return_status
10150: );
10151: IF l_debug_level > 0 THEN
10152: oe_debug_pub.add( 'OEXVORDB: COMPLETED PROCESS_DELAYED_REQUESTS ' || ' WITH RETURN STATUS' || L_RETURN_STATUS , 2 ) ;
10153: END IF;
10154: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10156: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10191: END IF;
10192:
10193:
10194: IF l_debug_level > 0 THEN
10195: oe_debug_pub.add( 'OEXVORDB: AFTER PROCESS_ORDER_ACTIONS' , 2 ) ;
10196: END IF;
10197:
10198:
10199: -- Clear API cache.
10301: I := l_Line_Adj_Assoc_tbl.NEXT(I);
10302: END LOOP;
10303:
10304: IF l_debug_level > 0 THEN
10305: oe_debug_pub.add( 'JPN: BEFORE CALLING NOTIFY , HEADER_ID IS: ' || L_HEADER_REC.HEADER_ID ) ;
10306: END IF;
10307: -- Calling Update Notice API - Provided by OC
10308: -- This API will notify OC about the changes happen in OM side for order
10309:
10312:
10313: IF (OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508') then
10314: /* Call Process Requests and notify */
10315: IF l_debug_level > 0 THEN
10316: oe_debug_pub.add( 'CALLING PROCESS_REQUESTS_AND_NOTIFY FOR PACK H' ) ;
10317: END IF;
10318: Process_Requests_And_Notify(
10319: p_process_requests => FALSE,
10320: p_notify => TRUE,
10343: ELSE
10344: /* Pre Pack H processsing */
10345:
10346: IF l_debug_level > 0 THEN
10347: oe_debug_pub.add( 'CS BEFORE CALLING NOTIFY_OC API' , 1 ) ;
10348: END IF;
10349:
10350: IF x_return_status = FND_API.G_RET_STS_SUCCESS AND
10351: p_control_rec.write_to_db = TRUE
10351: p_control_rec.write_to_db = TRUE
10352: AND oe_order_cache.g_header_rec.booked_flag = 'Y'
10353: THEN
10354: IF l_debug_level > 0 THEN
10355: oe_debug_pub.add( 'CS CALLING NOTIFY_OC API' , 1 ) ;
10356: END IF;
10357:
10358: OE_SERVICE_UTIL.Notify_OC
10359: ( p_api_version_number => l_api_version_number
10395: );
10396:
10397:
10398: IF l_debug_level > 0 THEN
10399: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
10400: END IF;
10401: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10402: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10403: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10407:
10408: END IF;
10409:
10410: IF l_debug_level > 0 THEN
10411: oe_debug_pub.add( 'PROCESSING ACKS' , 1 ) ;
10412: END IF;
10413: -- Following check is commented to fix 2380911
10414: IF -- OE_Globals.G_RECURSION_MODE <> 'Y' AND
10415: x_return_status = FND_API.G_RET_STS_SUCCESS AND
10415: x_return_status = FND_API.G_RET_STS_SUCCESS AND
10416: l_control_rec.write_to_db = TRUE
10417: THEN
10418: IF l_debug_level > 0 THEN
10419: oe_debug_pub.add( 'CALLING ACKS API' , 1 ) ;
10420: END IF;
10421:
10422: If Oe_Code_Control.Code_Release_Level >= '110510' And
10423: l_header_rec.order_source_id in (0,2,6) And
10496: set_recursion_mode(p_Entity_Code => 1,
10497: p_In_out => 0);
10498:
10499: IF l_debug_level > 0 THEN
10500: oe_debug_pub.add( 'GLOBAL REQUEST TABLE COUNT- PO'|| OE_DELAYED_REQUESTS_PVT.G_DELAYED_REQUESTS.COUNT , 1 ) ;
10501: oe_debug_pub.add( 'EXITING OE_ORDER_PUB.PROCESS_ORDER' , 1 ) ;
10502: END IF;
10503:
10504: EXCEPTION
10497: p_In_out => 0);
10498:
10499: IF l_debug_level > 0 THEN
10500: oe_debug_pub.add( 'GLOBAL REQUEST TABLE COUNT- PO'|| OE_DELAYED_REQUESTS_PVT.G_DELAYED_REQUESTS.COUNT , 1 ) ;
10501: oe_debug_pub.add( 'EXITING OE_ORDER_PUB.PROCESS_ORDER' , 1 ) ;
10502: END IF;
10503:
10504: EXCEPTION
10505:
10505:
10506: WHEN FND_API.G_EXC_ERROR THEN
10507:
10508: IF l_debug_level > 0 THEN
10509: oe_debug_pub.add( 'PO: EXITING PROCESS ORDER WITH ERROR' , 2 ) ;
10510: END IF;
10511: set_recursion_mode(p_Entity_Code => 1,
10512: p_In_out => 0);
10513: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
10515: x_return_status := FND_API.G_RET_STS_ERROR;
10516:
10517: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
10518: IF l_debug_level > 0 THEN
10519: oe_debug_pub.add( 'DELETE REQUEST11' , 2 ) ;
10520: END IF;
10521:
10522: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
10523: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
10537:
10538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10539:
10540: IF l_debug_level > 0 THEN
10541: oe_debug_pub.add( 'PO: EXITING PROCESS ORDER WITH UNEXPECTED ERROR' , 2 ) ;
10542: END IF;
10543: set_recursion_mode(p_Entity_Code => 1,
10544: p_In_out => 0);
10545: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
10547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10548:
10549: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
10550: IF l_debug_level > 0 THEN
10551: oe_debug_pub.add( 'DELETE REQUEST12' , 2 ) ;
10552: END IF;
10553:
10554: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
10555: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
10570:
10571: WHEN OTHERS THEN
10572:
10573: IF l_debug_level > 0 THEN
10574: oe_debug_pub.add( 'PO: EXITING PROCESS ORDER WITH OTHERS ERROR' , 2 ) ;
10575: END IF;
10576: set_recursion_mode(p_Entity_Code => 1,
10577: p_In_out => 0);
10578: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
10580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10581:
10582: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
10583: IF l_debug_level > 0 THEN
10584: oe_debug_pub.add( 'DELETE REQUEST13' , 2 ) ;
10585: END IF;
10586:
10587: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
10588: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
10707: l_api_version_number CONSTANT NUMBER := 1.0;
10708: l_api_name CONSTANT VARCHAR2(30):= 'Lock_Order';
10709: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
10710: I NUMBER; -- Used for index.
10711: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
10712: BEGIN
10713:
10714: IF l_debug_level > 0 THEN
10715: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.LOCK_ORDER' , 1 ) ;
10711: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
10712: BEGIN
10713:
10714: IF l_debug_level > 0 THEN
10715: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.LOCK_ORDER' , 1 ) ;
10716: END IF;
10717: -- Standard call to check for call compatibility
10718:
10719: IF NOT FND_API.Compatible_API_Call
11118: );
11119:
11120: if p_x_line_tbl.count > 0 then
11121: IF l_debug_level > 0 THEN
11122: oe_debug_pub.add( 'LINE ID:'||P_X_LINE_TBL ( 1 ) .LINE_ID ) ;
11123: END IF;
11124: end if;
11125: IF l_debug_level > 0 THEN
11126: oe_debug_pub.add( 'EXITING OE_ORDER_PUB.LOCK_ORDER' , 1 ) ;
11122: oe_debug_pub.add( 'LINE ID:'||P_X_LINE_TBL ( 1 ) .LINE_ID ) ;
11123: END IF;
11124: end if;
11125: IF l_debug_level > 0 THEN
11126: oe_debug_pub.add( 'EXITING OE_ORDER_PUB.LOCK_ORDER' , 1 ) ;
11127: END IF;
11128:
11129: EXCEPTION
11130:
11297: I2 NUMBER; --Used as index.
11298: I3 NUMBER; --Used as index.
11299: I4 NUMBER; --Used as index.
11300: I5 NUMBER; --Used as index.
11301: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
11302: BEGIN
11303:
11304: -- Standard call to check for call compatibility
11305:
11636: ) IS
11637: l_api_version_number number := 1.0;
11638: l_api_name Varchar2(30) := 'CANCEL_ORDER';
11639: l_return_status Varchar2(1);
11640: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
11641: Begin
11642: -- Standard call to check for call compatibility
11643:
11644: IF l_debug_level > 0 THEN
11641: Begin
11642: -- Standard call to check for call compatibility
11643:
11644: IF l_debug_level > 0 THEN
11645: oe_debug_pub.add( 'ENTERING OE_ORDER_PUB.CANCEL_ORDER' , 1 ) ;
11646: END IF;
11647:
11648: IF NOT FND_API.Compatible_API_Call
11649: ( l_api_version_number
11663: -- Initialize API return status to success
11664: x_return_status := FND_API.G_RET_STS_SUCCESS;
11665:
11666: IF l_debug_level > 0 THEN
11667: oe_debug_pub.add( 'CALLING OE_SALES_CAN_UTIL.CANCEL_LINE' , 2 ) ;
11668: END IF;
11669: /* OE_SALES_CAN_UTIL.Cancel_Line
11670: ( x_return_status => l_return_status
11671: ,x_msg_count => x_msg_count
11672: ,x_msg_data => x_msg_data
11673: ,x_can_req => x_can_req
11674: );*/
11675: IF l_debug_level > 0 THEN
11676: oe_debug_pub.add( 'COMPLETED OE_SALES_CAN_UTIL.CANCEL_LINE WITH STATUS ' || L_RETURN_STATUS , 2 ) ;
11677: END IF;
11678:
11679: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11682: RAISE FND_API.G_EXC_ERROR;
11683: END IF;
11684:
11685: IF l_debug_level > 0 THEN
11686: oe_debug_pub.add( 'EXITING OE_ORDER_PUB.CANCEL_ORDER' , 1 ) ;
11687: END IF;
11688:
11689: EXCEPTION
11690:
11721:
11722: PROCEDURE Print_Time(p_msg IN VARCHAR2)
11723: IS
11724: l_time VARCHAR2(100);
11725: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
11726: BEGIN
11727: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
11728: 'DD-MON-YY HH24:MI:SS');
11729: IF l_debug_level > 0 THEN
11726: BEGIN
11727: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
11728: 'DD-MON-YY HH24:MI:SS');
11729: IF l_debug_level > 0 THEN
11730: oe_debug_pub.add( P_MSG || ': '|| L_TIME , 1 ) ;
11731: END IF;
11732: END Print_Time;
11733:
11734:
11795: l_line_rec OE_Order_Pub.Line_Rec_Type;
11796: l_return_status VARCHAR2(1);
11797: l_frozen_model_bill VARCHAR2(1);
11798: l_old_behavior VARCHAR2(1);
11799: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
11800: --bug4015696
11801: l_msg_count NUMBER;
11802: l_msg_data VARCHAR2(2000);
11803: l_item_identifier_type VARCHAR2(25);
11852: END IF;
11853:
11854:
11855: IF l_debug_level > 0 THEN
11856: oe_debug_pub.add('COMP_SEQ_ID OF MODEL: ' || L_MODEL_SEQ_ID , 2 ) ;
11857: oe_debug_pub.add('COMPLETE ITEM: '|| P_X_LINE_REC.INVENTORY_ITEM_ID ,1);
11858: END IF;
11859:
11860:
11853:
11854:
11855: IF l_debug_level > 0 THEN
11856: oe_debug_pub.add('COMP_SEQ_ID OF MODEL: ' || L_MODEL_SEQ_ID , 2 ) ;
11857: oe_debug_pub.add('COMPLETE ITEM: '|| P_X_LINE_REC.INVENTORY_ITEM_ID ,1);
11858: END IF;
11859:
11860:
11861: BEGIN
11866: p_x_line_rec.configuration_id <> FND_API.G_MISS_NUM AND
11867: OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
11868:
11869: IF l_debug_level > 0 THEN
11870: oe_debug_pub.add( 'COMP_CONFIG VORDB: PACK H NEW LOGIC MI' , 1 ) ;
11871: oe_debug_pub.add( 'CFG_HDR '||P_X_LINE_REC.CONFIG_HEADER_ID , 3 ) ;
11872: oe_debug_pub.add( 'CFG_REV '||P_X_LINE_REC.CONFIG_REV_NBR , 3 ) ;
11873: oe_debug_pub.add( 'CFG_ID '||P_X_LINE_REC.CONFIGURATION_ID , 3 ) ;
11874: END IF;
11867: OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
11868:
11869: IF l_debug_level > 0 THEN
11870: oe_debug_pub.add( 'COMP_CONFIG VORDB: PACK H NEW LOGIC MI' , 1 ) ;
11871: oe_debug_pub.add( 'CFG_HDR '||P_X_LINE_REC.CONFIG_HEADER_ID , 3 ) ;
11872: oe_debug_pub.add( 'CFG_REV '||P_X_LINE_REC.CONFIG_REV_NBR , 3 ) ;
11873: oe_debug_pub.add( 'CFG_ID '||P_X_LINE_REC.CONFIGURATION_ID , 3 ) ;
11874: END IF;
11875:
11868:
11869: IF l_debug_level > 0 THEN
11870: oe_debug_pub.add( 'COMP_CONFIG VORDB: PACK H NEW LOGIC MI' , 1 ) ;
11871: oe_debug_pub.add( 'CFG_HDR '||P_X_LINE_REC.CONFIG_HEADER_ID , 3 ) ;
11872: oe_debug_pub.add( 'CFG_REV '||P_X_LINE_REC.CONFIG_REV_NBR , 3 ) ;
11873: oe_debug_pub.add( 'CFG_ID '||P_X_LINE_REC.CONFIGURATION_ID , 3 ) ;
11874: END IF;
11875:
11876: SELECT component_code, component_sequence_id, bom_sort_order,
11869: IF l_debug_level > 0 THEN
11870: oe_debug_pub.add( 'COMP_CONFIG VORDB: PACK H NEW LOGIC MI' , 1 ) ;
11871: oe_debug_pub.add( 'CFG_HDR '||P_X_LINE_REC.CONFIG_HEADER_ID , 3 ) ;
11872: oe_debug_pub.add( 'CFG_REV '||P_X_LINE_REC.CONFIG_REV_NBR , 3 ) ;
11873: oe_debug_pub.add( 'CFG_ID '||P_X_LINE_REC.CONFIGURATION_ID , 3 ) ;
11874: END IF;
11875:
11876: SELECT component_code, component_sequence_id, bom_sort_order,
11877: uom_code, bom_item_type
11884: AND config_item_id = p_x_line_rec.configuration_id;
11885:
11886: ELSE
11887: IF l_debug_level > 0 THEN
11888: oe_debug_pub.add( 'COMP_CONFIG VORDB: USING BOM_EXPLOSION' , 1 ) ;
11889: END IF;
11890:
11891: IF p_x_line_rec.component_code is not NULL AND
11892: p_x_line_rec.component_code <> FND_API.G_MISS_CHAR
11891: IF p_x_line_rec.component_code is not NULL AND
11892: p_x_line_rec.component_code <> FND_API.G_MISS_CHAR
11893: THEN
11894: IF l_debug_level > 0 THEN
11895: oe_debug_pub.add( 'COMPONENT CODE PASSED , SOMETHING ELSE NULL' , 3 ) ;
11896: END IF;
11897:
11898: SELECT component_code, component_sequence_id, sort_order,
11899: primary_uom_code, bom_item_type
11910: AND component_code = p_x_line_rec.component_code;
11911:
11912: ELSE
11913: IF l_debug_level > 0 THEN
11914: oe_debug_pub.add( 'COMPONENT CODE NOT PASSED' , 3 ) ;
11915: END IF;
11916:
11917: SELECT component_code, component_sequence_id, sort_order,
11918: primary_uom_code, bom_item_type
11931:
11932: EXCEPTION
11933: WHEN NO_DATA_FOUND THEN
11934: IF l_debug_level > 0 THEN
11935: oe_debug_pub.add( 'SELECT COMP_CODE FAILED , NO DATA FOUND ' , 1 ) ;
11936: oe_debug_pub.add( 'ITEM: '|| P_X_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
11937: END IF;
11938: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_ITEM_NOT_IN_BILL');
11939: --bug4015696
11932: EXCEPTION
11933: WHEN NO_DATA_FOUND THEN
11934: IF l_debug_level > 0 THEN
11935: oe_debug_pub.add( 'SELECT COMP_CODE FAILED , NO DATA FOUND ' , 1 ) ;
11936: oe_debug_pub.add( 'ITEM: '|| P_X_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
11937: END IF;
11938: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_ITEM_NOT_IN_BILL');
11939: --bug4015696
11940: IF p_x_line_rec.ordered_item IS NULL OR
11966: oe_msg_pub.add;
11967:
11968: IF p_process_partial THEN
11969: IF l_debug_level > 0 THEN /* Bug # 4036765 */
11970: oe_debug_pub.add( 'PROCESS PARTIAL IS TRUE' , 3 ) ;
11971: END IF;
11972: p_x_line_rec.return_status := FND_API.G_RET_STS_ERROR;
11973: p_x_line_rec.operation := OE_GLOBALS.G_OPR_NONE;
11974: OE_GLOBALS.G_FAIL_ORDER_IMPORT := TRUE; /* Bug # 4036765 */
11973: p_x_line_rec.operation := OE_GLOBALS.G_OPR_NONE;
11974: OE_GLOBALS.G_FAIL_ORDER_IMPORT := TRUE; /* Bug # 4036765 */
11975: ELSE
11976: IF l_debug_level > 0 THEN
11977: oe_debug_pub.add( 'PROCESS PARTIAL IS NOT TRUE' , 3 ) ;
11978: END IF;
11979: RAISE FND_API.G_EXC_ERROR;
11980: END IF;
11981:
11980: END IF;
11981:
11982: WHEN TOO_MANY_ROWS THEN
11983: IF l_debug_level > 0 THEN
11984: oe_debug_pub.add( 'SELECT COMP_CODE FAILED , TOO_MANY ROWS ' , 1 ) ;
11985: oe_debug_pub.add( 'ITEM: '|| P_X_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
11986: END IF;
11987:
11988: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_AMBIGUITY');
11981:
11982: WHEN TOO_MANY_ROWS THEN
11983: IF l_debug_level > 0 THEN
11984: oe_debug_pub.add( 'SELECT COMP_CODE FAILED , TOO_MANY ROWS ' , 1 ) ;
11985: oe_debug_pub.add( 'ITEM: '|| P_X_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
11986: END IF;
11987:
11988: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_AMBIGUITY');
11989: FND_MESSAGE.Set_Token('COMPONENT', p_x_line_rec.ordered_item);
11992: RAISE FND_API.G_EXC_ERROR;
11993:
11994: WHEN OTHERS THEN
11995: IF l_debug_level > 0 THEN
11996: oe_debug_pub.add( 'SELECT COMP_CODE FAILED , OTHERS ' , 1 ) ;
11997: oe_debug_pub.add( 'ITEM: '|| P_X_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
11998: END IF;
11999: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12000: END;
11993:
11994: WHEN OTHERS THEN
11995: IF l_debug_level > 0 THEN
11996: oe_debug_pub.add( 'SELECT COMP_CODE FAILED , OTHERS ' , 1 ) ;
11997: oe_debug_pub.add( 'ITEM: '|| P_X_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
11998: END IF;
11999: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12000: END;
12001:
12002:
12003: IF l_bom_item_type = 2 OR
12004: l_bom_item_type = 1 THEN
12005: IF l_debug_level > 0 THEN
12006: oe_debug_pub.add( 'THIS IS A CLASS' , 5 ) ;
12007: END IF;
12008: p_x_line_rec.item_type_code := OE_GLOBALS.G_ITEM_CLASS;
12009:
12010: ELSIF l_bom_item_type = 4 THEN
12008: p_x_line_rec.item_type_code := OE_GLOBALS.G_ITEM_CLASS;
12009:
12010: ELSIF l_bom_item_type = 4 THEN
12011: IF l_debug_level > 0 THEN
12012: oe_debug_pub.add( 'THIS IS A OPTION/KIT' , 1 ) ;
12013: END IF;
12014: ELSE
12015: IF l_debug_level > 0 THEN
12016: oe_debug_pub.add( 'INVALID ITEM TYPE' , 1 ) ;
12012: oe_debug_pub.add( 'THIS IS A OPTION/KIT' , 1 ) ;
12013: END IF;
12014: ELSE
12015: IF l_debug_level > 0 THEN
12016: oe_debug_pub.add( 'INVALID ITEM TYPE' , 1 ) ;
12017: END IF;
12018: END IF;
12019:
12020: IF l_debug_level > 0 THEN
12017: END IF;
12018: END IF;
12019:
12020: IF l_debug_level > 0 THEN
12021: oe_debug_pub.add( 'HDR/REV/ID '|| P_X_LINE_REC.CONFIG_HEADER_ID
12022: || P_X_LINE_REC.CONFIG_REV_NBR || P_X_LINE_REC.CONFIGURATION_ID ,1);
12023: END IF;
12024:
12025: Print_Time('leaving Complete_Config_Line');
12026:
12027: EXCEPTION
12028: WHEN OTHERS THEN
12029: IF l_debug_level > 0 THEN
12030: oe_debug_pub.add( 'COMPLETE_CONFIG_LINE EXCEPTIION '|| SQLERRM , 1 ) ;
12031: END IF;
12032: RAISE;
12033: END Complete_Config_Line;
12034:
12084: l_top_model_line_index NUMBER;
12085: l_bom_item_type NUMBER;
12086: l_frozen_model_bill VARCHAR2(1);
12087: l_old_behavior VARCHAR2(1);
12088: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
12089: BEGIN
12090: Print_Time('entering Get_Missing_Class_Lines');
12091:
12092:
12091:
12092:
12093: IF OE_Config_Util.G_Config_UI_Used = 'Y' THEN
12094: IF l_debug_level > 0 THEN
12095: oe_debug_pub.add( 'CONFIGURATOR/OW USED , SHOULD NOT COME HERE' , 1 ) ;
12096: END IF;
12097: RAISE FND_API.G_EXC_ERROR;
12098: END IF;
12099:
12107: LOOP
12108: l_option_index := p_options_index_tbl(I);
12109:
12110: IF l_debug_level > 0 THEN
12111: oe_debug_pub.add( 'I '|| I || ' '
12112: || P_X_LINE_TBL ( L_OPTION_INDEX ) .TOP_MODEL_LINE_ID , 3 ) ;
12113: oe_debug_pub.add( L_OPTION_INDEX || ' '
12114: || P_X_LINE_TBL ( L_OPTION_INDEX ) .COMPONENT_CODE , 3 ) ;
12115: END IF;
12109:
12110: IF l_debug_level > 0 THEN
12111: oe_debug_pub.add( 'I '|| I || ' '
12112: || P_X_LINE_TBL ( L_OPTION_INDEX ) .TOP_MODEL_LINE_ID , 3 ) ;
12113: oe_debug_pub.add( L_OPTION_INDEX || ' '
12114: || P_X_LINE_TBL ( L_OPTION_INDEX ) .COMPONENT_CODE , 3 ) ;
12115: END IF;
12116:
12117: l_component_code := SUBSTR(p_x_line_tbl(l_option_index).component_code, 1,
12120: WHILE l_component_code is not NULL
12121: LOOP
12122:
12123: IF l_debug_level > 0 THEN
12124: oe_debug_pub.add( 'CHECK IF EXIST: ' || L_COMPONENT_CODE , 1 ) ;
12125: END IF;
12126:
12127: BEGIN
12128:
12136:
12137: EXCEPTION
12138: WHEN no_data_found THEN
12139: IF l_debug_level > 0 THEN
12140: oe_debug_pub.add( 'NO DATA FOUND' , 3 ) ;
12141: END IF;
12142:
12143: l_add_parent := TRUE;
12144:
12147: WHILE J is NOT NULL
12148: LOOP
12149: IF p_x_line_tbl(J).component_code = l_component_code THEN
12150: IF l_debug_level > 0 THEN
12151: oe_debug_pub.add( 'DO NOT ADD' , 3 ) ;
12152: END IF;
12153: l_add_parent := FALSE;
12154: END IF;
12155: J := p_x_line_tbl.NEXT(J);
12178: FND_API.G_MISS_NUM AND
12179: OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
12180:
12181: IF l_debug_level > 0 THEN
12182: oe_debug_pub.add( 'VORDB: PACK H NEW LOGIC MI' , 1 ) ;
12183: END IF;
12184:
12185: IF l_debug_level > 0 THEN
12186: oe_debug_pub.add('CFG_HDR '
12182: oe_debug_pub.add( 'VORDB: PACK H NEW LOGIC MI' , 1 ) ;
12183: END IF;
12184:
12185: IF l_debug_level > 0 THEN
12186: oe_debug_pub.add('CFG_HDR '
12187: ||P_X_LINE_TBL ( L_OPTION_INDEX ) .CONFIG_HEADER_ID , 3 ) ;
12188: oe_debug_pub.add('CFG_REV '
12189: ||P_X_LINE_TBL ( L_OPTION_INDEX ) .CONFIG_REV_NBR , 3 ) ;
12190: oe_debug_pub.add('CFG_ID '
12184:
12185: IF l_debug_level > 0 THEN
12186: oe_debug_pub.add('CFG_HDR '
12187: ||P_X_LINE_TBL ( L_OPTION_INDEX ) .CONFIG_HEADER_ID , 3 ) ;
12188: oe_debug_pub.add('CFG_REV '
12189: ||P_X_LINE_TBL ( L_OPTION_INDEX ) .CONFIG_REV_NBR , 3 ) ;
12190: oe_debug_pub.add('CFG_ID '
12191: ||P_X_LINE_TBL ( L_OPTION_INDEX ) .CONFIGURATION_ID , 3 ) ;
12192: END IF;
12186: oe_debug_pub.add('CFG_HDR '
12187: ||P_X_LINE_TBL ( L_OPTION_INDEX ) .CONFIG_HEADER_ID , 3 ) ;
12188: oe_debug_pub.add('CFG_REV '
12189: ||P_X_LINE_TBL ( L_OPTION_INDEX ) .CONFIG_REV_NBR , 3 ) ;
12190: oe_debug_pub.add('CFG_ID '
12191: ||P_X_LINE_TBL ( L_OPTION_INDEX ) .CONFIGURATION_ID , 3 ) ;
12192: END IF;
12193:
12194: BEGIN
12210: = p_x_line_tbl(l_option_index).configuration_id;
12211: EXCEPTION
12212: WHEN TOO_MANY_ROWS THEN
12213: IF l_debug_level > 0 THEN
12214: oe_debug_pub.add( 'CZ TOO_MANY_ROWS ' , 1 ) ;
12215: END IF;
12216: RAISE;
12217: WHEN NO_DATA_FOUND THEN
12218: IF l_debug_level > 0 THEN
12215: END IF;
12216: RAISE;
12217: WHEN NO_DATA_FOUND THEN
12218: IF l_debug_level > 0 THEN
12219: oe_debug_pub.add( 'CZ NO_DATA_FOUND' , 1 ) ;
12220: END IF;
12221: RAISE;
12222: WHEN OTHERS THEN
12223: IF l_debug_level > 0 THEN
12220: END IF;
12221: RAISE;
12222: WHEN OTHERS THEN
12223: IF l_debug_level > 0 THEN
12224: oe_debug_pub.add( 'CZ OTHERS' , 1 ) ;
12225: END IF;
12226: RAISE;
12227: END;
12228: ELSE
12226: RAISE;
12227: END;
12228: ELSE
12229: IF l_debug_level > 0 THEN
12230: oe_debug_pub.add( 'VORDB: USE BOX_EXPLOSINS' , 3 ) ;
12231: END IF;
12232:
12233: IF l_rev_date is NULL THEN
12234:
12289:
12290: IF l_bom_item_type = 2 OR
12291: l_bom_item_type = 1 THEN
12292: IF l_debug_level > 0 THEN
12293: oe_debug_pub.add( 'THIS IS A CLASS' , 5 ) ;
12294: END IF;
12295: p_x_line_tbl(l_index).item_type_code
12296: := OE_GLOBALS.G_ITEM_CLASS;
12297: END IF;
12296: := OE_GLOBALS.G_ITEM_CLASS;
12297: END IF;
12298:
12299: IF l_debug_level > 0 THEN
12300: oe_debug_pub.add( 'GET ORDERED ITEM NAME' , 3 ) ;
12301: END IF;
12302:
12303: BEGIN
12304: SELECT concatenated_segments
12308: AND organization_id = l_validation_org;
12309: EXCEPTION
12310: WHEN NO_DATA_FOUND THEN
12311: IF l_debug_level > 0 THEN
12312: oe_debug_pub.add( 'NAME OF THE ITEM NOT FOUND' , 1 ) ;
12313: END IF;
12314: RAISE FND_API.G_EXC_ERROR;
12315: END;
12316:
12314: RAISE FND_API.G_EXC_ERROR;
12315: END;
12316:
12317: IF l_debug_level > 0 THEN
12318: oe_debug_pub.add
12319: ('ADDED'||P_X_LINE_TBL(L_INDEX).INVENTORY_ITEM_ID,3);
12320: END IF;
12321:
12322: END IF; -- if add_parent = true
12325: IF p_x_line_tbl(l_option_index).config_header_id is not NULL AND
12326: p_x_line_tbl(l_option_index).configuration_id is not NULL AND
12327: OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
12328: IF l_debug_level > 0 THEN
12329: oe_debug_pub.add
12330: ('TOO MANY ROWS IN MISSING_CLASSES: PACK H NEW MI',1);
12331: END IF;
12332: ELSE
12333: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_MI_NOT_ALLOWED');
12342: END IF;
12343:
12344: WHEN OTHERS THEN
12345: IF l_debug_level > 0 THEN
12346: oe_debug_pub.add( 'OTHERS IN MISSING_CLASSES '|| SQLERRM , 1 ) ;
12347: END IF;
12348: RAISE;
12349: END; -- to check if this comp exists
12350:
12367:
12368: EXCEPTION
12369: WHEN OTHERS THEN
12370: IF l_debug_level > 0 THEN
12371: oe_debug_pub.add('ERROR IN GET_MISSING_CLASS_LINES '|| SQLERRM,1);
12372: END IF;
12373: RAISE;
12374: END Get_Missing_Class_Lines;
12375: