[Home] [Help]
69: INTO l_list_header_id
70: FROM qp_list_headers_tl
71: WHERE NAME = p_modifier_name
72: AND LANGUAGE = userenv('LANG')
73: AND nvl(VERSION_NO, FND_API.G_MISS_CHAR)= nvl(p_version_no, FND_API.G_MISS_CHAR);
74:
75: IF l_debug_level > 0 THEN
76: oe_debug_pub.add( 'OEXVIMSB->BEFORE SELECT QP_LIST_LINE FOR DIS' ) ;
77: END IF;
96: INTO l_list_header_id
97: FROM qp_list_headers_tl
98: WHERE NAME = p_modifier_name
99: AND LANGUAGE = userenv('LANG')
100: AND nvl(VERSION_NO,FND_API.G_MISS_CHAR) = nvl(p_version_no,FND_API.G_MISS_CHAR);
101:
102: IF l_debug_level > 0 THEN
103: oe_debug_pub.add( 'OEXVIMSB->BEFORE SELECT QP_LIST_LINE FOR PROMOLINE' ) ;
104: END IF;
132: -- processing will stop
133: -- If it is NULL and it does not found, the processing will continue and
134: -- will search coupon table
135: IF (p_list_line_type_code = 'PROMO' or
136: p_list_line_type_code = FND_API.G_MISS_CHAR) Then
137:
138: BEGIN
139: IF l_debug_level > 0 THEN
140: oe_debug_pub.add( 'OEXVIMSB-> PROMO OR MISS_CHAR' ) ;
167: END IF;
168: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_LIST_NAME');
169: FND_MESSAGE.SET_TOKEN('LIST_NAME',p_modifier_name);
170: OE_MSG_PUB.Add;
171: p_return_status := FND_API.G_RET_STS_ERROR;
172: return;
173: END IF;
174:
175: END IF;
200: END IF;
201: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_LIST_NAME');
202: FND_MESSAGE.SET_TOKEN('LIST_NAME',p_modifier_name);
203: OE_MSG_PUB.Add;
204: p_return_status := FND_API.G_RET_STS_ERROR;
205: END;
206: END IF;
207: END IF;
208:
221: END IF;
222: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_LIST_NAME');
223: FND_MESSAGE.SET_TOKEN('LIST_NAME',p_modifier_name);
224: OE_MSG_PUB.Add;
225: p_return_status := FND_API.G_RET_STS_ERROR;
226:
227: END IF;
228:
229: WHEN OTHERS THEN
239: , sqlerrm
240: );
241: END IF;
242:
243: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
245:
246: END List_Line_Id;
247:
240: );
241: END IF;
242:
243: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
245:
246: END List_Line_Id;
247:
248:
283: 'New Value: '|| fnd_profile.value('HZ_EXECUTE_API_CALLOUTS'));
284: END IF;
285: END IF;
286:
287: x_return_status := FND_API.G_RET_STS_SUCCESS;
288: -- { Start Check for each column of the record and
289: -- For the Not Null value call the Create_Customer_Info
290: -- api with relavant parameter.
291: If p_customer_rec.orig_sys_customer_ref is Not Null Then
305: x_customer_info_id => l_customer_info_id,
306: x_customer_info_number => l_customer_info_number,
307: x_return_status => l_return_status);
308:
309: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
310: IF l_debug_level > 0 THEN
311: oe_debug_pub.add( 'RETURN ERROR IN CREATE CUSTOMER INFO FOR ACCOUNT' ) ;
312: END IF;
313: x_return_status := l_return_status;
349: END IF;
350: fnd_message.set_name('ONT','ONT_OI_INL_SET_PARAMETER');
351: fnd_message.set_token('TYPE', 'Customers');
352: oe_msg_pub.add;
353: x_return_status := FND_API.G_RET_STS_ERROR;
354: Return;
355: End If;
356: -- End for Add customer privilege check}
357: End If;
373: x_customer_info_id => l_customer_info_id,
374: x_customer_info_number => l_customer_info_number,
375: x_return_status => l_return_status);
376:
377: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
378: IF l_debug_level > 0 THEN
379: oe_debug_pub.add( 'RETURN ERROR IN CREATE CUSTOMER INFO FOR ADDRESS' ) ;
380: END IF;
381: x_return_status := l_return_status;
429: x_customer_info_id => l_customer_info_id,
430: x_customer_info_number => l_customer_info_number,
431: x_return_status => l_return_status);
432:
433: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
434: IF l_debug_level > 0 THEN
435: oe_debug_pub.add( 'RETURN ERROR IN CREATE CUSTOMER INFO FOR ADDRESS' ) ;
436: END IF;
437: x_return_status := l_return_status;
485: x_customer_info_id => l_customer_info_id,
486: x_customer_info_number => l_customer_info_number,
487: x_return_status => l_return_status);
488:
489: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
490: IF l_debug_level > 0 THEN
491: oe_debug_pub.add( 'RETURN ERROR IN CREATE CUSTOMER INFO FOR ADDRESS' ) ;
492: END IF;
493: x_return_status := l_return_status;
541: x_customer_info_id => l_customer_info_id,
542: x_customer_info_number => l_customer_info_number,
543: x_return_status => l_return_status);
544:
545: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
546: IF l_debug_level > 0 THEN
547: oe_debug_pub.add( 'RETURN ERROR IN CREATE CUSTOMER INFO FOR CONTACT' ) ;
548: END IF;
549: x_return_status := l_return_status;
595: x_customer_info_id => l_customer_info_id,
596: x_customer_info_number => l_customer_info_number,
597: x_return_status => l_return_status);
598:
599: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
600: IF l_debug_level > 0 THEN
601: oe_debug_pub.add( 'RETURN ERROR IN CREATE CUSTOMER INFO FOR CONTACT' ) ;
602: END IF;
603: x_return_status := l_return_status;
651: x_customer_info_id => l_customer_info_id,
652: x_customer_info_number => l_customer_info_number,
653: x_return_status => l_return_status);
654:
655: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
656: IF l_debug_level > 0 THEN
657: oe_debug_pub.add( 'RETURN ERROR IN CREATE CUSTOMER INFO FOR CONTACT' ) ;
658: END IF;
659: x_return_status := l_return_status;
707: x_customer_info_id => l_customer_info_id,
708: x_customer_info_number => l_customer_info_number,
709: x_return_status => l_return_status);
710:
711: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
712: IF l_debug_level > 0 THEN
713: oe_debug_pub.add( 'RETURN ERROR IN CREATE CUSTOMER INFO FOR CONTACT' ) ;
714: END IF;
715: x_return_status := l_return_status;
837:
838: IF l_debug_level > 0 THEN
839: oe_debug_pub.add( 'VERSION_NUMBER = '||P_X_HEADER_REC.VERSION_NUMBER ) ;
840: END IF;
841: IF p_x_header_rec.version_number <> FND_API.G_MISS_NUM
842: THEN
843: IF l_debug_level > 0 THEN
844: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN VERSION_NUMBER... ' ) ;
845: END IF;
845: END IF;
846: FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
847: FND_MESSAGE.SET_TOKEN('DERIVED_COL','VERSION_NUMBER');
848: OE_MSG_PUB.Add;
849: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
850: -- p_x_header_rec.version_number := FND_API.G_MISS_NUM;
851: END IF;
852:
853: IF p_x_header_rec.EARLIEST_SCHEDULE_LIMIT <> FND_API.G_MISS_NUM
846: FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
847: FND_MESSAGE.SET_TOKEN('DERIVED_COL','VERSION_NUMBER');
848: OE_MSG_PUB.Add;
849: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
850: -- p_x_header_rec.version_number := FND_API.G_MISS_NUM;
851: END IF;
852:
853: IF p_x_header_rec.EARLIEST_SCHEDULE_LIMIT <> FND_API.G_MISS_NUM
854: THEN
849: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
850: -- p_x_header_rec.version_number := FND_API.G_MISS_NUM;
851: END IF;
852:
853: IF p_x_header_rec.EARLIEST_SCHEDULE_LIMIT <> FND_API.G_MISS_NUM
854: THEN
855: IF l_debug_level > 0 THEN
856: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN EARLIEST_SCHEDULE_LIMIT... ' ) ;
857: END IF;
857: END IF;
858: FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
859: FND_MESSAGE.SET_TOKEN('DERIVED_COL','EARLIEST_SCHEDULE_LIMIT');
860: OE_MSG_PUB.Add;
861: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
862: -- p_x_header_rec.EARLIEST_SCHEDULE_LIMIT := FND_API.G_MISS_NUM;
863: END IF;
864:
865: IF p_x_header_rec.FREIGHT_CARRIER_CODE <> FND_API.G_MISS_CHAR
858: FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
859: FND_MESSAGE.SET_TOKEN('DERIVED_COL','EARLIEST_SCHEDULE_LIMIT');
860: OE_MSG_PUB.Add;
861: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
862: -- p_x_header_rec.EARLIEST_SCHEDULE_LIMIT := FND_API.G_MISS_NUM;
863: END IF;
864:
865: IF p_x_header_rec.FREIGHT_CARRIER_CODE <> FND_API.G_MISS_CHAR
866: THEN
861: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
862: -- p_x_header_rec.EARLIEST_SCHEDULE_LIMIT := FND_API.G_MISS_NUM;
863: END IF;
864:
865: IF p_x_header_rec.FREIGHT_CARRIER_CODE <> FND_API.G_MISS_CHAR
866: THEN
867: IF l_debug_level > 0 THEN
868: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN FREIGHT_CARRIER_CODE... ' ) ;
869: END IF;
869: END IF;
870: FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
871: FND_MESSAGE.SET_TOKEN('DERIVED_COL','FREIGHT_CARRIER_CODE');
872: OE_MSG_PUB.Add;
873: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
874: -- p_x_header_rec.FREIGHT_CARRIER_CODE := FND_API.G_MISS_CHAR;
875: END IF;
876:
877: IF p_x_header_rec.ORG_ID <> FND_API.G_MISS_NUM
870: FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
871: FND_MESSAGE.SET_TOKEN('DERIVED_COL','FREIGHT_CARRIER_CODE');
872: OE_MSG_PUB.Add;
873: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
874: -- p_x_header_rec.FREIGHT_CARRIER_CODE := FND_API.G_MISS_CHAR;
875: END IF;
876:
877: IF p_x_header_rec.ORG_ID <> FND_API.G_MISS_NUM
878: AND p_x_header_rec.order_source_id <> OE_GLOBALS.G_ORDER_SOURCE_INTERNAL
873: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
874: -- p_x_header_rec.FREIGHT_CARRIER_CODE := FND_API.G_MISS_CHAR;
875: END IF;
876:
877: IF p_x_header_rec.ORG_ID <> FND_API.G_MISS_NUM
878: AND p_x_header_rec.order_source_id <> OE_GLOBALS.G_ORDER_SOURCE_INTERNAL
879: THEN
880: IF l_debug_level > 0 THEN
881: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN ORG_ID... ' ) ;
882: END IF;
883: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
884: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','ORG_ID');
885: -- OE_MSG_PUB.Add;
886: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
887: -- p_x_header_rec.ORG_ID := FND_API.G_MISS_NUM;
888: END IF;
889:
890: IF p_x_header_rec.PARTIAL_SHIPMENTS_ALLOWED <> FND_API.G_MISS_CHAR
883: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
884: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','ORG_ID');
885: -- OE_MSG_PUB.Add;
886: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
887: -- p_x_header_rec.ORG_ID := FND_API.G_MISS_NUM;
888: END IF;
889:
890: IF p_x_header_rec.PARTIAL_SHIPMENTS_ALLOWED <> FND_API.G_MISS_CHAR
891: THEN
886: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
887: -- p_x_header_rec.ORG_ID := FND_API.G_MISS_NUM;
888: END IF;
889:
890: IF p_x_header_rec.PARTIAL_SHIPMENTS_ALLOWED <> FND_API.G_MISS_CHAR
891: THEN
892: IF l_debug_level > 0 THEN
893: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN PARTIAL_SHIPMENTS_ALLOWED... ' ) ;
894: END IF;
894: END IF;
895: FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
896: FND_MESSAGE.SET_TOKEN('DERIVED_COL','PARTIAL_SHIPMENTS_ALLOWED');
897: OE_MSG_PUB.Add;
898: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
899: -- p_x_header_rec.ORG_ID := FND_API.G_MISS_CHAR;
900: END IF;
901:
902: IF p_x_header_rec.CHANGE_REQUEST_CODE <> FND_API.G_MISS_CHAR
895: FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
896: FND_MESSAGE.SET_TOKEN('DERIVED_COL','PARTIAL_SHIPMENTS_ALLOWED');
897: OE_MSG_PUB.Add;
898: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
899: -- p_x_header_rec.ORG_ID := FND_API.G_MISS_CHAR;
900: END IF;
901:
902: IF p_x_header_rec.CHANGE_REQUEST_CODE <> FND_API.G_MISS_CHAR
903: THEN
898: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
899: -- p_x_header_rec.ORG_ID := FND_API.G_MISS_CHAR;
900: END IF;
901:
902: IF p_x_header_rec.CHANGE_REQUEST_CODE <> FND_API.G_MISS_CHAR
903: THEN
904: IF l_debug_level > 0 THEN
905: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN CHANGE_REQUEST_CODE... ' ) ;
906: END IF;
906: END IF;
907: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
908: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','CHANGE_REQUEST_CODE');
909: -- OE_MSG_PUB.Add;
910: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
911: -- p_x_header_rec.CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
912: END IF;
913:
914: IF p_x_header_rec.DROP_SHIP_FLAG <> FND_API.G_MISS_CHAR
907: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
908: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','CHANGE_REQUEST_CODE');
909: -- OE_MSG_PUB.Add;
910: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
911: -- p_x_header_rec.CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
912: END IF;
913:
914: IF p_x_header_rec.DROP_SHIP_FLAG <> FND_API.G_MISS_CHAR
915: THEN
910: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
911: -- p_x_header_rec.CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
912: END IF;
913:
914: IF p_x_header_rec.DROP_SHIP_FLAG <> FND_API.G_MISS_CHAR
915: THEN
916: IF l_debug_level > 0 THEN
917: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN DROP_SHIP_FLAG... ' ) ;
918: END IF;
918: END IF;
919: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
920: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','DROP_SHIP_FLAG');
921: -- OE_MSG_PUB.Add;
922: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
923: -- p_x_header_rec.CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
924: END IF;
925:
926: IF p_x_header_rec.CREDIT_CARD_APPROVAL_CODE <> FND_API.G_MISS_CHAR
919: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
920: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','DROP_SHIP_FLAG');
921: -- OE_MSG_PUB.Add;
922: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
923: -- p_x_header_rec.CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
924: END IF;
925:
926: IF p_x_header_rec.CREDIT_CARD_APPROVAL_CODE <> FND_API.G_MISS_CHAR
927: THEN
922: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
923: -- p_x_header_rec.CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
924: END IF;
925:
926: IF p_x_header_rec.CREDIT_CARD_APPROVAL_CODE <> FND_API.G_MISS_CHAR
927: THEN
928: IF l_debug_level > 0 THEN
929: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN CREDIT_CARD_APPROVAL_CODE... ' ) ;
930: END IF;
930: END IF;
931: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
932: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','CREDIT_CARD_APPROVAL_CODE');
933: -- OE_MSG_PUB.Add;
934: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
935: -- p_x_header_rec.CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
936: END IF;
937:
938: IF p_x_header_rec.CREDIT_CARD_APPROVAL_DATE <> FND_API.G_MISS_DATE
931: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
932: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','CREDIT_CARD_APPROVAL_CODE');
933: -- OE_MSG_PUB.Add;
934: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
935: -- p_x_header_rec.CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
936: END IF;
937:
938: IF p_x_header_rec.CREDIT_CARD_APPROVAL_DATE <> FND_API.G_MISS_DATE
939: THEN
934: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
935: -- p_x_header_rec.CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
936: END IF;
937:
938: IF p_x_header_rec.CREDIT_CARD_APPROVAL_DATE <> FND_API.G_MISS_DATE
939: THEN
940: IF l_debug_level > 0 THEN
941: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN CREDIT_CARD_APPROVAL_DATE... ' ) ;
942: END IF;
942: END IF;
943: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
944: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','CREDIT_CARD_APPROVAL_DATE');
945: -- OE_MSG_PUB.Add;
946: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
947: -- p_x_header_rec.CHANGE_REQUEST_CODE := FND_API.G_MISS_DATE;
948: END IF;
949:
950: --added for bug3645778
943: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
944: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','CREDIT_CARD_APPROVAL_DATE');
945: -- OE_MSG_PUB.Add;
946: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
947: -- p_x_header_rec.CHANGE_REQUEST_CODE := FND_API.G_MISS_DATE;
948: END IF;
949:
950: --added for bug3645778
951: oe_debug_pub.add(' in CHECK_DERIVED_FLAGS , operation : '||p_x_header_rec.OPERATION);
958: oe_debug_pub.add( 'CANCELLATION IS NOT ALLOWED WHILE CREATING AN ORDER... ' ) ;
959: END IF;
960: FND_MESSAGE.SET_NAME('ONT','OE_CANCEL_NO_CREATE');
961: OE_MSG_PUB.Add;
962: p_x_return_status := FND_API.G_RET_STS_ERROR;
963: p_x_header_rec.CANCELLED_FLAG := FND_API.G_MISS_CHAR;
964: END IF;
965:
966: --end bug3645778
959: END IF;
960: FND_MESSAGE.SET_NAME('ONT','OE_CANCEL_NO_CREATE');
961: OE_MSG_PUB.Add;
962: p_x_return_status := FND_API.G_RET_STS_ERROR;
963: p_x_header_rec.CANCELLED_FLAG := FND_API.G_MISS_CHAR;
964: END IF;
965:
966: --end bug3645778
967:
1000: ,p_attribute_code => null
1001: ,p_constraint_id => null
1002: );
1003:
1004: IF p_x_line_tbl(I).ACTUAL_ARRIVAL_DATE <> FND_API.G_MISS_DATE
1005: THEN
1006: IF l_debug_level > 0 THEN
1007: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN ACTUAL_ARRIVAL_DATE... ' ) ;
1008: END IF;
1008: END IF;
1009: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1010: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','ACTUAL_ARRIVAL_DATE');
1011: -- OE_MSG_PUB.Add;
1012: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1013: -- p_x_line_tbl(I).ACTUAL_ARRIVAL_DATE := FND_API.G_MISS_DATE;
1014: END IF;
1015:
1016: IF p_x_line_tbl(I).ATO_LINE_ID <> FND_API.G_MISS_NUM
1009: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1010: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','ACTUAL_ARRIVAL_DATE');
1011: -- OE_MSG_PUB.Add;
1012: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1013: -- p_x_line_tbl(I).ACTUAL_ARRIVAL_DATE := FND_API.G_MISS_DATE;
1014: END IF;
1015:
1016: IF p_x_line_tbl(I).ATO_LINE_ID <> FND_API.G_MISS_NUM
1017: THEN
1012: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1013: -- p_x_line_tbl(I).ACTUAL_ARRIVAL_DATE := FND_API.G_MISS_DATE;
1014: END IF;
1015:
1016: IF p_x_line_tbl(I).ATO_LINE_ID <> FND_API.G_MISS_NUM
1017: THEN
1018: IF l_debug_level > 0 THEN
1019: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN ATO_LINE_ID... ' ) ;
1020: END IF;
1020: END IF;
1021: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1022: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','ATO_LINE_ID');
1023: -- OE_MSG_PUB.Add;
1024: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1025: -- p_x_line_tbl(I).ATO_LINE_ID := FND_API.G_MISS_NUM;
1026: END IF;
1027: --for bug 3415653 uncommented the statements which set status to error for cancelled_flag and cancelled_quantity
1028: IF p_x_line_tbl(I).CANCELLED_FLAG <> FND_API.G_MISS_CHAR
1021: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1022: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','ATO_LINE_ID');
1023: -- OE_MSG_PUB.Add;
1024: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1025: -- p_x_line_tbl(I).ATO_LINE_ID := FND_API.G_MISS_NUM;
1026: END IF;
1027: --for bug 3415653 uncommented the statements which set status to error for cancelled_flag and cancelled_quantity
1028: IF p_x_line_tbl(I).CANCELLED_FLAG <> FND_API.G_MISS_CHAR
1029: THEN
1024: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1025: -- p_x_line_tbl(I).ATO_LINE_ID := FND_API.G_MISS_NUM;
1026: END IF;
1027: --for bug 3415653 uncommented the statements which set status to error for cancelled_flag and cancelled_quantity
1028: IF p_x_line_tbl(I).CANCELLED_FLAG <> FND_API.G_MISS_CHAR
1029: THEN
1030: IF l_debug_level > 0 THEN
1031: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN CANCELLED_FLAG... ' ) ;
1032: END IF;
1032: END IF;
1033: FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1034: FND_MESSAGE.SET_TOKEN('DERIVED_COL','CANCELLED_FLAG');
1035: OE_MSG_PUB.Add;
1036: p_x_return_status := FND_API.G_RET_STS_ERROR;
1037: p_x_line_tbl(I).CANCELLED_FLAG := FND_API.G_MISS_CHAR;
1038: END IF;
1039:
1040: IF p_x_line_tbl(I).CANCELLED_QUANTITY <> FND_API.G_MISS_NUM
1033: FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1034: FND_MESSAGE.SET_TOKEN('DERIVED_COL','CANCELLED_FLAG');
1035: OE_MSG_PUB.Add;
1036: p_x_return_status := FND_API.G_RET_STS_ERROR;
1037: p_x_line_tbl(I).CANCELLED_FLAG := FND_API.G_MISS_CHAR;
1038: END IF;
1039:
1040: IF p_x_line_tbl(I).CANCELLED_QUANTITY <> FND_API.G_MISS_NUM
1041: THEN
1036: p_x_return_status := FND_API.G_RET_STS_ERROR;
1037: p_x_line_tbl(I).CANCELLED_FLAG := FND_API.G_MISS_CHAR;
1038: END IF;
1039:
1040: IF p_x_line_tbl(I).CANCELLED_QUANTITY <> FND_API.G_MISS_NUM
1041: THEN
1042: IF l_debug_level > 0 THEN
1043: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN CANCELLED_QUANTITY... ' ) ;
1044: END IF;
1044: END IF;
1045: FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1046: FND_MESSAGE.SET_TOKEN('DERIVED_COL','CANCELLED_QUANTITY');
1047: OE_MSG_PUB.Add;
1048: p_x_return_status := FND_API.G_RET_STS_ERROR;
1049: p_x_line_tbl(I).CANCELLED_QUANTITY := FND_API.G_MISS_NUM;
1050: END IF;
1051:
1052: IF p_x_line_tbl(I).COMPONENT_SEQUENCE_ID <> FND_API.G_MISS_NUM
1045: FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1046: FND_MESSAGE.SET_TOKEN('DERIVED_COL','CANCELLED_QUANTITY');
1047: OE_MSG_PUB.Add;
1048: p_x_return_status := FND_API.G_RET_STS_ERROR;
1049: p_x_line_tbl(I).CANCELLED_QUANTITY := FND_API.G_MISS_NUM;
1050: END IF;
1051:
1052: IF p_x_line_tbl(I).COMPONENT_SEQUENCE_ID <> FND_API.G_MISS_NUM
1053: THEN
1048: p_x_return_status := FND_API.G_RET_STS_ERROR;
1049: p_x_line_tbl(I).CANCELLED_QUANTITY := FND_API.G_MISS_NUM;
1050: END IF;
1051:
1052: IF p_x_line_tbl(I).COMPONENT_SEQUENCE_ID <> FND_API.G_MISS_NUM
1053: THEN
1054: IF l_debug_level > 0 THEN
1055: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN COMPONENT_SEQUENCE_ID... ' ) ;
1056: END IF;
1056: END IF;
1057: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1058: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','COMPONENT_SEQUENCE_ID');
1059: -- OE_MSG_PUB.Add;
1060: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1061: -- p_x_line_tbl(I).COMPONENT_SEQUENCE_ID := FND_API.G_MISS_NUM;
1062: END IF;
1063:
1064: IF p_x_line_tbl(I).CREDIT_INVOICE_LINE_ID <> FND_API.G_MISS_NUM
1057: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1058: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','COMPONENT_SEQUENCE_ID');
1059: -- OE_MSG_PUB.Add;
1060: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1061: -- p_x_line_tbl(I).COMPONENT_SEQUENCE_ID := FND_API.G_MISS_NUM;
1062: END IF;
1063:
1064: IF p_x_line_tbl(I).CREDIT_INVOICE_LINE_ID <> FND_API.G_MISS_NUM
1065: THEN
1060: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1061: -- p_x_line_tbl(I).COMPONENT_SEQUENCE_ID := FND_API.G_MISS_NUM;
1062: END IF;
1063:
1064: IF p_x_line_tbl(I).CREDIT_INVOICE_LINE_ID <> FND_API.G_MISS_NUM
1065: THEN
1066: IF l_debug_level > 0 THEN
1067: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN CREDIT_INVOICE_LINE_ID... ' ) ;
1068: END IF;
1068: END IF;
1069: FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1070: FND_MESSAGE.SET_TOKEN('DERIVED_COL','CREDIT_INVOICE_LINE_ID');
1071: OE_MSG_PUB.Add;
1072: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1073: -- p_x_line_tbl(I).CREDIT_INVOICE_LINE_ID := FND_API.G_MISS_NUM;
1074: END IF;
1075:
1076: IF p_x_line_tbl(I).EXPLOSION_DATE <> FND_API.G_MISS_DATE
1069: FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1070: FND_MESSAGE.SET_TOKEN('DERIVED_COL','CREDIT_INVOICE_LINE_ID');
1071: OE_MSG_PUB.Add;
1072: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1073: -- p_x_line_tbl(I).CREDIT_INVOICE_LINE_ID := FND_API.G_MISS_NUM;
1074: END IF;
1075:
1076: IF p_x_line_tbl(I).EXPLOSION_DATE <> FND_API.G_MISS_DATE
1077: THEN
1072: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1073: -- p_x_line_tbl(I).CREDIT_INVOICE_LINE_ID := FND_API.G_MISS_NUM;
1074: END IF;
1075:
1076: IF p_x_line_tbl(I).EXPLOSION_DATE <> FND_API.G_MISS_DATE
1077: THEN
1078: IF l_debug_level > 0 THEN
1079: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN EXPLOSION_DATE... ' ) ;
1080: END IF;
1080: END IF;
1081: FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1082: FND_MESSAGE.SET_TOKEN('DERIVED_COL','EXPLOSION_DATE');
1083: OE_MSG_PUB.Add;
1084: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1085: -- p_x_line_tbl(I).EXPLOSION_DATE := FND_API.G_MISS_DATE;
1086: END IF;
1087:
1088: IF p_x_line_tbl(I).FULFILLED_QUANTITY <> FND_API.G_MISS_NUM
1081: FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1082: FND_MESSAGE.SET_TOKEN('DERIVED_COL','EXPLOSION_DATE');
1083: OE_MSG_PUB.Add;
1084: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1085: -- p_x_line_tbl(I).EXPLOSION_DATE := FND_API.G_MISS_DATE;
1086: END IF;
1087:
1088: IF p_x_line_tbl(I).FULFILLED_QUANTITY <> FND_API.G_MISS_NUM
1089: THEN
1084: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1085: -- p_x_line_tbl(I).EXPLOSION_DATE := FND_API.G_MISS_DATE;
1086: END IF;
1087:
1088: IF p_x_line_tbl(I).FULFILLED_QUANTITY <> FND_API.G_MISS_NUM
1089: THEN
1090: IF l_debug_level > 0 THEN
1091: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN FULFILLED_QUANTITY... ' ) ;
1092: END IF;
1092: END IF;
1093: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1094: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','FULFILLED_QUANTITY');
1095: -- OE_MSG_PUB.Add;
1096: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1097: -- p_x_line_tbl(I).FULFILLED_QUANTITY := FND_API.G_MISS_NUM;
1098: END IF;
1099: /*
1100: IF p_x_line_tbl(I).ITEM_TYPE_CODE <> FND_API.G_MISS_CHAR
1093: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1094: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','FULFILLED_QUANTITY');
1095: -- OE_MSG_PUB.Add;
1096: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1097: -- p_x_line_tbl(I).FULFILLED_QUANTITY := FND_API.G_MISS_NUM;
1098: END IF;
1099: /*
1100: IF p_x_line_tbl(I).ITEM_TYPE_CODE <> FND_API.G_MISS_CHAR
1101: AND p_x_header_rec.order_source_id <> OE_GLOBALS.G_ORDER_SOURCE_INTERNAL
1096: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1097: -- p_x_line_tbl(I).FULFILLED_QUANTITY := FND_API.G_MISS_NUM;
1098: END IF;
1099: /*
1100: IF p_x_line_tbl(I).ITEM_TYPE_CODE <> FND_API.G_MISS_CHAR
1101: AND p_x_header_rec.order_source_id <> OE_GLOBALS.G_ORDER_SOURCE_INTERNAL
1102: THEN
1103: oe_debug_pub.add('Cannot populate derived column ITEM_TYPE_CODE... ');
1104: FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1103: oe_debug_pub.add('Cannot populate derived column ITEM_TYPE_CODE... ');
1104: FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1105: FND_MESSAGE.SET_TOKEN('DERIVED_COL','ITEM_TYPE_CODE');
1106: OE_MSG_PUB.Add;
1107: p_x_return_status := FND_API.G_RET_STS_ERROR;
1108: p_x_line_tbl(I).ITEM_TYPE_CODE := FND_API.G_MISS_CHAR;
1109: END IF;
1110: */
1111:
1104: FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1105: FND_MESSAGE.SET_TOKEN('DERIVED_COL','ITEM_TYPE_CODE');
1106: OE_MSG_PUB.Add;
1107: p_x_return_status := FND_API.G_RET_STS_ERROR;
1108: p_x_line_tbl(I).ITEM_TYPE_CODE := FND_API.G_MISS_CHAR;
1109: END IF;
1110: */
1111:
1112: IF p_x_line_tbl(I).MODEL_GROUP_NUMBER <> FND_API.G_MISS_NUM
1108: p_x_line_tbl(I).ITEM_TYPE_CODE := FND_API.G_MISS_CHAR;
1109: END IF;
1110: */
1111:
1112: IF p_x_line_tbl(I).MODEL_GROUP_NUMBER <> FND_API.G_MISS_NUM
1113: THEN
1114: IF l_debug_level > 0 THEN
1115: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN MODEL_GROUP_NUMBER... ' ) ;
1116: END IF;
1116: END IF;
1117: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1118: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','MODEL_GROUP_NUMBER');
1119: -- OE_MSG_PUB.Add;
1120: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1121: -- p_x_line_tbl(I).MODEL_GROUP_NUMBER := FND_API.G_MISS_NUM;
1122: END IF;
1123:
1124: IF p_x_line_tbl(I).OPTION_NUMBER <> FND_API.G_MISS_NUM
1117: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1118: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','MODEL_GROUP_NUMBER');
1119: -- OE_MSG_PUB.Add;
1120: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1121: -- p_x_line_tbl(I).MODEL_GROUP_NUMBER := FND_API.G_MISS_NUM;
1122: END IF;
1123:
1124: IF p_x_line_tbl(I).OPTION_NUMBER <> FND_API.G_MISS_NUM
1125: THEN
1120: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1121: -- p_x_line_tbl(I).MODEL_GROUP_NUMBER := FND_API.G_MISS_NUM;
1122: END IF;
1123:
1124: IF p_x_line_tbl(I).OPTION_NUMBER <> FND_API.G_MISS_NUM
1125: THEN
1126: IF l_debug_level > 0 THEN
1127: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN OPTION_NUMBER... ' ) ;
1128: END IF;
1128: END IF;
1129: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1130: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','OPTION_NUMBER');
1131: -- OE_MSG_PUB.Add;
1132: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1133: -- p_x_line_tbl(I).OPTION_NUMBER := FND_API.G_MISS_NUM;
1134: END IF;
1135:
1136: IF p_x_line_tbl(I).ORG_ID <> FND_API.G_MISS_NUM
1129: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1130: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','OPTION_NUMBER');
1131: -- OE_MSG_PUB.Add;
1132: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1133: -- p_x_line_tbl(I).OPTION_NUMBER := FND_API.G_MISS_NUM;
1134: END IF;
1135:
1136: IF p_x_line_tbl(I).ORG_ID <> FND_API.G_MISS_NUM
1137: AND p_x_header_rec.order_source_id <> OE_GLOBALS.G_ORDER_SOURCE_INTERNAL
1132: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1133: -- p_x_line_tbl(I).OPTION_NUMBER := FND_API.G_MISS_NUM;
1134: END IF;
1135:
1136: IF p_x_line_tbl(I).ORG_ID <> FND_API.G_MISS_NUM
1137: AND p_x_header_rec.order_source_id <> OE_GLOBALS.G_ORDER_SOURCE_INTERNAL
1138: THEN
1139: IF l_debug_level > 0 THEN
1140: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN ORG_ID... ' ) ;
1141: END IF;
1142: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1143: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','ORG_ID');
1144: -- OE_MSG_PUB.Add;
1145: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1146: -- p_x_line_tbl(I).ORG_ID := FND_API.G_MISS_NUM;
1147: END IF;
1148:
1149: IF p_x_line_tbl(I).PRICING_CONTEXT <> FND_API.G_MISS_CHAR
1142: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1143: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','ORG_ID');
1144: -- OE_MSG_PUB.Add;
1145: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1146: -- p_x_line_tbl(I).ORG_ID := FND_API.G_MISS_NUM;
1147: END IF;
1148:
1149: IF p_x_line_tbl(I).PRICING_CONTEXT <> FND_API.G_MISS_CHAR
1150: THEN
1145: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1146: -- p_x_line_tbl(I).ORG_ID := FND_API.G_MISS_NUM;
1147: END IF;
1148:
1149: IF p_x_line_tbl(I).PRICING_CONTEXT <> FND_API.G_MISS_CHAR
1150: THEN
1151: IF l_debug_level > 0 THEN
1152: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN PRICING_CONTEXT... ' ) ;
1153: END IF;
1153: END IF;
1154: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1155: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','PRICING_CONTEXT');
1156: -- OE_MSG_PUB.Add;
1157: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1158: -- p_x_line_tbl(I).PRICING_CONTEXT := FND_API.G_MISS_CHAR;
1159: END IF;
1160:
1161: IF p_x_line_tbl(I).PRICING_QUANTITY <> FND_API.G_MISS_NUM
1154: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1155: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','PRICING_CONTEXT');
1156: -- OE_MSG_PUB.Add;
1157: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1158: -- p_x_line_tbl(I).PRICING_CONTEXT := FND_API.G_MISS_CHAR;
1159: END IF;
1160:
1161: IF p_x_line_tbl(I).PRICING_QUANTITY <> FND_API.G_MISS_NUM
1162: THEN
1157: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1158: -- p_x_line_tbl(I).PRICING_CONTEXT := FND_API.G_MISS_CHAR;
1159: END IF;
1160:
1161: IF p_x_line_tbl(I).PRICING_QUANTITY <> FND_API.G_MISS_NUM
1162: THEN
1163: IF l_debug_level > 0 THEN
1164: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN PRICING_QUANTITY... ' ) ;
1165: END IF;
1165: END IF;
1166: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1167: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','PRICING_QUANTITY');
1168: -- OE_MSG_PUB.Add;
1169: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1170: -- p_x_line_tbl(I).PRICING_QUANTITY := FND_API.G_MISS_NUM;
1171: END IF;
1172:
1173: IF p_x_line_tbl(I).PRICING_QUANTITY_UOM <> FND_API.G_MISS_CHAR
1166: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1167: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','PRICING_QUANTITY');
1168: -- OE_MSG_PUB.Add;
1169: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1170: -- p_x_line_tbl(I).PRICING_QUANTITY := FND_API.G_MISS_NUM;
1171: END IF;
1172:
1173: IF p_x_line_tbl(I).PRICING_QUANTITY_UOM <> FND_API.G_MISS_CHAR
1174: THEN
1169: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1170: -- p_x_line_tbl(I).PRICING_QUANTITY := FND_API.G_MISS_NUM;
1171: END IF;
1172:
1173: IF p_x_line_tbl(I).PRICING_QUANTITY_UOM <> FND_API.G_MISS_CHAR
1174: THEN
1175: IF l_debug_level > 0 THEN
1176: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN PRICING_QUANTITY_UOM... ' ) ;
1177: END IF;
1177: END IF;
1178: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1179: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','PRICING_QUANTITY_UOM');
1180: -- OE_MSG_PUB.Add;
1181: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1182: -- p_x_line_tbl(I).PRICING_QUANTITY_UOM := FND_API.G_MISS_CHAR;
1183: END IF;
1184:
1185: IF p_x_line_tbl(I).REFERENCE_TYPE <> FND_API.G_MISS_CHAR
1178: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1179: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','PRICING_QUANTITY_UOM');
1180: -- OE_MSG_PUB.Add;
1181: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1182: -- p_x_line_tbl(I).PRICING_QUANTITY_UOM := FND_API.G_MISS_CHAR;
1183: END IF;
1184:
1185: IF p_x_line_tbl(I).REFERENCE_TYPE <> FND_API.G_MISS_CHAR
1186: THEN
1181: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1182: -- p_x_line_tbl(I).PRICING_QUANTITY_UOM := FND_API.G_MISS_CHAR;
1183: END IF;
1184:
1185: IF p_x_line_tbl(I).REFERENCE_TYPE <> FND_API.G_MISS_CHAR
1186: THEN
1187: IF l_debug_level > 0 THEN
1188: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN REFERENCE_TYPE... ' ) ;
1189: END IF;
1189: END IF;
1190: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1191: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','REFERENCE_TYPE');
1192: -- OE_MSG_PUB.Add;
1193: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1194: -- p_x_line_tbl(I).REFERENCE_TYPE := FND_API.G_MISS_CHAR;
1195: END IF;
1196:
1197: IF p_x_line_tbl(I).REFERENCE_HEADER_ID <> FND_API.G_MISS_NUM
1190: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1191: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','REFERENCE_TYPE');
1192: -- OE_MSG_PUB.Add;
1193: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1194: -- p_x_line_tbl(I).REFERENCE_TYPE := FND_API.G_MISS_CHAR;
1195: END IF;
1196:
1197: IF p_x_line_tbl(I).REFERENCE_HEADER_ID <> FND_API.G_MISS_NUM
1198: THEN
1193: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1194: -- p_x_line_tbl(I).REFERENCE_TYPE := FND_API.G_MISS_CHAR;
1195: END IF;
1196:
1197: IF p_x_line_tbl(I).REFERENCE_HEADER_ID <> FND_API.G_MISS_NUM
1198: THEN
1199: IF l_debug_level > 0 THEN
1200: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN REFERENCE_HEADER_ID... ' ) ;
1201: END IF;
1201: END IF;
1202: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1203: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','REFERENCE_HEADER_ID');
1204: -- OE_MSG_PUB.Add;
1205: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1206: -- p_x_line_tbl(I).REFERENCE_HEADER_ID := FND_API.G_MISS_NUM;
1207: END IF;
1208:
1209: IF p_x_line_tbl(I).REFERENCE_LINE_ID <> FND_API.G_MISS_NUM
1202: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1203: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','REFERENCE_HEADER_ID');
1204: -- OE_MSG_PUB.Add;
1205: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1206: -- p_x_line_tbl(I).REFERENCE_HEADER_ID := FND_API.G_MISS_NUM;
1207: END IF;
1208:
1209: IF p_x_line_tbl(I).REFERENCE_LINE_ID <> FND_API.G_MISS_NUM
1210: THEN
1205: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1206: -- p_x_line_tbl(I).REFERENCE_HEADER_ID := FND_API.G_MISS_NUM;
1207: END IF;
1208:
1209: IF p_x_line_tbl(I).REFERENCE_LINE_ID <> FND_API.G_MISS_NUM
1210: THEN
1211: IF l_debug_level > 0 THEN
1212: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN REFERENCE_LINE_ID... ' ) ;
1213: END IF;
1213: END IF;
1214: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1215: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','REFERENCE_LINE_ID');
1216: -- OE_MSG_PUB.Add;
1217: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1218: -- p_x_line_tbl(I).REFERENCE_LINE_ID := FND_API.G_MISS_NUM;
1219: END IF;
1220:
1221: IF p_x_line_tbl(I).SCHEDULE_STATUS_CODE <> FND_API.G_MISS_CHAR
1214: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1215: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','REFERENCE_LINE_ID');
1216: -- OE_MSG_PUB.Add;
1217: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1218: -- p_x_line_tbl(I).REFERENCE_LINE_ID := FND_API.G_MISS_NUM;
1219: END IF;
1220:
1221: IF p_x_line_tbl(I).SCHEDULE_STATUS_CODE <> FND_API.G_MISS_CHAR
1222: THEN
1217: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1218: -- p_x_line_tbl(I).REFERENCE_LINE_ID := FND_API.G_MISS_NUM;
1219: END IF;
1220:
1221: IF p_x_line_tbl(I).SCHEDULE_STATUS_CODE <> FND_API.G_MISS_CHAR
1222: THEN
1223: IF l_debug_level > 0 THEN
1224: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN SCHEDULE_STATUS_CODE... ' ) ;
1225: END IF;
1225: END IF;
1226: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1227: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','SCHEDULE_STATUS_CODE');
1228: -- OE_MSG_PUB.Add;
1229: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1230: -- p_x_line_tbl(I).SCHEDULE_STATUS_CODE := FND_API.G_MISS_CHAR;
1231: END IF;
1232:
1233: IF p_x_line_tbl(I).SHIPMENT_NUMBER <> FND_API.G_MISS_NUM
1226: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1227: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','SCHEDULE_STATUS_CODE');
1228: -- OE_MSG_PUB.Add;
1229: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1230: -- p_x_line_tbl(I).SCHEDULE_STATUS_CODE := FND_API.G_MISS_CHAR;
1231: END IF;
1232:
1233: IF p_x_line_tbl(I).SHIPMENT_NUMBER <> FND_API.G_MISS_NUM
1234: THEN
1229: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1230: -- p_x_line_tbl(I).SCHEDULE_STATUS_CODE := FND_API.G_MISS_CHAR;
1231: END IF;
1232:
1233: IF p_x_line_tbl(I).SHIPMENT_NUMBER <> FND_API.G_MISS_NUM
1234: THEN
1235: IF l_debug_level > 0 THEN
1236: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN SHIPMENT_NUMBER... ' ) ;
1237: END IF;
1237: END IF;
1238: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1239: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','SHIPMENT_NUMBER');
1240: -- OE_MSG_PUB.Add;
1241: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1242: -- p_x_line_tbl(I).SHIPMENT_NUMBER := FND_API.G_MISS_NUM;
1243: END IF;
1244:
1245: IF p_x_line_tbl(I).SHIPPED_QUANTITY <> FND_API.G_MISS_NUM
1238: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1239: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','SHIPMENT_NUMBER');
1240: -- OE_MSG_PUB.Add;
1241: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1242: -- p_x_line_tbl(I).SHIPMENT_NUMBER := FND_API.G_MISS_NUM;
1243: END IF;
1244:
1245: IF p_x_line_tbl(I).SHIPPED_QUANTITY <> FND_API.G_MISS_NUM
1246: THEN
1241: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1242: -- p_x_line_tbl(I).SHIPMENT_NUMBER := FND_API.G_MISS_NUM;
1243: END IF;
1244:
1245: IF p_x_line_tbl(I).SHIPPED_QUANTITY <> FND_API.G_MISS_NUM
1246: THEN
1247: IF l_debug_level > 0 THEN
1248: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN SHIPPED_QUANTITY... ' ) ;
1249: END IF;
1249: END IF;
1250: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1251: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','SHIPPED_QUANTITY');
1252: -- OE_MSG_PUB.Add;
1253: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1254: -- p_x_line_tbl(I).SHIPPED_QUANTITY := FND_API.G_MISS_NUM;
1255: END IF;
1256:
1257: IF p_x_line_tbl(I).SHIPPING_QUANTITY <> FND_API.G_MISS_NUM
1250: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1251: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','SHIPPED_QUANTITY');
1252: -- OE_MSG_PUB.Add;
1253: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1254: -- p_x_line_tbl(I).SHIPPED_QUANTITY := FND_API.G_MISS_NUM;
1255: END IF;
1256:
1257: IF p_x_line_tbl(I).SHIPPING_QUANTITY <> FND_API.G_MISS_NUM
1258: THEN
1253: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1254: -- p_x_line_tbl(I).SHIPPED_QUANTITY := FND_API.G_MISS_NUM;
1255: END IF;
1256:
1257: IF p_x_line_tbl(I).SHIPPING_QUANTITY <> FND_API.G_MISS_NUM
1258: THEN
1259: IF l_debug_level > 0 THEN
1260: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN SHIPPING_QUANTITY... ' ) ;
1261: END IF;
1261: END IF;
1262: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1263: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','SHIPPING_QUANTITY');
1264: -- OE_MSG_PUB.Add;
1265: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1266: -- p_x_line_tbl(I).SHIPPING_QUANTITY := FND_API.G_MISS_NUM;
1267: END IF;
1268:
1269: IF p_x_line_tbl(I).SHIPPING_QUANTITY_UOM <> FND_API.G_MISS_CHAR
1262: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1263: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','SHIPPING_QUANTITY');
1264: -- OE_MSG_PUB.Add;
1265: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1266: -- p_x_line_tbl(I).SHIPPING_QUANTITY := FND_API.G_MISS_NUM;
1267: END IF;
1268:
1269: IF p_x_line_tbl(I).SHIPPING_QUANTITY_UOM <> FND_API.G_MISS_CHAR
1270: THEN
1265: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1266: -- p_x_line_tbl(I).SHIPPING_QUANTITY := FND_API.G_MISS_NUM;
1267: END IF;
1268:
1269: IF p_x_line_tbl(I).SHIPPING_QUANTITY_UOM <> FND_API.G_MISS_CHAR
1270: THEN
1271: IF l_debug_level > 0 THEN
1272: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN SHIPPING_QUANTITY_UOM... ' ) ;
1273: END IF;
1273: END IF;
1274: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1275: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','SHIPPING_QUANTITY_UOM');
1276: -- OE_MSG_PUB.Add;
1277: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1278: -- p_x_line_tbl(I).SHIPPING_QUANTITY_UOM := FND_API.G_MISS_CHAR;
1279: END IF;
1280:
1281: IF p_x_line_tbl(I).SHIP_MODEL_COMPLETE_FLAG <> FND_API.G_MISS_CHAR
1274: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1275: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','SHIPPING_QUANTITY_UOM');
1276: -- OE_MSG_PUB.Add;
1277: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1278: -- p_x_line_tbl(I).SHIPPING_QUANTITY_UOM := FND_API.G_MISS_CHAR;
1279: END IF;
1280:
1281: IF p_x_line_tbl(I).SHIP_MODEL_COMPLETE_FLAG <> FND_API.G_MISS_CHAR
1282: THEN
1277: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1278: -- p_x_line_tbl(I).SHIPPING_QUANTITY_UOM := FND_API.G_MISS_CHAR;
1279: END IF;
1280:
1281: IF p_x_line_tbl(I).SHIP_MODEL_COMPLETE_FLAG <> FND_API.G_MISS_CHAR
1282: THEN
1283: IF l_debug_level > 0 THEN
1284: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN SHIP_MODEL_COMPLETE_FLAG... ' ) ;
1285: END IF;
1285: END IF;
1286: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1287: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','SHIP_MODEL_COMPLETE_FLAG');
1288: -- OE_MSG_PUB.Add;
1289: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1290: -- p_x_line_tbl(I).SHIP_MODEL_COMPLETE_FLAG := FND_API.G_MISS_CHAR;
1291: END IF;
1292:
1293: IF p_x_line_tbl(I).SORT_ORDER <> FND_API.G_MISS_CHAR
1286: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1287: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','SHIP_MODEL_COMPLETE_FLAG');
1288: -- OE_MSG_PUB.Add;
1289: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1290: -- p_x_line_tbl(I).SHIP_MODEL_COMPLETE_FLAG := FND_API.G_MISS_CHAR;
1291: END IF;
1292:
1293: IF p_x_line_tbl(I).SORT_ORDER <> FND_API.G_MISS_CHAR
1294: THEN
1289: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1290: -- p_x_line_tbl(I).SHIP_MODEL_COMPLETE_FLAG := FND_API.G_MISS_CHAR;
1291: END IF;
1292:
1293: IF p_x_line_tbl(I).SORT_ORDER <> FND_API.G_MISS_CHAR
1294: THEN
1295: IF l_debug_level > 0 THEN
1296: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN SORT_ORDER... ' ) ;
1297: END IF;
1297: END IF;
1298: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1299: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','SORT_ORDER');
1300: -- OE_MSG_PUB.Add;
1301: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1302: -- p_x_line_tbl(I).SORT_ORDER := FND_API.G_MISS_CHAR;
1303: END IF;
1304:
1305: IF p_x_line_tbl(I).TAX_VALUE <> FND_API.G_MISS_NUM
1298: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1299: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','SORT_ORDER');
1300: -- OE_MSG_PUB.Add;
1301: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1302: -- p_x_line_tbl(I).SORT_ORDER := FND_API.G_MISS_CHAR;
1303: END IF;
1304:
1305: IF p_x_line_tbl(I).TAX_VALUE <> FND_API.G_MISS_NUM
1306: THEN
1301: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1302: -- p_x_line_tbl(I).SORT_ORDER := FND_API.G_MISS_CHAR;
1303: END IF;
1304:
1305: IF p_x_line_tbl(I).TAX_VALUE <> FND_API.G_MISS_NUM
1306: THEN
1307: IF l_debug_level > 0 THEN
1308: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN TAX_VALUE... ' ) ;
1309: END IF;
1309: END IF;
1310: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1311: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','TAX_VALUE');
1312: -- OE_MSG_PUB.Add;
1313: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1314: -- p_x_line_tbl(I).TAX_VALUE := FND_API.G_MISS_NUM;
1315: END IF;
1316:
1317: IF p_x_line_tbl(I).CHANGE_REQUEST_CODE <> FND_API.G_MISS_CHAR
1310: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1311: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','TAX_VALUE');
1312: -- OE_MSG_PUB.Add;
1313: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1314: -- p_x_line_tbl(I).TAX_VALUE := FND_API.G_MISS_NUM;
1315: END IF;
1316:
1317: IF p_x_line_tbl(I).CHANGE_REQUEST_CODE <> FND_API.G_MISS_CHAR
1318: THEN
1313: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1314: -- p_x_line_tbl(I).TAX_VALUE := FND_API.G_MISS_NUM;
1315: END IF;
1316:
1317: IF p_x_line_tbl(I).CHANGE_REQUEST_CODE <> FND_API.G_MISS_CHAR
1318: THEN
1319: IF l_debug_level > 0 THEN
1320: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN CHANGE_REQUEST_CODE... ' ) ;
1321: END IF;
1321: END IF;
1322: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1323: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','CHANGE_REQUEST_CODE');
1324: -- OE_MSG_PUB.Add;
1325: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1326: -- p_x_line_tbl(I).CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
1327: END IF;
1328:
1329: IF p_x_line_tbl(I).STATUS_FLAG <> FND_API.G_MISS_CHAR
1322: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1323: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','CHANGE_REQUEST_CODE');
1324: -- OE_MSG_PUB.Add;
1325: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1326: -- p_x_line_tbl(I).CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
1327: END IF;
1328:
1329: IF p_x_line_tbl(I).STATUS_FLAG <> FND_API.G_MISS_CHAR
1330: THEN
1325: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1326: -- p_x_line_tbl(I).CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
1327: END IF;
1328:
1329: IF p_x_line_tbl(I).STATUS_FLAG <> FND_API.G_MISS_CHAR
1330: THEN
1331: IF l_debug_level > 0 THEN
1332: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN STATUS_FLAG... ' ) ;
1333: END IF;
1333: END IF;
1334: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1335: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','STATUS_FLAG');
1336: -- OE_MSG_PUB.Add;
1337: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1338: -- p_x_line_tbl(I).STATUS_FLAG := FND_API.G_MISS_CHAR;
1339: END IF;
1340:
1341: IF p_x_line_tbl(I).DROP_SHIP_FLAG <> FND_API.G_MISS_CHAR
1334: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1335: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','STATUS_FLAG');
1336: -- OE_MSG_PUB.Add;
1337: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1338: -- p_x_line_tbl(I).STATUS_FLAG := FND_API.G_MISS_CHAR;
1339: END IF;
1340:
1341: IF p_x_line_tbl(I).DROP_SHIP_FLAG <> FND_API.G_MISS_CHAR
1342: THEN
1337: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1338: -- p_x_line_tbl(I).STATUS_FLAG := FND_API.G_MISS_CHAR;
1339: END IF;
1340:
1341: IF p_x_line_tbl(I).DROP_SHIP_FLAG <> FND_API.G_MISS_CHAR
1342: THEN
1343: IF l_debug_level > 0 THEN
1344: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN DROP_SHIP_FLAG... ' ) ;
1345: END IF;
1345: END IF;
1346: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1347: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','DROP_SHIP_FLAG');
1348: -- OE_MSG_PUB.Add;
1349: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1350: -- p_x_line_tbl(I).DROP_SHIP_FLAG := FND_API.G_MISS_CHAR;
1351: END IF;
1352:
1353: IF p_x_line_tbl(I).UNIT_PERCENT_BASE_PRICE <> FND_API.G_MISS_NUM
1346: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1347: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','DROP_SHIP_FLAG');
1348: -- OE_MSG_PUB.Add;
1349: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1350: -- p_x_line_tbl(I).DROP_SHIP_FLAG := FND_API.G_MISS_CHAR;
1351: END IF;
1352:
1353: IF p_x_line_tbl(I).UNIT_PERCENT_BASE_PRICE <> FND_API.G_MISS_NUM
1354: THEN
1349: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1350: -- p_x_line_tbl(I).DROP_SHIP_FLAG := FND_API.G_MISS_CHAR;
1351: END IF;
1352:
1353: IF p_x_line_tbl(I).UNIT_PERCENT_BASE_PRICE <> FND_API.G_MISS_NUM
1354: THEN
1355: IF l_debug_level > 0 THEN
1356: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN UNIT_PERCENT_BASE_PRICE... ' ) ;
1357: END IF;
1357: END IF;
1358: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1359: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','UNIT_PERCENT_BASE_PRICE');
1360: -- OE_MSG_PUB.Add;
1361: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1362: -- p_x_line_tbl(I).UNIT_PERCENT_BASE_PRICE := FND_API.G_MISS_NUM;
1363: END IF;
1364:
1365: IF p_x_line_tbl(I).SERVICE_NUMBER <> FND_API.G_MISS_NUM
1358: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1359: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','UNIT_PERCENT_BASE_PRICE');
1360: -- OE_MSG_PUB.Add;
1361: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1362: -- p_x_line_tbl(I).UNIT_PERCENT_BASE_PRICE := FND_API.G_MISS_NUM;
1363: END IF;
1364:
1365: IF p_x_line_tbl(I).SERVICE_NUMBER <> FND_API.G_MISS_NUM
1366: THEN
1361: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1362: -- p_x_line_tbl(I).UNIT_PERCENT_BASE_PRICE := FND_API.G_MISS_NUM;
1363: END IF;
1364:
1365: IF p_x_line_tbl(I).SERVICE_NUMBER <> FND_API.G_MISS_NUM
1366: THEN
1367: IF l_debug_level > 0 THEN
1368: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN SERVICE_NUMBER... ' ) ;
1369: END IF;
1369: END IF;
1370: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1371: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','SERVICE_NUMBER');
1372: -- OE_MSG_PUB.Add;
1373: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1374: -- p_x_line_tbl(I).SERVICE_NUMBER := FND_API.G_MISS_NUM;
1375: END IF;
1376:
1377: END LOOP;
1370: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1371: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','SERVICE_NUMBER');
1372: -- OE_MSG_PUB.Add;
1373: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1374: -- p_x_line_tbl(I).SERVICE_NUMBER := FND_API.G_MISS_NUM;
1375: END IF;
1376:
1377: END LOOP;
1378:
1414: IF l_debug_level > 0 THEN
1415: oe_debug_pub.add( 'BEFORE VALIDATING HEADER ADJ DERIVED COLUMNS' ) ;
1416: END IF;
1417:
1418: IF p_x_header_adj_tbl(I).discount_id <> FND_API.G_MISS_NUM
1419: THEN
1420: IF l_debug_level > 0 THEN
1421: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN DISCOUNT_ID... ' ) ;
1422: END IF;
1422: END IF;
1423: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1424: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','DISCOUNT_ID');
1425: -- OE_MSG_PUB.Add;
1426: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1427: -- p_x_header_adj_tbl(I).discount_id := FND_API.G_MISS_NUM;
1428: END IF;
1429:
1430: IF p_x_header_adj_tbl(I).DISCOUNT_LINE_ID <> FND_API.G_MISS_NUM
1423: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1424: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','DISCOUNT_ID');
1425: -- OE_MSG_PUB.Add;
1426: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1427: -- p_x_header_adj_tbl(I).discount_id := FND_API.G_MISS_NUM;
1428: END IF;
1429:
1430: IF p_x_header_adj_tbl(I).DISCOUNT_LINE_ID <> FND_API.G_MISS_NUM
1431: THEN
1426: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1427: -- p_x_header_adj_tbl(I).discount_id := FND_API.G_MISS_NUM;
1428: END IF;
1429:
1430: IF p_x_header_adj_tbl(I).DISCOUNT_LINE_ID <> FND_API.G_MISS_NUM
1431: THEN
1432: IF l_debug_level > 0 THEN
1433: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN DISCOUNT_LINE_ID... ' ) ;
1434: END IF;
1434: END IF;
1435: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1436: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','DISCOUNT_LINE_ID');
1437: -- OE_MSG_PUB.Add;
1438: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1439: -- p_x_header_adj_tbl(I).DISCOUNT_LINE_ID := FND_API.G_MISS_NUM;
1440: END IF;
1441:
1442: IF p_x_header_adj_tbl(I).PERCENT <> FND_API.G_MISS_NUM
1435: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1436: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','DISCOUNT_LINE_ID');
1437: -- OE_MSG_PUB.Add;
1438: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1439: -- p_x_header_adj_tbl(I).DISCOUNT_LINE_ID := FND_API.G_MISS_NUM;
1440: END IF;
1441:
1442: IF p_x_header_adj_tbl(I).PERCENT <> FND_API.G_MISS_NUM
1443: THEN
1438: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1439: -- p_x_header_adj_tbl(I).DISCOUNT_LINE_ID := FND_API.G_MISS_NUM;
1440: END IF;
1441:
1442: IF p_x_header_adj_tbl(I).PERCENT <> FND_API.G_MISS_NUM
1443: THEN
1444: IF l_debug_level > 0 THEN
1445: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN PERCENT... ' ) ;
1446: END IF;
1446: END IF;
1447: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1448: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','PERCENT');
1449: -- OE_MSG_PUB.Add;
1450: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1451: -- p_x_header_adj_tbl(I).PERCENT := FND_API.G_MISS_NUM;
1452: END IF;
1453:
1454: IF p_x_header_adj_tbl(I).CHANGE_REQUEST_CODE <> FND_API.G_MISS_CHAR
1447: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1448: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','PERCENT');
1449: -- OE_MSG_PUB.Add;
1450: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1451: -- p_x_header_adj_tbl(I).PERCENT := FND_API.G_MISS_NUM;
1452: END IF;
1453:
1454: IF p_x_header_adj_tbl(I).CHANGE_REQUEST_CODE <> FND_API.G_MISS_CHAR
1455: THEN
1450: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1451: -- p_x_header_adj_tbl(I).PERCENT := FND_API.G_MISS_NUM;
1452: END IF;
1453:
1454: IF p_x_header_adj_tbl(I).CHANGE_REQUEST_CODE <> FND_API.G_MISS_CHAR
1455: THEN
1456: IF l_debug_level > 0 THEN
1457: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN CHANGE_REQUEST_CODE... ' ) ;
1458: END IF;
1458: END IF;
1459: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1460: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','CHANGE_REQUEST_CODE');
1461: -- OE_MSG_PUB.Add;
1462: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1463: -- p_x_header_adj_tbl(I).CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
1464: END IF;
1465:
1466: IF p_x_header_adj_tbl(I).STATUS_FLAG <> FND_API.G_MISS_CHAR
1459: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1460: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','CHANGE_REQUEST_CODE');
1461: -- OE_MSG_PUB.Add;
1462: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1463: -- p_x_header_adj_tbl(I).CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
1464: END IF;
1465:
1466: IF p_x_header_adj_tbl(I).STATUS_FLAG <> FND_API.G_MISS_CHAR
1467: THEN
1462: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1463: -- p_x_header_adj_tbl(I).CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
1464: END IF;
1465:
1466: IF p_x_header_adj_tbl(I).STATUS_FLAG <> FND_API.G_MISS_CHAR
1467: THEN
1468: IF l_debug_level > 0 THEN
1469: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN STATUS_FLAG... ' ) ;
1470: END IF;
1470: END IF;
1471: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1472: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','STATUS_FLAG');
1473: -- OE_MSG_PUB.Add;
1474: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1475: -- p_x_header_adj_tbl(I).STATUS_FLAG := FND_API.G_MISS_CHAR;
1476: END IF;
1477:
1478: END LOOP;
1471: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1472: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','STATUS_FLAG');
1473: -- OE_MSG_PUB.Add;
1474: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1475: -- p_x_header_adj_tbl(I).STATUS_FLAG := FND_API.G_MISS_CHAR;
1476: END IF;
1477:
1478: END LOOP;
1479:
1518: IF l_debug_level > 0 THEN
1519: oe_debug_pub.add( 'BEFORE VALIDATING HEADER ATT DERIVED COLUMNS' ) ;
1520: END IF;
1521:
1522: IF p_x_header_price_att_tbl(I).order_price_attrib_id <> FND_API.G_MISS_NUM
1523: THEN
1524: IF l_debug_level > 0 THEN
1525: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN DISCOUNT_ID... ' ) ;
1526: END IF;
1525: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN DISCOUNT_ID... ' ) ;
1526: END IF;
1527: END IF;
1528: /*
1529: IF p_x_header_price_att_tbl(I).ORG_ID <> FND_API.G_MISS_NUM
1530: THEN
1531: oe_debug_pub.add('Cannot populate derived column ORG_ID... ');
1532: END IF;
1533:
1530: THEN
1531: oe_debug_pub.add('Cannot populate derived column ORG_ID... ');
1532: END IF;
1533:
1534: IF p_x_header_price_att_tbl(I).PRICING_CONTEXT <> FND_API.G_MISS_CHAR
1535: THEN
1536: oe_debug_pub.add('Cannot populate derived column PRICING_CONTEXT ');
1537: END IF;
1538: */
1535: THEN
1536: oe_debug_pub.add('Cannot populate derived column PRICING_CONTEXT ');
1537: END IF;
1538: */
1539: IF p_x_header_price_att_tbl(I).CHANGE_REQUEST_CODE <> FND_API.G_MISS_CHAR
1540: THEN
1541: IF l_debug_level > 0 THEN
1542: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN CHANGE_REQUEST_CODE... ' ) ;
1543: END IF;
1542: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN CHANGE_REQUEST_CODE... ' ) ;
1543: END IF;
1544: END IF;
1545: /*
1546: IF p_x_header_price_att_tbl(I).STATUS_FLAG <> FND_API.G_MISS_CHAR
1547: THEN
1548: oe_debug_pub.add('Cannot populate derived column STATUS_FLAG... ');
1549: END IF;
1550: */
1589: IF l_debug_level > 0 THEN
1590: oe_debug_pub.add( 'BEFORE VALIDATING HEADER SALES CREDIT DERIVED COLS' ) ;
1591: END IF;
1592:
1593: IF p_x_header_scredit_tbl(I).CHANGE_REQUEST_CODE <> FND_API.G_MISS_CHAR
1594: THEN
1595: IF l_debug_level > 0 THEN
1596: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN CHANGE_REQUEST_CODE... ' ) ;
1597: END IF;
1597: END IF;
1598: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1599: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','CHANGE_REQUEST_CODE');
1600: -- OE_MSG_PUB.Add;
1601: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1602: -- p_x_header_scredit_tbl(I).CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
1603: END IF;
1604:
1605: IF p_x_header_scredit_tbl(I).STATUS_FLAG <> FND_API.G_MISS_CHAR
1598: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1599: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','CHANGE_REQUEST_CODE');
1600: -- OE_MSG_PUB.Add;
1601: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1602: -- p_x_header_scredit_tbl(I).CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
1603: END IF;
1604:
1605: IF p_x_header_scredit_tbl(I).STATUS_FLAG <> FND_API.G_MISS_CHAR
1606: THEN
1601: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1602: -- p_x_header_scredit_tbl(I).CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
1603: END IF;
1604:
1605: IF p_x_header_scredit_tbl(I).STATUS_FLAG <> FND_API.G_MISS_CHAR
1606: THEN
1607: IF l_debug_level > 0 THEN
1608: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN STATUS_FLAG... ' ) ;
1609: END IF;
1609: END IF;
1610: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1611: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','STATUS_FLAG');
1612: -- OE_MSG_PUB.Add;
1613: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1614: -- p_x_header_scredit_tbl(I).STATUS_FLAG := FND_API.G_MISS_CHAR;
1615: END IF;
1616:
1617: END LOOP;
1610: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1611: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','STATUS_FLAG');
1612: -- OE_MSG_PUB.Add;
1613: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1614: -- p_x_header_scredit_tbl(I).STATUS_FLAG := FND_API.G_MISS_CHAR;
1615: END IF;
1616:
1617: END LOOP;
1618:
1656: IF l_debug_level > 0 THEN
1657: oe_debug_pub.add( 'BEFORE VALIDATING HEADER PAYMENT DERIVED COLS' ) ;
1658: END IF;
1659:
1660: IF p_x_header_payment_tbl(I).CHANGE_REQUEST_CODE <> FND_API.G_MISS_CHAR
1661: THEN
1662: IF l_debug_level > 0 THEN
1663: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN CHANGE_REQUEST_CODE... ' ) ;
1664: END IF;
1663: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN CHANGE_REQUEST_CODE... ' ) ;
1664: END IF;
1665: END IF;
1666:
1667: IF p_x_header_payment_tbl(I).STATUS_FLAG <> FND_API.G_MISS_CHAR
1668: THEN
1669: IF l_debug_level > 0 THEN
1670: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN STATUS_FLAG... ' ) ;
1671: END IF;
1705: ,p_attribute_code => null
1706: ,p_constraint_id => null
1707: );
1708:
1709: IF p_x_line_adj_tbl(I).DISCOUNT_ID <> FND_API.G_MISS_NUM
1710: THEN
1711: IF l_debug_level > 0 THEN
1712: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN DISCOUNT_ID... ' ) ;
1713: END IF;
1713: END IF;
1714: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1715: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','DISCOUNT_ID');
1716: -- OE_MSG_PUB.Add;
1717: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1718: -- p_x_line_adj_tbl(I).DISCOUNT_ID := FND_API.G_MISS_NUM;
1719: END IF;
1720:
1721: IF p_x_line_adj_tbl(I).DISCOUNT_LINE_ID <> FND_API.G_MISS_NUM
1714: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1715: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','DISCOUNT_ID');
1716: -- OE_MSG_PUB.Add;
1717: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1718: -- p_x_line_adj_tbl(I).DISCOUNT_ID := FND_API.G_MISS_NUM;
1719: END IF;
1720:
1721: IF p_x_line_adj_tbl(I).DISCOUNT_LINE_ID <> FND_API.G_MISS_NUM
1722: THEN
1717: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1718: -- p_x_line_adj_tbl(I).DISCOUNT_ID := FND_API.G_MISS_NUM;
1719: END IF;
1720:
1721: IF p_x_line_adj_tbl(I).DISCOUNT_LINE_ID <> FND_API.G_MISS_NUM
1722: THEN
1723: IF l_debug_level > 0 THEN
1724: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN DISCOUNT_LINE_ID... ' ) ;
1725: END IF;
1725: END IF;
1726: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1727: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','DISCOUNT_LINE_ID');
1728: -- OE_MSG_PUB.Add;
1729: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1730: -- p_x_line_adj_tbl(I).DISCOUNT_LINE_ID := FND_API.G_MISS_NUM;
1731: END IF;
1732:
1733: IF p_x_line_adj_tbl(I).PERCENT <> FND_API.G_MISS_NUM
1726: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1727: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','DISCOUNT_LINE_ID');
1728: -- OE_MSG_PUB.Add;
1729: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1730: -- p_x_line_adj_tbl(I).DISCOUNT_LINE_ID := FND_API.G_MISS_NUM;
1731: END IF;
1732:
1733: IF p_x_line_adj_tbl(I).PERCENT <> FND_API.G_MISS_NUM
1734: THEN
1729: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1730: -- p_x_line_adj_tbl(I).DISCOUNT_LINE_ID := FND_API.G_MISS_NUM;
1731: END IF;
1732:
1733: IF p_x_line_adj_tbl(I).PERCENT <> FND_API.G_MISS_NUM
1734: THEN
1735: IF l_debug_level > 0 THEN
1736: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN PERCENT... ' ) ;
1737: END IF;
1737: END IF;
1738: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1739: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','PERCENT');
1740: -- OE_MSG_PUB.Add;
1741: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1742: -- p_x_line_adj_tbl(I).PERCENT := FND_API.G_MISS_NUM;
1743: END IF;
1744:
1745: IF p_x_line_adj_tbl(I).APPLIED_FLAG <> FND_API.G_MISS_CHAR
1738: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1739: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','PERCENT');
1740: -- OE_MSG_PUB.Add;
1741: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1742: -- p_x_line_adj_tbl(I).PERCENT := FND_API.G_MISS_NUM;
1743: END IF;
1744:
1745: IF p_x_line_adj_tbl(I).APPLIED_FLAG <> FND_API.G_MISS_CHAR
1746: THEN
1741: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1742: -- p_x_line_adj_tbl(I).PERCENT := FND_API.G_MISS_NUM;
1743: END IF;
1744:
1745: IF p_x_line_adj_tbl(I).APPLIED_FLAG <> FND_API.G_MISS_CHAR
1746: THEN
1747: IF l_debug_level > 0 THEN
1748: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN APPLIED_FLAG... ' ) ;
1749: END IF;
1749: END IF;
1750: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1751: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','APPLIED_FLAG');
1752: -- OE_MSG_PUB.Add;
1753: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1754: -- p_x_line_adj_tbl(I).APPLIED_FLAG := FND_API.G_MISS_CHAR;
1755: END IF;
1756:
1757: IF p_x_line_adj_tbl(I).ARITHMETIC_OPERATOR <> FND_API.G_MISS_CHAR
1750: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1751: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','APPLIED_FLAG');
1752: -- OE_MSG_PUB.Add;
1753: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1754: -- p_x_line_adj_tbl(I).APPLIED_FLAG := FND_API.G_MISS_CHAR;
1755: END IF;
1756:
1757: IF p_x_line_adj_tbl(I).ARITHMETIC_OPERATOR <> FND_API.G_MISS_CHAR
1758: THEN
1753: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1754: -- p_x_line_adj_tbl(I).APPLIED_FLAG := FND_API.G_MISS_CHAR;
1755: END IF;
1756:
1757: IF p_x_line_adj_tbl(I).ARITHMETIC_OPERATOR <> FND_API.G_MISS_CHAR
1758: THEN
1759: IF l_debug_level > 0 THEN
1760: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN ARITHMETIC_OPERATOR... ' ) ;
1761: END IF;
1761: END IF;
1762: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1763: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','ARITHMETIC_OPERATOR');
1764: -- OE_MSG_PUB.Add;
1765: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1766: -- p_x_line_adj_tbl(I).ARITHMETIC_OPERATOR := FND_API.G_MISS_CHAR;
1767: END IF;
1768:
1769: END LOOP;
1762: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1763: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','ARITHMETIC_OPERATOR');
1764: -- OE_MSG_PUB.Add;
1765: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1766: -- p_x_line_adj_tbl(I).ARITHMETIC_OPERATOR := FND_API.G_MISS_CHAR;
1767: END IF;
1768:
1769: END LOOP;
1770:
1808: IF l_debug_level > 0 THEN
1809: oe_debug_pub.add( 'BEFORE VALIDATING LINE ATT DERIVED COLUMNS' ) ;
1810: END IF;
1811:
1812: IF p_x_line_price_att_tbl(I).order_price_attrib_id <> FND_API.G_MISS_NUM
1813: THEN
1814: IF l_debug_level > 0 THEN
1815: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN ATTRIBUTE_ID... ' ) ;
1816: END IF;
1815: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN ATTRIBUTE_ID... ' ) ;
1816: END IF;
1817: END IF;
1818: /*
1819: IF p_x_line_price_att_tbl(I).ORG_ID <> FND_API.G_MISS_NUM
1820: THEN
1821: oe_debug_pub.add('Cannot populate derived column ORG_ID ');
1822: END IF;
1823:
1820: THEN
1821: oe_debug_pub.add('Cannot populate derived column ORG_ID ');
1822: END IF;
1823:
1824: IF p_x_line_price_att_tbl(I).PRICING_CONTEXT <> FND_API.G_MISS_CHAR
1825: THEN
1826: oe_debug_pub.add('Cannot populate derived column PERCENT... ');
1827: END IF;
1828: */
1825: THEN
1826: oe_debug_pub.add('Cannot populate derived column PERCENT... ');
1827: END IF;
1828: */
1829: IF p_x_line_price_att_tbl(I).CHANGE_REQUEST_CODE <> FND_API.G_MISS_CHAR
1830: THEN
1831: IF l_debug_level > 0 THEN
1832: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN CHANGE_REQUEST_CODE... ' ) ;
1833: END IF;
1832: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN CHANGE_REQUEST_CODE... ' ) ;
1833: END IF;
1834: END IF;
1835: /*
1836: IF p_x_line_price_att_tbl(I).STATUS_FLAG <> FND_API.G_MISS_CHAR
1837: THEN
1838: oe_debug_pub.add('Cannot populate derived column STATUS_FLAG... ');
1839: END IF;
1840: */
1870: ,p_attribute_code => null
1871: ,p_constraint_id => null
1872: );
1873:
1874: IF p_x_line_scredit_tbl(I).CHANGE_REQUEST_CODE <> FND_API.G_MISS_CHAR
1875: THEN
1876: IF l_debug_level > 0 THEN
1877: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN CHANGE_REQUEST_CODE... ' ) ;
1878: END IF;
1878: END IF;
1879: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1880: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','CHANGE_REQUEST_CODE');
1881: -- OE_MSG_PUB.Add;
1882: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1883: -- p_x_line_scredit_tbl(I).CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
1884: END IF;
1885:
1886: IF p_x_line_scredit_tbl(I).STATUS_FLAG <> FND_API.G_MISS_CHAR
1879: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1880: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','CHANGE_REQUEST_CODE');
1881: -- OE_MSG_PUB.Add;
1882: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1883: -- p_x_line_scredit_tbl(I).CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
1884: END IF;
1885:
1886: IF p_x_line_scredit_tbl(I).STATUS_FLAG <> FND_API.G_MISS_CHAR
1887: THEN
1882: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1883: -- p_x_line_scredit_tbl(I).CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
1884: END IF;
1885:
1886: IF p_x_line_scredit_tbl(I).STATUS_FLAG <> FND_API.G_MISS_CHAR
1887: THEN
1888: IF l_debug_level > 0 THEN
1889: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN STATUS_FLAG... ' ) ;
1890: END IF;
1890: END IF;
1891: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1892: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','STATUS_FLAG');
1893: -- OE_MSG_PUB.Add;
1894: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1895: -- p_x_line_scredit_tbl(I).STATUS_FLAG := FND_API.G_MISS_CHAR;
1896: END IF;
1897:
1898: END LOOP;
1891: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1892: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','STATUS_FLAG');
1893: -- OE_MSG_PUB.Add;
1894: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1895: -- p_x_line_scredit_tbl(I).STATUS_FLAG := FND_API.G_MISS_CHAR;
1896: END IF;
1897:
1898: END LOOP;
1899:
1927: ,p_attribute_code => null
1928: ,p_constraint_id => null
1929: );
1930:
1931: IF p_x_line_payment_tbl(I).CHANGE_REQUEST_CODE <> FND_API.G_MISS_CHAR
1932: THEN
1933: IF l_debug_level > 0 THEN
1934: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN CHANGE_REQUEST_CODE... ' ) ;
1935: END IF;
1934: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN CHANGE_REQUEST_CODE... ' ) ;
1935: END IF;
1936: END IF;
1937:
1938: IF p_x_line_payment_tbl(I).STATUS_FLAG <> FND_API.G_MISS_CHAR
1939: THEN
1940: IF l_debug_level > 0 THEN
1941: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN STATUS_FLAG... ' ) ;
1942: END IF;
1975: ,p_attribute_code => null
1976: ,p_constraint_id => null
1977: );
1978:
1979: IF p_x_lot_serial_tbl(I).CHANGE_REQUEST_CODE <> FND_API.G_MISS_CHAR
1980: THEN
1981: IF l_debug_level > 0 THEN
1982: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN CHANGE_REQUEST_CODE... ' ) ;
1983: END IF;
1983: END IF;
1984: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1985: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','CHANGE_REQUEST_CODE');
1986: -- OE_MSG_PUB.Add;
1987: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1988: -- p_x_lot_serial_tbl(I).CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
1989: END IF;
1990:
1991: IF p_x_lot_serial_tbl(I).STATUS_FLAG <> FND_API.G_MISS_CHAR
1984: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1985: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','CHANGE_REQUEST_CODE');
1986: -- OE_MSG_PUB.Add;
1987: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1988: -- p_x_lot_serial_tbl(I).CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
1989: END IF;
1990:
1991: IF p_x_lot_serial_tbl(I).STATUS_FLAG <> FND_API.G_MISS_CHAR
1992: THEN
1987: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
1988: -- p_x_lot_serial_tbl(I).CHANGE_REQUEST_CODE := FND_API.G_MISS_CHAR;
1989: END IF;
1990:
1991: IF p_x_lot_serial_tbl(I).STATUS_FLAG <> FND_API.G_MISS_CHAR
1992: THEN
1993: IF l_debug_level > 0 THEN
1994: oe_debug_pub.add( 'CANNOT POPULATE DERIVED COLUMN STATUS_FLAG... ' ) ;
1995: END IF;
1995: END IF;
1996: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1997: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','STATUS_FLAG');
1998: -- OE_MSG_PUB.Add;
1999: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
2000: -- p_x_lot_serial_tbl(I).STATUS_FLAG := FND_API.G_MISS_CHAR;
2001: END IF;
2002:
2003: END LOOP;
1996: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1997: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','STATUS_FLAG');
1998: -- OE_MSG_PUB.Add;
1999: -- p_x_return_status := FND_API.G_RET_STS_ERROR;
2000: -- p_x_lot_serial_tbl(I).STATUS_FLAG := FND_API.G_MISS_CHAR;
2001: END IF;
2002:
2003: END LOOP;
2004:
2007: IF l_debug_level > 0 THEN
2008: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
2009: END IF;
2010: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2011: p_x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2012: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Check_Derived_Flags');
2013: END IF;
2014:
2015: END CHECK_DERIVED_FLAGS;
2142: IF l_debug_level > 0 THEN
2143: oe_debug_pub.add( 'BEFORE INITIALIZING RETURN_STATUS' ) ;
2144: END IF;
2145:
2146: p_return_status := FND_API.G_RET_STS_SUCCESS; /* Init to Success */
2147:
2148:
2149: If OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110510' Then
2150: fnd_profile.get('ONT_INCLUDE_CUST_IN_OI_KEY', l_customer_key_profile);
2205: IF l_debug_level > 0 THEN
2206: oe_debug_pub.add( 'BEFORE VALIDATING ORDER SOURCE' ) ;
2207: END IF;
2208:
2209: IF p_x_header_rec.order_source_id = FND_API.G_MISS_NUM AND
2210: p_x_header_val_rec.order_source = FND_API.G_MISS_CHAR
2211: THEN
2212: IF l_debug_level > 0 THEN
2213: oe_debug_pub.add( 'ORDER SOURCE MISSING... ' ) ;
2206: oe_debug_pub.add( 'BEFORE VALIDATING ORDER SOURCE' ) ;
2207: END IF;
2208:
2209: IF p_x_header_rec.order_source_id = FND_API.G_MISS_NUM AND
2210: p_x_header_val_rec.order_source = FND_API.G_MISS_CHAR
2211: THEN
2212: IF l_debug_level > 0 THEN
2213: oe_debug_pub.add( 'ORDER SOURCE MISSING... ' ) ;
2214: END IF;
2213: oe_debug_pub.add( 'ORDER SOURCE MISSING... ' ) ;
2214: END IF;
2215: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORDER_SOURCE');
2216: OE_MSG_PUB.Add;
2217: p_return_status := FND_API.G_RET_STS_ERROR;
2218: END IF;
2219:
2220: /* -----------------------------------------------------------
2221: Validate orig sys document ref
2224: IF l_debug_level > 0 THEN
2225: oe_debug_pub.add( 'BEFORE VALIDATING ORIG_SYS_DOCUMENT_REF' ) ;
2226: END IF;
2227:
2228: IF p_x_header_rec.orig_sys_document_ref = FND_API.G_MISS_CHAR
2229: THEN
2230: IF l_debug_level > 0 THEN
2231: oe_debug_pub.add( 'INVALID ORIG_SYS_DOCUMENT_REF... ' ) ;
2232: END IF;
2231: oe_debug_pub.add( 'INVALID ORIG_SYS_DOCUMENT_REF... ' ) ;
2232: END IF;
2233: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_DOCUMENT_REF');
2234: OE_MSG_PUB.Add;
2235: p_return_status := FND_API.G_RET_STS_ERROR;
2236: END IF;
2237:
2238:
2239:
2269: FROM oe_order_headers
2270: WHERE order_source_id = p_x_header_rec.order_source_id
2271: AND orig_sys_document_ref = p_x_header_rec.orig_sys_document_ref
2272: AND decode(l_customer_key_profile, 'Y',
2273: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
2274: = decode(l_customer_key_profile, 'Y',
2275: nvl(p_x_header_rec.sold_to_org_id, FND_API.G_MISS_NUM), 1)
2276: FOR UPDATE; --added so that changes cannot be commited out of sequence when run in multiple sessions
2277:
2271: AND orig_sys_document_ref = p_x_header_rec.orig_sys_document_ref
2272: AND decode(l_customer_key_profile, 'Y',
2273: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
2274: = decode(l_customer_key_profile, 'Y',
2275: nvl(p_x_header_rec.sold_to_org_id, FND_API.G_MISS_NUM), 1)
2276: FOR UPDATE; --added so that changes cannot be commited out of sequence when run in multiple sessions
2277:
2278: IF l_debug_level > 0 THEN
2279: oe_debug_pub.add('old change_seq:' || l_c_change_sequence) ;
2298: oe_debug_pub.add( 'ERROR: NEW CHANGE SEQ LESS THAN OR EQUAL TO OLD') ;
2299: END IF;
2300: FND_MESSAGE.SET_NAME('ONT','OE_OI_CHANGE_OUT_OF_SEQUENCE');
2301: OE_MSG_PUB.Add;
2302: p_return_status := FND_API.G_RET_STS_ERROR;
2303: end if;
2304:
2305: end if;
2306: EXCEPTION
2313: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
2314: END IF;
2315:
2316: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2317: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2318: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process.header_change_sequence_validation');
2319: END IF;
2320: END; -- header change sequence is not null
2321: ELSE
2364: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
2365: END IF;
2366:
2367: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_Msg_Lvl_Unexp_Error) THEN
2368: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2369: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process.Req_Header_Id_derivation');
2370: END IF;
2371: END;
2372: END IF;
2409: ,p_x_reservation_val_tbl => p_x_reservation_val_tbl
2410: ,p_x_return_status => l_d_return_status
2411: );
2412:
2413: IF l_d_return_status IN (FND_API.G_RET_STS_ERROR,
2414: FND_API.G_RET_STS_UNEXP_ERROR)
2415: THEN
2416: p_return_status := l_d_return_status;
2417: END IF;
2410: ,p_x_return_status => l_d_return_status
2411: );
2412:
2413: IF l_d_return_status IN (FND_API.G_RET_STS_ERROR,
2414: FND_API.G_RET_STS_UNEXP_ERROR)
2415: THEN
2416: p_return_status := l_d_return_status;
2417: END IF;
2418:
2421: -- sold_to_org is passed, that means we should call value_to_id
2422: -- api here and populate our Glabal variable which will be used
2423: -- later for creating the relationship.
2424: If p_x_header_rec.sold_to_org_id Is Null Then
2425: If p_x_header_val_rec.sold_to_org <> FND_API.G_MISS_CHAR Or
2426: p_x_header_val_rec.customer_number <> FND_API.G_MISS_CHAR Then
2427: p_x_header_rec.sold_to_org_id :=
2428: oe_value_to_id.sold_to_org(
2429: p_sold_to_org => p_x_header_val_rec.sold_to_org,
2422: -- api here and populate our Glabal variable which will be used
2423: -- later for creating the relationship.
2424: If p_x_header_rec.sold_to_org_id Is Null Then
2425: If p_x_header_val_rec.sold_to_org <> FND_API.G_MISS_CHAR Or
2426: p_x_header_val_rec.customer_number <> FND_API.G_MISS_CHAR Then
2427: p_x_header_rec.sold_to_org_id :=
2428: oe_value_to_id.sold_to_org(
2429: p_sold_to_org => p_x_header_val_rec.sold_to_org,
2430: p_customer_number => p_x_header_val_rec.customer_number);
2467: p_x_line_rec => l_line_rec,
2468: p_record_type => 'HEADER',
2469: x_return_status => l_return_status);
2470:
2471: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
2472: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
2473: FND_API.G_RET_STS_UNEXP_ERROR)
2474: THEN
2475: p_return_status := l_return_status;
2468: p_record_type => 'HEADER',
2469: x_return_status => l_return_status);
2470:
2471: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
2472: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
2473: FND_API.G_RET_STS_UNEXP_ERROR)
2474: THEN
2475: p_return_status := l_return_status;
2476: END IF;
2469: x_return_status => l_return_status);
2470:
2471: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
2472: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
2473: FND_API.G_RET_STS_UNEXP_ERROR)
2474: THEN
2475: p_return_status := l_return_status;
2476: END IF;
2477: Else
2480: END IF;
2481: fnd_message.set_name('ONT','ONT_OI_INL_SET_PARAMETER');
2482: fnd_message.set_token('TYPE', 'Customers, Addresses or Contacts');
2483: oe_msg_pub.add;
2484: p_return_status := FND_API.G_RET_STS_ERROR;
2485: End If;
2486: -- End of If for checking add customers parameter}
2487: End If;
2488: -- End of If for calling add customers}
2512: p_x_action_request_tbl(p_x_action_request_tbl.COUNT +1).request_type
2513: := l_c_operation_code;
2514: p_x_action_request_tbl(p_x_action_request_tbl.COUNT).entity_code
2515: := OE_Globals.G_ENTITY_HEADER;
2516: p_x_header_rec.booked_flag := FND_API.G_MISS_CHAR;
2517:
2518: END IF;
2519:
2520: /* -----------------------------------------------------------
2550: FROM oe_order_headers
2551: WHERE order_source_id = p_x_header_rec.order_source_id
2552: AND orig_sys_document_ref = p_x_header_rec.orig_sys_document_ref
2553: AND decode(l_customer_key_profile, 'Y',
2554: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
2555: = decode(l_customer_key_profile, 'Y',
2556: nvl(p_x_header_rec.sold_to_org_id, FND_API.G_MISS_NUM), 1)
2557: AND source_document_id = p_x_header_rec.source_document_id
2558: AND rownum < 2;
2552: AND orig_sys_document_ref = p_x_header_rec.orig_sys_document_ref
2553: AND decode(l_customer_key_profile, 'Y',
2554: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
2555: = decode(l_customer_key_profile, 'Y',
2556: nvl(p_x_header_rec.sold_to_org_id, FND_API.G_MISS_NUM), 1)
2557: AND source_document_id = p_x_header_rec.source_document_id
2558: AND rownum < 2;
2559:
2560: IF l_debug_level > 0 THEN
2570: FROM oe_order_headers
2571: WHERE order_source_id = p_x_header_rec.order_source_id
2572: AND orig_sys_document_ref = p_x_header_rec.orig_sys_document_ref
2573: AND decode(l_customer_key_profile, 'Y',
2574: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
2575: = decode(l_customer_key_profile, 'Y',
2576: nvl(p_x_header_rec.sold_to_org_id, FND_API.G_MISS_NUM), 1)
2577: AND rownum < 2;
2578:
2572: AND orig_sys_document_ref = p_x_header_rec.orig_sys_document_ref
2573: AND decode(l_customer_key_profile, 'Y',
2574: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
2575: = decode(l_customer_key_profile, 'Y',
2576: nvl(p_x_header_rec.sold_to_org_id, FND_API.G_MISS_NUM), 1)
2577: AND rownum < 2;
2578:
2579: IF l_debug_level > 0 THEN
2580: oe_debug_pub.add( 'AFTER VALIDATING EXTERNAL ORDER FOR INSERT OPR' ) ;
2585: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO INSERT A NEW ORDER WITH THE SAME ORDER SOURCE ID AND ORIG_SYS_DOCUMENT_REF... ' ) ;
2586: END IF;
2587: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
2588: OE_MSG_PUB.Add;
2589: p_return_status := FND_API.G_RET_STS_ERROR;
2590: Exception
2591: When no_data_found then
2592: IF l_debug_level > 0 THEN
2593: oe_debug_pub.add( 'VALID ORDER FOR INSERT' ) ;
2597: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO INSERT NEW ORDER... ' ) ;
2598: END IF;
2599: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
2600: OE_MSG_PUB.Add;
2601: p_return_status := FND_API.G_RET_STS_ERROR;
2602: End;
2603: --}{
2604: ELSIF p_x_header_rec.operation IN ('UPDATE','DELETE')
2605: THEN
2614: WHERE order_source_id = p_x_header_rec.order_source_id
2615: AND orig_sys_document_ref = p_x_header_rec.orig_sys_document_ref
2616: AND (sold_to_org_id is NULL OR
2617: decode(l_customer_key_profile, 'Y',
2618: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
2619: = decode(l_customer_key_profile, 'Y',
2620: nvl(p_x_header_rec.sold_to_org_id, FND_API.G_MISS_NUM), 1));
2621:
2622: p_x_header_rec.header_id := l_header_id;
2616: AND (sold_to_org_id is NULL OR
2617: decode(l_customer_key_profile, 'Y',
2618: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
2619: = decode(l_customer_key_profile, 'Y',
2620: nvl(p_x_header_rec.sold_to_org_id, FND_API.G_MISS_NUM), 1));
2621:
2622: p_x_header_rec.header_id := l_header_id;
2623: p_x_header_rec.order_number := l_order_number;
2624:
2634: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING ORDER BUT THAT ORDER DOES NOT EXIST... ' ) ;
2635: END IF;
2636: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
2637: OE_MSG_PUB.Add;
2638: p_return_status := FND_API.G_RET_STS_ERROR;
2639: When others then
2640: IF l_debug_level > 0 THEN
2641: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING ORDER ... ' ) ;
2642: END IF;
2641: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING ORDER ... ' ) ;
2642: END IF;
2643: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
2644: OE_MSG_PUB.Add;
2645: p_return_status := FND_API.G_RET_STS_ERROR;
2646: End;
2647: --}{
2648: ELSE --IF p_x_header_rec.operation NOT IN ('INSERT','CREATE','UPDATE','DELETE')
2649: IF l_debug_level > 0 THEN
2650: oe_debug_pub.add( 'INVALID OPERATION CODE. NOT ONE OF INSERT , CREATE , UPDATE OR DELETE... ' ) ;
2651: END IF;
2652: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
2653: OE_MSG_PUB.Add;
2654: p_return_status := FND_API.G_RET_STS_ERROR;
2655:
2656: END IF; --}
2657:
2658: EXCEPTION
2661: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
2662: END IF;
2663:
2664: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2665: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2666: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process.header_operation_validation');
2667: END IF;
2668: END;
2669:
2731: IF l_debug_level > 0 THEN
2732: oe_debug_pub.add( 'BEFORE VALIDATING ORIG_SYS_DISCOUNT_REF' ) ;
2733: END IF;
2734:
2735: IF p_x_header_adj_tbl(I).orig_sys_discount_ref = FND_API.G_MISS_CHAR
2736: THEN
2737: IF l_debug_level > 0 THEN
2738: oe_debug_pub.add( 'INVALID ORIG_SYS_DISCOUNT_REF... ' ) ;
2739: END IF;
2738: oe_debug_pub.add( 'INVALID ORIG_SYS_DISCOUNT_REF... ' ) ;
2739: END IF;
2740: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_DISCOUNT_REF');
2741: OE_MSG_PUB.Add;
2742: p_return_status := FND_API.G_RET_STS_ERROR;
2743: END IF;
2744:
2745: /* -----------------------------------------------------------
2746: Validate header adjustments operation code
2763: oe_debug_pub.add( 'INVALID HEADER ADJUSTMENTS OPERATION CODE...' ) ;
2764: END IF;
2765: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
2766: OE_MSG_PUB.Add;
2767: p_return_status := FND_API.G_RET_STS_ERROR;
2768: END IF;
2769:
2770: -- aksingh(10/11/2000) this is in process of being coded
2771: IF p_x_header_adj_tbl(I).operation IN ('INSERT', 'CREATE')
2792: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO INSERT A NEW HDRADJ WITH THE SAME HEADER_ID AND ORIG_SYS_DISCOUNT_REF... ' ) ;
2793: END IF;
2794: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
2795: OE_MSG_PUB.Add;
2796: p_return_status := FND_API.G_RET_STS_ERROR;
2797: Exception
2798: When no_data_found then
2799: IF l_debug_level > 0 THEN
2800: oe_debug_pub.add( 'VALID HEADER LEVEL PRICE ADJ FOR INSERT' ) ;
2804: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW HDR PRICE ADJ... ' ) ;
2805: END IF;
2806: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
2807: OE_MSG_PUB.Add;
2808: p_return_status := FND_API.G_RET_STS_ERROR;
2809: End;
2810: End If; -- Insert, Create operation
2811:
2812: IF p_x_header_adj_tbl(I).operation IN ('UPDATE','DELETE')
2842: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING HDR ADJ BUT THAT DOES NOT EXIST... ' ) ;
2843: END IF;
2844: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
2845: OE_MSG_PUB.Add;
2846: p_return_status := FND_API.G_RET_STS_ERROR;
2847: When others then
2848: IF l_debug_level > 0 THEN
2849: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING HDRADJ ... ' ) ;
2850: END IF;
2849: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING HDRADJ ... ' ) ;
2850: END IF;
2851: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
2852: OE_MSG_PUB.Add;
2853: p_return_status := FND_API.G_RET_STS_ERROR;
2854: End;
2855: End IF; -- Update and Delete operation
2856:
2857: -- aksingh(10/11/2000) this is in process of being coded upto this point
2861: -- pass it to process_order as right now it is not possible to call
2862: -- process order to import order without passing the these ids.
2863: -- {
2864: If (p_x_header_adj_tbl(I).list_header_id is null
2865: or p_x_header_adj_tbl(I).list_header_id = FND_API.G_MISS_NUM)
2866: and (p_x_header_adj_tbl(I).list_line_id is null
2867: or p_x_header_adj_tbl(I).list_line_id = FND_API.G_MISS_NUM)
2868: then
2869: list_line_id( p_modifier_name => p_x_header_adj_val_tbl(I).list_name,
2863: -- {
2864: If (p_x_header_adj_tbl(I).list_header_id is null
2865: or p_x_header_adj_tbl(I).list_header_id = FND_API.G_MISS_NUM)
2866: and (p_x_header_adj_tbl(I).list_line_id is null
2867: or p_x_header_adj_tbl(I).list_line_id = FND_API.G_MISS_NUM)
2868: then
2869: list_line_id( p_modifier_name => p_x_header_adj_val_tbl(I).list_name,
2870: p_list_line_no => p_x_header_adj_tbl(I).list_line_no,
2871: p_version_no => p_x_header_adj_val_tbl(I).version_no,
2885: END IF;
2886: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_LIST_NAME');
2887: FND_MESSAGE.SET_TOKEN('LIST_NAME',p_x_header_adj_val_tbl(I).list_name);
2888: OE_MSG_PUB.Add;
2889: p_return_status := FND_API.G_RET_STS_ERROR;
2890: END IF;
2891:
2892: IF (p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
2893: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
2888: OE_MSG_PUB.Add;
2889: p_return_status := FND_API.G_RET_STS_ERROR;
2890: END IF;
2891:
2892: IF (p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
2893: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
2894: FND_API.G_RET_STS_UNEXP_ERROR))
2895: THEN
2896: p_return_status := l_return_status;
2889: p_return_status := FND_API.G_RET_STS_ERROR;
2890: END IF;
2891:
2892: IF (p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
2893: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
2894: FND_API.G_RET_STS_UNEXP_ERROR))
2895: THEN
2896: p_return_status := l_return_status;
2897: return;
2890: END IF;
2891:
2892: IF (p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
2893: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
2894: FND_API.G_RET_STS_UNEXP_ERROR))
2895: THEN
2896: p_return_status := l_return_status;
2897: return;
2898: END IF;
2995: IF l_debug_level > 0 THEN
2996: oe_debug_pub.add( 'BEFORE VALIDATING ORIG_SYS_ATTS_REF' ) ;
2997: END IF;
2998:
2999: IF p_x_header_price_att_tbl(I).orig_sys_atts_ref = FND_API.G_MISS_CHAR
3000: THEN
3001: IF l_debug_level > 0 THEN
3002: oe_debug_pub.add( 'INVALID ORIG_SYS_ATTRIBUTE_REF... ' ) ;
3003: END IF;
3002: oe_debug_pub.add( 'INVALID ORIG_SYS_ATTRIBUTE_REF... ' ) ;
3003: END IF;
3004: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_ATTS_REF');
3005: OE_MSG_PUB.Add;
3006: p_return_status := FND_API.G_RET_STS_ERROR;
3007: END IF;
3008:
3009: /* -----------------------------------------------------------
3010: Validate header atts operation code
3027: oe_debug_pub.add( 'INVALID HEADER ATTRIBUTE OPERATION CODE...' ) ;
3028: END IF;
3029: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3030: OE_MSG_PUB.Add;
3031: p_return_status := FND_API.G_RET_STS_ERROR;
3032: END IF;
3033:
3034: IF p_x_header_price_att_tbl(I).operation IN ('INSERT', 'CREATE')
3035: AND p_x_header_rec.operation = 'UPDATE'
3055: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO INSERT A NEW HDRATT WITH THE SAME HEADER_ID AND ATTRIBUTE ID....' ) ;
3056: END IF;
3057: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3058: OE_MSG_PUB.Add;
3059: p_return_status := FND_API.G_RET_STS_ERROR;
3060: Exception
3061: When no_data_found then
3062: IF l_debug_level > 0 THEN
3063: oe_debug_pub.add( 'VALID HEADER LEVEL PRICE ATT FOR INSERT' ) ;
3067: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW HDR PRICE ATT... ' ) ;
3068: END IF;
3069: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3070: OE_MSG_PUB.Add;
3071: p_return_status := FND_API.G_RET_STS_ERROR;
3072: End;
3073: End If; -- Insert, Create operation
3074:
3075: IF p_x_header_price_att_tbl(I).operation IN ('UPDATE','DELETE')
3103: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING HDR ATT BUT THAT DOES NOT EXIST... ' ) ;
3104: END IF;
3105: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3106: OE_MSG_PUB.Add;
3107: p_return_status := FND_API.G_RET_STS_ERROR;
3108: When others then
3109: IF l_debug_level > 0 THEN
3110: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING HDRATT ... ' ) ;
3111: END IF;
3110: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING HDRATT ... ' ) ;
3111: END IF;
3112: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3113: OE_MSG_PUB.Add;
3114: p_return_status := FND_API.G_RET_STS_ERROR;
3115: End;
3116: End IF; -- Update and Delete operation
3117:
3118: END LOOP;
3186: IF l_debug_level > 0 THEN
3187: oe_debug_pub.add( 'BEFORE VALIDATING ORIG_SYS_CREDIT_REF' ) ;
3188: END IF;
3189:
3190: IF p_x_header_scredit_tbl(I).orig_sys_credit_ref = FND_API.G_MISS_CHAR
3191: THEN
3192: IF l_debug_level > 0 THEN
3193: oe_debug_pub.add( 'INVALID ORIG_SYS_CREDIT_REF... ' ) ;
3194: END IF;
3193: oe_debug_pub.add( 'INVALID ORIG_SYS_CREDIT_REF... ' ) ;
3194: END IF;
3195: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_CREDIT_REF');
3196: OE_MSG_PUB.Add;
3197: p_return_status := FND_API.G_RET_STS_ERROR;
3198: END IF;
3199:
3200: /* -----------------------------------------------------------
3201: Validate header sales credits operation code
3219: oe_debug_pub.add( 'INVALID HEADER SALES CREDITS OPERATION CODE...' ) ;
3220: END IF;
3221: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3222: OE_MSG_PUB.Add;
3223: p_return_status := FND_API.G_RET_STS_ERROR;
3224: END IF;
3225:
3226: -- aksingh(10/11/2000) this is in process of being coded
3227: IF p_x_header_scredit_tbl(I).operation IN ('INSERT', 'CREATE')
3245: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO INSERT A NEW HDRCREDIT WITH THE SAME HEADER_ID AND ORIG_SYS_CREDIT_REF... ' ) ;
3246: END IF;
3247: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3248: OE_MSG_PUB.Add;
3249: p_return_status := FND_API.G_RET_STS_ERROR;
3250: Exception
3251: When no_data_found then
3252: IF l_debug_level > 0 THEN
3253: oe_debug_pub.add( 'VALID HEADER LEVEL SALES CREDIT FOR INSERT' ) ;
3257: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW HDR SALES CREDIT... ' ) ;
3258: END IF;
3259: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3260: OE_MSG_PUB.Add;
3261: p_return_status := FND_API.G_RET_STS_ERROR;
3262:
3263: End;
3264: END IF; -- Insert, Create Operation
3265:
3296: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING ORDER BUT THAT ORDER DOES NOT EXIST... ' ) ;
3297: END IF;
3298: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3299: OE_MSG_PUB.Add;
3300: p_return_status := FND_API.G_RET_STS_ERROR;
3301: When others then
3302: IF l_debug_level > 0 THEN
3303: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING HEADER LEVEL SCREDIT ... ' ) ;
3304: END IF;
3303: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING HEADER LEVEL SCREDIT ... ' ) ;
3304: END IF;
3305: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3306: OE_MSG_PUB.Add;
3307: p_return_status := FND_API.G_RET_STS_ERROR;
3308: End;
3309: End IF; -- Update and Delete operation
3310:
3311: END LOOP;
3349: IF l_debug_level > 0 THEN
3350: oe_debug_pub.add( 'BEFORE VALIDATING ORIG_SYS_PAYMENT_REF' ) ;
3351: END IF;
3352:
3353: IF p_x_header_payment_tbl(I).orig_sys_payment_ref = FND_API.G_MISS_CHAR
3354: THEN
3355: IF l_debug_level > 0 THEN
3356: oe_debug_pub.add( 'INVALID ORIG_SYS_PAYMENT_REF... ' ) ;
3357: END IF;
3357: END IF;
3358: /* multiple payment: new message */
3359: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_PAYMENT_REF');
3360: OE_MSG_PUB.Add;
3361: p_return_status := FND_API.G_RET_STS_ERROR;
3362: END IF;
3363:
3364: /* -----------------------------------------------------------
3365: Validate header payment operation code
3383: oe_debug_pub.add( 'INVALID HEADER PAYMENT OPERATION CODE...' ) ;
3384: END IF;
3385: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3386: OE_MSG_PUB.Add;
3387: p_return_status := FND_API.G_RET_STS_ERROR;
3388: END IF;
3389:
3390: IF p_x_header_payment_tbl(I).operation IN ('INSERT', 'CREATE')
3391: AND p_x_header_rec.operation = 'UPDATE'
3408: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO INSERT A NEW HDR PAYMENT WITH THE SAME HEADER_ID AND ORIG_SYS_PAYMENT_REF... ' ) ;
3409: END IF;
3410: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3411: OE_MSG_PUB.Add;
3412: p_return_status := FND_API.G_RET_STS_ERROR;
3413: Exception
3414: When no_data_found then
3415: IF l_debug_level > 0 THEN
3416: oe_debug_pub.add( 'VALID HEADER LEVEL PAYMENT FOR INSERT' ) ;
3420: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW HDR PAYMENT... ' ) ;
3421: END IF;
3422: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3423: OE_MSG_PUB.Add;
3424: p_return_status := FND_API.G_RET_STS_ERROR;
3425:
3426: End;
3427: END IF; -- Insert, Create Operation
3428:
3462: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING ORDER BUT THAT ORDER DOES NOT EXIST... ' ) ;
3463: END IF;
3464: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3465: OE_MSG_PUB.Add;
3466: p_return_status := FND_API.G_RET_STS_ERROR;
3467: When others then
3468: IF l_debug_level > 0 THEN
3469: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING HEADER LEVEL payment ... ' ) ;
3470: END IF;
3469: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING HEADER LEVEL payment ... ' ) ;
3470: END IF;
3471: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3472: OE_MSG_PUB.Add;
3473: p_return_status := FND_API.G_RET_STS_ERROR;
3474: End;
3475: End IF; -- Update and Delete operation
3476: END LOOP; -- header payment
3477: -- aksingh(10/11/2000) this is in process of being coded upto this point
3498: l_error_flag := NULL;
3499: l_error_message := NULL;
3500: l_cho_unit_selling_price := NULL;
3501:
3502: IF p_x_line_tbl(I).org_id <> FND_API.G_MISS_NUM then
3503: l_org_id := p_x_line_tbl(I).org_id;
3504: ELSIF p_x_header_rec.ORG_ID <> FND_API.G_MISS_NUM then
3505: l_org_id := p_x_header_rec.org_id;
3506: ELSE
3500: l_cho_unit_selling_price := NULL;
3501:
3502: IF p_x_line_tbl(I).org_id <> FND_API.G_MISS_NUM then
3503: l_org_id := p_x_line_tbl(I).org_id;
3504: ELSIF p_x_header_rec.ORG_ID <> FND_API.G_MISS_NUM then
3505: l_org_id := p_x_header_rec.org_id;
3506: ELSE
3507: l_org_id := mo_global.get_current_org_id;
3508: END IF;
3541: END IF;
3542:
3543: IF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110508' AND
3544: G_IMPORT_SHIPMENTS = 'YES' THEN
3545: IF p_x_line_tbl(I).orig_sys_line_ref = FND_API.G_MISS_CHAR AND
3546: p_x_line_tbl(I).orig_sys_shipment_ref = FND_API.G_MISS_CHAR
3547: THEN
3548: IF l_debug_level > 0 THEN
3549: oe_debug_pub.add( 'INVALID ORIG_SYS_LINE_REF... ' ) ;
3542:
3543: IF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110508' AND
3544: G_IMPORT_SHIPMENTS = 'YES' THEN
3545: IF p_x_line_tbl(I).orig_sys_line_ref = FND_API.G_MISS_CHAR AND
3546: p_x_line_tbl(I).orig_sys_shipment_ref = FND_API.G_MISS_CHAR
3547: THEN
3548: IF l_debug_level > 0 THEN
3549: oe_debug_pub.add( 'INVALID ORIG_SYS_LINE_REF... ' ) ;
3550: END IF;
3549: oe_debug_pub.add( 'INVALID ORIG_SYS_LINE_REF... ' ) ;
3550: END IF;
3551: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_LINE_REF');
3552: OE_MSG_PUB.Add;
3553: p_return_status := FND_API.G_RET_STS_ERROR;
3554: END IF;
3555: ELSIF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110508' AND
3556: G_IMPORT_SHIPMENTS = 'NO' THEN
3557: IF p_x_line_tbl(I).orig_sys_line_ref = FND_API.G_MISS_CHAR THEN
3553: p_return_status := FND_API.G_RET_STS_ERROR;
3554: END IF;
3555: ELSIF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110508' AND
3556: G_IMPORT_SHIPMENTS = 'NO' THEN
3557: IF p_x_line_tbl(I).orig_sys_line_ref = FND_API.G_MISS_CHAR THEN
3558: IF l_debug_level > 0 THEN
3559: oe_debug_pub.add( 'INVALID ORIG_SYS_LINE_REF... ' ) ;
3560: END IF;
3561: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_LINE_REF');
3559: oe_debug_pub.add( 'INVALID ORIG_SYS_LINE_REF... ' ) ;
3560: END IF;
3561: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_LINE_REF');
3562: OE_MSG_PUB.Add;
3563: p_return_status := FND_API.G_RET_STS_ERROR;
3564: END IF;
3565: ELSIF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL < '110508' THEN
3566: IF p_x_line_tbl(I).orig_sys_line_ref = FND_API.G_MISS_CHAR THEN
3567: IF l_debug_level > 0 THEN
3562: OE_MSG_PUB.Add;
3563: p_return_status := FND_API.G_RET_STS_ERROR;
3564: END IF;
3565: ELSIF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL < '110508' THEN
3566: IF p_x_line_tbl(I).orig_sys_line_ref = FND_API.G_MISS_CHAR THEN
3567: IF l_debug_level > 0 THEN
3568: oe_debug_pub.add( 'INVALID ORIG_SYS_LINE_REF... ' ) ;
3569: END IF;
3570: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_LINE_REF');
3568: oe_debug_pub.add( 'INVALID ORIG_SYS_LINE_REF... ' ) ;
3569: END IF;
3570: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_LINE_REF');
3571: OE_MSG_PUB.Add;
3572: p_return_status := FND_API.G_RET_STS_ERROR;
3573: END IF;
3574: END IF;
3575:
3576: /* -----------------------------------------------------------
3618:
3619: oe_debug_pub.add('Primary and Secondary - tracking_quantity_ind <> PS', 2);
3620:
3621: IF ( p_x_line_tbl(I).ordered_quantity_uom2 IS NOT NULL
3622: AND p_x_line_tbl(I).ordered_quantity_uom2 <> FND_API.G_MISS_CHAR ) THEN
3623: --oe_debug_pub.add( 'OPM INVALID ordered_quantity_uom2 - should not be provided... ' ) ;
3624: FND_MESSAGE.SET_NAME('INV','INV_SECONDARY_UOM_NOT_REQUIRED'); -- INVCONV
3625: OE_MSG_PUB.Add;
3626: p_return_status := FND_API.G_RET_STS_ERROR;
3622: AND p_x_line_tbl(I).ordered_quantity_uom2 <> FND_API.G_MISS_CHAR ) THEN
3623: --oe_debug_pub.add( 'OPM INVALID ordered_quantity_uom2 - should not be provided... ' ) ;
3624: FND_MESSAGE.SET_NAME('INV','INV_SECONDARY_UOM_NOT_REQUIRED'); -- INVCONV
3625: OE_MSG_PUB.Add;
3626: p_return_status := FND_API.G_RET_STS_ERROR;
3627: IF l_debug_level > 0 THEN
3628: oe_debug_pub.add( 'INVALID ORDERED_QUANTITY_UOM2... should not be provided' ) ;
3629: END IF;
3630:
3631: END IF; -- IF ( p_x_line_tbl(I).ordered_quantity_uom2 <> NULL
3632:
3633: ELSIF l_tracking_quantity_ind = 'PS' then -- INVCONV
3634: IF ( ( p_x_line_tbl(I).ordered_quantity_uom2 IS NOT NULL
3635: AND p_x_line_tbl(I).ordered_quantity_uom2 <> FND_API.G_MISS_CHAR )
3636: AND p_x_line_tbl(I).ordered_quantity_uom2 <> l_secondary_uom_code ) THEN -- INVCONV
3637: FND_MESSAGE.SET_NAME('PO','PO_INCORRECT_SECONDARY_UOM'); -- INVCONV
3638: OE_MSG_PUB.Add;
3639: p_return_status := FND_API.G_RET_STS_ERROR;
3635: AND p_x_line_tbl(I).ordered_quantity_uom2 <> FND_API.G_MISS_CHAR )
3636: AND p_x_line_tbl(I).ordered_quantity_uom2 <> l_secondary_uom_code ) THEN -- INVCONV
3637: FND_MESSAGE.SET_NAME('PO','PO_INCORRECT_SECONDARY_UOM'); -- INVCONV
3638: OE_MSG_PUB.Add;
3639: p_return_status := FND_API.G_RET_STS_ERROR;
3640: IF l_debug_level > 0 THEN
3641: oe_debug_pub.add( 'INVALID ORDERED_QUANTITY_UOM2... does not match mtl_system_items' ) ;
3642: END IF;
3643:
3662: oe_debug_pub.add( 'INVALID QUANTITY ON 3A9' ) ;
3663: END IF;
3664: FND_MESSAGE.SET_NAME('ONT','OE_OI_INVALID_QTY_3A9');
3665: OE_MSG_PUB.Add;
3666: p_return_status := FND_API.G_RET_STS_ERROR;
3667: Else
3668:
3669: Begin
3670: Select ordered_quantity
3674: And order_source_id = p_x_line_tbl(I).order_source_id
3675: And orig_sys_line_ref = p_x_line_tbl(I).orig_sys_line_ref
3676: And orig_sys_shipment_ref = p_x_line_tbl(I).orig_sys_shipment_ref
3677: And decode(l_customer_key_profile, 'Y',
3678: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
3679: = decode(l_customer_key_profile, 'Y',
3680: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1);
3681:
3682: If l_existing_qty < p_x_line_tbl(I).ordered_quantity Then
3676: And orig_sys_shipment_ref = p_x_line_tbl(I).orig_sys_shipment_ref
3677: And decode(l_customer_key_profile, 'Y',
3678: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
3679: = decode(l_customer_key_profile, 'Y',
3680: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1);
3681:
3682: If l_existing_qty < p_x_line_tbl(I).ordered_quantity Then
3683: IF l_debug_level > 0 THEN
3684: oe_debug_pub.add( 'INVALID QUANTITY ON 3A9' ) ;
3684: oe_debug_pub.add( 'INVALID QUANTITY ON 3A9' ) ;
3685: END IF;
3686: FND_MESSAGE.SET_NAME('ONT','OE_OI_INVALID_QTY_3A9');
3687: OE_MSG_PUB.Add;
3688: p_return_status := FND_API.G_RET_STS_ERROR;
3689: End If;
3690: Exception
3691: When Others Then
3692: p_return_status := FND_API.G_RET_STS_ERROR;
3688: p_return_status := FND_API.G_RET_STS_ERROR;
3689: End If;
3690: Exception
3691: When Others Then
3692: p_return_status := FND_API.G_RET_STS_ERROR;
3693: End;
3694: End If;
3695: End If;
3696:
3713: oe_debug_pub.add( 'INVALID OPERATION CODE. YOU ARE TRYING TO INSERT THE ORDER HEADER BUT NOT THE LINES. IF THE OPERATION ON THE HEADER IS INSERT , IT SHOULD BE INSERT AT THE LINE LEVEL ALSO , NOT UPDATE OR DELETE...' ) ;
3714: END IF;
3715: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3716: OE_MSG_PUB.Add;
3717: p_return_status := FND_API.G_RET_STS_ERROR;
3718: END IF;
3719:
3720: /* -----------------------------------------------------------
3721: Derive Requisition Line Id for Internal Orders
3789: -- schedule ship date.
3790: -- Bug 1606316, fix (see later what fix), this is redundant
3791: -- as explained above
3792:
3793: IF p_x_line_tbl(I).request_date <> FND_API.G_MISS_DATE
3794: THEN
3795: IF l_debug_level > 0 THEN
3796: oe_debug_pub.add( 'BEFORE CALL TO DATE OFFSET API' ) ;
3797: END IF;
3813: -- schedule_ship_date is not passed by PO means it is
3814: -- MISS_DATE, do not assign the new found value of
3815: -- l_new_schedule_ship_date in above call. Which will
3816: -- be removed once family pack H/I become mandatory
3817: If p_x_line_tbl(I).schedule_ship_date <> FND_API.G_MISS_DATE Then
3818: p_x_line_tbl(I).schedule_ship_date :=
3819: nvl(l_new_schedule_ship_date, p_x_line_tbl(I).schedule_ship_date);
3820: IF l_debug_level > 0 THEN
3821: oe_debug_pub.add( 'NEW SCHEDULE_SHIP_DATE ' || P_X_LINE_TBL ( I ) .SCHEDULE_SHIP_DATE ) ;
3829: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
3830: END IF;
3831:
3832: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3833: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3834: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process.Req_Line_Id_derivation');
3835: END IF;
3836: END;
3837: END IF;
3859: p_x_line_rec => l_line_rec,
3860: p_record_type => 'LINE',
3861: x_return_status => l_return_status);
3862:
3863: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
3864: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
3865: FND_API.G_RET_STS_UNEXP_ERROR)
3866: THEN
3867: p_return_status := l_return_status;
3860: p_record_type => 'LINE',
3861: x_return_status => l_return_status);
3862:
3863: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
3864: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
3865: FND_API.G_RET_STS_UNEXP_ERROR)
3866: THEN
3867: p_return_status := l_return_status;
3868: END IF;
3861: x_return_status => l_return_status);
3862:
3863: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
3864: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
3865: FND_API.G_RET_STS_UNEXP_ERROR)
3866: THEN
3867: p_return_status := l_return_status;
3868: END IF;
3869: p_x_line_tbl(I) := l_line_rec;
3873: END IF;
3874: fnd_message.set_name('ONT','ONT_OI_INL_SET_PARAMETER');
3875: fnd_message.set_token('TYPE', 'Customers, Addresses or Contacts');
3876: oe_msg_pub.add;
3877: p_return_status := FND_API.G_RET_STS_ERROR;
3878: End If;
3879: -- End of If for checking add customers parameter}
3880: End If;
3881: -- End of If for calling add customers}
3892: IF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110508' AND
3893: G_IMPORT_SHIPMENTS = 'YES' THEN
3894:
3895: IF (p_x_line_tbl(I).split_from_line_ref IS NOT NULL) AND
3896: (p_x_line_tbl(I).split_from_line_ref <> FND_API.G_MISS_CHAR) AND
3897: (p_x_line_tbl(I).split_from_shipment_ref IS NOT NULL) AND
3898: (p_x_line_tbl(I).split_from_shipment_ref <> FND_API.G_MISS_CHAR)
3899: THEN
3900: IF l_debug_level > 0 THEN
3894:
3895: IF (p_x_line_tbl(I).split_from_line_ref IS NOT NULL) AND
3896: (p_x_line_tbl(I).split_from_line_ref <> FND_API.G_MISS_CHAR) AND
3897: (p_x_line_tbl(I).split_from_shipment_ref IS NOT NULL) AND
3898: (p_x_line_tbl(I).split_from_shipment_ref <> FND_API.G_MISS_CHAR)
3899: THEN
3900: IF l_debug_level > 0 THEN
3901: oe_debug_pub.add( 'SPLIT LINE FOR LINE REFERENCE: '|| P_X_LINE_TBL ( I ) .SPLIT_FROM_LINE_REF ) ;
3902: END IF;
3930: p_x_line_tbl(I).split_from_line_ref);
3931: FND_MESSAGE.SET_TOKEN('REASON',
3932: 'Could not find the reference line');
3933: OE_MSG_PUB.Add;
3934: p_return_status := FND_API.G_RET_STS_ERROR;
3935: END IF;
3936: END IF;
3937: BEGIN
3938: IF l_debug_level > 0 THEN
3943: WHERE header_id = l_header_id
3944: AND orig_sys_line_ref = p_x_line_tbl(I).orig_sys_line_ref
3945: AND orig_sys_shipment_ref = p_x_line_tbl(I).orig_sys_shipment_ref
3946: AND decode(l_customer_key_profile, 'Y',
3947: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
3948: = decode(l_customer_key_profile, 'Y',
3949: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1);
3950:
3951: -- aksingh(10/11/2000) this is in process of being coded upto here
3945: AND orig_sys_shipment_ref = p_x_line_tbl(I).orig_sys_shipment_ref
3946: AND decode(l_customer_key_profile, 'Y',
3947: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
3948: = decode(l_customer_key_profile, 'Y',
3949: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1);
3950:
3951: -- aksingh(10/11/2000) this is in process of being coded upto here
3952: IF l_debug_level > 0 THEN
3953: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO INSERT A NEW LINE WITH THE SAME ORDER SOURCE ID , ORIG_SYS_DOCUMENT_REF AND ORIG_SYS_LINE_REF... ' ) ;
3953: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO INSERT A NEW LINE WITH THE SAME ORDER SOURCE ID , ORIG_SYS_DOCUMENT_REF AND ORIG_SYS_LINE_REF... ' ) ;
3954: END IF;
3955: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3956: OE_MSG_PUB.Add;
3957: p_return_status := FND_API.G_RET_STS_ERROR;
3958: Exception
3959: When no_data_found then
3960: IF l_debug_level > 0 THEN
3961: oe_debug_pub.add( 'VALID ORDER LINE FOR INSERT' ) ;
3965: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO INSERT A NEW LINE... ' ) ;
3966: END IF;
3967: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3968: OE_MSG_PUB.Add;
3969: p_return_status := FND_API.G_RET_STS_ERROR;
3970: End;
3971: ELSIF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110508' AND
3972: G_IMPORT_SHIPMENTS = 'NO' THEN
3973: IF (p_x_line_tbl(I).split_from_line_ref IS NOT NULL) AND
3970: End;
3971: ELSIF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110508' AND
3972: G_IMPORT_SHIPMENTS = 'NO' THEN
3973: IF (p_x_line_tbl(I).split_from_line_ref IS NOT NULL) AND
3974: (p_x_line_tbl(I).split_from_line_ref <> FND_API.G_MISS_CHAR)
3975: THEN
3976: IF l_debug_level > 0 THEN
3977: oe_debug_pub.add( 'SPLIT LINE FOR LINE REFERENCE: '|| P_X_LINE_TBL ( I ) .SPLIT_FROM_LINE_REF ) ;
3978: END IF;
4004: p_x_line_tbl(I).split_from_line_ref);
4005: FND_MESSAGE.SET_TOKEN('REASON',
4006: 'Could not find the reference line');
4007: OE_MSG_PUB.Add;
4008: p_return_status := FND_API.G_RET_STS_ERROR;
4009: END IF;
4010: END IF;
4011: BEGIN
4012: IF l_debug_level > 0 THEN
4016: FROM oe_order_lines
4017: WHERE header_id = l_header_id
4018: AND orig_sys_line_ref = p_x_line_tbl(I).orig_sys_line_ref
4019: AND decode(l_customer_key_profile, 'Y',
4020: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
4021: = decode(l_customer_key_profile, 'Y',
4022: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1);
4023:
4024: -- aksingh(10/11/2000) this is in process of being coded upto here
4018: AND orig_sys_line_ref = p_x_line_tbl(I).orig_sys_line_ref
4019: AND decode(l_customer_key_profile, 'Y',
4020: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
4021: = decode(l_customer_key_profile, 'Y',
4022: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1);
4023:
4024: -- aksingh(10/11/2000) this is in process of being coded upto here
4025: IF l_debug_level > 0 THEN
4026: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO INSERT A NEW LINE WITH THE SAME ORDER SOURCE ID , ORIG_SYS_DOCUMENT_REF AND ORIG_SYS_LINE_REF. .. ' ) ;
4026: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO INSERT A NEW LINE WITH THE SAME ORDER SOURCE ID , ORIG_SYS_DOCUMENT_REF AND ORIG_SYS_LINE_REF. .. ' ) ;
4027: END IF;
4028: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
4029: OE_MSG_PUB.Add;
4030: p_return_status := FND_API.G_RET_STS_ERROR;
4031: Exception
4032: When no_data_found then
4033: IF l_debug_level > 0 THEN
4034: oe_debug_pub.add( 'VALID ORDER LINE FOR INSERT' ) ;
4038: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO INSERT A NEW LINE... ' ) ;
4039: END IF;
4040: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
4041: OE_MSG_PUB.Add;
4042: p_return_status := FND_API.G_RET_STS_ERROR;
4043: End;
4044: ELSIF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL < '110508' THEN
4045: IF (p_x_line_tbl(I).split_from_line_ref IS NOT NULL) AND
4046: (p_x_line_tbl(I).split_from_line_ref <> FND_API.G_MISS_CHAR)
4042: p_return_status := FND_API.G_RET_STS_ERROR;
4043: End;
4044: ELSIF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL < '110508' THEN
4045: IF (p_x_line_tbl(I).split_from_line_ref IS NOT NULL) AND
4046: (p_x_line_tbl(I).split_from_line_ref <> FND_API.G_MISS_CHAR)
4047: THEN
4048: IF l_debug_level > 0 THEN
4049: oe_debug_pub.add( 'SPLIT LINE FOR LINE REFERENCE: '|| P_X_LINE_TBL ( I ) .SPLIT_FROM_LINE_REF ) ;
4050: END IF;
4076: p_x_line_tbl(I).split_from_line_ref);
4077: FND_MESSAGE.SET_TOKEN('REASON',
4078: 'Could not find the reference line');
4079: OE_MSG_PUB.Add;
4080: p_return_status := FND_API.G_RET_STS_ERROR;
4081: END IF;
4082: END IF;
4083: BEGIN
4084: IF l_debug_level > 0 THEN
4094: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO INSERT A NEW LINE WITH THE SAME ORDER SOURCE ID , ORIG_SYS_DOCUMENT_REF AND ORIG_SYS_LINE_REF. .. ' ) ;
4095: END IF;
4096: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
4097: OE_MSG_PUB.Add;
4098: p_return_status := FND_API.G_RET_STS_ERROR;
4099: Exception
4100: When no_data_found then
4101: IF l_debug_level > 0 THEN
4102: oe_debug_pub.add( 'VALID ORDER LINE FOR INSERT' ) ;
4106: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO INSERT A NEW LINE... ' ) ;
4107: END IF;
4108: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
4109: OE_MSG_PUB.Add;
4110: p_return_status := FND_API.G_RET_STS_ERROR;
4111: End;
4112:
4113: END IF;
4114:
4145: AND orig_sys_line_ref = p_x_line_tbl(I).orig_sys_line_ref
4146: AND orig_sys_shipment_ref = p_x_line_tbl(I).orig_sys_shipment_ref
4147: AND (sold_to_org_id is NULL OR
4148: decode(l_customer_key_profile, 'Y',
4149: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
4150: = decode(l_customer_key_profile, 'Y',
4151: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1));
4152:
4153: p_x_line_tbl(I).header_id := l_header_id;
4147: AND (sold_to_org_id is NULL OR
4148: decode(l_customer_key_profile, 'Y',
4149: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
4150: = decode(l_customer_key_profile, 'Y',
4151: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1));
4152:
4153: p_x_line_tbl(I).header_id := l_header_id;
4154: p_x_line_tbl(I).line_id := l_line_id;
4155: p_x_line_tbl(I).line_number := l_line_number;
4162: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING LINE BUT THAT LINE DOES NOT EXIST... ' ) ;
4163: END IF;
4164: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
4165: OE_MSG_PUB.Add;
4166: p_return_status := FND_API.G_RET_STS_ERROR;
4167: When others then
4168: IF l_debug_level > 0 THEN
4169: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING LINE ... ' ) ;
4170: END IF;
4169: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING LINE ... ' ) ;
4170: END IF;
4171: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
4172: OE_MSG_PUB.Add;
4173: p_return_status := FND_API.G_RET_STS_ERROR;
4174: End;
4175: ELSE
4176: Begin
4177: l_c_change_sequence := NULL;
4195: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING LINE BUT THAT LINE DOES NOT EXIST... ' ) ;
4196: END IF;
4197: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
4198: OE_MSG_PUB.Add;
4199: p_return_status := FND_API.G_RET_STS_ERROR;
4200: When others then
4201: IF l_debug_level > 0 THEN
4202: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING LINE ... ' ) ;
4203: END IF;
4202: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING LINE ... ' ) ;
4203: END IF;
4204: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
4205: OE_MSG_PUB.Add;
4206: p_return_status := FND_API.G_RET_STS_ERROR;
4207: End;
4208: END IF;
4209:
4210: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
4211: IF p_x_line_tbl(I).order_source_id = OE_Acknowledgment_Pub.G_XML_ORDER_SOURCE_ID AND
4212: p_x_line_tbl(I).xml_transaction_type_code = OE_Acknowledgment_Pub.G_TRANSACTION_CHO AND
4213: l_cso_response_profile = 'Y' AND
4214: p_x_line_tbl(I).cso_response_flag = 'Y' AND
4215: p_x_line_tbl(I).customer_item_net_price = FND_API.G_MISS_NUM THEN
4216:
4217: p_x_line_tbl(I).customer_item_net_price := l_cho_unit_selling_price;
4218: IF l_debug_level > 0 THEN
4219: oe_debug_pub.add('3A8 Response Customer_item_net_price ' || p_x_line_tbl(I).customer_item_net_price
4229: oe_debug_pub.add( 'INVALID OPERATION CODE. NOT ONE OF INSERT , CREATE , UPDATE OR DELETE... ' ) ;
4230: END IF;
4231: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
4232: OE_MSG_PUB.Add;
4233: p_return_status := FND_API.G_RET_STS_ERROR;
4234:
4235: END IF;
4236:
4237: EXCEPTION
4240: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
4241: END IF;
4242:
4243: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4244: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4245: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process.header_operation_validation');
4246: END IF;
4247: END;
4248:
4253: IF l_debug_level > 0 THEN
4254: oe_debug_pub.add( 'BEFORE VALIDATING ITEM TYPE CODE' ) ;
4255: END IF;
4256:
4257: IF p_x_line_tbl(I).item_type_code <> FND_API.G_MISS_CHAR AND
4258: p_x_line_tbl(I).item_type_code NOT IN
4259: ('STANDARD','MODEL','CLASS','KIT','SERVICE','OPTION','INCLUDED','CONFIG')
4260: THEN
4261: IF l_debug_level > 0 THEN
4262: oe_debug_pub.add( 'INVALID ITEM TYPE CODE... ' ) ;
4263: END IF;
4264: FND_MESSAGE.SET_NAME('ONT','OE_OI_ITEM_TYPE');
4265: OE_MSG_PUB.Add;
4266: p_return_status := FND_API.G_RET_STS_ERROR;
4267: END IF;
4268: -- { Start of derivation of the sold_to_org_id for Header/Line
4269: If p_x_header_rec.sold_to_org_id IS NOT NULL AND
4270: p_x_header_rec.sold_to_org_id <> FND_API.G_MISS_NUM
4266: p_return_status := FND_API.G_RET_STS_ERROR;
4267: END IF;
4268: -- { Start of derivation of the sold_to_org_id for Header/Line
4269: If p_x_header_rec.sold_to_org_id IS NOT NULL AND
4270: p_x_header_rec.sold_to_org_id <> FND_API.G_MISS_NUM
4271: Then
4272: If p_x_line_tbl(I).sold_to_org_id = FND_API.G_MISS_NUM OR
4273: p_x_line_tbl(I).sold_to_org_id IS NULL
4274: Then
4268: -- { Start of derivation of the sold_to_org_id for Header/Line
4269: If p_x_header_rec.sold_to_org_id IS NOT NULL AND
4270: p_x_header_rec.sold_to_org_id <> FND_API.G_MISS_NUM
4271: Then
4272: If p_x_line_tbl(I).sold_to_org_id = FND_API.G_MISS_NUM OR
4273: p_x_line_tbl(I).sold_to_org_id IS NULL
4274: Then
4275: p_x_line_tbl(I).sold_to_org_id := p_x_header_rec.sold_to_org_id;
4276: End If;
4276: End If;
4277: Else
4278: -- { Start Begin
4279: Begin
4280: IF (p_x_line_tbl(I).sold_to_org_id = FND_API.G_MISS_NUM OR
4281: p_x_line_tbl(I).sold_to_org_id IS NULL) AND
4282: ((p_x_line_val_tbl(I).sold_to_org <> FND_API.G_MISS_CHAR AND
4283: p_x_line_val_tbl(I).sold_to_org IS NOT NULL) OR
4284: (p_x_header_val_rec.customer_number <> FND_API.G_MISS_CHAR AND
4278: -- { Start Begin
4279: Begin
4280: IF (p_x_line_tbl(I).sold_to_org_id = FND_API.G_MISS_NUM OR
4281: p_x_line_tbl(I).sold_to_org_id IS NULL) AND
4282: ((p_x_line_val_tbl(I).sold_to_org <> FND_API.G_MISS_CHAR AND
4283: p_x_line_val_tbl(I).sold_to_org IS NOT NULL) OR
4284: (p_x_header_val_rec.customer_number <> FND_API.G_MISS_CHAR AND
4285: p_x_header_val_rec.customer_number IS NOT NULL) OR
4286: (p_x_header_val_rec.sold_to_org <> FND_API.G_MISS_CHAR AND
4280: IF (p_x_line_tbl(I).sold_to_org_id = FND_API.G_MISS_NUM OR
4281: p_x_line_tbl(I).sold_to_org_id IS NULL) AND
4282: ((p_x_line_val_tbl(I).sold_to_org <> FND_API.G_MISS_CHAR AND
4283: p_x_line_val_tbl(I).sold_to_org IS NOT NULL) OR
4284: (p_x_header_val_rec.customer_number <> FND_API.G_MISS_CHAR AND
4285: p_x_header_val_rec.customer_number IS NOT NULL) OR
4286: (p_x_header_val_rec.sold_to_org <> FND_API.G_MISS_CHAR AND
4287: p_x_header_val_rec.sold_to_org IS NOT NULL))
4288: THEN
4282: ((p_x_line_val_tbl(I).sold_to_org <> FND_API.G_MISS_CHAR AND
4283: p_x_line_val_tbl(I).sold_to_org IS NOT NULL) OR
4284: (p_x_header_val_rec.customer_number <> FND_API.G_MISS_CHAR AND
4285: p_x_header_val_rec.customer_number IS NOT NULL) OR
4286: (p_x_header_val_rec.sold_to_org <> FND_API.G_MISS_CHAR AND
4287: p_x_header_val_rec.sold_to_org IS NOT NULL))
4288: THEN
4289: IF l_debug_level > 0 THEN
4290: oe_debug_pub.add( 'BEFORE CALLING SOLD TO ORG ID' ) ;
4293: p_sold_to_org => nvl(p_x_header_val_rec.sold_to_org,
4294: p_x_line_val_tbl(I).sold_to_org),
4295: p_customer_number => p_x_header_val_rec.customer_number);
4296: If p_x_header_rec.sold_to_org_id is NULL OR
4297: p_x_header_rec.sold_to_org_id = FND_API.G_MISS_NUM Then
4298: p_x_header_rec.sold_to_org_id := p_x_line_tbl(I).sold_to_org_id;
4299: End If;
4300:
4301: IF l_debug_level > 0 THEN
4301: IF l_debug_level > 0 THEN
4302: oe_debug_pub.add( 'AFTER SOLDTOORGID '|| P_X_LINE_TBL ( I ) .SOLD_TO_ORG_ID ) ;
4303: END IF;
4304:
4305: IF (p_x_line_tbl(I).sold_to_org_id = FND_API.G_MISS_NUM OR
4306: p_x_line_tbl(I).sold_to_org_id IS NULL)
4307: THEN
4308: IF l_debug_level > 0 THEN
4309: oe_debug_pub.add( 'SOLD TO ORG ID IS MISSING , AFTER CALL TO VALUE TO ID' ) ;
4309: oe_debug_pub.add( 'SOLD TO ORG ID IS MISSING , AFTER CALL TO VALUE TO ID' ) ;
4310: END IF;
4311: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_CUSTOMER_ID');
4312: OE_MSG_PUB.Add;
4313: p_return_status := FND_API.G_RET_STS_ERROR;
4314: END IF;
4315: END IF;
4316: Exception
4317: When others then
4319: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN GETTING SOLD TO ORG ID IN OEXVIMSB... ' ) ;
4320: END IF;
4321: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_CUSTOMER_ID');
4322: OE_MSG_PUB.Add;
4323: p_return_status := FND_API.G_RET_STS_ERROR;
4324: End;
4325: -- End Begin}
4326: End If;
4327: -- End of derivation of the sold_to_org_id for Header/Line }
4332: l_inventory_item_id_ord := NULL;
4333: l_inventory_item_id_cust := NULL;
4334: l_inventory_item_id_gen := NULL;
4335: --bug#4174961
4336: IF (p_x_line_tbl(I).inventory_item_id <> FND_API.G_MISS_NUM AND
4337: p_x_line_tbl(I).inventory_item_id IS NOT NULL)
4338: THEN
4339: l_inventory_item_id_int := p_x_line_tbl(I).inventory_item_id;
4340: END IF;
4340: END IF;
4341:
4342: -- Aksingh Adding code for the Item Derivation and Cross Referencing
4343: -- { Adding 11/14/2000 Start
4344: IF (p_x_line_val_tbl(I).inventory_item <> FND_API.G_MISS_CHAR AND
4345: p_x_line_val_tbl(I).inventory_item IS NOT NULL) AND
4346: (p_x_line_tbl(I).inventory_item_id = FND_API.G_MISS_NUM OR
4347: p_x_line_tbl(I).inventory_item_id IS NULL)
4348: THEN
4342: -- Aksingh Adding code for the Item Derivation and Cross Referencing
4343: -- { Adding 11/14/2000 Start
4344: IF (p_x_line_val_tbl(I).inventory_item <> FND_API.G_MISS_CHAR AND
4345: p_x_line_val_tbl(I).inventory_item IS NOT NULL) AND
4346: (p_x_line_tbl(I).inventory_item_id = FND_API.G_MISS_NUM OR
4347: p_x_line_tbl(I).inventory_item_id IS NULL)
4348: THEN
4349: BEGIN
4350: IF l_debug_level > 0 THEN
4373: IF l_debug_level > 0 THEN
4374: oe_debug_pub.add( 'TOO MANY ROWS ERROR: '||SQLERRM ) ;
4375: END IF;
4376: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4377: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4378: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process_INT_ITEM');
4379: END IF;
4380: When others then
4381: IF l_debug_level > 0 THEN
4384: IF l_debug_level > 0 THEN
4385: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
4386: END IF;
4387: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4388: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4389: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process_INT_ITEM');
4390: END IF;
4391: END;
4392: END IF;
4393: -- Adding 11/14/2000 End }
4394:
4395: -- { Get inventory item id for the ordered_item or ordered_item_id
4396: IF (NVL(p_x_line_tbl(I).item_identifier_type,'INT') IN ('INT','CUST') OR
4397: p_x_line_tbl(I).item_identifier_type = FND_API.G_MISS_CHAR)
4398: THEN
4399: IF (p_x_line_tbl(I).ordered_item <> FND_API.G_MISS_CHAR AND
4400: p_x_line_tbl(I).ordered_item IS NOT NULL)
4401: THEN
4395: -- { Get inventory item id for the ordered_item or ordered_item_id
4396: IF (NVL(p_x_line_tbl(I).item_identifier_type,'INT') IN ('INT','CUST') OR
4397: p_x_line_tbl(I).item_identifier_type = FND_API.G_MISS_CHAR)
4398: THEN
4399: IF (p_x_line_tbl(I).ordered_item <> FND_API.G_MISS_CHAR AND
4400: p_x_line_tbl(I).ordered_item IS NOT NULL)
4401: THEN
4402: BEGIN
4403: IF l_debug_level > 0 THEN
4424: IF l_debug_level > 0 THEN
4425: oe_debug_pub.add( 'TOO MANY ROWS ERROR: '||SQLERRM ) ;
4426: END IF;
4427: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4428: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4429: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process_INT_ITEM');
4430: END IF;
4431: When others then
4432: IF l_debug_level > 0 THEN
4435: IF l_debug_level > 0 THEN
4436: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
4437: END IF;
4438: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4439: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4440: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process_INT_ITEM');
4441: END IF;
4442: END;
4443: ELSIF (p_x_line_tbl(I).ordered_item_id <> FND_API.G_MISS_NUM AND
4439: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4440: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process_INT_ITEM');
4441: END IF;
4442: END;
4443: ELSIF (p_x_line_tbl(I).ordered_item_id <> FND_API.G_MISS_NUM AND
4444: p_x_line_tbl(I).ordered_item_id IS NOT NULL)
4445: THEN
4446: BEGIN
4447: IF l_debug_level > 0 THEN
4465: IF l_debug_level > 0 THEN
4466: oe_debug_pub.add( 'TOO MANY ROWS ERROR: '||SQLERRM ) ;
4467: END IF;
4468: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4469: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4470: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process_INT_ITEM');
4471: END IF;
4472: When others then
4473: IF l_debug_level > 0 THEN
4476: IF l_debug_level > 0 THEN
4477: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
4478: END IF;
4479: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4480: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4481: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process_INT_ITEM');
4482: END IF;
4483: END;
4484: END IF;
4486: -- End of get inventory item id for ordered_item or ordered_item_id }
4487:
4488: -- { Get inventory item id and customer item id for type 'CUST'
4489: IF (NVL(p_x_line_tbl(I).item_identifier_type, 'CUST') = 'CUST' OR
4490: p_x_line_tbl(I).item_identifier_type = FND_API.G_MISS_CHAR) AND
4491: (p_x_line_tbl(I).ordered_Item is NOT NULL AND
4492: p_x_line_tbl(I).ordered_Item <> FND_API.G_MISS_CHAR OR
4493: p_x_line_tbl(I).ordered_Item_id is NOT NULL AND
4494: p_x_line_tbl(I).ordered_Item_id <> FND_API.G_MISS_NUM)
4488: -- { Get inventory item id and customer item id for type 'CUST'
4489: IF (NVL(p_x_line_tbl(I).item_identifier_type, 'CUST') = 'CUST' OR
4490: p_x_line_tbl(I).item_identifier_type = FND_API.G_MISS_CHAR) AND
4491: (p_x_line_tbl(I).ordered_Item is NOT NULL AND
4492: p_x_line_tbl(I).ordered_Item <> FND_API.G_MISS_CHAR OR
4493: p_x_line_tbl(I).ordered_Item_id is NOT NULL AND
4494: p_x_line_tbl(I).ordered_Item_id <> FND_API.G_MISS_NUM)
4495: THEN
4496: IF l_debug_level > 0 THEN
4490: p_x_line_tbl(I).item_identifier_type = FND_API.G_MISS_CHAR) AND
4491: (p_x_line_tbl(I).ordered_Item is NOT NULL AND
4492: p_x_line_tbl(I).ordered_Item <> FND_API.G_MISS_CHAR OR
4493: p_x_line_tbl(I).ordered_Item_id is NOT NULL AND
4494: p_x_line_tbl(I).ordered_Item_id <> FND_API.G_MISS_NUM)
4495: THEN
4496: IF l_debug_level > 0 THEN
4497: oe_debug_pub.add( 'IN OEXVIMSB. ITEM IDENTIFIER IS CUST' ) ;
4498: END IF;
4495: THEN
4496: IF l_debug_level > 0 THEN
4497: oe_debug_pub.add( 'IN OEXVIMSB. ITEM IDENTIFIER IS CUST' ) ;
4498: END IF;
4499: IF (p_x_line_tbl(I).sold_to_org_id = FND_API.G_MISS_NUM OR
4500: p_x_line_tbl(I).sold_to_org_id IS NULL) AND
4501: ((p_x_line_val_tbl(I).sold_to_org <> FND_API.G_MISS_CHAR AND
4502: p_x_line_val_tbl(I).sold_to_org IS NOT NULL) OR
4503: (p_x_header_val_rec.customer_number <> FND_API.G_MISS_CHAR AND
4497: oe_debug_pub.add( 'IN OEXVIMSB. ITEM IDENTIFIER IS CUST' ) ;
4498: END IF;
4499: IF (p_x_line_tbl(I).sold_to_org_id = FND_API.G_MISS_NUM OR
4500: p_x_line_tbl(I).sold_to_org_id IS NULL) AND
4501: ((p_x_line_val_tbl(I).sold_to_org <> FND_API.G_MISS_CHAR AND
4502: p_x_line_val_tbl(I).sold_to_org IS NOT NULL) OR
4503: (p_x_header_val_rec.customer_number <> FND_API.G_MISS_CHAR AND
4504: p_x_header_val_rec.customer_number IS NOT NULL) OR
4505: (p_x_header_val_rec.sold_to_org <> FND_API.G_MISS_CHAR AND
4499: IF (p_x_line_tbl(I).sold_to_org_id = FND_API.G_MISS_NUM OR
4500: p_x_line_tbl(I).sold_to_org_id IS NULL) AND
4501: ((p_x_line_val_tbl(I).sold_to_org <> FND_API.G_MISS_CHAR AND
4502: p_x_line_val_tbl(I).sold_to_org IS NOT NULL) OR
4503: (p_x_header_val_rec.customer_number <> FND_API.G_MISS_CHAR AND
4504: p_x_header_val_rec.customer_number IS NOT NULL) OR
4505: (p_x_header_val_rec.sold_to_org <> FND_API.G_MISS_CHAR AND
4506: p_x_header_val_rec.sold_to_org IS NOT NULL))
4507: THEN
4501: ((p_x_line_val_tbl(I).sold_to_org <> FND_API.G_MISS_CHAR AND
4502: p_x_line_val_tbl(I).sold_to_org IS NOT NULL) OR
4503: (p_x_header_val_rec.customer_number <> FND_API.G_MISS_CHAR AND
4504: p_x_header_val_rec.customer_number IS NOT NULL) OR
4505: (p_x_header_val_rec.sold_to_org <> FND_API.G_MISS_CHAR AND
4506: p_x_header_val_rec.sold_to_org IS NOT NULL))
4507: THEN
4508: IF l_debug_level > 0 THEN
4509: oe_debug_pub.add( 'BEFORE CALLING SOLD TO ORG ID' ) ;
4512: p_sold_to_org => nvl(p_x_header_val_rec.sold_to_org,
4513: p_x_line_val_tbl(I).sold_to_org),
4514: p_customer_number => p_x_header_val_rec.customer_number);
4515: If p_x_header_rec.sold_to_org_id is NULL OR
4516: p_x_header_rec.sold_to_org_id = FND_API.G_MISS_NUM Then
4517: p_x_header_rec.sold_to_org_id := p_x_line_tbl(I).sold_to_org_id;
4518: End If;
4519:
4520: IF l_debug_level > 0 THEN
4522: END IF;
4523: END IF;
4524: -- 6 Lines are deleted from here, check the previous version for details.
4525:
4526: IF p_x_line_tbl(I).ordered_item_id = FND_API.G_MISS_NUM THEN
4527: l_ordered_item_id := NULL;
4528: ELSE
4529: l_ordered_item_id := p_x_line_tbl(I).ordered_item_id;
4530: END IF;
4550: IF l_debug_level > 0 THEN
4551: oe_debug_pub.add( 'ORGANIZATION_ID = '||P_X_LINE_TBL ( I ) .SHIP_FROM_ORG_ID ) ;
4552: END IF;
4553: -- Fix for bug 1654669 start
4554: If p_x_line_tbl(I).ship_from_org_id = FND_API.G_MISS_NUM Then
4555: l_ship_from_org_id := NULL;
4556: Else
4557: l_ship_from_org_id := p_x_line_tbl(I).ship_from_org_id;
4558: End If;
4558: End If;
4559: -- Fix for bug 1654669 end
4560: -- Fix for 2626323
4561: IF ((p_x_header_rec.ship_to_org_id IS NOT NULL AND --Bug 5383045
4562: p_x_header_rec.ship_to_org_id <> FND_API.G_MISS_NUM) AND
4563: (p_x_line_tbl(I).ship_to_org_id IS NULL OR
4564: p_x_line_tbl(I).ship_to_org_id =FND_API.G_MISS_NUM))THEN
4565:
4566: p_x_line_tbl(I).ship_to_org_id :=p_x_header_rec.ship_to_org_id;
4560: -- Fix for 2626323
4561: IF ((p_x_header_rec.ship_to_org_id IS NOT NULL AND --Bug 5383045
4562: p_x_header_rec.ship_to_org_id <> FND_API.G_MISS_NUM) AND
4563: (p_x_line_tbl(I).ship_to_org_id IS NULL OR
4564: p_x_line_tbl(I).ship_to_org_id =FND_API.G_MISS_NUM))THEN
4565:
4566: p_x_line_tbl(I).ship_to_org_id :=p_x_header_rec.ship_to_org_id;
4567: END IF;
4568:
4566: p_x_line_tbl(I).ship_to_org_id :=p_x_header_rec.ship_to_org_id;
4567: END IF;
4568:
4569: IF (p_x_line_tbl(I).ship_to_org_id IS NOT NULL AND
4570: p_x_line_tbl(I).ship_to_org_id <> FND_API.G_MISS_NUM) THEN
4571: SELECT /* MOAC_SQL_CHANGE */ u.cust_acct_site_id,
4572: s.cust_account_id
4573: INTO l_address_id
4574: ,l_cust_id
4589: l_address_id := NULL;
4590: END IF;
4591: END IF;
4592:
4593: IF (p_x_line_tbl(I).inventory_item_id = FND_API.G_MISS_NUM OR
4594: p_x_line_tbl(I).inventory_item_id IS NULL) THEN
4595: l_inventory_id := NULL;
4596: ELSE
4597: l_inventory_id := p_x_line_tbl(I).inventory_item_id;
4597: l_inventory_id := p_x_line_tbl(I).inventory_item_id;
4598: END IF;
4599:
4600: --Start of bug# 13574394
4601: IF Nvl(p_x_line_tbl(I).return_reason_code,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4602: p_x_line_tbl(I).line_category_code = 'RETURN' OR
4603: Nvl(p_x_line_tbl(I).return_context,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4604: Nvl(p_x_line_tbl(I).return_attribute1,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4605: Nvl(p_x_line_tbl(I).return_attribute2, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4599:
4600: --Start of bug# 13574394
4601: IF Nvl(p_x_line_tbl(I).return_reason_code,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4602: p_x_line_tbl(I).line_category_code = 'RETURN' OR
4603: Nvl(p_x_line_tbl(I).return_context,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4604: Nvl(p_x_line_tbl(I).return_attribute1,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4605: Nvl(p_x_line_tbl(I).return_attribute2, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4606: p_x_line_tbl(I).ordered_quantity < 0
4607:
4600: --Start of bug# 13574394
4601: IF Nvl(p_x_line_tbl(I).return_reason_code,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4602: p_x_line_tbl(I).line_category_code = 'RETURN' OR
4603: Nvl(p_x_line_tbl(I).return_context,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4604: Nvl(p_x_line_tbl(I).return_attribute1,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4605: Nvl(p_x_line_tbl(I).return_attribute2, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4606: p_x_line_tbl(I).ordered_quantity < 0
4607:
4608: THEN
4601: IF Nvl(p_x_line_tbl(I).return_reason_code,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4602: p_x_line_tbl(I).line_category_code = 'RETURN' OR
4603: Nvl(p_x_line_tbl(I).return_context,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4604: Nvl(p_x_line_tbl(I).return_attribute1,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4605: Nvl(p_x_line_tbl(I).return_attribute2, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4606: p_x_line_tbl(I).ordered_quantity < 0
4607:
4608: THEN
4609: IF l_debug_level > 0 THEN
4658: OE_MSG_PUB.Add;
4659: END IF;
4660:
4661: --Start of bug# 13574394
4662: IF Nvl(p_x_line_tbl(I).return_reason_code,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4663: p_x_line_tbl(I).line_category_code = 'RETURN' OR
4664: Nvl(p_x_line_tbl(I).return_context,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4665: Nvl(p_x_line_tbl(I).return_attribute1,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4666: Nvl(p_x_line_tbl(I).return_attribute2, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4660:
4661: --Start of bug# 13574394
4662: IF Nvl(p_x_line_tbl(I).return_reason_code,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4663: p_x_line_tbl(I).line_category_code = 'RETURN' OR
4664: Nvl(p_x_line_tbl(I).return_context,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4665: Nvl(p_x_line_tbl(I).return_attribute1,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4666: Nvl(p_x_line_tbl(I).return_attribute2, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4667: p_x_line_tbl(I).ordered_quantity < 0
4668: THEN
4661: --Start of bug# 13574394
4662: IF Nvl(p_x_line_tbl(I).return_reason_code,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4663: p_x_line_tbl(I).line_category_code = 'RETURN' OR
4664: Nvl(p_x_line_tbl(I).return_context,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4665: Nvl(p_x_line_tbl(I).return_attribute1,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4666: Nvl(p_x_line_tbl(I).return_attribute2, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4667: p_x_line_tbl(I).ordered_quantity < 0
4668: THEN
4669: IF l_debug_level > 0 THEN
4662: IF Nvl(p_x_line_tbl(I).return_reason_code,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4663: p_x_line_tbl(I).line_category_code = 'RETURN' OR
4664: Nvl(p_x_line_tbl(I).return_context,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4665: Nvl(p_x_line_tbl(I).return_attribute1,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4666: Nvl(p_x_line_tbl(I).return_attribute2, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
4667: p_x_line_tbl(I).ordered_quantity < 0
4668: THEN
4669: IF l_debug_level > 0 THEN
4670: oe_debug_pub.add( 'Its a Return Order Line' ) ;
4749: -- } End of Get inventory item id and customer item id for type 'CUST'
4750:
4751: -- { Get inventory item id for Generice Item
4752: IF (NVL(p_x_line_tbl(I).item_identifier_type,'INT') NOT IN ('INT','CUST') AND
4753: p_x_line_tbl(I).item_identifier_type <> FND_API.G_MISS_CHAR) AND
4754: (p_x_line_tbl(I).ordered_Item is NOT NULL AND
4755: p_x_line_tbl(I).ordered_Item <> FND_API.G_MISS_CHAR)
4756: THEN
4757: BEGIN
4751: -- { Get inventory item id for Generice Item
4752: IF (NVL(p_x_line_tbl(I).item_identifier_type,'INT') NOT IN ('INT','CUST') AND
4753: p_x_line_tbl(I).item_identifier_type <> FND_API.G_MISS_CHAR) AND
4754: (p_x_line_tbl(I).ordered_Item is NOT NULL AND
4755: p_x_line_tbl(I).ordered_Item <> FND_API.G_MISS_CHAR)
4756: THEN
4757: BEGIN
4758: IF l_debug_level > 0 THEN
4759: oe_debug_pub.add( 'IN OEXVIMSB. ITEM IDENTIFIER IS '||P_X_LINE_TBL ( I ) .ITEM_IDENTIFIER_TYPE ) ;
4807: FND_MESSAGE.SET_NAME('ONT','OE_NOT_UNIQUE_ITEM');
4808: FND_MESSAGE.SET_TOKEN('GENERIC_ITEM', p_x_line_tbl(I).ordered_item);
4809: OE_MSG_PUB.Add;
4810: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4811: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4812: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process_GEN_ITEM');
4813: END IF;
4814: IF l_debug_level > 0 THEN
4815: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS GEN - TO_MANY' ) ;
4818: IF l_debug_level > 0 THEN
4819: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
4820: END IF;
4821: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4822: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4823: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process_GEN_ITEM');
4824: END IF;
4825: IF l_debug_level > 0 THEN
4826: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS GEN - OTHERS' ) ;
4833: l_inventory_item_id_ord IS NULL AND
4834: l_inventory_item_id_cust IS NULL AND
4835: l_inventory_item_id_gen IS NULL )
4836: and p_x_line_tbl(I).operation in ('CREATE','INSERT') --added for bug 5509598
4837: and (nvl(p_x_line_tbl(I).split_from_line_ref,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR) THEN --added for bug 5531063
4838: p_return_status := FND_API.G_RET_STS_ERROR;
4839: END IF;
4840:
4841: IF (p_x_line_tbl(I).inventory_item_id IS NOT NULL
4834: l_inventory_item_id_cust IS NULL AND
4835: l_inventory_item_id_gen IS NULL )
4836: and p_x_line_tbl(I).operation in ('CREATE','INSERT') --added for bug 5509598
4837: and (nvl(p_x_line_tbl(I).split_from_line_ref,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR) THEN --added for bug 5531063
4838: p_return_status := FND_API.G_RET_STS_ERROR;
4839: END IF;
4840:
4841: IF (p_x_line_tbl(I).inventory_item_id IS NOT NULL
4842: AND p_x_line_tbl(I).inventory_Item_id <> FND_API.G_MISS_NUM)
4838: p_return_status := FND_API.G_RET_STS_ERROR;
4839: END IF;
4840:
4841: IF (p_x_line_tbl(I).inventory_item_id IS NOT NULL
4842: AND p_x_line_tbl(I).inventory_Item_id <> FND_API.G_MISS_NUM)
4843: AND (p_x_line_val_tbl(I).inventory_item IS NOT NULL
4844: AND p_x_line_val_tbl(I).inventory_Item <> FND_API.G_MISS_CHAR)
4845: THEN
4846: p_x_line_val_tbl(I).inventory_item := FND_API.G_MISS_CHAR;
4840:
4841: IF (p_x_line_tbl(I).inventory_item_id IS NOT NULL
4842: AND p_x_line_tbl(I).inventory_Item_id <> FND_API.G_MISS_NUM)
4843: AND (p_x_line_val_tbl(I).inventory_item IS NOT NULL
4844: AND p_x_line_val_tbl(I).inventory_Item <> FND_API.G_MISS_CHAR)
4845: THEN
4846: p_x_line_val_tbl(I).inventory_item := FND_API.G_MISS_CHAR;
4847: END IF;
4848:
4842: AND p_x_line_tbl(I).inventory_Item_id <> FND_API.G_MISS_NUM)
4843: AND (p_x_line_val_tbl(I).inventory_item IS NOT NULL
4844: AND p_x_line_val_tbl(I).inventory_Item <> FND_API.G_MISS_CHAR)
4845: THEN
4846: p_x_line_val_tbl(I).inventory_item := FND_API.G_MISS_CHAR;
4847: END IF;
4848:
4849:
4850: -- Aksingh 11/14/2000 End for Cross Reference
4857: oe_debug_pub.add( 'BEFORE VALIDATING CALCULATE PRICE FLAG' ) ;
4858: END IF;
4859:
4860: IF p_x_line_tbl(I).calculate_price_flag NOT IN ('N','Y','P') AND
4861: p_x_line_tbl(I).calculate_price_flag <> FND_API.G_MISS_CHAR --added for bug#13062903
4862: THEN
4863: IF l_debug_level > 0 THEN
4864: oe_debug_pub.add( 'INVALID CALCULATE_PRICE FLAG... ' ) ;
4865: END IF;
4864: oe_debug_pub.add( 'INVALID CALCULATE_PRICE FLAG... ' ) ;
4865: END IF;
4866: FND_MESSAGE.SET_NAME('ONT','OE_OI_CALCULATE_PRICE');
4867: OE_MSG_PUB.Add;
4868: p_return_status := FND_API.G_RET_STS_ERROR;
4869: END IF;
4870:
4871: /* -----------------------------------------------------------
4872: Check List_Price and Selling_price
4876: oe_debug_pub.add( 'BEFORE VALIDATING LIST AND SELLING PRICE' ) ;
4877: END IF;
4878:
4879: IF p_x_line_tbl(I).calculate_price_flag = 'N' AND
4880: (p_x_line_tbl(I).unit_list_price = FND_API.G_MISS_NUM OR
4881: p_x_line_tbl(I).unit_selling_price = FND_API.G_MISS_NUM) AND
4882: p_x_line_tbl(I).Item_Type_Code <> 'INCLUDED'
4883:
4884: THEN
4877: END IF;
4878:
4879: IF p_x_line_tbl(I).calculate_price_flag = 'N' AND
4880: (p_x_line_tbl(I).unit_list_price = FND_API.G_MISS_NUM OR
4881: p_x_line_tbl(I).unit_selling_price = FND_API.G_MISS_NUM) AND
4882: p_x_line_tbl(I).Item_Type_Code <> 'INCLUDED'
4883:
4884: THEN
4885: IF l_debug_level > 0 THEN
4886: oe_debug_pub.add( 'LIST PRICE OR SELLING PRICE IS NULL... ' ) ;
4887: END IF;
4888: FND_MESSAGE.SET_NAME('ONT','OE_OI_PRICE');
4889: OE_MSG_PUB.Add;
4890: p_return_status := FND_API.G_RET_STS_ERROR;
4891: END IF;
4892:
4893: /* -----------------------------------------------------------
4894: Check Pricing_Qunatity and Pricing_Quantity_Uom and update
4898: oe_debug_pub.add( 'BEFORE VALIDATING PRICING QUNATITY AND UOM' ) ;
4899: END IF;
4900:
4901: IF p_x_line_tbl(I).calculate_price_flag = 'N' AND
4902: (p_x_line_tbl(I).pricing_quantity = FND_API.G_MISS_NUM OR
4903: p_x_line_tbl(I).pricing_quantity = NULL)
4904: THEN
4905: IF l_debug_level > 0 THEN
4906: oe_debug_pub.add( 'PRICING QUANTITY IS NULL...RESETTING ' ) ;
4924: END IF;
4925: IF l_debug_level > 0 THEN
4926: oe_debug_pub.add( 'REF_LINE ' || P_X_LINE_TBL ( I ) .SERVICE_REFERENCE_LINE ) ;
4927: END IF;
4928: -- oe_debug_pub.add('ref_order ' || nvl(p_x_line_tbl(I).service_reference_order, FND_API.G_MISS_CHAR));
4929: -- oe_debug_pub.add('ref_line ' || nvl(p_x_line_tbl(I).service_reference_line, FND_API.G_MISS_CHAR));
4930:
4931: IF p_x_line_tbl(I).item_type_code = 'SERVICE' AND
4932: p_x_line_tbl(I).service_reference_type_code = 'ORDER' AND
4925: IF l_debug_level > 0 THEN
4926: oe_debug_pub.add( 'REF_LINE ' || P_X_LINE_TBL ( I ) .SERVICE_REFERENCE_LINE ) ;
4927: END IF;
4928: -- oe_debug_pub.add('ref_order ' || nvl(p_x_line_tbl(I).service_reference_order, FND_API.G_MISS_CHAR));
4929: -- oe_debug_pub.add('ref_line ' || nvl(p_x_line_tbl(I).service_reference_line, FND_API.G_MISS_CHAR));
4930:
4931: IF p_x_line_tbl(I).item_type_code = 'SERVICE' AND
4932: p_x_line_tbl(I).service_reference_type_code = 'ORDER' AND
4933: p_x_line_tbl(I).service_reference_order <> FND_API.G_MISS_CHAR AND
4929: -- oe_debug_pub.add('ref_line ' || nvl(p_x_line_tbl(I).service_reference_line, FND_API.G_MISS_CHAR));
4930:
4931: IF p_x_line_tbl(I).item_type_code = 'SERVICE' AND
4932: p_x_line_tbl(I).service_reference_type_code = 'ORDER' AND
4933: p_x_line_tbl(I).service_reference_order <> FND_API.G_MISS_CHAR AND
4934: p_x_line_tbl(I).service_reference_line <> FND_API.G_MISS_CHAR
4935: THEN
4936: -- Immediate Service
4937: IF p_x_line_tbl(I).service_reference_order =
4930:
4931: IF p_x_line_tbl(I).item_type_code = 'SERVICE' AND
4932: p_x_line_tbl(I).service_reference_type_code = 'ORDER' AND
4933: p_x_line_tbl(I).service_reference_order <> FND_API.G_MISS_CHAR AND
4934: p_x_line_tbl(I).service_reference_line <> FND_API.G_MISS_CHAR
4935: THEN
4936: -- Immediate Service
4937: IF p_x_line_tbl(I).service_reference_order =
4938: p_x_line_tbl(I).orig_sys_document_ref
4962: WHERE ol.header_id = l_header_id
4963: AND ol.orig_sys_line_ref =
4964: p_x_line_tbl(I).service_reference_line
4965: AND decode(l_customer_key_profile, 'Y',
4966: nvl(ol.sold_to_org_id, FND_API.G_MISS_NUM), 1)
4967: = decode(l_customer_key_profile, 'Y',
4968: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1);
4969: EXCEPTION
4970: WHEN NO_DATA_FOUND THEN
4964: p_x_line_tbl(I).service_reference_line
4965: AND decode(l_customer_key_profile, 'Y',
4966: nvl(ol.sold_to_org_id, FND_API.G_MISS_NUM), 1)
4967: = decode(l_customer_key_profile, 'Y',
4968: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1);
4969: EXCEPTION
4970: WHEN NO_DATA_FOUND THEN
4971: IF l_debug_level > 0 THEN
4972: oe_debug_pub.add( 'NOT FOUND LINEID FOR SEMI-DELAYED SERVICE' ) ;
4972: oe_debug_pub.add( 'NOT FOUND LINEID FOR SEMI-DELAYED SERVICE' ) ;
4973: END IF;
4974: FND_MESSAGE.SET_NAME('ONT','OE_NO_SERV_TRANS');
4975: OE_MSG_PUB.Add;
4976: p_return_status := FND_API.G_RET_STS_ERROR;
4977: WHEN OTHERS THEN
4978: IF l_debug_level > 0 THEN
4979: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
4980: END IF;
4978: IF l_debug_level > 0 THEN
4979: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
4980: END IF;
4981: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_Msg_Lvl_Unexp_Error) THEN
4982: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4983: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process.Line_id derivation for semi-delayed service');
4984: END IF;
4985: END;
4986: ELSE
4997: p_x_line_tbl(I).service_reference_order
4998: AND ol.orig_sys_line_ref =
4999: p_x_line_tbl(I).service_reference_line
5000: AND decode(l_customer_key_profile, 'Y',
5001: nvl(ol.sold_to_org_id, FND_API.G_MISS_NUM), 1)
5002: = decode(l_customer_key_profile, 'Y',
5003: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1);
5004:
5005: EXCEPTION
4999: p_x_line_tbl(I).service_reference_line
5000: AND decode(l_customer_key_profile, 'Y',
5001: nvl(ol.sold_to_org_id, FND_API.G_MISS_NUM), 1)
5002: = decode(l_customer_key_profile, 'Y',
5003: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1);
5004:
5005: EXCEPTION
5006: WHEN NO_DATA_FOUND THEN
5007: IF l_debug_level > 0 THEN
5008: oe_debug_pub.add( 'NOT FOUND ORDER LINE FOR DELAYED SERVICE' ) ;
5009: END IF;
5010: FND_MESSAGE.SET_NAME('ONT','OE_NO_SERV_TRANS');
5011: OE_MSG_PUB.Add;
5012: p_return_status := FND_API.G_RET_STS_ERROR;
5013: WHEN OTHERS THEN
5014: IF l_debug_level > 0 THEN
5015: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
5016: END IF;
5014: IF l_debug_level > 0 THEN
5015: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
5016: END IF;
5017: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_Msg_Lvl_Unexp_Error) THEN
5018: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5019: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process.Line_id derivation for delayed service');
5020: END IF;
5021: END;
5022: END IF;
5021: END;
5022: END IF;
5023: ELSIF p_x_line_tbl(I).item_type_code = 'SERVICE' AND
5024: p_x_line_tbl(I).service_reference_type_code = 'CUSTOMER_PRODUCT' AND
5025: p_x_line_tbl(I).service_reference_order = FND_API.G_MISS_CHAR AND
5026: -- second OR condition now removed as service_reference_system cannot be processed without
5027: -- service_reference_line
5028: p_x_line_tbl(I).service_reference_line <> FND_API.G_MISS_CHAR
5029: THEN
5024: p_x_line_tbl(I).service_reference_type_code = 'CUSTOMER_PRODUCT' AND
5025: p_x_line_tbl(I).service_reference_order = FND_API.G_MISS_CHAR AND
5026: -- second OR condition now removed as service_reference_system cannot be processed without
5027: -- service_reference_line
5028: p_x_line_tbl(I).service_reference_line <> FND_API.G_MISS_CHAR
5029: THEN
5030: IF l_debug_level > 0 THEN
5031: oe_debug_pub.add( 'REF_SYSTEM ' || P_X_LINE_TBL ( I ) .SERVICE_REFERENCE_SYSTEM ) ;
5032: END IF;
5033: -- Assign service reference system to line rec (if populated)
5034: BEGIN
5035: p_x_line_tbl(I).service_reference_line_id :=
5036: to_number(p_x_line_tbl(I).service_reference_line);
5037: If p_x_line_tbl(I).service_reference_system <> FND_API.G_MISS_CHAR then
5038: p_x_line_tbl(I).service_reference_system_id :=
5039: to_number(p_x_line_tbl(I).service_reference_system);
5040: End If;
5041: EXCEPTION
5043: IF l_debug_level > 0 THEN
5044: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
5045: END IF;
5046: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_Msg_Lvl_Unexp_Error) THEN
5047: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5048: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process.system_id derivation for delayed service');
5049: END IF;
5050: END;
5051: ELSIF p_x_line_tbl(I).item_type_code = 'SERVICE'
5054: oe_debug_pub.add( 'REQUIRED DATA IS MISSING FOR SERVICE LINE' ) ;
5055: END IF;
5056: FND_MESSAGE.SET_NAME('ONT','OE_NO_SERV_TRANS');
5057: OE_MSG_PUB.Add;
5058: p_return_status := FND_API.G_RET_STS_ERROR;
5059: END IF;
5060: <
5061: null;
5062: /* bsadri fill in the IDs for actions if this is an update */
5136: IF l_debug_level > 0 THEN
5137: oe_debug_pub.add( 'BEFORE VALIDATING ORIG_SYS_DISCOUNT_REF FOR LINE' ) ;
5138: END IF;
5139:
5140: IF p_x_line_adj_tbl(I).orig_sys_discount_ref = FND_API.G_MISS_CHAR
5141: THEN
5142: IF l_debug_level > 0 THEN
5143: oe_debug_pub.add( 'INVALID ORIG_SYS_DISCOUNT_REF FOR LINE... ' ) ;
5144: END IF;
5143: oe_debug_pub.add( 'INVALID ORIG_SYS_DISCOUNT_REF FOR LINE... ' ) ;
5144: END IF;
5145: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_DISCOUNT_REF');
5146: OE_MSG_PUB.Add;
5147: p_return_status := FND_API.G_RET_STS_ERROR;
5148: END IF;
5149:
5150: /* -----------------------------------------------------------
5151: Validate line adjustments operation code
5171: oe_debug_pub.add( 'INVALID LINE ADJUSTMENTS OPERATION CODE...' ) ;
5172: END IF;
5173: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5174: OE_MSG_PUB.Add;
5175: p_return_status := FND_API.G_RET_STS_ERROR;
5176: END IF;
5177:
5178: -- aksingh start on this (10/11/2000) this is in process of being coded
5179: IF p_x_line_adj_tbl(I).operation IN ('INSERT', 'CREATE')
5200: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO INSERT A NEW LNADJ WITH THE SAME HEADER_ID , LINE_ID AND ORIG_SYS_DISCOUNT_REF... ' ) ;
5201: END IF;
5202: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5203: OE_MSG_PUB.Add;
5204: p_return_status := FND_API.G_RET_STS_ERROR;
5205: Exception
5206: When no_data_found then
5207: IF l_debug_level > 0 THEN
5208: oe_debug_pub.add( 'VALID LINE LEVEL PRICE ADJ FOR INSERT' ) ;
5212: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW LINE PRICE ADJ... ' ) ;
5213: END IF;
5214: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5215: OE_MSG_PUB.Add;
5216: p_return_status := FND_API.G_RET_STS_ERROR;
5217: End;
5218: End IF; -- Insert, Create Operation
5219:
5220: IF p_x_line_adj_tbl(I).operation IN ('UPDATE','DELETE')
5255: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING LINE ADJ BUT THAT DOES NOT EXIST... ' ) ;
5256: END IF;
5257: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5258: OE_MSG_PUB.Add;
5259: p_return_status := FND_API.G_RET_STS_ERROR;
5260: When others then
5261: IF l_debug_level > 0 THEN
5262: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING LINEADJ ... ' ) ;
5263: END IF;
5262: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING LINEADJ ... ' ) ;
5263: END IF;
5264: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5265: OE_MSG_PUB.Add;
5266: p_return_status := FND_API.G_RET_STS_ERROR;
5267: End;
5268: End IF; -- Update and Delete operation
5269:
5270: -- aksingh(10/11/2000) this is in process of being coded upto this point
5275: -- process order to import order without passing the these ids.
5276: -- {
5277:
5278: If (p_x_line_adj_tbl(I).list_header_id is null
5279: or p_x_line_adj_tbl(I).list_header_id = FND_API.G_MISS_NUM)
5280: and (p_x_line_adj_tbl(I).list_line_id is null
5281: or p_x_line_adj_tbl(I).list_line_id = FND_API.G_MISS_NUM)
5282: then
5283: list_line_id( p_modifier_name => p_x_line_adj_val_tbl(I).list_name,
5277:
5278: If (p_x_line_adj_tbl(I).list_header_id is null
5279: or p_x_line_adj_tbl(I).list_header_id = FND_API.G_MISS_NUM)
5280: and (p_x_line_adj_tbl(I).list_line_id is null
5281: or p_x_line_adj_tbl(I).list_line_id = FND_API.G_MISS_NUM)
5282: then
5283: list_line_id( p_modifier_name => p_x_line_adj_val_tbl(I).list_name,
5284: p_list_line_no => p_x_line_adj_tbl(I).list_line_no,
5285: p_version_no => p_x_line_adj_val_tbl(I).version_no,
5299: END IF;
5300: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_LIST_NAME');
5301: FND_MESSAGE.SET_TOKEN('LIST_NAME',p_x_line_adj_val_tbl(I).list_name);
5302: OE_MSG_PUB.Add;
5303: p_return_status := FND_API.G_RET_STS_ERROR;
5304: END IF;
5305:
5306: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
5307: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
5302: OE_MSG_PUB.Add;
5303: p_return_status := FND_API.G_RET_STS_ERROR;
5304: END IF;
5305:
5306: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
5307: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
5308: FND_API.G_RET_STS_UNEXP_ERROR)
5309: THEN
5310: p_return_status := l_return_status;
5303: p_return_status := FND_API.G_RET_STS_ERROR;
5304: END IF;
5305:
5306: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
5307: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
5308: FND_API.G_RET_STS_UNEXP_ERROR)
5309: THEN
5310: p_return_status := l_return_status;
5311: END IF;
5304: END IF;
5305:
5306: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
5307: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
5308: FND_API.G_RET_STS_UNEXP_ERROR)
5309: THEN
5310: p_return_status := l_return_status;
5311: END IF;
5312:
5424: -----------------------------------------------------------
5425:
5426: oe_debug_pub.add('before validating orig_sys_atts_ref for line');
5427:
5428: IF p_x_line_price_att_tbl(I).orig_sys_atts_ref = FND_API.G_MISS_CHAR
5429: THEN
5430: oe_debug_pub.add('Invalid orig_sys_attribute_ref for line... ');
5431: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_ATT_REF');
5432: OE_MSG_PUB.Add;
5429: THEN
5430: oe_debug_pub.add('Invalid orig_sys_attribute_ref for line... ');
5431: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_ATT_REF');
5432: OE_MSG_PUB.Add;
5433: p_return_status := FND_API.G_RET_STS_ERROR;
5434: END IF;
5435:
5436: -----------------------------------------------------------
5437: Validate line atts operation code
5460: oe_debug_pub.add( 'INVALID LINE ADJUSTMENTS OPERATION CODE...' ) ;
5461: END IF;
5462: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5463: OE_MSG_PUB.Add;
5464: p_return_status := FND_API.G_RET_STS_ERROR;
5465: END IF;
5466:
5467: IF p_x_line_price_att_tbl(I).operation IN ('INSERT', 'CREATE')
5468: AND p_x_header_rec.operation = 'UPDATE'
5493: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO INSERT A NEW HDRATT WITH THE SAME HEADER_ID AND ATTRIBUTE ID....' ) ;
5494: END IF;
5495: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5496: OE_MSG_PUB.Add;
5497: p_return_status := FND_API.G_RET_STS_ERROR;
5498: Exception
5499: When no_data_found then
5500: IF l_debug_level > 0 THEN
5501: oe_debug_pub.add( 'VALID LINE LEVEL PRICE ATT FOR INSERT' ) ;
5505: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW HDR PRICE ATT... ' ) ;
5506: END IF;
5507: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5508: OE_MSG_PUB.Add;
5509: p_return_status := FND_API.G_RET_STS_ERROR;
5510: End;
5511: End If; -- Insert, Create operation
5512:
5513: IF p_x_line_price_att_tbl(I).operation IN ('UPDATE','DELETE')
5549: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING HDR ATT BUT THAT DOES NOT EXIST... ' ) ;
5550: END IF;
5551: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5552: OE_MSG_PUB.Add;
5553: p_return_status := FND_API.G_RET_STS_ERROR;
5554: When others then
5555: IF l_debug_level > 0 THEN
5556: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING HDRATT ... ' ) ;
5557: END IF;
5556: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING HDRATT ... ' ) ;
5557: END IF;
5558: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5559: OE_MSG_PUB.Add;
5560: p_return_status := FND_API.G_RET_STS_ERROR;
5561: End;
5562: End IF; -- Update and Delete operation
5563:
5564: END LOOP;
5628: IF l_debug_level > 0 THEN
5629: oe_debug_pub.add( 'BEFORE VALIDATING ORIG_SYS_CREDIT_REF FOR LINE' ) ;
5630: END IF;
5631:
5632: IF p_x_line_scredit_tbl(I).orig_sys_credit_ref = FND_API.G_MISS_CHAR
5633: THEN
5634: IF l_debug_level > 0 THEN
5635: oe_debug_pub.add( 'INVALID ORIG_SYS_CREDIT_REF FOR LINE... ' ) ;
5636: END IF;
5635: oe_debug_pub.add( 'INVALID ORIG_SYS_CREDIT_REF FOR LINE... ' ) ;
5636: END IF;
5637: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_CREDIT_REF');
5638: OE_MSG_PUB.Add;
5639: p_return_status := FND_API.G_RET_STS_ERROR;
5640: END IF;
5641:
5642: /* -----------------------------------------------------------
5643: Validate line sales credits operation code
5663: oe_debug_pub.add( 'INVALID LINE SALES CREDITS OPERATION CODE...' ) ;
5664: END IF;
5665: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5666: OE_MSG_PUB.Add;
5667: p_return_status := FND_API.G_RET_STS_ERROR;
5668: END IF;
5669:
5670: -- aksingh start on this (10/11/2000) this is in process of being coded
5671: IF p_x_line_scredit_tbl(I).operation IN ('INSERT', 'CREATE')
5692: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO INSERT A NEW LNSCREDIT WITH THE SAME HEADER_ID , LINE_ID AND ORIG_SYS_CREDIT_REF... ' ) ;
5693: END IF;
5694: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5695: OE_MSG_PUB.Add;
5696: p_return_status := FND_API.G_RET_STS_ERROR;
5697: Exception
5698: When no_data_found then
5699: IF l_debug_level > 0 THEN
5700: oe_debug_pub.add( 'VALID LINE LEVEL SALES CREDIT FOR INSERT' ) ;
5704: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW LINE SALES CREDIT... ' ) ;
5705: END IF;
5706: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5707: OE_MSG_PUB.Add;
5708: p_return_status := FND_API.G_RET_STS_ERROR;
5709: End;
5710: END IF; -- Insert, Update Operation
5711:
5712: IF p_x_line_scredit_tbl(I).operation IN ('UPDATE','DELETE')
5747: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING LINE CREDIT BUT THAT DOES NOT EXIST... ' ) ;
5748: END IF;
5749: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5750: OE_MSG_PUB.Add;
5751: p_return_status := FND_API.G_RET_STS_ERROR;
5752: When others then
5753: IF l_debug_level > 0 THEN
5754: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING LINECRDT ... ' ) ;
5755: END IF;
5754: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING LINECRDT ... ' ) ;
5755: END IF;
5756: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5757: OE_MSG_PUB.Add;
5758: p_return_status := FND_API.G_RET_STS_ERROR;
5759: End;
5760: End IF; -- Update and Delete operation
5761:
5762:
5801: IF l_debug_level > 0 THEN
5802: oe_debug_pub.add( 'BEFORE VALIDATING ORIG_SYS_PAYMENT_REF FOR LINE' ) ;
5803: END IF;
5804:
5805: IF p_x_line_payment_tbl(I).orig_sys_payment_ref = FND_API.G_MISS_CHAR
5806: THEN
5807: IF l_debug_level > 0 THEN
5808: oe_debug_pub.add( 'INVALID ORIG_SYS_PAYMENT_REF FOR LINE... ' ) ;
5809: END IF;
5809: END IF;
5810: /* multiple payments: new message */
5811: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_payment_REF');
5812: OE_MSG_PUB.Add;
5813: p_return_status := FND_API.G_RET_STS_ERROR;
5814: END IF;
5815:
5816: /* -----------------------------------------------------------
5817: Validate line PAYMENTs operation code
5837: oe_debug_pub.add( 'INVALID LINE PAYMENTS OPERATION CODE...' ) ;
5838: END IF;
5839: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5840: OE_MSG_PUB.Add;
5841: p_return_status := FND_API.G_RET_STS_ERROR;
5842: END IF;
5843:
5844: IF p_x_line_payment_tbl(I).operation IN ('INSERT', 'CREATE')
5845: AND p_x_header_rec.operation = 'UPDATE'
5865: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO INSERT A NEW LINE PAYMENT WITH THE SAME HEADER_ID , LINE_ID AND ORIG_SYS_PAYMENT_REF... ' ) ;
5866: END IF;
5867: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5868: OE_MSG_PUB.Add;
5869: p_return_status := FND_API.G_RET_STS_ERROR;
5870: Exception
5871: When no_data_found then
5872: IF l_debug_level > 0 THEN
5873: oe_debug_pub.add( 'VALID LINE LEVEL PAYMENT FOR INSERT' ) ;
5877: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW LINE PAYMENT... ' ) ;
5878: END IF;
5879: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5880: OE_MSG_PUB.Add;
5881: p_return_status := FND_API.G_RET_STS_ERROR;
5882: End;
5883: END IF; -- Insert, Update Operation
5884:
5885: IF p_x_line_payment_tbl(I).operation IN ('UPDATE','DELETE')
5908: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING LINE PAYMENT BUT THAT DOES NOT EXIST... ' ) ;
5909: END IF;
5910: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5911: OE_MSG_PUB.Add;
5912: p_return_status := FND_API.G_RET_STS_ERROR;
5913: When others then
5914: IF l_debug_level > 0 THEN
5915: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING PAYMENT ... ' ) ;
5916: END IF;
5915: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING PAYMENT ... ' ) ;
5916: END IF;
5917: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5918: OE_MSG_PUB.Add;
5919: p_return_status := FND_API.G_RET_STS_ERROR;
5920: End;
5921: End IF; -- Update and Delete operation
5922:
5923: END LOOP; -- multiple payments for line.
5959: IF l_debug_level > 0 THEN
5960: oe_debug_pub.add( 'BEFORE VALIDATING ORIG_SYS_LOTSERIAL_REF FOR LINE' ) ;
5961: END IF;
5962:
5963: IF p_x_lot_serial_tbl(I).orig_sys_lotserial_ref = FND_API.G_MISS_CHAR
5964: THEN
5965: IF l_debug_level > 0 THEN
5966: oe_debug_pub.add( 'INVALID ORIG_SYS_LOTSERIAL_REF... ' ) ;
5967: END IF;
5966: oe_debug_pub.add( 'INVALID ORIG_SYS_LOTSERIAL_REF... ' ) ;
5967: END IF;
5968: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_LOTSERIAL_REF');
5969: OE_MSG_PUB.Add;
5970: p_return_status := FND_API.G_RET_STS_ERROR;
5971: END IF;
5972:
5973: /* -----------------------------------------------------------
5974: Validate line lot serials operation code
5988: oe_debug_pub.add( 'INVALID LINE LOT SERIALS OPERATION CODE...' ) ;
5989: END IF;
5990: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5991: OE_MSG_PUB.Add;
5992: p_return_status := FND_API.G_RET_STS_ERROR;
5993: END IF;
5994:
5995: -- aksingh start on this (10/11/2000) this is in process of being coded
5996: IF p_x_lot_serial_tbl(I).operation IN ('INSERT', 'CREATE')
6013: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO INSERT A NEW LOT WITH THE SAME LINE_ID AND ORIG_SYS_DISCOUNT_REF... ' ) ;
6014: END IF;
6015: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
6016: OE_MSG_PUB.Add;
6017: p_return_status := FND_API.G_RET_STS_ERROR;
6018: Exception
6019: When no_data_found then
6020: IF l_debug_level > 0 THEN
6021: oe_debug_pub.add( 'VALID LINE LEVEL LOT FOR INSERT' ) ;
6025: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW LINE LOT... ' ) ;
6026: END IF;
6027: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
6028: OE_MSG_PUB.Add;
6029: p_return_status := FND_API.G_RET_STS_ERROR;
6030: End;
6031: END IF; -- Insert, Create Opearation
6032:
6033: IF p_x_lot_serial_tbl(I).operation IN ('UPDATE','DELETE')
6059: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING LOT BUT THAT DOES NOT EXIST... ' ) ;
6060: END IF;
6061: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
6062: OE_MSG_PUB.Add;
6063: p_return_status := FND_API.G_RET_STS_ERROR;
6064: When others then
6065: IF l_debug_level > 0 THEN
6066: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING LOT... ' ) ;
6067: END IF;
6066: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING LOT... ' ) ;
6067: END IF;
6068: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
6069: OE_MSG_PUB.Add;
6070: p_return_status := FND_API.G_RET_STS_ERROR;
6071: End;
6072: End IF; -- Update and Delete operation
6073:
6074: -- aksingh(10/11/2000) this is in process of being coded upto this point
6112: IF l_debug_level > 0 THEN
6113: oe_debug_pub.add( 'BEFORE VALIDATING ORIG_SYS_RESERVATION_REF FOR LINE' ) ;
6114: END IF;
6115:
6116: IF p_x_reservation_tbl(I).orig_sys_reservation_ref = FND_API.G_MISS_CHAR
6117: THEN
6118: IF l_debug_level > 0 THEN
6119: oe_debug_pub.add( 'INVALID ORIG_SYS_RESERVATION_REF... ' ) ;
6120: END IF;
6119: oe_debug_pub.add( 'INVALID ORIG_SYS_RESERVATION_REF... ' ) ;
6120: END IF;
6121: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_RESERVATION_REF');
6122: OE_MSG_PUB.Add;
6123: p_return_status := FND_API.G_RET_STS_ERROR;
6124: END IF;
6125:
6126: /* -----------------------------------------------------------
6127: Validate reservation details for line
6130: IF l_debug_level > 0 THEN
6131: oe_debug_pub.add( 'BEFORE VALIDATING RESERVATION DETAILS FOR LINE' ) ;
6132: END IF;
6133:
6134: IF p_x_reservation_tbl(I).revision = FND_API.G_MISS_CHAR
6135: AND p_x_reservation_tbl(I).lot_number_id = FND_API.G_MISS_NUM
6136: AND p_x_reservation_val_tbl(I).lot_number = FND_API.G_MISS_CHAR
6137: AND p_x_reservation_tbl(I).subinventory_id = FND_API.G_MISS_NUM
6138: AND p_x_reservation_val_tbl(I).subinventory_code = FND_API.G_MISS_CHAR
6131: oe_debug_pub.add( 'BEFORE VALIDATING RESERVATION DETAILS FOR LINE' ) ;
6132: END IF;
6133:
6134: IF p_x_reservation_tbl(I).revision = FND_API.G_MISS_CHAR
6135: AND p_x_reservation_tbl(I).lot_number_id = FND_API.G_MISS_NUM
6136: AND p_x_reservation_val_tbl(I).lot_number = FND_API.G_MISS_CHAR
6137: AND p_x_reservation_tbl(I).subinventory_id = FND_API.G_MISS_NUM
6138: AND p_x_reservation_val_tbl(I).subinventory_code = FND_API.G_MISS_CHAR
6139: AND p_x_reservation_tbl(I).locator_id = FND_API.G_MISS_NUM
6132: END IF;
6133:
6134: IF p_x_reservation_tbl(I).revision = FND_API.G_MISS_CHAR
6135: AND p_x_reservation_tbl(I).lot_number_id = FND_API.G_MISS_NUM
6136: AND p_x_reservation_val_tbl(I).lot_number = FND_API.G_MISS_CHAR
6137: AND p_x_reservation_tbl(I).subinventory_id = FND_API.G_MISS_NUM
6138: AND p_x_reservation_val_tbl(I).subinventory_code = FND_API.G_MISS_CHAR
6139: AND p_x_reservation_tbl(I).locator_id = FND_API.G_MISS_NUM
6140: THEN
6133:
6134: IF p_x_reservation_tbl(I).revision = FND_API.G_MISS_CHAR
6135: AND p_x_reservation_tbl(I).lot_number_id = FND_API.G_MISS_NUM
6136: AND p_x_reservation_val_tbl(I).lot_number = FND_API.G_MISS_CHAR
6137: AND p_x_reservation_tbl(I).subinventory_id = FND_API.G_MISS_NUM
6138: AND p_x_reservation_val_tbl(I).subinventory_code = FND_API.G_MISS_CHAR
6139: AND p_x_reservation_tbl(I).locator_id = FND_API.G_MISS_NUM
6140: THEN
6141: IF l_debug_level > 0 THEN
6134: IF p_x_reservation_tbl(I).revision = FND_API.G_MISS_CHAR
6135: AND p_x_reservation_tbl(I).lot_number_id = FND_API.G_MISS_NUM
6136: AND p_x_reservation_val_tbl(I).lot_number = FND_API.G_MISS_CHAR
6137: AND p_x_reservation_tbl(I).subinventory_id = FND_API.G_MISS_NUM
6138: AND p_x_reservation_val_tbl(I).subinventory_code = FND_API.G_MISS_CHAR
6139: AND p_x_reservation_tbl(I).locator_id = FND_API.G_MISS_NUM
6140: THEN
6141: IF l_debug_level > 0 THEN
6142: oe_debug_pub.add( 'INVALID RESERVATION DETAILS... ' ) ;
6135: AND p_x_reservation_tbl(I).lot_number_id = FND_API.G_MISS_NUM
6136: AND p_x_reservation_val_tbl(I).lot_number = FND_API.G_MISS_CHAR
6137: AND p_x_reservation_tbl(I).subinventory_id = FND_API.G_MISS_NUM
6138: AND p_x_reservation_val_tbl(I).subinventory_code = FND_API.G_MISS_CHAR
6139: AND p_x_reservation_tbl(I).locator_id = FND_API.G_MISS_NUM
6140: THEN
6141: IF l_debug_level > 0 THEN
6142: oe_debug_pub.add( 'INVALID RESERVATION DETAILS... ' ) ;
6143: END IF;
6142: oe_debug_pub.add( 'INVALID RESERVATION DETAILS... ' ) ;
6143: END IF;
6144: FND_MESSAGE.SET_NAME('ONT','OE_OI_RESERVATION_DETAILS');
6145: OE_MSG_PUB.Add;
6146: p_return_status := FND_API.G_RET_STS_ERROR;
6147: END IF;
6148:
6149: /* -----------------------------------------------------------
6150: Validate reservation quantity
6153: IF l_debug_level > 0 THEN
6154: oe_debug_pub.add( 'BEFORE VALIDATING RESERVATION QUANTITY FOR LINE' ) ;
6155: END IF;
6156:
6157: IF p_x_reservation_tbl(I).quantity = FND_API.G_MISS_NUM OR
6158: p_x_reservation_tbl(I).quantity = 0 OR
6159: p_x_reservation_tbl(I).quantity < 0
6160: THEN
6161: IF l_debug_level > 0 THEN
6162: oe_debug_pub.add( 'INVALID RESERVATION QUANTITY... ' ) ;
6163: END IF;
6164: FND_MESSAGE.SET_NAME('ONT','OE_OI_RESERVATION_QUANTITY');
6165: OE_MSG_PUB.Add;
6166: p_return_status := FND_API.G_RET_STS_ERROR;
6167: END IF;
6168:
6169: /* -----------------------------------------------------------
6170: Validate reservation operation
6181: oe_debug_pub.add( 'INVALID RESERVATION OPERATION... ' ) ;
6182: END IF;
6183: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
6184: OE_MSG_PUB.Add;
6185: p_return_status := FND_API.G_RET_STS_ERROR;
6186: END IF;
6187:
6188: -- Following Line are added to fixed the bug for the duplicate reservation
6189: -- when the auto scheduling is on + within time fence
6217: ,p_x_line_tbl => p_x_line_tbl
6218: ,p_return_status => l_return_status
6219: );
6220:
6221: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6222: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6223: FND_API.G_RET_STS_UNEXP_ERROR)
6224: THEN
6225: p_return_status := l_return_status;
6218: ,p_return_status => l_return_status
6219: );
6220:
6221: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6222: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6223: FND_API.G_RET_STS_UNEXP_ERROR)
6224: THEN
6225: p_return_status := l_return_status;
6226: END IF;
6219: );
6220:
6221: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6222: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6223: FND_API.G_RET_STS_UNEXP_ERROR)
6224: THEN
6225: p_return_status := l_return_status;
6226: END IF;
6227:
6255:
6256: ,p_return_status => l_return_status
6257: );
6258:
6259: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6260: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6261: FND_API.G_RET_STS_UNEXP_ERROR)
6262: THEN
6263: p_return_status := l_return_status;
6256: ,p_return_status => l_return_status
6257: );
6258:
6259: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6260: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6261: FND_API.G_RET_STS_UNEXP_ERROR)
6262: THEN
6263: p_return_status := l_return_status;
6264: END IF;
6257: );
6258:
6259: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6260: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6261: FND_API.G_RET_STS_UNEXP_ERROR)
6262: THEN
6263: p_return_status := l_return_status;
6264: END IF;
6265:
6270: IF l_debug_level > 0 THEN
6271: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
6272: END IF;
6273: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6274: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6275: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process');
6276: END IF;
6277:
6278: END PRE_PROCESS;
6352: IF l_debug_level > 0 THEN
6353: oe_debug_pub.add( 'ENTERING ORDER IMPORT POST_PROCESS' ) ;
6354: END IF;
6355:
6356: p_return_status := FND_API.G_RET_STS_SUCCESS; /* Init to Success */
6357:
6358:
6359: FOR I in 1..p_x_line_tbl.count
6360: LOOP
6396: /* Added the following code to fix the bug 2355630 */
6397: l_unit_selling_price := -1;
6398: oe_debug_pub.add( 'net_price = ' || p_x_line_tbl(I).customer_item_net_price);
6399: oe_debug_pub.add( 'line_id = ' || p_x_line_tbl(I).line_id);
6400: IF p_x_line_tbl(I).customer_item_net_price <> FND_API.G_MISS_NUM THEN
6401:
6402: begin
6403: select unit_selling_price into l_unit_selling_price
6404: from oe_order_lines
6418:
6419: END IF;
6420:
6421:
6422: IF p_x_line_tbl(I).customer_item_net_price <> FND_API.G_MISS_NUM AND
6423: p_x_line_tbl(I).customer_item_net_price <> l_unit_selling_price AND
6424: l_unit_selling_price <> -1
6425: THEN
6426: IF l_debug_level > 0 THEN
6429: FND_MESSAGE.SET_NAME('ONT','OE_OI_PRICE_WARNING');
6430: FND_MESSAGE.SET_TOKEN('CUST_PRICE',p_x_line_tbl(I).customer_item_net_price);
6431: FND_MESSAGE.SET_TOKEN('SPLR_PRICE',l_unit_selling_price);
6432: OE_MSG_PUB.Add;
6433: -- p_return_status := FND_API.G_RET_STS_ERROR;
6434: END IF;
6435:
6436: /* -----------------------------------------------------------
6437: Compare Payment Term
6445: end if ;
6446: oe_debug_pub.add('pti ' || p_x_line_tbl(I).payment_term_id);
6447: END IF;
6448:
6449: IF (p_x_line_tbl(I).customer_payment_term_id <> FND_API.G_MISS_NUM AND
6450: p_x_line_tbl(I).customer_payment_term_id <>
6451: p_x_line_tbl(I).payment_term_id) OR
6452: ( p_x_line_val_tbl_old.exists(I) -- added for 4307609
6453: AND p_x_line_val_tbl_old(I).customer_payment_term <> FND_API.G_MISS_CHAR
6449: IF (p_x_line_tbl(I).customer_payment_term_id <> FND_API.G_MISS_NUM AND
6450: p_x_line_tbl(I).customer_payment_term_id <>
6451: p_x_line_tbl(I).payment_term_id) OR
6452: ( p_x_line_val_tbl_old.exists(I) -- added for 4307609
6453: AND p_x_line_val_tbl_old(I).customer_payment_term <> FND_API.G_MISS_CHAR
6454: AND
6455: p_x_line_val_tbl_old(I).customer_payment_term <>
6456: oe_id_to_value.payment_term(p_x_line_tbl(I).payment_term_id))
6457: THEN
6459: oe_debug_pub.add( 'WARNING! CUSTOMER AND SUPPLIER PAYMENT TERMS DIFFERENT... ' ) ;
6460: END IF;
6461:
6462: FND_MESSAGE.SET_NAME('ONT','OE_OI_PAYMENT_TERM_WARNING');
6463: IF nvl(p_x_line_tbl(I).customer_payment_term_id, FND_API.G_MISS_NUM)
6464: <> FND_API.G_MISS_NUM Then
6465: FND_MESSAGE.SET_TOKEN('CUST_TERM',p_x_line_tbl(I).customer_payment_term_id);
6466: FND_MESSAGE.SET_TOKEN('SPLR_TERM',p_x_line_tbl(I).payment_term_id);
6467: ELSIF p_x_line_val_tbl_old.exists(I) -- added for 4307609
6460: END IF;
6461:
6462: FND_MESSAGE.SET_NAME('ONT','OE_OI_PAYMENT_TERM_WARNING');
6463: IF nvl(p_x_line_tbl(I).customer_payment_term_id, FND_API.G_MISS_NUM)
6464: <> FND_API.G_MISS_NUM Then
6465: FND_MESSAGE.SET_TOKEN('CUST_TERM',p_x_line_tbl(I).customer_payment_term_id);
6466: FND_MESSAGE.SET_TOKEN('SPLR_TERM',p_x_line_tbl(I).payment_term_id);
6467: ELSIF p_x_line_val_tbl_old.exists(I) -- added for 4307609
6468: AND nvl(p_x_line_val_tbl_old(I).customer_payment_term,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR Then
6464: <> FND_API.G_MISS_NUM Then
6465: FND_MESSAGE.SET_TOKEN('CUST_TERM',p_x_line_tbl(I).customer_payment_term_id);
6466: FND_MESSAGE.SET_TOKEN('SPLR_TERM',p_x_line_tbl(I).payment_term_id);
6467: ELSIF p_x_line_val_tbl_old.exists(I) -- added for 4307609
6468: AND nvl(p_x_line_val_tbl_old(I).customer_payment_term,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR Then
6469: FND_MESSAGE.SET_TOKEN('CUST_TERM',p_x_line_val_tbl_old(I).customer_payment_term);
6470: FND_MESSAGE.SET_TOKEN('SPLR_TERM',oe_id_to_value.payment_term(p_x_line_tbl(I).payment_term_id));
6471: END IF;
6472: OE_MSG_PUB.Add;
6469: FND_MESSAGE.SET_TOKEN('CUST_TERM',p_x_line_val_tbl_old(I).customer_payment_term);
6470: FND_MESSAGE.SET_TOKEN('SPLR_TERM',oe_id_to_value.payment_term(p_x_line_tbl(I).payment_term_id));
6471: END IF;
6472: OE_MSG_PUB.Add;
6473: -- p_return_status := FND_API.G_RET_STS_ERROR;
6474: END IF;
6475:
6476: END LOOP;
6477:
6493: ,p_reservation_val_tbl => p_x_reservation_val_tbl
6494: ,p_return_status => l_return_status
6495: );
6496:
6497: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6498: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6499: FND_API.G_RET_STS_UNEXP_ERROR)
6500: THEN
6501: p_return_status := l_return_status;
6494: ,p_return_status => l_return_status
6495: );
6496:
6497: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6498: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6499: FND_API.G_RET_STS_UNEXP_ERROR)
6500: THEN
6501: p_return_status := l_return_status;
6502: END IF;
6495: );
6496:
6497: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6498: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6499: FND_API.G_RET_STS_UNEXP_ERROR)
6500: THEN
6501: p_return_status := l_return_status;
6502: END IF;
6503:
6506: /* Added the code for the bug 2734389 */
6507: oe_debug_pub.add( 'BEFORE CALLING THE INV FOR DO_CHECK_FOR_COMMIT FROM ORDER IMPORT' , 1 ) ;
6508: INV_RESERVATION_PVT.Do_Check_For_Commit
6509: (p_api_version_number => 1.0
6510: ,p_init_msg_lst => FND_API.G_FALSE
6511: ,x_return_status => l_return_status
6512: ,x_msg_count => l_msg_count
6513: ,x_msg_data => l_msg_data
6514: ,x_failed_rsv_temp_tbl => l_failed_rsv_temp_tbl);
6518: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RSV_FAILURE');
6519: OE_MSG_PUB.Add;
6520: END IF;
6521: -- Error Handling Start
6522: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6523: oe_debug_pub.add( 'INSIDE UNEXPECTED ERROR' , 1 ) ;
6524: OE_MSG_PUB.Transfer_Msg_Stack;
6525: l_msg_count := OE_MSG_PUB.COUNT_MSG;
6526:
6527: FOR I IN 1..l_msg_count LOOP
6528: l_msg_data := OE_MSG_PUB.Get(I,'F');
6529: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
6530: END LOOP;
6531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6532: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6533: oe_debug_pub.add( ' INSIDE EXPECTED ERROR' , 1 ) ;
6534: OE_MSG_PUB.Transfer_Msg_Stack;
6535: l_msg_count := OE_MSG_PUB.COUNT_MSG;
6528: l_msg_data := OE_MSG_PUB.Get(I,'F');
6529: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
6530: END LOOP;
6531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6532: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6533: oe_debug_pub.add( ' INSIDE EXPECTED ERROR' , 1 ) ;
6534: OE_MSG_PUB.Transfer_Msg_Stack;
6535: l_msg_count := OE_MSG_PUB.COUNT_MSG;
6536:
6537: FOR I IN 1..l_msg_count LOOP
6538: l_msg_data := OE_MSG_PUB.Get(I,'F');
6539: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
6540: END LOOP;
6541: RAISE FND_API.G_EXC_ERROR;
6542:
6543: END IF;
6544: --Error Handling End
6545:
6579:
6580: ,p_return_status => l_return_status
6581: );
6582:
6583: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6584: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6585: FND_API.G_RET_STS_UNEXP_ERROR)
6586: THEN
6587: p_return_status := l_return_status;
6580: ,p_return_status => l_return_status
6581: );
6582:
6583: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6584: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6585: FND_API.G_RET_STS_UNEXP_ERROR)
6586: THEN
6587: p_return_status := l_return_status;
6588: END IF;
6581: );
6582:
6583: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6584: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6585: FND_API.G_RET_STS_UNEXP_ERROR)
6586: THEN
6587: p_return_status := l_return_status;
6588: END IF;
6589: END IF;
6594: IF l_debug_level > 0 THEN
6595: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
6596: END IF;
6597: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6598: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6599: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Post_Process');
6600: END IF;
6601:
6602: END POST_PROCESS;