[Home] [Help]
73: WHERE arrival_set_id=p_arrival_set;
74: --9187335 End
75: BEGIN
76:
77: oe_debug_pub.add('Entering oe_schedule_grp.update_scheduling_results' || p_x_sch_tbl.count ,1);
78: x_return_status := FND_API.G_RET_STS_SUCCESS;
79:
80: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL > '110509' THEN
81: l_count := p_x_sch_tbl.count;
89:
90: IF l_old_org_id <> p_x_sch_tbl(I).org_id THEN
91: l_old_org_id := p_x_sch_tbl(I).org_id;
92:
93: oe_debug_pub.add('Set the Org ',1);
94: -- dbms_application_info.set_client_info(p_x_sch_tbl(I).org_id);
95:
96: OE_Order_Context_Grp.Set_Created_By_Context
97: (p_header_id => p_x_sch_tbl(I).header_id
118: INTO l_ship_set_id, l_arrival_set_id
119: FROM oe_order_lines_all
120: WHERE line_id=p_x_sch_tbl(I).line_id;
121:
122: oe_debug_pub.add('Ship Set '||l_ship_set_id||' Arrival Set '||l_arrival_set_id,1);
123: EXCEPTION
124: WHEN NO_DATA_FOUND THEN
125: null;
126: oe_debug_pub.add('NO_DATA_FOUND',1);
122: oe_debug_pub.add('Ship Set '||l_ship_set_id||' Arrival Set '||l_arrival_set_id,1);
123: EXCEPTION
124: WHEN NO_DATA_FOUND THEN
125: null;
126: oe_debug_pub.add('NO_DATA_FOUND',1);
127: WHEN OTHERS THEN
128: null;
129: oe_debug_pub.add('Error'||sqlerrm,1);
130: END ;
125: null;
126: oe_debug_pub.add('NO_DATA_FOUND',1);
127: WHEN OTHERS THEN
128: null;
129: oe_debug_pub.add('Error'||sqlerrm,1);
130: END ;
131:
132: IF l_ship_set_id IS NOT NULL THEN
133: -- Add the set to the table
137: l_sets_tbl(MOD(l_ship_set_id,G_BINARY_LIMIT)).set_id := l_ship_set_id;
138: FOR k IN ship_set(l_ship_set_id) LOOP
139: IF l_set_line_tbl.EXISTS (MOD(k.line_id,G_BINARY_LIMIT)) THEN
140: null;
141: oe_debug_pub.ADD('Line is already present in the table');
142: ELSE
143: l_non_plan_line_rec:=p_x_sch_tbl(I);
144: l_non_plan_line_rec.line_id:=k.line_id;
145: l_non_plan_line_rec.inventory_item_id:=k.inventory_item_id;
149:
150: IF g_sch_tbl.count>0 THEN
151: l_add_count:=g_sch_tbl.count+1;
152: END IF ;
153: oe_debug_pub.ADD('adding the line:'||l_non_plan_line_rec.line_id||' count '||l_add_count);
154: g_sch_tbl(l_add_count):=l_non_plan_line_rec;
155: l_set_line_tbl(MOD(l_non_plan_line_rec.line_id,G_BINARY_LIMIT)).line_id := l_non_plan_line_rec.line_id;
156: END IF ; --line is not in the table passed by planning
157: END LOOP ;
163: l_sets_tbl(MOD(l_arrival_set_id,G_BINARY_LIMIT)).set_id := l_arrival_set_id;
164: FOR k IN arrival_set(l_arrival_set_id) LOOP
165: IF l_set_line_tbl.EXISTS (MOD(k.line_id,G_BINARY_LIMIT)) THEN
166: null;
167: oe_debug_pub.ADD('Line is already present in the table');
168: ELSE
169: l_non_plan_line_rec:=p_x_sch_tbl(I);
170: l_non_plan_line_rec.line_id:=k.line_id;
171: l_non_plan_line_rec.inventory_item_id:=k.inventory_item_id;
175:
176: IF g_sch_tbl.count>0 THEN
177: l_add_count:=g_sch_tbl.count+1;
178: END IF ;
179: oe_debug_pub.ADD('adding the line:'||l_non_plan_line_rec.line_id);
180: g_sch_tbl(l_add_count):=l_non_plan_line_rec;
181: l_set_line_tbl(MOD(l_non_plan_line_rec.line_id,G_BINARY_LIMIT)).line_id := l_non_plan_line_rec.line_id;
182: END IF ; --line is not in the table passed by planning
183: END LOOP ;
188: IF I = l_count
189: OR p_x_sch_tbl(I).header_id <> p_x_sch_tbl(I + 1).header_id THEN
190:
191: SAVEPOINT Group_Schedule;
192: oe_debug_pub.ADD('Line to be processed: '||l_add_count||' - '||g_sch_tbl(l_add_count).line_id);
193: Process_order(x_return_status => l_return_status);
194: oe_debug_pub.ADD('After Process Order :'|| l_return_status);
195: /*
196: -- Handling error as per bug 7679398
190:
191: SAVEPOINT Group_Schedule;
192: oe_debug_pub.ADD('Line to be processed: '||l_add_count||' - '||g_sch_tbl(l_add_count).line_id);
193: Process_order(x_return_status => l_return_status);
194: oe_debug_pub.ADD('After Process Order :'|| l_return_status);
195: /*
196: -- Handling error as per bug 7679398
197: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
209: J := g_sch_tbl.FIRST;
210: WHILE J IS NOT NULL
211: LOOP
212:
213: oe_debug_pub.add('J : ' || J);
214: oe_debug_pub.add('J Return Status :' || g_sch_tbl(J).x_return_status,1);
215: --12639544
216: oe_debug_pub.add('Count for p_x_sch_tbl :' || p_x_sch_tbl.count,1);
217: oe_debug_pub.add('Count for g_sch_tbl :' || g_sch_tbl.count);
210: WHILE J IS NOT NULL
211: LOOP
212:
213: oe_debug_pub.add('J : ' || J);
214: oe_debug_pub.add('J Return Status :' || g_sch_tbl(J).x_return_status,1);
215: --12639544
216: oe_debug_pub.add('Count for p_x_sch_tbl :' || p_x_sch_tbl.count,1);
217: oe_debug_pub.add('Count for g_sch_tbl :' || g_sch_tbl.count);
218: FOR I in 1..p_x_sch_tbl.LAST LOOP
212:
213: oe_debug_pub.add('J : ' || J);
214: oe_debug_pub.add('J Return Status :' || g_sch_tbl(J).x_return_status,1);
215: --12639544
216: oe_debug_pub.add('Count for p_x_sch_tbl :' || p_x_sch_tbl.count,1);
217: oe_debug_pub.add('Count for g_sch_tbl :' || g_sch_tbl.count);
218: FOR I in 1..p_x_sch_tbl.LAST LOOP
219: IF p_x_sch_tbl(I).line_id = g_sch_tbl(J).line_id THEN
220: p_x_sch_tbl(I).x_return_status
213: oe_debug_pub.add('J : ' || J);
214: oe_debug_pub.add('J Return Status :' || g_sch_tbl(J).x_return_status,1);
215: --12639544
216: oe_debug_pub.add('Count for p_x_sch_tbl :' || p_x_sch_tbl.count,1);
217: oe_debug_pub.add('Count for g_sch_tbl :' || g_sch_tbl.count);
218: FOR I in 1..p_x_sch_tbl.LAST LOOP
219: IF p_x_sch_tbl(I).line_id = g_sch_tbl(J).line_id THEN
220: p_x_sch_tbl(I).x_return_status
221: := g_sch_tbl(J).x_return_status;
220: p_x_sch_tbl(I).x_return_status
221: := g_sch_tbl(J).x_return_status;
222: IF g_sch_tbl(J).x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
223:
224: oe_debug_pub.add('Setting the status to W to indicate partial processing',1);
225: x_return_status := 'W';
226:
227: END IF;
228:
227: END IF;
228:
229: p_x_sch_tbl(I).x_override_atp_date_code :=
230: g_sch_tbl(J).x_override_atp_date_code;
231: oe_debug_pub.add('J+ Return Status :' || p_x_sch_tbl(I).x_return_status,1);
232: oe_debug_pub.add('J+ line_id :' || p_x_sch_tbl(I).line_id,1);
233: EXIT;
234: END IF;
235: END LOOP;
228:
229: p_x_sch_tbl(I).x_override_atp_date_code :=
230: g_sch_tbl(J).x_override_atp_date_code;
231: oe_debug_pub.add('J+ Return Status :' || p_x_sch_tbl(I).x_return_status,1);
232: oe_debug_pub.add('J+ line_id :' || p_x_sch_tbl(I).line_id,1);
233: EXIT;
234: END IF;
235: END LOOP;
236: J := g_sch_tbl.next(J);
245: END IF; -- Code release.
246:
247: oe_msg_pub.save_messages(p_request_id => p_request_id);
248:
249: oe_debug_pub.add('Exiting oe_schedule_grp.update_scheduling_results' ||
250: x_return_status,1);
251:
252: EXCEPTION
253: WHEN FND_API.G_EXC_ERROR THEN
289: I Number;
290: l_index Number;
291: l_line_tbl OE_Order_Pub.Line_Tbl_Type; --12639544
292: l_old_line_tbl OE_Order_Pub.Line_Tbl_Type; --12639544
293: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
294: BEGIN
295:
296: oe_debug_pub.add('Entering oe_schedule_grp.Process_order',1);
297: x_return_status := FND_API.G_RET_STS_SUCCESS;
292: l_old_line_tbl OE_Order_Pub.Line_Tbl_Type; --12639544
293: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
294: BEGIN
295:
296: oe_debug_pub.add('Entering oe_schedule_grp.Process_order',1);
297: x_return_status := FND_API.G_RET_STS_SUCCESS;
298:
299: -- This variable is to track that the Item is being Substituted by Planning Loop Back and not being changed manully by user.
300: -- Initializing to 'N' for current set of Lines. Will set it to Y if any item substitutions are happening.
443: IF l_line_rec.ato_line_id is not null
444: AND l_line_rec.ato_line_id <> l_line_rec.line_id
445: AND NOT l_line_rec.item_type_code = OE_GLOBALS.G_ITEM_CONFIG THEN
446:
447: oe_debug_pub.add('E4',2);
448: g_sch_tbl(I).x_return_status := FND_API.G_RET_STS_ERROR;
449: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_LOOP_NOT_SUP');
450: OE_MSG_PUB.ADD;
451: END IF;
453: /* Added for ER 6110708 to support Item Substitutions from Planning Loop Back */
454: IF g_sch_tbl(I).inventory_item_id IS NOT NULL
455: AND g_sch_tbl(I).inventory_item_id <> g_sch_tbl(I).orig_inventory_item_id THEN
456:
457: oe_debug_pub.add('Doing validations for Item Substitutions for Line Id : ' || g_sch_tbl(I).line_id, 5);
458: oe_debug_pub.add(' Original Item on Line : ' || g_sch_tbl(I).orig_inventory_item_id, 5);
459: oe_debug_pub.add(' Substitute Item : ' || g_sch_tbl(I).inventory_item_id, 5);
460: oe_debug_pub.add(' Current Item on Line : ' || l_line_rec.inventory_item_id, 5);
461:
454: IF g_sch_tbl(I).inventory_item_id IS NOT NULL
455: AND g_sch_tbl(I).inventory_item_id <> g_sch_tbl(I).orig_inventory_item_id THEN
456:
457: oe_debug_pub.add('Doing validations for Item Substitutions for Line Id : ' || g_sch_tbl(I).line_id, 5);
458: oe_debug_pub.add(' Original Item on Line : ' || g_sch_tbl(I).orig_inventory_item_id, 5);
459: oe_debug_pub.add(' Substitute Item : ' || g_sch_tbl(I).inventory_item_id, 5);
460: oe_debug_pub.add(' Current Item on Line : ' || l_line_rec.inventory_item_id, 5);
461:
462: -- If Item on the Sales Order Line has changed after running the plan and
455: AND g_sch_tbl(I).inventory_item_id <> g_sch_tbl(I).orig_inventory_item_id THEN
456:
457: oe_debug_pub.add('Doing validations for Item Substitutions for Line Id : ' || g_sch_tbl(I).line_id, 5);
458: oe_debug_pub.add(' Original Item on Line : ' || g_sch_tbl(I).orig_inventory_item_id, 5);
459: oe_debug_pub.add(' Substitute Item : ' || g_sch_tbl(I).inventory_item_id, 5);
460: oe_debug_pub.add(' Current Item on Line : ' || l_line_rec.inventory_item_id, 5);
461:
462: -- If Item on the Sales Order Line has changed after running the plan and
463: -- before Planning releases the recommendations, then we should not accept the Item
456:
457: oe_debug_pub.add('Doing validations for Item Substitutions for Line Id : ' || g_sch_tbl(I).line_id, 5);
458: oe_debug_pub.add(' Original Item on Line : ' || g_sch_tbl(I).orig_inventory_item_id, 5);
459: oe_debug_pub.add(' Substitute Item : ' || g_sch_tbl(I).inventory_item_id, 5);
460: oe_debug_pub.add(' Current Item on Line : ' || l_line_rec.inventory_item_id, 5);
461:
462: -- If Item on the Sales Order Line has changed after running the plan and
463: -- before Planning releases the recommendations, then we should not accept the Item
464: -- Substitution. This means that planning has recommended item substitution based on old data.
488:
489: --end bug 16434168/16480604
490:
491: -- Do not allow Item Substitutions in below cases.
492: oe_debug_pub.add(' Item Type : ' || l_line_rec.item_type_code, 5);
493: oe_debug_pub.add(' Line Set Id : ' || l_line_rec.line_set_id, 5);
494: oe_debug_pub.add(' Split From Line Id : ' || l_line_rec.split_from_line_id, 5);
495: oe_debug_pub.add(' Source Document Type Id : ' || nvl(l_line_rec.source_document_type_id, -99), 5);
496: oe_debug_pub.add(' Source Type : ' || l_line_rec.source_type_code, 5);
489: --end bug 16434168/16480604
490:
491: -- Do not allow Item Substitutions in below cases.
492: oe_debug_pub.add(' Item Type : ' || l_line_rec.item_type_code, 5);
493: oe_debug_pub.add(' Line Set Id : ' || l_line_rec.line_set_id, 5);
494: oe_debug_pub.add(' Split From Line Id : ' || l_line_rec.split_from_line_id, 5);
495: oe_debug_pub.add(' Source Document Type Id : ' || nvl(l_line_rec.source_document_type_id, -99), 5);
496: oe_debug_pub.add(' Source Type : ' || l_line_rec.source_type_code, 5);
497: oe_debug_pub.add(' Booked Flag : ' || nvl(l_line_rec.booked_flag, 'N'), 5);
490:
491: -- Do not allow Item Substitutions in below cases.
492: oe_debug_pub.add(' Item Type : ' || l_line_rec.item_type_code, 5);
493: oe_debug_pub.add(' Line Set Id : ' || l_line_rec.line_set_id, 5);
494: oe_debug_pub.add(' Split From Line Id : ' || l_line_rec.split_from_line_id, 5);
495: oe_debug_pub.add(' Source Document Type Id : ' || nvl(l_line_rec.source_document_type_id, -99), 5);
496: oe_debug_pub.add(' Source Type : ' || l_line_rec.source_type_code, 5);
497: oe_debug_pub.add(' Booked Flag : ' || nvl(l_line_rec.booked_flag, 'N'), 5);
498: IF l_opm_enabled THEN
491: -- Do not allow Item Substitutions in below cases.
492: oe_debug_pub.add(' Item Type : ' || l_line_rec.item_type_code, 5);
493: oe_debug_pub.add(' Line Set Id : ' || l_line_rec.line_set_id, 5);
494: oe_debug_pub.add(' Split From Line Id : ' || l_line_rec.split_from_line_id, 5);
495: oe_debug_pub.add(' Source Document Type Id : ' || nvl(l_line_rec.source_document_type_id, -99), 5);
496: oe_debug_pub.add(' Source Type : ' || l_line_rec.source_type_code, 5);
497: oe_debug_pub.add(' Booked Flag : ' || nvl(l_line_rec.booked_flag, 'N'), 5);
498: IF l_opm_enabled THEN
499: oe_debug_pub.add(' OPM Enabled Org : Yes', 5);
492: oe_debug_pub.add(' Item Type : ' || l_line_rec.item_type_code, 5);
493: oe_debug_pub.add(' Line Set Id : ' || l_line_rec.line_set_id, 5);
494: oe_debug_pub.add(' Split From Line Id : ' || l_line_rec.split_from_line_id, 5);
495: oe_debug_pub.add(' Source Document Type Id : ' || nvl(l_line_rec.source_document_type_id, -99), 5);
496: oe_debug_pub.add(' Source Type : ' || l_line_rec.source_type_code, 5);
497: oe_debug_pub.add(' Booked Flag : ' || nvl(l_line_rec.booked_flag, 'N'), 5);
498: IF l_opm_enabled THEN
499: oe_debug_pub.add(' OPM Enabled Org : Yes', 5);
500: ELSE
493: oe_debug_pub.add(' Line Set Id : ' || l_line_rec.line_set_id, 5);
494: oe_debug_pub.add(' Split From Line Id : ' || l_line_rec.split_from_line_id, 5);
495: oe_debug_pub.add(' Source Document Type Id : ' || nvl(l_line_rec.source_document_type_id, -99), 5);
496: oe_debug_pub.add(' Source Type : ' || l_line_rec.source_type_code, 5);
497: oe_debug_pub.add(' Booked Flag : ' || nvl(l_line_rec.booked_flag, 'N'), 5);
498: IF l_opm_enabled THEN
499: oe_debug_pub.add(' OPM Enabled Org : Yes', 5);
500: ELSE
501: oe_debug_pub.add(' OPM Enabled Org : No', 5);
495: oe_debug_pub.add(' Source Document Type Id : ' || nvl(l_line_rec.source_document_type_id, -99), 5);
496: oe_debug_pub.add(' Source Type : ' || l_line_rec.source_type_code, 5);
497: oe_debug_pub.add(' Booked Flag : ' || nvl(l_line_rec.booked_flag, 'N'), 5);
498: IF l_opm_enabled THEN
499: oe_debug_pub.add(' OPM Enabled Org : Yes', 5);
500: ELSE
501: oe_debug_pub.add(' OPM Enabled Org : No', 5);
502: END IF;
503: oe_debug_pub.add(' Reserved Qty : ' || nvl(l_line_rec.reserved_quantity, 0), 5);
497: oe_debug_pub.add(' Booked Flag : ' || nvl(l_line_rec.booked_flag, 'N'), 5);
498: IF l_opm_enabled THEN
499: oe_debug_pub.add(' OPM Enabled Org : Yes', 5);
500: ELSE
501: oe_debug_pub.add(' OPM Enabled Org : No', 5);
502: END IF;
503: oe_debug_pub.add(' Reserved Qty : ' || nvl(l_line_rec.reserved_quantity, 0), 5);
504:
505: IF ( l_line_rec.item_type_code <> OE_GLOBALS.G_ITEM_STANDARD OR -- Not a Standard Item
499: oe_debug_pub.add(' OPM Enabled Org : Yes', 5);
500: ELSE
501: oe_debug_pub.add(' OPM Enabled Org : No', 5);
502: END IF;
503: oe_debug_pub.add(' Reserved Qty : ' || nvl(l_line_rec.reserved_quantity, 0), 5);
504:
505: IF ( l_line_rec.item_type_code <> OE_GLOBALS.G_ITEM_STANDARD OR -- Not a Standard Item
506: l_line_rec.line_set_id IS NOT NULL OR -- Line is Split
507: l_line_rec.split_from_line_id IS NOT NULL OR -- Split Line
533: END IF;
534: END;
535: END IF;
536:
537: oe_debug_pub.add('Finished with validations for Item Substitutions', 5);
538:
539: END IF;
540: /* End of ER 6110708 */
541:
540: /* End of ER 6110708 */
541:
542: -- Special Validation.
543:
544: oe_debug_pub.add('After Special Validation ',2);
545: IF g_sch_tbl(I).x_return_status = FND_API.G_RET_STS_SUCCESS THEN
546:
547: IF nvl(l_line_rec.override_atp_date_code,'N') = 'Y' THEN
548: g_sch_tbl(I).x_override_atp_date_code := 'Y';
553: OE_GLOBALS.G_ITEM_CLASS))
554: OR l_line_rec.item_type_code = OE_GLOBALS.G_ITEM_CONFIG
555:
556: THEN
557: oe_debug_pub.add('ATO Model',2);
558:
559: OE_Config_Util.Query_ATO_Options
560: (p_ato_line_id => l_line_rec.ato_line_id,
561: x_line_tbl => l_local_line_tbl);
587: IF g_sch_tbl(I).schedule_ship_date is NOT NULL THEN
588: /*
589: IF trunc(g_sch_tbl(I).schedule_ship_date) < trunc(l_local_line_tbl(J).request_date) THEN
590:
591: oe_debug_pub.add('Schedule Ship Date connot be less than request_date');
592: g_sch_tbl(I).x_return_status := FND_API.G_RET_STS_ERROR;
593: l_local_line_tbl(J).operation := OE_GLOBALS.G_OPR_NONE;
594: l_local_line_tbl(J).return_status := FND_API.G_RET_STS_ERROR;
595: FND_MESSAGE.SET_NAME('ONT', 'ONT_SCH_INVALID_DATE');
604: IF g_sch_tbl(I).schedule_arrival_date IS NOT NULL THEN
605:
606: /* IF trunc(g_sch_tbl(I).schedule_arrival_date) < trunc(l_local_line_tbl(J).request_date) THEN
607:
608: oe_debug_pub.add('Schedule Ship Date connot be less than request_date');
609: g_sch_tbl(I).x_return_status := FND_API.G_RET_STS_ERROR;
610: l_local_line_tbl(J).operation := OE_GLOBALS.G_OPR_NONE;
611: l_local_line_tbl(J).return_status := FND_API.G_RET_STS_ERROR;
612: FND_MESSAGE.SET_NAME('ONT', 'ONT_SCH_INVALID_DATE');
631: AND nvl(l_local_line_tbl(J).Shipping_Method_Code,'-X') <> g_sch_tbl(I).Shipping_Method_Code THEN
632: l_ship_method_is_changed := TRUE;
633: l_local_line_tbl(J).Shipping_Method_Code := g_sch_tbl(I).Shipping_Method_Code;
634: END IF;
635: oe_debug_pub.add('Local shipping Method ' || l_local_line_tbl(J).Shipping_Method_Code,2);
636:
637: IF nvl(g_sch_tbl(I).Firm_Demand_Flag,'N') = 'Y'
638: AND nvl(l_local_line_tbl(J).Firm_demand_Flag,'N') = 'N' THEN
639: l_local_line_tbl(J).Firm_Demand_Flag := 'Y';
650: l_ord_qty_is_changed := TRUE;
651: l_local_line_tbl(J).Ordered_Quantity := g_sch_tbl(I).Ordered_Quantity;
652: END IF;
653:
654: oe_debug_pub.add('Before assigning' || l_local_line_tbl(J).line_id,2);
655: g_line_tbl(l_count) := l_local_line_tbl(J);
656: g_line_tbl(l_count).operation := OE_GLOBALS.G_OPR_UPDATE;
657: g_line_tbl(l_count).return_status := Null;
658: l_count := l_count + 1;
709:
710: IF g_sch_tbl(I).schedule_ship_date is NOT NULL THEN
711: /* IF trunc(g_sch_tbl(I).schedule_ship_date) < trunc(l_line_rec.request_date) THEN
712:
713: oe_debug_pub.add('Schedule Ship Date connot be less than request_date');
714: g_sch_tbl(I).x_return_status := FND_API.G_RET_STS_ERROR;
715: l_line_rec.operation := OE_GLOBALS.G_OPR_NONE;
716: l_line_rec.return_status := FND_API.G_RET_STS_ERROR;
717: FND_MESSAGE.SET_NAME('ONT', 'ONT_SCH_INVALID_DATE');
722: END IF;
723: IF g_sch_tbl(I).schedule_arrival_date is NOT NULL THEN
724: /* IF trunc(g_sch_tbl(I).schedule_arrival_date) < trunc(l_line_rec.request_date) THEN
725:
726: oe_debug_pub.add('Schedule Ship Date connot be less than request_date');
727: g_sch_tbl(I).x_return_status := FND_API.G_RET_STS_ERROR;
728: l_line_rec.operation := OE_GLOBALS.G_OPR_NONE;
729: l_line_rec.return_status := FND_API.G_RET_STS_ERROR;
730: FND_MESSAGE.SET_NAME('ONT', 'ONT_SCH_INVALID_DATE');
748: AND g_sch_tbl(I).Shipping_Method_Code <> nvl(l_line_rec.Shipping_Method_Code,'-X') THEN
749: l_ship_method_is_changed := TRUE;
750: l_line_rec.Shipping_Method_Code := g_sch_tbl(I).Shipping_Method_Code;
751: END IF;
752: oe_debug_pub.add('Shipping Method on line rec ' || l_line_rec.Shipping_Method_Code,2);
753:
754: IF nvl(g_sch_tbl(I).Firm_Demand_Flag,'N') = 'Y'
755: AND nvl(l_line_rec.Firm_demand_Flag,'N') = 'N' THEN
756: l_line_rec.Firm_Demand_Flag := 'Y';
789:
790:
791: FOR J IN 1..g_line_tbl.count LOOP
792:
793: oe_debug_pub.add('Operation ' || g_line_tbl(J).operation ,2);
794:
795: IF g_line_tbl(J).return_status <> FND_API.G_RET_STS_SUCCESS THEN
796:
797: oe_debug_pub.add('None ' || g_line_tbl(J).return_status,2);
793: oe_debug_pub.add('Operation ' || g_line_tbl(J).operation ,2);
794:
795: IF g_line_tbl(J).return_status <> FND_API.G_RET_STS_SUCCESS THEN
796:
797: oe_debug_pub.add('None ' || g_line_tbl(J).return_status,2);
798: g_line_tbl(J).operation := OE_GLOBALS.G_OPR_NONE;
799:
800: ELSE
801:
835:
836: END IF;
837:
838: IF l_debug_level > 0 THEN
839: oe_debug_pub.add('Operation1 ' || g_line_tbl(J).operation ,2);
840: oe_debug_pub.add('Line_id ' || g_line_tbl(J).line_id,2);
841: oe_debug_pub.add('Schedule_ship_date ' || g_line_tbl(J).Schedule_ship_date,2);
842: oe_debug_pub.add('Schedule_arrival_date ' || g_line_tbl(J).Schedule_arrival_date,2);
843: oe_debug_pub.add('Schedule_status_code ' || g_line_tbl(J).Schedule_status_code,2);
836: END IF;
837:
838: IF l_debug_level > 0 THEN
839: oe_debug_pub.add('Operation1 ' || g_line_tbl(J).operation ,2);
840: oe_debug_pub.add('Line_id ' || g_line_tbl(J).line_id,2);
841: oe_debug_pub.add('Schedule_ship_date ' || g_line_tbl(J).Schedule_ship_date,2);
842: oe_debug_pub.add('Schedule_arrival_date ' || g_line_tbl(J).Schedule_arrival_date,2);
843: oe_debug_pub.add('Schedule_status_code ' || g_line_tbl(J).Schedule_status_code,2);
844: oe_debug_pub.add('Ship_from_org ' || g_line_tbl(J).Ship_from_org_id,2);
837:
838: IF l_debug_level > 0 THEN
839: oe_debug_pub.add('Operation1 ' || g_line_tbl(J).operation ,2);
840: oe_debug_pub.add('Line_id ' || g_line_tbl(J).line_id,2);
841: oe_debug_pub.add('Schedule_ship_date ' || g_line_tbl(J).Schedule_ship_date,2);
842: oe_debug_pub.add('Schedule_arrival_date ' || g_line_tbl(J).Schedule_arrival_date,2);
843: oe_debug_pub.add('Schedule_status_code ' || g_line_tbl(J).Schedule_status_code,2);
844: oe_debug_pub.add('Ship_from_org ' || g_line_tbl(J).Ship_from_org_id,2);
845: Oe_debug_pub.add('Shipping Method ' || g_line_tbl(J).shipping_method_code,2);
838: IF l_debug_level > 0 THEN
839: oe_debug_pub.add('Operation1 ' || g_line_tbl(J).operation ,2);
840: oe_debug_pub.add('Line_id ' || g_line_tbl(J).line_id,2);
841: oe_debug_pub.add('Schedule_ship_date ' || g_line_tbl(J).Schedule_ship_date,2);
842: oe_debug_pub.add('Schedule_arrival_date ' || g_line_tbl(J).Schedule_arrival_date,2);
843: oe_debug_pub.add('Schedule_status_code ' || g_line_tbl(J).Schedule_status_code,2);
844: oe_debug_pub.add('Ship_from_org ' || g_line_tbl(J).Ship_from_org_id,2);
845: Oe_debug_pub.add('Shipping Method ' || g_line_tbl(J).shipping_method_code,2);
846: oe_debug_pub.add('Ordered Quantity ' || g_line_tbl(J).Ordered_Quantity,2);
839: oe_debug_pub.add('Operation1 ' || g_line_tbl(J).operation ,2);
840: oe_debug_pub.add('Line_id ' || g_line_tbl(J).line_id,2);
841: oe_debug_pub.add('Schedule_ship_date ' || g_line_tbl(J).Schedule_ship_date,2);
842: oe_debug_pub.add('Schedule_arrival_date ' || g_line_tbl(J).Schedule_arrival_date,2);
843: oe_debug_pub.add('Schedule_status_code ' || g_line_tbl(J).Schedule_status_code,2);
844: oe_debug_pub.add('Ship_from_org ' || g_line_tbl(J).Ship_from_org_id,2);
845: Oe_debug_pub.add('Shipping Method ' || g_line_tbl(J).shipping_method_code,2);
846: oe_debug_pub.add('Ordered Quantity ' || g_line_tbl(J).Ordered_Quantity,2);
847: END IF;
840: oe_debug_pub.add('Line_id ' || g_line_tbl(J).line_id,2);
841: oe_debug_pub.add('Schedule_ship_date ' || g_line_tbl(J).Schedule_ship_date,2);
842: oe_debug_pub.add('Schedule_arrival_date ' || g_line_tbl(J).Schedule_arrival_date,2);
843: oe_debug_pub.add('Schedule_status_code ' || g_line_tbl(J).Schedule_status_code,2);
844: oe_debug_pub.add('Ship_from_org ' || g_line_tbl(J).Ship_from_org_id,2);
845: Oe_debug_pub.add('Shipping Method ' || g_line_tbl(J).shipping_method_code,2);
846: oe_debug_pub.add('Ordered Quantity ' || g_line_tbl(J).Ordered_Quantity,2);
847: END IF;
848:
841: oe_debug_pub.add('Schedule_ship_date ' || g_line_tbl(J).Schedule_ship_date,2);
842: oe_debug_pub.add('Schedule_arrival_date ' || g_line_tbl(J).Schedule_arrival_date,2);
843: oe_debug_pub.add('Schedule_status_code ' || g_line_tbl(J).Schedule_status_code,2);
844: oe_debug_pub.add('Ship_from_org ' || g_line_tbl(J).Ship_from_org_id,2);
845: Oe_debug_pub.add('Shipping Method ' || g_line_tbl(J).shipping_method_code,2);
846: oe_debug_pub.add('Ordered Quantity ' || g_line_tbl(J).Ordered_Quantity,2);
847: END IF;
848:
849: END LOOP;
842: oe_debug_pub.add('Schedule_arrival_date ' || g_line_tbl(J).Schedule_arrival_date,2);
843: oe_debug_pub.add('Schedule_status_code ' || g_line_tbl(J).Schedule_status_code,2);
844: oe_debug_pub.add('Ship_from_org ' || g_line_tbl(J).Ship_from_org_id,2);
845: Oe_debug_pub.add('Shipping Method ' || g_line_tbl(J).shipping_method_code,2);
846: oe_debug_pub.add('Ordered Quantity ' || g_line_tbl(J).Ordered_Quantity,2);
847: END IF;
848:
849: END LOOP;
850:
859: -- changes are from Planning user
860: --
861: OE_Schedule_GRP.G_ISO_Planning_Update := TRUE;
862: IF l_debug_level > 0 THEN
863: oe_debug_pub.add(' Setting global OE_Schedule_GRP.G_ISO_Planning_Update to TRUE',5);
864: END IF;
865: --
866:
867: IF l_ship_from_is_changed
887: l_control_rec.clear_api_requests := FALSE;
888:
889: FOR J IN 1..g_line_tbl.count LOOP
890:
891: oe_debug_pub.add('OP ' || g_line_tbl(J).operation ,2);
892: oe_debug_pub.add('OP ' || g_line_tbl(J).line_id ,2);
893: oe_debug_pub.add('Ol OP ' || g_old_line_tbl(J).operation ,2);
894: oe_debug_pub.add('Ol OP ' || g_old_line_tbl(J).line_id ,2);
895:
888:
889: FOR J IN 1..g_line_tbl.count LOOP
890:
891: oe_debug_pub.add('OP ' || g_line_tbl(J).operation ,2);
892: oe_debug_pub.add('OP ' || g_line_tbl(J).line_id ,2);
893: oe_debug_pub.add('Ol OP ' || g_old_line_tbl(J).operation ,2);
894: oe_debug_pub.add('Ol OP ' || g_old_line_tbl(J).line_id ,2);
895:
896: END LOOP;
889: FOR J IN 1..g_line_tbl.count LOOP
890:
891: oe_debug_pub.add('OP ' || g_line_tbl(J).operation ,2);
892: oe_debug_pub.add('OP ' || g_line_tbl(J).line_id ,2);
893: oe_debug_pub.add('Ol OP ' || g_old_line_tbl(J).operation ,2);
894: oe_debug_pub.add('Ol OP ' || g_old_line_tbl(J).line_id ,2);
895:
896: END LOOP;
897:
890:
891: oe_debug_pub.add('OP ' || g_line_tbl(J).operation ,2);
892: oe_debug_pub.add('OP ' || g_line_tbl(J).line_id ,2);
893: oe_debug_pub.add('Ol OP ' || g_old_line_tbl(J).operation ,2);
894: oe_debug_pub.add('Ol OP ' || g_old_line_tbl(J).line_id ,2);
895:
896: END LOOP;
897:
898: OE_Schedule_Util.Call_Process_Order
929: WHEN OTHERS THEN
930: x_return_status := FND_API.G_RET_STS_ERROR;
931: END;
932: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
933: oe_debug_pub.add('OEXGSCHB : Setting the x_return_status for failed lines', 5); -- Added for ER 6110708
934: oe_debug_pub.add('OEXGSCHB : Failed Line Id : ' || g_line_tbl(J).line_id, 5); -- Added for ER 6110708
935: g_sch_tbl(J).x_return_status := x_return_status;
936: END IF;
937: END LOOP;
930: x_return_status := FND_API.G_RET_STS_ERROR;
931: END;
932: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
933: oe_debug_pub.add('OEXGSCHB : Setting the x_return_status for failed lines', 5); -- Added for ER 6110708
934: oe_debug_pub.add('OEXGSCHB : Failed Line Id : ' || g_line_tbl(J).line_id, 5); -- Added for ER 6110708
935: g_sch_tbl(J).x_return_status := x_return_status;
936: END IF;
937: END LOOP;
938: END IF;
960: l_index := find_index(g_line_tbl(I).line_id);
961: g_sch_tbl(l_index).x_return_status := x_return_status;
962: END LOOP;
963:
964: oe_debug_pub.add('Before clearing all requests',2);
965:
966: oe_delayed_requests_pvt.Clear_Request(x_return_status=> l_return_status);
967: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
968: IF OE_Config_Pvt.OE_MODIFY_INC_ITEMS_TBL.COUNT > 0 THEN
976: -- Ressting the global to FALSE
977: --
978: OE_Schedule_GRP.G_ISO_Planning_Update := FALSE;
979: IF l_debug_level > 0 THEN
980: oe_debug_pub.add(' Setting global OE_Schedule_GRP.G_ISO_Planning_Update to FALSE',5);
981: END IF;
982: --
983:
984:
1004:
1005: g_line_tbl.delete;
1006: g_old_line_tbl.delete;
1007:
1008: oe_debug_pub.add('Exiting oe_schedule_grp.Process_order '||x_return_status,1);
1009: EXCEPTION
1010: WHEN FND_API.G_EXC_ERROR THEN
1011:
1012: OE_Schedule_GRP.G_ISO_Planning_Update := FALSE;
1062: ,p_entity_id => g_sch_tbl(I).line_id
1063: ,p_header_id => g_sch_tbl(I).header_id
1064: ,p_line_id => g_sch_tbl(I).line_id);
1065:
1066: oe_debug_pub.add('ONT_SCH_LOOP_DATE_NULL',1);
1067: g_sch_tbl(I).x_return_status := FND_API.G_RET_STS_ERROR;
1068: FND_MESSAGE.SET_NAME('ONT', 'ONT_SCH_LOOP_DATE_NULL');
1069: OE_MSG_PUB.ADD;
1070:
1101: l_index NUMBER;
1102:
1103: BEGIN
1104:
1105: oe_debug_pub.add('Entering Validate_Lines',1);
1106:
1107: FOR I IN 1..G_LINE_TBL.COUNT LOOP
1108:
1109: oe_debug_pub.add('Validate_Lines' || g_line_tbl(I).line_id,1);
1105: oe_debug_pub.add('Entering Validate_Lines',1);
1106:
1107: FOR I IN 1..G_LINE_TBL.COUNT LOOP
1108:
1109: oe_debug_pub.add('Validate_Lines' || g_line_tbl(I).line_id,1);
1110:
1111: x_return_status := FND_API.G_RET_STS_SUCCESS;
1112: OE_MSG_PUB.set_msg_context
1113: ( p_entity_code => 'LINE'
1132:
1133: /*
1134: IF g_line_tbl(I).schedule_status_code is null THEN
1135:
1136: oe_debug_pub.add('E1',2);
1137: g_line_tbl(I).operation := OE_GLOBALS.G_OPR_NONE;
1138: FND_MESSAGE.SET_NAME('ONT', 'ONT_SCH_LOOP_CANT_UPDATE');
1139: OE_MSG_PUB.ADD;
1140: x_return_status := FND_API.G_RET_STS_ERROR;
1141: END IF;
1142: */
1143: IF g_line_tbl(I).cancelled_flag = 'Y' THEN
1144:
1145: oe_debug_pub.add('E1-1',2);
1146: g_line_tbl(I).operation := OE_GLOBALS.G_OPR_NONE;
1147: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_LINE_FULLY_CANCELLED');
1148: OE_MSG_PUB.ADD;
1149: x_return_status := FND_API.G_RET_STS_ERROR;
1150: END IF;
1151:
1152: IF g_line_tbl(I).shipped_quantity is not null THEN
1153:
1154: oe_debug_pub.add('E1-2',2);
1155: g_line_tbl(I).operation := OE_GLOBALS.G_OPR_NONE;
1156: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_LINE_SHIPPED');
1157: OE_MSG_PUB.ADD;
1158: x_return_status := FND_API.G_RET_STS_ERROR;
1157: OE_MSG_PUB.ADD;
1158: x_return_status := FND_API.G_RET_STS_ERROR;
1159: END IF;
1160:
1161: oe_debug_pub.add('Firm_demand_flag :' || g_line_tbl(I).firm_demand_flag,1);
1162:
1163: -- Commenting this code as ASCP is doing this already.
1164: /* IF NVL(g_old_line_tbl(I).firm_demand_flag,'N') = 'Y'
1165: AND not oe_globals.equal(g_line_tbl(I).ship_from_org_id,
1164: /* IF NVL(g_old_line_tbl(I).firm_demand_flag,'N') = 'Y'
1165: AND not oe_globals.equal(g_line_tbl(I).ship_from_org_id,
1166: g_old_line_tbl(I).ship_from_org_id) THEN
1167:
1168: oe_debug_pub.add('E2',2);
1169: g_line_tbl(I).operation := OE_GLOBALS.G_OPR_NONE;
1170: FND_MESSAGE.SET_NAME('ONT', 'ONT_SCH_LOOP_FRMD');
1171: OE_MSG_PUB.ADD;
1172: x_return_status := FND_API.G_RET_STS_ERROR;
1173: END IF; */
1174:
1175: IF g_line_tbl(I).item_type_code = OE_GLOBALS.G_ITEM_SERVICE THEN
1176:
1177: oe_debug_pub.add('E3',2);
1178: g_line_tbl(I).operation := OE_GLOBALS.G_OPR_NONE;
1179: FND_MESSAGE.SET_NAME('ONT', 'ONT_SCH_LOOP_SRV');
1180: OE_MSG_PUB.ADD;
1181: x_return_status := FND_API.G_RET_STS_ERROR;
1184: IF g_line_tbl(I).ato_line_id IS NOT NULL THEN
1185: /* IF NOT (g_line_tbl(I).ato_line_id = g_line_tbl(I).line_id OR
1186: g_line_tbl(I).item_type_code = OE_GLOBALS.G_ITEM_CONFIG) THEN
1187:
1188: oe_debug_pub.add('E4',2);
1189: g_line_tbl(I).operation := OE_GLOBALS.G_OPR_NONE;
1190: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_LOOP_NOT_SUP');
1191: OE_MSG_PUB.ADD;
1192: x_return_status := FND_API.G_RET_STS_ERROR;
1192: x_return_status := FND_API.G_RET_STS_ERROR;
1193: END IF;
1194: */
1195: IF nvl(g_line_tbl(I).model_remnant_flag,'N') = 'Y' THEN
1196: oe_debug_pub.add('E5',2);
1197: g_line_tbl(I).operation := OE_GLOBALS.G_OPR_NONE;
1198: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_LOOP_NOT_SUP');
1199: OE_MSG_PUB.ADD;
1200: x_return_status := FND_API.G_RET_STS_ERROR;
1203: END IF;
1204:
1205: IF g_line_tbl(I).line_category_code = 'RETURN' THEN
1206:
1207: oe_debug_pub.add('E6',2);
1208: g_line_tbl(I).operation := OE_GLOBALS.G_OPR_NONE;
1209: FND_MESSAGE.SET_NAME('ONT', 'ONT_SCH_LOOP_RET');
1210: OE_MSG_PUB.ADD;
1211: x_return_status := FND_API.G_RET_STS_ERROR;
1212: END IF;
1213:
1214: IF OE_OTA_UTIL.Is_OTA_Line(g_line_tbl(I).order_quantity_uom) THEN
1215:
1216: oe_debug_pub.add('E7',2);
1217: g_line_tbl(I).operation := OE_GLOBALS.G_OPR_NONE;
1218: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_LOOP_NOT_SUP');
1219: OE_MSG_PUB.ADD;
1220: x_return_status := FND_API.G_RET_STS_ERROR;
1221: END IF;
1222:
1223: IF g_line_tbl(I).source_type_code = OE_GLOBALS.G_SOURCE_EXTERNAL THEN
1224:
1225: oe_debug_pub.add('E8',2);
1226: g_line_tbl(I).operation := OE_GLOBALS.G_OPR_NONE;
1227: FND_MESSAGE.SET_NAME('ONT', 'ONT_SCH_LOOP_EXT');
1228: OE_MSG_PUB.ADD;
1229: x_return_status := FND_API.G_RET_STS_ERROR;
1236: IF l_scheduling_level_code = OE_SCHEDULE_UTIL.SCH_LEVEL_FOUR OR
1237: l_scheduling_level_code = OE_SCHEDULE_UTIL.SCH_LEVEL_FIVE OR
1238: l_scheduling_level_code = OE_SCHEDULE_UTIL.SCH_LEVEL_ONE THEN
1239:
1240: oe_debug_pub.add('E9',2);
1241: g_line_tbl(I).operation := OE_GLOBALS.G_OPR_NONE;
1242: FND_MESSAGE.SET_NAME('ONT', 'ONT_SCH_LOOP_LVL');
1243: OE_MSG_PUB.ADD;
1244: x_return_status := FND_API.G_RET_STS_ERROR;
1263: IF NVL(g_line_tbl(I).re_source_flag,'Y') = 'N' AND
1264: g_line_tbl(I).ship_from_org_id <>
1265: NVL(g_sch_tbl(I).ship_from_org_id,g_line_tbl(I).ship_from_org_id)
1266: THEN
1267: oe_debug_pub.add('E10',2);
1268: g_line_tbl(I).operation := OE_GLOBALS.G_OPR_NONE;
1269: FND_MESSAGE.SET_NAMe('ONT', 'OE_SCH_LOOP_WSH_UPD');
1270: OE_MSG_PUB.ADD;
1271: x_return_status := FND_API.G_RET_STS_ERROR;
1297: END IF;
1298: END IF;
1299:
1300: IF (l_result = FND_API.G_TRUE) THEN
1301: oe_debug_pub.add('E11',2);
1302: g_line_tbl(I).operation := OE_GLOBALS.G_OPR_NONE;
1303: FND_MESSAGE.SET_NAME('ONT','OE_SCH_LINE_ON_HOLD');
1304: OE_MSG_PUB.Add;
1305: x_return_status := FND_API.G_RET_STS_ERROR;
1314: g_sch_tbl(l_index).x_return_status := x_return_status;
1315: END IF;
1316: END LOOP;
1317:
1318: oe_debug_pub.add('Existing Validate_Lines',1);
1319:
1320: EXCEPTION
1321: WHEN FND_API.G_EXC_ERROR THEN
1322: x_return_status := FND_API.G_RET_STS_ERROR;
1360: l_index Number;
1361:
1362: BEGIN
1363:
1364: Oe_debug_pub.add('Entering Procedure Validate_set'|| p_ship_set_id,1);
1365: IF p_Ship_set_id is not null THEN
1366:
1367: FOR C1 IN line_ship_set LOOP
1368: IF NOT Find_line(C1.line_id) THEN
1404: END IF;
1405:
1406: IF NOT l_result THEN
1407:
1408: oe_debug_pub.add('E10',2);
1409: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_LOOP_NOT_SUP');
1410: OE_MSG_PUB.ADD;
1411: IF p_ship_set_id IS NOT NULL THEN
1412:
1470: FUNCTION Find_line(p_line_id IN NUMBER)
1471: Return BOOLEAN
1472: IS
1473: --
1474: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1475: --
1476: BEGIN
1477:
1478: IF l_debug_level > 0 THEN
1475: --
1476: BEGIN
1477:
1478: IF l_debug_level > 0 THEN
1479: oe_debug_pub.add( 'ENTERING FIND_LINE: ' || P_LINE_ID , 1 ) ;
1480: END IF;
1481:
1482: FOR J IN 1..g_line_tbl.count LOOP
1483:
1483:
1484: IF p_line_id = g_line_tbl(J).line_id THEN
1485:
1486: IF l_debug_level > 0 THEN
1487: oe_debug_pub.add( ' LINE EXISTS IN THE TABLE' , 1 ) ;
1488: END IF;
1489: RETURN TRUE;
1490: END IF;
1491: END LOOP;
1516: FUNCTION Find_index(p_line_id IN NUMBER)
1517: Return NUMBER
1518: IS
1519: --
1520: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1521: J NUMBER;
1522: --
1523: BEGIN
1524:
1522: --
1523: BEGIN
1524:
1525: IF l_debug_level > 0 THEN
1526: oe_debug_pub.add( 'ENTERING FIND_Index: ' || P_LINE_ID , 1 ) ;
1527: END IF;
1528:
1529: J := g_sch_tbl.FIRST;
1530: WHILE J IS NOT NULL
1532:
1533: IF p_line_id = g_sch_tbl(J).line_id THEN
1534:
1535: IF l_debug_level > 0 THEN
1536: oe_debug_pub.add( ' J : ' || J, 1 ) ;
1537: END IF;
1538: RETURN J;
1539: END IF;
1540: J := g_sch_tbl.NEXT(J);