[Home] [Help]
32: Procedure Set_Recursion_Mode (p_Entity_Code number,
33: p_In_Out number := 1)
34: IS
35: --
36: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
37: --
38: Begin
39: IF l_debug_level > 0 THEN
40: oe_debug_pub.add( 'ENTER SET RECURSION MODE' , 1 ) ;
36: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
37: --
38: Begin
39: IF l_debug_level > 0 THEN
40: oe_debug_pub.add( 'ENTER SET RECURSION MODE' , 1 ) ;
41: oe_debug_pub.add( 'ENTITY CODE-'||P_ENTITY_CODE , 1 ) ;
42: oe_debug_pub.add( 'ENTRY-EXIT MODE -'||P_IN_OUT , 1 ) ;
43: oe_debug_pub.add( 'RECURSION MODE AT ENTRY -' || OE_GLOBALS.G_RECURSION_MODE , 1 ) ;
44: oe_debug_pub.add( 'RECURSION MODE WITHOUT EXP AT ENTRY -' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
37: --
38: Begin
39: IF l_debug_level > 0 THEN
40: oe_debug_pub.add( 'ENTER SET RECURSION MODE' , 1 ) ;
41: oe_debug_pub.add( 'ENTITY CODE-'||P_ENTITY_CODE , 1 ) ;
42: oe_debug_pub.add( 'ENTRY-EXIT MODE -'||P_IN_OUT , 1 ) ;
43: oe_debug_pub.add( 'RECURSION MODE AT ENTRY -' || OE_GLOBALS.G_RECURSION_MODE , 1 ) ;
44: oe_debug_pub.add( 'RECURSION MODE WITHOUT EXP AT ENTRY -' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
45: END IF;
38: Begin
39: IF l_debug_level > 0 THEN
40: oe_debug_pub.add( 'ENTER SET RECURSION MODE' , 1 ) ;
41: oe_debug_pub.add( 'ENTITY CODE-'||P_ENTITY_CODE , 1 ) ;
42: oe_debug_pub.add( 'ENTRY-EXIT MODE -'||P_IN_OUT , 1 ) ;
43: oe_debug_pub.add( 'RECURSION MODE AT ENTRY -' || OE_GLOBALS.G_RECURSION_MODE , 1 ) ;
44: oe_debug_pub.add( 'RECURSION MODE WITHOUT EXP AT ENTRY -' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
45: END IF;
46:
39: IF l_debug_level > 0 THEN
40: oe_debug_pub.add( 'ENTER SET RECURSION MODE' , 1 ) ;
41: oe_debug_pub.add( 'ENTITY CODE-'||P_ENTITY_CODE , 1 ) ;
42: oe_debug_pub.add( 'ENTRY-EXIT MODE -'||P_IN_OUT , 1 ) ;
43: oe_debug_pub.add( 'RECURSION MODE AT ENTRY -' || OE_GLOBALS.G_RECURSION_MODE , 1 ) ;
44: oe_debug_pub.add( 'RECURSION MODE WITHOUT EXP AT ENTRY -' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
45: END IF;
46:
47: IF p_entity_code = 1 THEN
40: oe_debug_pub.add( 'ENTER SET RECURSION MODE' , 1 ) ;
41: oe_debug_pub.add( 'ENTITY CODE-'||P_ENTITY_CODE , 1 ) ;
42: oe_debug_pub.add( 'ENTRY-EXIT MODE -'||P_IN_OUT , 1 ) ;
43: oe_debug_pub.add( 'RECURSION MODE AT ENTRY -' || OE_GLOBALS.G_RECURSION_MODE , 1 ) ;
44: oe_debug_pub.add( 'RECURSION MODE WITHOUT EXP AT ENTRY -' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
45: END IF;
46:
47: IF p_entity_code = 1 THEN
48: IF p_In_Out = 1 THEN
283: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
284: NULL;
285: END IF;
286: IF l_debug_level > 0 THEN
287: oe_debug_pub.add( 'RECURSION MODE AT EXIT -' || OE_GLOBALS.G_RECURSION_MODE , 1 ) ;
288: oe_debug_pub.add( 'RECURSION MODE WITHOUT EXP AT EXIT -' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
289: END IF;
290: End Set_Recursion_Mode ;
291:
284: NULL;
285: END IF;
286: IF l_debug_level > 0 THEN
287: oe_debug_pub.add( 'RECURSION MODE AT EXIT -' || OE_GLOBALS.G_RECURSION_MODE , 1 ) ;
288: oe_debug_pub.add( 'RECURSION MODE WITHOUT EXP AT EXIT -' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
289: END IF;
290: End Set_Recursion_Mode ;
291:
292:
319: FUNCTION Valid_Upgraded_Order(p_header_id Number)
320: RETURN Boolean
321: IS
322: --
323: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
324: --
325: BEGIN
326:
327: IF l_debug_level > 0 THEN
324: --
325: BEGIN
326:
327: IF l_debug_level > 0 THEN
328: oe_debug_pub.add( 'ENTER VALID UPGRADED ORDER' ) ;
329: END IF;
330: IF (NOT OE_GLOBALS.EQUAL(p_header_id, g_header_id)) OR
331: -- aksingh perf removing OR part of below condition as not required
332: -- (g_header_id IS NULL OR g_upgraded_flag IS NULL)
340: END IF;
341:
342: IF g_upgraded_flag IN ('P','I') THEN
343: IF l_debug_level > 0 THEN
344: oe_debug_pub.add( 'ORDER PARTIALLY UPGRADED ' ) ;
345: END IF;
346: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_UPG_ORDER');
347: OE_MSG_PUB.Add;
348: RETURN FALSE;
348: RETURN FALSE;
349: END IF;
350:
351: IF l_debug_level > 0 THEN
352: oe_debug_pub.add( 'EXIT VALID UPGRADED ORDER ' ) ;
353: END IF;
354: RETURN TRUE;
355:
356: EXCEPTION
387: l_on_operation_action NUMBER;
388: x_msg_count NUMBER;
389: x_msg_data VARCHAR2(2000);
390: --
391: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
392: l_org_id number ;
393: --
394: BEGIN
395: --Moac changes start
410:
411: x_return_status := FND_API.G_RET_STS_SUCCESS;
412:
413: IF l_debug_level > 0 THEN
414: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.HEADER' , 1 ) ;
415: END IF;
416:
417: -- This is to check if the order is an upgraded order and is upgraded
418: -- correctly
418: -- correctly
419: IF p_x_header_rec.operation <> OE_GLOBALS.G_OPR_CREATE THEN
420:
421: IF l_debug_level > 0 THEN
422: oe_debug_pub.add( 'BEFORE CALLING VALID UPGRADE ORDER' , 2 ) ;
423: END IF;
424: IF NOT Valid_Upgraded_Order(p_x_header_rec.header_id ) THEN
425: RAISE FND_API.G_EXC_ERROR;
426: END IF;
469: , p_control_rec => p_control_rec
470: );
471:
472: IF l_debug_level > 0 THEN
473: oe_debug_pub.add( 'OE_ORDER_PVT.HEADER AFTER INIT CONTROL REC' , 2 ) ;
474: END IF;
475:
476: -- Set record return status.
477:
481:
482: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
483:
484: IF l_debug_level > 0 THEN
485: oe_debug_pub.add( 'OPERATION = CREATE SO SET OLD TO NULL' , 2 ) ;
486: END IF;
487: p_x_header_rec.db_flag := FND_API.G_FALSE;
488:
489: -- Set missing old record elements to NULL.
494: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_DELETE
495: THEN
496:
497: IF l_debug_level > 0 THEN
498: oe_debug_pub.add( 'OPERATION = UPDATE SO QUERY OLD' , 2 ) ;
499: END IF;
500:
501: p_x_header_rec.db_flag := FND_API.G_TRUE;
502:
505: IF p_x_old_header_rec.header_id = FND_API.G_MISS_NUM
506: OR p_x_old_header_rec.header_id IS NULL
507: THEN
508: IF l_debug_level > 0 THEN
509: oe_debug_pub.add( 'QUERYING OLD HEADER REC' ) ;
510: END IF;
511:
512: OE_Header_Util.Query_Row
513: ( p_header_id => p_x_header_rec.header_id
522:
523: END IF;
524:
525: IF l_debug_level > 0 THEN
526: oe_debug_pub.add( 'CALLING COMPLETE RECORD' , 2 ) ;
527: END IF;
528:
529: -- Complete new record from old
530:
557: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
558: THEN
559:
560: IF l_debug_level > 0 THEN
561: oe_debug_pub.add( 'CHECK ATTRIBUTES SECURITY' ) ;
562: END IF;
563: -- check if this operation is allowed
564: -- on all the changed attributes
565: OE_Header_Security.Attributes
585:
586: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
587:
588: IF l_debug_level > 0 THEN
589: oe_debug_pub.add( 'VALIDATE ATTRIBUTES' , 2 ) ;
590: END IF;
591:
592: OE_Validate_Header.Attributes
593: ( x_return_status => l_return_status
610:
611: IF l_control_rec.clear_dependents THEN
612:
613: IF l_debug_level > 0 THEN
614: oe_debug_pub.add( 'CLEAR DEPENDENT' , 2 ) ;
615: END IF;
616:
617: OE_Header_Util.Clear_Dependent_Attr
618: ( p_x_header_rec => p_x_header_rec
626: IF l_control_rec.default_attributes
627: THEN
628:
629: IF l_debug_level > 0 THEN
630: oe_debug_pub.add( 'DEFAULT MISSING' , 2 ) ;
631: END IF;
632:
633: OE_Default_Header.Attributes
634: ( p_x_header_rec => p_x_header_rec
637:
638: END IF;
639:
640: IF l_debug_level > 0 THEN
641: oe_debug_pub.add( 'AFTER DEFAULT MISSING' , 2 ) ;
642: END IF;
643:
644: -- Apply attribute changes
645:
646: IF l_control_rec.change_attributes
647: THEN
648:
649: IF l_debug_level > 0 THEN
650: oe_debug_pub.add( 'APPLY ATTRIBUTE CHANGES' , 2 ) ;
651: END IF;
652:
653: OE_Header_Util.Apply_Attribute_Changes
654: ( p_x_header_rec => p_x_header_rec
663: and p_x_header_rec.cancelled_flag<>'Y' --added for bug 6494347
664: THEN
665:
666: IF l_debug_level > 0 THEN
667: oe_debug_pub.add( 'VALIDATE ENTITY' , 2 ) ;
668: END IF;
669:
670: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
671:
709: AND OE_Header_Security.g_check_all_cols_constraint = 'Y')
710: AND l_control_rec.check_security
711: THEN
712: IF l_debug_level > 0 THEN
713: oe_debug_pub.add( 'CHECK ENTITY SECURITY' ) ;
714: END IF;
715:
716: OE_Header_Security.Entity
717: (p_header_rec => p_x_header_rec
739:
740: IF l_control_rec.write_to_db THEN
741:
742: IF l_debug_level > 0 THEN
743: oe_debug_pub.add( 'WRITE TO DB' , 2 ) ;
744: END IF;
745:
746: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
747:
763:
764: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
765:
766: IF l_debug_level > 0 THEN
767: oe_debug_pub.add( 'HEADER FLOW STATUS :'||P_X_HEADER_REC.FLOW_STATUS_CODE , 1 ) ;
768: END IF;
769: OE_Header_Util.Update_Row (p_x_header_rec);
770:
771: ELSIF p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
777: l_resp_id := FND_GLOBAL.RESP_ID;
778: l_application_id := FND_GLOBAL.RESP_APPL_ID;
779:
780: IF l_debug_level > 0 THEN
781: oe_debug_pub.add( 'USER ID IS '|| L_USER_ID ) ;
782: oe_debug_pub.add( 'RESP ID IS '|| L_RESP_ID ) ;
783: oe_debug_pub.add( 'APPL ID IS '|| L_APPLICATION_ID ) ;
784: END IF;
785:
778: l_application_id := FND_GLOBAL.RESP_APPL_ID;
779:
780: IF l_debug_level > 0 THEN
781: oe_debug_pub.add( 'USER ID IS '|| L_USER_ID ) ;
782: oe_debug_pub.add( 'RESP ID IS '|| L_RESP_ID ) ;
783: oe_debug_pub.add( 'APPL ID IS '|| L_APPLICATION_ID ) ;
784: END IF;
785:
786:
779:
780: IF l_debug_level > 0 THEN
781: oe_debug_pub.add( 'USER ID IS '|| L_USER_ID ) ;
782: oe_debug_pub.add( 'RESP ID IS '|| L_RESP_ID ) ;
783: oe_debug_pub.add( 'APPL ID IS '|| L_APPLICATION_ID ) ;
784: END IF;
785:
786:
787: OE_Header_Util.Insert_Row (p_x_header_rec);
807:
808: OE_Header_Security.g_check_all_cols_constraint := 'Y';
809:
810: IF l_debug_level > 0 THEN
811: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.HEADER' , 1 ) ;
812: END IF;
813: OE_MSG_PUB.reset_msg_context('HEADER');
814:
815: set_recursion_mode(p_Entity_Code => 2,
825: x_return_status := FND_API.G_RET_STS_ERROR;
826: OE_Header_Security.g_check_all_cols_constraint := 'Y';
827: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
828: IF l_debug_level > 0 THEN
829: oe_debug_pub.add( 'DELETE REQUEST1' , 2 ) ;
830: END IF;
831: OE_Delayed_Requests_Pvt.Clear_Request
832: (x_return_status => l_return_status);
833: END IF;
841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
842: OE_Header_Security.g_check_all_cols_constraint := 'Y';
843: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
844: IF l_debug_level > 0 THEN
845: oe_debug_pub.add( 'DELETE REQUEST2' , 2 ) ;
846: END IF;
847: OE_Delayed_Requests_Pvt.Clear_Request
848: (x_return_status => l_return_status);
849: END IF;
865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
866: OE_Header_Security.g_check_all_cols_constraint := 'Y';
867: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
868: IF l_debug_level > 0 THEN
869: oe_debug_pub.add( 'DELETE REQUEST3' , 2 ) ;
870: END IF;
871: OE_Delayed_Requests_Pvt.Clear_Request
872: (x_return_status => l_return_status);
873: END IF;
909: l_booked_flag VARCHAR2(1);
910: l_quota_flag VARCHAR2(1);
911: --bug 5049879
912: --
913: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
914: l_org_id number ;
915: --
916: BEGIN
917:
940:
941: -- Init local table variables.
942:
943: IF l_debug_level > 0 THEN
944: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.HEADER_SCREDITS' , 1 ) ;
945: END IF;
946:
947: -- FOR I IN 1..p_x_Header_Scredit_tbl.COUNT LOOP
948:
968: IF l_header_Scredit_rec.header_id IS NOT NULL AND
969: l_header_Scredit_rec.header_id <> FND_API.G_MISS_NUM THEN
970: BEGIN
971: IF l_debug_level > 0 THEN
972: oe_debug_pub.add('Getting reference data for header_id:'||l_header_Scredit_rec.header_id);
973: END IF;
974: SELECT order_source_id, orig_sys_document_ref, change_sequence,
975: source_document_type_id, source_document_id
976: INTO l_order_source_id, l_orig_sys_document_ref, l_change_sequence,
1011: l_old_header_Scredit_rec.header_id <> FND_API.G_MISS_NUM THEN
1012:
1013: BEGIN
1014: IF l_debug_level > 0 THEN
1015: oe_debug_pub.add('Getting reference data for old header_id:'||l_old_header_Scredit_rec.header_id);
1016: END IF;
1017: SELECT order_source_id, orig_sys_document_ref, change_sequence,
1018: source_document_type_id, source_document_id
1019: INTO l_order_source_id, l_orig_sys_document_ref, l_change_sequence,
1125: OR l_header_scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
1126: THEN
1127:
1128: IF l_debug_level > 0 THEN
1129: oe_debug_pub.add( 'CHECK ATTRIBUTES SECURITY' ) ;
1130: END IF;
1131: -- check if this operation is allowed
1132: -- on all the changed attributes
1133: OE_Header_Scredit_Security.Attributes
1246: AND OE_Header_Scredit_Security.g_check_all_cols_constraint = 'Y')
1247: AND l_control_rec.check_security
1248: THEN
1249: IF l_debug_level > 0 THEN
1250: oe_debug_pub.add( 'CHECK ENTITY SECURITY' ) ;
1251: END IF;
1252:
1253: OE_Header_Scredit_Security.Entity
1254: (p_header_scredit_rec => l_header_scredit_rec
1289: IF nvl(l_booked_flag, 'N') = 'Y' and nvl(l_quota_flag, 'N') = 'Y' THEN
1290: OE_Validate_Header_Scredit.Validate_HSC_TOTAL_FOR_BK(l_header_scredit_rec.return_status,
1291: l_header_scredit_rec.header_id);
1292: IF l_debug_level > 0 THEN
1293: oe_debug_pub.add('after delete_row and hdr validate_hsc_quota_total rt status : ' || l_header_scredit_rec.return_status);
1294: END IF;
1295: l_del_ret_status := l_header_scredit_rec.return_status; --bug 5331854
1296:
1297: END IF;
1352:
1353: IF l_control_Rec.Process_Partial THEN
1354: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1355: IF l_debug_level > 0 THEN
1356: oe_debug_pub.add( 'DELETE REQUEST4' , 2 ) ;
1357: END IF;
1358: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
1359: (p_entity_code =>OE_GLOBALS.G_ENTITY_HEADER_SCREDIT,
1360: p_entity_id => l_header_scredit_rec.sales_credit_id,
1404: I := p_x_Header_Scredit_tbl.NEXT(I);
1405: END LOOP;
1406:
1407: IF l_debug_level > 0 THEN
1408: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.HEADER_SCREDITS' , 1 ) ;
1409: END IF;
1410: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1411:
1412: set_recursion_mode(p_Entity_Code => 4,
1419: p_In_out => 0);
1420: x_return_status := FND_API.G_RET_STS_ERROR;
1421: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1422: IF l_debug_level > 0 THEN
1423: oe_debug_pub.add( 'DELETE REQUEST5' , 2 ) ;
1424: END IF;
1425: OE_Delayed_Requests_Pvt.Clear_Request
1426: (x_return_status => l_return_status);
1427: END IF;
1433: p_In_out => 0);
1434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1435: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1436: IF l_debug_level > 0 THEN
1437: oe_debug_pub.add( 'DELETE REQUEST6' , 2 ) ;
1438: END IF;
1439: OE_Delayed_Requests_Pvt.Clear_Request
1440: (x_return_status => l_return_status);
1441: END IF;
1447: p_In_out => 0);
1448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1449: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1450: IF l_debug_level > 0 THEN
1451: oe_debug_pub.add( 'DELETE REQUEST7' , 2 ) ;
1452: END IF;
1453: OE_Delayed_Requests_Pvt.Clear_Request
1454: (x_return_status => l_return_status);
1455: END IF;
1494: l_source_document_id NUMBER;
1495:
1496: I NUMBER; -- Used as index for while loop
1497: --
1498: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1499: l_org_id number ;
1500: --
1501: BEGIN
1502:
1523:
1524: -- Init local table variables.
1525:
1526: IF l_debug_level > 0 THEN
1527: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.HEADER_PAYMENTS' , 1 ) ;
1528: END IF;
1529:
1530: -- FOR I IN 1..p_x_Header_Payment_tbl.COUNT LOOP
1531:
1551: IF l_header_Payment_rec.header_id IS NOT NULL AND
1552: l_header_Payment_rec.header_id <> FND_API.G_MISS_NUM THEN
1553: BEGIN
1554: IF l_debug_level > 0 THEN
1555: oe_debug_pub.add('Getting reference data for header_id:'||l_header_Payment_rec.header_id);
1556: END IF;
1557: SELECT order_source_id, orig_sys_document_ref, change_sequence,
1558: source_document_type_id, source_document_id
1559: INTO l_order_source_id, l_orig_sys_document_ref, l_change_sequence,
1594: l_old_header_Payment_rec.header_id <> FND_API.G_MISS_NUM THEN
1595:
1596: BEGIN
1597: IF l_debug_level > 0 THEN
1598: oe_debug_pub.add('Getting reference data for old header_id:'||l_old_header_Payment_rec.header_id);
1599: END IF;
1600: SELECT order_source_id, orig_sys_document_ref, change_sequence,
1601: source_document_type_id, source_document_id
1602: INTO l_order_source_id, l_orig_sys_document_ref, l_change_sequence,
1654:
1655: -- Set missing old record elements to NULL.
1656:
1657: IF l_debug_level > 0 THEN
1658: oe_debug_pub.add('Payment:before OE_Header_Payment_Util.Convert_Miss_To_Null', 5);
1659: END IF;
1660: OE_Header_Payment_Util.Convert_Miss_To_Null (l_old_Header_Payment_rec);
1661: IF l_debug_level > 0 THEN
1662: oe_debug_pub.add('Payment:after OE_Header_Payment_Util.Convert_Miss_To_Null', 5);
1658: oe_debug_pub.add('Payment:before OE_Header_Payment_Util.Convert_Miss_To_Null', 5);
1659: END IF;
1660: OE_Header_Payment_Util.Convert_Miss_To_Null (l_old_Header_Payment_rec);
1661: IF l_debug_level > 0 THEN
1662: oe_debug_pub.add('Payment:after OE_Header_Payment_Util.Convert_Miss_To_Null', 5);
1663: END IF;
1664:
1665: ELSIF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1666: OR l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE
1674: OR l_old_Header_Payment_rec.payment_number IS NULL
1675: THEN
1676:
1677: IF l_debug_level > 0 THEN
1678: oe_debug_pub.add('Payment:before OE_Header_Payment_Util.Query_Row', 5);
1679: END IF;
1680: OE_Header_Payment_Util.Query_Row
1681: ( p_payment_number => l_Header_Payment_rec.payment_number
1682: , p_header_id => l_Header_Payment_rec.header_id
1682: , p_header_id => l_Header_Payment_rec.header_id
1683: , x_header_payment_rec => l_old_Header_Payment_rec
1684: );
1685: IF l_debug_level > 0 THEN
1686: oe_debug_pub.add('Payment:after OE_Header_Payment_Util.Query_Row', 5);
1687: END IF;
1688:
1689: ELSE
1690:
1690:
1691: -- Set missing old record elements to NULL.
1692:
1693: IF l_debug_level > 0 THEN
1694: oe_debug_pub.add('Payment:before OE_Header_Payment_Util.Convert_Miss_To_Null', 5);
1695: END IF;
1696: OE_Header_Payment_Util.Convert_Miss_To_Null (l_old_Header_Payment_rec);
1697: IF l_debug_level > 0 THEN
1698: oe_debug_pub.add('Payment:after OE_Header_Payment_Util.Convert_Miss_To_Null', 5);
1694: oe_debug_pub.add('Payment:before OE_Header_Payment_Util.Convert_Miss_To_Null', 5);
1695: END IF;
1696: OE_Header_Payment_Util.Convert_Miss_To_Null (l_old_Header_Payment_rec);
1697: IF l_debug_level > 0 THEN
1698: oe_debug_pub.add('Payment:after OE_Header_Payment_Util.Convert_Miss_To_Null', 5);
1699: END IF;
1700:
1701: END IF;
1702:
1702:
1703: -- Complete new record from old
1704:
1705: IF l_debug_level > 0 THEN
1706: oe_debug_pub.add('Payment:before OE_Header_Payment_Util.Complete_Record', 5);
1707: END IF;
1708: OE_Header_Payment_Util.Complete_Record
1709: ( p_x_Header_Payment_rec => l_Header_Payment_rec
1710: , p_old_Header_Payment_rec => l_old_Header_Payment_rec
1709: ( p_x_Header_Payment_rec => l_Header_Payment_rec
1710: , p_old_Header_Payment_rec => l_old_Header_Payment_rec
1711: );
1712: IF l_debug_level > 0 THEN
1713: oe_debug_pub.add('Payment:after OE_Header_Payment_Util.Complete_Record', 5);
1714: END IF;
1715:
1716: OE_MSG_PUB.update_msg_context(
1717: p_entity_code => 'HEADER_PAYMENT'
1733: OR l_header_payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
1734: THEN
1735:
1736: IF l_debug_level > 0 THEN
1737: oe_debug_pub.add( 'CHECK ATTRIBUTES SECURITY' ) ;
1738: END IF;
1739: -- check if this operation is allowed
1740: -- on all the changed attributes
1741: IF l_debug_level > 0 THEN
1738: END IF;
1739: -- check if this operation is allowed
1740: -- on all the changed attributes
1741: IF l_debug_level > 0 THEN
1742: oe_debug_pub.add('Payment:before OE_Header_Payment_Security.Attributes', 5);
1743: END IF;
1744: OE_Header_Payment_Security.Attributes
1745: (p_header_payment_rec => l_header_payment_rec
1746: , p_old_header_payment_rec => l_old_header_payment_rec
1747: , x_result => l_sec_result
1748: , x_return_status => l_return_status
1749: );
1750: IF l_debug_level > 0 THEN
1751: oe_debug_pub.add('Payment:after OE_Header_Payment_Security.Attributes', 5);
1752: END IF;
1753:
1754: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1766: -- Attribute level validation.
1767:
1768: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
1769: IF l_debug_level > 0 THEN
1770: oe_debug_pub.add('Payment:before OE_Validate_Header_Payment.Attributes', 5);
1771: END IF;
1772:
1773: OE_Validate_Header_Payment.Attributes
1774: ( x_return_status => l_return_status
1775: , p_Header_Payment_rec => l_Header_Payment_rec
1776: , p_old_Header_Payment_rec => l_old_Header_Payment_rec
1777: );
1778: IF l_debug_level > 0 THEN
1779: oe_debug_pub.add('Payment:after OE_Validate_Header_Payment.Attributes',5);
1780: END IF;
1781:
1782: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1792:
1793: IF l_control_rec.clear_dependents THEN
1794:
1795: IF l_debug_level > 0 THEN
1796: oe_debug_pub.add('Payment:before OE_Header_Payment_Util.Clear_Dependent_Attr', 5);
1797: END IF;
1798: OE_Header_Payment_Util.Clear_Dependent_Attr
1799: ( p_x_Header_Payment_rec => l_Header_Payment_rec
1800: , p_old_Header_Payment_rec => l_old_Header_Payment_rec
1799: ( p_x_Header_Payment_rec => l_Header_Payment_rec
1800: , p_old_Header_Payment_rec => l_old_Header_Payment_rec
1801: );
1802: IF l_debug_level > 0 THEN
1803: oe_debug_pub.add('Payment:after OE_Header_Payment_Util.Clear_Dependent_Attr', 5);
1804: END IF;
1805:
1806: END IF;
1807:
1809:
1810: IF l_control_rec.default_attributes
1811: THEN
1812: IF l_debug_level > 0 THEN
1813: oe_debug_pub.add('Payment:before OE_Default_Header_Payment.Attributes', 5);
1814: END IF;
1815:
1816: OE_Default_Header_Payment.Attributes
1817: ( p_x_Header_Payment_rec => l_Header_Payment_rec
1817: ( p_x_Header_Payment_rec => l_Header_Payment_rec
1818: , p_old_header_payment_rec => l_old_header_payment_rec
1819: );
1820: IF l_debug_level > 0 THEN
1821: oe_debug_pub.add('Payment:after OE_Default_Header_Payment.Attributes', 5);
1822: END IF;
1823:
1824: END IF;
1825:
1828: IF l_control_rec.change_attributes
1829: THEN
1830:
1831: IF l_debug_level > 0 THEN
1832: oe_debug_pub.add('Payment:before OE_Header_Payment_Util.Apply_Attribute_Changes', 5);
1833: END IF;
1834: OE_Header_Payment_Util.Apply_Attribute_Changes
1835: ( p_x_Header_Payment_rec => l_Header_Payment_rec
1836: , p_old_Header_Payment_rec => l_old_Header_Payment_rec
1835: ( p_x_Header_Payment_rec => l_Header_Payment_rec
1836: , p_old_Header_Payment_rec => l_old_Header_Payment_rec
1837: );
1838: IF l_debug_level > 0 THEN
1839: oe_debug_pub.add('Payment:after OE_Header_Payment_Util.Apply_Attribute_Changes', 5);
1840: END IF;
1841:
1842: END IF;
1843:
1847:
1848: IF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
1849:
1850: IF l_debug_level > 0 THEN
1851: oe_debug_pub.add('Payment:before OE_Validate_Header_Payment.Entity_Delete', 5);
1852: END IF;
1853: OE_Validate_Header_Payment.Entity_Delete
1854: ( x_return_status => l_return_status
1855: , p_Header_Payment_rec => l_Header_Payment_rec
1854: ( x_return_status => l_return_status
1855: , p_Header_Payment_rec => l_Header_Payment_rec
1856: );
1857: IF l_debug_level > 0 THEN
1858: oe_debug_pub.add('Payment:after OE_Validate_Header_Payment.Entity_Delete', 5);
1859: END IF;
1860:
1861: ELSE
1862: IF l_debug_level > 0 THEN
1859: END IF;
1860:
1861: ELSE
1862: IF l_debug_level > 0 THEN
1863: oe_debug_pub.add('Payment:before OE_Validate_Header_Payment.Entity',5);
1864: END IF;
1865:
1866: OE_Validate_Header_Payment.Entity
1867: ( x_return_status => l_return_status
1868: , p_Header_Payment_rec => l_Header_Payment_rec
1869: , p_old_Header_Payment_rec => l_old_Header_Payment_rec
1870: );
1871: IF l_debug_level > 0 THEN
1872: oe_debug_pub.add('Payment:after OE_Validate_Header_Payment.Entity, 5');
1873: END IF;
1874:
1875: END IF;
1876:
1896: AND OE_Header_Payment_Security.g_check_all_cols_constraint = 'Y')
1897: AND l_control_rec.check_security
1898: THEN
1899: IF l_debug_level > 0 THEN
1900: oe_debug_pub.add( 'CHECK ENTITY SECURITY' ) ;
1901: END IF;
1902: IF l_debug_level > 0 THEN
1903: oe_debug_pub.add('Payment:before OE_Header_Payment_Security.Entity', 5);
1904: END IF;
1899: IF l_debug_level > 0 THEN
1900: oe_debug_pub.add( 'CHECK ENTITY SECURITY' ) ;
1901: END IF;
1902: IF l_debug_level > 0 THEN
1903: oe_debug_pub.add('Payment:before OE_Header_Payment_Security.Entity', 5);
1904: END IF;
1905:
1906: OE_Header_Payment_Security.Entity
1907: (p_header_payment_rec => l_header_payment_rec
1908: , x_result => l_sec_result
1909: , x_return_status => l_return_status
1910: );
1911: IF l_debug_level > 0 THEN
1912: oe_debug_pub.add('Payment:after OE_Header_Payment_Security.Entity', 5);
1913: END IF;
1914:
1915: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1929: IF l_control_rec.write_to_db THEN
1930:
1931: /* Start Audit Trail */
1932: IF l_debug_level > 0 THEN
1933: oe_debug_pub.add('Payment:before Oe_Header_Payment_Util.Pre_Write_Process', 5);
1934: END IF;
1935: Oe_Header_Payment_Util.Pre_Write_Process
1936: (p_x_header_Payment_rec => l_header_payment_rec,
1937: p_old_header_payment_rec => l_old_header_payment_rec);
1935: Oe_Header_Payment_Util.Pre_Write_Process
1936: (p_x_header_Payment_rec => l_header_payment_rec,
1937: p_old_header_payment_rec => l_old_header_payment_rec);
1938: IF l_debug_level > 0 THEN
1939: oe_debug_pub.add('Payment:after Oe_Header_Payment_Util.Pre_Write_Process', 5);
1940: END IF;
1941: /* End AuditTrail */
1942:
1943: IF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
1941: /* End AuditTrail */
1942:
1943: IF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
1944: IF l_debug_level > 0 THEN
1945: oe_debug_pub.add('Payment:before Oe_Header_Payment_Util.Delete_Row',5);
1946: END IF;
1947:
1948: OE_Header_Payment_Util.Delete_Row
1949: ( p_payment_number => l_Header_Payment_rec.payment_number
1949: ( p_payment_number => l_Header_Payment_rec.payment_number
1950: , p_header_id => l_Header_Payment_rec.header_id
1951: );
1952: IF l_debug_level > 0 THEN
1953: oe_debug_pub.add('Payment:after Oe_Header_Payment_Util.Delete_Row',5);
1954: END IF;
1955:
1956: ELSE
1957:
1970: l_Header_Payment_rec.creation_date := SYSDATE;
1971: l_Header_Payment_rec.created_by := FND_GLOBAL.USER_ID;
1972:
1973: IF l_debug_level > 0 THEN
1974: oe_debug_pub.add('Payment:before Oe_Header_Payment_Util.Insert_Row', 5);
1975: END IF;
1976: OE_Header_Payment_Util.Insert_Row (l_Header_Payment_rec);
1977: IF l_debug_level > 0 THEN
1978: oe_debug_pub.add('Payment:after Oe_Header_Payment_Util.Insert_Row', 5);
1974: oe_debug_pub.add('Payment:before Oe_Header_Payment_Util.Insert_Row', 5);
1975: END IF;
1976: OE_Header_Payment_Util.Insert_Row (l_Header_Payment_rec);
1977: IF l_debug_level > 0 THEN
1978: oe_debug_pub.add('Payment:after Oe_Header_Payment_Util.Insert_Row', 5);
1979: END IF;
1980:
1981: END IF;
1982:
2014: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2015: IF l_control_Rec.Process_Partial THEN
2016: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2017: IF l_debug_level > 0 THEN
2018: oe_debug_pub.add( 'DELETE REQUEST4' , 2 ) ;
2019: END IF;
2020: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
2021: (p_entity_code =>OE_GLOBALS.G_ENTITY_HEADER_PAYMENT,
2022: p_entity_id => l_header_payment_rec.header_id,
2060: I := p_x_Header_Payment_tbl.NEXT(I);
2061: END LOOP;
2062:
2063: IF l_debug_level > 0 THEN
2064: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.HEADER_PAYMENTS' , 1 ) ;
2065: END IF;
2066: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2067:
2068: EXCEPTION
2071:
2072: x_return_status := FND_API.G_RET_STS_ERROR;
2073: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2074: IF l_debug_level > 0 THEN
2075: oe_debug_pub.add( 'DELETE REQUEST5' , 2 ) ;
2076: END IF;
2077: OE_Delayed_Requests_Pvt.Clear_Request
2078: (x_return_status => l_return_status);
2079: END IF;
2083:
2084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2085: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2086: IF l_debug_level > 0 THEN
2087: oe_debug_pub.add( 'DELETE REQUEST6' , 2 ) ;
2088: END IF;
2089: OE_Delayed_Requests_Pvt.Clear_Request
2090: (x_return_status => l_return_status);
2091: END IF;
2095:
2096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2097: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2098: IF l_debug_level > 0 THEN
2099: oe_debug_pub.add( 'DELETE REQUEST7' , 2 ) ;
2100: END IF;
2101: OE_Delayed_Requests_Pvt.Clear_Request
2102: (x_return_status => l_return_status);
2103: END IF;
2136: )
2137: RETURN NUMBER
2138: IS
2139: --
2140: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2141: --
2142: BEGIN
2143:
2144: -- SERVICE line if service line identifiers are populated
2148: <> FND_API.G_MISS_NUM )
2149: THEN
2150:
2151: IF l_debug_level > 0 THEN
2152: oe_debug_pub.add( 'SERVICE LINE' , 1 ) ;
2153: END IF;
2154: RETURN 3;
2155:
2156: -- Top model line identifiers are populated
2166: OR ( p_line_rec.top_model_line_index <> FND_API.G_MISS_NUM
2167: AND p_line_rec.top_model_line_index = p_line_index )
2168: THEN
2169: IF l_debug_level > 0 THEN
2170: oe_debug_pub.add( 'TOP MODEL LINE' , 1 ) ;
2171: END IF;
2172: RETURN 1;
2173: -- OPTION/CLASS line if line is NOT the model line
2174: ELSE
2172: RETURN 1;
2173: -- OPTION/CLASS line if line is NOT the model line
2174: ELSE
2175: IF l_debug_level > 0 THEN
2176: oe_debug_pub.add( 'OPTION/CLASS LINE' , 1 ) ;
2177: END IF;
2178: RETURN 2;
2179: END IF;
2180:
2182:
2183: -- STANDARD line if neither the top model line identifiers
2184: -- nor the service line identifiers are populated
2185: IF l_debug_level > 0 THEN
2186: oe_debug_pub.add( 'STANDARD LINE' , 1 ) ;
2187: END IF;
2188: RETURN 1;
2189:
2190: END IF;
2403: J NUMBER := 0;
2404: l_num_lines NUMBER;
2405: l_bom_item_type NUMBER;
2406: --
2407: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2408: l_org_id number ;
2409: --
2410: BEGIN
2411: --Moac changes start
2444: -- options so that we can populate the option's top_model_line_id and
2445: -- link_to_line_id.
2446:
2447: IF l_debug_level > 0 THEN
2448: oe_debug_pub.add( 'G_CONFIG_UI_USED '|| OE_CONFIG_UTIL.G_CONFIG_UI_USED , 5 ) ;
2449: END IF;
2450:
2451: l_mode := 'MODELS_AND_STANDARD' ;
2452:
2454:
2455: WHILE I IS NOT NULL AND l_num_lines > 0
2456: LOOP
2457: IF l_debug_level > 0 THEN
2458: oe_debug_pub.add( '---------LOOPING FOR NTH TIME N= '|| I , 1 ) ;
2459: END IF;
2460:
2461: IF p_x_line_tbl(I).operation = OE_GLOBALS.G_OPR_NONE THEN
2462: IF l_debug_level > 0 THEN
2459: END IF;
2460:
2461: IF p_x_line_tbl(I).operation = OE_GLOBALS.G_OPR_NONE THEN
2462: IF l_debug_level > 0 THEN
2463: oe_debug_pub.add( 'OPERATION IS NONE ' , 1 ) ;
2464: END IF;
2465:
2466: IF nvl(p_x_line_tbl(I).semi_processed_flag, FALSE) = FALSE THEN
2467: IF l_debug_level > 0 THEN
2464: END IF;
2465:
2466: IF nvl(p_x_line_tbl(I).semi_processed_flag, FALSE) = FALSE THEN
2467: IF l_debug_level > 0 THEN
2468: oe_debug_pub.add( 'ALREADY CAME IN , OPR = NONE' , 5 ) ;
2469: END IF;
2470: p_x_line_tbl(I).semi_processed_flag := TRUE;
2471: l_num_lines := l_num_lines - 1;
2472: END IF;
2516: --Added for bug 4937633 end
2517:
2518: l_line_rec := p_x_line_tbl(I);
2519: IF l_debug_level > 0 THEN
2520: oe_debug_pub.add( 'SCH ARR DATE='||L_LINE_REC.SCHEDULE_ARRIVAL_DATE ) ;
2521: END IF;
2522:
2523: -- Load old records
2524: IF p_x_old_line_tbl.EXISTS(I) THEN
2578:
2579: IF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2580:
2581: IF l_debug_level > 0 THEN
2582: oe_debug_pub.add( 'OPERATION = CREATE SO SETTING OLD TO NULL' , 2 ) ;
2583: END IF;
2584:
2585: l_line_rec.db_flag := FND_API.G_FALSE;
2586:
2593: -- as the booking process also locks the order header.
2594:
2595: /*******
2596: IF l_header_locked = FND_API.G_MISS_CHAR THEN
2597: oe_debug_pub.add('locking the header record');
2598:
2599: SAVEPOINT Header_Lock;
2600:
2601: OE_Header_Util.Lock_Row
2623: l_line_rec.operation = OE_GLOBALS.G_OPR_DELETE
2624: THEN
2625:
2626: IF l_debug_level > 0 THEN
2627: oe_debug_pub.add( 'OPERATION = UPDATE SO QUERY OLD' , 1 ) ;
2628: END IF;
2629:
2630: l_line_rec.db_flag := FND_API.G_TRUE;
2631:
2651:
2652: -- Complete new record from old
2653:
2654: IF l_debug_level > 0 THEN
2655: oe_debug_pub.add( 'COMPLETE NEW RECORD FROM OLD' , 1 ) ;
2656: END IF;
2657:
2658: OE_Line_Util.Complete_Record
2659: ( p_x_line_rec => l_line_rec
2659: ( p_x_line_rec => l_line_rec
2660: ,p_old_line_rec => l_old_line_rec);
2661:
2662: IF l_debug_level > 0 THEN
2663: oe_debug_pub.add( 'AFTER COMPLETE NEW RECORD FROM OLD' , 2 ) ;
2664: END IF;
2665:
2666: OE_MSG_PUB.update_msg_context
2667: ( p_entity_code => 'LINE'
2682: AND nvl(l_line_rec.xml_transaction_type_code, FND_API.G_MISS_CHAR)
2683: IN (OE_Acknowledgment_Pub.G_TRANSACTION_CHO,OE_Acknowledgment_Pub.G_TRANSACTION_CPO) THEN -- 3A8/3A9
2684:
2685: IF l_debug_level > 0 THEN
2686: oe_debug_pub.add( 'Calling OE_Acknowledgment_PUB.Process_3A8 for transaction type: '|| l_line_rec.xml_transaction_type_code, 2 ) ;
2687: END IF;
2688: OE_Acknowledgment_PUB.Process_3A8
2689: ( p_x_line_rec => l_line_rec
2690: , p_old_line_rec => l_old_line_rec
2690: , p_old_line_rec => l_old_line_rec
2691: , x_return_status => l_return_status
2692: );
2693: IF l_debug_level > 0 THEN
2694: oe_debug_pub.add( 'Return status after call to Process_3A8:' || l_return_status, 2 ) ;
2695: END IF;
2696:
2697: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2703:
2704: END IF; -- if operation is create.
2705:
2706: IF l_debug_level > 0 THEN
2707: oe_debug_pub.add( 'AT LINE LEVEL HEADER_ID' || L_LINE_REC.HEADER_ID , 2 ) ;
2708: END IF;
2709: IF I = p_x_line_tbl.FIRST THEN
2710: IF NOT Valid_Upgraded_Order(l_line_rec.header_id) THEN
2711: RAISE FND_API.G_EXC_ERROR;
2732: NOT (OE_GLOBALS.G_HTML_FLAG)) OR
2733: p_control_rec.write_to_db THEN
2734:
2735: IF l_debug_level > 0 THEN
2736: oe_debug_pub.add( 'LOCKING THE HEADER RECORD' ) ;
2737: END IF;
2738:
2739: OE_Header_Util.Lock_Row
2740: ( p_header_id => l_line_rec.header_id
2762:
2763: ------------- lines loop starts ------------------------------
2764:
2765: IF l_debug_level > 0 THEN
2766: oe_debug_pub.add( 'ITEM TYPE :'||P_X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
2767: END IF;
2768:
2769: l_check_item_type := Check_Item_Type(l_line_rec,I);
2770:
2768:
2769: l_check_item_type := Check_Item_Type(l_line_rec,I);
2770:
2771: IF l_debug_level > 0 THEN
2772: oe_debug_pub.add( 'CHECK_ITEM_TYPE RETURNS :'||L_CHECK_ITEM_TYPE ) ;
2773: END IF;
2774:
2775:
2776:
2777: IF (l_mode = 'MODELS_AND_STANDARD') AND
2778: l_check_item_type = 1 THEN
2779:
2780: IF l_debug_level > 0 THEN
2781: oe_debug_pub.add( 'L_MODE IS MODELS_AND_STANDARD' , 1 ) ;
2782: END IF;
2783:
2784: IF OE_Config_Util.G_Config_UI_Used = 'N' AND
2785: l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
2792: THEN
2793: -- bug 3286378
2794: IF l_line_rec.inventory_item_id IS NULL THEN
2795: IF l_debug_level > 0 THEN
2796: oe_debug_pub.add( 'No Item at the line' , 1 ) ;
2797: END IF;
2798: p_x_line_tbl(I).component_code := null;
2799: p_x_line_tbl(I).component_sequence_id := null;
2800: p_x_line_tbl(I).sort_order := null;
2800: p_x_line_tbl(I).sort_order := null;
2801: ELSIF NOT OE_GLOBALS.EQUAL(l_line_rec.inventory_item_id,
2802: l_old_line_rec.inventory_item_id) THEN
2803: IF l_debug_level > 0 THEN
2804: oe_debug_pub.add('Line Item is Changed '
2805: ||l_line_rec.inventory_item_id , 1 ) ;
2806: END IF;
2807:
2808: BEGIN
2814: AND organization_id
2815: = OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
2816:
2817: IF l_debug_level > 0 THEN
2818: oe_debug_pub.add('old Line Item exists '
2819: ||l_bom_item_type, 1);
2820: END IF;
2821:
2822: ELSE
2822: ELSE
2823: l_bom_item_type := 1;
2824: END IF;
2825: IF l_debug_level > 0 THEN
2826: oe_debug_pub.add('BOM ITEM TYPE : '||l_bom_item_type, 1);
2827: END IF;
2828:
2829: IF l_bom_item_type = 1 THEN
2830: IF l_debug_level > 0 THEN
2827: END IF;
2828:
2829: IF l_bom_item_type = 1 THEN
2830: IF l_debug_level > 0 THEN
2831: oe_debug_pub.add( 'CALLING Complete_Config_Line' ,1);
2832: oe_debug_pub.add
2833: ('comp seq id '||l_line_rec.component_sequence_id,1);
2834: END IF;
2835:
2828:
2829: IF l_bom_item_type = 1 THEN
2830: IF l_debug_level > 0 THEN
2831: oe_debug_pub.add( 'CALLING Complete_Config_Line' ,1);
2832: oe_debug_pub.add
2833: ('comp seq id '||l_line_rec.component_sequence_id,1);
2834: END IF;
2835:
2836: l_line_rec.component_code := null;
2848: := l_line_rec.component_sequence_id;
2849: p_x_line_tbl(I).sort_order := l_line_rec.sort_order;
2850: ELSE
2851: IF l_debug_level > 0 THEN
2852: oe_debug_pub.add( 'Setting Component code to Null',1);
2853: END IF;
2854: p_x_line_tbl(I).component_code := null;
2855: p_x_line_tbl(I).component_sequence_id := null;
2856: p_x_line_tbl(I).sort_order := null;
2857: END IF;
2858: EXCEPTION
2859: WHEN OTHERS THEN
2860: IF l_debug_level > 0 THEN
2861: oe_debug_pub.add( 'Did not get any bom item type',1);
2862: END IF;
2863: --RAISE FND_API.G_EXC_ERROR;
2864: RAISE;
2865: END;
2875: IF (l_mode = 'OPTIONS') AND
2876: l_check_item_type = 2 THEN
2877:
2878: IF l_debug_level > 0 THEN
2879: oe_debug_pub.add( 'L_MODE IS OPTIONS' , 1 ) ;
2880: END IF;
2881:
2882: IF nvl(l_line_rec.semi_processed_flag, FALSE) = TRUE THEN
2883: IF l_debug_level > 0 THEN
2880: END IF;
2881:
2882: IF nvl(l_line_rec.semi_processed_flag, FALSE) = TRUE THEN
2883: IF l_debug_level > 0 THEN
2884: oe_debug_pub.add( 'LINE IS ALREADY PROCESSED , GOTO END..' , 1 ) ;
2885: END IF;
2886: GOTO end_of_lines_loop;
2887: END IF;
2888:
2904: IF (l_line_rec.top_model_line_id = FND_API.G_MISS_NUM) OR
2905: (l_line_rec.top_model_line_id IS NULL) THEN
2906:
2907: IF l_debug_level > 0 THEN
2908: oe_debug_pub.add( 'MODEL:'||P_X_LINE_TBL ( L_TOP_MODEL_LINE_INDEX ) .RETURN_STATUS ) ;
2909: END IF;
2910:
2911:
2912: IF p_x_line_tbl(l_top_model_line_index).return_status =
2920: ELSE
2921: IF p_x_line_tbl(l_top_model_line_index).return_status IS NULL
2922: THEN
2923: IF l_debug_level > 0 THEN
2924: oe_debug_pub.add( 'TOP MODEL RETURN STATUS IS NULL' , 1 ) ;
2925: END IF;
2926: END IF;
2927:
2928: IF l_debug_level > 0 THEN
2925: END IF;
2926: END IF;
2927:
2928: IF l_debug_level > 0 THEN
2929: oe_debug_pub.add( 'TOP MODEL LINE PROCESSED WITH ERRORS' , 1 ) ;
2930: END IF;
2931:
2932: GOTO end_of_lines_loop;
2933: END IF; -- ret sts success
2936:
2937:
2938: ELSE -- Invalid Index
2939: IF l_debug_level > 0 THEN
2940: oe_debug_pub.add( 'INVALID LINE INDEX ' , 2 ) ;
2941: END IF;
2942: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2943: END IF; -- if valid index, top model is not at the index
2944:
2943: END IF; -- if valid index, top model is not at the index
2944:
2945: ELSE
2946: IF l_debug_level > 0 THEN
2947: oe_debug_pub.add( 'MODE IS OPTIONS BUT NO TOP MODEL LINE INDEX??' , 1 ) ;
2948: END IF;
2949: END IF; -- if top model line index is populated
2950:
2951: -- if it comes here, everything was OK. ---------
2984:
2985: IF nvl(l_line_rec.item_type_code, 'A') <> OE_GLOBALS.G_ITEM_CLASS
2986: THEN
2987: IF l_debug_level > 0 THEN
2988: oe_debug_pub.add( 'NOT A CLASS , SKIP' , 3 ) ;
2989: END IF;
2990:
2991: IF l_line_rec.split_from_line_id is NULL THEN
2992: J := J + 1;
3000:
3001: IF nvl(l_line_rec.item_type_code, 'A') = OE_GLOBALS.G_ITEM_CLASS
3002: THEN
3003: IF l_debug_level > 0 THEN
3004: oe_debug_pub.add( 'THIS CLASS IS ALREADY SAVED' , 3 ) ;
3005: END IF;
3006: l_process_this_line := FALSE;
3007: END IF;
3008:
3024: IF (l_mode = 'SERVICE') AND
3025: l_check_item_type = 3 THEN
3026:
3027: IF l_debug_level > 0 THEN
3028: oe_debug_pub.add( 'JPN: MODE IS SERVICE' ) ;
3029: END IF;
3030: l_process_this_line := TRUE;
3031:
3032: IF ((l_line_rec.service_line_index <> FND_API.G_MISS_NUM) AND
3059:
3060: END IF;
3061: ELSE -- Invalid Index
3062: IF l_debug_level > 0 THEN
3063: oe_debug_pub.add( 'INVALID SERVICE LINE INDEX ' , 2 ) ;
3064: END IF;
3065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3066: END IF; -- If Valid Line Index
3067:
3073:
3074: IF l_process_this_line = FALSE THEN
3075:
3076: IF l_debug_level > 0 THEN
3077: oe_debug_pub.add( 'MODE AND ITEM TYPE DOES NOT MATCH , GO TO END' , 1 ) ;
3078: END IF;
3079:
3080: l_line_rec.semi_processed_flag := FALSE;
3081: p_x_line_tbl(I).semi_processed_flag := FALSE;
3086: l_line_rec.semi_processed_flag := TRUE;
3087: p_x_line_tbl(I).semi_processed_flag := TRUE;
3088: l_num_lines := l_num_lines - 1;
3089: IF l_debug_level > 0 THEN
3090: oe_debug_pub.add( L_NUM_LINES|| ' '||L_LINE_REC.ITEM_TYPE_CODE||L_LINE_REC.LINE_ID , 1 ) ;
3091: END IF;
3092:
3093: END IF; -- to process the line or not
3094:
3096:
3097: -- Load old records.
3098:
3099: IF l_debug_level > 0 THEN
3100: oe_debug_pub.add( 'STARTING LINE LOOP. HEADER_ID = '|| TO_CHAR ( L_LINE_REC.HEADER_ID ) , 2 ) ;
3101: END IF;
3102:
3103: -- Load API control record
3104:
3118: l_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
3119: THEN
3120:
3121: IF l_debug_level > 0 THEN
3122: oe_debug_pub.add( 'CHECK ATTRIBUTES SECURITY' , 1 ) ;
3123: END IF;
3124: -- check if this operation is allowed on all the changed attributes
3125: OE_Line_Security.Attributes
3126: ( p_line_rec => l_line_rec
3149: l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3150: THEN
3151:
3152: IF l_debug_level > 0 THEN
3153: oe_debug_pub.add( 'ATTRIBUTE VALIDATION' , 1 ) ;
3154: END IF;
3155:
3156: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
3157:
3161: ,p_old_line_rec => l_old_line_rec
3162: ,p_validation_level => p_validation_level);
3163:
3164: IF l_debug_level > 0 THEN
3165: oe_debug_pub.add( 'AFTER ATTRIBUTE VALIDATION' , 1 ) ;
3166: END IF;
3167:
3168: IF p_validation_level <> OE_GLOBALS.G_VALID_LEVEL_PARTIAL THEN
3169: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3186: l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3187: THEN
3188:
3189: IF l_debug_level > 0 THEN
3190: oe_debug_pub.add( 'CLEAR DEPENDENT ATTRIBUTES' , 1 ) ;
3191: END IF;
3192:
3193: OE_Line_Util_Ext.Clear_Dependent_Attr
3194: ( p_x_line_rec => l_line_rec
3205: l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3206: THEN
3207:
3208: IF l_debug_level > 0 THEN
3209: oe_debug_pub.add( 'DEFAULT MISSING' , 1 ) ;
3210: END IF;
3211:
3212: OE_Default_Line.Attributes
3213: ( p_x_line_rec => l_line_rec
3215:
3216: ELSE
3217:
3218: IF l_debug_level > 0 THEN
3219: oe_debug_pub.add( 'SPLIT:DEFAULT ATTRIBUTES ' , 1 ) ;
3220: END IF;
3221: OE_Split_Util.Default_Attributes
3222: ( p_x_line_rec => l_line_rec
3223: ,p_old_line_rec => l_old_line_rec);
3235: -- l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3236: THEN
3237:
3238: IF l_debug_level > 0 THEN
3239: oe_debug_pub.add( 'APPLY ATTRIBUTE CHANGES' , 2 ) ;
3240: END IF;
3241:
3242: OE_Line_Util.Apply_Attribute_Changes
3243: ( p_x_line_rec => l_line_rec
3261:
3262: THEN
3263:
3264: IF l_debug_level > 0 THEN
3265: oe_debug_pub.add( 'VALIDATE ENTITY' , 2 ) ;
3266: END IF;
3267:
3268: IF l_line_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
3269:
3310: OE_Line_Security.g_check_all_cols_constraint = 'Y') AND
3311: l_control_rec.check_security THEN
3312:
3313: IF l_debug_level > 0 THEN
3314: oe_debug_pub.add( 'CHECK ENTITY SECURITY' , 2 ) ;
3315: END IF;
3316:
3317: OE_Line_Security.Entity
3318: ( p_line_rec => l_line_rec
3333: END IF;
3334:
3335:
3336: IF l_debug_level > 0 THEN
3337: oe_debug_pub.add( 'STATUS' || L_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
3338: END IF;
3339:
3340: -- Step 3.5. Perform action which need to be performed before
3341: -- writing to the DB (like Scheduling).
3350: -- Step 4. Write to DB
3351:
3352: IF l_control_rec.write_to_db THEN
3353: IF l_debug_level > 0 THEN
3354: oe_debug_pub.add( 'WRITE TO DB' , 1 ) ;
3355: END IF;
3356:
3357: IF l_line_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
3358: OE_Line_Util.Delete_Row
3365: l_is_ota_line := OE_OTA_UTIL.Is_OTA_Line(l_order_quantity_uom);
3366:
3367: If (l_is_ota_line) THEN
3368: IF l_debug_level > 0 THEN
3369: oe_debug_pub.add( 'LINE IS OF OTA TYPE' , 1 ) ;
3370: END IF;
3371: OE_OTA_UTIL.Notify_OTA
3372: ( p_line_id => l_line_rec.line_id
3373: ,p_org_id => l_line_rec.org_id
3375: ,p_daemon_type => 'D'
3376: ,x_return_status => l_return_status );
3377:
3378: IF l_debug_level > 0 THEN
3379: oe_debug_pub.add( 'AFTER NOTIFY_OTA API' , 1 ) ;
3380: END IF;
3381: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3383: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3397: l_application_id := FND_GLOBAL.RESP_APPL_ID;
3398:
3399: IF l_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
3400: IF l_debug_level > 0 THEN
3401: oe_debug_pub.add( 'CALLING UPDATE ROW' , 1 ) ;
3402: END IF;
3403:
3404: OE_Line_Util.Update_Row (l_line_rec);
3405:
3408: l_line_rec.creation_date := SYSDATE;
3409: l_line_rec.created_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
3410:
3411: IF l_debug_level > 0 THEN
3412: oe_debug_pub.add( '3.STATUS '||L_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
3413: END IF;
3414:
3415: OE_Line_Util.Insert_Row (l_line_rec);
3416:
3440: p_x_line_tbl(I).semi_processed_flag := l_process_this_line;
3441:
3442: IF p_x_line_tbl(I).semi_processed_flag THEN
3443: IF l_debug_level > 0 THEN
3444: oe_debug_pub.add( I || ' SEMI PROCESSED FLAG SET ' , 1 ) ;
3445: END IF;
3446: END IF;
3447:
3448: IF l_debug_level > 0 THEN
3445: END IF;
3446: END IF;
3447:
3448: IF l_debug_level > 0 THEN
3449: oe_debug_pub.add( 'BOTTOM OF LINE LOOP' , 2 ) ;
3450: END IF;
3451:
3452: OE_Line_Security.g_check_all_cols_constraint := 'Y';
3453: OE_MSG_PUB.reset_msg_context('LINE');
3452: OE_Line_Security.g_check_all_cols_constraint := 'Y';
3453: OE_MSG_PUB.reset_msg_context('LINE');
3454:
3455: IF l_debug_level > 0 THEN
3456: oe_debug_pub.add( 'SCH ARRIVAL_DATE='||L_LINE_REC.SCHEDULE_ARRIVAL_DATE ) ;
3457: END IF;
3458:
3459: EXCEPTION
3460:
3484:
3485:
3486: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
3487: IF l_debug_level > 0 THEN
3488: oe_debug_pub.add( 'DELETE REQUEST8' , 2 ) ;
3489: END IF;
3490:
3491: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
3492: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3542:
3543: <
3544:
3545: IF l_debug_level > 0 THEN
3546: oe_debug_pub.add( 'NO. OF LINES TO PROCESS ' || L_NUM_LINES , 1 ) ;
3547: END IF;
3548:
3549: I := p_x_line_tbl.NEXT(I);
3550:
3559:
3560: I := p_x_line_tbl.FIRST;
3561:
3562: IF l_debug_level > 0 THEN
3563: oe_debug_pub.add( 'NO. OF SKIPPED OPTIONS ' || L_OPTIONS_INDEX_TBL.COUNT , 1 ) ;
3564: END IF;
3565:
3566: IF COMPLETE_AND_CLASS_SAVE_MODE AND l_num_lines > 0 THEN
3567:
3565:
3566: IF COMPLETE_AND_CLASS_SAVE_MODE AND l_num_lines > 0 THEN
3567:
3568: IF l_debug_level > 0 THEN
3569: oe_debug_pub.add( 'COMPLETE MODE WAS TRUE' , 3 ) ;
3570: END IF;
3571: COMPLETE_AND_CLASS_SAVE_MODE := FALSE;
3572:
3573: IF OE_Config_Util.G_Config_UI_Used = 'N' AND
3583: l_options_index_tbl.DELETE;
3584:
3585: IF l_class_index is NOT NULL THEN
3586: IF l_debug_level > 0 THEN
3587: oe_debug_pub.add( 'NEW CLASSES ADDED' , 3 ) ;
3588: END IF;
3589:
3590: COMPLETE_AND_CLASS_SAVE_MODE := TRUE;
3591:
3595:
3596: END IF;
3597: ELSE
3598: IF l_debug_level > 0 THEN
3599: oe_debug_pub.add( 'MODE IS SERVICE NOW' , 3 ) ;
3600: END IF;
3601: l_mode := 'SERVICE';
3602: END IF;
3603:
3632:
3633:
3634: IF NOT (OE_GLOBALS.G_UI_FLAG) AND line_ctr = 1 THEN
3635: IF l_debug_level > 0 THEN
3636: oe_debug_pub.add( 'DELETE REQUEST9' , 2 ) ;
3637: END IF;
3638: oe_delayed_requests_pvt.Clear_Request
3639: (x_return_status => l_return_status);
3640:
3664: OE_MSG_PUB.reset_msg_context('LINE');
3665:
3666: IF NOT (OE_GLOBALS.G_UI_FLAG) and line_ctr = 1 THEN
3667: IF l_debug_level > 0 THEN
3668: oe_debug_pub.add( 'DELETE REQUEST10' , 2 ) ;
3669: END IF;
3670: oe_delayed_requests_pvt.Clear_Request
3671: (x_return_status => l_return_status);
3672:
3690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3691:
3692: IF NOT (OE_GLOBALS.G_UI_FLAG) and line_ctr = 1 THEN
3693: IF l_debug_level > 0 THEN
3694: oe_debug_pub.add( 'DELETE REQUEST11' , 2 ) ;
3695: END IF;
3696: oe_delayed_requests_pvt.Clear_Request
3697: (x_return_status => l_return_status);
3698:
3747: l_source_document_type_id NUMBER;
3748: l_source_document_id NUMBER;
3749: l_source_document_line_id NUMBER;
3750:
3751: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3752: l_org_id number ;
3753: BEGIN
3754: --MOAC changes start
3755: l_org_id := MO_GLOBAL.get_current_org_id;
3773: SAVEPOINT Line_Scredits;
3774: END IF;
3775:
3776: IF l_debug_level > 0 THEN
3777: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.LINE_SCREDITS' , 1 ) ;
3778: END IF;
3779:
3780: -- FOR I IN 1..p_x_Line_Scredit_tbl.COUNT LOOP
3781:
3796: IF l_line_Scredit_rec.line_id IS NOT NULL AND
3797: l_line_Scredit_rec.line_id <> FND_API.G_MISS_NUM THEN
3798: BEGIN
3799: IF l_debug_level > 0 THEN
3800: oe_debug_pub.add('Getting reference data for line_id:'||l_line_Scredit_rec.line_id);
3801: END IF;
3802: SELECT order_source_id, orig_sys_document_ref, change_sequence,
3803: source_document_type_id, source_document_id, orig_sys_line_ref,
3804: source_document_line_id, orig_sys_shipment_ref
3847: IF l_old_line_Scredit_rec.line_id IS NOT NULL AND
3848: l_old_line_Scredit_rec.line_id <> FND_API.G_MISS_NUM THEN
3849: BEGIN
3850: IF l_debug_level > 0 THEN
3851: oe_debug_pub.add('Getting reference data for old line_id:'||l_old_line_Scredit_rec.line_id);
3852: END IF;
3853: SELECT order_source_id, orig_sys_document_ref, change_sequence,
3854: source_document_type_id, source_document_id, orig_sys_line_ref,
3855: source_document_line_id, orig_sys_shipment_ref
3969: OR l_line_scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
3970: THEN
3971:
3972: IF l_debug_level > 0 THEN
3973: oe_debug_pub.add( 'CHECK ATTRIBUTES SECURITY' ) ;
3974: END IF;
3975:
3976: OE_Line_Scredit_Security.Attributes
3977: (p_line_scredit_rec => l_line_scredit_rec
4011: END IF;
4012:
4013: -- Clear dependent attributes.
4014: IF l_debug_level > 0 THEN
4015: oe_debug_pub.add( ' CLEAR DEPENDENT' || L_LINE_SCREDIT_REC.HEADER_ID ) ;
4016: END IF;
4017:
4018: IF l_control_rec.clear_dependents THEN
4019:
4025: END IF;
4026:
4027: -- Default missing attributes
4028: IF l_debug_level > 0 THEN
4029: oe_debug_pub.add( ' DEFAULTING' || L_LINE_SCREDIT_REC.HEADER_ID ) ;
4030: END IF;
4031:
4032: IF l_control_rec.default_attributes
4033: THEN
4040: END IF;
4041:
4042: -- Apply attribute changes
4043: IF l_debug_level > 0 THEN
4044: oe_debug_pub.add( ' APPLY ATTRIBUTES' || L_LINE_SCREDIT_REC.HEADER_ID ) ;
4045: END IF;
4046:
4047: IF l_control_rec.change_attributes
4048: THEN
4055: END IF;
4056:
4057: -- Entity level validation.
4058: IF l_debug_level > 0 THEN
4059: oe_debug_pub.add( ' ENTITY VALIDATION ' || L_LINE_SCREDIT_REC.HEADER_ID ) ;
4060: END IF;
4061:
4062: IF l_control_rec.validate_entity THEN
4063:
4102: AND l_control_rec.check_security
4103: THEN
4104:
4105: IF l_debug_level > 0 THEN
4106: oe_debug_pub.add( 'CHECK ENTITY SECURITY' ) ;
4107: END IF;
4108:
4109: OE_Line_Scredit_Security.Entity
4110: (p_line_scredit_rec => l_line_scredit_rec
4195: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4196: IF l_control_rec.Process_Partial THEN
4197: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4198: IF l_debug_level > 0 THEN
4199: oe_debug_pub.add( 'DELETE REQUEST12' , 2 ) ;
4200: END IF;
4201: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
4202: (p_entity_code =>OE_GLOBALS.G_ENTITY_LINE_SCREDIT,
4203: p_entity_id => l_line_scredit_rec.sales_credit_id,
4241: END LOOP;
4242:
4243:
4244: IF l_debug_level > 0 THEN
4245: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.LINE_SCREDITS' , 1 ) ;
4246: END IF;
4247: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4248: set_recursion_mode(p_Entity_Code => 7,
4249: p_In_out => 0);
4255: p_In_out => 0);
4256: x_return_status := FND_API.G_RET_STS_ERROR;
4257: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4258: IF l_debug_level > 0 THEN
4259: oe_debug_pub.add( 'DELETE REQUEST13' , 2 ) ;
4260: END IF;
4261: OE_Delayed_Requests_Pvt.Clear_Request
4262: (x_return_status => l_return_status);
4263: END IF;
4269: p_In_out => 0);
4270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4271: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4272: IF l_debug_level > 0 THEN
4273: oe_debug_pub.add( 'DELETE REQUEST14' , 2 ) ;
4274: END IF;
4275: OE_Delayed_Requests_Pvt.Clear_Request
4276: (x_return_status => l_return_status);
4277: END IF;
4283: p_In_out => 0);
4284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4285: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4286: IF l_debug_level > 0 THEN
4287: oe_debug_pub.add( 'DELETE REQUEST15' , 2 ) ;
4288: END IF;
4289: OE_Delayed_Requests_Pvt.Clear_Request
4290: (x_return_status => l_return_status);
4291: END IF;
4331: l_source_document_type_id NUMBER;
4332: l_source_document_id NUMBER;
4333: l_source_document_line_id NUMBER;
4334:
4335: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4336: l_org_id number ;
4337: BEGIN
4338: --MOAC changes start
4339: l_org_id := MO_GLOBAL.get_current_org_id;
4355: SAVEPOINT Line_Payments;
4356: END IF;
4357:
4358: IF l_debug_level > 0 THEN
4359: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.LINE_PAYMENTS' , 1 ) ;
4360: END IF;
4361:
4362: -- FOR I IN 1..p_x_Line_Payment_tbl.COUNT LOOP
4363:
4378: IF l_line_Payment_rec.line_id IS NOT NULL AND
4379: l_line_Payment_rec.line_id <> FND_API.G_MISS_NUM THEN
4380: BEGIN
4381: IF l_debug_level > 0 THEN
4382: oe_debug_pub.add('Getting reference data for line_id:'||l_line_Payment_rec.line_id);
4383: END IF;
4384: SELECT order_source_id, orig_sys_document_ref, change_sequence,
4385: source_document_type_id, source_document_id, orig_sys_line_ref,
4386: source_document_line_id, orig_sys_shipment_ref
4429: IF l_old_line_Payment_rec.line_id IS NOT NULL AND
4430: l_old_line_Payment_rec.line_id <> FND_API.G_MISS_NUM THEN
4431: BEGIN
4432: IF l_debug_level > 0 THEN
4433: oe_debug_pub.add('Getting reference data for old line_id:'||l_old_line_Payment_rec.line_id);
4434: END IF;
4435: SELECT order_source_id, orig_sys_document_ref, change_sequence,
4436: source_document_type_id, source_document_id, orig_sys_line_ref,
4437: source_document_line_id, orig_sys_shipment_ref
4498:
4499: -- Set missing old record elements to NULL.
4500:
4501: IF l_debug_level > 0 THEN
4502: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Convert_Miss_To_Null', 5);
4503: END IF;
4504: OE_Line_Payment_Util.Convert_Miss_To_Null (l_old_Line_Payment_rec);
4505: IF l_debug_level > 0 THEN
4506: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Convert_Miss_To_Null', 5);
4502: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Convert_Miss_To_Null', 5);
4503: END IF;
4504: OE_Line_Payment_Util.Convert_Miss_To_Null (l_old_Line_Payment_rec);
4505: IF l_debug_level > 0 THEN
4506: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Convert_Miss_To_Null', 5);
4507: END IF;
4508:
4509: ELSIF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE
4510: OR l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE
4517: IF l_old_Line_Payment_rec.payment_number = FND_API.G_MISS_NUM
4518: THEN
4519:
4520: IF l_debug_level > 0 THEN
4521: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Query_Row', 5);
4522: END IF;
4523: OE_Line_Payment_Util.Query_Row
4524: ( p_payment_number => l_Line_Payment_rec.payment_number
4525: , p_line_id => l_Line_Payment_rec.line_id
4526: , p_header_id => l_Line_Payment_rec.header_id
4527: , x_line_payment_rec => l_old_Line_Payment_rec
4528: );
4529: IF l_debug_level > 0 THEN
4530: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Query_Row', 5);
4531: END IF;
4532:
4533: ELSE
4534:
4540:
4541: -- Complete new record from old
4542:
4543: IF l_debug_level > 0 THEN
4544: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Complete_Record', 5);
4545: END IF;
4546: OE_Line_Payment_Util.Complete_Record
4547: ( p_x_Line_Payment_rec => l_Line_Payment_rec
4548: , p_old_Line_Payment_rec => l_old_Line_Payment_rec
4547: ( p_x_Line_Payment_rec => l_Line_Payment_rec
4548: , p_old_Line_Payment_rec => l_old_Line_Payment_rec
4549: );
4550: IF l_debug_level > 0 THEN
4551: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Complete_Record', 5);
4552: END IF;
4553:
4554: OE_MSG_PUB.update_msg_context(
4555: p_entity_code => 'LINE_PAYMENT'
4571: OR l_line_payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
4572: THEN
4573:
4574: IF l_debug_level > 0 THEN
4575: oe_debug_pub.add('Payment:before OE_Line_Payment_Security.Attributes', 5);
4576: END IF;
4577: OE_Line_Payment_Security.Attributes
4578: (p_line_payment_rec => l_line_payment_rec
4579: , p_old_line_payment_rec => l_old_line_payment_rec
4580: , x_result => l_sec_result
4581: , x_return_status => l_return_status
4582: );
4583: IF l_debug_level > 0 THEN
4584: oe_debug_pub.add('Payment:after OE_Line_Payment_Security.Attributes', 5);
4585: END IF;
4586:
4587: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4600:
4601: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
4602:
4603: IF l_debug_level > 0 THEN
4604: oe_debug_pub.add('Payment:before OE_Validate_Line_Payment.Attributes', 5);
4605: END IF;
4606: OE_Validate_Line_Payment.Attributes
4607: ( x_return_status => l_return_status
4608: , p_Line_Payment_rec => l_Line_Payment_rec
4608: , p_Line_Payment_rec => l_Line_Payment_rec
4609: , p_old_Line_Payment_rec => l_old_Line_Payment_rec
4610: );
4611: IF l_debug_level > 0 THEN
4612: oe_debug_pub.add('Payment:after OE_Validate_Line_Payment.Attributes', 5);
4613: END IF;
4614:
4615: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4616: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4621: END IF;
4622:
4623: -- Clear dependent attributes.
4624: IF l_debug_level > 0 THEN
4625: oe_debug_pub.add( ' CLEAR DEPENDENT' || L_LINE_PAYMENT_REC.HEADER_ID ) ;
4626: END IF;
4627:
4628: IF l_control_rec.clear_dependents THEN
4629:
4627:
4628: IF l_control_rec.clear_dependents THEN
4629:
4630: IF l_debug_level > 0 THEN
4631: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Clear_Dependent_Attr', 5);
4632: END IF;
4633: OE_Line_Payment_Util.Clear_Dependent_Attr
4634: ( p_x_Line_Payment_rec => l_Line_Payment_rec
4635: , p_old_Line_Payment_rec => l_old_Line_Payment_rec
4634: ( p_x_Line_Payment_rec => l_Line_Payment_rec
4635: , p_old_Line_Payment_rec => l_old_Line_Payment_rec
4636: );
4637: IF l_debug_level > 0 THEN
4638: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Clear_Dependent_Attr', 5);
4639: END IF;
4640:
4641: END IF;
4642:
4641: END IF;
4642:
4643: -- Default missing attributes
4644: IF l_debug_level > 0 THEN
4645: oe_debug_pub.add( ' DEFAULTING' || L_LINE_PAYMENT_REC.HEADER_ID ) ;
4646: END IF;
4647:
4648: IF l_control_rec.default_attributes
4649: THEN
4648: IF l_control_rec.default_attributes
4649: THEN
4650:
4651: IF l_debug_level > 0 THEN
4652: oe_debug_pub.add('Payment:before OE_Default_Line_Payment.Attributes', 5);
4653: END IF;
4654: OE_Default_Line_Payment.Attributes
4655: ( p_x_Line_Payment_rec => l_Line_Payment_rec
4656: , p_old_line_payment_rec => l_old_line_Payment_Rec
4655: ( p_x_Line_Payment_rec => l_Line_Payment_rec
4656: , p_old_line_payment_rec => l_old_line_Payment_Rec
4657: );
4658: IF l_debug_level > 0 THEN
4659: oe_debug_pub.add('Payment:after OE_Default_Line_Payment.Attributes', 5);
4660: END IF;
4661:
4662: END IF;
4663:
4662: END IF;
4663:
4664: -- Apply attribute changes
4665: IF l_debug_level > 0 THEN
4666: oe_debug_pub.add( ' APPLY ATTRIBUTES' || L_LINE_PAYMENT_REC.HEADER_ID ) ;
4667: END IF;
4668:
4669: IF l_control_rec.change_attributes
4670: THEN
4669: IF l_control_rec.change_attributes
4670: THEN
4671:
4672: IF l_debug_level > 0 THEN
4673: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Apply_Attribute_Changes', 5);
4674: END IF;
4675: OE_Line_Payment_Util.Apply_Attribute_Changes
4676: ( p_x_Line_Payment_rec => l_Line_Payment_rec
4677: , p_old_Line_Payment_rec => l_old_Line_Payment_rec
4676: ( p_x_Line_Payment_rec => l_Line_Payment_rec
4677: , p_old_Line_Payment_rec => l_old_Line_Payment_rec
4678: );
4679: IF l_debug_level > 0 THEN
4680: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Apply_Attribute_Changes', 5);
4681: END IF;
4682:
4683: END IF;
4684:
4683: END IF;
4684:
4685: -- Entity level validation.
4686: IF l_debug_level > 0 THEN
4687: oe_debug_pub.add( ' ENTITY VALIDATION ' || L_LINE_PAYMENT_REC.HEADER_ID ) ;
4688: END IF;
4689:
4690: IF l_control_rec.validate_entity THEN
4691:
4691:
4692: IF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
4693:
4694: IF l_debug_level > 0 THEN
4695: oe_debug_pub.add('Payment:before OE_Validate_Line_Payment.Entity_Delete', 5);
4696: END IF;
4697: OE_Validate_Line_Payment.Entity_Delete
4698: ( x_return_status => l_return_status
4699: , p_Line_Payment_rec => l_Line_Payment_rec
4698: ( x_return_status => l_return_status
4699: , p_Line_Payment_rec => l_Line_Payment_rec
4700: );
4701: IF l_debug_level > 0 THEN
4702: oe_debug_pub.add('Payment:after OE_Validate_Line_Payment.Entity_Delete', 5);
4703: END IF;
4704:
4705: ELSE
4706:
4704:
4705: ELSE
4706:
4707: IF l_debug_level > 0 THEN
4708: oe_debug_pub.add('Payment:before OE_Validate_Line_Payment.Entity', 5);
4709: END IF;
4710: OE_Validate_Line_Payment.Entity
4711: ( x_return_status => l_return_status
4712: , p_Line_Payment_rec => l_Line_Payment_rec
4712: , p_Line_Payment_rec => l_Line_Payment_rec
4713: , p_old_Line_Payment_rec => l_old_Line_Payment_rec
4714: );
4715: IF l_debug_level > 0 THEN
4716: oe_debug_pub.add('Payment:after OE_Validate_Line_Payment.Entity', 5);
4717: END IF;
4718:
4719: END IF;
4720:
4742: AND l_control_rec.check_security
4743: THEN
4744:
4745: IF l_debug_level > 0 THEN
4746: oe_debug_pub.add('Payment:before OE_Line_Payment_Security.Entity', 5);
4747: END IF;
4748: OE_Line_Payment_Security.Entity
4749: (p_line_payment_rec => l_line_payment_rec
4750: , x_result => l_sec_result
4750: , x_result => l_sec_result
4751: , x_return_status => l_return_status
4752: );
4753: IF l_debug_level > 0 THEN
4754: oe_debug_pub.add('Payment:after OE_Line_Payment_Security.Entity', 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;
4771: IF l_control_rec.write_to_db THEN
4772:
4773: /* Start Audit Trail */
4774: IF l_debug_level > 0 THEN
4775: oe_debug_pub.add('Payment:before Oe_line_Payment_Util.Pre_Write_Process', 5);
4776: END IF;
4777: Oe_line_Payment_Util.Pre_Write_Process
4778: (p_x_line_payment_rec => l_line_payment_rec,
4779: p_old_line_payment_rec => l_old_line_payment_rec);
4777: Oe_line_Payment_Util.Pre_Write_Process
4778: (p_x_line_payment_rec => l_line_payment_rec,
4779: p_old_line_payment_rec => l_old_line_payment_rec);
4780: IF l_debug_level > 0 THEN
4781: oe_debug_pub.add('Payment:after Oe_line_Payment_Util.Pre_Write_Process', 5);
4782: END IF;
4783: /* End AuditTrail */
4784:
4785: IF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
4784:
4785: IF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
4786:
4787: IF l_debug_level > 0 THEN
4788: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Delete_Row', 5);
4789: END IF;
4790: OE_Line_Payment_Util.Delete_Row
4791: ( p_payment_number => l_Line_Payment_rec.payment_number
4792: , p_line_id => l_Line_Payment_rec.line_id
4792: , p_line_id => l_Line_Payment_rec.line_id
4793: , p_header_id => l_Line_Payment_rec.header_id
4794: );
4795: IF l_debug_level > 0 THEN
4796: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Delete_Row', 5);
4797: END IF;
4798:
4799: ELSE
4800:
4806:
4807: IF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
4808:
4809: IF l_debug_level > 0 THEN
4810: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Update_Row', 5);
4811: END IF;
4812: OE_Line_Payment_Util.Update_Row (l_Line_Payment_rec);
4813: IF l_debug_level > 0 THEN
4814: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Update_Row', 5);
4810: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Update_Row', 5);
4811: END IF;
4812: OE_Line_Payment_Util.Update_Row (l_Line_Payment_rec);
4813: IF l_debug_level > 0 THEN
4814: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Update_Row', 5);
4815: END IF;
4816:
4817: ELSIF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
4818:
4819: l_Line_Payment_rec.creation_date := SYSDATE;
4820: l_Line_Payment_rec.created_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
4821:
4822: IF l_debug_level > 0 THEN
4823: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Insert_Row', 5);
4824: END IF;
4825: OE_Line_Payment_Util.Insert_Row (l_Line_Payment_rec);
4826: IF l_debug_level > 0 THEN
4827: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Insert_Row', 5);
4823: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Insert_Row', 5);
4824: END IF;
4825: OE_Line_Payment_Util.Insert_Row (l_Line_Payment_rec);
4826: IF l_debug_level > 0 THEN
4827: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Insert_Row', 5);
4828: END IF;
4829:
4830: END IF;
4831:
4863: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4864: IF l_control_rec.Process_Partial THEN
4865: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4866: IF l_debug_level > 0 THEN
4867: oe_debug_pub.add( 'DELETE REQUEST12' , 2 ) ;
4868: END IF;
4869: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
4870: (p_entity_code =>OE_GLOBALS.G_ENTITY_LINE_PAYMENT,
4871: p_entity_id => l_line_payment_rec.line_id,
4909: END LOOP;
4910:
4911:
4912: IF l_debug_level > 0 THEN
4913: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.LINE_PAYMENTS' , 1 ) ;
4914: END IF;
4915: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4916: EXCEPTION
4917:
4919:
4920: x_return_status := FND_API.G_RET_STS_ERROR;
4921: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4922: IF l_debug_level > 0 THEN
4923: oe_debug_pub.add( 'DELETE REQUEST13' , 2 ) ;
4924: END IF;
4925: OE_Delayed_Requests_Pvt.Clear_Request
4926: (x_return_status => l_return_status);
4927: END IF;
4931:
4932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4933: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4934: IF l_debug_level > 0 THEN
4935: oe_debug_pub.add( 'DELETE REQUEST14' , 2 ) ;
4936: END IF;
4937: OE_Delayed_Requests_Pvt.Clear_Request
4938: (x_return_status => l_return_status);
4939: END IF;
4943:
4944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4945: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4946: IF l_debug_level > 0 THEN
4947: oe_debug_pub.add( 'DELETE REQUEST15' , 2 ) ;
4948: END IF;
4949: OE_Delayed_Requests_Pvt.Clear_Request
4950: (x_return_status => l_return_status);
4951: END IF;
4979: l_control_rec OE_GLOBALS.Control_Rec_Type;
4980: l_Lot_Serial_rec OE_Order_PUB.Lot_Serial_Rec_Type;
4981: l_old_Lot_Serial_rec OE_Order_PUB.Lot_Serial_Rec_Type;
4982: I NUMBER; -- Used as index.
4983: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4984: l_org_id number;
4985: BEGIN
4986: --MOAC changes start
4987: l_org_id := MO_GLOBAL.get_current_org_id;
5238:
5239: x_return_status := FND_API.G_RET_STS_ERROR;
5240: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5241: IF l_debug_level > 0 THEN
5242: oe_debug_pub.add( 'DELETE REQUEST17' , 2 ) ;
5243: END IF;
5244: OE_Delayed_Requests_Pvt.Clear_Request
5245: (x_return_status => l_return_status);
5246: END IF;
5249:
5250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5251: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5252: IF l_debug_level > 0 THEN
5253: oe_debug_pub.add( 'DELETE REQUEST18' , 2 ) ;
5254: END IF;
5255: OE_Delayed_Requests_Pvt.Clear_Request
5256: (x_return_status => l_return_status);
5257: END IF;
5260:
5261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5262: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5263: IF l_debug_level > 0 THEN
5264: oe_debug_pub.add( 'DELETE REQUEST19' , 2 ) ;
5265: END IF;
5266: OE_Delayed_Requests_Pvt.Clear_Request
5267: (x_return_status => l_return_status);
5268: END IF;
5356: IS
5357: l_return_status VARCHAR2(30);
5358: l_msg_count NUMBER;
5359: l_msg_data VARCHAR2(2000);
5360: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5361: l_header_id NUMBER; -- added for bug 2781468 hashraf
5362: l_index NUMBER;
5363: l_line_id NUMBER;
5364: l_edi_ack_pfile Varchar2(3);
5367:
5368: set_recursion_mode(p_Entity_Code => 8,
5369: p_In_out => 1);
5370: IF l_debug_level > 0 THEN
5371: oe_debug_pub.add( 'ENTER OE_ORDER_PVT.PROCESS_REQUESTS_AND_NOTIFY' , 1 ) ;
5372: END IF;
5373:
5374: x_return_status := FND_API.G_RET_STS_SUCCESS;
5375: fnd_profile.get('ONT_NEW_EDI_ACK_FWK', l_edi_ack_pfile);
5560: -- If notify, then call service and acknowledgments notify APIs
5561:
5562: IF p_notify THEN
5563: IF l_debug_level > 0 THEN
5564: oe_debug_pub.add( 'CALLING NOTIFY_OC API' , 1 ) ;
5565: END IF;
5566:
5567: OE_SERVICE_UTIL.Notify_OC
5568: ( p_api_version_number => 1.0
5604: , p_old_Lot_Serial_val_tbl => p_old_Lot_Serial_val_tbl
5605: );
5606:
5607: IF l_debug_level > 0 THEN
5608: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
5609: END IF;
5610: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5612: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5614: END IF;
5615: END IF; --p_notify
5616:
5617: IF l_debug_level > 0 THEN
5618: oe_debug_pub.add( 'PROCESSING ACKS' , 1 ) ;
5619: END IF;
5620:
5621: IF p_notify AND p_process_ack THEN
5622: IF l_debug_level > 0 THEN
5619: END IF;
5620:
5621: IF p_notify AND p_process_ack THEN
5622: IF l_debug_level > 0 THEN
5623: oe_debug_pub.add( 'CALLING ACKS API' , 1 ) ;
5624: END IF;
5625:
5626: -- ediack changes
5627: If Oe_Code_Control.Code_Release_level >= '110510' And
5673: END IF; -- p_notify and p_process_ack
5674:
5675: ELSE /*post pack H*/
5676: IF l_debug_level > 0 THEN
5677: oe_debug_pub.add( 'JPN: GLOBAL RECURSION WITHOUT EXCEPTION: ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
5678: oe_debug_pub.add( 'JPN: GLOBAL CACHE BOOKED FLAG' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5679: oe_debug_pub.add( 'JPN: GLOBAL PICTURE HEADER BOOKED FLAG' || OE_ORDER_UTIL.G_HEADER_REC.BOOKED_FLAG ) ;
5680: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5681: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5674:
5675: ELSE /*post pack H*/
5676: IF l_debug_level > 0 THEN
5677: oe_debug_pub.add( 'JPN: GLOBAL RECURSION WITHOUT EXCEPTION: ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
5678: oe_debug_pub.add( 'JPN: GLOBAL CACHE BOOKED FLAG' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5679: oe_debug_pub.add( 'JPN: GLOBAL PICTURE HEADER BOOKED FLAG' || OE_ORDER_UTIL.G_HEADER_REC.BOOKED_FLAG ) ;
5680: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5681: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5682: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5675: ELSE /*post pack H*/
5676: IF l_debug_level > 0 THEN
5677: oe_debug_pub.add( 'JPN: GLOBAL RECURSION WITHOUT EXCEPTION: ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
5678: oe_debug_pub.add( 'JPN: GLOBAL CACHE BOOKED FLAG' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5679: oe_debug_pub.add( 'JPN: GLOBAL PICTURE HEADER BOOKED FLAG' || OE_ORDER_UTIL.G_HEADER_REC.BOOKED_FLAG ) ;
5680: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5681: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5682: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5683: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5676: IF l_debug_level > 0 THEN
5677: oe_debug_pub.add( 'JPN: GLOBAL RECURSION WITHOUT EXCEPTION: ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
5678: oe_debug_pub.add( 'JPN: GLOBAL CACHE BOOKED FLAG' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5679: oe_debug_pub.add( 'JPN: GLOBAL PICTURE HEADER BOOKED FLAG' || OE_ORDER_UTIL.G_HEADER_REC.BOOKED_FLAG ) ;
5680: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5681: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5682: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5683: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5684: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5677: oe_debug_pub.add( 'JPN: GLOBAL RECURSION WITHOUT EXCEPTION: ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
5678: oe_debug_pub.add( 'JPN: GLOBAL CACHE BOOKED FLAG' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5679: oe_debug_pub.add( 'JPN: GLOBAL PICTURE HEADER BOOKED FLAG' || OE_ORDER_UTIL.G_HEADER_REC.BOOKED_FLAG ) ;
5680: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5681: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5682: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5683: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5684: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5685: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5678: oe_debug_pub.add( 'JPN: GLOBAL CACHE BOOKED FLAG' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5679: oe_debug_pub.add( 'JPN: GLOBAL PICTURE HEADER BOOKED FLAG' || OE_ORDER_UTIL.G_HEADER_REC.BOOKED_FLAG ) ;
5680: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5681: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5682: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5683: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5684: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5685: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5686: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5679: oe_debug_pub.add( 'JPN: GLOBAL PICTURE HEADER BOOKED FLAG' || OE_ORDER_UTIL.G_HEADER_REC.BOOKED_FLAG ) ;
5680: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5681: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5682: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5683: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5684: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5685: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5686: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5687: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5680: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5681: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5682: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5683: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5684: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5685: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5686: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5687: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5688: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5681: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5682: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5683: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5684: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5685: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5686: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5687: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5688: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5689: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_SCREDIT_TBL.COUNT ) ;
5682: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5683: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5684: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5685: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5686: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5687: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5688: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5689: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_SCREDIT_TBL.COUNT ) ;
5690: oe_debug_pub.add( 'JPN: COUNT OF NEW LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_LOT_SERIAL_TBL.COUNT ) ;
5683: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5684: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5685: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5686: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5687: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5688: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5689: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_SCREDIT_TBL.COUNT ) ;
5690: oe_debug_pub.add( 'JPN: COUNT OF NEW LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_LOT_SERIAL_TBL.COUNT ) ;
5691: oe_debug_pub.add( 'JPN: COUNT OF OLD LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_OLD_LOT_SERIAL_TBL.COUNT ) ;
5684: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5685: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5686: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5687: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5688: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5689: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_SCREDIT_TBL.COUNT ) ;
5690: oe_debug_pub.add( 'JPN: COUNT OF NEW LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_LOT_SERIAL_TBL.COUNT ) ;
5691: oe_debug_pub.add( 'JPN: COUNT OF OLD LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_OLD_LOT_SERIAL_TBL.COUNT ) ;
5692: END IF;
5685: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5686: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5687: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5688: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5689: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_SCREDIT_TBL.COUNT ) ;
5690: oe_debug_pub.add( 'JPN: COUNT OF NEW LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_LOT_SERIAL_TBL.COUNT ) ;
5691: oe_debug_pub.add( 'JPN: COUNT OF OLD LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_OLD_LOT_SERIAL_TBL.COUNT ) ;
5692: END IF;
5693:
5686: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5687: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5688: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5689: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_SCREDIT_TBL.COUNT ) ;
5690: oe_debug_pub.add( 'JPN: COUNT OF NEW LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_LOT_SERIAL_TBL.COUNT ) ;
5691: oe_debug_pub.add( 'JPN: COUNT OF OLD LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_OLD_LOT_SERIAL_TBL.COUNT ) ;
5692: END IF;
5693:
5694: /*check global pictures, to see if there's any record in the seven key entities*/
5687: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5688: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5689: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_SCREDIT_TBL.COUNT ) ;
5690: oe_debug_pub.add( 'JPN: COUNT OF NEW LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_LOT_SERIAL_TBL.COUNT ) ;
5691: oe_debug_pub.add( 'JPN: COUNT OF OLD LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_OLD_LOT_SERIAL_TBL.COUNT ) ;
5692: END IF;
5693:
5694: /*check global pictures, to see if there's any record in the seven key entities*/
5695:
5716: AND OE_ORDER_UTIL.g_header_rec.header_id <> FND_API.G_MISS_NUM) THEN
5717: l_header_id := OE_ORDER_UTIL.g_header_rec.header_id;
5718:
5719: IF l_debug_level > 0 THEN
5720: oe_debug_pub.add('header id in g_header_rec is: ' || l_header_id ) ;
5721: END IF;
5722:
5723: ELSIF ( OE_ORDER_UTIL.g_header_adj_tbl.count >0 ) THEN
5724: IF l_debug_level > 0 THEN
5721: END IF;
5722:
5723: ELSIF ( OE_ORDER_UTIL.g_header_adj_tbl.count >0 ) THEN
5724: IF l_debug_level > 0 THEN
5725: oe_debug_pub.add('Inside the header_adj_tbl loop');
5726: END IF;
5727: l_index := OE_ORDER_UTIL.g_header_adj_tbl.first;
5728: IF (l_index is not null) THEN
5729: l_header_id := OE_ORDER_UTIL.g_header_adj_tbl(l_index).header_id;
5727: l_index := OE_ORDER_UTIL.g_header_adj_tbl.first;
5728: IF (l_index is not null) THEN
5729: l_header_id := OE_ORDER_UTIL.g_header_adj_tbl(l_index).header_id;
5730: IF l_debug_level > 0 THEN
5731: oe_debug_pub.add('header id in g_header_adj_tbl is: ' || l_header_id ) ;
5732: oe_debug_pub.add('l_index in g_header_adj_tbl is: ' || l_index ) ;
5733: END IF;
5734: END IF;
5735:
5728: IF (l_index is not null) THEN
5729: l_header_id := OE_ORDER_UTIL.g_header_adj_tbl(l_index).header_id;
5730: IF l_debug_level > 0 THEN
5731: oe_debug_pub.add('header id in g_header_adj_tbl is: ' || l_header_id ) ;
5732: oe_debug_pub.add('l_index in g_header_adj_tbl is: ' || l_index ) ;
5733: END IF;
5734: END IF;
5735:
5736: ELSIF ( OE_ORDER_UTIL.g_Header_Scredit_tbl.count >0 ) THEN
5734: END IF;
5735:
5736: ELSIF ( OE_ORDER_UTIL.g_Header_Scredit_tbl.count >0 ) THEN
5737: IF l_debug_level > 0 THEN
5738: oe_debug_pub.add('Inside the header_Scredit_tbl loop');
5739: END IF;
5740: l_index := OE_ORDER_UTIL.g_header_Scredit_tbl.first;
5741: IF (l_index is not null) THEN
5742: l_header_id := OE_ORDER_UTIL.g_header_Scredit_tbl(l_index).header_id;
5740: l_index := OE_ORDER_UTIL.g_header_Scredit_tbl.first;
5741: IF (l_index is not null) THEN
5742: l_header_id := OE_ORDER_UTIL.g_header_Scredit_tbl(l_index).header_id;
5743: IF l_debug_level > 0 THEN
5744: oe_debug_pub.add('header id in g_header_Scredit_tbl is: ' || l_header_id ) ;
5745: oe_debug_pub.add('l_index in g_header_Scredit_tbl is: ' || l_index ) ;
5746: END IF;
5747: END IF;
5748:
5741: IF (l_index is not null) THEN
5742: l_header_id := OE_ORDER_UTIL.g_header_Scredit_tbl(l_index).header_id;
5743: IF l_debug_level > 0 THEN
5744: oe_debug_pub.add('header id in g_header_Scredit_tbl is: ' || l_header_id ) ;
5745: oe_debug_pub.add('l_index in g_header_Scredit_tbl is: ' || l_index ) ;
5746: END IF;
5747: END IF;
5748:
5749: ELSIF ( OE_ORDER_UTIL.g_line_tbl.count >0 ) THEN
5747: END IF;
5748:
5749: ELSIF ( OE_ORDER_UTIL.g_line_tbl.count >0 ) THEN
5750: IF l_debug_level > 0 THEN
5751: oe_debug_pub.add('Inside the line loop');
5752: END IF;
5753: l_index := OE_ORDER_UTIL.g_line_tbl.first;
5754: IF (l_index is not null) THEN
5755: l_header_id := OE_ORDER_UTIL.g_line_tbl(l_index).header_id;
5753: l_index := OE_ORDER_UTIL.g_line_tbl.first;
5754: IF (l_index is not null) THEN
5755: l_header_id := OE_ORDER_UTIL.g_line_tbl(l_index).header_id;
5756: IF l_debug_level > 0 THEN
5757: oe_debug_pub.add('header id in g_line_tbl is: ' || l_header_id ) ;
5758: oe_debug_pub.add('l_index in g_line_tbl is: ' || l_index ) ;
5759: END IF;
5760: END IF;
5761:
5754: IF (l_index is not null) THEN
5755: l_header_id := OE_ORDER_UTIL.g_line_tbl(l_index).header_id;
5756: IF l_debug_level > 0 THEN
5757: oe_debug_pub.add('header id in g_line_tbl is: ' || l_header_id ) ;
5758: oe_debug_pub.add('l_index in g_line_tbl is: ' || l_index ) ;
5759: END IF;
5760: END IF;
5761:
5762: ELSIF ( OE_ORDER_UTIL.g_line_adj_tbl.count >0 ) THEN
5761:
5762: ELSIF ( OE_ORDER_UTIL.g_line_adj_tbl.count >0 ) THEN
5763:
5764: IF l_debug_level > 0 THEN
5765: oe_debug_pub.add('Inside the line_adj loop');
5766: END IF;
5767: l_index := OE_ORDER_UTIL.g_line_adj_tbl.first;
5768: IF (l_index is not null) THEN
5769:
5768: IF (l_index is not null) THEN
5769:
5770: l_header_id := OE_ORDER_UTIL.g_line_adj_tbl(l_index).header_id;
5771: IF l_debug_level > 0 THEN
5772: oe_debug_pub.add('header id in g_line_adj_tbl is: ' || l_header_id ) ;
5773: oe_debug_pub.add('l_index in g_line_adj_tbl is: ' || l_index ) ;
5774: END IF;
5775: END IF;
5776:
5769:
5770: l_header_id := OE_ORDER_UTIL.g_line_adj_tbl(l_index).header_id;
5771: IF l_debug_level > 0 THEN
5772: oe_debug_pub.add('header id in g_line_adj_tbl is: ' || l_header_id ) ;
5773: oe_debug_pub.add('l_index in g_line_adj_tbl is: ' || l_index ) ;
5774: END IF;
5775: END IF;
5776:
5777: ELSIF ( OE_ORDER_UTIL.g_line_Scredit_tbl.count >0 ) THEN
5776:
5777: ELSIF ( OE_ORDER_UTIL.g_line_Scredit_tbl.count >0 ) THEN
5778:
5779: IF l_debug_level > 0 THEN
5780: oe_debug_pub.add('Inside the line_Scredit loop');
5781: END IF;
5782: l_index := OE_ORDER_UTIL.g_line_Scredit_tbl.first;
5783: IF (l_index is not null) THEN
5784:
5783: IF (l_index is not null) THEN
5784:
5785: l_header_id := OE_ORDER_UTIL.g_line_Scredit_tbl(l_index).header_id;
5786: IF l_debug_level > 0 THEN
5787: oe_debug_pub.add('header id in g_line_Scredit_tbl is: ' || l_header_id );
5788: oe_debug_pub.add('l_index in g_line_Scredit_tbl is: ' || l_index ) ;
5789: END IF;
5790: END IF;
5791:
5784:
5785: l_header_id := OE_ORDER_UTIL.g_line_Scredit_tbl(l_index).header_id;
5786: IF l_debug_level > 0 THEN
5787: oe_debug_pub.add('header id in g_line_Scredit_tbl is: ' || l_header_id );
5788: oe_debug_pub.add('l_index in g_line_Scredit_tbl is: ' || l_index ) ;
5789: END IF;
5790: END IF;
5791:
5792: ELSIF ( OE_ORDER_UTIL.g_Lot_Serial_tbl.count >0 ) THEN
5790: END IF;
5791:
5792: ELSIF ( OE_ORDER_UTIL.g_Lot_Serial_tbl.count >0 ) THEN
5793: IF l_debug_level > 0 THEN
5794: oe_debug_pub.add('Inside the group by_lot_serial loop');
5795: END IF;
5796: l_index := OE_ORDER_UTIL.g_Lot_Serial_tbl.first;
5797: IF (l_index is not null) THEN
5798: l_line_id := OE_ORDER_UTIL.g_Lot_Serial_tbl(l_index).line_id;
5807: null;
5808: END;
5809:
5810: IF l_debug_level > 0 THEN
5811: oe_debug_pub.add('header id in g_Lot_Serial_tbl is: ' || l_header_id);
5812: oe_debug_pub.add('line id in g_Lot_Serial_tbl is: ' || l_line_id);
5813: oe_debug_pub.add('l_index in g_Lot_Serial_tbl is: ' || l_index);
5814: END IF;
5815: END IF; -- l_index is not null in g_lot
5808: END;
5809:
5810: IF l_debug_level > 0 THEN
5811: oe_debug_pub.add('header id in g_Lot_Serial_tbl is: ' || l_header_id);
5812: oe_debug_pub.add('line id in g_Lot_Serial_tbl is: ' || l_line_id);
5813: oe_debug_pub.add('l_index in g_Lot_Serial_tbl is: ' || l_index);
5814: END IF;
5815: END IF; -- l_index is not null in g_lot
5816:
5809:
5810: IF l_debug_level > 0 THEN
5811: oe_debug_pub.add('header id in g_Lot_Serial_tbl is: ' || l_header_id);
5812: oe_debug_pub.add('line id in g_Lot_Serial_tbl is: ' || l_line_id);
5813: oe_debug_pub.add('l_index in g_Lot_Serial_tbl is: ' || l_index);
5814: END IF;
5815: END IF; -- l_index is not null in g_lot
5816:
5817: END IF; -- end if-elsif
5816:
5817: END IF; -- end if-elsif
5818:
5819: IF l_debug_level > 0 THEN
5820: oe_debug_pub.add( 'header id is: ' || l_header_id ) ;
5821: END IF;
5822:
5823: IF (l_header_id is not null AND l_header_id <> FND_API.G_MISS_NUM) THEN
5824:
5822:
5823: IF (l_header_id is not null AND l_header_id <> FND_API.G_MISS_NUM) THEN
5824:
5825: IF l_debug_level > 0 THEN
5826: oe_debug_pub.add('Just before calling Load_Order_Header');
5827: END IF;
5828:
5829: Oe_Order_Cache.Load_Order_Header(l_header_id);
5830: END IF;
5829: Oe_Order_Cache.Load_Order_Header(l_header_id);
5830: END IF;
5831:
5832: IF l_debug_level > 0 THEN
5833: oe_debug_pub.add('Out of Load_Order_Header in PRN');
5834: END IF;
5835: /* end of bug 2781468*/
5836:
5837: IF (OE_ORDER_UTIL.G_Recursion_Without_Exception = 'N' AND
5837: IF (OE_ORDER_UTIL.G_Recursion_Without_Exception = 'N' AND
5838: OE_ORDER_CACHE.g_header_rec.booked_flag = 'Y') THEN
5839:
5840: IF l_debug_level > 0 THEN
5841: oe_debug_pub.add( 'POST PACK H. CALLING NOTIFY_OC API' , 1 ) ;
5842: END IF;
5843:
5844: OE_SERVICE_UTIL.Notify_OC
5845: ( p_api_version_number => 1.0
5867: , p_old_Lot_Serial_tbl => OE_ORDER_UTIL.g_old_Lot_Serial_tbl
5868: );
5869:
5870: IF l_debug_level > 0 THEN
5871: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
5872: END IF;
5873: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5875: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5879:
5880: END IF;
5881:
5882: IF l_debug_level > 0 THEN
5883: oe_debug_pub.add( 'PROCESSING ACKS' , 1 ) ;
5884: oe_debug_pub.add( 'PACKS ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
5885: oe_debug_pub.add( 'PACKS' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG , 1 ) ;
5886: END IF;
5887:
5880: END IF;
5881:
5882: IF l_debug_level > 0 THEN
5883: oe_debug_pub.add( 'PROCESSING ACKS' , 1 ) ;
5884: oe_debug_pub.add( 'PACKS ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
5885: oe_debug_pub.add( 'PACKS' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG , 1 ) ;
5886: END IF;
5887:
5888: IF (OE_ORDER_UTIL.G_Recursion_Without_Exception = 'N' AND
5881:
5882: IF l_debug_level > 0 THEN
5883: oe_debug_pub.add( 'PROCESSING ACKS' , 1 ) ;
5884: oe_debug_pub.add( 'PACKS ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
5885: oe_debug_pub.add( 'PACKS' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG , 1 ) ;
5886: END IF;
5887:
5888: IF (OE_ORDER_UTIL.G_Recursion_Without_Exception = 'N' AND
5889: OE_ORDER_CACHE.g_header_rec.booked_flag = 'Y' AND p_process_ack) THEN
5888: IF (OE_ORDER_UTIL.G_Recursion_Without_Exception = 'N' AND
5889: OE_ORDER_CACHE.g_header_rec.booked_flag = 'Y' AND p_process_ack) THEN
5890:
5891: IF l_debug_level > 0 THEN
5892: oe_debug_pub.add( 'POST PACK H.CALLING ACKS API' , 1 ) ;
5893: END IF;
5894:
5895: -- { Start 3A6 changes, Design will still honor the Booking as
5896: -- the starting point of the triggering of the Show Sales Order
5901:
5902: -- { Start of If order_source_id = 20
5903: -- The below condition will only executed for the the XML Xactions
5904: IF l_debug_level > 0 THEN
5905: oe_debug_pub.add( 'PACKS ' || OE_ORDER_CACHE.G_HEADER_REC.ORDER_SOURCE_ID , 1 ) ;
5906: oe_debug_pub.add( 'PACKS ' || OE_ORDER_CACHE.G_HEADER_REC.SOLD_TO_ORG_ID , 1 ) ;
5907: END IF;
5908:
5909: If OE_ORDER_CACHE.g_header_rec.order_source_id in (20) OR
5902: -- { Start of If order_source_id = 20
5903: -- The below condition will only executed for the the XML Xactions
5904: IF l_debug_level > 0 THEN
5905: oe_debug_pub.add( 'PACKS ' || OE_ORDER_CACHE.G_HEADER_REC.ORDER_SOURCE_ID , 1 ) ;
5906: oe_debug_pub.add( 'PACKS ' || OE_ORDER_CACHE.G_HEADER_REC.SOLD_TO_ORG_ID , 1 ) ;
5907: END IF;
5908:
5909: If OE_ORDER_CACHE.g_header_rec.order_source_id in (20) OR
5910: (OE_GENESIS_UTIL.source_aia_enabled(OE_ORDER_CACHE.g_header_rec.order_source_id)) THEN -- GENESIS
5971: END IF;
5972:
5973: -- DBI project changes start
5974: IF l_debug_level > 0 THEN
5975: oe_debug_pub.add( 'CALLING OE_DBI_UTIL' , 1 ) ;
5976: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5977: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
5978: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
5979: END IF;
5972:
5973: -- DBI project changes start
5974: IF l_debug_level > 0 THEN
5975: oe_debug_pub.add( 'CALLING OE_DBI_UTIL' , 1 ) ;
5976: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5977: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
5978: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
5979: END IF;
5980:
5973: -- DBI project changes start
5974: IF l_debug_level > 0 THEN
5975: oe_debug_pub.add( 'CALLING OE_DBI_UTIL' , 1 ) ;
5976: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5977: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
5978: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
5979: END IF;
5980:
5981: IF NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'), 'N') = 'Y' AND
5974: IF l_debug_level > 0 THEN
5975: oe_debug_pub.add( 'CALLING OE_DBI_UTIL' , 1 ) ;
5976: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5977: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
5978: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
5979: END IF;
5980:
5981: IF NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'), 'N') = 'Y' AND
5982: oe_order_cache.g_header_rec.booked_flag = 'Y' AND
6011: /* Fix Bug # 3241831: Reset Global after all requests have been processed */
6012: IF OE_GLOBALS.G_RECURSION_MODE = 'N' AND OE_GLOBALS.G_UI_FLAG = FALSE THEN
6013: IF OE_OE_FORM_CANCEL_LINE.g_ord_lvl_can THEN
6014: IF l_debug_level > 0 THEN
6015: oe_debug_pub.add('SET G_ORD_LVL_CAN TO FALSE FOR NON UI ORDER CANCEL');
6016: END IF;
6017: OE_OE_FORM_CANCEL_LINE.g_ord_lvl_can := FALSE;
6018: END IF;
6019: END IF;
6024: OE_GLOBALS.G_HEADER_CREATED := FALSE;
6025: END IF;
6026:
6027: IF l_debug_level > 0 THEN
6028: oe_debug_pub.add( 'EXIT OE_ORDER_PVT.PROCESS_REQUESTS_AND_NOTIFY' , 1 ) ;
6029: END IF;
6030: set_recursion_mode(p_Entity_Code => 8,
6031: p_In_out => 0);
6032: IF l_debug_level > 0 THEN
6029: END IF;
6030: set_recursion_mode(p_Entity_Code => 8,
6031: p_In_out => 0);
6032: IF l_debug_level > 0 THEN
6033: oe_debug_pub.add( 'GLOBAL REQUEST TABLE COUNT- PRN'|| OE_DELAYED_REQUESTS_PVT.G_DELAYED_REQUESTS.COUNT , 1 ) ;
6034: END IF;
6035:
6036:
6037: EXCEPTION
6064:
6065: set_recursion_mode(p_Entity_Code => 8,
6066: p_In_out => 0);
6067: IF l_debug_level > 0 THEN
6068: oe_debug_pub.add( 'PO: EXITING PROCESS_REQUESTS_AND_NOTIFY WITH OTHERS ERROR' , 2 ) ;
6069: END IF;
6070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6071: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
6072: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
6171: l_old_Line_Scredit_tbl OE_Order_PUB.Line_Scredit_Tbl_Type;
6172: l_old_Line_Payment_tbl OE_Order_PUB.Line_Payment_Tbl_Type;
6173: l_old_Lot_Serial_tbl OE_Order_PUB.Lot_Serial_Tbl_Type;
6174: l_old_Lot_Serial_val_tbl OE_Order_PUB.Lot_Serial_Val_Tbl_Type;
6175: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6176: l_edi_ack_pfile Varchar2(3);
6177: l_transaction_phase_code VARCHAR2(1); -- Added for bug 4758902
6178: BEGIN
6179: IF l_debug_level > 0 THEN
6176: l_edi_ack_pfile Varchar2(3);
6177: l_transaction_phase_code VARCHAR2(1); -- Added for bug 4758902
6178: BEGIN
6179: IF l_debug_level > 0 THEN
6180: oe_debug_pub.add( 'ENTER PROCESS_ORDER_AG' , 1 ) ;
6181: END IF;
6182:
6183: -- Initialize x_return_status
6184: x_return_status := FND_API.G_RET_STS_SUCCESS;
6205: l_old_Lot_Serial_tbl := p_old_Lot_Serial_tbl;
6206:
6207:
6208: IF l_debug_level > 0 THEN
6209: oe_debug_pub.add( 'BEFORE HEADER PROCESSING' , 2 ) ;
6210: oe_debug_pub.add( 'HEADER_ID' || P_X_HEADER_REC.HEADER_ID , 2 ) ;
6211: oe_debug_pub.add( 'OPERATION' || P_X_HEADER_REC.OPERATION , 2 ) ;
6212: END IF;
6213:
6206:
6207:
6208: IF l_debug_level > 0 THEN
6209: oe_debug_pub.add( 'BEFORE HEADER PROCESSING' , 2 ) ;
6210: oe_debug_pub.add( 'HEADER_ID' || P_X_HEADER_REC.HEADER_ID , 2 ) ;
6211: oe_debug_pub.add( 'OPERATION' || P_X_HEADER_REC.OPERATION , 2 ) ;
6212: END IF;
6213:
6214: -------------------------------------------------------
6207:
6208: IF l_debug_level > 0 THEN
6209: oe_debug_pub.add( 'BEFORE HEADER PROCESSING' , 2 ) ;
6210: oe_debug_pub.add( 'HEADER_ID' || P_X_HEADER_REC.HEADER_ID , 2 ) ;
6211: oe_debug_pub.add( 'OPERATION' || P_X_HEADER_REC.OPERATION , 2 ) ;
6212: END IF;
6213:
6214: -------------------------------------------------------
6215: -- Process Header
6257: RAISE FND_API.G_EXC_ERROR;
6258: END IF;
6259: END IF;
6260: IF l_debug_level > 0 THEN
6261: oe_debug_pub.add( 'AFTER HEADER PROCESSING HEADER_ID = '|| TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) , 2 ) ;
6262: END IF;
6263:
6264: -- Perform header group requests.
6265:
6285:
6286: -- FOR I IN 1..p_x_header_adj_tbl.COUNT LOOP
6287:
6288: IF l_debug_level > 0 THEN
6289: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_ADJ_TBL' , 2 ) ;
6290: END IF;
6291:
6292: IF p_x_header_adj_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6293: AND (p_x_header_adj_tbl(I).header_id IS NULL OR
6322: -- Header_Adjs
6323:
6324: IF p_x_header_adj_tbl.COUNT > 0 THEN
6325: IF l_debug_level > 0 THEN
6326: oe_debug_pub.add( 'BEFORE OE_ORDER_ADJ_PVT.HEADER_ADJS PROCESSING' , 2 ) ;
6327: END IF;
6328: oe_order_adj_pvt.Header_Adjs
6329: ( p_validation_level => p_validation_level
6330: , p_control_rec => p_control_rec
6333: );
6334: END IF;
6335:
6336: IF l_debug_level > 0 THEN
6337: oe_debug_pub.add( 'AFTER HEADER_ADJS PROCESSING' , 2 ) ;
6338: END IF;
6339: -- Perform Header_Adj group requests.
6340:
6341: IF (p_control_rec.process AND
6369:
6370: WHILE I IS NOT NULL LOOP
6371:
6372: IF l_debug_level > 0 THEN
6373: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_PRICE_ATT_TBL' , 2 ) ;
6374: END IF;
6375: IF p_x_header_price_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6376: AND (p_x_header_price_att_tbl(I).header_id IS NULL OR
6377: p_x_header_price_att_tbl(I).header_id = FND_API.G_MISS_NUM)
6394: -- Header_Price_Atts
6395:
6396: IF p_x_header_price_Att_tbl.COUNT > 0 THEN
6397: IF l_debug_level > 0 THEN
6398: oe_debug_pub.add( 'BEFORE OE_ORDER_ADJ_PVT.HEADER_PRICE_ATTS PROCESSING' , 2 ) ;
6399: END IF;
6400: oe_order_adj_pvt.Header_Price_Atts
6401: ( p_validation_level => p_validation_level
6402: , p_control_rec => p_control_rec
6405: );
6406: END IF;
6407:
6408: IF l_debug_level > 0 THEN
6409: oe_debug_pub.add( 'AFTER HEADER_PRICE_ATTS PROCESSING' , 2 ) ;
6410: END IF;
6411: -- Perform Header_Price_Att group requests.
6412:
6413: IF (p_control_rec.process AND
6443:
6444: WHILE I IS NOT NULL LOOP
6445:
6446: IF l_debug_level > 0 THEN
6447: oe_debug_pub.add( 'SETTING PRICE ADJUSTMENT ID ON HDR_ADJ_ATTBS' , 2 ) ;
6448: END IF;
6449: IF p_x_header_adj_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6450: AND (p_x_header_adj_att_tbl(I).price_adjustment_id IS NULL OR
6451: p_x_header_adj_att_tbl(I).price_adjustment_id = FND_API.G_MISS_NUM)
6460: ELSE
6461: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
6462: THEN
6463: IF l_debug_level > 0 THEN
6464: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( P_X_HEADER_ADJ_ATT_TBL ( I ) .ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
6465: END IF;
6466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6467: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
6468: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Attribs');
6479: -- Header_Adj_Atts
6480: IF p_x_header_adj_Att_tbl.COUNT > 0 THEN
6481:
6482: IF l_debug_level > 0 THEN
6483: oe_debug_pub.add( 'BEFORE OE_ORDER_ADJ_PVT.HEADER_ADJ_ATTS PROCESSING' , 2 ) ;
6484: END IF;
6485: oe_order_adj_pvt.Header_Adj_Atts
6486: ( p_validation_level => p_validation_level
6487: , p_control_rec => p_control_rec
6489: , p_x_old_Header_Adj_Att_tbl => l_old_header_Adj_Att_tbl
6490: );
6491:
6492: IF l_debug_level > 0 THEN
6493: oe_debug_pub.add( 'AFTER HEADER_ADJ_ATTS PROCESSING' , 2 ) ;
6494: END IF;
6495:
6496: END IF;
6497:
6506:
6507: WHILE I IS NOT NULL LOOP
6508:
6509: IF l_debug_level > 0 THEN
6510: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_ADJ_ASSOC_TBL' , 2 ) ;
6511: END IF;
6512: IF p_x_header_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6513: AND (p_x_header_adj_assoc_tbl(I).Price_Adjustment_id IS NULL OR
6514: p_x_header_adj_assoc_tbl(I).Price_Adjustment_id = FND_API.G_MISS_NUM)
6522: ELSE
6523: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
6524: THEN
6525: IF l_debug_level > 0 THEN
6526: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( P_X_HEADER_ADJ_ASSOC_TBL ( I ) .ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
6527: END IF;
6528: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6529: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
6530: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Assocs');
6556:
6557: IF p_x_header_adj_Assoc_tbl.COUNT > 0 THEN
6558:
6559: IF l_debug_level > 0 THEN
6560: oe_debug_pub.add( 'BEFORE OE_ORDER_ADJ_PVT.HEADER_ADJ_ASSOCS PROCESSING' , 2 ) ;
6561: END IF;
6562: oe_order_adj_pvt.Header_Adj_Assocs
6563: ( p_validation_level => p_validation_level
6564: , p_control_rec => p_control_rec
6566: , p_x_old_Header_Adj_Assoc_tbl => l_old_header_Adj_Assoc_tbl
6567: );
6568:
6569: IF l_debug_level > 0 THEN
6570: oe_debug_pub.add( 'AFTER HEADER_ADJ_ASSOCS PROCESSING' , 2 ) ;
6571: END IF;
6572: END IF;
6573:
6574:
6582: I := p_x_header_scredit_tbl.FIRST;
6583: WHILE I IS NOT NULL LOOP
6584:
6585: IF l_debug_level > 0 THEN
6586: oe_debug_pub.add( 'SETTING HEADER_ID ON HEADER_SCREDIT_TBL' , 2 ) ;
6587: END IF;
6588: IF p_x_header_scredit_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6589: AND (p_x_header_scredit_tbl(I).header_id IS NULL OR
6590: p_x_header_scredit_tbl(I).header_id = FND_API.G_MISS_NUM)
6609:
6610: IF p_x_header_scredit_tbl.COUNT > 0 THEN
6611:
6612: IF l_debug_level > 0 THEN
6613: oe_debug_pub.add( 'BEFORE HEADER_SCREDITS PROCESSING' , 2 ) ;
6614: END IF;
6615: Header_Scredits
6616: ( p_validation_level => p_validation_level
6617: , p_control_rec => p_control_rec
6628: RAISE FND_API.G_EXC_ERROR;
6629: END IF;
6630: END IF;
6631: IF l_debug_level > 0 THEN
6632: oe_debug_pub.add( 'AFTER HEADER_SCREDITS PROCESSING' , 2 ) ;
6633: END IF;
6634:
6635: END IF;
6636:
6693: I := p_x_header_payment_tbl.FIRST;
6694: WHILE I IS NOT NULL LOOP
6695:
6696: IF l_debug_level > 0 THEN
6697: oe_debug_pub.add( 'SETTING HEADER_ID ON HEADER_PAYMENT_TBL' , 2 ) ;
6698: END IF;
6699: IF p_x_header_payment_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6700: AND (p_x_header_payment_tbl(I).header_id IS NULL OR
6701: p_x_header_payment_tbl(I).header_id = FND_API.G_MISS_NUM)
6720:
6721: IF p_x_header_payment_tbl.COUNT > 0 THEN
6722:
6723: IF l_debug_level > 0 THEN
6724: oe_debug_pub.add( 'BEFORE HEADER_PAYMENTS PROCESSING' , 2 ) ;
6725: END IF;
6726: Header_Payments
6727: ( p_validation_level => p_validation_level
6728: , p_control_rec => p_control_rec
6739: RAISE FND_API.G_EXC_ERROR;
6740: END IF;
6741: END IF;
6742: IF l_debug_level > 0 THEN
6743: oe_debug_pub.add( 'AFTER HEADER_PAYMENTS PROCESSING' , 2 ) ;
6744: END IF;
6745:
6746: END IF;
6747:
6795: FROM oe_order_lines_all
6796: WHERE line_id = p_x_line_tbl(I).line_id;
6797: EXCEPTION
6798: WHEN NO_DATA_FOUND THEN
6799: oe_debug_pub.add(' No Transaction Phase Code for parent split line.',1);
6800: NULL;
6801: WHEN OTHERS THEN
6802: oe_debug_pub.add(' OTHERS: No Transaction Phase Code for parent split line.',1);
6803: NULL;
6798: WHEN NO_DATA_FOUND THEN
6799: oe_debug_pub.add(' No Transaction Phase Code for parent split line.',1);
6800: NULL;
6801: WHEN OTHERS THEN
6802: oe_debug_pub.add(' OTHERS: No Transaction Phase Code for parent split line.',1);
6803: NULL;
6804: END;
6805:
6806: IF NVL(l_transaction_phase_code,'F') = 'N' THEN
6803: NULL;
6804: END;
6805:
6806: IF NVL(l_transaction_phase_code,'F') = 'N' THEN
6807: oe_debug_pub.add(' Line Id : '||p_x_line_tbl(I).line_id||' cannot be split. It is in Negotiation Phase.');
6808: FND_MESSAGE.SET_NAME('ONT','OE_PC_SPLIT_VIOLATION');
6809: FND_MESSAGE.SET_TOKEN('OBJECT',p_x_line_tbl(I).line_id);
6810: FND_MESSAGE.SET_TOKEN('REASON','Line is in Negotiation Phase');
6811: OE_MSG_PUB.Add;
6886:
6887: IF p_x_line_tbl.COUNT > 0 THEN
6888:
6889: IF l_debug_level > 0 THEN
6890: oe_debug_pub.add( 'BEFORE LINES PROCESSING' , 2 ) ;
6891: END IF;
6892: Lines
6893: ( p_validation_level => p_validation_level
6894: , p_control_rec => p_control_rec
6905: RAISE FND_API.G_EXC_ERROR;
6906: END IF;
6907: END IF;
6908: IF l_debug_level > 0 THEN
6909: oe_debug_pub.add( 'AFTER LINES PROCESSING' , 2 ) ;
6910: END IF;
6911:
6912: END IF;
6913:
6915: I := p_x_line_scredit_tbl.FIRST;
6916: WHILE I IS NOT NULL LOOP
6917:
6918: IF l_debug_level > 0 THEN
6919: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE SC TABLE' ) ;
6920: END IF;
6921: IF p_x_line_scredit_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6922: AND (p_x_line_scredit_tbl(I).line_id IS NULL OR
6923: p_x_line_scredit_tbl(I).line_id = FND_API.G_MISS_NUM)
6922: AND (p_x_line_scredit_tbl(I).line_id IS NULL OR
6923: p_x_line_scredit_tbl(I).line_id = FND_API.G_MISS_NUM)
6924: THEN
6925: IF l_debug_level > 0 THEN
6926: oe_debug_pub.add( 'SETTING LINE IDS ON LINE SC TABLE' , 2 ) ;
6927: END IF;
6928:
6929: -- Check If parent exists.
6930:
6944:
6945: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
6946: THEN
6947: IF l_debug_level > 0 THEN
6948: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON LINE SALES CREDITS' , 2 ) ;
6949: END IF;
6950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6951: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
6952: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Scredit');
6966: I := p_x_line_payment_tbl.FIRST;
6967: WHILE I IS NOT NULL LOOP
6968:
6969: IF l_debug_level > 0 THEN
6970: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE SC TABLE' ) ;
6971: END IF;
6972: IF p_x_line_payment_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6973: AND (p_x_line_payment_tbl(I).line_id IS NULL OR
6974: p_x_line_payment_tbl(I).line_id = FND_API.G_MISS_NUM)
6973: AND (p_x_line_payment_tbl(I).line_id IS NULL OR
6974: p_x_line_payment_tbl(I).line_id = FND_API.G_MISS_NUM)
6975: THEN
6976: IF l_debug_level > 0 THEN
6977: oe_debug_pub.add( 'SETTING LINE IDS ON LINE PAYMENT TABLE' , 2 ) ;
6978: END IF;
6979:
6980: -- Check If parent exists.
6981:
6990:
6991: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
6992: THEN
6993: IF l_debug_level > 0 THEN
6994: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON LINE SALES CREDITS' , 2 ) ;
6995: END IF;
6996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6997: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
6998: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Payment');
7012: I := p_x_line_adj_tbl.FIRST;
7013: WHILE I IS NOT NULL LOOP
7014:
7015: IF l_debug_level > 0 THEN
7016: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE ADJ TABLE' , 2 ) ;
7017: END IF;
7018:
7019: IF p_x_line_adj_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7020: AND (p_x_line_adj_tbl(I).line_id IS NULL OR
7021: p_x_line_adj_tbl(I).line_id = FND_API.G_MISS_NUM)
7022: THEN
7023:
7024: IF l_debug_level > 0 THEN
7025: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ADJ TABLE' , 2 ) ;
7026: END IF;
7027: -- Check If parent exists.
7028:
7029: IF p_x_line_adj_tbl(I).line_index <> fnd_api.g_miss_num and
7037: ELSIF p_x_line_adj_tbl(I).header_id is not null and
7038: p_x_line_adj_tbl(I).header_id <> FND_API.G_MISS_NUM Then
7039: -- Treat the adjustment record as a header_adjustment record
7040: IF l_debug_level > 0 THEN
7041: oe_debug_pub.add( 'TREATING THE RECORD AS HEADER_ADJUSTMENT' ) ;
7042: END IF;
7043: ELSE
7044:
7045: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7044:
7045: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7046: THEN
7047: IF l_debug_level > 0 THEN
7048: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
7049: END IF;
7050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7051:
7052: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7069: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7070: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE)
7071: THEN
7072: IF l_debug_level > 0 THEN
7073: oe_debug_pub.add( 'PROCESS LINE REQUESTS' ) ;
7074: END IF;
7075:
7076: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7077: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
7160: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_SCREDIT)
7161: THEN
7162:
7163: IF l_debug_level > 0 THEN
7164: oe_debug_pub.add( 'PROCESSING DELAYED REQUESTS FOR LINES' , 2 ) ;
7165: END IF;
7166:
7167: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7168: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Scredit
7170: ,x_return_status => l_return_status
7171: );
7172:
7173: IF l_debug_level > 0 THEN
7174: oe_debug_pub.add( 'PROCESSED DELAYED REQUESTS FOR LINES' , 2 ) ;
7175: END IF;
7176:
7177: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7219: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_PAYMENT)
7220: THEN
7221:
7222: IF l_debug_level > 0 THEN
7223: oe_debug_pub.add( 'PROCESSING DELAYED REQUESTS FOR LINES' , 2 ) ;
7224: END IF;
7225:
7226: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7227: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_PAYMENT
7229: ,x_return_status => l_return_status
7230: );
7231:
7232: IF l_debug_level > 0 THEN
7233: oe_debug_pub.add( 'PROCESSED DELAYED REQUESTS FOR LINES' , 2 ) ;
7234: END IF;
7235:
7236: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7325: I := p_x_line_price_Att_tbl.FIRST;
7326: WHILE I IS NOT NULL LOOP
7327:
7328: IF l_debug_level > 0 THEN
7329: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE ATTRIBUTES TABLE' , 2 ) ;
7330: END IF;
7331: IF p_x_line_price_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7332: AND (p_x_line_price_att_tbl(I).line_id IS NULL OR
7333: p_x_line_price_att_tbl(I).line_id = FND_API.G_MISS_NUM)
7333: p_x_line_price_att_tbl(I).line_id = FND_API.G_MISS_NUM)
7334: THEN
7335:
7336: IF l_debug_level > 0 THEN
7337: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ATTRIB TABLE' , 2 ) ;
7338: END IF;
7339: -- Check If parent exists.
7340:
7341: IF p_x_line_tbl.EXISTS(p_x_line_price_att_tbl(I).line_index) THEN
7349:
7350: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7351: THEN
7352: IF l_debug_level > 0 THEN
7353: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( P_X_LINE_PRICE_ATT_TBL ( I ) .LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
7354: END IF;
7355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7356:
7357: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7410: I := p_x_line_adj_Att_tbl.FIRST;
7411: WHILE I IS NOT NULL LOOP
7412:
7413: IF l_debug_level > 0 THEN
7414: oe_debug_pub.add( 'SETTING PRICE_ADJUSTMENT_ID ON LINE ADJ ATTRIB TABLE' , 2 ) ;
7415: END IF;
7416:
7417: IF p_x_line_adj_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7418: AND (p_x_line_adj_att_tbl(I).price_adjustment_id IS NULL OR
7419: p_x_line_adj_att_tbl(I).price_adjustment_id = FND_API.G_MISS_NUM)
7420: THEN
7421:
7422: IF l_debug_level > 0 THEN
7423: oe_debug_pub.add( 'SETTING ADJ IDS ON LINE ADJ ATTRIB TABLE' , 2 ) ;
7424: END IF;
7425: -- Check If parent exists.
7426:
7427: IF p_x_line_adj_tbl.EXISTS(p_x_Line_Adj_att_tbl(I).Adj_index) THEN
7434:
7435: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7436: THEN
7437: IF l_debug_level > 0 THEN
7438: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( P_X_LINE_ADJ_ATT_TBL ( I ) .ADJ_INDEX ) ||'ON ADJ ATTRIBS' , 2 ) ;
7439: END IF;
7440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7441:
7442: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7473: I := p_x_line_adj_Assoc_tbl.FIRST;
7474: WHILE I IS NOT NULL LOOP
7475:
7476: IF l_debug_level > 0 THEN
7477: oe_debug_pub.add( 'SETTING PRICE_ADJUSTMENT_ID ON LINE ADJ ASSOCS TABLE' , 2 ) ;
7478: END IF;
7479: IF p_x_line_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7480: AND (p_x_line_adj_assoc_tbl(I).price_adjustment_id IS NULL OR
7481: p_x_line_adj_assoc_tbl(I).price_adjustment_id = FND_API.G_MISS_NUM)
7481: p_x_line_adj_assoc_tbl(I).price_adjustment_id = FND_API.G_MISS_NUM)
7482: THEN
7483:
7484: IF l_debug_level > 0 THEN
7485: oe_debug_pub.add( 'SETTING ADJ IDS ON LINE ADJ ASSOCS TABLE' , 2 ) ;
7486: END IF;
7487: -- Check If parent exists.
7488:
7489: IF p_x_line_adj_tbl.EXISTS(p_x_Line_Adj_assoc_tbl(I).Adj_index) THEN
7496:
7497: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7498: THEN
7499: IF l_debug_level > 0 THEN
7500: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( P_X_LINE_ADJ_ASSOC_TBL ( I ) .ADJ_INDEX ) ||'ON ADJ ASSOCS' , 2 ) ;
7501: END IF;
7502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7503:
7504: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7516: p_x_line_adj_assoc_tbl(I).Line_id = FND_API.G_MISS_NUM)
7517: THEN
7518:
7519: IF l_debug_level > 0 THEN
7520: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ADJ ASSOCS TABLE' , 2 ) ;
7521: END IF;
7522: -- Check If parent exists.
7523:
7524: IF p_x_line_tbl.EXISTS(p_x_line_adj_assoc_tbl(I).Line_Index) THEN
7565: I := p_x_action_request_tbl.FIRST;
7566: WHILE I IS NOT NULL LOOP
7567:
7568: IF l_debug_level > 0 THEN
7569: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON REQUEST TABLE' , 2 ) ;
7570: END IF;
7571:
7572: IF (p_x_action_request_tbl(I).entity_code = OE_GLOBALS.G_ENTITY_HEADER) THEN
7573:
7574: IF (p_x_action_request_tbl(I).entity_id IS NULL OR
7575: p_x_action_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
7576: THEN
7577: IF l_debug_level > 0 THEN
7578: oe_debug_pub.add( 'SETTING HEADER IDS ON REQUEST TABLE FOR HEADER ENTITY' , 2 ) ;
7579: END IF;
7580: IF p_x_header_rec.header_id IS NULL OR
7581: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
7582: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
7592: IF (p_x_action_request_tbl(I).entity_id IS NULL OR
7593: p_x_action_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
7594: THEN
7595: IF l_debug_level > 0 THEN
7596: oe_debug_pub.add( 'SETTING LINE IDS ON REQUEST TABLE FOR LINE ENTITY' , 2 ) ;
7597: END IF;
7598: -- Check If entity record exists.
7599:
7600: IF p_x_line_tbl.EXISTS(p_x_action_request_tbl(I).entity_index) THEN
7607:
7608: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7609: THEN
7610: IF l_debug_level > 0 THEN
7611: oe_debug_pub.add( 'INVALID ENTITY INDEX ' ||TO_CHAR ( p_x_action_request_tbl ( I ) .ENTITY_INDEX ) ||'ON REQUEST TABLE FOR LINE ENTITY' , 2 ) ;
7612: END IF;
7613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7614: END IF;
7615: END IF;
7620: IF (p_x_action_request_tbl(I).entity_id IS NULL OR
7621: p_x_action_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
7622: THEN
7623: IF l_debug_level > 0 THEN
7624: oe_debug_pub.add( 'SETTING HEADER IDS ON REQUEST TABLE FOR VERIFY_PAYMENT' , 2 ) ;
7625: END IF;
7626: IF p_x_header_rec.header_id IS NULL OR
7627: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
7628: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
7641: -- Step 7. Perform Object group logic
7642:
7643: -- Perform Delayed Requests for all the the entities
7644: IF l_debug_level > 0 THEN
7645: oe_debug_pub.add( 'OEXVORDB: BEFORE CALLING PROCESS_DELAYED_REQUESTS' , 2 ) ;
7646: END IF;
7647: IF (p_control_rec.process AND
7648: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7649: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
7652: OE_DELAYED_REQUESTS_PVT.Process_Delayed_Requests(
7653: x_return_status => l_return_status
7654: );
7655: IF l_debug_level > 0 THEN
7656: oe_debug_pub.add( 'OEXVORDB: COMPLETED PROCESS_DELAYED_REQUESTS ' || ' WITH RETURN STATUS' || L_RETURN_STATUS , 2 ) ;
7657: END IF;
7658: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7660: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7675: END IF;
7676: /* comm rej
7677: --R12 CVV2
7678: IF l_debug_level > 0 THEN
7679: oe_debug_pub.add('after OE_Delayed_Requests_PVT.Process_Order_Actions cvv2');
7680: END IF;
7681: i := p_x_action_request_tbl.first;
7682: while i is not null loop
7683: IF l_debug_level > 0 THEN
7680: END IF;
7681: i := p_x_action_request_tbl.first;
7682: while i is not null loop
7683: IF l_debug_level > 0 THEN
7684: oe_debug_pub.add('return_status : ' || p_x_action_request_tbl(i).return_status);
7685: oe_debug_pub.add('request_type : ' || p_x_action_request_tbl(i).request_type);
7686: END IF;
7687: IF p_x_action_request_tbl(i).return_status = FND_API.G_RET_STS_ERROR
7688: AND p_x_action_request_tbl(i).request_type = OE_GLOBALS.G_VERIFY_PAYMENT THEN
7681: i := p_x_action_request_tbl.first;
7682: while i is not null loop
7683: IF l_debug_level > 0 THEN
7684: oe_debug_pub.add('return_status : ' || p_x_action_request_tbl(i).return_status);
7685: oe_debug_pub.add('request_type : ' || p_x_action_request_tbl(i).request_type);
7686: END IF;
7687: IF p_x_action_request_tbl(i).return_status = FND_API.G_RET_STS_ERROR
7688: AND p_x_action_request_tbl(i).request_type = OE_GLOBALS.G_VERIFY_PAYMENT THEN
7689: x_return_status := FND_API.G_RET_STS_ERROR;
7714: END IF;
7715:
7716:
7717: IF l_debug_level > 0 THEN
7718: oe_debug_pub.add( 'OEXVORDB: AFTER PROCESS_ORDER_ACTIONS' , 2 ) ;
7719: END IF;
7720:
7721:
7722: -- Clear API cache.
7821: I := p_x_line_adj_Assoc_tbl.NEXT(I);
7822: END LOOP;
7823:
7824: IF l_debug_level > 0 THEN
7825: oe_debug_pub.add( 'JPN: BEFORE CALLING NOTIFY , HEADER_ID IS: ' || P_X_HEADER_REC.HEADER_ID ) ;
7826: END IF;
7827: -- Calling Update Notice API - Provided by OC
7828: -- This API will notify OC about the changes happen in OM side for order
7829:
7832:
7833: IF (OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508') then
7834: /* Call Process Requests and notify */
7835: IF l_debug_level > 0 THEN
7836: oe_debug_pub.add( 'CALLING PROCESS_REQUESTS_AND_NOTIFY FOR PACK H IN PROCESS_ORDER_AG' );
7837: END IF;
7838: Process_Requests_And_Notify(
7839: p_process_requests => FALSE,
7840: p_notify => TRUE,
7868: /* Pre Pack H processsing */
7869:
7870:
7871: IF l_debug_level > 0 THEN
7872: oe_debug_pub.add( 'CS BEFORE CALLING NOTIFY_OC API' , 1 ) ;
7873: END IF;
7874: IF x_return_status = FND_API.G_RET_STS_SUCCESS AND
7875: p_control_rec.write_to_db = TRUE
7876: AND oe_order_cache.g_header_rec.booked_flag = 'Y'
7875: p_control_rec.write_to_db = TRUE
7876: AND oe_order_cache.g_header_rec.booked_flag = 'Y'
7877: THEN
7878: IF l_debug_level > 0 THEN
7879: oe_debug_pub.add( 'CS CALLING NOTIFY_OC API' , 1 ) ;
7880: END IF;
7881:
7882: OE_SERVICE_UTIL.Notify_OC
7883: ( p_api_version_number => l_api_version_number
7923: );
7924:
7925:
7926: IF l_debug_level > 0 THEN
7927: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
7928: END IF;
7929: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7930: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7931: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7935:
7936: END IF;
7937:
7938: IF l_debug_level > 0 THEN
7939: oe_debug_pub.add( 'PROCESSING ACKS' , 1 ) ;
7940: END IF;
7941:
7942: IF OE_Globals.G_RECURSION_MODE <> 'Y' AND
7943: x_return_status = FND_API.G_RET_STS_SUCCESS AND
7943: x_return_status = FND_API.G_RET_STS_SUCCESS AND
7944: l_control_rec.write_to_db = TRUE
7945: THEN
7946: IF l_debug_level > 0 THEN
7947: oe_debug_pub.add( 'CALLING ACKS API' , 1 ) ;
7948: END IF;
7949:
7950: If Oe_Code_Control.Code_Release_Level >= '110510' And
7951: p_x_header_rec.order_source_id in (0,2,6) And
8007:
8008: -- x_return_status := l_return_status;
8009:
8010: IF l_debug_level > 0 THEN
8011: oe_debug_pub.add( 'EXIT PROCESS_ORDER_AG' , 1 ) ;
8012: END IF;
8013: END Process_Order_AG;
8014:
8015: /*----------------------------------------------------------------
8267: I NUMBER; -- Used for as table index.
8268: l_init_msg_list VARCHAR2(1) := p_init_msg_list;
8269: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
8270: l_Call_Split BOOLEAN := FALSE;
8271: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8272: l_edi_ack_pfile Varchar2(3);
8273:
8274: BEGIN
8275:
8288: END IF;
8289:
8290:
8291: IF l_debug_level > 0 THEN
8292: oe_debug_pub.add( 'ENTERING OE_ORDER_PUB.PROCESS_ORDER' , 1 ) ;
8293: END IF;
8294: -- Standard call to check for call compatibility
8295:
8296: IF NOT FND_API.Compatible_API_Call
8420:
8421: -- Header
8422:
8423: IF l_debug_level > 0 THEN
8424: oe_debug_pub.add( 'BEFORE HEADER PROCESSING' , 2 ) ;
8425: oe_debug_pub.add( 'HEADER_ID' || L_HEADER_REC.HEADER_ID , 2 ) ;
8426: oe_debug_pub.add( 'OPERATION' || L_HEADER_REC.OPERATION , 2 ) ;
8427: END IF;
8428:
8421: -- Header
8422:
8423: IF l_debug_level > 0 THEN
8424: oe_debug_pub.add( 'BEFORE HEADER PROCESSING' , 2 ) ;
8425: oe_debug_pub.add( 'HEADER_ID' || L_HEADER_REC.HEADER_ID , 2 ) ;
8426: oe_debug_pub.add( 'OPERATION' || L_HEADER_REC.OPERATION , 2 ) ;
8427: END IF;
8428:
8429: -------------------------------------------------------
8422:
8423: IF l_debug_level > 0 THEN
8424: oe_debug_pub.add( 'BEFORE HEADER PROCESSING' , 2 ) ;
8425: oe_debug_pub.add( 'HEADER_ID' || L_HEADER_REC.HEADER_ID , 2 ) ;
8426: oe_debug_pub.add( 'OPERATION' || L_HEADER_REC.OPERATION , 2 ) ;
8427: END IF;
8428:
8429: -------------------------------------------------------
8430: -- Process Header
8472: RAISE FND_API.G_EXC_ERROR;
8473: END IF;
8474: END IF;
8475: IF l_debug_level > 0 THEN
8476: oe_debug_pub.add( 'AFTER HEADER PROCESSING HEADER_ID = '|| TO_CHAR ( L_HEADER_REC.HEADER_ID ) , 2 ) ;
8477: END IF;
8478:
8479: -- Perform header group requests.
8480:
8500:
8501: -- FOR I IN 1..l_Header_Adj_tbl.COUNT LOOP
8502:
8503: IF l_debug_level > 0 THEN
8504: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_ADJ_TBL' , 2 ) ;
8505: END IF;
8506: l_Header_Adj_rec := l_Header_Adj_tbl(I);
8507:
8508: IF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE
8538: -- Header_Adjs
8539:
8540: IF l_Header_Adj_tbl.COUNT > 0 THEN
8541: IF l_debug_level > 0 THEN
8542: oe_debug_pub.add( 'BEFORE OE_ORDER_ADJ_PVT.HEADER_ADJS PROCESSING' , 2 ) ;
8543: END IF;
8544: oe_order_adj_pvt.Header_Adjs
8545: ( p_validation_level => p_validation_level
8546: , p_control_rec => p_control_rec
8549: );
8550: END IF;
8551:
8552: IF l_debug_level > 0 THEN
8553: oe_debug_pub.add( 'AFTER HEADER_ADJS PROCESSING' , 2 ) ;
8554: END IF;
8555: -- Perform Header_Adj group requests.
8556:
8557: IF (p_control_rec.process AND
8585:
8586: WHILE I IS NOT NULL LOOP
8587:
8588: IF l_debug_level > 0 THEN
8589: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_PRICE_ATT_TBL' , 2 ) ;
8590: END IF;
8591: l_Header_Price_Att_Rec := l_Header_Price_att_tbl(I);
8592:
8593: IF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
8612: -- Header_Price_Atts
8613:
8614: IF l_Header_Price_Att_tbl.COUNT > 0 THEN
8615: IF l_debug_level > 0 THEN
8616: oe_debug_pub.add( 'BEFORE OE_ORDER_ADJ_PVT.HEADER_PRICE_ATTS PROCESSING' , 2 ) ;
8617: END IF;
8618: oe_order_adj_pvt.Header_Price_Atts
8619: ( p_validation_level => p_validation_level
8620: , p_control_rec => p_control_rec
8623: );
8624: END IF;
8625:
8626: IF l_debug_level > 0 THEN
8627: oe_debug_pub.add( 'AFTER HEADER_PRICE_ATTS PROCESSING' , 2 ) ;
8628: END IF;
8629: -- Perform Header_Price_Att group requests.
8630:
8631: IF (p_control_rec.process AND
8661:
8662: WHILE I IS NOT NULL LOOP
8663:
8664: IF l_debug_level > 0 THEN
8665: oe_debug_pub.add( 'SETTING PRICE ADJUSTMENT ID ON HDR_ADJ_ATTBS' , 2 ) ;
8666: END IF;
8667: l_Header_Adj_Att_rec := l_Header_Adj_Att_tbl(I);
8668:
8669: IF l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
8680: ELSE
8681: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
8682: THEN
8683: IF l_debug_level > 0 THEN
8684: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( L_HEADER_ADJ_ATT_REC.ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
8685: END IF;
8686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8687: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
8688: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Attribs');
8699: -- Header_Adj_Atts
8700: IF l_Header_Adj_Att_tbl.COUNT > 0 THEN
8701:
8702: IF l_debug_level > 0 THEN
8703: oe_debug_pub.add( 'BEFORE OE_ORDER_ADJ_PVT.HEADER_ADJ_ATTS PROCESSING' , 2 ) ;
8704: END IF;
8705: oe_order_adj_pvt.Header_Adj_Atts
8706: ( p_validation_level => p_validation_level
8707: , p_control_rec => p_control_rec
8709: , p_x_old_Header_Adj_Att_tbl => l_old_Header_Adj_Att_tbl
8710: );
8711:
8712: IF l_debug_level > 0 THEN
8713: oe_debug_pub.add( 'AFTER HEADER_ADJ_ATTS PROCESSING' , 2 ) ;
8714: END IF;
8715:
8716: END IF;
8717:
8752:
8753: WHILE I IS NOT NULL LOOP
8754:
8755: IF l_debug_level > 0 THEN
8756: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_ADJ_ASSOC_TBL' , 2 ) ;
8757: END IF;
8758: l_Header_Adj_Assoc_rec := l_Header_Adj_Assoc_tbl(I);
8759:
8760: IF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
8770: ELSE
8771: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
8772: THEN
8773: IF l_debug_level > 0 THEN
8774: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( L_HEADER_ADJ_ASSOC_REC.ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
8775: END IF;
8776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8777: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
8778: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Assocs');
8804:
8805: IF l_Header_Adj_Assoc_tbl.COUNT > 0 THEN
8806:
8807: IF l_debug_level > 0 THEN
8808: oe_debug_pub.add( 'BEFORE OE_ORDER_ADJ_PVT.HEADER_ADJ_ASSOCS PROCESSING' , 2 ) ;
8809: END IF;
8810: oe_order_adj_pvt.Header_Adj_Assocs
8811: ( p_validation_level => p_validation_level
8812: , p_control_rec => p_control_rec
8814: , p_x_old_Header_Adj_Assoc_tbl => l_old_Header_Adj_Assoc_tbl
8815: );
8816:
8817: IF l_debug_level > 0 THEN
8818: oe_debug_pub.add( 'AFTER HEADER_ADJ_ASSOCS PROCESSING' , 2 ) ;
8819: END IF;
8820: END IF;
8821:
8822: -- Perform Header_Adj_Assoc group requests.
8858: I := l_Header_Scredit_tbl.FIRST;
8859: WHILE I IS NOT NULL LOOP
8860:
8861: IF l_debug_level > 0 THEN
8862: oe_debug_pub.add( 'SETTING HEADER_ID ON HEADER_SCREDIT_TBL:'||to_char(l_header_rec.header_id)||'.' , 2 ) ;
8863: END IF;
8864:
8865: l_Header_Scredit_rec := l_Header_Scredit_tbl(I);
8866:
8888:
8889: IF l_Header_Scredit_tbl.COUNT > 0 THEN
8890:
8891: IF l_debug_level > 0 THEN
8892: oe_debug_pub.add( 'BEFORE HEADER_SCREDITS PROCESSING' , 2 ) ;
8893: END IF;
8894: Header_Scredits
8895: ( p_validation_level => p_validation_level
8896: , p_control_rec => p_control_rec
8907: RAISE FND_API.G_EXC_ERROR;
8908: END IF;
8909: END IF;
8910: IF l_debug_level > 0 THEN
8911: oe_debug_pub.add( 'AFTER HEADER_SCREDITS PROCESSING' , 2 ) ;
8912: END IF;
8913:
8914: END IF;
8915:
9065:
9066: IF l_line_tbl.COUNT > 0 THEN
9067:
9068: IF l_debug_level > 0 THEN
9069: oe_debug_pub.add( 'BEFORE LINES PROCESSING' , 2 ) ;
9070: END IF;
9071: Lines
9072: ( p_validation_level => p_validation_level
9073: , p_control_rec => p_control_rec
9084: RAISE FND_API.G_EXC_ERROR;
9085: END IF;
9086: END IF;
9087: IF l_debug_level > 0 THEN
9088: oe_debug_pub.add( 'AFTER LINES PROCESSING' , 2 ) ;
9089: END IF;
9090:
9091: END IF;
9092:
9096: /* IF l_line_tbl.COUNT > 0 THEN
9097:
9098: IF l_Line_Scredit_tbl.COUNT > 0 THEN
9099:
9100: oe_debug_pub.add('Setting Header/Line Ids on Line SC table', 2);
9101:
9102: FOR k in l_Line_Scredit_tbl.first .. l_line_Scredit_tbl.last LOOP
9103:
9104: -- oe_debug_pub.add('Processing Line SC Record ' ||TO_CHAR(k), 2);
9100: oe_debug_pub.add('Setting Header/Line Ids on Line SC table', 2);
9101:
9102: FOR k in l_Line_Scredit_tbl.first .. l_line_Scredit_tbl.last LOOP
9103:
9104: -- oe_debug_pub.add('Processing Line SC Record ' ||TO_CHAR(k), 2);
9105:
9106: IF (l_line_Scredit_tbl(k).line_index <> FND_API.G_MISS_NUM)
9107: AND (l_line_Scredit_tbl(k).line_index IS NOT NULL) THEN
9108:
9127:
9128:
9129: ELSE -- Invalid Index
9130:
9131: oe_debug_pub.add('Invalid Line Index '
9132: ||TO_CHAR(l_line_index)
9133: ||' on Line Sales Credits', 2);
9134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9135:
9141:
9142:
9143: IF l_Line_Adj_tbl.COUNT > 0 THEN
9144:
9145: oe_debug_pub.add('Setting Header/Line Ids on Line Adj table', 2);
9146:
9147: FOR k in l_Line_Adj_tbl.first .. l_line_Adj_tbl.last LOOP
9148:
9149: -- oe_debug_pub.add('Processing Line Adj Record ' ||TO_CHAR(k), 2);
9145: oe_debug_pub.add('Setting Header/Line Ids on Line Adj table', 2);
9146:
9147: FOR k in l_Line_Adj_tbl.first .. l_line_Adj_tbl.last LOOP
9148:
9149: -- oe_debug_pub.add('Processing Line Adj Record ' ||TO_CHAR(k), 2);
9150:
9151: IF (l_line_Adj_tbl(k).line_index <> FND_API.G_MISS_NUM)
9152: AND (l_line_Adj_tbl(k).line_index IS NOT NULL) THEN
9153:
9151: IF (l_line_Adj_tbl(k).line_index <> FND_API.G_MISS_NUM)
9152: AND (l_line_Adj_tbl(k).line_index IS NOT NULL) THEN
9153:
9154: l_line_index := l_line_Adj_tbl(k).line_index;
9155: oe_debug_pub.add('Line Index is '||TO_CHAR(l_line_index), 2);
9156:
9157: IF l_line_tbl.EXISTS(l_line_index) THEN
9158:
9159: IF (l_line_Adj_tbl(k).line_id = FND_API.G_MISS_NUM)
9171: END IF; -- Header Id on Child is missing or is null
9172:
9173: ELSE -- Invalid Index
9174:
9175: oe_debug_pub.add('Invalid Line Index '
9176: ||TO_CHAR(l_line_index)
9177: ||'on Line Price Adjustments', 2);
9178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9179:
9191: I := l_Line_Scredit_tbl.FIRST;
9192: WHILE I IS NOT NULL LOOP
9193:
9194: IF l_debug_level > 0 THEN
9195: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE SC TABLE' ) ;
9196: END IF;
9197: l_Line_Scredit_rec := l_Line_Scredit_tbl(I);
9198:
9199: IF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE
9200: AND (l_Line_Scredit_rec.line_id IS NULL OR
9201: l_Line_Scredit_rec.line_id = FND_API.G_MISS_NUM)
9202: THEN
9203: IF l_debug_level > 0 THEN
9204: oe_debug_pub.add( 'SETTING LINE IDS ON LINE SC TABLE' , 2 ) ;
9205: END IF;
9206:
9207: -- Check If parent exists.
9208:
9222:
9223: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9224: THEN
9225: IF l_debug_level > 0 THEN
9226: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON LINE SALES CREDITS' , 2 ) ;
9227: END IF;
9228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9229: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9230: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Scredit');
9245: I := l_Line_Adj_tbl.FIRST;
9246: WHILE I IS NOT NULL LOOP
9247:
9248: IF l_debug_level > 0 THEN
9249: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE ADJ TABLE' , 2 ) ;
9250: END IF;
9251: l_Line_Adj_rec := l_Line_Adj_tbl(I);
9252:
9253: IF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE
9255: l_Line_Adj_rec.line_id = FND_API.G_MISS_NUM)
9256: THEN
9257:
9258: IF l_debug_level > 0 THEN
9259: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ADJ TABLE' , 2 ) ;
9260: END IF;
9261: -- Check If parent exists.
9262:
9263: IF l_Line_Adj_rec.line_index <> fnd_api.g_miss_num and
9271: ELSIF l_Line_Adj_tbl(I).header_id is not null and
9272: l_Line_Adj_tbl(I).header_id <> FND_API.G_MISS_NUM Then
9273: -- Treat the adjustment record as a header_adjustment record
9274: IF l_debug_level > 0 THEN
9275: oe_debug_pub.add( 'TREATING THE RECORD AS HEADER_ADJUSTMENT' ) ;
9276: END IF;
9277: ELSE
9278:
9279: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9278:
9279: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9280: THEN
9281: IF l_debug_level > 0 THEN
9282: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
9283: END IF;
9284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9285:
9286: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9303: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9304: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE)
9305: THEN
9306: IF l_debug_level > 0 THEN
9307: oe_debug_pub.add( 'PROCESS LINE REQUESTS' ) ;
9308: END IF;
9309:
9310: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9311: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
9394: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_SCREDIT)
9395: THEN
9396:
9397: IF l_debug_level > 0 THEN
9398: oe_debug_pub.add( 'PROCESSING DELAYED REQUESTS FOR LINES' , 2 ) ;
9399: END IF;
9400:
9401: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9402: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Scredit
9404: ,x_return_status => l_return_status
9405: );
9406:
9407: IF l_debug_level > 0 THEN
9408: oe_debug_pub.add( 'PROCESSED DELAYED REQUESTS FOR LINES' , 2 ) ;
9409: END IF;
9410:
9411: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9504: I := l_Line_Price_Att_tbl.FIRST;
9505: WHILE I IS NOT NULL LOOP
9506:
9507: IF l_debug_level > 0 THEN
9508: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE ATTRIBUTES TABLE' , 2 ) ;
9509: END IF;
9510: l_Line_Price_Att_rec := l_Line_Price_Att_tbl(I);
9511:
9512: IF l_Line_Price_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
9514: l_Line_Price_Att_rec.line_id = FND_API.G_MISS_NUM)
9515: THEN
9516:
9517: IF l_debug_level > 0 THEN
9518: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ATTRIB TABLE' , 2 ) ;
9519: END IF;
9520: -- Check If parent exists.
9521:
9522: IF l_line_tbl.EXISTS(l_Line_Price_Att_rec.line_index) THEN
9530:
9531: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9532: THEN
9533: IF l_debug_level > 0 THEN
9534: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_PRICE_ATT_REC.LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
9535: END IF;
9536: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9537:
9538: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9591: I := l_Line_Adj_Att_tbl.FIRST;
9592: WHILE I IS NOT NULL LOOP
9593:
9594: IF l_debug_level > 0 THEN
9595: oe_debug_pub.add( 'SETTING PRICE_ADJUSTMENT_ID ON LINE ADJ ATTRIB TABLE' , 2 ) ;
9596: END IF;
9597: l_Line_Adj_Att_rec := l_Line_Adj_Att_tbl(I);
9598:
9599: IF l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
9601: l_Line_Adj_Att_rec.price_adjustment_id = FND_API.G_MISS_NUM)
9602: THEN
9603:
9604: IF l_debug_level > 0 THEN
9605: oe_debug_pub.add( 'SETTING ADJ IDS ON LINE ADJ ATTRIB TABLE' , 2 ) ;
9606: END IF;
9607: -- Check If parent exists.
9608:
9609: IF l_line_Adj_tbl.EXISTS(l_Line_Adj_Att_rec.Adj_index) THEN
9616:
9617: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9618: THEN
9619: IF l_debug_level > 0 THEN
9620: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( L_LINE_ADJ_ATT_REC.ADJ_INDEX ) ||'ON ADJ ATTRIBS' , 2 ) ;
9621: END IF;
9622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9623:
9624: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9678: I := l_Line_Adj_Assoc_tbl.FIRST;
9679: WHILE I IS NOT NULL LOOP
9680:
9681: IF l_debug_level > 0 THEN
9682: oe_debug_pub.add( 'SETTING PRICE_ADJUSTMENT_ID ON LINE ADJ ASSOCS TABLE' , 2 ) ;
9683: END IF;
9684: l_Line_Adj_Assoc_rec := l_Line_Adj_Assoc_tbl(I);
9685:
9686: IF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
9688: l_Line_Adj_Assoc_rec.price_adjustment_id = FND_API.G_MISS_NUM)
9689: THEN
9690:
9691: IF l_debug_level > 0 THEN
9692: oe_debug_pub.add( 'SETTING ADJ IDS ON LINE ADJ ASSOCS TABLE' , 2 ) ;
9693: END IF;
9694: -- Check If parent exists.
9695:
9696: IF l_line_Adj_tbl.EXISTS(l_Line_Adj_Assoc_rec.Adj_index) THEN
9703:
9704: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9705: THEN
9706: IF l_debug_level > 0 THEN
9707: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( L_LINE_ADJ_ASSOC_REC.ADJ_INDEX ) ||'ON ADJ ASSOCS' , 2 ) ;
9708: END IF;
9709: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9710:
9711: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9723: l_Line_Adj_Assoc_rec.Line_id = FND_API.G_MISS_NUM)
9724: THEN
9725:
9726: IF l_debug_level > 0 THEN
9727: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ADJ ASSOCS TABLE' , 2 ) ;
9728: END IF;
9729: -- Check If parent exists.
9730:
9731: IF l_line_tbl.EXISTS(l_Line_Adj_Assoc_rec.Line_Index) THEN
9792: -- Set entity_id on request table using the line index.
9793: /*
9794: IF l_request_tbl.COUNT > 0 THEN
9795:
9796: oe_debug_pub.add('Setting Header/Line Ids on Line Adj table', 2);
9797:
9798: FOR k in l_request_tbl.first .. l_request_tbl.last LOOP
9799:
9800: -- oe_debug_pub.add('Processing Line Requests ' ||TO_CHAR(k), 2);
9796: oe_debug_pub.add('Setting Header/Line Ids on Line Adj table', 2);
9797:
9798: FOR k in l_request_tbl.first .. l_request_tbl.last LOOP
9799:
9800: -- oe_debug_pub.add('Processing Line Requests ' ||TO_CHAR(k), 2);
9801: IF (l_request_tbl(k).entity_code IS NULL OR
9802: l_request_tbl(k).entity_code = Oe_Globals.G_ENTITY_HEADER) THEN
9803:
9804: IF (l_request_tbl(k).entity_id = FND_API.G_MISS_NUM
9819: IF (to_number(l_request_tbl(k).param1) <> FND_API.G_MISS_NUM)
9820: AND (l_request_tbl(k).param1 IS NOT NULL) THEN
9821:
9822: l_line_index := to_number(l_request_tbl(k).param1) ;
9823: oe_debug_pub.add('Line Index is '||TO_CHAR(l_line_index), 2);
9824:
9825: IF l_line_tbl.EXISTS(l_line_index) THEN
9826:
9827: IF (l_request_tbl(k).entity_id = FND_API.G_MISS_NUM)
9832: END IF; -- Line Id on Child is missing or is null
9833:
9834: ELSE -- Invalid Index
9835:
9836: oe_debug_pub.add('Invalid Line Index '
9837: ||TO_CHAR(l_line_index)
9838: ||'on Action Request', 2);
9839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9840: END IF; -- If Valid Line Index
9850: I := l_request_tbl.FIRST;
9851: WHILE I IS NOT NULL LOOP
9852:
9853: IF l_debug_level > 0 THEN
9854: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON REQUEST TABLE' , 2 ) ;
9855: END IF;
9856:
9857: IF (l_request_tbl(I).entity_code = OE_GLOBALS.G_ENTITY_HEADER) THEN
9858:
9859: IF (l_request_tbl(I).entity_id IS NULL OR
9860: l_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
9861: THEN
9862: IF l_debug_level > 0 THEN
9863: oe_debug_pub.add( 'SETTING HEADER IDS ON REQUEST TABLE FOR HEADER ENTITY' , 2 ) ;
9864: END IF;
9865: IF l_header_rec.header_id IS NULL OR
9866: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
9867: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
9877: IF (l_request_tbl(I).entity_id IS NULL OR
9878: l_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
9879: THEN
9880: IF l_debug_level > 0 THEN
9881: oe_debug_pub.add( 'SETTING LINE IDS ON REQUEST TABLE FOR LINE ENTITY' , 2 ) ;
9882: END IF;
9883: -- Check If entity record exists.
9884:
9885: IF l_line_tbl.EXISTS(l_request_tbl(I).entity_index) THEN
9892:
9893: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9894: THEN
9895: IF l_debug_level > 0 THEN
9896: oe_debug_pub.add( 'INVALID ENTITY INDEX ' ||TO_CHAR ( L_REQUEST_TBL ( I ) .ENTITY_INDEX ) ||'ON REQUEST TABLE FOR LINE ENTITY' , 2 ) ;
9897: END IF;
9898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9899: END IF;
9900: END IF;
9908: -- Step 7. Perform Object group logic
9909:
9910: -- Perform Delayed Requests for all the the entities
9911: IF l_debug_level > 0 THEN
9912: oe_debug_pub.add( 'OEXVORDB: BEFORE CALLING PROCESS_DELAYED_REQUESTS' , 2 ) ;
9913: END IF;
9914: IF (p_control_rec.process AND
9915: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9916: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
9919: OE_DELAYED_REQUESTS_PVT.Process_Delayed_Requests(
9920: x_return_status => l_return_status
9921: );
9922: IF l_debug_level > 0 THEN
9923: oe_debug_pub.add( 'OEXVORDB: COMPLETED PROCESS_DELAYED_REQUESTS ' || ' WITH RETURN STATUS' || L_RETURN_STATUS , 2 ) ;
9924: END IF;
9925: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9927: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9962: END IF;
9963:
9964:
9965: IF l_debug_level > 0 THEN
9966: oe_debug_pub.add( 'OEXVORDB: AFTER PROCESS_ORDER_ACTIONS' , 2 ) ;
9967: END IF;
9968:
9969:
9970: -- Clear API cache.
10072: I := l_Line_Adj_Assoc_tbl.NEXT(I);
10073: END LOOP;
10074:
10075: IF l_debug_level > 0 THEN
10076: oe_debug_pub.add( 'JPN: BEFORE CALLING NOTIFY , HEADER_ID IS: ' || L_HEADER_REC.HEADER_ID ) ;
10077: END IF;
10078: -- Calling Update Notice API - Provided by OC
10079: -- This API will notify OC about the changes happen in OM side for order
10080:
10083:
10084: IF (OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508') then
10085: /* Call Process Requests and notify */
10086: IF l_debug_level > 0 THEN
10087: oe_debug_pub.add( 'CALLING PROCESS_REQUESTS_AND_NOTIFY FOR PACK H' ) ;
10088: END IF;
10089: Process_Requests_And_Notify(
10090: p_process_requests => FALSE,
10091: p_notify => TRUE,
10114: ELSE
10115: /* Pre Pack H processsing */
10116:
10117: IF l_debug_level > 0 THEN
10118: oe_debug_pub.add( 'CS BEFORE CALLING NOTIFY_OC API' , 1 ) ;
10119: END IF;
10120:
10121: IF x_return_status = FND_API.G_RET_STS_SUCCESS AND
10122: p_control_rec.write_to_db = TRUE
10122: p_control_rec.write_to_db = TRUE
10123: AND oe_order_cache.g_header_rec.booked_flag = 'Y'
10124: THEN
10125: IF l_debug_level > 0 THEN
10126: oe_debug_pub.add( 'CS CALLING NOTIFY_OC API' , 1 ) ;
10127: END IF;
10128:
10129: OE_SERVICE_UTIL.Notify_OC
10130: ( p_api_version_number => l_api_version_number
10166: );
10167:
10168:
10169: IF l_debug_level > 0 THEN
10170: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
10171: END IF;
10172: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10174: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10178:
10179: END IF;
10180:
10181: IF l_debug_level > 0 THEN
10182: oe_debug_pub.add( 'PROCESSING ACKS' , 1 ) ;
10183: END IF;
10184: -- Following check is commented to fix 2380911
10185: IF -- OE_Globals.G_RECURSION_MODE <> 'Y' AND
10186: x_return_status = FND_API.G_RET_STS_SUCCESS AND
10186: x_return_status = FND_API.G_RET_STS_SUCCESS AND
10187: l_control_rec.write_to_db = TRUE
10188: THEN
10189: IF l_debug_level > 0 THEN
10190: oe_debug_pub.add( 'CALLING ACKS API' , 1 ) ;
10191: END IF;
10192:
10193: If Oe_Code_Control.Code_Release_Level >= '110510' And
10194: l_header_rec.order_source_id in (0,2,6) And
10267: set_recursion_mode(p_Entity_Code => 1,
10268: p_In_out => 0);
10269:
10270: IF l_debug_level > 0 THEN
10271: oe_debug_pub.add( 'GLOBAL REQUEST TABLE COUNT- PO'|| OE_DELAYED_REQUESTS_PVT.G_DELAYED_REQUESTS.COUNT , 1 ) ;
10272: oe_debug_pub.add( 'EXITING OE_ORDER_PUB.PROCESS_ORDER' , 1 ) ;
10273: END IF;
10274:
10275: EXCEPTION
10268: p_In_out => 0);
10269:
10270: IF l_debug_level > 0 THEN
10271: oe_debug_pub.add( 'GLOBAL REQUEST TABLE COUNT- PO'|| OE_DELAYED_REQUESTS_PVT.G_DELAYED_REQUESTS.COUNT , 1 ) ;
10272: oe_debug_pub.add( 'EXITING OE_ORDER_PUB.PROCESS_ORDER' , 1 ) ;
10273: END IF;
10274:
10275: EXCEPTION
10276:
10276:
10277: WHEN FND_API.G_EXC_ERROR THEN
10278:
10279: IF l_debug_level > 0 THEN
10280: oe_debug_pub.add( 'PO: EXITING PROCESS ORDER WITH ERROR' , 2 ) ;
10281: END IF;
10282: set_recursion_mode(p_Entity_Code => 1,
10283: p_In_out => 0);
10284: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
10286: x_return_status := FND_API.G_RET_STS_ERROR;
10287:
10288: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
10289: IF l_debug_level > 0 THEN
10290: oe_debug_pub.add( 'DELETE REQUEST11' , 2 ) ;
10291: END IF;
10292:
10293: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
10294: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
10308:
10309: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10310:
10311: IF l_debug_level > 0 THEN
10312: oe_debug_pub.add( 'PO: EXITING PROCESS ORDER WITH UNEXPECTED ERROR' , 2 ) ;
10313: END IF;
10314: set_recursion_mode(p_Entity_Code => 1,
10315: p_In_out => 0);
10316: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
10318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10319:
10320: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
10321: IF l_debug_level > 0 THEN
10322: oe_debug_pub.add( 'DELETE REQUEST12' , 2 ) ;
10323: END IF;
10324:
10325: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
10326: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
10341:
10342: WHEN OTHERS THEN
10343:
10344: IF l_debug_level > 0 THEN
10345: oe_debug_pub.add( 'PO: EXITING PROCESS ORDER WITH OTHERS ERROR' , 2 ) ;
10346: END IF;
10347: set_recursion_mode(p_Entity_Code => 1,
10348: p_In_out => 0);
10349: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
10351: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10352:
10353: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
10354: IF l_debug_level > 0 THEN
10355: oe_debug_pub.add( 'DELETE REQUEST13' , 2 ) ;
10356: END IF;
10357:
10358: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
10359: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
10478: l_api_version_number CONSTANT NUMBER := 1.0;
10479: l_api_name CONSTANT VARCHAR2(30):= 'Lock_Order';
10480: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
10481: I NUMBER; -- Used for index.
10482: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
10483: BEGIN
10484:
10485: IF l_debug_level > 0 THEN
10486: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.LOCK_ORDER' , 1 ) ;
10482: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
10483: BEGIN
10484:
10485: IF l_debug_level > 0 THEN
10486: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.LOCK_ORDER' , 1 ) ;
10487: END IF;
10488: -- Standard call to check for call compatibility
10489:
10490: IF NOT FND_API.Compatible_API_Call
10889: );
10890:
10891: if p_x_line_tbl.count > 0 then
10892: IF l_debug_level > 0 THEN
10893: oe_debug_pub.add( 'LINE ID:'||P_X_LINE_TBL ( 1 ) .LINE_ID ) ;
10894: END IF;
10895: end if;
10896: IF l_debug_level > 0 THEN
10897: oe_debug_pub.add( 'EXITING OE_ORDER_PUB.LOCK_ORDER' , 1 ) ;
10893: oe_debug_pub.add( 'LINE ID:'||P_X_LINE_TBL ( 1 ) .LINE_ID ) ;
10894: END IF;
10895: end if;
10896: IF l_debug_level > 0 THEN
10897: oe_debug_pub.add( 'EXITING OE_ORDER_PUB.LOCK_ORDER' , 1 ) ;
10898: END IF;
10899:
10900: EXCEPTION
10901:
11068: I2 NUMBER; --Used as index.
11069: I3 NUMBER; --Used as index.
11070: I4 NUMBER; --Used as index.
11071: I5 NUMBER; --Used as index.
11072: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
11073: BEGIN
11074:
11075: -- Standard call to check for call compatibility
11076:
11407: ) IS
11408: l_api_version_number number := 1.0;
11409: l_api_name Varchar2(30) := 'CANCEL_ORDER';
11410: l_return_status Varchar2(1);
11411: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
11412: Begin
11413: -- Standard call to check for call compatibility
11414:
11415: IF l_debug_level > 0 THEN
11412: Begin
11413: -- Standard call to check for call compatibility
11414:
11415: IF l_debug_level > 0 THEN
11416: oe_debug_pub.add( 'ENTERING OE_ORDER_PUB.CANCEL_ORDER' , 1 ) ;
11417: END IF;
11418:
11419: IF NOT FND_API.Compatible_API_Call
11420: ( l_api_version_number
11434: -- Initialize API return status to success
11435: x_return_status := FND_API.G_RET_STS_SUCCESS;
11436:
11437: IF l_debug_level > 0 THEN
11438: oe_debug_pub.add( 'CALLING OE_SALES_CAN_UTIL.CANCEL_LINE' , 2 ) ;
11439: END IF;
11440: /* OE_SALES_CAN_UTIL.Cancel_Line
11441: ( x_return_status => l_return_status
11442: ,x_msg_count => x_msg_count
11443: ,x_msg_data => x_msg_data
11444: ,x_can_req => x_can_req
11445: );*/
11446: IF l_debug_level > 0 THEN
11447: oe_debug_pub.add( 'COMPLETED OE_SALES_CAN_UTIL.CANCEL_LINE WITH STATUS ' || L_RETURN_STATUS , 2 ) ;
11448: END IF;
11449:
11450: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11451: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11453: RAISE FND_API.G_EXC_ERROR;
11454: END IF;
11455:
11456: IF l_debug_level > 0 THEN
11457: oe_debug_pub.add( 'EXITING OE_ORDER_PUB.CANCEL_ORDER' , 1 ) ;
11458: END IF;
11459:
11460: EXCEPTION
11461:
11492:
11493: PROCEDURE Print_Time(p_msg IN VARCHAR2)
11494: IS
11495: l_time VARCHAR2(100);
11496: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
11497: BEGIN
11498: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
11499: 'DD-MON-YY HH24:MI:SS');
11500: IF l_debug_level > 0 THEN
11497: BEGIN
11498: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
11499: 'DD-MON-YY HH24:MI:SS');
11500: IF l_debug_level > 0 THEN
11501: oe_debug_pub.add( P_MSG || ': '|| L_TIME , 1 ) ;
11502: END IF;
11503: END Print_Time;
11504:
11505:
11566: l_line_rec OE_Order_Pub.Line_Rec_Type;
11567: l_return_status VARCHAR2(1);
11568: l_frozen_model_bill VARCHAR2(1);
11569: l_old_behavior VARCHAR2(1);
11570: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
11571: --bug4015696
11572: l_msg_count NUMBER;
11573: l_msg_data VARCHAR2(2000);
11574: l_item_identifier_type VARCHAR2(25);
11623: END IF;
11624:
11625:
11626: IF l_debug_level > 0 THEN
11627: oe_debug_pub.add('COMP_SEQ_ID OF MODEL: ' || L_MODEL_SEQ_ID , 2 ) ;
11628: oe_debug_pub.add('COMPLETE ITEM: '|| P_X_LINE_REC.INVENTORY_ITEM_ID ,1);
11629: END IF;
11630:
11631:
11624:
11625:
11626: IF l_debug_level > 0 THEN
11627: oe_debug_pub.add('COMP_SEQ_ID OF MODEL: ' || L_MODEL_SEQ_ID , 2 ) ;
11628: oe_debug_pub.add('COMPLETE ITEM: '|| P_X_LINE_REC.INVENTORY_ITEM_ID ,1);
11629: END IF;
11630:
11631:
11632: BEGIN
11637: p_x_line_rec.configuration_id <> FND_API.G_MISS_NUM AND
11638: OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
11639:
11640: IF l_debug_level > 0 THEN
11641: oe_debug_pub.add( 'COMP_CONFIG VORDB: PACK H NEW LOGIC MI' , 1 ) ;
11642: oe_debug_pub.add( 'CFG_HDR '||P_X_LINE_REC.CONFIG_HEADER_ID , 3 ) ;
11643: oe_debug_pub.add( 'CFG_REV '||P_X_LINE_REC.CONFIG_REV_NBR , 3 ) ;
11644: oe_debug_pub.add( 'CFG_ID '||P_X_LINE_REC.CONFIGURATION_ID , 3 ) ;
11645: END IF;
11638: OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
11639:
11640: IF l_debug_level > 0 THEN
11641: oe_debug_pub.add( 'COMP_CONFIG VORDB: PACK H NEW LOGIC MI' , 1 ) ;
11642: oe_debug_pub.add( 'CFG_HDR '||P_X_LINE_REC.CONFIG_HEADER_ID , 3 ) ;
11643: oe_debug_pub.add( 'CFG_REV '||P_X_LINE_REC.CONFIG_REV_NBR , 3 ) ;
11644: oe_debug_pub.add( 'CFG_ID '||P_X_LINE_REC.CONFIGURATION_ID , 3 ) ;
11645: END IF;
11646:
11639:
11640: IF l_debug_level > 0 THEN
11641: oe_debug_pub.add( 'COMP_CONFIG VORDB: PACK H NEW LOGIC MI' , 1 ) ;
11642: oe_debug_pub.add( 'CFG_HDR '||P_X_LINE_REC.CONFIG_HEADER_ID , 3 ) ;
11643: oe_debug_pub.add( 'CFG_REV '||P_X_LINE_REC.CONFIG_REV_NBR , 3 ) ;
11644: oe_debug_pub.add( 'CFG_ID '||P_X_LINE_REC.CONFIGURATION_ID , 3 ) ;
11645: END IF;
11646:
11647: SELECT component_code, component_sequence_id, bom_sort_order,
11640: IF l_debug_level > 0 THEN
11641: oe_debug_pub.add( 'COMP_CONFIG VORDB: PACK H NEW LOGIC MI' , 1 ) ;
11642: oe_debug_pub.add( 'CFG_HDR '||P_X_LINE_REC.CONFIG_HEADER_ID , 3 ) ;
11643: oe_debug_pub.add( 'CFG_REV '||P_X_LINE_REC.CONFIG_REV_NBR , 3 ) ;
11644: oe_debug_pub.add( 'CFG_ID '||P_X_LINE_REC.CONFIGURATION_ID , 3 ) ;
11645: END IF;
11646:
11647: SELECT component_code, component_sequence_id, bom_sort_order,
11648: uom_code, bom_item_type
11655: AND config_item_id = p_x_line_rec.configuration_id;
11656:
11657: ELSE
11658: IF l_debug_level > 0 THEN
11659: oe_debug_pub.add( 'COMP_CONFIG VORDB: USING BOM_EXPLOSION' , 1 ) ;
11660: END IF;
11661:
11662: IF p_x_line_rec.component_code is not NULL AND
11663: p_x_line_rec.component_code <> FND_API.G_MISS_CHAR
11662: IF p_x_line_rec.component_code is not NULL AND
11663: p_x_line_rec.component_code <> FND_API.G_MISS_CHAR
11664: THEN
11665: IF l_debug_level > 0 THEN
11666: oe_debug_pub.add( 'COMPONENT CODE PASSED , SOMETHING ELSE NULL' , 3 ) ;
11667: END IF;
11668:
11669: SELECT component_code, component_sequence_id, sort_order,
11670: primary_uom_code, bom_item_type
11681: AND component_code = p_x_line_rec.component_code;
11682:
11683: ELSE
11684: IF l_debug_level > 0 THEN
11685: oe_debug_pub.add( 'COMPONENT CODE NOT PASSED' , 3 ) ;
11686: END IF;
11687:
11688: SELECT component_code, component_sequence_id, sort_order,
11689: primary_uom_code, bom_item_type
11702:
11703: EXCEPTION
11704: WHEN NO_DATA_FOUND THEN
11705: IF l_debug_level > 0 THEN
11706: oe_debug_pub.add( 'SELECT COMP_CODE FAILED , NO DATA FOUND ' , 1 ) ;
11707: oe_debug_pub.add( 'ITEM: '|| P_X_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
11708: END IF;
11709: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_ITEM_NOT_IN_BILL');
11710: --bug4015696
11703: EXCEPTION
11704: WHEN NO_DATA_FOUND THEN
11705: IF l_debug_level > 0 THEN
11706: oe_debug_pub.add( 'SELECT COMP_CODE FAILED , NO DATA FOUND ' , 1 ) ;
11707: oe_debug_pub.add( 'ITEM: '|| P_X_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
11708: END IF;
11709: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_ITEM_NOT_IN_BILL');
11710: --bug4015696
11711: IF p_x_line_rec.ordered_item IS NULL OR
11737: oe_msg_pub.add;
11738:
11739: IF p_process_partial THEN
11740: IF l_debug_level > 0 THEN /* Bug # 4036765 */
11741: oe_debug_pub.add( 'PROCESS PARTIAL IS TRUE' , 3 ) ;
11742: END IF;
11743: p_x_line_rec.return_status := FND_API.G_RET_STS_ERROR;
11744: p_x_line_rec.operation := OE_GLOBALS.G_OPR_NONE;
11745: OE_GLOBALS.G_FAIL_ORDER_IMPORT := TRUE; /* Bug # 4036765 */
11744: p_x_line_rec.operation := OE_GLOBALS.G_OPR_NONE;
11745: OE_GLOBALS.G_FAIL_ORDER_IMPORT := TRUE; /* Bug # 4036765 */
11746: ELSE
11747: IF l_debug_level > 0 THEN
11748: oe_debug_pub.add( 'PROCESS PARTIAL IS NOT TRUE' , 3 ) ;
11749: END IF;
11750: RAISE FND_API.G_EXC_ERROR;
11751: END IF;
11752:
11751: END IF;
11752:
11753: WHEN TOO_MANY_ROWS THEN
11754: IF l_debug_level > 0 THEN
11755: oe_debug_pub.add( 'SELECT COMP_CODE FAILED , TOO_MANY ROWS ' , 1 ) ;
11756: oe_debug_pub.add( 'ITEM: '|| P_X_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
11757: END IF;
11758:
11759: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_AMBIGUITY');
11752:
11753: WHEN TOO_MANY_ROWS THEN
11754: IF l_debug_level > 0 THEN
11755: oe_debug_pub.add( 'SELECT COMP_CODE FAILED , TOO_MANY ROWS ' , 1 ) ;
11756: oe_debug_pub.add( 'ITEM: '|| P_X_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
11757: END IF;
11758:
11759: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_AMBIGUITY');
11760: FND_MESSAGE.Set_Token('COMPONENT', p_x_line_rec.ordered_item);
11763: RAISE FND_API.G_EXC_ERROR;
11764:
11765: WHEN OTHERS THEN
11766: IF l_debug_level > 0 THEN
11767: oe_debug_pub.add( 'SELECT COMP_CODE FAILED , OTHERS ' , 1 ) ;
11768: oe_debug_pub.add( 'ITEM: '|| P_X_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
11769: END IF;
11770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11771: END;
11764:
11765: WHEN OTHERS THEN
11766: IF l_debug_level > 0 THEN
11767: oe_debug_pub.add( 'SELECT COMP_CODE FAILED , OTHERS ' , 1 ) ;
11768: oe_debug_pub.add( 'ITEM: '|| P_X_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
11769: END IF;
11770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11771: END;
11772:
11773:
11774: IF l_bom_item_type = 2 OR
11775: l_bom_item_type = 1 THEN
11776: IF l_debug_level > 0 THEN
11777: oe_debug_pub.add( 'THIS IS A CLASS' , 5 ) ;
11778: END IF;
11779: p_x_line_rec.item_type_code := OE_GLOBALS.G_ITEM_CLASS;
11780:
11781: ELSIF l_bom_item_type = 4 THEN
11779: p_x_line_rec.item_type_code := OE_GLOBALS.G_ITEM_CLASS;
11780:
11781: ELSIF l_bom_item_type = 4 THEN
11782: IF l_debug_level > 0 THEN
11783: oe_debug_pub.add( 'THIS IS A OPTION/KIT' , 1 ) ;
11784: END IF;
11785: ELSE
11786: IF l_debug_level > 0 THEN
11787: oe_debug_pub.add( 'INVALID ITEM TYPE' , 1 ) ;
11783: oe_debug_pub.add( 'THIS IS A OPTION/KIT' , 1 ) ;
11784: END IF;
11785: ELSE
11786: IF l_debug_level > 0 THEN
11787: oe_debug_pub.add( 'INVALID ITEM TYPE' , 1 ) ;
11788: END IF;
11789: END IF;
11790:
11791: IF l_debug_level > 0 THEN
11788: END IF;
11789: END IF;
11790:
11791: IF l_debug_level > 0 THEN
11792: oe_debug_pub.add( 'HDR/REV/ID '|| P_X_LINE_REC.CONFIG_HEADER_ID
11793: || P_X_LINE_REC.CONFIG_REV_NBR || P_X_LINE_REC.CONFIGURATION_ID ,1);
11794: END IF;
11795:
11796: Print_Time('leaving Complete_Config_Line');
11797:
11798: EXCEPTION
11799: WHEN OTHERS THEN
11800: IF l_debug_level > 0 THEN
11801: oe_debug_pub.add( 'COMPLETE_CONFIG_LINE EXCEPTIION '|| SQLERRM , 1 ) ;
11802: END IF;
11803: RAISE;
11804: END Complete_Config_Line;
11805:
11855: l_top_model_line_index NUMBER;
11856: l_bom_item_type NUMBER;
11857: l_frozen_model_bill VARCHAR2(1);
11858: l_old_behavior VARCHAR2(1);
11859: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
11860: BEGIN
11861: Print_Time('entering Get_Missing_Class_Lines');
11862:
11863:
11862:
11863:
11864: IF OE_Config_Util.G_Config_UI_Used = 'Y' THEN
11865: IF l_debug_level > 0 THEN
11866: oe_debug_pub.add( 'CONFIGURATOR/OW USED , SHOULD NOT COME HERE' , 1 ) ;
11867: END IF;
11868: RAISE FND_API.G_EXC_ERROR;
11869: END IF;
11870:
11878: LOOP
11879: l_option_index := p_options_index_tbl(I);
11880:
11881: IF l_debug_level > 0 THEN
11882: oe_debug_pub.add( 'I '|| I || ' '
11883: || P_X_LINE_TBL ( L_OPTION_INDEX ) .TOP_MODEL_LINE_ID , 3 ) ;
11884: oe_debug_pub.add( L_OPTION_INDEX || ' '
11885: || P_X_LINE_TBL ( L_OPTION_INDEX ) .COMPONENT_CODE , 3 ) ;
11886: END IF;
11880:
11881: IF l_debug_level > 0 THEN
11882: oe_debug_pub.add( 'I '|| I || ' '
11883: || P_X_LINE_TBL ( L_OPTION_INDEX ) .TOP_MODEL_LINE_ID , 3 ) ;
11884: oe_debug_pub.add( L_OPTION_INDEX || ' '
11885: || P_X_LINE_TBL ( L_OPTION_INDEX ) .COMPONENT_CODE , 3 ) ;
11886: END IF;
11887:
11888: l_component_code := SUBSTR(p_x_line_tbl(l_option_index).component_code, 1,
11891: WHILE l_component_code is not NULL
11892: LOOP
11893:
11894: IF l_debug_level > 0 THEN
11895: oe_debug_pub.add( 'CHECK IF EXIST: ' || L_COMPONENT_CODE , 1 ) ;
11896: END IF;
11897:
11898: BEGIN
11899:
11907:
11908: EXCEPTION
11909: WHEN no_data_found THEN
11910: IF l_debug_level > 0 THEN
11911: oe_debug_pub.add( 'NO DATA FOUND' , 3 ) ;
11912: END IF;
11913:
11914: l_add_parent := TRUE;
11915:
11918: WHILE J is NOT NULL
11919: LOOP
11920: IF p_x_line_tbl(J).component_code = l_component_code THEN
11921: IF l_debug_level > 0 THEN
11922: oe_debug_pub.add( 'DO NOT ADD' , 3 ) ;
11923: END IF;
11924: l_add_parent := FALSE;
11925: END IF;
11926: J := p_x_line_tbl.NEXT(J);
11949: FND_API.G_MISS_NUM AND
11950: OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
11951:
11952: IF l_debug_level > 0 THEN
11953: oe_debug_pub.add( 'VORDB: PACK H NEW LOGIC MI' , 1 ) ;
11954: END IF;
11955:
11956: IF l_debug_level > 0 THEN
11957: oe_debug_pub.add('CFG_HDR '
11953: oe_debug_pub.add( 'VORDB: PACK H NEW LOGIC MI' , 1 ) ;
11954: END IF;
11955:
11956: IF l_debug_level > 0 THEN
11957: oe_debug_pub.add('CFG_HDR '
11958: ||P_X_LINE_TBL ( L_OPTION_INDEX ) .CONFIG_HEADER_ID , 3 ) ;
11959: oe_debug_pub.add('CFG_REV '
11960: ||P_X_LINE_TBL ( L_OPTION_INDEX ) .CONFIG_REV_NBR , 3 ) ;
11961: oe_debug_pub.add('CFG_ID '
11955:
11956: IF l_debug_level > 0 THEN
11957: oe_debug_pub.add('CFG_HDR '
11958: ||P_X_LINE_TBL ( L_OPTION_INDEX ) .CONFIG_HEADER_ID , 3 ) ;
11959: oe_debug_pub.add('CFG_REV '
11960: ||P_X_LINE_TBL ( L_OPTION_INDEX ) .CONFIG_REV_NBR , 3 ) ;
11961: oe_debug_pub.add('CFG_ID '
11962: ||P_X_LINE_TBL ( L_OPTION_INDEX ) .CONFIGURATION_ID , 3 ) ;
11963: END IF;
11957: oe_debug_pub.add('CFG_HDR '
11958: ||P_X_LINE_TBL ( L_OPTION_INDEX ) .CONFIG_HEADER_ID , 3 ) ;
11959: oe_debug_pub.add('CFG_REV '
11960: ||P_X_LINE_TBL ( L_OPTION_INDEX ) .CONFIG_REV_NBR , 3 ) ;
11961: oe_debug_pub.add('CFG_ID '
11962: ||P_X_LINE_TBL ( L_OPTION_INDEX ) .CONFIGURATION_ID , 3 ) ;
11963: END IF;
11964:
11965: BEGIN
11981: = p_x_line_tbl(l_option_index).configuration_id;
11982: EXCEPTION
11983: WHEN TOO_MANY_ROWS THEN
11984: IF l_debug_level > 0 THEN
11985: oe_debug_pub.add( 'CZ TOO_MANY_ROWS ' , 1 ) ;
11986: END IF;
11987: RAISE;
11988: WHEN NO_DATA_FOUND THEN
11989: IF l_debug_level > 0 THEN
11986: END IF;
11987: RAISE;
11988: WHEN NO_DATA_FOUND THEN
11989: IF l_debug_level > 0 THEN
11990: oe_debug_pub.add( 'CZ NO_DATA_FOUND' , 1 ) ;
11991: END IF;
11992: RAISE;
11993: WHEN OTHERS THEN
11994: IF l_debug_level > 0 THEN
11991: END IF;
11992: RAISE;
11993: WHEN OTHERS THEN
11994: IF l_debug_level > 0 THEN
11995: oe_debug_pub.add( 'CZ OTHERS' , 1 ) ;
11996: END IF;
11997: RAISE;
11998: END;
11999: ELSE
11997: RAISE;
11998: END;
11999: ELSE
12000: IF l_debug_level > 0 THEN
12001: oe_debug_pub.add( 'VORDB: USE BOX_EXPLOSINS' , 3 ) ;
12002: END IF;
12003:
12004: IF l_rev_date is NULL THEN
12005:
12060:
12061: IF l_bom_item_type = 2 OR
12062: l_bom_item_type = 1 THEN
12063: IF l_debug_level > 0 THEN
12064: oe_debug_pub.add( 'THIS IS A CLASS' , 5 ) ;
12065: END IF;
12066: p_x_line_tbl(l_index).item_type_code
12067: := OE_GLOBALS.G_ITEM_CLASS;
12068: END IF;
12067: := OE_GLOBALS.G_ITEM_CLASS;
12068: END IF;
12069:
12070: IF l_debug_level > 0 THEN
12071: oe_debug_pub.add( 'GET ORDERED ITEM NAME' , 3 ) ;
12072: END IF;
12073:
12074: BEGIN
12075: SELECT concatenated_segments
12079: AND organization_id = l_validation_org;
12080: EXCEPTION
12081: WHEN NO_DATA_FOUND THEN
12082: IF l_debug_level > 0 THEN
12083: oe_debug_pub.add( 'NAME OF THE ITEM NOT FOUND' , 1 ) ;
12084: END IF;
12085: RAISE FND_API.G_EXC_ERROR;
12086: END;
12087:
12085: RAISE FND_API.G_EXC_ERROR;
12086: END;
12087:
12088: IF l_debug_level > 0 THEN
12089: oe_debug_pub.add
12090: ('ADDED'||P_X_LINE_TBL(L_INDEX).INVENTORY_ITEM_ID,3);
12091: END IF;
12092:
12093: END IF; -- if add_parent = true
12096: IF p_x_line_tbl(l_option_index).config_header_id is not NULL AND
12097: p_x_line_tbl(l_option_index).configuration_id is not NULL AND
12098: OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
12099: IF l_debug_level > 0 THEN
12100: oe_debug_pub.add
12101: ('TOO MANY ROWS IN MISSING_CLASSES: PACK H NEW MI',1);
12102: END IF;
12103: ELSE
12104: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_MI_NOT_ALLOWED');
12113: END IF;
12114:
12115: WHEN OTHERS THEN
12116: IF l_debug_level > 0 THEN
12117: oe_debug_pub.add( 'OTHERS IN MISSING_CLASSES '|| SQLERRM , 1 ) ;
12118: END IF;
12119: RAISE;
12120: END; -- to check if this comp exists
12121:
12138:
12139: EXCEPTION
12140: WHEN OTHERS THEN
12141: IF l_debug_level > 0 THEN
12142: oe_debug_pub.add('ERROR IN GET_MISSING_CLASS_LINES '|| SQLERRM,1);
12143: END IF;
12144: RAISE;
12145: END Get_Missing_Class_Lines;
12146: