[Home] [Help]
371: PROCEDURE Header
372: -----------------------------------------------------------------------*/
373:
374: PROCEDURE Header
375: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
376: , p_validation_level IN NUMBER
377: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
378: , p_x_header_rec IN OUT NOCOPY OE_Order_PUB.Header_Rec_Type
379: , p_x_old_header_rec IN OUT NOCOPY OE_Order_PUB.Header_Rec_Type
398: --
399: BEGIN
400: --Moac changes start
401: l_org_id := MO_GLOBAL.get_current_org_id;
402: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
403: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
404: OE_MSG_PUB.Add;
405: RAISE FND_API.G_EXC_ERROR;
406: END IF;
401: l_org_id := MO_GLOBAL.get_current_org_id;
402: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
403: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
404: OE_MSG_PUB.Add;
405: RAISE FND_API.G_EXC_ERROR;
406: END IF;
407: --Moac changes end
408: -- Initialize message list.
409: set_recursion_mode(p_Entity_Code => 2,
408: -- Initialize message list.
409: set_recursion_mode(p_Entity_Code => 2,
410: p_In_out => 1);
411:
412: IF FND_API.to_Boolean(p_init_msg_list) THEN
413: OE_MSG_PUB.initialize;
414: END IF;
415:
416: x_return_status := FND_API.G_RET_STS_SUCCESS;
412: IF FND_API.to_Boolean(p_init_msg_list) THEN
413: OE_MSG_PUB.initialize;
414: END IF;
415:
416: x_return_status := FND_API.G_RET_STS_SUCCESS;
417:
418: IF l_debug_level > 0 THEN
419: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.HEADER ' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
420: END IF;
426: IF l_debug_level > 0 THEN
427: oe_debug_pub.add( 'BEFORE CALLING VALID UPGRADE ORDER' , 2 ) ;
428: END IF;
429: IF NOT Valid_Upgraded_Order(p_x_header_rec.header_id ) THEN
430: RAISE FND_API.G_EXC_ERROR;
431: END IF;
432:
433: END IF;
434:
431: END IF;
432:
433: END IF;
434:
435: IF p_x_old_header_rec.header_id = FND_API.G_MISS_NUM
436: OR p_x_old_header_rec.header_id IS NULL
437: THEN
438:
439: OE_MSG_PUB.set_msg_context(
479: END IF;
480:
481: -- Set record return status.
482:
483: p_x_header_rec.return_status := FND_API.G_RET_STS_SUCCESS;
484:
485: -- Prepare record.
486:
487: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
488:
489: IF l_debug_level > 0 THEN
490: oe_debug_pub.add( 'OPERATION = CREATE SO SET OLD TO NULL' , 2 ) ;
491: END IF;
492: p_x_header_rec.db_flag := FND_API.G_FALSE;
493:
494: -- Set missing old record elements to NULL.
495:
496: OE_Header_Util.Convert_Miss_To_Null (p_x_old_header_rec);
502: IF l_debug_level > 0 THEN
503: oe_debug_pub.add( 'OPERATION = UPDATE SO QUERY OLD' , 2 ) ;
504: END IF;
505:
506: p_x_header_rec.db_flag := FND_API.G_TRUE;
507:
508: -- Query Old if missing
509:
510: IF p_x_old_header_rec.header_id = FND_API.G_MISS_NUM
506: p_x_header_rec.db_flag := FND_API.G_TRUE;
507:
508: -- Query Old if missing
509:
510: IF p_x_old_header_rec.header_id = FND_API.G_MISS_NUM
511: OR p_x_old_header_rec.header_id IS NULL
512: THEN
513: IF l_debug_level > 0 THEN
514: oe_debug_pub.add( 'QUERYING OLD HEADER REC' ,0.5 ) ; --debug level 0.5 added for bug 13435459
585: IF l_debug_level > 0 THEN
586: oe_debug_pub.add( 'AFTER CHECK ATTRIBUTES SECURITY',0.5 ) ; -- debug added for bug 13435459
587: END IF;
588:
589: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
591: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
592: RAISE FND_API.G_EXC_ERROR;
593: END IF;
586: oe_debug_pub.add( 'AFTER CHECK ATTRIBUTES SECURITY',0.5 ) ; -- debug added for bug 13435459
587: END IF;
588:
589: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
591: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
592: RAISE FND_API.G_EXC_ERROR;
593: END IF;
594:
587: END IF;
588:
589: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
591: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
592: RAISE FND_API.G_EXC_ERROR;
593: END IF;
594:
595: IF l_sec_result = OE_PC_GLOBALS.YES THEN
588:
589: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
591: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
592: RAISE FND_API.G_EXC_ERROR;
593: END IF;
594:
595: IF l_sec_result = OE_PC_GLOBALS.YES THEN
596: RAISE FND_API.G_EXC_ERROR;
592: RAISE FND_API.G_EXC_ERROR;
593: END IF;
594:
595: IF l_sec_result = OE_PC_GLOBALS.YES THEN
596: RAISE FND_API.G_EXC_ERROR;
597: END IF;
598:
599: END IF;
600:
599: END IF;
600:
601: -- Attribute level validation.
602:
603: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
604:
605: IF l_debug_level > 0 THEN
606: oe_debug_pub.add( 'CALLING VALIDATE ATTRIBUTES' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
607: END IF;
617: oe_debug_pub.add( 'AFTER VALIDATE ATTRIBUTES' , 0.5 ) ; -- debug added for bug 13435459
618: END IF;
619:
620: IF p_validation_level <> OE_GLOBALS.G_VALID_LEVEL_PARTIAL THEN
621: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
623: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
624: RAISE FND_API.G_EXC_ERROR;
625: END IF;
618: END IF;
619:
620: IF p_validation_level <> OE_GLOBALS.G_VALID_LEVEL_PARTIAL THEN
621: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
623: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
624: RAISE FND_API.G_EXC_ERROR;
625: END IF;
626: END IF;
619:
620: IF p_validation_level <> OE_GLOBALS.G_VALID_LEVEL_PARTIAL THEN
621: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
623: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
624: RAISE FND_API.G_EXC_ERROR;
625: END IF;
626: END IF;
627: END IF;
620: IF p_validation_level <> OE_GLOBALS.G_VALID_LEVEL_PARTIAL THEN
621: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
623: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
624: RAISE FND_API.G_EXC_ERROR;
625: END IF;
626: END IF;
627: END IF;
628:
718: IF l_debug_level > 0 THEN
719: oe_debug_pub.add( 'AFTER VALIDATE ENTITY' , 0.5 ) ; -- debug added for bug 13435459
720: END IF;
721:
722: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
724: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
725: RAISE FND_API.G_EXC_ERROR;
726: END IF;
719: oe_debug_pub.add( 'AFTER VALIDATE ENTITY' , 0.5 ) ; -- debug added for bug 13435459
720: END IF;
721:
722: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
724: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
725: RAISE FND_API.G_EXC_ERROR;
726: END IF;
727:
720: END IF;
721:
722: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
724: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
725: RAISE FND_API.G_EXC_ERROR;
726: END IF;
727:
728: END IF;
721:
722: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
724: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
725: RAISE FND_API.G_EXC_ERROR;
726: END IF;
727:
728: END IF;
729:
755: IF l_debug_level > 0 THEN
756: oe_debug_pub.add( 'AFTER CHECK ENTITY SECURITY' ,0.5 ) ; --debug added for bug 13435459
757: END IF;
758:
759: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
761: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
762: RAISE FND_API.G_EXC_ERROR;
763: END IF;
756: oe_debug_pub.add( 'AFTER CHECK ENTITY SECURITY' ,0.5 ) ; --debug added for bug 13435459
757: END IF;
758:
759: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
761: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
762: RAISE FND_API.G_EXC_ERROR;
763: END IF;
764:
757: END IF;
758:
759: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
761: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
762: RAISE FND_API.G_EXC_ERROR;
763: END IF;
764:
765: IF l_sec_result = OE_PC_GLOBALS.YES THEN
758:
759: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
761: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
762: RAISE FND_API.G_EXC_ERROR;
763: END IF;
764:
765: IF l_sec_result = OE_PC_GLOBALS.YES THEN
766: RAISE FND_API.G_EXC_ERROR;
762: RAISE FND_API.G_EXC_ERROR;
763: END IF;
764:
765: IF l_sec_result = OE_PC_GLOBALS.YES THEN
766: RAISE FND_API.G_EXC_ERROR;
767: END IF;
768:
769: END IF;
770:
793: p_x_header_rec.last_update_date := SYSDATE;
794: p_x_header_rec.last_updated_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
795: p_x_header_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
796:
797: IF p_x_header_rec.credit_card_approval_date = FND_API.G_MISS_DATE THEN
798: p_x_header_rec.credit_card_approval_date := NULL;
799: END IF;
800:
801: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
839:
840: END IF;
841:
842: -- Load OUT parameters
843: p_x_header_rec.return_status := FND_API.G_RET_STS_SUCCESS;
844:
845: OE_Header_Security.g_check_all_cols_constraint := 'Y';
846:
847: IF l_debug_level > 0 THEN
853: p_In_out => 0);
854:
855: EXCEPTION
856:
857: WHEN FND_API.G_EXC_ERROR THEN
858:
859: set_recursion_mode(p_Entity_Code => 2,
860: p_In_out => 0);
861: p_x_header_rec.return_status := FND_API.G_RET_STS_ERROR;
857: WHEN FND_API.G_EXC_ERROR THEN
858:
859: set_recursion_mode(p_Entity_Code => 2,
860: p_In_out => 0);
861: p_x_header_rec.return_status := FND_API.G_RET_STS_ERROR;
862: x_return_status := FND_API.G_RET_STS_ERROR;
863: OE_Header_Security.g_check_all_cols_constraint := 'Y';
864: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
865: IF l_debug_level > 0 THEN
858:
859: set_recursion_mode(p_Entity_Code => 2,
860: p_In_out => 0);
861: p_x_header_rec.return_status := FND_API.G_RET_STS_ERROR;
862: x_return_status := FND_API.G_RET_STS_ERROR;
863: OE_Header_Security.g_check_all_cols_constraint := 'Y';
864: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
865: IF l_debug_level > 0 THEN
866: oe_debug_pub.add( 'DELETE REQUEST1' , 2 ) ;
869: (x_return_status => l_return_status);
870: END IF;
871: OE_MSG_PUB.reset_msg_context('HEADER');
872:
873: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
874:
875: set_recursion_mode(p_Entity_Code => 2,
876: p_In_out => 0);
877: p_x_header_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
873: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
874:
875: set_recursion_mode(p_Entity_Code => 2,
876: p_In_out => 0);
877: p_x_header_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
879: OE_Header_Security.g_check_all_cols_constraint := 'Y';
880: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
881: IF l_debug_level > 0 THEN
874:
875: set_recursion_mode(p_Entity_Code => 2,
876: p_In_out => 0);
877: p_x_header_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
879: OE_Header_Security.g_check_all_cols_constraint := 'Y';
880: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
881: IF l_debug_level > 0 THEN
882: oe_debug_pub.add( 'DELETE REQUEST2' , 2 ) ;
897: , 'Header'
898: );
899: END IF;
900:
901: p_x_header_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
902: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
903: OE_Header_Security.g_check_all_cols_constraint := 'Y';
904: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
905: IF l_debug_level > 0 THEN
898: );
899: END IF;
900:
901: p_x_header_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
902: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
903: OE_Header_Security.g_check_all_cols_constraint := 'Y';
904: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
905: IF l_debug_level > 0 THEN
906: oe_debug_pub.add( 'DELETE REQUEST3' , 2 ) ;
917: /*-------------------------------------------------------------------
918: PROCEDURE Header_Scredits
919: -------------------------------------------------------------------*/
920: PROCEDURE Header_Scredits
921: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
922: , p_validation_level IN NUMBER
923: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
924: , p_x_Header_Scredit_tbl IN OUT NOCOPY OE_Order_PUB.Header_Scredit_Tbl_Type
925: , p_x_old_Header_Scredit_tbl IN OUT NOCOPY OE_Order_PUB.Header_Scredit_Tbl_Type
953: BEGIN
954:
955: --MOAC changes start
956: l_org_id := MO_GLOBAL.get_current_org_id;
957: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
958: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
959: OE_MSG_PUB.Add;
960: RAISE FND_API.G_EXC_ERROR;
961: END IF;
956: l_org_id := MO_GLOBAL.get_current_org_id;
957: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
958: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
959: OE_MSG_PUB.Add;
960: RAISE FND_API.G_EXC_ERROR;
961: END IF;
962: --MOAC changes end
963:
964: set_recursion_mode(p_Entity_Code => 4,
962: --MOAC changes end
963:
964: set_recursion_mode(p_Entity_Code => 4,
965: p_In_out => 1);
966: x_return_status := FND_API.G_RET_STS_SUCCESS;
967:
968: -- Initialize message list.
969:
970: IF FND_API.to_Boolean(p_init_msg_list) THEN
966: x_return_status := FND_API.G_RET_STS_SUCCESS;
967:
968: -- Initialize message list.
969:
970: IF FND_API.to_Boolean(p_init_msg_list) THEN
971: OE_MSG_PUB.initialize;
972: END IF;
973:
974: IF p_control_rec.Process_Partial THEN
997: ELSE
998: l_old_Header_Scredit_rec := OE_Order_PUB.G_MISS_HEADER_SCREDIT_REC;
999: END IF;
1000:
1001: if l_old_header_Scredit_rec.sales_credit_id = FND_API.G_MISS_NUM
1002: OR l_old_header_Scredit_rec.sales_credit_id IS NULL
1003: Then
1004:
1005: IF l_header_Scredit_rec.header_id IS NOT NULL AND
1002: OR l_old_header_Scredit_rec.sales_credit_id IS NULL
1003: Then
1004:
1005: IF l_header_Scredit_rec.header_id IS NOT NULL AND
1006: l_header_Scredit_rec.header_id <> FND_API.G_MISS_NUM THEN
1007: BEGIN
1008: IF l_debug_level > 0 THEN
1009: oe_debug_pub.add('Getting reference data for header_id:'||l_header_Scredit_rec.header_id);
1010: END IF;
1044: ,p_source_document_line_id => null );
1045:
1046: else
1047: IF l_old_header_Scredit_rec.header_id IS NOT NULL AND
1048: l_old_header_Scredit_rec.header_id <> FND_API.G_MISS_NUM THEN
1049:
1050: BEGIN
1051: IF l_debug_level > 0 THEN
1052: oe_debug_pub.add('Getting reference data for old header_id:'||l_old_header_Scredit_rec.header_id);
1097: );
1098:
1099: -- Set record return status.
1100:
1101: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1102:
1103: -- Prepare record.
1104:
1105: IF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1103: -- Prepare record.
1104:
1105: IF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1106:
1107: l_Header_Scredit_rec.db_flag := FND_API.G_FALSE;
1108:
1109: -- Set missing old record elements to NULL.
1110:
1111: OE_Header_Scredit_Util.Convert_Miss_To_Null (l_old_Header_Scredit_rec);
1113: ELSIF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1114: OR l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_DELETE
1115: THEN
1116:
1117: l_Header_Scredit_rec.db_flag := FND_API.G_TRUE;
1118:
1119: -- Query Old if missing
1120:
1121: IF l_old_Header_Scredit_rec.sales_credit_id = FND_API.G_MISS_NUM
1117: l_Header_Scredit_rec.db_flag := FND_API.G_TRUE;
1118:
1119: -- Query Old if missing
1120:
1121: IF l_old_Header_Scredit_rec.sales_credit_id = FND_API.G_MISS_NUM
1122: OR l_old_Header_Scredit_rec.sales_credit_id IS NULL
1123: THEN
1124:
1125: OE_Header_Scredit_Util.Query_Row
1151: END IF;
1152:
1153: IF I = p_x_header_scredit_tbl.FIRST THEN
1154: IF NOT Valid_Upgraded_Order(l_header_scredit_rec.header_id) THEN
1155: RAISE FND_API.G_EXC_ERROR;
1156: END IF;
1157: END IF;
1158:
1159: -- Check security
1173: , x_result => l_sec_result
1174: , x_return_status => l_return_status
1175: );
1176:
1177: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1179: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1180: RAISE FND_API.G_EXC_ERROR;
1181: END IF;
1174: , x_return_status => l_return_status
1175: );
1176:
1177: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1179: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1180: RAISE FND_API.G_EXC_ERROR;
1181: END IF;
1182:
1175: );
1176:
1177: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1179: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1180: RAISE FND_API.G_EXC_ERROR;
1181: END IF;
1182:
1183: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1176:
1177: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1179: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1180: RAISE FND_API.G_EXC_ERROR;
1181: END IF;
1182:
1183: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1184: RAISE FND_API.G_EXC_ERROR;
1180: RAISE FND_API.G_EXC_ERROR;
1181: END IF;
1182:
1183: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1184: RAISE FND_API.G_EXC_ERROR;
1185: END IF;
1186:
1187: END IF;
1188:
1187: END IF;
1188:
1189: -- Attribute level validation.
1190:
1191: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
1192:
1193: OE_Validate_Header_Scredit.Attributes
1194: ( x_return_status => l_return_status
1195: , p_Header_Scredit_rec => l_Header_Scredit_rec
1195: , p_Header_Scredit_rec => l_Header_Scredit_rec
1196: , p_old_Header_Scredit_rec => l_old_Header_Scredit_rec
1197: );
1198:
1199: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1201: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1202: RAISE FND_API.G_EXC_ERROR;
1203: END IF;
1196: , p_old_Header_Scredit_rec => l_old_Header_Scredit_rec
1197: );
1198:
1199: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1201: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1202: RAISE FND_API.G_EXC_ERROR;
1203: END IF;
1204:
1197: );
1198:
1199: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1201: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1202: RAISE FND_API.G_EXC_ERROR;
1203: END IF;
1204:
1205: END IF;
1198:
1199: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1201: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1202: RAISE FND_API.G_EXC_ERROR;
1203: END IF;
1204:
1205: END IF;
1206:
1260: );
1261:
1262: END IF;
1263:
1264: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1266: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1267: RAISE FND_API.G_EXC_ERROR;
1268: END IF;
1261:
1262: END IF;
1263:
1264: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1266: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1267: RAISE FND_API.G_EXC_ERROR;
1268: END IF;
1269:
1262: END IF;
1263:
1264: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1266: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1267: RAISE FND_API.G_EXC_ERROR;
1268: END IF;
1269:
1270: END IF;
1263:
1264: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1266: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1267: RAISE FND_API.G_EXC_ERROR;
1268: END IF;
1269:
1270: END IF;
1271:
1292: , x_result => l_sec_result
1293: , x_return_status => l_return_status
1294: );
1295:
1296: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1298: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1299: RAISE FND_API.G_EXC_ERROR;
1300: END IF;
1293: , x_return_status => l_return_status
1294: );
1295:
1296: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1298: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1299: RAISE FND_API.G_EXC_ERROR;
1300: END IF;
1301:
1294: );
1295:
1296: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1298: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1299: RAISE FND_API.G_EXC_ERROR;
1300: END IF;
1301:
1302: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1295:
1296: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1298: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1299: RAISE FND_API.G_EXC_ERROR;
1300: END IF;
1301:
1302: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1303: RAISE FND_API.G_EXC_ERROR;
1299: RAISE FND_API.G_EXC_ERROR;
1300: END IF;
1301:
1302: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1303: RAISE FND_API.G_EXC_ERROR;
1304: END IF;
1305:
1306: END IF;
1307:
1361: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1362: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1363:
1364: -- loop exception handler.
1365: IF l_header_scredit_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1367: ELSIF l_header_scredit_rec.return_status = FND_API.G_RET_STS_ERROR THEN
1368: RAISE FND_API.G_EXC_ERROR;
1369: END IF;
1362: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1363:
1364: -- loop exception handler.
1365: IF l_header_scredit_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1367: ELSIF l_header_scredit_rec.return_status = FND_API.G_RET_STS_ERROR THEN
1368: RAISE FND_API.G_EXC_ERROR;
1369: END IF;
1370:
1363:
1364: -- loop exception handler.
1365: IF l_header_scredit_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1367: ELSIF l_header_scredit_rec.return_status = FND_API.G_RET_STS_ERROR THEN
1368: RAISE FND_API.G_EXC_ERROR;
1369: END IF;
1370:
1371: -- Load tables.
1364: -- loop exception handler.
1365: IF l_header_scredit_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1367: ELSIF l_header_scredit_rec.return_status = FND_API.G_RET_STS_ERROR THEN
1368: RAISE FND_API.G_EXC_ERROR;
1369: END IF;
1370:
1371: -- Load tables.
1372:
1369: END IF;
1370:
1371: -- Load tables.
1372:
1373: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1374: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1375: p_x_old_Header_Scredit_tbl(I) := l_old_Header_Scredit_rec;
1376:
1377:
1376:
1377:
1378: EXCEPTION
1379:
1380: WHEN FND_API.G_EXC_ERROR THEN
1381:
1382: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_ERROR;
1383: x_return_status := FND_API.G_RET_STS_ERROR;
1384: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1378: EXCEPTION
1379:
1380: WHEN FND_API.G_EXC_ERROR THEN
1381:
1382: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_ERROR;
1383: x_return_status := FND_API.G_RET_STS_ERROR;
1384: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1385: p_x_old_Header_Scredit_tbl(I) := l_old_Header_Scredit_rec;
1386:
1379:
1380: WHEN FND_API.G_EXC_ERROR THEN
1381:
1382: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_ERROR;
1383: x_return_status := FND_API.G_RET_STS_ERROR;
1384: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1385: p_x_old_Header_Scredit_tbl(I) := l_old_Header_Scredit_rec;
1386:
1387: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1400: ROLLBACK TO SAVEPOINT Header_Scredits;
1401: ELSE
1402: --bug 5331854
1403: IF OE_GLOBALS.G_UI_FLAG AND
1404: l_del_ret_status = FND_API.G_RET_STS_ERROR THEN
1405: ROLLBACK TO SAVEPOINT DELETE_SCREDIT_FAILED;
1406: END IF;
1407: --bug 5331854
1408: RAISE FND_API.G_EXC_ERROR;
1404: l_del_ret_status = FND_API.G_RET_STS_ERROR THEN
1405: ROLLBACK TO SAVEPOINT DELETE_SCREDIT_FAILED;
1406: END IF;
1407: --bug 5331854
1408: RAISE FND_API.G_EXC_ERROR;
1409: END IF;
1410:
1411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1412:
1407: --bug 5331854
1408: RAISE FND_API.G_EXC_ERROR;
1409: END IF;
1410:
1411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1412:
1413: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1415: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1409: END IF;
1410:
1411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1412:
1413: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1415: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1416: p_x_old_Header_Scredit_tbl(I) := l_old_Header_Scredit_rec;
1417: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1410:
1411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1412:
1413: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1415: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1416: p_x_old_Header_Scredit_tbl(I) := l_old_Header_Scredit_rec;
1417: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1418: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1415: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1416: p_x_old_Header_Scredit_tbl(I) := l_old_Header_Scredit_rec;
1417: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1418: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1420:
1421: WHEN OTHERS THEN
1422:
1423: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1420:
1421: WHEN OTHERS THEN
1422:
1423: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1425: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1426: p_x_old_Header_Scredit_tbl(I) := l_old_Header_Scredit_rec;
1427:
1420:
1421: WHEN OTHERS THEN
1422:
1423: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1425: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1426: p_x_old_Header_Scredit_tbl(I) := l_old_Header_Scredit_rec;
1427:
1428: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1434: );
1435: END IF;
1436:
1437: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1438: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1439:
1440: END;
1441: I := p_x_Header_Scredit_tbl.NEXT(I);
1442: END LOOP;
1449: set_recursion_mode(p_Entity_Code => 4,
1450: p_In_out => 0);
1451: EXCEPTION
1452:
1453: WHEN FND_API.G_EXC_ERROR THEN
1454:
1455: set_recursion_mode(p_Entity_Code => 4,
1456: p_In_out => 0);
1457: x_return_status := FND_API.G_RET_STS_ERROR;
1453: WHEN FND_API.G_EXC_ERROR THEN
1454:
1455: set_recursion_mode(p_Entity_Code => 4,
1456: p_In_out => 0);
1457: x_return_status := FND_API.G_RET_STS_ERROR;
1458: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1459: IF l_debug_level > 0 THEN
1460: oe_debug_pub.add( 'DELETE REQUEST5' , 2 ) ;
1461: END IF;
1463: (x_return_status => l_return_status);
1464: END IF;
1465: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1466:
1467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1468:
1469: set_recursion_mode(p_Entity_Code => 4,
1470: p_In_out => 0);
1471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1468:
1469: set_recursion_mode(p_Entity_Code => 4,
1470: p_In_out => 0);
1471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1472: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1473: IF l_debug_level > 0 THEN
1474: oe_debug_pub.add( 'DELETE REQUEST6' , 2 ) ;
1475: END IF;
1481: WHEN OTHERS THEN
1482:
1483: set_recursion_mode(p_Entity_Code => 4,
1484: p_In_out => 0);
1485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1486: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1487: IF l_debug_level > 0 THEN
1488: oe_debug_pub.add( 'DELETE REQUEST7' , 2 ) ;
1489: END IF;
1507: /*-------------------------------------------------------------------
1508: PROCEDURE Header_Payments
1509: -------------------------------------------------------------------*/
1510: PROCEDURE Header_Payments
1511: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1512: , p_validation_level IN NUMBER
1513: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
1514: , p_x_Header_Payment_tbl IN OUT NOCOPY OE_Order_PUB.Header_Payment_Tbl_Type
1515: , p_x_old_Header_Payment_tbl IN OUT NOCOPY OE_Order_PUB.Header_Payment_Tbl_Type
1538: BEGIN
1539:
1540: --MOAC changes start
1541: l_org_id := MO_GLOBAL.get_current_org_id;
1542: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
1543: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
1544: OE_MSG_PUB.Add;
1545: RAISE FND_API.G_EXC_ERROR;
1546: END IF;
1541: l_org_id := MO_GLOBAL.get_current_org_id;
1542: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
1543: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
1544: OE_MSG_PUB.Add;
1545: RAISE FND_API.G_EXC_ERROR;
1546: END IF;
1547: --MOAC changes end
1548:
1549: x_return_status := FND_API.G_RET_STS_SUCCESS;
1545: RAISE FND_API.G_EXC_ERROR;
1546: END IF;
1547: --MOAC changes end
1548:
1549: x_return_status := FND_API.G_RET_STS_SUCCESS;
1550:
1551: -- Initialize message list.
1552:
1553: IF FND_API.to_Boolean(p_init_msg_list) THEN
1549: x_return_status := FND_API.G_RET_STS_SUCCESS;
1550:
1551: -- Initialize message list.
1552:
1553: IF FND_API.to_Boolean(p_init_msg_list) THEN
1554: OE_MSG_PUB.initialize;
1555: END IF;
1556:
1557: IF p_control_rec.Process_Partial THEN
1580: ELSE
1581: l_old_Header_Payment_rec := OE_Order_PUB.G_MISS_HEADER_PAYMENT_REC;
1582: END IF;
1583:
1584: if l_old_header_Payment_rec.payment_number = FND_API.G_MISS_NUM
1585: OR l_old_header_Payment_rec.payment_number IS NULL
1586: Then
1587:
1588: IF l_header_Payment_rec.header_id IS NOT NULL AND
1585: OR l_old_header_Payment_rec.payment_number IS NULL
1586: Then
1587:
1588: IF l_header_Payment_rec.header_id IS NOT NULL AND
1589: l_header_Payment_rec.header_id <> FND_API.G_MISS_NUM THEN
1590: BEGIN
1591: IF l_debug_level > 0 THEN
1592: oe_debug_pub.add('Getting reference data for header_id:'||l_header_Payment_rec.header_id);
1593: END IF;
1627: ,p_source_document_line_id => null );
1628:
1629: else
1630: IF l_old_header_Payment_rec.header_id IS NOT NULL AND
1631: l_old_header_Payment_rec.header_id <> FND_API.G_MISS_NUM THEN
1632:
1633: BEGIN
1634: IF l_debug_level > 0 THEN
1635: oe_debug_pub.add('Getting reference data for old header_id:'||l_old_header_Payment_rec.header_id);
1680: );
1681:
1682: -- Set record return status.
1683:
1684: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1685:
1686: -- Prepare record.
1687:
1688: IF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1686: -- Prepare record.
1687:
1688: IF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1689:
1690: l_Header_Payment_rec.db_flag := FND_API.G_FALSE;
1691:
1692: -- Set missing old record elements to NULL.
1693:
1694: IF l_debug_level > 0 THEN
1702: ELSIF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1703: OR l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE
1704: THEN
1705:
1706: l_Header_Payment_rec.db_flag := FND_API.G_TRUE;
1707:
1708: -- Query Old if missing
1709:
1710: IF l_old_Header_Payment_rec.payment_number = FND_API.G_MISS_NUM
1706: l_Header_Payment_rec.db_flag := FND_API.G_TRUE;
1707:
1708: -- Query Old if missing
1709:
1710: IF l_old_Header_Payment_rec.payment_number = FND_API.G_MISS_NUM
1711: OR l_old_Header_Payment_rec.payment_number IS NULL
1712: THEN
1713:
1714: IF l_debug_level > 0 THEN
1759: END IF;
1760:
1761: IF I = p_x_header_Payment_tbl.FIRST THEN
1762: IF NOT Valid_Upgraded_Order(l_header_Payment_rec.header_id) THEN
1763: RAISE FND_API.G_EXC_ERROR;
1764: END IF;
1765: END IF;
1766:
1767: -- Check security
1787: IF l_debug_level > 0 THEN
1788: oe_debug_pub.add('Payment:after OE_Header_Payment_Security.Attributes', 5);
1789: END IF;
1790:
1791: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1792: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1793: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1794: RAISE FND_API.G_EXC_ERROR;
1795: END IF;
1788: oe_debug_pub.add('Payment:after OE_Header_Payment_Security.Attributes', 5);
1789: END IF;
1790:
1791: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1792: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1793: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1794: RAISE FND_API.G_EXC_ERROR;
1795: END IF;
1796:
1789: END IF;
1790:
1791: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1792: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1793: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1794: RAISE FND_API.G_EXC_ERROR;
1795: END IF;
1796:
1797: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1790:
1791: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1792: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1793: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1794: RAISE FND_API.G_EXC_ERROR;
1795: END IF;
1796:
1797: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1798: RAISE FND_API.G_EXC_ERROR;
1794: RAISE FND_API.G_EXC_ERROR;
1795: END IF;
1796:
1797: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1798: RAISE FND_API.G_EXC_ERROR;
1799: END IF;
1800:
1801: END IF;
1802:
1801: END IF;
1802:
1803: -- Attribute level validation.
1804:
1805: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
1806: IF l_debug_level > 0 THEN
1807: oe_debug_pub.add('Payment:before OE_Validate_Header_Payment.Attributes', 5);
1808: END IF;
1809:
1815: IF l_debug_level > 0 THEN
1816: oe_debug_pub.add('Payment:after OE_Validate_Header_Payment.Attributes',5);
1817: END IF;
1818:
1819: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1821: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1822: RAISE FND_API.G_EXC_ERROR;
1823: END IF;
1816: oe_debug_pub.add('Payment:after OE_Validate_Header_Payment.Attributes',5);
1817: END IF;
1818:
1819: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1821: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1822: RAISE FND_API.G_EXC_ERROR;
1823: END IF;
1824:
1817: END IF;
1818:
1819: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1821: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1822: RAISE FND_API.G_EXC_ERROR;
1823: END IF;
1824:
1825: END IF;
1818:
1819: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1821: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1822: RAISE FND_API.G_EXC_ERROR;
1823: END IF;
1824:
1825: END IF;
1826:
1910: END IF;
1911:
1912: END IF;
1913:
1914: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1916: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1917: RAISE FND_API.G_EXC_ERROR;
1918: END IF;
1911:
1912: END IF;
1913:
1914: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1916: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1917: RAISE FND_API.G_EXC_ERROR;
1918: END IF;
1919:
1912: END IF;
1913:
1914: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1916: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1917: RAISE FND_API.G_EXC_ERROR;
1918: END IF;
1919:
1920: END IF;
1913:
1914: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1916: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1917: RAISE FND_API.G_EXC_ERROR;
1918: END IF;
1919:
1920: END IF;
1921:
1948: IF l_debug_level > 0 THEN
1949: oe_debug_pub.add('Payment:after OE_Header_Payment_Security.Entity', 5);
1950: END IF;
1951:
1952: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1953: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1954: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1955: RAISE FND_API.G_EXC_ERROR;
1956: END IF;
1949: oe_debug_pub.add('Payment:after OE_Header_Payment_Security.Entity', 5);
1950: END IF;
1951:
1952: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1953: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1954: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1955: RAISE FND_API.G_EXC_ERROR;
1956: END IF;
1957:
1950: END IF;
1951:
1952: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1953: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1954: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1955: RAISE FND_API.G_EXC_ERROR;
1956: END IF;
1957:
1958: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1951:
1952: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1953: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1954: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1955: RAISE FND_API.G_EXC_ERROR;
1956: END IF;
1957:
1958: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1959: RAISE FND_API.G_EXC_ERROR;
1955: RAISE FND_API.G_EXC_ERROR;
1956: END IF;
1957:
1958: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1959: RAISE FND_API.G_EXC_ERROR;
1960: END IF;
1961:
1962: END IF;
1963:
2024: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2025: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2026:
2027: -- loop exception handler.
2028: IF l_header_payment_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2030: ELSIF l_header_payment_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2031: RAISE FND_API.G_EXC_ERROR;
2032: END IF;
2025: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2026:
2027: -- loop exception handler.
2028: IF l_header_payment_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2030: ELSIF l_header_payment_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2031: RAISE FND_API.G_EXC_ERROR;
2032: END IF;
2033:
2026:
2027: -- loop exception handler.
2028: IF l_header_payment_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2030: ELSIF l_header_payment_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2031: RAISE FND_API.G_EXC_ERROR;
2032: END IF;
2033:
2034: -- Load tables.
2027: -- loop exception handler.
2028: IF l_header_payment_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2030: ELSIF l_header_payment_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2031: RAISE FND_API.G_EXC_ERROR;
2032: END IF;
2033:
2034: -- Load tables.
2035:
2032: END IF;
2033:
2034: -- Load tables.
2035:
2036: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_SUCCESS;
2037: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2038: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2039:
2040:
2039:
2040:
2041: EXCEPTION
2042:
2043: WHEN FND_API.G_EXC_ERROR THEN
2044:
2045: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_ERROR;
2046: x_return_status := FND_API.G_RET_STS_ERROR;
2047: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2041: EXCEPTION
2042:
2043: WHEN FND_API.G_EXC_ERROR THEN
2044:
2045: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_ERROR;
2046: x_return_status := FND_API.G_RET_STS_ERROR;
2047: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2048: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2049:
2042:
2043: WHEN FND_API.G_EXC_ERROR THEN
2044:
2045: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_ERROR;
2046: x_return_status := FND_API.G_RET_STS_ERROR;
2047: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2048: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2049:
2050: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2060: x_return_status => l_return_status);
2061: END IF;
2062: ROLLBACK TO SAVEPOINT Header_Payments;
2063: ELSE
2064: RAISE FND_API.G_EXC_ERROR;
2065: END IF;
2066:
2067: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2068:
2063: ELSE
2064: RAISE FND_API.G_EXC_ERROR;
2065: END IF;
2066:
2067: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2068:
2069: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2071: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2065: END IF;
2066:
2067: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2068:
2069: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2071: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2072: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2073: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2066:
2067: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2068:
2069: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2071: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2072: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2073: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2074: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2071: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2072: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2073: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2074: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2075: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2076:
2077: WHEN OTHERS THEN
2078:
2079: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2075: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2076:
2077: WHEN OTHERS THEN
2078:
2079: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2081: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2082: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2083:
2076:
2077: WHEN OTHERS THEN
2078:
2079: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2081: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2082: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2083:
2084: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2090: );
2091: END IF;
2092:
2093: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2094: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2095:
2096: END;
2097: I := p_x_Header_Payment_tbl.NEXT(I);
2098: END LOOP;
2103: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2104:
2105: EXCEPTION
2106:
2107: WHEN FND_API.G_EXC_ERROR THEN
2108:
2109: x_return_status := FND_API.G_RET_STS_ERROR;
2110: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2111: IF l_debug_level > 0 THEN
2105: EXCEPTION
2106:
2107: WHEN FND_API.G_EXC_ERROR THEN
2108:
2109: x_return_status := FND_API.G_RET_STS_ERROR;
2110: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2111: IF l_debug_level > 0 THEN
2112: oe_debug_pub.add( 'DELETE REQUEST5' , 2 ) ;
2113: END IF;
2115: (x_return_status => l_return_status);
2116: END IF;
2117: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2118:
2119: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2120:
2121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2122: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2123: IF l_debug_level > 0 THEN
2117: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2118:
2119: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2120:
2121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2122: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2123: IF l_debug_level > 0 THEN
2124: oe_debug_pub.add( 'DELETE REQUEST6' , 2 ) ;
2125: END IF;
2129: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2130:
2131: WHEN OTHERS THEN
2132:
2133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2134: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2135: IF l_debug_level > 0 THEN
2136: oe_debug_pub.add( 'DELETE REQUEST7' , 2 ) ;
2137: END IF;
2178: --
2179: BEGIN
2180:
2181: -- SERVICE line if service line identifiers are populated
2182: IF ( NVL(p_line_rec.service_reference_line_id,FND_API.G_MISS_NUM)
2183: <> FND_API.G_MISS_NUM
2184: OR NVL(p_line_rec.service_line_index,FND_API.G_MISS_NUM)
2185: <> FND_API.G_MISS_NUM )
2186: THEN
2179: BEGIN
2180:
2181: -- SERVICE line if service line identifiers are populated
2182: IF ( NVL(p_line_rec.service_reference_line_id,FND_API.G_MISS_NUM)
2183: <> FND_API.G_MISS_NUM
2184: OR NVL(p_line_rec.service_line_index,FND_API.G_MISS_NUM)
2185: <> FND_API.G_MISS_NUM )
2186: THEN
2187:
2180:
2181: -- SERVICE line if service line identifiers are populated
2182: IF ( NVL(p_line_rec.service_reference_line_id,FND_API.G_MISS_NUM)
2183: <> FND_API.G_MISS_NUM
2184: OR NVL(p_line_rec.service_line_index,FND_API.G_MISS_NUM)
2185: <> FND_API.G_MISS_NUM )
2186: THEN
2187:
2188: IF l_debug_level > 0 THEN
2181: -- SERVICE line if service line identifiers are populated
2182: IF ( NVL(p_line_rec.service_reference_line_id,FND_API.G_MISS_NUM)
2183: <> FND_API.G_MISS_NUM
2184: OR NVL(p_line_rec.service_line_index,FND_API.G_MISS_NUM)
2185: <> FND_API.G_MISS_NUM )
2186: THEN
2187:
2188: IF l_debug_level > 0 THEN
2189: oe_debug_pub.add( 'SERVICE LINE' , 1 ) ;
2190: END IF;
2191: RETURN 3;
2192:
2193: -- Top model line identifiers are populated
2194: ELSIF ( NVL(p_line_rec.top_model_line_id,FND_API.G_MISS_NUM)
2195: <> FND_API.G_MISS_NUM
2196: OR NVL(p_line_rec.top_model_line_index,FND_API.G_MISS_NUM)
2197: <> FND_API.G_MISS_NUM )
2198: THEN
2191: RETURN 3;
2192:
2193: -- Top model line identifiers are populated
2194: ELSIF ( NVL(p_line_rec.top_model_line_id,FND_API.G_MISS_NUM)
2195: <> FND_API.G_MISS_NUM
2196: OR NVL(p_line_rec.top_model_line_index,FND_API.G_MISS_NUM)
2197: <> FND_API.G_MISS_NUM )
2198: THEN
2199:
2192:
2193: -- Top model line identifiers are populated
2194: ELSIF ( NVL(p_line_rec.top_model_line_id,FND_API.G_MISS_NUM)
2195: <> FND_API.G_MISS_NUM
2196: OR NVL(p_line_rec.top_model_line_index,FND_API.G_MISS_NUM)
2197: <> FND_API.G_MISS_NUM )
2198: THEN
2199:
2200: -- MODEL line if top model line is same as the current line
2193: -- Top model line identifiers are populated
2194: ELSIF ( NVL(p_line_rec.top_model_line_id,FND_API.G_MISS_NUM)
2195: <> FND_API.G_MISS_NUM
2196: OR NVL(p_line_rec.top_model_line_index,FND_API.G_MISS_NUM)
2197: <> FND_API.G_MISS_NUM )
2198: THEN
2199:
2200: -- MODEL line if top model line is same as the current line
2201: IF ( p_line_rec.top_model_line_id <> FND_API.G_MISS_NUM
2197: <> FND_API.G_MISS_NUM )
2198: THEN
2199:
2200: -- MODEL line if top model line is same as the current line
2201: IF ( p_line_rec.top_model_line_id <> FND_API.G_MISS_NUM
2202: AND p_line_rec.top_model_line_id = p_line_rec.line_id )
2203: OR ( p_line_rec.top_model_line_index <> FND_API.G_MISS_NUM
2204: AND p_line_rec.top_model_line_index = p_line_index )
2205: THEN
2199:
2200: -- MODEL line if top model line is same as the current line
2201: IF ( p_line_rec.top_model_line_id <> FND_API.G_MISS_NUM
2202: AND p_line_rec.top_model_line_id = p_line_rec.line_id )
2203: OR ( p_line_rec.top_model_line_index <> FND_API.G_MISS_NUM
2204: AND p_line_rec.top_model_line_index = p_line_index )
2205: THEN
2206: IF l_debug_level > 0 THEN
2207: oe_debug_pub.add( 'TOP MODEL LINE' , 1 ) ;
2399: while calling complete_config_line.
2400: -----------------------------------------------------------------------*/
2401:
2402: PROCEDURE Lines
2403: (p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2404: ,p_validation_level IN NUMBER
2405: ,p_control_rec IN OE_GLOBALS.Control_Rec_Type
2406: ,p_x_line_tbl IN OUT NOCOPY OE_Order_PUB.Line_Tbl_Type
2407: ,p_x_old_line_tbl IN OUT NOCOPY OE_Order_PUB.Line_Tbl_Type
2429: l_check_item_type NUMBER;
2430: l_daemon_type VARCHAR2(1);
2431: l_is_ota_line BOOLEAN;
2432: l_order_quantity_uom VARCHAR2(3);
2433: l_header_locked VARCHAR2(1) := FND_API.G_MISS_CHAR;
2434: l_locked_header_rec OE_Order_PUB.Header_Rec_Type;
2435: l_process_this_line BOOLEAN;
2436: COMPLETE_AND_CLASS_SAVE_MODE BOOLEAN := TRUE;
2437: l_options_index_tbl OE_OPTION_INDEX_TBL_TYPE;
2451: --End of SUN OIP ER
2452:
2453: --Moac changes start
2454: l_org_id := MO_GLOBAL.get_current_org_id;
2455: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
2456: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
2457: OE_MSG_PUB.Add;
2458: RAISE FND_API.G_EXC_ERROR;
2459: END IF;
2454: l_org_id := MO_GLOBAL.get_current_org_id;
2455: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
2456: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
2457: OE_MSG_PUB.Add;
2458: RAISE FND_API.G_EXC_ERROR;
2459: END IF;
2460: --Moac changes end
2461: set_recursion_mode(p_Entity_Code => 5,
2462: p_In_out => 1);
2468: IF l_debug_level > 0 THEN
2469: oe_debug_pub.add('Entering OE_ORDER_PVT.LINES ' || l_num_lines, 0.5); --added for bug 13435459
2470: END IF;
2471:
2472: x_return_status := FND_API.G_RET_STS_SUCCESS;
2473:
2474: IF OE_GLOBALS.G_RECURSION_MODE <> 'Y' THEN
2475: SAVEPOINT Lines_Non_Partial;
2476: END IF;
2476: END IF;
2477:
2478: -- Initialize message list.
2479:
2480: IF FND_API.to_Boolean(p_init_msg_list) THEN
2481: OE_MSG_PUB.initialize;
2482: END IF;
2483:
2484: -- Looping through the table to first process all the models and
2528: -- ordered_quantity as negative. (bug2620749)
2529:
2530: IF p_x_line_tbl(I).ordered_quantity < 0 AND
2531: ( p_x_line_tbl(I).line_category_code IS NULL OR
2532: p_x_line_tbl(I).line_category_code = FND_API.G_MISS_CHAR OR
2533: p_x_line_tbl(I).line_category_code = 'RETURN')
2534: THEN
2535: p_x_line_tbl(I).line_category_code := 'RETURN';
2536: p_x_line_tbl(I).ordered_quantity := (-1) *
2540: -- Change the same on the OLD record.
2541: IF p_x_old_line_tbl.EXISTS(I) THEN
2542: IF p_x_old_line_tbl(I).ordered_quantity < 0 AND
2543: ( p_x_old_line_tbl(I).line_category_code IS NULL OR
2544: p_x_old_line_tbl(I).line_category_code = FND_API.G_MISS_CHAR OR
2545: p_x_old_line_tbl(I).line_category_code = 'RETURN')
2546: THEN
2547: p_x_old_line_tbl(I).line_category_code := 'RETURN';
2548: p_x_old_line_tbl(I).ordered_quantity := (-1) *
2572: ELSE
2573: l_old_line_rec := OE_Order_PUB.G_MISS_LINE_REC;
2574: END IF;
2575:
2576: IF l_old_line_rec.line_id = FND_API.G_MISS_NUM OR
2577: l_old_line_rec.line_id IS NULL
2578: THEN
2579:
2580: OE_MSG_PUB.set_msg_context
2627: IF l_debug_level > 0 THEN
2628: oe_debug_pub.add( 'OPERATION = CREATE SO SETTING OLD TO NULL' , 2 ) ;
2629: END IF;
2630:
2631: l_line_rec.db_flag := FND_API.G_FALSE;
2632:
2633: -- Set missing old record elements to NULL.
2634:
2635: OE_Line_Util.Convert_Miss_To_Null (l_old_line_rec);
2638: -- lines from being inserted on an order when it is being booked
2639: -- as the booking process also locks the order header.
2640:
2641: /*******
2642: IF l_header_locked = FND_API.G_MISS_CHAR THEN
2643: oe_debug_pub.add('locking the header record');
2644:
2645: SAVEPOINT Header_Lock;
2646:
2648: ( p_header_id => l_line_rec.header_id
2649: , x_return_status => l_return_status
2650: , p_x_header_rec => l_locked_header_rec);
2651:
2652: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2654: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2655: RAISE FND_API.G_EXC_ERROR;
2656: END IF;
2649: , x_return_status => l_return_status
2650: , p_x_header_rec => l_locked_header_rec);
2651:
2652: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2654: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2655: RAISE FND_API.G_EXC_ERROR;
2656: END IF;
2657:
2650: , p_x_header_rec => l_locked_header_rec);
2651:
2652: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2654: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2655: RAISE FND_API.G_EXC_ERROR;
2656: END IF;
2657:
2658: IF l_locked_header_rec.booked_flag = 'N' THEN
2651:
2652: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2654: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2655: RAISE FND_API.G_EXC_ERROR;
2656: END IF;
2657:
2658: IF l_locked_header_rec.booked_flag = 'N' THEN
2659: l_header_locked := 'Y';
2672: IF l_debug_level > 0 THEN
2673: oe_debug_pub.add( 'OPERATION = UPDATE SO QUERY OLD' , 1 ) ;
2674: END IF;
2675:
2676: l_line_rec.db_flag := FND_API.G_TRUE;
2677:
2678: -- Query Old if missing
2679:
2680: IF l_old_line_rec.line_id = FND_API.G_MISS_NUM OR
2676: l_line_rec.db_flag := FND_API.G_TRUE;
2677:
2678: -- Query Old if missing
2679:
2680: IF l_old_line_rec.line_id = FND_API.G_MISS_NUM OR
2681: l_old_line_rec.line_id IS NULL
2682: THEN
2683:
2684: IF l_debug_level > 0 THEN
2711:
2712: END IF;
2713: -- Reverting Changes(done for bug9654935) For bug 10207400
2714: /*Starting changes for bug 9654935 */
2715: -- IF l_old_line_rec.reserved_quantity = FND_API.G_MISS_NUM THEN
2716: -- l_old_line_rec.reserved_quantity := NULL;
2717: -- END IF;
2718: /*Ending changes for bug 9654935 */
2719: -- Complete new record from old
2745: IF OE_Code_Control.code_release_level >= '110510'
2746: AND NVL(FND_PROFILE.VALUE('ONT_3A7_RESPONSE_REQUIRED'), 'N') = 'Y'
2747: -- Added this check because, holds will be applied only when this profile is set to 'YES'.
2748: AND l_line_rec.order_source_id = OE_Acknowledgment_Pub.G_XML_ORDER_SOURCE_ID
2749: AND nvl(l_line_rec.xml_transaction_type_code, FND_API.G_MISS_CHAR)
2750: IN (OE_Acknowledgment_Pub.G_TRANSACTION_CHO,OE_Acknowledgment_Pub.G_TRANSACTION_CPO) THEN -- 3A8/3A9
2751:
2752: IF l_debug_level > 0 THEN --debug level changed to 0.5 for 13435459
2753: oe_debug_pub.add( 'Calling OE_Acknowledgment_PUB.Process_3A8 for transaction type: '|| l_line_rec.xml_transaction_type_code, 0.5 ) ;
2760: IF l_debug_level > 0 THEN
2761: oe_debug_pub.add( 'Return status after call to Process_3A8:' || l_return_status, 0.5 ) ; --bug13435459
2762: END IF;
2763:
2764: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2766: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2767: RAISE FND_API.G_EXC_ERROR;
2768: END IF;
2761: oe_debug_pub.add( 'Return status after call to Process_3A8:' || l_return_status, 0.5 ) ; --bug13435459
2762: END IF;
2763:
2764: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2766: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2767: RAISE FND_API.G_EXC_ERROR;
2768: END IF;
2769: END IF;
2762: END IF;
2763:
2764: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2766: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2767: RAISE FND_API.G_EXC_ERROR;
2768: END IF;
2769: END IF;
2770:
2763:
2764: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2766: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2767: RAISE FND_API.G_EXC_ERROR;
2768: END IF;
2769: END IF;
2770:
2771: END IF; -- if operation is create.
2774: oe_debug_pub.add( 'AT LINE LEVEL HEADER_ID' || L_LINE_REC.HEADER_ID , 2 ) ;
2775: END IF;
2776: IF I = p_x_line_tbl.FIRST THEN
2777: IF NOT Valid_Upgraded_Order(l_line_rec.header_id) THEN
2778: RAISE FND_API.G_EXC_ERROR;
2779: END IF;
2780: END IF;
2781:
2782: -- Lock the order header for unbooked orders: This would prevent order
2788: IF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2789: -- QUOTING changes
2790: -- Comment out booked flag check, move header locked
2791: -- check inside this IF statement.
2792: IF l_header_locked = FND_API.G_MISS_CHAR THEN -- AND g_booked_flag = 'N' THEN #2940426
2793:
2794: -- Lock only if the po is called by UI or
2795: -- with write_to_db flag , this way for validate_only
2796: -- don't lock.
2812: oe_debug_pub.add( 'AFTER LOCKING THE HEADER RECORD' ,0.5 ) ; -- debug added for bug 13435459
2813: END IF;
2814:
2815:
2816: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2818: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2819: RAISE FND_API.G_EXC_ERROR;
2820: END IF;
2813: END IF;
2814:
2815:
2816: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2818: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2819: RAISE FND_API.G_EXC_ERROR;
2820: END IF;
2821:
2814:
2815:
2816: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2818: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2819: RAISE FND_API.G_EXC_ERROR;
2820: END IF;
2821:
2822: l_header_locked := 'Y';
2815:
2816: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2818: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2819: RAISE FND_API.G_EXC_ERROR;
2820: END IF;
2821:
2822: l_header_locked := 'Y';
2823:
2824: END IF; -- UI flag
2825:
2826: END IF; -- if header locked check
2827: --Added the IF condition as part of the fix for bug 14167434
2828: IF l_line_rec.transaction_phase_code IS NULL OR l_line_rec.transaction_phase_code = FND_API.G_MISS_CHAR
2829: THEN
2830:
2831: -- QUOTING changes
2832: -- Initialize line transaction phase from locked header rec
2860:
2861: IF OE_Config_Util.G_Config_UI_Used = 'N' AND
2862: l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
2863: ((l_line_rec.top_model_line_index is NOT NULL AND
2864: l_line_rec.top_model_line_index <> FND_API.G_MISS_NUM) OR
2865: (l_line_rec.top_model_line_id is NOT NULL AND
2866: l_line_rec.top_model_line_id <> FND_API.G_MISS_NUM)) AND
2867: (l_line_rec.split_from_line_id is NULL OR
2868: l_line_rec.split_from_line_id = FND_API.G_MISS_NUM)
2862: l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
2863: ((l_line_rec.top_model_line_index is NOT NULL AND
2864: l_line_rec.top_model_line_index <> FND_API.G_MISS_NUM) OR
2865: (l_line_rec.top_model_line_id is NOT NULL AND
2866: l_line_rec.top_model_line_id <> FND_API.G_MISS_NUM)) AND
2867: (l_line_rec.split_from_line_id is NULL OR
2868: l_line_rec.split_from_line_id = FND_API.G_MISS_NUM)
2869: THEN
2870: -- bug 3286378
2864: l_line_rec.top_model_line_index <> FND_API.G_MISS_NUM) OR
2865: (l_line_rec.top_model_line_id is NOT NULL AND
2866: l_line_rec.top_model_line_id <> FND_API.G_MISS_NUM)) AND
2867: (l_line_rec.split_from_line_id is NULL OR
2868: l_line_rec.split_from_line_id = FND_API.G_MISS_NUM)
2869: THEN
2870: -- bug 3286378
2871: IF l_line_rec.inventory_item_id IS NULL THEN
2872: IF l_debug_level > 0 THEN
2940: WHEN OTHERS THEN
2941: IF l_debug_level > 0 THEN
2942: oe_debug_pub.add( 'Did not get any bom item type',1);
2943: END IF;
2944: --RAISE FND_API.G_EXC_ERROR;
2945: RAISE;
2946: END;
2947: END IF;
2948: END IF;
2974: -- note that the top most model line will get its top_model_line_id in
2975: -- hardcoded defaulting and since we process models before options,
2976: -- model should already have the top model line id.
2977:
2978: IF ((l_line_rec.top_model_line_index <> FND_API.G_MISS_NUM) AND
2979: (l_line_rec.top_model_line_index IS NOT NULL))
2980: THEN
2981: l_top_model_line_index := l_line_rec.top_model_line_index;
2982:
2981: l_top_model_line_index := l_line_rec.top_model_line_index;
2982:
2983: IF p_x_line_tbl.EXISTS(l_top_model_line_index) THEN
2984:
2985: IF (l_line_rec.top_model_line_id = FND_API.G_MISS_NUM) OR
2986: (l_line_rec.top_model_line_id IS NULL) THEN
2987:
2988: IF l_debug_level > 0 THEN
2989: oe_debug_pub.add( 'MODEL:'||P_X_LINE_TBL ( L_TOP_MODEL_LINE_INDEX ) .RETURN_STATUS ) ;
2990: END IF;
2991:
2992:
2993: IF p_x_line_tbl(l_top_model_line_index).return_status =
2994: FND_API.G_RET_STS_SUCCESS THEN
2995:
2996: l_line_rec.top_model_line_id :=
2997: p_x_line_tbl(l_top_model_line_index).line_id;
2998:
3019: ELSE -- Invalid Index
3020: IF l_debug_level > 0 THEN
3021: oe_debug_pub.add( 'INVALID LINE INDEX ' , 2 ) ;
3022: END IF;
3023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3024: END IF; -- if valid index, top model is not at the index
3025:
3026: ELSE
3027: IF l_debug_level > 0 THEN
3040: IF COMPLETE_AND_CLASS_SAVE_MODE THEN
3041:
3042: IF OE_Config_Util.G_Config_UI_Used = 'N' AND
3043: (l_line_rec.split_from_line_id is NULL OR
3044: l_line_rec.split_from_line_id = FND_API.G_MISS_NUM) AND
3045: (l_line_rec.top_model_line_index is NOT NULL AND
3046: l_line_rec.top_model_line_index <> FND_API.G_MISS_NUM)
3047: THEN
3048:
3042: IF OE_Config_Util.G_Config_UI_Used = 'N' AND
3043: (l_line_rec.split_from_line_id is NULL OR
3044: l_line_rec.split_from_line_id = FND_API.G_MISS_NUM) AND
3045: (l_line_rec.top_model_line_index is NOT NULL AND
3046: l_line_rec.top_model_line_index <> FND_API.G_MISS_NUM)
3047: THEN
3048:
3049: Complete_Config_Line
3050: ( p_x_line_rec => l_line_rec
3109: oe_debug_pub.add( 'JPN: MODE IS SERVICE' ) ;
3110: END IF;
3111: l_process_this_line := TRUE;
3112:
3113: IF ((l_line_rec.service_line_index <> FND_API.G_MISS_NUM) AND
3114: (l_line_rec.service_line_index IS NOT NULL))
3115: THEN
3116: l_service_line_index := l_line_rec.service_line_index;
3117:
3119: -- service_reference_line_id from the
3120: -- p_x_line_tbl(service_line_index).line_id
3121:
3122: IF p_x_line_tbl.EXISTS(l_service_line_index) THEN
3123: IF (l_line_rec.service_reference_line_id = FND_API.G_MISS_NUM)
3124: OR (l_line_rec.service_reference_line_id IS NULL) THEN
3125:
3126: IF p_x_line_tbl(l_service_line_index).return_status =
3127: FND_API.G_RET_STS_SUCCESS THEN
3123: IF (l_line_rec.service_reference_line_id = FND_API.G_MISS_NUM)
3124: OR (l_line_rec.service_reference_line_id IS NULL) THEN
3125:
3126: IF p_x_line_tbl(l_service_line_index).return_status =
3127: FND_API.G_RET_STS_SUCCESS THEN
3128: -- lchen added to check parent line operation to fix bug 2017271
3129: IF p_x_line_tbl(l_service_line_index).operation = OE_GLOBALS.G_OPR_NONE
3130: THEN
3131: GOTO end_of_lines_loop;
3142: ELSE -- Invalid Index
3143: IF l_debug_level > 0 THEN
3144: oe_debug_pub.add( 'INVALID SERVICE LINE INDEX ' , 2 ) ;
3145: END IF;
3146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3147: END IF; -- If Valid Line Index
3148:
3149: END IF;
3150:
3212: IF l_debug_level > 0 THEN
3213: oe_debug_pub.add( 'AFTER CHECK ATTRIBUTES SECURITY' , 0.5 ) ; --debug added for 13435459
3214: END IF;
3215:
3216: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3218: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3219: RAISE FND_API.G_EXC_ERROR;
3220: END IF;
3213: oe_debug_pub.add( 'AFTER CHECK ATTRIBUTES SECURITY' , 0.5 ) ; --debug added for 13435459
3214: END IF;
3215:
3216: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3218: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3219: RAISE FND_API.G_EXC_ERROR;
3220: END IF;
3221:
3214: END IF;
3215:
3216: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3218: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3219: RAISE FND_API.G_EXC_ERROR;
3220: END IF;
3221:
3222: -- if operation on any attribute is constrained
3215:
3216: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3218: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3219: RAISE FND_API.G_EXC_ERROR;
3220: END IF;
3221:
3222: -- if operation on any attribute is constrained
3223: IF l_sec_result = OE_PC_GLOBALS.YES THEN
3220: END IF;
3221:
3222: -- if operation on any attribute is constrained
3223: IF l_sec_result = OE_PC_GLOBALS.YES THEN
3224: RAISE FND_API.G_EXC_ERROR;
3225: END IF;
3226:
3227: END IF; -- security
3228:
3230: -- ATTRIBUTE LEVEL VALIDATION
3231:
3232: IF NOT (l_line_rec.operation = oe_globals.g_opr_create and
3233: (l_line_rec.split_from_line_id IS NOT NULL AND
3234: l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3235: THEN
3236:
3237: IF l_debug_level > 0 THEN
3238: oe_debug_pub.add( 'ATTRIBUTE VALIDATION' , 0.5 ) ; --debug level changed to 0.5 for 13435459
3237: IF l_debug_level > 0 THEN
3238: oe_debug_pub.add( 'ATTRIBUTE VALIDATION' , 0.5 ) ; --debug level changed to 0.5 for 13435459
3239: END IF;
3240:
3241: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
3242:
3243: OE_Validate_Line.Attributes
3244: ( x_return_status => l_return_status
3245: ,p_x_line_rec => l_line_rec
3250: oe_debug_pub.add( 'AFTER ATTRIBUTE VALIDATION' , 0.5 ) ; --debug changed to 0.5 for 13435459
3251: END IF;
3252:
3253: IF p_validation_level <> OE_GLOBALS.G_VALID_LEVEL_PARTIAL THEN
3254: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3256: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3257: RAISE FND_API.G_EXC_ERROR;
3258: END IF;
3251: END IF;
3252:
3253: IF p_validation_level <> OE_GLOBALS.G_VALID_LEVEL_PARTIAL THEN
3254: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3256: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3257: RAISE FND_API.G_EXC_ERROR;
3258: END IF;
3259: END IF;
3252:
3253: IF p_validation_level <> OE_GLOBALS.G_VALID_LEVEL_PARTIAL THEN
3254: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3256: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3257: RAISE FND_API.G_EXC_ERROR;
3258: END IF;
3259: END IF;
3260:
3253: IF p_validation_level <> OE_GLOBALS.G_VALID_LEVEL_PARTIAL THEN
3254: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3256: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3257: RAISE FND_API.G_EXC_ERROR;
3258: END IF;
3259: END IF;
3260:
3261: END IF; -- end of check to see if validation level > NONE
3267:
3268: IF l_control_rec.clear_dependents AND
3269: NOT (l_line_rec.operation = oe_globals.g_opr_create and
3270: (l_line_rec.split_from_line_id IS NOT NULL AND
3271: l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3272: THEN
3273:
3274: IF l_debug_level > 0 THEN
3275: oe_debug_pub.add( 'CLEAR DEPENDENT ATTRIBUTES' , 0.5 ) ; --debug changed to 0.5 for 13435459
3291:
3292: IF (l_control_rec.default_attributes) THEN
3293: IF NOT (l_line_rec.operation = oe_globals.g_opr_create and
3294: (l_line_rec.split_from_line_id IS NOT NULL AND
3295: l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3296: THEN
3297:
3298: IF l_debug_level > 0 THEN
3299: oe_debug_pub.add( 'DEFAULT MISSING' , 0.5 ) ; --debug changed to 0.5 for 13435459
3330:
3331: IF (l_control_rec.change_attributes)
3332: -- AND NOT (l_line_rec.operation = oe_globals.g_opr_create and
3333: -- (l_line_rec.split_from_line_id IS NOT NULL AND
3334: -- l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3335: THEN
3336:
3337: IF l_debug_level > 0 THEN
3338: oe_debug_pub.add( 'APPLY ATTRIBUTE CHANGES' , 0.5 ) ; --debug level changed to 0.5 for 13435459
3346: oe_debug_pub.add( 'AFTER APPLY ATTRIBUTE CHANGES' , 0.5 ) ; --debug added for 13435459
3347: END IF;
3348:
3349:
3350: IF l_line_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3352: ELSIF l_line_rec.return_status = FND_API.G_RET_STS_ERROR THEN
3353: RAISE FND_API.G_EXC_ERROR;
3354: END IF;
3347: END IF;
3348:
3349:
3350: IF l_line_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3352: ELSIF l_line_rec.return_status = FND_API.G_RET_STS_ERROR THEN
3353: RAISE FND_API.G_EXC_ERROR;
3354: END IF;
3355: END IF;
3348:
3349:
3350: IF l_line_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3352: ELSIF l_line_rec.return_status = FND_API.G_RET_STS_ERROR THEN
3353: RAISE FND_API.G_EXC_ERROR;
3354: END IF;
3355: END IF;
3356:
3349:
3350: IF l_line_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3352: ELSIF l_line_rec.return_status = FND_API.G_RET_STS_ERROR THEN
3353: RAISE FND_API.G_EXC_ERROR;
3354: END IF;
3355: END IF;
3356:
3357:
3359:
3360: IF l_control_rec.validate_entity
3361: AND NOT (l_line_rec.operation = oe_globals.g_opr_create and
3362: (l_line_rec.split_from_line_id IS NOT NULL AND
3363: l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3364: and( nvl(l_line_rec.ordered_quantity,-1)<>0
3365: OR Nvl(l_line_rec.cancelled_flag,'N')='N' ) -- added for bug 6494347
3366: /*Added the cancelled flag check for bug 7691604*/
3367:
3393: IF l_debug_level > 0 THEN
3394: oe_debug_pub.add( 'AFTER VALIDATE ENTITY' ,0.5 ) ; ---debug level changed to 0.5 for 13435459
3395: END IF;
3396:
3397: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3399: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3400: RAISE FND_API.G_EXC_ERROR;
3401: END IF;
3394: oe_debug_pub.add( 'AFTER VALIDATE ENTITY' ,0.5 ) ; ---debug level changed to 0.5 for 13435459
3395: END IF;
3396:
3397: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3399: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3400: RAISE FND_API.G_EXC_ERROR;
3401: END IF;
3402:
3395: END IF;
3396:
3397: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3399: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3400: RAISE FND_API.G_EXC_ERROR;
3401: END IF;
3402:
3403: END IF; -- entity validation
3396:
3397: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3399: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3400: RAISE FND_API.G_EXC_ERROR;
3401: END IF;
3402:
3403: END IF; -- entity validation
3404:
3436: oe_debug_pub.add( 'AFTER CHECK ENTITY SECURITY' , 0.5 ) ; --13435459
3437: END IF;
3438:
3439:
3440: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3442: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3443: RAISE FND_API.G_EXC_ERROR;
3444: END IF;
3437: END IF;
3438:
3439:
3440: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3442: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3443: RAISE FND_API.G_EXC_ERROR;
3444: END IF;
3445:
3438:
3439:
3440: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3442: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3443: RAISE FND_API.G_EXC_ERROR;
3444: END IF;
3445:
3446: -- if operation on any attribute is constrained
3439:
3440: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3442: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3443: RAISE FND_API.G_EXC_ERROR;
3444: END IF;
3445:
3446: -- if operation on any attribute is constrained
3447: IF l_sec_result = OE_PC_GLOBALS.YES THEN
3444: END IF;
3445:
3446: -- if operation on any attribute is constrained
3447: IF l_sec_result = OE_PC_GLOBALS.YES THEN
3448: RAISE FND_API.G_EXC_ERROR;
3449: END IF;
3450:
3451: END IF;
3452:
3495:
3496: IF l_debug_level > 0 THEN
3497: oe_debug_pub.add( 'AFTER NOTIFY_OTA API' , 0.5 ) ; --debug level changed to 13435459
3498: END IF;
3499: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3501: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3502: RAISE FND_API.G_EXC_ERROR;
3503: END IF;
3496: IF l_debug_level > 0 THEN
3497: oe_debug_pub.add( 'AFTER NOTIFY_OTA API' , 0.5 ) ; --debug level changed to 13435459
3498: END IF;
3499: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3501: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3502: RAISE FND_API.G_EXC_ERROR;
3503: END IF;
3504: END IF; --End of OTA processing
3497: oe_debug_pub.add( 'AFTER NOTIFY_OTA API' , 0.5 ) ; --debug level changed to 13435459
3498: END IF;
3499: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3501: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3502: RAISE FND_API.G_EXC_ERROR;
3503: END IF;
3504: END IF; --End of OTA processing
3505:
3498: END IF;
3499: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3501: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3502: RAISE FND_API.G_EXC_ERROR;
3503: END IF;
3504: END IF; --End of OTA processing
3505:
3506: ELSE -- operation is update or create
3554:
3555: END IF; -- write to db true
3556:
3557: -- loop exception handler.
3558: IF l_line_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3560: ELSIF l_line_rec.return_status = FND_API.G_RET_STS_ERROR THEN
3561: RAISE FND_API.G_EXC_ERROR;
3562: END IF;
3555: END IF; -- write to db true
3556:
3557: -- loop exception handler.
3558: IF l_line_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3560: ELSIF l_line_rec.return_status = FND_API.G_RET_STS_ERROR THEN
3561: RAISE FND_API.G_EXC_ERROR;
3562: END IF;
3563:
3556:
3557: -- loop exception handler.
3558: IF l_line_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3560: ELSIF l_line_rec.return_status = FND_API.G_RET_STS_ERROR THEN
3561: RAISE FND_API.G_EXC_ERROR;
3562: END IF;
3563:
3564: -- Load tables.
3557: -- loop exception handler.
3558: IF l_line_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3560: ELSIF l_line_rec.return_status = FND_API.G_RET_STS_ERROR THEN
3561: RAISE FND_API.G_EXC_ERROR;
3562: END IF;
3563:
3564: -- Load tables.
3565:
3562: END IF;
3563:
3564: -- Load tables.
3565:
3566: l_line_rec.return_status := FND_API.G_RET_STS_SUCCESS;
3567: p_x_line_tbl(I) := l_line_rec;
3568: p_x_old_line_tbl(I) := l_old_line_rec;
3569: p_x_line_tbl(I).semi_processed_flag := l_process_this_line;
3570:
3586: END IF;
3587:
3588: EXCEPTION
3589:
3590: WHEN FND_API.G_EXC_ERROR THEN
3591:
3592: x_return_status:= FND_API.G_RET_STS_ERROR;
3593: l_line_rec.return_status := FND_API.G_RET_STS_ERROR;
3594: p_x_line_tbl(I) := l_line_rec;
3588: EXCEPTION
3589:
3590: WHEN FND_API.G_EXC_ERROR THEN
3591:
3592: x_return_status:= FND_API.G_RET_STS_ERROR;
3593: l_line_rec.return_status := FND_API.G_RET_STS_ERROR;
3594: p_x_line_tbl(I) := l_line_rec;
3595: p_x_line_tbl(I).semi_processed_flag := l_process_this_line;
3596: p_x_old_line_tbl(I) := l_old_line_rec;
3589:
3590: WHEN FND_API.G_EXC_ERROR THEN
3591:
3592: x_return_status:= FND_API.G_RET_STS_ERROR;
3593: l_line_rec.return_status := FND_API.G_RET_STS_ERROR;
3594: p_x_line_tbl(I) := l_line_rec;
3595: p_x_line_tbl(I).semi_processed_flag := l_process_this_line;
3596: p_x_old_line_tbl(I) := l_old_line_rec;
3597:
3614: /* Starting the Fix for Bug 13348738*/
3615: AND l_line_rec.blanket_number IS NOT NULL
3616: /* Ending the Fix for Bug 13348738*/
3617: THEN
3618: RAISE FND_API.G_EXC_ERROR;
3619: END IF;
3620:
3621:
3622: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
3633:
3634: --ROLLBACK TO SAVEPOINT Lines; commented as part of fix for Bug 13348738
3635:
3636: ELSE
3637: RAISE FND_API.G_EXC_ERROR ;
3638: END IF; -- process partial = true
3639:
3640:
3641: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3637: RAISE FND_API.G_EXC_ERROR ;
3638: END IF; -- process partial = true
3639:
3640:
3641: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3642:
3643: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
3644: l_line_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3645: p_x_line_tbl(I) := l_line_rec;
3639:
3640:
3641: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3642:
3643: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
3644: l_line_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3645: p_x_line_tbl(I) := l_line_rec;
3646: p_x_line_tbl(I).semi_processed_flag := l_process_this_line;
3647: p_x_old_line_tbl(I) := l_old_line_rec;
3640:
3641: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3642:
3643: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
3644: l_line_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3645: p_x_line_tbl(I) := l_line_rec;
3646: p_x_line_tbl(I).semi_processed_flag := l_process_this_line;
3647: p_x_old_line_tbl(I) := l_old_line_rec;
3648:
3647: p_x_old_line_tbl(I) := l_old_line_rec;
3648:
3649:
3650: OE_MSG_PUB.reset_msg_context('LINE');
3651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3652:
3653:
3654: WHEN OTHERS THEN
3655:
3652:
3653:
3654: WHEN OTHERS THEN
3655:
3656: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3657: l_line_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3658: p_x_line_tbl(I) := l_line_rec;
3659: p_x_line_tbl(I).semi_processed_flag := l_process_this_line;
3660: p_x_old_line_tbl(I) := l_old_line_rec;
3653:
3654: WHEN OTHERS THEN
3655:
3656: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3657: l_line_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3658: p_x_line_tbl(I) := l_line_rec;
3659: p_x_line_tbl(I).semi_processed_flag := l_process_this_line;
3660: p_x_old_line_tbl(I) := l_old_line_rec;
3661:
3668: END IF;
3669:
3670: OE_Line_Security.g_check_all_cols_constraint := 'Y';
3671: OE_MSG_PUB.reset_msg_context('LINE');
3672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3673:
3674: END; -- of the big BEGIN with the WHILE
3675:
3676:
3763: p_In_out => 0);
3764:
3765: EXCEPTION
3766:
3767: WHEN FND_API.G_EXC_ERROR THEN
3768: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
3769: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
3770: x_return_status := FND_API.G_RET_STS_ERROR;
3771: set_recursion_mode(p_Entity_Code => 5,
3766:
3767: WHEN FND_API.G_EXC_ERROR THEN
3768: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
3769: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
3770: x_return_status := FND_API.G_RET_STS_ERROR;
3771: set_recursion_mode(p_Entity_Code => 5,
3772: p_In_out => 0);
3773: OE_MSG_PUB.reset_msg_context('LINE');
3774:
3790: -- of the post line process. This is same as an error coming
3791: -- out of delayed requests and hence we should raise and not continue.
3792:
3793: IF l_control_rec.Process_Partial THEN
3794: RAISE FND_API.G_EXC_ERROR;
3795: END IF;
3796:
3797: END IF;
3798:
3795: END IF;
3796:
3797: END IF;
3798:
3799: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3800: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
3801: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
3802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3803: set_recursion_mode(p_Entity_Code => 5,
3798:
3799: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3800: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
3801: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
3802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3803: set_recursion_mode(p_Entity_Code => 5,
3804: p_In_out => 0);
3805:
3806: OE_MSG_PUB.reset_msg_context('LINE');
3820: -- Same as comments give above for exc error
3821: -- Bug 2801876
3822:
3823: IF l_control_rec.Process_Partial THEN
3824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3825: END IF;
3826:
3827: END IF;
3828:
3828:
3829: WHEN OTHERS THEN
3830: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
3831: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
3832: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3833:
3834: IF NOT (OE_GLOBALS.G_UI_FLAG) and line_ctr = 1 THEN
3835: IF l_debug_level > 0 THEN
3836: oe_debug_pub.add( 'DELETE REQUEST11' , 2 ) ;
3853: ,'Lines');
3854: END IF;
3855:
3856: OE_MSG_PUB.reset_msg_context('LINE');
3857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3858:
3859: END Lines;
3860:
3861:
3863: PROCEDURE Line_Scredits
3864: -----------------------------------------------------------------------*/
3865:
3866: PROCEDURE Line_Scredits
3867: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3868: , p_validation_level IN NUMBER
3869: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
3870: , p_x_Line_Scredit_tbl IN OUT NOCOPY OE_Order_PUB.Line_Scredit_Tbl_Type
3871: , p_x_old_Line_Scredit_tbl IN OUT NOCOPY OE_Order_PUB.Line_Scredit_Tbl_Type
3894: l_org_id number ;
3895: BEGIN
3896: --MOAC changes start
3897: l_org_id := MO_GLOBAL.get_current_org_id;
3898: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
3899: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
3900: OE_MSG_PUB.Add;
3901: RAISE FND_API.G_EXC_ERROR;
3902: END IF;
3897: l_org_id := MO_GLOBAL.get_current_org_id;
3898: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
3899: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
3900: OE_MSG_PUB.Add;
3901: RAISE FND_API.G_EXC_ERROR;
3902: END IF;
3903: --MOAC changes end
3904: set_recursion_mode(p_Entity_Code => 7,
3905: p_In_out => 1);
3902: END IF;
3903: --MOAC changes end
3904: set_recursion_mode(p_Entity_Code => 7,
3905: p_In_out => 1);
3906: x_return_status := FND_API.G_RET_STS_SUCCESS;
3907:
3908: -- Initialize message list.
3909:
3910: IF FND_API.to_Boolean(p_init_msg_list) THEN
3906: x_return_status := FND_API.G_RET_STS_SUCCESS;
3907:
3908: -- Initialize message list.
3909:
3910: IF FND_API.to_Boolean(p_init_msg_list) THEN
3911: OE_MSG_PUB.initialize;
3912: END IF;
3913:
3914: IF p_control_rec.Process_Partial THEN
3933: l_old_Line_Scredit_rec := p_x_old_Line_Scredit_tbl(I);
3934: ELSE
3935: l_old_Line_Scredit_rec := OE_Order_PUB.G_MISS_LINE_SCREDIT_REC;
3936: END IF;
3937: if l_old_line_Scredit_rec.sales_credit_id = FND_API.G_MISS_NUM Then
3938: IF l_line_Scredit_rec.line_id IS NOT NULL AND
3939: l_line_Scredit_rec.line_id <> FND_API.G_MISS_NUM THEN
3940: BEGIN
3941: IF l_debug_level > 0 THEN
3935: l_old_Line_Scredit_rec := OE_Order_PUB.G_MISS_LINE_SCREDIT_REC;
3936: END IF;
3937: if l_old_line_Scredit_rec.sales_credit_id = FND_API.G_MISS_NUM Then
3938: IF l_line_Scredit_rec.line_id IS NOT NULL AND
3939: l_line_Scredit_rec.line_id <> FND_API.G_MISS_NUM THEN
3940: BEGIN
3941: IF l_debug_level > 0 THEN
3942: oe_debug_pub.add('Getting reference data for line_id:'||l_line_Scredit_rec.line_id);
3943: END IF;
3986: ,p_source_document_line_id => l_source_document_line_id );
3987:
3988: else
3989: IF l_old_line_Scredit_rec.line_id IS NOT NULL AND
3990: l_old_line_Scredit_rec.line_id <> FND_API.G_MISS_NUM THEN
3991: BEGIN
3992: IF l_debug_level > 0 THEN
3993: oe_debug_pub.add('Getting reference data for old line_id:'||l_old_line_Scredit_rec.line_id);
3994: END IF;
4047: );
4048:
4049: -- Set record return status.
4050:
4051: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_SUCCESS;
4052:
4053: -- Prepare record.
4054:
4055: IF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
4053: -- Prepare record.
4054:
4055: IF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
4056:
4057: l_Line_Scredit_rec.db_flag := FND_API.G_FALSE;
4058:
4059: -- Set missing old record elements to NULL.
4060:
4061: OE_Line_Scredit_Util.Convert_Miss_To_Null (l_old_Line_Scredit_rec);
4063: ELSIF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE
4064: OR l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_DELETE
4065: THEN
4066:
4067: l_Line_Scredit_rec.db_flag := FND_API.G_TRUE;
4068:
4069: -- Query Old if missing
4070:
4071: IF l_old_Line_Scredit_rec.sales_credit_id = FND_API.G_MISS_NUM
4067: l_Line_Scredit_rec.db_flag := FND_API.G_TRUE;
4068:
4069: -- Query Old if missing
4070:
4071: IF l_old_Line_Scredit_rec.sales_credit_id = FND_API.G_MISS_NUM
4072: THEN
4073:
4074: OE_Line_Scredit_Util.Query_Row
4075: ( p_sales_credit_id => l_Line_Scredit_rec.sales_credit_id
4100: END IF;
4101:
4102: IF I = p_x_line_scredit_tbl.FIRST THEN
4103: IF NOT Valid_Upgraded_Order(l_line_scredit_rec.header_id) THEN
4104: RAISE FND_API.G_EXC_ERROR;
4105: END IF;
4106: END IF;
4107:
4108: -- Check security
4121: , x_result => l_sec_result
4122: , x_return_status => l_return_status
4123: );
4124:
4125: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4127: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4128: RAISE FND_API.G_EXC_ERROR;
4129: END IF;
4122: , x_return_status => l_return_status
4123: );
4124:
4125: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4127: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4128: RAISE FND_API.G_EXC_ERROR;
4129: END IF;
4130:
4123: );
4124:
4125: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4127: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4128: RAISE FND_API.G_EXC_ERROR;
4129: END IF;
4130:
4131: IF l_sec_result = OE_PC_GLOBALS.YES THEN
4124:
4125: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4127: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4128: RAISE FND_API.G_EXC_ERROR;
4129: END IF;
4130:
4131: IF l_sec_result = OE_PC_GLOBALS.YES THEN
4132: RAISE FND_API.G_EXC_ERROR;
4128: RAISE FND_API.G_EXC_ERROR;
4129: END IF;
4130:
4131: IF l_sec_result = OE_PC_GLOBALS.YES THEN
4132: RAISE FND_API.G_EXC_ERROR;
4133: END IF;
4134:
4135: END IF;
4136:
4135: END IF;
4136:
4137: -- Attribute level validation.
4138:
4139: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
4140:
4141: OE_Validate_Line_Scredit.Attributes
4142: ( x_return_status => l_return_status
4143: , p_Line_Scredit_rec => l_Line_Scredit_rec
4143: , p_Line_Scredit_rec => l_Line_Scredit_rec
4144: , p_old_Line_Scredit_rec => l_old_Line_Scredit_rec
4145: );
4146:
4147: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4149: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4150: RAISE FND_API.G_EXC_ERROR;
4151: END IF;
4144: , p_old_Line_Scredit_rec => l_old_Line_Scredit_rec
4145: );
4146:
4147: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4149: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4150: RAISE FND_API.G_EXC_ERROR;
4151: END IF;
4152:
4145: );
4146:
4147: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4149: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4150: RAISE FND_API.G_EXC_ERROR;
4151: END IF;
4152:
4153: END IF;
4146:
4147: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4149: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4150: RAISE FND_API.G_EXC_ERROR;
4151: END IF;
4152:
4153: END IF;
4154:
4219: );
4220:
4221: END IF;
4222:
4223: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4225: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4226: RAISE FND_API.G_EXC_ERROR;
4227: END IF;
4220:
4221: END IF;
4222:
4223: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4225: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4226: RAISE FND_API.G_EXC_ERROR;
4227: END IF;
4228:
4221: END IF;
4222:
4223: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4225: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4226: RAISE FND_API.G_EXC_ERROR;
4227: END IF;
4228:
4229: END IF;
4222:
4223: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4225: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4226: RAISE FND_API.G_EXC_ERROR;
4227: END IF;
4228:
4229: END IF;
4230:
4253: , x_result => l_sec_result
4254: , x_return_status => l_return_status
4255: );
4256:
4257: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4259: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4260: RAISE FND_API.G_EXC_ERROR;
4261: END IF;
4254: , x_return_status => l_return_status
4255: );
4256:
4257: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4259: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4260: RAISE FND_API.G_EXC_ERROR;
4261: END IF;
4262:
4255: );
4256:
4257: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4259: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4260: RAISE FND_API.G_EXC_ERROR;
4261: END IF;
4262:
4263: IF l_sec_result = OE_PC_GLOBALS.YES THEN
4256:
4257: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4259: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4260: RAISE FND_API.G_EXC_ERROR;
4261: END IF;
4262:
4263: IF l_sec_result = OE_PC_GLOBALS.YES THEN
4264: RAISE FND_API.G_EXC_ERROR;
4260: RAISE FND_API.G_EXC_ERROR;
4261: END IF;
4262:
4263: IF l_sec_result = OE_PC_GLOBALS.YES THEN
4264: RAISE FND_API.G_EXC_ERROR;
4265: END IF;
4266:
4267: END IF;
4268:
4310: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4311: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4312:
4313: -- loop exception handler.
4314: IF l_line_scredit_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4316: ELSIF l_line_scredit_rec.return_status = FND_API.G_RET_STS_ERROR THEN
4317: RAISE FND_API.G_EXC_ERROR;
4318: END IF;
4311: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4312:
4313: -- loop exception handler.
4314: IF l_line_scredit_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4316: ELSIF l_line_scredit_rec.return_status = FND_API.G_RET_STS_ERROR THEN
4317: RAISE FND_API.G_EXC_ERROR;
4318: END IF;
4319:
4312:
4313: -- loop exception handler.
4314: IF l_line_scredit_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4316: ELSIF l_line_scredit_rec.return_status = FND_API.G_RET_STS_ERROR THEN
4317: RAISE FND_API.G_EXC_ERROR;
4318: END IF;
4319:
4320: -- Load tables.
4313: -- loop exception handler.
4314: IF l_line_scredit_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4316: ELSIF l_line_scredit_rec.return_status = FND_API.G_RET_STS_ERROR THEN
4317: RAISE FND_API.G_EXC_ERROR;
4318: END IF;
4319:
4320: -- Load tables.
4321:
4318: END IF;
4319:
4320: -- Load tables.
4321:
4322: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_SUCCESS;
4323: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4324: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4325:
4326:
4325:
4326:
4327: EXCEPTION
4328:
4329: WHEN FND_API.G_EXC_ERROR THEN
4330:
4331: x_return_status := FND_API.G_RET_STS_ERROR;
4332: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_ERROR;
4333: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4327: EXCEPTION
4328:
4329: WHEN FND_API.G_EXC_ERROR THEN
4330:
4331: x_return_status := FND_API.G_RET_STS_ERROR;
4332: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_ERROR;
4333: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4334: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4335:
4328:
4329: WHEN FND_API.G_EXC_ERROR THEN
4330:
4331: x_return_status := FND_API.G_RET_STS_ERROR;
4332: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_ERROR;
4333: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4334: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4335:
4336: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4346: x_return_status => l_return_status);
4347: END IF;
4348: ROLLBACK TO SAVEPOINT Line_Scredits;
4349: ELSE
4350: RAISE FND_API.G_EXC_ERROR;
4351: END IF;
4352:
4353: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4354:
4349: ELSE
4350: RAISE FND_API.G_EXC_ERROR;
4351: END IF;
4352:
4353: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4354:
4355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4356: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4357: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4351: END IF;
4352:
4353: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4354:
4355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4356: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4357: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4358: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4359: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4352:
4353: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4354:
4355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4356: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4357: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4358: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4359: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4360: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4357: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4358: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4359: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4360: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4362:
4363: WHEN OTHERS THEN
4364:
4365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4362:
4363: WHEN OTHERS THEN
4364:
4365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4366: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4367: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4368: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4369: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4362:
4363: WHEN OTHERS THEN
4364:
4365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4366: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4367: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4368: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4369: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4370: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4375: );
4376: END IF;
4377:
4378: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4380:
4381: END;
4382: I := p_x_Line_Scredit_tbl.NEXT(I);
4383: END LOOP;
4390: set_recursion_mode(p_Entity_Code => 7,
4391: p_In_out => 0);
4392: EXCEPTION
4393:
4394: WHEN FND_API.G_EXC_ERROR THEN
4395:
4396: set_recursion_mode(p_Entity_Code => 7,
4397: p_In_out => 0);
4398: x_return_status := FND_API.G_RET_STS_ERROR;
4394: WHEN FND_API.G_EXC_ERROR THEN
4395:
4396: set_recursion_mode(p_Entity_Code => 7,
4397: p_In_out => 0);
4398: x_return_status := FND_API.G_RET_STS_ERROR;
4399: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4400: IF l_debug_level > 0 THEN
4401: oe_debug_pub.add( 'DELETE REQUEST13' , 2 ) ;
4402: END IF;
4404: (x_return_status => l_return_status);
4405: END IF;
4406: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4407:
4408: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4409:
4410: set_recursion_mode(p_Entity_Code => 7,
4411: p_In_out => 0);
4412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4408: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4409:
4410: set_recursion_mode(p_Entity_Code => 7,
4411: p_In_out => 0);
4412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4413: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4414: IF l_debug_level > 0 THEN
4415: oe_debug_pub.add( 'DELETE REQUEST14' , 2 ) ;
4416: END IF;
4422: WHEN OTHERS THEN
4423:
4424: set_recursion_mode(p_Entity_Code => 7,
4425: p_In_out => 0);
4426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4427: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4428: IF l_debug_level > 0 THEN
4429: oe_debug_pub.add( 'DELETE REQUEST15' , 2 ) ;
4430: END IF;
4447: PROCEDURE Line_Payments
4448: -----------------------------------------------------------------------*/
4449:
4450: PROCEDURE Line_Payments
4451: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4452: , p_validation_level IN NUMBER
4453: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
4454: , p_x_Line_Payment_tbl IN OUT NOCOPY OE_Order_PUB.Line_Payment_Tbl_Type
4455: , p_x_old_Line_Payment_tbl IN OUT NOCOPY OE_Order_PUB.Line_Payment_Tbl_Type
4478: l_org_id number ;
4479: BEGIN
4480: --MOAC changes start
4481: l_org_id := MO_GLOBAL.get_current_org_id;
4482: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
4483: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
4484: OE_MSG_PUB.Add;
4485: RAISE FND_API.G_EXC_ERROR;
4486: END IF;
4481: l_org_id := MO_GLOBAL.get_current_org_id;
4482: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
4483: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
4484: OE_MSG_PUB.Add;
4485: RAISE FND_API.G_EXC_ERROR;
4486: END IF;
4487: --MOAC changes end
4488: x_return_status := FND_API.G_RET_STS_SUCCESS;
4489:
4484: OE_MSG_PUB.Add;
4485: RAISE FND_API.G_EXC_ERROR;
4486: END IF;
4487: --MOAC changes end
4488: x_return_status := FND_API.G_RET_STS_SUCCESS;
4489:
4490: -- Initialize message list.
4491:
4492: IF FND_API.to_Boolean(p_init_msg_list) THEN
4488: x_return_status := FND_API.G_RET_STS_SUCCESS;
4489:
4490: -- Initialize message list.
4491:
4492: IF FND_API.to_Boolean(p_init_msg_list) THEN
4493: OE_MSG_PUB.initialize;
4494: END IF;
4495:
4496: IF p_control_rec.Process_Partial THEN
4515: l_old_Line_Payment_rec := p_x_old_Line_Payment_tbl(I);
4516: ELSE
4517: l_old_Line_Payment_rec := OE_Order_PUB.G_MISS_LINE_PAYMENT_REC;
4518: END IF;
4519: if l_old_line_Payment_rec.payment_number = FND_API.G_MISS_NUM Then
4520: IF l_line_Payment_rec.line_id IS NOT NULL AND
4521: l_line_Payment_rec.line_id <> FND_API.G_MISS_NUM THEN
4522: BEGIN
4523: IF l_debug_level > 0 THEN
4517: l_old_Line_Payment_rec := OE_Order_PUB.G_MISS_LINE_PAYMENT_REC;
4518: END IF;
4519: if l_old_line_Payment_rec.payment_number = FND_API.G_MISS_NUM Then
4520: IF l_line_Payment_rec.line_id IS NOT NULL AND
4521: l_line_Payment_rec.line_id <> FND_API.G_MISS_NUM THEN
4522: BEGIN
4523: IF l_debug_level > 0 THEN
4524: oe_debug_pub.add('Getting reference data for line_id:'||l_line_Payment_rec.line_id);
4525: END IF;
4568: ,p_source_document_line_id => l_source_document_line_id );
4569:
4570: else
4571: IF l_old_line_Payment_rec.line_id IS NOT NULL AND
4572: l_old_line_Payment_rec.line_id <> FND_API.G_MISS_NUM THEN
4573: BEGIN
4574: IF l_debug_level > 0 THEN
4575: oe_debug_pub.add('Getting reference data for old line_id:'||l_old_line_Payment_rec.line_id);
4576: END IF;
4629: );
4630:
4631: -- Set record return status.
4632:
4633: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_SUCCESS;
4634:
4635: -- Prepare record.
4636:
4637: IF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
4635: -- Prepare record.
4636:
4637: IF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
4638:
4639: l_Line_Payment_rec.db_flag := FND_API.G_FALSE;
4640:
4641: -- Set missing old record elements to NULL.
4642:
4643: IF l_debug_level > 0 THEN
4651: ELSIF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE
4652: OR l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE
4653: THEN
4654:
4655: l_Line_Payment_rec.db_flag := FND_API.G_TRUE;
4656:
4657: -- Query Old if missing
4658:
4659: IF l_old_Line_Payment_rec.payment_number = FND_API.G_MISS_NUM
4655: l_Line_Payment_rec.db_flag := FND_API.G_TRUE;
4656:
4657: -- Query Old if missing
4658:
4659: IF l_old_Line_Payment_rec.payment_number = FND_API.G_MISS_NUM
4660: THEN
4661:
4662: IF l_debug_level > 0 THEN
4663: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Query_Row', 5);
4702: END IF;
4703:
4704: IF I = p_x_line_payment_tbl.FIRST THEN
4705: IF NOT Valid_Upgraded_Order(l_line_payment_rec.header_id) THEN
4706: RAISE FND_API.G_EXC_ERROR;
4707: END IF;
4708: END IF;
4709:
4710: -- Check security
4725: IF l_debug_level > 0 THEN
4726: oe_debug_pub.add('Payment:after OE_Line_Payment_Security.Attributes', 5);
4727: END IF;
4728:
4729: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4731: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4732: RAISE FND_API.G_EXC_ERROR;
4733: END IF;
4726: oe_debug_pub.add('Payment:after OE_Line_Payment_Security.Attributes', 5);
4727: END IF;
4728:
4729: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4731: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4732: RAISE FND_API.G_EXC_ERROR;
4733: END IF;
4734:
4727: END IF;
4728:
4729: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4731: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4732: RAISE FND_API.G_EXC_ERROR;
4733: END IF;
4734:
4735: IF l_sec_result = OE_PC_GLOBALS.YES THEN
4728:
4729: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4731: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4732: RAISE FND_API.G_EXC_ERROR;
4733: END IF;
4734:
4735: IF l_sec_result = OE_PC_GLOBALS.YES THEN
4736: RAISE FND_API.G_EXC_ERROR;
4732: RAISE FND_API.G_EXC_ERROR;
4733: END IF;
4734:
4735: IF l_sec_result = OE_PC_GLOBALS.YES THEN
4736: RAISE FND_API.G_EXC_ERROR;
4737: END IF;
4738:
4739: END IF;
4740:
4739: END IF;
4740:
4741: -- Attribute level validation.
4742:
4743: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
4744:
4745: IF l_debug_level > 0 THEN
4746: oe_debug_pub.add('Payment:before OE_Validate_Line_Payment.Attributes', 5);
4747: END IF;
4753: IF l_debug_level > 0 THEN
4754: oe_debug_pub.add('Payment:after OE_Validate_Line_Payment.Attributes', 5);
4755: END IF;
4756:
4757: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4759: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4760: RAISE FND_API.G_EXC_ERROR;
4761: END IF;
4754: oe_debug_pub.add('Payment:after OE_Validate_Line_Payment.Attributes', 5);
4755: END IF;
4756:
4757: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4759: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4760: RAISE FND_API.G_EXC_ERROR;
4761: END IF;
4762:
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;
4759: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4760: RAISE FND_API.G_EXC_ERROR;
4761: END IF;
4762:
4763: END IF;
4756:
4757: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4759: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4760: RAISE FND_API.G_EXC_ERROR;
4761: END IF;
4762:
4763: END IF;
4764:
4859: END IF;
4860:
4861: END IF;
4862:
4863: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4865: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4866: RAISE FND_API.G_EXC_ERROR;
4867: END IF;
4860:
4861: END IF;
4862:
4863: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4865: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4866: RAISE FND_API.G_EXC_ERROR;
4867: END IF;
4868:
4861: END IF;
4862:
4863: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4865: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4866: RAISE FND_API.G_EXC_ERROR;
4867: END IF;
4868:
4869: END IF;
4862:
4863: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4865: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4866: RAISE FND_API.G_EXC_ERROR;
4867: END IF;
4868:
4869: END IF;
4870:
4895: IF l_debug_level > 0 THEN
4896: oe_debug_pub.add('Payment:after OE_Line_Payment_Security.Entity', 5);
4897: END IF;
4898:
4899: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4901: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4902: RAISE FND_API.G_EXC_ERROR;
4903: END IF;
4896: oe_debug_pub.add('Payment:after OE_Line_Payment_Security.Entity', 5);
4897: END IF;
4898:
4899: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4901: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4902: RAISE FND_API.G_EXC_ERROR;
4903: END IF;
4904:
4897: END IF;
4898:
4899: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4901: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4902: RAISE FND_API.G_EXC_ERROR;
4903: END IF;
4904:
4905: IF l_sec_result = OE_PC_GLOBALS.YES THEN
4898:
4899: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4901: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4902: RAISE FND_API.G_EXC_ERROR;
4903: END IF;
4904:
4905: IF l_sec_result = OE_PC_GLOBALS.YES THEN
4906: RAISE FND_API.G_EXC_ERROR;
4902: RAISE FND_API.G_EXC_ERROR;
4903: END IF;
4904:
4905: IF l_sec_result = OE_PC_GLOBALS.YES THEN
4906: RAISE FND_API.G_EXC_ERROR;
4907: END IF;
4908:
4909: END IF;
4910:
4978: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
4979: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4980:
4981: -- loop exception handler.
4982: IF l_line_payment_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4984: ELSIF l_line_payment_rec.return_status = FND_API.G_RET_STS_ERROR THEN
4985: RAISE FND_API.G_EXC_ERROR;
4986: END IF;
4979: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4980:
4981: -- loop exception handler.
4982: IF l_line_payment_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4984: ELSIF l_line_payment_rec.return_status = FND_API.G_RET_STS_ERROR THEN
4985: RAISE FND_API.G_EXC_ERROR;
4986: END IF;
4987:
4980:
4981: -- loop exception handler.
4982: IF l_line_payment_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4984: ELSIF l_line_payment_rec.return_status = FND_API.G_RET_STS_ERROR THEN
4985: RAISE FND_API.G_EXC_ERROR;
4986: END IF;
4987:
4988: -- Load tables.
4981: -- loop exception handler.
4982: IF l_line_payment_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4984: ELSIF l_line_payment_rec.return_status = FND_API.G_RET_STS_ERROR THEN
4985: RAISE FND_API.G_EXC_ERROR;
4986: END IF;
4987:
4988: -- Load tables.
4989:
4986: END IF;
4987:
4988: -- Load tables.
4989:
4990: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_SUCCESS;
4991: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
4992: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
4993:
4994:
4993:
4994:
4995: EXCEPTION
4996:
4997: WHEN FND_API.G_EXC_ERROR THEN
4998:
4999: x_return_status := FND_API.G_RET_STS_ERROR;
5000: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_ERROR;
5001: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
4995: EXCEPTION
4996:
4997: WHEN FND_API.G_EXC_ERROR THEN
4998:
4999: x_return_status := FND_API.G_RET_STS_ERROR;
5000: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_ERROR;
5001: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
5002: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
5003:
4996:
4997: WHEN FND_API.G_EXC_ERROR THEN
4998:
4999: x_return_status := FND_API.G_RET_STS_ERROR;
5000: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_ERROR;
5001: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
5002: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
5003:
5004: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
5014: x_return_status => l_return_status);
5015: END IF;
5016: ROLLBACK TO SAVEPOINT Line_Payments;
5017: ELSE
5018: RAISE FND_API.G_EXC_ERROR;
5019: END IF;
5020:
5021: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5022:
5017: ELSE
5018: RAISE FND_API.G_EXC_ERROR;
5019: END IF;
5020:
5021: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5022:
5023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5024: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5025: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
5019: END IF;
5020:
5021: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5022:
5023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5024: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5025: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
5026: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
5027: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
5020:
5021: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5022:
5023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5024: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5025: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
5026: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
5027: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
5028: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
5025: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
5026: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
5027: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
5028: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
5029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5030:
5031: WHEN OTHERS THEN
5032:
5033: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5030:
5031: WHEN OTHERS THEN
5032:
5033: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5034: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5035: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
5036: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
5037: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
5030:
5031: WHEN OTHERS THEN
5032:
5033: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5034: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5035: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
5036: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
5037: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
5038: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5043: );
5044: END IF;
5045:
5046: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
5047: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5048:
5049: END;
5050: I := p_x_Line_Payment_tbl.NEXT(I);
5051: END LOOP;
5056: END IF;
5057: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
5058: EXCEPTION
5059:
5060: WHEN FND_API.G_EXC_ERROR THEN
5061:
5062: x_return_status := FND_API.G_RET_STS_ERROR;
5063: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5064: IF l_debug_level > 0 THEN
5058: EXCEPTION
5059:
5060: WHEN FND_API.G_EXC_ERROR THEN
5061:
5062: x_return_status := FND_API.G_RET_STS_ERROR;
5063: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5064: IF l_debug_level > 0 THEN
5065: oe_debug_pub.add( 'DELETE REQUEST13' , 2 ) ;
5066: END IF;
5068: (x_return_status => l_return_status);
5069: END IF;
5070: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
5071:
5072: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5073:
5074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5075: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5076: IF l_debug_level > 0 THEN
5070: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
5071:
5072: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5073:
5074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5075: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5076: IF l_debug_level > 0 THEN
5077: oe_debug_pub.add( 'DELETE REQUEST14' , 2 ) ;
5078: END IF;
5082: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
5083:
5084: WHEN OTHERS THEN
5085:
5086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5087: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5088: IF l_debug_level > 0 THEN
5089: oe_debug_pub.add( 'DELETE REQUEST15' , 2 ) ;
5090: END IF;
5107: PROCEDURE Lot_Serials
5108: --------------------------------------------------------------------*/
5109:
5110: PROCEDURE Lot_Serials
5111: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5112: , p_validation_level IN NUMBER
5113: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
5114: , p_x_Lot_Serial_tbl IN OUT NOCOPY OE_Order_PUB.Lot_Serial_Tbl_Type
5115: , p_x_old_Lot_Serial_tbl IN OUT NOCOPY OE_Order_PUB.Lot_Serial_Tbl_Type
5126: l_org_id number;
5127: BEGIN
5128: --MOAC changes start
5129: l_org_id := MO_GLOBAL.get_current_org_id;
5130: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
5131: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
5132: OE_MSG_PUB.Add;
5133: RAISE FND_API.G_EXC_ERROR;
5134: END IF;
5129: l_org_id := MO_GLOBAL.get_current_org_id;
5130: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
5131: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
5132: OE_MSG_PUB.Add;
5133: RAISE FND_API.G_EXC_ERROR;
5134: END IF;
5135: --MOAC changes end
5136: x_return_status := FND_API.G_RET_STS_SUCCESS;
5137:
5132: OE_MSG_PUB.Add;
5133: RAISE FND_API.G_EXC_ERROR;
5134: END IF;
5135: --MOAC changes end
5136: x_return_status := FND_API.G_RET_STS_SUCCESS;
5137:
5138: -- Initialize message list.
5139:
5140: IF FND_API.to_Boolean(p_init_msg_list) THEN
5136: x_return_status := FND_API.G_RET_STS_SUCCESS;
5137:
5138: -- Initialize message list.
5139:
5140: IF FND_API.to_Boolean(p_init_msg_list) THEN
5141: OE_MSG_PUB.initialize;
5142: END IF;
5143:
5144: -- FOR I IN 1..p_x_Lot_Serial_tbl.COUNT LOOP
5166: );
5167:
5168: -- Set record return status.
5169:
5170: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_SUCCESS;
5171:
5172: -- Prepare record.
5173:
5174: IF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
5172: -- Prepare record.
5173:
5174: IF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
5175:
5176: l_Lot_Serial_rec.db_flag := FND_API.G_FALSE;
5177:
5178: -- Set missing old record elements to NULL.
5179:
5180: OE_Lot_Serial_Util.Convert_Miss_To_Null (l_old_Lot_Serial_rec);
5182: ELSIF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_UPDATE
5183: OR l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_DELETE
5184: THEN
5185:
5186: l_Lot_Serial_rec.db_flag := FND_API.G_TRUE;
5187:
5188: -- Query Old if missing
5189:
5190: IF l_old_Lot_Serial_rec.lot_serial_id = FND_API.G_MISS_NUM
5186: l_Lot_Serial_rec.db_flag := FND_API.G_TRUE;
5187:
5188: -- Query Old if missing
5189:
5190: IF l_old_Lot_Serial_rec.lot_serial_id = FND_API.G_MISS_NUM
5191: THEN
5192:
5193: OE_Lot_Serial_Util.Query_Row
5194: ( p_lot_serial_id => l_Lot_Serial_rec.lot_serial_id
5213: END IF;
5214:
5215: -- Attribute level validation.
5216:
5217: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
5218:
5219: OE_Validate_Lot_Serial.Attributes
5220: ( x_return_status => l_return_status
5221: , p_Lot_Serial_rec => l_Lot_Serial_rec
5221: , p_Lot_Serial_rec => l_Lot_Serial_rec
5222: , p_old_Lot_Serial_rec => l_old_Lot_Serial_rec
5223: );
5224:
5225: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5227: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5228: RAISE FND_API.G_EXC_ERROR;
5229: END IF;
5222: , p_old_Lot_Serial_rec => l_old_Lot_Serial_rec
5223: );
5224:
5225: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5227: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5228: RAISE FND_API.G_EXC_ERROR;
5229: END IF;
5230:
5223: );
5224:
5225: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5227: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5228: RAISE FND_API.G_EXC_ERROR;
5229: END IF;
5230:
5231: END IF;
5224:
5225: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5227: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5228: RAISE FND_API.G_EXC_ERROR;
5229: END IF;
5230:
5231: END IF;
5232:
5284: );
5285:
5286: END IF;
5287:
5288: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5289: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5290: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5291: RAISE FND_API.G_EXC_ERROR;
5292: END IF;
5285:
5286: END IF;
5287:
5288: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5289: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5290: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5291: RAISE FND_API.G_EXC_ERROR;
5292: END IF;
5293:
5286: END IF;
5287:
5288: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5289: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5290: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5291: RAISE FND_API.G_EXC_ERROR;
5292: END IF;
5293:
5294: END IF;
5287:
5288: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5289: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5290: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5291: RAISE FND_API.G_EXC_ERROR;
5292: END IF;
5293:
5294: END IF;
5295:
5337:
5338:
5339: EXCEPTION
5340:
5341: WHEN FND_API.G_EXC_ERROR THEN
5342:
5343: x_return_status := FND_API.G_RET_STS_ERROR;
5344: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_ERROR;
5345: p_x_Lot_Serial_tbl(I) := l_Lot_Serial_rec;
5339: EXCEPTION
5340:
5341: WHEN FND_API.G_EXC_ERROR THEN
5342:
5343: x_return_status := FND_API.G_RET_STS_ERROR;
5344: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_ERROR;
5345: p_x_Lot_Serial_tbl(I) := l_Lot_Serial_rec;
5346: p_x_old_Lot_Serial_tbl(I) := l_old_Lot_Serial_rec;
5347:
5340:
5341: WHEN FND_API.G_EXC_ERROR THEN
5342:
5343: x_return_status := FND_API.G_RET_STS_ERROR;
5344: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_ERROR;
5345: p_x_Lot_Serial_tbl(I) := l_Lot_Serial_rec;
5346: p_x_old_Lot_Serial_tbl(I) := l_old_Lot_Serial_rec;
5347:
5348: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5344: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_ERROR;
5345: p_x_Lot_Serial_tbl(I) := l_Lot_Serial_rec;
5346: p_x_old_Lot_Serial_tbl(I) := l_old_Lot_Serial_rec;
5347:
5348: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5349:
5350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5351: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5352: p_x_Lot_Serial_tbl(I) := l_Lot_Serial_rec;
5346: p_x_old_Lot_Serial_tbl(I) := l_old_Lot_Serial_rec;
5347:
5348: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5349:
5350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5351: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5352: p_x_Lot_Serial_tbl(I) := l_Lot_Serial_rec;
5353: p_x_old_Lot_Serial_tbl(I) := l_old_Lot_Serial_rec;
5354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5347:
5348: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5349:
5350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5351: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5352: p_x_Lot_Serial_tbl(I) := l_Lot_Serial_rec;
5353: p_x_old_Lot_Serial_tbl(I) := l_old_Lot_Serial_rec;
5354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5355:
5350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5351: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5352: p_x_Lot_Serial_tbl(I) := l_Lot_Serial_rec;
5353: p_x_old_Lot_Serial_tbl(I) := l_old_Lot_Serial_rec;
5354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5355:
5356: WHEN OTHERS THEN
5357:
5358: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5355:
5356: WHEN OTHERS THEN
5357:
5358: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5359: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5360: p_x_Lot_Serial_tbl(I) := l_Lot_Serial_rec;
5361: p_x_old_Lot_Serial_tbl(I) := l_old_Lot_Serial_rec;
5362:
5355:
5356: WHEN OTHERS THEN
5357:
5358: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5359: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5360: p_x_Lot_Serial_tbl(I) := l_Lot_Serial_rec;
5361: p_x_old_Lot_Serial_tbl(I) := l_old_Lot_Serial_rec;
5362:
5363: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
5367: , 'Lot_Serials'
5368: );
5369: END IF;
5370:
5371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5372:
5373: END;
5374: I := p_x_Lot_Serial_tbl.NEXT(I);
5375: END LOOP;
5375: END LOOP;
5376:
5377: EXCEPTION
5378:
5379: WHEN FND_API.G_EXC_ERROR THEN
5380:
5381: x_return_status := FND_API.G_RET_STS_ERROR;
5382: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5383: IF l_debug_level > 0 THEN
5377: EXCEPTION
5378:
5379: WHEN FND_API.G_EXC_ERROR THEN
5380:
5381: x_return_status := FND_API.G_RET_STS_ERROR;
5382: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5383: IF l_debug_level > 0 THEN
5384: oe_debug_pub.add( 'DELETE REQUEST17' , 2 ) ;
5385: END IF;
5386: OE_Delayed_Requests_Pvt.Clear_Request
5387: (x_return_status => l_return_status);
5388: END IF;
5389:
5390: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5391:
5392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5393: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5394: IF l_debug_level > 0 THEN
5388: END IF;
5389:
5390: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5391:
5392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5393: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5394: IF l_debug_level > 0 THEN
5395: oe_debug_pub.add( 'DELETE REQUEST18' , 2 ) ;
5396: END IF;
5399: END IF;
5400:
5401: WHEN OTHERS THEN
5402:
5403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5404: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5405: IF l_debug_level > 0 THEN
5406: oe_debug_pub.add( 'DELETE REQUEST19' , 2 ) ;
5407: END IF;
5423: PROCEDURE Process_Requests_And_Notify
5424: ------------------------------------------------------------------*/
5425:
5426: PROCEDURE Process_Requests_And_Notify
5427: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5428: , p_process_requests IN BOOLEAN := TRUE
5429: , p_notify IN BOOLEAN := TRUE
5430: , p_process_ack IN BOOLEAN := TRUE
5431: , x_return_status OUT NOCOPY VARCHAR2
5515:
5516: IF l_debug_level > 0 THEN
5517: oe_debug_pub.add( 'ENTER OE_ORDER_PVT.PROCESS_REQUESTS_AND_NOTIFY' , 1 ) ;
5518: END IF;
5519: x_return_status := FND_API.G_RET_STS_SUCCESS;
5520: IF NOT oe_globals.g_call_process_req THEN --9354229
5521: IF l_debug_level > 0 THEN
5522: oe_debug_pub.add( 'EXIT PROCESS_REQUESTS_AND_NOTIFY' , 1 ) ;
5523: END IF;
5530: l_edi_ack_pfile := nvl(l_edi_ack_pfile, 'NO');
5531:
5532: -- Initialize message list.
5533:
5534: IF FND_API.to_Boolean(p_init_msg_list) THEN
5535: OE_MSG_PUB.initialize;
5536: END IF;
5537:
5538: --4241385
5569: This is to avoid processing when the API is called for someother entity only*/
5570:
5571: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5572: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_ADJ
5573: ,p_delete => FND_API.G_TRUE
5574: ,x_return_status => l_return_status
5575: );
5576: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5572: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_ADJ
5573: ,p_delete => FND_API.G_TRUE
5574: ,x_return_status => l_return_status
5575: );
5576: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5578: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5579: RAISE FND_API.G_EXC_ERROR;
5580: END IF;
5573: ,p_delete => FND_API.G_TRUE
5574: ,x_return_status => l_return_status
5575: );
5576: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5578: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5579: RAISE FND_API.G_EXC_ERROR;
5580: END IF;
5581:
5574: ,x_return_status => l_return_status
5575: );
5576: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5578: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5579: RAISE FND_API.G_EXC_ERROR;
5580: END IF;
5581:
5582: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5575: );
5576: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5578: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5579: RAISE FND_API.G_EXC_ERROR;
5580: END IF;
5581:
5582: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5583: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Price_Att
5580: END IF;
5581:
5582: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5583: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Price_Att
5584: ,p_delete => FND_API.G_TRUE
5585: ,x_return_status => l_return_status
5586: );
5587: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5583: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Price_Att
5584: ,p_delete => FND_API.G_TRUE
5585: ,x_return_status => l_return_status
5586: );
5587: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5589: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5590: RAISE FND_API.G_EXC_ERROR;
5591: END IF;
5584: ,p_delete => FND_API.G_TRUE
5585: ,x_return_status => l_return_status
5586: );
5587: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5589: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5590: RAISE FND_API.G_EXC_ERROR;
5591: END IF;
5592:
5585: ,x_return_status => l_return_status
5586: );
5587: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5589: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5590: RAISE FND_API.G_EXC_ERROR;
5591: END IF;
5592:
5593: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5586: );
5587: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5589: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5590: RAISE FND_API.G_EXC_ERROR;
5591: END IF;
5592:
5593: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5594: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Att
5591: END IF;
5592:
5593: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5594: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Att
5595: ,p_delete => FND_API.G_TRUE
5596: ,x_return_status => l_return_status
5597: );
5598: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5594: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Att
5595: ,p_delete => FND_API.G_TRUE
5596: ,x_return_status => l_return_status
5597: );
5598: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5600: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5601: RAISE FND_API.G_EXC_ERROR;
5602: END IF;
5595: ,p_delete => FND_API.G_TRUE
5596: ,x_return_status => l_return_status
5597: );
5598: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5600: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5601: RAISE FND_API.G_EXC_ERROR;
5602: END IF;
5603:
5596: ,x_return_status => l_return_status
5597: );
5598: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5600: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5601: RAISE FND_API.G_EXC_ERROR;
5602: END IF;
5603:
5604: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5597: );
5598: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5600: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5601: RAISE FND_API.G_EXC_ERROR;
5602: END IF;
5603:
5604: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5605: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Assoc
5602: END IF;
5603:
5604: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5605: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Assoc
5606: ,p_delete => FND_API.G_TRUE
5607: ,x_return_status => l_return_status
5608: );
5609: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5605: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Assoc
5606: ,p_delete => FND_API.G_TRUE
5607: ,x_return_status => l_return_status
5608: );
5609: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5611: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5612: RAISE FND_API.G_EXC_ERROR;
5613: END IF;
5606: ,p_delete => FND_API.G_TRUE
5607: ,x_return_status => l_return_status
5608: );
5609: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5611: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5612: RAISE FND_API.G_EXC_ERROR;
5613: END IF;
5614:
5607: ,x_return_status => l_return_status
5608: );
5609: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5611: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5612: RAISE FND_API.G_EXC_ERROR;
5613: END IF;
5614:
5615: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5608: );
5609: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5611: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5612: RAISE FND_API.G_EXC_ERROR;
5613: END IF;
5614:
5615: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5616: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
5613: END IF;
5614:
5615: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5616: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
5617: ,p_delete => FND_API.G_TRUE
5618: ,x_return_status => l_return_status
5619: );
5620: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5616: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
5617: ,p_delete => FND_API.G_TRUE
5618: ,x_return_status => l_return_status
5619: );
5620: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5622: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5623: RAISE FND_API.G_EXC_ERROR;
5624: END IF;
5617: ,p_delete => FND_API.G_TRUE
5618: ,x_return_status => l_return_status
5619: );
5620: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5622: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5623: RAISE FND_API.G_EXC_ERROR;
5624: END IF;
5625:
5618: ,x_return_status => l_return_status
5619: );
5620: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5622: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5623: RAISE FND_API.G_EXC_ERROR;
5624: END IF;
5625:
5626: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5619: );
5620: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5622: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5623: RAISE FND_API.G_EXC_ERROR;
5624: END IF;
5625:
5626: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5627: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_PAYMENT
5624: END IF;
5625:
5626: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5627: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_PAYMENT
5628: ,p_delete => FND_API.G_TRUE
5629: ,x_return_status => l_return_status
5630: );
5631: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5627: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_PAYMENT
5628: ,p_delete => FND_API.G_TRUE
5629: ,x_return_status => l_return_status
5630: );
5631: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5633: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5634: RAISE FND_API.G_EXC_ERROR;
5635: END IF;
5628: ,p_delete => FND_API.G_TRUE
5629: ,x_return_status => l_return_status
5630: );
5631: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5633: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5634: RAISE FND_API.G_EXC_ERROR;
5635: END IF;
5636:
5629: ,x_return_status => l_return_status
5630: );
5631: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5633: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5634: RAISE FND_API.G_EXC_ERROR;
5635: END IF;
5636:
5637: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5630: );
5631: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5633: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5634: RAISE FND_API.G_EXC_ERROR;
5635: END IF;
5636:
5637: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5638: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
5635: END IF;
5636:
5637: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5638: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
5639: ,p_delete => FND_API.G_TRUE
5640: ,x_return_status => l_return_status
5641: );
5642: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5638: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
5639: ,p_delete => FND_API.G_TRUE
5640: ,x_return_status => l_return_status
5641: );
5642: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5644: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5645: RAISE FND_API.G_EXC_ERROR;
5646: END IF;
5639: ,p_delete => FND_API.G_TRUE
5640: ,x_return_status => l_return_status
5641: );
5642: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5644: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5645: RAISE FND_API.G_EXC_ERROR;
5646: END IF;
5647:
5640: ,x_return_status => l_return_status
5641: );
5642: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5644: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5645: RAISE FND_API.G_EXC_ERROR;
5646: END IF;
5647:
5648: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5641: );
5642: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5644: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5645: RAISE FND_API.G_EXC_ERROR;
5646: END IF;
5647:
5648: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5649: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
5646: END IF;
5647:
5648: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5649: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
5650: ,p_delete => FND_API.G_TRUE
5651: ,x_return_status => l_return_status
5652: );
5653: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5649: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
5650: ,p_delete => FND_API.G_TRUE
5651: ,x_return_status => l_return_status
5652: );
5653: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5655: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5656: RAISE FND_API.G_EXC_ERROR;
5657: END IF;
5650: ,p_delete => FND_API.G_TRUE
5651: ,x_return_status => l_return_status
5652: );
5653: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5655: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5656: RAISE FND_API.G_EXC_ERROR;
5657: END IF;
5658:
5651: ,x_return_status => l_return_status
5652: );
5653: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5655: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5656: RAISE FND_API.G_EXC_ERROR;
5657: END IF;
5658:
5659: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5652: );
5653: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5655: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5656: RAISE FND_API.G_EXC_ERROR;
5657: END IF;
5658:
5659: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5660: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Scredit
5657: END IF;
5658:
5659: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5660: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Scredit
5661: ,p_delete => FND_API.G_TRUE
5662: ,x_return_status => l_return_status
5663: );
5664: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5665: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5660: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Scredit
5661: ,p_delete => FND_API.G_TRUE
5662: ,x_return_status => l_return_status
5663: );
5664: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5665: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5666: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5667: RAISE FND_API.G_EXC_ERROR;
5668: END IF;
5661: ,p_delete => FND_API.G_TRUE
5662: ,x_return_status => l_return_status
5663: );
5664: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5665: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5666: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5667: RAISE FND_API.G_EXC_ERROR;
5668: END IF;
5669:
5662: ,x_return_status => l_return_status
5663: );
5664: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5665: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5666: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5667: RAISE FND_API.G_EXC_ERROR;
5668: END IF;
5669:
5670: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5663: );
5664: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5665: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5666: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5667: RAISE FND_API.G_EXC_ERROR;
5668: END IF;
5669:
5670: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5671: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_PAYMENT
5668: END IF;
5669:
5670: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5671: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_PAYMENT
5672: ,p_delete => FND_API.G_TRUE
5673: ,x_return_status => l_return_status
5674: );
5675: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5671: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_PAYMENT
5672: ,p_delete => FND_API.G_TRUE
5673: ,x_return_status => l_return_status
5674: );
5675: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5677: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5678: RAISE FND_API.G_EXC_ERROR;
5679: END IF;
5672: ,p_delete => FND_API.G_TRUE
5673: ,x_return_status => l_return_status
5674: );
5675: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5677: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5678: RAISE FND_API.G_EXC_ERROR;
5679: END IF;
5680:
5673: ,x_return_status => l_return_status
5674: );
5675: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5677: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5678: RAISE FND_API.G_EXC_ERROR;
5679: END IF;
5680:
5681: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5674: );
5675: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5677: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5678: RAISE FND_API.G_EXC_ERROR;
5679: END IF;
5680:
5681: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5682: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
5679: END IF;
5680:
5681: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5682: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
5683: ,p_delete => FND_API.G_TRUE
5684: ,x_return_status => l_return_status
5685: );
5686: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5682: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
5683: ,p_delete => FND_API.G_TRUE
5684: ,x_return_status => l_return_status
5685: );
5686: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5688: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5689: RAISE FND_API.G_EXC_ERROR;
5690: END IF;
5683: ,p_delete => FND_API.G_TRUE
5684: ,x_return_status => l_return_status
5685: );
5686: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5688: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5689: RAISE FND_API.G_EXC_ERROR;
5690: END IF;
5691:
5684: ,x_return_status => l_return_status
5685: );
5686: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5688: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5689: RAISE FND_API.G_EXC_ERROR;
5690: END IF;
5691:
5692: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5685: );
5686: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5688: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5689: RAISE FND_API.G_EXC_ERROR;
5690: END IF;
5691:
5692: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5693: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Att
5690: END IF;
5691:
5692: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5693: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Att
5694: ,p_delete => FND_API.G_TRUE
5695: ,x_return_status => l_return_status
5696: );
5697: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5693: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Att
5694: ,p_delete => FND_API.G_TRUE
5695: ,x_return_status => l_return_status
5696: );
5697: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5699: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5700: RAISE FND_API.G_EXC_ERROR;
5701: END IF;
5694: ,p_delete => FND_API.G_TRUE
5695: ,x_return_status => l_return_status
5696: );
5697: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5699: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5700: RAISE FND_API.G_EXC_ERROR;
5701: END IF;
5702:
5695: ,x_return_status => l_return_status
5696: );
5697: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5699: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5700: RAISE FND_API.G_EXC_ERROR;
5701: END IF;
5702:
5703: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5696: );
5697: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5699: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5700: RAISE FND_API.G_EXC_ERROR;
5701: END IF;
5702:
5703: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5704: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Assoc
5701: END IF;
5702:
5703: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5704: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Assoc
5705: ,p_delete => FND_API.G_TRUE
5706: ,x_return_status => l_return_status
5707: );
5708: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5709: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5704: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Assoc
5705: ,p_delete => FND_API.G_TRUE
5706: ,x_return_status => l_return_status
5707: );
5708: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5709: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5710: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5711: RAISE FND_API.G_EXC_ERROR;
5712: END IF;
5705: ,p_delete => FND_API.G_TRUE
5706: ,x_return_status => l_return_status
5707: );
5708: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5709: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5710: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5711: RAISE FND_API.G_EXC_ERROR;
5712: END IF;
5713:
5706: ,x_return_status => l_return_status
5707: );
5708: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5709: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5710: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5711: RAISE FND_API.G_EXC_ERROR;
5712: END IF;
5713:
5714: -- Execute all remaining delayed requests. This would execute
5707: );
5708: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5709: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5710: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5711: RAISE FND_API.G_EXC_ERROR;
5712: END IF;
5713:
5714: -- Execute all remaining delayed requests. This would execute
5715: -- requests logged against entity G_ENTITY_HEADER and G_ENTITY_ALL
5717: OE_DELAYED_REQUESTS_PVT.Process_Delayed_Requests(
5718: x_return_status => l_return_status
5719: );
5720:
5721: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5723: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5724: RAISE FND_API.G_EXC_ERROR;
5725: END IF;
5718: x_return_status => l_return_status
5719: );
5720:
5721: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5723: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5724: RAISE FND_API.G_EXC_ERROR;
5725: END IF;
5726:
5719: );
5720:
5721: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5723: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5724: RAISE FND_API.G_EXC_ERROR;
5725: END IF;
5726:
5727:
5720:
5721: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5723: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5724: RAISE FND_API.G_EXC_ERROR;
5725: END IF;
5726:
5727:
5728: END IF; --End of requests processing
5744: END IF;
5745:
5746: OE_SERVICE_UTIL.Notify_OC
5747: ( p_api_version_number => 1.0
5748: , p_init_msg_list => FND_API.G_FALSE
5749: , x_return_status => l_return_status
5750: , x_msg_count => l_msg_count
5751: , x_msg_data => l_msg_data
5752: , p_header_rec => p_header_rec
5785:
5786: IF l_debug_level > 0 THEN
5787: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
5788: END IF;
5789: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5791: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5792: RAISE FND_API.G_EXC_ERROR;
5793: END IF;
5786: IF l_debug_level > 0 THEN
5787: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
5788: END IF;
5789: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5791: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5792: RAISE FND_API.G_EXC_ERROR;
5793: END IF;
5794: END IF; --p_notify
5787: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
5788: END IF;
5789: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5791: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5792: RAISE FND_API.G_EXC_ERROR;
5793: END IF;
5794: END IF; --p_notify
5795:
5788: END IF;
5789: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5791: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5792: RAISE FND_API.G_EXC_ERROR;
5793: END IF;
5794: END IF; --p_notify
5795:
5796: IF l_debug_level > 0 THEN
5818: p_header_rec.order_source_id In (0,2,6,20) Then
5819:
5820: OE_Acknowledgment_Pvt.Process_Acknowledgment
5821: (p_api_version_number => 1
5822: ,p_init_msg_list => FND_API.G_FALSE
5823: ,p_header_rec => p_header_rec
5824: ,p_header_adj_tbl => p_header_adj_tbl
5825: ,p_header_Scredit_tbl => p_header_scredit_tbl
5826: ,p_line_tbl => p_line_tbl
5842: );
5843:
5844: End If;
5845:
5846: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5848: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5849: RAISE FND_API.G_EXC_ERROR;
5850: x_return_status := l_return_status;
5843:
5844: End If;
5845:
5846: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5848: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5849: RAISE FND_API.G_EXC_ERROR;
5850: x_return_status := l_return_status;
5851: END IF;
5844: End If;
5845:
5846: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5848: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5849: RAISE FND_API.G_EXC_ERROR;
5850: x_return_status := l_return_status;
5851: END IF;
5852: END IF; -- p_notify and p_process_ack
5845:
5846: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5848: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5849: RAISE FND_API.G_EXC_ERROR;
5850: x_return_status := l_return_status;
5851: END IF;
5852: END IF; -- p_notify and p_process_ack
5853:
5872:
5873: /*check global pictures, to see if there's any record in the seven key entities*/
5874:
5875: IF ( OE_ORDER_UTIL.g_header_rec.header_id is not null
5876: OR OE_ORDER_UTIL.g_header_rec.header_id <> FND_API.G_MISS_NUM
5877: OR OE_ORDER_UTIL.g_header_adj_tbl.count >0
5878: OR OE_ORDER_UTIL.g_Header_Scredit_tbl.count >0
5879: -- OR OE_ORDER_UTIL.g_Header_Payment_tbl.count >0
5880: OR OE_ORDER_UTIL.g_line_tbl.count >0
5891:
5892: l_index := 1;
5893:
5894: IF ( OE_ORDER_UTIL.g_header_rec.header_id is not null
5895: AND OE_ORDER_UTIL.g_header_rec.header_id <> FND_API.G_MISS_NUM) THEN
5896: l_header_id := OE_ORDER_UTIL.g_header_rec.header_id;
5897:
5898: IF l_debug_level > 0 THEN
5899: oe_debug_pub.add('header id in g_header_rec is: ' || l_header_id ) ;
5998: IF l_debug_level > 0 THEN
5999: oe_debug_pub.add( 'header id is: ' || l_header_id ) ;
6000: END IF;
6001:
6002: IF (l_header_id is not null AND l_header_id <> FND_API.G_MISS_NUM) THEN
6003:
6004: IF l_debug_level > 0 THEN
6005: oe_debug_pub.add('Just before calling Load_Order_Header');
6006: END IF;
6021: END IF;
6022:
6023: OE_SERVICE_UTIL.Notify_OC
6024: ( p_api_version_number => 1.0
6025: , p_init_msg_list => FND_API.G_FALSE
6026: , x_return_status => l_return_status
6027: , x_msg_count => l_msg_count
6028: , x_msg_data => l_msg_data
6029: , p_header_rec => OE_ORDER_UTIL.g_header_rec
6048:
6049: IF l_debug_level > 0 THEN
6050: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
6051: END IF;
6052: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6054: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6055: RAISE FND_API.G_EXC_ERROR;
6056: END IF;
6049: IF l_debug_level > 0 THEN
6050: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
6051: END IF;
6052: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6054: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6055: RAISE FND_API.G_EXC_ERROR;
6056: END IF;
6057:
6050: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
6051: END IF;
6052: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6054: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6055: RAISE FND_API.G_EXC_ERROR;
6056: END IF;
6057:
6058:
6051: END IF;
6052: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6054: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6055: RAISE FND_API.G_EXC_ERROR;
6056: END IF;
6057:
6058:
6059: END IF;
6131:
6132:
6133: OE_Acknowledgment_Pub.Process_SSO
6134: (p_api_version_number => 1
6135: ,p_init_msg_list => FND_API.G_FALSE
6136: ,p_header_rec => OE_ORDER_CACHE.g_header_rec
6137: ,p_line_tbl => OE_ORDER_UTIL.g_line_tbl
6138: ,p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec
6139: ,p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl
6154: Elsif l_edi_ack_pfile = 'NO' And
6155: OE_ORDER_CACHE.g_header_rec.order_source_id in (0,2,6) Then
6156: OE_Acknowledgment_Pvt.Process_Acknowledgment
6157: (p_api_version_number => 1
6158: ,p_init_msg_list => FND_API.G_FALSE
6159: ,p_header_rec => OE_ORDER_UTIL.g_header_rec
6160: ,p_header_adj_tbl => OE_ORDER_UTIL.g_header_adj_tbl
6161: ,p_header_Scredit_tbl => OE_ORDER_UTIL.g_header_scredit_tbl
6162: ,p_line_tbl => OE_ORDER_UTIL.g_line_tbl
6180: End If;
6181: -- End of If order_source_id = 20 }
6182: -- End 3A6 changes}
6183:
6184: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6186: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6187: RAISE FND_API.G_EXC_ERROR;
6188: x_return_status := l_return_status;
6181: -- End of If order_source_id = 20 }
6182: -- End 3A6 changes}
6183:
6184: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6186: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6187: RAISE FND_API.G_EXC_ERROR;
6188: x_return_status := l_return_status;
6189: END IF;
6182: -- End 3A6 changes}
6183:
6184: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6186: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6187: RAISE FND_API.G_EXC_ERROR;
6188: x_return_status := l_return_status;
6189: END IF;
6190:
6183:
6184: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6186: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6187: RAISE FND_API.G_EXC_ERROR;
6188: x_return_status := l_return_status;
6189: END IF;
6190:
6191: END IF;
6201: IF NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'), 'N') = 'Y' AND
6202: oe_order_cache.g_header_rec.booked_flag = 'Y' AND
6203: OE_ORDER_UTIL.G_Recursion_Without_Exception = 'N'
6204: -- AND p_header_rec.header_id IS NOT NULL AND
6205: --p_header_rec.header_id <> FND_API.G_MISS_NUM
6206: THEN
6207: OE_DBI_UTIL.Update_DBI_Log( x_return_status => l_return_status);
6208:
6209: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6205: --p_header_rec.header_id <> FND_API.G_MISS_NUM
6206: THEN
6207: OE_DBI_UTIL.Update_DBI_Log( x_return_status => l_return_status);
6208:
6209: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6211: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6212: RAISE FND_API.G_EXC_ERROR;
6213: x_return_status := l_return_status;
6206: THEN
6207: OE_DBI_UTIL.Update_DBI_Log( x_return_status => l_return_status);
6208:
6209: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6211: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6212: RAISE FND_API.G_EXC_ERROR;
6213: x_return_status := l_return_status;
6214: END IF;
6207: OE_DBI_UTIL.Update_DBI_Log( x_return_status => l_return_status);
6208:
6209: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6211: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6212: RAISE FND_API.G_EXC_ERROR;
6213: x_return_status := l_return_status;
6214: END IF;
6215: END IF;
6208:
6209: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6211: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6212: RAISE FND_API.G_EXC_ERROR;
6213: x_return_status := l_return_status;
6214: END IF;
6215: END IF;
6216: -- DBI project changes end
6255:
6256:
6257: EXCEPTION
6258:
6259: WHEN FND_API.G_EXC_ERROR THEN
6260:
6261: set_recursion_mode(p_Entity_Code => 8,
6262: p_In_out => 0);
6263: x_return_status := FND_API.G_RET_STS_ERROR;
6259: WHEN FND_API.G_EXC_ERROR THEN
6260:
6261: set_recursion_mode(p_Entity_Code => 8,
6262: p_In_out => 0);
6263: x_return_status := FND_API.G_RET_STS_ERROR;
6264: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
6265: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
6266: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
6267: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
6267: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
6268: END IF;
6269: END IF;
6270:
6271: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6272:
6273: set_recursion_mode(p_Entity_Code => 8,
6274: p_In_out => 0);
6275: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6271: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6272:
6273: set_recursion_mode(p_Entity_Code => 8,
6274: p_In_out => 0);
6275: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6276: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
6277: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
6278: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
6279: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
6286: p_In_out => 0);
6287: IF l_debug_level > 0 THEN
6288: oe_debug_pub.add( 'PO: EXITING PROCESS_REQUESTS_AND_NOTIFY WITH OTHERS ERROR' , 2 ) ;
6289: END IF;
6290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6291: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
6292: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
6293: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
6294: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
6305: END Process_Requests_And_Notify;
6306:
6307: PROCEDURE Process_Order_AG
6308: ( p_api_version_number IN NUMBER
6309: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
6310: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6311: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
6312: OE_GLOBALS.G_MISS_CONTROL_REC
6313: , x_return_status OUT NOCOPY VARCHAR2
6306:
6307: PROCEDURE Process_Order_AG
6308: ( p_api_version_number IN NUMBER
6309: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
6310: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6311: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
6312: OE_GLOBALS.G_MISS_CONTROL_REC
6313: , x_return_status OUT NOCOPY VARCHAR2
6314:
6365: OE_Order_PUB.G_MISS_LOT_SERIAL_VAL_TBL
6366: , p_old_Lot_Serial_val_tbl IN OE_Order_PUB.Lot_Serial_Val_Tbl_Type :=
6367: OE_Order_PUB.G_MISS_LOT_SERIAL_VAL_TBL
6368: , p_x_action_request_tbl IN OUT NOCOPY OE_Order_PUB.request_tbl_type
6369: , p_action_commit IN VARCHAR2 := FND_API.G_FALSE
6370: )
6371: IS
6372: l_api_version_number CONSTANT NUMBER := 1.0;
6373: l_control_rec OE_GLOBALS.Control_Rec_Type := p_control_rec;
6401: oe_debug_pub.add( 'ENTER PROCESS_ORDER_AG' , 1 ) ;
6402: END IF;
6403:
6404: -- Initialize x_return_status
6405: x_return_status := FND_API.G_RET_STS_SUCCESS;
6406: fnd_profile.get('ONT_NEW_EDI_ACK_FWK', l_edi_ack_pfile);
6407: l_edi_ack_pfile := nvl(l_edi_ack_pfile, 'NO');
6408:
6409: -- Init local table variables for old tables as these are only
6438:
6439: --Bug 2790512: Prevent processing of header if operation is invalid
6440: --Bug 2878121: Ignore NULL operation code
6441: IF p_x_header_rec.header_id is NOT NULL AND
6442: p_x_header_rec.header_id <> FND_API.G_MISS_NUM THEN
6443: IF p_x_header_rec.operation IS NOT NULL AND
6444: p_x_header_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
6445: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
6446: OE_GLOBALS.G_OPR_NONE) THEN
6445: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
6446: OE_GLOBALS.G_OPR_NONE) THEN
6447: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
6448: OE_MSG_PUB.Add;
6449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6450: END IF;
6451: END IF;
6452:
6453: IF p_x_header_rec.operation IS NOT NULL
6471: );
6472:
6473: OE_Validate_Header_Scredit.G_Create_Auto_Sales_Credit := 'Y';
6474:
6475: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6477: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6478: RAISE FND_API.G_EXC_ERROR;
6479: END IF;
6472:
6473: OE_Validate_Header_Scredit.G_Create_Auto_Sales_Credit := 'Y';
6474:
6475: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6477: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6478: RAISE FND_API.G_EXC_ERROR;
6479: END IF;
6480: END IF;
6473: OE_Validate_Header_Scredit.G_Create_Auto_Sales_Credit := 'Y';
6474:
6475: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6477: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6478: RAISE FND_API.G_EXC_ERROR;
6479: END IF;
6480: END IF;
6481: IF l_debug_level > 0 THEN
6474:
6475: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6477: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6478: RAISE FND_API.G_EXC_ERROR;
6479: END IF;
6480: END IF;
6481: IF l_debug_level > 0 THEN
6482: oe_debug_pub.add( 'AFTER HEADER PROCESSING HEADER_ID = '|| TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) , 2 ) ;
6511: END IF;
6512:
6513: IF p_x_header_adj_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6514: AND (p_x_header_adj_tbl(I).header_id IS NULL OR
6515: p_x_header_adj_tbl(I).header_id = FND_API.G_MISS_NUM)
6516: THEN
6517: IF p_x_header_rec.header_id IS NULL OR
6518: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6519: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6514: AND (p_x_header_adj_tbl(I).header_id IS NULL OR
6515: p_x_header_adj_tbl(I).header_id = FND_API.G_MISS_NUM)
6516: THEN
6517: IF p_x_header_rec.header_id IS NULL OR
6518: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6519: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6520: OE_MSG_PUB.Add;
6521: RAISE FND_API.G_EXC_ERROR;
6522: ELSE
6517: IF p_x_header_rec.header_id IS NULL OR
6518: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6519: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6520: OE_MSG_PUB.Add;
6521: RAISE FND_API.G_EXC_ERROR;
6522: ELSE
6523: -- Copy parent_id.
6524: p_x_header_adj_tbl(I).header_id := p_x_header_rec.header_id;
6525: END IF;
6527:
6528: -- This is added to prevent invalid upgraded orders
6529: IF I = p_x_header_adj_tbl.FIRST THEN
6530: IF (p_x_header_adj_tbl(I).header_id IS NOT NULL AND
6531: p_x_header_adj_tbl(I).header_id <> FND_API.G_MISS_NUM) THEN
6532: IF NOT Valid_Upgraded_Order(p_x_header_adj_tbl(I).header_id ) THEN
6533: RAISE FND_API.G_EXC_ERROR;
6534: END IF;
6535: END IF;
6529: IF I = p_x_header_adj_tbl.FIRST THEN
6530: IF (p_x_header_adj_tbl(I).header_id IS NOT NULL AND
6531: p_x_header_adj_tbl(I).header_id <> FND_API.G_MISS_NUM) THEN
6532: IF NOT Valid_Upgraded_Order(p_x_header_adj_tbl(I).header_id ) THEN
6533: RAISE FND_API.G_EXC_ERROR;
6534: END IF;
6535: END IF;
6536:
6537: END IF;
6566: THEN
6567:
6568: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6569: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_ADJ
6570: ,p_delete => FND_API.G_TRUE
6571: ,x_return_status => l_return_status
6572: );
6573: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6574: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6569: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_ADJ
6570: ,p_delete => FND_API.G_TRUE
6571: ,x_return_status => l_return_status
6572: );
6573: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6574: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6575: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6576: RAISE FND_API.G_EXC_ERROR;
6577: END IF;
6570: ,p_delete => FND_API.G_TRUE
6571: ,x_return_status => l_return_status
6572: );
6573: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6574: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6575: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6576: RAISE FND_API.G_EXC_ERROR;
6577: END IF;
6578:
6571: ,x_return_status => l_return_status
6572: );
6573: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6574: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6575: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6576: RAISE FND_API.G_EXC_ERROR;
6577: END IF;
6578:
6579:
6572: );
6573: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6574: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6575: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6576: RAISE FND_API.G_EXC_ERROR;
6577: END IF;
6578:
6579:
6580: END IF;
6594: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_PRICE_ATT_TBL' , 2 ) ;
6595: END IF;
6596: IF p_x_header_price_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6597: AND (p_x_header_price_att_tbl(I).header_id IS NULL OR
6598: p_x_header_price_att_tbl(I).header_id = FND_API.G_MISS_NUM)
6599: THEN
6600: IF p_x_header_rec.header_id IS NULL OR
6601: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6602: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6597: AND (p_x_header_price_att_tbl(I).header_id IS NULL OR
6598: p_x_header_price_att_tbl(I).header_id = FND_API.G_MISS_NUM)
6599: THEN
6600: IF p_x_header_rec.header_id IS NULL OR
6601: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6602: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6603: OE_MSG_PUB.Add;
6604: RAISE FND_API.G_EXC_ERROR;
6605: ELSE
6600: IF p_x_header_rec.header_id IS NULL OR
6601: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6602: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6603: OE_MSG_PUB.Add;
6604: RAISE FND_API.G_EXC_ERROR;
6605: ELSE
6606:
6607: -- Copy parent_id.
6608:
6640: THEN
6641:
6642: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6643: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Price_Att
6644: ,p_delete => FND_API.G_TRUE
6645: ,x_return_status => l_return_status
6646: );
6647: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6643: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Price_Att
6644: ,p_delete => FND_API.G_TRUE
6645: ,x_return_status => l_return_status
6646: );
6647: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6649: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6650: RAISE FND_API.G_EXC_ERROR;
6651: END IF;
6644: ,p_delete => FND_API.G_TRUE
6645: ,x_return_status => l_return_status
6646: );
6647: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6649: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6650: RAISE FND_API.G_EXC_ERROR;
6651: END IF;
6652:
6645: ,x_return_status => l_return_status
6646: );
6647: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6649: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6650: RAISE FND_API.G_EXC_ERROR;
6651: END IF;
6652:
6653:
6646: );
6647: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6649: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6650: RAISE FND_API.G_EXC_ERROR;
6651: END IF;
6652:
6653:
6654: END IF;
6668: oe_debug_pub.add( 'SETTING PRICE ADJUSTMENT ID ON HDR_ADJ_ATTBS' , 2 ) ;
6669: END IF;
6670: IF p_x_header_adj_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6671: AND (p_x_header_adj_att_tbl(I).price_adjustment_id IS NULL OR
6672: p_x_header_adj_att_tbl(I).price_adjustment_id = FND_API.G_MISS_NUM)
6673: THEN
6674:
6675: IF p_x_header_adj_Tbl.exists(p_x_header_adj_att_tbl(I).Adj_index)
6676: Then
6683: THEN
6684: IF l_debug_level > 0 THEN
6685: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( P_X_HEADER_ADJ_ATT_TBL ( I ) .ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
6686: END IF;
6687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6688: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
6689: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Attribs');
6690: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
6691: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_header_adj_att_tbl(I).adj_index);
6731: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_ADJ_ASSOC_TBL' , 2 ) ;
6732: END IF;
6733: IF p_x_header_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6734: AND (p_x_header_adj_assoc_tbl(I).Price_Adjustment_id IS NULL OR
6735: p_x_header_adj_assoc_tbl(I).Price_Adjustment_id = FND_API.G_MISS_NUM)
6736: THEN
6737:
6738: IF p_x_header_adj_Tbl.exists(p_x_header_adj_assoc_tbl(I).Adj_Index) Then
6739: -- Copy parent_id.
6745: THEN
6746: IF l_debug_level > 0 THEN
6747: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( P_X_HEADER_ADJ_ASSOC_TBL ( I ) .ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
6748: END IF;
6749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6750: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
6751: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Assocs');
6752: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
6753: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_header_adj_assoc_tbl(I).adj_index);
6758: END IF;
6759:
6760: IF p_x_header_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6761: AND (p_x_header_adj_assoc_tbl(I).rltd_Price_Adj_Id IS NULL OR
6762: p_x_header_adj_assoc_tbl(I).rltd_Price_Adj_Id = FND_API.G_MISS_NUM)
6763: THEN
6764:
6765: IF p_x_header_adj_Tbl.exists(p_x_header_adj_assoc_tbl(I).Rltd_Adj_Index) Then
6766: -- Copy parent_id.
6807: oe_debug_pub.add( 'SETTING HEADER_ID ON HEADER_SCREDIT_TBL' , 2 ) ;
6808: END IF;
6809: IF p_x_header_scredit_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6810: AND (p_x_header_scredit_tbl(I).header_id IS NULL OR
6811: p_x_header_scredit_tbl(I).header_id = FND_API.G_MISS_NUM)
6812: THEN
6813:
6814: IF p_x_header_rec.header_id IS NULL OR
6815: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6811: p_x_header_scredit_tbl(I).header_id = FND_API.G_MISS_NUM)
6812: THEN
6813:
6814: IF p_x_header_rec.header_id IS NULL OR
6815: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6816: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6817: OE_MSG_PUB.Add;
6818: RAISE FND_API.G_EXC_ERROR;
6819: ELSE
6814: IF p_x_header_rec.header_id IS NULL OR
6815: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6816: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6817: OE_MSG_PUB.Add;
6818: RAISE FND_API.G_EXC_ERROR;
6819: ELSE
6820: -- Copy parent_id.
6821:
6822: p_x_header_scredit_tbl(I).header_id := p_x_header_rec.header_id;
6839: , p_x_Header_Scredit_tbl => p_x_header_scredit_tbl
6840: , p_x_old_Header_Scredit_tbl => l_old_header_Scredit_tbl
6841: , x_return_status => l_return_status
6842: );
6843: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6845: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6846: IF p_control_rec.process_partial THEN
6847: x_return_status := FND_API.G_RET_STS_ERROR;
6840: , p_x_old_Header_Scredit_tbl => l_old_header_Scredit_tbl
6841: , x_return_status => l_return_status
6842: );
6843: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6845: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6846: IF p_control_rec.process_partial THEN
6847: x_return_status := FND_API.G_RET_STS_ERROR;
6848: ELSE
6841: , x_return_status => l_return_status
6842: );
6843: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6845: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6846: IF p_control_rec.process_partial THEN
6847: x_return_status := FND_API.G_RET_STS_ERROR;
6848: ELSE
6849: RAISE FND_API.G_EXC_ERROR;
6843: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6845: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6846: IF p_control_rec.process_partial THEN
6847: x_return_status := FND_API.G_RET_STS_ERROR;
6848: ELSE
6849: RAISE FND_API.G_EXC_ERROR;
6850: END IF;
6851: END IF;
6845: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6846: IF p_control_rec.process_partial THEN
6847: x_return_status := FND_API.G_RET_STS_ERROR;
6848: ELSE
6849: RAISE FND_API.G_EXC_ERROR;
6850: END IF;
6851: END IF;
6852: IF l_debug_level > 0 THEN
6853: oe_debug_pub.add( 'AFTER HEADER_SCREDITS PROCESSING' , 2 ) ;
6864: THEN
6865:
6866: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6867: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
6868: ,p_delete => FND_API.G_TRUE
6869: ,x_return_status => l_return_status
6870: );
6871: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6872: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6867: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
6868: ,p_delete => FND_API.G_TRUE
6869: ,x_return_status => l_return_status
6870: );
6871: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6872: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6873: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6874: RAISE FND_API.G_EXC_ERROR;
6875: END IF;
6868: ,p_delete => FND_API.G_TRUE
6869: ,x_return_status => l_return_status
6870: );
6871: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6872: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6873: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6874: RAISE FND_API.G_EXC_ERROR;
6875: END IF;
6876:
6869: ,x_return_status => l_return_status
6870: );
6871: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6872: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6873: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6874: RAISE FND_API.G_EXC_ERROR;
6875: END IF;
6876:
6877: END IF;
6870: );
6871: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6872: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6873: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6874: RAISE FND_API.G_EXC_ERROR;
6875: END IF;
6876:
6877: END IF;
6878:
6887: IF p_x_line_tbl.COUNT > 0 THEN
6888:
6889: For k in p_x_line_tbl.first .. p_x_line_tbl.last LOOP
6890:
6891: IF (p_x_line_tbl(k).header_id = FND_API.G_MISS_NUM
6892: OR p_x_line_tbl(k).header_id is null ) THEN
6893:
6894: -- Kris do not loop through the lines unless they have the right header_id
6895: -- If people pass in a header_id with a bogus value, the record should be ignored
6918: oe_debug_pub.add( 'SETTING HEADER_ID ON HEADER_PAYMENT_TBL' , 2 ) ;
6919: END IF;
6920: IF p_x_header_payment_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6921: AND (p_x_header_payment_tbl(I).header_id IS NULL OR
6922: p_x_header_payment_tbl(I).header_id = FND_API.G_MISS_NUM)
6923: THEN
6924:
6925: IF p_x_header_rec.header_id IS NULL OR
6926: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6922: p_x_header_payment_tbl(I).header_id = FND_API.G_MISS_NUM)
6923: THEN
6924:
6925: IF p_x_header_rec.header_id IS NULL OR
6926: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6927: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6928: OE_MSG_PUB.Add;
6929: RAISE FND_API.G_EXC_ERROR;
6930: ELSE
6925: IF p_x_header_rec.header_id IS NULL OR
6926: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6927: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6928: OE_MSG_PUB.Add;
6929: RAISE FND_API.G_EXC_ERROR;
6930: ELSE
6931: -- Copy parent_id.
6932:
6933: p_x_header_payment_tbl(I).header_id := p_x_header_rec.header_id;
6950: , p_x_Header_Payment_tbl => p_x_header_Payment_tbl
6951: , p_x_old_Header_Payment_tbl => l_old_header_Payment_tbl
6952: , x_return_status => l_return_status
6953: );
6954: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6955: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6956: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6957: IF p_control_rec.process_partial THEN
6958: x_return_status := FND_API.G_RET_STS_ERROR;
6951: , p_x_old_Header_Payment_tbl => l_old_header_Payment_tbl
6952: , x_return_status => l_return_status
6953: );
6954: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6955: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6956: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6957: IF p_control_rec.process_partial THEN
6958: x_return_status := FND_API.G_RET_STS_ERROR;
6959: ELSE
6952: , x_return_status => l_return_status
6953: );
6954: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6955: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6956: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6957: IF p_control_rec.process_partial THEN
6958: x_return_status := FND_API.G_RET_STS_ERROR;
6959: ELSE
6960: RAISE FND_API.G_EXC_ERROR;
6954: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6955: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6956: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6957: IF p_control_rec.process_partial THEN
6958: x_return_status := FND_API.G_RET_STS_ERROR;
6959: ELSE
6960: RAISE FND_API.G_EXC_ERROR;
6961: END IF;
6962: END IF;
6956: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6957: IF p_control_rec.process_partial THEN
6958: x_return_status := FND_API.G_RET_STS_ERROR;
6959: ELSE
6960: RAISE FND_API.G_EXC_ERROR;
6961: END IF;
6962: END IF;
6963: IF l_debug_level > 0 THEN
6964: oe_debug_pub.add( 'AFTER HEADER_PAYMENTS PROCESSING' , 2 ) ;
6975: THEN
6976:
6977: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6978: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Payment
6979: ,p_delete => FND_API.G_TRUE
6980: ,x_return_status => l_return_status
6981: );
6982: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6978: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Payment
6979: ,p_delete => FND_API.G_TRUE
6980: ,x_return_status => l_return_status
6981: );
6982: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6984: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6985: RAISE FND_API.G_EXC_ERROR;
6986: END IF;
6979: ,p_delete => FND_API.G_TRUE
6980: ,x_return_status => l_return_status
6981: );
6982: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6984: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6985: RAISE FND_API.G_EXC_ERROR;
6986: END IF;
6987:
6980: ,x_return_status => l_return_status
6981: );
6982: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6984: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6985: RAISE FND_API.G_EXC_ERROR;
6986: END IF;
6987:
6988: END IF;
6981: );
6982: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6984: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6985: RAISE FND_API.G_EXC_ERROR;
6986: END IF;
6987:
6988: END IF;
6989: END IF;
7002: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
7003: OE_GLOBALS.G_OPR_INSERT, OE_GLOBALS.G_OPR_NONE) THEN
7004: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
7005: OE_MSG_PUB.Add;
7006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7007: END IF;
7008:
7009: IF p_x_line_tbl(I).operation = oe_globals.g_opr_update
7010: AND p_x_line_tbl(I).split_action_code = 'SPLIT' THEN
7029: FND_MESSAGE.SET_NAME('ONT','OE_PC_SPLIT_VIOLATION');
7030: FND_MESSAGE.SET_TOKEN('OBJECT',p_x_line_tbl(I).line_id);
7031: FND_MESSAGE.SET_TOKEN('REASON','Line is in Negotiation Phase');
7032: OE_MSG_PUB.Add;
7033: RAISE FND_API.G_EXC_ERROR;
7034: ELSE
7035: l_call_split := TRUE;
7036: END IF;
7037: END IF;
7041: -- Retrieve the header ID, either from the header record
7042: -- or from the first line
7043: IF (I = p_x_line_tbl.FIRST) THEN
7044: IF (p_x_header_rec.header_id IS NOT NULL AND
7045: p_x_header_rec.header_id <> FND_API.G_MISS_NUM) THEN
7046: l_header_id := p_x_header_rec.header_id;
7047: ELSIF (p_x_line_tbl(I).header_id IS NOT NULL AND
7048: p_x_line_tbl(I).header_id <> FND_API.G_MISS_NUM) THEN
7049: l_header_id := p_x_line_tbl(I).header_id;
7044: IF (p_x_header_rec.header_id IS NOT NULL AND
7045: p_x_header_rec.header_id <> FND_API.G_MISS_NUM) THEN
7046: l_header_id := p_x_header_rec.header_id;
7047: ELSIF (p_x_line_tbl(I).header_id IS NOT NULL AND
7048: p_x_line_tbl(I).header_id <> FND_API.G_MISS_NUM) THEN
7049: l_header_id := p_x_line_tbl(I).header_id;
7050: END IF;
7051: END IF;
7052:
7051: END IF;
7052:
7053: IF p_x_line_tbl(I).operation <> OE_GLOBALS.G_OPR_CREATE
7054: AND (p_x_line_tbl(I).header_id IS NULL OR
7055: p_x_line_tbl(I).header_id = FND_API.G_MISS_NUM)
7056: THEN
7057: IF (l_header_id IS NOT NULL AND
7058: l_header_id <> FND_API.G_MISS_NUM) THEN
7059: p_x_line_tbl(I).header_id := l_header_id;
7054: AND (p_x_line_tbl(I).header_id IS NULL OR
7055: p_x_line_tbl(I).header_id = FND_API.G_MISS_NUM)
7056: THEN
7057: IF (l_header_id IS NOT NULL AND
7058: l_header_id <> FND_API.G_MISS_NUM) THEN
7059: p_x_line_tbl(I).header_id := l_header_id;
7060: ELSE
7061: oe_line_util.query_header
7062: (p_line_id => p_x_line_tbl(I).line_id,
7068: -- Copy the parent ID (header ID), if not passed, on
7069: -- the record for CREATE operations
7070: IF p_x_line_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE THEN
7071: IF (p_x_line_tbl(I).header_id IS NULL OR
7072: p_x_line_tbl(I).header_id = FND_API.G_MISS_NUM)
7073: THEN
7074: -- Copy parent_id.
7075: p_x_line_tbl(I).header_id := l_header_id;
7076: END IF;
7078:
7079: -- Raise error if the header ID for the line is different
7080: -- from header ID on the header record or other lines
7081: IF (l_header_id IS NOT NULL AND
7082: l_header_id <> FND_API.G_MISS_NUM) THEN
7083: IF p_x_line_tbl(I).header_id <> l_header_id THEN
7084: fnd_message.set_name('ONT', 'OE_HEADER_MISSING');
7085: oe_msg_pub.add;
7086: RAISE FND_API.G_EXC_ERROR;
7082: l_header_id <> FND_API.G_MISS_NUM) THEN
7083: IF p_x_line_tbl(I).header_id <> l_header_id THEN
7084: fnd_message.set_name('ONT', 'OE_HEADER_MISSING');
7085: oe_msg_pub.add;
7086: RAISE FND_API.G_EXC_ERROR;
7087: END IF;
7088: END IF;
7089:
7090: -- END: CHECK IF ALL LINES BELONG TO THE SAME ORDER
7116: , p_x_line_tbl => p_x_line_tbl
7117: , p_x_old_line_tbl => l_old_line_tbl
7118: , x_return_status => l_return_status
7119: );
7120: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7122: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7123: IF p_control_rec.process_partial THEN
7124: x_return_status := FND_API.G_RET_STS_ERROR;
7117: , p_x_old_line_tbl => l_old_line_tbl
7118: , x_return_status => l_return_status
7119: );
7120: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7122: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7123: IF p_control_rec.process_partial THEN
7124: x_return_status := FND_API.G_RET_STS_ERROR;
7125: ELSE
7118: , x_return_status => l_return_status
7119: );
7120: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7122: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7123: IF p_control_rec.process_partial THEN
7124: x_return_status := FND_API.G_RET_STS_ERROR;
7125: ELSE
7126: RAISE FND_API.G_EXC_ERROR;
7120: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7122: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7123: IF p_control_rec.process_partial THEN
7124: x_return_status := FND_API.G_RET_STS_ERROR;
7125: ELSE
7126: RAISE FND_API.G_EXC_ERROR;
7127: END IF;
7128: END IF;
7122: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7123: IF p_control_rec.process_partial THEN
7124: x_return_status := FND_API.G_RET_STS_ERROR;
7125: ELSE
7126: RAISE FND_API.G_EXC_ERROR;
7127: END IF;
7128: END IF;
7129: IF l_debug_level > 0 THEN
7130: oe_debug_pub.add( 'AFTER LINES PROCESSING' , 2 ) ;
7140: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE SC TABLE' ) ;
7141: END IF;
7142: IF p_x_line_scredit_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7143: AND (p_x_line_scredit_tbl(I).line_id IS NULL OR
7144: p_x_line_scredit_tbl(I).line_id = FND_API.G_MISS_NUM)
7145: THEN
7146: IF l_debug_level > 0 THEN
7147: oe_debug_pub.add( 'SETTING LINE IDS ON LINE SC TABLE' , 2 ) ;
7148: END IF;
7167: THEN
7168: IF l_debug_level > 0 THEN
7169: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON LINE SALES CREDITS' , 2 ) ;
7170: END IF;
7171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7172: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7173: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Scredit');
7174: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7175: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_line_scredit_tbl(I).line_index);
7191: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE SC TABLE' ) ;
7192: END IF;
7193: IF p_x_line_payment_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7194: AND (p_x_line_payment_tbl(I).line_id IS NULL OR
7195: p_x_line_payment_tbl(I).line_id = FND_API.G_MISS_NUM)
7196: THEN
7197: IF l_debug_level > 0 THEN
7198: oe_debug_pub.add( 'SETTING LINE IDS ON LINE PAYMENT TABLE' , 2 ) ;
7199: END IF;
7213: THEN
7214: IF l_debug_level > 0 THEN
7215: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON LINE SALES CREDITS' , 2 ) ;
7216: END IF;
7217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7218: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7219: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Payment');
7220: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7221: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_line_payment_tbl(I).line_index);
7238: END IF;
7239:
7240: IF p_x_line_adj_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7241: AND (p_x_line_adj_tbl(I).line_id IS NULL OR
7242: p_x_line_adj_tbl(I).line_id = FND_API.G_MISS_NUM)
7243: THEN
7244:
7245: IF l_debug_level > 0 THEN
7246: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ADJ TABLE' , 2 ) ;
7246: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ADJ TABLE' , 2 ) ;
7247: END IF;
7248: -- Check If parent exists.
7249:
7250: IF p_x_line_adj_tbl(I).line_index <> fnd_api.g_miss_num and
7251: p_x_line_tbl.EXISTS(p_x_line_adj_tbl(I).line_index) THEN
7252:
7253: -- Copy parent_id.
7254:
7255: p_x_line_adj_tbl(I).line_id := p_x_line_tbl(p_x_Line_adj_tbl(I).line_index).line_id;
7256: p_x_line_adj_tbl(I).header_id := p_x_line_tbl(p_x_Line_adj_tbl(I).line_index).header_id;
7257:
7258: ELSIF p_x_line_adj_tbl(I).header_id is not null and
7259: p_x_line_adj_tbl(I).header_id <> FND_API.G_MISS_NUM Then
7260: -- Treat the adjustment record as a header_adjustment record
7261: IF l_debug_level > 0 THEN
7262: oe_debug_pub.add( 'TREATING THE RECORD AS HEADER_ADJUSTMENT' ) ;
7263: END IF;
7267: THEN
7268: IF l_debug_level > 0 THEN
7269: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
7270: END IF;
7271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7272:
7273: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7274: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj');
7275: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7295: END IF;
7296:
7297: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7298: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
7299: ,p_delete => FND_API.G_TRUE
7300: ,x_return_status => l_return_status
7301: );
7302: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7298: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
7299: ,p_delete => FND_API.G_TRUE
7300: ,x_return_status => l_return_status
7301: );
7302: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7304: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7305: RAISE FND_API.G_EXC_ERROR;
7306: END IF;
7299: ,p_delete => FND_API.G_TRUE
7300: ,x_return_status => l_return_status
7301: );
7302: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7304: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7305: RAISE FND_API.G_EXC_ERROR;
7306: END IF;
7307:
7300: ,x_return_status => l_return_status
7301: );
7302: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7304: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7305: RAISE FND_API.G_EXC_ERROR;
7306: END IF;
7307:
7308: END IF;
7301: );
7302: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7304: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7305: RAISE FND_API.G_EXC_ERROR;
7306: END IF;
7307:
7308: END IF;
7309:
7334: THEN
7335:
7336: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7337: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
7338: ,p_delete => FND_API.G_TRUE
7339: ,x_return_status => l_return_status
7340: );
7341: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7337: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
7338: ,p_delete => FND_API.G_TRUE
7339: ,x_return_status => l_return_status
7340: );
7341: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7343: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7344: RAISE FND_API.G_EXC_ERROR;
7345: END IF;
7338: ,p_delete => FND_API.G_TRUE
7339: ,x_return_status => l_return_status
7340: );
7341: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7343: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7344: RAISE FND_API.G_EXC_ERROR;
7345: END IF;
7346:
7339: ,x_return_status => l_return_status
7340: );
7341: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7343: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7344: RAISE FND_API.G_EXC_ERROR;
7345: END IF;
7346:
7347: END IF;
7340: );
7341: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7343: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7344: RAISE FND_API.G_EXC_ERROR;
7345: END IF;
7346:
7347: END IF;
7348:
7360: , p_x_Line_Scredit_tbl => p_x_line_scredit_tbl
7361: , p_x_old_Line_Scredit_tbl => l_old_line_Scredit_tbl
7362: , x_return_status => l_return_status
7363: );
7364: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7366: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7367: IF p_control_rec.process_partial THEN
7368: x_return_status := FND_API.G_RET_STS_ERROR;
7361: , p_x_old_Line_Scredit_tbl => l_old_line_Scredit_tbl
7362: , x_return_status => l_return_status
7363: );
7364: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7366: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7367: IF p_control_rec.process_partial THEN
7368: x_return_status := FND_API.G_RET_STS_ERROR;
7369: ELSE
7362: , x_return_status => l_return_status
7363: );
7364: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7366: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7367: IF p_control_rec.process_partial THEN
7368: x_return_status := FND_API.G_RET_STS_ERROR;
7369: ELSE
7370: RAISE FND_API.G_EXC_ERROR;
7364: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7366: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7367: IF p_control_rec.process_partial THEN
7368: x_return_status := FND_API.G_RET_STS_ERROR;
7369: ELSE
7370: RAISE FND_API.G_EXC_ERROR;
7371: END IF;
7372: END IF;
7366: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7367: IF p_control_rec.process_partial THEN
7368: x_return_status := FND_API.G_RET_STS_ERROR;
7369: ELSE
7370: RAISE FND_API.G_EXC_ERROR;
7371: END IF;
7372: END IF;
7373:
7374: END IF;
7386: END IF;
7387:
7388: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7389: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Scredit
7390: ,p_delete => FND_API.G_TRUE
7391: ,x_return_status => l_return_status
7392: );
7393:
7394: IF l_debug_level > 0 THEN
7394: IF l_debug_level > 0 THEN
7395: oe_debug_pub.add( 'PROCESSED DELAYED REQUESTS FOR LINES' , 2 ) ;
7396: END IF;
7397:
7398: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7400: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7401: RAISE FND_API.G_EXC_ERROR;
7402: END IF;
7395: oe_debug_pub.add( 'PROCESSED DELAYED REQUESTS FOR LINES' , 2 ) ;
7396: END IF;
7397:
7398: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7400: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7401: RAISE FND_API.G_EXC_ERROR;
7402: END IF;
7403:
7396: END IF;
7397:
7398: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7400: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7401: RAISE FND_API.G_EXC_ERROR;
7402: END IF;
7403:
7404: END IF;
7397:
7398: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7400: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7401: RAISE FND_API.G_EXC_ERROR;
7402: END IF;
7403:
7404: END IF;
7405:
7419: , p_x_Line_Payment_tbl => p_x_line_Payment_tbl
7420: , p_x_old_Line_Payment_tbl => l_old_line_Payment_tbl
7421: , x_return_status => l_return_status
7422: );
7423: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7425: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7426: IF p_control_rec.process_partial THEN
7427: x_return_status := FND_API.G_RET_STS_ERROR;
7420: , p_x_old_Line_Payment_tbl => l_old_line_Payment_tbl
7421: , x_return_status => l_return_status
7422: );
7423: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7425: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7426: IF p_control_rec.process_partial THEN
7427: x_return_status := FND_API.G_RET_STS_ERROR;
7428: ELSE
7421: , x_return_status => l_return_status
7422: );
7423: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7425: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7426: IF p_control_rec.process_partial THEN
7427: x_return_status := FND_API.G_RET_STS_ERROR;
7428: ELSE
7429: RAISE FND_API.G_EXC_ERROR;
7423: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7425: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7426: IF p_control_rec.process_partial THEN
7427: x_return_status := FND_API.G_RET_STS_ERROR;
7428: ELSE
7429: RAISE FND_API.G_EXC_ERROR;
7430: END IF;
7431: END IF;
7425: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7426: IF p_control_rec.process_partial THEN
7427: x_return_status := FND_API.G_RET_STS_ERROR;
7428: ELSE
7429: RAISE FND_API.G_EXC_ERROR;
7430: END IF;
7431: END IF;
7432:
7433: END IF;
7445: END IF;
7446:
7447: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7448: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_PAYMENT
7449: ,p_delete => FND_API.G_TRUE
7450: ,x_return_status => l_return_status
7451: );
7452:
7453: IF l_debug_level > 0 THEN
7453: IF l_debug_level > 0 THEN
7454: oe_debug_pub.add( 'PROCESSED DELAYED REQUESTS FOR LINES' , 2 ) ;
7455: END IF;
7456:
7457: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7459: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7460: RAISE FND_API.G_EXC_ERROR;
7461: END IF;
7454: oe_debug_pub.add( 'PROCESSED DELAYED REQUESTS FOR LINES' , 2 ) ;
7455: END IF;
7456:
7457: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7459: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7460: RAISE FND_API.G_EXC_ERROR;
7461: END IF;
7462:
7455: END IF;
7456:
7457: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7459: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7460: RAISE FND_API.G_EXC_ERROR;
7461: END IF;
7462:
7463: END IF;
7456:
7457: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7459: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7460: RAISE FND_API.G_EXC_ERROR;
7461: END IF;
7462:
7463: END IF;
7464: END IF;
7475: WHILE I IS NOT NULL LOOP
7476:
7477: IF p_x_lot_serial_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7478: AND (p_x_lot_serial_tbl(I).line_id IS NULL OR
7479: p_x_lot_serial_tbl(I).line_id = FND_API.G_MISS_NUM)
7480: THEN
7481:
7482: -- Check If parent exists.
7483:
7512: , p_x_Lot_Serial_tbl => p_x_lot_serial_tbl
7513: , p_x_old_Lot_Serial_tbl => l_old_lot_Serial_tbl
7514: , x_return_status => l_return_status
7515: );
7516: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7518: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7519: IF p_control_rec.process_partial THEN
7520: x_return_status := FND_API.G_RET_STS_ERROR;
7513: , p_x_old_Lot_Serial_tbl => l_old_lot_Serial_tbl
7514: , x_return_status => l_return_status
7515: );
7516: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7518: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7519: IF p_control_rec.process_partial THEN
7520: x_return_status := FND_API.G_RET_STS_ERROR;
7521: ELSE
7514: , x_return_status => l_return_status
7515: );
7516: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7518: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7519: IF p_control_rec.process_partial THEN
7520: x_return_status := FND_API.G_RET_STS_ERROR;
7521: ELSE
7522: RAISE FND_API.G_EXC_ERROR;
7516: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7518: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7519: IF p_control_rec.process_partial THEN
7520: x_return_status := FND_API.G_RET_STS_ERROR;
7521: ELSE
7522: RAISE FND_API.G_EXC_ERROR;
7523: END IF;
7524: END IF;
7518: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7519: IF p_control_rec.process_partial THEN
7520: x_return_status := FND_API.G_RET_STS_ERROR;
7521: ELSE
7522: RAISE FND_API.G_EXC_ERROR;
7523: END IF;
7524: END IF;
7525:
7526: END IF;
7550: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE ATTRIBUTES TABLE' , 2 ) ;
7551: END IF;
7552: IF p_x_line_price_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7553: AND (p_x_line_price_att_tbl(I).line_id IS NULL OR
7554: p_x_line_price_att_tbl(I).line_id = FND_API.G_MISS_NUM)
7555: THEN
7556:
7557: IF l_debug_level > 0 THEN
7558: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ATTRIB TABLE' , 2 ) ;
7572: THEN
7573: IF l_debug_level > 0 THEN
7574: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( P_X_LINE_PRICE_ATT_TBL ( I ) .LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
7575: END IF;
7576: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7577:
7578: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7579: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Price_Att');
7580: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7609: THEN
7610:
7611: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7612: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
7613: ,p_delete => FND_API.G_TRUE
7614: ,x_return_status => l_return_status
7615: );
7616: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7612: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
7613: ,p_delete => FND_API.G_TRUE
7614: ,x_return_status => l_return_status
7615: );
7616: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7618: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7619: RAISE FND_API.G_EXC_ERROR;
7620: END IF;
7613: ,p_delete => FND_API.G_TRUE
7614: ,x_return_status => l_return_status
7615: );
7616: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7618: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7619: RAISE FND_API.G_EXC_ERROR;
7620: END IF;
7621:
7614: ,x_return_status => l_return_status
7615: );
7616: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7618: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7619: RAISE FND_API.G_EXC_ERROR;
7620: END IF;
7621:
7622: END IF;
7615: );
7616: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7618: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7619: RAISE FND_API.G_EXC_ERROR;
7620: END IF;
7621:
7622: END IF;
7623:
7636: END IF;
7637:
7638: IF p_x_line_adj_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7639: AND (p_x_line_adj_att_tbl(I).price_adjustment_id IS NULL OR
7640: p_x_line_adj_att_tbl(I).price_adjustment_id = FND_API.G_MISS_NUM)
7641: THEN
7642:
7643: IF l_debug_level > 0 THEN
7644: oe_debug_pub.add( 'SETTING ADJ IDS ON LINE ADJ ATTRIB TABLE' , 2 ) ;
7657: THEN
7658: IF l_debug_level > 0 THEN
7659: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( P_X_LINE_ADJ_ATT_TBL ( I ) .ADJ_INDEX ) ||'ON ADJ ATTRIBS' , 2 ) ;
7660: END IF;
7661: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7662:
7663: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7664: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj_Att');
7665: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7698: oe_debug_pub.add( 'SETTING PRICE_ADJUSTMENT_ID ON LINE ADJ ASSOCS TABLE' , 2 ) ;
7699: END IF;
7700: IF p_x_line_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7701: AND (p_x_line_adj_assoc_tbl(I).price_adjustment_id IS NULL OR
7702: p_x_line_adj_assoc_tbl(I).price_adjustment_id = FND_API.G_MISS_NUM)
7703: THEN
7704:
7705: IF l_debug_level > 0 THEN
7706: oe_debug_pub.add( 'SETTING ADJ IDS ON LINE ADJ ASSOCS TABLE' , 2 ) ;
7719: THEN
7720: IF l_debug_level > 0 THEN
7721: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( P_X_LINE_ADJ_ASSOC_TBL ( I ) .ADJ_INDEX ) ||'ON ADJ ASSOCS' , 2 ) ;
7722: END IF;
7723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7724:
7725: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7726: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj_Assoc');
7727: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7733: END IF;
7734:
7735: IF p_x_line_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7736: AND (p_x_line_adj_assoc_tbl(I).Line_id IS NULL OR
7737: p_x_line_adj_assoc_tbl(I).Line_id = FND_API.G_MISS_NUM)
7738: THEN
7739:
7740: IF l_debug_level > 0 THEN
7741: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ADJ ASSOCS TABLE' , 2 ) ;
7751: END IF;
7752:
7753: IF p_x_line_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7754: AND (p_x_line_adj_assoc_tbl(I).rltd_Price_Adj_Id IS NULL OR
7755: p_x_line_adj_assoc_tbl(I).rltd_Price_Adj_Id = FND_API.G_MISS_NUM)
7756: THEN
7757:
7758: IF p_x_line_adj_Tbl.exists(p_x_Line_Adj_assoc_tbl(I).Rltd_Adj_Index) Then
7759: -- Copy parent_id.
7792:
7793: IF (p_x_action_request_tbl(I).entity_code = OE_GLOBALS.G_ENTITY_HEADER) THEN
7794:
7795: IF (p_x_action_request_tbl(I).entity_id IS NULL OR
7796: p_x_action_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
7797: THEN
7798: IF l_debug_level > 0 THEN
7799: oe_debug_pub.add( 'SETTING HEADER IDS ON REQUEST TABLE FOR HEADER ENTITY' , 2 ) ;
7800: END IF;
7798: IF l_debug_level > 0 THEN
7799: oe_debug_pub.add( 'SETTING HEADER IDS ON REQUEST TABLE FOR HEADER ENTITY' , 2 ) ;
7800: END IF;
7801: IF p_x_header_rec.header_id IS NULL OR
7802: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
7803: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
7804: OE_MSG_PUB.Add;
7805: RAISE FND_API.G_EXC_ERROR;
7806: ELSE
7801: IF p_x_header_rec.header_id IS NULL OR
7802: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
7803: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
7804: OE_MSG_PUB.Add;
7805: RAISE FND_API.G_EXC_ERROR;
7806: ELSE
7807: p_x_action_request_tbl(I).entity_id := p_x_header_rec.header_id;
7808: l_hdr_flow_status_refresh := 'Y'; -- Bug 8435946
7809: END IF;
7811:
7812: ELSIF (p_x_action_request_tbl(I).entity_code = OE_GLOBALS.G_ENTITY_LINE) THEN
7813:
7814: IF (p_x_action_request_tbl(I).entity_id IS NULL OR
7815: p_x_action_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
7816: THEN
7817: IF l_debug_level > 0 THEN
7818: oe_debug_pub.add( 'SETTING LINE IDS ON REQUEST TABLE FOR LINE ENTITY' , 2 ) ;
7819: END IF;
7831: THEN
7832: IF l_debug_level > 0 THEN
7833: oe_debug_pub.add( 'INVALID ENTITY INDEX ' ||TO_CHAR ( p_x_action_request_tbl ( I ) .ENTITY_INDEX ) ||'ON REQUEST TABLE FOR LINE ENTITY' , 2 ) ;
7834: END IF;
7835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7836: END IF;
7837: END IF;
7838: END IF;
7839:
7839:
7840: ELSIF (p_x_action_request_tbl(I).request_type = OE_GLOBALS.G_VERIFY_PAYMENT) THEN
7841:
7842: IF (p_x_action_request_tbl(I).entity_id IS NULL OR
7843: p_x_action_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
7844: THEN
7845: IF l_debug_level > 0 THEN
7846: oe_debug_pub.add( 'SETTING HEADER IDS ON REQUEST TABLE FOR VERIFY_PAYMENT' , 2 ) ;
7847: END IF;
7845: IF l_debug_level > 0 THEN
7846: oe_debug_pub.add( 'SETTING HEADER IDS ON REQUEST TABLE FOR VERIFY_PAYMENT' , 2 ) ;
7847: END IF;
7848: IF p_x_header_rec.header_id IS NULL OR
7849: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
7850: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
7851: OE_MSG_PUB.Add;
7852: RAISE FND_API.G_EXC_ERROR;
7853: ELSE
7848: IF p_x_header_rec.header_id IS NULL OR
7849: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
7850: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
7851: OE_MSG_PUB.Add;
7852: RAISE FND_API.G_EXC_ERROR;
7853: ELSE
7854: p_x_action_request_tbl(I).entity_id := p_x_header_rec.header_id;
7855: END IF;
7856: END IF;
7876: );
7877: IF l_debug_level > 0 THEN
7878: oe_debug_pub.add( 'OEXVORDB: COMPLETED PROCESS_DELAYED_REQUESTS ' || ' WITH RETURN STATUS' || L_RETURN_STATUS , 2 ) ;
7879: END IF;
7880: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7882: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7883: RAISE FND_API.G_EXC_ERROR;
7884: END IF;
7877: IF l_debug_level > 0 THEN
7878: oe_debug_pub.add( 'OEXVORDB: COMPLETED PROCESS_DELAYED_REQUESTS ' || ' WITH RETURN STATUS' || L_RETURN_STATUS , 2 ) ;
7879: END IF;
7880: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7882: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7883: RAISE FND_API.G_EXC_ERROR;
7884: END IF;
7885:
7878: oe_debug_pub.add( 'OEXVORDB: COMPLETED PROCESS_DELAYED_REQUESTS ' || ' WITH RETURN STATUS' || L_RETURN_STATUS , 2 ) ;
7879: END IF;
7880: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7882: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7883: RAISE FND_API.G_EXC_ERROR;
7884: END IF;
7885:
7886: END IF;
7879: END IF;
7880: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7882: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7883: RAISE FND_API.G_EXC_ERROR;
7884: END IF;
7885:
7886: END IF;
7887:
7905: IF l_debug_level > 0 THEN
7906: oe_debug_pub.add('return_status : ' || p_x_action_request_tbl(i).return_status);
7907: oe_debug_pub.add('request_type : ' || p_x_action_request_tbl(i).request_type);
7908: END IF;
7909: IF p_x_action_request_tbl(i).return_status = FND_API.G_RET_STS_ERROR
7910: AND p_x_action_request_tbl(i).request_type = OE_GLOBALS.G_VERIFY_PAYMENT THEN
7911: x_return_status := FND_API.G_RET_STS_ERROR;
7912: RAISE FND_API.G_EXC_ERROR;
7913: END IF;
7907: oe_debug_pub.add('request_type : ' || p_x_action_request_tbl(i).request_type);
7908: END IF;
7909: IF p_x_action_request_tbl(i).return_status = FND_API.G_RET_STS_ERROR
7910: AND p_x_action_request_tbl(i).request_type = OE_GLOBALS.G_VERIFY_PAYMENT THEN
7911: x_return_status := FND_API.G_RET_STS_ERROR;
7912: RAISE FND_API.G_EXC_ERROR;
7913: END IF;
7914: i := p_x_action_request_tbl.next(i);
7915: end loop;
7908: END IF;
7909: IF p_x_action_request_tbl(i).return_status = FND_API.G_RET_STS_ERROR
7910: AND p_x_action_request_tbl(i).request_type = OE_GLOBALS.G_VERIFY_PAYMENT THEN
7911: x_return_status := FND_API.G_RET_STS_ERROR;
7912: RAISE FND_API.G_EXC_ERROR;
7913: END IF;
7914: i := p_x_action_request_tbl.next(i);
7915: end loop;
7916: --R12 CVV2
7961: END IF;
7962:
7963: -- Derive return status
7964:
7965: IF p_x_header_rec.return_status = FND_API.G_RET_STS_ERROR THEN
7966: x_return_status := FND_API.G_RET_STS_ERROR;
7967: END IF;
7968:
7969: -- Do not need to loop through header_scredits, lines
7962:
7963: -- Derive return status
7964:
7965: IF p_x_header_rec.return_status = FND_API.G_RET_STS_ERROR THEN
7966: x_return_status := FND_API.G_RET_STS_ERROR;
7967: END IF;
7968:
7969: -- Do not need to loop through header_scredits, lines
7970: -- line_scredits or lot_serials as the x_return_status is set
7972:
7973: I := p_x_header_adj_tbl.FIRST;
7974: WHILE I IS NOT NULL LOOP
7975:
7976: IF p_x_header_adj_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
7977: x_return_status := FND_API.G_RET_STS_ERROR;
7978: END IF;
7979:
7980: I := p_x_header_adj_tbl.NEXT(I);
7973: I := p_x_header_adj_tbl.FIRST;
7974: WHILE I IS NOT NULL LOOP
7975:
7976: IF p_x_header_adj_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
7977: x_return_status := FND_API.G_RET_STS_ERROR;
7978: END IF;
7979:
7980: I := p_x_header_adj_tbl.NEXT(I);
7981: END LOOP;
7982:
7983: I := p_x_header_price_Att_tbl.FIRST;
7984: WHILE I IS NOT NULL LOOP
7985:
7986: IF p_x_header_price_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
7987: x_return_status := FND_API.G_RET_STS_ERROR;
7988: END IF;
7989:
7990: I := p_x_header_price_Att_tbl.NEXT(I);
7983: I := p_x_header_price_Att_tbl.FIRST;
7984: WHILE I IS NOT NULL LOOP
7985:
7986: IF p_x_header_price_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
7987: x_return_status := FND_API.G_RET_STS_ERROR;
7988: END IF;
7989:
7990: I := p_x_header_price_Att_tbl.NEXT(I);
7991: END LOOP;
7992:
7993: I := p_x_header_adj_Att_tbl.FIRST;
7994: WHILE I IS NOT NULL LOOP
7995:
7996: IF p_x_header_adj_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
7997: x_return_status := FND_API.G_RET_STS_ERROR;
7998: END IF;
7999:
8000: I := p_x_header_adj_Att_tbl.NEXT(I);
7993: I := p_x_header_adj_Att_tbl.FIRST;
7994: WHILE I IS NOT NULL LOOP
7995:
7996: IF p_x_header_adj_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
7997: x_return_status := FND_API.G_RET_STS_ERROR;
7998: END IF;
7999:
8000: I := p_x_header_adj_Att_tbl.NEXT(I);
8001: END LOOP;
8002:
8003: I := p_x_header_adj_Assoc_tbl.FIRST;
8004: WHILE I IS NOT NULL LOOP
8005:
8006: IF p_x_header_adj_Assoc_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
8007: x_return_status := FND_API.G_RET_STS_ERROR;
8008: END IF;
8009:
8010: I := p_x_header_adj_Assoc_tbl.NEXT(I);
8003: I := p_x_header_adj_Assoc_tbl.FIRST;
8004: WHILE I IS NOT NULL LOOP
8005:
8006: IF p_x_header_adj_Assoc_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
8007: x_return_status := FND_API.G_RET_STS_ERROR;
8008: END IF;
8009:
8010: I := p_x_header_adj_Assoc_tbl.NEXT(I);
8011: END LOOP;
8012:
8013: I := p_x_line_adj_tbl.FIRST;
8014: WHILE I IS NOT NULL LOOP
8015:
8016: IF p_x_line_adj_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
8017: x_return_status := FND_API.G_RET_STS_ERROR;
8018: END IF;
8019:
8020: I := p_x_line_adj_tbl.NEXT(I);
8013: I := p_x_line_adj_tbl.FIRST;
8014: WHILE I IS NOT NULL LOOP
8015:
8016: IF p_x_line_adj_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
8017: x_return_status := FND_API.G_RET_STS_ERROR;
8018: END IF;
8019:
8020: I := p_x_line_adj_tbl.NEXT(I);
8021: END LOOP;
8022:
8023: I := p_x_line_price_Att_tbl.FIRST;
8024: WHILE I IS NOT NULL LOOP
8025:
8026: IF p_x_line_price_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
8027: x_return_status := FND_API.G_RET_STS_ERROR;
8028: END IF;
8029:
8030: I := p_x_line_price_Att_tbl.NEXT(I);
8023: I := p_x_line_price_Att_tbl.FIRST;
8024: WHILE I IS NOT NULL LOOP
8025:
8026: IF p_x_line_price_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
8027: x_return_status := FND_API.G_RET_STS_ERROR;
8028: END IF;
8029:
8030: I := p_x_line_price_Att_tbl.NEXT(I);
8031: END LOOP;
8032:
8033: I := p_x_line_adj_Att_tbl.FIRST;
8034: WHILE I IS NOT NULL LOOP
8035:
8036: IF p_x_line_adj_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
8037: x_return_status := FND_API.G_RET_STS_ERROR;
8038: END IF;
8039:
8040: I := p_x_line_adj_Att_tbl.NEXT(I);
8033: I := p_x_line_adj_Att_tbl.FIRST;
8034: WHILE I IS NOT NULL LOOP
8035:
8036: IF p_x_line_adj_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
8037: x_return_status := FND_API.G_RET_STS_ERROR;
8038: END IF;
8039:
8040: I := p_x_line_adj_Att_tbl.NEXT(I);
8041: END LOOP;
8042:
8043: I := p_x_line_adj_Assoc_tbl.FIRST;
8044: WHILE I IS NOT NULL LOOP
8045:
8046: IF p_x_line_adj_Assoc_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
8047: x_return_status := FND_API.G_RET_STS_ERROR;
8048: END IF;
8049:
8050: I := p_x_line_adj_Assoc_tbl.NEXT(I);
8043: I := p_x_line_adj_Assoc_tbl.FIRST;
8044: WHILE I IS NOT NULL LOOP
8045:
8046: IF p_x_line_adj_Assoc_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
8047: x_return_status := FND_API.G_RET_STS_ERROR;
8048: END IF;
8049:
8050: I := p_x_line_adj_Assoc_tbl.NEXT(I);
8051: END LOOP;
8086: p_old_Line_Payment_tbl => l_old_line_Payment_tbl,
8087: p_Lot_Serial_tbl => p_x_lot_Serial_tbl,
8088: p_old_Lot_Serial_tbl => l_old_Lot_Serial_tbl);
8089:
8090: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8092: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8093: RAISE FND_API.G_EXC_ERROR;
8094: END IF;
8087: p_Lot_Serial_tbl => p_x_lot_Serial_tbl,
8088: p_old_Lot_Serial_tbl => l_old_Lot_Serial_tbl);
8089:
8090: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8092: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8093: RAISE FND_API.G_EXC_ERROR;
8094: END IF;
8095:
8088: p_old_Lot_Serial_tbl => l_old_Lot_Serial_tbl);
8089:
8090: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8092: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8093: RAISE FND_API.G_EXC_ERROR;
8094: END IF;
8095:
8096: ELSE
8089:
8090: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8092: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8093: RAISE FND_API.G_EXC_ERROR;
8094: END IF;
8095:
8096: ELSE
8097: /* Pre Pack H processsing */
8099:
8100: IF l_debug_level > 0 THEN
8101: oe_debug_pub.add( 'CS BEFORE CALLING NOTIFY_OC API' , 1 ) ;
8102: END IF;
8103: IF x_return_status = FND_API.G_RET_STS_SUCCESS AND
8104: p_control_rec.write_to_db = TRUE
8105: AND oe_order_cache.g_header_rec.booked_flag = 'Y'
8106: THEN
8107: IF l_debug_level > 0 THEN
8109: END IF;
8110:
8111: OE_SERVICE_UTIL.Notify_OC
8112: ( p_api_version_number => l_api_version_number
8113: , p_init_msg_list => FND_API.G_FALSE
8114: , p_validation_level => p_validation_level
8115: , p_control_rec => p_control_rec
8116: , x_return_status => l_return_status
8117: , x_msg_count => x_msg_count
8154:
8155: IF l_debug_level > 0 THEN
8156: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
8157: END IF;
8158: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8160: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8161: RAISE FND_API.G_EXC_ERROR;
8162: END IF;
8155: IF l_debug_level > 0 THEN
8156: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
8157: END IF;
8158: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8160: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8161: RAISE FND_API.G_EXC_ERROR;
8162: END IF;
8163:
8156: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
8157: END IF;
8158: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8160: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8161: RAISE FND_API.G_EXC_ERROR;
8162: END IF;
8163:
8164:
8157: END IF;
8158: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8160: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8161: RAISE FND_API.G_EXC_ERROR;
8162: END IF;
8163:
8164:
8165: END IF;
8168: oe_debug_pub.add( 'PROCESSING ACKS' , 1 ) ;
8169: END IF;
8170:
8171: IF OE_Globals.G_RECURSION_MODE <> 'Y' AND
8172: x_return_status = FND_API.G_RET_STS_SUCCESS AND
8173: l_control_rec.write_to_db = TRUE
8174: THEN
8175: IF l_debug_level > 0 THEN
8176: oe_debug_pub.add( 'CALLING ACKS API' , 1 ) ;
8216: );
8217:
8218: End If;
8219:
8220: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8222: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8223: RAISE FND_API.G_EXC_ERROR;
8224: x_return_status := l_return_status;
8217:
8218: End If;
8219:
8220: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8222: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8223: RAISE FND_API.G_EXC_ERROR;
8224: x_return_status := l_return_status;
8225: END IF;
8218: End If;
8219:
8220: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8222: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8223: RAISE FND_API.G_EXC_ERROR;
8224: x_return_status := l_return_status;
8225: END IF;
8226: END IF;
8219:
8220: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8222: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8223: RAISE FND_API.G_EXC_ERROR;
8224: x_return_status := l_return_status;
8225: END IF;
8226: END IF;
8227:
8258: -- End of Comments
8259: ----------------------------------------------------------------*/
8260: PROCEDURE Process_Order
8261: ( p_api_version_number IN NUMBER
8262: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8263: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
8264: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
8265: OE_GLOBALS.G_MISS_CONTROL_REC
8266: , x_return_status OUT NOCOPY VARCHAR2
8259: ----------------------------------------------------------------*/
8260: PROCEDURE Process_Order
8261: ( p_api_version_number IN NUMBER
8262: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8263: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
8264: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
8265: OE_GLOBALS.G_MISS_CONTROL_REC
8266: , x_return_status OUT NOCOPY VARCHAR2
8267:
8312: OE_Order_PUB.G_MISS_LOT_SERIAL_VAL_TBL
8313: , p_old_Lot_Serial_val_tbl IN OE_Order_PUB.Lot_Serial_Val_Tbl_Type :=
8314: OE_Order_PUB.G_MISS_LOT_SERIAL_VAL_TBL
8315: , p_x_action_request_tbl IN OUT NOCOPY OE_Order_PUB.request_tbl_type
8316: , p_action_commit IN VARCHAR2 := FND_API.G_FALSE
8317: )
8318: IS
8319: l_x_Header_Payment_tbl OE_Order_PUB.Header_Payment_Tbl_Type;
8320: l_x_Line_Payment_tbl OE_Order_PUB.Line_Payment_Tbl_Type;
8368:
8369: -- overloaded for payments
8370: PROCEDURE Process_Order
8371: ( p_api_version_number IN NUMBER
8372: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8373: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
8374: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
8375: OE_GLOBALS.G_MISS_CONTROL_REC
8376: , x_return_status OUT NOCOPY VARCHAR2
8369: -- overloaded for payments
8370: PROCEDURE Process_Order
8371: ( p_api_version_number IN NUMBER
8372: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8373: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
8374: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
8375: OE_GLOBALS.G_MISS_CONTROL_REC
8376: , x_return_status OUT NOCOPY VARCHAR2
8377:
8428: OE_Order_PUB.G_MISS_LOT_SERIAL_VAL_TBL
8429: , p_old_Lot_Serial_val_tbl IN OE_Order_PUB.Lot_Serial_Val_Tbl_Type :=
8430: OE_Order_PUB.G_MISS_LOT_SERIAL_VAL_TBL
8431: , p_x_action_request_tbl IN OUT NOCOPY OE_Order_PUB.request_tbl_type
8432: , p_action_commit IN VARCHAR2 := FND_API.G_FALSE
8433: )
8434: IS
8435: l_api_version_number CONSTANT NUMBER := 1.0;
8436: l_api_name CONSTANT VARCHAR2(30):= 'Process_Order';
8494: l_line_index NUMBER;
8495: l_header_id NUMBER;
8496: I NUMBER; -- Used for as table index.
8497: l_init_msg_list VARCHAR2(1) := p_init_msg_list;
8498: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
8499: l_Call_Split BOOLEAN := FALSE;
8500: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8501: l_edi_ack_pfile Varchar2(3);
8502:
8506:
8507: set_recursion_mode(p_Entity_Code => 1,
8508: p_In_out => 1);
8509:
8510: x_return_status := FND_API.G_RET_STS_SUCCESS;
8511: fnd_profile.get('ONT_NEW_EDI_ACK_FWK', l_edi_ack_pfile);
8512: l_edi_ack_pfile := nvl(l_edi_ack_pfile, 'NO');
8513:
8514: IF OE_GLOBALS.G_RECURSION_MODE <> 'Y' THEN
8521: oe_debug_pub.add( 'ENTERING OE_ORDER_PUB.PROCESS_ORDER' , 1 ) ;
8522: END IF;
8523: -- Standard call to check for call compatibility
8524:
8525: IF NOT FND_API.Compatible_API_Call
8526: ( l_api_version_number
8527: , p_api_version_number
8528: , l_api_name
8529: , G_PKG_NAME
8528: , l_api_name
8529: , G_PKG_NAME
8530: )
8531: THEN
8532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8533: END IF;
8534:
8535: -- Initialize message list.
8536:
8533: END IF;
8534:
8535: -- Initialize message list.
8536:
8537: IF FND_API.to_Boolean(p_init_msg_list) THEN
8538: OE_MSG_PUB.initialize;
8539: END IF;
8540:
8541: -- Set Org Context
8661:
8662: --Bug 2790512: Prevent processing of header if operation is invalid
8663: --Bug 2878121: Ignore NULL operation code
8664: IF l_header_rec.header_id is NOT NULL AND
8665: l_header_rec.header_id <> FND_API.G_MISS_NUM THEN
8666: IF l_header_rec.operation IS NOT NULL AND
8667: l_header_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
8668: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
8669: OE_GLOBALS.G_OPR_NONE) THEN
8668: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
8669: OE_GLOBALS.G_OPR_NONE) THEN
8670: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
8671: OE_MSG_PUB.Add;
8672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8673: END IF;
8674: END IF;
8675:
8676: IF l_header_rec.operation IS NOT NULL
8694: );
8695:
8696: OE_Validate_Header_Scredit.G_Create_Auto_Sales_Credit := 'Y';
8697:
8698: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8700: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8701: RAISE FND_API.G_EXC_ERROR;
8702: END IF;
8695:
8696: OE_Validate_Header_Scredit.G_Create_Auto_Sales_Credit := 'Y';
8697:
8698: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8700: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8701: RAISE FND_API.G_EXC_ERROR;
8702: END IF;
8703: END IF;
8696: OE_Validate_Header_Scredit.G_Create_Auto_Sales_Credit := 'Y';
8697:
8698: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8700: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8701: RAISE FND_API.G_EXC_ERROR;
8702: END IF;
8703: END IF;
8704: IF l_debug_level > 0 THEN
8697:
8698: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8700: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8701: RAISE FND_API.G_EXC_ERROR;
8702: END IF;
8703: END IF;
8704: IF l_debug_level > 0 THEN
8705: oe_debug_pub.add( 'AFTER HEADER PROCESSING HEADER_ID = '|| TO_CHAR ( L_HEADER_REC.HEADER_ID ) , 2 ) ;
8735: l_Header_Adj_rec := l_Header_Adj_tbl(I);
8736:
8737: IF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE
8738: AND (l_Header_Adj_rec.header_id IS NULL OR
8739: l_Header_Adj_rec.header_id = FND_API.G_MISS_NUM)
8740: THEN
8741: IF l_header_rec.header_id IS NULL OR
8742: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
8743: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
8738: AND (l_Header_Adj_rec.header_id IS NULL OR
8739: l_Header_Adj_rec.header_id = FND_API.G_MISS_NUM)
8740: THEN
8741: IF l_header_rec.header_id IS NULL OR
8742: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
8743: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
8744: OE_MSG_PUB.Add;
8745: RAISE FND_API.G_EXC_ERROR;
8746: ELSE
8741: IF l_header_rec.header_id IS NULL OR
8742: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
8743: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
8744: OE_MSG_PUB.Add;
8745: RAISE FND_API.G_EXC_ERROR;
8746: ELSE
8747: -- Copy parent_id.
8748: l_Header_Adj_tbl(I).header_id := l_header_rec.header_id;
8749: END IF;
8751:
8752: -- This is added to prevent invalid upgraded orders
8753: IF I = l_Header_Adj_tbl.FIRST THEN
8754: IF (l_header_adj_rec.header_id IS NOT NULL AND
8755: l_header_adj_rec.header_id <> FND_API.G_MISS_NUM) THEN
8756: IF NOT Valid_Upgraded_Order(l_header_adj_rec.header_id ) THEN
8757: RAISE FND_API.G_EXC_ERROR;
8758: END IF;
8759: END IF;
8753: IF I = l_Header_Adj_tbl.FIRST THEN
8754: IF (l_header_adj_rec.header_id IS NOT NULL AND
8755: l_header_adj_rec.header_id <> FND_API.G_MISS_NUM) THEN
8756: IF NOT Valid_Upgraded_Order(l_header_adj_rec.header_id ) THEN
8757: RAISE FND_API.G_EXC_ERROR;
8758: END IF;
8759: END IF;
8760:
8761: END IF;
8790: THEN
8791:
8792: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8793: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_ADJ
8794: ,p_delete => FND_API.G_TRUE
8795: ,x_return_status => l_return_status
8796: );
8797: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8793: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_ADJ
8794: ,p_delete => FND_API.G_TRUE
8795: ,x_return_status => l_return_status
8796: );
8797: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8799: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8800: RAISE FND_API.G_EXC_ERROR;
8801: END IF;
8794: ,p_delete => FND_API.G_TRUE
8795: ,x_return_status => l_return_status
8796: );
8797: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8799: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8800: RAISE FND_API.G_EXC_ERROR;
8801: END IF;
8802:
8795: ,x_return_status => l_return_status
8796: );
8797: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8799: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8800: RAISE FND_API.G_EXC_ERROR;
8801: END IF;
8802:
8803:
8796: );
8797: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8799: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8800: RAISE FND_API.G_EXC_ERROR;
8801: END IF;
8802:
8803:
8804: END IF;
8820: l_Header_Price_Att_Rec := l_Header_Price_att_tbl(I);
8821:
8822: IF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
8823: AND (l_Header_Price_Att_rec.header_id IS NULL OR
8824: l_Header_Price_Att_rec.header_id = FND_API.G_MISS_NUM)
8825: THEN
8826: IF l_header_rec.header_id IS NULL OR
8827: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
8828: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
8823: AND (l_Header_Price_Att_rec.header_id IS NULL OR
8824: l_Header_Price_Att_rec.header_id = FND_API.G_MISS_NUM)
8825: THEN
8826: IF l_header_rec.header_id IS NULL OR
8827: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
8828: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
8829: OE_MSG_PUB.Add;
8830: RAISE FND_API.G_EXC_ERROR;
8831: ELSE
8826: IF l_header_rec.header_id IS NULL OR
8827: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
8828: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
8829: OE_MSG_PUB.Add;
8830: RAISE FND_API.G_EXC_ERROR;
8831: ELSE
8832:
8833: -- Copy parent_id.
8834:
8866: THEN
8867:
8868: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8869: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Price_Att
8870: ,p_delete => FND_API.G_TRUE
8871: ,x_return_status => l_return_status
8872: );
8873: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8869: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Price_Att
8870: ,p_delete => FND_API.G_TRUE
8871: ,x_return_status => l_return_status
8872: );
8873: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8875: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8876: RAISE FND_API.G_EXC_ERROR;
8877: END IF;
8870: ,p_delete => FND_API.G_TRUE
8871: ,x_return_status => l_return_status
8872: );
8873: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8875: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8876: RAISE FND_API.G_EXC_ERROR;
8877: END IF;
8878:
8871: ,x_return_status => l_return_status
8872: );
8873: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8875: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8876: RAISE FND_API.G_EXC_ERROR;
8877: END IF;
8878:
8879:
8872: );
8873: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8875: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8876: RAISE FND_API.G_EXC_ERROR;
8877: END IF;
8878:
8879:
8880: END IF;
8896: l_Header_Adj_Att_rec := l_Header_Adj_Att_tbl(I);
8897:
8898: IF l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
8899: AND (l_Header_Adj_Att_rec.price_adjustment_id IS NULL OR
8900: l_Header_Adj_Att_rec.price_adjustment_id = FND_API.G_MISS_NUM)
8901: THEN
8902:
8903: IF l_header_Adj_Tbl.exists(l_Header_Adj_Att_Rec.Adj_index)
8904: Then
8911: THEN
8912: IF l_debug_level > 0 THEN
8913: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( L_HEADER_ADJ_ATT_REC.ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
8914: END IF;
8915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8916: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
8917: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Attribs');
8918: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
8919: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',l_Header_Adj_Att_Rec.adj_index);
8956: THEN
8957:
8958: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8959: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Att
8960: ,p_delete => FND_API.G_TRUE
8961: ,x_return_status => l_return_status
8962: );
8963: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8964: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8959: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Att
8960: ,p_delete => FND_API.G_TRUE
8961: ,x_return_status => l_return_status
8962: );
8963: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8964: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8965: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8966: RAISE FND_API.G_EXC_ERROR;
8967: END IF;
8960: ,p_delete => FND_API.G_TRUE
8961: ,x_return_status => l_return_status
8962: );
8963: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8964: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8965: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8966: RAISE FND_API.G_EXC_ERROR;
8967: END IF;
8968:
8961: ,x_return_status => l_return_status
8962: );
8963: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8964: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8965: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8966: RAISE FND_API.G_EXC_ERROR;
8967: END IF;
8968:
8969:
8962: );
8963: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8964: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8965: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8966: RAISE FND_API.G_EXC_ERROR;
8967: END IF;
8968:
8969:
8970: END IF;
8987: l_Header_Adj_Assoc_rec := l_Header_Adj_Assoc_tbl(I);
8988:
8989: IF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
8990: AND (l_Header_Adj_Assoc_rec.Price_Adjustment_id IS NULL OR
8991: l_Header_Adj_Assoc_rec.Price_Adjustment_id = FND_API.G_MISS_NUM)
8992: THEN
8993:
8994: IF l_header_Adj_Tbl.exists(l_Header_Adj_Assoc_Rec.Adj_Index) Then
8995: -- Copy parent_id.
9001: THEN
9002: IF l_debug_level > 0 THEN
9003: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( L_HEADER_ADJ_ASSOC_REC.ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
9004: END IF;
9005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9006: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9007: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Assocs');
9008: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9009: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',l_Header_Adj_Assoc_Rec.adj_index);
9014: END IF;
9015:
9016: IF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
9017: AND (l_Header_Adj_Assoc_rec.rltd_Price_Adj_Id IS NULL OR
9018: l_Header_Adj_Assoc_rec.rltd_Price_Adj_Id = FND_API.G_MISS_NUM)
9019: THEN
9020:
9021: IF l_header_Adj_Tbl.exists(l_Header_Adj_Assoc_Rec.Rltd_Adj_Index) Then
9022: -- Copy parent_id.
9060: THEN
9061:
9062: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9063: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Assoc
9064: ,p_delete => FND_API.G_TRUE
9065: ,x_return_status => l_return_status
9066: );
9067: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9063: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Assoc
9064: ,p_delete => FND_API.G_TRUE
9065: ,x_return_status => l_return_status
9066: );
9067: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9069: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9070: RAISE FND_API.G_EXC_ERROR;
9071: END IF;
9064: ,p_delete => FND_API.G_TRUE
9065: ,x_return_status => l_return_status
9066: );
9067: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9069: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9070: RAISE FND_API.G_EXC_ERROR;
9071: END IF;
9072:
9065: ,x_return_status => l_return_status
9066: );
9067: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9069: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9070: RAISE FND_API.G_EXC_ERROR;
9071: END IF;
9072:
9073:
9066: );
9067: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9069: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9070: RAISE FND_API.G_EXC_ERROR;
9071: END IF;
9072:
9073:
9074: END IF;
9094: l_Header_Scredit_rec := l_Header_Scredit_tbl(I);
9095:
9096: IF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE
9097: AND (l_Header_Scredit_rec.header_id IS NULL OR
9098: l_Header_Scredit_rec.header_id = FND_API.G_MISS_NUM)
9099: THEN
9100: IF l_header_rec.header_id IS NULL OR -- p_x_header_rec replaced with l_header_rec for 2896409
9101: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
9102: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
9097: AND (l_Header_Scredit_rec.header_id IS NULL OR
9098: l_Header_Scredit_rec.header_id = FND_API.G_MISS_NUM)
9099: THEN
9100: IF l_header_rec.header_id IS NULL OR -- p_x_header_rec replaced with l_header_rec for 2896409
9101: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
9102: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
9103: OE_MSG_PUB.Add;
9104: RAISE FND_API.G_EXC_ERROR;
9105: ELSE
9100: IF l_header_rec.header_id IS NULL OR -- p_x_header_rec replaced with l_header_rec for 2896409
9101: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
9102: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
9103: OE_MSG_PUB.Add;
9104: RAISE FND_API.G_EXC_ERROR;
9105: ELSE
9106:
9107: -- Copy parent_id.
9108:
9126: , p_x_Header_Scredit_tbl => l_Header_Scredit_tbl
9127: , p_x_old_Header_Scredit_tbl => l_old_Header_Scredit_tbl
9128: , x_return_status => l_return_status
9129: );
9130: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9132: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9133: IF p_control_rec.process_partial THEN
9134: x_return_status := FND_API.G_RET_STS_ERROR;
9127: , p_x_old_Header_Scredit_tbl => l_old_Header_Scredit_tbl
9128: , x_return_status => l_return_status
9129: );
9130: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9132: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9133: IF p_control_rec.process_partial THEN
9134: x_return_status := FND_API.G_RET_STS_ERROR;
9135: ELSE
9128: , x_return_status => l_return_status
9129: );
9130: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9132: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9133: IF p_control_rec.process_partial THEN
9134: x_return_status := FND_API.G_RET_STS_ERROR;
9135: ELSE
9136: RAISE FND_API.G_EXC_ERROR;
9130: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9132: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9133: IF p_control_rec.process_partial THEN
9134: x_return_status := FND_API.G_RET_STS_ERROR;
9135: ELSE
9136: RAISE FND_API.G_EXC_ERROR;
9137: END IF;
9138: END IF;
9132: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9133: IF p_control_rec.process_partial THEN
9134: x_return_status := FND_API.G_RET_STS_ERROR;
9135: ELSE
9136: RAISE FND_API.G_EXC_ERROR;
9137: END IF;
9138: END IF;
9139: IF l_debug_level > 0 THEN
9140: oe_debug_pub.add( 'AFTER HEADER_SCREDITS PROCESSING' , 2 ) ;
9151: THEN
9152:
9153: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9154: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
9155: ,p_delete => FND_API.G_TRUE
9156: ,x_return_status => l_return_status
9157: );
9158: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9154: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
9155: ,p_delete => FND_API.G_TRUE
9156: ,x_return_status => l_return_status
9157: );
9158: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9160: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9161: RAISE FND_API.G_EXC_ERROR;
9162: END IF;
9155: ,p_delete => FND_API.G_TRUE
9156: ,x_return_status => l_return_status
9157: );
9158: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9160: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9161: RAISE FND_API.G_EXC_ERROR;
9162: END IF;
9163:
9156: ,x_return_status => l_return_status
9157: );
9158: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9160: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9161: RAISE FND_API.G_EXC_ERROR;
9162: END IF;
9163:
9164: END IF;
9157: );
9158: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9160: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9161: RAISE FND_API.G_EXC_ERROR;
9162: END IF;
9163:
9164: END IF;
9165:
9174: IF l_line_tbl.COUNT > 0 THEN
9175:
9176: For k in l_line_tbl.first .. l_line_tbl.last LOOP
9177:
9178: IF (l_line_tbl(k).header_id = FND_API.G_MISS_NUM
9179: OR l_line_tbl(k).header_id is null ) THEN
9180:
9181: -- Kris do not loop through the lines unless they have the right header_id
9182: -- If people pass in a header_id with a bogus value, the record should be ignored
9210: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
9211: OE_GLOBALS.G_OPR_INSERT, OE_GLOBALS.G_OPR_NONE) THEN
9212: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
9213: OE_MSG_PUB.Add;
9214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9215: END IF;
9216:
9217: IF l_line_rec.operation = oe_globals.g_opr_update
9218: AND l_line_rec.split_action_code = 'SPLIT' THEN
9224: -- Retrieve the header ID, either from the header record
9225: -- or from the first line
9226: IF (I = l_line_tbl.FIRST) THEN
9227: IF (l_header_rec.header_id IS NOT NULL AND
9228: l_header_rec.header_id <> FND_API.G_MISS_NUM) THEN
9229: l_header_id := l_header_rec.header_id;
9230: ELSIF (l_line_rec.header_id IS NOT NULL AND
9231: l_line_rec.header_id <> FND_API.G_MISS_NUM) THEN
9232: l_header_id := l_line_tbl(I).header_id;
9227: IF (l_header_rec.header_id IS NOT NULL AND
9228: l_header_rec.header_id <> FND_API.G_MISS_NUM) THEN
9229: l_header_id := l_header_rec.header_id;
9230: ELSIF (l_line_rec.header_id IS NOT NULL AND
9231: l_line_rec.header_id <> FND_API.G_MISS_NUM) THEN
9232: l_header_id := l_line_tbl(I).header_id;
9233: END IF;
9234: END IF;
9235:
9234: END IF;
9235:
9236: IF l_line_rec.operation <> OE_GLOBALS.G_OPR_CREATE
9237: AND (l_line_rec.header_id IS NULL OR
9238: l_line_rec.header_id = FND_API.G_MISS_NUM)
9239: THEN
9240: IF (l_header_id IS NOT NULL AND
9241: l_header_id <> FND_API.G_MISS_NUM) THEN
9242: l_line_tbl(I).header_id := l_header_id;
9237: AND (l_line_rec.header_id IS NULL OR
9238: l_line_rec.header_id = FND_API.G_MISS_NUM)
9239: THEN
9240: IF (l_header_id IS NOT NULL AND
9241: l_header_id <> FND_API.G_MISS_NUM) THEN
9242: l_line_tbl(I).header_id := l_header_id;
9243: ELSE
9244: oe_line_util.query_header
9245: (p_line_id => l_line_rec.line_id,
9253: IF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE
9254: THEN
9255:
9256: IF (l_line_rec.header_id IS NULL OR
9257: l_line_rec.header_id = FND_API.G_MISS_NUM)
9258: THEN
9259: -- Copy parent_id.
9260: l_line_tbl(I).header_id := l_header_id;
9261: END IF;
9264:
9265: -- Raise error if the header ID for the line is different
9266: -- from header ID on the header record or other lines
9267: IF (l_header_id IS NOT NULL AND
9268: l_header_id <> FND_API.G_MISS_NUM) THEN
9269: IF l_line_tbl(I).header_id <> l_header_id THEN
9270: fnd_message.set_name('ONT', 'OE_HEADER_MISSING');
9271: oe_msg_pub.add;
9272: RAISE FND_API.G_EXC_ERROR;
9268: l_header_id <> FND_API.G_MISS_NUM) THEN
9269: IF l_line_tbl(I).header_id <> l_header_id THEN
9270: fnd_message.set_name('ONT', 'OE_HEADER_MISSING');
9271: oe_msg_pub.add;
9272: RAISE FND_API.G_EXC_ERROR;
9273: END IF;
9274: END IF;
9275:
9276: -- END: CHECK IF ALL LINES BELONG TO THE SAME ORDER
9303: , p_x_line_tbl => l_line_tbl
9304: , p_x_old_line_tbl => l_old_line_tbl
9305: , x_return_status => l_return_status
9306: );
9307: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9309: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9310: IF p_control_rec.process_partial THEN
9311: x_return_status := FND_API.G_RET_STS_ERROR;
9304: , p_x_old_line_tbl => l_old_line_tbl
9305: , x_return_status => l_return_status
9306: );
9307: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9309: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9310: IF p_control_rec.process_partial THEN
9311: x_return_status := FND_API.G_RET_STS_ERROR;
9312: ELSE
9305: , x_return_status => l_return_status
9306: );
9307: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9309: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9310: IF p_control_rec.process_partial THEN
9311: x_return_status := FND_API.G_RET_STS_ERROR;
9312: ELSE
9313: RAISE FND_API.G_EXC_ERROR;
9307: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9309: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9310: IF p_control_rec.process_partial THEN
9311: x_return_status := FND_API.G_RET_STS_ERROR;
9312: ELSE
9313: RAISE FND_API.G_EXC_ERROR;
9314: END IF;
9315: END IF;
9309: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9310: IF p_control_rec.process_partial THEN
9311: x_return_status := FND_API.G_RET_STS_ERROR;
9312: ELSE
9313: RAISE FND_API.G_EXC_ERROR;
9314: END IF;
9315: END IF;
9316: IF l_debug_level > 0 THEN
9317: oe_debug_pub.add( 'AFTER LINES PROCESSING' , 2 ) ;
9331: FOR k in l_Line_Scredit_tbl.first .. l_line_Scredit_tbl.last LOOP
9332:
9333: -- oe_debug_pub.add('Processing Line SC Record ' ||TO_CHAR(k), 2);
9334:
9335: IF (l_line_Scredit_tbl(k).line_index <> FND_API.G_MISS_NUM)
9336: AND (l_line_Scredit_tbl(k).line_index IS NOT NULL) THEN
9337:
9338: l_line_index := l_line_Scredit_tbl(k).line_index;
9339:
9338: l_line_index := l_line_Scredit_tbl(k).line_index;
9339:
9340: IF l_line_tbl.EXISTS(l_line_index) THEN
9341:
9342: IF (l_line_Scredit_tbl(k).line_id = FND_API.G_MISS_NUM)
9343: OR (l_line_Scredit_tbl(k).line_id IS NULL) THEN
9344:
9345: l_line_Scredit_tbl(k).line_id := l_line_tbl(l_line_index).line_id;
9346:
9346:
9347: END IF; -- Line Id on Child is missing or is null
9348:
9349:
9350: IF (l_line_Scredit_tbl(k).header_id = FND_API.G_MISS_NUM)
9351: OR (l_line_Scredit_tbl(k).header_id IS NULL) THEN
9352:
9353: l_line_Scredit_tbl(k).header_id := l_line_tbl(l_line_index).header_id;
9354:
9359:
9360: oe_debug_pub.add('Invalid Line Index '
9361: ||TO_CHAR(l_line_index)
9362: ||' on Line Sales Credits', 2);
9363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9364:
9365: END IF; -- If Valid Line Index
9366: END IF; -- Line Index is not null and not missing
9367:
9376: FOR k in l_Line_Adj_tbl.first .. l_line_Adj_tbl.last LOOP
9377:
9378: -- oe_debug_pub.add('Processing Line Adj Record ' ||TO_CHAR(k), 2);
9379:
9380: IF (l_line_Adj_tbl(k).line_index <> FND_API.G_MISS_NUM)
9381: AND (l_line_Adj_tbl(k).line_index IS NOT NULL) THEN
9382:
9383: l_line_index := l_line_Adj_tbl(k).line_index;
9384: oe_debug_pub.add('Line Index is '||TO_CHAR(l_line_index), 2);
9384: oe_debug_pub.add('Line Index is '||TO_CHAR(l_line_index), 2);
9385:
9386: IF l_line_tbl.EXISTS(l_line_index) THEN
9387:
9388: IF (l_line_Adj_tbl(k).line_id = FND_API.G_MISS_NUM)
9389: OR (l_line_Adj_tbl(k).line_id IS NULL) THEN
9390:
9391: l_line_Adj_tbl(k).line_id := l_line_tbl(l_line_index).line_id;
9392:
9391: l_line_Adj_tbl(k).line_id := l_line_tbl(l_line_index).line_id;
9392:
9393: END IF; -- Line Id on Child is missing or is null
9394:
9395: IF (l_line_Adj_tbl(k).Header_id = FND_API.G_MISS_NUM)
9396: OR (l_line_Adj_tbl(k).Header_id IS NULL) THEN
9397:
9398: l_line_Adj_tbl(k).Header_id := l_line_tbl(l_line_index).Header_id;
9399:
9403:
9404: oe_debug_pub.add('Invalid Line Index '
9405: ||TO_CHAR(l_line_index)
9406: ||'on Line Price Adjustments', 2);
9407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9408:
9409: END IF; -- If Valid Line Index
9410: END IF; -- Line Index is not null and not missing
9411:
9426: l_Line_Scredit_rec := l_Line_Scredit_tbl(I);
9427:
9428: IF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE
9429: AND (l_Line_Scredit_rec.line_id IS NULL OR
9430: l_Line_Scredit_rec.line_id = FND_API.G_MISS_NUM)
9431: THEN
9432: IF l_debug_level > 0 THEN
9433: oe_debug_pub.add( 'SETTING LINE IDS ON LINE SC TABLE' , 2 ) ;
9434: END IF;
9453: THEN
9454: IF l_debug_level > 0 THEN
9455: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON LINE SALES CREDITS' , 2 ) ;
9456: END IF;
9457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9458: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9459: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Scredit');
9460: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9461: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',l_Line_Scredit_rec.line_index);
9480: l_Line_Adj_rec := l_Line_Adj_tbl(I);
9481:
9482: IF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE
9483: AND (l_Line_Adj_rec.line_id IS NULL OR
9484: l_Line_Adj_rec.line_id = FND_API.G_MISS_NUM)
9485: THEN
9486:
9487: IF l_debug_level > 0 THEN
9488: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ADJ TABLE' , 2 ) ;
9488: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ADJ TABLE' , 2 ) ;
9489: END IF;
9490: -- Check If parent exists.
9491:
9492: IF l_Line_Adj_rec.line_index <> fnd_api.g_miss_num and
9493: l_line_tbl.EXISTS(l_Line_Adj_rec.line_index) THEN
9494:
9495: -- Copy parent_id.
9496:
9497: l_Line_Adj_tbl(I).line_id := l_line_tbl(l_Line_Adj_rec.line_index).line_id;
9498: l_Line_Adj_tbl(I).header_id := l_line_tbl(l_Line_Adj_rec.line_index).header_id;
9499:
9500: ELSIF l_Line_Adj_tbl(I).header_id is not null and
9501: l_Line_Adj_tbl(I).header_id <> FND_API.G_MISS_NUM Then
9502: -- Treat the adjustment record as a header_adjustment record
9503: IF l_debug_level > 0 THEN
9504: oe_debug_pub.add( 'TREATING THE RECORD AS HEADER_ADJUSTMENT' ) ;
9505: END IF;
9509: THEN
9510: IF l_debug_level > 0 THEN
9511: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
9512: END IF;
9513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9514:
9515: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9516: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj');
9517: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9537: END IF;
9538:
9539: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9540: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
9541: ,p_delete => FND_API.G_TRUE
9542: ,x_return_status => l_return_status
9543: );
9544: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9540: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
9541: ,p_delete => FND_API.G_TRUE
9542: ,x_return_status => l_return_status
9543: );
9544: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9546: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9547: RAISE FND_API.G_EXC_ERROR;
9548: END IF;
9541: ,p_delete => FND_API.G_TRUE
9542: ,x_return_status => l_return_status
9543: );
9544: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9546: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9547: RAISE FND_API.G_EXC_ERROR;
9548: END IF;
9549:
9542: ,x_return_status => l_return_status
9543: );
9544: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9546: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9547: RAISE FND_API.G_EXC_ERROR;
9548: END IF;
9549:
9550: END IF;
9543: );
9544: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9546: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9547: RAISE FND_API.G_EXC_ERROR;
9548: END IF;
9549:
9550: END IF;
9551:
9576: THEN
9577:
9578: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9579: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
9580: ,p_delete => FND_API.G_TRUE
9581: ,x_return_status => l_return_status
9582: );
9583: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9579: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
9580: ,p_delete => FND_API.G_TRUE
9581: ,x_return_status => l_return_status
9582: );
9583: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9585: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9586: RAISE FND_API.G_EXC_ERROR;
9587: END IF;
9580: ,p_delete => FND_API.G_TRUE
9581: ,x_return_status => l_return_status
9582: );
9583: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9585: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9586: RAISE FND_API.G_EXC_ERROR;
9587: END IF;
9588:
9581: ,x_return_status => l_return_status
9582: );
9583: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9585: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9586: RAISE FND_API.G_EXC_ERROR;
9587: END IF;
9588:
9589: END IF;
9582: );
9583: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9585: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9586: RAISE FND_API.G_EXC_ERROR;
9587: END IF;
9588:
9589: END IF;
9590:
9602: , p_x_Line_Scredit_tbl => l_Line_Scredit_tbl
9603: , p_x_old_Line_Scredit_tbl => l_old_Line_Scredit_tbl
9604: , x_return_status => l_return_status
9605: );
9606: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9608: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9609: IF p_control_rec.process_partial THEN
9610: x_return_status := FND_API.G_RET_STS_ERROR;
9603: , p_x_old_Line_Scredit_tbl => l_old_Line_Scredit_tbl
9604: , x_return_status => l_return_status
9605: );
9606: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9608: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9609: IF p_control_rec.process_partial THEN
9610: x_return_status := FND_API.G_RET_STS_ERROR;
9611: ELSE
9604: , x_return_status => l_return_status
9605: );
9606: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9608: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9609: IF p_control_rec.process_partial THEN
9610: x_return_status := FND_API.G_RET_STS_ERROR;
9611: ELSE
9612: RAISE FND_API.G_EXC_ERROR;
9606: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9608: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9609: IF p_control_rec.process_partial THEN
9610: x_return_status := FND_API.G_RET_STS_ERROR;
9611: ELSE
9612: RAISE FND_API.G_EXC_ERROR;
9613: END IF;
9614: END IF;
9608: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9609: IF p_control_rec.process_partial THEN
9610: x_return_status := FND_API.G_RET_STS_ERROR;
9611: ELSE
9612: RAISE FND_API.G_EXC_ERROR;
9613: END IF;
9614: END IF;
9615:
9616: END IF;
9628: END IF;
9629:
9630: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9631: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Scredit
9632: ,p_delete => FND_API.G_TRUE
9633: ,x_return_status => l_return_status
9634: );
9635:
9636: IF l_debug_level > 0 THEN
9636: IF l_debug_level > 0 THEN
9637: oe_debug_pub.add( 'PROCESSED DELAYED REQUESTS FOR LINES' , 2 ) ;
9638: END IF;
9639:
9640: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9642: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9643: RAISE FND_API.G_EXC_ERROR;
9644: END IF;
9637: oe_debug_pub.add( 'PROCESSED DELAYED REQUESTS FOR LINES' , 2 ) ;
9638: END IF;
9639:
9640: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9642: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9643: RAISE FND_API.G_EXC_ERROR;
9644: END IF;
9645:
9638: END IF;
9639:
9640: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9642: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9643: RAISE FND_API.G_EXC_ERROR;
9644: END IF;
9645:
9646: END IF;
9639:
9640: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9642: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9643: RAISE FND_API.G_EXC_ERROR;
9644: END IF;
9645:
9646: END IF;
9647:
9662: l_Lot_Serial_rec := l_Lot_Serial_tbl(I);
9663:
9664: IF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_CREATE
9665: AND (l_Lot_Serial_rec.line_id IS NULL OR
9666: l_Lot_Serial_rec.line_id = FND_API.G_MISS_NUM)
9667: THEN
9668:
9669: -- Check If parent exists.
9670:
9699: , p_x_Lot_Serial_tbl => l_Lot_Serial_tbl
9700: , p_x_old_Lot_Serial_tbl => l_old_Lot_Serial_tbl
9701: , x_return_status => l_return_status
9702: );
9703: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9704: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9705: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9706: IF p_control_rec.process_partial THEN
9707: x_return_status := FND_API.G_RET_STS_ERROR;
9700: , p_x_old_Lot_Serial_tbl => l_old_Lot_Serial_tbl
9701: , x_return_status => l_return_status
9702: );
9703: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9704: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9705: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9706: IF p_control_rec.process_partial THEN
9707: x_return_status := FND_API.G_RET_STS_ERROR;
9708: ELSE
9701: , x_return_status => l_return_status
9702: );
9703: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9704: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9705: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9706: IF p_control_rec.process_partial THEN
9707: x_return_status := FND_API.G_RET_STS_ERROR;
9708: ELSE
9709: RAISE FND_API.G_EXC_ERROR;
9703: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9704: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9705: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9706: IF p_control_rec.process_partial THEN
9707: x_return_status := FND_API.G_RET_STS_ERROR;
9708: ELSE
9709: RAISE FND_API.G_EXC_ERROR;
9710: END IF;
9711: END IF;
9705: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9706: IF p_control_rec.process_partial THEN
9707: x_return_status := FND_API.G_RET_STS_ERROR;
9708: ELSE
9709: RAISE FND_API.G_EXC_ERROR;
9710: END IF;
9711: END IF;
9712:
9713: END IF;
9739: l_Line_Price_Att_rec := l_Line_Price_Att_tbl(I);
9740:
9741: IF l_Line_Price_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
9742: AND (l_Line_Price_Att_rec.line_id IS NULL OR
9743: l_Line_Price_Att_rec.line_id = FND_API.G_MISS_NUM)
9744: THEN
9745:
9746: IF l_debug_level > 0 THEN
9747: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ATTRIB TABLE' , 2 ) ;
9761: THEN
9762: IF l_debug_level > 0 THEN
9763: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_PRICE_ATT_REC.LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
9764: END IF;
9765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9766:
9767: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9768: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Price_Att');
9769: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9798: THEN
9799:
9800: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9801: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
9802: ,p_delete => FND_API.G_TRUE
9803: ,x_return_status => l_return_status
9804: );
9805: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9801: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
9802: ,p_delete => FND_API.G_TRUE
9803: ,x_return_status => l_return_status
9804: );
9805: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9807: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9808: RAISE FND_API.G_EXC_ERROR;
9809: END IF;
9802: ,p_delete => FND_API.G_TRUE
9803: ,x_return_status => l_return_status
9804: );
9805: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9807: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9808: RAISE FND_API.G_EXC_ERROR;
9809: END IF;
9810:
9803: ,x_return_status => l_return_status
9804: );
9805: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9807: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9808: RAISE FND_API.G_EXC_ERROR;
9809: END IF;
9810:
9811: END IF;
9804: );
9805: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9807: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9808: RAISE FND_API.G_EXC_ERROR;
9809: END IF;
9810:
9811: END IF;
9812:
9826: l_Line_Adj_Att_rec := l_Line_Adj_Att_tbl(I);
9827:
9828: IF l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
9829: AND (l_Line_Adj_Att_rec.price_adjustment_id IS NULL OR
9830: l_Line_Adj_Att_rec.price_adjustment_id = FND_API.G_MISS_NUM)
9831: THEN
9832:
9833: IF l_debug_level > 0 THEN
9834: oe_debug_pub.add( 'SETTING ADJ IDS ON LINE ADJ ATTRIB TABLE' , 2 ) ;
9847: THEN
9848: IF l_debug_level > 0 THEN
9849: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( L_LINE_ADJ_ATT_REC.ADJ_INDEX ) ||'ON ADJ ATTRIBS' , 2 ) ;
9850: END IF;
9851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9852:
9853: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9854: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj_Att');
9855: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9885: THEN
9886:
9887: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9888: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Att
9889: ,p_delete => FND_API.G_TRUE
9890: ,x_return_status => l_return_status
9891: );
9892: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9888: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Att
9889: ,p_delete => FND_API.G_TRUE
9890: ,x_return_status => l_return_status
9891: );
9892: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9894: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9895: RAISE FND_API.G_EXC_ERROR;
9896: END IF;
9889: ,p_delete => FND_API.G_TRUE
9890: ,x_return_status => l_return_status
9891: );
9892: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9894: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9895: RAISE FND_API.G_EXC_ERROR;
9896: END IF;
9897:
9890: ,x_return_status => l_return_status
9891: );
9892: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9894: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9895: RAISE FND_API.G_EXC_ERROR;
9896: END IF;
9897:
9898: END IF;
9891: );
9892: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9894: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9895: RAISE FND_API.G_EXC_ERROR;
9896: END IF;
9897:
9898: END IF;
9899: */
9913: l_Line_Adj_Assoc_rec := l_Line_Adj_Assoc_tbl(I);
9914:
9915: IF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
9916: AND (l_Line_Adj_Assoc_rec.price_adjustment_id IS NULL OR
9917: l_Line_Adj_Assoc_rec.price_adjustment_id = FND_API.G_MISS_NUM)
9918: THEN
9919:
9920: IF l_debug_level > 0 THEN
9921: oe_debug_pub.add( 'SETTING ADJ IDS ON LINE ADJ ASSOCS TABLE' , 2 ) ;
9934: THEN
9935: IF l_debug_level > 0 THEN
9936: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( L_LINE_ADJ_ASSOC_REC.ADJ_INDEX ) ||'ON ADJ ASSOCS' , 2 ) ;
9937: END IF;
9938: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9939:
9940: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9941: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj_Assoc');
9942: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9948: END IF;
9949:
9950: IF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
9951: AND (l_Line_Adj_Assoc_rec.Line_id IS NULL OR
9952: l_Line_Adj_Assoc_rec.Line_id = FND_API.G_MISS_NUM)
9953: THEN
9954:
9955: IF l_debug_level > 0 THEN
9956: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ADJ ASSOCS TABLE' , 2 ) ;
9966: END IF;
9967:
9968: IF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
9969: AND (l_Line_Adj_Assoc_rec.rltd_Price_Adj_Id IS NULL OR
9970: l_Line_Adj_Assoc_rec.rltd_Price_Adj_Id = FND_API.G_MISS_NUM)
9971: THEN
9972:
9973: IF l_Line_Adj_Tbl.exists(l_Line_Adj_Assoc_Rec.Rltd_Adj_Index) Then
9974: -- Copy parent_id.
10004: THEN
10005:
10006: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
10007: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Assoc
10008: ,p_delete => FND_API.G_TRUE
10009: ,x_return_status => l_return_status
10010: );
10011: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10012: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10007: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Assoc
10008: ,p_delete => FND_API.G_TRUE
10009: ,x_return_status => l_return_status
10010: );
10011: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10012: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10013: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10014: RAISE FND_API.G_EXC_ERROR;
10015: END IF;
10008: ,p_delete => FND_API.G_TRUE
10009: ,x_return_status => l_return_status
10010: );
10011: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10012: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10013: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10014: RAISE FND_API.G_EXC_ERROR;
10015: END IF;
10016:
10009: ,x_return_status => l_return_status
10010: );
10011: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10012: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10013: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10014: RAISE FND_API.G_EXC_ERROR;
10015: END IF;
10016:
10017: END IF;
10010: );
10011: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10012: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10013: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10014: RAISE FND_API.G_EXC_ERROR;
10015: END IF;
10016:
10017: END IF;
10018: */
10029: -- oe_debug_pub.add('Processing Line Requests ' ||TO_CHAR(k), 2);
10030: IF (l_request_tbl(k).entity_code IS NULL OR
10031: l_request_tbl(k).entity_code = Oe_Globals.G_ENTITY_HEADER) THEN
10032:
10033: IF (l_request_tbl(k).entity_id = FND_API.G_MISS_NUM
10034: OR l_request_tbl(k).entity_id is null ) THEN
10035: IF l_header_rec.header_id IS NULL OR
10036: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
10037: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
10032:
10033: IF (l_request_tbl(k).entity_id = FND_API.G_MISS_NUM
10034: OR l_request_tbl(k).entity_id is null ) THEN
10035: IF l_header_rec.header_id IS NULL OR
10036: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
10037: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
10038: OE_MSG_PUB.Add;
10039: RAISE FND_API.G_EXC_ERROR;
10040: ELSE
10035: IF l_header_rec.header_id IS NULL OR
10036: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
10037: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
10038: OE_MSG_PUB.Add;
10039: RAISE FND_API.G_EXC_ERROR;
10040: ELSE
10041:
10042: l_request_tbl(k).entity_id := l_header_rec.header_id;
10043:
10044: END IF;
10045: END IF;
10046: ELSIF (l_request_tbl(k).entity_code = Oe_Globals.G_ENTITY_LINE) THEN
10047:
10048: IF (to_number(l_request_tbl(k).param1) <> FND_API.G_MISS_NUM)
10049: AND (l_request_tbl(k).param1 IS NOT NULL) THEN
10050:
10051: l_line_index := to_number(l_request_tbl(k).param1) ;
10052: oe_debug_pub.add('Line Index is '||TO_CHAR(l_line_index), 2);
10052: oe_debug_pub.add('Line Index is '||TO_CHAR(l_line_index), 2);
10053:
10054: IF l_line_tbl.EXISTS(l_line_index) THEN
10055:
10056: IF (l_request_tbl(k).entity_id = FND_API.G_MISS_NUM)
10057: OR (l_request_tbl(k).entity_id IS NULL) THEN
10058:
10059: l_request_tbl(k).entity_id := l_line_tbl(l_line_index).line_id;
10060:
10064:
10065: oe_debug_pub.add('Invalid Line Index '
10066: ||TO_CHAR(l_line_index)
10067: ||'on Action Request', 2);
10068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10069: END IF; -- If Valid Line Index
10070: END IF; -- Line Index is not null and not missing
10071: END IF;
10072: END LOOP;
10085:
10086: IF (l_request_tbl(I).entity_code = OE_GLOBALS.G_ENTITY_HEADER) THEN
10087:
10088: IF (l_request_tbl(I).entity_id IS NULL OR
10089: l_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
10090: THEN
10091: IF l_debug_level > 0 THEN
10092: oe_debug_pub.add( 'SETTING HEADER IDS ON REQUEST TABLE FOR HEADER ENTITY' , 2 ) ;
10093: END IF;
10091: IF l_debug_level > 0 THEN
10092: oe_debug_pub.add( 'SETTING HEADER IDS ON REQUEST TABLE FOR HEADER ENTITY' , 2 ) ;
10093: END IF;
10094: IF l_header_rec.header_id IS NULL OR
10095: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
10096: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
10097: OE_MSG_PUB.Add;
10098: RAISE FND_API.G_EXC_ERROR;
10099: ELSE
10094: IF l_header_rec.header_id IS NULL OR
10095: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
10096: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
10097: OE_MSG_PUB.Add;
10098: RAISE FND_API.G_EXC_ERROR;
10099: ELSE
10100: l_request_tbl(I).entity_id := l_header_rec.header_id;
10101: END IF;
10102: END IF;
10103:
10104: ELSIF (l_request_tbl(I).entity_code = OE_GLOBALS.G_ENTITY_LINE) THEN
10105:
10106: IF (l_request_tbl(I).entity_id IS NULL OR
10107: l_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
10108: THEN
10109: IF l_debug_level > 0 THEN
10110: oe_debug_pub.add( 'SETTING LINE IDS ON REQUEST TABLE FOR LINE ENTITY' , 2 ) ;
10111: END IF;
10123: THEN
10124: IF l_debug_level > 0 THEN
10125: oe_debug_pub.add( 'INVALID ENTITY INDEX ' ||TO_CHAR ( L_REQUEST_TBL ( I ) .ENTITY_INDEX ) ||'ON REQUEST TABLE FOR LINE ENTITY' , 2 ) ;
10126: END IF;
10127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10128: END IF;
10129: END IF;
10130: END IF;
10131: END IF;
10150: );
10151: IF l_debug_level > 0 THEN
10152: oe_debug_pub.add( 'OEXVORDB: COMPLETED PROCESS_DELAYED_REQUESTS ' || ' WITH RETURN STATUS' || L_RETURN_STATUS , 2 ) ;
10153: END IF;
10154: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10156: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10157: RAISE FND_API.G_EXC_ERROR;
10158: END IF;
10151: IF l_debug_level > 0 THEN
10152: oe_debug_pub.add( 'OEXVORDB: COMPLETED PROCESS_DELAYED_REQUESTS ' || ' WITH RETURN STATUS' || L_RETURN_STATUS , 2 ) ;
10153: END IF;
10154: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10156: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10157: RAISE FND_API.G_EXC_ERROR;
10158: END IF;
10159:
10152: oe_debug_pub.add( 'OEXVORDB: COMPLETED PROCESS_DELAYED_REQUESTS ' || ' WITH RETURN STATUS' || L_RETURN_STATUS , 2 ) ;
10153: END IF;
10154: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10156: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10157: RAISE FND_API.G_EXC_ERROR;
10158: END IF;
10159:
10160: END IF;
10153: END IF;
10154: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10156: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10157: RAISE FND_API.G_EXC_ERROR;
10158: END IF;
10159:
10160: END IF;
10161:
10209: END IF;
10210:
10211: -- Derive return status
10212:
10213: IF l_header_rec.return_status = FND_API.G_RET_STS_ERROR THEN
10214: x_return_status := FND_API.G_RET_STS_ERROR;
10215: END IF;
10216:
10217: -- Do not need to loop through header_scredits, lines
10210:
10211: -- Derive return status
10212:
10213: IF l_header_rec.return_status = FND_API.G_RET_STS_ERROR THEN
10214: x_return_status := FND_API.G_RET_STS_ERROR;
10215: END IF;
10216:
10217: -- Do not need to loop through header_scredits, lines
10218: -- line_scredits or lot_serials as the x_return_status is set
10221: -- FOR I IN 1..l_Header_Adj_tbl.COUNT LOOP
10222: I := l_Header_Adj_tbl.FIRST;
10223: WHILE I IS NOT NULL LOOP
10224:
10225: IF l_Header_Adj_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10226: x_return_status := FND_API.G_RET_STS_ERROR;
10227: END IF;
10228:
10229: I := l_Header_Adj_tbl.NEXT(I);
10222: I := l_Header_Adj_tbl.FIRST;
10223: WHILE I IS NOT NULL LOOP
10224:
10225: IF l_Header_Adj_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10226: x_return_status := FND_API.G_RET_STS_ERROR;
10227: END IF;
10228:
10229: I := l_Header_Adj_tbl.NEXT(I);
10230: END LOOP;
10231:
10232: I := l_Header_Price_Att_tbl.FIRST;
10233: WHILE I IS NOT NULL LOOP
10234:
10235: IF l_Header_Price_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10236: x_return_status := FND_API.G_RET_STS_ERROR;
10237: END IF;
10238:
10239: I := l_Header_Price_Att_tbl.NEXT(I);
10232: I := l_Header_Price_Att_tbl.FIRST;
10233: WHILE I IS NOT NULL LOOP
10234:
10235: IF l_Header_Price_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10236: x_return_status := FND_API.G_RET_STS_ERROR;
10237: END IF;
10238:
10239: I := l_Header_Price_Att_tbl.NEXT(I);
10240: END LOOP;
10241:
10242: I := l_Header_Adj_Att_tbl.FIRST;
10243: WHILE I IS NOT NULL LOOP
10244:
10245: IF l_Header_Adj_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10246: x_return_status := FND_API.G_RET_STS_ERROR;
10247: END IF;
10248:
10249: I := l_Header_Adj_Att_tbl.NEXT(I);
10242: I := l_Header_Adj_Att_tbl.FIRST;
10243: WHILE I IS NOT NULL LOOP
10244:
10245: IF l_Header_Adj_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10246: x_return_status := FND_API.G_RET_STS_ERROR;
10247: END IF;
10248:
10249: I := l_Header_Adj_Att_tbl.NEXT(I);
10250: END LOOP;
10251:
10252: I := l_Header_Adj_Assoc_tbl.FIRST;
10253: WHILE I IS NOT NULL LOOP
10254:
10255: IF l_Header_Adj_Assoc_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10256: x_return_status := FND_API.G_RET_STS_ERROR;
10257: END IF;
10258:
10259: I := l_Header_Adj_Assoc_tbl.NEXT(I);
10252: I := l_Header_Adj_Assoc_tbl.FIRST;
10253: WHILE I IS NOT NULL LOOP
10254:
10255: IF l_Header_Adj_Assoc_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10256: x_return_status := FND_API.G_RET_STS_ERROR;
10257: END IF;
10258:
10259: I := l_Header_Adj_Assoc_tbl.NEXT(I);
10260: END LOOP;
10263:
10264: I := l_Line_Adj_tbl.FIRST;
10265: WHILE I IS NOT NULL LOOP
10266:
10267: IF l_Line_Adj_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10268: x_return_status := FND_API.G_RET_STS_ERROR;
10269: END IF;
10270:
10271: I := l_Line_Adj_tbl.NEXT(I);
10264: I := l_Line_Adj_tbl.FIRST;
10265: WHILE I IS NOT NULL LOOP
10266:
10267: IF l_Line_Adj_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10268: x_return_status := FND_API.G_RET_STS_ERROR;
10269: END IF;
10270:
10271: I := l_Line_Adj_tbl.NEXT(I);
10272: END LOOP;
10273:
10274: I := l_Line_Price_Att_tbl.FIRST;
10275: WHILE I IS NOT NULL LOOP
10276:
10277: IF l_Line_Price_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10278: x_return_status := FND_API.G_RET_STS_ERROR;
10279: END IF;
10280:
10281: I := l_Line_Price_Att_tbl.NEXT(I);
10274: I := l_Line_Price_Att_tbl.FIRST;
10275: WHILE I IS NOT NULL LOOP
10276:
10277: IF l_Line_Price_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10278: x_return_status := FND_API.G_RET_STS_ERROR;
10279: END IF;
10280:
10281: I := l_Line_Price_Att_tbl.NEXT(I);
10282: END LOOP;
10283:
10284: I := l_Line_Adj_Att_tbl.FIRST;
10285: WHILE I IS NOT NULL LOOP
10286:
10287: IF l_Line_Adj_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10288: x_return_status := FND_API.G_RET_STS_ERROR;
10289: END IF;
10290:
10291: I := l_Line_Adj_Att_tbl.NEXT(I);
10284: I := l_Line_Adj_Att_tbl.FIRST;
10285: WHILE I IS NOT NULL LOOP
10286:
10287: IF l_Line_Adj_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10288: x_return_status := FND_API.G_RET_STS_ERROR;
10289: END IF;
10290:
10291: I := l_Line_Adj_Att_tbl.NEXT(I);
10292: END LOOP;
10293:
10294: I := l_Line_Adj_Assoc_tbl.FIRST;
10295: WHILE I IS NOT NULL LOOP
10296:
10297: IF l_Line_Adj_Assoc_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10298: x_return_status := FND_API.G_RET_STS_ERROR;
10299: END IF;
10300:
10301: I := l_Line_Adj_Assoc_tbl.NEXT(I);
10294: I := l_Line_Adj_Assoc_tbl.FIRST;
10295: WHILE I IS NOT NULL LOOP
10296:
10297: IF l_Line_Adj_Assoc_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10298: x_return_status := FND_API.G_RET_STS_ERROR;
10299: END IF;
10300:
10301: I := l_Line_Adj_Assoc_tbl.NEXT(I);
10302: END LOOP;
10333: p_old_Line_Scredit_tbl => l_old_line_Scredit_tbl,
10334: p_Lot_Serial_tbl => l_lot_Serial_tbl,
10335: p_old_Lot_Serial_tbl => l_old_Lot_Serial_tbl);
10336:
10337: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10339: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10340: RAISE FND_API.G_EXC_ERROR;
10341: END IF;
10334: p_Lot_Serial_tbl => l_lot_Serial_tbl,
10335: p_old_Lot_Serial_tbl => l_old_Lot_Serial_tbl);
10336:
10337: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10339: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10340: RAISE FND_API.G_EXC_ERROR;
10341: END IF;
10342:
10335: p_old_Lot_Serial_tbl => l_old_Lot_Serial_tbl);
10336:
10337: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10339: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10340: RAISE FND_API.G_EXC_ERROR;
10341: END IF;
10342:
10343: ELSE
10336:
10337: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10339: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10340: RAISE FND_API.G_EXC_ERROR;
10341: END IF;
10342:
10343: ELSE
10344: /* Pre Pack H processsing */
10346: IF l_debug_level > 0 THEN
10347: oe_debug_pub.add( 'CS BEFORE CALLING NOTIFY_OC API' , 1 ) ;
10348: END IF;
10349:
10350: IF x_return_status = FND_API.G_RET_STS_SUCCESS AND
10351: p_control_rec.write_to_db = TRUE
10352: AND oe_order_cache.g_header_rec.booked_flag = 'Y'
10353: THEN
10354: IF l_debug_level > 0 THEN
10397:
10398: IF l_debug_level > 0 THEN
10399: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
10400: END IF;
10401: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10402: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10403: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10404: RAISE FND_API.G_EXC_ERROR;
10405: END IF;
10398: IF l_debug_level > 0 THEN
10399: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
10400: END IF;
10401: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10402: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10403: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10404: RAISE FND_API.G_EXC_ERROR;
10405: END IF;
10406:
10399: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
10400: END IF;
10401: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10402: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10403: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10404: RAISE FND_API.G_EXC_ERROR;
10405: END IF;
10406:
10407:
10400: END IF;
10401: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10402: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10403: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10404: RAISE FND_API.G_EXC_ERROR;
10405: END IF;
10406:
10407:
10408: END IF;
10411: oe_debug_pub.add( 'PROCESSING ACKS' , 1 ) ;
10412: END IF;
10413: -- Following check is commented to fix 2380911
10414: IF -- OE_Globals.G_RECURSION_MODE <> 'Y' AND
10415: x_return_status = FND_API.G_RET_STS_SUCCESS AND
10416: l_control_rec.write_to_db = TRUE
10417: THEN
10418: IF l_debug_level > 0 THEN
10419: oe_debug_pub.add( 'CALLING ACKS API' , 1 ) ;
10457: ,x_return_status => l_return_status
10458: );
10459: End If;
10460:
10461: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10462: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10463: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10464: RAISE FND_API.G_EXC_ERROR;
10465: x_return_status := l_return_status;
10458: );
10459: End If;
10460:
10461: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10462: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10463: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10464: RAISE FND_API.G_EXC_ERROR;
10465: x_return_status := l_return_status;
10466: END IF;
10459: End If;
10460:
10461: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10462: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10463: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10464: RAISE FND_API.G_EXC_ERROR;
10465: x_return_status := l_return_status;
10466: END IF;
10467: END IF;
10460:
10461: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10462: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10463: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10464: RAISE FND_API.G_EXC_ERROR;
10465: x_return_status := l_return_status;
10466: END IF;
10467: END IF;
10468:
10502: END IF;
10503:
10504: EXCEPTION
10505:
10506: WHEN FND_API.G_EXC_ERROR THEN
10507:
10508: IF l_debug_level > 0 THEN
10509: oe_debug_pub.add( 'PO: EXITING PROCESS ORDER WITH ERROR' , 2 ) ;
10510: END IF;
10511: set_recursion_mode(p_Entity_Code => 1,
10512: p_In_out => 0);
10513: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
10514: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
10515: x_return_status := FND_API.G_RET_STS_ERROR;
10516:
10517: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
10518: IF l_debug_level > 0 THEN
10519: oe_debug_pub.add( 'DELETE REQUEST11' , 2 ) ;
10534: ( p_count => x_msg_count
10535: , p_data => x_msg_data
10536: );
10537:
10538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10539:
10540: IF l_debug_level > 0 THEN
10541: oe_debug_pub.add( 'PO: EXITING PROCESS ORDER WITH UNEXPECTED ERROR' , 2 ) ;
10542: END IF;
10543: set_recursion_mode(p_Entity_Code => 1,
10544: p_In_out => 0);
10545: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
10546: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
10547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10548:
10549: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
10550: IF l_debug_level > 0 THEN
10551: oe_debug_pub.add( 'DELETE REQUEST12' , 2 ) ;
10576: set_recursion_mode(p_Entity_Code => 1,
10577: p_In_out => 0);
10578: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
10579: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
10580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10581:
10582: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
10583: IF l_debug_level > 0 THEN
10584: oe_debug_pub.add( 'DELETE REQUEST13' , 2 ) ;
10628: -- End of Comments
10629: ---------------------------------------------------------------*/
10630: PROCEDURE Lock_Order
10631: ( p_api_version_number IN NUMBER
10632: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
10633: , x_return_status OUT NOCOPY VARCHAR2
10634:
10635: , x_msg_count OUT NOCOPY NUMBER
10636:
10679:
10680: -- overloaded for payments parameters
10681: PROCEDURE Lock_Order
10682: ( p_api_version_number IN NUMBER
10683: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
10684: , x_return_status OUT NOCOPY VARCHAR2
10685:
10686: , x_msg_count OUT NOCOPY NUMBER
10687:
10705: )
10706: IS
10707: l_api_version_number CONSTANT NUMBER := 1.0;
10708: l_api_name CONSTANT VARCHAR2(30):= 'Lock_Order';
10709: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
10710: I NUMBER; -- Used for index.
10711: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
10712: BEGIN
10713:
10715: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.LOCK_ORDER' , 1 ) ;
10716: END IF;
10717: -- Standard call to check for call compatibility
10718:
10719: IF NOT FND_API.Compatible_API_Call
10720: ( l_api_version_number
10721: , p_api_version_number
10722: , l_api_name
10723: , G_PKG_NAME
10722: , l_api_name
10723: , G_PKG_NAME
10724: )
10725: THEN
10726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10727: END IF;
10728:
10729: -- Initialize message list.
10730:
10727: END IF;
10728:
10729: -- Initialize message list.
10730:
10731: IF FND_API.to_Boolean(p_init_msg_list) THEN
10732: OE_MSG_PUB.initialize;
10733: END IF;
10734:
10735: -- Set Savepoint
10744: ( p_x_header_rec => p_x_header_rec
10745: , x_return_status => l_return_status
10746: );
10747:
10748: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10750: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10751: RAISE FND_API.G_EXC_ERROR;
10752: END IF;
10745: , x_return_status => l_return_status
10746: );
10747:
10748: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10750: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10751: RAISE FND_API.G_EXC_ERROR;
10752: END IF;
10753:
10746: );
10747:
10748: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10750: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10751: RAISE FND_API.G_EXC_ERROR;
10752: END IF;
10753:
10754:
10747:
10748: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10750: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10751: RAISE FND_API.G_EXC_ERROR;
10752: END IF;
10753:
10754:
10755: END IF;
10767: ( p_x_Header_Adj_rec => p_x_Header_Adj_tbl(I)
10768: , x_return_status => l_return_status
10769: );
10770:
10771: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10773: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10774: RAISE FND_API.G_EXC_ERROR;
10775: END IF;
10768: , x_return_status => l_return_status
10769: );
10770:
10771: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10773: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10774: RAISE FND_API.G_EXC_ERROR;
10775: END IF;
10776:
10769: );
10770:
10771: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10773: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10774: RAISE FND_API.G_EXC_ERROR;
10775: END IF;
10776:
10777: END IF;
10770:
10771: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10773: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10774: RAISE FND_API.G_EXC_ERROR;
10775: END IF;
10776:
10777: END IF;
10778:
10791: ( p_x_Header_Price_Att_rec => p_x_Header_Price_Att_tbl(I)
10792: , x_return_status => l_return_status
10793: );
10794:
10795: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10796: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10797: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10798: RAISE FND_API.G_EXC_ERROR;
10799: END IF;
10792: , x_return_status => l_return_status
10793: );
10794:
10795: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10796: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10797: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10798: RAISE FND_API.G_EXC_ERROR;
10799: END IF;
10800:
10793: );
10794:
10795: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10796: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10797: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10798: RAISE FND_API.G_EXC_ERROR;
10799: END IF;
10800:
10801: END IF;
10794:
10795: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10796: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10797: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10798: RAISE FND_API.G_EXC_ERROR;
10799: END IF;
10800:
10801: END IF;
10802:
10815: ( p_x_Header_Adj_Att_rec => p_x_Header_Adj_Att_tbl(I)
10816: , x_return_status => l_return_status
10817: );
10818:
10819: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10821: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10822: RAISE FND_API.G_EXC_ERROR;
10823: END IF;
10816: , x_return_status => l_return_status
10817: );
10818:
10819: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10821: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10822: RAISE FND_API.G_EXC_ERROR;
10823: END IF;
10824:
10817: );
10818:
10819: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10821: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10822: RAISE FND_API.G_EXC_ERROR;
10823: END IF;
10824:
10825: END IF;
10818:
10819: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10821: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10822: RAISE FND_API.G_EXC_ERROR;
10823: END IF;
10824:
10825: END IF;
10826:
10839: ( p_x_Header_Adj_Assoc_rec => p_x_Header_Adj_Assoc_tbl(I)
10840: , x_return_status => l_return_status
10841: );
10842:
10843: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10845: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10846: RAISE FND_API.G_EXC_ERROR;
10847: END IF;
10840: , x_return_status => l_return_status
10841: );
10842:
10843: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10845: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10846: RAISE FND_API.G_EXC_ERROR;
10847: END IF;
10848:
10841: );
10842:
10843: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10845: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10846: RAISE FND_API.G_EXC_ERROR;
10847: END IF;
10848:
10849: END IF;
10842:
10843: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10845: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10846: RAISE FND_API.G_EXC_ERROR;
10847: END IF;
10848:
10849: END IF;
10850:
10865: ( p_x_Header_Scredit_rec => p_x_Header_Scredit_tbl(I)
10866: , x_return_status => l_return_status
10867: );
10868:
10869: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10871: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10872: RAISE FND_API.G_EXC_ERROR;
10873: END IF;
10866: , x_return_status => l_return_status
10867: );
10868:
10869: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10871: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10872: RAISE FND_API.G_EXC_ERROR;
10873: END IF;
10874:
10867: );
10868:
10869: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10871: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10872: RAISE FND_API.G_EXC_ERROR;
10873: END IF;
10874:
10875: END IF;
10868:
10869: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10871: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10872: RAISE FND_API.G_EXC_ERROR;
10873: END IF;
10874:
10875: END IF;
10876:
10890: ( p_x_Header_Payment_rec => p_x_Header_Payment_tbl(I)
10891: , x_return_status => l_return_status
10892: );
10893:
10894: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10896: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10897: RAISE FND_API.G_EXC_ERROR;
10898: END IF;
10891: , x_return_status => l_return_status
10892: );
10893:
10894: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10896: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10897: RAISE FND_API.G_EXC_ERROR;
10898: END IF;
10899:
10892: );
10893:
10894: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10896: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10897: RAISE FND_API.G_EXC_ERROR;
10898: END IF;
10899:
10900: END IF;
10893:
10894: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10896: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10897: RAISE FND_API.G_EXC_ERROR;
10898: END IF;
10899:
10900: END IF;
10901:
10917: ( p_x_line_rec => p_x_line_tbl(I)
10918: , x_return_status => l_return_status
10919: );
10920:
10921: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10923: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10924: RAISE FND_API.G_EXC_ERROR;
10925: END IF;
10918: , x_return_status => l_return_status
10919: );
10920:
10921: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10923: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10924: RAISE FND_API.G_EXC_ERROR;
10925: END IF;
10926:
10919: );
10920:
10921: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10923: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10924: RAISE FND_API.G_EXC_ERROR;
10925: END IF;
10926:
10927: END IF;
10920:
10921: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10923: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10924: RAISE FND_API.G_EXC_ERROR;
10925: END IF;
10926:
10927: END IF;
10928:
10943: ( p_x_Line_Adj_rec => p_x_Line_Adj_tbl(I)
10944: , x_return_status => l_return_status
10945: );
10946:
10947: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10948: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10949: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10950: RAISE FND_API.G_EXC_ERROR;
10951: END IF;
10944: , x_return_status => l_return_status
10945: );
10946:
10947: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10948: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10949: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10950: RAISE FND_API.G_EXC_ERROR;
10951: END IF;
10952:
10945: );
10946:
10947: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10948: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10949: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10950: RAISE FND_API.G_EXC_ERROR;
10951: END IF;
10952:
10953: END IF;
10946:
10947: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10948: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10949: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10950: RAISE FND_API.G_EXC_ERROR;
10951: END IF;
10952:
10953: END IF;
10954:
10967: ( p_x_Line_Price_Att_rec => p_x_Line_Price_Att_tbl(I)
10968: , x_return_status => l_return_status
10969: );
10970:
10971: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10973: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10974: RAISE FND_API.G_EXC_ERROR;
10975: END IF;
10968: , x_return_status => l_return_status
10969: );
10970:
10971: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10973: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10974: RAISE FND_API.G_EXC_ERROR;
10975: END IF;
10976:
10969: );
10970:
10971: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10973: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10974: RAISE FND_API.G_EXC_ERROR;
10975: END IF;
10976:
10977: END IF;
10970:
10971: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10973: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10974: RAISE FND_API.G_EXC_ERROR;
10975: END IF;
10976:
10977: END IF;
10978:
10991: ( p_x_Line_Adj_Att_rec => p_x_Line_Adj_Att_tbl(I)
10992: , x_return_status => l_return_status
10993: );
10994:
10995: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10997: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10998: RAISE FND_API.G_EXC_ERROR;
10999: END IF;
10992: , x_return_status => l_return_status
10993: );
10994:
10995: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10997: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10998: RAISE FND_API.G_EXC_ERROR;
10999: END IF;
11000:
10993: );
10994:
10995: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10997: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10998: RAISE FND_API.G_EXC_ERROR;
10999: END IF;
11000:
11001: END IF;
10994:
10995: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10997: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10998: RAISE FND_API.G_EXC_ERROR;
10999: END IF;
11000:
11001: END IF;
11002:
11015: ( p_x_Line_Adj_Assoc_rec => p_x_Line_Adj_Assoc_tbl(I)
11016: , x_return_status => l_return_status
11017: );
11018:
11019: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11021: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11022: RAISE FND_API.G_EXC_ERROR;
11023: END IF;
11016: , x_return_status => l_return_status
11017: );
11018:
11019: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11021: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11022: RAISE FND_API.G_EXC_ERROR;
11023: END IF;
11024:
11017: );
11018:
11019: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11021: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11022: RAISE FND_API.G_EXC_ERROR;
11023: END IF;
11024:
11025: END IF;
11018:
11019: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11021: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11022: RAISE FND_API.G_EXC_ERROR;
11023: END IF;
11024:
11025: END IF;
11026:
11040: ( p_x_Line_Scredit_rec => p_x_Line_Scredit_tbl(I)
11041: , x_return_status => l_return_status
11042: );
11043:
11044: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11046: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11047: RAISE FND_API.G_EXC_ERROR;
11048: END IF;
11041: , x_return_status => l_return_status
11042: );
11043:
11044: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11046: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11047: RAISE FND_API.G_EXC_ERROR;
11048: END IF;
11049:
11042: );
11043:
11044: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11046: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11047: RAISE FND_API.G_EXC_ERROR;
11048: END IF;
11049:
11050: END IF;
11043:
11044: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11046: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11047: RAISE FND_API.G_EXC_ERROR;
11048: END IF;
11049:
11050: END IF;
11051:
11066: ( p_x_Line_Payment_rec => p_x_Line_Payment_tbl(I)
11067: , x_return_status => l_return_status
11068: );
11069:
11070: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11071: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11072: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11073: RAISE FND_API.G_EXC_ERROR;
11074: END IF;
11067: , x_return_status => l_return_status
11068: );
11069:
11070: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11071: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11072: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11073: RAISE FND_API.G_EXC_ERROR;
11074: END IF;
11075:
11068: );
11069:
11070: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11071: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11072: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11073: RAISE FND_API.G_EXC_ERROR;
11074: END IF;
11075:
11076: END IF;
11069:
11070: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11071: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11072: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11073: RAISE FND_API.G_EXC_ERROR;
11074: END IF;
11075:
11076: END IF;
11077:
11093: ( p_x_Lot_Serial_rec => p_x_Lot_Serial_tbl(I)
11094: , x_return_status => l_return_status
11095: );
11096:
11097: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11099: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11100: RAISE FND_API.G_EXC_ERROR;
11101: END IF;
11094: , x_return_status => l_return_status
11095: );
11096:
11097: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11099: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11100: RAISE FND_API.G_EXC_ERROR;
11101: END IF;
11102:
11095: );
11096:
11097: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11099: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11100: RAISE FND_API.G_EXC_ERROR;
11101: END IF;
11102:
11103: END IF;
11096:
11097: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11099: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11100: RAISE FND_API.G_EXC_ERROR;
11101: END IF;
11102:
11103: END IF;
11104:
11107: END LOOP;
11108:
11109: -- Set return status
11110:
11111: x_return_status := FND_API.G_RET_STS_SUCCESS;
11112:
11113: -- Get message count and data
11114:
11115: OE_MSG_PUB.Count_And_Get
11127: END IF;
11128:
11129: EXCEPTION
11130:
11131: WHEN FND_API.G_EXC_ERROR THEN
11132:
11133: x_return_status := FND_API.G_RET_STS_ERROR;
11134:
11135: -- Get message count and data
11129: EXCEPTION
11130:
11131: WHEN FND_API.G_EXC_ERROR THEN
11132:
11133: x_return_status := FND_API.G_RET_STS_ERROR;
11134:
11135: -- Get message count and data
11136:
11137: OE_MSG_PUB.Count_And_Get
11142: -- Rollback
11143:
11144: ROLLBACK TO Lock_Order_PVT;
11145:
11146: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11147:
11148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11149:
11150: -- Get message count and data
11144: ROLLBACK TO Lock_Order_PVT;
11145:
11146: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11147:
11148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11149:
11150: -- Get message count and data
11151:
11152: OE_MSG_PUB.Count_And_Get
11159: ROLLBACK TO Lock_Order_PVT;
11160:
11161: WHEN OTHERS THEN
11162:
11163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11164:
11165: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
11166: THEN
11167: OE_MSG_PUB.Add_Exc_Msg
11202:
11203: --------------------------------------------------------------*/
11204: PROCEDURE Get_Order
11205: ( p_api_version_number IN NUMBER
11206: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
11207: , x_return_status OUT NOCOPY VARCHAR2
11208:
11209: , x_msg_count OUT NOCOPY NUMBER
11210:
11255:
11256: -- overloaded for payments parameters
11257: PROCEDURE Get_Order
11258: ( p_api_version_number IN NUMBER
11259: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
11260: , x_return_status OUT NOCOPY VARCHAR2
11261:
11262: , x_msg_count OUT NOCOPY NUMBER
11263:
11302: BEGIN
11303:
11304: -- Standard call to check for call compatibility
11305:
11306: IF NOT FND_API.Compatible_API_Call
11307: ( l_api_version_number
11308: , p_api_version_number
11309: , l_api_name
11310: , G_PKG_NAME
11309: , l_api_name
11310: , G_PKG_NAME
11311: )
11312: THEN
11313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11314: END IF;
11315:
11316: -- Initialize message list.
11317:
11314: END IF;
11315:
11316: -- Initialize message list.
11317:
11318: IF FND_API.to_Boolean(p_init_msg_list) THEN
11319: OE_MSG_PUB.initialize;
11320: END IF;
11321:
11322: -- Get header ( parent = header )
11561: END LOOP;
11562:
11563: -- Set return status
11564:
11565: x_return_status := FND_API.G_RET_STS_SUCCESS;
11566:
11567: -- Get message count and data
11568:
11569: OE_MSG_PUB.Count_And_Get
11573:
11574:
11575: EXCEPTION
11576:
11577: WHEN FND_API.G_EXC_ERROR THEN
11578:
11579: x_return_status := FND_API.G_RET_STS_ERROR;
11580:
11581: -- Get message count and data
11575: EXCEPTION
11576:
11577: WHEN FND_API.G_EXC_ERROR THEN
11578:
11579: x_return_status := FND_API.G_RET_STS_ERROR;
11580:
11581: -- Get message count and data
11582:
11583: OE_MSG_PUB.Count_And_Get
11584: ( p_count => x_msg_count
11585: , p_data => x_msg_data
11586: );
11587:
11588: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11589:
11590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11591:
11592: -- Get message count and data
11586: );
11587:
11588: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11589:
11590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11591:
11592: -- Get message count and data
11593:
11594: OE_MSG_PUB.Count_And_Get
11597: );
11598:
11599: WHEN OTHERS THEN
11600:
11601: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11602:
11603: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
11604: THEN
11605: OE_MSG_PUB.Add_Exc_Msg
11623: --------------------------------------------------------------*/
11624:
11625: Procedure Cancel_Order
11626: ( p_api_version_number IN NUMBER
11627: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
11628: , x_return_status OUT NOCOPY VARCHAR2
11629:
11630: , x_msg_count OUT NOCOPY NUMBER
11631:
11644: IF l_debug_level > 0 THEN
11645: oe_debug_pub.add( 'ENTERING OE_ORDER_PUB.CANCEL_ORDER' , 1 ) ;
11646: END IF;
11647:
11648: IF NOT FND_API.Compatible_API_Call
11649: ( l_api_version_number
11650: , p_api_version_number
11651: , l_api_name
11652: , G_PKG_NAME
11651: , l_api_name
11652: , G_PKG_NAME
11653: )
11654: THEN
11655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11656: END IF;
11657:
11658: -- Initialize message list if p_init_msg_list is set to TRUE.
11659: IF FND_API.to_Boolean( p_init_msg_list ) THEN
11655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11656: END IF;
11657:
11658: -- Initialize message list if p_init_msg_list is set to TRUE.
11659: IF FND_API.to_Boolean( p_init_msg_list ) THEN
11660: OE_MSG_PUB.initialize;
11661: END IF;
11662:
11663: -- Initialize API return status to success
11660: OE_MSG_PUB.initialize;
11661: END IF;
11662:
11663: -- Initialize API return status to success
11664: x_return_status := FND_API.G_RET_STS_SUCCESS;
11665:
11666: IF l_debug_level > 0 THEN
11667: oe_debug_pub.add( 'CALLING OE_SALES_CAN_UTIL.CANCEL_LINE' , 2 ) ;
11668: END IF;
11675: IF l_debug_level > 0 THEN
11676: oe_debug_pub.add( 'COMPLETED OE_SALES_CAN_UTIL.CANCEL_LINE WITH STATUS ' || L_RETURN_STATUS , 2 ) ;
11677: END IF;
11678:
11679: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11681: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11682: RAISE FND_API.G_EXC_ERROR;
11683: END IF;
11676: oe_debug_pub.add( 'COMPLETED OE_SALES_CAN_UTIL.CANCEL_LINE WITH STATUS ' || L_RETURN_STATUS , 2 ) ;
11677: END IF;
11678:
11679: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11681: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11682: RAISE FND_API.G_EXC_ERROR;
11683: END IF;
11684:
11677: END IF;
11678:
11679: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11681: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11682: RAISE FND_API.G_EXC_ERROR;
11683: END IF;
11684:
11685: IF l_debug_level > 0 THEN
11678:
11679: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11681: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11682: RAISE FND_API.G_EXC_ERROR;
11683: END IF;
11684:
11685: IF l_debug_level > 0 THEN
11686: oe_debug_pub.add( 'EXITING OE_ORDER_PUB.CANCEL_ORDER' , 1 ) ;
11687: END IF;
11688:
11689: EXCEPTION
11690:
11691: WHEN FND_API.G_EXC_ERROR THEN
11692: x_return_status := FND_API.G_RET_STS_ERROR;
11693:
11694: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11695: IF OE_MSG_PUB.Check_MSg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
11688:
11689: EXCEPTION
11690:
11691: WHEN FND_API.G_EXC_ERROR THEN
11692: x_return_status := FND_API.G_RET_STS_ERROR;
11693:
11694: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11695: IF OE_MSG_PUB.Check_MSg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
11696: OE_MSG_PUB.Add_Exc_Msg
11690:
11691: WHEN FND_API.G_EXC_ERROR THEN
11692: x_return_status := FND_API.G_RET_STS_ERROR;
11693:
11694: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11695: IF OE_MSG_PUB.Check_MSg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
11696: OE_MSG_PUB.Add_Exc_Msg
11697: (G_PKG_NAME
11698: ,'Cancel_Order');
11696: OE_MSG_PUB.Add_Exc_Msg
11697: (G_PKG_NAME
11698: ,'Cancel_Order');
11699: END IF;
11700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11701:
11702: WHEN OTHERS THEN
11703:
11704: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
11708: , 'Cancel_Order'
11709: );
11710: END IF;
11711:
11712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11713:
11714: END Cancel_Order;
11715:
11716:
11833: -- if only a class/options is created in exiting model,
11834: -- you need to explode the model, rare case.
11835:
11836: IF p_x_line_rec.top_model_line_index is NOT NULL AND
11837: p_x_line_rec.top_model_line_index <> FND_API.G_MISS_NUM AND
11838: nvl(p_x_line_tbl(p_x_line_rec.top_model_line_index).operation, 'A') <>
11839: OE_GLOBALS.G_OPR_CREATE
11840: THEN
11841: l_line_rec := p_x_line_tbl(p_x_line_rec.top_model_line_index);
11861: BEGIN
11862:
11863: IF p_x_line_rec.config_header_id is not NULL AND
11864: p_x_line_rec.configuration_id is not NULL AND
11865: p_x_line_rec.config_header_id <> FND_API.G_MISS_NUM AND
11866: p_x_line_rec.configuration_id <> FND_API.G_MISS_NUM AND
11867: OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
11868:
11869: IF l_debug_level > 0 THEN
11862:
11863: IF p_x_line_rec.config_header_id is not NULL AND
11864: p_x_line_rec.configuration_id is not NULL AND
11865: p_x_line_rec.config_header_id <> FND_API.G_MISS_NUM AND
11866: p_x_line_rec.configuration_id <> FND_API.G_MISS_NUM AND
11867: OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
11868:
11869: IF l_debug_level > 0 THEN
11870: oe_debug_pub.add( 'COMP_CONFIG VORDB: PACK H NEW LOGIC MI' , 1 ) ;
11888: oe_debug_pub.add( 'COMP_CONFIG VORDB: USING BOM_EXPLOSION' , 1 ) ;
11889: END IF;
11890:
11891: IF p_x_line_rec.component_code is not NULL AND
11892: p_x_line_rec.component_code <> FND_API.G_MISS_CHAR
11893: THEN
11894: IF l_debug_level > 0 THEN
11895: oe_debug_pub.add( 'COMPONENT CODE PASSED , SOMETHING ELSE NULL' , 3 ) ;
11896: END IF;
11937: END IF;
11938: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_ITEM_NOT_IN_BILL');
11939: --bug4015696
11940: IF p_x_line_rec.ordered_item IS NULL OR
11941: p_x_line_rec.ordered_item = FND_API.G_MISS_CHAR THEN
11942: IF p_x_line_rec.item_identifier_type = FND_API.G_MISS_CHAR THEN
11943: l_item_identifier_type := NULL;
11944: ELSE
11945: l_item_identifier_type := p_x_line_rec.item_identifier_type;
11938: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_ITEM_NOT_IN_BILL');
11939: --bug4015696
11940: IF p_x_line_rec.ordered_item IS NULL OR
11941: p_x_line_rec.ordered_item = FND_API.G_MISS_CHAR THEN
11942: IF p_x_line_rec.item_identifier_type = FND_API.G_MISS_CHAR THEN
11943: l_item_identifier_type := NULL;
11944: ELSE
11945: l_item_identifier_type := p_x_line_rec.item_identifier_type;
11946: END IF;
11953: ,p_ordered_item_id => p_x_line_rec.ordered_item_id
11954: ,p_sold_to_org_id => p_x_line_rec.sold_to_org_id
11955: ,x_ordered_item => p_x_line_rec.ordered_item );
11956: IF p_x_line_rec.ordered_item IS NULL OR
11957: p_x_line_rec.ordered_item = FND_API.G_MISS_CHAR THEN
11958: FND_MESSAGE.Set_Token('ITEM',p_x_line_rec.inventory_item_id);
11959: ELSE
11960: FND_MESSAGE.Set_Token('ITEM',p_x_line_rec.ordered_item);
11961: END IF;
11968: IF p_process_partial THEN
11969: IF l_debug_level > 0 THEN /* Bug # 4036765 */
11970: oe_debug_pub.add( 'PROCESS PARTIAL IS TRUE' , 3 ) ;
11971: END IF;
11972: p_x_line_rec.return_status := FND_API.G_RET_STS_ERROR;
11973: p_x_line_rec.operation := OE_GLOBALS.G_OPR_NONE;
11974: OE_GLOBALS.G_FAIL_ORDER_IMPORT := TRUE; /* Bug # 4036765 */
11975: ELSE
11976: IF l_debug_level > 0 THEN
11975: ELSE
11976: IF l_debug_level > 0 THEN
11977: oe_debug_pub.add( 'PROCESS PARTIAL IS NOT TRUE' , 3 ) ;
11978: END IF;
11979: RAISE FND_API.G_EXC_ERROR;
11980: END IF;
11981:
11982: WHEN TOO_MANY_ROWS THEN
11983: IF l_debug_level > 0 THEN
11988: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_AMBIGUITY');
11989: FND_MESSAGE.Set_Token('COMPONENT', p_x_line_rec.ordered_item);
11990: FND_MESSAGE.Set_Token('MODEL', nvl(l_model_ordered_item,l_line_rec.inventory_item_id));
11991: oe_msg_pub.add;
11992: RAISE FND_API.G_EXC_ERROR;
11993:
11994: WHEN OTHERS THEN
11995: IF l_debug_level > 0 THEN
11996: oe_debug_pub.add( 'SELECT COMP_CODE FAILED , OTHERS ' , 1 ) ;
11995: IF l_debug_level > 0 THEN
11996: oe_debug_pub.add( 'SELECT COMP_CODE FAILED , OTHERS ' , 1 ) ;
11997: oe_debug_pub.add( 'ITEM: '|| P_X_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
11998: END IF;
11999: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12000: END;
12001:
12002:
12003: IF l_bom_item_type = 2 OR
12093: IF OE_Config_Util.G_Config_UI_Used = 'Y' THEN
12094: IF l_debug_level > 0 THEN
12095: oe_debug_pub.add( 'CONFIGURATOR/OW USED , SHOULD NOT COME HERE' , 1 ) ;
12096: END IF;
12097: RAISE FND_API.G_EXC_ERROR;
12098: END IF;
12099:
12100:
12101: l_index := p_x_line_tbl.LAST;
12172:
12173: IF p_x_line_tbl(l_option_index).config_header_id is not NULL AND
12174: p_x_line_tbl(l_option_index).configuration_id is not NULL AND
12175: p_x_line_tbl(l_option_index).config_header_id <>
12176: FND_API.G_MISS_NUM AND
12177: p_x_line_tbl(l_option_index).configuration_id <>
12178: FND_API.G_MISS_NUM AND
12179: OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
12180:
12174: p_x_line_tbl(l_option_index).configuration_id is not NULL AND
12175: p_x_line_tbl(l_option_index).config_header_id <>
12176: FND_API.G_MISS_NUM AND
12177: p_x_line_tbl(l_option_index).configuration_id <>
12178: FND_API.G_MISS_NUM AND
12179: OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
12180:
12181: IF l_debug_level > 0 THEN
12182: oe_debug_pub.add( 'VORDB: PACK H NEW LOGIC MI' , 1 ) ;
12310: WHEN NO_DATA_FOUND THEN
12311: IF l_debug_level > 0 THEN
12312: oe_debug_pub.add( 'NAME OF THE ITEM NOT FOUND' , 1 ) ;
12313: END IF;
12314: RAISE FND_API.G_EXC_ERROR;
12315: END;
12316:
12317: IF l_debug_level > 0 THEN
12318: oe_debug_pub.add