[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
2365: ,p_x_reservation_val_tbl => p_x_reservation_val_tbl
2366: ,p_x_return_status => l_d_return_status
2367: );
2368:
2369: IF l_d_return_status IN (FND_API.G_RET_STS_ERROR,
2370: FND_API.G_RET_STS_UNEXP_ERROR)
2371: THEN
2372: p_return_status := l_d_return_status;
2373: END IF;
2366: ,p_x_return_status => l_d_return_status
2367: );
2368:
2369: IF l_d_return_status IN (FND_API.G_RET_STS_ERROR,
2370: FND_API.G_RET_STS_UNEXP_ERROR)
2371: THEN
2372: p_return_status := l_d_return_status;
2373: END IF;
2374:
2377: -- sold_to_org is passed, that means we should call value_to_id
2378: -- api here and populate our Glabal variable which will be used
2379: -- later for creating the relationship.
2380: If p_x_header_rec.sold_to_org_id Is Null Then
2381: If p_x_header_val_rec.sold_to_org <> FND_API.G_MISS_CHAR Or
2382: p_x_header_val_rec.customer_number <> FND_API.G_MISS_CHAR Then
2383: p_x_header_rec.sold_to_org_id :=
2384: oe_value_to_id.sold_to_org(
2385: p_sold_to_org => p_x_header_val_rec.sold_to_org,
2378: -- api here and populate our Glabal variable which will be used
2379: -- later for creating the relationship.
2380: If p_x_header_rec.sold_to_org_id Is Null Then
2381: If p_x_header_val_rec.sold_to_org <> FND_API.G_MISS_CHAR Or
2382: p_x_header_val_rec.customer_number <> FND_API.G_MISS_CHAR Then
2383: p_x_header_rec.sold_to_org_id :=
2384: oe_value_to_id.sold_to_org(
2385: p_sold_to_org => p_x_header_val_rec.sold_to_org,
2386: p_customer_number => p_x_header_val_rec.customer_number);
2423: p_x_line_rec => l_line_rec,
2424: p_record_type => 'HEADER',
2425: x_return_status => l_return_status);
2426:
2427: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
2428: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
2429: FND_API.G_RET_STS_UNEXP_ERROR)
2430: THEN
2431: p_return_status := l_return_status;
2424: p_record_type => 'HEADER',
2425: x_return_status => l_return_status);
2426:
2427: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
2428: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
2429: FND_API.G_RET_STS_UNEXP_ERROR)
2430: THEN
2431: p_return_status := l_return_status;
2432: END IF;
2425: x_return_status => l_return_status);
2426:
2427: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
2428: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
2429: FND_API.G_RET_STS_UNEXP_ERROR)
2430: THEN
2431: p_return_status := l_return_status;
2432: END IF;
2433: Else
2436: END IF;
2437: fnd_message.set_name('ONT','ONT_OI_INL_SET_PARAMETER');
2438: fnd_message.set_token('TYPE', 'Customers, Addresses or Contacts');
2439: oe_msg_pub.add;
2440: p_return_status := FND_API.G_RET_STS_ERROR;
2441: End If;
2442: -- End of If for checking add customers parameter}
2443: End If;
2444: -- End of If for calling add customers}
2468: p_x_action_request_tbl(p_x_action_request_tbl.COUNT +1).request_type
2469: := l_c_operation_code;
2470: p_x_action_request_tbl(p_x_action_request_tbl.COUNT).entity_code
2471: := OE_Globals.G_ENTITY_HEADER;
2472: p_x_header_rec.booked_flag := FND_API.G_MISS_CHAR;
2473:
2474: END IF;
2475:
2476: /* -----------------------------------------------------------
2514: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
2515: END IF;
2516:
2517: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_Msg_Lvl_Unexp_Error) THEN
2518: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2519: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process.Req_Header_Id_derivation');
2520: END IF;
2521: END;
2522: END IF;
2547: FROM oe_order_headers
2548: WHERE order_source_id = p_x_header_rec.order_source_id
2549: AND orig_sys_document_ref = p_x_header_rec.orig_sys_document_ref
2550: AND decode(l_customer_key_profile, 'Y',
2551: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
2552: = decode(l_customer_key_profile, 'Y',
2553: nvl(p_x_header_rec.sold_to_org_id, FND_API.G_MISS_NUM), 1)
2554: AND source_document_id = p_x_header_rec.source_document_id
2555: AND rownum < 2;
2549: AND orig_sys_document_ref = p_x_header_rec.orig_sys_document_ref
2550: AND decode(l_customer_key_profile, 'Y',
2551: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
2552: = decode(l_customer_key_profile, 'Y',
2553: nvl(p_x_header_rec.sold_to_org_id, FND_API.G_MISS_NUM), 1)
2554: AND source_document_id = p_x_header_rec.source_document_id
2555: AND rownum < 2;
2556:
2557: IF l_debug_level > 0 THEN
2567: FROM oe_order_headers
2568: WHERE order_source_id = p_x_header_rec.order_source_id
2569: AND orig_sys_document_ref = p_x_header_rec.orig_sys_document_ref
2570: AND decode(l_customer_key_profile, 'Y',
2571: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
2572: = decode(l_customer_key_profile, 'Y',
2573: nvl(p_x_header_rec.sold_to_org_id, FND_API.G_MISS_NUM), 1)
2574: AND rownum < 2;
2575:
2569: AND orig_sys_document_ref = p_x_header_rec.orig_sys_document_ref
2570: AND decode(l_customer_key_profile, 'Y',
2571: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
2572: = decode(l_customer_key_profile, 'Y',
2573: nvl(p_x_header_rec.sold_to_org_id, FND_API.G_MISS_NUM), 1)
2574: AND rownum < 2;
2575:
2576: IF l_debug_level > 0 THEN
2577: oe_debug_pub.add( 'AFTER VALIDATING EXTERNAL ORDER FOR INSERT OPR' ) ;
2582: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO INSERT A NEW ORDER WITH THE SAME ORDER SOURCE ID AND ORIG_SYS_DOCUMENT_REF... ' ) ;
2583: END IF;
2584: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
2585: OE_MSG_PUB.Add;
2586: p_return_status := FND_API.G_RET_STS_ERROR;
2587: Exception
2588: When no_data_found then
2589: IF l_debug_level > 0 THEN
2590: oe_debug_pub.add( 'VALID ORDER FOR INSERT' ) ;
2594: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO INSERT NEW ORDER... ' ) ;
2595: END IF;
2596: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
2597: OE_MSG_PUB.Add;
2598: p_return_status := FND_API.G_RET_STS_ERROR;
2599: End;
2600: --}{
2601: ELSIF p_x_header_rec.operation IN ('UPDATE','DELETE')
2602: THEN
2611: WHERE order_source_id = p_x_header_rec.order_source_id
2612: AND orig_sys_document_ref = p_x_header_rec.orig_sys_document_ref
2613: AND (sold_to_org_id is NULL OR
2614: decode(l_customer_key_profile, 'Y',
2615: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
2616: = decode(l_customer_key_profile, 'Y',
2617: nvl(p_x_header_rec.sold_to_org_id, FND_API.G_MISS_NUM), 1));
2618:
2619: p_x_header_rec.header_id := l_header_id;
2613: AND (sold_to_org_id is NULL OR
2614: decode(l_customer_key_profile, 'Y',
2615: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
2616: = decode(l_customer_key_profile, 'Y',
2617: nvl(p_x_header_rec.sold_to_org_id, FND_API.G_MISS_NUM), 1));
2618:
2619: p_x_header_rec.header_id := l_header_id;
2620: p_x_header_rec.order_number := l_order_number;
2621:
2631: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING ORDER BUT THAT ORDER DOES NOT EXIST... ' ) ;
2632: END IF;
2633: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
2634: OE_MSG_PUB.Add;
2635: p_return_status := FND_API.G_RET_STS_ERROR;
2636: When others then
2637: IF l_debug_level > 0 THEN
2638: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING ORDER ... ' ) ;
2639: END IF;
2638: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING ORDER ... ' ) ;
2639: END IF;
2640: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
2641: OE_MSG_PUB.Add;
2642: p_return_status := FND_API.G_RET_STS_ERROR;
2643: End;
2644: --}{
2645: ELSE --IF p_x_header_rec.operation NOT IN ('INSERT','CREATE','UPDATE','DELETE')
2646: IF l_debug_level > 0 THEN
2647: oe_debug_pub.add( 'INVALID OPERATION CODE. NOT ONE OF INSERT , CREATE , UPDATE OR DELETE... ' ) ;
2648: END IF;
2649: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
2650: OE_MSG_PUB.Add;
2651: p_return_status := FND_API.G_RET_STS_ERROR;
2652:
2653: END IF; --}
2654:
2655: EXCEPTION
2658: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
2659: END IF;
2660:
2661: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2662: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2663: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process.header_operation_validation');
2664: END IF;
2665: END;
2666:
2728: IF l_debug_level > 0 THEN
2729: oe_debug_pub.add( 'BEFORE VALIDATING ORIG_SYS_DISCOUNT_REF' ) ;
2730: END IF;
2731:
2732: IF p_x_header_adj_tbl(I).orig_sys_discount_ref = FND_API.G_MISS_CHAR
2733: THEN
2734: IF l_debug_level > 0 THEN
2735: oe_debug_pub.add( 'INVALID ORIG_SYS_DISCOUNT_REF... ' ) ;
2736: END IF;
2735: oe_debug_pub.add( 'INVALID ORIG_SYS_DISCOUNT_REF... ' ) ;
2736: END IF;
2737: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_DISCOUNT_REF');
2738: OE_MSG_PUB.Add;
2739: p_return_status := FND_API.G_RET_STS_ERROR;
2740: END IF;
2741:
2742: /* -----------------------------------------------------------
2743: Validate header adjustments operation code
2760: oe_debug_pub.add( 'INVALID HEADER ADJUSTMENTS OPERATION CODE...' ) ;
2761: END IF;
2762: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
2763: OE_MSG_PUB.Add;
2764: p_return_status := FND_API.G_RET_STS_ERROR;
2765: END IF;
2766:
2767: -- aksingh(10/11/2000) this is in process of being coded
2768: IF p_x_header_adj_tbl(I).operation IN ('INSERT', 'CREATE')
2789: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO INSERT A NEW HDRADJ WITH THE SAME HEADER_ID AND ORIG_SYS_DISCOUNT_REF... ' ) ;
2790: END IF;
2791: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
2792: OE_MSG_PUB.Add;
2793: p_return_status := FND_API.G_RET_STS_ERROR;
2794: Exception
2795: When no_data_found then
2796: IF l_debug_level > 0 THEN
2797: oe_debug_pub.add( 'VALID HEADER LEVEL PRICE ADJ FOR INSERT' ) ;
2801: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW HDR PRICE ADJ... ' ) ;
2802: END IF;
2803: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
2804: OE_MSG_PUB.Add;
2805: p_return_status := FND_API.G_RET_STS_ERROR;
2806: End;
2807: End If; -- Insert, Create operation
2808:
2809: IF p_x_header_adj_tbl(I).operation IN ('UPDATE','DELETE')
2839: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING HDR ADJ BUT THAT DOES NOT EXIST... ' ) ;
2840: END IF;
2841: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
2842: OE_MSG_PUB.Add;
2843: p_return_status := FND_API.G_RET_STS_ERROR;
2844: When others then
2845: IF l_debug_level > 0 THEN
2846: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING HDRADJ ... ' ) ;
2847: END IF;
2846: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING HDRADJ ... ' ) ;
2847: END IF;
2848: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
2849: OE_MSG_PUB.Add;
2850: p_return_status := FND_API.G_RET_STS_ERROR;
2851: End;
2852: End IF; -- Update and Delete operation
2853:
2854: -- aksingh(10/11/2000) this is in process of being coded upto this point
2858: -- pass it to process_order as right now it is not possible to call
2859: -- process order to import order without passing the these ids.
2860: -- {
2861: If (p_x_header_adj_tbl(I).list_header_id is null
2862: or p_x_header_adj_tbl(I).list_header_id = FND_API.G_MISS_NUM)
2863: and (p_x_header_adj_tbl(I).list_line_id is null
2864: or p_x_header_adj_tbl(I).list_line_id = FND_API.G_MISS_NUM)
2865: then
2866: list_line_id( p_modifier_name => p_x_header_adj_val_tbl(I).list_name,
2860: -- {
2861: If (p_x_header_adj_tbl(I).list_header_id is null
2862: or p_x_header_adj_tbl(I).list_header_id = FND_API.G_MISS_NUM)
2863: and (p_x_header_adj_tbl(I).list_line_id is null
2864: or p_x_header_adj_tbl(I).list_line_id = FND_API.G_MISS_NUM)
2865: then
2866: list_line_id( p_modifier_name => p_x_header_adj_val_tbl(I).list_name,
2867: p_list_line_no => p_x_header_adj_tbl(I).list_line_no,
2868: p_version_no => p_x_header_adj_val_tbl(I).version_no,
2882: END IF;
2883: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_LIST_NAME');
2884: FND_MESSAGE.SET_TOKEN('LIST_NAME',p_x_header_adj_val_tbl(I).list_name);
2885: OE_MSG_PUB.Add;
2886: p_return_status := FND_API.G_RET_STS_ERROR;
2887: END IF;
2888:
2889: IF (p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
2890: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
2885: OE_MSG_PUB.Add;
2886: p_return_status := FND_API.G_RET_STS_ERROR;
2887: END IF;
2888:
2889: IF (p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
2890: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
2891: FND_API.G_RET_STS_UNEXP_ERROR))
2892: THEN
2893: p_return_status := l_return_status;
2886: p_return_status := FND_API.G_RET_STS_ERROR;
2887: END IF;
2888:
2889: IF (p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
2890: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
2891: FND_API.G_RET_STS_UNEXP_ERROR))
2892: THEN
2893: p_return_status := l_return_status;
2894: return;
2887: END IF;
2888:
2889: IF (p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
2890: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
2891: FND_API.G_RET_STS_UNEXP_ERROR))
2892: THEN
2893: p_return_status := l_return_status;
2894: return;
2895: END IF;
2992: IF l_debug_level > 0 THEN
2993: oe_debug_pub.add( 'BEFORE VALIDATING ORIG_SYS_ATTS_REF' ) ;
2994: END IF;
2995:
2996: IF p_x_header_price_att_tbl(I).orig_sys_atts_ref = FND_API.G_MISS_CHAR
2997: THEN
2998: IF l_debug_level > 0 THEN
2999: oe_debug_pub.add( 'INVALID ORIG_SYS_ATTRIBUTE_REF... ' ) ;
3000: END IF;
2999: oe_debug_pub.add( 'INVALID ORIG_SYS_ATTRIBUTE_REF... ' ) ;
3000: END IF;
3001: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_ATTS_REF');
3002: OE_MSG_PUB.Add;
3003: p_return_status := FND_API.G_RET_STS_ERROR;
3004: END IF;
3005:
3006: /* -----------------------------------------------------------
3007: Validate header atts operation code
3024: oe_debug_pub.add( 'INVALID HEADER ATTRIBUTE OPERATION CODE...' ) ;
3025: END IF;
3026: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3027: OE_MSG_PUB.Add;
3028: p_return_status := FND_API.G_RET_STS_ERROR;
3029: END IF;
3030:
3031: IF p_x_header_price_att_tbl(I).operation IN ('INSERT', 'CREATE')
3032: AND p_x_header_rec.operation = 'UPDATE'
3052: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO INSERT A NEW HDRATT WITH THE SAME HEADER_ID AND ATTRIBUTE ID....' ) ;
3053: END IF;
3054: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3055: OE_MSG_PUB.Add;
3056: p_return_status := FND_API.G_RET_STS_ERROR;
3057: Exception
3058: When no_data_found then
3059: IF l_debug_level > 0 THEN
3060: oe_debug_pub.add( 'VALID HEADER LEVEL PRICE ATT FOR INSERT' ) ;
3064: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW HDR PRICE ATT... ' ) ;
3065: END IF;
3066: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3067: OE_MSG_PUB.Add;
3068: p_return_status := FND_API.G_RET_STS_ERROR;
3069: End;
3070: End If; -- Insert, Create operation
3071:
3072: IF p_x_header_price_att_tbl(I).operation IN ('UPDATE','DELETE')
3100: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING HDR ATT BUT THAT DOES NOT EXIST... ' ) ;
3101: END IF;
3102: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3103: OE_MSG_PUB.Add;
3104: p_return_status := FND_API.G_RET_STS_ERROR;
3105: When others then
3106: IF l_debug_level > 0 THEN
3107: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING HDRATT ... ' ) ;
3108: END IF;
3107: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING HDRATT ... ' ) ;
3108: END IF;
3109: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3110: OE_MSG_PUB.Add;
3111: p_return_status := FND_API.G_RET_STS_ERROR;
3112: End;
3113: End IF; -- Update and Delete operation
3114:
3115: END LOOP;
3183: IF l_debug_level > 0 THEN
3184: oe_debug_pub.add( 'BEFORE VALIDATING ORIG_SYS_CREDIT_REF' ) ;
3185: END IF;
3186:
3187: IF p_x_header_scredit_tbl(I).orig_sys_credit_ref = FND_API.G_MISS_CHAR
3188: THEN
3189: IF l_debug_level > 0 THEN
3190: oe_debug_pub.add( 'INVALID ORIG_SYS_CREDIT_REF... ' ) ;
3191: END IF;
3190: oe_debug_pub.add( 'INVALID ORIG_SYS_CREDIT_REF... ' ) ;
3191: END IF;
3192: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_CREDIT_REF');
3193: OE_MSG_PUB.Add;
3194: p_return_status := FND_API.G_RET_STS_ERROR;
3195: END IF;
3196:
3197: /* -----------------------------------------------------------
3198: Validate header sales credits operation code
3216: oe_debug_pub.add( 'INVALID HEADER SALES CREDITS OPERATION CODE...' ) ;
3217: END IF;
3218: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3219: OE_MSG_PUB.Add;
3220: p_return_status := FND_API.G_RET_STS_ERROR;
3221: END IF;
3222:
3223: -- aksingh(10/11/2000) this is in process of being coded
3224: IF p_x_header_scredit_tbl(I).operation IN ('INSERT', 'CREATE')
3242: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO INSERT A NEW HDRCREDIT WITH THE SAME HEADER_ID AND ORIG_SYS_CREDIT_REF... ' ) ;
3243: END IF;
3244: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3245: OE_MSG_PUB.Add;
3246: p_return_status := FND_API.G_RET_STS_ERROR;
3247: Exception
3248: When no_data_found then
3249: IF l_debug_level > 0 THEN
3250: oe_debug_pub.add( 'VALID HEADER LEVEL SALES CREDIT FOR INSERT' ) ;
3254: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW HDR SALES CREDIT... ' ) ;
3255: END IF;
3256: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3257: OE_MSG_PUB.Add;
3258: p_return_status := FND_API.G_RET_STS_ERROR;
3259:
3260: End;
3261: END IF; -- Insert, Create Operation
3262:
3293: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING ORDER BUT THAT ORDER DOES NOT EXIST... ' ) ;
3294: END IF;
3295: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3296: OE_MSG_PUB.Add;
3297: p_return_status := FND_API.G_RET_STS_ERROR;
3298: When others then
3299: IF l_debug_level > 0 THEN
3300: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING HEADER LEVEL SCREDIT ... ' ) ;
3301: END IF;
3300: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING HEADER LEVEL SCREDIT ... ' ) ;
3301: END IF;
3302: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3303: OE_MSG_PUB.Add;
3304: p_return_status := FND_API.G_RET_STS_ERROR;
3305: End;
3306: End IF; -- Update and Delete operation
3307:
3308: END LOOP;
3346: IF l_debug_level > 0 THEN
3347: oe_debug_pub.add( 'BEFORE VALIDATING ORIG_SYS_PAYMENT_REF' ) ;
3348: END IF;
3349:
3350: IF p_x_header_payment_tbl(I).orig_sys_payment_ref = FND_API.G_MISS_CHAR
3351: THEN
3352: IF l_debug_level > 0 THEN
3353: oe_debug_pub.add( 'INVALID ORIG_SYS_PAYMENT_REF... ' ) ;
3354: END IF;
3354: END IF;
3355: /* multiple payment: new message */
3356: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_PAYMENT_REF');
3357: OE_MSG_PUB.Add;
3358: p_return_status := FND_API.G_RET_STS_ERROR;
3359: END IF;
3360:
3361: /* -----------------------------------------------------------
3362: Validate header payment operation code
3380: oe_debug_pub.add( 'INVALID HEADER PAYMENT OPERATION CODE...' ) ;
3381: END IF;
3382: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3383: OE_MSG_PUB.Add;
3384: p_return_status := FND_API.G_RET_STS_ERROR;
3385: END IF;
3386:
3387: IF p_x_header_payment_tbl(I).operation IN ('INSERT', 'CREATE')
3388: AND p_x_header_rec.operation = 'UPDATE'
3405: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO INSERT A NEW HDR PAYMENT WITH THE SAME HEADER_ID AND ORIG_SYS_PAYMENT_REF... ' ) ;
3406: END IF;
3407: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3408: OE_MSG_PUB.Add;
3409: p_return_status := FND_API.G_RET_STS_ERROR;
3410: Exception
3411: When no_data_found then
3412: IF l_debug_level > 0 THEN
3413: oe_debug_pub.add( 'VALID HEADER LEVEL PAYMENT FOR INSERT' ) ;
3417: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW HDR PAYMENT... ' ) ;
3418: END IF;
3419: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3420: OE_MSG_PUB.Add;
3421: p_return_status := FND_API.G_RET_STS_ERROR;
3422:
3423: End;
3424: END IF; -- Insert, Create Operation
3425:
3459: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING ORDER BUT THAT ORDER DOES NOT EXIST... ' ) ;
3460: END IF;
3461: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3462: OE_MSG_PUB.Add;
3463: p_return_status := FND_API.G_RET_STS_ERROR;
3464: When others then
3465: IF l_debug_level > 0 THEN
3466: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING HEADER LEVEL payment ... ' ) ;
3467: END IF;
3466: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING HEADER LEVEL payment ... ' ) ;
3467: END IF;
3468: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3469: OE_MSG_PUB.Add;
3470: p_return_status := FND_API.G_RET_STS_ERROR;
3471: End;
3472: End IF; -- Update and Delete operation
3473: END LOOP; -- header payment
3474: -- aksingh(10/11/2000) this is in process of being coded upto this point
3495: l_error_flag := NULL;
3496: l_error_message := NULL;
3497: l_cho_unit_selling_price := NULL;
3498:
3499: IF p_x_line_tbl(I).org_id <> FND_API.G_MISS_NUM then
3500: l_org_id := p_x_line_tbl(I).org_id;
3501: ELSIF p_x_header_rec.ORG_ID <> FND_API.G_MISS_NUM then
3502: l_org_id := p_x_header_rec.org_id;
3503: ELSE
3497: l_cho_unit_selling_price := NULL;
3498:
3499: IF p_x_line_tbl(I).org_id <> FND_API.G_MISS_NUM then
3500: l_org_id := p_x_line_tbl(I).org_id;
3501: ELSIF p_x_header_rec.ORG_ID <> FND_API.G_MISS_NUM then
3502: l_org_id := p_x_header_rec.org_id;
3503: ELSE
3504: l_org_id := mo_global.get_current_org_id;
3505: END IF;
3538: END IF;
3539:
3540: IF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110508' AND
3541: G_IMPORT_SHIPMENTS = 'YES' THEN
3542: IF p_x_line_tbl(I).orig_sys_line_ref = FND_API.G_MISS_CHAR AND
3543: p_x_line_tbl(I).orig_sys_shipment_ref = FND_API.G_MISS_CHAR
3544: THEN
3545: IF l_debug_level > 0 THEN
3546: oe_debug_pub.add( 'INVALID ORIG_SYS_LINE_REF... ' ) ;
3539:
3540: IF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110508' AND
3541: G_IMPORT_SHIPMENTS = 'YES' THEN
3542: IF p_x_line_tbl(I).orig_sys_line_ref = FND_API.G_MISS_CHAR AND
3543: p_x_line_tbl(I).orig_sys_shipment_ref = FND_API.G_MISS_CHAR
3544: THEN
3545: IF l_debug_level > 0 THEN
3546: oe_debug_pub.add( 'INVALID ORIG_SYS_LINE_REF... ' ) ;
3547: END IF;
3546: oe_debug_pub.add( 'INVALID ORIG_SYS_LINE_REF... ' ) ;
3547: END IF;
3548: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_LINE_REF');
3549: OE_MSG_PUB.Add;
3550: p_return_status := FND_API.G_RET_STS_ERROR;
3551: END IF;
3552: ELSIF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110508' AND
3553: G_IMPORT_SHIPMENTS = 'NO' THEN
3554: IF p_x_line_tbl(I).orig_sys_line_ref = FND_API.G_MISS_CHAR THEN
3550: p_return_status := FND_API.G_RET_STS_ERROR;
3551: END IF;
3552: ELSIF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110508' AND
3553: G_IMPORT_SHIPMENTS = 'NO' THEN
3554: IF p_x_line_tbl(I).orig_sys_line_ref = FND_API.G_MISS_CHAR THEN
3555: IF l_debug_level > 0 THEN
3556: oe_debug_pub.add( 'INVALID ORIG_SYS_LINE_REF... ' ) ;
3557: END IF;
3558: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_LINE_REF');
3556: oe_debug_pub.add( 'INVALID ORIG_SYS_LINE_REF... ' ) ;
3557: END IF;
3558: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_LINE_REF');
3559: OE_MSG_PUB.Add;
3560: p_return_status := FND_API.G_RET_STS_ERROR;
3561: END IF;
3562: ELSIF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL < '110508' THEN
3563: IF p_x_line_tbl(I).orig_sys_line_ref = FND_API.G_MISS_CHAR THEN
3564: IF l_debug_level > 0 THEN
3559: OE_MSG_PUB.Add;
3560: p_return_status := FND_API.G_RET_STS_ERROR;
3561: END IF;
3562: ELSIF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL < '110508' THEN
3563: IF p_x_line_tbl(I).orig_sys_line_ref = FND_API.G_MISS_CHAR THEN
3564: IF l_debug_level > 0 THEN
3565: oe_debug_pub.add( 'INVALID ORIG_SYS_LINE_REF... ' ) ;
3566: END IF;
3567: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_LINE_REF');
3565: oe_debug_pub.add( 'INVALID ORIG_SYS_LINE_REF... ' ) ;
3566: END IF;
3567: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_LINE_REF');
3568: OE_MSG_PUB.Add;
3569: p_return_status := FND_API.G_RET_STS_ERROR;
3570: END IF;
3571: END IF;
3572:
3573: /* -----------------------------------------------------------
3615:
3616: oe_debug_pub.add('Primary and Secondary - tracking_quantity_ind <> PS', 2);
3617:
3618: IF ( p_x_line_tbl(I).ordered_quantity_uom2 IS NOT NULL
3619: AND p_x_line_tbl(I).ordered_quantity_uom2 <> FND_API.G_MISS_CHAR ) THEN
3620: --oe_debug_pub.add( 'OPM INVALID ordered_quantity_uom2 - should not be provided... ' ) ;
3621: FND_MESSAGE.SET_NAME('INV','INV_SECONDARY_UOM_NOT_REQUIRED'); -- INVCONV
3622: OE_MSG_PUB.Add;
3623: p_return_status := FND_API.G_RET_STS_ERROR;
3619: AND p_x_line_tbl(I).ordered_quantity_uom2 <> FND_API.G_MISS_CHAR ) THEN
3620: --oe_debug_pub.add( 'OPM INVALID ordered_quantity_uom2 - should not be provided... ' ) ;
3621: FND_MESSAGE.SET_NAME('INV','INV_SECONDARY_UOM_NOT_REQUIRED'); -- INVCONV
3622: OE_MSG_PUB.Add;
3623: p_return_status := FND_API.G_RET_STS_ERROR;
3624: IF l_debug_level > 0 THEN
3625: oe_debug_pub.add( 'INVALID ORDERED_QUANTITY_UOM2... should not be provided' ) ;
3626: END IF;
3627:
3628: END IF; -- IF ( p_x_line_tbl(I).ordered_quantity_uom2 <> NULL
3629:
3630: ELSIF l_tracking_quantity_ind = 'PS' then -- INVCONV
3631: IF ( ( p_x_line_tbl(I).ordered_quantity_uom2 IS NOT NULL
3632: AND p_x_line_tbl(I).ordered_quantity_uom2 <> FND_API.G_MISS_CHAR )
3633: AND p_x_line_tbl(I).ordered_quantity_uom2 <> l_secondary_uom_code ) THEN -- INVCONV
3634: FND_MESSAGE.SET_NAME('PO','PO_INCORRECT_SECONDARY_UOM'); -- INVCONV
3635: OE_MSG_PUB.Add;
3636: p_return_status := FND_API.G_RET_STS_ERROR;
3632: AND p_x_line_tbl(I).ordered_quantity_uom2 <> FND_API.G_MISS_CHAR )
3633: AND p_x_line_tbl(I).ordered_quantity_uom2 <> l_secondary_uom_code ) THEN -- INVCONV
3634: FND_MESSAGE.SET_NAME('PO','PO_INCORRECT_SECONDARY_UOM'); -- INVCONV
3635: OE_MSG_PUB.Add;
3636: p_return_status := FND_API.G_RET_STS_ERROR;
3637: IF l_debug_level > 0 THEN
3638: oe_debug_pub.add( 'INVALID ORDERED_QUANTITY_UOM2... does not match mtl_system_items' ) ;
3639: END IF;
3640:
3659: oe_debug_pub.add( 'INVALID QUANTITY ON 3A9' ) ;
3660: END IF;
3661: FND_MESSAGE.SET_NAME('ONT','OE_OI_INVALID_QTY_3A9');
3662: OE_MSG_PUB.Add;
3663: p_return_status := FND_API.G_RET_STS_ERROR;
3664: Else
3665:
3666: Begin
3667: Select ordered_quantity
3671: And order_source_id = p_x_line_tbl(I).order_source_id
3672: And orig_sys_line_ref = p_x_line_tbl(I).orig_sys_line_ref
3673: And orig_sys_shipment_ref = p_x_line_tbl(I).orig_sys_shipment_ref
3674: And decode(l_customer_key_profile, 'Y',
3675: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
3676: = decode(l_customer_key_profile, 'Y',
3677: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1);
3678:
3679: If l_existing_qty < p_x_line_tbl(I).ordered_quantity Then
3673: And orig_sys_shipment_ref = p_x_line_tbl(I).orig_sys_shipment_ref
3674: And decode(l_customer_key_profile, 'Y',
3675: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
3676: = decode(l_customer_key_profile, 'Y',
3677: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1);
3678:
3679: If l_existing_qty < p_x_line_tbl(I).ordered_quantity Then
3680: IF l_debug_level > 0 THEN
3681: oe_debug_pub.add( 'INVALID QUANTITY ON 3A9' ) ;
3681: oe_debug_pub.add( 'INVALID QUANTITY ON 3A9' ) ;
3682: END IF;
3683: FND_MESSAGE.SET_NAME('ONT','OE_OI_INVALID_QTY_3A9');
3684: OE_MSG_PUB.Add;
3685: p_return_status := FND_API.G_RET_STS_ERROR;
3686: End If;
3687: Exception
3688: When Others Then
3689: p_return_status := FND_API.G_RET_STS_ERROR;
3685: p_return_status := FND_API.G_RET_STS_ERROR;
3686: End If;
3687: Exception
3688: When Others Then
3689: p_return_status := FND_API.G_RET_STS_ERROR;
3690: End;
3691: End If;
3692: End If;
3693:
3710: 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...' ) ;
3711: END IF;
3712: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3713: OE_MSG_PUB.Add;
3714: p_return_status := FND_API.G_RET_STS_ERROR;
3715: END IF;
3716:
3717: /* -----------------------------------------------------------
3718: Derive Requisition Line Id for Internal Orders
3786: -- schedule ship date.
3787: -- Bug 1606316, fix (see later what fix), this is redundant
3788: -- as explained above
3789:
3790: IF p_x_line_tbl(I).request_date <> FND_API.G_MISS_DATE
3791: THEN
3792: IF l_debug_level > 0 THEN
3793: oe_debug_pub.add( 'BEFORE CALL TO DATE OFFSET API' ) ;
3794: END IF;
3810: -- schedule_ship_date is not passed by PO means it is
3811: -- MISS_DATE, do not assign the new found value of
3812: -- l_new_schedule_ship_date in above call. Which will
3813: -- be removed once family pack H/I become mandatory
3814: If p_x_line_tbl(I).schedule_ship_date <> FND_API.G_MISS_DATE Then
3815: p_x_line_tbl(I).schedule_ship_date :=
3816: nvl(l_new_schedule_ship_date, p_x_line_tbl(I).schedule_ship_date);
3817: IF l_debug_level > 0 THEN
3818: oe_debug_pub.add( 'NEW SCHEDULE_SHIP_DATE ' || P_X_LINE_TBL ( I ) .SCHEDULE_SHIP_DATE ) ;
3826: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
3827: END IF;
3828:
3829: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3830: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3831: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process.Req_Line_Id_derivation');
3832: END IF;
3833: END;
3834: END IF;
3856: p_x_line_rec => l_line_rec,
3857: p_record_type => 'LINE',
3858: x_return_status => l_return_status);
3859:
3860: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
3861: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
3862: FND_API.G_RET_STS_UNEXP_ERROR)
3863: THEN
3864: p_return_status := l_return_status;
3857: p_record_type => 'LINE',
3858: x_return_status => l_return_status);
3859:
3860: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
3861: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
3862: FND_API.G_RET_STS_UNEXP_ERROR)
3863: THEN
3864: p_return_status := l_return_status;
3865: END IF;
3858: x_return_status => l_return_status);
3859:
3860: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
3861: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
3862: FND_API.G_RET_STS_UNEXP_ERROR)
3863: THEN
3864: p_return_status := l_return_status;
3865: END IF;
3866: p_x_line_tbl(I) := l_line_rec;
3870: END IF;
3871: fnd_message.set_name('ONT','ONT_OI_INL_SET_PARAMETER');
3872: fnd_message.set_token('TYPE', 'Customers, Addresses or Contacts');
3873: oe_msg_pub.add;
3874: p_return_status := FND_API.G_RET_STS_ERROR;
3875: End If;
3876: -- End of If for checking add customers parameter}
3877: End If;
3878: -- End of If for calling add customers}
3889: IF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110508' AND
3890: G_IMPORT_SHIPMENTS = 'YES' THEN
3891:
3892: IF (p_x_line_tbl(I).split_from_line_ref IS NOT NULL) AND
3893: (p_x_line_tbl(I).split_from_line_ref <> FND_API.G_MISS_CHAR) AND
3894: (p_x_line_tbl(I).split_from_shipment_ref IS NOT NULL) AND
3895: (p_x_line_tbl(I).split_from_shipment_ref <> FND_API.G_MISS_CHAR)
3896: THEN
3897: IF l_debug_level > 0 THEN
3891:
3892: IF (p_x_line_tbl(I).split_from_line_ref IS NOT NULL) AND
3893: (p_x_line_tbl(I).split_from_line_ref <> FND_API.G_MISS_CHAR) AND
3894: (p_x_line_tbl(I).split_from_shipment_ref IS NOT NULL) AND
3895: (p_x_line_tbl(I).split_from_shipment_ref <> FND_API.G_MISS_CHAR)
3896: THEN
3897: IF l_debug_level > 0 THEN
3898: oe_debug_pub.add( 'SPLIT LINE FOR LINE REFERENCE: '|| P_X_LINE_TBL ( I ) .SPLIT_FROM_LINE_REF ) ;
3899: END IF;
3927: p_x_line_tbl(I).split_from_line_ref);
3928: FND_MESSAGE.SET_TOKEN('REASON',
3929: 'Could not find the reference line');
3930: OE_MSG_PUB.Add;
3931: p_return_status := FND_API.G_RET_STS_ERROR;
3932: END IF;
3933: END IF;
3934: BEGIN
3935: IF l_debug_level > 0 THEN
3940: WHERE header_id = l_header_id
3941: AND orig_sys_line_ref = p_x_line_tbl(I).orig_sys_line_ref
3942: AND orig_sys_shipment_ref = p_x_line_tbl(I).orig_sys_shipment_ref
3943: AND decode(l_customer_key_profile, 'Y',
3944: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
3945: = decode(l_customer_key_profile, 'Y',
3946: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1);
3947:
3948: -- aksingh(10/11/2000) this is in process of being coded upto here
3942: AND orig_sys_shipment_ref = p_x_line_tbl(I).orig_sys_shipment_ref
3943: AND decode(l_customer_key_profile, 'Y',
3944: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
3945: = decode(l_customer_key_profile, 'Y',
3946: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1);
3947:
3948: -- aksingh(10/11/2000) this is in process of being coded upto here
3949: IF l_debug_level > 0 THEN
3950: 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... ' ) ;
3950: 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... ' ) ;
3951: END IF;
3952: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3953: OE_MSG_PUB.Add;
3954: p_return_status := FND_API.G_RET_STS_ERROR;
3955: Exception
3956: When no_data_found then
3957: IF l_debug_level > 0 THEN
3958: oe_debug_pub.add( 'VALID ORDER LINE FOR INSERT' ) ;
3962: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO INSERT A NEW LINE... ' ) ;
3963: END IF;
3964: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
3965: OE_MSG_PUB.Add;
3966: p_return_status := FND_API.G_RET_STS_ERROR;
3967: End;
3968: ELSIF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110508' AND
3969: G_IMPORT_SHIPMENTS = 'NO' THEN
3970: IF (p_x_line_tbl(I).split_from_line_ref IS NOT NULL) AND
3967: End;
3968: ELSIF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110508' AND
3969: G_IMPORT_SHIPMENTS = 'NO' THEN
3970: IF (p_x_line_tbl(I).split_from_line_ref IS NOT NULL) AND
3971: (p_x_line_tbl(I).split_from_line_ref <> FND_API.G_MISS_CHAR)
3972: THEN
3973: IF l_debug_level > 0 THEN
3974: oe_debug_pub.add( 'SPLIT LINE FOR LINE REFERENCE: '|| P_X_LINE_TBL ( I ) .SPLIT_FROM_LINE_REF ) ;
3975: END IF;
4001: p_x_line_tbl(I).split_from_line_ref);
4002: FND_MESSAGE.SET_TOKEN('REASON',
4003: 'Could not find the reference line');
4004: OE_MSG_PUB.Add;
4005: p_return_status := FND_API.G_RET_STS_ERROR;
4006: END IF;
4007: END IF;
4008: BEGIN
4009: IF l_debug_level > 0 THEN
4013: FROM oe_order_lines
4014: WHERE header_id = l_header_id
4015: AND orig_sys_line_ref = p_x_line_tbl(I).orig_sys_line_ref
4016: AND decode(l_customer_key_profile, 'Y',
4017: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
4018: = decode(l_customer_key_profile, 'Y',
4019: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1);
4020:
4021: -- aksingh(10/11/2000) this is in process of being coded upto here
4015: AND orig_sys_line_ref = p_x_line_tbl(I).orig_sys_line_ref
4016: AND decode(l_customer_key_profile, 'Y',
4017: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
4018: = decode(l_customer_key_profile, 'Y',
4019: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1);
4020:
4021: -- aksingh(10/11/2000) this is in process of being coded upto here
4022: IF l_debug_level > 0 THEN
4023: 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. .. ' ) ;
4023: 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. .. ' ) ;
4024: END IF;
4025: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
4026: OE_MSG_PUB.Add;
4027: p_return_status := FND_API.G_RET_STS_ERROR;
4028: Exception
4029: When no_data_found then
4030: IF l_debug_level > 0 THEN
4031: oe_debug_pub.add( 'VALID ORDER LINE FOR INSERT' ) ;
4035: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO INSERT A NEW LINE... ' ) ;
4036: END IF;
4037: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
4038: OE_MSG_PUB.Add;
4039: p_return_status := FND_API.G_RET_STS_ERROR;
4040: End;
4041: ELSIF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL < '110508' THEN
4042: IF (p_x_line_tbl(I).split_from_line_ref IS NOT NULL) AND
4043: (p_x_line_tbl(I).split_from_line_ref <> FND_API.G_MISS_CHAR)
4039: p_return_status := FND_API.G_RET_STS_ERROR;
4040: End;
4041: ELSIF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL < '110508' THEN
4042: IF (p_x_line_tbl(I).split_from_line_ref IS NOT NULL) AND
4043: (p_x_line_tbl(I).split_from_line_ref <> FND_API.G_MISS_CHAR)
4044: THEN
4045: IF l_debug_level > 0 THEN
4046: oe_debug_pub.add( 'SPLIT LINE FOR LINE REFERENCE: '|| P_X_LINE_TBL ( I ) .SPLIT_FROM_LINE_REF ) ;
4047: END IF;
4073: p_x_line_tbl(I).split_from_line_ref);
4074: FND_MESSAGE.SET_TOKEN('REASON',
4075: 'Could not find the reference line');
4076: OE_MSG_PUB.Add;
4077: p_return_status := FND_API.G_RET_STS_ERROR;
4078: END IF;
4079: END IF;
4080: BEGIN
4081: IF l_debug_level > 0 THEN
4091: 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. .. ' ) ;
4092: END IF;
4093: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
4094: OE_MSG_PUB.Add;
4095: p_return_status := FND_API.G_RET_STS_ERROR;
4096: Exception
4097: When no_data_found then
4098: IF l_debug_level > 0 THEN
4099: oe_debug_pub.add( 'VALID ORDER LINE FOR INSERT' ) ;
4103: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO INSERT A NEW LINE... ' ) ;
4104: END IF;
4105: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
4106: OE_MSG_PUB.Add;
4107: p_return_status := FND_API.G_RET_STS_ERROR;
4108: End;
4109:
4110: END IF;
4111:
4142: AND orig_sys_line_ref = p_x_line_tbl(I).orig_sys_line_ref
4143: AND orig_sys_shipment_ref = p_x_line_tbl(I).orig_sys_shipment_ref
4144: AND (sold_to_org_id is NULL OR
4145: decode(l_customer_key_profile, 'Y',
4146: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
4147: = decode(l_customer_key_profile, 'Y',
4148: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1));
4149:
4150: p_x_line_tbl(I).header_id := l_header_id;
4144: AND (sold_to_org_id is NULL OR
4145: decode(l_customer_key_profile, 'Y',
4146: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
4147: = decode(l_customer_key_profile, 'Y',
4148: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1));
4149:
4150: p_x_line_tbl(I).header_id := l_header_id;
4151: p_x_line_tbl(I).line_id := l_line_id;
4152: p_x_line_tbl(I).line_number := l_line_number;
4159: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING LINE BUT THAT LINE DOES NOT EXIST... ' ) ;
4160: END IF;
4161: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
4162: OE_MSG_PUB.Add;
4163: p_return_status := FND_API.G_RET_STS_ERROR;
4164: When others then
4165: IF l_debug_level > 0 THEN
4166: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING LINE ... ' ) ;
4167: END IF;
4166: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING LINE ... ' ) ;
4167: END IF;
4168: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
4169: OE_MSG_PUB.Add;
4170: p_return_status := FND_API.G_RET_STS_ERROR;
4171: End;
4172: ELSE
4173: Begin
4174: l_c_change_sequence := NULL;
4192: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING LINE BUT THAT LINE DOES NOT EXIST... ' ) ;
4193: END IF;
4194: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
4195: OE_MSG_PUB.Add;
4196: p_return_status := FND_API.G_RET_STS_ERROR;
4197: When others then
4198: IF l_debug_level > 0 THEN
4199: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING LINE ... ' ) ;
4200: END IF;
4199: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING LINE ... ' ) ;
4200: END IF;
4201: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
4202: OE_MSG_PUB.Add;
4203: p_return_status := FND_API.G_RET_STS_ERROR;
4204: End;
4205: END IF;
4206:
4207: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
4208: IF p_x_line_tbl(I).order_source_id = OE_Acknowledgment_Pub.G_XML_ORDER_SOURCE_ID AND
4209: p_x_line_tbl(I).xml_transaction_type_code = OE_Acknowledgment_Pub.G_TRANSACTION_CHO AND
4210: l_cso_response_profile = 'Y' AND
4211: p_x_line_tbl(I).cso_response_flag = 'Y' AND
4212: p_x_line_tbl(I).customer_item_net_price = FND_API.G_MISS_NUM THEN
4213:
4214: p_x_line_tbl(I).customer_item_net_price := l_cho_unit_selling_price;
4215: IF l_debug_level > 0 THEN
4216: oe_debug_pub.add('3A8 Response Customer_item_net_price ' || p_x_line_tbl(I).customer_item_net_price
4226: oe_debug_pub.add( 'INVALID OPERATION CODE. NOT ONE OF INSERT , CREATE , UPDATE OR DELETE... ' ) ;
4227: END IF;
4228: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
4229: OE_MSG_PUB.Add;
4230: p_return_status := FND_API.G_RET_STS_ERROR;
4231:
4232: END IF;
4233:
4234: EXCEPTION
4237: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
4238: END IF;
4239:
4240: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4241: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4242: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process.header_operation_validation');
4243: END IF;
4244: END;
4245:
4250: IF l_debug_level > 0 THEN
4251: oe_debug_pub.add( 'BEFORE VALIDATING ITEM TYPE CODE' ) ;
4252: END IF;
4253:
4254: IF p_x_line_tbl(I).item_type_code <> FND_API.G_MISS_CHAR AND
4255: p_x_line_tbl(I).item_type_code NOT IN
4256: ('STANDARD','MODEL','CLASS','KIT','SERVICE','OPTION','INCLUDED','CONFIG')
4257: THEN
4258: IF l_debug_level > 0 THEN
4259: oe_debug_pub.add( 'INVALID ITEM TYPE CODE... ' ) ;
4260: END IF;
4261: FND_MESSAGE.SET_NAME('ONT','OE_OI_ITEM_TYPE');
4262: OE_MSG_PUB.Add;
4263: p_return_status := FND_API.G_RET_STS_ERROR;
4264: END IF;
4265: -- { Start of derivation of the sold_to_org_id for Header/Line
4266: If p_x_header_rec.sold_to_org_id IS NOT NULL AND
4267: p_x_header_rec.sold_to_org_id <> FND_API.G_MISS_NUM
4263: p_return_status := FND_API.G_RET_STS_ERROR;
4264: END IF;
4265: -- { Start of derivation of the sold_to_org_id for Header/Line
4266: If p_x_header_rec.sold_to_org_id IS NOT NULL AND
4267: p_x_header_rec.sold_to_org_id <> FND_API.G_MISS_NUM
4268: Then
4269: If p_x_line_tbl(I).sold_to_org_id = FND_API.G_MISS_NUM OR
4270: p_x_line_tbl(I).sold_to_org_id IS NULL
4271: Then
4265: -- { Start of derivation of the sold_to_org_id for Header/Line
4266: If p_x_header_rec.sold_to_org_id IS NOT NULL AND
4267: p_x_header_rec.sold_to_org_id <> FND_API.G_MISS_NUM
4268: Then
4269: If p_x_line_tbl(I).sold_to_org_id = FND_API.G_MISS_NUM OR
4270: p_x_line_tbl(I).sold_to_org_id IS NULL
4271: Then
4272: p_x_line_tbl(I).sold_to_org_id := p_x_header_rec.sold_to_org_id;
4273: End If;
4273: End If;
4274: Else
4275: -- { Start Begin
4276: Begin
4277: IF (p_x_line_tbl(I).sold_to_org_id = FND_API.G_MISS_NUM OR
4278: p_x_line_tbl(I).sold_to_org_id IS NULL) AND
4279: ((p_x_line_val_tbl(I).sold_to_org <> FND_API.G_MISS_CHAR AND
4280: p_x_line_val_tbl(I).sold_to_org IS NOT NULL) OR
4281: (p_x_header_val_rec.customer_number <> FND_API.G_MISS_CHAR AND
4275: -- { Start Begin
4276: Begin
4277: IF (p_x_line_tbl(I).sold_to_org_id = FND_API.G_MISS_NUM OR
4278: p_x_line_tbl(I).sold_to_org_id IS NULL) AND
4279: ((p_x_line_val_tbl(I).sold_to_org <> FND_API.G_MISS_CHAR AND
4280: p_x_line_val_tbl(I).sold_to_org IS NOT NULL) OR
4281: (p_x_header_val_rec.customer_number <> FND_API.G_MISS_CHAR AND
4282: p_x_header_val_rec.customer_number IS NOT NULL) OR
4283: (p_x_header_val_rec.sold_to_org <> FND_API.G_MISS_CHAR AND
4277: IF (p_x_line_tbl(I).sold_to_org_id = FND_API.G_MISS_NUM OR
4278: p_x_line_tbl(I).sold_to_org_id IS NULL) AND
4279: ((p_x_line_val_tbl(I).sold_to_org <> FND_API.G_MISS_CHAR AND
4280: p_x_line_val_tbl(I).sold_to_org IS NOT NULL) OR
4281: (p_x_header_val_rec.customer_number <> FND_API.G_MISS_CHAR AND
4282: p_x_header_val_rec.customer_number IS NOT NULL) OR
4283: (p_x_header_val_rec.sold_to_org <> FND_API.G_MISS_CHAR AND
4284: p_x_header_val_rec.sold_to_org IS NOT NULL))
4285: THEN
4279: ((p_x_line_val_tbl(I).sold_to_org <> FND_API.G_MISS_CHAR AND
4280: p_x_line_val_tbl(I).sold_to_org IS NOT NULL) OR
4281: (p_x_header_val_rec.customer_number <> FND_API.G_MISS_CHAR AND
4282: p_x_header_val_rec.customer_number IS NOT NULL) OR
4283: (p_x_header_val_rec.sold_to_org <> FND_API.G_MISS_CHAR AND
4284: p_x_header_val_rec.sold_to_org IS NOT NULL))
4285: THEN
4286: IF l_debug_level > 0 THEN
4287: oe_debug_pub.add( 'BEFORE CALLING SOLD TO ORG ID' ) ;
4290: p_sold_to_org => nvl(p_x_header_val_rec.sold_to_org,
4291: p_x_line_val_tbl(I).sold_to_org),
4292: p_customer_number => p_x_header_val_rec.customer_number);
4293: If p_x_header_rec.sold_to_org_id is NULL OR
4294: p_x_header_rec.sold_to_org_id = FND_API.G_MISS_NUM Then
4295: p_x_header_rec.sold_to_org_id := p_x_line_tbl(I).sold_to_org_id;
4296: End If;
4297:
4298: IF l_debug_level > 0 THEN
4298: IF l_debug_level > 0 THEN
4299: oe_debug_pub.add( 'AFTER SOLDTOORGID '|| P_X_LINE_TBL ( I ) .SOLD_TO_ORG_ID ) ;
4300: END IF;
4301:
4302: IF (p_x_line_tbl(I).sold_to_org_id = FND_API.G_MISS_NUM OR
4303: p_x_line_tbl(I).sold_to_org_id IS NULL)
4304: THEN
4305: IF l_debug_level > 0 THEN
4306: oe_debug_pub.add( 'SOLD TO ORG ID IS MISSING , AFTER CALL TO VALUE TO ID' ) ;
4306: oe_debug_pub.add( 'SOLD TO ORG ID IS MISSING , AFTER CALL TO VALUE TO ID' ) ;
4307: END IF;
4308: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_CUSTOMER_ID');
4309: OE_MSG_PUB.Add;
4310: p_return_status := FND_API.G_RET_STS_ERROR;
4311: END IF;
4312: END IF;
4313: Exception
4314: When others then
4316: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN GETTING SOLD TO ORG ID IN OEXVIMSB... ' ) ;
4317: END IF;
4318: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_CUSTOMER_ID');
4319: OE_MSG_PUB.Add;
4320: p_return_status := FND_API.G_RET_STS_ERROR;
4321: End;
4322: -- End Begin}
4323: End If;
4324: -- End of derivation of the sold_to_org_id for Header/Line }
4329: l_inventory_item_id_ord := NULL;
4330: l_inventory_item_id_cust := NULL;
4331: l_inventory_item_id_gen := NULL;
4332: --bug#4174961
4333: IF (p_x_line_tbl(I).inventory_item_id <> FND_API.G_MISS_NUM AND
4334: p_x_line_tbl(I).inventory_item_id IS NOT NULL)
4335: THEN
4336: l_inventory_item_id_int := p_x_line_tbl(I).inventory_item_id;
4337: END IF;
4337: END IF;
4338:
4339: -- Aksingh Adding code for the Item Derivation and Cross Referencing
4340: -- { Adding 11/14/2000 Start
4341: IF (p_x_line_val_tbl(I).inventory_item <> FND_API.G_MISS_CHAR AND
4342: p_x_line_val_tbl(I).inventory_item IS NOT NULL) AND
4343: (p_x_line_tbl(I).inventory_item_id = FND_API.G_MISS_NUM OR
4344: p_x_line_tbl(I).inventory_item_id IS NULL)
4345: THEN
4339: -- Aksingh Adding code for the Item Derivation and Cross Referencing
4340: -- { Adding 11/14/2000 Start
4341: IF (p_x_line_val_tbl(I).inventory_item <> FND_API.G_MISS_CHAR AND
4342: p_x_line_val_tbl(I).inventory_item IS NOT NULL) AND
4343: (p_x_line_tbl(I).inventory_item_id = FND_API.G_MISS_NUM OR
4344: p_x_line_tbl(I).inventory_item_id IS NULL)
4345: THEN
4346: BEGIN
4347: IF l_debug_level > 0 THEN
4370: IF l_debug_level > 0 THEN
4371: oe_debug_pub.add( 'TOO MANY ROWS ERROR: '||SQLERRM ) ;
4372: END IF;
4373: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4374: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4375: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process_INT_ITEM');
4376: END IF;
4377: When others then
4378: IF l_debug_level > 0 THEN
4381: IF l_debug_level > 0 THEN
4382: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
4383: END IF;
4384: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4385: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4386: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process_INT_ITEM');
4387: END IF;
4388: END;
4389: END IF;
4390: -- Adding 11/14/2000 End }
4391:
4392: -- { Get inventory item id for the ordered_item or ordered_item_id
4393: IF (NVL(p_x_line_tbl(I).item_identifier_type,'INT') IN ('INT','CUST') OR
4394: p_x_line_tbl(I).item_identifier_type = FND_API.G_MISS_CHAR)
4395: THEN
4396: IF (p_x_line_tbl(I).ordered_item <> FND_API.G_MISS_CHAR AND
4397: p_x_line_tbl(I).ordered_item IS NOT NULL)
4398: THEN
4392: -- { Get inventory item id for the ordered_item or ordered_item_id
4393: IF (NVL(p_x_line_tbl(I).item_identifier_type,'INT') IN ('INT','CUST') OR
4394: p_x_line_tbl(I).item_identifier_type = FND_API.G_MISS_CHAR)
4395: THEN
4396: IF (p_x_line_tbl(I).ordered_item <> FND_API.G_MISS_CHAR AND
4397: p_x_line_tbl(I).ordered_item IS NOT NULL)
4398: THEN
4399: BEGIN
4400: IF l_debug_level > 0 THEN
4421: IF l_debug_level > 0 THEN
4422: oe_debug_pub.add( 'TOO MANY ROWS ERROR: '||SQLERRM ) ;
4423: END IF;
4424: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4425: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4426: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process_INT_ITEM');
4427: END IF;
4428: When others then
4429: IF l_debug_level > 0 THEN
4432: IF l_debug_level > 0 THEN
4433: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
4434: END IF;
4435: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4436: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4437: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process_INT_ITEM');
4438: END IF;
4439: END;
4440: ELSIF (p_x_line_tbl(I).ordered_item_id <> FND_API.G_MISS_NUM AND
4436: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4437: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process_INT_ITEM');
4438: END IF;
4439: END;
4440: ELSIF (p_x_line_tbl(I).ordered_item_id <> FND_API.G_MISS_NUM AND
4441: p_x_line_tbl(I).ordered_item_id IS NOT NULL)
4442: THEN
4443: BEGIN
4444: IF l_debug_level > 0 THEN
4462: IF l_debug_level > 0 THEN
4463: oe_debug_pub.add( 'TOO MANY ROWS ERROR: '||SQLERRM ) ;
4464: END IF;
4465: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4466: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4467: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process_INT_ITEM');
4468: END IF;
4469: When others then
4470: IF l_debug_level > 0 THEN
4473: IF l_debug_level > 0 THEN
4474: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
4475: END IF;
4476: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4477: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4478: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process_INT_ITEM');
4479: END IF;
4480: END;
4481: END IF;
4483: -- End of get inventory item id for ordered_item or ordered_item_id }
4484:
4485: -- { Get inventory item id and customer item id for type 'CUST'
4486: IF (NVL(p_x_line_tbl(I).item_identifier_type, 'CUST') = 'CUST' OR
4487: p_x_line_tbl(I).item_identifier_type = FND_API.G_MISS_CHAR) AND
4488: (p_x_line_tbl(I).ordered_Item is NOT NULL AND
4489: p_x_line_tbl(I).ordered_Item <> FND_API.G_MISS_CHAR OR
4490: p_x_line_tbl(I).ordered_Item_id is NOT NULL AND
4491: p_x_line_tbl(I).ordered_Item_id <> FND_API.G_MISS_NUM)
4485: -- { Get inventory item id and customer item id for type 'CUST'
4486: IF (NVL(p_x_line_tbl(I).item_identifier_type, 'CUST') = 'CUST' OR
4487: p_x_line_tbl(I).item_identifier_type = FND_API.G_MISS_CHAR) AND
4488: (p_x_line_tbl(I).ordered_Item is NOT NULL AND
4489: p_x_line_tbl(I).ordered_Item <> FND_API.G_MISS_CHAR OR
4490: p_x_line_tbl(I).ordered_Item_id is NOT NULL AND
4491: p_x_line_tbl(I).ordered_Item_id <> FND_API.G_MISS_NUM)
4492: THEN
4493: IF l_debug_level > 0 THEN
4487: p_x_line_tbl(I).item_identifier_type = FND_API.G_MISS_CHAR) AND
4488: (p_x_line_tbl(I).ordered_Item is NOT NULL AND
4489: p_x_line_tbl(I).ordered_Item <> FND_API.G_MISS_CHAR OR
4490: p_x_line_tbl(I).ordered_Item_id is NOT NULL AND
4491: p_x_line_tbl(I).ordered_Item_id <> FND_API.G_MISS_NUM)
4492: THEN
4493: IF l_debug_level > 0 THEN
4494: oe_debug_pub.add( 'IN OEXVIMSB. ITEM IDENTIFIER IS CUST' ) ;
4495: END IF;
4492: THEN
4493: IF l_debug_level > 0 THEN
4494: oe_debug_pub.add( 'IN OEXVIMSB. ITEM IDENTIFIER IS CUST' ) ;
4495: END IF;
4496: IF (p_x_line_tbl(I).sold_to_org_id = FND_API.G_MISS_NUM OR
4497: p_x_line_tbl(I).sold_to_org_id IS NULL) AND
4498: ((p_x_line_val_tbl(I).sold_to_org <> FND_API.G_MISS_CHAR AND
4499: p_x_line_val_tbl(I).sold_to_org IS NOT NULL) OR
4500: (p_x_header_val_rec.customer_number <> FND_API.G_MISS_CHAR AND
4494: oe_debug_pub.add( 'IN OEXVIMSB. ITEM IDENTIFIER IS CUST' ) ;
4495: END IF;
4496: IF (p_x_line_tbl(I).sold_to_org_id = FND_API.G_MISS_NUM OR
4497: p_x_line_tbl(I).sold_to_org_id IS NULL) AND
4498: ((p_x_line_val_tbl(I).sold_to_org <> FND_API.G_MISS_CHAR AND
4499: p_x_line_val_tbl(I).sold_to_org IS NOT NULL) OR
4500: (p_x_header_val_rec.customer_number <> FND_API.G_MISS_CHAR AND
4501: p_x_header_val_rec.customer_number IS NOT NULL) OR
4502: (p_x_header_val_rec.sold_to_org <> FND_API.G_MISS_CHAR AND
4496: IF (p_x_line_tbl(I).sold_to_org_id = FND_API.G_MISS_NUM OR
4497: p_x_line_tbl(I).sold_to_org_id IS NULL) AND
4498: ((p_x_line_val_tbl(I).sold_to_org <> FND_API.G_MISS_CHAR AND
4499: p_x_line_val_tbl(I).sold_to_org IS NOT NULL) OR
4500: (p_x_header_val_rec.customer_number <> FND_API.G_MISS_CHAR AND
4501: p_x_header_val_rec.customer_number IS NOT NULL) OR
4502: (p_x_header_val_rec.sold_to_org <> FND_API.G_MISS_CHAR AND
4503: p_x_header_val_rec.sold_to_org IS NOT NULL))
4504: THEN
4498: ((p_x_line_val_tbl(I).sold_to_org <> FND_API.G_MISS_CHAR AND
4499: p_x_line_val_tbl(I).sold_to_org IS NOT NULL) OR
4500: (p_x_header_val_rec.customer_number <> FND_API.G_MISS_CHAR AND
4501: p_x_header_val_rec.customer_number IS NOT NULL) OR
4502: (p_x_header_val_rec.sold_to_org <> FND_API.G_MISS_CHAR AND
4503: p_x_header_val_rec.sold_to_org IS NOT NULL))
4504: THEN
4505: IF l_debug_level > 0 THEN
4506: oe_debug_pub.add( 'BEFORE CALLING SOLD TO ORG ID' ) ;
4509: p_sold_to_org => nvl(p_x_header_val_rec.sold_to_org,
4510: p_x_line_val_tbl(I).sold_to_org),
4511: p_customer_number => p_x_header_val_rec.customer_number);
4512: If p_x_header_rec.sold_to_org_id is NULL OR
4513: p_x_header_rec.sold_to_org_id = FND_API.G_MISS_NUM Then
4514: p_x_header_rec.sold_to_org_id := p_x_line_tbl(I).sold_to_org_id;
4515: End If;
4516:
4517: IF l_debug_level > 0 THEN
4519: END IF;
4520: END IF;
4521: -- 6 Lines are deleted from here, check the previous version for details.
4522:
4523: IF p_x_line_tbl(I).ordered_item_id = FND_API.G_MISS_NUM THEN
4524: l_ordered_item_id := NULL;
4525: ELSE
4526: l_ordered_item_id := p_x_line_tbl(I).ordered_item_id;
4527: END IF;
4547: IF l_debug_level > 0 THEN
4548: oe_debug_pub.add( 'ORGANIZATION_ID = '||P_X_LINE_TBL ( I ) .SHIP_FROM_ORG_ID ) ;
4549: END IF;
4550: -- Fix for bug 1654669 start
4551: If p_x_line_tbl(I).ship_from_org_id = FND_API.G_MISS_NUM Then
4552: l_ship_from_org_id := NULL;
4553: Else
4554: l_ship_from_org_id := p_x_line_tbl(I).ship_from_org_id;
4555: End If;
4555: End If;
4556: -- Fix for bug 1654669 end
4557: -- Fix for 2626323
4558: IF ((p_x_header_rec.ship_to_org_id IS NOT NULL AND --Bug 5383045
4559: p_x_header_rec.ship_to_org_id <> FND_API.G_MISS_NUM) AND
4560: (p_x_line_tbl(I).ship_to_org_id IS NULL OR
4561: p_x_line_tbl(I).ship_to_org_id =FND_API.G_MISS_NUM))THEN
4562:
4563: p_x_line_tbl(I).ship_to_org_id :=p_x_header_rec.ship_to_org_id;
4557: -- Fix for 2626323
4558: IF ((p_x_header_rec.ship_to_org_id IS NOT NULL AND --Bug 5383045
4559: p_x_header_rec.ship_to_org_id <> FND_API.G_MISS_NUM) AND
4560: (p_x_line_tbl(I).ship_to_org_id IS NULL OR
4561: p_x_line_tbl(I).ship_to_org_id =FND_API.G_MISS_NUM))THEN
4562:
4563: p_x_line_tbl(I).ship_to_org_id :=p_x_header_rec.ship_to_org_id;
4564: END IF;
4565:
4563: p_x_line_tbl(I).ship_to_org_id :=p_x_header_rec.ship_to_org_id;
4564: END IF;
4565:
4566: IF (p_x_line_tbl(I).ship_to_org_id IS NOT NULL AND
4567: p_x_line_tbl(I).ship_to_org_id <> FND_API.G_MISS_NUM) THEN
4568: SELECT /* MOAC_SQL_CHANGE */ u.cust_acct_site_id,
4569: s.cust_account_id
4570: INTO l_address_id
4571: ,l_cust_id
4586: l_address_id := NULL;
4587: END IF;
4588: END IF;
4589:
4590: IF (p_x_line_tbl(I).inventory_item_id = FND_API.G_MISS_NUM OR
4591: p_x_line_tbl(I).inventory_item_id IS NULL) THEN
4592: l_inventory_id := NULL;
4593: ELSE
4594: l_inventory_id := p_x_line_tbl(I).inventory_item_id;
4683: -- } End of Get inventory item id and customer item id for type 'CUST'
4684:
4685: -- { Get inventory item id for Generice Item
4686: IF (NVL(p_x_line_tbl(I).item_identifier_type,'INT') NOT IN ('INT','CUST') AND
4687: p_x_line_tbl(I).item_identifier_type <> FND_API.G_MISS_CHAR) AND
4688: (p_x_line_tbl(I).ordered_Item is NOT NULL AND
4689: p_x_line_tbl(I).ordered_Item <> FND_API.G_MISS_CHAR)
4690: THEN
4691: BEGIN
4685: -- { Get inventory item id for Generice Item
4686: IF (NVL(p_x_line_tbl(I).item_identifier_type,'INT') NOT IN ('INT','CUST') AND
4687: p_x_line_tbl(I).item_identifier_type <> FND_API.G_MISS_CHAR) AND
4688: (p_x_line_tbl(I).ordered_Item is NOT NULL AND
4689: p_x_line_tbl(I).ordered_Item <> FND_API.G_MISS_CHAR)
4690: THEN
4691: BEGIN
4692: IF l_debug_level > 0 THEN
4693: oe_debug_pub.add( 'IN OEXVIMSB. ITEM IDENTIFIER IS '||P_X_LINE_TBL ( I ) .ITEM_IDENTIFIER_TYPE ) ;
4741: FND_MESSAGE.SET_NAME('ONT','OE_NOT_UNIQUE_ITEM');
4742: FND_MESSAGE.SET_TOKEN('GENERIC_ITEM', p_x_line_tbl(I).ordered_item);
4743: OE_MSG_PUB.Add;
4744: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4745: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4746: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process_GEN_ITEM');
4747: END IF;
4748: IF l_debug_level > 0 THEN
4749: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS GEN - TO_MANY' ) ;
4752: IF l_debug_level > 0 THEN
4753: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
4754: END IF;
4755: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4756: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4757: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process_GEN_ITEM');
4758: END IF;
4759: IF l_debug_level > 0 THEN
4760: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS GEN - OTHERS' ) ;
4767: l_inventory_item_id_ord IS NULL AND
4768: l_inventory_item_id_cust IS NULL AND
4769: l_inventory_item_id_gen IS NULL )
4770: and p_x_line_tbl(I).operation in ('CREATE','INSERT') --added for bug 5509598
4771: 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
4772: p_return_status := FND_API.G_RET_STS_ERROR;
4773: END IF;
4774:
4775: IF (p_x_line_tbl(I).inventory_item_id IS NOT NULL
4768: l_inventory_item_id_cust IS NULL AND
4769: l_inventory_item_id_gen IS NULL )
4770: and p_x_line_tbl(I).operation in ('CREATE','INSERT') --added for bug 5509598
4771: 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
4772: p_return_status := FND_API.G_RET_STS_ERROR;
4773: END IF;
4774:
4775: IF (p_x_line_tbl(I).inventory_item_id IS NOT NULL
4776: AND p_x_line_tbl(I).inventory_Item_id <> FND_API.G_MISS_NUM)
4772: p_return_status := FND_API.G_RET_STS_ERROR;
4773: END IF;
4774:
4775: IF (p_x_line_tbl(I).inventory_item_id IS NOT NULL
4776: AND p_x_line_tbl(I).inventory_Item_id <> FND_API.G_MISS_NUM)
4777: AND (p_x_line_val_tbl(I).inventory_item IS NOT NULL
4778: AND p_x_line_val_tbl(I).inventory_Item <> FND_API.G_MISS_CHAR)
4779: THEN
4780: p_x_line_val_tbl(I).inventory_item := FND_API.G_MISS_CHAR;
4774:
4775: IF (p_x_line_tbl(I).inventory_item_id IS NOT NULL
4776: AND p_x_line_tbl(I).inventory_Item_id <> FND_API.G_MISS_NUM)
4777: AND (p_x_line_val_tbl(I).inventory_item IS NOT NULL
4778: AND p_x_line_val_tbl(I).inventory_Item <> FND_API.G_MISS_CHAR)
4779: THEN
4780: p_x_line_val_tbl(I).inventory_item := FND_API.G_MISS_CHAR;
4781: END IF;
4782:
4776: AND p_x_line_tbl(I).inventory_Item_id <> FND_API.G_MISS_NUM)
4777: AND (p_x_line_val_tbl(I).inventory_item IS NOT NULL
4778: AND p_x_line_val_tbl(I).inventory_Item <> FND_API.G_MISS_CHAR)
4779: THEN
4780: p_x_line_val_tbl(I).inventory_item := FND_API.G_MISS_CHAR;
4781: END IF;
4782:
4783:
4784: -- Aksingh 11/14/2000 End for Cross Reference
4797: oe_debug_pub.add( 'INVALID CALCULATE_PRICE FLAG... ' ) ;
4798: END IF;
4799: FND_MESSAGE.SET_NAME('ONT','OE_OI_CALCULATE_PRICE');
4800: OE_MSG_PUB.Add;
4801: p_return_status := FND_API.G_RET_STS_ERROR;
4802: END IF;
4803:
4804: /* -----------------------------------------------------------
4805: Check List_Price and Selling_price
4809: oe_debug_pub.add( 'BEFORE VALIDATING LIST AND SELLING PRICE' ) ;
4810: END IF;
4811:
4812: IF p_x_line_tbl(I).calculate_price_flag = 'N' AND
4813: (p_x_line_tbl(I).unit_list_price = FND_API.G_MISS_NUM OR
4814: p_x_line_tbl(I).unit_selling_price = FND_API.G_MISS_NUM) AND
4815: p_x_line_tbl(I).Item_Type_Code <> 'INCLUDED'
4816:
4817: THEN
4810: END IF;
4811:
4812: IF p_x_line_tbl(I).calculate_price_flag = 'N' AND
4813: (p_x_line_tbl(I).unit_list_price = FND_API.G_MISS_NUM OR
4814: p_x_line_tbl(I).unit_selling_price = FND_API.G_MISS_NUM) AND
4815: p_x_line_tbl(I).Item_Type_Code <> 'INCLUDED'
4816:
4817: THEN
4818: IF l_debug_level > 0 THEN
4819: oe_debug_pub.add( 'LIST PRICE OR SELLING PRICE IS NULL... ' ) ;
4820: END IF;
4821: FND_MESSAGE.SET_NAME('ONT','OE_OI_PRICE');
4822: OE_MSG_PUB.Add;
4823: p_return_status := FND_API.G_RET_STS_ERROR;
4824: END IF;
4825:
4826: /* -----------------------------------------------------------
4827: Check Pricing_Qunatity and Pricing_Quantity_Uom and update
4831: oe_debug_pub.add( 'BEFORE VALIDATING PRICING QUNATITY AND UOM' ) ;
4832: END IF;
4833:
4834: IF p_x_line_tbl(I).calculate_price_flag = 'N' AND
4835: (p_x_line_tbl(I).pricing_quantity = FND_API.G_MISS_NUM OR
4836: p_x_line_tbl(I).pricing_quantity = NULL)
4837: THEN
4838: IF l_debug_level > 0 THEN
4839: oe_debug_pub.add( 'PRICING QUANTITY IS NULL...RESETTING ' ) ;
4857: END IF;
4858: IF l_debug_level > 0 THEN
4859: oe_debug_pub.add( 'REF_LINE ' || P_X_LINE_TBL ( I ) .SERVICE_REFERENCE_LINE ) ;
4860: END IF;
4861: -- oe_debug_pub.add('ref_order ' || nvl(p_x_line_tbl(I).service_reference_order, FND_API.G_MISS_CHAR));
4862: -- oe_debug_pub.add('ref_line ' || nvl(p_x_line_tbl(I).service_reference_line, FND_API.G_MISS_CHAR));
4863:
4864: IF p_x_line_tbl(I).item_type_code = 'SERVICE' AND
4865: p_x_line_tbl(I).service_reference_type_code = 'ORDER' AND
4858: IF l_debug_level > 0 THEN
4859: oe_debug_pub.add( 'REF_LINE ' || P_X_LINE_TBL ( I ) .SERVICE_REFERENCE_LINE ) ;
4860: END IF;
4861: -- oe_debug_pub.add('ref_order ' || nvl(p_x_line_tbl(I).service_reference_order, FND_API.G_MISS_CHAR));
4862: -- oe_debug_pub.add('ref_line ' || nvl(p_x_line_tbl(I).service_reference_line, FND_API.G_MISS_CHAR));
4863:
4864: IF p_x_line_tbl(I).item_type_code = 'SERVICE' AND
4865: p_x_line_tbl(I).service_reference_type_code = 'ORDER' AND
4866: p_x_line_tbl(I).service_reference_order <> FND_API.G_MISS_CHAR AND
4862: -- oe_debug_pub.add('ref_line ' || nvl(p_x_line_tbl(I).service_reference_line, FND_API.G_MISS_CHAR));
4863:
4864: IF p_x_line_tbl(I).item_type_code = 'SERVICE' AND
4865: p_x_line_tbl(I).service_reference_type_code = 'ORDER' AND
4866: p_x_line_tbl(I).service_reference_order <> FND_API.G_MISS_CHAR AND
4867: p_x_line_tbl(I).service_reference_line <> FND_API.G_MISS_CHAR
4868: THEN
4869: -- Immediate Service
4870: IF p_x_line_tbl(I).service_reference_order =
4863:
4864: IF p_x_line_tbl(I).item_type_code = 'SERVICE' AND
4865: p_x_line_tbl(I).service_reference_type_code = 'ORDER' AND
4866: p_x_line_tbl(I).service_reference_order <> FND_API.G_MISS_CHAR AND
4867: p_x_line_tbl(I).service_reference_line <> FND_API.G_MISS_CHAR
4868: THEN
4869: -- Immediate Service
4870: IF p_x_line_tbl(I).service_reference_order =
4871: p_x_line_tbl(I).orig_sys_document_ref
4895: WHERE ol.header_id = l_header_id
4896: AND ol.orig_sys_line_ref =
4897: p_x_line_tbl(I).service_reference_line
4898: AND decode(l_customer_key_profile, 'Y',
4899: nvl(ol.sold_to_org_id, FND_API.G_MISS_NUM), 1)
4900: = decode(l_customer_key_profile, 'Y',
4901: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1);
4902: EXCEPTION
4903: WHEN NO_DATA_FOUND THEN
4897: p_x_line_tbl(I).service_reference_line
4898: AND decode(l_customer_key_profile, 'Y',
4899: nvl(ol.sold_to_org_id, FND_API.G_MISS_NUM), 1)
4900: = decode(l_customer_key_profile, 'Y',
4901: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1);
4902: EXCEPTION
4903: WHEN NO_DATA_FOUND THEN
4904: IF l_debug_level > 0 THEN
4905: oe_debug_pub.add( 'NOT FOUND LINEID FOR SEMI-DELAYED SERVICE' ) ;
4905: oe_debug_pub.add( 'NOT FOUND LINEID FOR SEMI-DELAYED SERVICE' ) ;
4906: END IF;
4907: FND_MESSAGE.SET_NAME('ONT','OE_NO_SERV_TRANS');
4908: OE_MSG_PUB.Add;
4909: p_return_status := FND_API.G_RET_STS_ERROR;
4910: WHEN OTHERS THEN
4911: IF l_debug_level > 0 THEN
4912: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
4913: END IF;
4911: IF l_debug_level > 0 THEN
4912: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
4913: END IF;
4914: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_Msg_Lvl_Unexp_Error) THEN
4915: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4916: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process.Line_id derivation for semi-delayed service');
4917: END IF;
4918: END;
4919: ELSE
4930: p_x_line_tbl(I).service_reference_order
4931: AND ol.orig_sys_line_ref =
4932: p_x_line_tbl(I).service_reference_line
4933: AND decode(l_customer_key_profile, 'Y',
4934: nvl(ol.sold_to_org_id, FND_API.G_MISS_NUM), 1)
4935: = decode(l_customer_key_profile, 'Y',
4936: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1);
4937:
4938: EXCEPTION
4932: p_x_line_tbl(I).service_reference_line
4933: AND decode(l_customer_key_profile, 'Y',
4934: nvl(ol.sold_to_org_id, FND_API.G_MISS_NUM), 1)
4935: = decode(l_customer_key_profile, 'Y',
4936: nvl(p_x_line_tbl(I).sold_to_org_id, FND_API.G_MISS_NUM), 1);
4937:
4938: EXCEPTION
4939: WHEN NO_DATA_FOUND THEN
4940: IF l_debug_level > 0 THEN
4941: oe_debug_pub.add( 'NOT FOUND ORDER LINE FOR DELAYED SERVICE' ) ;
4942: END IF;
4943: FND_MESSAGE.SET_NAME('ONT','OE_NO_SERV_TRANS');
4944: OE_MSG_PUB.Add;
4945: p_return_status := FND_API.G_RET_STS_ERROR;
4946: WHEN OTHERS THEN
4947: IF l_debug_level > 0 THEN
4948: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
4949: END IF;
4947: IF l_debug_level > 0 THEN
4948: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
4949: END IF;
4950: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_Msg_Lvl_Unexp_Error) THEN
4951: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4952: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process.Line_id derivation for delayed service');
4953: END IF;
4954: END;
4955: END IF;
4954: END;
4955: END IF;
4956: ELSIF p_x_line_tbl(I).item_type_code = 'SERVICE' AND
4957: p_x_line_tbl(I).service_reference_type_code = 'CUSTOMER_PRODUCT' AND
4958: p_x_line_tbl(I).service_reference_order = FND_API.G_MISS_CHAR AND
4959: -- second OR condition now removed as service_reference_system cannot be processed without
4960: -- service_reference_line
4961: p_x_line_tbl(I).service_reference_line <> FND_API.G_MISS_CHAR
4962: THEN
4957: p_x_line_tbl(I).service_reference_type_code = 'CUSTOMER_PRODUCT' AND
4958: p_x_line_tbl(I).service_reference_order = FND_API.G_MISS_CHAR AND
4959: -- second OR condition now removed as service_reference_system cannot be processed without
4960: -- service_reference_line
4961: p_x_line_tbl(I).service_reference_line <> FND_API.G_MISS_CHAR
4962: THEN
4963: IF l_debug_level > 0 THEN
4964: oe_debug_pub.add( 'REF_SYSTEM ' || P_X_LINE_TBL ( I ) .SERVICE_REFERENCE_SYSTEM ) ;
4965: END IF;
4966: -- Assign service reference system to line rec (if populated)
4967: BEGIN
4968: p_x_line_tbl(I).service_reference_line_id :=
4969: to_number(p_x_line_tbl(I).service_reference_line);
4970: If p_x_line_tbl(I).service_reference_system <> FND_API.G_MISS_CHAR then
4971: p_x_line_tbl(I).service_reference_system_id :=
4972: to_number(p_x_line_tbl(I).service_reference_system);
4973: End If;
4974: EXCEPTION
4976: IF l_debug_level > 0 THEN
4977: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
4978: END IF;
4979: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_Msg_Lvl_Unexp_Error) THEN
4980: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4981: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process.system_id derivation for delayed service');
4982: END IF;
4983: END;
4984: ELSIF p_x_line_tbl(I).item_type_code = 'SERVICE'
4987: oe_debug_pub.add( 'REQUIRED DATA IS MISSING FOR SERVICE LINE' ) ;
4988: END IF;
4989: FND_MESSAGE.SET_NAME('ONT','OE_NO_SERV_TRANS');
4990: OE_MSG_PUB.Add;
4991: p_return_status := FND_API.G_RET_STS_ERROR;
4992: END IF;
4993: <
4994: null;
4995: /* bsadri fill in the IDs for actions if this is an update */
5069: IF l_debug_level > 0 THEN
5070: oe_debug_pub.add( 'BEFORE VALIDATING ORIG_SYS_DISCOUNT_REF FOR LINE' ) ;
5071: END IF;
5072:
5073: IF p_x_line_adj_tbl(I).orig_sys_discount_ref = FND_API.G_MISS_CHAR
5074: THEN
5075: IF l_debug_level > 0 THEN
5076: oe_debug_pub.add( 'INVALID ORIG_SYS_DISCOUNT_REF FOR LINE... ' ) ;
5077: END IF;
5076: oe_debug_pub.add( 'INVALID ORIG_SYS_DISCOUNT_REF FOR LINE... ' ) ;
5077: END IF;
5078: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_DISCOUNT_REF');
5079: OE_MSG_PUB.Add;
5080: p_return_status := FND_API.G_RET_STS_ERROR;
5081: END IF;
5082:
5083: /* -----------------------------------------------------------
5084: Validate line adjustments operation code
5104: oe_debug_pub.add( 'INVALID LINE ADJUSTMENTS OPERATION CODE...' ) ;
5105: END IF;
5106: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5107: OE_MSG_PUB.Add;
5108: p_return_status := FND_API.G_RET_STS_ERROR;
5109: END IF;
5110:
5111: -- aksingh start on this (10/11/2000) this is in process of being coded
5112: IF p_x_line_adj_tbl(I).operation IN ('INSERT', 'CREATE')
5133: 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... ' ) ;
5134: END IF;
5135: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5136: OE_MSG_PUB.Add;
5137: p_return_status := FND_API.G_RET_STS_ERROR;
5138: Exception
5139: When no_data_found then
5140: IF l_debug_level > 0 THEN
5141: oe_debug_pub.add( 'VALID LINE LEVEL PRICE ADJ FOR INSERT' ) ;
5145: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW LINE PRICE ADJ... ' ) ;
5146: END IF;
5147: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5148: OE_MSG_PUB.Add;
5149: p_return_status := FND_API.G_RET_STS_ERROR;
5150: End;
5151: End IF; -- Insert, Create Operation
5152:
5153: IF p_x_line_adj_tbl(I).operation IN ('UPDATE','DELETE')
5188: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING LINE ADJ BUT THAT DOES NOT EXIST... ' ) ;
5189: END IF;
5190: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5191: OE_MSG_PUB.Add;
5192: p_return_status := FND_API.G_RET_STS_ERROR;
5193: When others then
5194: IF l_debug_level > 0 THEN
5195: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING LINEADJ ... ' ) ;
5196: END IF;
5195: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING LINEADJ ... ' ) ;
5196: END IF;
5197: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5198: OE_MSG_PUB.Add;
5199: p_return_status := FND_API.G_RET_STS_ERROR;
5200: End;
5201: End IF; -- Update and Delete operation
5202:
5203: -- aksingh(10/11/2000) this is in process of being coded upto this point
5208: -- process order to import order without passing the these ids.
5209: -- {
5210:
5211: If (p_x_line_adj_tbl(I).list_header_id is null
5212: or p_x_line_adj_tbl(I).list_header_id = FND_API.G_MISS_NUM)
5213: and (p_x_line_adj_tbl(I).list_line_id is null
5214: or p_x_line_adj_tbl(I).list_line_id = FND_API.G_MISS_NUM)
5215: then
5216: list_line_id( p_modifier_name => p_x_line_adj_val_tbl(I).list_name,
5210:
5211: If (p_x_line_adj_tbl(I).list_header_id is null
5212: or p_x_line_adj_tbl(I).list_header_id = FND_API.G_MISS_NUM)
5213: and (p_x_line_adj_tbl(I).list_line_id is null
5214: or p_x_line_adj_tbl(I).list_line_id = FND_API.G_MISS_NUM)
5215: then
5216: list_line_id( p_modifier_name => p_x_line_adj_val_tbl(I).list_name,
5217: p_list_line_no => p_x_line_adj_tbl(I).list_line_no,
5218: p_version_no => p_x_line_adj_val_tbl(I).version_no,
5232: END IF;
5233: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_LIST_NAME');
5234: FND_MESSAGE.SET_TOKEN('LIST_NAME',p_x_line_adj_val_tbl(I).list_name);
5235: OE_MSG_PUB.Add;
5236: p_return_status := FND_API.G_RET_STS_ERROR;
5237: END IF;
5238:
5239: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
5240: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
5235: OE_MSG_PUB.Add;
5236: p_return_status := FND_API.G_RET_STS_ERROR;
5237: END IF;
5238:
5239: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
5240: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
5241: FND_API.G_RET_STS_UNEXP_ERROR)
5242: THEN
5243: p_return_status := l_return_status;
5236: p_return_status := FND_API.G_RET_STS_ERROR;
5237: END IF;
5238:
5239: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
5240: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
5241: FND_API.G_RET_STS_UNEXP_ERROR)
5242: THEN
5243: p_return_status := l_return_status;
5244: END IF;
5237: END IF;
5238:
5239: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
5240: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
5241: FND_API.G_RET_STS_UNEXP_ERROR)
5242: THEN
5243: p_return_status := l_return_status;
5244: END IF;
5245:
5357: -----------------------------------------------------------
5358:
5359: oe_debug_pub.add('before validating orig_sys_atts_ref for line');
5360:
5361: IF p_x_line_price_att_tbl(I).orig_sys_atts_ref = FND_API.G_MISS_CHAR
5362: THEN
5363: oe_debug_pub.add('Invalid orig_sys_attribute_ref for line... ');
5364: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_ATT_REF');
5365: OE_MSG_PUB.Add;
5362: THEN
5363: oe_debug_pub.add('Invalid orig_sys_attribute_ref for line... ');
5364: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_ATT_REF');
5365: OE_MSG_PUB.Add;
5366: p_return_status := FND_API.G_RET_STS_ERROR;
5367: END IF;
5368:
5369: -----------------------------------------------------------
5370: Validate line atts operation code
5393: oe_debug_pub.add( 'INVALID LINE ADJUSTMENTS OPERATION CODE...' ) ;
5394: END IF;
5395: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5396: OE_MSG_PUB.Add;
5397: p_return_status := FND_API.G_RET_STS_ERROR;
5398: END IF;
5399:
5400: IF p_x_line_price_att_tbl(I).operation IN ('INSERT', 'CREATE')
5401: AND p_x_header_rec.operation = 'UPDATE'
5426: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO INSERT A NEW HDRATT WITH THE SAME HEADER_ID AND ATTRIBUTE ID....' ) ;
5427: END IF;
5428: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5429: OE_MSG_PUB.Add;
5430: p_return_status := FND_API.G_RET_STS_ERROR;
5431: Exception
5432: When no_data_found then
5433: IF l_debug_level > 0 THEN
5434: oe_debug_pub.add( 'VALID LINE LEVEL PRICE ATT FOR INSERT' ) ;
5438: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW HDR PRICE ATT... ' ) ;
5439: END IF;
5440: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5441: OE_MSG_PUB.Add;
5442: p_return_status := FND_API.G_RET_STS_ERROR;
5443: End;
5444: End If; -- Insert, Create operation
5445:
5446: IF p_x_line_price_att_tbl(I).operation IN ('UPDATE','DELETE')
5482: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING HDR ATT BUT THAT DOES NOT EXIST... ' ) ;
5483: END IF;
5484: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5485: OE_MSG_PUB.Add;
5486: p_return_status := FND_API.G_RET_STS_ERROR;
5487: When others then
5488: IF l_debug_level > 0 THEN
5489: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING HDRATT ... ' ) ;
5490: END IF;
5489: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING HDRATT ... ' ) ;
5490: END IF;
5491: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5492: OE_MSG_PUB.Add;
5493: p_return_status := FND_API.G_RET_STS_ERROR;
5494: End;
5495: End IF; -- Update and Delete operation
5496:
5497: END LOOP;
5561: IF l_debug_level > 0 THEN
5562: oe_debug_pub.add( 'BEFORE VALIDATING ORIG_SYS_CREDIT_REF FOR LINE' ) ;
5563: END IF;
5564:
5565: IF p_x_line_scredit_tbl(I).orig_sys_credit_ref = FND_API.G_MISS_CHAR
5566: THEN
5567: IF l_debug_level > 0 THEN
5568: oe_debug_pub.add( 'INVALID ORIG_SYS_CREDIT_REF FOR LINE... ' ) ;
5569: END IF;
5568: oe_debug_pub.add( 'INVALID ORIG_SYS_CREDIT_REF FOR LINE... ' ) ;
5569: END IF;
5570: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_CREDIT_REF');
5571: OE_MSG_PUB.Add;
5572: p_return_status := FND_API.G_RET_STS_ERROR;
5573: END IF;
5574:
5575: /* -----------------------------------------------------------
5576: Validate line sales credits operation code
5596: oe_debug_pub.add( 'INVALID LINE SALES CREDITS OPERATION CODE...' ) ;
5597: END IF;
5598: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5599: OE_MSG_PUB.Add;
5600: p_return_status := FND_API.G_RET_STS_ERROR;
5601: END IF;
5602:
5603: -- aksingh start on this (10/11/2000) this is in process of being coded
5604: IF p_x_line_scredit_tbl(I).operation IN ('INSERT', 'CREATE')
5625: 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... ' ) ;
5626: END IF;
5627: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5628: OE_MSG_PUB.Add;
5629: p_return_status := FND_API.G_RET_STS_ERROR;
5630: Exception
5631: When no_data_found then
5632: IF l_debug_level > 0 THEN
5633: oe_debug_pub.add( 'VALID LINE LEVEL SALES CREDIT FOR INSERT' ) ;
5637: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW LINE SALES CREDIT... ' ) ;
5638: END IF;
5639: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5640: OE_MSG_PUB.Add;
5641: p_return_status := FND_API.G_RET_STS_ERROR;
5642: End;
5643: END IF; -- Insert, Update Operation
5644:
5645: IF p_x_line_scredit_tbl(I).operation IN ('UPDATE','DELETE')
5680: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING LINE CREDIT BUT THAT DOES NOT EXIST... ' ) ;
5681: END IF;
5682: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5683: OE_MSG_PUB.Add;
5684: p_return_status := FND_API.G_RET_STS_ERROR;
5685: When others then
5686: IF l_debug_level > 0 THEN
5687: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING LINECRDT ... ' ) ;
5688: END IF;
5687: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING LINECRDT ... ' ) ;
5688: END IF;
5689: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5690: OE_MSG_PUB.Add;
5691: p_return_status := FND_API.G_RET_STS_ERROR;
5692: End;
5693: End IF; -- Update and Delete operation
5694:
5695:
5734: IF l_debug_level > 0 THEN
5735: oe_debug_pub.add( 'BEFORE VALIDATING ORIG_SYS_PAYMENT_REF FOR LINE' ) ;
5736: END IF;
5737:
5738: IF p_x_line_payment_tbl(I).orig_sys_payment_ref = FND_API.G_MISS_CHAR
5739: THEN
5740: IF l_debug_level > 0 THEN
5741: oe_debug_pub.add( 'INVALID ORIG_SYS_PAYMENT_REF FOR LINE... ' ) ;
5742: END IF;
5742: END IF;
5743: /* multiple payments: new message */
5744: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_payment_REF');
5745: OE_MSG_PUB.Add;
5746: p_return_status := FND_API.G_RET_STS_ERROR;
5747: END IF;
5748:
5749: /* -----------------------------------------------------------
5750: Validate line PAYMENTs operation code
5770: oe_debug_pub.add( 'INVALID LINE PAYMENTS OPERATION CODE...' ) ;
5771: END IF;
5772: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5773: OE_MSG_PUB.Add;
5774: p_return_status := FND_API.G_RET_STS_ERROR;
5775: END IF;
5776:
5777: IF p_x_line_payment_tbl(I).operation IN ('INSERT', 'CREATE')
5778: AND p_x_header_rec.operation = 'UPDATE'
5798: 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... ' ) ;
5799: END IF;
5800: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5801: OE_MSG_PUB.Add;
5802: p_return_status := FND_API.G_RET_STS_ERROR;
5803: Exception
5804: When no_data_found then
5805: IF l_debug_level > 0 THEN
5806: oe_debug_pub.add( 'VALID LINE LEVEL PAYMENT FOR INSERT' ) ;
5810: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW LINE PAYMENT... ' ) ;
5811: END IF;
5812: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5813: OE_MSG_PUB.Add;
5814: p_return_status := FND_API.G_RET_STS_ERROR;
5815: End;
5816: END IF; -- Insert, Update Operation
5817:
5818: IF p_x_line_payment_tbl(I).operation IN ('UPDATE','DELETE')
5841: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING LINE PAYMENT BUT THAT DOES NOT EXIST... ' ) ;
5842: END IF;
5843: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5844: OE_MSG_PUB.Add;
5845: p_return_status := FND_API.G_RET_STS_ERROR;
5846: When others then
5847: IF l_debug_level > 0 THEN
5848: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING PAYMENT ... ' ) ;
5849: END IF;
5848: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING PAYMENT ... ' ) ;
5849: END IF;
5850: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5851: OE_MSG_PUB.Add;
5852: p_return_status := FND_API.G_RET_STS_ERROR;
5853: End;
5854: End IF; -- Update and Delete operation
5855:
5856: END LOOP; -- multiple payments for line.
5892: IF l_debug_level > 0 THEN
5893: oe_debug_pub.add( 'BEFORE VALIDATING ORIG_SYS_LOTSERIAL_REF FOR LINE' ) ;
5894: END IF;
5895:
5896: IF p_x_lot_serial_tbl(I).orig_sys_lotserial_ref = FND_API.G_MISS_CHAR
5897: THEN
5898: IF l_debug_level > 0 THEN
5899: oe_debug_pub.add( 'INVALID ORIG_SYS_LOTSERIAL_REF... ' ) ;
5900: END IF;
5899: oe_debug_pub.add( 'INVALID ORIG_SYS_LOTSERIAL_REF... ' ) ;
5900: END IF;
5901: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_LOTSERIAL_REF');
5902: OE_MSG_PUB.Add;
5903: p_return_status := FND_API.G_RET_STS_ERROR;
5904: END IF;
5905:
5906: /* -----------------------------------------------------------
5907: Validate line lot serials operation code
5921: oe_debug_pub.add( 'INVALID LINE LOT SERIALS OPERATION CODE...' ) ;
5922: END IF;
5923: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5924: OE_MSG_PUB.Add;
5925: p_return_status := FND_API.G_RET_STS_ERROR;
5926: END IF;
5927:
5928: -- aksingh start on this (10/11/2000) this is in process of being coded
5929: IF p_x_lot_serial_tbl(I).operation IN ('INSERT', 'CREATE')
5946: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO INSERT A NEW LOT WITH THE SAME LINE_ID AND ORIG_SYS_DISCOUNT_REF... ' ) ;
5947: END IF;
5948: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5949: OE_MSG_PUB.Add;
5950: p_return_status := FND_API.G_RET_STS_ERROR;
5951: Exception
5952: When no_data_found then
5953: IF l_debug_level > 0 THEN
5954: oe_debug_pub.add( 'VALID LINE LEVEL LOT FOR INSERT' ) ;
5958: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW LINE LOT... ' ) ;
5959: END IF;
5960: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5961: OE_MSG_PUB.Add;
5962: p_return_status := FND_API.G_RET_STS_ERROR;
5963: End;
5964: END IF; -- Insert, Create Opearation
5965:
5966: IF p_x_lot_serial_tbl(I).operation IN ('UPDATE','DELETE')
5992: oe_debug_pub.add( 'INVALID OPERATION CODE. TRYING TO UPDATE OR DELETE AN EXISTING LOT BUT THAT DOES NOT EXIST... ' ) ;
5993: END IF;
5994: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
5995: OE_MSG_PUB.Add;
5996: p_return_status := FND_API.G_RET_STS_ERROR;
5997: When others then
5998: IF l_debug_level > 0 THEN
5999: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING LOT... ' ) ;
6000: END IF;
5999: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO UPDATE OR DELETE AN EXISTING LOT... ' ) ;
6000: END IF;
6001: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
6002: OE_MSG_PUB.Add;
6003: p_return_status := FND_API.G_RET_STS_ERROR;
6004: End;
6005: End IF; -- Update and Delete operation
6006:
6007: -- aksingh(10/11/2000) this is in process of being coded upto this point
6045: IF l_debug_level > 0 THEN
6046: oe_debug_pub.add( 'BEFORE VALIDATING ORIG_SYS_RESERVATION_REF FOR LINE' ) ;
6047: END IF;
6048:
6049: IF p_x_reservation_tbl(I).orig_sys_reservation_ref = FND_API.G_MISS_CHAR
6050: THEN
6051: IF l_debug_level > 0 THEN
6052: oe_debug_pub.add( 'INVALID ORIG_SYS_RESERVATION_REF... ' ) ;
6053: END IF;
6052: oe_debug_pub.add( 'INVALID ORIG_SYS_RESERVATION_REF... ' ) ;
6053: END IF;
6054: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_RESERVATION_REF');
6055: OE_MSG_PUB.Add;
6056: p_return_status := FND_API.G_RET_STS_ERROR;
6057: END IF;
6058:
6059: /* -----------------------------------------------------------
6060: Validate reservation details for line
6063: IF l_debug_level > 0 THEN
6064: oe_debug_pub.add( 'BEFORE VALIDATING RESERVATION DETAILS FOR LINE' ) ;
6065: END IF;
6066:
6067: IF p_x_reservation_tbl(I).revision = FND_API.G_MISS_CHAR
6068: AND p_x_reservation_tbl(I).lot_number_id = FND_API.G_MISS_NUM
6069: AND p_x_reservation_val_tbl(I).lot_number = FND_API.G_MISS_CHAR
6070: AND p_x_reservation_tbl(I).subinventory_id = FND_API.G_MISS_NUM
6071: AND p_x_reservation_val_tbl(I).subinventory_code = FND_API.G_MISS_CHAR
6064: oe_debug_pub.add( 'BEFORE VALIDATING RESERVATION DETAILS FOR LINE' ) ;
6065: END IF;
6066:
6067: IF p_x_reservation_tbl(I).revision = FND_API.G_MISS_CHAR
6068: AND p_x_reservation_tbl(I).lot_number_id = FND_API.G_MISS_NUM
6069: AND p_x_reservation_val_tbl(I).lot_number = FND_API.G_MISS_CHAR
6070: AND p_x_reservation_tbl(I).subinventory_id = FND_API.G_MISS_NUM
6071: AND p_x_reservation_val_tbl(I).subinventory_code = FND_API.G_MISS_CHAR
6072: AND p_x_reservation_tbl(I).locator_id = FND_API.G_MISS_NUM
6065: END IF;
6066:
6067: IF p_x_reservation_tbl(I).revision = FND_API.G_MISS_CHAR
6068: AND p_x_reservation_tbl(I).lot_number_id = FND_API.G_MISS_NUM
6069: AND p_x_reservation_val_tbl(I).lot_number = FND_API.G_MISS_CHAR
6070: AND p_x_reservation_tbl(I).subinventory_id = FND_API.G_MISS_NUM
6071: AND p_x_reservation_val_tbl(I).subinventory_code = FND_API.G_MISS_CHAR
6072: AND p_x_reservation_tbl(I).locator_id = FND_API.G_MISS_NUM
6073: THEN
6066:
6067: IF p_x_reservation_tbl(I).revision = FND_API.G_MISS_CHAR
6068: AND p_x_reservation_tbl(I).lot_number_id = FND_API.G_MISS_NUM
6069: AND p_x_reservation_val_tbl(I).lot_number = FND_API.G_MISS_CHAR
6070: AND p_x_reservation_tbl(I).subinventory_id = FND_API.G_MISS_NUM
6071: AND p_x_reservation_val_tbl(I).subinventory_code = FND_API.G_MISS_CHAR
6072: AND p_x_reservation_tbl(I).locator_id = FND_API.G_MISS_NUM
6073: THEN
6074: IF l_debug_level > 0 THEN
6067: IF p_x_reservation_tbl(I).revision = FND_API.G_MISS_CHAR
6068: AND p_x_reservation_tbl(I).lot_number_id = FND_API.G_MISS_NUM
6069: AND p_x_reservation_val_tbl(I).lot_number = FND_API.G_MISS_CHAR
6070: AND p_x_reservation_tbl(I).subinventory_id = FND_API.G_MISS_NUM
6071: AND p_x_reservation_val_tbl(I).subinventory_code = FND_API.G_MISS_CHAR
6072: AND p_x_reservation_tbl(I).locator_id = FND_API.G_MISS_NUM
6073: THEN
6074: IF l_debug_level > 0 THEN
6075: oe_debug_pub.add( 'INVALID RESERVATION DETAILS... ' ) ;
6068: AND p_x_reservation_tbl(I).lot_number_id = FND_API.G_MISS_NUM
6069: AND p_x_reservation_val_tbl(I).lot_number = FND_API.G_MISS_CHAR
6070: AND p_x_reservation_tbl(I).subinventory_id = FND_API.G_MISS_NUM
6071: AND p_x_reservation_val_tbl(I).subinventory_code = FND_API.G_MISS_CHAR
6072: AND p_x_reservation_tbl(I).locator_id = FND_API.G_MISS_NUM
6073: THEN
6074: IF l_debug_level > 0 THEN
6075: oe_debug_pub.add( 'INVALID RESERVATION DETAILS... ' ) ;
6076: END IF;
6075: oe_debug_pub.add( 'INVALID RESERVATION DETAILS... ' ) ;
6076: END IF;
6077: FND_MESSAGE.SET_NAME('ONT','OE_OI_RESERVATION_DETAILS');
6078: OE_MSG_PUB.Add;
6079: p_return_status := FND_API.G_RET_STS_ERROR;
6080: END IF;
6081:
6082: /* -----------------------------------------------------------
6083: Validate reservation quantity
6086: IF l_debug_level > 0 THEN
6087: oe_debug_pub.add( 'BEFORE VALIDATING RESERVATION QUANTITY FOR LINE' ) ;
6088: END IF;
6089:
6090: IF p_x_reservation_tbl(I).quantity = FND_API.G_MISS_NUM OR
6091: p_x_reservation_tbl(I).quantity = 0 OR
6092: p_x_reservation_tbl(I).quantity < 0
6093: THEN
6094: IF l_debug_level > 0 THEN
6095: oe_debug_pub.add( 'INVALID RESERVATION QUANTITY... ' ) ;
6096: END IF;
6097: FND_MESSAGE.SET_NAME('ONT','OE_OI_RESERVATION_QUANTITY');
6098: OE_MSG_PUB.Add;
6099: p_return_status := FND_API.G_RET_STS_ERROR;
6100: END IF;
6101:
6102: /* -----------------------------------------------------------
6103: Validate reservation operation
6114: oe_debug_pub.add( 'INVALID RESERVATION OPERATION... ' ) ;
6115: END IF;
6116: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
6117: OE_MSG_PUB.Add;
6118: p_return_status := FND_API.G_RET_STS_ERROR;
6119: END IF;
6120:
6121: -- Following Line are added to fixed the bug for the duplicate reservation
6122: -- when the auto scheduling is on + within time fence
6150: ,p_x_line_tbl => p_x_line_tbl
6151: ,p_return_status => l_return_status
6152: );
6153:
6154: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6155: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6156: FND_API.G_RET_STS_UNEXP_ERROR)
6157: THEN
6158: p_return_status := l_return_status;
6151: ,p_return_status => l_return_status
6152: );
6153:
6154: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6155: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6156: FND_API.G_RET_STS_UNEXP_ERROR)
6157: THEN
6158: p_return_status := l_return_status;
6159: END IF;
6152: );
6153:
6154: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6155: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6156: FND_API.G_RET_STS_UNEXP_ERROR)
6157: THEN
6158: p_return_status := l_return_status;
6159: END IF;
6160:
6188:
6189: ,p_return_status => l_return_status
6190: );
6191:
6192: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6193: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6194: FND_API.G_RET_STS_UNEXP_ERROR)
6195: THEN
6196: p_return_status := l_return_status;
6189: ,p_return_status => l_return_status
6190: );
6191:
6192: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6193: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6194: FND_API.G_RET_STS_UNEXP_ERROR)
6195: THEN
6196: p_return_status := l_return_status;
6197: END IF;
6190: );
6191:
6192: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6193: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6194: FND_API.G_RET_STS_UNEXP_ERROR)
6195: THEN
6196: p_return_status := l_return_status;
6197: END IF;
6198:
6203: IF l_debug_level > 0 THEN
6204: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
6205: END IF;
6206: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6207: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6208: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process');
6209: END IF;
6210:
6211: END PRE_PROCESS;
6285: IF l_debug_level > 0 THEN
6286: oe_debug_pub.add( 'ENTERING ORDER IMPORT POST_PROCESS' ) ;
6287: END IF;
6288:
6289: p_return_status := FND_API.G_RET_STS_SUCCESS; /* Init to Success */
6290:
6291:
6292: FOR I in 1..p_x_line_tbl.count
6293: LOOP
6329: /* Added the following code to fix the bug 2355630 */
6330: l_unit_selling_price := -1;
6331: oe_debug_pub.add( 'net_price = ' || p_x_line_tbl(I).customer_item_net_price);
6332: oe_debug_pub.add( 'line_id = ' || p_x_line_tbl(I).line_id);
6333: IF p_x_line_tbl(I).customer_item_net_price <> FND_API.G_MISS_NUM THEN
6334:
6335: begin
6336: select unit_selling_price into l_unit_selling_price
6337: from oe_order_lines
6351:
6352: END IF;
6353:
6354:
6355: IF p_x_line_tbl(I).customer_item_net_price <> FND_API.G_MISS_NUM AND
6356: p_x_line_tbl(I).customer_item_net_price <> l_unit_selling_price AND
6357: l_unit_selling_price <> -1
6358: THEN
6359: IF l_debug_level > 0 THEN
6362: FND_MESSAGE.SET_NAME('ONT','OE_OI_PRICE_WARNING');
6363: FND_MESSAGE.SET_TOKEN('CUST_PRICE',p_x_line_tbl(I).customer_item_net_price);
6364: FND_MESSAGE.SET_TOKEN('SPLR_PRICE',l_unit_selling_price);
6365: OE_MSG_PUB.Add;
6366: -- p_return_status := FND_API.G_RET_STS_ERROR;
6367: END IF;
6368:
6369: /* -----------------------------------------------------------
6370: Compare Payment Term
6378: end if ;
6379: oe_debug_pub.add('pti ' || p_x_line_tbl(I).payment_term_id);
6380: END IF;
6381:
6382: IF (p_x_line_tbl(I).customer_payment_term_id <> FND_API.G_MISS_NUM AND
6383: p_x_line_tbl(I).customer_payment_term_id <>
6384: p_x_line_tbl(I).payment_term_id) OR
6385: ( p_x_line_val_tbl_old.exists(I) -- added for 4307609
6386: AND p_x_line_val_tbl_old(I).customer_payment_term <> FND_API.G_MISS_CHAR
6382: IF (p_x_line_tbl(I).customer_payment_term_id <> FND_API.G_MISS_NUM AND
6383: p_x_line_tbl(I).customer_payment_term_id <>
6384: p_x_line_tbl(I).payment_term_id) OR
6385: ( p_x_line_val_tbl_old.exists(I) -- added for 4307609
6386: AND p_x_line_val_tbl_old(I).customer_payment_term <> FND_API.G_MISS_CHAR
6387: AND
6388: p_x_line_val_tbl_old(I).customer_payment_term <>
6389: oe_id_to_value.payment_term(p_x_line_tbl(I).payment_term_id))
6390: THEN
6392: oe_debug_pub.add( 'WARNING! CUSTOMER AND SUPPLIER PAYMENT TERMS DIFFERENT... ' ) ;
6393: END IF;
6394:
6395: FND_MESSAGE.SET_NAME('ONT','OE_OI_PAYMENT_TERM_WARNING');
6396: IF nvl(p_x_line_tbl(I).customer_payment_term_id, FND_API.G_MISS_NUM)
6397: <> FND_API.G_MISS_NUM Then
6398: FND_MESSAGE.SET_TOKEN('CUST_TERM',p_x_line_tbl(I).customer_payment_term_id);
6399: FND_MESSAGE.SET_TOKEN('SPLR_TERM',p_x_line_tbl(I).payment_term_id);
6400: ELSIF p_x_line_val_tbl_old.exists(I) -- added for 4307609
6393: END IF;
6394:
6395: FND_MESSAGE.SET_NAME('ONT','OE_OI_PAYMENT_TERM_WARNING');
6396: IF nvl(p_x_line_tbl(I).customer_payment_term_id, FND_API.G_MISS_NUM)
6397: <> FND_API.G_MISS_NUM Then
6398: FND_MESSAGE.SET_TOKEN('CUST_TERM',p_x_line_tbl(I).customer_payment_term_id);
6399: FND_MESSAGE.SET_TOKEN('SPLR_TERM',p_x_line_tbl(I).payment_term_id);
6400: ELSIF p_x_line_val_tbl_old.exists(I) -- added for 4307609
6401: AND nvl(p_x_line_val_tbl_old(I).customer_payment_term,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR Then
6397: <> FND_API.G_MISS_NUM Then
6398: FND_MESSAGE.SET_TOKEN('CUST_TERM',p_x_line_tbl(I).customer_payment_term_id);
6399: FND_MESSAGE.SET_TOKEN('SPLR_TERM',p_x_line_tbl(I).payment_term_id);
6400: ELSIF p_x_line_val_tbl_old.exists(I) -- added for 4307609
6401: AND nvl(p_x_line_val_tbl_old(I).customer_payment_term,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR Then
6402: FND_MESSAGE.SET_TOKEN('CUST_TERM',p_x_line_val_tbl_old(I).customer_payment_term);
6403: FND_MESSAGE.SET_TOKEN('SPLR_TERM',oe_id_to_value.payment_term(p_x_line_tbl(I).payment_term_id));
6404: END IF;
6405: OE_MSG_PUB.Add;
6402: FND_MESSAGE.SET_TOKEN('CUST_TERM',p_x_line_val_tbl_old(I).customer_payment_term);
6403: FND_MESSAGE.SET_TOKEN('SPLR_TERM',oe_id_to_value.payment_term(p_x_line_tbl(I).payment_term_id));
6404: END IF;
6405: OE_MSG_PUB.Add;
6406: -- p_return_status := FND_API.G_RET_STS_ERROR;
6407: END IF;
6408:
6409: END LOOP;
6410:
6426: ,p_reservation_val_tbl => p_x_reservation_val_tbl
6427: ,p_return_status => l_return_status
6428: );
6429:
6430: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6431: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6432: FND_API.G_RET_STS_UNEXP_ERROR)
6433: THEN
6434: p_return_status := l_return_status;
6427: ,p_return_status => l_return_status
6428: );
6429:
6430: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6431: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6432: FND_API.G_RET_STS_UNEXP_ERROR)
6433: THEN
6434: p_return_status := l_return_status;
6435: END IF;
6428: );
6429:
6430: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6431: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6432: FND_API.G_RET_STS_UNEXP_ERROR)
6433: THEN
6434: p_return_status := l_return_status;
6435: END IF;
6436:
6439: /* Added the code for the bug 2734389 */
6440: oe_debug_pub.add( 'BEFORE CALLING THE INV FOR DO_CHECK_FOR_COMMIT FROM ORDER IMPORT' , 1 ) ;
6441: INV_RESERVATION_PVT.Do_Check_For_Commit
6442: (p_api_version_number => 1.0
6443: ,p_init_msg_lst => FND_API.G_FALSE
6444: ,x_return_status => l_return_status
6445: ,x_msg_count => l_msg_count
6446: ,x_msg_data => l_msg_data
6447: ,x_failed_rsv_temp_tbl => l_failed_rsv_temp_tbl);
6451: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RSV_FAILURE');
6452: OE_MSG_PUB.Add;
6453: END IF;
6454: -- Error Handling Start
6455: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6456: oe_debug_pub.add( 'INSIDE UNEXPECTED ERROR' , 1 ) ;
6457: OE_MSG_PUB.Transfer_Msg_Stack;
6458: l_msg_count := OE_MSG_PUB.COUNT_MSG;
6459:
6460: FOR I IN 1..l_msg_count LOOP
6461: l_msg_data := OE_MSG_PUB.Get(I,'F');
6462: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
6463: END LOOP;
6464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6465: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6466: oe_debug_pub.add( ' INSIDE EXPECTED ERROR' , 1 ) ;
6467: OE_MSG_PUB.Transfer_Msg_Stack;
6468: l_msg_count := OE_MSG_PUB.COUNT_MSG;
6461: l_msg_data := OE_MSG_PUB.Get(I,'F');
6462: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
6463: END LOOP;
6464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6465: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6466: oe_debug_pub.add( ' INSIDE EXPECTED ERROR' , 1 ) ;
6467: OE_MSG_PUB.Transfer_Msg_Stack;
6468: l_msg_count := OE_MSG_PUB.COUNT_MSG;
6469:
6470: FOR I IN 1..l_msg_count LOOP
6471: l_msg_data := OE_MSG_PUB.Get(I,'F');
6472: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
6473: END LOOP;
6474: RAISE FND_API.G_EXC_ERROR;
6475:
6476: END IF;
6477: --Error Handling End
6478:
6512:
6513: ,p_return_status => l_return_status
6514: );
6515:
6516: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6517: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6518: FND_API.G_RET_STS_UNEXP_ERROR)
6519: THEN
6520: p_return_status := l_return_status;
6513: ,p_return_status => l_return_status
6514: );
6515:
6516: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6517: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6518: FND_API.G_RET_STS_UNEXP_ERROR)
6519: THEN
6520: p_return_status := l_return_status;
6521: END IF;
6514: );
6515:
6516: IF p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
6517: AND l_return_status IN (FND_API.G_RET_STS_ERROR,
6518: FND_API.G_RET_STS_UNEXP_ERROR)
6519: THEN
6520: p_return_status := l_return_status;
6521: END IF;
6522: END IF;
6527: IF l_debug_level > 0 THEN
6528: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
6529: END IF;
6530: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6531: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6532: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Post_Process');
6533: END IF;
6534:
6535: END POST_PROCESS;