[Home] [Help]
43: l_list_line_id NUMBER;
44: /* modified the following two lines to fix the bug 2716743 */
45: l_type VARCHAR2(100);
46: --
47: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
48: --
49: BEGIN
50: IF l_debug_level > 0 THEN
51: oe_debug_pub.add( 'ENTERING LIST_LINE_ID OF ORDER IMPORT SPECIFIC' , 1 ) ;
47: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
48: --
49: BEGIN
50: IF l_debug_level > 0 THEN
51: oe_debug_pub.add( 'ENTERING LIST_LINE_ID OF ORDER IMPORT SPECIFIC' , 1 ) ;
52: END IF;
53: IF l_debug_level > 0 THEN
54: oe_debug_pub.add( 'NAME = '||P_MODIFIER_NAME ) ;
55: END IF;
50: IF l_debug_level > 0 THEN
51: oe_debug_pub.add( 'ENTERING LIST_LINE_ID OF ORDER IMPORT SPECIFIC' , 1 ) ;
52: END IF;
53: IF l_debug_level > 0 THEN
54: oe_debug_pub.add( 'NAME = '||P_MODIFIER_NAME ) ;
55: END IF;
56: IF l_debug_level > 0 THEN
57: oe_debug_pub.add( 'TYPE = '||P_LIST_LINE_TYPE_CODE ) ;
58: END IF;
53: IF l_debug_level > 0 THEN
54: oe_debug_pub.add( 'NAME = '||P_MODIFIER_NAME ) ;
55: END IF;
56: IF l_debug_level > 0 THEN
57: oe_debug_pub.add( 'TYPE = '||P_LIST_LINE_TYPE_CODE ) ;
58: END IF;
59: /* modified the following if condition to fix the bug 2716743 */
60: IF ( (p_list_line_type_code = 'DIS' OR
61: p_list_line_type_code = 'FREIGHT_CHARGE' OR
62: p_list_line_type_code = 'SUR') and
63: p_list_line_no is NOT NULL) THEN
64:
65: IF l_debug_level > 0 THEN
66: oe_debug_pub.add( 'OEXVIMSB->BEFORE SELECT QP_LIST_HEADERS_TL FOR DIS' ) ;
67: END IF;
68: SELECT LIST_HEADER_ID
69: INTO l_list_header_id
70: FROM qp_list_headers_tl
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;
78: SELECT LIST_LINE_ID
79: INTO l_list_line_id
80: FROM qp_list_lines
89:
90: ELSIF (p_list_line_type_code = 'PROMOLINE' and p_list_line_no is NOT NULL) THEN
91:
92: IF l_debug_level > 0 THEN
93: oe_debug_pub.add( 'OEXVIMSB->BEFORE SELECT QP_LIST_HEADER_TL FOR PROMOLINE' ) ;
94: END IF;
95: SELECT LIST_HEADER_ID
96: INTO l_list_header_id
97: FROM qp_list_headers_tl
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;
105: SELECT LIST_LINE_ID
106: INTO l_list_line_id
107: FROM qp_list_lines
121: Return;
122: End If;
123:
124: IF l_debug_level > 0 THEN
125: oe_debug_pub.add( 'OEXVIMSB-> IN ELSE , SEARCH FOR PROMO/COUPONS' ) ;
126: END IF;
127:
128: -- { Start of <> 'PROMO'
129: -- This condition will be executed when user send list_line_type_code
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' ) ;
141: END IF;
142: SELECT LIST_HEADER_ID
143: INTO l_list_header_id
144: FROM qp_list_headers_vl
149: x_type :=l_type;
150: x_list_header_id := l_list_header_id;
151:
152: IF l_debug_level > 0 THEN
153: oe_debug_pub.add( 'OEXVIMSB-> LIST_HEADER_ID ' || L_LIST_HEADER_ID ) ;
154: END IF;
155:
156: EXCEPTION
157: WHEN NO_DATA_FOUND THEN
162: -- it failed to find any data in previous select
163: IF (p_list_line_type_code = 'PROMO' And
164: l_type = 'NODATA') THEN
165: IF l_debug_level > 0 THEN
166: oe_debug_pub.add( 'NOT VALID PROMOTION NAME =' ||P_MODIFIER_NAME ) ;
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;
176: -- } Start of <> 'PROMO'
177:
178: IF (l_type = 'NODATA' or p_list_line_type_code = 'COUPON' ) THEN
179: IF l_debug_level > 0 THEN
180: oe_debug_pub.add( 'SEARCH FOR COUPON' ) ;
181: END IF;
182: BEGIN
183: SELECT coupon_id
184: INTO l_list_line_id
189: x_type :=l_type;
190: x_list_line_id := l_list_line_id;
191:
192: IF l_debug_level > 0 THEN
193: oe_debug_pub.add( 'OEXVIMSB-> LIST_LINE_ID ' || L_LIST_LINE_ID ) ;
194: END IF;
195:
196: EXCEPTION
197: WHEN NO_DATA_FOUND THEN
195:
196: EXCEPTION
197: WHEN NO_DATA_FOUND THEN
198: IF l_debug_level > 0 THEN
199: oe_debug_pub.add( 'NOT VALID PROMOTION/COUPON LIST_NAME =' ||P_MODIFIER_NAME ) ;
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;
210:
211: WHEN NO_DATA_FOUND THEN
212:
213: IF l_debug_level > 0 THEN
214: oe_debug_pub.add( 'EXP NO_DATA LIST_LINE_ID OF ORDER IMPORT SPECIFIC' , 1 ) ;
215: END IF;
216: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
217: THEN
218:
216: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
217: THEN
218:
219: IF l_debug_level > 0 THEN
220: oe_debug_pub.add( 'NOT VALID PROMOTION NAME =' ||P_MODIFIER_NAME ) ;
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;
228:
229: WHEN OTHERS THEN
230:
231: IF l_debug_level > 0 THEN
232: oe_debug_pub.add( 'EXP OTHERS LIST_LINE_ID OF ORDER IMPORT SPECIFIC AND SQLERR = ' || SQLERRM , 1 ) ;
233: END IF;
234: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
235: THEN
236: OE_MSG_PUB.Add_Exc_Msg
264: l_customer_info_number Varchar2(30);
265: l_return_status Varchar2(1);
266: l_tca_bus_events varchar2(240);
267: --
268: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
269: --
270: BEGIN
271:
272: IF l_debug_level > 0 THEN
269: --
270: BEGIN
271:
272: IF l_debug_level > 0 THEN
273: oe_debug_pub.add( 'ENTERING CREATE NEW CUST INFO ' , 1 ) ;
274: END IF;
275:
276: l_tca_bus_events := fnd_profile.value('HZ_EXECUTE_API_CALLOUTS');
277:
278: IF l_tca_bus_events <> 'N' THEN
279:
280: fnd_profile.put('HZ_EXECUTE_API_CALLOUTS','N');
281: IF l_debug_level > 0 THEN
282: oe_debug_pub.add(' Turned off TCA Business Events. Previous value: '||l_tca_bus_events||
283: 'New Value: '|| fnd_profile.value('HZ_EXECUTE_API_CALLOUTS'));
284: END IF;
285: END IF;
286:
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;
314: Else
315: p_x_header_rec.sold_to_org_id := l_customer_info_id;
336: FND_MESSAGE.SET_TOKEN('TYPE', 'Customer');
337: FND_MESSAGE.SET_TOKEN('REF',p_customer_rec.orig_sys_customer_ref);
338: Oe_Msg_Pub.Add;
339: IF l_debug_level > 0 THEN
340: oe_debug_pub.add( 'NEW CUST ACC. ID => ' || L_CUSTOMER_INFO_ID ) ;
341: END IF;
342: IF l_debug_level > 0 THEN
343: oe_debug_pub.add( 'NEW CUST ACC. NUM => ' || L_CUSTOMER_INFO_NUMBER ) ;
344: END IF;
339: IF l_debug_level > 0 THEN
340: oe_debug_pub.add( 'NEW CUST ACC. ID => ' || L_CUSTOMER_INFO_ID ) ;
341: END IF;
342: IF l_debug_level > 0 THEN
343: oe_debug_pub.add( 'NEW CUST ACC. NUM => ' || L_CUSTOMER_INFO_NUMBER ) ;
344: END IF;
345: End if;
346: Else
347: IF l_debug_level > 0 THEN
344: END IF;
345: End if;
346: Else
347: IF l_debug_level > 0 THEN
348: oe_debug_pub.add( 'CUST DATA PASSED BUT PARAMETER NOT SET' ) ;
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;
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;
382: Else
383: If p_record_type = 'HEADER' Then
385: Else
386: p_x_line_rec.ship_to_org_id := l_customer_info_id;
387: End If;
388: IF l_debug_level > 0 THEN
389: oe_debug_pub.add( 'NEW SHIP ADDRESS ID => ' || L_CUSTOMER_INFO_ID ) ;
390: END IF;
391: OE_MSG_PUB.set_msg_context(
392: p_entity_code => 'OI_INL_CUSTSUCC'
393: ,p_entity_ref => null
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;
438: Else
439: If p_record_type = 'HEADER' Then
441: Else
442: p_x_line_rec.invoice_to_org_id := l_customer_info_id;
443: End If;
444: IF l_debug_level > 0 THEN
445: oe_debug_pub.add( 'NEW INVOICE ADDRESS ID => ' || L_CUSTOMER_INFO_ID ) ;
446: END IF;
447: OE_MSG_PUB.set_msg_context(
448: p_entity_code => 'OI_INL_CUSTSUCC'
449: ,p_entity_ref => null
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;
494: Else
495: If p_record_type = 'HEADER' Then
497: Else
498: p_x_line_rec.deliver_to_org_id := l_customer_info_id;
499: End If;
500: IF l_debug_level > 0 THEN
501: oe_debug_pub.add( 'NEW DELIVER ADDRESS ID => ' || L_CUSTOMER_INFO_ID ) ;
502: END IF;
503: OE_MSG_PUB.set_msg_context(
504: p_entity_code => 'OI_INL_CUSTSUCC'
505: ,p_entity_ref => null
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;
550: Else
551: If p_record_type = 'HEADER' Then
551: If p_record_type = 'HEADER' Then
552: p_x_header_rec.sold_to_contact_id := l_customer_info_id;
553: End If;
554: IF l_debug_level > 0 THEN
555: oe_debug_pub.add( 'NEW CONTACT ID => ' || L_CUSTOMER_INFO_ID ) ;
556: END IF;
557: OE_MSG_PUB.set_msg_context(
558: p_entity_code => 'OI_INL_CUSTSUCC'
559: ,p_entity_ref => null
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;
604: Else
605: If p_record_type = 'HEADER' Then
607: Else
608: p_x_line_rec.ship_to_contact_id := l_customer_info_id;
609: End If;
610: IF l_debug_level > 0 THEN
611: oe_debug_pub.add( 'NEW CONTACT ID => ' || L_CUSTOMER_INFO_ID ) ;
612: END IF;
613: OE_MSG_PUB.set_msg_context(
614: p_entity_code => 'OI_INL_CUSTSUCC'
615: ,p_entity_ref => null
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;
660: Else
661: If p_record_type = 'HEADER' Then
663: Else
664: p_x_line_rec.invoice_to_contact_id := l_customer_info_id;
665: End If;
666: IF l_debug_level > 0 THEN
667: oe_debug_pub.add( 'NEW CONTACT ID => ' || L_CUSTOMER_INFO_ID ) ;
668: END IF;
669: OE_MSG_PUB.set_msg_context(
670: p_entity_code => 'OI_INL_CUSTSUCC'
671: ,p_entity_ref => null
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;
716: Else
717: If p_record_type = 'HEADER' Then
719: Else
720: p_x_line_rec.deliver_to_contact_id := l_customer_info_id;
721: End If;
722: IF l_debug_level > 0 THEN
723: oe_debug_pub.add( 'NEW CONTACT ID => ' || L_CUSTOMER_INFO_ID ) ;
724: END IF;
725: OE_MSG_PUB.set_msg_context(
726: p_entity_code => 'OI_INL_CUSTSUCC'
727: ,p_entity_ref => null
753: fnd_profile.put('HZ_EXECUTE_API_CALLOUTS',l_tca_bus_events);
754: End if;
755:
756: IF l_debug_level > 0 THEN
757: oe_debug_pub.add( 'EXITING PROCEDURE CREATE NEW CUST INFO' ) ;
758: END IF;
759: -- End Check for each column of the record and }
760:
761: END Create_New_Cust_Info;
793: ,p_x_return_status OUT NOCOPY VARCHAR2
794:
795: ) IS
796: --
797: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
798: --
799: BEGIN
800: IF l_debug_level > 0 THEN
801: oe_debug_pub.add( 'INSIDE CHECK_DERIVED_FLAGS' ) ;
797: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
798: --
799: BEGIN
800: IF l_debug_level > 0 THEN
801: oe_debug_pub.add( 'INSIDE CHECK_DERIVED_FLAGS' ) ;
802: END IF;
803:
804: /*
805: -----------------------------------------------------------
807: -----------------------------------------------------------
808: */
809:
810: IF l_debug_level > 0 THEN
811: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT' ) ;
812: END IF;
813: OE_MSG_PUB.set_msg_context(
814: p_entity_code => 'HEADER'
815: ,p_entity_ref => null
835: ----------------------------------------------------------------------
836: */
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
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;
846: FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
847: FND_MESSAGE.SET_TOKEN('DERIVED_COL','VERSION_NUMBER');
848: OE_MSG_PUB.Add;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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);
952: oe_debug_pub.add(' cancelled flag :'||p_x_header_rec.cancelled_flag||'**');
953: IF ( p_x_header_rec.CANCELLED_FLAG='Y'
954: and
955: (p_x_header_rec.OPERATION<>OE_GLOBALS.G_OPR_UPDATE))
948: END IF;
949:
950: --added for bug3645778
951: oe_debug_pub.add(' in CHECK_DERIVED_FLAGS , operation : '||p_x_header_rec.OPERATION);
952: oe_debug_pub.add(' cancelled flag :'||p_x_header_rec.cancelled_flag||'**');
953: IF ( p_x_header_rec.CANCELLED_FLAG='Y'
954: and
955: (p_x_header_rec.OPERATION<>OE_GLOBALS.G_OPR_UPDATE))
956: THEN
954: and
955: (p_x_header_rec.OPERATION<>OE_GLOBALS.G_OPR_UPDATE))
956: THEN
957: IF l_debug_level > 0 THEN
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;
978: Set message context for the line
979: -----------------------------------------------------------
980: */
981: IF l_debug_level > 0 THEN
982: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT FOR THE LINE' ) ;
983: END IF;
984:
985: OE_MSG_PUB.set_msg_context(
986: p_entity_code => 'LINE'
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;
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;
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;
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;
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;
1033: FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1034: FND_MESSAGE.SET_TOKEN('DERIVED_COL','CANCELLED_FLAG');
1035: OE_MSG_PUB.Add;
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;
1045: FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1046: FND_MESSAGE.SET_TOKEN('DERIVED_COL','CANCELLED_QUANTITY');
1047: OE_MSG_PUB.Add;
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;
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;
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;
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;
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;
1081: FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1082: FND_MESSAGE.SET_TOKEN('DERIVED_COL','EXPLOSION_DATE');
1083: OE_MSG_PUB.Add;
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;
1093: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1094: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','FULFILLED_QUANTITY');
1095: -- OE_MSG_PUB.Add;
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');
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;
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;
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;
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;
1129: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1130: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','OPTION_NUMBER');
1131: -- OE_MSG_PUB.Add;
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;
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;
1154: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1155: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','PRICING_CONTEXT');
1156: -- OE_MSG_PUB.Add;
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;
1166: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1167: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','PRICING_QUANTITY');
1168: -- OE_MSG_PUB.Add;
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;
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;
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;
1190: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1191: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','REFERENCE_TYPE');
1192: -- OE_MSG_PUB.Add;
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;
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;
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;
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;
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;
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;
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;
1238: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1239: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','SHIPMENT_NUMBER');
1240: -- OE_MSG_PUB.Add;
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;
1250: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1251: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','SHIPPED_QUANTITY');
1252: -- OE_MSG_PUB.Add;
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;
1262: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1263: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','SHIPPING_QUANTITY');
1264: -- OE_MSG_PUB.Add;
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;
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;
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;
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;
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;
1298: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1299: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','SORT_ORDER');
1300: -- OE_MSG_PUB.Add;
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;
1310: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1311: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','TAX_VALUE');
1312: -- OE_MSG_PUB.Add;
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;
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;
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;
1334: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1335: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','STATUS_FLAG');
1336: -- OE_MSG_PUB.Add;
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;
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;
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;
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;
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;
1370: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1371: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','SERVICE_NUMBER');
1372: -- OE_MSG_PUB.Add;
1388: Set message context for header adjustments
1389: -----------------------------------------------------------
1390: */
1391: IF l_debug_level > 0 THEN
1392: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT FOR HEADER ADJUSTMENTS' ) ;
1393: END IF;
1394:
1395: OE_MSG_PUB.set_msg_context(
1396: p_entity_code => 'HEADER_ADJ'
1411: ,p_constraint_id => null
1412: );
1413:
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
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;
1423: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1424: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','DISCOUNT_ID');
1425: -- OE_MSG_PUB.Add;
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;
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;
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;
1447: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1448: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','PERCENT');
1449: -- OE_MSG_PUB.Add;
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;
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;
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;
1471: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1472: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','STATUS_FLAG');
1473: -- OE_MSG_PUB.Add;
1491: Set message context for header attribute
1492: -----------------------------------------------------------
1493: */
1494: IF l_debug_level > 0 THEN
1495: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT FOR HEADER ATTRIBUTE' ) ;
1496: END IF;
1497:
1498: OE_MSG_PUB.set_msg_context(
1499: p_entity_code => 'HEADER_PATTS'
1515: ,p_constraint_id => null
1516: );
1517: ---- Derived columns to be found
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
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;
1527: END IF;
1528: /*
1529: IF p_x_header_price_att_tbl(I).ORG_ID <> FND_API.G_MISS_NUM
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:
1534: IF p_x_header_price_att_tbl(I).PRICING_CONTEXT <> FND_API.G_MISS_CHAR
1535: THEN
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: */
1539: IF p_x_header_price_att_tbl(I).CHANGE_REQUEST_CODE <> FND_API.G_MISS_CHAR
1540: THEN
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;
1544: END IF;
1545: /*
1546: IF p_x_header_price_att_tbl(I).STATUS_FLAG <> FND_API.G_MISS_CHAR
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: */
1551: END LOOP;
1552:
1563: Set message context for header sales credits
1564: -----------------------------------------------------------
1565: */
1566: IF l_debug_level > 0 THEN
1567: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT FOR HEADER SALES CREDITS' ) ;
1568: END IF;
1569:
1570: OE_MSG_PUB.set_msg_context(
1571: p_entity_code => 'HEADER_SCREDIT'
1586: ,p_constraint_id => null
1587: );
1588:
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
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;
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;
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;
1610: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1611: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','STATUS_FLAG');
1612: -- OE_MSG_PUB.Add;
1630: Set message context for header payment
1631: -----------------------------------------------------------
1632: */
1633: IF l_debug_level > 0 THEN
1634: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT FOR HEADER PAYMENTS' ) ;
1635: END IF;
1636:
1637: OE_MSG_PUB.set_msg_context(
1638: p_entity_code => 'HEADER_PAYMENT'
1653: ,p_constraint_id => null
1654: );
1655:
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
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;
1665: END IF;
1666:
1667: IF p_x_header_payment_tbl(I).STATUS_FLAG <> FND_API.G_MISS_CHAR
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;
1672: END IF;
1673:
1674: END LOOP;
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;
1714: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1715: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','DISCOUNT_ID');
1716: -- OE_MSG_PUB.Add;
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;
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;
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;
1738: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1739: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','PERCENT');
1740: -- OE_MSG_PUB.Add;
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;
1750: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1751: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','APPLIED_FLAG');
1752: -- OE_MSG_PUB.Add;
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;
1762: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1763: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','ARITHMETIC_OPERATOR');
1764: -- OE_MSG_PUB.Add;
1781: Set message context for line attributes
1782: -----------------------------------------------------------
1783: */
1784: IF l_debug_level > 0 THEN
1785: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT FOR LINE ATTRIBUTE' ) ;
1786: END IF;
1787:
1788: OE_MSG_PUB.set_msg_context(
1789: p_entity_code => 'LINE_PATTS'
1805: ,p_constraint_id => null
1806: );
1807: ---- Derived columns to be found
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
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;
1817: END IF;
1818: /*
1819: IF p_x_line_price_att_tbl(I).ORG_ID <> FND_API.G_MISS_NUM
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:
1824: IF p_x_line_price_att_tbl(I).PRICING_CONTEXT <> FND_API.G_MISS_CHAR
1825: THEN
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: */
1829: IF p_x_line_price_att_tbl(I).CHANGE_REQUEST_CODE <> FND_API.G_MISS_CHAR
1830: THEN
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;
1834: END IF;
1835: /*
1836: IF p_x_line_price_att_tbl(I).STATUS_FLAG <> FND_API.G_MISS_CHAR
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: */
1841: END LOOP;
1842:
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;
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;
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;
1891: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1892: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','STATUS_FLAG');
1893: -- OE_MSG_PUB.Add;
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;
1936: END IF;
1937:
1938: IF p_x_line_payment_tbl(I).STATUS_FLAG <> FND_API.G_MISS_CHAR
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;
1943: END IF;
1944:
1945: END LOOP;
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;
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;
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;
1996: -- FND_MESSAGE.SET_NAME('ONT','OE_OIM_DERIVED_COLUMNS');
1997: -- FND_MESSAGE.SET_TOKEN('DERIVED_COL','STATUS_FLAG');
1998: -- OE_MSG_PUB.Add;
2004:
2005: EXCEPTION
2006: WHEN OTHERS THEN
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');
2116: l_tracking_quantity_ind VARCHAR2(30); -- INVCONV
2117: l_secondary_default_ind VARCHAR2(30); -- INVCONV
2118: l_secondary_uom_code varchar2(3) := NULL; -- INVCONV
2119: l_buffer VARCHAR2(2000); -- INVCONV
2120: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2121: l_org_id NUMBER;
2122:
2123: CURSOR c_item ( discrete_org_id IN NUMBER -- INVCONV
2124: , discrete_item_id IN NUMBER) IS
2139: Initialize
2140: -----------------------------------------------------------
2141: */
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:
2153: fnd_profile.get('ONT_3A7_RESPONSE_REQUIRED', l_cso_response_profile);
2154: l_cso_response_profile := nvl(l_cso_response_profile, 'N');
2155:
2156: IF l_debug_level > 0 THEN
2157: oe_debug_pub.add( 'CUSTOMER KEY PROFILE SETTING = '||l_customer_key_profile ) ;
2158: oe_debug_pub.add( 'CHANGE SO RESPONSE REQUIRED PROFILE SETTING = '||l_cso_response_profile ) ;
2159: END IF;
2160: End If;
2161:
2154: l_cso_response_profile := nvl(l_cso_response_profile, 'N');
2155:
2156: IF l_debug_level > 0 THEN
2157: oe_debug_pub.add( 'CUSTOMER KEY PROFILE SETTING = '||l_customer_key_profile ) ;
2158: oe_debug_pub.add( 'CHANGE SO RESPONSE REQUIRED PROFILE SETTING = '||l_cso_response_profile ) ;
2159: END IF;
2160: End If;
2161:
2162: -- {Select parameter for add customers functionality
2161:
2162: -- {Select parameter for add customers functionality
2163: fnd_profile.get('ONT_ADD_CUSTOMER_OI',G_ONT_ADD_CUSTOMER);
2164: IF l_debug_level > 0 THEN
2165: oe_debug_pub.add( 'ONT_ADD_CUSTOMER PROFILE = '||G_ONT_ADD_CUSTOMER ) ;
2166: END IF;
2167:
2168: fnd_profile.get('ONT_TRANSACTION_PROCESSING',G_ONT_TRANSACTION_PROCESSING);
2169: G_ONT_TRANSACTION_PROCESSING := nvl(G_ONT_TRANSACTION_PROCESSING,'SYNCHRONOUS');
2175: Set message context
2176: -----------------------------------------------------------
2177: */
2178: IF l_debug_level > 0 THEN
2179: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT' ) ;
2180: END IF;
2181:
2182: OE_MSG_PUB.set_msg_context(
2183: p_entity_code => 'HEADER'
2202: Validate order source
2203: -----------------------------------------------------------
2204: */
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
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;
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;
2221: Validate orig sys document ref
2222: -----------------------------------------------------------
2223: */
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
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;
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;
2244:
2245: If OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110510' Then
2246:
2247: IF l_debug_level > 0 THEN
2248: oe_debug_pub.add( 'BEFORE VALIDATING CHANGE SEQUENCE' ) ;
2249: END IF;
2250:
2251: IF p_x_header_rec.operation = OE_Globals.G_OPR_UPDATE THEN
2252:
2256: -----------------------------------------------------------
2257: IF p_x_header_rec.force_apply_flag <> 'Y' THEN
2258:
2259: IF l_debug_level > 0 THEN
2260: oe_debug_pub.add( 'VALIDATING CHANGE SEQUENCE' ) ;
2261:
2262: END IF;
2263:
2264: BEGIN
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) ;
2280: oe_debug_pub.add('new change_seq:' || p_x_header_rec.change_sequence) ;
2281: END IF;
2282:
2283:
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) ;
2280: oe_debug_pub.add('new change_seq:' || p_x_header_rec.change_sequence) ;
2281: END IF;
2282:
2283:
2284: --CODE TO ACTUALLY Validate that incoming change_sequence is higher
2290:
2291: if (p_x_header_rec.change_sequence > l_c_change_sequence) then
2292:
2293: IF l_debug_level > 0 THEN
2294: oe_debug_pub.add('NEW CHANGE SEQ GREATER THAN OLD') ;
2295: END IF;
2296: else
2297: IF l_debug_level > 0 THEN
2298: oe_debug_pub.add( 'ERROR: NEW CHANGE SEQ LESS THAN OR EQUAL TO OLD') ;
2294: oe_debug_pub.add('NEW CHANGE SEQ GREATER THAN OLD') ;
2295: END IF;
2296: else
2297: IF l_debug_level > 0 THEN
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;
2305: end if;
2306: EXCEPTION
2307: WHEN NO_DATA_FOUND THEN
2308: IF l_debug_level > 0 THEN
2309: oe_debug_pub.add( 'IN NO_DATA_FOUND WHEN VALIDATING CHANGE_SEQUENCE' ) ;
2310: END IF;
2311: WHEN OTHERS THEN
2312: IF l_debug_level > 0 THEN
2313: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
2309: oe_debug_pub.add( 'IN NO_DATA_FOUND WHEN VALIDATING CHANGE_SEQUENCE' ) ;
2310: END IF;
2311: WHEN OTHERS THEN
2312: IF l_debug_level > 0 THEN
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;
2319: END IF;
2320: END; -- header change sequence is not null
2321: ELSE
2322: IF l_debug_level > 0 THEN
2323: oe_debug_pub.add( 'FORCE APPLY FLAG IS SET, NOT VALIDATING CHANGE_SEQUENCE' ) ;
2324: END IF;
2325: END IF; -- force apply flag not set
2326: END IF; -- If header operation code is update
2327:
2333: */
2334:
2335: --call check_derived_flags
2336: IF l_debug_level > 0 THEN
2337: oe_debug_pub.add( 'CALLING CHECK_DERIVED_FLAGS' ) ;
2338: END IF;
2339: CHECK_DERIVED_FLAGS(
2340: p_x_header_rec => p_x_header_rec
2341: ,p_x_header_adj_tbl => p_x_header_adj_tbl
2431: p_return_status := l_return_status;
2432: END IF;
2433: Else
2434: IF l_debug_level > 0 THEN
2435: oe_debug_pub.add( 'REF DATA PASSED BUT PARAMETER NOT SET' ) ;
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;
2457:
2458: IF UPPER(p_x_header_rec.booked_flag) = 'Y'
2459: THEN
2460: IF l_debug_level > 0 THEN
2461: oe_debug_pub.add( 'BOOKED FLAG IS SET' ) ;
2462: END IF;
2463: IF l_debug_level > 0 THEN
2464: oe_debug_pub.add( 'INSERTING RECORD IN ACTIONS TABLE' ) ;
2465: END IF;
2460: IF l_debug_level > 0 THEN
2461: oe_debug_pub.add( 'BOOKED FLAG IS SET' ) ;
2462: END IF;
2463: IF l_debug_level > 0 THEN
2464: oe_debug_pub.add( 'INSERTING RECORD IN ACTIONS TABLE' ) ;
2465: END IF;
2466: l_c_operation_code := 'BOOK_ORDER';
2467:
2468: p_x_action_request_tbl(p_x_action_request_tbl.COUNT +1).request_type
2481: AND p_x_header_rec.operation IN ('INSERT','CREATE','UPDATE','DELETE')
2482: THEN
2483: BEGIN
2484: IF l_debug_level > 0 THEN
2485: oe_debug_pub.add( 'BEFORE DERIVING REQ HEADER ID FOR INTERNAL ORDERS' ) ;
2486: END IF;
2487:
2488: p_x_header_rec.source_document_type_id :=
2489: OE_GLOBALS.G_ORDER_SOURCE_INTERNAL;
2510:
2511: EXCEPTION
2512: WHEN OTHERS THEN
2513: IF l_debug_level > 0 THEN
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;
2525: Validate header operation code
2526: -----------------------------------------------------------
2527: */
2528: IF l_debug_level > 0 THEN
2529: oe_debug_pub.add( 'BEFORE VALIDATING HEADER OPERATION CODE: '|| P_X_HEADER_REC.OPERATION ) ;
2530: END IF;
2531:
2532:
2533:
2538: -- Start for the fix of bug 1794206
2539: IF (p_x_header_rec.order_source_id = OE_GLOBALS.G_ORDER_SOURCE_INTERNAL)
2540: THEN
2541: IF l_debug_level > 0 THEN
2542: oe_debug_pub.add( 'BEFORE VALIDATING INTERNAL ORDER FOR INSERT OPR' ) ;
2543: END IF;
2544:
2545:
2546: SELECT 1 into l_count
2554: AND source_document_id = p_x_header_rec.source_document_id
2555: AND rownum < 2;
2556:
2557: IF l_debug_level > 0 THEN
2558: oe_debug_pub.add( 'AFTER VALIDATING INTERNAL ORDER FOR INSERT OPR' ) ;
2559: END IF;
2560: ELSE
2561: -- End for the fix of bug 1794206
2562: IF l_debug_level > 0 THEN
2559: END IF;
2560: ELSE
2561: -- End for the fix of bug 1794206
2562: IF l_debug_level > 0 THEN
2563: oe_debug_pub.add( 'BEFORE VALIDATING EXTERNAL ORDER FOR INSERT OPR' ) ;
2564: END IF;
2565:
2566: SELECT 1 into l_count
2567: FROM oe_order_headers
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' ) ;
2578: END IF;
2579: END IF;
2580:
2581: IF l_debug_level > 0 THEN
2578: END IF;
2579: END IF;
2580:
2581: IF l_debug_level > 0 THEN
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;
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' ) ;
2591: END IF;
2592: When others then
2593: IF l_debug_level > 0 THEN
2594: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO INSERT NEW ORDER... ' ) ;
2590: oe_debug_pub.add( 'VALID ORDER FOR INSERT' ) ;
2591: END IF;
2592: When others then
2593: IF l_debug_level > 0 THEN
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;
2619: p_x_header_rec.header_id := l_header_id;
2620: p_x_header_rec.order_number := l_order_number;
2621:
2622: IF l_debug_level > 0 THEN
2623: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) ) ;
2624: END IF;
2625: IF l_debug_level > 0 THEN
2626: oe_debug_pub.add( 'ORDER NUMBER: '||TO_CHAR ( P_X_HEADER_REC.ORDER_NUMBER ) ) ;
2627: END IF;
2622: IF l_debug_level > 0 THEN
2623: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) ) ;
2624: END IF;
2625: IF l_debug_level > 0 THEN
2626: oe_debug_pub.add( 'ORDER NUMBER: '||TO_CHAR ( P_X_HEADER_REC.ORDER_NUMBER ) ) ;
2627: END IF;
2628: Exception
2629: When no_data_found then
2630: IF l_debug_level > 0 THEN
2627: END IF;
2628: Exception
2629: When no_data_found then
2630: IF l_debug_level > 0 THEN
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;
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;
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;
2654:
2655: EXCEPTION
2656: WHEN OTHERS THEN
2657: IF l_debug_level > 0 THEN
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;
2698: -----------------------------------------------------------
2699: */
2700: l_price_adjustment_id := NULL;
2701: IF l_debug_level > 0 THEN
2702: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT FOR HEADER ADJUSTMENTS' ) ;
2703: END IF;
2704:
2705: OE_MSG_PUB.set_msg_context(
2706: p_entity_code => 'HEADER_ADJ'
2725: Validate orig sys discount ref for header
2726: -----------------------------------------------------------
2727: */
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
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;
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;
2743: Validate header adjustments operation code
2744: -----------------------------------------------------------
2745: */
2746: IF l_debug_level > 0 THEN
2747: oe_debug_pub.add( 'BEFORE VALIDATING HEADER ADJUSTMENTS OPERATION CODE' ) ;
2748: END IF;
2749:
2750: IF p_x_header_adj_tbl(I).operation NOT IN ('INSERT','CREATE',
2751: 'UPDATE','DELETE') OR
2756: (p_x_header_rec.operation IN ('DELETE') AND
2757: p_x_header_adj_tbl(I).operation NOT IN ('DELETE'))
2758: THEN
2759: IF l_debug_level > 0 THEN
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;
2768: IF p_x_header_adj_tbl(I).operation IN ('INSERT', 'CREATE')
2769: AND p_x_header_rec.operation = 'UPDATE'
2770: THEN
2771: IF l_debug_level > 0 THEN
2772: oe_debug_pub.add( 'NEW ADJUSTMENT FOR THE EXISITNG HEARDER_ID:' || P_X_HEADER_REC.HEADER_ID ) ;
2773: END IF;
2774: IF l_debug_level > 0 THEN
2775: oe_debug_pub.add( 'NEW ADJUSTMENT FOR THE EXISITNG HEARDER_ID:' || L_HEADER_ID ) ;
2776: END IF;
2771: IF l_debug_level > 0 THEN
2772: oe_debug_pub.add( 'NEW ADJUSTMENT FOR THE EXISITNG HEARDER_ID:' || P_X_HEADER_REC.HEADER_ID ) ;
2773: END IF;
2774: IF l_debug_level > 0 THEN
2775: oe_debug_pub.add( 'NEW ADJUSTMENT FOR THE EXISITNG HEARDER_ID:' || L_HEADER_ID ) ;
2776: END IF;
2777: p_x_header_adj_tbl(I).header_id := l_header_id;
2778: Begin
2779:
2785: p_x_header_adj_tbl(I).orig_sys_discount_ref
2786: AND rownum < 2;
2787:
2788: IF l_debug_level > 0 THEN
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;
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' ) ;
2798: END IF;
2799: When others then
2800: IF l_debug_level > 0 THEN
2801: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW HDR PRICE ADJ... ' ) ;
2797: oe_debug_pub.add( 'VALID HEADER LEVEL PRICE ADJ FOR INSERT' ) ;
2798: END IF;
2799: When others then
2800: IF l_debug_level > 0 THEN
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;
2810: AND p_x_header_rec.operation IN ('UPDATE','DELETE')
2811: THEN
2812: Begin
2813: IF l_debug_level > 0 THEN
2814: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) ) ;
2815: END IF;
2816: IF l_debug_level > 0 THEN
2817: oe_debug_pub.add( 'DISCOUNT REF: '||P_X_HEADER_ADJ_TBL ( I ) .ORIG_SYS_DISCOUNT_REF ) ;
2818: END IF;
2813: IF l_debug_level > 0 THEN
2814: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) ) ;
2815: END IF;
2816: IF l_debug_level > 0 THEN
2817: oe_debug_pub.add( 'DISCOUNT REF: '||P_X_HEADER_ADJ_TBL ( I ) .ORIG_SYS_DISCOUNT_REF ) ;
2818: END IF;
2819: SELECT price_adjustment_id
2820: INTO l_price_adjustment_id
2821: FROM oe_price_adjustments
2826:
2827: p_x_header_adj_tbl(I).header_id := l_header_id;
2828: p_x_header_adj_tbl(I).price_adjustment_id := l_price_adjustment_id;
2829: IF l_debug_level > 0 THEN
2830: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_ADJ_TBL ( I ) .HEADER_ID ) ) ;
2831: END IF;
2832: IF l_debug_level > 0 THEN
2833: oe_debug_pub.add( 'ADJUST ID: '||TO_CHAR ( P_X_HEADER_ADJ_TBL ( I ) .PRICE_ADJUSTMENT_ID ) ) ;
2834: END IF;
2829: IF l_debug_level > 0 THEN
2830: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_ADJ_TBL ( I ) .HEADER_ID ) ) ;
2831: END IF;
2832: IF l_debug_level > 0 THEN
2833: oe_debug_pub.add( 'ADJUST ID: '||TO_CHAR ( P_X_HEADER_ADJ_TBL ( I ) .PRICE_ADJUSTMENT_ID ) ) ;
2834: END IF;
2835:
2836: Exception
2837: When no_data_found then
2835:
2836: Exception
2837: When no_data_found then
2838: IF l_debug_level > 0 THEN
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;
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;
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;
2874: x_type =>l_type);
2875:
2876: IF l_type NOT IN ('DIS','FREIGHT_CHARGE','PROMOLINE','COUPON','PROMO','SUR') THEN
2877: IF l_debug_level > 0 THEN
2878: oe_debug_pub.add( 'OEXVIMSB.PLS -> NOT A VALID DISCOUNT/COUPON TYPE' ) ;
2879: END IF;
2880: IF l_debug_level > 0 THEN
2881: oe_debug_pub.add( 'NOT VALID PROMOTION NAME =' ||P_X_HEADER_ADJ_VAL_TBL ( I ) .LIST_NAME ) ;
2882: END IF;
2877: IF l_debug_level > 0 THEN
2878: oe_debug_pub.add( 'OEXVIMSB.PLS -> NOT A VALID DISCOUNT/COUPON TYPE' ) ;
2879: END IF;
2880: IF l_debug_level > 0 THEN
2881: oe_debug_pub.add( 'NOT VALID PROMOTION NAME =' ||P_X_HEADER_ADJ_VAL_TBL ( I ) .LIST_NAME ) ;
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;
2893: p_return_status := l_return_status;
2894: return;
2895: END IF;
2896: IF l_debug_level > 0 THEN
2897: oe_debug_pub.add( 'LIST_LINE_TYPE_CODE = '||L_TYPE ) ;
2898: END IF;
2899: IF l_debug_level > 0 THEN
2900: oe_debug_pub.add( 'LIST HEADER ID = '||L_LIST_HEADER_ID ) ;
2901: END IF;
2896: IF l_debug_level > 0 THEN
2897: oe_debug_pub.add( 'LIST_LINE_TYPE_CODE = '||L_TYPE ) ;
2898: END IF;
2899: IF l_debug_level > 0 THEN
2900: oe_debug_pub.add( 'LIST HEADER ID = '||L_LIST_HEADER_ID ) ;
2901: END IF;
2902: IF l_debug_level > 0 THEN
2903: oe_debug_pub.add( 'LIST LINE ID = '||L_LIST_LINE_ID ) ;
2904: END IF;
2899: IF l_debug_level > 0 THEN
2900: oe_debug_pub.add( 'LIST HEADER ID = '||L_LIST_HEADER_ID ) ;
2901: END IF;
2902: IF l_debug_level > 0 THEN
2903: oe_debug_pub.add( 'LIST LINE ID = '||L_LIST_LINE_ID ) ;
2904: END IF;
2905: IF l_type In ('DIS','SUR') THEN
2906: p_x_header_adj_tbl(I).list_header_id :=l_list_header_id;
2907: p_x_header_adj_tbl(I).list_line_id :=l_list_line_id;
2923: p_x_header_adj_val_tbl.DELETE (I);
2924: END IF;
2925: IF l_type = 'COUPON' THEN
2926: IF l_debug_level > 0 THEN
2927: oe_debug_pub.add( 'SETTING PRICING_REC FOR COUPON' ) ;
2928: END IF;
2929: l_header_price_att_tbl(I).pricing_context :='MODLIST';
2930: l_header_price_att_tbl(I).flex_title :='QP_ATTR_DEFNS_QUALIFIER';
2931: l_header_price_att_tbl(I).pricing_attribute3 :=l_list_line_id;
2936: END IF;
2937:
2938: IF l_type='PROMO' THEN
2939: IF l_debug_level > 0 THEN
2940: oe_debug_pub.add( 'SETTING PRICING_REC FOR PROMO' ) ;
2941: END IF;
2942: l_header_price_att_tbl(I).pricing_context :='MODLIST';
2943: l_header_price_att_tbl(I).flex_title :='QP_ATTR_DEFNS_QUALIFIER';
2944: l_header_price_att_tbl(I).pricing_attribute1 := l_list_header_id;
2952:
2953: END LOOP;
2954:
2955: IF l_debug_level > 0 THEN
2956: oe_debug_pub.add( 'P_X_HEADER_ATT_TBL.COUNT: '||TO_CHAR ( P_X_HEADER_PRICE_ATT_TBL.COUNT ) , 1 ) ;
2957: END IF;
2958:
2959: FOR I in 1..p_x_header_price_att_tbl.count
2960: LOOP
2962: Set message context for header atts
2963: -----------------------------------------------------------
2964: */
2965: IF l_debug_level > 0 THEN
2966: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT FOR HEADER ATTS' ) ;
2967: END IF;
2968:
2969: OE_MSG_PUB.set_msg_context(
2970: p_entity_code => 'HEADER_PATTS'
2989: Validate orig sys documentt ref for header
2990: -----------------------------------------------------------
2991: */
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
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;
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;
3007: Validate header atts operation code
3008: -----------------------------------------------------------
3009: */
3010: IF l_debug_level > 0 THEN
3011: oe_debug_pub.add( 'BEFORE VALIDATING HEADER ATTS OPERATION CODE' ) ;
3012: END IF;
3013:
3014: IF p_x_header_price_att_tbl(I).operation NOT IN ('INSERT','CREATE',
3015: 'UPDATE','DELETE') OR
3020: (p_x_header_rec.operation IN ('DELETE') AND
3021: p_x_header_price_att_tbl(I).operation NOT IN ('DELETE'))
3022: THEN
3023: IF l_debug_level > 0 THEN
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;
3031: IF p_x_header_price_att_tbl(I).operation IN ('INSERT', 'CREATE')
3032: AND p_x_header_rec.operation = 'UPDATE'
3033: THEN
3034: IF l_debug_level > 0 THEN
3035: oe_debug_pub.add( 'NEW ATT FOR THE EXISITNG HEARDER_ID:' || P_X_HEADER_REC.HEADER_ID ) ;
3036: END IF;
3037: IF l_debug_level > 0 THEN
3038: oe_debug_pub.add( 'NEW ATT FOR THE EXISITNG HEARDER_ID:' || L_HEADER_ID ) ;
3039: END IF;
3034: IF l_debug_level > 0 THEN
3035: oe_debug_pub.add( 'NEW ATT FOR THE EXISITNG HEARDER_ID:' || P_X_HEADER_REC.HEADER_ID ) ;
3036: END IF;
3037: IF l_debug_level > 0 THEN
3038: oe_debug_pub.add( 'NEW ATT FOR THE EXISITNG HEARDER_ID:' || L_HEADER_ID ) ;
3039: END IF;
3040: p_x_header_price_att_tbl(I).header_id := l_header_id;
3041: Begin
3042:
3048: p_x_header_price_att_tbl(I).orig_sys_atts_ref
3049: AND rownum < 2;
3050:
3051: IF l_debug_level > 0 THEN
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;
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' ) ;
3061: END IF;
3062: When others then
3063: IF l_debug_level > 0 THEN
3064: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW HDR PRICE ATT... ' ) ;
3060: oe_debug_pub.add( 'VALID HEADER LEVEL PRICE ATT FOR INSERT' ) ;
3061: END IF;
3062: When others then
3063: IF l_debug_level > 0 THEN
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;
3073: AND p_x_header_rec.operation IN ('UPDATE','DELETE')
3074: THEN
3075: Begin
3076: IF l_debug_level > 0 THEN
3077: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) ) ;
3078: END IF;
3079: IF l_debug_level > 0 THEN
3080: oe_debug_pub.add( 'ATTRIBUTE REF: '||P_X_HEADER_PRICE_ATT_TBL ( I ) .ORIG_SYS_ATTS_REF ) ;
3081: END IF;
3076: IF l_debug_level > 0 THEN
3077: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) ) ;
3078: END IF;
3079: IF l_debug_level > 0 THEN
3080: oe_debug_pub.add( 'ATTRIBUTE REF: '||P_X_HEADER_PRICE_ATT_TBL ( I ) .ORIG_SYS_ATTS_REF ) ;
3081: END IF;
3082: SELECT order_price_attrib_id
3083: INTO l_price_attrib_id
3084: FROM oe_order_price_attribs
3089:
3090: p_x_header_price_att_tbl(I).header_id := l_header_id;
3091: p_x_header_price_att_tbl(I).order_price_attrib_id := l_price_attrib_id;
3092: IF l_debug_level > 0 THEN
3093: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_PRICE_ATT_TBL ( I ) .HEADER_ID ) ) ;
3094: END IF;
3095: -- oe_debug_pub.add('Atttribute id: '||to_char(p_x_header_att_tbl(I).order_price_attrib_id));
3096:
3097: Exception
3091: p_x_header_price_att_tbl(I).order_price_attrib_id := l_price_attrib_id;
3092: IF l_debug_level > 0 THEN
3093: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_PRICE_ATT_TBL ( I ) .HEADER_ID ) ) ;
3094: END IF;
3095: -- oe_debug_pub.add('Atttribute id: '||to_char(p_x_header_att_tbl(I).order_price_attrib_id));
3096:
3097: Exception
3098: When no_data_found then
3099: IF l_debug_level > 0 THEN
3096:
3097: Exception
3098: When no_data_found then
3099: IF l_debug_level > 0 THEN
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;
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;
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;
3117:
3118: l_last_index :=p_x_header_price_att_tbl.LAST;
3119: IF l_last_index IS NULL THEN
3120: IF l_debug_level > 0 THEN
3121: oe_debug_pub.add( 'SETTING L_LAST_INDEX TO ZERO' ) ;
3122: END IF;
3123: l_last_index := 0;
3124: END IF;
3125: IF l_debug_level > 0 THEN
3122: END IF;
3123: l_last_index := 0;
3124: END IF;
3125: IF l_debug_level > 0 THEN
3126: oe_debug_pub.add( 'L_LAST_INDEX1 = '||L_LAST_INDEX ) ;
3127: END IF;
3128:
3129: FOR I IN 1..l_header_price_att_tbl.COUNT
3130: LOOP
3128:
3129: FOR I IN 1..l_header_price_att_tbl.COUNT
3130: LOOP
3131: IF l_debug_level > 0 THEN
3132: oe_debug_pub.add( 'CREATING REC IN PRICING_REC' ) ;
3133: END IF;
3134: l_last_index := l_last_index+1;
3135: IF l_debug_level > 0 THEN
3136: oe_debug_pub.add( 'L_LAST_INDEX2 = '||L_LAST_INDEX ) ;
3132: oe_debug_pub.add( 'CREATING REC IN PRICING_REC' ) ;
3133: END IF;
3134: l_last_index := l_last_index+1;
3135: IF l_debug_level > 0 THEN
3136: oe_debug_pub.add( 'L_LAST_INDEX2 = '||L_LAST_INDEX ) ;
3137: END IF;
3138: p_x_header_price_att_tbl(l_last_index).pricing_attribute1 := l_header_price_att_tbl(I).pricing_attribute1;
3139: p_x_header_price_att_tbl(l_last_index).pricing_attribute2 := l_header_price_att_tbl(I).pricing_attribute2;
3140: p_x_header_price_att_tbl(l_last_index).pricing_attribute3 :=l_header_price_att_tbl(I).pricing_attribute3;
3153: -----------------------------------------------------------
3154: */
3155: l_sales_credit_id := NULL;
3156: IF l_debug_level > 0 THEN
3157: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT FOR HEADER SALES CREDITS' ) ;
3158: END IF;
3159:
3160: OE_MSG_PUB.set_msg_context(
3161: p_entity_code => 'HEADER_SCREDIT'
3180: Validate orig sys credit ref for header
3181: -----------------------------------------------------------
3182: */
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
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;
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;
3198: Validate header sales credits operation code
3199: -----------------------------------------------------------
3200: */
3201: IF l_debug_level > 0 THEN
3202: oe_debug_pub.add( 'BEFORE VALIDATING HEADER SALES CREDITS OPERATION CODE' ) ;
3203: END IF;
3204:
3205: IF p_x_header_scredit_tbl(I).operation NOT IN ('INSERT','CREATE',
3206: 'UPDATE','DELETE') OR
3212: (p_x_header_rec.operation IN ('DELETE') AND
3213: p_x_header_scredit_tbl(I).operation NOT IN ('DELETE'))
3214: THEN
3215: IF l_debug_level > 0 THEN
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;
3226: THEN
3227: Begin
3228: p_x_header_scredit_tbl(I).header_id := l_header_id;
3229: IF l_debug_level > 0 THEN
3230: oe_debug_pub.add( 'NEW SCREDITS FOR THE EXISITNG HEARDER_ID:' || TO_CHAR ( P_X_HEADER_SCREDIT_TBL ( I ) .HEADER_ID ) ) ;
3231: END IF;
3232:
3233: SELECT 1 into l_count
3234: FROM oe_sales_credits
3238: p_x_header_scredit_tbl(I).orig_sys_credit_ref
3239: AND rownum < 2;
3240:
3241: IF l_debug_level > 0 THEN
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;
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' ) ;
3251: END IF;
3252: When others then
3253: IF l_debug_level > 0 THEN
3254: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW HDR SALES CREDIT... ' ) ;
3250: oe_debug_pub.add( 'VALID HEADER LEVEL SALES CREDIT FOR INSERT' ) ;
3251: END IF;
3252: When others then
3253: IF l_debug_level > 0 THEN
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;
3265: THEN
3266: Begin
3267: p_x_header_scredit_tbl(I).header_id := l_header_id;
3268: IF l_debug_level > 0 THEN
3269: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_SCREDIT_TBL ( I ) .HEADER_ID ) ) ;
3270: END IF;
3271: IF l_debug_level > 0 THEN
3272: oe_debug_pub.add( 'SCREDIT REF: '||P_X_HEADER_SCREDIT_TBL ( I ) .ORIG_SYS_CREDIT_REF ) ;
3273: END IF;
3268: IF l_debug_level > 0 THEN
3269: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_SCREDIT_TBL ( I ) .HEADER_ID ) ) ;
3270: END IF;
3271: IF l_debug_level > 0 THEN
3272: oe_debug_pub.add( 'SCREDIT REF: '||P_X_HEADER_SCREDIT_TBL ( I ) .ORIG_SYS_CREDIT_REF ) ;
3273: END IF;
3274: SELECT sales_credit_id
3275: INTO l_sales_credit_id
3276: FROM oe_sales_credits
3280: p_x_header_scredit_tbl(I).orig_sys_credit_ref;
3281:
3282: p_x_header_scredit_tbl(I).sales_credit_id := l_sales_credit_id;
3283: IF l_debug_level > 0 THEN
3284: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_SCREDIT_TBL ( I ) .HEADER_ID ) ) ;
3285: END IF;
3286: IF l_debug_level > 0 THEN
3287: oe_debug_pub.add( 'SCREDIT ID: '||TO_CHAR ( P_X_HEADER_SCREDIT_TBL ( I ) .SALES_CREDIT_ID ) ) ;
3288: END IF;
3283: IF l_debug_level > 0 THEN
3284: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_SCREDIT_TBL ( I ) .HEADER_ID ) ) ;
3285: END IF;
3286: IF l_debug_level > 0 THEN
3287: oe_debug_pub.add( 'SCREDIT ID: '||TO_CHAR ( P_X_HEADER_SCREDIT_TBL ( I ) .SALES_CREDIT_ID ) ) ;
3288: END IF;
3289:
3290: Exception
3291: When no_data_found then
3289:
3290: Exception
3291: When no_data_found then
3292: IF l_debug_level > 0 THEN
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;
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;
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;
3316: -----------------------------------------------------------
3317: */
3318: -- l_sales_credit_id := NULL;
3319: IF l_debug_level > 0 THEN
3320: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT FOR HEADER PAYMENTS' ) ;
3321: END IF;
3322:
3323: OE_MSG_PUB.set_msg_context(
3324: p_entity_code => 'HEADER_PAYMENT'
3343: Validate orig sys payment ref for header
3344: -----------------------------------------------------------
3345: */
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
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;
3355: /* multiple payment: new message */
3356: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_PAYMENT_REF');
3357: OE_MSG_PUB.Add;
3362: Validate header payment operation code
3363: -----------------------------------------------------------
3364: */
3365: IF l_debug_level > 0 THEN
3366: oe_debug_pub.add( 'BEFORE VALIDATING HEADER PAYMENT OPERATION CODE' ) ;
3367: END IF;
3368:
3369: IF p_x_header_payment_tbl(I).operation NOT IN ('INSERT','CREATE',
3370: 'UPDATE','DELETE') OR
3376: (p_x_header_rec.operation IN ('DELETE') AND
3377: p_x_header_payment_tbl(I).operation NOT IN ('DELETE'))
3378: THEN
3379: IF l_debug_level > 0 THEN
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;
3389: THEN
3390: Begin
3391: p_x_header_payment_tbl(I).header_id := l_header_id;
3392: IF l_debug_level > 0 THEN
3393: oe_debug_pub.add( 'NEW PAYMENT FOR THE EXISITNG HEARDER_ID:' || TO_CHAR ( P_X_HEADER_payment_TBL ( I ) .HEADER_ID ) ) ;
3394: END IF;
3395:
3396: SELECT 1 into l_count
3397: FROM oe_payments
3401: p_x_header_payment_tbl(I).orig_sys_payment_ref
3402: AND rownum < 2;
3403:
3404: IF l_debug_level > 0 THEN
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;
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' ) ;
3414: END IF;
3415: When others then
3416: IF l_debug_level > 0 THEN
3417: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW HDR PAYMENT... ' ) ;
3413: oe_debug_pub.add( 'VALID HEADER LEVEL PAYMENT FOR INSERT' ) ;
3414: END IF;
3415: When others then
3416: IF l_debug_level > 0 THEN
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;
3428: THEN
3429: Begin
3430: p_x_header_payment_tbl(I).header_id := l_header_id;
3431: IF l_debug_level > 0 THEN
3432: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_payment_TBL ( I ) .HEADER_ID ) ) ;
3433: END IF;
3434: IF l_debug_level > 0 THEN
3435: oe_debug_pub.add( 'payment REF: '||P_X_HEADER_payment_TBL ( I ) .ORIG_SYS_PAYMENT_REF ) ;
3436: END IF;
3431: IF l_debug_level > 0 THEN
3432: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_payment_TBL ( I ) .HEADER_ID ) ) ;
3433: END IF;
3434: IF l_debug_level > 0 THEN
3435: oe_debug_pub.add( 'payment REF: '||P_X_HEADER_payment_TBL ( I ) .ORIG_SYS_PAYMENT_REF ) ;
3436: END IF;
3437: SELECT header_id
3438: INTO l_header_id
3439: FROM oe_payments
3446: p_x_header_payment_tbl(I).header_id := l_header_id;
3447: p_x_header_payment_tbl(I).line_id := NULL;
3448:
3449: IF l_debug_level > 0 THEN
3450: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_payment_TBL ( I ) .HEADER_ID ) ) ;
3451: END IF;
3452: IF l_debug_level > 0 THEN
3453: oe_debug_pub.add( 'header payment ref: '||P_X_HEADER_payment_TBL ( I ) .orig_sys_payment_ref ) ;
3454: END IF;
3449: IF l_debug_level > 0 THEN
3450: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_payment_TBL ( I ) .HEADER_ID ) ) ;
3451: END IF;
3452: IF l_debug_level > 0 THEN
3453: oe_debug_pub.add( 'header payment ref: '||P_X_HEADER_payment_TBL ( I ) .orig_sys_payment_ref ) ;
3454: END IF;
3455:
3456: Exception
3457: When no_data_found then
3455:
3456: Exception
3457: When no_data_found then
3458: IF l_debug_level > 0 THEN
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;
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;
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;
3506:
3507: l_line_count := l_line_count + 1;
3508:
3509: IF l_debug_level > 0 THEN
3510: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT FOR THE LINE' ) ;
3511: END IF;
3512:
3513: OE_MSG_PUB.set_msg_context(
3514: p_entity_code => 'LINE'
3533: Validate orig sys line ref
3534: -----------------------------------------------------------
3535: */
3536: IF l_debug_level > 0 THEN
3537: oe_debug_pub.add( 'BEFORE VALIDATING ORIG_SYS_LINE_REF' ) ;
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... ' ) ;
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;
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');
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');
3568: OE_MSG_PUB.Add;
3569: p_return_status := FND_API.G_RET_STS_ERROR;
3601: --IF oe_line_util.Process_Characteristics INVCONV
3602: -- (p_x_line_tbl(I).inventory_item_id,p_x_line_tbl(I).ship_from_org_id,l_item_rec) THEN
3603:
3604: IF l_debug_level > 0 THEN
3605: oe_debug_pub.add( 'BEFORE VALIDATING ORDERED_QUANTITY_UOM2' ) ;
3606: END IF;
3607: /*oe_debug_pub.add('PROCESS ' ) ;
3608: oe_debug_pub.ADD(' dual ind : '|| l_item_rec.dualum_ind,1);
3609: oe_debug_pub.ADD(' l_item_rec.opm_item_um2 : '|| l_item_rec.opm_item_um2,1);
3603:
3604: IF l_debug_level > 0 THEN
3605: oe_debug_pub.add( 'BEFORE VALIDATING ORDERED_QUANTITY_UOM2' ) ;
3606: END IF;
3607: /*oe_debug_pub.add('PROCESS ' ) ;
3608: oe_debug_pub.ADD(' dual ind : '|| l_item_rec.dualum_ind,1);
3609: oe_debug_pub.ADD(' l_item_rec.opm_item_um2 : '|| l_item_rec.opm_item_um2,1);
3610: oe_debug_pub.ADD(' ordered_quantity_uom2 : '|| p_x_line_tbl(I).ordered_quantity_uom2,1); */
3611:
3604: IF l_debug_level > 0 THEN
3605: oe_debug_pub.add( 'BEFORE VALIDATING ORDERED_QUANTITY_UOM2' ) ;
3606: END IF;
3607: /*oe_debug_pub.add('PROCESS ' ) ;
3608: oe_debug_pub.ADD(' dual ind : '|| l_item_rec.dualum_ind,1);
3609: oe_debug_pub.ADD(' l_item_rec.opm_item_um2 : '|| l_item_rec.opm_item_um2,1);
3610: oe_debug_pub.ADD(' ordered_quantity_uom2 : '|| p_x_line_tbl(I).ordered_quantity_uom2,1); */
3611:
3612:
3605: oe_debug_pub.add( 'BEFORE VALIDATING ORDERED_QUANTITY_UOM2' ) ;
3606: END IF;
3607: /*oe_debug_pub.add('PROCESS ' ) ;
3608: oe_debug_pub.ADD(' dual ind : '|| l_item_rec.dualum_ind,1);
3609: oe_debug_pub.ADD(' l_item_rec.opm_item_um2 : '|| l_item_rec.opm_item_um2,1);
3610: oe_debug_pub.ADD(' ordered_quantity_uom2 : '|| p_x_line_tbl(I).ordered_quantity_uom2,1); */
3611:
3612:
3613: --IF l_item_rec.dualum_ind not in (1,2,3) THEN
3606: END IF;
3607: /*oe_debug_pub.add('PROCESS ' ) ;
3608: oe_debug_pub.ADD(' dual ind : '|| l_item_rec.dualum_ind,1);
3609: oe_debug_pub.ADD(' l_item_rec.opm_item_um2 : '|| l_item_rec.opm_item_um2,1);
3610: oe_debug_pub.ADD(' ordered_quantity_uom2 : '|| p_x_line_tbl(I).ordered_quantity_uom2,1); */
3611:
3612:
3613: --IF l_item_rec.dualum_ind not in (1,2,3) THEN
3614: IF l_tracking_quantity_ind <> 'PS' then -- INVCONV
3612:
3613: --IF l_item_rec.dualum_ind not in (1,2,3) THEN
3614: IF l_tracking_quantity_ind <> 'PS' then -- INVCONV
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... ' ) ;
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;
3624: IF l_debug_level > 0 THEN
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:
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:
3641: END IF; -- IF ( p_x_line_tbl(I).ordered_quantity_uom2 <> NULL
3642: END IF; --IF l_tracking_quantity_ind <> 'PS' then -- INVCONV
3655: If p_x_line_tbl(I).order_source_id = OE_Acknowledgment_Pub.G_XML_ORDER_SOURCE_ID And
3656: p_x_line_tbl(I).xml_transaction_type_code = OE_Acknowledgment_Pub.G_TRANSACTION_CPO Then
3657: If p_x_line_tbl(I).ordered_quantity < 0 Then
3658: IF l_debug_level > 0 THEN
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;
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' ) ;
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;
3695: Validate line operation code
3696: -----------------------------------------------------------
3697: */
3698: IF l_debug_level > 0 THEN
3699: oe_debug_pub.add( 'BEFORE VALIDATING LINE OPERATION CODE: '|| P_X_LINE_TBL ( I ) .OPERATION ) ;
3700: END IF;
3701:
3702: IF (p_x_header_rec.operation IN ('INSERT','CREATE') AND
3703: p_x_line_tbl(I).operation NOT IN ('INSERT','CREATE'))OR
3706: (p_x_header_rec.operation IN ('DELETE') AND
3707: p_x_line_tbl(I).operation NOT IN ('DELETE'))
3708: THEN
3709: IF l_debug_level > 0 THEN
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;
3722: AND p_x_line_tbl(I).operation IN ('INSERT','CREATE','UPDATE','DELETE')
3723: THEN
3724: BEGIN
3725: IF l_debug_level > 0 THEN
3726: oe_debug_pub.add( 'BEFORE DERIVING REQ LINE ID FOR INTERNAL ORDERS' ) ;
3727: END IF;
3728:
3729: p_x_line_tbl(I).source_document_type_id :=
3730: OE_GLOBALS.G_ORDER_SOURCE_INTERNAL;
3760: WHERE from_organization_id = p_x_line_tbl(I).ship_from_org_id
3761: AND to_organization_id = l_po_dest_org_id
3762: AND nvl(default_flag,1) = 1;
3763: IF l_debug_level > 0 THEN
3764: oe_debug_pub.add( 'IN TRANSIT ' || L_INTRANSIT_TIME ) ;
3765: END IF;
3766: EXCEPTION
3767: WHEN OTHERS THEN
3768: IF l_debug_level > 0 THEN
3765: END IF;
3766: EXCEPTION
3767: WHEN OTHERS THEN
3768: IF l_debug_level > 0 THEN
3769: oe_debug_pub.add( 'IN TRANSIT IS SET TO 0' ) ;
3770: END IF;
3771: l_intransit_time := 0;
3772: END;
3773: END IF;
3774:
3775: -- Call to MRP package api Date_Offset for getting new
3776: -- schedule ship date
3777: IF l_debug_level > 0 THEN
3778: oe_debug_pub.add( 'BEFORE CHECKING THE REQUEST_DATE VALUE' ) ;
3779: END IF;
3780: -- bug 1727334, do not call if request_date is MISS
3781:
3782: -- This code is going to be here, but it should be removed
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;
3795:
3796: -- bug 1675148, call changed, now passing request_date
3797: -- previously it was schedule_ship_date(!)
3803: );
3804: END IF;
3805:
3806: IF l_debug_level > 0 THEN
3807: oe_debug_pub.add( 'OLD SCHEDULE_SHIP_DATE ' || P_X_LINE_TBL ( I ) .SCHEDULE_SHIP_DATE ) ;
3808: END IF;
3809: -- { Start of bug fix 1606316, If condition to check if
3810: -- schedule_ship_date is not passed by PO means it is
3811: -- MISS_DATE, do not assign the new found value of
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 ) ;
3819: END IF;
3820: End If;
3821: -- End of bug fix 1606316, the change is adding of IF, that is it}
3822:
3822:
3823: EXCEPTION
3824: WHEN OTHERS THEN
3825: IF l_debug_level > 0 THEN
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;
3865: END IF;
3866: p_x_line_tbl(I) := l_line_rec;
3867: Else
3868: IF l_debug_level > 0 THEN
3869: oe_debug_pub.add( 'REF DATA PASSED BUT PARAMETER NOT SET' ) ;
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;
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;
3900: l_rec_found := FALSE;
3901: BEGIN
3902: FOR Z in 1..p_x_line_tbl.count
3919: NULL;
3920: END;
3921: IF NOT l_rec_found THEN
3922: IF l_debug_level > 0 THEN
3923: oe_debug_pub.add( 'BSADRI NO SPLIT FROM FOUND' ) ;
3924: END IF;
3925: FND_MESSAGE.SET_NAME('ONT','OE_PC_SPLIT_VIOLATION');
3926: FND_MESSAGE.SET_TOKEN('OBJECT',
3927: p_x_line_tbl(I).split_from_line_ref);
3932: END IF;
3933: END IF;
3934: BEGIN
3935: IF l_debug_level > 0 THEN
3936: oe_debug_pub.add( 'NEW LINE FOR THE EXISITNG HEARDER_ID:' || TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) ) ;
3937: END IF;
3938: SELECT 1 into l_count
3939: FROM oe_order_lines
3940: WHERE header_id = l_header_id
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... ' ) ;
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;
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' ) ;
3959: END IF;
3960: When others then
3961: IF l_debug_level > 0 THEN
3962: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO INSERT A NEW LINE... ' ) ;
3958: oe_debug_pub.add( 'VALID ORDER LINE FOR INSERT' ) ;
3959: END IF;
3960: When others then
3961: IF l_debug_level > 0 THEN
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;
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;
3976: l_rec_found := FALSE;
3977: BEGIN
3978: FOR Z in 1..p_x_line_tbl.count
3993: NULL;
3994: END;
3995: IF NOT l_rec_found THEN
3996: IF l_debug_level > 0 THEN
3997: oe_debug_pub.add( 'BSADRI NO SPLIT FROM FOUND' ) ;
3998: END IF;
3999: FND_MESSAGE.SET_NAME('ONT','OE_PC_SPLIT_VIOLATION');
4000: FND_MESSAGE.SET_TOKEN('OBJECT',
4001: p_x_line_tbl(I).split_from_line_ref);
4006: END IF;
4007: END IF;
4008: BEGIN
4009: IF l_debug_level > 0 THEN
4010: oe_debug_pub.add( 'NEW LINE FOR THE EXISITNG HEARDER_ID:' || TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) ) ;
4011: END IF;
4012: SELECT 1 into l_count
4013: FROM oe_order_lines
4014: WHERE header_id = l_header_id
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. .. ' ) ;
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;
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' ) ;
4032: END IF;
4033: When others then
4034: IF l_debug_level > 0 THEN
4035: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO INSERT A NEW LINE... ' ) ;
4031: oe_debug_pub.add( 'VALID ORDER LINE FOR INSERT' ) ;
4032: END IF;
4033: When others then
4034: IF l_debug_level > 0 THEN
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;
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;
4048: l_rec_found := FALSE;
4049: BEGIN
4050: FOR Z in 1..p_x_line_tbl.count
4065: NULL;
4066: END;
4067: IF NOT l_rec_found THEN
4068: IF l_debug_level > 0 THEN
4069: oe_debug_pub.add( 'BSADRI NO SPLIT FROM FOUND' ) ;
4070: END IF;
4071: FND_MESSAGE.SET_NAME('ONT','OE_PC_SPLIT_VIOLATION');
4072: FND_MESSAGE.SET_TOKEN('OBJECT',
4073: p_x_line_tbl(I).split_from_line_ref);
4078: END IF;
4079: END IF;
4080: BEGIN
4081: IF l_debug_level > 0 THEN
4082: oe_debug_pub.add( 'NEW LINE FOR THE EXISITNG HEARDER_ID:' || TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) ) ;
4083: END IF;
4084: SELECT 1 into l_count
4085: FROM oe_order_lines
4086: WHERE header_id = l_header_id
4087: AND orig_sys_line_ref = p_x_line_tbl(I).orig_sys_line_ref;
4088:
4089: -- aksingh(10/11/2000) this is in process of being coded upto here
4090: 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;
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' ) ;
4100: END IF;
4101: When others then
4102: IF l_debug_level > 0 THEN
4103: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN TRYING TO INSERT A NEW LINE... ' ) ;
4099: oe_debug_pub.add( 'VALID ORDER LINE FOR INSERT' ) ;
4100: END IF;
4101: When others then
4102: IF l_debug_level > 0 THEN
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;
4114: THEN
4115:
4116:
4117: IF l_debug_level > 0 THEN
4118: oe_debug_pub.add( 'L_HEADER_ID: ' || l_header_id) ;
4119: oe_debug_pub.add( 'P_X_LINE_TBL(I).ORIG_SYS_LINE_REF' || p_x_line_tbl(I).orig_sys_line_ref) ;
4120: oe_debug_pub.add( 'P_X_LINE_TBL(I).ORIG_SYS_SHIPMENT_REF' || p_x_line_tbl(I).orig_sys_shipment_ref);
4121: oe_debug_pub.add( 'P_X_LINE_TBL(I).SOLD_TO_ORG_ID' || p_x_line_tbl(I).sold_to_org_id);
4122:
4115:
4116:
4117: IF l_debug_level > 0 THEN
4118: oe_debug_pub.add( 'L_HEADER_ID: ' || l_header_id) ;
4119: oe_debug_pub.add( 'P_X_LINE_TBL(I).ORIG_SYS_LINE_REF' || p_x_line_tbl(I).orig_sys_line_ref) ;
4120: oe_debug_pub.add( 'P_X_LINE_TBL(I).ORIG_SYS_SHIPMENT_REF' || p_x_line_tbl(I).orig_sys_shipment_ref);
4121: oe_debug_pub.add( 'P_X_LINE_TBL(I).SOLD_TO_ORG_ID' || p_x_line_tbl(I).sold_to_org_id);
4122:
4123: END IF;
4116:
4117: IF l_debug_level > 0 THEN
4118: oe_debug_pub.add( 'L_HEADER_ID: ' || l_header_id) ;
4119: oe_debug_pub.add( 'P_X_LINE_TBL(I).ORIG_SYS_LINE_REF' || p_x_line_tbl(I).orig_sys_line_ref) ;
4120: oe_debug_pub.add( 'P_X_LINE_TBL(I).ORIG_SYS_SHIPMENT_REF' || p_x_line_tbl(I).orig_sys_shipment_ref);
4121: oe_debug_pub.add( 'P_X_LINE_TBL(I).SOLD_TO_ORG_ID' || p_x_line_tbl(I).sold_to_org_id);
4122:
4123: END IF;
4124:
4117: IF l_debug_level > 0 THEN
4118: oe_debug_pub.add( 'L_HEADER_ID: ' || l_header_id) ;
4119: oe_debug_pub.add( 'P_X_LINE_TBL(I).ORIG_SYS_LINE_REF' || p_x_line_tbl(I).orig_sys_line_ref) ;
4120: oe_debug_pub.add( 'P_X_LINE_TBL(I).ORIG_SYS_SHIPMENT_REF' || p_x_line_tbl(I).orig_sys_shipment_ref);
4121: oe_debug_pub.add( 'P_X_LINE_TBL(I).SOLD_TO_ORG_ID' || p_x_line_tbl(I).sold_to_org_id);
4122:
4123: END IF;
4124:
4125:
4126: IF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110508' AND
4127: G_IMPORT_SHIPMENTS = 'YES' THEN
4128:
4129: IF l_debug_level > 0 THEN
4130: oe_debug_pub.add( 'G_IMPORT_SHIPMENTS WAS YES ' ) ;
4131: END IF;
4132:
4133: Begin
4134: l_c_change_sequence := NULL;
4155:
4156: Exception
4157: When no_data_found then
4158: IF l_debug_level > 0 THEN
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;
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;
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;
4188:
4189: Exception
4190: When no_data_found then
4191: IF l_debug_level > 0 THEN
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;
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;
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;
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
4217: || ' Unit Selling Price ' || p_x_line_tbl(I).unit_selling_price);
4218: END IF;
4219: END IF;
4220: END IF;
4222:
4223: ELSIF p_x_line_tbl(I).operation NOT IN ('INSERT','CREATE','UPDATE','DELETE')
4224: THEN
4225: IF l_debug_level > 0 THEN
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;
4233:
4234: EXCEPTION
4235: WHEN OTHERS THEN
4236: IF l_debug_level > 0 THEN
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;
4247: Validate item type code
4248: -----------------------------------------------------------
4249: */
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
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;
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' ) ;
4288: END IF;
4289: p_x_line_tbl(I).sold_to_org_id := oe_value_to_id.sold_to_org(
4290: p_sold_to_org => nvl(p_x_header_val_rec.sold_to_org,
4291: p_x_line_val_tbl(I).sold_to_org),
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
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)
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' ) ;
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;
4312: END IF;
4313: Exception
4314: When others then
4315: IF l_debug_level > 0 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;
4344: p_x_line_tbl(I).inventory_item_id IS NULL)
4345: THEN
4346: BEGIN
4347: IF l_debug_level > 0 THEN
4348: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS INT' ) ;
4349: END IF;
4350: SELECT inventory_item_id
4351: INTO l_inventory_item_id_int
4352: FROM mtl_system_items_vl
4360:
4361: EXCEPTION
4362: WHEN NO_DATA_FOUND THEN
4363: IF l_debug_level > 0 THEN
4364: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS INT - NO_DATA' ) ;
4365: END IF;
4366: When too_many_rows then
4367: IF l_debug_level > 0 THEN
4368: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS INT - TOO_MANY' ) ;
4364: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS INT - NO_DATA' ) ;
4365: END IF;
4366: When too_many_rows then
4367: IF l_debug_level > 0 THEN
4368: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS INT - TOO_MANY' ) ;
4369: END IF;
4370: IF l_debug_level > 0 THEN
4371: oe_debug_pub.add( 'TOO MANY ROWS ERROR: '||SQLERRM ) ;
4372: END IF;
4367: IF l_debug_level > 0 THEN
4368: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS INT - TOO_MANY' ) ;
4369: END IF;
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');
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
4379: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS INT - OTHERS' ) ;
4380: END IF;
4381: IF l_debug_level > 0 THEN
4382: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
4383: END IF;
4378: IF l_debug_level > 0 THEN
4379: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS INT - OTHERS' ) ;
4380: END IF;
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');
4397: p_x_line_tbl(I).ordered_item IS NOT NULL)
4398: THEN
4399: BEGIN
4400: IF l_debug_level > 0 THEN
4401: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS INT WITH ORDERED_ITEM' ) ;
4402: END IF;
4403: SELECT inventory_item_id
4404: INTO l_inventory_item_id_ord
4405: FROM mtl_system_items_vl
4411:
4412: EXCEPTION
4413: WHEN NO_DATA_FOUND THEN
4414: IF l_debug_level > 0 THEN
4415: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS INT - NO_DATA' ) ;
4416: END IF;
4417: When too_many_rows then
4418: IF l_debug_level > 0 THEN
4419: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS INT - TOO_MANY' ) ;
4415: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS INT - NO_DATA' ) ;
4416: END IF;
4417: When too_many_rows then
4418: IF l_debug_level > 0 THEN
4419: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS INT - TOO_MANY' ) ;
4420: END IF;
4421: IF l_debug_level > 0 THEN
4422: oe_debug_pub.add( 'TOO MANY ROWS ERROR: '||SQLERRM ) ;
4423: END IF;
4418: IF l_debug_level > 0 THEN
4419: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS INT - TOO_MANY' ) ;
4420: END IF;
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');
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
4430: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS INT - OTHERS' ) ;
4431: END IF;
4432: IF l_debug_level > 0 THEN
4433: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
4434: END IF;
4429: IF l_debug_level > 0 THEN
4430: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS INT - OTHERS' ) ;
4431: END IF;
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');
4441: p_x_line_tbl(I).ordered_item_id IS NOT NULL)
4442: THEN
4443: BEGIN
4444: IF l_debug_level > 0 THEN
4445: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDEN IS INT WITH ORDERED_ITEM_ID' ) ;
4446: END IF;
4447: SELECT customer_item_number
4448: INTO p_x_line_tbl(I).ordered_item
4449: FROM mtl_customer_items
4452:
4453: EXCEPTION
4454: WHEN NO_DATA_FOUND THEN
4455: IF l_debug_level > 0 THEN
4456: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS INT - NO_DATA' ) ;
4457: END IF;
4458: When too_many_rows then
4459: IF l_debug_level > 0 THEN
4460: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS INT - TOO_MANY' ) ;
4456: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS INT - NO_DATA' ) ;
4457: END IF;
4458: When too_many_rows then
4459: IF l_debug_level > 0 THEN
4460: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS INT - TOO_MANY' ) ;
4461: END IF;
4462: IF l_debug_level > 0 THEN
4463: oe_debug_pub.add( 'TOO MANY ROWS ERROR: '||SQLERRM ) ;
4464: END IF;
4459: IF l_debug_level > 0 THEN
4460: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS INT - TOO_MANY' ) ;
4461: END IF;
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');
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
4471: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS INT - OTHERS' ) ;
4472: END IF;
4473: IF l_debug_level > 0 THEN
4474: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
4475: END IF;
4470: IF l_debug_level > 0 THEN
4471: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS INT - OTHERS' ) ;
4472: END IF;
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');
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;
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
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' ) ;
4507: END IF;
4508: p_x_line_tbl(I).sold_to_org_id := oe_value_to_id.sold_to_org(
4509: p_sold_to_org => nvl(p_x_header_val_rec.sold_to_org,
4510: p_x_line_val_tbl(I).sold_to_org),
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
4518: oe_debug_pub.add( 'AFTER SOLDTOORGID '|| P_X_LINE_TBL ( I ) .SOLD_TO_ORG_ID ) ;
4519: END IF;
4520: END IF;
4521: -- 6 Lines are deleted from here, check the previous version for details.
4522:
4526: l_ordered_item_id := p_x_line_tbl(I).ordered_item_id;
4527: END IF;
4528:
4529: IF l_debug_level > 0 THEN
4530: oe_debug_pub.add( 'INVENTORY_ITEM_ID BEFORE CALLING CI_ATTRIBUTE_VALUE ' ||TO_CHAR ( P_X_LINE_TBL ( I ) .INVENTORY_ITEM_ID ) , 1 ) ;
4531: END IF;
4532: IF l_debug_level > 0 THEN
4533: oe_debug_pub.add( 'CUST ITEM ID = '||P_X_LINE_TBL ( I ) .ORDERED_ITEM_ID ) ;
4534: END IF;
4529: IF l_debug_level > 0 THEN
4530: oe_debug_pub.add( 'INVENTORY_ITEM_ID BEFORE CALLING CI_ATTRIBUTE_VALUE ' ||TO_CHAR ( P_X_LINE_TBL ( I ) .INVENTORY_ITEM_ID ) , 1 ) ;
4531: END IF;
4532: IF l_debug_level > 0 THEN
4533: oe_debug_pub.add( 'CUST ITEM ID = '||P_X_LINE_TBL ( I ) .ORDERED_ITEM_ID ) ;
4534: END IF;
4535: IF l_debug_level > 0 THEN
4536: oe_debug_pub.add( 'CUST ITEM ID = '||L_ORDERED_ITEM_ID ) ;
4537: END IF;
4532: IF l_debug_level > 0 THEN
4533: oe_debug_pub.add( 'CUST ITEM ID = '||P_X_LINE_TBL ( I ) .ORDERED_ITEM_ID ) ;
4534: END IF;
4535: IF l_debug_level > 0 THEN
4536: oe_debug_pub.add( 'CUST ITEM ID = '||L_ORDERED_ITEM_ID ) ;
4537: END IF;
4538: IF l_debug_level > 0 THEN
4539: oe_debug_pub.add( 'CUSTOMER_ID AT LINE = '||P_X_LINE_TBL ( I ) .SOLD_TO_ORG_ID ) ;
4540: END IF;
4535: IF l_debug_level > 0 THEN
4536: oe_debug_pub.add( 'CUST ITEM ID = '||L_ORDERED_ITEM_ID ) ;
4537: END IF;
4538: IF l_debug_level > 0 THEN
4539: oe_debug_pub.add( 'CUSTOMER_ID AT LINE = '||P_X_LINE_TBL ( I ) .SOLD_TO_ORG_ID ) ;
4540: END IF;
4541: IF l_debug_level > 0 THEN
4542: oe_debug_pub.add( 'CUSTOMER_ID AT HEADER = '||P_X_HEADER_REC.SOLD_TO_ORG_ID ) ;
4543: END IF;
4538: IF l_debug_level > 0 THEN
4539: oe_debug_pub.add( 'CUSTOMER_ID AT LINE = '||P_X_LINE_TBL ( I ) .SOLD_TO_ORG_ID ) ;
4540: END IF;
4541: IF l_debug_level > 0 THEN
4542: oe_debug_pub.add( 'CUSTOMER_ID AT HEADER = '||P_X_HEADER_REC.SOLD_TO_ORG_ID ) ;
4543: END IF;
4544: IF l_debug_level > 0 THEN
4545: oe_debug_pub.add( 'CUSTOMER_ITEM_NUMBER = '||P_X_LINE_TBL ( I ) .ORDERED_ITEM ) ;
4546: END IF;
4541: IF l_debug_level > 0 THEN
4542: oe_debug_pub.add( 'CUSTOMER_ID AT HEADER = '||P_X_HEADER_REC.SOLD_TO_ORG_ID ) ;
4543: END IF;
4544: IF l_debug_level > 0 THEN
4545: oe_debug_pub.add( 'CUSTOMER_ITEM_NUMBER = '||P_X_LINE_TBL ( I ) .ORDERED_ITEM ) ;
4546: 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;
4544: IF l_debug_level > 0 THEN
4545: oe_debug_pub.add( 'CUSTOMER_ITEM_NUMBER = '||P_X_LINE_TBL ( I ) .ORDERED_ITEM ) ;
4546: 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;
4576: AND u.site_use_id = p_x_line_tbl(I).ship_to_org_id
4577: AND u.site_use_code = 'SHIP_TO';
4578:
4579: IF l_debug_level > 0 THEN
4580: oe_debug_pub.add( 'SHIP TO ADDRESS:' || L_ADDRESS_ID||' - CUSTOMER:'||TO_CHAR ( L_CUST_ID ) ) ;
4581: END IF;
4582: IF l_cust_id <> p_x_line_tbl(I).sold_to_org_id THEN
4583: IF l_debug_level > 0 THEN
4584: oe_debug_pub.add( 'SOLD-TO CUSTOMER:'||TO_CHAR ( P_X_LINE_TBL ( I ) .SOLD_TO_ORG_ID ) ) ;
4580: oe_debug_pub.add( 'SHIP TO ADDRESS:' || L_ADDRESS_ID||' - CUSTOMER:'||TO_CHAR ( L_CUST_ID ) ) ;
4581: END IF;
4582: IF l_cust_id <> p_x_line_tbl(I).sold_to_org_id THEN
4583: IF l_debug_level > 0 THEN
4584: oe_debug_pub.add( 'SOLD-TO CUSTOMER:'||TO_CHAR ( P_X_LINE_TBL ( I ) .SOLD_TO_ORG_ID ) ) ;
4585: END IF;
4586: l_address_id := NULL;
4587: END IF;
4588: END IF;
4608: , Error_Message => l_error_message
4609: , Attribute_Value => l_inventory_item_id_cust
4610: );
4611: IF l_debug_level > 0 THEN
4612: oe_debug_pub.add( 'INV CUST VAL RET BY INVAPI = '||L_INVENTORY_ITEM_ID_CUST ) ;
4613: END IF;
4614: IF l_error_message IS NOT NULL
4615: THEN
4616: IF l_debug_level > 0 THEN
4613: END IF;
4614: IF l_error_message IS NOT NULL
4615: THEN
4616: IF l_debug_level > 0 THEN
4617: oe_debug_pub.add( 'CALLED TO THE INV API CI_ATTR_VAL RETURNED ERROR' ) ;
4618: END IF;
4619: FND_MESSAGE.SET_NAME('ONT','OE_INV_CUS_ITEM');
4620: FND_MESSAGE.SET_TOKEN('ERROR_CODE', l_error_code);
4621: FND_MESSAGE.SET_TOKEN('ERROR_MESSAGE', l_error_message);
4637: );
4638:
4639:
4640: IF l_debug_level > 0 THEN
4641: oe_debug_pub.add( 'ORDRD VAL RET BY INVAPI = '||P_X_LINE_TBL ( I ) .ORDERED_ITEM_ID ) ;
4642: END IF;
4643: IF l_error_message IS NOT NULL
4644: THEN
4645: IF l_debug_level > 0 THEN
4642: END IF;
4643: IF l_error_message IS NOT NULL
4644: THEN
4645: IF l_debug_level > 0 THEN
4646: oe_debug_pub.add( 'CALLED TO THE INV API CI_ATTR_VAL RETURNED ERROR:' || l_error_message ) ;
4647: END IF;
4648: FND_MESSAGE.SET_NAME('ONT','OE_INV_CUS_ITEM');
4649: FND_MESSAGE.SET_TOKEN('ERROR_CODE', l_error_code);
4650: FND_MESSAGE.SET_TOKEN('ERROR_MESSAGE', l_error_message);
4651: OE_MSG_PUB.Add;
4652: ELSE --moved assignment of item_identifier_type to ELSE clause to prevent incorrect
4653: --assignment when a customer item is not found by the inventory API...bug 3683667
4654: IF l_debug_level > 0 THEN
4655: oe_debug_pub.add( 'ASSIGNING ITEM_IDENTIFIER_TYPE AS CUST' ) ;
4656: END IF;
4657: p_x_line_tbl(I).item_identifier_type := 'CUST';
4658: END IF;
4659:
4662: l_inventory_item_id_cust IS NOT NULL AND
4663: l_inventory_item_Id_ord <> l_inventory_item_id_cust
4664: THEN
4665: IF l_debug_level > 0 THEN
4666: oe_debug_pub.add( 'WARNING: CUST AND INVENTORY ITEM ARE DIFFERENT' ) ;
4667: END IF;
4668: FND_MESSAGE.SET_NAME('ONT','OE_INV_INT_CUS_ITEM_ID');
4669: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', l_inventory_item_id_ord);
4670: FND_MESSAGE.SET_TOKEN('CUST_ITEM_ID', l_inventory_item_id_cust);
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 ) ;
4694: END IF;
4695: IF l_debug_level > 0 THEN
4696: oe_debug_pub.add( 'ORDERED_ITEM_ID: '||P_X_LINE_TBL ( I ) .ORDERED_ITEM_ID ) ;
4697: END IF;
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 ) ;
4694: END IF;
4695: IF l_debug_level > 0 THEN
4696: oe_debug_pub.add( 'ORDERED_ITEM_ID: '||P_X_LINE_TBL ( I ) .ORDERED_ITEM_ID ) ;
4697: END IF;
4698: IF l_debug_level > 0 THEN
4699: oe_debug_pub.add( 'ORDERED_ITEM: '||P_X_LINE_TBL ( I ) .ORDERED_ITEM ) ;
4700: END IF;
4695: IF l_debug_level > 0 THEN
4696: oe_debug_pub.add( 'ORDERED_ITEM_ID: '||P_X_LINE_TBL ( I ) .ORDERED_ITEM_ID ) ;
4697: END IF;
4698: IF l_debug_level > 0 THEN
4699: oe_debug_pub.add( 'ORDERED_ITEM: '||P_X_LINE_TBL ( I ) .ORDERED_ITEM ) ;
4700: END IF;
4701: SELECT inventory_item_id
4702: INTO l_inventory_item_id_gen
4703: FROM mtl_cross_references
4713: l_inventory_item_id_gen IS NOT NULL AND
4714: l_inventory_item_Id_ord <> l_inventory_item_id_gen
4715: THEN
4716: IF l_debug_level > 0 THEN
4717: oe_debug_pub.add( 'WARNING: GENERIC AND INVENTORY ITEM ARE DIFFERENT' ) ;
4718: END IF;
4719: FND_MESSAGE.SET_NAME('ONT','OE_INV_INT_CUS_ITEM_ID');
4720: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', l_inventory_item_id_ord);
4721: FND_MESSAGE.SET_TOKEN('CUST_ITEM_ID', l_inventory_item_id_gen);
4731:
4732: EXCEPTION
4733: WHEN NO_DATA_FOUND THEN
4734: IF l_debug_level > 0 THEN
4735: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS GEN - NO_DATA' ) ;
4736: END IF;
4737: When too_many_rows then
4738: IF l_debug_level > 0 THEN
4739: oe_debug_pub.add( 'TOO MANY ROWS ERROR: '||SQLERRM ) ;
4735: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS GEN - NO_DATA' ) ;
4736: END IF;
4737: When too_many_rows then
4738: IF l_debug_level > 0 THEN
4739: oe_debug_pub.add( 'TOO MANY ROWS ERROR: '||SQLERRM ) ;
4740: END IF;
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;
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' ) ;
4750: END IF;
4751: When others then
4752: IF l_debug_level > 0 THEN
4753: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
4749: oe_debug_pub.add( 'IN OEXVIMSB ITEM IDENTIFIER IS GEN - TO_MANY' ) ;
4750: END IF;
4751: When others then
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');
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' ) ;
4761: END IF;
4762: END;
4763: END IF;
4764: -- } End of Get inventory item id for Generice Item
4787: Validate calculate price flag
4788: -----------------------------------------------------------
4789: */
4790: IF l_debug_level > 0 THEN
4791: oe_debug_pub.add( 'BEFORE VALIDATING CALCULATE PRICE FLAG' ) ;
4792: END IF;
4793:
4794: IF p_x_line_tbl(I).calculate_price_flag NOT IN ('N','Y','P')
4795: THEN
4793:
4794: IF p_x_line_tbl(I).calculate_price_flag NOT IN ('N','Y','P')
4795: THEN
4796: IF l_debug_level > 0 THEN
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;
4805: Check List_Price and Selling_price
4806: -----------------------------------------------------------
4807: */
4808: IF l_debug_level > 0 THEN
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
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;
4827: Check Pricing_Qunatity and Pricing_Quantity_Uom and update
4828: -----------------------------------------------------------
4829: */
4830: IF l_debug_level > 0 THEN
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
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 ' ) ;
4840: END IF;
4841: p_x_line_tbl(I).pricing_quantity := p_x_line_tbl(I).ordered_quantity;
4842: p_x_line_tbl(I).pricing_quantity_uom := p_x_line_tbl(I).order_quantity_uom;
4843: END IF;
4846: -- Importing Service lines for the Order/CUSTOMER PRODUCT context --
4847: --------------------------------------------------------------
4848:
4849: IF l_debug_level > 0 THEN
4850: oe_debug_pub.add( 'ITEM_TYPE ' || P_X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
4851: END IF;
4852: IF l_debug_level > 0 THEN
4853: oe_debug_pub.add( 'REF_TYPE ' || P_X_LINE_TBL ( I ) .SERVICE_REFERENCE_TYPE_CODE ) ;
4854: END IF;
4849: IF l_debug_level > 0 THEN
4850: oe_debug_pub.add( 'ITEM_TYPE ' || P_X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
4851: END IF;
4852: IF l_debug_level > 0 THEN
4853: oe_debug_pub.add( 'REF_TYPE ' || P_X_LINE_TBL ( I ) .SERVICE_REFERENCE_TYPE_CODE ) ;
4854: END IF;
4855: IF l_debug_level > 0 THEN
4856: oe_debug_pub.add( 'REF_ORDER ' || P_X_LINE_TBL ( I ) .SERVICE_REFERENCE_ORDER ) ;
4857: END IF;
4852: IF l_debug_level > 0 THEN
4853: oe_debug_pub.add( 'REF_TYPE ' || P_X_LINE_TBL ( I ) .SERVICE_REFERENCE_TYPE_CODE ) ;
4854: END IF;
4855: IF l_debug_level > 0 THEN
4856: oe_debug_pub.add( 'REF_ORDER ' || P_X_LINE_TBL ( I ) .SERVICE_REFERENCE_ORDER ) ;
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;
4855: IF l_debug_level > 0 THEN
4856: oe_debug_pub.add( 'REF_ORDER ' || P_X_LINE_TBL ( I ) .SERVICE_REFERENCE_ORDER ) ;
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:
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
4871: p_x_line_tbl(I).orig_sys_document_ref
4872: THEN
4873: -- Populate index for the link
4874: IF l_debug_level > 0 THEN
4875: oe_debug_pub.add( 'LOOPING LINE TABLE OF RECORD TO FIND THE INDEX' ) ;
4876: END IF;
4877: FOR J in 1..p_x_line_tbl.count
4878: LOOP
4879: IF p_x_line_tbl(J).orig_sys_line_ref =
4886: -- This condition is for Immediate service being enter during
4887: -- order update(semi delayed!!)
4888: BEGIN
4889: IF l_debug_level > 0 THEN
4890: oe_debug_pub.add( 'FOR SEMI DELAYED SERVICE GET THE LINE_ID' ) ;
4891: END IF;
4892: SELECT line_id
4893: INTO p_x_line_tbl(I).service_reference_line_id
4894: FROM oe_order_lines ol
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' ) ;
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;
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;
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');
4918: END;
4919: ELSE
4920: BEGIN
4921: IF l_debug_level > 0 THEN
4922: oe_debug_pub.add( 'FOR DELAYED SERVICE GET THE LINE_ID' ) ;
4923: END IF;
4924: SELECT line_id
4925: INTO p_x_line_tbl(I).service_reference_line_id
4926: FROM oe_order_lines ol
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;
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;
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');
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 :=
4973: End If;
4974: EXCEPTION
4975: WHEN OTHERS THEN
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');
4983: END;
4984: ELSIF p_x_line_tbl(I).item_type_code = 'SERVICE'
4985: THEN
4986: IF l_debug_level > 0 THEN
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;
5039: -----------------------------------------------------------
5040: */
5041: l_price_adjustment_id := NULL;
5042: IF l_debug_level > 0 THEN
5043: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT FOR LINE PRICE ADJUSTMENTS' ) ;
5044: END IF;
5045:
5046: OE_MSG_PUB.set_msg_context(
5047: p_entity_code => 'LINE_ADJ'
5066: Validate orig sys discount ref for line
5067: -----------------------------------------------------------
5068: */
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
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;
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;
5084: Validate line adjustments operation code
5085: -----------------------------------------------------------
5086: */
5087: IF l_debug_level > 0 THEN
5088: oe_debug_pub.add( 'BEFORE VALIDATING LINE ADJUSTMENTS OPERATION CODE' ) ;
5089: END IF;
5090:
5091: IF p_x_line_adj_tbl(I).operation NOT IN ('INSERT','CREATE',
5092: 'UPDATE','DELETE') OR
5100: IN ('DELETE') AND
5101: p_x_line_adj_tbl(I).operation NOT IN ('DELETE'))
5102: THEN
5103: IF l_debug_level > 0 THEN
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;
5114: AND p_x_line_tbl(p_x_line_adj_tbl(I).line_index).operation = 'UPDATE'
5115: THEN
5116: Begin
5117: IF l_debug_level > 0 THEN
5118: oe_debug_pub.add( 'NEW ADJUSTMENT FOR LINE LEVEL , THE EXISITNG HEARDER_ID:' || TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) ) ;
5119: END IF;
5120: p_x_line_adj_tbl(I).header_id := l_header_id;
5121: /* Bug #2108967 -- Passing the correct line_id */
5122: p_x_line_adj_tbl(I).line_id := p_x_line_tbl(p_x_line_adj_tbl(I).line_index).line_id;
5129: p_x_line_adj_tbl(I).orig_sys_discount_ref
5130: AND rownum < 2;
5131:
5132: IF l_debug_level > 0 THEN
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;
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' ) ;
5142: END IF;
5143: When others then
5144: IF l_debug_level > 0 THEN
5145: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW LINE PRICE ADJ... ' ) ;
5141: oe_debug_pub.add( 'VALID LINE LEVEL PRICE ADJ FOR INSERT' ) ;
5142: END IF;
5143: When others then
5144: IF l_debug_level > 0 THEN
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;
5155: AND p_x_line_tbl(p_x_line_adj_tbl(I).line_index).operation IN ('UPDATE','DELETE')
5156: THEN
5157: Begin
5158: IF l_debug_level > 0 THEN
5159: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) ) ;
5160: END IF;
5161: IF l_debug_level > 0 THEN
5162: oe_debug_pub.add( 'LINE ID: '|| L_LINE_ID ) ;
5163: END IF;
5158: IF l_debug_level > 0 THEN
5159: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) ) ;
5160: END IF;
5161: IF l_debug_level > 0 THEN
5162: oe_debug_pub.add( 'LINE ID: '|| L_LINE_ID ) ;
5163: END IF;
5164: IF l_debug_level > 0 THEN
5165: oe_debug_pub.add( 'DISCOUNT REF: '||P_X_LINE_ADJ_TBL ( I ) .ORIG_SYS_DISCOUNT_REF ) ;
5166: END IF;
5161: IF l_debug_level > 0 THEN
5162: oe_debug_pub.add( 'LINE ID: '|| L_LINE_ID ) ;
5163: END IF;
5164: IF l_debug_level > 0 THEN
5165: oe_debug_pub.add( 'DISCOUNT REF: '||P_X_LINE_ADJ_TBL ( I ) .ORIG_SYS_DISCOUNT_REF ) ;
5166: END IF;
5167: p_x_line_adj_tbl(I).header_id := l_header_id;
5168: p_x_line_adj_tbl(I).line_id := p_x_line_tbl(p_x_line_adj_tbl(I).line_index).line_id;
5169: SELECT price_adjustment_id
5175: p_x_line_adj_tbl(I).orig_sys_discount_ref;
5176:
5177: p_x_line_adj_tbl(I).price_adjustment_id := l_price_adjustment_id;
5178: IF l_debug_level > 0 THEN
5179: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_LINE_ADJ_TBL ( I ) .HEADER_ID ) ) ;
5180: END IF;
5181: IF l_debug_level > 0 THEN
5182: oe_debug_pub.add( 'ADJUST ID: '||TO_CHAR ( P_X_LINE_ADJ_TBL ( I ) .PRICE_ADJUSTMENT_ID ) ) ;
5183: END IF;
5178: IF l_debug_level > 0 THEN
5179: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_LINE_ADJ_TBL ( I ) .HEADER_ID ) ) ;
5180: END IF;
5181: IF l_debug_level > 0 THEN
5182: oe_debug_pub.add( 'ADJUST ID: '||TO_CHAR ( P_X_LINE_ADJ_TBL ( I ) .PRICE_ADJUSTMENT_ID ) ) ;
5183: END IF;
5184:
5185: Exception
5186: When no_data_found then
5184:
5185: Exception
5186: When no_data_found then
5187: IF l_debug_level > 0 THEN
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;
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;
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;
5224: x_type => l_type);
5225:
5226: IF l_type NOT IN ('DIS','FREIGHT_CHARGE','PROMOLINE','COUPON','PROMO','SUR') THEN
5227: IF l_debug_level > 0 THEN
5228: oe_debug_pub.add( 'OEXVIMSB.PLS -> NOT A VALID DISCOUNT/COUPON TYPE ( LINE ) ' ) ;
5229: END IF;
5230: IF l_debug_level > 0 THEN
5231: oe_debug_pub.add( 'NOT VALID PROMOTION NAME =' ||P_X_HEADER_ADJ_VAL_TBL ( I ) .LIST_NAME ) ;
5232: END IF;
5227: IF l_debug_level > 0 THEN
5228: oe_debug_pub.add( 'OEXVIMSB.PLS -> NOT A VALID DISCOUNT/COUPON TYPE ( LINE ) ' ) ;
5229: END IF;
5230: IF l_debug_level > 0 THEN
5231: oe_debug_pub.add( 'NOT VALID PROMOTION NAME =' ||P_X_HEADER_ADJ_VAL_TBL ( I ) .LIST_NAME ) ;
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;
5243: p_return_status := l_return_status;
5244: END IF;
5245:
5246: IF l_debug_level > 0 THEN
5247: oe_debug_pub.add( 'LIST_LINE_TYPE_CODE = '||L_TYPE ) ;
5248: END IF;
5249: IF l_debug_level > 0 THEN
5250: oe_debug_pub.add( 'LIST HEADER ID = '||L_LIST_HEADER_ID ) ;
5251: END IF;
5246: IF l_debug_level > 0 THEN
5247: oe_debug_pub.add( 'LIST_LINE_TYPE_CODE = '||L_TYPE ) ;
5248: END IF;
5249: IF l_debug_level > 0 THEN
5250: oe_debug_pub.add( 'LIST HEADER ID = '||L_LIST_HEADER_ID ) ;
5251: END IF;
5252: IF l_debug_level > 0 THEN
5253: oe_debug_pub.add( 'LIST LINE ID = '||L_LIST_LINE_ID ) ;
5254: END IF;
5249: IF l_debug_level > 0 THEN
5250: oe_debug_pub.add( 'LIST HEADER ID = '||L_LIST_HEADER_ID ) ;
5251: END IF;
5252: IF l_debug_level > 0 THEN
5253: oe_debug_pub.add( 'LIST LINE ID = '||L_LIST_LINE_ID ) ;
5254: END IF;
5255: IF l_type In ('DIS','SUR') THEN
5256: p_x_line_adj_tbl(I).list_header_id :=l_list_header_id;
5257: p_x_line_adj_tbl(I).list_line_id :=l_list_line_id;
5270: l_line_price_att_tbl(I).pricing_attribute2 :=l_list_line_id;
5271: l_line_price_att_tbl(I).operation := p_x_line_adj_tbl(I).Operation;
5272: l_line_price_att_tbl(I).line_index := p_x_line_adj_tbl(I).line_index;
5273: IF l_debug_level > 0 THEN
5274: oe_debug_pub.add( 'LINE_INDEX = '||L_LINE_PRICE_ATT_TBL ( I ) .LINE_INDEX ) ;
5275: END IF;
5276: IF l_debug_level > 0 THEN
5277: oe_debug_pub.add( 'LINE_PRICE OPERATION = '||L_LINE_PRICE_ATT_TBL ( I ) .OPERATION ) ;
5278: END IF;
5273: IF l_debug_level > 0 THEN
5274: oe_debug_pub.add( 'LINE_INDEX = '||L_LINE_PRICE_ATT_TBL ( I ) .LINE_INDEX ) ;
5275: END IF;
5276: IF l_debug_level > 0 THEN
5277: oe_debug_pub.add( 'LINE_PRICE OPERATION = '||L_LINE_PRICE_ATT_TBL ( I ) .OPERATION ) ;
5278: END IF;
5279: p_x_line_adj_tbl.delete (I);
5280: p_x_line_adj_val_tbl.DELETE (I);
5281: END IF;
5286: l_line_price_att_tbl(I).Orig_Sys_Atts_Ref :=p_x_line_adj_tbl(I).Orig_Sys_Discount_Ref;
5287: l_line_price_att_tbl(I).operation := p_x_line_adj_tbl(I).Operation;
5288: l_line_price_att_tbl(I).line_index := p_x_line_adj_tbl(I).line_index;
5289: IF l_debug_level > 0 THEN
5290: oe_debug_pub.add( 'LINE_INDEX = '||L_LINE_PRICE_ATT_TBL ( I ) .LINE_INDEX ) ;
5291: END IF;
5292: IF l_debug_level > 0 THEN
5293: oe_debug_pub.add( 'LINE_PRICE OPERATION = '||L_LINE_PRICE_ATT_TBL ( I ) .OPERATION ) ;
5294: END IF;
5289: IF l_debug_level > 0 THEN
5290: oe_debug_pub.add( 'LINE_INDEX = '||L_LINE_PRICE_ATT_TBL ( I ) .LINE_INDEX ) ;
5291: END IF;
5292: IF l_debug_level > 0 THEN
5293: oe_debug_pub.add( 'LINE_PRICE OPERATION = '||L_LINE_PRICE_ATT_TBL ( I ) .OPERATION ) ;
5294: END IF;
5295: p_x_line_adj_tbl.delete (I);
5296: p_x_line_adj_val_tbl.DELETE (I);
5297: END IF;
5297: END IF;
5298:
5299: IF l_type='PROMO' THEN
5300: IF l_debug_level > 0 THEN
5301: oe_debug_pub.add( 'IN LINE PROMO' ) ;
5302: END IF;
5303: l_line_price_att_tbl(I).pricing_context :='MODLIST';
5304: l_line_price_att_tbl(I).flex_title :='QP_ATTR_DEFNS_QUALIFIER';
5305: l_line_price_att_tbl(I).pricing_attribute1 := l_list_header_id;
5306: l_line_price_att_tbl(I).Orig_Sys_Atts_Ref :=p_x_line_adj_tbl(I).Orig_Sys_Discount_Ref;
5307: l_line_price_att_tbl(I).operation := p_x_line_adj_tbl(I).Operation;
5308: l_line_price_att_tbl(I).line_index := p_x_line_adj_tbl(I).line_index;
5309: IF l_debug_level > 0 THEN
5310: oe_debug_pub.add( 'LINE_INDEX = '||L_LINE_PRICE_ATT_TBL ( I ) .LINE_INDEX ) ;
5311: END IF;
5312: IF l_debug_level > 0 THEN
5313: oe_debug_pub.add( 'LINE_PRICE OPERATION = '||L_LINE_PRICE_ATT_TBL ( I ) .OPERATION ) ;
5314: END IF;
5309: IF l_debug_level > 0 THEN
5310: oe_debug_pub.add( 'LINE_INDEX = '||L_LINE_PRICE_ATT_TBL ( I ) .LINE_INDEX ) ;
5311: END IF;
5312: IF l_debug_level > 0 THEN
5313: oe_debug_pub.add( 'LINE_PRICE OPERATION = '||L_LINE_PRICE_ATT_TBL ( I ) .OPERATION ) ;
5314: END IF;
5315: p_x_line_adj_tbl.delete (I);
5316: p_x_line_adj_val_tbl.DELETE (I);
5317: END IF;
5320:
5321: END LOOP;
5322:
5323: IF l_debug_level > 0 THEN
5324: oe_debug_pub.add( 'P_X_LINE_PRICE_ATT_TBL.COUNT: '||TO_CHAR ( P_X_LINE_PRICE_ATT_TBL.COUNT ) , 1 ) ;
5325: END IF;
5326: FOR I in 1..p_x_line_price_att_tbl.count
5327: LOOP
5328: /* -----------------------------------------------------------
5329: Set message context for line atts
5330: -----------------------------------------------------------
5331: */
5332: IF l_debug_level > 0 THEN
5333: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT FOR LINE ATTS' ) ;
5334: END IF;
5335:
5336: OE_MSG_PUB.set_msg_context(
5337: p_entity_code => 'LINE_PATTS'
5355: /* -----------------------------------------------------------
5356: Validate orig sys documentt ref for line
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... ');
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;
5366: p_return_status := FND_API.G_RET_STS_ERROR;
5367: END IF;
5370: Validate line atts operation code
5371: -----------------------------------------------------------
5372: */
5373: IF l_debug_level > 0 THEN
5374: oe_debug_pub.add( 'BEFORE VALIDATING LINE ATTS OPERATION CODE' ) ;
5375: END IF;
5376: IF l_debug_level > 0 THEN
5377: oe_debug_pub.add( ' OPERATION CODE IS :'||P_X_LINE_PRICE_ATT_TBL ( I ) .OPERATION , 1 ) ;
5378: END IF;
5373: IF l_debug_level > 0 THEN
5374: oe_debug_pub.add( 'BEFORE VALIDATING LINE ATTS OPERATION CODE' ) ;
5375: END IF;
5376: IF l_debug_level > 0 THEN
5377: oe_debug_pub.add( ' OPERATION CODE IS :'||P_X_LINE_PRICE_ATT_TBL ( I ) .OPERATION , 1 ) ;
5378: END IF;
5379: IF p_x_line_price_att_tbl(I).operation NOT IN ('INSERT','CREATE',
5380: 'UPDATE','DELETE') OR
5381: (p_x_line_tbl(p_x_line_price_att_tbl(I).line_index).operation
5389: p_x_line_price_att_tbl(I).operation NOT IN ('DELETE'))
5390:
5391: THEN
5392: IF l_debug_level > 0 THEN
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;
5401: AND p_x_header_rec.operation = 'UPDATE'
5402: AND p_x_line_tbl(p_x_line_price_att_tbl(I).line_index).operation = 'UPDATE'
5403: THEN
5404: IF l_debug_level > 0 THEN
5405: oe_debug_pub.add( 'NEW ATT FOR THE LINE LEVEL , EXISITNG HEARDER_ID:' || P_X_HEADER_REC.HEADER_ID ) ;
5406: END IF;
5407: IF l_debug_level > 0 THEN
5408: oe_debug_pub.add( 'NEW ATT P_X_LINE_PRICE_ATT_TBL:'||TO_CHAR ( P_X_LINE_PRICE_ATT_TBL ( I ) .ORDER_PRICE_ATTRIB_ID ) , 1 ) ;
5409: END IF;
5404: IF l_debug_level > 0 THEN
5405: oe_debug_pub.add( 'NEW ATT FOR THE LINE LEVEL , EXISITNG HEARDER_ID:' || P_X_HEADER_REC.HEADER_ID ) ;
5406: END IF;
5407: IF l_debug_level > 0 THEN
5408: oe_debug_pub.add( 'NEW ATT P_X_LINE_PRICE_ATT_TBL:'||TO_CHAR ( P_X_LINE_PRICE_ATT_TBL ( I ) .ORDER_PRICE_ATTRIB_ID ) , 1 ) ;
5409: END IF;
5410: IF l_debug_level > 0 THEN
5411: oe_debug_pub.add( 'LINEID :' ||TO_CHAR ( P_X_LINE_TBL ( P_X_LINE_PRICE_ATT_TBL ( I ) .LINE_INDEX ) .LINE_ID ) , 1 ) ;
5412: END IF;
5407: IF l_debug_level > 0 THEN
5408: oe_debug_pub.add( 'NEW ATT P_X_LINE_PRICE_ATT_TBL:'||TO_CHAR ( P_X_LINE_PRICE_ATT_TBL ( I ) .ORDER_PRICE_ATTRIB_ID ) , 1 ) ;
5409: END IF;
5410: IF l_debug_level > 0 THEN
5411: oe_debug_pub.add( 'LINEID :' ||TO_CHAR ( P_X_LINE_TBL ( P_X_LINE_PRICE_ATT_TBL ( I ) .LINE_INDEX ) .LINE_ID ) , 1 ) ;
5412: END IF;
5413: p_x_line_price_att_tbl(I).header_id := p_x_header_rec.header_id; --l_header_id;
5414: p_x_line_price_att_tbl(I).line_id := p_x_line_tbl(p_x_line_price_att_tbl(I).line_index).line_id; --l_line_id;
5415: Begin
5422: p_x_line_price_att_tbl(I).orig_sys_atts_ref
5423: AND rownum < 2;
5424:
5425: IF l_debug_level > 0 THEN
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;
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' ) ;
5435: END IF;
5436: When others then
5437: IF l_debug_level > 0 THEN
5438: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW HDR PRICE ATT... ' ) ;
5434: oe_debug_pub.add( 'VALID LINE LEVEL PRICE ATT FOR INSERT' ) ;
5435: END IF;
5436: When others then
5437: IF l_debug_level > 0 THEN
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;
5448: AND p_x_line_tbl(p_x_line_price_att_tbl(I).line_index).operation IN ('UPDATE','DELETE')
5449: THEN
5450: Begin
5451: IF l_debug_level > 0 THEN
5452: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) ) ;
5453: END IF;
5454: IF l_debug_level > 0 THEN
5455: oe_debug_pub.add( 'LINE ID: '|| L_LINE_ID ) ;
5456: END IF;
5451: IF l_debug_level > 0 THEN
5452: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) ) ;
5453: END IF;
5454: IF l_debug_level > 0 THEN
5455: oe_debug_pub.add( 'LINE ID: '|| L_LINE_ID ) ;
5456: END IF;
5457: IF l_debug_level > 0 THEN
5458: oe_debug_pub.add( 'ATTRIBUTE REF: '||P_X_LINE_PRICE_ATT_TBL ( I ) .ORIG_SYS_ATTS_REF ) ;
5459: END IF;
5454: IF l_debug_level > 0 THEN
5455: oe_debug_pub.add( 'LINE ID: '|| L_LINE_ID ) ;
5456: END IF;
5457: IF l_debug_level > 0 THEN
5458: oe_debug_pub.add( 'ATTRIBUTE REF: '||P_X_LINE_PRICE_ATT_TBL ( I ) .ORIG_SYS_ATTS_REF ) ;
5459: END IF;
5460: p_x_line_price_att_tbl(I).header_id := l_header_id;
5461: p_x_line_price_att_tbl(I).line_id := l_line_id;
5462:
5469: p_x_line_price_att_tbl(I).orig_sys_atts_ref;
5470:
5471: p_x_line_price_att_tbl(I).order_price_attrib_id := l_price_attrib_id;
5472: IF l_debug_level > 0 THEN
5473: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_LINE_PRICE_ATT_TBL ( I ) .HEADER_ID ) ) ;
5474: END IF;
5475: IF l_debug_level > 0 THEN
5476: oe_debug_pub.add( 'ATTRIBUTE ID: '||TO_CHAR ( P_X_LINE_PRICE_ATT_TBL ( I ) .ORDER_PRICE_ATTRIB_ID ) ) ;
5477: END IF;
5472: IF l_debug_level > 0 THEN
5473: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_LINE_PRICE_ATT_TBL ( I ) .HEADER_ID ) ) ;
5474: END IF;
5475: IF l_debug_level > 0 THEN
5476: oe_debug_pub.add( 'ATTRIBUTE ID: '||TO_CHAR ( P_X_LINE_PRICE_ATT_TBL ( I ) .ORDER_PRICE_ATTRIB_ID ) ) ;
5477: END IF;
5478:
5479: Exception
5480: When no_data_found then
5478:
5479: Exception
5480: When no_data_found then
5481: IF l_debug_level > 0 THEN
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;
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;
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;
5503:
5504: FOR I IN 1..l_line_price_att_tbl.COUNT
5505: LOOP
5506: IF l_debug_level > 0 THEN
5507: oe_debug_pub.add( 'IN LINE PRICE_REC_TBL LOOP' ) ;
5508: END IF;
5509: l_last_index := l_last_index+1;
5510: IF l_debug_level > 0 THEN
5511: oe_debug_pub.add( 'L_LAST_INDEX = '||L_LAST_INDEX ) ;
5507: oe_debug_pub.add( 'IN LINE PRICE_REC_TBL LOOP' ) ;
5508: END IF;
5509: l_last_index := l_last_index+1;
5510: IF l_debug_level > 0 THEN
5511: oe_debug_pub.add( 'L_LAST_INDEX = '||L_LAST_INDEX ) ;
5512: END IF;
5513: p_x_line_price_att_tbl(l_last_index).pricing_attribute1 := l_line_price_att_tbl(I).pricing_attribute1;
5514: p_x_line_price_att_tbl(l_last_index).pricing_attribute3 :=l_line_price_att_tbl(I).pricing_attribute3;
5515: p_x_line_price_att_tbl(l_last_index).pricing_attribute2 :=l_line_price_att_tbl(I).pricing_attribute2;
5519: p_x_line_price_att_tbl(l_last_index).Operation := l_line_price_att_tbl(I).operation;
5520: p_x_line_price_att_tbl(l_last_index).line_index := l_line_price_att_tbl(I).line_index;
5521: END LOOP;
5522: IF l_debug_level > 0 THEN
5523: oe_debug_pub.add( 'RECORDS IN LINE PRICE ATTL TBL = '||P_X_LINE_PRICE_ATT_TBL.COUNT ) ;
5524: END IF;
5525:
5526:
5527: FOR I in 1..p_x_line_scredit_tbl.count
5531: -----------------------------------------------------------
5532: */
5533: l_sales_credit_id := NULL;
5534: IF l_debug_level > 0 THEN
5535: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT FOR LINE SALES CREDITS' ) ;
5536: END IF;
5537:
5538: OE_MSG_PUB.set_msg_context(
5539: p_entity_code => 'LINE_SCREDIT'
5558: Validate orig sys credit ref for line
5559: -----------------------------------------------------------
5560: */
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
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;
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;
5576: Validate line sales credits operation code
5577: -----------------------------------------------------------
5578: */
5579: IF l_debug_level > 0 THEN
5580: oe_debug_pub.add( 'BEFORE VALIDATING LINE SALES CREDITS OPERATION CODE' ) ;
5581: END IF;
5582:
5583: IF p_x_line_scredit_tbl(I).operation NOT IN ('INSERT','CREATE',
5584: 'UPDATE','DELETE') OR
5592: IN ('DELETE') AND
5593: p_x_line_scredit_tbl(I).operation NOT IN ('DELETE'))
5594: THEN
5595: IF l_debug_level > 0 THEN
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;
5607: = 'UPDATE'
5608: THEN
5609: Begin
5610: IF l_debug_level > 0 THEN
5611: oe_debug_pub.add( 'NEW ADJUSTMENT FOR LINE LEVEL , THE EXISITNG HEARDER_ID:' || TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) ) ;
5612: END IF;
5613: p_x_line_scredit_tbl(I).header_id := l_header_id;
5614: p_x_line_scredit_tbl(I).line_id := l_line_id;
5615:
5621: p_x_line_scredit_tbl(I).orig_sys_credit_ref
5622: AND rownum < 2;
5623:
5624: IF l_debug_level > 0 THEN
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;
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' ) ;
5634: END IF;
5635: When others then
5636: IF l_debug_level > 0 THEN
5637: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW LINE SALES CREDIT... ' ) ;
5633: oe_debug_pub.add( 'VALID LINE LEVEL SALES CREDIT FOR INSERT' ) ;
5634: END IF;
5635: When others then
5636: IF l_debug_level > 0 THEN
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;
5647: AND p_x_line_tbl(p_x_line_scredit_tbl(I).line_index).operation IN ('UPDATE','DELETE')
5648: THEN
5649: Begin
5650: IF l_debug_level > 0 THEN
5651: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) ) ;
5652: END IF;
5653: IF l_debug_level > 0 THEN
5654: oe_debug_pub.add( 'LINE ID: '|| L_LINE_ID ) ;
5655: END IF;
5650: IF l_debug_level > 0 THEN
5651: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) ) ;
5652: END IF;
5653: IF l_debug_level > 0 THEN
5654: oe_debug_pub.add( 'LINE ID: '|| L_LINE_ID ) ;
5655: END IF;
5656: IF l_debug_level > 0 THEN
5657: oe_debug_pub.add( 'CREDIT REF: '||P_X_LINE_SCREDIT_TBL ( I ) .ORIG_SYS_CREDIT_REF ) ;
5658: END IF;
5653: IF l_debug_level > 0 THEN
5654: oe_debug_pub.add( 'LINE ID: '|| L_LINE_ID ) ;
5655: END IF;
5656: IF l_debug_level > 0 THEN
5657: oe_debug_pub.add( 'CREDIT REF: '||P_X_LINE_SCREDIT_TBL ( I ) .ORIG_SYS_CREDIT_REF ) ;
5658: END IF;
5659: p_x_line_scredit_tbl(I).header_id := l_header_id;
5660: p_x_line_scredit_tbl(I).line_id := l_line_id;
5661: SELECT sales_credit_id
5667: p_x_line_scredit_tbl(I).orig_sys_credit_ref;
5668:
5669: p_x_line_scredit_tbl(I).sales_credit_id := l_sales_credit_id;
5670: IF l_debug_level > 0 THEN
5671: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_LINE_SCREDIT_TBL ( I ) .HEADER_ID ) ) ;
5672: END IF;
5673: IF l_debug_level > 0 THEN
5674: oe_debug_pub.add( 'ADJUST ID: '||TO_CHAR ( P_X_LINE_SCREDIT_TBL ( I ) .SALES_CREDIT_ID ) ) ;
5675: END IF;
5670: IF l_debug_level > 0 THEN
5671: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_LINE_SCREDIT_TBL ( I ) .HEADER_ID ) ) ;
5672: END IF;
5673: IF l_debug_level > 0 THEN
5674: oe_debug_pub.add( 'ADJUST ID: '||TO_CHAR ( P_X_LINE_SCREDIT_TBL ( I ) .SALES_CREDIT_ID ) ) ;
5675: END IF;
5676:
5677: Exception
5678: When no_data_found then
5676:
5677: Exception
5678: When no_data_found then
5679: IF l_debug_level > 0 THEN
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;
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;
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;
5704: -----------------------------------------------------------
5705: */
5706: -- l_sales_payment_id := NULL;
5707: IF l_debug_level > 0 THEN
5708: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT FOR LINE PAYMENTS' ) ;
5709: END IF;
5710:
5711: OE_MSG_PUB.set_msg_context(
5712: p_entity_code => 'LINE_PAYMENT'
5731: Validate orig sys payment ref for line
5732: -----------------------------------------------------------
5733: */
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
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;
5743: /* multiple payments: new message */
5744: FND_MESSAGE.SET_NAME('ONT','OE_OI_ORIG_SYS_payment_REF');
5745: OE_MSG_PUB.Add;
5750: Validate line PAYMENTs operation code
5751: -----------------------------------------------------------
5752: */
5753: IF l_debug_level > 0 THEN
5754: oe_debug_pub.add( 'BEFORE VALIDATING LINE PAYMENTS OPERATION CODE' ) ;
5755: END IF;
5756:
5757: IF p_x_line_payment_tbl(I).operation NOT IN ('INSERT','CREATE',
5758: 'UPDATE','DELETE') OR
5766: IN ('DELETE') AND
5767: p_x_line_payment_tbl(I).operation NOT IN ('DELETE'))
5768: THEN
5769: IF l_debug_level > 0 THEN
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;
5780: = 'UPDATE'
5781: THEN
5782: Begin
5783: IF l_debug_level > 0 THEN
5784: oe_debug_pub.add( 'NEW PAYMENT FOR LINE LEVEL , THE EXISITNG HEARDER_ID:' || TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) ) ;
5785: END IF;
5786: p_x_line_payment_tbl(I).header_id := l_header_id;
5787: p_x_line_payment_tbl(I).line_id := l_line_id;
5788:
5794: p_x_line_payment_tbl(I).orig_sys_payment_ref
5795: AND rownum < 2;
5796:
5797: IF l_debug_level > 0 THEN
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;
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' ) ;
5807: END IF;
5808: When others then
5809: IF l_debug_level > 0 THEN
5810: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW LINE PAYMENT... ' ) ;
5806: oe_debug_pub.add( 'VALID LINE LEVEL PAYMENT FOR INSERT' ) ;
5807: END IF;
5808: When others then
5809: IF l_debug_level > 0 THEN
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;
5820: AND p_x_line_tbl(p_x_line_payment_tbl(I).line_index).operation IN ('UPDATE','DELETE')
5821: THEN
5822: Begin
5823: IF l_debug_level > 0 THEN
5824: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) ) ;
5825: oe_debug_pub.add( 'LINE ID: '|| L_LINE_ID ) ;
5826: oe_debug_pub.add( 'PAYMENT REF: '||P_X_LINE_PAYMENT_TBL ( I ) .ORIG_SYS_PAYMENT_REF ) ;
5827: END IF;
5828: p_x_line_payment_tbl(I).header_id := l_header_id;
5821: THEN
5822: Begin
5823: IF l_debug_level > 0 THEN
5824: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) ) ;
5825: oe_debug_pub.add( 'LINE ID: '|| L_LINE_ID ) ;
5826: oe_debug_pub.add( 'PAYMENT REF: '||P_X_LINE_PAYMENT_TBL ( I ) .ORIG_SYS_PAYMENT_REF ) ;
5827: END IF;
5828: p_x_line_payment_tbl(I).header_id := l_header_id;
5829: p_x_line_payment_tbl(I).line_id := l_line_id;
5822: Begin
5823: IF l_debug_level > 0 THEN
5824: oe_debug_pub.add( 'HEADER ID: '||TO_CHAR ( P_X_HEADER_REC.HEADER_ID ) ) ;
5825: oe_debug_pub.add( 'LINE ID: '|| L_LINE_ID ) ;
5826: oe_debug_pub.add( 'PAYMENT REF: '||P_X_LINE_PAYMENT_TBL ( I ) .ORIG_SYS_PAYMENT_REF ) ;
5827: END IF;
5828: p_x_line_payment_tbl(I).header_id := l_header_id;
5829: p_x_line_payment_tbl(I).line_id := l_line_id;
5830: SELECT 1
5837:
5838: Exception
5839: When no_data_found then
5840: IF l_debug_level > 0 THEN
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;
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;
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;
5862: -----------------------------------------------------------
5863: */
5864: l_lot_serial_id := NULL;
5865: IF l_debug_level > 0 THEN
5866: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT FOR LINE LOT SERIALS' ) ;
5867: END IF;
5868:
5869: OE_MSG_PUB.set_msg_context(
5870: p_entity_code => 'LOT_SERIAL'
5889: Validate orig sys lotserial ref for line
5890: -----------------------------------------------------------
5891: */
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
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;
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;
5907: Validate line lot serials operation code
5908: -----------------------------------------------------------
5909: */
5910: IF l_debug_level > 0 THEN
5911: oe_debug_pub.add( 'BEFORE VALIDATING LINE LOT SERIALS OPERATION CODE' ) ;
5912: END IF;
5913:
5914: IF p_x_lot_serial_tbl(I).operation NOT IN ('INSERT','CREATE',
5915: 'UPDATE','DELETE') OR
5917: IN ('INSERT','CREATE') AND
5918: p_x_lot_serial_tbl(I).operation NOT IN ('INSERT','CREATE'))
5919: THEN
5920: IF l_debug_level > 0 THEN
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;
5930: AND p_x_line_tbl(p_x_lot_serial_tbl(I).line_index).operation = 'UPDATE'
5931: THEN
5932: Begin
5933: IF l_debug_level > 0 THEN
5934: oe_debug_pub.add( 'NEW LOT FOR LINE LEVEL , THE EXISITNG LINE_ID:' || L_LINE_ID ) ;
5935: END IF;
5936: p_x_lot_serial_tbl(I).line_id := l_line_id;
5937:
5938: SELECT 1 into l_count
5942: p_x_lot_serial_tbl(I).orig_sys_lotserial_ref
5943: AND rownum < 2;
5944:
5945: IF l_debug_level > 0 THEN
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;
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' ) ;
5955: END IF;
5956: When others then
5957: IF l_debug_level > 0 THEN
5958: oe_debug_pub.add( 'OTHERS EXCEPTION WHEN INSERTING NEW LINE LOT... ' ) ;
5954: oe_debug_pub.add( 'VALID LINE LEVEL LOT FOR INSERT' ) ;
5955: END IF;
5956: When others then
5957: IF l_debug_level > 0 THEN
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;
5967: AND p_x_line_tbl(p_x_lot_serial_tbl(I).line_index).operation IN ('UPDATE','DELETE')
5968: THEN
5969: Begin
5970: IF l_debug_level > 0 THEN
5971: oe_debug_pub.add( 'LINE ID: '|| L_LINE_ID ) ;
5972: END IF;
5973: IF l_debug_level > 0 THEN
5974: oe_debug_pub.add( 'LOT REF: '||P_X_LOT_SERIAL_TBL ( I ) .ORIG_SYS_LOTSERIAL_REF ) ;
5975: END IF;
5970: IF l_debug_level > 0 THEN
5971: oe_debug_pub.add( 'LINE ID: '|| L_LINE_ID ) ;
5972: END IF;
5973: IF l_debug_level > 0 THEN
5974: oe_debug_pub.add( 'LOT REF: '||P_X_LOT_SERIAL_TBL ( I ) .ORIG_SYS_LOTSERIAL_REF ) ;
5975: END IF;
5976: p_x_lot_serial_tbl(I).line_id := l_line_id;
5977: SELECT lot_serial_id
5978: INTO l_lot_serial_id
5982: p_x_lot_serial_tbl(I).orig_sys_lotserial_ref;
5983:
5984: p_x_lot_serial_tbl(I).lot_serial_id := l_lot_serial_id;
5985: IF l_debug_level > 0 THEN
5986: oe_debug_pub.add( 'LOT ID: '||TO_CHAR ( P_X_LOT_SERIAL_TBL ( I ) .LOT_SERIAL_ID ) ) ;
5987: END IF;
5988:
5989: Exception
5990: When no_data_found then
5988:
5989: Exception
5990: When no_data_found then
5991: IF l_debug_level > 0 THEN
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;
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;
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;
6015: Set message context for line reservations
6016: -----------------------------------------------------------
6017: */
6018: IF l_debug_level > 0 THEN
6019: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT FOR LINE RESERVATIONS' ) ;
6020: END IF;
6021:
6022: OE_MSG_PUB.set_msg_context(
6023: p_entity_code => 'RESERVATION'
6042: Validate orig sys reservation ref for line
6043: -----------------------------------------------------------
6044: */
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
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;
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;
6060: Validate reservation details for line
6061: -----------------------------------------------------------
6062: */
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
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;
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;
6083: Validate reservation quantity
6084: -----------------------------------------------------------
6085: */
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
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;
6103: Validate reservation operation
6104: -----------------------------------------------------------
6105: */
6106: IF l_debug_level > 0 THEN
6107: oe_debug_pub.add( 'BEFORE VALIDATING RESERVATION OPERATION FOR LINE' ) ;
6108: END IF;
6109:
6110: IF p_x_reservation_tbl(I).operation NOT IN ('INSERT','CREATE',
6111: 'UPDATE','DELETE')
6110: IF p_x_reservation_tbl(I).operation NOT IN ('INSERT','CREATE',
6111: 'UPDATE','DELETE')
6112: THEN
6113: IF l_debug_level > 0 THEN
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;
6121: -- Following Line are added to fixed the bug for the duplicate reservation
6122: -- when the auto scheduling is on + within time fence
6123: -- bug# 1537689
6124: IF l_debug_level > 0 THEN
6125: oe_debug_pub.add( 'LINE SUNINV: ' || P_X_LINE_TBL ( P_X_RESERVATION_TBL ( I ) .LINE_INDEX ) .SUBINVENTORY ) ;
6126: END IF;
6127: IF l_debug_level > 0 THEN
6128: oe_debug_pub.add( 'RESV_REC SUNINV: ' || P_X_RESERVATION_VAL_TBL ( I ) .SUBINVENTORY_CODE ) ;
6129: END IF;
6124: IF l_debug_level > 0 THEN
6125: oe_debug_pub.add( 'LINE SUNINV: ' || P_X_LINE_TBL ( P_X_RESERVATION_TBL ( I ) .LINE_INDEX ) .SUBINVENTORY ) ;
6126: END IF;
6127: IF l_debug_level > 0 THEN
6128: oe_debug_pub.add( 'RESV_REC SUNINV: ' || P_X_RESERVATION_VAL_TBL ( I ) .SUBINVENTORY_CODE ) ;
6129: END IF;
6130: /*commenting code for bug 1765449
6131: p_x_line_tbl(p_x_reservation_tbl(I).line_index).subinventory
6132: := p_x_reservation_val_tbl(I).subinventory_code;
6129: END IF;
6130: /*commenting code for bug 1765449
6131: p_x_line_tbl(p_x_reservation_tbl(I).line_index).subinventory
6132: := p_x_reservation_val_tbl(I).subinventory_code;
6133: oe_debug_pub.add('Line Suninv: ' || p_x_line_tbl(p_x_reservation_tbl(I).line_index).subinventory);
6134: */
6135: -- end change for bug# 1537689
6136:
6137: END LOOP;
6141: Call Configurations Pre-Processing
6142: -----------------------------------------------------------
6143: */
6144: IF l_debug_level > 0 THEN
6145: oe_debug_pub.add( 'BEFORE CALLING CONFIGURATIONS PRE-PROCESSING' ) ;
6146: END IF;
6147:
6148: OE_ORDER_IMPORT_CONFIG_PVT.Pre_Process(
6149: p_header_rec => p_x_header_rec
6165: */
6166: IF p_x_header_rec.order_source_id = OE_Globals.G_ORDER_SOURCE_EDI
6167: THEN
6168: IF l_debug_level > 0 THEN
6169: oe_debug_pub.add( 'BEFORE CALLING EDI PRE-PROCESS' ) ;
6170: END IF;
6171:
6172: OE_EDI_PVT.Pre_Process(
6173: p_header_rec => p_x_header_rec
6200:
6201: EXCEPTION
6202: WHEN OTHERS THEN
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');
6264: l_return_status VARCHAR2(1);
6265: /* Added the following variable to fix the bug 2355630 */
6266: l_unit_selling_price NUMBER;
6267: --
6268: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6269: --
6270: /* Added for bug 2734389 */
6271: l_msg_count NUMBER;
6272: l_msg_data VARCHAR2(2000);
6279: Initialize return status
6280: -----------------------------------------------------------
6281: */
6282: IF l_debug_level > 0 THEN
6283: oe_debug_pub.add( 'BEFORE INITIALIZING RETURN_STATUS' ) ;
6284: END IF;
6285: IF l_debug_level > 0 THEN
6286: oe_debug_pub.add( 'ENTERING ORDER IMPORT POST_PROCESS' ) ;
6287: END IF;
6282: IF l_debug_level > 0 THEN
6283: oe_debug_pub.add( 'BEFORE INITIALIZING RETURN_STATUS' ) ;
6284: END IF;
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:
6295: Set message context for the line
6296: -----------------------------------------------------------
6297: */
6298: IF l_debug_level > 0 THEN
6299: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT FOR THE LINE' ) ;
6300: END IF;
6301:
6302: OE_MSG_PUB.set_msg_context(
6303: p_entity_code => 'HEADER'
6322: Compare Price
6323: -----------------------------------------------------------
6324: */
6325: IF l_debug_level > 0 THEN
6326: oe_debug_pub.add( 'BEFORE COMPARING PRICE' ) ;
6327: END IF;
6328:
6329: /* Added the following code to fix the bug 2355630 */
6330: l_unit_selling_price := -1;
6327: END IF;
6328:
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
6328:
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
6338: where line_id = p_x_line_tbl(I).line_id;
6339:
6340: exception
6341: when others then
6342: oe_debug_pub.add( 'ex usp = ' || l_unit_selling_price);
6343: end;
6344:
6345: IF l_debug_level > 0 THEN
6346: oe_debug_pub.add( 'CUSTOMER_ITEM_NET_PRICE '||TO_CHAR ( P_X_LINE_TBL ( I ) .CUSTOMER_ITEM_NET_PRICE ) ) ;
6342: oe_debug_pub.add( 'ex usp = ' || l_unit_selling_price);
6343: end;
6344:
6345: IF l_debug_level > 0 THEN
6346: oe_debug_pub.add( 'CUSTOMER_ITEM_NET_PRICE '||TO_CHAR ( P_X_LINE_TBL ( I ) .CUSTOMER_ITEM_NET_PRICE ) ) ;
6347: END IF;
6348: IF l_debug_level > 0 THEN
6349: oe_debug_pub.add( 'UNIT_SELLING_PRICE '||TO_CHAR ( L_UNIT_SELLING_PRICE ) ) ;
6350: END IF;
6345: IF l_debug_level > 0 THEN
6346: oe_debug_pub.add( 'CUSTOMER_ITEM_NET_PRICE '||TO_CHAR ( P_X_LINE_TBL ( I ) .CUSTOMER_ITEM_NET_PRICE ) ) ;
6347: END IF;
6348: IF l_debug_level > 0 THEN
6349: oe_debug_pub.add( 'UNIT_SELLING_PRICE '||TO_CHAR ( L_UNIT_SELLING_PRICE ) ) ;
6350: END IF;
6351:
6352: END IF;
6353:
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
6360: oe_debug_pub.add( 'WARNING! ITEM PRICE SENT BY THE CUSTOMER IS DIFFERENT FROM THE ONE CALCULATED BY THE SYSTEM... ' ) ;
6361: END IF;
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);
6370: Compare Payment Term
6371: -----------------------------------------------------------
6372: */
6373: IF l_debug_level > 0 THEN
6374: oe_debug_pub.add('BEFORE COMPARING PAYMENT TERM' ) ;
6375: oe_debug_pub.add('cpti ' || p_x_line_tbl(I).customer_payment_term_id);
6376: IF p_x_line_val_tbl_old.exists(I) THEN --added for bug 4307609
6377: oe_debug_pub.add('cpt ' || p_x_line_val_tbl_old(I).customer_payment_term);
6378: end if ;
6371: -----------------------------------------------------------
6372: */
6373: IF l_debug_level > 0 THEN
6374: oe_debug_pub.add('BEFORE COMPARING PAYMENT TERM' ) ;
6375: oe_debug_pub.add('cpti ' || p_x_line_tbl(I).customer_payment_term_id);
6376: IF p_x_line_val_tbl_old.exists(I) THEN --added for bug 4307609
6377: oe_debug_pub.add('cpt ' || p_x_line_val_tbl_old(I).customer_payment_term);
6378: end if ;
6379: oe_debug_pub.add('pti ' || p_x_line_tbl(I).payment_term_id);
6373: IF l_debug_level > 0 THEN
6374: oe_debug_pub.add('BEFORE COMPARING PAYMENT TERM' ) ;
6375: oe_debug_pub.add('cpti ' || p_x_line_tbl(I).customer_payment_term_id);
6376: IF p_x_line_val_tbl_old.exists(I) THEN --added for bug 4307609
6377: oe_debug_pub.add('cpt ' || p_x_line_val_tbl_old(I).customer_payment_term);
6378: end if ;
6379: oe_debug_pub.add('pti ' || p_x_line_tbl(I).payment_term_id);
6380: END IF;
6381:
6375: oe_debug_pub.add('cpti ' || p_x_line_tbl(I).customer_payment_term_id);
6376: IF p_x_line_val_tbl_old.exists(I) THEN --added for bug 4307609
6377: oe_debug_pub.add('cpt ' || p_x_line_val_tbl_old(I).customer_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 <>
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
6391: IF l_debug_level > 0 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)
6413: Inventory Reservations
6414: -----------------------------------------------------------
6415: */
6416: IF l_debug_level > 0 THEN
6417: oe_debug_pub.add( 'BEFORE RESERVING INVENTORY' ) ;
6418: END IF;
6419:
6420: OE_ORDER_IMPORT_RESERVE_PVT.Reserve_Inventory(
6421: p_header_rec => p_x_header_rec
6436:
6437: /* Added the following if condition to fix the bug 3176286 */
6438: IF OE_SCHEDULE_UTIL.OESCH_PERFORMED_RESERVATION = 'Y' THEN
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
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);
6448: oe_debug_pub.add( 'AFTER CALLING THE INV FOR DO_CHECK_FOR_COMMIT : ' || L_RETURN_STATUS , 1 ) ;
6449: IF l_failed_rsv_temp_tbl.count > 0 THEN
6450: oe_debug_pub.add( ' THE RESERVATION PROCESS HAS FAILED ' , 1 ) ;
6451: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RSV_FAILURE');
6452: OE_MSG_PUB.Add;
6446: ,x_msg_data => l_msg_data
6447: ,x_failed_rsv_temp_tbl => l_failed_rsv_temp_tbl);
6448: oe_debug_pub.add( 'AFTER CALLING THE INV FOR DO_CHECK_FOR_COMMIT : ' || L_RETURN_STATUS , 1 ) ;
6449: IF l_failed_rsv_temp_tbl.count > 0 THEN
6450: oe_debug_pub.add( ' THE RESERVATION PROCESS HAS FAILED ' , 1 ) ;
6451: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RSV_FAILURE');
6452: OE_MSG_PUB.Add;
6453: END IF;
6454: -- Error Handling Start
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
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 ) ;
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
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;
6489:
6490: IF p_x_header_rec.order_source_id = OE_Globals.G_ORDER_SOURCE_EDI
6491: THEN
6492: IF l_debug_level > 0 THEN
6493: oe_debug_pub.add( 'BEFORE CALLING EDI POST-PROCESS' ) ;
6494: END IF;
6495:
6496: OE_EDI_PVT.POST_PROCESS(
6497: p_header_rec => p_x_header_rec
6524:
6525: EXCEPTION
6526: WHEN OTHERS THEN
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');