[Home] [Help]
366: PROCEDURE Header
367: -----------------------------------------------------------------------*/
368:
369: PROCEDURE Header
370: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
371: , p_validation_level IN NUMBER
372: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
373: , p_x_header_rec IN OUT NOCOPY OE_Order_PUB.Header_Rec_Type
374: , p_x_old_header_rec IN OUT NOCOPY OE_Order_PUB.Header_Rec_Type
393: --
394: BEGIN
395: --Moac changes start
396: l_org_id := MO_GLOBAL.get_current_org_id;
397: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
398: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
399: OE_MSG_PUB.Add;
400: RAISE FND_API.G_EXC_ERROR;
401: END IF;
396: l_org_id := MO_GLOBAL.get_current_org_id;
397: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
398: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
399: OE_MSG_PUB.Add;
400: RAISE FND_API.G_EXC_ERROR;
401: END IF;
402: --Moac changes end
403: -- Initialize message list.
404: set_recursion_mode(p_Entity_Code => 2,
403: -- Initialize message list.
404: set_recursion_mode(p_Entity_Code => 2,
405: p_In_out => 1);
406:
407: IF FND_API.to_Boolean(p_init_msg_list) THEN
408: OE_MSG_PUB.initialize;
409: END IF;
410:
411: x_return_status := FND_API.G_RET_STS_SUCCESS;
407: IF FND_API.to_Boolean(p_init_msg_list) THEN
408: OE_MSG_PUB.initialize;
409: END IF;
410:
411: x_return_status := FND_API.G_RET_STS_SUCCESS;
412:
413: IF l_debug_level > 0 THEN
414: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.HEADER' , 1 ) ;
415: END IF;
421: IF l_debug_level > 0 THEN
422: oe_debug_pub.add( 'BEFORE CALLING VALID UPGRADE ORDER' , 2 ) ;
423: END IF;
424: IF NOT Valid_Upgraded_Order(p_x_header_rec.header_id ) THEN
425: RAISE FND_API.G_EXC_ERROR;
426: END IF;
427:
428: END IF;
429:
426: END IF;
427:
428: END IF;
429:
430: IF p_x_old_header_rec.header_id = FND_API.G_MISS_NUM
431: OR p_x_old_header_rec.header_id IS NULL
432: THEN
433:
434: OE_MSG_PUB.set_msg_context(
474: END IF;
475:
476: -- Set record return status.
477:
478: p_x_header_rec.return_status := FND_API.G_RET_STS_SUCCESS;
479:
480: -- Prepare record.
481:
482: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
483:
484: IF l_debug_level > 0 THEN
485: oe_debug_pub.add( 'OPERATION = CREATE SO SET OLD TO NULL' , 2 ) ;
486: END IF;
487: p_x_header_rec.db_flag := FND_API.G_FALSE;
488:
489: -- Set missing old record elements to NULL.
490:
491: OE_Header_Util.Convert_Miss_To_Null (p_x_old_header_rec);
497: IF l_debug_level > 0 THEN
498: oe_debug_pub.add( 'OPERATION = UPDATE SO QUERY OLD' , 2 ) ;
499: END IF;
500:
501: p_x_header_rec.db_flag := FND_API.G_TRUE;
502:
503: -- Query Old if missing
504:
505: IF p_x_old_header_rec.header_id = FND_API.G_MISS_NUM
501: p_x_header_rec.db_flag := FND_API.G_TRUE;
502:
503: -- Query Old if missing
504:
505: IF p_x_old_header_rec.header_id = FND_API.G_MISS_NUM
506: OR p_x_old_header_rec.header_id IS NULL
507: THEN
508: IF l_debug_level > 0 THEN
509: oe_debug_pub.add( 'QUERYING OLD HEADER REC' ) ;
568: , x_result => l_sec_result
569: , x_return_status => l_return_status
570: );
571:
572: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
574: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
575: RAISE FND_API.G_EXC_ERROR;
576: END IF;
569: , x_return_status => l_return_status
570: );
571:
572: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
574: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
575: RAISE FND_API.G_EXC_ERROR;
576: END IF;
577:
570: );
571:
572: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
574: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
575: RAISE FND_API.G_EXC_ERROR;
576: END IF;
577:
578: IF l_sec_result = OE_PC_GLOBALS.YES THEN
571:
572: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
574: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
575: RAISE FND_API.G_EXC_ERROR;
576: END IF;
577:
578: IF l_sec_result = OE_PC_GLOBALS.YES THEN
579: RAISE FND_API.G_EXC_ERROR;
575: RAISE FND_API.G_EXC_ERROR;
576: END IF;
577:
578: IF l_sec_result = OE_PC_GLOBALS.YES THEN
579: RAISE FND_API.G_EXC_ERROR;
580: END IF;
581:
582: END IF;
583:
582: END IF;
583:
584: -- Attribute level validation.
585:
586: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
587:
588: IF l_debug_level > 0 THEN
589: oe_debug_pub.add( 'VALIDATE ATTRIBUTES' , 2 ) ;
590: END IF;
596: , p_validation_level => p_validation_level
597: );
598:
599: IF p_validation_level <> OE_GLOBALS.G_VALID_LEVEL_PARTIAL THEN
600: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
602: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
603: RAISE FND_API.G_EXC_ERROR;
604: END IF;
597: );
598:
599: IF p_validation_level <> OE_GLOBALS.G_VALID_LEVEL_PARTIAL THEN
600: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
602: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
603: RAISE FND_API.G_EXC_ERROR;
604: END IF;
605: END IF;
598:
599: IF p_validation_level <> OE_GLOBALS.G_VALID_LEVEL_PARTIAL THEN
600: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
602: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
603: RAISE FND_API.G_EXC_ERROR;
604: END IF;
605: END IF;
606: END IF;
599: IF p_validation_level <> OE_GLOBALS.G_VALID_LEVEL_PARTIAL THEN
600: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
602: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
603: RAISE FND_API.G_EXC_ERROR;
604: END IF;
605: END IF;
606: END IF;
607:
685: );
686:
687: END IF;
688:
689: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
691: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
692: RAISE FND_API.G_EXC_ERROR;
693: END IF;
686:
687: END IF;
688:
689: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
691: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
692: RAISE FND_API.G_EXC_ERROR;
693: END IF;
694:
687: END IF;
688:
689: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
691: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
692: RAISE FND_API.G_EXC_ERROR;
693: END IF;
694:
695: END IF;
688:
689: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
691: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
692: RAISE FND_API.G_EXC_ERROR;
693: END IF;
694:
695: END IF;
696:
718: , x_result => l_sec_result
719: , x_return_status => l_return_status
720: );
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: , x_return_status => l_return_status
720: );
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: );
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: IF l_sec_result = OE_PC_GLOBALS.YES THEN
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: IF l_sec_result = OE_PC_GLOBALS.YES THEN
729: RAISE FND_API.G_EXC_ERROR;
725: RAISE FND_API.G_EXC_ERROR;
726: END IF;
727:
728: IF l_sec_result = OE_PC_GLOBALS.YES THEN
729: RAISE FND_API.G_EXC_ERROR;
730: END IF;
731:
732: END IF;
733:
756: p_x_header_rec.last_update_date := SYSDATE;
757: p_x_header_rec.last_updated_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
758: p_x_header_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
759:
760: IF p_x_header_rec.credit_card_approval_date = FND_API.G_MISS_DATE THEN
761: p_x_header_rec.credit_card_approval_date := NULL;
762: END IF;
763:
764: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
802:
803: END IF;
804:
805: -- Load OUT parameters
806: p_x_header_rec.return_status := FND_API.G_RET_STS_SUCCESS;
807:
808: OE_Header_Security.g_check_all_cols_constraint := 'Y';
809:
810: IF l_debug_level > 0 THEN
816: p_In_out => 0);
817:
818: EXCEPTION
819:
820: WHEN FND_API.G_EXC_ERROR THEN
821:
822: set_recursion_mode(p_Entity_Code => 2,
823: p_In_out => 0);
824: p_x_header_rec.return_status := FND_API.G_RET_STS_ERROR;
820: WHEN FND_API.G_EXC_ERROR THEN
821:
822: set_recursion_mode(p_Entity_Code => 2,
823: p_In_out => 0);
824: p_x_header_rec.return_status := FND_API.G_RET_STS_ERROR;
825: x_return_status := FND_API.G_RET_STS_ERROR;
826: OE_Header_Security.g_check_all_cols_constraint := 'Y';
827: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
828: IF l_debug_level > 0 THEN
821:
822: set_recursion_mode(p_Entity_Code => 2,
823: p_In_out => 0);
824: p_x_header_rec.return_status := FND_API.G_RET_STS_ERROR;
825: x_return_status := FND_API.G_RET_STS_ERROR;
826: OE_Header_Security.g_check_all_cols_constraint := 'Y';
827: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
828: IF l_debug_level > 0 THEN
829: oe_debug_pub.add( 'DELETE REQUEST1' , 2 ) ;
832: (x_return_status => l_return_status);
833: END IF;
834: OE_MSG_PUB.reset_msg_context('HEADER');
835:
836: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
837:
838: set_recursion_mode(p_Entity_Code => 2,
839: p_In_out => 0);
840: p_x_header_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
836: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
837:
838: set_recursion_mode(p_Entity_Code => 2,
839: p_In_out => 0);
840: p_x_header_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
842: OE_Header_Security.g_check_all_cols_constraint := 'Y';
843: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
844: IF l_debug_level > 0 THEN
837:
838: set_recursion_mode(p_Entity_Code => 2,
839: p_In_out => 0);
840: p_x_header_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
842: OE_Header_Security.g_check_all_cols_constraint := 'Y';
843: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
844: IF l_debug_level > 0 THEN
845: oe_debug_pub.add( 'DELETE REQUEST2' , 2 ) ;
860: , 'Header'
861: );
862: END IF;
863:
864: p_x_header_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
866: OE_Header_Security.g_check_all_cols_constraint := 'Y';
867: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
868: IF l_debug_level > 0 THEN
861: );
862: END IF;
863:
864: p_x_header_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
866: OE_Header_Security.g_check_all_cols_constraint := 'Y';
867: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
868: IF l_debug_level > 0 THEN
869: oe_debug_pub.add( 'DELETE REQUEST3' , 2 ) ;
880: /*-------------------------------------------------------------------
881: PROCEDURE Header_Scredits
882: -------------------------------------------------------------------*/
883: PROCEDURE Header_Scredits
884: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
885: , p_validation_level IN NUMBER
886: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
887: , p_x_Header_Scredit_tbl IN OUT NOCOPY OE_Order_PUB.Header_Scredit_Tbl_Type
888: , p_x_old_Header_Scredit_tbl IN OUT NOCOPY OE_Order_PUB.Header_Scredit_Tbl_Type
916: BEGIN
917:
918: --MOAC changes start
919: l_org_id := MO_GLOBAL.get_current_org_id;
920: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
921: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
922: OE_MSG_PUB.Add;
923: RAISE FND_API.G_EXC_ERROR;
924: END IF;
919: l_org_id := MO_GLOBAL.get_current_org_id;
920: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
921: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
922: OE_MSG_PUB.Add;
923: RAISE FND_API.G_EXC_ERROR;
924: END IF;
925: --MOAC changes end
926:
927: set_recursion_mode(p_Entity_Code => 4,
925: --MOAC changes end
926:
927: set_recursion_mode(p_Entity_Code => 4,
928: p_In_out => 1);
929: x_return_status := FND_API.G_RET_STS_SUCCESS;
930:
931: -- Initialize message list.
932:
933: IF FND_API.to_Boolean(p_init_msg_list) THEN
929: x_return_status := FND_API.G_RET_STS_SUCCESS;
930:
931: -- Initialize message list.
932:
933: IF FND_API.to_Boolean(p_init_msg_list) THEN
934: OE_MSG_PUB.initialize;
935: END IF;
936:
937: IF p_control_rec.Process_Partial THEN
960: ELSE
961: l_old_Header_Scredit_rec := OE_Order_PUB.G_MISS_HEADER_SCREDIT_REC;
962: END IF;
963:
964: if l_old_header_Scredit_rec.sales_credit_id = FND_API.G_MISS_NUM
965: OR l_old_header_Scredit_rec.sales_credit_id IS NULL
966: Then
967:
968: IF l_header_Scredit_rec.header_id IS NOT NULL AND
965: OR l_old_header_Scredit_rec.sales_credit_id IS NULL
966: Then
967:
968: IF l_header_Scredit_rec.header_id IS NOT NULL AND
969: l_header_Scredit_rec.header_id <> FND_API.G_MISS_NUM THEN
970: BEGIN
971: IF l_debug_level > 0 THEN
972: oe_debug_pub.add('Getting reference data for header_id:'||l_header_Scredit_rec.header_id);
973: END IF;
1007: ,p_source_document_line_id => null );
1008:
1009: else
1010: IF l_old_header_Scredit_rec.header_id IS NOT NULL AND
1011: l_old_header_Scredit_rec.header_id <> FND_API.G_MISS_NUM THEN
1012:
1013: BEGIN
1014: IF l_debug_level > 0 THEN
1015: oe_debug_pub.add('Getting reference data for old header_id:'||l_old_header_Scredit_rec.header_id);
1060: );
1061:
1062: -- Set record return status.
1063:
1064: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1065:
1066: -- Prepare record.
1067:
1068: IF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1066: -- Prepare record.
1067:
1068: IF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1069:
1070: l_Header_Scredit_rec.db_flag := FND_API.G_FALSE;
1071:
1072: -- Set missing old record elements to NULL.
1073:
1074: OE_Header_Scredit_Util.Convert_Miss_To_Null (l_old_Header_Scredit_rec);
1076: ELSIF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1077: OR l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_DELETE
1078: THEN
1079:
1080: l_Header_Scredit_rec.db_flag := FND_API.G_TRUE;
1081:
1082: -- Query Old if missing
1083:
1084: IF l_old_Header_Scredit_rec.sales_credit_id = FND_API.G_MISS_NUM
1080: l_Header_Scredit_rec.db_flag := FND_API.G_TRUE;
1081:
1082: -- Query Old if missing
1083:
1084: IF l_old_Header_Scredit_rec.sales_credit_id = FND_API.G_MISS_NUM
1085: OR l_old_Header_Scredit_rec.sales_credit_id IS NULL
1086: THEN
1087:
1088: OE_Header_Scredit_Util.Query_Row
1114: END IF;
1115:
1116: IF I = p_x_header_scredit_tbl.FIRST THEN
1117: IF NOT Valid_Upgraded_Order(l_header_scredit_rec.header_id) THEN
1118: RAISE FND_API.G_EXC_ERROR;
1119: END IF;
1120: END IF;
1121:
1122: -- Check security
1136: , x_result => l_sec_result
1137: , x_return_status => l_return_status
1138: );
1139:
1140: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1142: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1143: RAISE FND_API.G_EXC_ERROR;
1144: END IF;
1137: , x_return_status => l_return_status
1138: );
1139:
1140: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1142: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1143: RAISE FND_API.G_EXC_ERROR;
1144: END IF;
1145:
1138: );
1139:
1140: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1142: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1143: RAISE FND_API.G_EXC_ERROR;
1144: END IF;
1145:
1146: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1139:
1140: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1142: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1143: RAISE FND_API.G_EXC_ERROR;
1144: END IF;
1145:
1146: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1147: RAISE FND_API.G_EXC_ERROR;
1143: RAISE FND_API.G_EXC_ERROR;
1144: END IF;
1145:
1146: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1147: RAISE FND_API.G_EXC_ERROR;
1148: END IF;
1149:
1150: END IF;
1151:
1150: END IF;
1151:
1152: -- Attribute level validation.
1153:
1154: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
1155:
1156: OE_Validate_Header_Scredit.Attributes
1157: ( x_return_status => l_return_status
1158: , p_Header_Scredit_rec => l_Header_Scredit_rec
1158: , p_Header_Scredit_rec => l_Header_Scredit_rec
1159: , p_old_Header_Scredit_rec => l_old_Header_Scredit_rec
1160: );
1161:
1162: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1164: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1165: RAISE FND_API.G_EXC_ERROR;
1166: END IF;
1159: , p_old_Header_Scredit_rec => l_old_Header_Scredit_rec
1160: );
1161:
1162: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1164: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1165: RAISE FND_API.G_EXC_ERROR;
1166: END IF;
1167:
1160: );
1161:
1162: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1164: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1165: RAISE FND_API.G_EXC_ERROR;
1166: END IF;
1167:
1168: END IF;
1161:
1162: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1164: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1165: RAISE FND_API.G_EXC_ERROR;
1166: END IF;
1167:
1168: END IF;
1169:
1223: );
1224:
1225: END IF;
1226:
1227: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1229: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1230: RAISE FND_API.G_EXC_ERROR;
1231: END IF;
1224:
1225: END IF;
1226:
1227: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1229: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1230: RAISE FND_API.G_EXC_ERROR;
1231: END IF;
1232:
1225: END IF;
1226:
1227: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1229: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1230: RAISE FND_API.G_EXC_ERROR;
1231: END IF;
1232:
1233: END IF;
1226:
1227: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1229: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1230: RAISE FND_API.G_EXC_ERROR;
1231: END IF;
1232:
1233: END IF;
1234:
1255: , x_result => l_sec_result
1256: , x_return_status => l_return_status
1257: );
1258:
1259: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1261: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1262: RAISE FND_API.G_EXC_ERROR;
1263: END IF;
1256: , x_return_status => l_return_status
1257: );
1258:
1259: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1261: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1262: RAISE FND_API.G_EXC_ERROR;
1263: END IF;
1264:
1257: );
1258:
1259: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1261: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1262: RAISE FND_API.G_EXC_ERROR;
1263: END IF;
1264:
1265: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1258:
1259: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1261: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1262: RAISE FND_API.G_EXC_ERROR;
1263: END IF;
1264:
1265: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1266: RAISE FND_API.G_EXC_ERROR;
1262: RAISE FND_API.G_EXC_ERROR;
1263: END IF;
1264:
1265: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1266: RAISE FND_API.G_EXC_ERROR;
1267: END IF;
1268:
1269: END IF;
1270:
1324: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1325: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1326:
1327: -- loop exception handler.
1328: IF l_header_scredit_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1329: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1330: ELSIF l_header_scredit_rec.return_status = FND_API.G_RET_STS_ERROR THEN
1331: RAISE FND_API.G_EXC_ERROR;
1332: END IF;
1325: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1326:
1327: -- loop exception handler.
1328: IF l_header_scredit_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1329: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1330: ELSIF l_header_scredit_rec.return_status = FND_API.G_RET_STS_ERROR THEN
1331: RAISE FND_API.G_EXC_ERROR;
1332: END IF;
1333:
1326:
1327: -- loop exception handler.
1328: IF l_header_scredit_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1329: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1330: ELSIF l_header_scredit_rec.return_status = FND_API.G_RET_STS_ERROR THEN
1331: RAISE FND_API.G_EXC_ERROR;
1332: END IF;
1333:
1334: -- Load tables.
1327: -- loop exception handler.
1328: IF l_header_scredit_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1329: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1330: ELSIF l_header_scredit_rec.return_status = FND_API.G_RET_STS_ERROR THEN
1331: RAISE FND_API.G_EXC_ERROR;
1332: END IF;
1333:
1334: -- Load tables.
1335:
1332: END IF;
1333:
1334: -- Load tables.
1335:
1336: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1337: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1338: p_x_old_Header_Scredit_tbl(I) := l_old_Header_Scredit_rec;
1339:
1340:
1339:
1340:
1341: EXCEPTION
1342:
1343: WHEN FND_API.G_EXC_ERROR THEN
1344:
1345: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_ERROR;
1346: x_return_status := FND_API.G_RET_STS_ERROR;
1347: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1341: EXCEPTION
1342:
1343: WHEN FND_API.G_EXC_ERROR THEN
1344:
1345: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_ERROR;
1346: x_return_status := FND_API.G_RET_STS_ERROR;
1347: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1348: p_x_old_Header_Scredit_tbl(I) := l_old_Header_Scredit_rec;
1349:
1342:
1343: WHEN FND_API.G_EXC_ERROR THEN
1344:
1345: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_ERROR;
1346: x_return_status := FND_API.G_RET_STS_ERROR;
1347: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1348: p_x_old_Header_Scredit_tbl(I) := l_old_Header_Scredit_rec;
1349:
1350: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1363: ROLLBACK TO SAVEPOINT Header_Scredits;
1364: ELSE
1365: --bug 5331854
1366: IF OE_GLOBALS.G_UI_FLAG AND
1367: l_del_ret_status = FND_API.G_RET_STS_ERROR THEN
1368: ROLLBACK TO SAVEPOINT DELETE_SCREDIT_FAILED;
1369: END IF;
1370: --bug 5331854
1371: RAISE FND_API.G_EXC_ERROR;
1367: l_del_ret_status = FND_API.G_RET_STS_ERROR THEN
1368: ROLLBACK TO SAVEPOINT DELETE_SCREDIT_FAILED;
1369: END IF;
1370: --bug 5331854
1371: RAISE FND_API.G_EXC_ERROR;
1372: END IF;
1373:
1374: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1375:
1370: --bug 5331854
1371: RAISE FND_API.G_EXC_ERROR;
1372: END IF;
1373:
1374: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1375:
1376: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1378: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1372: END IF;
1373:
1374: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1375:
1376: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1378: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1379: p_x_old_Header_Scredit_tbl(I) := l_old_Header_Scredit_rec;
1380: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1373:
1374: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1375:
1376: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1378: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1379: p_x_old_Header_Scredit_tbl(I) := l_old_Header_Scredit_rec;
1380: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1381: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1378: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1379: p_x_old_Header_Scredit_tbl(I) := l_old_Header_Scredit_rec;
1380: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1381: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1383:
1384: WHEN OTHERS THEN
1385:
1386: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1383:
1384: WHEN OTHERS THEN
1385:
1386: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1388: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1389: p_x_old_Header_Scredit_tbl(I) := l_old_Header_Scredit_rec;
1390:
1383:
1384: WHEN OTHERS THEN
1385:
1386: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1388: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1389: p_x_old_Header_Scredit_tbl(I) := l_old_Header_Scredit_rec;
1390:
1391: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1397: );
1398: END IF;
1399:
1400: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1402:
1403: END;
1404: I := p_x_Header_Scredit_tbl.NEXT(I);
1405: END LOOP;
1412: set_recursion_mode(p_Entity_Code => 4,
1413: p_In_out => 0);
1414: EXCEPTION
1415:
1416: WHEN FND_API.G_EXC_ERROR THEN
1417:
1418: set_recursion_mode(p_Entity_Code => 4,
1419: p_In_out => 0);
1420: x_return_status := FND_API.G_RET_STS_ERROR;
1416: WHEN FND_API.G_EXC_ERROR THEN
1417:
1418: set_recursion_mode(p_Entity_Code => 4,
1419: p_In_out => 0);
1420: x_return_status := FND_API.G_RET_STS_ERROR;
1421: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1422: IF l_debug_level > 0 THEN
1423: oe_debug_pub.add( 'DELETE REQUEST5' , 2 ) ;
1424: END IF;
1426: (x_return_status => l_return_status);
1427: END IF;
1428: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1429:
1430: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1431:
1432: set_recursion_mode(p_Entity_Code => 4,
1433: p_In_out => 0);
1434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1430: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1431:
1432: set_recursion_mode(p_Entity_Code => 4,
1433: p_In_out => 0);
1434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1435: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1436: IF l_debug_level > 0 THEN
1437: oe_debug_pub.add( 'DELETE REQUEST6' , 2 ) ;
1438: END IF;
1444: WHEN OTHERS THEN
1445:
1446: set_recursion_mode(p_Entity_Code => 4,
1447: p_In_out => 0);
1448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1449: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1450: IF l_debug_level > 0 THEN
1451: oe_debug_pub.add( 'DELETE REQUEST7' , 2 ) ;
1452: END IF;
1470: /*-------------------------------------------------------------------
1471: PROCEDURE Header_Payments
1472: -------------------------------------------------------------------*/
1473: PROCEDURE Header_Payments
1474: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1475: , p_validation_level IN NUMBER
1476: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
1477: , p_x_Header_Payment_tbl IN OUT NOCOPY OE_Order_PUB.Header_Payment_Tbl_Type
1478: , p_x_old_Header_Payment_tbl IN OUT NOCOPY OE_Order_PUB.Header_Payment_Tbl_Type
1501: BEGIN
1502:
1503: --MOAC changes start
1504: l_org_id := MO_GLOBAL.get_current_org_id;
1505: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
1506: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
1507: OE_MSG_PUB.Add;
1508: RAISE FND_API.G_EXC_ERROR;
1509: END IF;
1504: l_org_id := MO_GLOBAL.get_current_org_id;
1505: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
1506: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
1507: OE_MSG_PUB.Add;
1508: RAISE FND_API.G_EXC_ERROR;
1509: END IF;
1510: --MOAC changes end
1511:
1512: x_return_status := FND_API.G_RET_STS_SUCCESS;
1508: RAISE FND_API.G_EXC_ERROR;
1509: END IF;
1510: --MOAC changes end
1511:
1512: x_return_status := FND_API.G_RET_STS_SUCCESS;
1513:
1514: -- Initialize message list.
1515:
1516: IF FND_API.to_Boolean(p_init_msg_list) THEN
1512: x_return_status := FND_API.G_RET_STS_SUCCESS;
1513:
1514: -- Initialize message list.
1515:
1516: IF FND_API.to_Boolean(p_init_msg_list) THEN
1517: OE_MSG_PUB.initialize;
1518: END IF;
1519:
1520: IF p_control_rec.Process_Partial THEN
1543: ELSE
1544: l_old_Header_Payment_rec := OE_Order_PUB.G_MISS_HEADER_PAYMENT_REC;
1545: END IF;
1546:
1547: if l_old_header_Payment_rec.payment_number = FND_API.G_MISS_NUM
1548: OR l_old_header_Payment_rec.payment_number IS NULL
1549: Then
1550:
1551: IF l_header_Payment_rec.header_id IS NOT NULL AND
1548: OR l_old_header_Payment_rec.payment_number IS NULL
1549: Then
1550:
1551: IF l_header_Payment_rec.header_id IS NOT NULL AND
1552: l_header_Payment_rec.header_id <> FND_API.G_MISS_NUM THEN
1553: BEGIN
1554: IF l_debug_level > 0 THEN
1555: oe_debug_pub.add('Getting reference data for header_id:'||l_header_Payment_rec.header_id);
1556: END IF;
1590: ,p_source_document_line_id => null );
1591:
1592: else
1593: IF l_old_header_Payment_rec.header_id IS NOT NULL AND
1594: l_old_header_Payment_rec.header_id <> FND_API.G_MISS_NUM THEN
1595:
1596: BEGIN
1597: IF l_debug_level > 0 THEN
1598: oe_debug_pub.add('Getting reference data for old header_id:'||l_old_header_Payment_rec.header_id);
1643: );
1644:
1645: -- Set record return status.
1646:
1647: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1648:
1649: -- Prepare record.
1650:
1651: IF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1649: -- Prepare record.
1650:
1651: IF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1652:
1653: l_Header_Payment_rec.db_flag := FND_API.G_FALSE;
1654:
1655: -- Set missing old record elements to NULL.
1656:
1657: IF l_debug_level > 0 THEN
1665: ELSIF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1666: OR l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE
1667: THEN
1668:
1669: l_Header_Payment_rec.db_flag := FND_API.G_TRUE;
1670:
1671: -- Query Old if missing
1672:
1673: IF l_old_Header_Payment_rec.payment_number = FND_API.G_MISS_NUM
1669: l_Header_Payment_rec.db_flag := FND_API.G_TRUE;
1670:
1671: -- Query Old if missing
1672:
1673: IF l_old_Header_Payment_rec.payment_number = FND_API.G_MISS_NUM
1674: OR l_old_Header_Payment_rec.payment_number IS NULL
1675: THEN
1676:
1677: IF l_debug_level > 0 THEN
1722: END IF;
1723:
1724: IF I = p_x_header_Payment_tbl.FIRST THEN
1725: IF NOT Valid_Upgraded_Order(l_header_Payment_rec.header_id) THEN
1726: RAISE FND_API.G_EXC_ERROR;
1727: END IF;
1728: END IF;
1729:
1730: -- Check security
1750: IF l_debug_level > 0 THEN
1751: oe_debug_pub.add('Payment:after OE_Header_Payment_Security.Attributes', 5);
1752: END IF;
1753:
1754: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1756: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1757: RAISE FND_API.G_EXC_ERROR;
1758: END IF;
1751: oe_debug_pub.add('Payment:after OE_Header_Payment_Security.Attributes', 5);
1752: END IF;
1753:
1754: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1756: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1757: RAISE FND_API.G_EXC_ERROR;
1758: END IF;
1759:
1752: END IF;
1753:
1754: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1756: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1757: RAISE FND_API.G_EXC_ERROR;
1758: END IF;
1759:
1760: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1753:
1754: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1756: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1757: RAISE FND_API.G_EXC_ERROR;
1758: END IF;
1759:
1760: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1761: RAISE FND_API.G_EXC_ERROR;
1757: RAISE FND_API.G_EXC_ERROR;
1758: END IF;
1759:
1760: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1761: RAISE FND_API.G_EXC_ERROR;
1762: END IF;
1763:
1764: END IF;
1765:
1764: END IF;
1765:
1766: -- Attribute level validation.
1767:
1768: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
1769: IF l_debug_level > 0 THEN
1770: oe_debug_pub.add('Payment:before OE_Validate_Header_Payment.Attributes', 5);
1771: END IF;
1772:
1778: IF l_debug_level > 0 THEN
1779: oe_debug_pub.add('Payment:after OE_Validate_Header_Payment.Attributes',5);
1780: END IF;
1781:
1782: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1784: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1785: RAISE FND_API.G_EXC_ERROR;
1786: END IF;
1779: oe_debug_pub.add('Payment:after OE_Validate_Header_Payment.Attributes',5);
1780: END IF;
1781:
1782: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1784: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1785: RAISE FND_API.G_EXC_ERROR;
1786: END IF;
1787:
1780: END IF;
1781:
1782: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1784: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1785: RAISE FND_API.G_EXC_ERROR;
1786: END IF;
1787:
1788: END IF;
1781:
1782: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1784: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1785: RAISE FND_API.G_EXC_ERROR;
1786: END IF;
1787:
1788: END IF;
1789:
1873: END IF;
1874:
1875: END IF;
1876:
1877: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1879: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1880: RAISE FND_API.G_EXC_ERROR;
1881: END IF;
1874:
1875: END IF;
1876:
1877: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1879: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1880: RAISE FND_API.G_EXC_ERROR;
1881: END IF;
1882:
1875: END IF;
1876:
1877: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1879: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1880: RAISE FND_API.G_EXC_ERROR;
1881: END IF;
1882:
1883: END IF;
1876:
1877: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1879: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1880: RAISE FND_API.G_EXC_ERROR;
1881: END IF;
1882:
1883: END IF;
1884:
1911: IF l_debug_level > 0 THEN
1912: oe_debug_pub.add('Payment:after OE_Header_Payment_Security.Entity', 5);
1913: END IF;
1914:
1915: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1917: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1918: RAISE FND_API.G_EXC_ERROR;
1919: END IF;
1912: oe_debug_pub.add('Payment:after OE_Header_Payment_Security.Entity', 5);
1913: END IF;
1914:
1915: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1917: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1918: RAISE FND_API.G_EXC_ERROR;
1919: END IF;
1920:
1913: END IF;
1914:
1915: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1917: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1918: RAISE FND_API.G_EXC_ERROR;
1919: END IF;
1920:
1921: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1914:
1915: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1917: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1918: RAISE FND_API.G_EXC_ERROR;
1919: END IF;
1920:
1921: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1922: RAISE FND_API.G_EXC_ERROR;
1918: RAISE FND_API.G_EXC_ERROR;
1919: END IF;
1920:
1921: IF l_sec_result = OE_PC_GLOBALS.YES THEN
1922: RAISE FND_API.G_EXC_ERROR;
1923: END IF;
1924:
1925: END IF;
1926:
1987: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
1988: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
1989:
1990: -- loop exception handler.
1991: IF l_header_payment_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1993: ELSIF l_header_payment_rec.return_status = FND_API.G_RET_STS_ERROR THEN
1994: RAISE FND_API.G_EXC_ERROR;
1995: END IF;
1988: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
1989:
1990: -- loop exception handler.
1991: IF l_header_payment_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1993: ELSIF l_header_payment_rec.return_status = FND_API.G_RET_STS_ERROR THEN
1994: RAISE FND_API.G_EXC_ERROR;
1995: END IF;
1996:
1989:
1990: -- loop exception handler.
1991: IF l_header_payment_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1993: ELSIF l_header_payment_rec.return_status = FND_API.G_RET_STS_ERROR THEN
1994: RAISE FND_API.G_EXC_ERROR;
1995: END IF;
1996:
1997: -- Load tables.
1990: -- loop exception handler.
1991: IF l_header_payment_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1993: ELSIF l_header_payment_rec.return_status = FND_API.G_RET_STS_ERROR THEN
1994: RAISE FND_API.G_EXC_ERROR;
1995: END IF;
1996:
1997: -- Load tables.
1998:
1995: END IF;
1996:
1997: -- Load tables.
1998:
1999: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_SUCCESS;
2000: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2001: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2002:
2003:
2002:
2003:
2004: EXCEPTION
2005:
2006: WHEN FND_API.G_EXC_ERROR THEN
2007:
2008: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_ERROR;
2009: x_return_status := FND_API.G_RET_STS_ERROR;
2010: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2004: EXCEPTION
2005:
2006: WHEN FND_API.G_EXC_ERROR THEN
2007:
2008: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_ERROR;
2009: x_return_status := FND_API.G_RET_STS_ERROR;
2010: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2011: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2012:
2005:
2006: WHEN FND_API.G_EXC_ERROR THEN
2007:
2008: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_ERROR;
2009: x_return_status := FND_API.G_RET_STS_ERROR;
2010: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2011: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2012:
2013: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2023: x_return_status => l_return_status);
2024: END IF;
2025: ROLLBACK TO SAVEPOINT Header_Payments;
2026: ELSE
2027: RAISE FND_API.G_EXC_ERROR;
2028: END IF;
2029:
2030: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2031:
2026: ELSE
2027: RAISE FND_API.G_EXC_ERROR;
2028: END IF;
2029:
2030: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2031:
2032: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2033: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2034: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2028: END IF;
2029:
2030: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2031:
2032: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2033: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2034: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2035: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2036: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2029:
2030: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2031:
2032: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2033: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2034: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2035: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2036: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2037: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2034: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2035: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2036: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2037: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2038: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2039:
2040: WHEN OTHERS THEN
2041:
2042: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2038: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2039:
2040: WHEN OTHERS THEN
2041:
2042: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2043: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2044: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2045: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2046:
2039:
2040: WHEN OTHERS THEN
2041:
2042: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2043: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2044: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2045: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2046:
2047: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2053: );
2054: END IF;
2055:
2056: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2057: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2058:
2059: END;
2060: I := p_x_Header_Payment_tbl.NEXT(I);
2061: END LOOP;
2066: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2067:
2068: EXCEPTION
2069:
2070: WHEN FND_API.G_EXC_ERROR THEN
2071:
2072: x_return_status := FND_API.G_RET_STS_ERROR;
2073: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2074: IF l_debug_level > 0 THEN
2068: EXCEPTION
2069:
2070: WHEN FND_API.G_EXC_ERROR THEN
2071:
2072: x_return_status := FND_API.G_RET_STS_ERROR;
2073: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2074: IF l_debug_level > 0 THEN
2075: oe_debug_pub.add( 'DELETE REQUEST5' , 2 ) ;
2076: END IF;
2078: (x_return_status => l_return_status);
2079: END IF;
2080: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2081:
2082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2083:
2084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2085: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2086: IF l_debug_level > 0 THEN
2080: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2081:
2082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2083:
2084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2085: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2086: IF l_debug_level > 0 THEN
2087: oe_debug_pub.add( 'DELETE REQUEST6' , 2 ) ;
2088: END IF;
2092: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2093:
2094: WHEN OTHERS THEN
2095:
2096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2097: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2098: IF l_debug_level > 0 THEN
2099: oe_debug_pub.add( 'DELETE REQUEST7' , 2 ) ;
2100: END IF;
2141: --
2142: BEGIN
2143:
2144: -- SERVICE line if service line identifiers are populated
2145: IF ( NVL(p_line_rec.service_reference_line_id,FND_API.G_MISS_NUM)
2146: <> FND_API.G_MISS_NUM
2147: OR NVL(p_line_rec.service_line_index,FND_API.G_MISS_NUM)
2148: <> FND_API.G_MISS_NUM )
2149: THEN
2142: BEGIN
2143:
2144: -- SERVICE line if service line identifiers are populated
2145: IF ( NVL(p_line_rec.service_reference_line_id,FND_API.G_MISS_NUM)
2146: <> FND_API.G_MISS_NUM
2147: OR NVL(p_line_rec.service_line_index,FND_API.G_MISS_NUM)
2148: <> FND_API.G_MISS_NUM )
2149: THEN
2150:
2143:
2144: -- SERVICE line if service line identifiers are populated
2145: IF ( NVL(p_line_rec.service_reference_line_id,FND_API.G_MISS_NUM)
2146: <> FND_API.G_MISS_NUM
2147: OR NVL(p_line_rec.service_line_index,FND_API.G_MISS_NUM)
2148: <> FND_API.G_MISS_NUM )
2149: THEN
2150:
2151: IF l_debug_level > 0 THEN
2144: -- SERVICE line if service line identifiers are populated
2145: IF ( NVL(p_line_rec.service_reference_line_id,FND_API.G_MISS_NUM)
2146: <> FND_API.G_MISS_NUM
2147: OR NVL(p_line_rec.service_line_index,FND_API.G_MISS_NUM)
2148: <> FND_API.G_MISS_NUM )
2149: THEN
2150:
2151: IF l_debug_level > 0 THEN
2152: oe_debug_pub.add( 'SERVICE LINE' , 1 ) ;
2153: END IF;
2154: RETURN 3;
2155:
2156: -- Top model line identifiers are populated
2157: ELSIF ( NVL(p_line_rec.top_model_line_id,FND_API.G_MISS_NUM)
2158: <> FND_API.G_MISS_NUM
2159: OR NVL(p_line_rec.top_model_line_index,FND_API.G_MISS_NUM)
2160: <> FND_API.G_MISS_NUM )
2161: THEN
2154: RETURN 3;
2155:
2156: -- Top model line identifiers are populated
2157: ELSIF ( NVL(p_line_rec.top_model_line_id,FND_API.G_MISS_NUM)
2158: <> FND_API.G_MISS_NUM
2159: OR NVL(p_line_rec.top_model_line_index,FND_API.G_MISS_NUM)
2160: <> FND_API.G_MISS_NUM )
2161: THEN
2162:
2155:
2156: -- Top model line identifiers are populated
2157: ELSIF ( NVL(p_line_rec.top_model_line_id,FND_API.G_MISS_NUM)
2158: <> FND_API.G_MISS_NUM
2159: OR NVL(p_line_rec.top_model_line_index,FND_API.G_MISS_NUM)
2160: <> FND_API.G_MISS_NUM )
2161: THEN
2162:
2163: -- MODEL line if top model line is same as the current line
2156: -- Top model line identifiers are populated
2157: ELSIF ( NVL(p_line_rec.top_model_line_id,FND_API.G_MISS_NUM)
2158: <> FND_API.G_MISS_NUM
2159: OR NVL(p_line_rec.top_model_line_index,FND_API.G_MISS_NUM)
2160: <> FND_API.G_MISS_NUM )
2161: THEN
2162:
2163: -- MODEL line if top model line is same as the current line
2164: IF ( p_line_rec.top_model_line_id <> FND_API.G_MISS_NUM
2160: <> FND_API.G_MISS_NUM )
2161: THEN
2162:
2163: -- MODEL line if top model line is same as the current line
2164: IF ( p_line_rec.top_model_line_id <> FND_API.G_MISS_NUM
2165: AND p_line_rec.top_model_line_id = p_line_rec.line_id )
2166: OR ( p_line_rec.top_model_line_index <> FND_API.G_MISS_NUM
2167: AND p_line_rec.top_model_line_index = p_line_index )
2168: THEN
2162:
2163: -- MODEL line if top model line is same as the current line
2164: IF ( p_line_rec.top_model_line_id <> FND_API.G_MISS_NUM
2165: AND p_line_rec.top_model_line_id = p_line_rec.line_id )
2166: OR ( p_line_rec.top_model_line_index <> FND_API.G_MISS_NUM
2167: AND p_line_rec.top_model_line_index = p_line_index )
2168: THEN
2169: IF l_debug_level > 0 THEN
2170: oe_debug_pub.add( 'TOP MODEL LINE' , 1 ) ;
2362: while calling complete_config_line.
2363: -----------------------------------------------------------------------*/
2364:
2365: PROCEDURE Lines
2366: (p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2367: ,p_validation_level IN NUMBER
2368: ,p_control_rec IN OE_GLOBALS.Control_Rec_Type
2369: ,p_x_line_tbl IN OUT NOCOPY OE_Order_PUB.Line_Tbl_Type
2370: ,p_x_old_line_tbl IN OUT NOCOPY OE_Order_PUB.Line_Tbl_Type
2392: l_check_item_type NUMBER;
2393: l_daemon_type VARCHAR2(1);
2394: l_is_ota_line BOOLEAN;
2395: l_order_quantity_uom VARCHAR2(3);
2396: l_header_locked VARCHAR2(1) := FND_API.G_MISS_CHAR;
2397: l_locked_header_rec OE_Order_PUB.Header_Rec_Type;
2398: l_process_this_line BOOLEAN;
2399: COMPLETE_AND_CLASS_SAVE_MODE BOOLEAN := TRUE;
2400: l_options_index_tbl OE_OPTION_INDEX_TBL_TYPE;
2409: --
2410: BEGIN
2411: --Moac changes start
2412: l_org_id := MO_GLOBAL.get_current_org_id;
2413: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
2414: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
2415: OE_MSG_PUB.Add;
2416: RAISE FND_API.G_EXC_ERROR;
2417: END IF;
2412: l_org_id := MO_GLOBAL.get_current_org_id;
2413: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
2414: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
2415: OE_MSG_PUB.Add;
2416: RAISE FND_API.G_EXC_ERROR;
2417: END IF;
2418: --Moac changes end
2419: set_recursion_mode(p_Entity_Code => 5,
2420: p_In_out => 1);
2422: l_num_lines := p_x_line_tbl.COUNT;
2423:
2424: Print_Time('Entering OE_ORDER_PVT.LINES ' || l_num_lines);
2425:
2426: x_return_status := FND_API.G_RET_STS_SUCCESS;
2427:
2428: IF OE_GLOBALS.G_RECURSION_MODE <> 'Y' THEN
2429: SAVEPOINT Lines_Non_Partial;
2430: END IF;
2430: END IF;
2431:
2432: -- Initialize message list.
2433:
2434: IF FND_API.to_Boolean(p_init_msg_list) THEN
2435: OE_MSG_PUB.initialize;
2436: END IF;
2437:
2438: -- Looping through the table to first process all the models and
2482: -- ordered_quantity as negative. (bug2620749)
2483:
2484: IF p_x_line_tbl(I).ordered_quantity < 0 AND
2485: ( p_x_line_tbl(I).line_category_code IS NULL OR
2486: p_x_line_tbl(I).line_category_code = FND_API.G_MISS_CHAR OR
2487: p_x_line_tbl(I).line_category_code = 'RETURN')
2488: THEN
2489: p_x_line_tbl(I).line_category_code := 'RETURN';
2490: p_x_line_tbl(I).ordered_quantity := (-1) *
2494: -- Change the same on the OLD record.
2495: IF p_x_old_line_tbl.EXISTS(I) THEN
2496: IF p_x_old_line_tbl(I).ordered_quantity < 0 AND
2497: ( p_x_old_line_tbl(I).line_category_code IS NULL OR
2498: p_x_old_line_tbl(I).line_category_code = FND_API.G_MISS_CHAR OR
2499: p_x_old_line_tbl(I).line_category_code = 'RETURN')
2500: THEN
2501: p_x_old_line_tbl(I).line_category_code := 'RETURN';
2502: p_x_old_line_tbl(I).ordered_quantity := (-1) *
2526: ELSE
2527: l_old_line_rec := OE_Order_PUB.G_MISS_LINE_REC;
2528: END IF;
2529:
2530: IF l_old_line_rec.line_id = FND_API.G_MISS_NUM OR
2531: l_old_line_rec.line_id IS NULL
2532: THEN
2533:
2534: OE_MSG_PUB.set_msg_context
2581: IF l_debug_level > 0 THEN
2582: oe_debug_pub.add( 'OPERATION = CREATE SO SETTING OLD TO NULL' , 2 ) ;
2583: END IF;
2584:
2585: l_line_rec.db_flag := FND_API.G_FALSE;
2586:
2587: -- Set missing old record elements to NULL.
2588:
2589: OE_Line_Util.Convert_Miss_To_Null (l_old_line_rec);
2592: -- lines from being inserted on an order when it is being booked
2593: -- as the booking process also locks the order header.
2594:
2595: /*******
2596: IF l_header_locked = FND_API.G_MISS_CHAR THEN
2597: oe_debug_pub.add('locking the header record');
2598:
2599: SAVEPOINT Header_Lock;
2600:
2602: ( p_header_id => l_line_rec.header_id
2603: , x_return_status => l_return_status
2604: , p_x_header_rec => l_locked_header_rec);
2605:
2606: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2608: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2609: RAISE FND_API.G_EXC_ERROR;
2610: END IF;
2603: , x_return_status => l_return_status
2604: , p_x_header_rec => l_locked_header_rec);
2605:
2606: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2608: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2609: RAISE FND_API.G_EXC_ERROR;
2610: END IF;
2611:
2604: , p_x_header_rec => l_locked_header_rec);
2605:
2606: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2608: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2609: RAISE FND_API.G_EXC_ERROR;
2610: END IF;
2611:
2612: IF l_locked_header_rec.booked_flag = 'N' THEN
2605:
2606: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2608: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2609: RAISE FND_API.G_EXC_ERROR;
2610: END IF;
2611:
2612: IF l_locked_header_rec.booked_flag = 'N' THEN
2613: l_header_locked := 'Y';
2626: IF l_debug_level > 0 THEN
2627: oe_debug_pub.add( 'OPERATION = UPDATE SO QUERY OLD' , 1 ) ;
2628: END IF;
2629:
2630: l_line_rec.db_flag := FND_API.G_TRUE;
2631:
2632: -- Query Old if missing
2633:
2634: IF l_old_line_rec.line_id = FND_API.G_MISS_NUM OR
2630: l_line_rec.db_flag := FND_API.G_TRUE;
2631:
2632: -- Query Old if missing
2633:
2634: IF l_old_line_rec.line_id = FND_API.G_MISS_NUM OR
2635: l_old_line_rec.line_id IS NULL
2636: THEN
2637:
2638: OE_Line_Util.Query_Row
2678: IF OE_Code_Control.code_release_level >= '110510'
2679: AND NVL(FND_PROFILE.VALUE('ONT_3A7_RESPONSE_REQUIRED'), 'N') = 'Y'
2680: -- Added this check because, holds will be applied only when this profile is set to 'YES'.
2681: AND l_line_rec.order_source_id = OE_Acknowledgment_Pub.G_XML_ORDER_SOURCE_ID
2682: AND nvl(l_line_rec.xml_transaction_type_code, FND_API.G_MISS_CHAR)
2683: IN (OE_Acknowledgment_Pub.G_TRANSACTION_CHO,OE_Acknowledgment_Pub.G_TRANSACTION_CPO) THEN -- 3A8/3A9
2684:
2685: IF l_debug_level > 0 THEN
2686: oe_debug_pub.add( 'Calling OE_Acknowledgment_PUB.Process_3A8 for transaction type: '|| l_line_rec.xml_transaction_type_code, 2 ) ;
2693: IF l_debug_level > 0 THEN
2694: oe_debug_pub.add( 'Return status after call to Process_3A8:' || l_return_status, 2 ) ;
2695: END IF;
2696:
2697: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2699: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2700: RAISE FND_API.G_EXC_ERROR;
2701: END IF;
2694: oe_debug_pub.add( 'Return status after call to Process_3A8:' || l_return_status, 2 ) ;
2695: END IF;
2696:
2697: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2699: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2700: RAISE FND_API.G_EXC_ERROR;
2701: END IF;
2702: END IF;
2695: END IF;
2696:
2697: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2699: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2700: RAISE FND_API.G_EXC_ERROR;
2701: END IF;
2702: END IF;
2703:
2696:
2697: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2699: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2700: RAISE FND_API.G_EXC_ERROR;
2701: END IF;
2702: END IF;
2703:
2704: END IF; -- if operation is create.
2707: oe_debug_pub.add( 'AT LINE LEVEL HEADER_ID' || L_LINE_REC.HEADER_ID , 2 ) ;
2708: END IF;
2709: IF I = p_x_line_tbl.FIRST THEN
2710: IF NOT Valid_Upgraded_Order(l_line_rec.header_id) THEN
2711: RAISE FND_API.G_EXC_ERROR;
2712: END IF;
2713: END IF;
2714:
2715: -- Lock the order header for unbooked orders: This would prevent order
2721: IF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2722: -- QUOTING changes
2723: -- Comment out booked flag check, move header locked
2724: -- check inside this IF statement.
2725: IF l_header_locked = FND_API.G_MISS_CHAR THEN -- AND g_booked_flag = 'N' THEN #2940426
2726:
2727: -- Lock only if the po is called by UI or
2728: -- with write_to_db flag , this way for validate_only
2729: -- don't lock.
2740: ( p_header_id => l_line_rec.header_id
2741: ,x_return_status => l_return_status
2742: ,p_x_header_rec => l_locked_header_rec);
2743:
2744: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2746: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2747: RAISE FND_API.G_EXC_ERROR;
2748: END IF;
2741: ,x_return_status => l_return_status
2742: ,p_x_header_rec => l_locked_header_rec);
2743:
2744: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2746: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2747: RAISE FND_API.G_EXC_ERROR;
2748: END IF;
2749:
2742: ,p_x_header_rec => l_locked_header_rec);
2743:
2744: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2746: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2747: RAISE FND_API.G_EXC_ERROR;
2748: END IF;
2749:
2750: l_header_locked := 'Y';
2743:
2744: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2746: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2747: RAISE FND_API.G_EXC_ERROR;
2748: END IF;
2749:
2750: l_header_locked := 'Y';
2751: END IF; -- UI flag
2783:
2784: IF OE_Config_Util.G_Config_UI_Used = 'N' AND
2785: l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
2786: ((l_line_rec.top_model_line_index is NOT NULL AND
2787: l_line_rec.top_model_line_index <> FND_API.G_MISS_NUM) OR
2788: (l_line_rec.top_model_line_id is NOT NULL AND
2789: l_line_rec.top_model_line_id <> FND_API.G_MISS_NUM)) AND
2790: (l_line_rec.split_from_line_id is NULL OR
2791: l_line_rec.split_from_line_id = FND_API.G_MISS_NUM)
2785: l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
2786: ((l_line_rec.top_model_line_index is NOT NULL AND
2787: l_line_rec.top_model_line_index <> FND_API.G_MISS_NUM) OR
2788: (l_line_rec.top_model_line_id is NOT NULL AND
2789: l_line_rec.top_model_line_id <> FND_API.G_MISS_NUM)) AND
2790: (l_line_rec.split_from_line_id is NULL OR
2791: l_line_rec.split_from_line_id = FND_API.G_MISS_NUM)
2792: THEN
2793: -- bug 3286378
2787: l_line_rec.top_model_line_index <> FND_API.G_MISS_NUM) OR
2788: (l_line_rec.top_model_line_id is NOT NULL AND
2789: l_line_rec.top_model_line_id <> FND_API.G_MISS_NUM)) AND
2790: (l_line_rec.split_from_line_id is NULL OR
2791: l_line_rec.split_from_line_id = FND_API.G_MISS_NUM)
2792: THEN
2793: -- bug 3286378
2794: IF l_line_rec.inventory_item_id IS NULL THEN
2795: IF l_debug_level > 0 THEN
2859: WHEN OTHERS THEN
2860: IF l_debug_level > 0 THEN
2861: oe_debug_pub.add( 'Did not get any bom item type',1);
2862: END IF;
2863: --RAISE FND_API.G_EXC_ERROR;
2864: RAISE;
2865: END;
2866: END IF;
2867: END IF;
2893: -- note that the top most model line will get its top_model_line_id in
2894: -- hardcoded defaulting and since we process models before options,
2895: -- model should already have the top model line id.
2896:
2897: IF ((l_line_rec.top_model_line_index <> FND_API.G_MISS_NUM) AND
2898: (l_line_rec.top_model_line_index IS NOT NULL))
2899: THEN
2900: l_top_model_line_index := l_line_rec.top_model_line_index;
2901:
2900: l_top_model_line_index := l_line_rec.top_model_line_index;
2901:
2902: IF p_x_line_tbl.EXISTS(l_top_model_line_index) THEN
2903:
2904: IF (l_line_rec.top_model_line_id = FND_API.G_MISS_NUM) OR
2905: (l_line_rec.top_model_line_id IS NULL) THEN
2906:
2907: IF l_debug_level > 0 THEN
2908: oe_debug_pub.add( 'MODEL:'||P_X_LINE_TBL ( L_TOP_MODEL_LINE_INDEX ) .RETURN_STATUS ) ;
2909: END IF;
2910:
2911:
2912: IF p_x_line_tbl(l_top_model_line_index).return_status =
2913: FND_API.G_RET_STS_SUCCESS THEN
2914:
2915: l_line_rec.top_model_line_id :=
2916: p_x_line_tbl(l_top_model_line_index).line_id;
2917:
2938: ELSE -- Invalid Index
2939: IF l_debug_level > 0 THEN
2940: oe_debug_pub.add( 'INVALID LINE INDEX ' , 2 ) ;
2941: END IF;
2942: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2943: END IF; -- if valid index, top model is not at the index
2944:
2945: ELSE
2946: IF l_debug_level > 0 THEN
2959: IF COMPLETE_AND_CLASS_SAVE_MODE THEN
2960:
2961: IF OE_Config_Util.G_Config_UI_Used = 'N' AND
2962: (l_line_rec.split_from_line_id is NULL OR
2963: l_line_rec.split_from_line_id = FND_API.G_MISS_NUM) AND
2964: (l_line_rec.top_model_line_index is NOT NULL AND
2965: l_line_rec.top_model_line_index <> FND_API.G_MISS_NUM)
2966: THEN
2967:
2961: IF OE_Config_Util.G_Config_UI_Used = 'N' AND
2962: (l_line_rec.split_from_line_id is NULL OR
2963: l_line_rec.split_from_line_id = FND_API.G_MISS_NUM) AND
2964: (l_line_rec.top_model_line_index is NOT NULL AND
2965: l_line_rec.top_model_line_index <> FND_API.G_MISS_NUM)
2966: THEN
2967:
2968: Complete_Config_Line
2969: ( p_x_line_rec => l_line_rec
3028: oe_debug_pub.add( 'JPN: MODE IS SERVICE' ) ;
3029: END IF;
3030: l_process_this_line := TRUE;
3031:
3032: IF ((l_line_rec.service_line_index <> FND_API.G_MISS_NUM) AND
3033: (l_line_rec.service_line_index IS NOT NULL))
3034: THEN
3035: l_service_line_index := l_line_rec.service_line_index;
3036:
3038: -- service_reference_line_id from the
3039: -- p_x_line_tbl(service_line_index).line_id
3040:
3041: IF p_x_line_tbl.EXISTS(l_service_line_index) THEN
3042: IF (l_line_rec.service_reference_line_id = FND_API.G_MISS_NUM)
3043: OR (l_line_rec.service_reference_line_id IS NULL) THEN
3044:
3045: IF p_x_line_tbl(l_service_line_index).return_status =
3046: FND_API.G_RET_STS_SUCCESS THEN
3042: IF (l_line_rec.service_reference_line_id = FND_API.G_MISS_NUM)
3043: OR (l_line_rec.service_reference_line_id IS NULL) THEN
3044:
3045: IF p_x_line_tbl(l_service_line_index).return_status =
3046: FND_API.G_RET_STS_SUCCESS THEN
3047: -- lchen added to check parent line operation to fix bug 2017271
3048: IF p_x_line_tbl(l_service_line_index).operation = OE_GLOBALS.G_OPR_NONE
3049: THEN
3050: GOTO end_of_lines_loop;
3061: ELSE -- Invalid Index
3062: IF l_debug_level > 0 THEN
3063: oe_debug_pub.add( 'INVALID SERVICE LINE INDEX ' , 2 ) ;
3064: END IF;
3065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3066: END IF; -- If Valid Line Index
3067:
3068: END IF;
3069:
3127: ,p_old_line_rec => l_old_line_rec
3128: ,x_result => l_sec_result
3129: ,x_return_status => l_return_status);
3130:
3131: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3133: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3134: RAISE FND_API.G_EXC_ERROR;
3135: END IF;
3128: ,x_result => l_sec_result
3129: ,x_return_status => l_return_status);
3130:
3131: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3133: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3134: RAISE FND_API.G_EXC_ERROR;
3135: END IF;
3136:
3129: ,x_return_status => l_return_status);
3130:
3131: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3133: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3134: RAISE FND_API.G_EXC_ERROR;
3135: END IF;
3136:
3137: -- if operation on any attribute is constrained
3130:
3131: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3133: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3134: RAISE FND_API.G_EXC_ERROR;
3135: END IF;
3136:
3137: -- if operation on any attribute is constrained
3138: IF l_sec_result = OE_PC_GLOBALS.YES THEN
3135: END IF;
3136:
3137: -- if operation on any attribute is constrained
3138: IF l_sec_result = OE_PC_GLOBALS.YES THEN
3139: RAISE FND_API.G_EXC_ERROR;
3140: END IF;
3141:
3142: END IF; -- security
3143:
3145: -- ATTRIBUTE LEVEL VALIDATION
3146:
3147: IF NOT (l_line_rec.operation = oe_globals.g_opr_create and
3148: (l_line_rec.split_from_line_id IS NOT NULL AND
3149: l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3150: THEN
3151:
3152: IF l_debug_level > 0 THEN
3153: oe_debug_pub.add( 'ATTRIBUTE VALIDATION' , 1 ) ;
3152: IF l_debug_level > 0 THEN
3153: oe_debug_pub.add( 'ATTRIBUTE VALIDATION' , 1 ) ;
3154: END IF;
3155:
3156: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
3157:
3158: OE_Validate_Line.Attributes
3159: ( x_return_status => l_return_status
3160: ,p_x_line_rec => l_line_rec
3165: oe_debug_pub.add( 'AFTER ATTRIBUTE VALIDATION' , 1 ) ;
3166: END IF;
3167:
3168: IF p_validation_level <> OE_GLOBALS.G_VALID_LEVEL_PARTIAL THEN
3169: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3170: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3171: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3172: RAISE FND_API.G_EXC_ERROR;
3173: END IF;
3166: END IF;
3167:
3168: IF p_validation_level <> OE_GLOBALS.G_VALID_LEVEL_PARTIAL THEN
3169: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3170: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3171: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3172: RAISE FND_API.G_EXC_ERROR;
3173: END IF;
3174: END IF;
3167:
3168: IF p_validation_level <> OE_GLOBALS.G_VALID_LEVEL_PARTIAL THEN
3169: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3170: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3171: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3172: RAISE FND_API.G_EXC_ERROR;
3173: END IF;
3174: END IF;
3175:
3168: IF p_validation_level <> OE_GLOBALS.G_VALID_LEVEL_PARTIAL THEN
3169: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3170: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3171: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3172: RAISE FND_API.G_EXC_ERROR;
3173: END IF;
3174: END IF;
3175:
3176: END IF; -- end of check to see if validation level > NONE
3182:
3183: IF l_control_rec.clear_dependents AND
3184: NOT (l_line_rec.operation = oe_globals.g_opr_create and
3185: (l_line_rec.split_from_line_id IS NOT NULL AND
3186: l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3187: THEN
3188:
3189: IF l_debug_level > 0 THEN
3190: oe_debug_pub.add( 'CLEAR DEPENDENT ATTRIBUTES' , 1 ) ;
3201:
3202: IF (l_control_rec.default_attributes) THEN
3203: IF NOT (l_line_rec.operation = oe_globals.g_opr_create and
3204: (l_line_rec.split_from_line_id IS NOT NULL AND
3205: l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3206: THEN
3207:
3208: IF l_debug_level > 0 THEN
3209: oe_debug_pub.add( 'DEFAULT MISSING' , 1 ) ;
3231:
3232: IF (l_control_rec.change_attributes)
3233: -- AND NOT (l_line_rec.operation = oe_globals.g_opr_create and
3234: -- (l_line_rec.split_from_line_id IS NOT NULL AND
3235: -- l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3236: THEN
3237:
3238: IF l_debug_level > 0 THEN
3239: oe_debug_pub.add( 'APPLY ATTRIBUTE CHANGES' , 2 ) ;
3242: OE_Line_Util.Apply_Attribute_Changes
3243: ( p_x_line_rec => l_line_rec
3244: ,p_old_line_rec => l_old_line_rec );
3245:
3246: IF l_line_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3248: ELSIF l_line_rec.return_status = FND_API.G_RET_STS_ERROR THEN
3249: RAISE FND_API.G_EXC_ERROR;
3250: END IF;
3243: ( p_x_line_rec => l_line_rec
3244: ,p_old_line_rec => l_old_line_rec );
3245:
3246: IF l_line_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3248: ELSIF l_line_rec.return_status = FND_API.G_RET_STS_ERROR THEN
3249: RAISE FND_API.G_EXC_ERROR;
3250: END IF;
3251: END IF;
3244: ,p_old_line_rec => l_old_line_rec );
3245:
3246: IF l_line_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3248: ELSIF l_line_rec.return_status = FND_API.G_RET_STS_ERROR THEN
3249: RAISE FND_API.G_EXC_ERROR;
3250: END IF;
3251: END IF;
3252:
3245:
3246: IF l_line_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3248: ELSIF l_line_rec.return_status = FND_API.G_RET_STS_ERROR THEN
3249: RAISE FND_API.G_EXC_ERROR;
3250: END IF;
3251: END IF;
3252:
3253:
3255:
3256: IF l_control_rec.validate_entity
3257: AND NOT (l_line_rec.operation = oe_globals.g_opr_create and
3258: (l_line_rec.split_from_line_id IS NOT NULL AND
3259: l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3260: and l_line_rec.ordered_quantity<>0 -- added for bug 6494347
3261:
3262: THEN
3263:
3280: ,p_validation_level => p_validation_level);
3281:
3282: END IF;
3283:
3284: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3286: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3287: RAISE FND_API.G_EXC_ERROR;
3288: END IF;
3281:
3282: END IF;
3283:
3284: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3286: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3287: RAISE FND_API.G_EXC_ERROR;
3288: END IF;
3289:
3282: END IF;
3283:
3284: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3286: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3287: RAISE FND_API.G_EXC_ERROR;
3288: END IF;
3289:
3290: END IF; -- entity validation
3283:
3284: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3286: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3287: RAISE FND_API.G_EXC_ERROR;
3288: END IF;
3289:
3290: END IF; -- entity validation
3291:
3318: ( p_line_rec => l_line_rec
3319: ,x_result => l_sec_result
3320: ,x_return_status => l_return_status );
3321:
3322: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3324: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3325: RAISE FND_API.G_EXC_ERROR;
3326: END IF;
3319: ,x_result => l_sec_result
3320: ,x_return_status => l_return_status );
3321:
3322: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3324: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3325: RAISE FND_API.G_EXC_ERROR;
3326: END IF;
3327:
3320: ,x_return_status => l_return_status );
3321:
3322: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3324: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3325: RAISE FND_API.G_EXC_ERROR;
3326: END IF;
3327:
3328: -- if operation on any attribute is constrained
3321:
3322: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3324: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3325: RAISE FND_API.G_EXC_ERROR;
3326: END IF;
3327:
3328: -- if operation on any attribute is constrained
3329: IF l_sec_result = OE_PC_GLOBALS.YES THEN
3326: END IF;
3327:
3328: -- if operation on any attribute is constrained
3329: IF l_sec_result = OE_PC_GLOBALS.YES THEN
3330: RAISE FND_API.G_EXC_ERROR;
3331: END IF;
3332:
3333: END IF;
3334:
3377:
3378: IF l_debug_level > 0 THEN
3379: oe_debug_pub.add( 'AFTER NOTIFY_OTA API' , 1 ) ;
3380: END IF;
3381: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3383: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3384: RAISE FND_API.G_EXC_ERROR;
3385: END IF;
3378: IF l_debug_level > 0 THEN
3379: oe_debug_pub.add( 'AFTER NOTIFY_OTA API' , 1 ) ;
3380: END IF;
3381: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3383: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3384: RAISE FND_API.G_EXC_ERROR;
3385: END IF;
3386: END IF; --End of OTA processing
3379: oe_debug_pub.add( 'AFTER NOTIFY_OTA API' , 1 ) ;
3380: END IF;
3381: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3383: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3384: RAISE FND_API.G_EXC_ERROR;
3385: END IF;
3386: END IF; --End of OTA processing
3387:
3380: END IF;
3381: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3383: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3384: RAISE FND_API.G_EXC_ERROR;
3385: END IF;
3386: END IF; --End of OTA processing
3387:
3388: ELSE -- operation is update or create
3425:
3426: END IF; -- write to db true
3427:
3428: -- loop exception handler.
3429: IF l_line_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3430: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3431: ELSIF l_line_rec.return_status = FND_API.G_RET_STS_ERROR THEN
3432: RAISE FND_API.G_EXC_ERROR;
3433: END IF;
3426: END IF; -- write to db true
3427:
3428: -- loop exception handler.
3429: IF l_line_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3430: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3431: ELSIF l_line_rec.return_status = FND_API.G_RET_STS_ERROR THEN
3432: RAISE FND_API.G_EXC_ERROR;
3433: END IF;
3434:
3427:
3428: -- loop exception handler.
3429: IF l_line_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3430: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3431: ELSIF l_line_rec.return_status = FND_API.G_RET_STS_ERROR THEN
3432: RAISE FND_API.G_EXC_ERROR;
3433: END IF;
3434:
3435: -- Load tables.
3428: -- loop exception handler.
3429: IF l_line_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3430: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3431: ELSIF l_line_rec.return_status = FND_API.G_RET_STS_ERROR THEN
3432: RAISE FND_API.G_EXC_ERROR;
3433: END IF;
3434:
3435: -- Load tables.
3436:
3433: END IF;
3434:
3435: -- Load tables.
3436:
3437: l_line_rec.return_status := FND_API.G_RET_STS_SUCCESS;
3438: p_x_line_tbl(I) := l_line_rec;
3439: p_x_old_line_tbl(I) := l_old_line_rec;
3440: p_x_line_tbl(I).semi_processed_flag := l_process_this_line;
3441:
3457: END IF;
3458:
3459: EXCEPTION
3460:
3461: WHEN FND_API.G_EXC_ERROR THEN
3462:
3463: x_return_status:= FND_API.G_RET_STS_ERROR;
3464: l_line_rec.return_status := FND_API.G_RET_STS_ERROR;
3465: p_x_line_tbl(I) := l_line_rec;
3459: EXCEPTION
3460:
3461: WHEN FND_API.G_EXC_ERROR THEN
3462:
3463: x_return_status:= FND_API.G_RET_STS_ERROR;
3464: l_line_rec.return_status := FND_API.G_RET_STS_ERROR;
3465: p_x_line_tbl(I) := l_line_rec;
3466: p_x_line_tbl(I).semi_processed_flag := l_process_this_line;
3467: p_x_old_line_tbl(I) := l_old_line_rec;
3460:
3461: WHEN FND_API.G_EXC_ERROR THEN
3462:
3463: x_return_status:= FND_API.G_RET_STS_ERROR;
3464: l_line_rec.return_status := FND_API.G_RET_STS_ERROR;
3465: p_x_line_tbl(I) := l_line_rec;
3466: p_x_line_tbl(I).semi_processed_flag := l_process_this_line;
3467: p_x_old_line_tbl(I) := l_old_line_rec;
3468:
3478: IF l_line_rec.source_document_type_id = 2 AND
3479: l_line_rec.line_set_id IS NOT NULL AND
3480: l_line_rec.OPERATION = OE_GLOBALS.G_OPR_CREATE
3481: THEN
3482: RAISE FND_API.G_EXC_ERROR;
3483: END IF;
3484:
3485:
3486: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
3496:
3497: ROLLBACK TO SAVEPOINT Lines;
3498:
3499: ELSE
3500: RAISE FND_API.G_EXC_ERROR ;
3501: END IF; -- process partial = true
3502:
3503:
3504: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3500: RAISE FND_API.G_EXC_ERROR ;
3501: END IF; -- process partial = true
3502:
3503:
3504: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3505:
3506: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
3507: l_line_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3508: p_x_line_tbl(I) := l_line_rec;
3502:
3503:
3504: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3505:
3506: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
3507: l_line_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3508: p_x_line_tbl(I) := l_line_rec;
3509: p_x_line_tbl(I).semi_processed_flag := l_process_this_line;
3510: p_x_old_line_tbl(I) := l_old_line_rec;
3503:
3504: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3505:
3506: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
3507: l_line_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3508: p_x_line_tbl(I) := l_line_rec;
3509: p_x_line_tbl(I).semi_processed_flag := l_process_this_line;
3510: p_x_old_line_tbl(I) := l_old_line_rec;
3511:
3510: p_x_old_line_tbl(I) := l_old_line_rec;
3511:
3512:
3513: OE_MSG_PUB.reset_msg_context('LINE');
3514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3515:
3516:
3517: WHEN OTHERS THEN
3518:
3515:
3516:
3517: WHEN OTHERS THEN
3518:
3519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3520: l_line_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3521: p_x_line_tbl(I) := l_line_rec;
3522: p_x_line_tbl(I).semi_processed_flag := l_process_this_line;
3523: p_x_old_line_tbl(I) := l_old_line_rec;
3516:
3517: WHEN OTHERS THEN
3518:
3519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3520: l_line_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3521: p_x_line_tbl(I) := l_line_rec;
3522: p_x_line_tbl(I).semi_processed_flag := l_process_this_line;
3523: p_x_old_line_tbl(I) := l_old_line_rec;
3524:
3531: END IF;
3532:
3533: OE_Line_Security.g_check_all_cols_constraint := 'Y';
3534: OE_MSG_PUB.reset_msg_context('LINE');
3535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3536:
3537: END; -- of the big BEGIN with the WHILE
3538:
3539:
3621: p_In_out => 0);
3622:
3623: EXCEPTION
3624:
3625: WHEN FND_API.G_EXC_ERROR THEN
3626: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
3627: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
3628: x_return_status := FND_API.G_RET_STS_ERROR;
3629: set_recursion_mode(p_Entity_Code => 5,
3624:
3625: WHEN FND_API.G_EXC_ERROR THEN
3626: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
3627: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
3628: x_return_status := FND_API.G_RET_STS_ERROR;
3629: set_recursion_mode(p_Entity_Code => 5,
3630: p_In_out => 0);
3631: OE_MSG_PUB.reset_msg_context('LINE');
3632:
3648: -- of the post line process. This is same as an error coming
3649: -- out of delayed requests and hence we should raise and not continue.
3650:
3651: IF l_control_rec.Process_Partial THEN
3652: RAISE FND_API.G_EXC_ERROR;
3653: END IF;
3654:
3655: END IF;
3656:
3653: END IF;
3654:
3655: END IF;
3656:
3657: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3658: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
3659: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
3660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3661: set_recursion_mode(p_Entity_Code => 5,
3656:
3657: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3658: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
3659: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
3660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3661: set_recursion_mode(p_Entity_Code => 5,
3662: p_In_out => 0);
3663:
3664: OE_MSG_PUB.reset_msg_context('LINE');
3678: -- Same as comments give above for exc error
3679: -- Bug 2801876
3680:
3681: IF l_control_rec.Process_Partial THEN
3682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3683: END IF;
3684:
3685: END IF;
3686:
3686:
3687: WHEN OTHERS THEN
3688: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
3689: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
3690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3691:
3692: IF NOT (OE_GLOBALS.G_UI_FLAG) and line_ctr = 1 THEN
3693: IF l_debug_level > 0 THEN
3694: oe_debug_pub.add( 'DELETE REQUEST11' , 2 ) ;
3711: ,'Lines');
3712: END IF;
3713:
3714: OE_MSG_PUB.reset_msg_context('LINE');
3715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3716:
3717: END Lines;
3718:
3719:
3721: PROCEDURE Line_Scredits
3722: -----------------------------------------------------------------------*/
3723:
3724: PROCEDURE Line_Scredits
3725: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3726: , p_validation_level IN NUMBER
3727: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
3728: , p_x_Line_Scredit_tbl IN OUT NOCOPY OE_Order_PUB.Line_Scredit_Tbl_Type
3729: , p_x_old_Line_Scredit_tbl IN OUT NOCOPY OE_Order_PUB.Line_Scredit_Tbl_Type
3752: l_org_id number ;
3753: BEGIN
3754: --MOAC changes start
3755: l_org_id := MO_GLOBAL.get_current_org_id;
3756: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
3757: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
3758: OE_MSG_PUB.Add;
3759: RAISE FND_API.G_EXC_ERROR;
3760: END IF;
3755: l_org_id := MO_GLOBAL.get_current_org_id;
3756: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
3757: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
3758: OE_MSG_PUB.Add;
3759: RAISE FND_API.G_EXC_ERROR;
3760: END IF;
3761: --MOAC changes end
3762: set_recursion_mode(p_Entity_Code => 7,
3763: p_In_out => 1);
3760: END IF;
3761: --MOAC changes end
3762: set_recursion_mode(p_Entity_Code => 7,
3763: p_In_out => 1);
3764: x_return_status := FND_API.G_RET_STS_SUCCESS;
3765:
3766: -- Initialize message list.
3767:
3768: IF FND_API.to_Boolean(p_init_msg_list) THEN
3764: x_return_status := FND_API.G_RET_STS_SUCCESS;
3765:
3766: -- Initialize message list.
3767:
3768: IF FND_API.to_Boolean(p_init_msg_list) THEN
3769: OE_MSG_PUB.initialize;
3770: END IF;
3771:
3772: IF p_control_rec.Process_Partial THEN
3791: l_old_Line_Scredit_rec := p_x_old_Line_Scredit_tbl(I);
3792: ELSE
3793: l_old_Line_Scredit_rec := OE_Order_PUB.G_MISS_LINE_SCREDIT_REC;
3794: END IF;
3795: if l_old_line_Scredit_rec.sales_credit_id = FND_API.G_MISS_NUM Then
3796: IF l_line_Scredit_rec.line_id IS NOT NULL AND
3797: l_line_Scredit_rec.line_id <> FND_API.G_MISS_NUM THEN
3798: BEGIN
3799: IF l_debug_level > 0 THEN
3793: l_old_Line_Scredit_rec := OE_Order_PUB.G_MISS_LINE_SCREDIT_REC;
3794: END IF;
3795: if l_old_line_Scredit_rec.sales_credit_id = FND_API.G_MISS_NUM Then
3796: IF l_line_Scredit_rec.line_id IS NOT NULL AND
3797: l_line_Scredit_rec.line_id <> FND_API.G_MISS_NUM THEN
3798: BEGIN
3799: IF l_debug_level > 0 THEN
3800: oe_debug_pub.add('Getting reference data for line_id:'||l_line_Scredit_rec.line_id);
3801: END IF;
3844: ,p_source_document_line_id => l_source_document_line_id );
3845:
3846: else
3847: IF l_old_line_Scredit_rec.line_id IS NOT NULL AND
3848: l_old_line_Scredit_rec.line_id <> FND_API.G_MISS_NUM THEN
3849: BEGIN
3850: IF l_debug_level > 0 THEN
3851: oe_debug_pub.add('Getting reference data for old line_id:'||l_old_line_Scredit_rec.line_id);
3852: END IF;
3905: );
3906:
3907: -- Set record return status.
3908:
3909: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_SUCCESS;
3910:
3911: -- Prepare record.
3912:
3913: IF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
3911: -- Prepare record.
3912:
3913: IF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
3914:
3915: l_Line_Scredit_rec.db_flag := FND_API.G_FALSE;
3916:
3917: -- Set missing old record elements to NULL.
3918:
3919: OE_Line_Scredit_Util.Convert_Miss_To_Null (l_old_Line_Scredit_rec);
3921: ELSIF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE
3922: OR l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_DELETE
3923: THEN
3924:
3925: l_Line_Scredit_rec.db_flag := FND_API.G_TRUE;
3926:
3927: -- Query Old if missing
3928:
3929: IF l_old_Line_Scredit_rec.sales_credit_id = FND_API.G_MISS_NUM
3925: l_Line_Scredit_rec.db_flag := FND_API.G_TRUE;
3926:
3927: -- Query Old if missing
3928:
3929: IF l_old_Line_Scredit_rec.sales_credit_id = FND_API.G_MISS_NUM
3930: THEN
3931:
3932: OE_Line_Scredit_Util.Query_Row
3933: ( p_sales_credit_id => l_Line_Scredit_rec.sales_credit_id
3958: END IF;
3959:
3960: IF I = p_x_line_scredit_tbl.FIRST THEN
3961: IF NOT Valid_Upgraded_Order(l_line_scredit_rec.header_id) THEN
3962: RAISE FND_API.G_EXC_ERROR;
3963: END IF;
3964: END IF;
3965:
3966: -- Check security
3979: , x_result => l_sec_result
3980: , x_return_status => l_return_status
3981: );
3982:
3983: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3985: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3986: RAISE FND_API.G_EXC_ERROR;
3987: END IF;
3980: , x_return_status => l_return_status
3981: );
3982:
3983: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3985: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3986: RAISE FND_API.G_EXC_ERROR;
3987: END IF;
3988:
3981: );
3982:
3983: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3985: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3986: RAISE FND_API.G_EXC_ERROR;
3987: END IF;
3988:
3989: IF l_sec_result = OE_PC_GLOBALS.YES THEN
3982:
3983: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3985: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3986: RAISE FND_API.G_EXC_ERROR;
3987: END IF;
3988:
3989: IF l_sec_result = OE_PC_GLOBALS.YES THEN
3990: RAISE FND_API.G_EXC_ERROR;
3986: RAISE FND_API.G_EXC_ERROR;
3987: END IF;
3988:
3989: IF l_sec_result = OE_PC_GLOBALS.YES THEN
3990: RAISE FND_API.G_EXC_ERROR;
3991: END IF;
3992:
3993: END IF;
3994:
3993: END IF;
3994:
3995: -- Attribute level validation.
3996:
3997: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
3998:
3999: OE_Validate_Line_Scredit.Attributes
4000: ( x_return_status => l_return_status
4001: , p_Line_Scredit_rec => l_Line_Scredit_rec
4001: , p_Line_Scredit_rec => l_Line_Scredit_rec
4002: , p_old_Line_Scredit_rec => l_old_Line_Scredit_rec
4003: );
4004:
4005: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4007: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4008: RAISE FND_API.G_EXC_ERROR;
4009: END IF;
4002: , p_old_Line_Scredit_rec => l_old_Line_Scredit_rec
4003: );
4004:
4005: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4007: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4008: RAISE FND_API.G_EXC_ERROR;
4009: END IF;
4010:
4003: );
4004:
4005: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4007: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4008: RAISE FND_API.G_EXC_ERROR;
4009: END IF;
4010:
4011: END IF;
4004:
4005: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4007: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4008: RAISE FND_API.G_EXC_ERROR;
4009: END IF;
4010:
4011: END IF;
4012:
4077: );
4078:
4079: END IF;
4080:
4081: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4082: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4083: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4084: RAISE FND_API.G_EXC_ERROR;
4085: END IF;
4078:
4079: END IF;
4080:
4081: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4082: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4083: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4084: RAISE FND_API.G_EXC_ERROR;
4085: END IF;
4086:
4079: END IF;
4080:
4081: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4082: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4083: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4084: RAISE FND_API.G_EXC_ERROR;
4085: END IF;
4086:
4087: END IF;
4080:
4081: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4082: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4083: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4084: RAISE FND_API.G_EXC_ERROR;
4085: END IF;
4086:
4087: END IF;
4088:
4111: , x_result => l_sec_result
4112: , x_return_status => l_return_status
4113: );
4114:
4115: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4117: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4118: RAISE FND_API.G_EXC_ERROR;
4119: END IF;
4112: , x_return_status => l_return_status
4113: );
4114:
4115: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4117: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4118: RAISE FND_API.G_EXC_ERROR;
4119: END IF;
4120:
4113: );
4114:
4115: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4117: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4118: RAISE FND_API.G_EXC_ERROR;
4119: END IF;
4120:
4121: IF l_sec_result = OE_PC_GLOBALS.YES THEN
4114:
4115: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4117: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4118: RAISE FND_API.G_EXC_ERROR;
4119: END IF;
4120:
4121: IF l_sec_result = OE_PC_GLOBALS.YES THEN
4122: RAISE FND_API.G_EXC_ERROR;
4118: RAISE FND_API.G_EXC_ERROR;
4119: END IF;
4120:
4121: IF l_sec_result = OE_PC_GLOBALS.YES THEN
4122: RAISE FND_API.G_EXC_ERROR;
4123: END IF;
4124:
4125: END IF;
4126:
4168: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4169: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4170:
4171: -- loop exception handler.
4172: IF l_line_scredit_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4174: ELSIF l_line_scredit_rec.return_status = FND_API.G_RET_STS_ERROR THEN
4175: RAISE FND_API.G_EXC_ERROR;
4176: END IF;
4169: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4170:
4171: -- loop exception handler.
4172: IF l_line_scredit_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4174: ELSIF l_line_scredit_rec.return_status = FND_API.G_RET_STS_ERROR THEN
4175: RAISE FND_API.G_EXC_ERROR;
4176: END IF;
4177:
4170:
4171: -- loop exception handler.
4172: IF l_line_scredit_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4174: ELSIF l_line_scredit_rec.return_status = FND_API.G_RET_STS_ERROR THEN
4175: RAISE FND_API.G_EXC_ERROR;
4176: END IF;
4177:
4178: -- Load tables.
4171: -- loop exception handler.
4172: IF l_line_scredit_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4174: ELSIF l_line_scredit_rec.return_status = FND_API.G_RET_STS_ERROR THEN
4175: RAISE FND_API.G_EXC_ERROR;
4176: END IF;
4177:
4178: -- Load tables.
4179:
4176: END IF;
4177:
4178: -- Load tables.
4179:
4180: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_SUCCESS;
4181: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4182: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4183:
4184:
4183:
4184:
4185: EXCEPTION
4186:
4187: WHEN FND_API.G_EXC_ERROR THEN
4188:
4189: x_return_status := FND_API.G_RET_STS_ERROR;
4190: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_ERROR;
4191: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4185: EXCEPTION
4186:
4187: WHEN FND_API.G_EXC_ERROR THEN
4188:
4189: x_return_status := FND_API.G_RET_STS_ERROR;
4190: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_ERROR;
4191: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4192: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4193:
4186:
4187: WHEN FND_API.G_EXC_ERROR THEN
4188:
4189: x_return_status := FND_API.G_RET_STS_ERROR;
4190: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_ERROR;
4191: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4192: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4193:
4194: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4204: x_return_status => l_return_status);
4205: END IF;
4206: ROLLBACK TO SAVEPOINT Line_Scredits;
4207: ELSE
4208: RAISE FND_API.G_EXC_ERROR;
4209: END IF;
4210:
4211: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4212:
4207: ELSE
4208: RAISE FND_API.G_EXC_ERROR;
4209: END IF;
4210:
4211: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4212:
4213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4214: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4215: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4209: END IF;
4210:
4211: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4212:
4213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4214: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4215: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4216: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4217: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4210:
4211: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4212:
4213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4214: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4215: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4216: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4217: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4218: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4215: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4216: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4217: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4218: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4220:
4221: WHEN OTHERS THEN
4222:
4223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4220:
4221: WHEN OTHERS THEN
4222:
4223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4224: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4225: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4226: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4227: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4220:
4221: WHEN OTHERS THEN
4222:
4223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4224: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4225: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4226: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4227: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4228: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4233: );
4234: END IF;
4235:
4236: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4238:
4239: END;
4240: I := p_x_Line_Scredit_tbl.NEXT(I);
4241: END LOOP;
4248: set_recursion_mode(p_Entity_Code => 7,
4249: p_In_out => 0);
4250: EXCEPTION
4251:
4252: WHEN FND_API.G_EXC_ERROR THEN
4253:
4254: set_recursion_mode(p_Entity_Code => 7,
4255: p_In_out => 0);
4256: x_return_status := FND_API.G_RET_STS_ERROR;
4252: WHEN FND_API.G_EXC_ERROR THEN
4253:
4254: set_recursion_mode(p_Entity_Code => 7,
4255: p_In_out => 0);
4256: x_return_status := FND_API.G_RET_STS_ERROR;
4257: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4258: IF l_debug_level > 0 THEN
4259: oe_debug_pub.add( 'DELETE REQUEST13' , 2 ) ;
4260: END IF;
4262: (x_return_status => l_return_status);
4263: END IF;
4264: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4265:
4266: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4267:
4268: set_recursion_mode(p_Entity_Code => 7,
4269: p_In_out => 0);
4270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4266: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4267:
4268: set_recursion_mode(p_Entity_Code => 7,
4269: p_In_out => 0);
4270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4271: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4272: IF l_debug_level > 0 THEN
4273: oe_debug_pub.add( 'DELETE REQUEST14' , 2 ) ;
4274: END IF;
4280: WHEN OTHERS THEN
4281:
4282: set_recursion_mode(p_Entity_Code => 7,
4283: p_In_out => 0);
4284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4285: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4286: IF l_debug_level > 0 THEN
4287: oe_debug_pub.add( 'DELETE REQUEST15' , 2 ) ;
4288: END IF;
4305: PROCEDURE Line_Payments
4306: -----------------------------------------------------------------------*/
4307:
4308: PROCEDURE Line_Payments
4309: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4310: , p_validation_level IN NUMBER
4311: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
4312: , p_x_Line_Payment_tbl IN OUT NOCOPY OE_Order_PUB.Line_Payment_Tbl_Type
4313: , p_x_old_Line_Payment_tbl IN OUT NOCOPY OE_Order_PUB.Line_Payment_Tbl_Type
4336: l_org_id number ;
4337: BEGIN
4338: --MOAC changes start
4339: l_org_id := MO_GLOBAL.get_current_org_id;
4340: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
4341: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
4342: OE_MSG_PUB.Add;
4343: RAISE FND_API.G_EXC_ERROR;
4344: END IF;
4339: l_org_id := MO_GLOBAL.get_current_org_id;
4340: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
4341: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
4342: OE_MSG_PUB.Add;
4343: RAISE FND_API.G_EXC_ERROR;
4344: END IF;
4345: --MOAC changes end
4346: x_return_status := FND_API.G_RET_STS_SUCCESS;
4347:
4342: OE_MSG_PUB.Add;
4343: RAISE FND_API.G_EXC_ERROR;
4344: END IF;
4345: --MOAC changes end
4346: x_return_status := FND_API.G_RET_STS_SUCCESS;
4347:
4348: -- Initialize message list.
4349:
4350: IF FND_API.to_Boolean(p_init_msg_list) THEN
4346: x_return_status := FND_API.G_RET_STS_SUCCESS;
4347:
4348: -- Initialize message list.
4349:
4350: IF FND_API.to_Boolean(p_init_msg_list) THEN
4351: OE_MSG_PUB.initialize;
4352: END IF;
4353:
4354: IF p_control_rec.Process_Partial THEN
4373: l_old_Line_Payment_rec := p_x_old_Line_Payment_tbl(I);
4374: ELSE
4375: l_old_Line_Payment_rec := OE_Order_PUB.G_MISS_LINE_PAYMENT_REC;
4376: END IF;
4377: if l_old_line_Payment_rec.payment_number = FND_API.G_MISS_NUM Then
4378: IF l_line_Payment_rec.line_id IS NOT NULL AND
4379: l_line_Payment_rec.line_id <> FND_API.G_MISS_NUM THEN
4380: BEGIN
4381: IF l_debug_level > 0 THEN
4375: l_old_Line_Payment_rec := OE_Order_PUB.G_MISS_LINE_PAYMENT_REC;
4376: END IF;
4377: if l_old_line_Payment_rec.payment_number = FND_API.G_MISS_NUM Then
4378: IF l_line_Payment_rec.line_id IS NOT NULL AND
4379: l_line_Payment_rec.line_id <> FND_API.G_MISS_NUM THEN
4380: BEGIN
4381: IF l_debug_level > 0 THEN
4382: oe_debug_pub.add('Getting reference data for line_id:'||l_line_Payment_rec.line_id);
4383: END IF;
4426: ,p_source_document_line_id => l_source_document_line_id );
4427:
4428: else
4429: IF l_old_line_Payment_rec.line_id IS NOT NULL AND
4430: l_old_line_Payment_rec.line_id <> FND_API.G_MISS_NUM THEN
4431: BEGIN
4432: IF l_debug_level > 0 THEN
4433: oe_debug_pub.add('Getting reference data for old line_id:'||l_old_line_Payment_rec.line_id);
4434: END IF;
4487: );
4488:
4489: -- Set record return status.
4490:
4491: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_SUCCESS;
4492:
4493: -- Prepare record.
4494:
4495: IF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
4493: -- Prepare record.
4494:
4495: IF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
4496:
4497: l_Line_Payment_rec.db_flag := FND_API.G_FALSE;
4498:
4499: -- Set missing old record elements to NULL.
4500:
4501: IF l_debug_level > 0 THEN
4509: ELSIF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE
4510: OR l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE
4511: THEN
4512:
4513: l_Line_Payment_rec.db_flag := FND_API.G_TRUE;
4514:
4515: -- Query Old if missing
4516:
4517: IF l_old_Line_Payment_rec.payment_number = FND_API.G_MISS_NUM
4513: l_Line_Payment_rec.db_flag := FND_API.G_TRUE;
4514:
4515: -- Query Old if missing
4516:
4517: IF l_old_Line_Payment_rec.payment_number = FND_API.G_MISS_NUM
4518: THEN
4519:
4520: IF l_debug_level > 0 THEN
4521: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Query_Row', 5);
4560: END IF;
4561:
4562: IF I = p_x_line_payment_tbl.FIRST THEN
4563: IF NOT Valid_Upgraded_Order(l_line_payment_rec.header_id) THEN
4564: RAISE FND_API.G_EXC_ERROR;
4565: END IF;
4566: END IF;
4567:
4568: -- Check security
4583: IF l_debug_level > 0 THEN
4584: oe_debug_pub.add('Payment:after OE_Line_Payment_Security.Attributes', 5);
4585: END IF;
4586:
4587: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4589: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4590: RAISE FND_API.G_EXC_ERROR;
4591: END IF;
4584: oe_debug_pub.add('Payment:after OE_Line_Payment_Security.Attributes', 5);
4585: END IF;
4586:
4587: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4589: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4590: RAISE FND_API.G_EXC_ERROR;
4591: END IF;
4592:
4585: END IF;
4586:
4587: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4589: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4590: RAISE FND_API.G_EXC_ERROR;
4591: END IF;
4592:
4593: IF l_sec_result = OE_PC_GLOBALS.YES THEN
4586:
4587: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4589: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4590: RAISE FND_API.G_EXC_ERROR;
4591: END IF;
4592:
4593: IF l_sec_result = OE_PC_GLOBALS.YES THEN
4594: RAISE FND_API.G_EXC_ERROR;
4590: RAISE FND_API.G_EXC_ERROR;
4591: END IF;
4592:
4593: IF l_sec_result = OE_PC_GLOBALS.YES THEN
4594: RAISE FND_API.G_EXC_ERROR;
4595: END IF;
4596:
4597: END IF;
4598:
4597: END IF;
4598:
4599: -- Attribute level validation.
4600:
4601: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
4602:
4603: IF l_debug_level > 0 THEN
4604: oe_debug_pub.add('Payment:before OE_Validate_Line_Payment.Attributes', 5);
4605: END IF;
4611: IF l_debug_level > 0 THEN
4612: oe_debug_pub.add('Payment:after OE_Validate_Line_Payment.Attributes', 5);
4613: END IF;
4614:
4615: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4616: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4617: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4618: RAISE FND_API.G_EXC_ERROR;
4619: END IF;
4612: oe_debug_pub.add('Payment:after OE_Validate_Line_Payment.Attributes', 5);
4613: END IF;
4614:
4615: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4616: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4617: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4618: RAISE FND_API.G_EXC_ERROR;
4619: END IF;
4620:
4613: END IF;
4614:
4615: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4616: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4617: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4618: RAISE FND_API.G_EXC_ERROR;
4619: END IF;
4620:
4621: END IF;
4614:
4615: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4616: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4617: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4618: RAISE FND_API.G_EXC_ERROR;
4619: END IF;
4620:
4621: END IF;
4622:
4717: END IF;
4718:
4719: END IF;
4720:
4721: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4723: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4724: RAISE FND_API.G_EXC_ERROR;
4725: END IF;
4718:
4719: END IF;
4720:
4721: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4723: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4724: RAISE FND_API.G_EXC_ERROR;
4725: END IF;
4726:
4719: END IF;
4720:
4721: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4723: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4724: RAISE FND_API.G_EXC_ERROR;
4725: END IF;
4726:
4727: END IF;
4720:
4721: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4723: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4724: RAISE FND_API.G_EXC_ERROR;
4725: END IF;
4726:
4727: END IF;
4728:
4753: IF l_debug_level > 0 THEN
4754: oe_debug_pub.add('Payment:after OE_Line_Payment_Security.Entity', 5);
4755: END IF;
4756:
4757: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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_Line_Payment_Security.Entity', 5);
4755: END IF;
4756:
4757: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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: IF l_sec_result = OE_PC_GLOBALS.YES THEN
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: IF l_sec_result = OE_PC_GLOBALS.YES THEN
4764: RAISE FND_API.G_EXC_ERROR;
4760: RAISE FND_API.G_EXC_ERROR;
4761: END IF;
4762:
4763: IF l_sec_result = OE_PC_GLOBALS.YES THEN
4764: RAISE FND_API.G_EXC_ERROR;
4765: END IF;
4766:
4767: END IF;
4768:
4836: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
4837: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4838:
4839: -- loop exception handler.
4840: IF l_line_payment_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4842: ELSIF l_line_payment_rec.return_status = FND_API.G_RET_STS_ERROR THEN
4843: RAISE FND_API.G_EXC_ERROR;
4844: END IF;
4837: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4838:
4839: -- loop exception handler.
4840: IF l_line_payment_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4842: ELSIF l_line_payment_rec.return_status = FND_API.G_RET_STS_ERROR THEN
4843: RAISE FND_API.G_EXC_ERROR;
4844: END IF;
4845:
4838:
4839: -- loop exception handler.
4840: IF l_line_payment_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4842: ELSIF l_line_payment_rec.return_status = FND_API.G_RET_STS_ERROR THEN
4843: RAISE FND_API.G_EXC_ERROR;
4844: END IF;
4845:
4846: -- Load tables.
4839: -- loop exception handler.
4840: IF l_line_payment_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4842: ELSIF l_line_payment_rec.return_status = FND_API.G_RET_STS_ERROR THEN
4843: RAISE FND_API.G_EXC_ERROR;
4844: END IF;
4845:
4846: -- Load tables.
4847:
4844: END IF;
4845:
4846: -- Load tables.
4847:
4848: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_SUCCESS;
4849: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
4850: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
4851:
4852:
4851:
4852:
4853: EXCEPTION
4854:
4855: WHEN FND_API.G_EXC_ERROR THEN
4856:
4857: x_return_status := FND_API.G_RET_STS_ERROR;
4858: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_ERROR;
4859: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
4853: EXCEPTION
4854:
4855: WHEN FND_API.G_EXC_ERROR THEN
4856:
4857: x_return_status := FND_API.G_RET_STS_ERROR;
4858: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_ERROR;
4859: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
4860: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
4861:
4854:
4855: WHEN FND_API.G_EXC_ERROR THEN
4856:
4857: x_return_status := FND_API.G_RET_STS_ERROR;
4858: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_ERROR;
4859: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
4860: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
4861:
4862: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
4872: x_return_status => l_return_status);
4873: END IF;
4874: ROLLBACK TO SAVEPOINT Line_Payments;
4875: ELSE
4876: RAISE FND_API.G_EXC_ERROR;
4877: END IF;
4878:
4879: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4880:
4875: ELSE
4876: RAISE FND_API.G_EXC_ERROR;
4877: END IF;
4878:
4879: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4880:
4881: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4882: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4883: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
4877: END IF;
4878:
4879: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4880:
4881: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4882: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4883: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
4884: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
4885: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
4878:
4879: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4880:
4881: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4882: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4883: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
4884: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
4885: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
4886: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4883: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
4884: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
4885: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
4886: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4887: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4888:
4889: WHEN OTHERS THEN
4890:
4891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4887: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4888:
4889: WHEN OTHERS THEN
4890:
4891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4892: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4893: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
4894: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
4895: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
4888:
4889: WHEN OTHERS THEN
4890:
4891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4892: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4893: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
4894: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
4895: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
4896: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4901: );
4902: END IF;
4903:
4904: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4906:
4907: END;
4908: I := p_x_Line_Payment_tbl.NEXT(I);
4909: END LOOP;
4914: END IF;
4915: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4916: EXCEPTION
4917:
4918: WHEN FND_API.G_EXC_ERROR THEN
4919:
4920: x_return_status := FND_API.G_RET_STS_ERROR;
4921: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4922: IF l_debug_level > 0 THEN
4916: EXCEPTION
4917:
4918: WHEN FND_API.G_EXC_ERROR THEN
4919:
4920: x_return_status := FND_API.G_RET_STS_ERROR;
4921: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4922: IF l_debug_level > 0 THEN
4923: oe_debug_pub.add( 'DELETE REQUEST13' , 2 ) ;
4924: END IF;
4926: (x_return_status => l_return_status);
4927: END IF;
4928: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4929:
4930: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4931:
4932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4933: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4934: IF l_debug_level > 0 THEN
4928: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4929:
4930: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4931:
4932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4933: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4934: IF l_debug_level > 0 THEN
4935: oe_debug_pub.add( 'DELETE REQUEST14' , 2 ) ;
4936: END IF;
4940: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4941:
4942: WHEN OTHERS THEN
4943:
4944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4945: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4946: IF l_debug_level > 0 THEN
4947: oe_debug_pub.add( 'DELETE REQUEST15' , 2 ) ;
4948: END IF;
4965: PROCEDURE Lot_Serials
4966: --------------------------------------------------------------------*/
4967:
4968: PROCEDURE Lot_Serials
4969: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4970: , p_validation_level IN NUMBER
4971: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
4972: , p_x_Lot_Serial_tbl IN OUT NOCOPY OE_Order_PUB.Lot_Serial_Tbl_Type
4973: , p_x_old_Lot_Serial_tbl IN OUT NOCOPY OE_Order_PUB.Lot_Serial_Tbl_Type
4984: l_org_id number;
4985: BEGIN
4986: --MOAC changes start
4987: l_org_id := MO_GLOBAL.get_current_org_id;
4988: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
4989: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
4990: OE_MSG_PUB.Add;
4991: RAISE FND_API.G_EXC_ERROR;
4992: END IF;
4987: l_org_id := MO_GLOBAL.get_current_org_id;
4988: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
4989: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
4990: OE_MSG_PUB.Add;
4991: RAISE FND_API.G_EXC_ERROR;
4992: END IF;
4993: --MOAC changes end
4994: x_return_status := FND_API.G_RET_STS_SUCCESS;
4995:
4990: OE_MSG_PUB.Add;
4991: RAISE FND_API.G_EXC_ERROR;
4992: END IF;
4993: --MOAC changes end
4994: x_return_status := FND_API.G_RET_STS_SUCCESS;
4995:
4996: -- Initialize message list.
4997:
4998: IF FND_API.to_Boolean(p_init_msg_list) THEN
4994: x_return_status := FND_API.G_RET_STS_SUCCESS;
4995:
4996: -- Initialize message list.
4997:
4998: IF FND_API.to_Boolean(p_init_msg_list) THEN
4999: OE_MSG_PUB.initialize;
5000: END IF;
5001:
5002: -- FOR I IN 1..p_x_Lot_Serial_tbl.COUNT LOOP
5024: );
5025:
5026: -- Set record return status.
5027:
5028: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_SUCCESS;
5029:
5030: -- Prepare record.
5031:
5032: IF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
5030: -- Prepare record.
5031:
5032: IF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
5033:
5034: l_Lot_Serial_rec.db_flag := FND_API.G_FALSE;
5035:
5036: -- Set missing old record elements to NULL.
5037:
5038: OE_Lot_Serial_Util.Convert_Miss_To_Null (l_old_Lot_Serial_rec);
5040: ELSIF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_UPDATE
5041: OR l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_DELETE
5042: THEN
5043:
5044: l_Lot_Serial_rec.db_flag := FND_API.G_TRUE;
5045:
5046: -- Query Old if missing
5047:
5048: IF l_old_Lot_Serial_rec.lot_serial_id = FND_API.G_MISS_NUM
5044: l_Lot_Serial_rec.db_flag := FND_API.G_TRUE;
5045:
5046: -- Query Old if missing
5047:
5048: IF l_old_Lot_Serial_rec.lot_serial_id = FND_API.G_MISS_NUM
5049: THEN
5050:
5051: OE_Lot_Serial_Util.Query_Row
5052: ( p_lot_serial_id => l_Lot_Serial_rec.lot_serial_id
5071: END IF;
5072:
5073: -- Attribute level validation.
5074:
5075: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
5076:
5077: OE_Validate_Lot_Serial.Attributes
5078: ( x_return_status => l_return_status
5079: , p_Lot_Serial_rec => l_Lot_Serial_rec
5079: , p_Lot_Serial_rec => l_Lot_Serial_rec
5080: , p_old_Lot_Serial_rec => l_old_Lot_Serial_rec
5081: );
5082:
5083: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5085: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5086: RAISE FND_API.G_EXC_ERROR;
5087: END IF;
5080: , p_old_Lot_Serial_rec => l_old_Lot_Serial_rec
5081: );
5082:
5083: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5085: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5086: RAISE FND_API.G_EXC_ERROR;
5087: END IF;
5088:
5081: );
5082:
5083: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5085: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5086: RAISE FND_API.G_EXC_ERROR;
5087: END IF;
5088:
5089: END IF;
5082:
5083: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5085: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5086: RAISE FND_API.G_EXC_ERROR;
5087: END IF;
5088:
5089: END IF;
5090:
5142: );
5143:
5144: END IF;
5145:
5146: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5148: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5149: RAISE FND_API.G_EXC_ERROR;
5150: END IF;
5143:
5144: END IF;
5145:
5146: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5148: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5149: RAISE FND_API.G_EXC_ERROR;
5150: END IF;
5151:
5144: END IF;
5145:
5146: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5148: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5149: RAISE FND_API.G_EXC_ERROR;
5150: END IF;
5151:
5152: END IF;
5145:
5146: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5148: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5149: RAISE FND_API.G_EXC_ERROR;
5150: END IF;
5151:
5152: END IF;
5153:
5195:
5196:
5197: EXCEPTION
5198:
5199: WHEN FND_API.G_EXC_ERROR THEN
5200:
5201: x_return_status := FND_API.G_RET_STS_ERROR;
5202: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_ERROR;
5203: p_x_Lot_Serial_tbl(I) := l_Lot_Serial_rec;
5197: EXCEPTION
5198:
5199: WHEN FND_API.G_EXC_ERROR THEN
5200:
5201: x_return_status := FND_API.G_RET_STS_ERROR;
5202: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_ERROR;
5203: p_x_Lot_Serial_tbl(I) := l_Lot_Serial_rec;
5204: p_x_old_Lot_Serial_tbl(I) := l_old_Lot_Serial_rec;
5205:
5198:
5199: WHEN FND_API.G_EXC_ERROR THEN
5200:
5201: x_return_status := FND_API.G_RET_STS_ERROR;
5202: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_ERROR;
5203: p_x_Lot_Serial_tbl(I) := l_Lot_Serial_rec;
5204: p_x_old_Lot_Serial_tbl(I) := l_old_Lot_Serial_rec;
5205:
5206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5202: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_ERROR;
5203: p_x_Lot_Serial_tbl(I) := l_Lot_Serial_rec;
5204: p_x_old_Lot_Serial_tbl(I) := l_old_Lot_Serial_rec;
5205:
5206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5207:
5208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5209: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5210: p_x_Lot_Serial_tbl(I) := l_Lot_Serial_rec;
5204: p_x_old_Lot_Serial_tbl(I) := l_old_Lot_Serial_rec;
5205:
5206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5207:
5208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5209: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5210: p_x_Lot_Serial_tbl(I) := l_Lot_Serial_rec;
5211: p_x_old_Lot_Serial_tbl(I) := l_old_Lot_Serial_rec;
5212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5205:
5206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5207:
5208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5209: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5210: p_x_Lot_Serial_tbl(I) := l_Lot_Serial_rec;
5211: p_x_old_Lot_Serial_tbl(I) := l_old_Lot_Serial_rec;
5212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5213:
5208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5209: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5210: p_x_Lot_Serial_tbl(I) := l_Lot_Serial_rec;
5211: p_x_old_Lot_Serial_tbl(I) := l_old_Lot_Serial_rec;
5212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5213:
5214: WHEN OTHERS THEN
5215:
5216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5213:
5214: WHEN OTHERS THEN
5215:
5216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5217: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5218: p_x_Lot_Serial_tbl(I) := l_Lot_Serial_rec;
5219: p_x_old_Lot_Serial_tbl(I) := l_old_Lot_Serial_rec;
5220:
5213:
5214: WHEN OTHERS THEN
5215:
5216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5217: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5218: p_x_Lot_Serial_tbl(I) := l_Lot_Serial_rec;
5219: p_x_old_Lot_Serial_tbl(I) := l_old_Lot_Serial_rec;
5220:
5221: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
5225: , 'Lot_Serials'
5226: );
5227: END IF;
5228:
5229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5230:
5231: END;
5232: I := p_x_Lot_Serial_tbl.NEXT(I);
5233: END LOOP;
5233: END LOOP;
5234:
5235: EXCEPTION
5236:
5237: WHEN FND_API.G_EXC_ERROR THEN
5238:
5239: x_return_status := FND_API.G_RET_STS_ERROR;
5240: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5241: IF l_debug_level > 0 THEN
5235: EXCEPTION
5236:
5237: WHEN FND_API.G_EXC_ERROR THEN
5238:
5239: x_return_status := FND_API.G_RET_STS_ERROR;
5240: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5241: IF l_debug_level > 0 THEN
5242: oe_debug_pub.add( 'DELETE REQUEST17' , 2 ) ;
5243: END IF;
5244: OE_Delayed_Requests_Pvt.Clear_Request
5245: (x_return_status => l_return_status);
5246: END IF;
5247:
5248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5249:
5250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5251: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5252: IF l_debug_level > 0 THEN
5246: END IF;
5247:
5248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5249:
5250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5251: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5252: IF l_debug_level > 0 THEN
5253: oe_debug_pub.add( 'DELETE REQUEST18' , 2 ) ;
5254: END IF;
5257: END IF;
5258:
5259: WHEN OTHERS THEN
5260:
5261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5262: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5263: IF l_debug_level > 0 THEN
5264: oe_debug_pub.add( 'DELETE REQUEST19' , 2 ) ;
5265: END IF;
5281: PROCEDURE Process_Requests_And_Notify
5282: ------------------------------------------------------------------*/
5283:
5284: PROCEDURE Process_Requests_And_Notify
5285: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5286: , p_process_requests IN BOOLEAN := TRUE
5287: , p_notify IN BOOLEAN := TRUE
5288: , p_process_ack IN BOOLEAN := TRUE
5289: , x_return_status OUT NOCOPY VARCHAR2
5370: IF l_debug_level > 0 THEN
5371: oe_debug_pub.add( 'ENTER OE_ORDER_PVT.PROCESS_REQUESTS_AND_NOTIFY' , 1 ) ;
5372: END IF;
5373:
5374: x_return_status := FND_API.G_RET_STS_SUCCESS;
5375: fnd_profile.get('ONT_NEW_EDI_ACK_FWK', l_edi_ack_pfile);
5376: l_edi_ack_pfile := nvl(l_edi_ack_pfile, 'NO');
5377:
5378: -- Initialize message list.
5376: l_edi_ack_pfile := nvl(l_edi_ack_pfile, 'NO');
5377:
5378: -- Initialize message list.
5379:
5380: IF FND_API.to_Boolean(p_init_msg_list) THEN
5381: OE_MSG_PUB.initialize;
5382: END IF;
5383:
5384:
5390: THEN
5391:
5392: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5393: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_ADJ
5394: ,p_delete => FND_API.G_TRUE
5395: ,x_return_status => l_return_status
5396: );
5397: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5393: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_ADJ
5394: ,p_delete => FND_API.G_TRUE
5395: ,x_return_status => l_return_status
5396: );
5397: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5399: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5400: RAISE FND_API.G_EXC_ERROR;
5401: END IF;
5394: ,p_delete => FND_API.G_TRUE
5395: ,x_return_status => l_return_status
5396: );
5397: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5399: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5400: RAISE FND_API.G_EXC_ERROR;
5401: END IF;
5402:
5395: ,x_return_status => l_return_status
5396: );
5397: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5399: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5400: RAISE FND_API.G_EXC_ERROR;
5401: END IF;
5402:
5403: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5396: );
5397: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5399: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5400: RAISE FND_API.G_EXC_ERROR;
5401: END IF;
5402:
5403: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5404: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Price_Att
5401: END IF;
5402:
5403: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5404: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Price_Att
5405: ,p_delete => FND_API.G_TRUE
5406: ,x_return_status => l_return_status
5407: );
5408: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5404: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Price_Att
5405: ,p_delete => FND_API.G_TRUE
5406: ,x_return_status => l_return_status
5407: );
5408: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5410: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5411: RAISE FND_API.G_EXC_ERROR;
5412: END IF;
5405: ,p_delete => FND_API.G_TRUE
5406: ,x_return_status => l_return_status
5407: );
5408: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5410: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5411: RAISE FND_API.G_EXC_ERROR;
5412: END IF;
5413:
5406: ,x_return_status => l_return_status
5407: );
5408: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5410: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5411: RAISE FND_API.G_EXC_ERROR;
5412: END IF;
5413:
5414: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5407: );
5408: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5410: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5411: RAISE FND_API.G_EXC_ERROR;
5412: END IF;
5413:
5414: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5415: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Att
5412: END IF;
5413:
5414: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5415: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Att
5416: ,p_delete => FND_API.G_TRUE
5417: ,x_return_status => l_return_status
5418: );
5419: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5415: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Att
5416: ,p_delete => FND_API.G_TRUE
5417: ,x_return_status => l_return_status
5418: );
5419: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5421: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5422: RAISE FND_API.G_EXC_ERROR;
5423: END IF;
5416: ,p_delete => FND_API.G_TRUE
5417: ,x_return_status => l_return_status
5418: );
5419: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5421: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5422: RAISE FND_API.G_EXC_ERROR;
5423: END IF;
5424:
5417: ,x_return_status => l_return_status
5418: );
5419: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5421: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5422: RAISE FND_API.G_EXC_ERROR;
5423: END IF;
5424:
5425: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5418: );
5419: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5421: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5422: RAISE FND_API.G_EXC_ERROR;
5423: END IF;
5424:
5425: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5426: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Assoc
5423: END IF;
5424:
5425: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5426: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Assoc
5427: ,p_delete => FND_API.G_TRUE
5428: ,x_return_status => l_return_status
5429: );
5430: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5426: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Assoc
5427: ,p_delete => FND_API.G_TRUE
5428: ,x_return_status => l_return_status
5429: );
5430: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5432: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5433: RAISE FND_API.G_EXC_ERROR;
5434: END IF;
5427: ,p_delete => FND_API.G_TRUE
5428: ,x_return_status => l_return_status
5429: );
5430: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5432: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5433: RAISE FND_API.G_EXC_ERROR;
5434: END IF;
5435:
5428: ,x_return_status => l_return_status
5429: );
5430: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5432: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5433: RAISE FND_API.G_EXC_ERROR;
5434: END IF;
5435:
5436: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5429: );
5430: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5432: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5433: RAISE FND_API.G_EXC_ERROR;
5434: END IF;
5435:
5436: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5437: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
5434: END IF;
5435:
5436: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5437: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
5438: ,p_delete => FND_API.G_TRUE
5439: ,x_return_status => l_return_status
5440: );
5441: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5437: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
5438: ,p_delete => FND_API.G_TRUE
5439: ,x_return_status => l_return_status
5440: );
5441: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5443: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5444: RAISE FND_API.G_EXC_ERROR;
5445: END IF;
5438: ,p_delete => FND_API.G_TRUE
5439: ,x_return_status => l_return_status
5440: );
5441: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5443: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5444: RAISE FND_API.G_EXC_ERROR;
5445: END IF;
5446:
5439: ,x_return_status => l_return_status
5440: );
5441: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5443: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5444: RAISE FND_API.G_EXC_ERROR;
5445: END IF;
5446:
5447: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5440: );
5441: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5443: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5444: RAISE FND_API.G_EXC_ERROR;
5445: END IF;
5446:
5447: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5448: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_PAYMENT
5445: END IF;
5446:
5447: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5448: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_PAYMENT
5449: ,p_delete => FND_API.G_TRUE
5450: ,x_return_status => l_return_status
5451: );
5452: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5448: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_PAYMENT
5449: ,p_delete => FND_API.G_TRUE
5450: ,x_return_status => l_return_status
5451: );
5452: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5454: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5455: RAISE FND_API.G_EXC_ERROR;
5456: END IF;
5449: ,p_delete => FND_API.G_TRUE
5450: ,x_return_status => l_return_status
5451: );
5452: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5454: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5455: RAISE FND_API.G_EXC_ERROR;
5456: END IF;
5457:
5450: ,x_return_status => l_return_status
5451: );
5452: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5454: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5455: RAISE FND_API.G_EXC_ERROR;
5456: END IF;
5457:
5458: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5451: );
5452: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5454: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5455: RAISE FND_API.G_EXC_ERROR;
5456: END IF;
5457:
5458: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5459: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
5456: END IF;
5457:
5458: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5459: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
5460: ,p_delete => FND_API.G_TRUE
5461: ,x_return_status => l_return_status
5462: );
5463: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5459: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
5460: ,p_delete => FND_API.G_TRUE
5461: ,x_return_status => l_return_status
5462: );
5463: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5465: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5466: RAISE FND_API.G_EXC_ERROR;
5467: END IF;
5460: ,p_delete => FND_API.G_TRUE
5461: ,x_return_status => l_return_status
5462: );
5463: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5465: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5466: RAISE FND_API.G_EXC_ERROR;
5467: END IF;
5468:
5461: ,x_return_status => l_return_status
5462: );
5463: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5465: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5466: RAISE FND_API.G_EXC_ERROR;
5467: END IF;
5468:
5469: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5462: );
5463: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5465: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5466: RAISE FND_API.G_EXC_ERROR;
5467: END IF;
5468:
5469: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5470: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
5467: END IF;
5468:
5469: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5470: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
5471: ,p_delete => FND_API.G_TRUE
5472: ,x_return_status => l_return_status
5473: );
5474: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5470: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
5471: ,p_delete => FND_API.G_TRUE
5472: ,x_return_status => l_return_status
5473: );
5474: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5476: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5477: RAISE FND_API.G_EXC_ERROR;
5478: END IF;
5471: ,p_delete => FND_API.G_TRUE
5472: ,x_return_status => l_return_status
5473: );
5474: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5476: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5477: RAISE FND_API.G_EXC_ERROR;
5478: END IF;
5479:
5472: ,x_return_status => l_return_status
5473: );
5474: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5476: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5477: RAISE FND_API.G_EXC_ERROR;
5478: END IF;
5479:
5480: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5473: );
5474: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5476: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5477: RAISE FND_API.G_EXC_ERROR;
5478: END IF;
5479:
5480: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5481: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Scredit
5478: END IF;
5479:
5480: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5481: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Scredit
5482: ,p_delete => FND_API.G_TRUE
5483: ,x_return_status => l_return_status
5484: );
5485: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5481: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Scredit
5482: ,p_delete => FND_API.G_TRUE
5483: ,x_return_status => l_return_status
5484: );
5485: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5487: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5488: RAISE FND_API.G_EXC_ERROR;
5489: END IF;
5482: ,p_delete => FND_API.G_TRUE
5483: ,x_return_status => l_return_status
5484: );
5485: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5487: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5488: RAISE FND_API.G_EXC_ERROR;
5489: END IF;
5490:
5483: ,x_return_status => l_return_status
5484: );
5485: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5487: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5488: RAISE FND_API.G_EXC_ERROR;
5489: END IF;
5490:
5491: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5484: );
5485: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5487: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5488: RAISE FND_API.G_EXC_ERROR;
5489: END IF;
5490:
5491: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5492: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_PAYMENT
5489: END IF;
5490:
5491: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5492: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_PAYMENT
5493: ,p_delete => FND_API.G_TRUE
5494: ,x_return_status => l_return_status
5495: );
5496: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5492: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_PAYMENT
5493: ,p_delete => FND_API.G_TRUE
5494: ,x_return_status => l_return_status
5495: );
5496: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5498: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5499: RAISE FND_API.G_EXC_ERROR;
5500: END IF;
5493: ,p_delete => FND_API.G_TRUE
5494: ,x_return_status => l_return_status
5495: );
5496: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5498: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5499: RAISE FND_API.G_EXC_ERROR;
5500: END IF;
5501:
5494: ,x_return_status => l_return_status
5495: );
5496: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5498: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5499: RAISE FND_API.G_EXC_ERROR;
5500: END IF;
5501:
5502: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5495: );
5496: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5498: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5499: RAISE FND_API.G_EXC_ERROR;
5500: END IF;
5501:
5502: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5503: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
5500: END IF;
5501:
5502: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5503: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
5504: ,p_delete => FND_API.G_TRUE
5505: ,x_return_status => l_return_status
5506: );
5507: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5503: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
5504: ,p_delete => FND_API.G_TRUE
5505: ,x_return_status => l_return_status
5506: );
5507: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5509: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5510: RAISE FND_API.G_EXC_ERROR;
5511: END IF;
5504: ,p_delete => FND_API.G_TRUE
5505: ,x_return_status => l_return_status
5506: );
5507: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5509: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5510: RAISE FND_API.G_EXC_ERROR;
5511: END IF;
5512:
5505: ,x_return_status => l_return_status
5506: );
5507: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5509: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5510: RAISE FND_API.G_EXC_ERROR;
5511: END IF;
5512:
5513: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5506: );
5507: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5509: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5510: RAISE FND_API.G_EXC_ERROR;
5511: END IF;
5512:
5513: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5514: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Att
5511: END IF;
5512:
5513: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5514: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Att
5515: ,p_delete => FND_API.G_TRUE
5516: ,x_return_status => l_return_status
5517: );
5518: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5514: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Att
5515: ,p_delete => FND_API.G_TRUE
5516: ,x_return_status => l_return_status
5517: );
5518: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5520: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5521: RAISE FND_API.G_EXC_ERROR;
5522: END IF;
5515: ,p_delete => FND_API.G_TRUE
5516: ,x_return_status => l_return_status
5517: );
5518: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5520: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5521: RAISE FND_API.G_EXC_ERROR;
5522: END IF;
5523:
5516: ,x_return_status => l_return_status
5517: );
5518: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5520: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5521: RAISE FND_API.G_EXC_ERROR;
5522: END IF;
5523:
5524: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5517: );
5518: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5520: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5521: RAISE FND_API.G_EXC_ERROR;
5522: END IF;
5523:
5524: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5525: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Assoc
5522: END IF;
5523:
5524: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5525: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Assoc
5526: ,p_delete => FND_API.G_TRUE
5527: ,x_return_status => l_return_status
5528: );
5529: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5525: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Assoc
5526: ,p_delete => FND_API.G_TRUE
5527: ,x_return_status => l_return_status
5528: );
5529: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5531: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5532: RAISE FND_API.G_EXC_ERROR;
5533: END IF;
5526: ,p_delete => FND_API.G_TRUE
5527: ,x_return_status => l_return_status
5528: );
5529: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5531: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5532: RAISE FND_API.G_EXC_ERROR;
5533: END IF;
5534:
5527: ,x_return_status => l_return_status
5528: );
5529: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5531: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5532: RAISE FND_API.G_EXC_ERROR;
5533: END IF;
5534:
5535: -- Execute all remaining delayed requests. This would execute
5528: );
5529: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5531: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5532: RAISE FND_API.G_EXC_ERROR;
5533: END IF;
5534:
5535: -- Execute all remaining delayed requests. This would execute
5536: -- requests logged against entity G_ENTITY_HEADER and G_ENTITY_ALL
5538: OE_DELAYED_REQUESTS_PVT.Process_Delayed_Requests(
5539: x_return_status => l_return_status
5540: );
5541:
5542: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5544: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5545: RAISE FND_API.G_EXC_ERROR;
5546: END IF;
5539: x_return_status => l_return_status
5540: );
5541:
5542: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5544: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5545: RAISE FND_API.G_EXC_ERROR;
5546: END IF;
5547:
5540: );
5541:
5542: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5544: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5545: RAISE FND_API.G_EXC_ERROR;
5546: END IF;
5547:
5548:
5541:
5542: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5544: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5545: RAISE FND_API.G_EXC_ERROR;
5546: END IF;
5547:
5548:
5549: END IF; --End of requests processing
5565: END IF;
5566:
5567: OE_SERVICE_UTIL.Notify_OC
5568: ( p_api_version_number => 1.0
5569: , p_init_msg_list => FND_API.G_FALSE
5570: , x_return_status => l_return_status
5571: , x_msg_count => l_msg_count
5572: , x_msg_data => l_msg_data
5573: , p_header_rec => p_header_rec
5606:
5607: IF l_debug_level > 0 THEN
5608: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
5609: END IF;
5610: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5612: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5613: RAISE FND_API.G_EXC_ERROR;
5614: END IF;
5607: IF l_debug_level > 0 THEN
5608: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
5609: END IF;
5610: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5612: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5613: RAISE FND_API.G_EXC_ERROR;
5614: END IF;
5615: END IF; --p_notify
5608: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
5609: END IF;
5610: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5612: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5613: RAISE FND_API.G_EXC_ERROR;
5614: END IF;
5615: END IF; --p_notify
5616:
5609: END IF;
5610: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5612: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5613: RAISE FND_API.G_EXC_ERROR;
5614: END IF;
5615: END IF; --p_notify
5616:
5617: IF l_debug_level > 0 THEN
5639: p_header_rec.order_source_id In (0,2,6,20) Then
5640:
5641: OE_Acknowledgment_Pvt.Process_Acknowledgment
5642: (p_api_version_number => 1
5643: ,p_init_msg_list => FND_API.G_FALSE
5644: ,p_header_rec => p_header_rec
5645: ,p_header_adj_tbl => p_header_adj_tbl
5646: ,p_header_Scredit_tbl => p_header_scredit_tbl
5647: ,p_line_tbl => p_line_tbl
5663: );
5664:
5665: End If;
5666:
5667: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5669: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5670: RAISE FND_API.G_EXC_ERROR;
5671: x_return_status := l_return_status;
5664:
5665: End If;
5666:
5667: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5669: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5670: RAISE FND_API.G_EXC_ERROR;
5671: x_return_status := l_return_status;
5672: END IF;
5665: End If;
5666:
5667: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5669: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5670: RAISE FND_API.G_EXC_ERROR;
5671: x_return_status := l_return_status;
5672: END IF;
5673: END IF; -- p_notify and p_process_ack
5666:
5667: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5669: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5670: RAISE FND_API.G_EXC_ERROR;
5671: x_return_status := l_return_status;
5672: END IF;
5673: END IF; -- p_notify and p_process_ack
5674:
5693:
5694: /*check global pictures, to see if there's any record in the seven key entities*/
5695:
5696: IF ( OE_ORDER_UTIL.g_header_rec.header_id is not null
5697: OR OE_ORDER_UTIL.g_header_rec.header_id <> FND_API.G_MISS_NUM
5698: OR OE_ORDER_UTIL.g_header_adj_tbl.count >0
5699: OR OE_ORDER_UTIL.g_Header_Scredit_tbl.count >0
5700: -- OR OE_ORDER_UTIL.g_Header_Payment_tbl.count >0
5701: OR OE_ORDER_UTIL.g_line_tbl.count >0
5712:
5713: l_index := 1;
5714:
5715: IF ( OE_ORDER_UTIL.g_header_rec.header_id is not null
5716: AND OE_ORDER_UTIL.g_header_rec.header_id <> FND_API.G_MISS_NUM) THEN
5717: l_header_id := OE_ORDER_UTIL.g_header_rec.header_id;
5718:
5719: IF l_debug_level > 0 THEN
5720: oe_debug_pub.add('header id in g_header_rec is: ' || l_header_id ) ;
5819: IF l_debug_level > 0 THEN
5820: oe_debug_pub.add( 'header id is: ' || l_header_id ) ;
5821: END IF;
5822:
5823: IF (l_header_id is not null AND l_header_id <> FND_API.G_MISS_NUM) THEN
5824:
5825: IF l_debug_level > 0 THEN
5826: oe_debug_pub.add('Just before calling Load_Order_Header');
5827: END IF;
5842: END IF;
5843:
5844: OE_SERVICE_UTIL.Notify_OC
5845: ( p_api_version_number => 1.0
5846: , p_init_msg_list => FND_API.G_FALSE
5847: , x_return_status => l_return_status
5848: , x_msg_count => l_msg_count
5849: , x_msg_data => l_msg_data
5850: , p_header_rec => OE_ORDER_UTIL.g_header_rec
5869:
5870: IF l_debug_level > 0 THEN
5871: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
5872: END IF;
5873: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5875: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5876: RAISE FND_API.G_EXC_ERROR;
5877: END IF;
5870: IF l_debug_level > 0 THEN
5871: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
5872: END IF;
5873: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5875: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5876: RAISE FND_API.G_EXC_ERROR;
5877: END IF;
5878:
5871: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
5872: END IF;
5873: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5875: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5876: RAISE FND_API.G_EXC_ERROR;
5877: END IF;
5878:
5879:
5872: END IF;
5873: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5875: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5876: RAISE FND_API.G_EXC_ERROR;
5877: END IF;
5878:
5879:
5880: END IF;
5911:
5912:
5913: OE_Acknowledgment_Pub.Process_SSO
5914: (p_api_version_number => 1
5915: ,p_init_msg_list => FND_API.G_FALSE
5916: ,p_header_rec => OE_ORDER_CACHE.g_header_rec
5917: ,p_line_tbl => OE_ORDER_UTIL.g_line_tbl
5918: ,p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec
5919: ,p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl
5934: Elsif l_edi_ack_pfile = 'NO' And
5935: OE_ORDER_CACHE.g_header_rec.order_source_id in (0,2,6) Then
5936: OE_Acknowledgment_Pvt.Process_Acknowledgment
5937: (p_api_version_number => 1
5938: ,p_init_msg_list => FND_API.G_FALSE
5939: ,p_header_rec => OE_ORDER_UTIL.g_header_rec
5940: ,p_header_adj_tbl => OE_ORDER_UTIL.g_header_adj_tbl
5941: ,p_header_Scredit_tbl => OE_ORDER_UTIL.g_header_scredit_tbl
5942: ,p_line_tbl => OE_ORDER_UTIL.g_line_tbl
5960: End If;
5961: -- End of If order_source_id = 20 }
5962: -- End 3A6 changes}
5963:
5964: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5965: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5966: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5967: RAISE FND_API.G_EXC_ERROR;
5968: x_return_status := l_return_status;
5961: -- End of If order_source_id = 20 }
5962: -- End 3A6 changes}
5963:
5964: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5965: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5966: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5967: RAISE FND_API.G_EXC_ERROR;
5968: x_return_status := l_return_status;
5969: END IF;
5962: -- End 3A6 changes}
5963:
5964: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5965: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5966: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5967: RAISE FND_API.G_EXC_ERROR;
5968: x_return_status := l_return_status;
5969: END IF;
5970:
5963:
5964: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5965: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5966: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5967: RAISE FND_API.G_EXC_ERROR;
5968: x_return_status := l_return_status;
5969: END IF;
5970:
5971: END IF;
5981: IF NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'), 'N') = 'Y' AND
5982: oe_order_cache.g_header_rec.booked_flag = 'Y' AND
5983: OE_ORDER_UTIL.G_Recursion_Without_Exception = 'N'
5984: -- AND p_header_rec.header_id IS NOT NULL AND
5985: --p_header_rec.header_id <> FND_API.G_MISS_NUM
5986: THEN
5987: OE_DBI_UTIL.Update_DBI_Log( x_return_status => l_return_status);
5988:
5989: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5985: --p_header_rec.header_id <> FND_API.G_MISS_NUM
5986: THEN
5987: OE_DBI_UTIL.Update_DBI_Log( x_return_status => l_return_status);
5988:
5989: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5991: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5992: RAISE FND_API.G_EXC_ERROR;
5993: x_return_status := l_return_status;
5986: THEN
5987: OE_DBI_UTIL.Update_DBI_Log( x_return_status => l_return_status);
5988:
5989: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5991: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5992: RAISE FND_API.G_EXC_ERROR;
5993: x_return_status := l_return_status;
5994: END IF;
5987: OE_DBI_UTIL.Update_DBI_Log( x_return_status => l_return_status);
5988:
5989: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5991: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5992: RAISE FND_API.G_EXC_ERROR;
5993: x_return_status := l_return_status;
5994: END IF;
5995: END IF;
5988:
5989: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5991: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5992: RAISE FND_API.G_EXC_ERROR;
5993: x_return_status := l_return_status;
5994: END IF;
5995: END IF;
5996: -- DBI project changes end
6035:
6036:
6037: EXCEPTION
6038:
6039: WHEN FND_API.G_EXC_ERROR THEN
6040:
6041: set_recursion_mode(p_Entity_Code => 8,
6042: p_In_out => 0);
6043: x_return_status := FND_API.G_RET_STS_ERROR;
6039: WHEN FND_API.G_EXC_ERROR THEN
6040:
6041: set_recursion_mode(p_Entity_Code => 8,
6042: p_In_out => 0);
6043: x_return_status := FND_API.G_RET_STS_ERROR;
6044: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
6045: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
6046: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
6047: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
6047: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
6048: END IF;
6049: END IF;
6050:
6051: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6052:
6053: set_recursion_mode(p_Entity_Code => 8,
6054: p_In_out => 0);
6055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6051: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6052:
6053: set_recursion_mode(p_Entity_Code => 8,
6054: p_In_out => 0);
6055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6056: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
6057: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
6058: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
6059: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
6066: p_In_out => 0);
6067: IF l_debug_level > 0 THEN
6068: oe_debug_pub.add( 'PO: EXITING PROCESS_REQUESTS_AND_NOTIFY WITH OTHERS ERROR' , 2 ) ;
6069: END IF;
6070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6071: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
6072: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
6073: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
6074: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
6085: END Process_Requests_And_Notify;
6086:
6087: PROCEDURE Process_Order_AG
6088: ( p_api_version_number IN NUMBER
6089: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
6090: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6091: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
6092: OE_GLOBALS.G_MISS_CONTROL_REC
6093: , x_return_status OUT NOCOPY VARCHAR2
6086:
6087: PROCEDURE Process_Order_AG
6088: ( p_api_version_number IN NUMBER
6089: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
6090: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6091: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
6092: OE_GLOBALS.G_MISS_CONTROL_REC
6093: , x_return_status OUT NOCOPY VARCHAR2
6094:
6145: OE_Order_PUB.G_MISS_LOT_SERIAL_VAL_TBL
6146: , p_old_Lot_Serial_val_tbl IN OE_Order_PUB.Lot_Serial_Val_Tbl_Type :=
6147: OE_Order_PUB.G_MISS_LOT_SERIAL_VAL_TBL
6148: , p_x_action_request_tbl IN OUT NOCOPY OE_Order_PUB.request_tbl_type
6149: , p_action_commit IN VARCHAR2 := FND_API.G_FALSE
6150: )
6151: IS
6152: l_api_version_number CONSTANT NUMBER := 1.0;
6153: l_control_rec OE_GLOBALS.Control_Rec_Type := p_control_rec;
6180: oe_debug_pub.add( 'ENTER PROCESS_ORDER_AG' , 1 ) ;
6181: END IF;
6182:
6183: -- Initialize x_return_status
6184: x_return_status := FND_API.G_RET_STS_SUCCESS;
6185: fnd_profile.get('ONT_NEW_EDI_ACK_FWK', l_edi_ack_pfile);
6186: l_edi_ack_pfile := nvl(l_edi_ack_pfile, 'NO');
6187:
6188: -- Init local table variables for old tables as these are only
6217:
6218: --Bug 2790512: Prevent processing of header if operation is invalid
6219: --Bug 2878121: Ignore NULL operation code
6220: IF p_x_header_rec.header_id is NOT NULL AND
6221: p_x_header_rec.header_id <> FND_API.G_MISS_NUM THEN
6222: IF p_x_header_rec.operation IS NOT NULL AND
6223: p_x_header_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
6224: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
6225: OE_GLOBALS.G_OPR_NONE) THEN
6224: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
6225: OE_GLOBALS.G_OPR_NONE) THEN
6226: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
6227: OE_MSG_PUB.Add;
6228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6229: END IF;
6230: END IF;
6231:
6232: IF p_x_header_rec.operation IS NOT NULL
6250: );
6251:
6252: OE_Validate_Header_Scredit.G_Create_Auto_Sales_Credit := 'Y';
6253:
6254: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6256: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6257: RAISE FND_API.G_EXC_ERROR;
6258: END IF;
6251:
6252: OE_Validate_Header_Scredit.G_Create_Auto_Sales_Credit := 'Y';
6253:
6254: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6256: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6257: RAISE FND_API.G_EXC_ERROR;
6258: END IF;
6259: END IF;
6252: OE_Validate_Header_Scredit.G_Create_Auto_Sales_Credit := 'Y';
6253:
6254: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6256: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6257: RAISE FND_API.G_EXC_ERROR;
6258: END IF;
6259: END IF;
6260: IF l_debug_level > 0 THEN
6253:
6254: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6256: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6257: RAISE FND_API.G_EXC_ERROR;
6258: END IF;
6259: END IF;
6260: IF l_debug_level > 0 THEN
6261: oe_debug_pub.add( 'AFTER HEADER PROCESSING HEADER_ID = '|| TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) , 2 ) ;
6290: END IF;
6291:
6292: IF p_x_header_adj_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6293: AND (p_x_header_adj_tbl(I).header_id IS NULL OR
6294: p_x_header_adj_tbl(I).header_id = FND_API.G_MISS_NUM)
6295: THEN
6296: IF p_x_header_rec.header_id IS NULL OR
6297: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6298: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6293: AND (p_x_header_adj_tbl(I).header_id IS NULL OR
6294: p_x_header_adj_tbl(I).header_id = FND_API.G_MISS_NUM)
6295: THEN
6296: IF p_x_header_rec.header_id IS NULL OR
6297: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6298: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6299: OE_MSG_PUB.Add;
6300: RAISE FND_API.G_EXC_ERROR;
6301: ELSE
6296: IF p_x_header_rec.header_id IS NULL OR
6297: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6298: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6299: OE_MSG_PUB.Add;
6300: RAISE FND_API.G_EXC_ERROR;
6301: ELSE
6302: -- Copy parent_id.
6303: p_x_header_adj_tbl(I).header_id := p_x_header_rec.header_id;
6304: END IF;
6306:
6307: -- This is added to prevent invalid upgraded orders
6308: IF I = p_x_header_adj_tbl.FIRST THEN
6309: IF (p_x_header_adj_tbl(I).header_id IS NOT NULL AND
6310: p_x_header_adj_tbl(I).header_id <> FND_API.G_MISS_NUM) THEN
6311: IF NOT Valid_Upgraded_Order(p_x_header_adj_tbl(I).header_id ) THEN
6312: RAISE FND_API.G_EXC_ERROR;
6313: END IF;
6314: END IF;
6308: IF I = p_x_header_adj_tbl.FIRST THEN
6309: IF (p_x_header_adj_tbl(I).header_id IS NOT NULL AND
6310: p_x_header_adj_tbl(I).header_id <> FND_API.G_MISS_NUM) THEN
6311: IF NOT Valid_Upgraded_Order(p_x_header_adj_tbl(I).header_id ) THEN
6312: RAISE FND_API.G_EXC_ERROR;
6313: END IF;
6314: END IF;
6315:
6316: END IF;
6345: THEN
6346:
6347: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6348: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_ADJ
6349: ,p_delete => FND_API.G_TRUE
6350: ,x_return_status => l_return_status
6351: );
6352: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6348: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_ADJ
6349: ,p_delete => FND_API.G_TRUE
6350: ,x_return_status => l_return_status
6351: );
6352: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6354: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6355: RAISE FND_API.G_EXC_ERROR;
6356: END IF;
6349: ,p_delete => FND_API.G_TRUE
6350: ,x_return_status => l_return_status
6351: );
6352: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6354: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6355: RAISE FND_API.G_EXC_ERROR;
6356: END IF;
6357:
6350: ,x_return_status => l_return_status
6351: );
6352: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6354: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6355: RAISE FND_API.G_EXC_ERROR;
6356: END IF;
6357:
6358:
6351: );
6352: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6354: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6355: RAISE FND_API.G_EXC_ERROR;
6356: END IF;
6357:
6358:
6359: END IF;
6373: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_PRICE_ATT_TBL' , 2 ) ;
6374: END IF;
6375: IF p_x_header_price_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6376: AND (p_x_header_price_att_tbl(I).header_id IS NULL OR
6377: p_x_header_price_att_tbl(I).header_id = FND_API.G_MISS_NUM)
6378: THEN
6379: IF p_x_header_rec.header_id IS NULL OR
6380: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6381: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6376: AND (p_x_header_price_att_tbl(I).header_id IS NULL OR
6377: p_x_header_price_att_tbl(I).header_id = FND_API.G_MISS_NUM)
6378: THEN
6379: IF p_x_header_rec.header_id IS NULL OR
6380: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6381: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6382: OE_MSG_PUB.Add;
6383: RAISE FND_API.G_EXC_ERROR;
6384: ELSE
6379: IF p_x_header_rec.header_id IS NULL OR
6380: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6381: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6382: OE_MSG_PUB.Add;
6383: RAISE FND_API.G_EXC_ERROR;
6384: ELSE
6385:
6386: -- Copy parent_id.
6387:
6419: THEN
6420:
6421: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6422: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Price_Att
6423: ,p_delete => FND_API.G_TRUE
6424: ,x_return_status => l_return_status
6425: );
6426: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6422: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Price_Att
6423: ,p_delete => FND_API.G_TRUE
6424: ,x_return_status => l_return_status
6425: );
6426: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6428: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6429: RAISE FND_API.G_EXC_ERROR;
6430: END IF;
6423: ,p_delete => FND_API.G_TRUE
6424: ,x_return_status => l_return_status
6425: );
6426: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6428: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6429: RAISE FND_API.G_EXC_ERROR;
6430: END IF;
6431:
6424: ,x_return_status => l_return_status
6425: );
6426: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6428: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6429: RAISE FND_API.G_EXC_ERROR;
6430: END IF;
6431:
6432:
6425: );
6426: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6428: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6429: RAISE FND_API.G_EXC_ERROR;
6430: END IF;
6431:
6432:
6433: END IF;
6447: oe_debug_pub.add( 'SETTING PRICE ADJUSTMENT ID ON HDR_ADJ_ATTBS' , 2 ) ;
6448: END IF;
6449: IF p_x_header_adj_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6450: AND (p_x_header_adj_att_tbl(I).price_adjustment_id IS NULL OR
6451: p_x_header_adj_att_tbl(I).price_adjustment_id = FND_API.G_MISS_NUM)
6452: THEN
6453:
6454: IF p_x_header_adj_Tbl.exists(p_x_header_adj_att_tbl(I).Adj_index)
6455: Then
6462: THEN
6463: IF l_debug_level > 0 THEN
6464: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( P_X_HEADER_ADJ_ATT_TBL ( I ) .ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
6465: END IF;
6466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6467: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
6468: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Attribs');
6469: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
6470: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_header_adj_att_tbl(I).adj_index);
6510: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_ADJ_ASSOC_TBL' , 2 ) ;
6511: END IF;
6512: IF p_x_header_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6513: AND (p_x_header_adj_assoc_tbl(I).Price_Adjustment_id IS NULL OR
6514: p_x_header_adj_assoc_tbl(I).Price_Adjustment_id = FND_API.G_MISS_NUM)
6515: THEN
6516:
6517: IF p_x_header_adj_Tbl.exists(p_x_header_adj_assoc_tbl(I).Adj_Index) Then
6518: -- Copy parent_id.
6524: THEN
6525: IF l_debug_level > 0 THEN
6526: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( P_X_HEADER_ADJ_ASSOC_TBL ( I ) .ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
6527: END IF;
6528: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6529: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
6530: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Assocs');
6531: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
6532: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_header_adj_assoc_tbl(I).adj_index);
6537: END IF;
6538:
6539: IF p_x_header_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6540: AND (p_x_header_adj_assoc_tbl(I).rltd_Price_Adj_Id IS NULL OR
6541: p_x_header_adj_assoc_tbl(I).rltd_Price_Adj_Id = FND_API.G_MISS_NUM)
6542: THEN
6543:
6544: IF p_x_header_adj_Tbl.exists(p_x_header_adj_assoc_tbl(I).Rltd_Adj_Index) Then
6545: -- Copy parent_id.
6586: oe_debug_pub.add( 'SETTING HEADER_ID ON HEADER_SCREDIT_TBL' , 2 ) ;
6587: END IF;
6588: IF p_x_header_scredit_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6589: AND (p_x_header_scredit_tbl(I).header_id IS NULL OR
6590: p_x_header_scredit_tbl(I).header_id = FND_API.G_MISS_NUM)
6591: THEN
6592:
6593: IF p_x_header_rec.header_id IS NULL OR
6594: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6590: p_x_header_scredit_tbl(I).header_id = FND_API.G_MISS_NUM)
6591: THEN
6592:
6593: IF p_x_header_rec.header_id IS NULL OR
6594: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6595: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6596: OE_MSG_PUB.Add;
6597: RAISE FND_API.G_EXC_ERROR;
6598: ELSE
6593: IF p_x_header_rec.header_id IS NULL OR
6594: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6595: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6596: OE_MSG_PUB.Add;
6597: RAISE FND_API.G_EXC_ERROR;
6598: ELSE
6599: -- Copy parent_id.
6600:
6601: p_x_header_scredit_tbl(I).header_id := p_x_header_rec.header_id;
6618: , p_x_Header_Scredit_tbl => p_x_header_scredit_tbl
6619: , p_x_old_Header_Scredit_tbl => l_old_header_Scredit_tbl
6620: , x_return_status => l_return_status
6621: );
6622: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6624: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6625: IF p_control_rec.process_partial THEN
6626: x_return_status := FND_API.G_RET_STS_ERROR;
6619: , p_x_old_Header_Scredit_tbl => l_old_header_Scredit_tbl
6620: , x_return_status => l_return_status
6621: );
6622: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6624: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6625: IF p_control_rec.process_partial THEN
6626: x_return_status := FND_API.G_RET_STS_ERROR;
6627: ELSE
6620: , x_return_status => l_return_status
6621: );
6622: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6624: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6625: IF p_control_rec.process_partial THEN
6626: x_return_status := FND_API.G_RET_STS_ERROR;
6627: ELSE
6628: RAISE FND_API.G_EXC_ERROR;
6622: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6624: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6625: IF p_control_rec.process_partial THEN
6626: x_return_status := FND_API.G_RET_STS_ERROR;
6627: ELSE
6628: RAISE FND_API.G_EXC_ERROR;
6629: END IF;
6630: END IF;
6624: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6625: IF p_control_rec.process_partial THEN
6626: x_return_status := FND_API.G_RET_STS_ERROR;
6627: ELSE
6628: RAISE FND_API.G_EXC_ERROR;
6629: END IF;
6630: END IF;
6631: IF l_debug_level > 0 THEN
6632: oe_debug_pub.add( 'AFTER HEADER_SCREDITS PROCESSING' , 2 ) ;
6643: THEN
6644:
6645: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6646: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
6647: ,p_delete => FND_API.G_TRUE
6648: ,x_return_status => l_return_status
6649: );
6650: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6646: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
6647: ,p_delete => FND_API.G_TRUE
6648: ,x_return_status => l_return_status
6649: );
6650: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6652: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6653: RAISE FND_API.G_EXC_ERROR;
6654: END IF;
6647: ,p_delete => FND_API.G_TRUE
6648: ,x_return_status => l_return_status
6649: );
6650: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6652: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6653: RAISE FND_API.G_EXC_ERROR;
6654: END IF;
6655:
6648: ,x_return_status => l_return_status
6649: );
6650: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6652: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6653: RAISE FND_API.G_EXC_ERROR;
6654: END IF;
6655:
6656: END IF;
6649: );
6650: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6652: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6653: RAISE FND_API.G_EXC_ERROR;
6654: END IF;
6655:
6656: END IF;
6657:
6666: IF p_x_line_tbl.COUNT > 0 THEN
6667:
6668: For k in p_x_line_tbl.first .. p_x_line_tbl.last LOOP
6669:
6670: IF (p_x_line_tbl(k).header_id = FND_API.G_MISS_NUM
6671: OR p_x_line_tbl(k).header_id is null ) THEN
6672:
6673: -- Kris do not loop through the lines unless they have the right header_id
6674: -- If people pass in a header_id with a bogus value, the record should be ignored
6697: oe_debug_pub.add( 'SETTING HEADER_ID ON HEADER_PAYMENT_TBL' , 2 ) ;
6698: END IF;
6699: IF p_x_header_payment_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6700: AND (p_x_header_payment_tbl(I).header_id IS NULL OR
6701: p_x_header_payment_tbl(I).header_id = FND_API.G_MISS_NUM)
6702: THEN
6703:
6704: IF p_x_header_rec.header_id IS NULL OR
6705: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6701: p_x_header_payment_tbl(I).header_id = FND_API.G_MISS_NUM)
6702: THEN
6703:
6704: IF p_x_header_rec.header_id IS NULL OR
6705: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6706: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6707: OE_MSG_PUB.Add;
6708: RAISE FND_API.G_EXC_ERROR;
6709: ELSE
6704: IF p_x_header_rec.header_id IS NULL OR
6705: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6706: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6707: OE_MSG_PUB.Add;
6708: RAISE FND_API.G_EXC_ERROR;
6709: ELSE
6710: -- Copy parent_id.
6711:
6712: p_x_header_payment_tbl(I).header_id := p_x_header_rec.header_id;
6729: , p_x_Header_Payment_tbl => p_x_header_Payment_tbl
6730: , p_x_old_Header_Payment_tbl => l_old_header_Payment_tbl
6731: , x_return_status => l_return_status
6732: );
6733: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6735: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6736: IF p_control_rec.process_partial THEN
6737: x_return_status := FND_API.G_RET_STS_ERROR;
6730: , p_x_old_Header_Payment_tbl => l_old_header_Payment_tbl
6731: , x_return_status => l_return_status
6732: );
6733: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6735: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6736: IF p_control_rec.process_partial THEN
6737: x_return_status := FND_API.G_RET_STS_ERROR;
6738: ELSE
6731: , x_return_status => l_return_status
6732: );
6733: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6735: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6736: IF p_control_rec.process_partial THEN
6737: x_return_status := FND_API.G_RET_STS_ERROR;
6738: ELSE
6739: RAISE FND_API.G_EXC_ERROR;
6733: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6735: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6736: IF p_control_rec.process_partial THEN
6737: x_return_status := FND_API.G_RET_STS_ERROR;
6738: ELSE
6739: RAISE FND_API.G_EXC_ERROR;
6740: END IF;
6741: END IF;
6735: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6736: IF p_control_rec.process_partial THEN
6737: x_return_status := FND_API.G_RET_STS_ERROR;
6738: ELSE
6739: RAISE FND_API.G_EXC_ERROR;
6740: END IF;
6741: END IF;
6742: IF l_debug_level > 0 THEN
6743: oe_debug_pub.add( 'AFTER HEADER_PAYMENTS PROCESSING' , 2 ) ;
6754: THEN
6755:
6756: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6757: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Payment
6758: ,p_delete => FND_API.G_TRUE
6759: ,x_return_status => l_return_status
6760: );
6761: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6757: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Payment
6758: ,p_delete => FND_API.G_TRUE
6759: ,x_return_status => l_return_status
6760: );
6761: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6763: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6764: RAISE FND_API.G_EXC_ERROR;
6765: END IF;
6758: ,p_delete => FND_API.G_TRUE
6759: ,x_return_status => l_return_status
6760: );
6761: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6763: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6764: RAISE FND_API.G_EXC_ERROR;
6765: END IF;
6766:
6759: ,x_return_status => l_return_status
6760: );
6761: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6763: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6764: RAISE FND_API.G_EXC_ERROR;
6765: END IF;
6766:
6767: END IF;
6760: );
6761: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6763: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6764: RAISE FND_API.G_EXC_ERROR;
6765: END IF;
6766:
6767: END IF;
6768: END IF;
6781: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
6782: OE_GLOBALS.G_OPR_INSERT, OE_GLOBALS.G_OPR_NONE) THEN
6783: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
6784: OE_MSG_PUB.Add;
6785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6786: END IF;
6787:
6788: IF p_x_line_tbl(I).operation = oe_globals.g_opr_update
6789: AND p_x_line_tbl(I).split_action_code = 'SPLIT' THEN
6808: FND_MESSAGE.SET_NAME('ONT','OE_PC_SPLIT_VIOLATION');
6809: FND_MESSAGE.SET_TOKEN('OBJECT',p_x_line_tbl(I).line_id);
6810: FND_MESSAGE.SET_TOKEN('REASON','Line is in Negotiation Phase');
6811: OE_MSG_PUB.Add;
6812: RAISE FND_API.G_EXC_ERROR;
6813: ELSE
6814: l_call_split := TRUE;
6815: END IF;
6816: END IF;
6820: -- Retrieve the header ID, either from the header record
6821: -- or from the first line
6822: IF (I = p_x_line_tbl.FIRST) THEN
6823: IF (p_x_header_rec.header_id IS NOT NULL AND
6824: p_x_header_rec.header_id <> FND_API.G_MISS_NUM) THEN
6825: l_header_id := p_x_header_rec.header_id;
6826: ELSIF (p_x_line_tbl(I).header_id IS NOT NULL AND
6827: p_x_line_tbl(I).header_id <> FND_API.G_MISS_NUM) THEN
6828: l_header_id := p_x_line_tbl(I).header_id;
6823: IF (p_x_header_rec.header_id IS NOT NULL AND
6824: p_x_header_rec.header_id <> FND_API.G_MISS_NUM) THEN
6825: l_header_id := p_x_header_rec.header_id;
6826: ELSIF (p_x_line_tbl(I).header_id IS NOT NULL AND
6827: p_x_line_tbl(I).header_id <> FND_API.G_MISS_NUM) THEN
6828: l_header_id := p_x_line_tbl(I).header_id;
6829: END IF;
6830: END IF;
6831:
6830: END IF;
6831:
6832: IF p_x_line_tbl(I).operation <> OE_GLOBALS.G_OPR_CREATE
6833: AND (p_x_line_tbl(I).header_id IS NULL OR
6834: p_x_line_tbl(I).header_id = FND_API.G_MISS_NUM)
6835: THEN
6836: IF (l_header_id IS NOT NULL AND
6837: l_header_id <> FND_API.G_MISS_NUM) THEN
6838: p_x_line_tbl(I).header_id := l_header_id;
6833: AND (p_x_line_tbl(I).header_id IS NULL OR
6834: p_x_line_tbl(I).header_id = FND_API.G_MISS_NUM)
6835: THEN
6836: IF (l_header_id IS NOT NULL AND
6837: l_header_id <> FND_API.G_MISS_NUM) THEN
6838: p_x_line_tbl(I).header_id := l_header_id;
6839: ELSE
6840: oe_line_util.query_header
6841: (p_line_id => p_x_line_tbl(I).line_id,
6847: -- Copy the parent ID (header ID), if not passed, on
6848: -- the record for CREATE operations
6849: IF p_x_line_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE THEN
6850: IF (p_x_line_tbl(I).header_id IS NULL OR
6851: p_x_line_tbl(I).header_id = FND_API.G_MISS_NUM)
6852: THEN
6853: -- Copy parent_id.
6854: p_x_line_tbl(I).header_id := l_header_id;
6855: END IF;
6857:
6858: -- Raise error if the header ID for the line is different
6859: -- from header ID on the header record or other lines
6860: IF (l_header_id IS NOT NULL AND
6861: l_header_id <> FND_API.G_MISS_NUM) THEN
6862: IF p_x_line_tbl(I).header_id <> l_header_id THEN
6863: fnd_message.set_name('ONT', 'OE_HEADER_MISSING');
6864: oe_msg_pub.add;
6865: RAISE FND_API.G_EXC_ERROR;
6861: l_header_id <> FND_API.G_MISS_NUM) THEN
6862: IF p_x_line_tbl(I).header_id <> l_header_id THEN
6863: fnd_message.set_name('ONT', 'OE_HEADER_MISSING');
6864: oe_msg_pub.add;
6865: RAISE FND_API.G_EXC_ERROR;
6866: END IF;
6867: END IF;
6868:
6869: -- END: CHECK IF ALL LINES BELONG TO THE SAME ORDER
6895: , p_x_line_tbl => p_x_line_tbl
6896: , p_x_old_line_tbl => l_old_line_tbl
6897: , x_return_status => l_return_status
6898: );
6899: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6901: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6902: IF p_control_rec.process_partial THEN
6903: x_return_status := FND_API.G_RET_STS_ERROR;
6896: , p_x_old_line_tbl => l_old_line_tbl
6897: , x_return_status => l_return_status
6898: );
6899: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6901: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6902: IF p_control_rec.process_partial THEN
6903: x_return_status := FND_API.G_RET_STS_ERROR;
6904: ELSE
6897: , x_return_status => l_return_status
6898: );
6899: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6901: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6902: IF p_control_rec.process_partial THEN
6903: x_return_status := FND_API.G_RET_STS_ERROR;
6904: ELSE
6905: RAISE FND_API.G_EXC_ERROR;
6899: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6901: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6902: IF p_control_rec.process_partial THEN
6903: x_return_status := FND_API.G_RET_STS_ERROR;
6904: ELSE
6905: RAISE FND_API.G_EXC_ERROR;
6906: END IF;
6907: END IF;
6901: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6902: IF p_control_rec.process_partial THEN
6903: x_return_status := FND_API.G_RET_STS_ERROR;
6904: ELSE
6905: RAISE FND_API.G_EXC_ERROR;
6906: END IF;
6907: END IF;
6908: IF l_debug_level > 0 THEN
6909: oe_debug_pub.add( 'AFTER LINES PROCESSING' , 2 ) ;
6919: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE SC TABLE' ) ;
6920: END IF;
6921: IF p_x_line_scredit_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6922: AND (p_x_line_scredit_tbl(I).line_id IS NULL OR
6923: p_x_line_scredit_tbl(I).line_id = FND_API.G_MISS_NUM)
6924: THEN
6925: IF l_debug_level > 0 THEN
6926: oe_debug_pub.add( 'SETTING LINE IDS ON LINE SC TABLE' , 2 ) ;
6927: END IF;
6946: THEN
6947: IF l_debug_level > 0 THEN
6948: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON LINE SALES CREDITS' , 2 ) ;
6949: END IF;
6950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6951: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
6952: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Scredit');
6953: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
6954: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_line_scredit_tbl(I).line_index);
6970: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE SC TABLE' ) ;
6971: END IF;
6972: IF p_x_line_payment_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6973: AND (p_x_line_payment_tbl(I).line_id IS NULL OR
6974: p_x_line_payment_tbl(I).line_id = FND_API.G_MISS_NUM)
6975: THEN
6976: IF l_debug_level > 0 THEN
6977: oe_debug_pub.add( 'SETTING LINE IDS ON LINE PAYMENT TABLE' , 2 ) ;
6978: END IF;
6992: THEN
6993: IF l_debug_level > 0 THEN
6994: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON LINE SALES CREDITS' , 2 ) ;
6995: END IF;
6996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6997: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
6998: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Payment');
6999: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7000: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_line_payment_tbl(I).line_index);
7017: END IF;
7018:
7019: IF p_x_line_adj_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7020: AND (p_x_line_adj_tbl(I).line_id IS NULL OR
7021: p_x_line_adj_tbl(I).line_id = FND_API.G_MISS_NUM)
7022: THEN
7023:
7024: IF l_debug_level > 0 THEN
7025: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ADJ TABLE' , 2 ) ;
7025: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ADJ TABLE' , 2 ) ;
7026: END IF;
7027: -- Check If parent exists.
7028:
7029: IF p_x_line_adj_tbl(I).line_index <> fnd_api.g_miss_num and
7030: p_x_line_tbl.EXISTS(p_x_line_adj_tbl(I).line_index) THEN
7031:
7032: -- Copy parent_id.
7033:
7034: p_x_line_adj_tbl(I).line_id := p_x_line_tbl(p_x_Line_adj_tbl(I).line_index).line_id;
7035: p_x_line_adj_tbl(I).header_id := p_x_line_tbl(p_x_Line_adj_tbl(I).line_index).header_id;
7036:
7037: ELSIF p_x_line_adj_tbl(I).header_id is not null and
7038: p_x_line_adj_tbl(I).header_id <> FND_API.G_MISS_NUM Then
7039: -- Treat the adjustment record as a header_adjustment record
7040: IF l_debug_level > 0 THEN
7041: oe_debug_pub.add( 'TREATING THE RECORD AS HEADER_ADJUSTMENT' ) ;
7042: END IF;
7046: THEN
7047: IF l_debug_level > 0 THEN
7048: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
7049: END IF;
7050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7051:
7052: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7053: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj');
7054: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7074: END IF;
7075:
7076: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7077: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
7078: ,p_delete => FND_API.G_TRUE
7079: ,x_return_status => l_return_status
7080: );
7081: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7082: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7077: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
7078: ,p_delete => FND_API.G_TRUE
7079: ,x_return_status => l_return_status
7080: );
7081: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7082: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7083: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7084: RAISE FND_API.G_EXC_ERROR;
7085: END IF;
7078: ,p_delete => FND_API.G_TRUE
7079: ,x_return_status => l_return_status
7080: );
7081: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7082: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7083: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7084: RAISE FND_API.G_EXC_ERROR;
7085: END IF;
7086:
7079: ,x_return_status => l_return_status
7080: );
7081: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7082: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7083: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7084: RAISE FND_API.G_EXC_ERROR;
7085: END IF;
7086:
7087: END IF;
7080: );
7081: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7082: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7083: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7084: RAISE FND_API.G_EXC_ERROR;
7085: END IF;
7086:
7087: END IF;
7088:
7113: THEN
7114:
7115: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7116: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
7117: ,p_delete => FND_API.G_TRUE
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;
7116: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
7117: ,p_delete => FND_API.G_TRUE
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: RAISE FND_API.G_EXC_ERROR;
7124: END IF;
7117: ,p_delete => FND_API.G_TRUE
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: RAISE FND_API.G_EXC_ERROR;
7124: END IF;
7125:
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: RAISE FND_API.G_EXC_ERROR;
7124: END IF;
7125:
7126: END IF;
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: RAISE FND_API.G_EXC_ERROR;
7124: END IF;
7125:
7126: END IF;
7127:
7139: , p_x_Line_Scredit_tbl => p_x_line_scredit_tbl
7140: , p_x_old_Line_Scredit_tbl => l_old_line_Scredit_tbl
7141: , x_return_status => l_return_status
7142: );
7143: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7145: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7146: IF p_control_rec.process_partial THEN
7147: x_return_status := FND_API.G_RET_STS_ERROR;
7140: , p_x_old_Line_Scredit_tbl => l_old_line_Scredit_tbl
7141: , x_return_status => l_return_status
7142: );
7143: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7145: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7146: IF p_control_rec.process_partial THEN
7147: x_return_status := FND_API.G_RET_STS_ERROR;
7148: ELSE
7141: , x_return_status => l_return_status
7142: );
7143: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7145: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7146: IF p_control_rec.process_partial THEN
7147: x_return_status := FND_API.G_RET_STS_ERROR;
7148: ELSE
7149: RAISE FND_API.G_EXC_ERROR;
7143: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7145: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7146: IF p_control_rec.process_partial THEN
7147: x_return_status := FND_API.G_RET_STS_ERROR;
7148: ELSE
7149: RAISE FND_API.G_EXC_ERROR;
7150: END IF;
7151: END IF;
7145: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7146: IF p_control_rec.process_partial THEN
7147: x_return_status := FND_API.G_RET_STS_ERROR;
7148: ELSE
7149: RAISE FND_API.G_EXC_ERROR;
7150: END IF;
7151: END IF;
7152:
7153: END IF;
7165: END IF;
7166:
7167: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7168: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Scredit
7169: ,p_delete => FND_API.G_TRUE
7170: ,x_return_status => l_return_status
7171: );
7172:
7173: IF l_debug_level > 0 THEN
7173: IF l_debug_level > 0 THEN
7174: oe_debug_pub.add( 'PROCESSED DELAYED REQUESTS FOR LINES' , 2 ) ;
7175: END IF;
7176:
7177: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7179: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7180: RAISE FND_API.G_EXC_ERROR;
7181: END IF;
7174: oe_debug_pub.add( 'PROCESSED DELAYED REQUESTS FOR LINES' , 2 ) ;
7175: END IF;
7176:
7177: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7179: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7180: RAISE FND_API.G_EXC_ERROR;
7181: END IF;
7182:
7175: END IF;
7176:
7177: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7179: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7180: RAISE FND_API.G_EXC_ERROR;
7181: END IF;
7182:
7183: END IF;
7176:
7177: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7179: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7180: RAISE FND_API.G_EXC_ERROR;
7181: END IF;
7182:
7183: END IF;
7184:
7198: , p_x_Line_Payment_tbl => p_x_line_Payment_tbl
7199: , p_x_old_Line_Payment_tbl => l_old_line_Payment_tbl
7200: , x_return_status => l_return_status
7201: );
7202: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7204: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7205: IF p_control_rec.process_partial THEN
7206: x_return_status := FND_API.G_RET_STS_ERROR;
7199: , p_x_old_Line_Payment_tbl => l_old_line_Payment_tbl
7200: , x_return_status => l_return_status
7201: );
7202: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7204: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7205: IF p_control_rec.process_partial THEN
7206: x_return_status := FND_API.G_RET_STS_ERROR;
7207: ELSE
7200: , x_return_status => l_return_status
7201: );
7202: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7204: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7205: IF p_control_rec.process_partial THEN
7206: x_return_status := FND_API.G_RET_STS_ERROR;
7207: ELSE
7208: RAISE FND_API.G_EXC_ERROR;
7202: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7204: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7205: IF p_control_rec.process_partial THEN
7206: x_return_status := FND_API.G_RET_STS_ERROR;
7207: ELSE
7208: RAISE FND_API.G_EXC_ERROR;
7209: END IF;
7210: END IF;
7204: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7205: IF p_control_rec.process_partial THEN
7206: x_return_status := FND_API.G_RET_STS_ERROR;
7207: ELSE
7208: RAISE FND_API.G_EXC_ERROR;
7209: END IF;
7210: END IF;
7211:
7212: END IF;
7224: END IF;
7225:
7226: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7227: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_PAYMENT
7228: ,p_delete => FND_API.G_TRUE
7229: ,x_return_status => l_return_status
7230: );
7231:
7232: IF l_debug_level > 0 THEN
7232: IF l_debug_level > 0 THEN
7233: oe_debug_pub.add( 'PROCESSED DELAYED REQUESTS FOR LINES' , 2 ) ;
7234: END IF;
7235:
7236: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7238: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7239: RAISE FND_API.G_EXC_ERROR;
7240: END IF;
7233: oe_debug_pub.add( 'PROCESSED DELAYED REQUESTS FOR LINES' , 2 ) ;
7234: END IF;
7235:
7236: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7238: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7239: RAISE FND_API.G_EXC_ERROR;
7240: END IF;
7241:
7234: END IF;
7235:
7236: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7238: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7239: RAISE FND_API.G_EXC_ERROR;
7240: END IF;
7241:
7242: END IF;
7235:
7236: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7238: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7239: RAISE FND_API.G_EXC_ERROR;
7240: END IF;
7241:
7242: END IF;
7243: END IF;
7254: WHILE I IS NOT NULL LOOP
7255:
7256: IF p_x_lot_serial_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7257: AND (p_x_lot_serial_tbl(I).line_id IS NULL OR
7258: p_x_lot_serial_tbl(I).line_id = FND_API.G_MISS_NUM)
7259: THEN
7260:
7261: -- Check If parent exists.
7262:
7291: , p_x_Lot_Serial_tbl => p_x_lot_serial_tbl
7292: , p_x_old_Lot_Serial_tbl => l_old_lot_Serial_tbl
7293: , x_return_status => l_return_status
7294: );
7295: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7297: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7298: IF p_control_rec.process_partial THEN
7299: x_return_status := FND_API.G_RET_STS_ERROR;
7292: , p_x_old_Lot_Serial_tbl => l_old_lot_Serial_tbl
7293: , x_return_status => l_return_status
7294: );
7295: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7297: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7298: IF p_control_rec.process_partial THEN
7299: x_return_status := FND_API.G_RET_STS_ERROR;
7300: ELSE
7293: , x_return_status => l_return_status
7294: );
7295: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7297: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7298: IF p_control_rec.process_partial THEN
7299: x_return_status := FND_API.G_RET_STS_ERROR;
7300: ELSE
7301: RAISE FND_API.G_EXC_ERROR;
7295: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7297: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7298: IF p_control_rec.process_partial THEN
7299: x_return_status := FND_API.G_RET_STS_ERROR;
7300: ELSE
7301: RAISE FND_API.G_EXC_ERROR;
7302: END IF;
7303: END IF;
7297: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7298: IF p_control_rec.process_partial THEN
7299: x_return_status := FND_API.G_RET_STS_ERROR;
7300: ELSE
7301: RAISE FND_API.G_EXC_ERROR;
7302: END IF;
7303: END IF;
7304:
7305: END IF;
7329: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE ATTRIBUTES TABLE' , 2 ) ;
7330: END IF;
7331: IF p_x_line_price_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7332: AND (p_x_line_price_att_tbl(I).line_id IS NULL OR
7333: p_x_line_price_att_tbl(I).line_id = FND_API.G_MISS_NUM)
7334: THEN
7335:
7336: IF l_debug_level > 0 THEN
7337: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ATTRIB TABLE' , 2 ) ;
7351: THEN
7352: IF l_debug_level > 0 THEN
7353: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( P_X_LINE_PRICE_ATT_TBL ( I ) .LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
7354: END IF;
7355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7356:
7357: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7358: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Price_Att');
7359: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7388: THEN
7389:
7390: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7391: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
7392: ,p_delete => FND_API.G_TRUE
7393: ,x_return_status => l_return_status
7394: );
7395: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7391: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
7392: ,p_delete => FND_API.G_TRUE
7393: ,x_return_status => l_return_status
7394: );
7395: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7397: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7398: RAISE FND_API.G_EXC_ERROR;
7399: END IF;
7392: ,p_delete => FND_API.G_TRUE
7393: ,x_return_status => l_return_status
7394: );
7395: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7397: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7398: RAISE FND_API.G_EXC_ERROR;
7399: END IF;
7400:
7393: ,x_return_status => l_return_status
7394: );
7395: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7397: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7398: RAISE FND_API.G_EXC_ERROR;
7399: END IF;
7400:
7401: END IF;
7394: );
7395: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7397: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7398: RAISE FND_API.G_EXC_ERROR;
7399: END IF;
7400:
7401: END IF;
7402:
7415: END IF;
7416:
7417: IF p_x_line_adj_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7418: AND (p_x_line_adj_att_tbl(I).price_adjustment_id IS NULL OR
7419: p_x_line_adj_att_tbl(I).price_adjustment_id = FND_API.G_MISS_NUM)
7420: THEN
7421:
7422: IF l_debug_level > 0 THEN
7423: oe_debug_pub.add( 'SETTING ADJ IDS ON LINE ADJ ATTRIB TABLE' , 2 ) ;
7436: THEN
7437: IF l_debug_level > 0 THEN
7438: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( P_X_LINE_ADJ_ATT_TBL ( I ) .ADJ_INDEX ) ||'ON ADJ ATTRIBS' , 2 ) ;
7439: END IF;
7440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7441:
7442: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7443: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj_Att');
7444: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7477: oe_debug_pub.add( 'SETTING PRICE_ADJUSTMENT_ID ON LINE ADJ ASSOCS TABLE' , 2 ) ;
7478: END IF;
7479: IF p_x_line_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7480: AND (p_x_line_adj_assoc_tbl(I).price_adjustment_id IS NULL OR
7481: p_x_line_adj_assoc_tbl(I).price_adjustment_id = FND_API.G_MISS_NUM)
7482: THEN
7483:
7484: IF l_debug_level > 0 THEN
7485: oe_debug_pub.add( 'SETTING ADJ IDS ON LINE ADJ ASSOCS TABLE' , 2 ) ;
7498: THEN
7499: IF l_debug_level > 0 THEN
7500: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( P_X_LINE_ADJ_ASSOC_TBL ( I ) .ADJ_INDEX ) ||'ON ADJ ASSOCS' , 2 ) ;
7501: END IF;
7502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7503:
7504: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7505: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj_Assoc');
7506: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7512: END IF;
7513:
7514: IF p_x_line_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7515: AND (p_x_line_adj_assoc_tbl(I).Line_id IS NULL OR
7516: p_x_line_adj_assoc_tbl(I).Line_id = FND_API.G_MISS_NUM)
7517: THEN
7518:
7519: IF l_debug_level > 0 THEN
7520: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ADJ ASSOCS TABLE' , 2 ) ;
7530: END IF;
7531:
7532: IF p_x_line_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7533: AND (p_x_line_adj_assoc_tbl(I).rltd_Price_Adj_Id IS NULL OR
7534: p_x_line_adj_assoc_tbl(I).rltd_Price_Adj_Id = FND_API.G_MISS_NUM)
7535: THEN
7536:
7537: IF p_x_line_adj_Tbl.exists(p_x_Line_Adj_assoc_tbl(I).Rltd_Adj_Index) Then
7538: -- Copy parent_id.
7571:
7572: IF (p_x_action_request_tbl(I).entity_code = OE_GLOBALS.G_ENTITY_HEADER) THEN
7573:
7574: IF (p_x_action_request_tbl(I).entity_id IS NULL OR
7575: p_x_action_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
7576: THEN
7577: IF l_debug_level > 0 THEN
7578: oe_debug_pub.add( 'SETTING HEADER IDS ON REQUEST TABLE FOR HEADER ENTITY' , 2 ) ;
7579: END IF;
7577: IF l_debug_level > 0 THEN
7578: oe_debug_pub.add( 'SETTING HEADER IDS ON REQUEST TABLE FOR HEADER ENTITY' , 2 ) ;
7579: END IF;
7580: IF p_x_header_rec.header_id IS NULL OR
7581: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
7582: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
7583: OE_MSG_PUB.Add;
7584: RAISE FND_API.G_EXC_ERROR;
7585: ELSE
7580: IF p_x_header_rec.header_id IS NULL OR
7581: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
7582: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
7583: OE_MSG_PUB.Add;
7584: RAISE FND_API.G_EXC_ERROR;
7585: ELSE
7586: p_x_action_request_tbl(I).entity_id := p_x_header_rec.header_id;
7587: END IF;
7588: END IF;
7589:
7590: ELSIF (p_x_action_request_tbl(I).entity_code = OE_GLOBALS.G_ENTITY_LINE) THEN
7591:
7592: IF (p_x_action_request_tbl(I).entity_id IS NULL OR
7593: p_x_action_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
7594: THEN
7595: IF l_debug_level > 0 THEN
7596: oe_debug_pub.add( 'SETTING LINE IDS ON REQUEST TABLE FOR LINE ENTITY' , 2 ) ;
7597: END IF;
7609: THEN
7610: IF l_debug_level > 0 THEN
7611: oe_debug_pub.add( 'INVALID ENTITY INDEX ' ||TO_CHAR ( p_x_action_request_tbl ( I ) .ENTITY_INDEX ) ||'ON REQUEST TABLE FOR LINE ENTITY' , 2 ) ;
7612: END IF;
7613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7614: END IF;
7615: END IF;
7616: END IF;
7617:
7617:
7618: ELSIF (p_x_action_request_tbl(I).request_type = OE_GLOBALS.G_VERIFY_PAYMENT) THEN
7619:
7620: IF (p_x_action_request_tbl(I).entity_id IS NULL OR
7621: p_x_action_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
7622: THEN
7623: IF l_debug_level > 0 THEN
7624: oe_debug_pub.add( 'SETTING HEADER IDS ON REQUEST TABLE FOR VERIFY_PAYMENT' , 2 ) ;
7625: END IF;
7623: IF l_debug_level > 0 THEN
7624: oe_debug_pub.add( 'SETTING HEADER IDS ON REQUEST TABLE FOR VERIFY_PAYMENT' , 2 ) ;
7625: END IF;
7626: IF p_x_header_rec.header_id IS NULL OR
7627: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
7628: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
7629: OE_MSG_PUB.Add;
7630: RAISE FND_API.G_EXC_ERROR;
7631: ELSE
7626: IF p_x_header_rec.header_id IS NULL OR
7627: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
7628: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
7629: OE_MSG_PUB.Add;
7630: RAISE FND_API.G_EXC_ERROR;
7631: ELSE
7632: p_x_action_request_tbl(I).entity_id := p_x_header_rec.header_id;
7633: END IF;
7634: END IF;
7654: );
7655: IF l_debug_level > 0 THEN
7656: oe_debug_pub.add( 'OEXVORDB: COMPLETED PROCESS_DELAYED_REQUESTS ' || ' WITH RETURN STATUS' || L_RETURN_STATUS , 2 ) ;
7657: END IF;
7658: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7660: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7661: RAISE FND_API.G_EXC_ERROR;
7662: END IF;
7655: IF l_debug_level > 0 THEN
7656: oe_debug_pub.add( 'OEXVORDB: COMPLETED PROCESS_DELAYED_REQUESTS ' || ' WITH RETURN STATUS' || L_RETURN_STATUS , 2 ) ;
7657: END IF;
7658: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7660: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7661: RAISE FND_API.G_EXC_ERROR;
7662: END IF;
7663:
7656: oe_debug_pub.add( 'OEXVORDB: COMPLETED PROCESS_DELAYED_REQUESTS ' || ' WITH RETURN STATUS' || L_RETURN_STATUS , 2 ) ;
7657: END IF;
7658: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7660: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7661: RAISE FND_API.G_EXC_ERROR;
7662: END IF;
7663:
7664: END IF;
7657: END IF;
7658: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7660: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7661: RAISE FND_API.G_EXC_ERROR;
7662: END IF;
7663:
7664: END IF;
7665:
7683: IF l_debug_level > 0 THEN
7684: oe_debug_pub.add('return_status : ' || p_x_action_request_tbl(i).return_status);
7685: oe_debug_pub.add('request_type : ' || p_x_action_request_tbl(i).request_type);
7686: END IF;
7687: IF p_x_action_request_tbl(i).return_status = FND_API.G_RET_STS_ERROR
7688: AND p_x_action_request_tbl(i).request_type = OE_GLOBALS.G_VERIFY_PAYMENT THEN
7689: x_return_status := FND_API.G_RET_STS_ERROR;
7690: RAISE FND_API.G_EXC_ERROR;
7691: END IF;
7685: oe_debug_pub.add('request_type : ' || p_x_action_request_tbl(i).request_type);
7686: END IF;
7687: IF p_x_action_request_tbl(i).return_status = FND_API.G_RET_STS_ERROR
7688: AND p_x_action_request_tbl(i).request_type = OE_GLOBALS.G_VERIFY_PAYMENT THEN
7689: x_return_status := FND_API.G_RET_STS_ERROR;
7690: RAISE FND_API.G_EXC_ERROR;
7691: END IF;
7692: i := p_x_action_request_tbl.next(i);
7693: end loop;
7686: END IF;
7687: IF p_x_action_request_tbl(i).return_status = FND_API.G_RET_STS_ERROR
7688: AND p_x_action_request_tbl(i).request_type = OE_GLOBALS.G_VERIFY_PAYMENT THEN
7689: x_return_status := FND_API.G_RET_STS_ERROR;
7690: RAISE FND_API.G_EXC_ERROR;
7691: END IF;
7692: i := p_x_action_request_tbl.next(i);
7693: end loop;
7694: --R12 CVV2
7732: END IF;
7733:
7734: -- Derive return status
7735:
7736: IF p_x_header_rec.return_status = FND_API.G_RET_STS_ERROR THEN
7737: x_return_status := FND_API.G_RET_STS_ERROR;
7738: END IF;
7739:
7740: -- Do not need to loop through header_scredits, lines
7733:
7734: -- Derive return status
7735:
7736: IF p_x_header_rec.return_status = FND_API.G_RET_STS_ERROR THEN
7737: x_return_status := FND_API.G_RET_STS_ERROR;
7738: END IF;
7739:
7740: -- Do not need to loop through header_scredits, lines
7741: -- line_scredits or lot_serials as the x_return_status is set
7743:
7744: I := p_x_header_adj_tbl.FIRST;
7745: WHILE I IS NOT NULL LOOP
7746:
7747: IF p_x_header_adj_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
7748: x_return_status := FND_API.G_RET_STS_ERROR;
7749: END IF;
7750:
7751: I := p_x_header_adj_tbl.NEXT(I);
7744: I := p_x_header_adj_tbl.FIRST;
7745: WHILE I IS NOT NULL LOOP
7746:
7747: IF p_x_header_adj_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
7748: x_return_status := FND_API.G_RET_STS_ERROR;
7749: END IF;
7750:
7751: I := p_x_header_adj_tbl.NEXT(I);
7752: END LOOP;
7753:
7754: I := p_x_header_price_Att_tbl.FIRST;
7755: WHILE I IS NOT NULL LOOP
7756:
7757: IF p_x_header_price_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
7758: x_return_status := FND_API.G_RET_STS_ERROR;
7759: END IF;
7760:
7761: I := p_x_header_price_Att_tbl.NEXT(I);
7754: I := p_x_header_price_Att_tbl.FIRST;
7755: WHILE I IS NOT NULL LOOP
7756:
7757: IF p_x_header_price_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
7758: x_return_status := FND_API.G_RET_STS_ERROR;
7759: END IF;
7760:
7761: I := p_x_header_price_Att_tbl.NEXT(I);
7762: END LOOP;
7763:
7764: I := p_x_header_adj_Att_tbl.FIRST;
7765: WHILE I IS NOT NULL LOOP
7766:
7767: IF p_x_header_adj_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
7768: x_return_status := FND_API.G_RET_STS_ERROR;
7769: END IF;
7770:
7771: I := p_x_header_adj_Att_tbl.NEXT(I);
7764: I := p_x_header_adj_Att_tbl.FIRST;
7765: WHILE I IS NOT NULL LOOP
7766:
7767: IF p_x_header_adj_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
7768: x_return_status := FND_API.G_RET_STS_ERROR;
7769: END IF;
7770:
7771: I := p_x_header_adj_Att_tbl.NEXT(I);
7772: END LOOP;
7773:
7774: I := p_x_header_adj_Assoc_tbl.FIRST;
7775: WHILE I IS NOT NULL LOOP
7776:
7777: IF p_x_header_adj_Assoc_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
7778: x_return_status := FND_API.G_RET_STS_ERROR;
7779: END IF;
7780:
7781: I := p_x_header_adj_Assoc_tbl.NEXT(I);
7774: I := p_x_header_adj_Assoc_tbl.FIRST;
7775: WHILE I IS NOT NULL LOOP
7776:
7777: IF p_x_header_adj_Assoc_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
7778: x_return_status := FND_API.G_RET_STS_ERROR;
7779: END IF;
7780:
7781: I := p_x_header_adj_Assoc_tbl.NEXT(I);
7782: END LOOP;
7783:
7784: I := p_x_line_adj_tbl.FIRST;
7785: WHILE I IS NOT NULL LOOP
7786:
7787: IF p_x_line_adj_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
7788: x_return_status := FND_API.G_RET_STS_ERROR;
7789: END IF;
7790:
7791: I := p_x_line_adj_tbl.NEXT(I);
7784: I := p_x_line_adj_tbl.FIRST;
7785: WHILE I IS NOT NULL LOOP
7786:
7787: IF p_x_line_adj_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
7788: x_return_status := FND_API.G_RET_STS_ERROR;
7789: END IF;
7790:
7791: I := p_x_line_adj_tbl.NEXT(I);
7792: END LOOP;
7793:
7794: I := p_x_line_price_Att_tbl.FIRST;
7795: WHILE I IS NOT NULL LOOP
7796:
7797: IF p_x_line_price_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
7798: x_return_status := FND_API.G_RET_STS_ERROR;
7799: END IF;
7800:
7801: I := p_x_line_price_Att_tbl.NEXT(I);
7794: I := p_x_line_price_Att_tbl.FIRST;
7795: WHILE I IS NOT NULL LOOP
7796:
7797: IF p_x_line_price_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
7798: x_return_status := FND_API.G_RET_STS_ERROR;
7799: END IF;
7800:
7801: I := p_x_line_price_Att_tbl.NEXT(I);
7802: END LOOP;
7803:
7804: I := p_x_line_adj_Att_tbl.FIRST;
7805: WHILE I IS NOT NULL LOOP
7806:
7807: IF p_x_line_adj_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
7808: x_return_status := FND_API.G_RET_STS_ERROR;
7809: END IF;
7810:
7811: I := p_x_line_adj_Att_tbl.NEXT(I);
7804: I := p_x_line_adj_Att_tbl.FIRST;
7805: WHILE I IS NOT NULL LOOP
7806:
7807: IF p_x_line_adj_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
7808: x_return_status := FND_API.G_RET_STS_ERROR;
7809: END IF;
7810:
7811: I := p_x_line_adj_Att_tbl.NEXT(I);
7812: END LOOP;
7813:
7814: I := p_x_line_adj_Assoc_tbl.FIRST;
7815: WHILE I IS NOT NULL LOOP
7816:
7817: IF p_x_line_adj_Assoc_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
7818: x_return_status := FND_API.G_RET_STS_ERROR;
7819: END IF;
7820:
7821: I := p_x_line_adj_Assoc_tbl.NEXT(I);
7814: I := p_x_line_adj_Assoc_tbl.FIRST;
7815: WHILE I IS NOT NULL LOOP
7816:
7817: IF p_x_line_adj_Assoc_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
7818: x_return_status := FND_API.G_RET_STS_ERROR;
7819: END IF;
7820:
7821: I := p_x_line_adj_Assoc_tbl.NEXT(I);
7822: END LOOP;
7857: p_old_Line_Payment_tbl => l_old_line_Payment_tbl,
7858: p_Lot_Serial_tbl => p_x_lot_Serial_tbl,
7859: p_old_Lot_Serial_tbl => l_old_Lot_Serial_tbl);
7860:
7861: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7863: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7864: RAISE FND_API.G_EXC_ERROR;
7865: END IF;
7858: p_Lot_Serial_tbl => p_x_lot_Serial_tbl,
7859: p_old_Lot_Serial_tbl => l_old_Lot_Serial_tbl);
7860:
7861: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7863: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7864: RAISE FND_API.G_EXC_ERROR;
7865: END IF;
7866:
7859: p_old_Lot_Serial_tbl => l_old_Lot_Serial_tbl);
7860:
7861: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7863: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7864: RAISE FND_API.G_EXC_ERROR;
7865: END IF;
7866:
7867: ELSE
7860:
7861: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7863: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7864: RAISE FND_API.G_EXC_ERROR;
7865: END IF;
7866:
7867: ELSE
7868: /* Pre Pack H processsing */
7870:
7871: IF l_debug_level > 0 THEN
7872: oe_debug_pub.add( 'CS BEFORE CALLING NOTIFY_OC API' , 1 ) ;
7873: END IF;
7874: IF x_return_status = FND_API.G_RET_STS_SUCCESS AND
7875: p_control_rec.write_to_db = TRUE
7876: AND oe_order_cache.g_header_rec.booked_flag = 'Y'
7877: THEN
7878: IF l_debug_level > 0 THEN
7880: END IF;
7881:
7882: OE_SERVICE_UTIL.Notify_OC
7883: ( p_api_version_number => l_api_version_number
7884: , p_init_msg_list => FND_API.G_FALSE
7885: , p_validation_level => p_validation_level
7886: , p_control_rec => p_control_rec
7887: , x_return_status => l_return_status
7888: , x_msg_count => x_msg_count
7925:
7926: IF l_debug_level > 0 THEN
7927: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
7928: END IF;
7929: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7930: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7931: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7932: RAISE FND_API.G_EXC_ERROR;
7933: END IF;
7926: IF l_debug_level > 0 THEN
7927: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
7928: END IF;
7929: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7930: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7931: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7932: RAISE FND_API.G_EXC_ERROR;
7933: END IF;
7934:
7927: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
7928: END IF;
7929: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7930: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7931: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7932: RAISE FND_API.G_EXC_ERROR;
7933: END IF;
7934:
7935:
7928: END IF;
7929: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7930: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7931: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7932: RAISE FND_API.G_EXC_ERROR;
7933: END IF;
7934:
7935:
7936: END IF;
7939: oe_debug_pub.add( 'PROCESSING ACKS' , 1 ) ;
7940: END IF;
7941:
7942: IF OE_Globals.G_RECURSION_MODE <> 'Y' AND
7943: x_return_status = FND_API.G_RET_STS_SUCCESS AND
7944: l_control_rec.write_to_db = TRUE
7945: THEN
7946: IF l_debug_level > 0 THEN
7947: oe_debug_pub.add( 'CALLING ACKS API' , 1 ) ;
7987: );
7988:
7989: End If;
7990:
7991: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7993: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7994: RAISE FND_API.G_EXC_ERROR;
7995: x_return_status := l_return_status;
7988:
7989: End If;
7990:
7991: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7993: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7994: RAISE FND_API.G_EXC_ERROR;
7995: x_return_status := l_return_status;
7996: END IF;
7989: End If;
7990:
7991: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7993: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7994: RAISE FND_API.G_EXC_ERROR;
7995: x_return_status := l_return_status;
7996: END IF;
7997: END IF;
7990:
7991: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7993: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7994: RAISE FND_API.G_EXC_ERROR;
7995: x_return_status := l_return_status;
7996: END IF;
7997: END IF;
7998:
8029: -- End of Comments
8030: ----------------------------------------------------------------*/
8031: PROCEDURE Process_Order
8032: ( p_api_version_number IN NUMBER
8033: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8034: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
8035: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
8036: OE_GLOBALS.G_MISS_CONTROL_REC
8037: , x_return_status OUT NOCOPY VARCHAR2
8030: ----------------------------------------------------------------*/
8031: PROCEDURE Process_Order
8032: ( p_api_version_number IN NUMBER
8033: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8034: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
8035: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
8036: OE_GLOBALS.G_MISS_CONTROL_REC
8037: , x_return_status OUT NOCOPY VARCHAR2
8038:
8083: OE_Order_PUB.G_MISS_LOT_SERIAL_VAL_TBL
8084: , p_old_Lot_Serial_val_tbl IN OE_Order_PUB.Lot_Serial_Val_Tbl_Type :=
8085: OE_Order_PUB.G_MISS_LOT_SERIAL_VAL_TBL
8086: , p_x_action_request_tbl IN OUT NOCOPY OE_Order_PUB.request_tbl_type
8087: , p_action_commit IN VARCHAR2 := FND_API.G_FALSE
8088: )
8089: IS
8090: l_x_Header_Payment_tbl OE_Order_PUB.Header_Payment_Tbl_Type;
8091: l_x_Line_Payment_tbl OE_Order_PUB.Line_Payment_Tbl_Type;
8139:
8140: -- overloaded for payments
8141: PROCEDURE Process_Order
8142: ( p_api_version_number IN NUMBER
8143: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8144: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
8145: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
8146: OE_GLOBALS.G_MISS_CONTROL_REC
8147: , x_return_status OUT NOCOPY VARCHAR2
8140: -- overloaded for payments
8141: PROCEDURE Process_Order
8142: ( p_api_version_number IN NUMBER
8143: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8144: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
8145: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
8146: OE_GLOBALS.G_MISS_CONTROL_REC
8147: , x_return_status OUT NOCOPY VARCHAR2
8148:
8199: OE_Order_PUB.G_MISS_LOT_SERIAL_VAL_TBL
8200: , p_old_Lot_Serial_val_tbl IN OE_Order_PUB.Lot_Serial_Val_Tbl_Type :=
8201: OE_Order_PUB.G_MISS_LOT_SERIAL_VAL_TBL
8202: , p_x_action_request_tbl IN OUT NOCOPY OE_Order_PUB.request_tbl_type
8203: , p_action_commit IN VARCHAR2 := FND_API.G_FALSE
8204: )
8205: IS
8206: l_api_version_number CONSTANT NUMBER := 1.0;
8207: l_api_name CONSTANT VARCHAR2(30):= 'Process_Order';
8265: l_line_index NUMBER;
8266: l_header_id NUMBER;
8267: I NUMBER; -- Used for as table index.
8268: l_init_msg_list VARCHAR2(1) := p_init_msg_list;
8269: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
8270: l_Call_Split BOOLEAN := FALSE;
8271: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8272: l_edi_ack_pfile Varchar2(3);
8273:
8277:
8278: set_recursion_mode(p_Entity_Code => 1,
8279: p_In_out => 1);
8280:
8281: x_return_status := FND_API.G_RET_STS_SUCCESS;
8282: fnd_profile.get('ONT_NEW_EDI_ACK_FWK', l_edi_ack_pfile);
8283: l_edi_ack_pfile := nvl(l_edi_ack_pfile, 'NO');
8284:
8285: IF OE_GLOBALS.G_RECURSION_MODE <> 'Y' THEN
8292: oe_debug_pub.add( 'ENTERING OE_ORDER_PUB.PROCESS_ORDER' , 1 ) ;
8293: END IF;
8294: -- Standard call to check for call compatibility
8295:
8296: IF NOT FND_API.Compatible_API_Call
8297: ( l_api_version_number
8298: , p_api_version_number
8299: , l_api_name
8300: , G_PKG_NAME
8299: , l_api_name
8300: , G_PKG_NAME
8301: )
8302: THEN
8303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8304: END IF;
8305:
8306: -- Initialize message list.
8307:
8304: END IF;
8305:
8306: -- Initialize message list.
8307:
8308: IF FND_API.to_Boolean(p_init_msg_list) THEN
8309: OE_MSG_PUB.initialize;
8310: END IF;
8311:
8312: -- Set Org Context
8432:
8433: --Bug 2790512: Prevent processing of header if operation is invalid
8434: --Bug 2878121: Ignore NULL operation code
8435: IF l_header_rec.header_id is NOT NULL AND
8436: l_header_rec.header_id <> FND_API.G_MISS_NUM THEN
8437: IF l_header_rec.operation IS NOT NULL AND
8438: l_header_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
8439: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
8440: OE_GLOBALS.G_OPR_NONE) THEN
8439: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
8440: OE_GLOBALS.G_OPR_NONE) THEN
8441: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
8442: OE_MSG_PUB.Add;
8443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8444: END IF;
8445: END IF;
8446:
8447: IF l_header_rec.operation IS NOT NULL
8465: );
8466:
8467: OE_Validate_Header_Scredit.G_Create_Auto_Sales_Credit := 'Y';
8468:
8469: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8471: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8472: RAISE FND_API.G_EXC_ERROR;
8473: END IF;
8466:
8467: OE_Validate_Header_Scredit.G_Create_Auto_Sales_Credit := 'Y';
8468:
8469: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8471: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8472: RAISE FND_API.G_EXC_ERROR;
8473: END IF;
8474: END IF;
8467: OE_Validate_Header_Scredit.G_Create_Auto_Sales_Credit := 'Y';
8468:
8469: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8471: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8472: RAISE FND_API.G_EXC_ERROR;
8473: END IF;
8474: END IF;
8475: IF l_debug_level > 0 THEN
8468:
8469: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8471: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8472: RAISE FND_API.G_EXC_ERROR;
8473: END IF;
8474: END IF;
8475: IF l_debug_level > 0 THEN
8476: oe_debug_pub.add( 'AFTER HEADER PROCESSING HEADER_ID = '|| TO_CHAR ( L_HEADER_REC.HEADER_ID ) , 2 ) ;
8506: l_Header_Adj_rec := l_Header_Adj_tbl(I);
8507:
8508: IF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE
8509: AND (l_Header_Adj_rec.header_id IS NULL OR
8510: l_Header_Adj_rec.header_id = FND_API.G_MISS_NUM)
8511: THEN
8512: IF l_header_rec.header_id IS NULL OR
8513: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
8514: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
8509: AND (l_Header_Adj_rec.header_id IS NULL OR
8510: l_Header_Adj_rec.header_id = FND_API.G_MISS_NUM)
8511: THEN
8512: IF l_header_rec.header_id IS NULL OR
8513: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
8514: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
8515: OE_MSG_PUB.Add;
8516: RAISE FND_API.G_EXC_ERROR;
8517: ELSE
8512: IF l_header_rec.header_id IS NULL OR
8513: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
8514: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
8515: OE_MSG_PUB.Add;
8516: RAISE FND_API.G_EXC_ERROR;
8517: ELSE
8518: -- Copy parent_id.
8519: l_Header_Adj_tbl(I).header_id := l_header_rec.header_id;
8520: END IF;
8522:
8523: -- This is added to prevent invalid upgraded orders
8524: IF I = l_Header_Adj_tbl.FIRST THEN
8525: IF (l_header_adj_rec.header_id IS NOT NULL AND
8526: l_header_adj_rec.header_id <> FND_API.G_MISS_NUM) THEN
8527: IF NOT Valid_Upgraded_Order(l_header_adj_rec.header_id ) THEN
8528: RAISE FND_API.G_EXC_ERROR;
8529: END IF;
8530: END IF;
8524: IF I = l_Header_Adj_tbl.FIRST THEN
8525: IF (l_header_adj_rec.header_id IS NOT NULL AND
8526: l_header_adj_rec.header_id <> FND_API.G_MISS_NUM) THEN
8527: IF NOT Valid_Upgraded_Order(l_header_adj_rec.header_id ) THEN
8528: RAISE FND_API.G_EXC_ERROR;
8529: END IF;
8530: END IF;
8531:
8532: END IF;
8561: THEN
8562:
8563: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8564: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_ADJ
8565: ,p_delete => FND_API.G_TRUE
8566: ,x_return_status => l_return_status
8567: );
8568: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8564: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_ADJ
8565: ,p_delete => FND_API.G_TRUE
8566: ,x_return_status => l_return_status
8567: );
8568: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8570: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8571: RAISE FND_API.G_EXC_ERROR;
8572: END IF;
8565: ,p_delete => FND_API.G_TRUE
8566: ,x_return_status => l_return_status
8567: );
8568: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8570: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8571: RAISE FND_API.G_EXC_ERROR;
8572: END IF;
8573:
8566: ,x_return_status => l_return_status
8567: );
8568: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8570: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8571: RAISE FND_API.G_EXC_ERROR;
8572: END IF;
8573:
8574:
8567: );
8568: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8570: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8571: RAISE FND_API.G_EXC_ERROR;
8572: END IF;
8573:
8574:
8575: END IF;
8591: l_Header_Price_Att_Rec := l_Header_Price_att_tbl(I);
8592:
8593: IF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
8594: AND (l_Header_Price_Att_rec.header_id IS NULL OR
8595: l_Header_Price_Att_rec.header_id = FND_API.G_MISS_NUM)
8596: THEN
8597: IF l_header_rec.header_id IS NULL OR
8598: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
8599: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
8594: AND (l_Header_Price_Att_rec.header_id IS NULL OR
8595: l_Header_Price_Att_rec.header_id = FND_API.G_MISS_NUM)
8596: THEN
8597: IF l_header_rec.header_id IS NULL OR
8598: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
8599: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
8600: OE_MSG_PUB.Add;
8601: RAISE FND_API.G_EXC_ERROR;
8602: ELSE
8597: IF l_header_rec.header_id IS NULL OR
8598: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
8599: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
8600: OE_MSG_PUB.Add;
8601: RAISE FND_API.G_EXC_ERROR;
8602: ELSE
8603:
8604: -- Copy parent_id.
8605:
8637: THEN
8638:
8639: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8640: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Price_Att
8641: ,p_delete => FND_API.G_TRUE
8642: ,x_return_status => l_return_status
8643: );
8644: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8640: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Price_Att
8641: ,p_delete => FND_API.G_TRUE
8642: ,x_return_status => l_return_status
8643: );
8644: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8646: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8647: RAISE FND_API.G_EXC_ERROR;
8648: END IF;
8641: ,p_delete => FND_API.G_TRUE
8642: ,x_return_status => l_return_status
8643: );
8644: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8646: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8647: RAISE FND_API.G_EXC_ERROR;
8648: END IF;
8649:
8642: ,x_return_status => l_return_status
8643: );
8644: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8646: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8647: RAISE FND_API.G_EXC_ERROR;
8648: END IF;
8649:
8650:
8643: );
8644: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8646: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8647: RAISE FND_API.G_EXC_ERROR;
8648: END IF;
8649:
8650:
8651: END IF;
8667: l_Header_Adj_Att_rec := l_Header_Adj_Att_tbl(I);
8668:
8669: IF l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
8670: AND (l_Header_Adj_Att_rec.price_adjustment_id IS NULL OR
8671: l_Header_Adj_Att_rec.price_adjustment_id = FND_API.G_MISS_NUM)
8672: THEN
8673:
8674: IF l_header_Adj_Tbl.exists(l_Header_Adj_Att_Rec.Adj_index)
8675: Then
8682: THEN
8683: IF l_debug_level > 0 THEN
8684: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( L_HEADER_ADJ_ATT_REC.ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
8685: END IF;
8686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8687: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
8688: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Attribs');
8689: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
8690: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',l_Header_Adj_Att_Rec.adj_index);
8727: THEN
8728:
8729: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8730: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Att
8731: ,p_delete => FND_API.G_TRUE
8732: ,x_return_status => l_return_status
8733: );
8734: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8730: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Att
8731: ,p_delete => FND_API.G_TRUE
8732: ,x_return_status => l_return_status
8733: );
8734: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8736: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8737: RAISE FND_API.G_EXC_ERROR;
8738: END IF;
8731: ,p_delete => FND_API.G_TRUE
8732: ,x_return_status => l_return_status
8733: );
8734: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8736: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8737: RAISE FND_API.G_EXC_ERROR;
8738: END IF;
8739:
8732: ,x_return_status => l_return_status
8733: );
8734: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8736: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8737: RAISE FND_API.G_EXC_ERROR;
8738: END IF;
8739:
8740:
8733: );
8734: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8736: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8737: RAISE FND_API.G_EXC_ERROR;
8738: END IF;
8739:
8740:
8741: END IF;
8758: l_Header_Adj_Assoc_rec := l_Header_Adj_Assoc_tbl(I);
8759:
8760: IF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
8761: AND (l_Header_Adj_Assoc_rec.Price_Adjustment_id IS NULL OR
8762: l_Header_Adj_Assoc_rec.Price_Adjustment_id = FND_API.G_MISS_NUM)
8763: THEN
8764:
8765: IF l_header_Adj_Tbl.exists(l_Header_Adj_Assoc_Rec.Adj_Index) Then
8766: -- Copy parent_id.
8772: THEN
8773: IF l_debug_level > 0 THEN
8774: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( L_HEADER_ADJ_ASSOC_REC.ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
8775: END IF;
8776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8777: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
8778: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Assocs');
8779: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
8780: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',l_Header_Adj_Assoc_Rec.adj_index);
8785: END IF;
8786:
8787: IF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
8788: AND (l_Header_Adj_Assoc_rec.rltd_Price_Adj_Id IS NULL OR
8789: l_Header_Adj_Assoc_rec.rltd_Price_Adj_Id = FND_API.G_MISS_NUM)
8790: THEN
8791:
8792: IF l_header_Adj_Tbl.exists(l_Header_Adj_Assoc_Rec.Rltd_Adj_Index) Then
8793: -- Copy parent_id.
8831: THEN
8832:
8833: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8834: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Assoc
8835: ,p_delete => FND_API.G_TRUE
8836: ,x_return_status => l_return_status
8837: );
8838: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8834: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Assoc
8835: ,p_delete => FND_API.G_TRUE
8836: ,x_return_status => l_return_status
8837: );
8838: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8840: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8841: RAISE FND_API.G_EXC_ERROR;
8842: END IF;
8835: ,p_delete => FND_API.G_TRUE
8836: ,x_return_status => l_return_status
8837: );
8838: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8840: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8841: RAISE FND_API.G_EXC_ERROR;
8842: END IF;
8843:
8836: ,x_return_status => l_return_status
8837: );
8838: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8840: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8841: RAISE FND_API.G_EXC_ERROR;
8842: END IF;
8843:
8844:
8837: );
8838: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8840: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8841: RAISE FND_API.G_EXC_ERROR;
8842: END IF;
8843:
8844:
8845: END IF;
8865: l_Header_Scredit_rec := l_Header_Scredit_tbl(I);
8866:
8867: IF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE
8868: AND (l_Header_Scredit_rec.header_id IS NULL OR
8869: l_Header_Scredit_rec.header_id = FND_API.G_MISS_NUM)
8870: THEN
8871: IF l_header_rec.header_id IS NULL OR -- p_x_header_rec replaced with l_header_rec for 2896409
8872: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
8873: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
8868: AND (l_Header_Scredit_rec.header_id IS NULL OR
8869: l_Header_Scredit_rec.header_id = FND_API.G_MISS_NUM)
8870: THEN
8871: IF l_header_rec.header_id IS NULL OR -- p_x_header_rec replaced with l_header_rec for 2896409
8872: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
8873: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
8874: OE_MSG_PUB.Add;
8875: RAISE FND_API.G_EXC_ERROR;
8876: ELSE
8871: IF l_header_rec.header_id IS NULL OR -- p_x_header_rec replaced with l_header_rec for 2896409
8872: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
8873: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
8874: OE_MSG_PUB.Add;
8875: RAISE FND_API.G_EXC_ERROR;
8876: ELSE
8877:
8878: -- Copy parent_id.
8879:
8897: , p_x_Header_Scredit_tbl => l_Header_Scredit_tbl
8898: , p_x_old_Header_Scredit_tbl => l_old_Header_Scredit_tbl
8899: , x_return_status => l_return_status
8900: );
8901: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8902: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8903: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8904: IF p_control_rec.process_partial THEN
8905: x_return_status := FND_API.G_RET_STS_ERROR;
8898: , p_x_old_Header_Scredit_tbl => l_old_Header_Scredit_tbl
8899: , x_return_status => l_return_status
8900: );
8901: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8902: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8903: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8904: IF p_control_rec.process_partial THEN
8905: x_return_status := FND_API.G_RET_STS_ERROR;
8906: ELSE
8899: , x_return_status => l_return_status
8900: );
8901: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8902: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8903: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8904: IF p_control_rec.process_partial THEN
8905: x_return_status := FND_API.G_RET_STS_ERROR;
8906: ELSE
8907: RAISE FND_API.G_EXC_ERROR;
8901: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8902: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8903: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8904: IF p_control_rec.process_partial THEN
8905: x_return_status := FND_API.G_RET_STS_ERROR;
8906: ELSE
8907: RAISE FND_API.G_EXC_ERROR;
8908: END IF;
8909: END IF;
8903: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8904: IF p_control_rec.process_partial THEN
8905: x_return_status := FND_API.G_RET_STS_ERROR;
8906: ELSE
8907: RAISE FND_API.G_EXC_ERROR;
8908: END IF;
8909: END IF;
8910: IF l_debug_level > 0 THEN
8911: oe_debug_pub.add( 'AFTER HEADER_SCREDITS PROCESSING' , 2 ) ;
8922: THEN
8923:
8924: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8925: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
8926: ,p_delete => FND_API.G_TRUE
8927: ,x_return_status => l_return_status
8928: );
8929: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8930: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8925: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
8926: ,p_delete => FND_API.G_TRUE
8927: ,x_return_status => l_return_status
8928: );
8929: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8930: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8931: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8932: RAISE FND_API.G_EXC_ERROR;
8933: END IF;
8926: ,p_delete => FND_API.G_TRUE
8927: ,x_return_status => l_return_status
8928: );
8929: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8930: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8931: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8932: RAISE FND_API.G_EXC_ERROR;
8933: END IF;
8934:
8927: ,x_return_status => l_return_status
8928: );
8929: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8930: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8931: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8932: RAISE FND_API.G_EXC_ERROR;
8933: END IF;
8934:
8935: END IF;
8928: );
8929: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8930: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8931: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8932: RAISE FND_API.G_EXC_ERROR;
8933: END IF;
8934:
8935: END IF;
8936:
8945: IF l_line_tbl.COUNT > 0 THEN
8946:
8947: For k in l_line_tbl.first .. l_line_tbl.last LOOP
8948:
8949: IF (l_line_tbl(k).header_id = FND_API.G_MISS_NUM
8950: OR l_line_tbl(k).header_id is null ) THEN
8951:
8952: -- Kris do not loop through the lines unless they have the right header_id
8953: -- If people pass in a header_id with a bogus value, the record should be ignored
8981: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
8982: OE_GLOBALS.G_OPR_INSERT, OE_GLOBALS.G_OPR_NONE) THEN
8983: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
8984: OE_MSG_PUB.Add;
8985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8986: END IF;
8987:
8988: IF l_line_rec.operation = oe_globals.g_opr_update
8989: AND l_line_rec.split_action_code = 'SPLIT' THEN
8995: -- Retrieve the header ID, either from the header record
8996: -- or from the first line
8997: IF (I = l_line_tbl.FIRST) THEN
8998: IF (l_header_rec.header_id IS NOT NULL AND
8999: l_header_rec.header_id <> FND_API.G_MISS_NUM) THEN
9000: l_header_id := l_header_rec.header_id;
9001: ELSIF (l_line_rec.header_id IS NOT NULL AND
9002: l_line_rec.header_id <> FND_API.G_MISS_NUM) THEN
9003: l_header_id := l_line_tbl(I).header_id;
8998: IF (l_header_rec.header_id IS NOT NULL AND
8999: l_header_rec.header_id <> FND_API.G_MISS_NUM) THEN
9000: l_header_id := l_header_rec.header_id;
9001: ELSIF (l_line_rec.header_id IS NOT NULL AND
9002: l_line_rec.header_id <> FND_API.G_MISS_NUM) THEN
9003: l_header_id := l_line_tbl(I).header_id;
9004: END IF;
9005: END IF;
9006:
9005: END IF;
9006:
9007: IF l_line_rec.operation <> OE_GLOBALS.G_OPR_CREATE
9008: AND (l_line_rec.header_id IS NULL OR
9009: l_line_rec.header_id = FND_API.G_MISS_NUM)
9010: THEN
9011: IF (l_header_id IS NOT NULL AND
9012: l_header_id <> FND_API.G_MISS_NUM) THEN
9013: l_line_tbl(I).header_id := l_header_id;
9008: AND (l_line_rec.header_id IS NULL OR
9009: l_line_rec.header_id = FND_API.G_MISS_NUM)
9010: THEN
9011: IF (l_header_id IS NOT NULL AND
9012: l_header_id <> FND_API.G_MISS_NUM) THEN
9013: l_line_tbl(I).header_id := l_header_id;
9014: ELSE
9015: oe_line_util.query_header
9016: (p_line_id => l_line_rec.line_id,
9024: IF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE
9025: THEN
9026:
9027: IF (l_line_rec.header_id IS NULL OR
9028: l_line_rec.header_id = FND_API.G_MISS_NUM)
9029: THEN
9030: -- Copy parent_id.
9031: l_line_tbl(I).header_id := l_header_id;
9032: END IF;
9035:
9036: -- Raise error if the header ID for the line is different
9037: -- from header ID on the header record or other lines
9038: IF (l_header_id IS NOT NULL AND
9039: l_header_id <> FND_API.G_MISS_NUM) THEN
9040: IF l_line_tbl(I).header_id <> l_header_id THEN
9041: fnd_message.set_name('ONT', 'OE_HEADER_MISSING');
9042: oe_msg_pub.add;
9043: RAISE FND_API.G_EXC_ERROR;
9039: l_header_id <> FND_API.G_MISS_NUM) THEN
9040: IF l_line_tbl(I).header_id <> l_header_id THEN
9041: fnd_message.set_name('ONT', 'OE_HEADER_MISSING');
9042: oe_msg_pub.add;
9043: RAISE FND_API.G_EXC_ERROR;
9044: END IF;
9045: END IF;
9046:
9047: -- END: CHECK IF ALL LINES BELONG TO THE SAME ORDER
9074: , p_x_line_tbl => l_line_tbl
9075: , p_x_old_line_tbl => l_old_line_tbl
9076: , x_return_status => l_return_status
9077: );
9078: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9079: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9080: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9081: IF p_control_rec.process_partial THEN
9082: x_return_status := FND_API.G_RET_STS_ERROR;
9075: , p_x_old_line_tbl => l_old_line_tbl
9076: , x_return_status => l_return_status
9077: );
9078: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9079: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9080: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9081: IF p_control_rec.process_partial THEN
9082: x_return_status := FND_API.G_RET_STS_ERROR;
9083: ELSE
9076: , x_return_status => l_return_status
9077: );
9078: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9079: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9080: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9081: IF p_control_rec.process_partial THEN
9082: x_return_status := FND_API.G_RET_STS_ERROR;
9083: ELSE
9084: RAISE FND_API.G_EXC_ERROR;
9078: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9079: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9080: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9081: IF p_control_rec.process_partial THEN
9082: x_return_status := FND_API.G_RET_STS_ERROR;
9083: ELSE
9084: RAISE FND_API.G_EXC_ERROR;
9085: END IF;
9086: END IF;
9080: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9081: IF p_control_rec.process_partial THEN
9082: x_return_status := FND_API.G_RET_STS_ERROR;
9083: ELSE
9084: RAISE FND_API.G_EXC_ERROR;
9085: END IF;
9086: END IF;
9087: IF l_debug_level > 0 THEN
9088: oe_debug_pub.add( 'AFTER LINES PROCESSING' , 2 ) ;
9102: FOR k in l_Line_Scredit_tbl.first .. l_line_Scredit_tbl.last LOOP
9103:
9104: -- oe_debug_pub.add('Processing Line SC Record ' ||TO_CHAR(k), 2);
9105:
9106: IF (l_line_Scredit_tbl(k).line_index <> FND_API.G_MISS_NUM)
9107: AND (l_line_Scredit_tbl(k).line_index IS NOT NULL) THEN
9108:
9109: l_line_index := l_line_Scredit_tbl(k).line_index;
9110:
9109: l_line_index := l_line_Scredit_tbl(k).line_index;
9110:
9111: IF l_line_tbl.EXISTS(l_line_index) THEN
9112:
9113: IF (l_line_Scredit_tbl(k).line_id = FND_API.G_MISS_NUM)
9114: OR (l_line_Scredit_tbl(k).line_id IS NULL) THEN
9115:
9116: l_line_Scredit_tbl(k).line_id := l_line_tbl(l_line_index).line_id;
9117:
9117:
9118: END IF; -- Line Id on Child is missing or is null
9119:
9120:
9121: IF (l_line_Scredit_tbl(k).header_id = FND_API.G_MISS_NUM)
9122: OR (l_line_Scredit_tbl(k).header_id IS NULL) THEN
9123:
9124: l_line_Scredit_tbl(k).header_id := l_line_tbl(l_line_index).header_id;
9125:
9130:
9131: oe_debug_pub.add('Invalid Line Index '
9132: ||TO_CHAR(l_line_index)
9133: ||' on Line Sales Credits', 2);
9134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9135:
9136: END IF; -- If Valid Line Index
9137: END IF; -- Line Index is not null and not missing
9138:
9147: FOR k in l_Line_Adj_tbl.first .. l_line_Adj_tbl.last LOOP
9148:
9149: -- oe_debug_pub.add('Processing Line Adj Record ' ||TO_CHAR(k), 2);
9150:
9151: IF (l_line_Adj_tbl(k).line_index <> FND_API.G_MISS_NUM)
9152: AND (l_line_Adj_tbl(k).line_index IS NOT NULL) THEN
9153:
9154: l_line_index := l_line_Adj_tbl(k).line_index;
9155: oe_debug_pub.add('Line Index is '||TO_CHAR(l_line_index), 2);
9155: oe_debug_pub.add('Line Index is '||TO_CHAR(l_line_index), 2);
9156:
9157: IF l_line_tbl.EXISTS(l_line_index) THEN
9158:
9159: IF (l_line_Adj_tbl(k).line_id = FND_API.G_MISS_NUM)
9160: OR (l_line_Adj_tbl(k).line_id IS NULL) THEN
9161:
9162: l_line_Adj_tbl(k).line_id := l_line_tbl(l_line_index).line_id;
9163:
9162: l_line_Adj_tbl(k).line_id := l_line_tbl(l_line_index).line_id;
9163:
9164: END IF; -- Line Id on Child is missing or is null
9165:
9166: IF (l_line_Adj_tbl(k).Header_id = FND_API.G_MISS_NUM)
9167: OR (l_line_Adj_tbl(k).Header_id IS NULL) THEN
9168:
9169: l_line_Adj_tbl(k).Header_id := l_line_tbl(l_line_index).Header_id;
9170:
9174:
9175: oe_debug_pub.add('Invalid Line Index '
9176: ||TO_CHAR(l_line_index)
9177: ||'on Line Price Adjustments', 2);
9178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9179:
9180: END IF; -- If Valid Line Index
9181: END IF; -- Line Index is not null and not missing
9182:
9197: l_Line_Scredit_rec := l_Line_Scredit_tbl(I);
9198:
9199: IF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE
9200: AND (l_Line_Scredit_rec.line_id IS NULL OR
9201: l_Line_Scredit_rec.line_id = FND_API.G_MISS_NUM)
9202: THEN
9203: IF l_debug_level > 0 THEN
9204: oe_debug_pub.add( 'SETTING LINE IDS ON LINE SC TABLE' , 2 ) ;
9205: END IF;
9224: THEN
9225: IF l_debug_level > 0 THEN
9226: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON LINE SALES CREDITS' , 2 ) ;
9227: END IF;
9228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9229: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9230: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Scredit');
9231: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9232: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',l_Line_Scredit_rec.line_index);
9251: l_Line_Adj_rec := l_Line_Adj_tbl(I);
9252:
9253: IF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE
9254: AND (l_Line_Adj_rec.line_id IS NULL OR
9255: l_Line_Adj_rec.line_id = FND_API.G_MISS_NUM)
9256: THEN
9257:
9258: IF l_debug_level > 0 THEN
9259: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ADJ TABLE' , 2 ) ;
9259: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ADJ TABLE' , 2 ) ;
9260: END IF;
9261: -- Check If parent exists.
9262:
9263: IF l_Line_Adj_rec.line_index <> fnd_api.g_miss_num and
9264: l_line_tbl.EXISTS(l_Line_Adj_rec.line_index) THEN
9265:
9266: -- Copy parent_id.
9267:
9268: l_Line_Adj_tbl(I).line_id := l_line_tbl(l_Line_Adj_rec.line_index).line_id;
9269: l_Line_Adj_tbl(I).header_id := l_line_tbl(l_Line_Adj_rec.line_index).header_id;
9270:
9271: ELSIF l_Line_Adj_tbl(I).header_id is not null and
9272: l_Line_Adj_tbl(I).header_id <> FND_API.G_MISS_NUM Then
9273: -- Treat the adjustment record as a header_adjustment record
9274: IF l_debug_level > 0 THEN
9275: oe_debug_pub.add( 'TREATING THE RECORD AS HEADER_ADJUSTMENT' ) ;
9276: END IF;
9280: THEN
9281: IF l_debug_level > 0 THEN
9282: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
9283: END IF;
9284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9285:
9286: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9287: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj');
9288: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9308: END IF;
9309:
9310: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9311: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
9312: ,p_delete => FND_API.G_TRUE
9313: ,x_return_status => l_return_status
9314: );
9315: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9311: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
9312: ,p_delete => FND_API.G_TRUE
9313: ,x_return_status => l_return_status
9314: );
9315: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9317: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9318: RAISE FND_API.G_EXC_ERROR;
9319: END IF;
9312: ,p_delete => FND_API.G_TRUE
9313: ,x_return_status => l_return_status
9314: );
9315: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9317: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9318: RAISE FND_API.G_EXC_ERROR;
9319: END IF;
9320:
9313: ,x_return_status => l_return_status
9314: );
9315: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9317: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9318: RAISE FND_API.G_EXC_ERROR;
9319: END IF;
9320:
9321: END IF;
9314: );
9315: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9317: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9318: RAISE FND_API.G_EXC_ERROR;
9319: END IF;
9320:
9321: END IF;
9322:
9347: THEN
9348:
9349: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9350: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
9351: ,p_delete => FND_API.G_TRUE
9352: ,x_return_status => l_return_status
9353: );
9354: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9350: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
9351: ,p_delete => FND_API.G_TRUE
9352: ,x_return_status => l_return_status
9353: );
9354: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9356: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9357: RAISE FND_API.G_EXC_ERROR;
9358: END IF;
9351: ,p_delete => FND_API.G_TRUE
9352: ,x_return_status => l_return_status
9353: );
9354: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9356: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9357: RAISE FND_API.G_EXC_ERROR;
9358: END IF;
9359:
9352: ,x_return_status => l_return_status
9353: );
9354: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9356: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9357: RAISE FND_API.G_EXC_ERROR;
9358: END IF;
9359:
9360: END IF;
9353: );
9354: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9356: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9357: RAISE FND_API.G_EXC_ERROR;
9358: END IF;
9359:
9360: END IF;
9361:
9373: , p_x_Line_Scredit_tbl => l_Line_Scredit_tbl
9374: , p_x_old_Line_Scredit_tbl => l_old_Line_Scredit_tbl
9375: , x_return_status => l_return_status
9376: );
9377: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9379: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9380: IF p_control_rec.process_partial THEN
9381: x_return_status := FND_API.G_RET_STS_ERROR;
9374: , p_x_old_Line_Scredit_tbl => l_old_Line_Scredit_tbl
9375: , x_return_status => l_return_status
9376: );
9377: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9379: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9380: IF p_control_rec.process_partial THEN
9381: x_return_status := FND_API.G_RET_STS_ERROR;
9382: ELSE
9375: , x_return_status => l_return_status
9376: );
9377: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9379: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9380: IF p_control_rec.process_partial THEN
9381: x_return_status := FND_API.G_RET_STS_ERROR;
9382: ELSE
9383: RAISE FND_API.G_EXC_ERROR;
9377: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9379: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9380: IF p_control_rec.process_partial THEN
9381: x_return_status := FND_API.G_RET_STS_ERROR;
9382: ELSE
9383: RAISE FND_API.G_EXC_ERROR;
9384: END IF;
9385: END IF;
9379: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9380: IF p_control_rec.process_partial THEN
9381: x_return_status := FND_API.G_RET_STS_ERROR;
9382: ELSE
9383: RAISE FND_API.G_EXC_ERROR;
9384: END IF;
9385: END IF;
9386:
9387: END IF;
9399: END IF;
9400:
9401: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9402: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Scredit
9403: ,p_delete => FND_API.G_TRUE
9404: ,x_return_status => l_return_status
9405: );
9406:
9407: IF l_debug_level > 0 THEN
9407: IF l_debug_level > 0 THEN
9408: oe_debug_pub.add( 'PROCESSED DELAYED REQUESTS FOR LINES' , 2 ) ;
9409: END IF;
9410:
9411: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9413: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9414: RAISE FND_API.G_EXC_ERROR;
9415: END IF;
9408: oe_debug_pub.add( 'PROCESSED DELAYED REQUESTS FOR LINES' , 2 ) ;
9409: END IF;
9410:
9411: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9413: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9414: RAISE FND_API.G_EXC_ERROR;
9415: END IF;
9416:
9409: END IF;
9410:
9411: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9413: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9414: RAISE FND_API.G_EXC_ERROR;
9415: END IF;
9416:
9417: END IF;
9410:
9411: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9413: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9414: RAISE FND_API.G_EXC_ERROR;
9415: END IF;
9416:
9417: END IF;
9418:
9433: l_Lot_Serial_rec := l_Lot_Serial_tbl(I);
9434:
9435: IF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_CREATE
9436: AND (l_Lot_Serial_rec.line_id IS NULL OR
9437: l_Lot_Serial_rec.line_id = FND_API.G_MISS_NUM)
9438: THEN
9439:
9440: -- Check If parent exists.
9441:
9470: , p_x_Lot_Serial_tbl => l_Lot_Serial_tbl
9471: , p_x_old_Lot_Serial_tbl => l_old_Lot_Serial_tbl
9472: , x_return_status => l_return_status
9473: );
9474: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9476: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9477: IF p_control_rec.process_partial THEN
9478: x_return_status := FND_API.G_RET_STS_ERROR;
9471: , p_x_old_Lot_Serial_tbl => l_old_Lot_Serial_tbl
9472: , x_return_status => l_return_status
9473: );
9474: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9476: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9477: IF p_control_rec.process_partial THEN
9478: x_return_status := FND_API.G_RET_STS_ERROR;
9479: ELSE
9472: , x_return_status => l_return_status
9473: );
9474: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9476: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9477: IF p_control_rec.process_partial THEN
9478: x_return_status := FND_API.G_RET_STS_ERROR;
9479: ELSE
9480: RAISE FND_API.G_EXC_ERROR;
9474: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9476: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9477: IF p_control_rec.process_partial THEN
9478: x_return_status := FND_API.G_RET_STS_ERROR;
9479: ELSE
9480: RAISE FND_API.G_EXC_ERROR;
9481: END IF;
9482: END IF;
9476: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9477: IF p_control_rec.process_partial THEN
9478: x_return_status := FND_API.G_RET_STS_ERROR;
9479: ELSE
9480: RAISE FND_API.G_EXC_ERROR;
9481: END IF;
9482: END IF;
9483:
9484: END IF;
9510: l_Line_Price_Att_rec := l_Line_Price_Att_tbl(I);
9511:
9512: IF l_Line_Price_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
9513: AND (l_Line_Price_Att_rec.line_id IS NULL OR
9514: l_Line_Price_Att_rec.line_id = FND_API.G_MISS_NUM)
9515: THEN
9516:
9517: IF l_debug_level > 0 THEN
9518: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ATTRIB TABLE' , 2 ) ;
9532: THEN
9533: IF l_debug_level > 0 THEN
9534: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_PRICE_ATT_REC.LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
9535: END IF;
9536: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9537:
9538: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9539: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Price_Att');
9540: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9569: THEN
9570:
9571: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9572: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
9573: ,p_delete => FND_API.G_TRUE
9574: ,x_return_status => l_return_status
9575: );
9576: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9572: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
9573: ,p_delete => FND_API.G_TRUE
9574: ,x_return_status => l_return_status
9575: );
9576: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9578: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9579: RAISE FND_API.G_EXC_ERROR;
9580: END IF;
9573: ,p_delete => FND_API.G_TRUE
9574: ,x_return_status => l_return_status
9575: );
9576: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9578: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9579: RAISE FND_API.G_EXC_ERROR;
9580: END IF;
9581:
9574: ,x_return_status => l_return_status
9575: );
9576: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9578: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9579: RAISE FND_API.G_EXC_ERROR;
9580: END IF;
9581:
9582: END IF;
9575: );
9576: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9578: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9579: RAISE FND_API.G_EXC_ERROR;
9580: END IF;
9581:
9582: END IF;
9583:
9597: l_Line_Adj_Att_rec := l_Line_Adj_Att_tbl(I);
9598:
9599: IF l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
9600: AND (l_Line_Adj_Att_rec.price_adjustment_id IS NULL OR
9601: l_Line_Adj_Att_rec.price_adjustment_id = FND_API.G_MISS_NUM)
9602: THEN
9603:
9604: IF l_debug_level > 0 THEN
9605: oe_debug_pub.add( 'SETTING ADJ IDS ON LINE ADJ ATTRIB TABLE' , 2 ) ;
9618: THEN
9619: IF l_debug_level > 0 THEN
9620: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( L_LINE_ADJ_ATT_REC.ADJ_INDEX ) ||'ON ADJ ATTRIBS' , 2 ) ;
9621: END IF;
9622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9623:
9624: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9625: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj_Att');
9626: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9656: THEN
9657:
9658: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9659: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Att
9660: ,p_delete => FND_API.G_TRUE
9661: ,x_return_status => l_return_status
9662: );
9663: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9659: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Att
9660: ,p_delete => FND_API.G_TRUE
9661: ,x_return_status => l_return_status
9662: );
9663: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9665: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9666: RAISE FND_API.G_EXC_ERROR;
9667: END IF;
9660: ,p_delete => FND_API.G_TRUE
9661: ,x_return_status => l_return_status
9662: );
9663: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9665: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9666: RAISE FND_API.G_EXC_ERROR;
9667: END IF;
9668:
9661: ,x_return_status => l_return_status
9662: );
9663: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9665: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9666: RAISE FND_API.G_EXC_ERROR;
9667: END IF;
9668:
9669: END IF;
9662: );
9663: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9665: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9666: RAISE FND_API.G_EXC_ERROR;
9667: END IF;
9668:
9669: END IF;
9670: */
9684: l_Line_Adj_Assoc_rec := l_Line_Adj_Assoc_tbl(I);
9685:
9686: IF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
9687: AND (l_Line_Adj_Assoc_rec.price_adjustment_id IS NULL OR
9688: l_Line_Adj_Assoc_rec.price_adjustment_id = FND_API.G_MISS_NUM)
9689: THEN
9690:
9691: IF l_debug_level > 0 THEN
9692: oe_debug_pub.add( 'SETTING ADJ IDS ON LINE ADJ ASSOCS TABLE' , 2 ) ;
9705: THEN
9706: IF l_debug_level > 0 THEN
9707: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( L_LINE_ADJ_ASSOC_REC.ADJ_INDEX ) ||'ON ADJ ASSOCS' , 2 ) ;
9708: END IF;
9709: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9710:
9711: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9712: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj_Assoc');
9713: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9719: END IF;
9720:
9721: IF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
9722: AND (l_Line_Adj_Assoc_rec.Line_id IS NULL OR
9723: l_Line_Adj_Assoc_rec.Line_id = FND_API.G_MISS_NUM)
9724: THEN
9725:
9726: IF l_debug_level > 0 THEN
9727: oe_debug_pub.add( 'SETTING LINE IDS ON LINE ADJ ASSOCS TABLE' , 2 ) ;
9737: END IF;
9738:
9739: IF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
9740: AND (l_Line_Adj_Assoc_rec.rltd_Price_Adj_Id IS NULL OR
9741: l_Line_Adj_Assoc_rec.rltd_Price_Adj_Id = FND_API.G_MISS_NUM)
9742: THEN
9743:
9744: IF l_Line_Adj_Tbl.exists(l_Line_Adj_Assoc_Rec.Rltd_Adj_Index) Then
9745: -- Copy parent_id.
9775: THEN
9776:
9777: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9778: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Assoc
9779: ,p_delete => FND_API.G_TRUE
9780: ,x_return_status => l_return_status
9781: );
9782: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9778: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Assoc
9779: ,p_delete => FND_API.G_TRUE
9780: ,x_return_status => l_return_status
9781: );
9782: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9784: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9785: RAISE FND_API.G_EXC_ERROR;
9786: END IF;
9779: ,p_delete => FND_API.G_TRUE
9780: ,x_return_status => l_return_status
9781: );
9782: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9784: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9785: RAISE FND_API.G_EXC_ERROR;
9786: END IF;
9787:
9780: ,x_return_status => l_return_status
9781: );
9782: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9784: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9785: RAISE FND_API.G_EXC_ERROR;
9786: END IF;
9787:
9788: END IF;
9781: );
9782: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9784: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9785: RAISE FND_API.G_EXC_ERROR;
9786: END IF;
9787:
9788: END IF;
9789: */
9800: -- oe_debug_pub.add('Processing Line Requests ' ||TO_CHAR(k), 2);
9801: IF (l_request_tbl(k).entity_code IS NULL OR
9802: l_request_tbl(k).entity_code = Oe_Globals.G_ENTITY_HEADER) THEN
9803:
9804: IF (l_request_tbl(k).entity_id = FND_API.G_MISS_NUM
9805: OR l_request_tbl(k).entity_id is null ) THEN
9806: IF l_header_rec.header_id IS NULL OR
9807: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
9808: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
9803:
9804: IF (l_request_tbl(k).entity_id = FND_API.G_MISS_NUM
9805: OR l_request_tbl(k).entity_id is null ) THEN
9806: IF l_header_rec.header_id IS NULL OR
9807: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
9808: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
9809: OE_MSG_PUB.Add;
9810: RAISE FND_API.G_EXC_ERROR;
9811: ELSE
9806: IF l_header_rec.header_id IS NULL OR
9807: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
9808: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
9809: OE_MSG_PUB.Add;
9810: RAISE FND_API.G_EXC_ERROR;
9811: ELSE
9812:
9813: l_request_tbl(k).entity_id := l_header_rec.header_id;
9814:
9815: END IF;
9816: END IF;
9817: ELSIF (l_request_tbl(k).entity_code = Oe_Globals.G_ENTITY_LINE) THEN
9818:
9819: IF (to_number(l_request_tbl(k).param1) <> FND_API.G_MISS_NUM)
9820: AND (l_request_tbl(k).param1 IS NOT NULL) THEN
9821:
9822: l_line_index := to_number(l_request_tbl(k).param1) ;
9823: oe_debug_pub.add('Line Index is '||TO_CHAR(l_line_index), 2);
9823: oe_debug_pub.add('Line Index is '||TO_CHAR(l_line_index), 2);
9824:
9825: IF l_line_tbl.EXISTS(l_line_index) THEN
9826:
9827: IF (l_request_tbl(k).entity_id = FND_API.G_MISS_NUM)
9828: OR (l_request_tbl(k).entity_id IS NULL) THEN
9829:
9830: l_request_tbl(k).entity_id := l_line_tbl(l_line_index).line_id;
9831:
9835:
9836: oe_debug_pub.add('Invalid Line Index '
9837: ||TO_CHAR(l_line_index)
9838: ||'on Action Request', 2);
9839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9840: END IF; -- If Valid Line Index
9841: END IF; -- Line Index is not null and not missing
9842: END IF;
9843: END LOOP;
9856:
9857: IF (l_request_tbl(I).entity_code = OE_GLOBALS.G_ENTITY_HEADER) THEN
9858:
9859: IF (l_request_tbl(I).entity_id IS NULL OR
9860: l_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
9861: THEN
9862: IF l_debug_level > 0 THEN
9863: oe_debug_pub.add( 'SETTING HEADER IDS ON REQUEST TABLE FOR HEADER ENTITY' , 2 ) ;
9864: END IF;
9862: IF l_debug_level > 0 THEN
9863: oe_debug_pub.add( 'SETTING HEADER IDS ON REQUEST TABLE FOR HEADER ENTITY' , 2 ) ;
9864: END IF;
9865: IF l_header_rec.header_id IS NULL OR
9866: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
9867: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
9868: OE_MSG_PUB.Add;
9869: RAISE FND_API.G_EXC_ERROR;
9870: ELSE
9865: IF l_header_rec.header_id IS NULL OR
9866: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
9867: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
9868: OE_MSG_PUB.Add;
9869: RAISE FND_API.G_EXC_ERROR;
9870: ELSE
9871: l_request_tbl(I).entity_id := l_header_rec.header_id;
9872: END IF;
9873: END IF;
9874:
9875: ELSIF (l_request_tbl(I).entity_code = OE_GLOBALS.G_ENTITY_LINE) THEN
9876:
9877: IF (l_request_tbl(I).entity_id IS NULL OR
9878: l_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
9879: THEN
9880: IF l_debug_level > 0 THEN
9881: oe_debug_pub.add( 'SETTING LINE IDS ON REQUEST TABLE FOR LINE ENTITY' , 2 ) ;
9882: END IF;
9894: THEN
9895: IF l_debug_level > 0 THEN
9896: oe_debug_pub.add( 'INVALID ENTITY INDEX ' ||TO_CHAR ( L_REQUEST_TBL ( I ) .ENTITY_INDEX ) ||'ON REQUEST TABLE FOR LINE ENTITY' , 2 ) ;
9897: END IF;
9898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9899: END IF;
9900: END IF;
9901: END IF;
9902: END IF;
9921: );
9922: IF l_debug_level > 0 THEN
9923: oe_debug_pub.add( 'OEXVORDB: COMPLETED PROCESS_DELAYED_REQUESTS ' || ' WITH RETURN STATUS' || L_RETURN_STATUS , 2 ) ;
9924: END IF;
9925: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9927: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9928: RAISE FND_API.G_EXC_ERROR;
9929: END IF;
9922: IF l_debug_level > 0 THEN
9923: oe_debug_pub.add( 'OEXVORDB: COMPLETED PROCESS_DELAYED_REQUESTS ' || ' WITH RETURN STATUS' || L_RETURN_STATUS , 2 ) ;
9924: END IF;
9925: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9927: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9928: RAISE FND_API.G_EXC_ERROR;
9929: END IF;
9930:
9923: oe_debug_pub.add( 'OEXVORDB: COMPLETED PROCESS_DELAYED_REQUESTS ' || ' WITH RETURN STATUS' || L_RETURN_STATUS , 2 ) ;
9924: END IF;
9925: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9927: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9928: RAISE FND_API.G_EXC_ERROR;
9929: END IF;
9930:
9931: END IF;
9924: END IF;
9925: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9927: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9928: RAISE FND_API.G_EXC_ERROR;
9929: END IF;
9930:
9931: END IF;
9932:
9980: END IF;
9981:
9982: -- Derive return status
9983:
9984: IF l_header_rec.return_status = FND_API.G_RET_STS_ERROR THEN
9985: x_return_status := FND_API.G_RET_STS_ERROR;
9986: END IF;
9987:
9988: -- Do not need to loop through header_scredits, lines
9981:
9982: -- Derive return status
9983:
9984: IF l_header_rec.return_status = FND_API.G_RET_STS_ERROR THEN
9985: x_return_status := FND_API.G_RET_STS_ERROR;
9986: END IF;
9987:
9988: -- Do not need to loop through header_scredits, lines
9989: -- line_scredits or lot_serials as the x_return_status is set
9992: -- FOR I IN 1..l_Header_Adj_tbl.COUNT LOOP
9993: I := l_Header_Adj_tbl.FIRST;
9994: WHILE I IS NOT NULL LOOP
9995:
9996: IF l_Header_Adj_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
9997: x_return_status := FND_API.G_RET_STS_ERROR;
9998: END IF;
9999:
10000: I := l_Header_Adj_tbl.NEXT(I);
9993: I := l_Header_Adj_tbl.FIRST;
9994: WHILE I IS NOT NULL LOOP
9995:
9996: IF l_Header_Adj_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
9997: x_return_status := FND_API.G_RET_STS_ERROR;
9998: END IF;
9999:
10000: I := l_Header_Adj_tbl.NEXT(I);
10001: END LOOP;
10002:
10003: I := l_Header_Price_Att_tbl.FIRST;
10004: WHILE I IS NOT NULL LOOP
10005:
10006: IF l_Header_Price_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10007: x_return_status := FND_API.G_RET_STS_ERROR;
10008: END IF;
10009:
10010: I := l_Header_Price_Att_tbl.NEXT(I);
10003: I := l_Header_Price_Att_tbl.FIRST;
10004: WHILE I IS NOT NULL LOOP
10005:
10006: IF l_Header_Price_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10007: x_return_status := FND_API.G_RET_STS_ERROR;
10008: END IF;
10009:
10010: I := l_Header_Price_Att_tbl.NEXT(I);
10011: END LOOP;
10012:
10013: I := l_Header_Adj_Att_tbl.FIRST;
10014: WHILE I IS NOT NULL LOOP
10015:
10016: IF l_Header_Adj_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10017: x_return_status := FND_API.G_RET_STS_ERROR;
10018: END IF;
10019:
10020: I := l_Header_Adj_Att_tbl.NEXT(I);
10013: I := l_Header_Adj_Att_tbl.FIRST;
10014: WHILE I IS NOT NULL LOOP
10015:
10016: IF l_Header_Adj_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10017: x_return_status := FND_API.G_RET_STS_ERROR;
10018: END IF;
10019:
10020: I := l_Header_Adj_Att_tbl.NEXT(I);
10021: END LOOP;
10022:
10023: I := l_Header_Adj_Assoc_tbl.FIRST;
10024: WHILE I IS NOT NULL LOOP
10025:
10026: IF l_Header_Adj_Assoc_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10027: x_return_status := FND_API.G_RET_STS_ERROR;
10028: END IF;
10029:
10030: I := l_Header_Adj_Assoc_tbl.NEXT(I);
10023: I := l_Header_Adj_Assoc_tbl.FIRST;
10024: WHILE I IS NOT NULL LOOP
10025:
10026: IF l_Header_Adj_Assoc_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10027: x_return_status := FND_API.G_RET_STS_ERROR;
10028: END IF;
10029:
10030: I := l_Header_Adj_Assoc_tbl.NEXT(I);
10031: END LOOP;
10034:
10035: I := l_Line_Adj_tbl.FIRST;
10036: WHILE I IS NOT NULL LOOP
10037:
10038: IF l_Line_Adj_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10039: x_return_status := FND_API.G_RET_STS_ERROR;
10040: END IF;
10041:
10042: I := l_Line_Adj_tbl.NEXT(I);
10035: I := l_Line_Adj_tbl.FIRST;
10036: WHILE I IS NOT NULL LOOP
10037:
10038: IF l_Line_Adj_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10039: x_return_status := FND_API.G_RET_STS_ERROR;
10040: END IF;
10041:
10042: I := l_Line_Adj_tbl.NEXT(I);
10043: END LOOP;
10044:
10045: I := l_Line_Price_Att_tbl.FIRST;
10046: WHILE I IS NOT NULL LOOP
10047:
10048: IF l_Line_Price_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10049: x_return_status := FND_API.G_RET_STS_ERROR;
10050: END IF;
10051:
10052: I := l_Line_Price_Att_tbl.NEXT(I);
10045: I := l_Line_Price_Att_tbl.FIRST;
10046: WHILE I IS NOT NULL LOOP
10047:
10048: IF l_Line_Price_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10049: x_return_status := FND_API.G_RET_STS_ERROR;
10050: END IF;
10051:
10052: I := l_Line_Price_Att_tbl.NEXT(I);
10053: END LOOP;
10054:
10055: I := l_Line_Adj_Att_tbl.FIRST;
10056: WHILE I IS NOT NULL LOOP
10057:
10058: IF l_Line_Adj_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10059: x_return_status := FND_API.G_RET_STS_ERROR;
10060: END IF;
10061:
10062: I := l_Line_Adj_Att_tbl.NEXT(I);
10055: I := l_Line_Adj_Att_tbl.FIRST;
10056: WHILE I IS NOT NULL LOOP
10057:
10058: IF l_Line_Adj_Att_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10059: x_return_status := FND_API.G_RET_STS_ERROR;
10060: END IF;
10061:
10062: I := l_Line_Adj_Att_tbl.NEXT(I);
10063: END LOOP;
10064:
10065: I := l_Line_Adj_Assoc_tbl.FIRST;
10066: WHILE I IS NOT NULL LOOP
10067:
10068: IF l_Line_Adj_Assoc_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10069: x_return_status := FND_API.G_RET_STS_ERROR;
10070: END IF;
10071:
10072: I := l_Line_Adj_Assoc_tbl.NEXT(I);
10065: I := l_Line_Adj_Assoc_tbl.FIRST;
10066: WHILE I IS NOT NULL LOOP
10067:
10068: IF l_Line_Adj_Assoc_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
10069: x_return_status := FND_API.G_RET_STS_ERROR;
10070: END IF;
10071:
10072: I := l_Line_Adj_Assoc_tbl.NEXT(I);
10073: END LOOP;
10104: p_old_Line_Scredit_tbl => l_old_line_Scredit_tbl,
10105: p_Lot_Serial_tbl => l_lot_Serial_tbl,
10106: p_old_Lot_Serial_tbl => l_old_Lot_Serial_tbl);
10107:
10108: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10110: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10111: RAISE FND_API.G_EXC_ERROR;
10112: END IF;
10105: p_Lot_Serial_tbl => l_lot_Serial_tbl,
10106: p_old_Lot_Serial_tbl => l_old_Lot_Serial_tbl);
10107:
10108: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10110: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10111: RAISE FND_API.G_EXC_ERROR;
10112: END IF;
10113:
10106: p_old_Lot_Serial_tbl => l_old_Lot_Serial_tbl);
10107:
10108: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10110: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10111: RAISE FND_API.G_EXC_ERROR;
10112: END IF;
10113:
10114: ELSE
10107:
10108: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10110: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10111: RAISE FND_API.G_EXC_ERROR;
10112: END IF;
10113:
10114: ELSE
10115: /* Pre Pack H processsing */
10117: IF l_debug_level > 0 THEN
10118: oe_debug_pub.add( 'CS BEFORE CALLING NOTIFY_OC API' , 1 ) ;
10119: END IF;
10120:
10121: IF x_return_status = FND_API.G_RET_STS_SUCCESS AND
10122: p_control_rec.write_to_db = TRUE
10123: AND oe_order_cache.g_header_rec.booked_flag = 'Y'
10124: THEN
10125: IF l_debug_level > 0 THEN
10168:
10169: IF l_debug_level > 0 THEN
10170: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
10171: END IF;
10172: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10174: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10175: RAISE FND_API.G_EXC_ERROR;
10176: END IF;
10169: IF l_debug_level > 0 THEN
10170: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
10171: END IF;
10172: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10174: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10175: RAISE FND_API.G_EXC_ERROR;
10176: END IF;
10177:
10170: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
10171: END IF;
10172: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10174: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10175: RAISE FND_API.G_EXC_ERROR;
10176: END IF;
10177:
10178:
10171: END IF;
10172: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10174: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10175: RAISE FND_API.G_EXC_ERROR;
10176: END IF;
10177:
10178:
10179: END IF;
10182: oe_debug_pub.add( 'PROCESSING ACKS' , 1 ) ;
10183: END IF;
10184: -- Following check is commented to fix 2380911
10185: IF -- OE_Globals.G_RECURSION_MODE <> 'Y' AND
10186: x_return_status = FND_API.G_RET_STS_SUCCESS AND
10187: l_control_rec.write_to_db = TRUE
10188: THEN
10189: IF l_debug_level > 0 THEN
10190: oe_debug_pub.add( 'CALLING ACKS API' , 1 ) ;
10228: ,x_return_status => l_return_status
10229: );
10230: End If;
10231:
10232: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10234: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10235: RAISE FND_API.G_EXC_ERROR;
10236: x_return_status := l_return_status;
10229: );
10230: End If;
10231:
10232: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10234: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10235: RAISE FND_API.G_EXC_ERROR;
10236: x_return_status := l_return_status;
10237: END IF;
10230: End If;
10231:
10232: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10234: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10235: RAISE FND_API.G_EXC_ERROR;
10236: x_return_status := l_return_status;
10237: END IF;
10238: END IF;
10231:
10232: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10234: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10235: RAISE FND_API.G_EXC_ERROR;
10236: x_return_status := l_return_status;
10237: END IF;
10238: END IF;
10239:
10273: END IF;
10274:
10275: EXCEPTION
10276:
10277: WHEN FND_API.G_EXC_ERROR THEN
10278:
10279: IF l_debug_level > 0 THEN
10280: oe_debug_pub.add( 'PO: EXITING PROCESS ORDER WITH ERROR' , 2 ) ;
10281: END IF;
10282: set_recursion_mode(p_Entity_Code => 1,
10283: p_In_out => 0);
10284: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
10285: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
10286: x_return_status := FND_API.G_RET_STS_ERROR;
10287:
10288: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
10289: IF l_debug_level > 0 THEN
10290: oe_debug_pub.add( 'DELETE REQUEST11' , 2 ) ;
10305: ( p_count => x_msg_count
10306: , p_data => x_msg_data
10307: );
10308:
10309: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10310:
10311: IF l_debug_level > 0 THEN
10312: oe_debug_pub.add( 'PO: EXITING PROCESS ORDER WITH UNEXPECTED ERROR' , 2 ) ;
10313: END IF;
10314: set_recursion_mode(p_Entity_Code => 1,
10315: p_In_out => 0);
10316: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
10317: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
10318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10319:
10320: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
10321: IF l_debug_level > 0 THEN
10322: oe_debug_pub.add( 'DELETE REQUEST12' , 2 ) ;
10347: set_recursion_mode(p_Entity_Code => 1,
10348: p_In_out => 0);
10349: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
10350: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
10351: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10352:
10353: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
10354: IF l_debug_level > 0 THEN
10355: oe_debug_pub.add( 'DELETE REQUEST13' , 2 ) ;
10399: -- End of Comments
10400: ---------------------------------------------------------------*/
10401: PROCEDURE Lock_Order
10402: ( p_api_version_number IN NUMBER
10403: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
10404: , x_return_status OUT NOCOPY VARCHAR2
10405:
10406: , x_msg_count OUT NOCOPY NUMBER
10407:
10450:
10451: -- overloaded for payments parameters
10452: PROCEDURE Lock_Order
10453: ( p_api_version_number IN NUMBER
10454: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
10455: , x_return_status OUT NOCOPY VARCHAR2
10456:
10457: , x_msg_count OUT NOCOPY NUMBER
10458:
10476: )
10477: IS
10478: l_api_version_number CONSTANT NUMBER := 1.0;
10479: l_api_name CONSTANT VARCHAR2(30):= 'Lock_Order';
10480: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
10481: I NUMBER; -- Used for index.
10482: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
10483: BEGIN
10484:
10486: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.LOCK_ORDER' , 1 ) ;
10487: END IF;
10488: -- Standard call to check for call compatibility
10489:
10490: IF NOT FND_API.Compatible_API_Call
10491: ( l_api_version_number
10492: , p_api_version_number
10493: , l_api_name
10494: , G_PKG_NAME
10493: , l_api_name
10494: , G_PKG_NAME
10495: )
10496: THEN
10497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10498: END IF;
10499:
10500: -- Initialize message list.
10501:
10498: END IF;
10499:
10500: -- Initialize message list.
10501:
10502: IF FND_API.to_Boolean(p_init_msg_list) THEN
10503: OE_MSG_PUB.initialize;
10504: END IF;
10505:
10506: -- Set Savepoint
10515: ( p_x_header_rec => p_x_header_rec
10516: , x_return_status => l_return_status
10517: );
10518:
10519: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10520: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10521: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10522: RAISE FND_API.G_EXC_ERROR;
10523: END IF;
10516: , x_return_status => l_return_status
10517: );
10518:
10519: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10520: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10521: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10522: RAISE FND_API.G_EXC_ERROR;
10523: END IF;
10524:
10517: );
10518:
10519: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10520: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10521: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10522: RAISE FND_API.G_EXC_ERROR;
10523: END IF;
10524:
10525:
10518:
10519: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10520: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10521: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10522: RAISE FND_API.G_EXC_ERROR;
10523: END IF;
10524:
10525:
10526: END IF;
10538: ( p_x_Header_Adj_rec => p_x_Header_Adj_tbl(I)
10539: , x_return_status => l_return_status
10540: );
10541:
10542: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10544: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10545: RAISE FND_API.G_EXC_ERROR;
10546: END IF;
10539: , x_return_status => l_return_status
10540: );
10541:
10542: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10544: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10545: RAISE FND_API.G_EXC_ERROR;
10546: END IF;
10547:
10540: );
10541:
10542: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10544: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10545: RAISE FND_API.G_EXC_ERROR;
10546: END IF;
10547:
10548: END IF;
10541:
10542: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10544: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10545: RAISE FND_API.G_EXC_ERROR;
10546: END IF;
10547:
10548: END IF;
10549:
10562: ( p_x_Header_Price_Att_rec => p_x_Header_Price_Att_tbl(I)
10563: , x_return_status => l_return_status
10564: );
10565:
10566: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10568: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10569: RAISE FND_API.G_EXC_ERROR;
10570: END IF;
10563: , x_return_status => l_return_status
10564: );
10565:
10566: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10568: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10569: RAISE FND_API.G_EXC_ERROR;
10570: END IF;
10571:
10564: );
10565:
10566: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10568: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10569: RAISE FND_API.G_EXC_ERROR;
10570: END IF;
10571:
10572: END IF;
10565:
10566: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10568: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10569: RAISE FND_API.G_EXC_ERROR;
10570: END IF;
10571:
10572: END IF;
10573:
10586: ( p_x_Header_Adj_Att_rec => p_x_Header_Adj_Att_tbl(I)
10587: , x_return_status => l_return_status
10588: );
10589:
10590: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10592: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10593: RAISE FND_API.G_EXC_ERROR;
10594: END IF;
10587: , x_return_status => l_return_status
10588: );
10589:
10590: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10592: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10593: RAISE FND_API.G_EXC_ERROR;
10594: END IF;
10595:
10588: );
10589:
10590: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10592: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10593: RAISE FND_API.G_EXC_ERROR;
10594: END IF;
10595:
10596: END IF;
10589:
10590: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10592: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10593: RAISE FND_API.G_EXC_ERROR;
10594: END IF;
10595:
10596: END IF;
10597:
10610: ( p_x_Header_Adj_Assoc_rec => p_x_Header_Adj_Assoc_tbl(I)
10611: , x_return_status => l_return_status
10612: );
10613:
10614: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10616: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10617: RAISE FND_API.G_EXC_ERROR;
10618: END IF;
10611: , x_return_status => l_return_status
10612: );
10613:
10614: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10616: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10617: RAISE FND_API.G_EXC_ERROR;
10618: END IF;
10619:
10612: );
10613:
10614: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10616: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10617: RAISE FND_API.G_EXC_ERROR;
10618: END IF;
10619:
10620: END IF;
10613:
10614: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10616: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10617: RAISE FND_API.G_EXC_ERROR;
10618: END IF;
10619:
10620: END IF;
10621:
10636: ( p_x_Header_Scredit_rec => p_x_Header_Scredit_tbl(I)
10637: , x_return_status => l_return_status
10638: );
10639:
10640: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10642: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10643: RAISE FND_API.G_EXC_ERROR;
10644: END IF;
10637: , x_return_status => l_return_status
10638: );
10639:
10640: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10642: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10643: RAISE FND_API.G_EXC_ERROR;
10644: END IF;
10645:
10638: );
10639:
10640: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10642: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10643: RAISE FND_API.G_EXC_ERROR;
10644: END IF;
10645:
10646: END IF;
10639:
10640: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10642: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10643: RAISE FND_API.G_EXC_ERROR;
10644: END IF;
10645:
10646: END IF;
10647:
10661: ( p_x_Header_Payment_rec => p_x_Header_Payment_tbl(I)
10662: , x_return_status => l_return_status
10663: );
10664:
10665: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10667: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10668: RAISE FND_API.G_EXC_ERROR;
10669: END IF;
10662: , x_return_status => l_return_status
10663: );
10664:
10665: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10667: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10668: RAISE FND_API.G_EXC_ERROR;
10669: END IF;
10670:
10663: );
10664:
10665: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10667: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10668: RAISE FND_API.G_EXC_ERROR;
10669: END IF;
10670:
10671: END IF;
10664:
10665: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10667: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10668: RAISE FND_API.G_EXC_ERROR;
10669: END IF;
10670:
10671: END IF;
10672:
10688: ( p_x_line_rec => p_x_line_tbl(I)
10689: , x_return_status => l_return_status
10690: );
10691:
10692: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10694: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10695: RAISE FND_API.G_EXC_ERROR;
10696: END IF;
10689: , x_return_status => l_return_status
10690: );
10691:
10692: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10694: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10695: RAISE FND_API.G_EXC_ERROR;
10696: END IF;
10697:
10690: );
10691:
10692: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10694: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10695: RAISE FND_API.G_EXC_ERROR;
10696: END IF;
10697:
10698: END IF;
10691:
10692: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10694: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10695: RAISE FND_API.G_EXC_ERROR;
10696: END IF;
10697:
10698: END IF;
10699:
10714: ( p_x_Line_Adj_rec => p_x_Line_Adj_tbl(I)
10715: , x_return_status => l_return_status
10716: );
10717:
10718: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10719: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10720: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10721: RAISE FND_API.G_EXC_ERROR;
10722: END IF;
10715: , x_return_status => l_return_status
10716: );
10717:
10718: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10719: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10720: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10721: RAISE FND_API.G_EXC_ERROR;
10722: END IF;
10723:
10716: );
10717:
10718: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10719: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10720: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10721: RAISE FND_API.G_EXC_ERROR;
10722: END IF;
10723:
10724: END IF;
10717:
10718: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10719: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10720: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10721: RAISE FND_API.G_EXC_ERROR;
10722: END IF;
10723:
10724: END IF;
10725:
10738: ( p_x_Line_Price_Att_rec => p_x_Line_Price_Att_tbl(I)
10739: , x_return_status => l_return_status
10740: );
10741:
10742: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10744: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10745: RAISE FND_API.G_EXC_ERROR;
10746: END IF;
10739: , x_return_status => l_return_status
10740: );
10741:
10742: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10744: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10745: RAISE FND_API.G_EXC_ERROR;
10746: END IF;
10747:
10740: );
10741:
10742: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10744: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10745: RAISE FND_API.G_EXC_ERROR;
10746: END IF;
10747:
10748: END IF;
10741:
10742: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10744: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10745: RAISE FND_API.G_EXC_ERROR;
10746: END IF;
10747:
10748: END IF;
10749:
10762: ( p_x_Line_Adj_Att_rec => p_x_Line_Adj_Att_tbl(I)
10763: , x_return_status => l_return_status
10764: );
10765:
10766: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10768: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10769: RAISE FND_API.G_EXC_ERROR;
10770: END IF;
10763: , x_return_status => l_return_status
10764: );
10765:
10766: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10768: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10769: RAISE FND_API.G_EXC_ERROR;
10770: END IF;
10771:
10764: );
10765:
10766: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10768: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10769: RAISE FND_API.G_EXC_ERROR;
10770: END IF;
10771:
10772: END IF;
10765:
10766: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10768: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10769: RAISE FND_API.G_EXC_ERROR;
10770: END IF;
10771:
10772: END IF;
10773:
10786: ( p_x_Line_Adj_Assoc_rec => p_x_Line_Adj_Assoc_tbl(I)
10787: , x_return_status => l_return_status
10788: );
10789:
10790: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10792: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10793: RAISE FND_API.G_EXC_ERROR;
10794: END IF;
10787: , x_return_status => l_return_status
10788: );
10789:
10790: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10792: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10793: RAISE FND_API.G_EXC_ERROR;
10794: END IF;
10795:
10788: );
10789:
10790: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10792: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10793: RAISE FND_API.G_EXC_ERROR;
10794: END IF;
10795:
10796: END IF;
10789:
10790: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10792: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10793: RAISE FND_API.G_EXC_ERROR;
10794: END IF;
10795:
10796: END IF;
10797:
10811: ( p_x_Line_Scredit_rec => p_x_Line_Scredit_tbl(I)
10812: , x_return_status => l_return_status
10813: );
10814:
10815: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10817: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10818: RAISE FND_API.G_EXC_ERROR;
10819: END IF;
10812: , x_return_status => l_return_status
10813: );
10814:
10815: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10817: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10818: RAISE FND_API.G_EXC_ERROR;
10819: END IF;
10820:
10813: );
10814:
10815: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10817: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10818: RAISE FND_API.G_EXC_ERROR;
10819: END IF;
10820:
10821: END IF;
10814:
10815: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10817: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10818: RAISE FND_API.G_EXC_ERROR;
10819: END IF;
10820:
10821: END IF;
10822:
10837: ( p_x_Line_Payment_rec => p_x_Line_Payment_tbl(I)
10838: , x_return_status => l_return_status
10839: );
10840:
10841: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10842: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10843: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10844: RAISE FND_API.G_EXC_ERROR;
10845: END IF;
10838: , x_return_status => l_return_status
10839: );
10840:
10841: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10842: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10843: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10844: RAISE FND_API.G_EXC_ERROR;
10845: END IF;
10846:
10839: );
10840:
10841: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10842: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10843: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10844: RAISE FND_API.G_EXC_ERROR;
10845: END IF;
10846:
10847: END IF;
10840:
10841: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10842: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10843: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10844: RAISE FND_API.G_EXC_ERROR;
10845: END IF;
10846:
10847: END IF;
10848:
10864: ( p_x_Lot_Serial_rec => p_x_Lot_Serial_tbl(I)
10865: , x_return_status => l_return_status
10866: );
10867:
10868: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10870: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10871: RAISE FND_API.G_EXC_ERROR;
10872: END IF;
10865: , x_return_status => l_return_status
10866: );
10867:
10868: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10870: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10871: RAISE FND_API.G_EXC_ERROR;
10872: END IF;
10873:
10866: );
10867:
10868: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10870: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10871: RAISE FND_API.G_EXC_ERROR;
10872: END IF;
10873:
10874: END IF;
10867:
10868: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10870: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10871: RAISE FND_API.G_EXC_ERROR;
10872: END IF;
10873:
10874: END IF;
10875:
10878: END LOOP;
10879:
10880: -- Set return status
10881:
10882: x_return_status := FND_API.G_RET_STS_SUCCESS;
10883:
10884: -- Get message count and data
10885:
10886: OE_MSG_PUB.Count_And_Get
10898: END IF;
10899:
10900: EXCEPTION
10901:
10902: WHEN FND_API.G_EXC_ERROR THEN
10903:
10904: x_return_status := FND_API.G_RET_STS_ERROR;
10905:
10906: -- Get message count and data
10900: EXCEPTION
10901:
10902: WHEN FND_API.G_EXC_ERROR THEN
10903:
10904: x_return_status := FND_API.G_RET_STS_ERROR;
10905:
10906: -- Get message count and data
10907:
10908: OE_MSG_PUB.Count_And_Get
10913: -- Rollback
10914:
10915: ROLLBACK TO Lock_Order_PVT;
10916:
10917: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10918:
10919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10920:
10921: -- Get message count and data
10915: ROLLBACK TO Lock_Order_PVT;
10916:
10917: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10918:
10919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10920:
10921: -- Get message count and data
10922:
10923: OE_MSG_PUB.Count_And_Get
10930: ROLLBACK TO Lock_Order_PVT;
10931:
10932: WHEN OTHERS THEN
10933:
10934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10935:
10936: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10937: THEN
10938: OE_MSG_PUB.Add_Exc_Msg
10973:
10974: --------------------------------------------------------------*/
10975: PROCEDURE Get_Order
10976: ( p_api_version_number IN NUMBER
10977: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
10978: , x_return_status OUT NOCOPY VARCHAR2
10979:
10980: , x_msg_count OUT NOCOPY NUMBER
10981:
11026:
11027: -- overloaded for payments parameters
11028: PROCEDURE Get_Order
11029: ( p_api_version_number IN NUMBER
11030: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
11031: , x_return_status OUT NOCOPY VARCHAR2
11032:
11033: , x_msg_count OUT NOCOPY NUMBER
11034:
11073: BEGIN
11074:
11075: -- Standard call to check for call compatibility
11076:
11077: IF NOT FND_API.Compatible_API_Call
11078: ( l_api_version_number
11079: , p_api_version_number
11080: , l_api_name
11081: , G_PKG_NAME
11080: , l_api_name
11081: , G_PKG_NAME
11082: )
11083: THEN
11084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11085: END IF;
11086:
11087: -- Initialize message list.
11088:
11085: END IF;
11086:
11087: -- Initialize message list.
11088:
11089: IF FND_API.to_Boolean(p_init_msg_list) THEN
11090: OE_MSG_PUB.initialize;
11091: END IF;
11092:
11093: -- Get header ( parent = header )
11332: END LOOP;
11333:
11334: -- Set return status
11335:
11336: x_return_status := FND_API.G_RET_STS_SUCCESS;
11337:
11338: -- Get message count and data
11339:
11340: OE_MSG_PUB.Count_And_Get
11344:
11345:
11346: EXCEPTION
11347:
11348: WHEN FND_API.G_EXC_ERROR THEN
11349:
11350: x_return_status := FND_API.G_RET_STS_ERROR;
11351:
11352: -- Get message count and data
11346: EXCEPTION
11347:
11348: WHEN FND_API.G_EXC_ERROR THEN
11349:
11350: x_return_status := FND_API.G_RET_STS_ERROR;
11351:
11352: -- Get message count and data
11353:
11354: OE_MSG_PUB.Count_And_Get
11355: ( p_count => x_msg_count
11356: , p_data => x_msg_data
11357: );
11358:
11359: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11360:
11361: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11362:
11363: -- Get message count and data
11357: );
11358:
11359: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11360:
11361: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11362:
11363: -- Get message count and data
11364:
11365: OE_MSG_PUB.Count_And_Get
11368: );
11369:
11370: WHEN OTHERS THEN
11371:
11372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11373:
11374: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
11375: THEN
11376: OE_MSG_PUB.Add_Exc_Msg
11394: --------------------------------------------------------------*/
11395:
11396: Procedure Cancel_Order
11397: ( p_api_version_number IN NUMBER
11398: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
11399: , x_return_status OUT NOCOPY VARCHAR2
11400:
11401: , x_msg_count OUT NOCOPY NUMBER
11402:
11415: IF l_debug_level > 0 THEN
11416: oe_debug_pub.add( 'ENTERING OE_ORDER_PUB.CANCEL_ORDER' , 1 ) ;
11417: END IF;
11418:
11419: IF NOT FND_API.Compatible_API_Call
11420: ( l_api_version_number
11421: , p_api_version_number
11422: , l_api_name
11423: , G_PKG_NAME
11422: , l_api_name
11423: , G_PKG_NAME
11424: )
11425: THEN
11426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11427: END IF;
11428:
11429: -- Initialize message list if p_init_msg_list is set to TRUE.
11430: IF FND_API.to_Boolean( p_init_msg_list ) THEN
11426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11427: END IF;
11428:
11429: -- Initialize message list if p_init_msg_list is set to TRUE.
11430: IF FND_API.to_Boolean( p_init_msg_list ) THEN
11431: OE_MSG_PUB.initialize;
11432: END IF;
11433:
11434: -- Initialize API return status to success
11431: OE_MSG_PUB.initialize;
11432: END IF;
11433:
11434: -- Initialize API return status to success
11435: x_return_status := FND_API.G_RET_STS_SUCCESS;
11436:
11437: IF l_debug_level > 0 THEN
11438: oe_debug_pub.add( 'CALLING OE_SALES_CAN_UTIL.CANCEL_LINE' , 2 ) ;
11439: END IF;
11446: IF l_debug_level > 0 THEN
11447: oe_debug_pub.add( 'COMPLETED OE_SALES_CAN_UTIL.CANCEL_LINE WITH STATUS ' || L_RETURN_STATUS , 2 ) ;
11448: END IF;
11449:
11450: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11451: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11452: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11453: RAISE FND_API.G_EXC_ERROR;
11454: END IF;
11447: oe_debug_pub.add( 'COMPLETED OE_SALES_CAN_UTIL.CANCEL_LINE WITH STATUS ' || L_RETURN_STATUS , 2 ) ;
11448: END IF;
11449:
11450: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11451: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11452: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11453: RAISE FND_API.G_EXC_ERROR;
11454: END IF;
11455:
11448: END IF;
11449:
11450: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11451: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11452: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11453: RAISE FND_API.G_EXC_ERROR;
11454: END IF;
11455:
11456: IF l_debug_level > 0 THEN
11449:
11450: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11451: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11452: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11453: RAISE FND_API.G_EXC_ERROR;
11454: END IF;
11455:
11456: IF l_debug_level > 0 THEN
11457: oe_debug_pub.add( 'EXITING OE_ORDER_PUB.CANCEL_ORDER' , 1 ) ;
11458: END IF;
11459:
11460: EXCEPTION
11461:
11462: WHEN FND_API.G_EXC_ERROR THEN
11463: x_return_status := FND_API.G_RET_STS_ERROR;
11464:
11465: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11466: IF OE_MSG_PUB.Check_MSg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
11459:
11460: EXCEPTION
11461:
11462: WHEN FND_API.G_EXC_ERROR THEN
11463: x_return_status := FND_API.G_RET_STS_ERROR;
11464:
11465: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11466: IF OE_MSG_PUB.Check_MSg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
11467: OE_MSG_PUB.Add_Exc_Msg
11461:
11462: WHEN FND_API.G_EXC_ERROR THEN
11463: x_return_status := FND_API.G_RET_STS_ERROR;
11464:
11465: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11466: IF OE_MSG_PUB.Check_MSg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
11467: OE_MSG_PUB.Add_Exc_Msg
11468: (G_PKG_NAME
11469: ,'Cancel_Order');
11467: OE_MSG_PUB.Add_Exc_Msg
11468: (G_PKG_NAME
11469: ,'Cancel_Order');
11470: END IF;
11471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11472:
11473: WHEN OTHERS THEN
11474:
11475: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
11479: , 'Cancel_Order'
11480: );
11481: END IF;
11482:
11483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11484:
11485: END Cancel_Order;
11486:
11487:
11604: -- if only a class/options is created in exiting model,
11605: -- you need to explode the model, rare case.
11606:
11607: IF p_x_line_rec.top_model_line_index is NOT NULL AND
11608: p_x_line_rec.top_model_line_index <> FND_API.G_MISS_NUM AND
11609: nvl(p_x_line_tbl(p_x_line_rec.top_model_line_index).operation, 'A') <>
11610: OE_GLOBALS.G_OPR_CREATE
11611: THEN
11612: l_line_rec := p_x_line_tbl(p_x_line_rec.top_model_line_index);
11632: BEGIN
11633:
11634: IF p_x_line_rec.config_header_id is not NULL AND
11635: p_x_line_rec.configuration_id is not NULL AND
11636: p_x_line_rec.config_header_id <> FND_API.G_MISS_NUM AND
11637: p_x_line_rec.configuration_id <> FND_API.G_MISS_NUM AND
11638: OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
11639:
11640: IF l_debug_level > 0 THEN
11633:
11634: IF p_x_line_rec.config_header_id is not NULL AND
11635: p_x_line_rec.configuration_id is not NULL AND
11636: p_x_line_rec.config_header_id <> FND_API.G_MISS_NUM AND
11637: p_x_line_rec.configuration_id <> FND_API.G_MISS_NUM AND
11638: OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
11639:
11640: IF l_debug_level > 0 THEN
11641: oe_debug_pub.add( 'COMP_CONFIG VORDB: PACK H NEW LOGIC MI' , 1 ) ;
11659: oe_debug_pub.add( 'COMP_CONFIG VORDB: USING BOM_EXPLOSION' , 1 ) ;
11660: END IF;
11661:
11662: IF p_x_line_rec.component_code is not NULL AND
11663: p_x_line_rec.component_code <> FND_API.G_MISS_CHAR
11664: THEN
11665: IF l_debug_level > 0 THEN
11666: oe_debug_pub.add( 'COMPONENT CODE PASSED , SOMETHING ELSE NULL' , 3 ) ;
11667: END IF;
11708: END IF;
11709: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_ITEM_NOT_IN_BILL');
11710: --bug4015696
11711: IF p_x_line_rec.ordered_item IS NULL OR
11712: p_x_line_rec.ordered_item = FND_API.G_MISS_CHAR THEN
11713: IF p_x_line_rec.item_identifier_type = FND_API.G_MISS_CHAR THEN
11714: l_item_identifier_type := NULL;
11715: ELSE
11716: l_item_identifier_type := p_x_line_rec.item_identifier_type;
11709: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_ITEM_NOT_IN_BILL');
11710: --bug4015696
11711: IF p_x_line_rec.ordered_item IS NULL OR
11712: p_x_line_rec.ordered_item = FND_API.G_MISS_CHAR THEN
11713: IF p_x_line_rec.item_identifier_type = FND_API.G_MISS_CHAR THEN
11714: l_item_identifier_type := NULL;
11715: ELSE
11716: l_item_identifier_type := p_x_line_rec.item_identifier_type;
11717: END IF;
11724: ,p_ordered_item_id => p_x_line_rec.ordered_item_id
11725: ,p_sold_to_org_id => p_x_line_rec.sold_to_org_id
11726: ,x_ordered_item => p_x_line_rec.ordered_item );
11727: IF p_x_line_rec.ordered_item IS NULL OR
11728: p_x_line_rec.ordered_item = FND_API.G_MISS_CHAR THEN
11729: FND_MESSAGE.Set_Token('ITEM',p_x_line_rec.inventory_item_id);
11730: ELSE
11731: FND_MESSAGE.Set_Token('ITEM',p_x_line_rec.ordered_item);
11732: END IF;
11739: IF p_process_partial THEN
11740: IF l_debug_level > 0 THEN /* Bug # 4036765 */
11741: oe_debug_pub.add( 'PROCESS PARTIAL IS TRUE' , 3 ) ;
11742: END IF;
11743: p_x_line_rec.return_status := FND_API.G_RET_STS_ERROR;
11744: p_x_line_rec.operation := OE_GLOBALS.G_OPR_NONE;
11745: OE_GLOBALS.G_FAIL_ORDER_IMPORT := TRUE; /* Bug # 4036765 */
11746: ELSE
11747: IF l_debug_level > 0 THEN
11746: ELSE
11747: IF l_debug_level > 0 THEN
11748: oe_debug_pub.add( 'PROCESS PARTIAL IS NOT TRUE' , 3 ) ;
11749: END IF;
11750: RAISE FND_API.G_EXC_ERROR;
11751: END IF;
11752:
11753: WHEN TOO_MANY_ROWS THEN
11754: IF l_debug_level > 0 THEN
11759: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_AMBIGUITY');
11760: FND_MESSAGE.Set_Token('COMPONENT', p_x_line_rec.ordered_item);
11761: FND_MESSAGE.Set_Token('MODEL', nvl(l_model_ordered_item,l_line_rec.inventory_item_id));
11762: oe_msg_pub.add;
11763: RAISE FND_API.G_EXC_ERROR;
11764:
11765: WHEN OTHERS THEN
11766: IF l_debug_level > 0 THEN
11767: oe_debug_pub.add( 'SELECT COMP_CODE FAILED , OTHERS ' , 1 ) ;
11766: IF l_debug_level > 0 THEN
11767: oe_debug_pub.add( 'SELECT COMP_CODE FAILED , OTHERS ' , 1 ) ;
11768: oe_debug_pub.add( 'ITEM: '|| P_X_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
11769: END IF;
11770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11771: END;
11772:
11773:
11774: IF l_bom_item_type = 2 OR
11864: IF OE_Config_Util.G_Config_UI_Used = 'Y' THEN
11865: IF l_debug_level > 0 THEN
11866: oe_debug_pub.add( 'CONFIGURATOR/OW USED , SHOULD NOT COME HERE' , 1 ) ;
11867: END IF;
11868: RAISE FND_API.G_EXC_ERROR;
11869: END IF;
11870:
11871:
11872: l_index := p_x_line_tbl.LAST;
11943:
11944: IF p_x_line_tbl(l_option_index).config_header_id is not NULL AND
11945: p_x_line_tbl(l_option_index).configuration_id is not NULL AND
11946: p_x_line_tbl(l_option_index).config_header_id <>
11947: FND_API.G_MISS_NUM AND
11948: p_x_line_tbl(l_option_index).configuration_id <>
11949: FND_API.G_MISS_NUM AND
11950: OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
11951:
11945: p_x_line_tbl(l_option_index).configuration_id is not NULL AND
11946: p_x_line_tbl(l_option_index).config_header_id <>
11947: FND_API.G_MISS_NUM AND
11948: p_x_line_tbl(l_option_index).configuration_id <>
11949: FND_API.G_MISS_NUM AND
11950: OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
11951:
11952: IF l_debug_level > 0 THEN
11953: oe_debug_pub.add( 'VORDB: PACK H NEW LOGIC MI' , 1 ) ;
12081: WHEN NO_DATA_FOUND THEN
12082: IF l_debug_level > 0 THEN
12083: oe_debug_pub.add( 'NAME OF THE ITEM NOT FOUND' , 1 ) ;
12084: END IF;
12085: RAISE FND_API.G_EXC_ERROR;
12086: END;
12087:
12088: IF l_debug_level > 0 THEN
12089: oe_debug_pub.add