23: And sct.quota_flag = 'Y';
24:
25: BEGIN
26:
27: oe_debug_pub.add('Entering OE_DELAYED_REQUESTS_UTIL.VALIDATE_LSC_QUOTA_TOTAL', 1);
28:
29: x_return_status := FND_API.G_RET_STS_SUCCESS;
30: OPEN C_LSC_Quota_Total(p_line_id);
31: FETCH C_LSC_Quota_Total
41: OE_MSG_PUB.Add;
42: x_return_status := FND_API.G_RET_STS_ERROR;
43: END IF;
44:
45: oe_debug_pub.add('Exiting OE_DELAYED_REQUESTS_UTIL.VALIDATE_LSC_QUOTA_TOTAL', 1);
46:
47: EXCEPTION
48:
49: WHEN FND_API.G_EXC_ERROR THEN
75: ) IS
76:
77: BEGIN
78:
79: oe_debug_pub.add('Entering OE_DELAYED_REQUESTS_UTIL.VALIDATE_HSC_QUOTA_TOTAL', 1);
80:
81: OE_Validate_Header_Scredit.Validate_HSC_QUOTA_TOTAL(x_return_status => x_return_status,
82: p_header_id => p_header_id);
83:
80:
81: OE_Validate_Header_Scredit.Validate_HSC_QUOTA_TOTAL(x_return_status => x_return_status,
82: p_header_id => p_header_id);
83:
84: oe_debug_pub.add('Exiting OE_DELAYED_REQUESTS_UTIL.VALIDATE_HSC_QUOTA_TOTAL', 1);
85:
86: EXCEPTION
87:
88: WHEN OTHERS THEN
119: x_msg_count NUMBER;
120: x_msg_data VARCHAR2(2000);
121: Begin
122:
123: oe_debug_pub.add('Entering OE_DELAYED_REQUESTS_UTIL.DFLT_HSCREDIT_PRIMARY_SREP', 1);
124: OE_HEADER_SCREDIT_UTIL.DFLT_Hscredit_Primary_Srep
125: ( p_header_id =>p_header_id
126: ,p_SalesRep_id =>p_SalesRep_id
127: ,x_return_status=>x_return_status);
124: OE_HEADER_SCREDIT_UTIL.DFLT_Hscredit_Primary_Srep
125: ( p_header_id =>p_header_id
126: ,p_SalesRep_id =>p_SalesRep_id
127: ,x_return_status=>x_return_status);
128: oe_debug_pub.add('Exiting OE_DELAYED_REQUESTS_UTIL.DFLT_HSCREDIT_PRIMARY_SREP', 1);
129:
130: EXCEPTION
131:
132: WHEN OTHERS THEN
198:
199:
200: BEGIN
201:
202: OE_DEBUG_PUB.Add('Entering OE_DELAYED_REQUESTS_UTIL.Cascade_Service_Scredit',1);
203: l_line_id := p_request_rec.param8;
204: l_new_salesrep_id := p_request_rec.param1;
205: l_old_salesrep_id := p_request_rec.param2;
206: l_new_sales_credit_type_id := p_request_rec.param3;
208: l_new_percent := p_request_rec.param5;
209: l_old_percent := p_request_rec.param6;
210: l_operation := p_request_rec.param7;
211:
212: oe_debug_pub.add('l_line_id := ' || p_request_rec.param8,2);
213: oe_debug_pub.add('l_new_salesrep_id := ' || p_request_rec.param1,2);
214: oe_debug_pub.add('l_old_salesrep_id := ' || p_request_rec.param2,2);
215: oe_debug_pub.add('l_new_sales_credit_type_id :=' || p_request_rec.param3,2);
216: oe_debug_pub.add('l_old_sales_credit_type_id := ' || p_request_rec.param4,2);
209: l_old_percent := p_request_rec.param6;
210: l_operation := p_request_rec.param7;
211:
212: oe_debug_pub.add('l_line_id := ' || p_request_rec.param8,2);
213: oe_debug_pub.add('l_new_salesrep_id := ' || p_request_rec.param1,2);
214: oe_debug_pub.add('l_old_salesrep_id := ' || p_request_rec.param2,2);
215: oe_debug_pub.add('l_new_sales_credit_type_id :=' || p_request_rec.param3,2);
216: oe_debug_pub.add('l_old_sales_credit_type_id := ' || p_request_rec.param4,2);
217: oe_debug_pub.add('l_new_percent := ' || p_request_rec.param5,2);
210: l_operation := p_request_rec.param7;
211:
212: oe_debug_pub.add('l_line_id := ' || p_request_rec.param8,2);
213: oe_debug_pub.add('l_new_salesrep_id := ' || p_request_rec.param1,2);
214: oe_debug_pub.add('l_old_salesrep_id := ' || p_request_rec.param2,2);
215: oe_debug_pub.add('l_new_sales_credit_type_id :=' || p_request_rec.param3,2);
216: oe_debug_pub.add('l_old_sales_credit_type_id := ' || p_request_rec.param4,2);
217: oe_debug_pub.add('l_new_percent := ' || p_request_rec.param5,2);
218: oe_debug_pub.add('l_old_percent := ' || p_request_rec.param6,2);
211:
212: oe_debug_pub.add('l_line_id := ' || p_request_rec.param8,2);
213: oe_debug_pub.add('l_new_salesrep_id := ' || p_request_rec.param1,2);
214: oe_debug_pub.add('l_old_salesrep_id := ' || p_request_rec.param2,2);
215: oe_debug_pub.add('l_new_sales_credit_type_id :=' || p_request_rec.param3,2);
216: oe_debug_pub.add('l_old_sales_credit_type_id := ' || p_request_rec.param4,2);
217: oe_debug_pub.add('l_new_percent := ' || p_request_rec.param5,2);
218: oe_debug_pub.add('l_old_percent := ' || p_request_rec.param6,2);
219: oe_debug_pub.add('l_operation := ' || p_request_rec.param7,2);
212: oe_debug_pub.add('l_line_id := ' || p_request_rec.param8,2);
213: oe_debug_pub.add('l_new_salesrep_id := ' || p_request_rec.param1,2);
214: oe_debug_pub.add('l_old_salesrep_id := ' || p_request_rec.param2,2);
215: oe_debug_pub.add('l_new_sales_credit_type_id :=' || p_request_rec.param3,2);
216: oe_debug_pub.add('l_old_sales_credit_type_id := ' || p_request_rec.param4,2);
217: oe_debug_pub.add('l_new_percent := ' || p_request_rec.param5,2);
218: oe_debug_pub.add('l_old_percent := ' || p_request_rec.param6,2);
219: oe_debug_pub.add('l_operation := ' || p_request_rec.param7,2);
220:
213: oe_debug_pub.add('l_new_salesrep_id := ' || p_request_rec.param1,2);
214: oe_debug_pub.add('l_old_salesrep_id := ' || p_request_rec.param2,2);
215: oe_debug_pub.add('l_new_sales_credit_type_id :=' || p_request_rec.param3,2);
216: oe_debug_pub.add('l_old_sales_credit_type_id := ' || p_request_rec.param4,2);
217: oe_debug_pub.add('l_new_percent := ' || p_request_rec.param5,2);
218: oe_debug_pub.add('l_old_percent := ' || p_request_rec.param6,2);
219: oe_debug_pub.add('l_operation := ' || p_request_rec.param7,2);
220:
221: OPEN PARENT;
214: oe_debug_pub.add('l_old_salesrep_id := ' || p_request_rec.param2,2);
215: oe_debug_pub.add('l_new_sales_credit_type_id :=' || p_request_rec.param3,2);
216: oe_debug_pub.add('l_old_sales_credit_type_id := ' || p_request_rec.param4,2);
217: oe_debug_pub.add('l_new_percent := ' || p_request_rec.param5,2);
218: oe_debug_pub.add('l_old_percent := ' || p_request_rec.param6,2);
219: oe_debug_pub.add('l_operation := ' || p_request_rec.param7,2);
220:
221: OPEN PARENT;
222: FETCH PARENT
215: oe_debug_pub.add('l_new_sales_credit_type_id :=' || p_request_rec.param3,2);
216: oe_debug_pub.add('l_old_sales_credit_type_id := ' || p_request_rec.param4,2);
217: oe_debug_pub.add('l_new_percent := ' || p_request_rec.param5,2);
218: oe_debug_pub.add('l_old_percent := ' || p_request_rec.param6,2);
219: oe_debug_pub.add('l_operation := ' || p_request_rec.param7,2);
220:
221: OPEN PARENT;
222: FETCH PARENT
223: INTO l_line_id,l_item_type_code,l_line_set_id,l_service_reference_line_id,
238: CLOSE PARENT;
239:
240: IF l_item_type_code = 'MODEL' THEN
241:
242: oe_debug_pub.Add('Need to cascade the sales credit');
243:
244: FOR I IN MODEL_SERVICES LOOP
245: l_temp := 0;
246: -- For create check the existance of the record based on the
251:
252: l_sales_credit_type_id := l_new_sales_credit_type_id;
253: l_salesrep_id := l_new_salesrep_id;
254: l_percent := l_new_percent;
255: oe_debug_pub.Add('In l_operation if');
256: ELSE
257: l_sales_credit_type_id := l_old_sales_credit_type_id;
258: l_salesrep_id := l_old_salesrep_id;
259: l_percent := l_old_percent;
267: And sales_credit_type_id = l_sales_credit_type_id
268: AND salesrep_id = l_salesrep_id;
269: -- AND Percent = l_percent;
270:
271: oe_debug_pub.Add('l_q_percent ' || l_q_percent);
272: oe_debug_pub.Add('l_percent ' || l_percent);
273: EXCEPTION
274:
275: WHEN NO_DATA_FOUND THEN
268: AND salesrep_id = l_salesrep_id;
269: -- AND Percent = l_percent;
270:
271: oe_debug_pub.Add('l_q_percent ' || l_q_percent);
272: oe_debug_pub.Add('l_percent ' || l_percent);
273: EXCEPTION
274:
275: WHEN NO_DATA_FOUND THEN
276:
285: l_temp := 10;
286:
287: END;
288:
289: oe_debug_pub.Add('l_temp: ' || l_temp);
290: --Get Quota flag.
291:
292: BEGIN
293:
315: IF l_operation = OE_GLOBALS.G_OPR_CREATE THEN
316:
317: IF l_new_quota_flag = 'Y' THEN
318:
319: oe_debug_pub.Add(' In create and quota');
320: Select nvl(sum(Percent),0) Per_total
321: Into l_per_total
322: From oe_sales_credits sc,
323: oe_sales_credit_types sct
327: And sct.quota_flag = 'Y';
328:
329: END IF; -- Quota flag.
330:
331: oe_debug_pub.Add(' L_per_total : ' || nvl(l_per_total,0) || 'End');
332: oe_debug_pub.Add(' L_new_percent : ' || nvl(l_new_percent,0) || 'End');
333:
334: IF (l_per_total + l_new_percent) <= 100
335: OR l_new_quota_flag = 'N' THEN
328:
329: END IF; -- Quota flag.
330:
331: oe_debug_pub.Add(' L_per_total : ' || nvl(l_per_total,0) || 'End');
332: oe_debug_pub.Add(' L_new_percent : ' || nvl(l_new_percent,0) || 'End');
333:
334: IF (l_per_total + l_new_percent) <= 100
335: OR l_new_quota_flag = 'N' THEN
336:
333:
334: IF (l_per_total + l_new_percent) <= 100
335: OR l_new_quota_flag = 'N' THEN
336:
337: oe_debug_pub.Add(' Populate sales credit ');
338: -- Child.service does not have a sales credit and create the
339: -- same.
340: l_count := l_count + 1;
341:
384: END IF;
385:
386: END IF; -- Quota flag.
387:
388: oe_debug_pub.Add(' L_per_total : ' || nvl(l_per_total,0) || 'End');
389: oe_debug_pub.Add(' L_new_percent : ' || nvl(l_new_percent,0) || 'End');
390:
391:
392: IF nvl(l_per_total,0) <= 100
385:
386: END IF; -- Quota flag.
387:
388: oe_debug_pub.Add(' L_per_total : ' || nvl(l_per_total,0) || 'End');
389: oe_debug_pub.Add(' L_new_percent : ' || nvl(l_new_percent,0) || 'End');
390:
391:
392: IF nvl(l_per_total,0) <= 100
393: OR l_new_quota_flag = 'N' THEN
423: END LOOP;
424: END IF; -- Model.
425: END IF; -- Service
426:
427: oe_debug_pub.Add(' l_count : ' || to_char(l_count));
428: IF l_count > 0 THEN -- Have some data that need to get cascaded.
429:
430: -- Call OE_Order_PVT.Process_order to insert sales credits.
431: -- Set recursion mode.
465: l_Line_Scredit_tbl.DELETE;
466:
467: END IF; -- l_count.
468:
469: OE_DEBUG_PUB.Add('Exiting OE_DELAYED_REQUESTS_UTIL.Cascade_Service_Scredit',1);
470: x_return_status := l_return_status;
471:
472: EXCEPTION
473:
524: DUPLICATE_DISCOUNT EXCEPTION;
525:
526: BEGIN
527:
528: oe_debug_pub.add('Entering OE_DELAYED_REQUESTS_UTIL.CHECK_DUPLICATE', 1);
529:
530: l_entity_id := p_request_rec.entity_id;
531: l_entity_code := p_request_rec.entity_code;
532: l_discount_id := To_number(p_request_rec.param1);
532: l_discount_id := To_number(p_request_rec.param1);
533: l_header_id := To_number(p_request_rec.param2);
534: l_line_id := To_number(p_request_rec.param3);
535:
536: oe_debug_pub.ADD('OEXSRLNB: Check Duplicate. '||
537: ' entity_code = ' || l_entity_code, 2);
538:
539:
540: -- Check if same discount has already been applied
597:
598:
599: x_return_status := l_return_status;
600:
601: oe_debug_pub.add('Exiting OE_DELAYED_REQUESTS_UTIL.CHECK_DUPLICATE', 1);
602:
603: EXCEPTION
604:
605: WHEN NO_DATA_FOUND OR DUPLICATE_DISCOUNT
658:
659:
660: BEGIN
661:
662: oe_debug_pub.add('Entering OE_DELAYED_REQUESTS_UTIL.CHECK_FIXED_PRICE', 1);
663:
664: l_entity_id := p_request_rec.entity_id;
665: l_entity_code := p_request_rec.entity_code;
666: l_discount_line_id := To_number(p_request_rec.param1);
667: l_header_id := To_number(p_request_rec.param2);
668: l_line_id := To_number(p_request_rec.param3);
669:
670:
671: oe_debug_pub.ADD('OEXSRLNB: Check Fixed Price. '||
672: ' entity_code = ' || l_entity_code, 2);
673:
674: IF l_entity_code = OE_GLOBALS.G_ENTITY_HEADER_ADJ THEN
675: FOR l_hdr_adjustment IN hdr_line_adjustments LOOP
694: AND ROWNUM = 1;
695:
696: IF l_count <> 0
697: AND l_discount_count = 1 THEN
698: oe_debug_pub.ADD('OEXSRLNB2: Check Fixed Price. '||
699: ' entity_code = ' || l_entity_code, 2);
700: l_return_status := FND_API.G_RET_STS_ERROR;
701: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
702: THEN
756: AND dln.discount_line_id = adj.discount_line_id
757: AND dln.price IS NOT NULL
758: AND ROWNUM = 1;
759:
760: oe_debug_pub.ADD('OEXSRLNB1: Check Fixed Price. '||
761: ' entity_code = ' || l_entity_code, 2);
762: IF SQL%rowcount <> 0
763: AND l_discount_count = 1 THEN
764: oe_debug_pub.ADD('OEXSRLNB2: Check Fixed Price. '||
760: oe_debug_pub.ADD('OEXSRLNB1: Check Fixed Price. '||
761: ' entity_code = ' || l_entity_code, 2);
762: IF SQL%rowcount <> 0
763: AND l_discount_count = 1 THEN
764: oe_debug_pub.ADD('OEXSRLNB2: Check Fixed Price. '||
765: ' entity_code = ' || l_entity_code, 2);
766: l_return_status := FND_API.G_RET_STS_ERROR;
767: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
768: THEN
780:
781:
782: x_return_status := FND_API.G_RET_STS_SUCCESS;
783:
784: oe_debug_pub.add('Exiting OE_DELAYED_REQUESTS_UTIL.CHECK_FIXED_PRICE', 1);
785:
786: EXCEPTION
787:
788: WHEN NO_DATA_FOUND OR FIXED_PRICE
865:
866:
867: BEGIN
868:
869: oe_debug_pub.add('Entering OE_DELAYED_REQUESTS_UTIL.CHECK_PERCENTAGE', 1);
870:
871: l_entity_code := p_request_rec.entity_code;
872:
873: oe_debug_pub.ADD('OEXSRLNB: Check Percentage. '||
869: oe_debug_pub.add('Entering OE_DELAYED_REQUESTS_UTIL.CHECK_PERCENTAGE', 1);
870:
871: l_entity_code := p_request_rec.entity_code;
872:
873: oe_debug_pub.ADD('OEXSRLNB: Check Percentage. '||
874: ' entity_code = ' || l_entity_code, 2);
875:
876:
877: -- Check if maximum percentage has not been execeded on the
880: THEN
881:
882: l_header_id := p_request_rec.entity_id;
883:
884: oe_debug_pub.ADD('OEXSRLNB: check header percentage', 2);
885:
886: OPEN hdr_adj_total;
887: FETCH hdr_adj_total INTO l_percent_total;
888: CLOSE hdr_adj_total;
890: OPEN max_line_adj_total;
891: FETCH max_line_adj_total INTO l_percent_total;
892: CLOSE max_line_adj_total;
893:
894: oe_debug_pub.ADD('OEXSRLNB: maximum percentage total = ' ||
895: To_char(l_percent_total), 2);
896:
897: IF ( l_percent_total > 100 ) THEN
898:
918:
919: l_line_id := p_request_rec.entity_id;
920: l_header_id := To_number(p_request_rec.param1);
921:
922: oe_debug_pub.ADD('OEXSRLNB: check line percentage', 2);
923:
924: OPEN hdr_adj_total;
925: FETCH hdr_adj_total INTO l_percent_total;
926: CLOSE hdr_adj_total;
928: OPEN line_adj_total;
929: FETCH line_adj_total INTO l_percent_total;
930: CLOSE line_adj_total;
931:
932: oe_debug_pub.ADD('OEXSRLNB: line percentage total = ' ||
933: To_char(l_percent_total), 2);
934:
935:
936: IF ( l_percent_total > 100 ) THEN
988:
989:
990: x_return_status := l_return_status;
991:
992: oe_debug_pub.add('Exiting OE_DELAYED_REQUESTS_UTIL.CHECK_PERCENTAGE', 1);
993:
994: EXCEPTION
995:
996: WHEN PERCENTAGE_EXCEEDED
1057: l_request_tbl OE_Order_Pub.Request_Tbl_Type;
1058: req_ind NUMBER;
1059: BEGIN
1060:
1061: oe_debug_pub.add('Entering OE_DELAYED_REQUESTS_UTIL.CREATE_CONFIG_ITEM', 1);
1062:
1063:
1064: oe_debug_pub.add('In procedure Create_Config', 2);
1065:
1060:
1061: oe_debug_pub.add('Entering OE_DELAYED_REQUESTS_UTIL.CREATE_CONFIG_ITEM', 1);
1062:
1063:
1064: oe_debug_pub.add('In procedure Create_Config', 2);
1065:
1066: l_line_rec := OE_Order_PUB.G_MISS_LINE_REC;
1067:
1068:
1075: l_control_rec.write_to_DB := TRUE;
1076: l_control_rec.process := FALSE;
1077:
1078:
1079: OE_DEBUG_PUB.ADD('Loading top_model_line_id: ' || p_top_model_line_id, 2);
1080: l_config_rec :=
1081: OE_Order_Cache.Load_Top_Model_Line (p_top_model_line_id);
1082:
1083: l_line_rec.top_model_line_id := p_top_model_line_id;
1124: RAISE FND_API.G_EXC_ERROR;
1125: END IF;
1126: */
1127:
1128: oe_debug_pub.add('Exiting OE_DELAYED_REQUESTS_UTIL.CREATE_CONFIG_ITEM', 1);
1129:
1130: EXCEPTION
1131:
1132: WHEN FND_API.G_EXC_ERROR THEN
1157: )
1158: IS
1159: BEGIN
1160:
1161: oe_debug_pub.add('Entering OE_DELAYED_REQUESTS_UTIL.INS_INCLUDED_ITEMS', 1);
1162:
1163: OE_DEBUG_PUB.ADD('Inserting Included Items', 2);
1164:
1165: oe_debug_pub.add('Exiting OE_DELAYED_REQUESTS_UTIL.INS_INCLUDED_ITEMS', 1);
1159: BEGIN
1160:
1161: oe_debug_pub.add('Entering OE_DELAYED_REQUESTS_UTIL.INS_INCLUDED_ITEMS', 1);
1162:
1163: OE_DEBUG_PUB.ADD('Inserting Included Items', 2);
1164:
1165: oe_debug_pub.add('Exiting OE_DELAYED_REQUESTS_UTIL.INS_INCLUDED_ITEMS', 1);
1166: Null;
1167: END;
1161: oe_debug_pub.add('Entering OE_DELAYED_REQUESTS_UTIL.INS_INCLUDED_ITEMS', 1);
1162:
1163: OE_DEBUG_PUB.ADD('Inserting Included Items', 2);
1164:
1165: oe_debug_pub.add('Exiting OE_DELAYED_REQUESTS_UTIL.INS_INCLUDED_ITEMS', 1);
1166: Null;
1167: END;
1168:
1169: PROCEDURE verify_payment
1178: BEGIN
1179:
1180: x_return_status := FND_API.G_RET_STS_SUCCESS;
1181:
1182: oe_debug_pub.ADD('Entering delayed request utility for verify payment',1);
1183:
1184: OE_Verify_Payment_PUB.Verify_Payment
1185: ( p_header_id => p_header_id
1186: , p_calling_action => 'UPDATE'
1195: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1196: RAISE FND_API.G_EXC_ERROR;
1197: END IF;
1198:
1199: oe_debug_pub.ADD('Exiting delayed request utility for verify payment',1);
1200:
1201: EXCEPTION
1202:
1203: WHEN FND_API.G_EXC_ERROR THEN
1251: l_split_by VARCHAR2(30);
1252: l_src_doc_type_id NUMBER; -- added for bug 6778016
1253: BEGIN
1254:
1255: OE_DEBUG_PUB.ADD('RMA: In INSERT_RMA_SCREDIT_ADJUSTMENT',1);
1256:
1257: OE_DEBUG_PUB.ADD('RMA: Line Id is '||TO_CHAR(p_line_id),2);
1258:
1259: x_return_status := FND_API.G_RET_STS_SUCCESS;
1253: BEGIN
1254:
1255: OE_DEBUG_PUB.ADD('RMA: In INSERT_RMA_SCREDIT_ADJUSTMENT',1);
1256:
1257: OE_DEBUG_PUB.ADD('RMA: Line Id is '||TO_CHAR(p_line_id),2);
1258:
1259: x_return_status := FND_API.G_RET_STS_SUCCESS;
1260:
1261: -- bug 3317323
1267: FROM oe_order_lines
1268: WHERE line_id = p_line_id;
1269: EXCEPTION
1270: WHEN NO_DATA_FOUND THEN
1271: OE_DEBUG_PUB.ADD('Invalid line_id',1);
1272: RETURN;
1273: END;
1274: IF l_split_by = 'SYSTEM' THEN
1275: RETURN;
1289: RAISE FND_API.G_EXC_ERROR;
1290: END IF;
1291: EXCEPTION
1292: WHEN NO_DATA_FOUND THEN
1293: OE_DEBUG_PUB.ADD('There are no existing sales credits to delete',1);
1294: NULL;
1295: END;
1296:
1297: IF l_Line_Scredit_tbl.COUNT > 0 THEN
1318: FROM oe_order_lines
1319: WHERE line_id = p_line_id;
1320: EXCEPTION
1321: WHEN NO_DATA_FOUND THEN
1322: OE_DEBUG_PUB.ADD('Invalid line_id',1);
1323: RETURN;
1324: END;
1325: */
1326:
1329: ,x_line_Scredit_tbl => l_Line_Scredit_tbl);
1330: EXCEPTION
1331: WHEN NO_DATA_FOUND THEN
1332: --RETURN;
1333: OE_DEBUG_PUB.ADD('There are no Sales credits on the reference line',1);
1334: NULL;
1335: END;
1336:
1337: IF l_Line_Scredit_tbl.COUNT > 0 THEN
1363: initial values passed.
1364: */
1365: if l_src_doc_type_id=2 or NOT (OE_GLOBALS.G_UI_FLAG) --2nd condition added for bug 8820838
1366: then
1367: OE_DEBUG_PUB.ADD('Order is getting copied, Setting process partial flag to true');
1368: l_control_rec.controlled_operation:=true;
1369: l_control_rec.process_partial:=true;
1370: l_control_rec.clear_dependents:= FALSE;
1371: end if; /*End of changes for bug 6778016*/
1369: l_control_rec.process_partial:=true;
1370: l_control_rec.clear_dependents:= FALSE;
1371: end if; /*End of changes for bug 6778016*/
1372:
1373: OE_DEBUG_PUB.ADD('Calling OE_ORDER_PVT.Line_Scredits',1);
1374: OE_ORDER_PVT.Line_Scredits
1375: (p_validation_level => FND_API.G_VALID_LEVEL_FULL
1376: ,p_control_rec => l_control_rec
1377: ,p_x_Line_Scredit_tbl => l_x_Line_Scredit_tbl
1377: ,p_x_Line_Scredit_tbl => l_x_Line_Scredit_tbl
1378: ,p_x_old_Line_Scredit_tbl => l_x_old_Line_Scredit_tbl
1379: ,x_return_status => l_return_status);
1380:
1381: OE_DEBUG_PUB.ADD('After Calling OE_ORDER_PVT.Line_Scredits',1);
1382: -- Reset recursion mode.
1383: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1384:
1385: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1406: l_Line_Scredit_tbl.DELETE;
1407:
1408: END IF; /* end inserting sales credit */
1409:
1410: oe_debug_pub.add('Exit INSERT_RMA_SCREDIT_ADJUSTMENT',1);
1411: EXCEPTION
1412:
1413:
1414: WHEN FND_API.G_EXC_ERROR THEN
1497: BEGIN
1498: x_return_status := l_return_status;
1499:
1500: -- Get the Line record
1501: oe_debug_pub.add('Entering Tax line',1);
1502:
1503: BEGIN
1504:
1505: OE_LINE_UTIL.Query_Row(p_line_id => l_line_id,
1529: END IF;
1530:
1531: l_line_rec.tax_value := l_tax_value;
1532:
1533: oe_debug_pub.add('After Successfully calculating Tax',2);
1534:
1535: -- Check for existing TAX records in OE_PRICE_ADJUSTMENTS table for the
1536: -- given line record.
1537: -- Replace Query_rows with lock rows --
1550: x_return_status := FND_API.G_RET_STS_SUCCESS;
1551: END;
1552:
1553: -- If any TAX records exists, then delete those records.
1554: oe_debug_pub.add('line_adj_tbl count is : ' || l_l_line_adj_tbl.count , 1);
1555:
1556: IF l_l_line_adj_tbl.COUNT > 0 THEN
1557:
1558: FOR I IN 1..l_l_line_adj_tbl.COUNT LOOP
1555:
1556: IF l_l_line_adj_tbl.COUNT > 0 THEN
1557:
1558: FOR I IN 1..l_l_line_adj_tbl.COUNT LOOP
1559: oe_debug_pub.add('Parent adj Id is '||
1560: to_char(l_l_line_adj_tbl(I).parent_adjustment_id),2);
1561: IF l_l_line_adj_tbl(I).list_line_type_code = 'TAX' AND
1562: l_l_line_adj_tbl(I).parent_adjustment_id IS NULL
1563: THEN
1570: END IF;
1571:
1572: -- Load IN parameters for Line Adjustment record
1573:
1574: oe_debug_pub.add('line tax rec out nocopy table 1: ' || l_tax_rec_out_tbl.count , 1);
1575:
1576: IF l_tax_rec_out_tbl.COUNT > 0
1577: THEN
1578: FOR I IN 1..l_tax_rec_out_tbl.COUNT LOOP
1669:
1670: -- Set control flags.
1671: l_control_rec.controlled_operation := FALSE;
1672:
1673: oe_debug_pub.add('Before calling Process Order API',2);
1674:
1675: -- Set recursion mode.
1676: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
1677:
1712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1713: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1714: RAISE FND_API.G_EXC_ERROR;
1715: END IF;
1716: oe_debug_pub.add('After calling Process_order API',2);
1717: END IF;
1718: l_tax_rec_out_tbl.delete;
1719: x_return_status := l_return_status;
1720: oe_debug_pub.add('Exiting Tax Line',1);
1716: oe_debug_pub.add('After calling Process_order API',2);
1717: END IF;
1718: l_tax_rec_out_tbl.delete;
1719: x_return_status := l_return_status;
1720: oe_debug_pub.add('Exiting Tax Line',1);
1721: EXCEPTION
1722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1723: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1724:
1763: l_msg_data VARCHAR2(2000);
1764:
1765: BEGIN
1766:
1767: OE_Debug_PUB.Add('Entering OE_Delayed_Requests_Util.split_Hold',1);
1768: -- call the oe_holds_pub to split the line
1769: OE_Holds_pvt.split_hold (
1770: p_line_id => p_entity_id
1771: , p_split_from_line_id => p_split_from_line_id
1773: , x_msg_count => l_msg_count
1774: , x_msg_data => l_msg_data
1775: );
1776: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1777: OE_Debug_PUB.Add('Error in OE_Holds_PUB.split_Holds',2);
1778: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1779: RAISE FND_API.G_EXC_ERROR;
1780: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1782: END IF;
1783: END IF; -- if split hold was successful
1784:
1785: OE_Debug_PUB.Add('Exiting OE_Delayed_Requests_Util.split_Hold',2);
1786:
1787: EXCEPTION
1788:
1789: WHEN FND_API.G_EXC_ERROR THEN
1830: l_msg_data VARCHAR2(2000);
1831:
1832: BEGIN
1833:
1834: OE_Debug_PUB.Add('Entering Eval_Hold_Source', 1);
1835: Oe_debug_pub.add('Hold entity: '|| p_hold_entity_code ||' '|| p_hold_entity_id,2);
1836: x_return_status := FND_API.G_RET_STS_SUCCESS;
1837:
1838: oe_holds_pub.evaluate_holds ( p_entity_code => p_entity_code
1831:
1832: BEGIN
1833:
1834: OE_Debug_PUB.Add('Entering Eval_Hold_Source', 1);
1835: Oe_debug_pub.add('Hold entity: '|| p_hold_entity_code ||' '|| p_hold_entity_id,2);
1836: x_return_status := FND_API.G_RET_STS_SUCCESS;
1837:
1838: oe_holds_pub.evaluate_holds ( p_entity_code => p_entity_code
1839: ,p_entity_id => p_entity_id
1846:
1847:
1848:
1849: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1850: OE_Debug_PUB.Add('Error in OE_Holds_PUB.evaluate_holds',2);
1851: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1852: RAISE FND_API.G_EXC_ERROR;
1853: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1855: END IF;
1856: END IF;
1857:
1858: OE_Debug_PUB.Add('Exiting Eval_Hold_Source', 1);
1859:
1860: EXCEPTION
1861: WHEN FND_API.G_EXC_ERROR THEN
1862:
1898: l_msg_data VARCHAR2(2000) := NULL;
1899: l_line_rec OE_Order_PUB.Line_Rec_Type;
1900: BEGIN
1901:
1902: OE_Debug_PUB.Add('Entering OE_Delayed_Requests_Util.Apply_Hold',1);
1903:
1904: IF l_request_rec.entity_code = OE_Globals.G_ENTITY_HEADER THEN
1905: -- Indicates Header Level action
1906: --l_header_id := l_request_rec.entity_id;
1904: IF l_request_rec.entity_code = OE_Globals.G_ENTITY_HEADER THEN
1905: -- Indicates Header Level action
1906: --l_header_id := l_request_rec.entity_id;
1907: l_hold_source_rec.header_id := l_request_rec.entity_id;
1908: OE_Debug_PUB.Add('Header ID: '|| l_hold_source_rec.header_id,1);
1909:
1910: ELSIF l_request_rec.entity_code = OE_Globals.G_ENTITY_LINE THEN
1911:
1912: OE_debug_pub.add('Line ID: '|| l_request_rec.entity_id,1);
1908: OE_Debug_PUB.Add('Header ID: '|| l_hold_source_rec.header_id,1);
1909:
1910: ELSIF l_request_rec.entity_code = OE_Globals.G_ENTITY_LINE THEN
1911:
1912: OE_debug_pub.add('Line ID: '|| l_request_rec.entity_id,1);
1913: BEGIN
1914: SELECT header_id
1915: INTO l_header_id
1916: FROM oe_order_lines
1914: SELECT header_id
1915: INTO l_header_id
1916: FROM oe_order_lines
1917: WHERE line_id = l_request_rec.entity_id;
1918: OE_debug_pub.add('OEXUREQB:Header ID: '|| l_header_id);
1919:
1920:
1921: EXCEPTION
1922: WHEN OTHERS THEN
1919:
1920:
1921: EXCEPTION
1922: WHEN OTHERS THEN
1923: OE_debug_pub.add('OEXUREQB:No header ID for this line');
1924: RAISE NO_DATA_FOUND;
1925: END;
1926:
1927: l_hold_source_rec.header_id := l_header_id;
1993: );
1994:
1995:
1996: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1997: OE_Debug_PUB.Add('OEXUREQB:Error in OE_Holds_PUB.Apply_Holds',1);
1998: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1999: RAISE FND_API.G_EXC_ERROR;
2000: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2000: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2002: END IF;
2003: ELSE
2004: OE_Debug_PUB.Add('OEXUREQB:Hold applied',1);
2005: END IF;
2006:
2007: x_request_rec := l_request_rec;
2008:
2005: END IF;
2006:
2007: x_request_rec := l_request_rec;
2008:
2009: OE_Debug_PUB.Add('Exiting OE_Delayed_Requests_Util.Apply_Hold',1);
2010: EXCEPTION
2011:
2012: WHEN FND_API.G_EXC_ERROR THEN
2013:
2060: l_hold_release_rec OE_HOLDS_PVT.Hold_Release_Rec_Type;
2061: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
2062: BEGIN
2063:
2064: OE_Debug_PUB.Add('Entering OE_Delayed_Requests_Util.Release_Hold',1);
2065:
2066: IF l_request_rec.entity_code = OE_Globals.G_ENTITY_HEADER THEN
2067: -- Indicates Header Level action
2068:
2067: -- Indicates Header Level action
2068:
2069: l_header_id := l_request_rec.entity_id;
2070: l_hold_source_rec.header_id := l_header_id; --Bug 5042664
2071: OE_Debug_PUB.Add('Header ID: '|| l_header_id,1);
2072:
2073: ELSIF l_request_rec.entity_code = OE_Globals.G_ENTITY_LINE THEN
2074:
2075: --l_line_id := l_request_rec.entity_id;
2072:
2073: ELSIF l_request_rec.entity_code = OE_Globals.G_ENTITY_LINE THEN
2074:
2075: --l_line_id := l_request_rec.entity_id;
2076: OE_debug_pub.add('Line ID: '|| l_request_rec.entity_id,1);
2077: BEGIN
2078: SELECT header_id
2079: INTO l_header_id
2080: FROM oe_order_lines
2078: SELECT header_id
2079: INTO l_header_id
2080: FROM oe_order_lines
2081: WHERE line_id = l_request_rec.entity_id;
2082: OE_debug_pub.add('OEXUREQB:Header ID: '|| l_header_id);
2083:
2084:
2085: EXCEPTION
2086: WHEN OTHERS THEN
2083:
2084:
2085: EXCEPTION
2086: WHEN OTHERS THEN
2087: OE_debug_pub.add('OEXUREQB:No header ID for this line');
2088: RAISE NO_DATA_FOUND;
2089: END;
2090:
2091: l_hold_source_rec.header_id := l_header_id;
2118: l_hold_source_rec.HOLD_ENTITY_CODE := l_entity_code;
2119: l_hold_source_rec.HOLD_ENTITY_ID := l_entity_id;
2120:
2121:
2122: OE_Debug_PUB.Add('Calling OE_Holds_PUB.Release_Holds',1);
2123: /*
2124: OE_Holds_PUB.Release_Holds
2125: ( p_api_version => 1.0
2126: , p_validation_level => p_validation_level
2143: ,x_return_status => l_return_status
2144: ,x_msg_count => l_msg_count
2145: ,x_msg_data => l_msg_data
2146: );
2147: OE_DEBUG_PUB.Add('x_return_status:' || l_return_status,1);
2148:
2149: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2150: OE_Debug_PUB.Add('Error in OE_Holds_PUB.Release_Holds',2);
2151: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2146: );
2147: OE_DEBUG_PUB.Add('x_return_status:' || l_return_status,1);
2148:
2149: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2150: OE_Debug_PUB.Add('Error in OE_Holds_PUB.Release_Holds',2);
2151: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2152: RAISE FND_API.G_EXC_ERROR;
2153: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2153: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2155: END IF;
2156: ELSE
2157: OE_Debug_PUB.Add('Hold released',1);
2158: END IF;
2159:
2160: x_request_rec := l_request_rec;
2161: OE_Debug_PUB.Add('Exiting OE_Delayed_Requests_Util.Release_Hold',1);
2157: OE_Debug_PUB.Add('Hold released',1);
2158: END IF;
2159:
2160: x_request_rec := l_request_rec;
2161: OE_Debug_PUB.Add('Exiting OE_Delayed_Requests_Util.Release_Hold',1);
2162: EXCEPTION
2163:
2164: WHEN FND_API.G_EXC_ERROR THEN
2165:
2409: END IF;
2410:
2411: IF l_action IN ('B', 'C', 'R') THEN
2412:
2413: oe_debug_pub.add('calling Process_FTE_Action for Order Import.', 3);
2414:
2415: -- set p_ui_flag to Y since this is called from Action
2416: -- through Order Import.
2417: OE_FTE_INTEGRATION_PVT.Process_FTE_Action
2425: ,x_msg_data => l_msg_data);
2426: ELSE
2427: fnd_message.set_name('ONT','OE_FTE_NOT_ENABLED');
2428: OE_MSG_PUB.Add;
2429: oe_debug_pub.add('Unable to process FTE integration either due to
2430: FTE is not enabled or action code is invalid.', 3);
2431: x_return_status := FND_API.G_RET_STS_ERROR;
2432: END IF;
2433:
2430: FTE is not enabled or action code is invalid.', 3);
2431: x_return_status := FND_API.G_RET_STS_ERROR;
2432: END IF;
2433:
2434: OE_DEBUG_PUB.Add('Return Status fte action: '||x_return_status);
2435:
2436: EXCEPTION
2437: WHEN OTHERS THEN
2438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2482: l_action := 'REMOVE';
2483: END IF;
2484:
2485: l_selelect_line_tbl(1).id1 := p_entity_id; --R12.MOAC
2486: OE_DEBUG_PUB.Add(' Before Calling Process Sets',1);
2487:
2488: --R12.MOAC
2489: OE_SET_UTIL.Process_Sets
2490: ( p_selected_line_tbl => l_selelect_line_tbl,
2498: x_msg_count => l_msg_count ,
2499: x_msg_data => l_msg_data);
2500:
2501:
2502: OE_DEBUG_PUB.Add('After Calling Process Sets'||x_return_status,1);
2503:
2504:
2505: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2526: PROCEDURE First_period_bill_amt (p_header_id IN NUMBER DEFAULT NULL,
2527: p_line_id IN NUMBER DEFAULT NULL,
2528: x_return_status OUT nocopy VARCHAR2)
2529: IS
2530: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2531: l_line_rec OE_ORDER_PUB.line_rec_type;
2532: l_old_line_tbl OE_ORDER_PUB.line_tbl_type;
2533: l_line_tbl OE_ORDER_PUB.line_tbl_type;
2534: l_item_type VARCHAR2(50) :='';
2551: BEGIN
2552: x_return_status := fnd_api.g_ret_sts_success;
2553:
2554: IF l_debug_level > 0 THEN
2555: oe_debug_pub.ADD('Entering UTIL.CALCULATE_FIRST_PERIOD_BILL_AMT p_header_id= '
2556: ||p_header_id
2557: ||' p_line_id= '
2558: ||p_line_id, 1);
2559: END IF;
2560: IF ( p_header_id IS NOT NULL
2561: AND p_line_id IS NOT NULL ) THEN
2562: x_return_status := fnd_api.g_ret_sts_unexp_error;
2563: IF l_debug_level > 0 THEN
2564: oe_debug_pub.ADD(' Both Header ID and Line ID cannot be passed ');
2565: END IF;
2566: ELSIF p_line_id IS NOT NULL THEN
2567: l_line_rec := OE_line_UTIL.Query_Row(p_line_id=> p_line_id);
2568: -- OE_Order_Cache.Load_Order_Header(l_line_rec.header_id);
2574: l_item_type := 'SERVICE';
2575: l_sub_template := '';
2576: end if;
2577: IF l_debug_level > 0 THEN
2578: oe_debug_pub.ADD('usp= '||l_line_rec.unit_selling_price
2579: ||' ord_qty= '||l_line_rec.ordered_quantity
2580: ||' sub_enableflag= '||l_line_rec.subscription_enable_flag
2581: ||' bill_code= '||l_line_rec.service_bill_option_code);
2582: oe_debug_pub.ADD( ' StartDate= '||l_line_rec.service_start_date
2578: oe_debug_pub.ADD('usp= '||l_line_rec.unit_selling_price
2579: ||' ord_qty= '||l_line_rec.ordered_quantity
2580: ||' sub_enableflag= '||l_line_rec.subscription_enable_flag
2581: ||' bill_code= '||l_line_rec.service_bill_option_code);
2582: oe_debug_pub.ADD( ' StartDate= '||l_line_rec.service_start_date
2583: ||' EndDate= '||l_line_rec.service_end_date
2584: ||' Org ID= '||l_line_rec.org_id
2585: ||' Item Type= '||l_item_type
2586: ||' Curr Code= '||l_curr_code);
2583: ||' EndDate= '||l_line_rec.service_end_date
2584: ||' Org ID= '||l_line_rec.org_id
2585: ||' Item Type= '||l_item_type
2586: ||' Curr Code= '||l_curr_code);
2587: oe_debug_pub.ADD( ' Bill Profile= '||l_line_rec.service_bill_profile_id
2588: ||' Subs Template= '||l_sub_template);
2589: END IF;
2590: If l_line_rec.service_bill_option_code = 'FPOM'
2591: AND NVL(l_line_rec.service_bill_profile_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
2606: ,x_bill_amount => l_first_period_amt
2607: ,x_bill_enddate => l_first_period_enddate
2608: ) ;
2609: IF l_debug_level > 0 THEN
2610: oe_debug_pub.ADD( ' (1) After OKS Get Billed Amount, first_period_amt= '||l_first_period_amt
2611: ||' first_period_enddate= '||l_first_period_enddate);
2612: End If;
2613: --16621149 start
2614: Else
2614: Else
2615: l_first_period_amt := '';
2616: l_first_period_enddate := '';
2617: IF l_debug_level > 0 THEN
2618: oe_debug_pub.ADD( ' Start Date,End Date are NULL, so Update FirstPeriod Amt and EndDate to NULL');
2619: End If;
2620: End If;
2621: --16621149 end
2622: UPDATE oe_order_lines_all
2635: p_line_id => l_line_rec.line_id,
2636: x_index => l_global_index,
2637: x_return_status => l_return_status );
2638: IF l_debug_level > 0 THEN
2639: oe_debug_pub.add('S.F.P.A: after update global picture, status: ' || l_return_status, 1 ) ;
2640: oe_debug_pub.add('S.F.P.A: global picture index: ' || l_global_index , 1 ) ;
2641: END IF;
2642: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2643: RAISE Fnd_Api.G_EXC_ERROR;
2636: x_index => l_global_index,
2637: x_return_status => l_return_status );
2638: IF l_debug_level > 0 THEN
2639: oe_debug_pub.add('S.F.P.A: after update global picture, status: ' || l_return_status, 1 ) ;
2640: oe_debug_pub.add('S.F.P.A: global picture index: ' || l_global_index , 1 ) ;
2641: END IF;
2642: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2643: RAISE Fnd_Api.G_EXC_ERROR;
2644: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2662: l_item_type := 'SERVICE';
2663: l_sub_template := '';
2664: end if;
2665: IF l_debug_level > 0 THEN
2666: oe_debug_pub.ADD('usp= '||l_line_rec.unit_selling_price
2667: ||' ord_qty= '||l_line_rec.ordered_quantity
2668: ||' sub_enableflag= '||l_line_rec.subscription_enable_flag
2669: ||' bill_code= '||l_line_rec.service_bill_option_code);
2670: oe_debug_pub.ADD( ' StartDate= '||l_line_rec.service_start_date
2666: oe_debug_pub.ADD('usp= '||l_line_rec.unit_selling_price
2667: ||' ord_qty= '||l_line_rec.ordered_quantity
2668: ||' sub_enableflag= '||l_line_rec.subscription_enable_flag
2669: ||' bill_code= '||l_line_rec.service_bill_option_code);
2670: oe_debug_pub.ADD( ' StartDate= '||l_line_rec.service_start_date
2671: ||' EndDate= '||l_line_rec.service_end_date
2672: ||' Org ID= '||l_line_rec.org_id
2673: ||' Item Type= '||l_item_type
2674: ||' Curr Code= '||l_curr_code
2672: ||' Org ID= '||l_line_rec.org_id
2673: ||' Item Type= '||l_item_type
2674: ||' Curr Code= '||l_curr_code
2675: ||' Line ID='||l_rec.line_id);
2676: oe_debug_pub.ADD( ' Bill Profile= '||l_line_rec.service_bill_profile_id
2677: ||' Subs Template= '||l_sub_template);
2678: END IF;
2679: -- Call OKS API to get First Period Bill Amount
2680: OKS_BILL_SCH.Get_Billed_Amount(
2689: ,x_bill_amount => l_first_period_amt
2690: ,x_bill_enddate => l_first_period_enddate
2691: ) ;
2692: IF l_debug_level > 0 THEN
2693: oe_debug_pub.ADD( ' (2) After OKS Get Billed Amount, first_period_amt= '||l_first_period_amt
2694: ||' first_period_enddate= '||l_first_period_enddate);
2695: End If;
2696: -- Update the current line being processed
2697: UPDATE oe_order_lines_all
2710: p_line_id => l_line_rec.line_id,
2711: x_index => l_global_index,
2712: x_return_status => l_return_status );
2713: IF l_debug_level > 0 THEN
2714: oe_debug_pub.add('S.F.P.A: after update global picture, status: ' || l_return_status, 1 ) ;
2715: oe_debug_pub.add('S.F.P.A: global picture index: ' || l_global_index , 1 ) ;
2716: END IF;
2717: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2718: RAISE Fnd_Api.G_EXC_ERROR;
2711: x_index => l_global_index,
2712: x_return_status => l_return_status );
2713: IF l_debug_level > 0 THEN
2714: oe_debug_pub.add('S.F.P.A: after update global picture, status: ' || l_return_status, 1 ) ;
2715: oe_debug_pub.add('S.F.P.A: global picture index: ' || l_global_index , 1 ) ;
2716: END IF;
2717: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2718: RAISE Fnd_Api.G_EXC_ERROR;
2719: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2725: END IF; -- on l_index being non-null
2726: END IF; -- on code release level
2727: END LOOP;
2728: END IF;
2729: oe_debug_pub.ADD('Exiting UTIL.CALCULATE_FIRST_PERIOD_BILL_AMT', 1);
2730: EXCEPTION
2731: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2732: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2733: WHEN FND_API.G_EXC_ERROR THEN
2755: l_update_lines_tbl OE_ORDER_PUB.request_tbl_type;
2756: l_update_lines_index NUMBER := 0;
2757: BEGIN
2758:
2759: oe_debug_pub.add('Entering UTIL.Update_Shipping'||p_line_id, 1);
2760: -- bug 4741573
2761: OE_MSG_PUB.set_msg_context ( p_entity_code => 'LINE'
2762: ,p_entity_id => p_line_id
2763: ,p_line_id => p_line_id );
2800: p_operation
2801: = p_update_shipping_tbl(l_update_shipping_index).request_unique_key1)
2802: THEN
2803:
2804: oe_debug_pub.add
2805: ('deleting req '|| p_update_shipping_tbl(l_update_shipping_index).entity_id);
2806:
2807: OE_Delayed_Requests_PVT.Delete_Request
2808: (p_entity_code => p_update_shipping_tbl(l_update_shipping_index).entity_code
2823:
2824: -- bug 4741573
2825: OE_MSG_PUB.reset_msg_context('LINE');
2826:
2827: OE_Debug_PUB.Add('Exiting OE_Delayed_Requests_Util.Update_Shipping',1);
2828: EXCEPTION
2829: WHEN OTHERS THEN
2830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2831:
2854: l_process_id NUMBER;
2855: l_shipping_index NUMBER :=0 ;
2856: BEGIN
2857:
2858: OE_Debug_PUB.Add('Entering OE_Delayed_Requests_Util.Ship_Confirmation'||p_process_type||p_process_id,1);
2859:
2860: l_process_id := to_number(p_process_id);
2861: l_shipping_index := p_ship_confirmation_tbl.First;
2862: oe_debug_pub.add('P_line_id :'||to_char(p_line_id),2);
2858: OE_Debug_PUB.Add('Entering OE_Delayed_Requests_Util.Ship_Confirmation'||p_process_type||p_process_id,1);
2859:
2860: l_process_id := to_number(p_process_id);
2861: l_shipping_index := p_ship_confirmation_tbl.First;
2862: oe_debug_pub.add('P_line_id :'||to_char(p_line_id),2);
2863:
2864: WHILE l_shipping_index IS NOT NULL LOOP
2865:
2866: oe_debug_pub.add('Request Type : '||p_ship_confirmation_tbl(l_shipping_index).request_type,2);
2862: oe_debug_pub.add('P_line_id :'||to_char(p_line_id),2);
2863:
2864: WHILE l_shipping_index IS NOT NULL LOOP
2865:
2866: oe_debug_pub.add('Request Type : '||p_ship_confirmation_tbl(l_shipping_index).request_type,2);
2867: oe_debug_pub.add('Param1 : '||p_ship_confirmation_tbl(l_shipping_index).param1,2);
2868: IF p_ship_confirmation_tbl(l_shipping_index).request_type
2869: = OE_GLOBALS.G_SHIP_CONFIRMATION AND
2870: p_ship_confirmation_tbl(l_shipping_index).param1 = p_process_id THEN
2863:
2864: WHILE l_shipping_index IS NOT NULL LOOP
2865:
2866: oe_debug_pub.add('Request Type : '||p_ship_confirmation_tbl(l_shipping_index).request_type,2);
2867: oe_debug_pub.add('Param1 : '||p_ship_confirmation_tbl(l_shipping_index).param1,2);
2868: IF p_ship_confirmation_tbl(l_shipping_index).request_type
2869: = OE_GLOBALS.G_SHIP_CONFIRMATION AND
2870: p_ship_confirmation_tbl(l_shipping_index).param1 = p_process_id THEN
2871: oe_debug_pub.add('RUnique 1 : '||p_ship_confirmation_tbl(l_shipping_index).request_unique_key1,2);
2867: oe_debug_pub.add('Param1 : '||p_ship_confirmation_tbl(l_shipping_index).param1,2);
2868: IF p_ship_confirmation_tbl(l_shipping_index).request_type
2869: = OE_GLOBALS.G_SHIP_CONFIRMATION AND
2870: p_ship_confirmation_tbl(l_shipping_index).param1 = p_process_id THEN
2871: oe_debug_pub.add('RUnique 1 : '||p_ship_confirmation_tbl(l_shipping_index).request_unique_key1,2);
2872: oe_debug_pub.add('Entity Id : '||to_char(p_ship_confirmation_tbl(l_shipping_index).entity_id),2);
2873: IF p_line_id <> p_ship_confirmation_tbl(l_shipping_index).entity_id THEN
2874:
2875: OE_Delayed_Requests_PVT.Delete_Request
2868: IF p_ship_confirmation_tbl(l_shipping_index).request_type
2869: = OE_GLOBALS.G_SHIP_CONFIRMATION AND
2870: p_ship_confirmation_tbl(l_shipping_index).param1 = p_process_id THEN
2871: oe_debug_pub.add('RUnique 1 : '||p_ship_confirmation_tbl(l_shipping_index).request_unique_key1,2);
2872: oe_debug_pub.add('Entity Id : '||to_char(p_ship_confirmation_tbl(l_shipping_index).entity_id),2);
2873: IF p_line_id <> p_ship_confirmation_tbl(l_shipping_index).entity_id THEN
2874:
2875: OE_Delayed_Requests_PVT.Delete_Request
2876: (p_entity_code => p_ship_confirmation_tbl(l_shipping_index).entity_code
2891: p_process_id => l_process_id,
2892: p_process_type => p_process_type,
2893: x_return_status => x_return_status
2894: );
2895: OE_Debug_PUB.Add('Exiting OE_Delayed_Requests_Util.Ship_Confirmation',1);
2896:
2897: EXCEPTION
2898: WHEN OTHERS THEN
2899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2917: IS
2918: l_return_status VARCHAR2(1);
2919: BEGIN
2920:
2921: oe_debug_pub.add('Entering SPLIT_RESERVATIONS',1);
2922:
2923: oe_debug_pub.add('Calling OE_ORDER_SCH_UTIL.SPLIT_RESERVATIONS',1);
2924:
2925: OE_ORDER_SCH_UTIL.SPLIT_RESERVATIONS
2919: BEGIN
2920:
2921: oe_debug_pub.add('Entering SPLIT_RESERVATIONS',1);
2922:
2923: oe_debug_pub.add('Calling OE_ORDER_SCH_UTIL.SPLIT_RESERVATIONS',1);
2924:
2925: OE_ORDER_SCH_UTIL.SPLIT_RESERVATIONS
2926: (p_reserved_line_id => p_reserved_line_id,
2927: p_ordered_quantity => p_ordered_quantity,
2927: p_ordered_quantity => p_ordered_quantity,
2928: p_reserved_quantity => p_reserved_quantity,
2929: x_return_status => l_return_status);
2930:
2931: oe_debug_pub.add('After Calling OE_ORDER_SCH_UTIL.SPLIT_RESERVATIONS: '
2932: || l_return_status ,1);
2933:
2934: x_return_status := l_return_status;
2935:
2986: from oe_order_lines
2987: where line_id = p_top_model_line_id;
2988:
2989: l_complete_flag := nvl(l_complete_flag, 'N');
2990: oe_debug_pub.add('option added to a booked order? : '||l_complete_flag , 2);
2991:
2992: oe_config_util.Validate_Configuration
2993: (p_model_line_id => p_top_model_line_id,
2994: p_deleted_options_tbl => p_deleted_options_tbl,
3000: x_return_status => l_return_status);
3001:
3002: x_return_status := l_return_status;
3003:
3004: oe_debug_pub.add('leaving ureqb, validate config: '|| l_return_status, 1);
3005:
3006: EXCEPTION
3007: when no_data_found then
3008: oe_debug_pub.add
3004: oe_debug_pub.add('leaving ureqb, validate config: '|| l_return_status, 1);
3005:
3006: EXCEPTION
3007: when no_data_found then
3008: oe_debug_pub.add
3009: ('no_data_found in OE_Delayed_Req_Util.VALIDATE_CONFIGURATION', 1);
3010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3011: when others then
3012: oe_debug_pub.add
3008: oe_debug_pub.add
3009: ('no_data_found in OE_Delayed_Req_Util.VALIDATE_CONFIGURATION', 1);
3010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3011: when others then
3012: oe_debug_pub.add
3013: ('Exception in OE_Delayed_Req_Util.VALIDATE_CONFIGURATION', 1);
3014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3015: END VALIDATE_CONFIGURATION;
3016:
3036: l_line_rec OE_ORDER_PUB.line_rec_type;
3037: l_return_status VARCHAR2(1);
3038: BEGIN
3039:
3040: oe_debug_pub.add('Entering OE_Delayed_Requests_UTIL.Group_Schedule',1);
3041:
3042: oe_debug_pub.add('Entity is :' || p_request_rec.param3,2);
3043: oe_debug_pub.add('Action is :' || p_request_rec.param4,2);
3044:
3038: BEGIN
3039:
3040: oe_debug_pub.add('Entering OE_Delayed_Requests_UTIL.Group_Schedule',1);
3041:
3042: oe_debug_pub.add('Entity is :' || p_request_rec.param3,2);
3043: oe_debug_pub.add('Action is :' || p_request_rec.param4,2);
3044:
3045: l_group_req_rec.entity_type := p_request_rec.param3;
3046: l_group_req_rec.action := p_request_rec.param4;
3039:
3040: oe_debug_pub.add('Entering OE_Delayed_Requests_UTIL.Group_Schedule',1);
3041:
3042: oe_debug_pub.add('Entity is :' || p_request_rec.param3,2);
3043: oe_debug_pub.add('Action is :' || p_request_rec.param4,2);
3044:
3045: l_group_req_rec.entity_type := p_request_rec.param3;
3046: l_group_req_rec.action := p_request_rec.param4;
3047: l_group_req_rec.line_id := p_request_rec.entity_id;
3057: ,x_line_rec => l_line_rec);
3058:
3059: IF NVL(p_request_rec.param11,'N') = 'Y' THEN
3060:
3061: oe_debug_pub.add('param 11' || p_request_rec.param11,1);
3062: l_group_req_rec.old_schedule_ship_date := l_line_rec.schedule_ship_date;
3063: l_group_req_rec.old_schedule_arrival_date := l_line_rec.schedule_arrival_date
3064: ;
3065: l_group_req_rec.old_request_date := l_line_rec.request_date;
3114:
3115:
3116: END IF;
3117:
3118: oe_debug_pub.add('*********Printing Group Request Attributes***********',2);
3119: oe_debug_pub.add('Grp Entity :' || l_group_req_rec.entity_type,2);
3120: oe_debug_pub.add('Grp Header Id :' || l_group_req_rec.header_id,2);
3121: oe_debug_pub.add('Line Id :' || l_group_req_rec.line_id,2);
3122: oe_debug_pub.add('Grp Action :' || l_group_req_rec.action,2);
3115:
3116: END IF;
3117:
3118: oe_debug_pub.add('*********Printing Group Request Attributes***********',2);
3119: oe_debug_pub.add('Grp Entity :' || l_group_req_rec.entity_type,2);
3120: oe_debug_pub.add('Grp Header Id :' || l_group_req_rec.header_id,2);
3121: oe_debug_pub.add('Line Id :' || l_group_req_rec.line_id,2);
3122: oe_debug_pub.add('Grp Action :' || l_group_req_rec.action,2);
3123: oe_debug_pub.add('Grp Warehouse :' || l_group_req_rec.ship_from_org_id,2);
3116: END IF;
3117:
3118: oe_debug_pub.add('*********Printing Group Request Attributes***********',2);
3119: oe_debug_pub.add('Grp Entity :' || l_group_req_rec.entity_type,2);
3120: oe_debug_pub.add('Grp Header Id :' || l_group_req_rec.header_id,2);
3121: oe_debug_pub.add('Line Id :' || l_group_req_rec.line_id,2);
3122: oe_debug_pub.add('Grp Action :' || l_group_req_rec.action,2);
3123: oe_debug_pub.add('Grp Warehouse :' || l_group_req_rec.ship_from_org_id,2);
3124: oe_debug_pub.add('Grp Ship to :' || l_group_req_rec.ship_to_org_id,2);
3117:
3118: oe_debug_pub.add('*********Printing Group Request Attributes***********',2);
3119: oe_debug_pub.add('Grp Entity :' || l_group_req_rec.entity_type,2);
3120: oe_debug_pub.add('Grp Header Id :' || l_group_req_rec.header_id,2);
3121: oe_debug_pub.add('Line Id :' || l_group_req_rec.line_id,2);
3122: oe_debug_pub.add('Grp Action :' || l_group_req_rec.action,2);
3123: oe_debug_pub.add('Grp Warehouse :' || l_group_req_rec.ship_from_org_id,2);
3124: oe_debug_pub.add('Grp Ship to :' || l_group_req_rec.ship_to_org_id,2);
3125: oe_debug_pub.add('Group Sh Set# :' || l_group_req_rec.ship_set_number,2);
3118: oe_debug_pub.add('*********Printing Group Request Attributes***********',2);
3119: oe_debug_pub.add('Grp Entity :' || l_group_req_rec.entity_type,2);
3120: oe_debug_pub.add('Grp Header Id :' || l_group_req_rec.header_id,2);
3121: oe_debug_pub.add('Line Id :' || l_group_req_rec.line_id,2);
3122: oe_debug_pub.add('Grp Action :' || l_group_req_rec.action,2);
3123: oe_debug_pub.add('Grp Warehouse :' || l_group_req_rec.ship_from_org_id,2);
3124: oe_debug_pub.add('Grp Ship to :' || l_group_req_rec.ship_to_org_id,2);
3125: oe_debug_pub.add('Group Sh Set# :' || l_group_req_rec.ship_set_number,2);
3126: oe_debug_pub.add('Group Ar Set# :' || l_group_req_rec.arrival_set_number,2);
3119: oe_debug_pub.add('Grp Entity :' || l_group_req_rec.entity_type,2);
3120: oe_debug_pub.add('Grp Header Id :' || l_group_req_rec.header_id,2);
3121: oe_debug_pub.add('Line Id :' || l_group_req_rec.line_id,2);
3122: oe_debug_pub.add('Grp Action :' || l_group_req_rec.action,2);
3123: oe_debug_pub.add('Grp Warehouse :' || l_group_req_rec.ship_from_org_id,2);
3124: oe_debug_pub.add('Grp Ship to :' || l_group_req_rec.ship_to_org_id,2);
3125: oe_debug_pub.add('Group Sh Set# :' || l_group_req_rec.ship_set_number,2);
3126: oe_debug_pub.add('Group Ar Set# :' || l_group_req_rec.arrival_set_number,2);
3127: oe_debug_pub.add('Grp Ship Date :' || l_group_req_rec.schedule_ship_date,2);
3120: oe_debug_pub.add('Grp Header Id :' || l_group_req_rec.header_id,2);
3121: oe_debug_pub.add('Line Id :' || l_group_req_rec.line_id,2);
3122: oe_debug_pub.add('Grp Action :' || l_group_req_rec.action,2);
3123: oe_debug_pub.add('Grp Warehouse :' || l_group_req_rec.ship_from_org_id,2);
3124: oe_debug_pub.add('Grp Ship to :' || l_group_req_rec.ship_to_org_id,2);
3125: oe_debug_pub.add('Group Sh Set# :' || l_group_req_rec.ship_set_number,2);
3126: oe_debug_pub.add('Group Ar Set# :' || l_group_req_rec.arrival_set_number,2);
3127: oe_debug_pub.add('Grp Ship Date :' || l_group_req_rec.schedule_ship_date,2);
3128: oe_debug_pub.add('Grp Ship Meth :' || l_group_req_rec.freight_carrier,2);
3121: oe_debug_pub.add('Line Id :' || l_group_req_rec.line_id,2);
3122: oe_debug_pub.add('Grp Action :' || l_group_req_rec.action,2);
3123: oe_debug_pub.add('Grp Warehouse :' || l_group_req_rec.ship_from_org_id,2);
3124: oe_debug_pub.add('Grp Ship to :' || l_group_req_rec.ship_to_org_id,2);
3125: oe_debug_pub.add('Group Sh Set# :' || l_group_req_rec.ship_set_number,2);
3126: oe_debug_pub.add('Group Ar Set# :' || l_group_req_rec.arrival_set_number,2);
3127: oe_debug_pub.add('Grp Ship Date :' || l_group_req_rec.schedule_ship_date,2);
3128: oe_debug_pub.add('Grp Ship Meth :' || l_group_req_rec.freight_carrier,2);
3129: oe_debug_pub.add('Grp Arr Date :' || l_group_req_rec.schedule_arrival_date,2);
3122: oe_debug_pub.add('Grp Action :' || l_group_req_rec.action,2);
3123: oe_debug_pub.add('Grp Warehouse :' || l_group_req_rec.ship_from_org_id,2);
3124: oe_debug_pub.add('Grp Ship to :' || l_group_req_rec.ship_to_org_id,2);
3125: oe_debug_pub.add('Group Sh Set# :' || l_group_req_rec.ship_set_number,2);
3126: oe_debug_pub.add('Group Ar Set# :' || l_group_req_rec.arrival_set_number,2);
3127: oe_debug_pub.add('Grp Ship Date :' || l_group_req_rec.schedule_ship_date,2);
3128: oe_debug_pub.add('Grp Ship Meth :' || l_group_req_rec.freight_carrier,2);
3129: oe_debug_pub.add('Grp Arr Date :' || l_group_req_rec.schedule_arrival_date,2);
3130: oe_debug_pub.add('***************************************************',2);
3123: oe_debug_pub.add('Grp Warehouse :' || l_group_req_rec.ship_from_org_id,2);
3124: oe_debug_pub.add('Grp Ship to :' || l_group_req_rec.ship_to_org_id,2);
3125: oe_debug_pub.add('Group Sh Set# :' || l_group_req_rec.ship_set_number,2);
3126: oe_debug_pub.add('Group Ar Set# :' || l_group_req_rec.arrival_set_number,2);
3127: oe_debug_pub.add('Grp Ship Date :' || l_group_req_rec.schedule_ship_date,2);
3128: oe_debug_pub.add('Grp Ship Meth :' || l_group_req_rec.freight_carrier,2);
3129: oe_debug_pub.add('Grp Arr Date :' || l_group_req_rec.schedule_arrival_date,2);
3130: oe_debug_pub.add('***************************************************',2);
3131:
3124: oe_debug_pub.add('Grp Ship to :' || l_group_req_rec.ship_to_org_id,2);
3125: oe_debug_pub.add('Group Sh Set# :' || l_group_req_rec.ship_set_number,2);
3126: oe_debug_pub.add('Group Ar Set# :' || l_group_req_rec.arrival_set_number,2);
3127: oe_debug_pub.add('Grp Ship Date :' || l_group_req_rec.schedule_ship_date,2);
3128: oe_debug_pub.add('Grp Ship Meth :' || l_group_req_rec.freight_carrier,2);
3129: oe_debug_pub.add('Grp Arr Date :' || l_group_req_rec.schedule_arrival_date,2);
3130: oe_debug_pub.add('***************************************************',2);
3131:
3132: OE_GRP_SCH_UTIL.Group_Schedule
3125: oe_debug_pub.add('Group Sh Set# :' || l_group_req_rec.ship_set_number,2);
3126: oe_debug_pub.add('Group Ar Set# :' || l_group_req_rec.arrival_set_number,2);
3127: oe_debug_pub.add('Grp Ship Date :' || l_group_req_rec.schedule_ship_date,2);
3128: oe_debug_pub.add('Grp Ship Meth :' || l_group_req_rec.freight_carrier,2);
3129: oe_debug_pub.add('Grp Arr Date :' || l_group_req_rec.schedule_arrival_date,2);
3130: oe_debug_pub.add('***************************************************',2);
3131:
3132: OE_GRP_SCH_UTIL.Group_Schedule
3133: (p_group_req_rec => l_group_req_rec
3126: oe_debug_pub.add('Group Ar Set# :' || l_group_req_rec.arrival_set_number,2);
3127: oe_debug_pub.add('Grp Ship Date :' || l_group_req_rec.schedule_ship_date,2);
3128: oe_debug_pub.add('Grp Ship Meth :' || l_group_req_rec.freight_carrier,2);
3129: oe_debug_pub.add('Grp Arr Date :' || l_group_req_rec.schedule_arrival_date,2);
3130: oe_debug_pub.add('***************************************************',2);
3131:
3132: OE_GRP_SCH_UTIL.Group_Schedule
3133: (p_group_req_rec => l_group_req_rec
3134: ,x_atp_tbl => l_atp_tbl
3136:
3137: -- Set the cascade_flag to TRUE, so that we query the block,
3138: -- since multiple lines have changed.
3139:
3140: oe_debug_pub.add('Setting G_CASCADING_REQUEST_LOGGED',2);
3141:
3142: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3143: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
3144: END IF;
3239:
3240:
3241: BEGIN
3242:
3243: OE_DEBUG_PUB.ADD('Entering INSERT_RMA_OPTIONS_INCLUDED',1);
3244:
3245: x_return_status := FND_API.G_RET_STS_SUCCESS;
3246:
3247: BEGIN
3338: p_ref_line_rec => l_child_line_rec,
3339: p_copy_line_rec => l_line_tbl(l_number));
3340: END IF;
3341:
3342: oe_debug_pub.add(' line id '|| to_char(l_line_tbl(l_number).line_id), 2);
3343: oe_debug_pub.add(to_char(l_line_tbl(l_number).ordered_quantity), 2);
3344: oe_debug_pub.add(to_char(l_child.ordered_quantity), 2);
3345: oe_debug_pub.add(to_char(l_orig_line_rec.ordered_quantity), 2);
3346: oe_debug_pub.add(to_char(l_reference_line_rec.ordered_quantity), 2);
3339: p_copy_line_rec => l_line_tbl(l_number));
3340: END IF;
3341:
3342: oe_debug_pub.add(' line id '|| to_char(l_line_tbl(l_number).line_id), 2);
3343: oe_debug_pub.add(to_char(l_line_tbl(l_number).ordered_quantity), 2);
3344: oe_debug_pub.add(to_char(l_child.ordered_quantity), 2);
3345: oe_debug_pub.add(to_char(l_orig_line_rec.ordered_quantity), 2);
3346: oe_debug_pub.add(to_char(l_reference_line_rec.ordered_quantity), 2);
3347:
3340: END IF;
3341:
3342: oe_debug_pub.add(' line id '|| to_char(l_line_tbl(l_number).line_id), 2);
3343: oe_debug_pub.add(to_char(l_line_tbl(l_number).ordered_quantity), 2);
3344: oe_debug_pub.add(to_char(l_child.ordered_quantity), 2);
3345: oe_debug_pub.add(to_char(l_orig_line_rec.ordered_quantity), 2);
3346: oe_debug_pub.add(to_char(l_reference_line_rec.ordered_quantity), 2);
3347:
3348:
3341:
3342: oe_debug_pub.add(' line id '|| to_char(l_line_tbl(l_number).line_id), 2);
3343: oe_debug_pub.add(to_char(l_line_tbl(l_number).ordered_quantity), 2);
3344: oe_debug_pub.add(to_char(l_child.ordered_quantity), 2);
3345: oe_debug_pub.add(to_char(l_orig_line_rec.ordered_quantity), 2);
3346: oe_debug_pub.add(to_char(l_reference_line_rec.ordered_quantity), 2);
3347:
3348:
3349: l_line_tbl(l_number).return_context := 'ORDER';
3342: oe_debug_pub.add(' line id '|| to_char(l_line_tbl(l_number).line_id), 2);
3343: oe_debug_pub.add(to_char(l_line_tbl(l_number).ordered_quantity), 2);
3344: oe_debug_pub.add(to_char(l_child.ordered_quantity), 2);
3345: oe_debug_pub.add(to_char(l_orig_line_rec.ordered_quantity), 2);
3346: oe_debug_pub.add(to_char(l_reference_line_rec.ordered_quantity), 2);
3347:
3348:
3349: l_line_tbl(l_number).return_context := 'ORDER';
3350: l_line_tbl(l_number).return_attribute1 := l_child.header_id;
3360: l_line_tbl(l_number).calculate_price_flag :=
3361: l_orig_line_rec.calculate_price_flag;
3362: l_line_tbl(l_number).pricing_date := l_orig_line_rec.pricing_date;
3363:
3364: oe_debug_pub.add('RMA: Found options : '|| to_char(l_child.line_id), 2);
3365: END LOOP;
3366:
3367: END IF;
3368:
3366:
3367: END IF;
3368:
3369: IF l_number > 0 THEN
3370: oe_debug_pub.add('RMA: Found options and included item lines', 2);
3371:
3372: -- Set control flags.
3373: l_control_rec.controlled_operation := TRUE;
3374: l_control_rec.validate_entity := TRUE;
3449: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
3450:
3451: END IF; /* end inserting lines */
3452:
3453: OE_DEBUG_PUB.ADD(' Exiting INSERT_RMA_OPTIONS_INCLUDED',1);
3454: EXCEPTION
3455:
3456: WHEN FND_API.G_EXC_ERROR THEN
3457:
3512:
3513: l_ship_from_org_id NUMBER;
3514: /* OPM Bug 2739964 */
3515: l_item_rec OE_ORDER_CACHE.item_rec_type;
3516: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3517:
3518: -- Added for 10204440 --
3519: CURSOR control_codes_org(p_ref_org_id NUMBER) IS
3520: SELECT decode(msi.lot_control_code,2,'Y','N'),
3592: l_primary_uom VARCHAR2(3);
3593:
3594: BEGIN
3595:
3596: OE_DEBUG_PUB.ADD(' Entering INSERT_RMA_LOT_SERIAL',1);
3597:
3598: OE_DEBUG_PUB.ADD('RMA: Line Id is '||TO_CHAR(p_line_id),2);
3599:
3600: -- if lot serial numbers exist, delete first
3594: BEGIN
3595:
3596: OE_DEBUG_PUB.ADD(' Entering INSERT_RMA_LOT_SERIAL',1);
3597:
3598: OE_DEBUG_PUB.ADD('RMA: Line Id is '||TO_CHAR(p_line_id),2);
3599:
3600: -- if lot serial numbers exist, delete first
3601:
3602:
3610: Return;
3611: END;
3612:
3613:
3614: oe_debug_pub.add(l_orig_line_rec.return_context,2);
3615: -- IF l_orig_line_rec.return_context is NULL THEN
3616: -- RETURN;
3617: -- END IF;
3618: IF l_orig_line_rec.return_context = 'SERIAL' THEN
3638: END;
3639:
3640: IF (l_lot_serial_tbl.count > 0) THEN
3641:
3642: oe_debug_pub.add('RMA: rma_lot_serial.DELETE_ROW', 2);
3643:
3644: FOR I IN l_lot_serial_tbl.FIRST .. l_Lot_Serial_tbl.LAST LOOP
3645:
3646: l_x_Lot_Serial_tbl(I) := l_Lot_Serial_tbl(I);
3656: l_reference_line_id := l_orig_line_rec.reference_line_id;
3657: IF l_reference_line_id IS NOT NULL AND
3658: l_reference_line_id <> FND_API.G_MISS_NUM THEN
3659:
3660: OE_DEBUG_PUB.ADD(' There is a reference Line',1);
3661: OE_Line_Util.query_row(p_line_id => l_reference_line_id,
3662: x_line_rec => l_reference_line_rec);
3663: l_inventory_item_id := l_reference_line_rec.inventory_item_id;
3664: l_ship_from_org_id := l_reference_line_rec.ship_from_org_id;
3661: OE_Line_Util.query_row(p_line_id => l_reference_line_id,
3662: x_line_rec => l_reference_line_rec);
3663: l_inventory_item_id := l_reference_line_rec.inventory_item_id;
3664: l_ship_from_org_id := l_reference_line_rec.ship_from_org_id;
3665: oe_debug_pub.add(to_char(l_inventory_item_id)||':'||to_char(l_ship_from_org_id),2);
3666:
3667: IF l_ship_from_org_id is NULL
3668: OR l_ship_from_org_id = FND_API.G_MISS_NUM THEN --Added for 10204440
3669:
3720: ELSE
3721: l_return_qty := l_return_qty + 1;
3722: END IF;
3723:
3724: OE_DEBUG_PUB.ADD(' In LOT-SERIAL-NUMBERS cursor',1);
3725: l_number := l_number + 1;
3726: l_lot_serial_tbl(l_number) := OE_ORDER_PUB.G_MISS_LOT_SERIAL_REC;
3727: l_lot_serial_tbl(l_number).lot_number := l_lot_serial_numbers.lot_number;
3728: l_lot_serial_tbl(l_number).from_serial_number := l_lot_serial_numbers.serial_number;
3760: l_lot_trxn_qty2 := l_lot_numbers.secondary_transaction_quantity; -- INVCONV
3761: END IF;
3762:
3763: l_number := l_number + 1;
3764: OE_DEBUG_PUB.ADD(' In LOT-NUMBERS cursor',1);
3765: l_lot_serial_tbl(l_number) := OE_ORDER_PUB.G_MISS_LOT_SERIAL_REC;
3766: l_lot_serial_tbl(l_number).lot_number := l_lot_numbers.lot_number;
3767:
3768: -- transaction quantity is negative because of sales order issue
3792: l_return_qty := l_return_qty + 1;
3793: END IF;
3794:
3795: l_number := l_number + 1;
3796: OE_DEBUG_PUB.ADD(' In SERIAL-NUMBERS cursor',1);
3797: l_lot_serial_tbl(l_number) := OE_ORDER_PUB.G_MISS_LOT_SERIAL_REC;
3798: l_lot_serial_tbl(l_number).from_serial_number := l_serial_numbers.serial_number;
3799: l_lot_serial_tbl(l_number).quantity := 1;
3800: END LOOP;
3802: END IF;
3803: END IF;
3804: -- END IF;-- INVCONV
3805: IF l_number > 0 THEN
3806: oe_debug_pub.add('RMA: FOUND LOT/SERIAL NUMBERS FOR THE LINE'||to_char(l_number), 1);
3807:
3808: FOR I IN l_Lot_serial_tbl.FIRST .. l_Lot_serial_tbl.LAST LOOP
3809:
3810: l_count := l_x_lot_serial_tbl.count;
3815: END LOOP;
3816: END IF; /* end inserting lot serial numbers */
3817:
3818: IF l_x_lot_serial_tbl.count > 0 THEN
3819: OE_DEBUG_PUB.ADD(' Before calling OE_ORDER_PVT.Lot_Serials',1);
3820: -- Call OE_Order_PVT.Process_order to insert lines
3821: -- Set recursion mode.
3822: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
3823:
3828: ,p_x_old_lot_serial_tbl => l_x_old_lot_serial_tbl
3829: ,x_return_status => l_return_status);
3830: -- Reset recursion mode.
3831: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
3832: OE_DEBUG_PUB.ADD(' After calling OE_ORDER_PVT.Lot_Serials',1);
3833:
3834: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3836: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3855: END IF; /* end calling process order */
3856: -- Clear Table
3857: l_Lot_serial_tbl.DELETE;
3858:
3859: OE_DEBUG_PUB.ADD(' Exiting INSERT_RMA_LOT_SERIAL',1);
3860:
3861: EXCEPTION
3862:
3863:
3897: l_lin_line_id NUMBER; -- Bug 5754554
3898: l_fulfillment_base VARCHAR2(1);--ER#14763609
3899:
3900: BEGIN
3901: oe_debug_pub.add('Entering oe_delayed_requests_util.Validate_Line_Set',1);
3902: oe_line_util.query_rows(p_line_set_id => p_line_set_id,
3903: x_line_tbl => l_line_tbl);
3904:
3905: -- Start for bug 5754554
3906: IF l_line_tbl.count > 0 THEN
3907: FOR I IN 1 .. l_line_tbl.count LOOP
3908: IF l_line_tbl(I).open_flag = 'N' AND l_line_tbl(I).cancelled_flag = 'Y'
3909: THEN
3910: oe_debug_pub.add(' Line_id '||l_line_tbl(I).line_id||' is canceled. Discarding it from Line Set');
3911: l_line_tbl.DELETE(I);
3912: END IF;
3913: END LOOP;
3914: END IF;
4029: END IF;
4030: END IF; -- For Bug 5754554
4031: END LOOP;
4032: END IF;
4033: oe_debug_pub.add('Exiting oe_delayed_requests_util.Validate_Line_Set',1);
4034: EXCEPTION
4035: WHEN FND_API.G_EXC_ERROR THEN
4036:
4037: OE_MSG_PUB.reset_msg_context('SPLIT');
4087: --serla end
4088: Begin
4089:
4090:
4091: oe_debug_pub.add('Entering oe_delayed_requests_util.Process_adjustments',1);
4092: FOR I IN 1..(p_adjust_tbl.COUNT) LOOP
4093:
4094: oe_debug_pub.add('I in p_adjust_tbl is : ' || I,2);
4095:
4090:
4091: oe_debug_pub.add('Entering oe_delayed_requests_util.Process_adjustments',1);
4092: FOR I IN 1..(p_adjust_tbl.COUNT) LOOP
4093:
4094: oe_debug_pub.add('I in p_adjust_tbl is : ' || I,2);
4095:
4096: oe_debug_pub.add(p_adjust_tbl(I).param3 || ' is there ',2);
4097:
4098: Select list_line_type_code
4092: FOR I IN 1..(p_adjust_tbl.COUNT) LOOP
4093:
4094: oe_debug_pub.add('I in p_adjust_tbl is : ' || I,2);
4095:
4096: oe_debug_pub.add(p_adjust_tbl(I).param3 || ' is there ',2);
4097:
4098: Select list_line_type_code
4099: Into l_list_line_type_code
4100: From qp_list_lines
4159:
4160: -- Reset recursion mode.
4161: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
4162:
4163: oe_debug_pub.add('after process order call ',2);
4164: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4165: oe_debug_pub.add('error1',2);
4166: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4167: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4161: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
4162:
4163: oe_debug_pub.add('after process order call ',2);
4164: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4165: oe_debug_pub.add('error1',2);
4166: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4167: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4168: oe_debug_pub.add('error2',2);
4169: RAISE FND_API.G_EXC_ERROR;
4164: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4165: oe_debug_pub.add('error1',2);
4166: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4167: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4168: oe_debug_pub.add('error2',2);
4169: RAISE FND_API.G_EXC_ERROR;
4170: END IF;
4171:
4172: end if; /* if l_adj_tbl.count >= 1 */
4170: END IF;
4171:
4172: end if; /* if l_adj_tbl.count >= 1 */
4173:
4174: oe_debug_pub.add('no error in process order ',2);
4175: x_return_status := l_return_status;
4176: oe_debug_pub.add('Exiting oe_delayed_requests_util.Process_adjustments',1);
4177:
4178:
4172: end if; /* if l_adj_tbl.count >= 1 */
4173:
4174: oe_debug_pub.add('no error in process order ',2);
4175: x_return_status := l_return_status;
4176: oe_debug_pub.add('Exiting oe_delayed_requests_util.Process_adjustments',1);
4177:
4178:
4179: EXCEPTION
4180:
4288: AND l.line_number = l_line_number
4289: AND l.shipment_number = l_shipment_number
4290: AND nvl(l.option_number,0) = nvl(l_option_number,0)
4291: AND nvl(l.component_number,0) = nvl(l_component_number,0);
4292: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level; -- sol_ord_er #16014165
4293:
4294: BEGIN
4295:
4296: OE_DEBUG_PUB.ADD('Entering INSERT_SERVICE_FOR_OPTIONS',1);
4292: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level; -- sol_ord_er #16014165
4293:
4294: BEGIN
4295:
4296: OE_DEBUG_PUB.ADD('Entering INSERT_SERVICE_FOR_OPTIONS',1);
4297:
4298: IF fnd_profile.value('ONT_CASCADE_SERVICE') = 'N' THEN
4299: /* 3128684 */
4300: oe_debug_pub.add('Do not cascade services', 2);
4296: OE_DEBUG_PUB.ADD('Entering INSERT_SERVICE_FOR_OPTIONS',1);
4297:
4298: IF fnd_profile.value('ONT_CASCADE_SERVICE') = 'N' THEN
4299: /* 3128684 */
4300: oe_debug_pub.add('Do not cascade services', 2);
4301: x_return_status := FND_API.G_RET_STS_SUCCESS;
4302: RETURN;
4303: END IF;
4304: oe_debug_pub.add('Do cascade services', 2);
4300: oe_debug_pub.add('Do not cascade services', 2);
4301: x_return_status := FND_API.G_RET_STS_SUCCESS;
4302: RETURN;
4303: END IF;
4304: oe_debug_pub.add('Do cascade services', 2);
4305:
4306: -- query the service line and to see if it's a referenced line
4307: OE_Line_Util.query_row(p_line_id => p_serviced_line_id,
4308: x_line_rec => l_orig_line_rec);
4319: IF l_orig_line_rec.service_reference_type_code is NOT NULL THEN
4320: OE_Line_Util.query_row(p_line_id => l_orig_line_rec.service_reference_line_id,
4321: x_line_rec => l_reference_line_rec);
4322: l_service_reference_line_id := l_orig_line_rec.service_reference_line_id;
4323: oe_debug_pub.add('JPN: Service Reference Line is' || l_service_reference_line_id,2);
4324:
4325: --bug 16848168 changes
4326: BEGIN
4327: oe_debug_pub.ADD('l_reference_line_rec.line_id : '||l_reference_line_rec.line_id,1);
4323: oe_debug_pub.add('JPN: Service Reference Line is' || l_service_reference_line_id,2);
4324:
4325: --bug 16848168 changes
4326: BEGIN
4327: oe_debug_pub.ADD('l_reference_line_rec.line_id : '||l_reference_line_rec.line_id,1);
4328: oe_debug_pub.ADD('l_orig_line_rec.line_id : '||l_orig_line_rec.line_id,1);
4329: oe_debug_pub.ADD('l_orig_line_rec.item_type_code : '||l_orig_line_rec.item_type_code,1);
4330: oe_debug_pub.ADD('l_orig_line_rec.SUBSCRIPTION_ENABLE_FLAG : '||l_orig_line_rec.SUBSCRIPTION_ENABLE_FLAG,1);
4331:
4324:
4325: --bug 16848168 changes
4326: BEGIN
4327: oe_debug_pub.ADD('l_reference_line_rec.line_id : '||l_reference_line_rec.line_id,1);
4328: oe_debug_pub.ADD('l_orig_line_rec.line_id : '||l_orig_line_rec.line_id,1);
4329: oe_debug_pub.ADD('l_orig_line_rec.item_type_code : '||l_orig_line_rec.item_type_code,1);
4330: oe_debug_pub.ADD('l_orig_line_rec.SUBSCRIPTION_ENABLE_FLAG : '||l_orig_line_rec.SUBSCRIPTION_ENABLE_FLAG,1);
4331:
4332:
4325: --bug 16848168 changes
4326: BEGIN
4327: oe_debug_pub.ADD('l_reference_line_rec.line_id : '||l_reference_line_rec.line_id,1);
4328: oe_debug_pub.ADD('l_orig_line_rec.line_id : '||l_orig_line_rec.line_id,1);
4329: oe_debug_pub.ADD('l_orig_line_rec.item_type_code : '||l_orig_line_rec.item_type_code,1);
4330: oe_debug_pub.ADD('l_orig_line_rec.SUBSCRIPTION_ENABLE_FLAG : '||l_orig_line_rec.SUBSCRIPTION_ENABLE_FLAG,1);
4331:
4332:
4333: SELECT 'Y'
4326: BEGIN
4327: oe_debug_pub.ADD('l_reference_line_rec.line_id : '||l_reference_line_rec.line_id,1);
4328: oe_debug_pub.ADD('l_orig_line_rec.line_id : '||l_orig_line_rec.line_id,1);
4329: oe_debug_pub.ADD('l_orig_line_rec.item_type_code : '||l_orig_line_rec.item_type_code,1);
4330: oe_debug_pub.ADD('l_orig_line_rec.SUBSCRIPTION_ENABLE_FLAG : '||l_orig_line_rec.SUBSCRIPTION_ENABLE_FLAG,1);
4331:
4332:
4333: SELECT 'Y'
4334: INTO l_prg
4343: AND ROWNUM <2;
4344:
4345: EXCEPTION
4346: WHEN NO_DATA_FOUND THEN
4347: oe_debug_pub.ADD('prg does not exist',1);
4348: l_prg := 'N';
4349: END;
4350:
4351: oe_debug_pub.ADD('l_prg is '||l_prg);
4347: oe_debug_pub.ADD('prg does not exist',1);
4348: l_prg := 'N';
4349: END;
4350:
4351: oe_debug_pub.ADD('l_prg is '||l_prg);
4352: IF l_prg = 'Y' THEN
4353:
4354: oe_debug_pub.add('Do not cascade services', 2);
4355: x_return_status := FND_API.G_RET_STS_SUCCESS;
4350:
4351: oe_debug_pub.ADD('l_prg is '||l_prg);
4352: IF l_prg = 'Y' THEN
4353:
4354: oe_debug_pub.add('Do not cascade services', 2);
4355: x_return_status := FND_API.G_RET_STS_SUCCESS;
4356: RETURN;
4357:
4358: END IF;
4439: ,p_entity_id => l_child.line_id
4440: ,p_request_Type => OE_GLOBALS.G_CASCADE_OPTIONS_SERVICE
4441: ,x_return_status => x_del_req_ret_status);
4442:
4443: OE_DEBUG_PUB.ADD('x_del_req_ret_status :'||x_del_req_ret_status);
4444:
4445: --End bug7717223
4446:
4447: l_number := l_number + 1;
4492: l_header_id := l_child.header_id;
4493: l_line_number := l_child.line_number;
4494: l_shipment_number := l_child.shipment_number;
4495: l_option_number := l_child.option_number;
4496: oe_debug_pub.add('l_number => ' || to_char(l_number),2);
4497: oe_debug_pub.add('l_child.header_id=> ' || to_char(l_child.header_id),2);
4498: -- oe_debug_pub.add('item_type_code => ' || to_char(l_child.item_type_code),2);
4499: oe_debug_pub.add('l_child.line_id=> ' || to_char(l_child.line_id),2);
4500: oe_debug_pub.add('l_child.shipment_number=> ' || to_char(l_child.shipment_number),2);
4493: l_line_number := l_child.line_number;
4494: l_shipment_number := l_child.shipment_number;
4495: l_option_number := l_child.option_number;
4496: oe_debug_pub.add('l_number => ' || to_char(l_number),2);
4497: oe_debug_pub.add('l_child.header_id=> ' || to_char(l_child.header_id),2);
4498: -- oe_debug_pub.add('item_type_code => ' || to_char(l_child.item_type_code),2);
4499: oe_debug_pub.add('l_child.line_id=> ' || to_char(l_child.line_id),2);
4500: oe_debug_pub.add('l_child.shipment_number=> ' || to_char(l_child.shipment_number),2);
4501: oe_debug_pub.add('l_child.option_number=> ' || to_char(l_child.option_number),2);
4494: l_shipment_number := l_child.shipment_number;
4495: l_option_number := l_child.option_number;
4496: oe_debug_pub.add('l_number => ' || to_char(l_number),2);
4497: oe_debug_pub.add('l_child.header_id=> ' || to_char(l_child.header_id),2);
4498: -- oe_debug_pub.add('item_type_code => ' || to_char(l_child.item_type_code),2);
4499: oe_debug_pub.add('l_child.line_id=> ' || to_char(l_child.line_id),2);
4500: oe_debug_pub.add('l_child.shipment_number=> ' || to_char(l_child.shipment_number),2);
4501: oe_debug_pub.add('l_child.option_number=> ' || to_char(l_child.option_number),2);
4502: oe_debug_pub.add('l_child.component_number=> ' || to_char(l_child.component_number),2);
4495: l_option_number := l_child.option_number;
4496: oe_debug_pub.add('l_number => ' || to_char(l_number),2);
4497: oe_debug_pub.add('l_child.header_id=> ' || to_char(l_child.header_id),2);
4498: -- oe_debug_pub.add('item_type_code => ' || to_char(l_child.item_type_code),2);
4499: oe_debug_pub.add('l_child.line_id=> ' || to_char(l_child.line_id),2);
4500: oe_debug_pub.add('l_child.shipment_number=> ' || to_char(l_child.shipment_number),2);
4501: oe_debug_pub.add('l_child.option_number=> ' || to_char(l_child.option_number),2);
4502: oe_debug_pub.add('l_child.component_number=> ' || to_char(l_child.component_number),2);
4503: oe_debug_pub.add('l_child.service_txn_reason_code=> ' || l_child.service_txn_reason_code,2);
4496: oe_debug_pub.add('l_number => ' || to_char(l_number),2);
4497: oe_debug_pub.add('l_child.header_id=> ' || to_char(l_child.header_id),2);
4498: -- oe_debug_pub.add('item_type_code => ' || to_char(l_child.item_type_code),2);
4499: oe_debug_pub.add('l_child.line_id=> ' || to_char(l_child.line_id),2);
4500: oe_debug_pub.add('l_child.shipment_number=> ' || to_char(l_child.shipment_number),2);
4501: oe_debug_pub.add('l_child.option_number=> ' || to_char(l_child.option_number),2);
4502: oe_debug_pub.add('l_child.component_number=> ' || to_char(l_child.component_number),2);
4503: oe_debug_pub.add('l_child.service_txn_reason_code=> ' || l_child.service_txn_reason_code,2);
4504: oe_debug_pub.add('l_orig_line_rec.service_duration => ' || l_orig_line_rec.service_duration,2);
4497: oe_debug_pub.add('l_child.header_id=> ' || to_char(l_child.header_id),2);
4498: -- oe_debug_pub.add('item_type_code => ' || to_char(l_child.item_type_code),2);
4499: oe_debug_pub.add('l_child.line_id=> ' || to_char(l_child.line_id),2);
4500: oe_debug_pub.add('l_child.shipment_number=> ' || to_char(l_child.shipment_number),2);
4501: oe_debug_pub.add('l_child.option_number=> ' || to_char(l_child.option_number),2);
4502: oe_debug_pub.add('l_child.component_number=> ' || to_char(l_child.component_number),2);
4503: oe_debug_pub.add('l_child.service_txn_reason_code=> ' || l_child.service_txn_reason_code,2);
4504: oe_debug_pub.add('l_orig_line_rec.service_duration => ' || l_orig_line_rec.service_duration,2);
4505: oe_debug_pub.add('l_orig_line_rec.service_period=> ' || l_orig_line_rec.service_period ,2);
4498: -- oe_debug_pub.add('item_type_code => ' || to_char(l_child.item_type_code),2);
4499: oe_debug_pub.add('l_child.line_id=> ' || to_char(l_child.line_id),2);
4500: oe_debug_pub.add('l_child.shipment_number=> ' || to_char(l_child.shipment_number),2);
4501: oe_debug_pub.add('l_child.option_number=> ' || to_char(l_child.option_number),2);
4502: oe_debug_pub.add('l_child.component_number=> ' || to_char(l_child.component_number),2);
4503: oe_debug_pub.add('l_child.service_txn_reason_code=> ' || l_child.service_txn_reason_code,2);
4504: oe_debug_pub.add('l_orig_line_rec.service_duration => ' || l_orig_line_rec.service_duration,2);
4505: oe_debug_pub.add('l_orig_line_rec.service_period=> ' || l_orig_line_rec.service_period ,2);
4506: oe_debug_pub.add('l_orig_line_rec.service_start_date=> ' || l_orig_line_rec.service_start_date,2);
4499: oe_debug_pub.add('l_child.line_id=> ' || to_char(l_child.line_id),2);
4500: oe_debug_pub.add('l_child.shipment_number=> ' || to_char(l_child.shipment_number),2);
4501: oe_debug_pub.add('l_child.option_number=> ' || to_char(l_child.option_number),2);
4502: oe_debug_pub.add('l_child.component_number=> ' || to_char(l_child.component_number),2);
4503: oe_debug_pub.add('l_child.service_txn_reason_code=> ' || l_child.service_txn_reason_code,2);
4504: oe_debug_pub.add('l_orig_line_rec.service_duration => ' || l_orig_line_rec.service_duration,2);
4505: oe_debug_pub.add('l_orig_line_rec.service_period=> ' || l_orig_line_rec.service_period ,2);
4506: oe_debug_pub.add('l_orig_line_rec.service_start_date=> ' || l_orig_line_rec.service_start_date,2);
4507: oe_debug_pub.add('l_orig_line_rec.service_end_date=> ' ||l_orig_line_rec.service_end_date ,2);
4500: oe_debug_pub.add('l_child.shipment_number=> ' || to_char(l_child.shipment_number),2);
4501: oe_debug_pub.add('l_child.option_number=> ' || to_char(l_child.option_number),2);
4502: oe_debug_pub.add('l_child.component_number=> ' || to_char(l_child.component_number),2);
4503: oe_debug_pub.add('l_child.service_txn_reason_code=> ' || l_child.service_txn_reason_code,2);
4504: oe_debug_pub.add('l_orig_line_rec.service_duration => ' || l_orig_line_rec.service_duration,2);
4505: oe_debug_pub.add('l_orig_line_rec.service_period=> ' || l_orig_line_rec.service_period ,2);
4506: oe_debug_pub.add('l_orig_line_rec.service_start_date=> ' || l_orig_line_rec.service_start_date,2);
4507: oe_debug_pub.add('l_orig_line_rec.service_end_date=> ' ||l_orig_line_rec.service_end_date ,2);
4508: -- sol_ord_er #16014165
4501: oe_debug_pub.add('l_child.option_number=> ' || to_char(l_child.option_number),2);
4502: oe_debug_pub.add('l_child.component_number=> ' || to_char(l_child.component_number),2);
4503: oe_debug_pub.add('l_child.service_txn_reason_code=> ' || l_child.service_txn_reason_code,2);
4504: oe_debug_pub.add('l_orig_line_rec.service_duration => ' || l_orig_line_rec.service_duration,2);
4505: oe_debug_pub.add('l_orig_line_rec.service_period=> ' || l_orig_line_rec.service_period ,2);
4506: oe_debug_pub.add('l_orig_line_rec.service_start_date=> ' || l_orig_line_rec.service_start_date,2);
4507: oe_debug_pub.add('l_orig_line_rec.service_end_date=> ' ||l_orig_line_rec.service_end_date ,2);
4508: -- sol_ord_er #16014165
4509: IF l_debug_level > 0 THEN
4502: oe_debug_pub.add('l_child.component_number=> ' || to_char(l_child.component_number),2);
4503: oe_debug_pub.add('l_child.service_txn_reason_code=> ' || l_child.service_txn_reason_code,2);
4504: oe_debug_pub.add('l_orig_line_rec.service_duration => ' || l_orig_line_rec.service_duration,2);
4505: oe_debug_pub.add('l_orig_line_rec.service_period=> ' || l_orig_line_rec.service_period ,2);
4506: oe_debug_pub.add('l_orig_line_rec.service_start_date=> ' || l_orig_line_rec.service_start_date,2);
4507: oe_debug_pub.add('l_orig_line_rec.service_end_date=> ' ||l_orig_line_rec.service_end_date ,2);
4508: -- sol_ord_er #16014165
4509: IF l_debug_level > 0 THEN
4510: oe_debug_pub.add('l_orig_line_rec.service_bill_option_code=> ' ||l_orig_line_rec.service_bill_option_code ,2);
4503: oe_debug_pub.add('l_child.service_txn_reason_code=> ' || l_child.service_txn_reason_code,2);
4504: oe_debug_pub.add('l_orig_line_rec.service_duration => ' || l_orig_line_rec.service_duration,2);
4505: oe_debug_pub.add('l_orig_line_rec.service_period=> ' || l_orig_line_rec.service_period ,2);
4506: oe_debug_pub.add('l_orig_line_rec.service_start_date=> ' || l_orig_line_rec.service_start_date,2);
4507: oe_debug_pub.add('l_orig_line_rec.service_end_date=> ' ||l_orig_line_rec.service_end_date ,2);
4508: -- sol_ord_er #16014165
4509: IF l_debug_level > 0 THEN
4510: oe_debug_pub.add('l_orig_line_rec.service_bill_option_code=> ' ||l_orig_line_rec.service_bill_option_code ,2);
4511: oe_debug_pub.add('l_orig_line_rec.service_bill_profile_id=> ' ||l_orig_line_rec.service_bill_profile_id ,2);
4506: oe_debug_pub.add('l_orig_line_rec.service_start_date=> ' || l_orig_line_rec.service_start_date,2);
4507: oe_debug_pub.add('l_orig_line_rec.service_end_date=> ' ||l_orig_line_rec.service_end_date ,2);
4508: -- sol_ord_er #16014165
4509: IF l_debug_level > 0 THEN
4510: oe_debug_pub.add('l_orig_line_rec.service_bill_option_code=> ' ||l_orig_line_rec.service_bill_option_code ,2);
4511: oe_debug_pub.add('l_orig_line_rec.service_bill_profile_id=> ' ||l_orig_line_rec.service_bill_profile_id ,2);
4512: oe_debug_pub.add('l_orig_line_rec.service_cov_template_id=> ' ||l_orig_line_rec.service_cov_template_id ,2);
4513: End IF;
4514:
4507: oe_debug_pub.add('l_orig_line_rec.service_end_date=> ' ||l_orig_line_rec.service_end_date ,2);
4508: -- sol_ord_er #16014165
4509: IF l_debug_level > 0 THEN
4510: oe_debug_pub.add('l_orig_line_rec.service_bill_option_code=> ' ||l_orig_line_rec.service_bill_option_code ,2);
4511: oe_debug_pub.add('l_orig_line_rec.service_bill_profile_id=> ' ||l_orig_line_rec.service_bill_profile_id ,2);
4512: oe_debug_pub.add('l_orig_line_rec.service_cov_template_id=> ' ||l_orig_line_rec.service_cov_template_id ,2);
4513: End IF;
4514:
4515: -- l_line_tbl(l_number).line_number := l_child.line_number;
4508: -- sol_ord_er #16014165
4509: IF l_debug_level > 0 THEN
4510: oe_debug_pub.add('l_orig_line_rec.service_bill_option_code=> ' ||l_orig_line_rec.service_bill_option_code ,2);
4511: oe_debug_pub.add('l_orig_line_rec.service_bill_profile_id=> ' ||l_orig_line_rec.service_bill_profile_id ,2);
4512: oe_debug_pub.add('l_orig_line_rec.service_cov_template_id=> ' ||l_orig_line_rec.service_cov_template_id ,2);
4513: End IF;
4514:
4515: -- l_line_tbl(l_number).line_number := l_child.line_number;
4516: -- l_line_tbl(l_number).shipment_number := l_child.shipment_number;
4519: l_line_tbl(l_number).option_number := l_child.option_number;
4520: l_line_tbl(l_number).component_number := l_child.component_number;
4521:
4522: FOR l_srv_number IN srv_number LOOP
4523: oe_debug_pub.add('Inside l_srv_number loop ',2);
4524: l_line_tbl(l_number).service_number := l_srv_number.service_number + 1;
4525: END LOOP;
4526: END LOOP;
4527:
4533:
4534: END IF;
4535:
4536: IF l_number > 0 THEN
4537: oe_debug_pub.add('SRV: Found options and included item lines', 1);
4538:
4539: -- Set control flags.
4540: l_control_rec.controlled_operation := TRUE;
4541: l_control_rec.validate_entity := TRUE;
4565: -- Reset recursion mode.
4566: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
4567:
4568: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4569: oe_debug_pub.add('Inside unexpected error ',2);
4570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4571: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4572: oe_debug_pub.add('Inside error ',2);
4573: RAISE FND_API.G_EXC_ERROR;
4568: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4569: oe_debug_pub.add('Inside unexpected error ',2);
4570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4571: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4572: oe_debug_pub.add('Inside error ',2);
4573: RAISE FND_API.G_EXC_ERROR;
4574: END IF;
4575:
4576: --comment out for notification project
4589: */
4590: -- Clear Table
4591: l_line_tbl.DELETE;
4592: END IF; /* End inserting lines */
4593: OE_DEBUG_PUB.ADD('Exiting INSERT_SERVICE_FOR_OPTIONS',1);
4594:
4595: EXCEPTION
4596:
4597: WHEN FND_API.G_EXC_ERROR THEN
4594:
4595: EXCEPTION
4596:
4597: WHEN FND_API.G_EXC_ERROR THEN
4598: oe_debug_pub.add('Inside exception exe error ',1);
4599: x_return_status := FND_API.G_RET_STS_ERROR;
4600:
4601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4602: oe_debug_pub.add('Inside exception unexp error ',1);
4598: oe_debug_pub.add('Inside exception exe error ',1);
4599: x_return_status := FND_API.G_RET_STS_ERROR;
4600:
4601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4602: oe_debug_pub.add('Inside exception unexp error ',1);
4603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4604:
4605: WHEN OTHERS THEN
4606:
4604:
4605: WHEN OTHERS THEN
4606:
4607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4608: oe_debug_pub.add('Inside exception other error ',1);
4609:
4610: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4611: THEN
4612: OE_MSG_PUB.Add_Exc_Msg
4674: AND nvl(l.option_number,0) = nvl(l_option_number,0)
4675: AND nvl(l.component_number,0) = nvl(l_component_number,0); --bug 2447402
4676: BEGIN
4677:
4678: OE_DEBUG_PUB.ADD('Entering CASCADE_SERVICE_FOR_OPTIONS',1);
4679:
4680: IF fnd_profile.value('ONT_CASCADE_SERVICE') = 'N' THEN
4681: /* 3128684 */
4682: oe_debug_pub.add('Do not cascade services', 2);
4678: OE_DEBUG_PUB.ADD('Entering CASCADE_SERVICE_FOR_OPTIONS',1);
4679:
4680: IF fnd_profile.value('ONT_CASCADE_SERVICE') = 'N' THEN
4681: /* 3128684 */
4682: oe_debug_pub.add('Do not cascade services', 2);
4683: x_return_status := FND_API.G_RET_STS_SUCCESS;
4684: RETURN;
4685: END IF;
4686: oe_debug_pub.add('Do cascade services', 2);
4682: oe_debug_pub.add('Do not cascade services', 2);
4683: x_return_status := FND_API.G_RET_STS_SUCCESS;
4684: RETURN;
4685: END IF;
4686: oe_debug_pub.add('Do cascade services', 2);
4687:
4688: -- query the option line
4689: OE_Line_Util.query_row(p_line_id => p_option_line_id,
4690: x_line_rec => l_orig_line_rec);
4697: AND rownum = 1;
4698:
4699:
4700: l_top_model_line_id := l_orig_line_rec.top_model_line_id;
4701: oe_debug_pub.add('Top Model Line is' || l_top_model_line_id,2);
4702:
4703:
4704: FOR l_child IN srv_line LOOP
4705: --start bug 16848168
4703:
4704: FOR l_child IN srv_line LOOP
4705: --start bug 16848168
4706: --Checking if the service line is added by the PRG modifier or not.
4707: oe_debug_pub.add('line id is: ' || l_child.line_id,1);
4708: BEGIN
4709:
4710: SELECT 'Y'
4711: INTO l_prg_exist
4719: AND l_child.SUBSCRIPTION_ENABLE_FLAG <> 'Y'
4720: AND ROWNUM <2;
4721: EXCEPTION
4722: WHEN NO_DATA_FOUND THEN
4723: oe_debug_pub.ADD('prg does not exist',1);
4724: l_prg_exist := 'N';
4725: END;
4726: --end bug 16848168
4727: oe_debug_pub.add('prg_exist flag is: ' || l_prg_exist,1);
4723: oe_debug_pub.ADD('prg does not exist',1);
4724: l_prg_exist := 'N';
4725: END;
4726: --end bug 16848168
4727: oe_debug_pub.add('prg_exist flag is: ' || l_prg_exist,1);
4728:
4729: IF l_prg_exist = 'N' THEN --bug 16848168
4730: l_number := l_number + 1;
4731: l_line_tbl(l_number) := OE_ORDER_PUB.G_MISS_LINE_REC;
4752: l_shipment_number := l_orig_line_rec.shipment_number;
4753: l_option_number := l_orig_line_rec.option_number;
4754: l_component_number := l_orig_line_rec.component_number; --bug 2447402
4755:
4756: oe_debug_pub.add('l_number => ' || to_char(l_number),2);
4757: oe_debug_pub.add('l_orig_line_rec.header_id=> ' || to_char(l_orig_line_rec.header_id),2);
4758: -- oe_debug_pub.add('item_type_code => ' || to_char(l_orig_line_rec.item_type_code),2);
4759: oe_debug_pub.add('l_orig_line_rec.line_id=> ' || to_char(l_orig_line_rec.line_id),2);
4760: oe_debug_pub.add('l_orig_line_rec.shipment_number=> ' || to_char(l_orig_line_rec.shipment_number),2);
4753: l_option_number := l_orig_line_rec.option_number;
4754: l_component_number := l_orig_line_rec.component_number; --bug 2447402
4755:
4756: oe_debug_pub.add('l_number => ' || to_char(l_number),2);
4757: oe_debug_pub.add('l_orig_line_rec.header_id=> ' || to_char(l_orig_line_rec.header_id),2);
4758: -- oe_debug_pub.add('item_type_code => ' || to_char(l_orig_line_rec.item_type_code),2);
4759: oe_debug_pub.add('l_orig_line_rec.line_id=> ' || to_char(l_orig_line_rec.line_id),2);
4760: oe_debug_pub.add('l_orig_line_rec.shipment_number=> ' || to_char(l_orig_line_rec.shipment_number),2);
4761: oe_debug_pub.add('l_orig_line_rec.option_number=> ' || to_char(l_orig_line_rec.option_number),2);
4754: l_component_number := l_orig_line_rec.component_number; --bug 2447402
4755:
4756: oe_debug_pub.add('l_number => ' || to_char(l_number),2);
4757: oe_debug_pub.add('l_orig_line_rec.header_id=> ' || to_char(l_orig_line_rec.header_id),2);
4758: -- oe_debug_pub.add('item_type_code => ' || to_char(l_orig_line_rec.item_type_code),2);
4759: oe_debug_pub.add('l_orig_line_rec.line_id=> ' || to_char(l_orig_line_rec.line_id),2);
4760: oe_debug_pub.add('l_orig_line_rec.shipment_number=> ' || to_char(l_orig_line_rec.shipment_number),2);
4761: oe_debug_pub.add('l_orig_line_rec.option_number=> ' || to_char(l_orig_line_rec.option_number),2);
4762: oe_debug_pub.add('l_orig_line_rec.service_txn_reason_code=> ' || l_orig_line_rec.service_txn_reason_code,2);
4755:
4756: oe_debug_pub.add('l_number => ' || to_char(l_number),2);
4757: oe_debug_pub.add('l_orig_line_rec.header_id=> ' || to_char(l_orig_line_rec.header_id),2);
4758: -- oe_debug_pub.add('item_type_code => ' || to_char(l_orig_line_rec.item_type_code),2);
4759: oe_debug_pub.add('l_orig_line_rec.line_id=> ' || to_char(l_orig_line_rec.line_id),2);
4760: oe_debug_pub.add('l_orig_line_rec.shipment_number=> ' || to_char(l_orig_line_rec.shipment_number),2);
4761: oe_debug_pub.add('l_orig_line_rec.option_number=> ' || to_char(l_orig_line_rec.option_number),2);
4762: oe_debug_pub.add('l_orig_line_rec.service_txn_reason_code=> ' || l_orig_line_rec.service_txn_reason_code,2);
4763: oe_debug_pub.add('l_child.service_duration => ' || l_child.service_duration,2);
4756: oe_debug_pub.add('l_number => ' || to_char(l_number),2);
4757: oe_debug_pub.add('l_orig_line_rec.header_id=> ' || to_char(l_orig_line_rec.header_id),2);
4758: -- oe_debug_pub.add('item_type_code => ' || to_char(l_orig_line_rec.item_type_code),2);
4759: oe_debug_pub.add('l_orig_line_rec.line_id=> ' || to_char(l_orig_line_rec.line_id),2);
4760: oe_debug_pub.add('l_orig_line_rec.shipment_number=> ' || to_char(l_orig_line_rec.shipment_number),2);
4761: oe_debug_pub.add('l_orig_line_rec.option_number=> ' || to_char(l_orig_line_rec.option_number),2);
4762: oe_debug_pub.add('l_orig_line_rec.service_txn_reason_code=> ' || l_orig_line_rec.service_txn_reason_code,2);
4763: oe_debug_pub.add('l_child.service_duration => ' || l_child.service_duration,2);
4764: oe_debug_pub.add('l_child.service_period=> ' || l_child.service_period ,2);
4757: oe_debug_pub.add('l_orig_line_rec.header_id=> ' || to_char(l_orig_line_rec.header_id),2);
4758: -- oe_debug_pub.add('item_type_code => ' || to_char(l_orig_line_rec.item_type_code),2);
4759: oe_debug_pub.add('l_orig_line_rec.line_id=> ' || to_char(l_orig_line_rec.line_id),2);
4760: oe_debug_pub.add('l_orig_line_rec.shipment_number=> ' || to_char(l_orig_line_rec.shipment_number),2);
4761: oe_debug_pub.add('l_orig_line_rec.option_number=> ' || to_char(l_orig_line_rec.option_number),2);
4762: oe_debug_pub.add('l_orig_line_rec.service_txn_reason_code=> ' || l_orig_line_rec.service_txn_reason_code,2);
4763: oe_debug_pub.add('l_child.service_duration => ' || l_child.service_duration,2);
4764: oe_debug_pub.add('l_child.service_period=> ' || l_child.service_period ,2);
4765: oe_debug_pub.add('l_child.service_start_date=> ' || l_child.service_start_date,2);
4758: -- oe_debug_pub.add('item_type_code => ' || to_char(l_orig_line_rec.item_type_code),2);
4759: oe_debug_pub.add('l_orig_line_rec.line_id=> ' || to_char(l_orig_line_rec.line_id),2);
4760: oe_debug_pub.add('l_orig_line_rec.shipment_number=> ' || to_char(l_orig_line_rec.shipment_number),2);
4761: oe_debug_pub.add('l_orig_line_rec.option_number=> ' || to_char(l_orig_line_rec.option_number),2);
4762: oe_debug_pub.add('l_orig_line_rec.service_txn_reason_code=> ' || l_orig_line_rec.service_txn_reason_code,2);
4763: oe_debug_pub.add('l_child.service_duration => ' || l_child.service_duration,2);
4764: oe_debug_pub.add('l_child.service_period=> ' || l_child.service_period ,2);
4765: oe_debug_pub.add('l_child.service_start_date=> ' || l_child.service_start_date,2);
4766: oe_debug_pub.add('l_child.service_end_date=> ' ||l_child.service_end_date ,2);
4759: oe_debug_pub.add('l_orig_line_rec.line_id=> ' || to_char(l_orig_line_rec.line_id),2);
4760: oe_debug_pub.add('l_orig_line_rec.shipment_number=> ' || to_char(l_orig_line_rec.shipment_number),2);
4761: oe_debug_pub.add('l_orig_line_rec.option_number=> ' || to_char(l_orig_line_rec.option_number),2);
4762: oe_debug_pub.add('l_orig_line_rec.service_txn_reason_code=> ' || l_orig_line_rec.service_txn_reason_code,2);
4763: oe_debug_pub.add('l_child.service_duration => ' || l_child.service_duration,2);
4764: oe_debug_pub.add('l_child.service_period=> ' || l_child.service_period ,2);
4765: oe_debug_pub.add('l_child.service_start_date=> ' || l_child.service_start_date,2);
4766: oe_debug_pub.add('l_child.service_end_date=> ' ||l_child.service_end_date ,2);
4767:
4760: oe_debug_pub.add('l_orig_line_rec.shipment_number=> ' || to_char(l_orig_line_rec.shipment_number),2);
4761: oe_debug_pub.add('l_orig_line_rec.option_number=> ' || to_char(l_orig_line_rec.option_number),2);
4762: oe_debug_pub.add('l_orig_line_rec.service_txn_reason_code=> ' || l_orig_line_rec.service_txn_reason_code,2);
4763: oe_debug_pub.add('l_child.service_duration => ' || l_child.service_duration,2);
4764: oe_debug_pub.add('l_child.service_period=> ' || l_child.service_period ,2);
4765: oe_debug_pub.add('l_child.service_start_date=> ' || l_child.service_start_date,2);
4766: oe_debug_pub.add('l_child.service_end_date=> ' ||l_child.service_end_date ,2);
4767:
4768: l_line_tbl(l_number).shipment_number := l_orig_line_rec.shipment_number;
4761: oe_debug_pub.add('l_orig_line_rec.option_number=> ' || to_char(l_orig_line_rec.option_number),2);
4762: oe_debug_pub.add('l_orig_line_rec.service_txn_reason_code=> ' || l_orig_line_rec.service_txn_reason_code,2);
4763: oe_debug_pub.add('l_child.service_duration => ' || l_child.service_duration,2);
4764: oe_debug_pub.add('l_child.service_period=> ' || l_child.service_period ,2);
4765: oe_debug_pub.add('l_child.service_start_date=> ' || l_child.service_start_date,2);
4766: oe_debug_pub.add('l_child.service_end_date=> ' ||l_child.service_end_date ,2);
4767:
4768: l_line_tbl(l_number).shipment_number := l_orig_line_rec.shipment_number;
4769: l_line_tbl(l_number).option_number := l_orig_line_rec.option_number;
4762: oe_debug_pub.add('l_orig_line_rec.service_txn_reason_code=> ' || l_orig_line_rec.service_txn_reason_code,2);
4763: oe_debug_pub.add('l_child.service_duration => ' || l_child.service_duration,2);
4764: oe_debug_pub.add('l_child.service_period=> ' || l_child.service_period ,2);
4765: oe_debug_pub.add('l_child.service_start_date=> ' || l_child.service_start_date,2);
4766: oe_debug_pub.add('l_child.service_end_date=> ' ||l_child.service_end_date ,2);
4767:
4768: l_line_tbl(l_number).shipment_number := l_orig_line_rec.shipment_number;
4769: l_line_tbl(l_number).option_number := l_orig_line_rec.option_number;
4770: l_line_tbl(l_number).line_number := l_orig_line_rec.line_number;
4770: l_line_tbl(l_number).line_number := l_orig_line_rec.line_number;
4771: l_line_tbl(l_number).component_number := l_orig_line_rec.component_number; --bug 2447402
4772:
4773: FOR l_srv_number IN srv_number LOOP
4774: oe_debug_pub.add('Inside l_srv_number loop ',2);
4775: l_line_tbl(l_number).service_number := l_srv_number.service_number + 1;
4776: END LOOP;
4777:
4778: END IF;
4780: END LOOP;
4781:
4782:
4783: IF l_number > 0 THEN
4784: oe_debug_pub.add('Inside cascade_service_for_options, Found top model service and options lines', 1);
4785:
4786: -- Set control flags.
4787: l_control_rec.controlled_operation := TRUE;
4788: l_control_rec.validate_entity := TRUE;
4812: -- Reset recursion mode.
4813: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
4814:
4815: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4816: oe_debug_pub.add('Inside unexpected error ',2);
4817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4818: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4819: oe_debug_pub.add('Inside error ',2);
4820: RAISE FND_API.G_EXC_ERROR;
4815: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4816: oe_debug_pub.add('Inside unexpected error ',2);
4817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4818: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4819: oe_debug_pub.add('Inside error ',2);
4820: RAISE FND_API.G_EXC_ERROR;
4821: END IF;
4822:
4823: --comment out for notification project
4836: */
4837: -- Clear Table
4838: l_line_tbl.DELETE;
4839: END IF; /* End inserting lines */
4840: OE_DEBUG_PUB.ADD('Exiting CASCADE_SERVICE_FOR_OPTIONS',1);
4841:
4842: EXCEPTION
4843:
4844: WHEN FND_API.G_EXC_ERROR THEN
4841:
4842: EXCEPTION
4843:
4844: WHEN FND_API.G_EXC_ERROR THEN
4845: oe_debug_pub.add('Inside exception exe error ',1);
4846: x_return_status := FND_API.G_RET_STS_ERROR;
4847:
4848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4849: oe_debug_pub.add('Inside exception unexp error ',1);
4845: oe_debug_pub.add('Inside exception exe error ',1);
4846: x_return_status := FND_API.G_RET_STS_ERROR;
4847:
4848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4849: oe_debug_pub.add('Inside exception unexp error ',1);
4850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4851:
4852: WHEN OTHERS THEN
4853:
4851:
4852: WHEN OTHERS THEN
4853:
4854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4855: oe_debug_pub.add('Inside exception other error ',1);
4856:
4857: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4858: THEN
4859: OE_MSG_PUB.Add_Exc_Msg
4877: l_msg_count NUMBER;
4878: l_msg_data VARCHAR2(2000);
4879: BEGIN
4880:
4881: OE_DEBUG_PUB.Add('Enter OE_DELAYED_REQUESTS_UTIL.Apply_Automatic_Attachments', 0.5); --debug level changed to 0.5 for bug 13435459
4882:
4883: x_return_status := FND_API.G_RET_STS_SUCCESS;
4884:
4885: OE_Atchmt_Util.Apply_Automatic_Attachments
4896: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4897: RAISE FND_API.G_EXC_ERROR;
4898: END IF;
4899:
4900: OE_DEBUG_PUB.Add('Exit OE_DELAYED_REQUESTS_UTIL.Apply_Automatic_Attachments', 0.5); --debug level changed to 0.5 for bug 13435459
4901:
4902: EXCEPTION
4903: WHEN FND_API.G_EXC_ERROR THEN
4904: x_return_status := FND_API.G_RET_STS_ERROR;
4925: )
4926: IS
4927: BEGIN
4928:
4929: OE_DEBUG_PUB.Add('Enter OE_DELAYED_REQUESTS_UTIL.Copy_Attachments, manual only'||
4930: p_manual_attachments_only, 0.5); --debug level changed to 0.5 for bug 13435459
4931:
4932: x_return_status := FND_API.G_RET_STS_SUCCESS;
4933:
4943: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4944: RAISE FND_API.G_EXC_ERROR;
4945: END IF;
4946:
4947: OE_DEBUG_PUB.Add('Exit OE_DELAYED_REQUESTS_UTIL.Copy_Attachments', 0.5); --debug level changed to 0.5 for bug 13435459
4948:
4949: EXCEPTION
4950: WHEN FND_API.G_EXC_ERROR THEN
4951: x_return_status := FND_API.G_RET_STS_ERROR;
4987: l_group_req_rec OE_GRP_SCH_UTIL.Sch_Group_Rec_Type;
4988: l_group_sch_required BOOLEAN := TRUE;
4989: BEGIN
4990:
4991: oe_debug_pub.add('Entering OE_Delayed_Requests_UTIL.Schedule_Line',1);
4992:
4993: OE_ORDER_SCH_UTIL.OESCH_PERFORM_GRP_SCHEDULING := 'N';
4994:
4995: FOR I in 1..p_sch_set_tbl.count LOOP
5124: OE_ORDER_SCH_UTIL.OESCH_ENTITY_SMC;
5125: l_group_req_rec.ship_set_number := l_line_rec.top_model_line_id;
5126: END IF;
5127:
5128: oe_debug_pub.add('****Printing Group Request Attributes****',2);
5129: oe_debug_pub.add('Entity :' || l_group_req_rec.entity_type,2);
5130: oe_debug_pub.add('Header Id :' || l_group_req_rec.header_id,2);
5131: oe_debug_pub.add('Line Id :' || l_group_req_rec.line_id,2);
5132: oe_debug_pub.add('Action :' || l_group_req_rec.action,2);
5125: l_group_req_rec.ship_set_number := l_line_rec.top_model_line_id;
5126: END IF;
5127:
5128: oe_debug_pub.add('****Printing Group Request Attributes****',2);
5129: oe_debug_pub.add('Entity :' || l_group_req_rec.entity_type,2);
5130: oe_debug_pub.add('Header Id :' || l_group_req_rec.header_id,2);
5131: oe_debug_pub.add('Line Id :' || l_group_req_rec.line_id,2);
5132: oe_debug_pub.add('Action :' || l_group_req_rec.action,2);
5133: oe_debug_pub.add('Warehouse :' || l_group_req_rec.ship_from_org_id,2);
5126: END IF;
5127:
5128: oe_debug_pub.add('****Printing Group Request Attributes****',2);
5129: oe_debug_pub.add('Entity :' || l_group_req_rec.entity_type,2);
5130: oe_debug_pub.add('Header Id :' || l_group_req_rec.header_id,2);
5131: oe_debug_pub.add('Line Id :' || l_group_req_rec.line_id,2);
5132: oe_debug_pub.add('Action :' || l_group_req_rec.action,2);
5133: oe_debug_pub.add('Warehouse :' || l_group_req_rec.ship_from_org_id,2);
5134: oe_debug_pub.add('Ship to :' || l_group_req_rec.ship_to_org_id,2);
5127:
5128: oe_debug_pub.add('****Printing Group Request Attributes****',2);
5129: oe_debug_pub.add('Entity :' || l_group_req_rec.entity_type,2);
5130: oe_debug_pub.add('Header Id :' || l_group_req_rec.header_id,2);
5131: oe_debug_pub.add('Line Id :' || l_group_req_rec.line_id,2);
5132: oe_debug_pub.add('Action :' || l_group_req_rec.action,2);
5133: oe_debug_pub.add('Warehouse :' || l_group_req_rec.ship_from_org_id,2);
5134: oe_debug_pub.add('Ship to :' || l_group_req_rec.ship_to_org_id,2);
5135: oe_debug_pub.add('Sh Set# :' || l_group_req_rec.ship_set_number,2);
5128: oe_debug_pub.add('****Printing Group Request Attributes****',2);
5129: oe_debug_pub.add('Entity :' || l_group_req_rec.entity_type,2);
5130: oe_debug_pub.add('Header Id :' || l_group_req_rec.header_id,2);
5131: oe_debug_pub.add('Line Id :' || l_group_req_rec.line_id,2);
5132: oe_debug_pub.add('Action :' || l_group_req_rec.action,2);
5133: oe_debug_pub.add('Warehouse :' || l_group_req_rec.ship_from_org_id,2);
5134: oe_debug_pub.add('Ship to :' || l_group_req_rec.ship_to_org_id,2);
5135: oe_debug_pub.add('Sh Set# :' || l_group_req_rec.ship_set_number,2);
5136: oe_debug_pub.add('Ar Set# :' || l_group_req_rec.arrival_set_number,2);
5129: oe_debug_pub.add('Entity :' || l_group_req_rec.entity_type,2);
5130: oe_debug_pub.add('Header Id :' || l_group_req_rec.header_id,2);
5131: oe_debug_pub.add('Line Id :' || l_group_req_rec.line_id,2);
5132: oe_debug_pub.add('Action :' || l_group_req_rec.action,2);
5133: oe_debug_pub.add('Warehouse :' || l_group_req_rec.ship_from_org_id,2);
5134: oe_debug_pub.add('Ship to :' || l_group_req_rec.ship_to_org_id,2);
5135: oe_debug_pub.add('Sh Set# :' || l_group_req_rec.ship_set_number,2);
5136: oe_debug_pub.add('Ar Set# :' || l_group_req_rec.arrival_set_number,2);
5137: oe_debug_pub.add('Ship Date :' || l_group_req_rec.schedule_ship_date,2);
5130: oe_debug_pub.add('Header Id :' || l_group_req_rec.header_id,2);
5131: oe_debug_pub.add('Line Id :' || l_group_req_rec.line_id,2);
5132: oe_debug_pub.add('Action :' || l_group_req_rec.action,2);
5133: oe_debug_pub.add('Warehouse :' || l_group_req_rec.ship_from_org_id,2);
5134: oe_debug_pub.add('Ship to :' || l_group_req_rec.ship_to_org_id,2);
5135: oe_debug_pub.add('Sh Set# :' || l_group_req_rec.ship_set_number,2);
5136: oe_debug_pub.add('Ar Set# :' || l_group_req_rec.arrival_set_number,2);
5137: oe_debug_pub.add('Ship Date :' || l_group_req_rec.schedule_ship_date,2);
5138: oe_debug_pub.add('Arr Date :' || l_group_req_rec.schedule_arrival_date,2);
5131: oe_debug_pub.add('Line Id :' || l_group_req_rec.line_id,2);
5132: oe_debug_pub.add('Action :' || l_group_req_rec.action,2);
5133: oe_debug_pub.add('Warehouse :' || l_group_req_rec.ship_from_org_id,2);
5134: oe_debug_pub.add('Ship to :' || l_group_req_rec.ship_to_org_id,2);
5135: oe_debug_pub.add('Sh Set# :' || l_group_req_rec.ship_set_number,2);
5136: oe_debug_pub.add('Ar Set# :' || l_group_req_rec.arrival_set_number,2);
5137: oe_debug_pub.add('Ship Date :' || l_group_req_rec.schedule_ship_date,2);
5138: oe_debug_pub.add('Arr Date :' || l_group_req_rec.schedule_arrival_date,2);
5139: oe_debug_pub.add('*******************************************',2);
5132: oe_debug_pub.add('Action :' || l_group_req_rec.action,2);
5133: oe_debug_pub.add('Warehouse :' || l_group_req_rec.ship_from_org_id,2);
5134: oe_debug_pub.add('Ship to :' || l_group_req_rec.ship_to_org_id,2);
5135: oe_debug_pub.add('Sh Set# :' || l_group_req_rec.ship_set_number,2);
5136: oe_debug_pub.add('Ar Set# :' || l_group_req_rec.arrival_set_number,2);
5137: oe_debug_pub.add('Ship Date :' || l_group_req_rec.schedule_ship_date,2);
5138: oe_debug_pub.add('Arr Date :' || l_group_req_rec.schedule_arrival_date,2);
5139: oe_debug_pub.add('*******************************************',2);
5140:
5133: oe_debug_pub.add('Warehouse :' || l_group_req_rec.ship_from_org_id,2);
5134: oe_debug_pub.add('Ship to :' || l_group_req_rec.ship_to_org_id,2);
5135: oe_debug_pub.add('Sh Set# :' || l_group_req_rec.ship_set_number,2);
5136: oe_debug_pub.add('Ar Set# :' || l_group_req_rec.arrival_set_number,2);
5137: oe_debug_pub.add('Ship Date :' || l_group_req_rec.schedule_ship_date,2);
5138: oe_debug_pub.add('Arr Date :' || l_group_req_rec.schedule_arrival_date,2);
5139: oe_debug_pub.add('*******************************************',2);
5140:
5141: oe_debug_pub.add('Calling Grp Schedule : ',2);
5134: oe_debug_pub.add('Ship to :' || l_group_req_rec.ship_to_org_id,2);
5135: oe_debug_pub.add('Sh Set# :' || l_group_req_rec.ship_set_number,2);
5136: oe_debug_pub.add('Ar Set# :' || l_group_req_rec.arrival_set_number,2);
5137: oe_debug_pub.add('Ship Date :' || l_group_req_rec.schedule_ship_date,2);
5138: oe_debug_pub.add('Arr Date :' || l_group_req_rec.schedule_arrival_date,2);
5139: oe_debug_pub.add('*******************************************',2);
5140:
5141: oe_debug_pub.add('Calling Grp Schedule : ',2);
5142: OE_GRP_SCH_UTIL.Group_Schedule
5135: oe_debug_pub.add('Sh Set# :' || l_group_req_rec.ship_set_number,2);
5136: oe_debug_pub.add('Ar Set# :' || l_group_req_rec.arrival_set_number,2);
5137: oe_debug_pub.add('Ship Date :' || l_group_req_rec.schedule_ship_date,2);
5138: oe_debug_pub.add('Arr Date :' || l_group_req_rec.schedule_arrival_date,2);
5139: oe_debug_pub.add('*******************************************',2);
5140:
5141: oe_debug_pub.add('Calling Grp Schedule : ',2);
5142: OE_GRP_SCH_UTIL.Group_Schedule
5143: (p_group_req_rec => l_group_req_rec
5137: oe_debug_pub.add('Ship Date :' || l_group_req_rec.schedule_ship_date,2);
5138: oe_debug_pub.add('Arr Date :' || l_group_req_rec.schedule_arrival_date,2);
5139: oe_debug_pub.add('*******************************************',2);
5140:
5141: oe_debug_pub.add('Calling Grp Schedule : ',2);
5142: OE_GRP_SCH_UTIL.Group_Schedule
5143: (p_group_req_rec => l_group_req_rec
5144: ,x_atp_tbl => l_atp_tbl
5145: ,x_return_status => l_return_status);
5143: (p_group_req_rec => l_group_req_rec
5144: ,x_atp_tbl => l_atp_tbl
5145: ,x_return_status => l_return_status);
5146:
5147: oe_debug_pub.add('After Calling Grp Schedule : || l_return_status',2);
5148:
5149: oe_debug_pub.add('Setting G_CASCADING_REQUEST_LOGGED to TRUE',2);
5150:
5151: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
5145: ,x_return_status => l_return_status);
5146:
5147: oe_debug_pub.add('After Calling Grp Schedule : || l_return_status',2);
5148:
5149: oe_debug_pub.add('Setting G_CASCADING_REQUEST_LOGGED to TRUE',2);
5150:
5151: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
5152: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
5153: END IF;
5153: END IF;
5154:
5155: ELSE
5156:
5157: oe_debug_pub.add('Sch_Line for line : '|| l_line_rec.line_id,2);
5158:
5159: oe_debug_pub.add('Sch_Line for line : '|| l_line_rec.line_id,2);
5160:
5161: -- We are doing this to retain the copy of l_line_rec.
5155: ELSE
5156:
5157: oe_debug_pub.add('Sch_Line for line : '|| l_line_rec.line_id,2);
5158:
5159: oe_debug_pub.add('Sch_Line for line : '|| l_line_rec.line_id,2);
5160:
5161: -- We are doing this to retain the copy of l_line_rec.
5162: l_out_line_rec := l_line_rec;
5163:
5168: , x_atp_tbl => l_atp_tbl
5169: , x_return_status => l_return_status);
5170:
5171:
5172: oe_debug_pub.add('After Calling Sch_Line : '|| l_return_status,2);
5173:
5174: END IF;
5175:
5176: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5174: END IF;
5175:
5176: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5177:
5178: oe_debug_pub.add('Line Id error out nocopy : ' || l_line_rec.line_id,2);
5179:
5180:
5181: IF l_request_rec.param3 =
5182: OE_ORDER_SCH_UTIL.OESCH_ENTITY_ARRIVAL_SET OR
5188: -- set.
5189:
5190: IF fnd_profile.value('ONT_AUTO_PUSH_GRP_DATE') = 'Y' THEN
5191:
5192: oe_debug_pub.add('Auto Push Group Date is Yes',2);
5193:
5194: -- Added this stmt to fix big 1899651.
5195: l_line_rec.schedule_action_code :=
5196: OE_ORDER_SCH_UTIL.OESCH_ACT_RESCHEDULE;
5201: , x_group_req_rec => l_group_req_rec
5202: , x_return_status => l_return_status
5203: );
5204:
5205: oe_debug_pub.add('****Printing Group Request Attributes****',2);
5206: oe_debug_pub.add('Entity :' ||
5207: l_group_req_rec.entity_type,20);
5208: oe_debug_pub.add('Header Id :' ||
5209: l_group_req_rec.header_id,2);
5202: , x_return_status => l_return_status
5203: );
5204:
5205: oe_debug_pub.add('****Printing Group Request Attributes****',2);
5206: oe_debug_pub.add('Entity :' ||
5207: l_group_req_rec.entity_type,20);
5208: oe_debug_pub.add('Header Id :' ||
5209: l_group_req_rec.header_id,2);
5210: oe_debug_pub.add('Line Id :' ||
5204:
5205: oe_debug_pub.add('****Printing Group Request Attributes****',2);
5206: oe_debug_pub.add('Entity :' ||
5207: l_group_req_rec.entity_type,20);
5208: oe_debug_pub.add('Header Id :' ||
5209: l_group_req_rec.header_id,2);
5210: oe_debug_pub.add('Line Id :' ||
5211: l_group_req_rec.line_id,2);
5212: oe_debug_pub.add('Action :' ||
5206: oe_debug_pub.add('Entity :' ||
5207: l_group_req_rec.entity_type,20);
5208: oe_debug_pub.add('Header Id :' ||
5209: l_group_req_rec.header_id,2);
5210: oe_debug_pub.add('Line Id :' ||
5211: l_group_req_rec.line_id,2);
5212: oe_debug_pub.add('Action :' ||
5213: l_group_req_rec.action,2);
5214: oe_debug_pub.add('Warehouse :' ||
5208: oe_debug_pub.add('Header Id :' ||
5209: l_group_req_rec.header_id,2);
5210: oe_debug_pub.add('Line Id :' ||
5211: l_group_req_rec.line_id,2);
5212: oe_debug_pub.add('Action :' ||
5213: l_group_req_rec.action,2);
5214: oe_debug_pub.add('Warehouse :' ||
5215: l_group_req_rec.ship_from_org_id,2);
5216: oe_debug_pub.add('Ship to :' ||
5210: oe_debug_pub.add('Line Id :' ||
5211: l_group_req_rec.line_id,2);
5212: oe_debug_pub.add('Action :' ||
5213: l_group_req_rec.action,2);
5214: oe_debug_pub.add('Warehouse :' ||
5215: l_group_req_rec.ship_from_org_id,2);
5216: oe_debug_pub.add('Ship to :' ||
5217: l_group_req_rec.ship_to_org_id,2);
5218: oe_debug_pub.add('Sh Set# :' ||
5212: oe_debug_pub.add('Action :' ||
5213: l_group_req_rec.action,2);
5214: oe_debug_pub.add('Warehouse :' ||
5215: l_group_req_rec.ship_from_org_id,2);
5216: oe_debug_pub.add('Ship to :' ||
5217: l_group_req_rec.ship_to_org_id,2);
5218: oe_debug_pub.add('Sh Set# :' ||
5219: l_group_req_rec.ship_set_number,2);
5220: oe_debug_pub.add('Ar Set# :' ||
5214: oe_debug_pub.add('Warehouse :' ||
5215: l_group_req_rec.ship_from_org_id,2);
5216: oe_debug_pub.add('Ship to :' ||
5217: l_group_req_rec.ship_to_org_id,2);
5218: oe_debug_pub.add('Sh Set# :' ||
5219: l_group_req_rec.ship_set_number,2);
5220: oe_debug_pub.add('Ar Set# :' ||
5221: l_group_req_rec.arrival_set_number,2);
5222: oe_debug_pub.add('Ship Date :' ||
5216: oe_debug_pub.add('Ship to :' ||
5217: l_group_req_rec.ship_to_org_id,2);
5218: oe_debug_pub.add('Sh Set# :' ||
5219: l_group_req_rec.ship_set_number,2);
5220: oe_debug_pub.add('Ar Set# :' ||
5221: l_group_req_rec.arrival_set_number,2);
5222: oe_debug_pub.add('Ship Date :' ||
5223: l_group_req_rec.schedule_ship_date,2);
5224: oe_debug_pub.add('Arr Date :' ||
5218: oe_debug_pub.add('Sh Set# :' ||
5219: l_group_req_rec.ship_set_number,2);
5220: oe_debug_pub.add('Ar Set# :' ||
5221: l_group_req_rec.arrival_set_number,2);
5222: oe_debug_pub.add('Ship Date :' ||
5223: l_group_req_rec.schedule_ship_date,2);
5224: oe_debug_pub.add('Arr Date :' ||
5225: l_group_req_rec.schedule_arrival_date,2);
5226: oe_debug_pub.add('****************************************',2);
5220: oe_debug_pub.add('Ar Set# :' ||
5221: l_group_req_rec.arrival_set_number,2);
5222: oe_debug_pub.add('Ship Date :' ||
5223: l_group_req_rec.schedule_ship_date,2);
5224: oe_debug_pub.add('Arr Date :' ||
5225: l_group_req_rec.schedule_arrival_date,2);
5226: oe_debug_pub.add('****************************************',2);
5227:
5228: OE_ORDER_SCH_UTIL.OESCH_PERFORM_GRP_SCHEDULING := 'Y';
5222: oe_debug_pub.add('Ship Date :' ||
5223: l_group_req_rec.schedule_ship_date,2);
5224: oe_debug_pub.add('Arr Date :' ||
5225: l_group_req_rec.schedule_arrival_date,2);
5226: oe_debug_pub.add('****************************************',2);
5227:
5228: OE_ORDER_SCH_UTIL.OESCH_PERFORM_GRP_SCHEDULING := 'Y';
5229:
5230: oe_debug_pub.add('Calling Grp Schedule : ',2);
5226: oe_debug_pub.add('****************************************',2);
5227:
5228: OE_ORDER_SCH_UTIL.OESCH_PERFORM_GRP_SCHEDULING := 'Y';
5229:
5230: oe_debug_pub.add('Calling Grp Schedule : ',2);
5231:
5232: OE_GRP_SCH_UTIL.Group_Schedule
5233: (p_group_req_rec => l_group_req_rec
5234: ,x_atp_tbl => l_atp_tbl
5233: (p_group_req_rec => l_group_req_rec
5234: ,x_atp_tbl => l_atp_tbl
5235: ,x_return_status => l_return_status);
5236:
5237: oe_debug_pub.add('After Calling Grp Schedule : ||
5238: l_return_status',1);
5239:
5240: oe_debug_pub.add('Stng G_CASCADING_REQUEST_LOGGED to TRUE',2);
5241:
5236:
5237: oe_debug_pub.add('After Calling Grp Schedule : ||
5238: l_return_status',1);
5239:
5240: oe_debug_pub.add('Stng G_CASCADING_REQUEST_LOGGED to TRUE',2);
5241:
5242: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
5243: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
5244: END IF;
5296: -- line without scheduling the same when parent is
5297: -- scheduled.
5298:
5299: -- Bug 2185769
5300: oe_debug_pub.add('Before failing the line',1);
5301: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
5302: OE_MSG_PUB.Add;
5303:
5304: END IF;
5324:
5325: END LOOP;
5326: OE_ORDER_SCH_UTIL.OESCH_PERFORM_GRP_SCHEDULING := 'Y';
5327:
5328: oe_debug_pub.add('Exiting OE_Delayed_Requests_UTIL.Schedule_Line');
5329: EXCEPTION
5330:
5331: WHEN FND_API.G_EXC_ERROR THEN
5332: x_return_status := FND_API.G_RET_STS_ERROR;
5359: p_entity_id_tbl IN OE_Delayed_Requests_PVT.Entity_Id_Tbl_Type ,
5360: x_return_status OUT NOCOPY VARCHAR2)
5361: IS
5362: l_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;
5363: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5364: v_start NUMBER;
5365: v_end NUMBER;
5366: l_entity_id_tbl OE_Delayed_Requests_PVT.Entity_Id_Tbl_Type ;
5367: l_tax_rec_out_tbl OM_TAX_UTIL.om_tax_out_tab_type;
5394: l_h_Adj_rec OE_Order_PUB.Header_Adj_Rec_Type; --TaxER
5395: BEGIN
5396: IF l_debug_level > 0 THEN
5397: v_start := DBMS_UTILITY.GET_TIME;
5398: oe_debug_pub.add('Entering Process_Tax ',0.5); --debug level changed to 0.5 for bug 13435459
5399: END IF;
5400: x_return_status := l_return_status;
5401: l_entity_id_tbl := p_entity_id_tbl;
5402: l_tax_rec_out_tbl.delete;
5402: l_tax_rec_out_tbl.delete;
5403: /* initializing the l_tax_rec_out_tbl */
5404: /* calling tax_line procedure to calculate tax */
5405: IF l_debug_level > 0 THEN
5406: oe_debug_pub.add('Calling OM_TAX_UTIL.TAX_LINE',1);
5407: END IF;
5408:
5409: OM_TAX_UTIL.TAX_LINE( p_entity_id_tbl =>l_entity_id_tbl, x_tax_out_tbl => l_tax_rec_out_tbl, x_return_status => l_return_status);
5410: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5412: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5413: RAISE FND_API.G_EXC_ERROR;
5414: END IF;
5415: IF l_debug_level > 0 THEN
5416: oe_debug_pub.add('After Successfully calculating Tax',2);
5417: oe_debug_pub.add('return status : ' || l_return_status, 1);
5418: END IF;
5419:
5420: FOR i IN 1..p_entity_id_tbl.count
5413: RAISE FND_API.G_EXC_ERROR;
5414: END IF;
5415: IF l_debug_level > 0 THEN
5416: oe_debug_pub.add('After Successfully calculating Tax',2);
5417: oe_debug_pub.add('return status : ' || l_return_status, 1);
5418: END IF;
5419:
5420: FOR i IN 1..p_entity_id_tbl.count
5421: LOOP
5421: LOOP
5422: l_requesting_entity_id := p_entity_id_tbl(i).entity_id; --TaxER
5423: l_request_ind := p_entity_id_tbl(i).request_ind; --TaxER
5424: IF l_debug_level > 0 THEN
5425: oe_debug_pub.add( 'value count '|| OE_Delayed_Requests_PVT.G_Delayed_Requests.count);
5426: END IF;
5427: /* Bug # 3337661: Corrected IF stmt by using OE_GLOBALS.G_TAX_LINE */
5428: -- Front Ported for bug 3397062
5429: IF OE_Delayed_Requests_PVT.G_Delayed_Requests.exists(l_request_ind) AND OE_Delayed_Requests_PVT.G_Delayed_Requests(l_request_ind).request_type = OE_GLOBALS.G_TAX_LINE THEN
5429: IF OE_Delayed_Requests_PVT.G_Delayed_Requests.exists(l_request_ind) AND OE_Delayed_Requests_PVT.G_Delayed_Requests(l_request_ind).request_type = OE_GLOBALS.G_TAX_LINE THEN
5430: l_call_credit_checking := OE_Delayed_Requests_PVT.G_Delayed_Requests(l_request_ind).param1;
5431: END IF;
5432: IF l_debug_level > 0 THEN
5433: oe_debug_pub.add('OEXUREQB: call_credit_checking is: '||l_call_credit_checking,1);
5434: END IF;
5435: l_tax_on_charge := 0;
5436: l_total_tax := 0;
5437:
5460: IF ( (l_old_total_tax IS NOT NULL AND l_total_tax IS NOT NULL AND l_old_total_tax = l_total_tax) OR (l_old_total_tax IS NULL AND l_total_tax IS NULL ) ) THEN
5461: NULL;
5462: ELSE
5463: IF l_debug_level > 0 THEN
5464: oe_debug_pub.add('Updateing tax value from '||TO_CHAR(l_old_total_tax)|| ' To ' ||TO_CHAR(l_total_tax) ,2);
5465: END IF;
5466:
5467: /* updating the tax value and tax line value on oe_order_lines_all table for line id*/
5468: UPDATE OE_ORDER_LINES_ALL
5477: WHERE line_id = l_line_rec.line_id;
5478: -- Bug 8825061: Update the global picture given that the line attribute
5479: -- "tax_value" has undergone an update.
5480: IF l_debug_level > 0 THEN
5481: oe_debug_pub.ADD('8825061: Line_ID: ' || l_line_rec.line_id, 1);
5482: oe_debug_pub.add(' 8825061: New Tax Value: ' || l_total_tax) ;
5483: END IF; -- check on l_debug_level
5484: l_old_line_tbl(1) := l_line_rec;
5485: l_line_tbl(1) := l_line_rec;
5478: -- Bug 8825061: Update the global picture given that the line attribute
5479: -- "tax_value" has undergone an update.
5480: IF l_debug_level > 0 THEN
5481: oe_debug_pub.ADD('8825061: Line_ID: ' || l_line_rec.line_id, 1);
5482: oe_debug_pub.add(' 8825061: New Tax Value: ' || l_total_tax) ;
5483: END IF; -- check on l_debug_level
5484: l_old_line_tbl(1) := l_line_rec;
5485: l_line_tbl(1) := l_line_rec;
5486: l_line_tbl(1).tax_value := l_total_tax;
5492: p_line_id => l_line_rec.line_id,
5493: x_index => l_global_index,
5494: x_return_status => l_return_status );
5495: IF l_debug_level > 0 THEN
5496: oe_debug_pub.add('8825061: after update global picture, status: ' || l_return_status, 1 ) ;
5497: oe_debug_pub.add('8825061: global picture index: ' || l_global_index , 1 ) ;
5498: END IF;
5499: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5500: RAISE Fnd_Api.G_EXC_ERROR;
5493: x_index => l_global_index,
5494: x_return_status => l_return_status );
5495: IF l_debug_level > 0 THEN
5496: oe_debug_pub.add('8825061: after update global picture, status: ' || l_return_status, 1 ) ;
5497: oe_debug_pub.add('8825061: global picture index: ' || l_global_index , 1 ) ;
5498: END IF;
5499: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5500: RAISE Fnd_Api.G_EXC_ERROR;
5501: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5509: -- lkxu, if tax_value changes, log delayed request for commitment.
5510: -- bug 1768906
5511: IF OE_Commitment_Pvt.Do_Commitment_Sequencing AND l_line_rec.commitment_id IS NOT NULL THEN
5512: IF l_debug_level > 0 THEN
5513: oe_debug_pub.add('Logging delayed request for Commitment when tax value changes.', 2);
5514: END IF;
5515: OE_Delayed_Requests_Pvt.Log_Request( p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5516: p_entity_id => l_line_rec.line_id,
5517: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5528: IF NVL(l_total_tax,0) > NVL(l_old_total_tax,0) AND l_line_rec.commitment_id IS NULL AND l_payment_type_code = 'CREDIT_CARD' THEN
5529: -- if it is a prepaid, do not log request after shipping.
5530: IF OE_PrePayment_UTIL.is_prepaid_order(l_line_rec.header_id) = 'N' OR (OE_PrePayment_UTIL.is_prepaid_order(l_line_rec.header_id) = 'Y' AND l_line_rec.booked_flag ='Y' AND l_line_rec.shipped_quantity IS NULL) THEN
5531: IF l_debug_level > 0 THEN
5532: oe_debug_pub.ADD('Logging delayed request for Verify Payment for change in tax value',2);
5533: END IF;
5534: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5535: p_entity_id => l_line_rec.header_id,
5536: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5547: AND l_line_rec.booked_flag ='Y'
5548: AND l_payment_type_code = 'CREDIT_CARD'
5549: AND l_line_rec.shipped_quantity IS NULL THEN
5550: IF l_debug_level > 0 THEN
5551: oe_debug_pub.ADD('Logging delayed request for Verify Payment for change in tax value for prepaid order',2);
5552: END IF;
5553: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5554: p_entity_id => l_line_rec.header_id,
5555: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5565: -- Fix Bug # 2565813: Added IF condition to check for real change in tax value.
5566: IF NVL(l_payment_type_code, ' ') <> 'CREDIT_CARD' --bug 2679223
5567: AND NVL(l_call_credit_checking, 'Y') <> 'No_Credit_Checking' THEN
5568: IF NVL(l_total_tax, 0) > NVL(l_old_total_tax, 0) THEN
5569: oe_debug_pub.ADD('Logging delayed request for Verify Payment for change in tax value',2);
5570: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5571: p_entity_id => l_line_rec.header_id,
5572: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5573: p_requesting_entity_id => l_line_rec.line_id,
5573: p_requesting_entity_id => l_line_rec.line_id,
5574: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5575: x_return_status => l_return_status);
5576: ELSIF NVL(l_total_tax,0) < NVL(l_old_total_tax,0) THEN
5577: oe_debug_pub.add('CHECKING CREDIT CHECK HOLD FOR HEADER/LINE ID : ' || TO_CHAR (l_line_rec.header_id) || '/' || TO_CHAR (l_line_rec.line_id) ) ;
5578: OE_HOLDS_PUB.Check_Holds ( p_api_version => 1.0 ,
5579: p_header_id => l_line_rec.header_id ,
5580: p_line_id => l_line_rec.line_id ,
5581: p_hold_id => 1 ,
5585: x_msg_count => l_msg_count ,
5586: x_msg_data => l_msg_data ,
5587: x_return_status => l_return_status );
5588: IF ( l_hold_result = FND_API.G_TRUE ) THEN
5589: oe_debug_pub.add('Logging delayed request for verify payment for change in tax value and hold exist') ;
5590: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5591: p_entity_id => l_line_rec.header_id,
5592: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5593: p_requesting_entity_id => l_line_rec.line_id,
5636: OR NOT OE_GLOBALS.Equal(l_tax_rec_out_tbl(I).tax_rate, l_l_line_adj_tbl(J).operand)
5637: OR l_tax_rec_out_tbl(I).amount_includes_tax_flag <> l_l_line_adj_tbl(j).applied_flag -- added for bug#12895421
5638: THEN
5639: IF l_debug_level > 0 THEN
5640: oe_debug_pub.add('Updating the Adj record '|| TO_CHAR(l_l_line_adj_tbl(J).price_adjustment_id),2);
5641: END IF;
5642: UPDATE OE_PRICE_ADJUSTMENTS
5643: SET ADJUSTED_AMOUNT = l_tax_rec_out_tbl(I).tax_amount,
5644: OPERAND = l_tax_rec_out_tbl(I).tax_rate,
5670: OR NOT OE_GLOBALS.Equal(l_tax_rec_out_tbl(I).tax_rate, l_l_line_adj_tbl(J).operand)
5671: OR l_tax_rec_out_tbl(I).amount_includes_tax_flag <> l_l_line_adj_tbl(j).applied_flag -- added for bug#12895421
5672: THEN
5673: IF l_debug_level > 0 THEN
5674: oe_debug_pub.add('Updating the Adj record '|| TO_CHAR(l_l_line_adj_tbl(J).price_adjustment_id),2);
5675: END IF;
5676: UPDATE OE_PRICE_ADJUSTMENTS
5677: SET ADJUSTED_AMOUNT = l_tax_rec_out_tbl(I).tax_amount,
5678: OPERAND = l_tax_rec_out_tbl(I).tax_rate,
5705: l_adj_rec.line_id := l_tax_rec_out_tbl(i).line_id;
5706: --l_adj_rec.tax_code := l_tax_rate_code;
5707: l_adj_rec.tax_rate_id := l_tax_rec_out_tbl(I).tax_rate_id;
5708: IF l_debug_level > 0 THEN
5709: oe_debug_pub.add('Inserting the Adj record '|| TO_CHAR(l_adj_rec.price_adjustment_id),2);
5710: END IF;
5711: l_adj_rec.operand := l_tax_rec_out_tbl(I).tax_rate;
5712: l_adj_rec.adjusted_amount := l_tax_rec_out_tbl(I).tax_amount;
5713: l_adj_rec.automatic_flag := 'N';
5728: FOR J IN 1..l_l_line_adj_tbl.COUNT
5729: LOOP
5730: IF l_l_line_adj_tbl(J).list_line_type_code = 'TAX' AND (l_l_line_adj_tbl(J).operation IS NULL OR l_l_line_adj_tbl(J).operation = FND_API.G_MISS_CHAR) THEN
5731: IF l_debug_level > 0 THEN
5732: oe_debug_pub.add('Deleting adj Id '|| TO_CHAR(l_l_line_adj_tbl(J).price_adjustment_id),2);
5733: END IF;
5734: DELETE
5735: FROM OE_PRICE_ADJUSTMENTS
5736: WHERE PRICE_ADJUSTMENT_ID = l_l_line_adj_tbl(J).price_adjustment_id;
5756: IF ( (l_old_total_tax IS NOT NULL AND l_total_tax IS NOT NULL AND l_old_total_tax = l_total_tax) OR (l_old_total_tax IS NULL AND l_total_tax IS NULL ) ) THEN
5757: NULL;
5758: ELSE
5759: IF l_debug_level > 0 THEN
5760: oe_debug_pub.add('Updateing tax value from '||TO_CHAR(l_old_total_tax)|| ' To ' ||TO_CHAR(l_total_tax) ,2);
5761: END IF;
5762: /* getting header record*/
5763: l_header_rec:= OE_Header_UTIL.Query_Row(p_header_id=> p_entity_id_tbl(i).entity_id );
5764: SELECT payment_type_code
5767: WHERE header_id = l_header_rec.header_id;
5768: -- Bug 8825061: Update the global picture given that the line attribute
5769: -- "tax_value" has undergone an update.
5770: IF l_debug_level > 0 THEN
5771: oe_debug_pub.ADD('8825061: Header_id : ' || l_header_rec.header_id, 1);
5772: oe_debug_pub.add(' 8825061: New Tax Value: ' || l_total_tax) ;
5773: END IF; -- check on l_debug_level
5774: /* getting return count*/
5775: SELECT COUNT(1)
5768: -- Bug 8825061: Update the global picture given that the line attribute
5769: -- "tax_value" has undergone an update.
5770: IF l_debug_level > 0 THEN
5771: oe_debug_pub.ADD('8825061: Header_id : ' || l_header_rec.header_id, 1);
5772: oe_debug_pub.add(' 8825061: New Tax Value: ' || l_total_tax) ;
5773: END IF; -- check on l_debug_level
5774: /* getting return count*/
5775: SELECT COUNT(1)
5776: INTO l_return
5793: -- log delayed request for prepaid order even the tax value
5794: -- decreased, as a refund request might be needed.
5795: ELSIF NVL(l_total_tax,0) < NVL(l_old_total_tax,0) AND OE_PrePayment_UTIL.is_prepaid_order(l_header_rec.header_id) = 'Y' AND l_header_rec.booked_flag ='Y' AND l_payment_type_code = 'CREDIT_CARD' THEN
5796: IF l_debug_level > 0 THEN
5797: oe_debug_pub.ADD('Logging delayed request for Verify Payment for change in tax value for prepaid order',2);
5798: END IF;
5799: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5800: p_entity_id => l_header_rec.header_id,
5801: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5811: -- Fix Bug # 2565813: Added IF condition to check for real change in tax value.
5812: IF NVL(l_payment_type_code, ' ') <> 'CREDIT_CARD' --bug 2679223
5813: AND NVL(l_call_credit_checking, 'Y') <> 'No_Credit_Checking' THEN
5814: IF NVL(l_total_tax, 0) > NVL(l_old_total_tax, 0) THEN
5815: oe_debug_pub.ADD('Logging delayed request for Verify Payment for change in tax value',2);
5816: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5817: p_entity_id => l_header_rec.header_id,
5818: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5819: p_requesting_entity_id => l_header_rec.header_id,
5869: OR NOT OE_GLOBALS.Equal(l_tax_rec_out_tbl(I).tax_rate, l_l_header_adj_tbl(J).operand)
5870: OR l_tax_rec_out_tbl(I).amount_includes_tax_flag <> l_l_header_adj_tbl(j).applied_flag -- added for bug#12895421
5871: THEN
5872: IF l_debug_level > 0 THEN
5873: oe_debug_pub.add('Updating the Adj record '|| TO_CHAR(l_l_header_adj_tbl(J).price_adjustment_id),2);
5874: END IF;
5875: UPDATE OE_PRICE_ADJUSTMENTS
5876: SET ADJUSTED_AMOUNT = l_tax_rec_out_tbl(I).tax_amount,
5877: OPERAND = l_tax_rec_out_tbl(I).tax_rate,
5904: l_h_adj_rec.line_id := l_tax_rec_out_tbl(i).line_id;
5905: --l_adj_rec.tax_code := l_tax_rate_code;
5906: l_h_adj_rec.tax_rate_id := l_tax_rec_out_tbl(I).tax_rate_id;
5907: IF l_debug_level > 0 THEN
5908: oe_debug_pub.add('Inserting the Adj record '|| TO_CHAR(l_adj_rec.price_adjustment_id),2);
5909: END IF;
5910: l_h_adj_rec.operand := l_tax_rec_out_tbl(I).tax_rate;
5911: l_h_adj_rec.adjusted_amount := l_tax_rec_out_tbl(I).tax_amount;
5912: l_h_adj_rec.automatic_flag := 'N';
5928: LOOP
5929: --TaxER IF l_l_header_adj_tbl(J).list_line_type_code = 'TAX' AND l_l_header_adj_tbl(J).parent_adjustment_id IS NULL AND (l_l_header_adj_tbl(J).operation IS NULL OR l_l_header_adj_tbl(J).operation = FND_API.G_MISS_CHAR) THEN
5930: IF l_l_header_adj_tbl(J).list_line_type_code = 'TAX' AND (l_l_header_adj_tbl(J).operation IS NULL OR l_l_header_adj_tbl(J).operation = FND_API.G_MISS_CHAR) THEN --TaxER
5931: IF l_debug_level > 0 THEN
5932: oe_debug_pub.add('Deleting adj Id '|| TO_CHAR(l_l_header_adj_tbl(J).price_adjustment_id),2);
5933: END IF;
5934: DELETE
5935: FROM OE_PRICE_ADJUSTMENTS
5936: WHERE PRICE_ADJUSTMENT_ID = l_l_header_adj_tbl(J).price_adjustment_id;
5941: END LOOP;
5942: x_return_status := l_return_status;
5943: IF l_debug_level > 0 THEN
5944: v_end := DBMS_UTILITY.GET_TIME;
5945: oe_debug_pub.add('Time Of execution for Process_Tax '|| TO_CHAR((v_end-v_start)/100),1);
5946: END IF;
5947: l_tax_rec_out_tbl.delete;
5948: IF l_debug_level > 0 THEN
5949: oe_debug_pub.add('Exiting Process_Tax ',0.5); --debug level changed to 0.5 for bug 13435459
5945: oe_debug_pub.add('Time Of execution for Process_Tax '|| TO_CHAR((v_end-v_start)/100),1);
5946: END IF;
5947: l_tax_rec_out_tbl.delete;
5948: IF l_debug_level > 0 THEN
5949: oe_debug_pub.add('Exiting Process_Tax ',0.5); --debug level changed to 0.5 for bug 13435459
5950: END IF;
5951: EXCEPTION
5952: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5953: l_tax_rec_out_tbl.delete;
5963: l_tax_rec_out_tbl.delete;
5964: l_l_line_adj_tbl.delete;
5965: l_l_header_adj_tbl.DELETE;
5966: IF l_debug_level > 0 THEN
5967: oe_debug_pub.add('Tax_Order: In No DATA Found',2);
5968: END IF;
5969: x_return_status := FND_API.G_RET_STS_SUCCESS;
5970: WHEN OTHERS THEN
5971: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6050: and site_use_type = 'SHIP_TO';
6051:
6052: BEGIN
6053:
6054: oe_debug_pub.add(' Entering procedure auto_create_internal_req ',2);
6055: x_return_status := FND_API.G_RET_STS_SUCCESS;
6056: --Query Order Header
6057: OPEN ord_hdr_cur(p_ord_header_id);
6058: FETCH ord_hdr_cur into l_created_by,l_org_id;
6056: --Query Order Header
6057: OPEN ord_hdr_cur(p_ord_header_id);
6058: FETCH ord_hdr_cur into l_created_by,l_org_id;
6059: CLOSE ord_hdr_cur;
6060: oe_debug_pub.add('auto_create_internal_req after hdr query ',2);
6061: --Derive Values not available on the Internal Sales Order
6062: --Derive the Preparer_id
6063: BEGIN
6064: OPEN employee_id_cur(l_created_by);
6121: l_req_line_tbl(j).source_organization_id := Cur_Ord_line.ship_from_org_id;
6122: l_req_line_tbl(j).source_subinventory := Cur_Ord_line.subinventory;
6123: l_req_line_tbl(j).org_id := Cur_Ord_line.org_id;
6124: END LOOP;
6125: oe_debug_pub.add(' auto_create_internal_req before PO API call ',2);
6126:
6127: --Call the PO API and pass the internal req header record and line tables to Create the Internal Req
6128: BEGIN /* Call to the Purchasing API*/
6129:
6133: ,x_msg_count => l_msg_count
6134: ,x_msg_data => l_msg_data );
6135: --Check return status of the Purchasing API
6136: IF l_int_req_Ret_sts = FND_API.G_RET_STS_UNEXP_ERROR THEN
6137: oe_debug_pub.add(' PO API call returned unexpected error '||l_msg_data,2);
6138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6139:
6140: ELSIF l_int_req_Ret_sts = FND_API.G_RET_STS_ERROR THEN
6141: oe_debug_pub.add(' PO API call returned error '||l_msg_data,2);
6137: oe_debug_pub.add(' PO API call returned unexpected error '||l_msg_data,2);
6138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6139:
6140: ELSIF l_int_req_Ret_sts = FND_API.G_RET_STS_ERROR THEN
6141: oe_debug_pub.add(' PO API call returned error '||l_msg_data,2);
6142: RAISE FND_API.G_EXC_ERROR;
6143: END IF;
6144:
6145: END;/* Call to the Purchasing API*/
6153: ,orig_sys_document_ref = l_req_header_rec.segment1
6154: ,source_document_type_id = OE_GLOBALS.G_ORDER_SOURCE_INTERNAL -- i.e 10 for internal
6155: ,order_source_id = OE_GLOBALS.G_ORDER_SOURCE_INTERNAL --i.e 10 for internal
6156: Where header_id = p_ord_header_id;
6157: oe_debug_pub.add('auto_create_internal_req after hdr update ',2);
6158: -- Update the lines with the requisition header and requisition line ids, requisition number and line number
6159:
6160: FOR k in 1..l_req_line_tbl.count
6161: LOOP
6170: where oe_order_lines.line_id = l_req_line_tbl(k).source_doc_line_reference;
6171: END;
6172: END IF;
6173: END LOOP;
6174: oe_debug_pub.add('auto_create_internal_req after line update ',2);
6175: END IF;
6176: --Handle Exceptions
6177: EXCEPTION
6178:
6177: EXCEPTION
6178:
6179: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6181: oe_debug_pub.add('auto_create_internal_req: In Unexpected error',2);
6182:
6183: WHEN FND_API.G_EXC_ERROR THEN
6184: x_return_status := FND_API.G_RET_STS_ERROR;
6185: oe_debug_pub.add('auto_create_internal_req: In execution error',2);
6181: oe_debug_pub.add('auto_create_internal_req: In Unexpected error',2);
6182:
6183: WHEN FND_API.G_EXC_ERROR THEN
6184: x_return_status := FND_API.G_RET_STS_ERROR;
6185: oe_debug_pub.add('auto_create_internal_req: In execution error',2);
6186:
6187: --WHEN NO_DATA_FOUND THEN
6188: --x_return_status := FND_API.G_RET_STS_SUCCESS;
6189: --oe_debug_pub.add('auto_create_internal_req: In No DATA Found',2);
6185: oe_debug_pub.add('auto_create_internal_req: In execution error',2);
6186:
6187: --WHEN NO_DATA_FOUND THEN
6188: --x_return_status := FND_API.G_RET_STS_SUCCESS;
6189: --oe_debug_pub.add('auto_create_internal_req: In No DATA Found',2);
6190:
6191: WHEN OTHERS THEN
6192: oe_debug_pub.add('auto_create_internal_req: In Other error',2);
6193: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6188: --x_return_status := FND_API.G_RET_STS_SUCCESS;
6189: --oe_debug_pub.add('auto_create_internal_req: In No DATA Found',2);
6190:
6191: WHEN OTHERS THEN
6192: oe_debug_pub.add('auto_create_internal_req: In Other error',2);
6193: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6194: THEN
6195: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'auto_create_internal_req');
6196: END IF;
6246: --bug #7491829
6247:
6248: BEGIN
6249:
6250: OE_Debug_PUB.Add('Entering OE_Delayed_Requests_Util.Reverse_Limits', 1);
6251: OE_Debug_PUB.Add('BOTTOM LEVEL before QP call', 1);
6252: x_return_status := FND_API.G_RET_STS_SUCCESS;
6253:
6254: -- BUG 2670775 Reverse Limits Begin
6247:
6248: BEGIN
6249:
6250: OE_Debug_PUB.Add('Entering OE_Delayed_Requests_Util.Reverse_Limits', 1);
6251: OE_Debug_PUB.Add('BOTTOM LEVEL before QP call', 1);
6252: x_return_status := FND_API.G_RET_STS_SUCCESS;
6253:
6254: -- BUG 2670775 Reverse Limits Begin
6255: -- If Limits processing is not installed, no need to proceed further
6253:
6254: -- BUG 2670775 Reverse Limits Begin
6255: -- If Limits processing is not installed, no need to proceed further
6256: IF NVL(FND_PROFILE.VALUE('QP_LIMITS_INSTALLED'),'N') = 'N' THEN
6257: oe_debug_pub.add('QP LIMITS NOT installed so no call to QP_UTIL_PUB.Reverse_Limits',1);
6258: RETURN;
6259: END IF;
6260: -- BUG 2670775 Reverse Limits End
6261:
6272:
6273: --bug #7491829
6274: IF p_action_code = 'SPLIT_NEW' THEN
6275: -- Retrieve price_request_code for the current child split line and its parent
6276: oe_debug_pub.add('Action code : ' || p_action_code);
6277: OPEN SPLIT_LINE;
6278: FETCH SPLIT_LINE INTO
6279: l_header_id, l_orig_ordered_qty, l_parent_line_id;
6280: CLOSE SPLIT_LINE;
6277: OPEN SPLIT_LINE;
6278: FETCH SPLIT_LINE INTO
6279: l_header_id, l_orig_ordered_qty, l_parent_line_id;
6280: CLOSE SPLIT_LINE;
6281: oe_Debug_pub.add('l_header_id : ' || l_header_id);
6282: oe_Debug_pub.add('l_orig_ordered_qty : ' || l_orig_ordered_qty);
6283: oe_Debug_pub.add('l_parent_line_id : ' || l_parent_line_id);
6284:
6285: l_ret_price_request_code := 'ONT-' || l_header_id || '-' || p_line_id;
6278: FETCH SPLIT_LINE INTO
6279: l_header_id, l_orig_ordered_qty, l_parent_line_id;
6280: CLOSE SPLIT_LINE;
6281: oe_Debug_pub.add('l_header_id : ' || l_header_id);
6282: oe_Debug_pub.add('l_orig_ordered_qty : ' || l_orig_ordered_qty);
6283: oe_Debug_pub.add('l_parent_line_id : ' || l_parent_line_id);
6284:
6285: l_ret_price_request_code := 'ONT-' || l_header_id || '-' || p_line_id;
6286: l_cons_price_request_code := 'ONT-' || l_header_id || '-' || l_parent_line_id;
6279: l_header_id, l_orig_ordered_qty, l_parent_line_id;
6280: CLOSE SPLIT_LINE;
6281: oe_Debug_pub.add('l_header_id : ' || l_header_id);
6282: oe_Debug_pub.add('l_orig_ordered_qty : ' || l_orig_ordered_qty);
6283: oe_Debug_pub.add('l_parent_line_id : ' || l_parent_line_id);
6284:
6285: l_ret_price_request_code := 'ONT-' || l_header_id || '-' || p_line_id;
6286: l_cons_price_request_code := 'ONT-' || l_header_id || '-' || l_parent_line_id;
6287: oe_Debug_pub.add('l_ret_price_request_code : ' || l_ret_price_request_code);
6283: oe_Debug_pub.add('l_parent_line_id : ' || l_parent_line_id);
6284:
6285: l_ret_price_request_code := 'ONT-' || l_header_id || '-' || p_line_id;
6286: l_cons_price_request_code := 'ONT-' || l_header_id || '-' || l_parent_line_id;
6287: oe_Debug_pub.add('l_ret_price_request_code : ' || l_ret_price_request_code);
6288: oe_Debug_pub.add('l_cons_price_request_code : ' || l_cons_price_request_code);
6289: END IF;
6290: --bug #7491829
6291:
6284:
6285: l_ret_price_request_code := 'ONT-' || l_header_id || '-' || p_line_id;
6286: l_cons_price_request_code := 'ONT-' || l_header_id || '-' || l_parent_line_id;
6287: oe_Debug_pub.add('l_ret_price_request_code : ' || l_ret_price_request_code);
6288: oe_Debug_pub.add('l_cons_price_request_code : ' || l_cons_price_request_code);
6289: END IF;
6290: --bug #7491829
6291:
6292: IF p_action_code = 'RETURN' and l_ret_price_request_code is NULL THEN
6289: END IF;
6290: --bug #7491829
6291:
6292: IF p_action_code = 'RETURN' and l_ret_price_request_code is NULL THEN
6293: OE_Debug_PUB.Add('NO CALL made to QP_UTIL_PUB.Reverse_Limits ', 1);
6294: OE_DEBUG_PUB.Add('return price_request_code is null so block limits call', 1);
6295: RETURN;
6296: END IF;
6297:
6290: --bug #7491829
6291:
6292: IF p_action_code = 'RETURN' and l_ret_price_request_code is NULL THEN
6293: OE_Debug_PUB.Add('NO CALL made to QP_UTIL_PUB.Reverse_Limits ', 1);
6294: OE_DEBUG_PUB.Add('return price_request_code is null so block limits call', 1);
6295: RETURN;
6296: END IF;
6297:
6298: --bug#7491829
6296: END IF;
6297:
6298: --bug#7491829
6299: IF p_action_code = 'SPLIT_NEW' and l_ret_price_request_code is NULL THEN
6300: OE_Debug_PUB.Add('NO CALL made to QP_UTIL_PUB.Reverse_Limits ', 1);
6301: OE_DEBUG_PUB.Add('split line price_request_code is null so block limits call', 1);
6302: END IF;
6303: --bug#7491829
6304:
6297:
6298: --bug#7491829
6299: IF p_action_code = 'SPLIT_NEW' and l_ret_price_request_code is NULL THEN
6300: OE_Debug_PUB.Add('NO CALL made to QP_UTIL_PUB.Reverse_Limits ', 1);
6301: OE_DEBUG_PUB.Add('split line price_request_code is null so block limits call', 1);
6302: END IF;
6303: --bug#7491829
6304:
6305: IF l_cons_price_request_code is NULL THEN
6302: END IF;
6303: --bug#7491829
6304:
6305: IF l_cons_price_request_code is NULL THEN
6306: OE_Debug_PUB.Add('NO CALL made to QP_UTIL_PUB.Reverse_Limits ', 1);
6307: OE_DEBUG_PUB.Add('consuming price_request_code is null so no limit for reversal', 1);
6308: RETURN;
6309: END IF;
6310:
6303: --bug#7491829
6304:
6305: IF l_cons_price_request_code is NULL THEN
6306: OE_Debug_PUB.Add('NO CALL made to QP_UTIL_PUB.Reverse_Limits ', 1);
6307: OE_DEBUG_PUB.Add('consuming price_request_code is null so no limit for reversal', 1);
6308: RETURN;
6309: END IF;
6310:
6311: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: action_code is '||p_action_code, 1);
6307: OE_DEBUG_PUB.Add('consuming price_request_code is null so no limit for reversal', 1);
6308: RETURN;
6309: END IF;
6310:
6311: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: action_code is '||p_action_code, 1);
6312: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: price_request_code is '||l_cons_price_request_code, 1);
6313: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: orig_ordered_qty is '||l_orig_ordered_qty, 1);
6314: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: return request code '||l_ret_price_request_code, 1);
6315: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: return qty '||p_returned_qty, 1);
6308: RETURN;
6309: END IF;
6310:
6311: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: action_code is '||p_action_code, 1);
6312: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: price_request_code is '||l_cons_price_request_code, 1);
6313: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: orig_ordered_qty is '||l_orig_ordered_qty, 1);
6314: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: return request code '||l_ret_price_request_code, 1);
6315: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: return qty '||p_returned_qty, 1);
6316:
6309: END IF;
6310:
6311: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: action_code is '||p_action_code, 1);
6312: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: price_request_code is '||l_cons_price_request_code, 1);
6313: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: orig_ordered_qty is '||l_orig_ordered_qty, 1);
6314: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: return request code '||l_ret_price_request_code, 1);
6315: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: return qty '||p_returned_qty, 1);
6316:
6317: QP_UTIL_PUB.Reverse_Limits (p_action_code => p_action_code,
6310:
6311: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: action_code is '||p_action_code, 1);
6312: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: price_request_code is '||l_cons_price_request_code, 1);
6313: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: orig_ordered_qty is '||l_orig_ordered_qty, 1);
6314: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: return request code '||l_ret_price_request_code, 1);
6315: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: return qty '||p_returned_qty, 1);
6316:
6317: QP_UTIL_PUB.Reverse_Limits (p_action_code => p_action_code,
6318: p_cons_price_request_code => l_cons_price_request_code,
6311: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: action_code is '||p_action_code, 1);
6312: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: price_request_code is '||l_cons_price_request_code, 1);
6313: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: orig_ordered_qty is '||l_orig_ordered_qty, 1);
6314: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: return request code '||l_ret_price_request_code, 1);
6315: OE_Debug_PUB.Add('Call to QP_UTIL_PUB.Reverse_Limits: return qty '||p_returned_qty, 1);
6316:
6317: QP_UTIL_PUB.Reverse_Limits (p_action_code => p_action_code,
6318: p_cons_price_request_code => l_cons_price_request_code,
6319: p_orig_ordered_qty => l_orig_ordered_qty,
6324: x_return_message => l_return_message
6325: );
6326:
6327:
6328: OE_Debug_PUB.Add('QP_UTIL_PUB.Reverse_Limits returns status of '|| l_return_status, 1);
6329: OE_Debug_PUB.Add('QP_UTIL_PUB.Reverse_Limits returns message of '|| l_return_message , 1);
6330: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6331: OE_Debug_PUB.Add('Error returned by QP_UTIL_PUB.Reverse_Limits',1);
6332: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6325: );
6326:
6327:
6328: OE_Debug_PUB.Add('QP_UTIL_PUB.Reverse_Limits returns status of '|| l_return_status, 1);
6329: OE_Debug_PUB.Add('QP_UTIL_PUB.Reverse_Limits returns message of '|| l_return_message , 1);
6330: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6331: OE_Debug_PUB.Add('Error returned by QP_UTIL_PUB.Reverse_Limits',1);
6332: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6333: RAISE FND_API.G_EXC_ERROR;
6327:
6328: OE_Debug_PUB.Add('QP_UTIL_PUB.Reverse_Limits returns status of '|| l_return_status, 1);
6329: OE_Debug_PUB.Add('QP_UTIL_PUB.Reverse_Limits returns message of '|| l_return_message , 1);
6330: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6331: OE_Debug_PUB.Add('Error returned by QP_UTIL_PUB.Reverse_Limits',1);
6332: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6333: RAISE FND_API.G_EXC_ERROR;
6334: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6343: where line_id = p_line_id;
6344: END IF;
6345: --bug 7491829
6346:
6347: OE_Debug_PUB.Add('Exiting OE_Delayed_Requests_Util.Reverse_Limits with status of '|| x_return_status, 1);
6348:
6349: EXCEPTION
6350: WHEN FND_API.G_EXC_ERROR THEN
6351:
6398: l_reciever_code VARCHAR2(1);
6399: l_line_id_tbl Line_ID_List;
6400: Raise_Event_XML BOOLEAN := FALSE;
6401:
6402: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6403:
6404: Begin
6405:
6406:
6407: l_request_rec := OE_Delayed_Requests_PVT.G_Delayed_Requests(p_request_ind);
6408: l_header_id := l_request_rec.entity_id;
6409:
6410: IF l_debug_level > 0 THEN
6411: oe_debug_pub.add( 'retrieving key information from base table') ;
6412: END IF;
6413:
6414: BEGIN
6415: SELECT order_source_id, orig_sys_document_ref, sold_to_org_id, change_sequence
6418: WHERE header_id=l_header_id;
6419: EXCEPTION
6420: WHEN NO_DATA_FOUND THEN
6421: IF l_debug_level > 0 THEN
6422: oe_debug_pub.add( 'EXITING oe_delayed_requests_util.Process_XML_Delayed_Request,header not created' , 1 ) ;
6423: END IF;
6424: RETURN;
6425: END; --exception added for bug16586206
6426:
6441: l_order_number := to_number(l_request_rec.param13);
6442:
6443:
6444: IF l_debug_level > 0 THEN
6445: oe_debug_pub.add( 'l_reciever_code before:' || l_reciever_code ) ;
6446: END IF;
6447:
6448:
6449: IF l_reciever_code = FND_API.G_MISS_CHAR OR
6461: l_reciever_code := 'P';
6462: END IF;
6463:
6464: IF l_debug_level > 0 THEN
6465: oe_debug_pub.add( 'l_reciever_code after:' || l_reciever_code ) ;
6466: END IF;
6467:
6468: IF l_request_rec.param1 IS NULL THEN
6469: -- header level request that should acknowledge all lines
6467:
6468: IF l_request_rec.param1 IS NULL THEN
6469: -- header level request that should acknowledge all lines
6470: IF l_debug_level > 0 THEN
6471: oe_debug_pub.add( 'RAISING HEADER-LEVEL EVENT TO ACK ALL LINES') ;
6472: END IF;
6473:
6474:
6475: IF l_reciever_code IN ('C', 'B') THEN
6475: IF l_reciever_code IN ('C', 'B') THEN
6476: IF l_acknowledgment_type in (OE_ACKNOWLEDGMENT_PUB.G_TRANSACTION_SSO, OE_ACKNOWLEDGMENT_PUB.G_TRANSACTION_CSO) THEN
6477:
6478: IF l_debug_level > 0 THEN
6479: oe_debug_pub.add( 'SSO or CSO request' ) ;
6480: END IF;
6481: OE_Acknowledgment_Pub.Raise_Event_Showso
6482: (
6483: p_header_id => l_header_id,
6495:
6496: ELSIF l_acknowledgment_type = OE_ACKNOWLEDGMENT_PUB.G_TRANSACTION_POI THEN
6497:
6498: IF l_debug_level > 0 THEN
6499: oe_debug_pub.add( '3A4 ACK request' ) ;
6500: END IF;
6501: Oe_Acknowledgment_Pub.Raise_Event_From_Oeoi(
6502: p_transaction_type => l_acknowledgment_type,
6503: p_orig_sys_document_ref => l_orig_sys_document_ref,
6517:
6518: IF l_reciever_code IN ('P', 'B') THEN
6519: -- raise integration event
6520: IF l_debug_level > 0 THEN
6521: oe_debug_pub.add( 'RAISING INTEGRATION EVENT' ) ;
6522: END IF;
6523: OE_Acknowledgment_Pub.Raise_Event_XMLInt (
6524: p_order_source_id => l_order_source_id,
6525: p_partner_document_num => l_orig_sys_document_ref,
6547: into l_itemkey
6548: from dual;
6549:
6550: IF l_debug_level > 0 THEN
6551: oe_debug_pub.add( 'sequence value: ' || l_itemkey) ;
6552: end if;
6553:
6554:
6555: --insert provided header information into table
6553:
6554:
6555: --insert provided header information into table
6556: IF l_debug_level > 0 THEN
6557: oe_debug_pub.add( 'SEEDEDING HEADER_ID FOR ACKNOWLEDGMENT => ' || l_header_id ) ;
6558: END IF;
6559:
6560:
6561: Insert Into OE_HEADER_ACKS (header_id, acknowledgment_type, last_ack_code, request_id, sold_to_org_id, change_sequence)
6562: Values (l_header_id, l_acknowledgment_type, l_flow_status_code, l_itemkey,
6563: l_sold_to_org_id, l_change_sequence);
6564:
6565: IF l_debug_level > 0 THEN
6566: oe_debug_pub.add( 'AFTER HEADER INSERT') ;
6567: END IF;
6568: END IF; -- end of check for customer ack request
6569:
6570:
6579: AND nvl(OE_Delayed_Requests_PVT.G_Delayed_Requests(l_count).param7, 'INT') = nvl(l_acknowledgment_type, 'INT') THEN
6580:
6581: -- add this line to the lines table for insertion
6582: IF l_debug_level > 0 THEN
6583: oe_debug_pub.add( 'LINE_ID FOR ACKNOWLEDGMENT => ' || OE_Delayed_Requests_PVT.G_Delayed_Requests(l_count).entity_id ) ;
6584: END IF;
6585:
6586: If l_line_found = 'N' then
6587: --set flag to show that a line has been found
6608: l_bulk_line_rec.sold_to_org_id(i) := to_number(OE_Delayed_Requests_PVT.G_Delayed_Requests(l_count).param4);
6609: l_bulk_line_rec.change_sequence(i) :=OE_Delayed_Requests_PVT. G_Delayed_Requests(l_count).param5;
6610:
6611: IF l_debug_level > 0 THEN
6612: oe_debug_pub.add( 'after assignment to bulk record') ;
6613: end if;
6614:
6615: END IF;
6616:
6616:
6617: IF l_reciever_code IN ('P', 'B') THEN
6618: -- 5738023
6619: IF l_debug_level > 0 THEN
6620: oe_debug_pub.add( 'Assigning entity id to line table', 3);
6621: END IF;
6622: l_line_id_tbl(i).line_id := OE_Delayed_Requests_PVT.G_Delayed_Requests(l_count).entity_id;
6623: END IF;
6624:
6645: ctr := l_bulk_line_rec.line_id.count;
6646:
6647:
6648: IF l_debug_level > 0 THEN
6649: oe_debug_pub.add( 'LINE COUNT:' || ctr) ;
6650: oe_debug_pub.add( 'BEFORE BULK INSERT OF LINES') ;
6651: END IF;
6652:
6653: FORALL j IN 1..ctr
6646:
6647:
6648: IF l_debug_level > 0 THEN
6649: oe_debug_pub.add( 'LINE COUNT:' || ctr) ;
6650: oe_debug_pub.add( 'BEFORE BULK INSERT OF LINES') ;
6651: END IF;
6652:
6653: FORALL j IN 1..ctr
6654: INSERT INTO OE_LINE_ACKS
6669: ,l_bulk_line_rec.change_sequence(j)
6670: );
6671:
6672: IF l_debug_level > 0 THEN
6673: oe_debug_pub.add( 'AFTER BULK INSERT OF LINES') ;
6674: END IF;
6675:
6676: END IF; --end of l_line_found conditional
6677: END IF;
6679: IF l_reciever_code IN ('C', 'B') THEN
6680: IF l_acknowledgment_type IN (OE_ACKNOWLEDGMENT_PUB.G_TRANSACTION_SSO, OE_ACKNOWLEDGMENT_PUB.G_TRANSACTION_CSO) THEN
6681:
6682: IF l_debug_level > 0 THEN
6683: oe_debug_pub.add( 'SSO or CSO request' ) ;
6684: END IF;
6685:
6686: OE_Acknowledgment_Pub.Raise_Event_Showso
6687: (
6701:
6702: ELSIF l_acknowledgment_type = OE_ACKNOWLEDGMENT_PUB.G_TRANSACTION_POI THEN
6703:
6704: IF l_debug_level > 0 THEN
6705: oe_debug_pub.add( '3A4 ACK request' ) ;
6706: END IF;
6707: Oe_Acknowledgment_Pub.Raise_Event_From_Oeoi(
6708: p_transaction_type => l_acknowledgment_type,
6709: p_orig_sys_document_ref => l_orig_sys_document_ref,
6739: END IF;
6740: END IF;
6741: IF Raise_Event_XML THEN
6742: IF l_debug_level > 0 THEN
6743: oe_debug_pub.add( 'Raising Event with line id '|| l_line_id_tbl(i).line_id, 3);
6744: oe_debug_pub.add( 'Line_ids:' || l_line_ids, 3);
6745: END IF;
6746:
6747: -- raise integration event
6740: END IF;
6741: IF Raise_Event_XML THEN
6742: IF l_debug_level > 0 THEN
6743: oe_debug_pub.add( 'Raising Event with line id '|| l_line_id_tbl(i).line_id, 3);
6744: oe_debug_pub.add( 'Line_ids:' || l_line_ids, 3);
6745: END IF;
6746:
6747: -- raise integration event
6748: OE_Acknowledgment_Pub.Raise_Event_XMLInt (
6762: x_return_status => l_return_status);
6763:
6764:
6765: IF l_debug_level > 0 THEN
6766: oe_debug_pub.add( 'line ids: ' || l_line_ids ) ;
6767: END IF;
6768: l_line_ids := NULL;
6769: Raise_Event_XML := FALSE;
6770:
6776: /* Below code is needed for this new regression bug
6777: ------------------------------------------------ */
6778: ELSE -- l_line_id_tbl.COUNT is 0
6779: IF l_debug_level > 0 THEN
6780: oe_debug_pub.add(' Raising XML Event for Order Header');
6781: END IF;
6782: l_line_ids := NULL;
6783: OE_Acknowledgment_Pub.Raise_Event_XMLInt (
6784: p_order_source_id => l_order_source_id,
6803: END IF;
6804:
6805: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6806: IF l_debug_level > 0 THEN
6807: OE_Debug_PUB.Add('ERROR RETURNED BY RAISE_EVENT FOR: ' || l_acknowledgment_type);
6808: END IF;
6809: END IF;
6810:
6811:
6818:
6819: Exception
6820: When others then
6821: IF l_debug_level > 0 THEN
6822: oe_debug_pub.add( 'IN OTHERS EXCEPTION:' || SQLERRM) ;
6823: END IF;
6824: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6825: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6826: End Process_XML_Delayed_Request;
6898: l_new_ord_quantity NUMBER;
6899: l_cancel_line BOOLEAN := FALSE;
6900: l_New_Schedule_Ship_Date DATE;
6901: --
6902: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6903: --
6904: BEGIN
6905: IF l_debug_level > 0 THEN
6906: oe_debug_pub.ADD('Entering delayed request utility for Update_Requisition_Info',1);
6902: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6903: --
6904: BEGIN
6905: IF l_debug_level > 0 THEN
6906: oe_debug_pub.ADD('Entering delayed request utility for Update_Requisition_Info',1);
6907: oe_debug_pub.ADD(' Header id '||p_header_id,5);
6908: oe_debug_pub.ADD(' Line id '||p_line_id,5);
6909: oe_debug_pub.ADD(' Number of shipment Lines updated '||p_num_records,5);
6910: oe_debug_pub.ADD(' Req Header id '||p_requisition_header_id,5);
6903: --
6904: BEGIN
6905: IF l_debug_level > 0 THEN
6906: oe_debug_pub.ADD('Entering delayed request utility for Update_Requisition_Info',1);
6907: oe_debug_pub.ADD(' Header id '||p_header_id,5);
6908: oe_debug_pub.ADD(' Line id '||p_line_id,5);
6909: oe_debug_pub.ADD(' Number of shipment Lines updated '||p_num_records,5);
6910: oe_debug_pub.ADD(' Req Header id '||p_requisition_header_id,5);
6911: oe_debug_pub.ADD(' Req Line id '||p_requisition_line_id,5);
6904: BEGIN
6905: IF l_debug_level > 0 THEN
6906: oe_debug_pub.ADD('Entering delayed request utility for Update_Requisition_Info',1);
6907: oe_debug_pub.ADD(' Header id '||p_header_id,5);
6908: oe_debug_pub.ADD(' Line id '||p_line_id,5);
6909: oe_debug_pub.ADD(' Number of shipment Lines updated '||p_num_records,5);
6910: oe_debug_pub.ADD(' Req Header id '||p_requisition_header_id,5);
6911: oe_debug_pub.ADD(' Req Line id '||p_requisition_line_id,5);
6912: oe_debug_pub.ADD(' Quantity Change '||p_quantity_change,5);
6905: IF l_debug_level > 0 THEN
6906: oe_debug_pub.ADD('Entering delayed request utility for Update_Requisition_Info',1);
6907: oe_debug_pub.ADD(' Header id '||p_header_id,5);
6908: oe_debug_pub.ADD(' Line id '||p_line_id,5);
6909: oe_debug_pub.ADD(' Number of shipment Lines updated '||p_num_records,5);
6910: oe_debug_pub.ADD(' Req Header id '||p_requisition_header_id,5);
6911: oe_debug_pub.ADD(' Req Line id '||p_requisition_line_id,5);
6912: oe_debug_pub.ADD(' Quantity Change '||p_quantity_change,5);
6913: oe_debug_pub.ADD(' New Schedule Ship Date '||p_new_schedule_ship_date,5);
6906: oe_debug_pub.ADD('Entering delayed request utility for Update_Requisition_Info',1);
6907: oe_debug_pub.ADD(' Header id '||p_header_id,5);
6908: oe_debug_pub.ADD(' Line id '||p_line_id,5);
6909: oe_debug_pub.ADD(' Number of shipment Lines updated '||p_num_records,5);
6910: oe_debug_pub.ADD(' Req Header id '||p_requisition_header_id,5);
6911: oe_debug_pub.ADD(' Req Line id '||p_requisition_line_id,5);
6912: oe_debug_pub.ADD(' Quantity Change '||p_quantity_change,5);
6913: oe_debug_pub.ADD(' New Schedule Ship Date '||p_new_schedule_ship_date,5);
6914: IF p_cancel_order THEN
6907: oe_debug_pub.ADD(' Header id '||p_header_id,5);
6908: oe_debug_pub.ADD(' Line id '||p_line_id,5);
6909: oe_debug_pub.ADD(' Number of shipment Lines updated '||p_num_records,5);
6910: oe_debug_pub.ADD(' Req Header id '||p_requisition_header_id,5);
6911: oe_debug_pub.ADD(' Req Line id '||p_requisition_line_id,5);
6912: oe_debug_pub.ADD(' Quantity Change '||p_quantity_change,5);
6913: oe_debug_pub.ADD(' New Schedule Ship Date '||p_new_schedule_ship_date,5);
6914: IF p_cancel_order THEN
6915: oe_debug_pub.ADD(' Order Level Cancellation',5);
6908: oe_debug_pub.ADD(' Line id '||p_line_id,5);
6909: oe_debug_pub.ADD(' Number of shipment Lines updated '||p_num_records,5);
6910: oe_debug_pub.ADD(' Req Header id '||p_requisition_header_id,5);
6911: oe_debug_pub.ADD(' Req Line id '||p_requisition_line_id,5);
6912: oe_debug_pub.ADD(' Quantity Change '||p_quantity_change,5);
6913: oe_debug_pub.ADD(' New Schedule Ship Date '||p_new_schedule_ship_date,5);
6914: IF p_cancel_order THEN
6915: oe_debug_pub.ADD(' Order Level Cancellation',5);
6916: ELSE
6909: oe_debug_pub.ADD(' Number of shipment Lines updated '||p_num_records,5);
6910: oe_debug_pub.ADD(' Req Header id '||p_requisition_header_id,5);
6911: oe_debug_pub.ADD(' Req Line id '||p_requisition_line_id,5);
6912: oe_debug_pub.ADD(' Quantity Change '||p_quantity_change,5);
6913: oe_debug_pub.ADD(' New Schedule Ship Date '||p_new_schedule_ship_date,5);
6914: IF p_cancel_order THEN
6915: oe_debug_pub.ADD(' Order Level Cancellation',5);
6916: ELSE
6917: oe_debug_pub.ADD(' Not an Order Level Cancellation',5);
6911: oe_debug_pub.ADD(' Req Line id '||p_requisition_line_id,5);
6912: oe_debug_pub.ADD(' Quantity Change '||p_quantity_change,5);
6913: oe_debug_pub.ADD(' New Schedule Ship Date '||p_new_schedule_ship_date,5);
6914: IF p_cancel_order THEN
6915: oe_debug_pub.ADD(' Order Level Cancellation',5);
6916: ELSE
6917: oe_debug_pub.ADD(' Not an Order Level Cancellation',5);
6918: END IF;
6919: END IF;
6913: oe_debug_pub.ADD(' New Schedule Ship Date '||p_new_schedule_ship_date,5);
6914: IF p_cancel_order THEN
6915: oe_debug_pub.ADD(' Order Level Cancellation',5);
6916: ELSE
6917: oe_debug_pub.ADD(' Not an Order Level Cancellation',5);
6918: END IF;
6919: END IF;
6920:
6921: x_return_status := FND_API.G_RET_STS_SUCCESS;
6923:
6924: IF NOT p_Cancel_Order THEN
6925: IF p_line_id IS NULL THEN
6926: IF l_debug_level > 0 THEN
6927: oe_debug_pub.add(' Invalid processing since Line_id is null for non-order header cancellation',1);
6928: END IF;
6929: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6930: END IF;
6931: Begin
6935: where line_id = p_line_id;
6936: End;
6937: IF l_new_ord_quantity = 0 THEN
6938: IF l_debug_level > 0 THEN
6939: oe_debug_pub.ADD(' Line is cancelled, cancel the Requisition Line',5);
6940: END IF;
6941: l_cancel_line := TRUE;
6942: END IF;
6943: END IF; -- Not P_Cancel_Order
6967:
6968: X_return_status := l_return_status;
6969:
6970: IF l_debug_level > 0 THEN
6971: oe_debug_pub.ADD('Exiting delayed request utility for Update_Requisition_Info',1);
6972: END IF;
6973: EXCEPTION
6974: WHEN FND_API.G_EXC_ERROR THEN
6975: x_return_status := FND_API.G_RET_STS_ERROR;
6997: ) IS
6998: --
6999: l_return_status VARCHAR2(30);
7000: --
7001: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7002: --
7003: BEGIN
7004:
7005: if l_debug_level > 0 then
7002: --
7003: BEGIN
7004:
7005: if l_debug_level > 0 then
7006: oe_debug_pub.add(' Entering OE_Delayed_Requests_Util.Process_Pre_Exploded_Kits',1);
7007: oe_debug_pub.add(' Top Model Line_id is : '||p_top_model_line_id,5);
7008: oe_debug_pub.add(' Explosion Date is : '||p_explosion_date,5);
7009: end if;
7010:
7003: BEGIN
7004:
7005: if l_debug_level > 0 then
7006: oe_debug_pub.add(' Entering OE_Delayed_Requests_Util.Process_Pre_Exploded_Kits',1);
7007: oe_debug_pub.add(' Top Model Line_id is : '||p_top_model_line_id,5);
7008: oe_debug_pub.add(' Explosion Date is : '||p_explosion_date,5);
7009: end if;
7010:
7011: OE_Config_Util.Process_Pre_Exploded_Kits
7004:
7005: if l_debug_level > 0 then
7006: oe_debug_pub.add(' Entering OE_Delayed_Requests_Util.Process_Pre_Exploded_Kits',1);
7007: oe_debug_pub.add(' Top Model Line_id is : '||p_top_model_line_id,5);
7008: oe_debug_pub.add(' Explosion Date is : '||p_explosion_date,5);
7009: end if;
7010:
7011: OE_Config_Util.Process_Pre_Exploded_Kits
7012: ( p_top_model_line_id => p_top_model_line_id
7021: RAISE FND_API.G_EXC_ERROR;
7022: END IF;
7023:
7024: if l_debug_level > 0 then
7025: oe_debug_pub.add(' Exiting OE_Delayed_Requests_Util.Process_Pre_Exploded_Kits',1);
7026: end if;
7027:
7028: EXCEPTION
7029: WHEN FND_API.G_EXC_ERROR THEN