[Home] [Help]
36:
37: RETURN FALSE;
38:
39: EXCEPTION
40: WHEN FND_API.G_EXC_ERROR THEN
41:
42: RAISE FND_API.G_EXC_ERROR;
43:
44:
38:
39: EXCEPTION
40: WHEN FND_API.G_EXC_ERROR THEN
41:
42: RAISE FND_API.G_EXC_ERROR;
43:
44:
45: WHEN OTHERS THEN
46:
51: 'Is Set Closed'
52: );
53: END IF;
54:
55: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56:
57: END IS_SET_CLOSED;
58:
59: FUNCTION Get_Fulfillment_Set(p_line_id NUMBER,
90: RETURN FALSE;
91: END IF;
92:
93: Exception
94: WHEN FND_API.G_EXC_ERROR THEN
95:
96: RAISE FND_API.G_EXC_ERROR;
97:
98: WHEN NO_DATA_FOUND THEN
92:
93: Exception
94: WHEN FND_API.G_EXC_ERROR THEN
95:
96: RAISE FND_API.G_EXC_ERROR;
97:
98: WHEN NO_DATA_FOUND THEN
99: IF l_debug_level > 0 THEN
100: oe_debug_pub.add( 'DOES NOT EXIST- IN NO DATA FOUND' ) ;
115: l_set_name VARCHAR2(30);
116: l_ship_set NUMBER := 0;
117: BEGIN
118:
119: x_return_status := FND_API.G_RET_STS_SUCCESS;
120:
121: IF l_debug_level > 0 then
122: OE_DEBUG_PUB.Add('Entering OE_SET_UTIL.Validate_Shipset',1);
123: END IF;
175: EXCEPTION
176: WHEN NO_DATA_FOUND THEN
177: l_set_name := null;
178: END;
179: x_return_status := FND_API.G_RET_STS_ERROR;
180: END IF;
181:
182: END IF;
183: IF l_debug_level > 0 then
185: ||x_return_status,1);
186: END IF;
187:
188: EXCEPTION
189: WHEN FND_API.G_EXC_ERROR THEN
190: if l_debug_level > 0 then
191: OE_DEBUG_PUB.Add('Expected Error in Validate_Shipset ',2);
192: End if;
193:
190: if l_debug_level > 0 then
191: OE_DEBUG_PUB.Add('Expected Error in Validate_Shipset ',2);
192: End if;
193:
194: x_return_status := FND_API.G_RET_STS_ERROR;
195:
196: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
197: if l_debug_level > 0 then
198: OE_DEBUG_PUB.Add('Unexpected Error in Validate_Shipset:'||SqlErrm, 1);
192: End if;
193:
194: x_return_status := FND_API.G_RET_STS_ERROR;
195:
196: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
197: if l_debug_level > 0 then
198: OE_DEBUG_PUB.Add('Unexpected Error in Validate_Shipset:'||SqlErrm, 1);
199: End if;
200:
197: if l_debug_level > 0 then
198: OE_DEBUG_PUB.Add('Unexpected Error in Validate_Shipset:'||SqlErrm, 1);
199: End if;
200:
201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
202:
203: WHEN OTHERS THEN
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
200:
201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
202:
203: WHEN OTHERS THEN
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
206: THEN
207: OE_MSG_PUB.Add_Exc_Msg
208: ( 'OE_SET_UTIL',
291: fnd_message.set_name('ONT', 'OE_SET_CLOSED');
292: FND_MESSAGE.SET_TOKEN('SET',
293: l_set_rec.set_name);
294: oe_msg_pub.add;
295: RAISE FND_API.G_EXC_ERROR ;
296: END IF;
297:
298: Insert into oe_line_sets(
299: Line_id,
325: oe_debug_pub.add( 'EXIT - CREATE FULLFILLMENT SET' ) ;
326: END IF;
327:
328: EXCEPTION
329: WHEN FND_API.G_EXC_ERROR THEN
330:
331:
332: -- Get message count and data
333: oe_msg_pub.count_and_get
337: IF l_debug_level > 0 THEN
338: oe_debug_pub.add( 'IN FULFILLMENT CREATE EXCEPTION ' , 1 ) ;
339: END IF;
340:
341: RAISE FND_API.G_EXC_ERROR;
342:
343:
344: WHEN OTHERS THEN
345:
350: 'Create_Fulfillment_Set'
351: );
352: END IF;
353:
354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
355:
356: End Create_Fulfillment_Set;
357:
358: /* Fulfill_Sts was added for 2525203 to get status of FULFILL_LINE activity */
381: IF l_debug_level > 0 THEN
382: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS , 5 ) ;
383: END IF;
384:
385: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
387: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS AND
388: nvl(l_activity_status,'ERROR') = 'NOTIFIED' THEN
389: NULL;
382: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS , 5 ) ;
383: END IF;
384:
385: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
387: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS AND
388: nvl(l_activity_status,'ERROR') = 'NOTIFIED' THEN
389: NULL;
390: ELSE
383: END IF;
384:
385: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
387: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS AND
388: nvl(l_activity_status,'ERROR') = 'NOTIFIED' THEN
389: NULL;
390: ELSE
391: l_activity_status := 'ERROR';
420: x_line_rec => l_line_rec);
421: IF (nvl(l_line_rec.fulfilled_flag,'N') = 'Y') THEN
422: fnd_message.set_name('ONT', 'OE_LINE_FULFILLED');
423: oe_msg_pub.add;
424: RAISE FND_API.G_EXC_ERROR ;
425: END IF;
426: 2525203 */
427:
428: /*Delete oe_line_sets
436: x_return_status => l_return_status,
437: p_fulfill_operation => 'Y',
438: p_set_id => p_set_id); -- p_set_id added for 2525203
439:
440: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
441: if l_return_status = FND_API.G_RET_STS_ERROR then
442: raise FND_API.G_EXC_ERROR;
443: else
444: raise FND_API.G_EXC_UNEXPECTED_ERROR;
437: p_fulfill_operation => 'Y',
438: p_set_id => p_set_id); -- p_set_id added for 2525203
439:
440: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
441: if l_return_status = FND_API.G_RET_STS_ERROR then
442: raise FND_API.G_EXC_ERROR;
443: else
444: raise FND_API.G_EXC_UNEXPECTED_ERROR;
445: end if;
438: p_set_id => p_set_id); -- p_set_id added for 2525203
439:
440: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
441: if l_return_status = FND_API.G_RET_STS_ERROR then
442: raise FND_API.G_EXC_ERROR;
443: else
444: raise FND_API.G_EXC_UNEXPECTED_ERROR;
445: end if;
446: end if;
440: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
441: if l_return_status = FND_API.G_RET_STS_ERROR then
442: raise FND_API.G_EXC_ERROR;
443: else
444: raise FND_API.G_EXC_UNEXPECTED_ERROR;
445: end if;
446: end if;
447:
448: -- 2695403
458: oe_debug_pub.add( 'EXIT - DELETE FULLFILLMENT SET' ) ;
459: END IF;
460:
461: EXCEPTION
462: WHEN FND_API.G_EXC_ERROR THEN
463:
464: RAISE FND_API.G_EXC_ERROR;
465:
466: WHEN OTHERS THEN
460:
461: EXCEPTION
462: WHEN FND_API.G_EXC_ERROR THEN
463:
464: RAISE FND_API.G_EXC_ERROR;
465:
466: WHEN OTHERS THEN
467:
468: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
472: 'Delete Fulfillment Set'
473: );
474: END IF;
475:
476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
477:
478: End Delete_Fulfillment_Set;
479:
480: FUNCTION Find_line(p_line_id IN NUMBER)
609: END IF;
610: IF l_debug_level > 0 THEN
611: oe_debug_pub.add( 'AFTER GROUP SCHEDULING' || L_OLD_LINE_TBL.COUNT , 1 ) ;
612: END IF;
613: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
614: IF l_debug_level > 0 THEN
615: oe_debug_pub.add( 'RETURNSTATUS UNEXPECTED SCHEDULING' , 1 ) ;
616: END IF;
617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
613: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
614: IF l_debug_level > 0 THEN
615: oe_debug_pub.add( 'RETURNSTATUS UNEXPECTED SCHEDULING' , 1 ) ;
616: END IF;
617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
618: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
619: IF l_debug_level > 0 THEN
620: oe_debug_pub.add( 'RETURNSTATUS ERROR SCHEDULING' , 1 ) ;
621: END IF;
614: IF l_debug_level > 0 THEN
615: oe_debug_pub.add( 'RETURNSTATUS UNEXPECTED SCHEDULING' , 1 ) ;
616: END IF;
617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
618: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
619: IF l_debug_level > 0 THEN
620: oe_debug_pub.add( 'RETURNSTATUS ERROR SCHEDULING' , 1 ) ;
621: END IF;
622: RAISE FND_API.G_EXC_ERROR;
618: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
619: IF l_debug_level > 0 THEN
620: oe_debug_pub.add( 'RETURNSTATUS ERROR SCHEDULING' , 1 ) ;
621: END IF;
622: RAISE FND_API.G_EXC_ERROR;
623: END IF;
624:
625: l_control_rec.controlled_operation := TRUE;
626: l_control_rec.write_to_db := TRUE;
645: end loop;
646: IF l_line_tbl.count > 0 THEN
647:
648: oe_order_pvt.Lines
649: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
650: , p_control_rec => l_control_rec
651: , p_x_line_tbl => l_line_tbl
652: , p_x_old_line_tbl => l_old_line_tbl
653: , x_return_status => l_return_status
652: , p_x_old_line_tbl => l_old_line_tbl
653: , x_return_status => l_return_status
654:
655: );
656: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
658: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
659: RAISE FND_API.G_EXC_ERROR;
660: END IF;
653: , x_return_status => l_return_status
654:
655: );
656: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
658: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
659: RAISE FND_API.G_EXC_ERROR;
660: END IF;
661:
654:
655: );
656: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
658: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
659: RAISE FND_API.G_EXC_ERROR;
660: END IF;
661:
662: /* jolin start comment out nocopy for notification project
655: );
656: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
658: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
659: RAISE FND_API.G_EXC_ERROR;
660: END IF;
661:
662: /* jolin start comment out nocopy for notification project
663:
684:
685: END LOOP;
686:
687: EXCEPTION
688: WHEN FND_API.G_EXC_ERROR THEN
689:
690: RAISE FND_API.G_EXC_ERROR;
691:
692: WHEN OTHERS THEN
686:
687: EXCEPTION
688: WHEN FND_API.G_EXC_ERROR THEN
689:
690: RAISE FND_API.G_EXC_ERROR;
691:
692: WHEN OTHERS THEN
693:
694: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
698: 'Process Options'
699: );
700: END IF;
701:
702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
703:
704:
705: END Process_Options;
706:
746: l_line_id := p_x_line_tbl(p_index).line_id;
747: end if;
748: l_count := p_x_line_tbl.count + 1;
749: IF l_line_rec.line_id is null OR
750: l_line_rec.line_id = FND_API.G_MISS_NUM THEN
751: l_line_rec := p_x_line_tbl(p_index);
752: END IF;
753:
754: FOR Optionrec IN Optiontbl
818: oe_debug_pub.add( 'EXIT GET OPTIONS' ) ;
819: END IF;
820:
821: EXCEPTION
822: WHEN FND_API.G_EXC_ERROR THEN
823:
824: RAISE FND_API.G_EXC_ERROR;
825:
826: WHEN OTHERS THEN
820:
821: EXCEPTION
822: WHEN FND_API.G_EXC_ERROR THEN
823:
824: RAISE FND_API.G_EXC_ERROR;
825:
826: WHEN OTHERS THEN
827: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
828: THEN
830: ( G_PKG_NAME ,
831: 'Get_Options'
832: );
833: END IF;
834: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
835: END Get_Options;
836:
837: -- This procedure is added for to seperate arrival sets from the ship set
838: -- logic given to DWL customer. The arrival set behaves the same
841:
842:
843: Procedure Insert_Into_arrival_Set
844: (p_Set_request_tbl oe_order_pub.Request_Tbl_Type,
845: p_Push_Set_Date IN VARCHAR2 := FND_API.G_FALSE,
846: X_Return_Status OUT NOCOPY VARCHAR2,
847:
848: x_msg_count OUT NOCOPY NUMBER,
849:
1195: g_old_line_tbl.delete;
1196: END IF;
1197: l_perform_sch := TRUE;
1198:
1199: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1200: IF l_debug_level > 0 THEN
1201: oe_debug_pub.add( ' SCHEDULING UNEXPECTED ERROR ' , 1 ) ;
1202: END IF;
1203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1199: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1200: IF l_debug_level > 0 THEN
1201: oe_debug_pub.add( ' SCHEDULING UNEXPECTED ERROR ' , 1 ) ;
1202: END IF;
1203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1204: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1205: IF l_debug_level > 0 THEN
1206: oe_debug_pub.add( ' EXPECTED ERROR ' , 1 ) ;
1207: END IF;
1200: IF l_debug_level > 0 THEN
1201: oe_debug_pub.add( ' SCHEDULING UNEXPECTED ERROR ' , 1 ) ;
1202: END IF;
1203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1204: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1205: IF l_debug_level > 0 THEN
1206: oe_debug_pub.add( ' EXPECTED ERROR ' , 1 ) ;
1207: END IF;
1208: l_sch_line_tbl.delete;
1208: l_sch_line_tbl.delete;
1209: l_sch_count := 0;
1210: goto END_2;
1211:
1212: -- RAISE FND_API.G_EXC_ERROR;
1213: END IF;
1214: -- END IF; -- Schedule Action Code
1215: IF l_debug_level > 0 THEN
1216: oe_debug_pub.add( 'AFTER CALLIN SCHEDULING ' , 1 ) ;
1297: x_Set_Id => l_set_id,
1298: X_Return_Status => l_return_status,
1299: x_msg_count => x_msg_count,
1300: x_msg_data => x_msg_data);
1301: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1303: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1304: RAISE FND_API.G_EXC_ERROR;
1305: END IF;
1298: X_Return_Status => l_return_status,
1299: x_msg_count => x_msg_count,
1300: x_msg_data => x_msg_data);
1301: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1303: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1304: RAISE FND_API.G_EXC_ERROR;
1305: END IF;
1306:
1299: x_msg_count => x_msg_count,
1300: x_msg_data => x_msg_data);
1301: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1303: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1304: RAISE FND_API.G_EXC_ERROR;
1305: END IF;
1306:
1307: END IF; -- if set id is null
1300: x_msg_data => x_msg_data);
1301: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1303: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1304: RAISE FND_API.G_EXC_ERROR;
1305: END IF;
1306:
1307: END IF; -- if set id is null
1308:
1331: Exception
1332:
1333: WHEN NO_DATA_FOUND THEN
1334: NULL;
1335: WHEN FND_API.G_EXC_ERROR THEN
1336:
1337: x_return_status := FND_API.G_RET_STS_ERROR;
1338:
1339: -- Get message count and data
1333: WHEN NO_DATA_FOUND THEN
1334: NULL;
1335: WHEN FND_API.G_EXC_ERROR THEN
1336:
1337: x_return_status := FND_API.G_RET_STS_ERROR;
1338:
1339: -- Get message count and data
1340:
1341:
1345: );
1346: IF l_debug_level > 0 THEN
1347: oe_debug_pub.add( 'IN INSERINTO EXCEPTION ' , 1 ) ;
1348: END IF;
1349: RAISE FND_API.G_EXC_ERROR;
1350:
1351: WHEN OTHERS THEN
1352: oe_msg_pub.count_and_get
1353: ( p_count => x_msg_count
1352: oe_msg_pub.count_and_get
1353: ( p_count => x_msg_count
1354: , p_data => x_msg_data
1355: );
1356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1357:
1358: /*x_return_status := FND_API.G_EXC_UNEXPECTED_ERROR ;
1359:
1360: OE_DEBUG_PUB.Add('In Inserinto exception ',1);
1354: , p_data => x_msg_data
1355: );
1356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1357:
1358: /*x_return_status := FND_API.G_EXC_UNEXPECTED_ERROR ;
1359:
1360: OE_DEBUG_PUB.Add('In Inserinto exception ',1);
1361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;*/
1362:
1357:
1358: /*x_return_status := FND_API.G_EXC_UNEXPECTED_ERROR ;
1359:
1360: OE_DEBUG_PUB.Add('In Inserinto exception ',1);
1361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;*/
1362:
1363: NULL;
1364:
1365: END ;-- End of get line
1424:
1425: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
1426: g_set_recursive_flag := TRUE;
1427: oe_order_pvt.Lines
1428: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
1429: , p_control_rec => l_control_rec
1430: , p_x_line_tbl => l_line_tbl
1431: , p_x_old_line_tbl => l_old_line_tbl
1432: , x_return_status => l_return_status
1432: , x_return_status => l_return_status
1433:
1434: );
1435:
1436: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1438: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1439: RAISE FND_API.G_EXC_ERROR;
1440: END IF;
1433:
1434: );
1435:
1436: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1438: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1439: RAISE FND_API.G_EXC_ERROR;
1440: END IF;
1441:
1434: );
1435:
1436: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1438: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1439: RAISE FND_API.G_EXC_ERROR;
1440: END IF;
1441:
1442: /* jolin start comment out nocopy for notification project
1435:
1436: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1438: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1439: RAISE FND_API.G_EXC_ERROR;
1440: END IF;
1441:
1442: /* jolin start comment out nocopy for notification project
1443:
1457:
1458:
1459: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1460: g_set_recursive_flag := FALSE;
1461: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1462: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1463: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1464: RAISE FND_API.G_EXC_ERROR;
1465: END IF;
1458:
1459: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1460: g_set_recursive_flag := FALSE;
1461: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1462: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1463: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1464: RAISE FND_API.G_EXC_ERROR;
1465: END IF;
1466:
1459: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1460: g_set_recursive_flag := FALSE;
1461: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1462: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1463: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1464: RAISE FND_API.G_EXC_ERROR;
1465: END IF;
1466:
1467: END IF; -- IF line table is greate than Zero
1460: g_set_recursive_flag := FALSE;
1461: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1462: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1463: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1464: RAISE FND_API.G_EXC_ERROR;
1465: END IF;
1466:
1467: END IF; -- IF line table is greate than Zero
1468:
1482:
1483:
1484: EXCEPTION
1485:
1486: WHEN FND_API.G_EXC_ERROR THEN
1487:
1488: x_return_status := FND_API.G_RET_STS_ERROR;
1489:
1490: -- Get message count and data
1484: EXCEPTION
1485:
1486: WHEN FND_API.G_EXC_ERROR THEN
1487:
1488: x_return_status := FND_API.G_RET_STS_ERROR;
1489:
1490: -- Get message count and data
1491:
1492:
1496: );
1497: IF l_debug_level > 0 THEN
1498: oe_debug_pub.add( 'IN INSERINTO EXCEPTION ' , 1 ) ;
1499: END IF;
1500: RAISE FND_API.G_EXC_ERROR;
1501:
1502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1503:
1504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1498: oe_debug_pub.add( 'IN INSERINTO EXCEPTION ' , 1 ) ;
1499: END IF;
1500: RAISE FND_API.G_EXC_ERROR;
1501:
1502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1503:
1504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1505: -- Get message count and data
1506:
1500: RAISE FND_API.G_EXC_ERROR;
1501:
1502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1503:
1504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1505: -- Get message count and data
1506:
1507: oe_msg_pub.count_and_get
1508: ( p_count => x_msg_count
1507: oe_msg_pub.count_and_get
1508: ( p_count => x_msg_count
1509: , p_data => x_msg_data
1510: );
1511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1512: WHEN OTHERS THEN
1513:
1514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1515:
1510: );
1511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1512: WHEN OTHERS THEN
1513:
1514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1515:
1516: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
1517: THEN
1518: oe_msg_pub.Add_Exc_Msg
1534: Procedure New_Process_Sets
1535: ( p_selected_line_tbl IN OE_GLOBALS.Selected_Record_Tbl, --(R12.MOAC)
1536: p_record_count IN NUMBER,
1537: p_set_name IN VARCHAR2,
1538: p_set_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
1539: p_operation IN VARCHAR2,
1540: p_header_id IN VARCHAR2 := FND_API.G_MISS_CHAR,
1541: x_Set_Id OUT NOCOPY NUMBER,
1542:
1536: p_record_count IN NUMBER,
1537: p_set_name IN VARCHAR2,
1538: p_set_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
1539: p_operation IN VARCHAR2,
1540: p_header_id IN VARCHAR2 := FND_API.G_MISS_CHAR,
1541: x_Set_Id OUT NOCOPY NUMBER,
1542:
1543: x_return_status OUT NOCOPY VARCHAR2,
1544:
1580: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1581: --
1582: BEGIN
1583: SAVEPOINT New_Process_sets;
1584: x_return_status := FND_API.G_RET_STS_SUCCESS;
1585:
1586:
1587:
1588: IF l_debug_level > 0 THEN
1621: fnd_message.set_name('ONT', 'OE_SET_CLOSED');
1622: FND_MESSAGE.SET_TOKEN('SET',
1623: p_set_name);
1624: oe_msg_pub.add;
1625: RAISE FND_API.G_EXC_ERROR;
1626: END IF;
1627: END IF;
1628: if (p_operation = 'REMOVE' ) THEN
1629: IF l_debug_level > 0 THEN
1657: ( p_line_id => l_line_id,
1658: p_x_line_rec => l_line_rec
1659: ,x_return_status => l_return_status);
1660:
1661: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1662: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1663: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1664: RAISE FND_API.G_EXC_ERROR;
1665: END IF;
1658: p_x_line_rec => l_line_rec
1659: ,x_return_status => l_return_status);
1660:
1661: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1662: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1663: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1664: RAISE FND_API.G_EXC_ERROR;
1665: END IF;
1666:
1659: ,x_return_status => l_return_status);
1660:
1661: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1662: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1663: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1664: RAISE FND_API.G_EXC_ERROR;
1665: END IF;
1666:
1667: OE_MSG_PUB.set_msg_context
1660:
1661: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1662: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1663: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1664: RAISE FND_API.G_EXC_ERROR;
1665: END IF;
1666:
1667: OE_MSG_PUB.set_msg_context
1668: ( p_entity_code => 'LINE'
1684: l_line_rec.order_source_id
1685: ,p_source_document_type_id =>
1686: l_line_rec.source_document_type_id);
1687:
1688: IF l_line_rec.ship_set = FND_API.G_MISS_CHAR THEN
1689: l_line_rec.ship_set := Null;
1690: END IF;
1691: IF l_line_rec.arrival_set = FND_API.G_MISS_CHAR THEN
1692: l_line_rec.arrival_set := Null;
1687:
1688: IF l_line_rec.ship_set = FND_API.G_MISS_CHAR THEN
1689: l_line_rec.ship_set := Null;
1690: END IF;
1691: IF l_line_rec.arrival_set = FND_API.G_MISS_CHAR THEN
1692: l_line_rec.arrival_set := Null;
1693: END IF;
1694: l_line_tbl(I) := l_line_rec;
1695:
1721: OE_MSG_PUB.ADD;
1722: IF l_debug_level > 0 THEN
1723: oe_debug_pub.add( 'SET- NOT ALLOWED FOR THIS ITEMTYPE' ) ;
1724: END IF;
1725: RAISE FND_API.G_EXC_ERROR;
1726: END IF;
1727:
1728:
1729: g_old_line_tbl(I) :=
1743: -- FND_MESSAGE.Set_Name('ONT', 'OE_INVALID_SET_COMB');
1744: FND_MESSAGE.Set_Name('ONT','OE_SCH_NOT_IN_SHIP_ARR');
1745: oe_msg_pub.add;
1746: /* Changed the message to fix the bug 2862565 */
1747: RAISE FND_API.G_EXC_ERROR;
1748: END IF;
1749:
1750: IF (l_set_id IS NULL) THEN
1751: l_line_tbl(I).arrival_set := p_set_name ;
1800:
1801: -- Call OE_Order_PVT.Process_order
1802:
1803: oe_order_pvt.Lines
1804: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
1805: , p_control_rec => l_control_rec
1806: , p_x_line_tbl => l_line_tbl
1807: , p_x_old_line_tbl => l_old_line_tbl
1808: , x_return_status => l_return_status
1807: , p_x_old_line_tbl => l_old_line_tbl
1808: , x_return_status => l_return_status
1809:
1810: );
1811: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1813: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1814: RAISE FND_API.G_EXC_ERROR;
1815: END IF;
1808: , x_return_status => l_return_status
1809:
1810: );
1811: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1813: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1814: RAISE FND_API.G_EXC_ERROR;
1815: END IF;
1816:
1809:
1810: );
1811: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1813: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1814: RAISE FND_API.G_EXC_ERROR;
1815: END IF;
1816:
1817:
1810: );
1811: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1813: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1814: RAISE FND_API.G_EXC_ERROR;
1815: END IF;
1816:
1817:
1818: -- jolin start comment out nocopy for notification project
1826: , p_line_tbl => l_line_tbl
1827: , p_old_line_tbl => l_old_line_tbl
1828: );
1829:
1830: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1832: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1833: RAISE FND_API.G_EXC_ERROR;
1834: END IF;
1827: , p_old_line_tbl => l_old_line_tbl
1828: );
1829:
1830: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1832: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1833: RAISE FND_API.G_EXC_ERROR;
1834: END IF;
1835: --jolin end
1828: );
1829:
1830: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1832: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1833: RAISE FND_API.G_EXC_ERROR;
1834: END IF;
1835: --jolin end
1836:
1829:
1830: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1832: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1833: RAISE FND_API.G_EXC_ERROR;
1834: END IF;
1835: --jolin end
1836:
1837: x_return_status := l_return_status;
1838:
1839:
1840: EXCEPTION
1841:
1842: WHEN FND_API.G_EXC_ERROR THEN
1843:
1844: x_return_status := FND_API.G_RET_STS_ERROR;
1845:
1846: -- Get message count and data
1840: EXCEPTION
1841:
1842: WHEN FND_API.G_EXC_ERROR THEN
1843:
1844: x_return_status := FND_API.G_RET_STS_ERROR;
1845:
1846: -- Get message count and data
1847:
1848:
1857: IF l_debug_level > 0 THEN
1858: oe_debug_pub.add( 'AFTER ROLLING BACK' , 1 ) ;
1859: END IF;
1860:
1861: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1862:
1863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1864: -- Get message count and data
1865:
1859: END IF;
1860:
1861: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1862:
1863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1864: -- Get message count and data
1865:
1866: oe_msg_pub.count_and_get
1867: ( p_count => x_msg_count
1876: oe_debug_pub.add( 'AFTER ROLLING BACK' , 1 ) ;
1877: END IF;
1878: WHEN OTHERS THEN
1879:
1880: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1881:
1882: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
1883: THEN
1884: oe_msg_pub.Add_Exc_Msg
1918:
1919: RETURN TRUE;
1920:
1921: EXCEPTION
1922: WHEN FND_API.G_EXC_ERROR THEN
1923:
1924: RAISE FND_API.G_EXC_ERROR;
1925:
1926: WHEN NO_DATA_FOUND THEN
1920:
1921: EXCEPTION
1922: WHEN FND_API.G_EXC_ERROR THEN
1923:
1924: RAISE FND_API.G_EXC_ERROR;
1925:
1926: WHEN NO_DATA_FOUND THEN
1927:
1928: RETURN FALSE;
1929:
1930: End Set_Exist;
1931:
1932: FUNCTION Set_Exist(p_set_id IN NUMBER,
1933: p_header_id IN NUMBER := FND_API.G_MISS_NUM)
1934: RETURN BOOLEAN IS
1935: row_exists VARCHAR2(1);
1936: l_header_id NUMBER := p_header_id;
1937: --
1937: --
1938: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1939: --
1940: Begin
1941: IF p_header_id = FND_API.G_MISS_NUM THEN
1942: l_header_id := NULL;
1943: ELSE
1944: l_header_id := p_header_id;
1945: END IF;
1952: and header_id = nvl(l_header_id,header_id);
1953:
1954: RETURN TRUE;
1955: EXCEPTION
1956: WHEN FND_API.G_EXC_ERROR THEN
1957:
1958: RAISE FND_API.G_EXC_ERROR;
1959:
1960: WHEN NO_DATA_FOUND THEN
1954: RETURN TRUE;
1955: EXCEPTION
1956: WHEN FND_API.G_EXC_ERROR THEN
1957:
1958: RAISE FND_API.G_EXC_ERROR;
1959:
1960: WHEN NO_DATA_FOUND THEN
1961:
1962: RETURN FALSE;
1990: --
1991: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1992: --
1993: Begin
1994: x_return_status := FND_API.G_RET_STS_SUCCESS;
1995: IF l_debug_level > 0 THEN
1996: oe_debug_pub.add( 'ENTER:CREATE SETS ' , 1 ) ;
1997: END IF;
1998: IF l_debug_level > 0 THEN
2009: p_set_type IS NULL) THEN
2010: fnd_message.set_name('ONT', 'OE_SET_REQ_ARG');
2011: FND_MESSAGE.SET_TOKEN('SET',p_set_name);
2012: oe_msg_pub.add;
2013: RAISE FND_API.G_EXC_ERROR ;
2014: -- Require all three header,set name ane set type to create
2015: END IF;
2016: IF l_debug_level > 0 THEN
2017: oe_debug_pub.add( 'BEFORE SETEXISTS ' , 1 ) ;
2031: --p_Shipping_Method_Code IS NULL) THEN
2032: fnd_message.set_name('ONT', 'OE_INVALID_SET_ATTR');
2033: FND_MESSAGE.SET_TOKEN('SET',p_set_name);
2034: oe_msg_pub.add;
2035: RAISE FND_API.G_EXC_ERROR;
2036: -- set attributes cannot be null
2037: ELSIF (p_set_type = 'ARRIVAL_SET') AND
2038: (p_Ship_to_org_id IS NULL OR
2039: p_Schedule_arrival_date IS NULL)THEN
2040: -- Arrival set attributes cannot be null
2041: fnd_message.set_name('ONT', 'OE_INVALID_SET_ATTR');
2042: FND_MESSAGE.SET_TOKEN('SET',p_set_name);
2043: oe_msg_pub.add;
2044: RAISE FND_API.G_EXC_ERROR;
2045:
2046: END IF; */
2047:
2048:
2107:
2108:
2109: EXCEPTION
2110:
2111: WHEN FND_API.G_EXC_ERROR THEN
2112:
2113: x_return_status := FND_API.G_RET_STS_ERROR;
2114:
2115: -- Get message count and data
2109: EXCEPTION
2110:
2111: WHEN FND_API.G_EXC_ERROR THEN
2112:
2113: x_return_status := FND_API.G_RET_STS_ERROR;
2114:
2115: -- Get message count and data
2116:
2117:
2122: IF l_debug_level > 0 THEN
2123: oe_debug_pub.add( 'IN CREATE EXCEPTION ' , 1 ) ;
2124: END IF;
2125:
2126: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2127:
2128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2129: -- Get message count and data
2130:
2124: END IF;
2125:
2126: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2127:
2128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2129: -- Get message count and data
2130:
2131: oe_msg_pub.count_and_get
2132: ( p_count => x_msg_count
2133: , p_data => x_msg_data
2134: );
2135: WHEN OTHERS THEN
2136:
2137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2138:
2139: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
2140: THEN
2141: oe_msg_pub.Add_Exc_Msg
2155: End Create_Set;
2156:
2157: Procedure Insert_Into_Set
2158: (p_Set_request_tbl oe_order_pub.Request_Tbl_Type,
2159: p_Push_Set_Date IN VARCHAR2 := FND_API.G_FALSE,
2160: X_Return_Status OUT NOCOPY VARCHAR2,
2161:
2162: x_msg_count OUT NOCOPY NUMBER,
2163:
2312: IF l_debug_level > 0 THEN
2313: oe_debug_pub.add( ' EXIT CALLING ARRIVAL SET ' , 1 ) ;
2314: END IF;
2315:
2316: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2317: IF l_debug_level > 0 THEN
2318: oe_debug_pub.add( ' ARRIVAL SET UNEXPECTED ERROR ' , 1 ) ;
2319: END IF;
2320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2316: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2317: IF l_debug_level > 0 THEN
2318: oe_debug_pub.add( ' ARRIVAL SET UNEXPECTED ERROR ' , 1 ) ;
2319: END IF;
2320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2321: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2322: IF l_debug_level > 0 THEN
2323: oe_debug_pub.add( ' ARRIVAL SET ' , 1 ) ;
2324: END IF;
2317: IF l_debug_level > 0 THEN
2318: oe_debug_pub.add( ' ARRIVAL SET UNEXPECTED ERROR ' , 1 ) ;
2319: END IF;
2320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2321: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2322: IF l_debug_level > 0 THEN
2323: oe_debug_pub.add( ' ARRIVAL SET ' , 1 ) ;
2324: END IF;
2325: RAISE FND_API.G_EXC_ERROR;
2321: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2322: IF l_debug_level > 0 THEN
2323: oe_debug_pub.add( ' ARRIVAL SET ' , 1 ) ;
2324: END IF;
2325: RAISE FND_API.G_EXC_ERROR;
2326: END IF;
2327:
2328: GOTO END_1;
2329: END IF;
2378: ( p_line_rec => l_line_rec
2379: ,p_old_line_rec => l_old_line_rec
2380: ,x_return_status => l_return_status);
2381:
2382: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2383: GOTO END_1;
2384: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2385: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2386: END IF;
2380: ,x_return_status => l_return_status);
2381:
2382: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2383: GOTO END_1;
2384: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2385: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2386: END IF;
2387:
2388: END IF;
2381:
2382: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2383: GOTO END_1;
2384: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2385: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2386: END IF;
2387:
2388: END IF;
2389:
2495: g_old_line_tbl.delete;
2496: END IF;
2497: l_perform_sch := TRUE;
2498:
2499: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2500: IF l_debug_level > 0 THEN
2501: oe_debug_pub.add( ' SCHEDULING UNEXPECTED ERROR ' , 1 ) ;
2502: END IF;
2503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2499: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2500: IF l_debug_level > 0 THEN
2501: oe_debug_pub.add( ' SCHEDULING UNEXPECTED ERROR ' , 1 ) ;
2502: END IF;
2503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2504: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2505: GOTO END_1;
2506: IF l_debug_level > 0 THEN
2507: oe_debug_pub.add( ' EXPECTED ERROR ' , 1 ) ;
2500: IF l_debug_level > 0 THEN
2501: oe_debug_pub.add( ' SCHEDULING UNEXPECTED ERROR ' , 1 ) ;
2502: END IF;
2503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2504: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2505: GOTO END_1;
2506: IF l_debug_level > 0 THEN
2507: oe_debug_pub.add( ' EXPECTED ERROR ' , 1 ) ;
2508: END IF;
2505: GOTO END_1;
2506: IF l_debug_level > 0 THEN
2507: oe_debug_pub.add( ' EXPECTED ERROR ' , 1 ) ;
2508: END IF;
2509: --RAISE FND_API.G_EXC_ERROR;
2510: END IF;
2511:
2512: -- END IF; -- Schedule Action Code
2513: IF l_debug_level > 0 THEN
2576: x_Set_Id => l_set_id,
2577: X_Return_Status => l_return_status,
2578: x_msg_count => x_msg_count,
2579: x_msg_data => x_msg_data);
2580: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2581: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2582: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2583: RAISE FND_API.G_EXC_ERROR;
2584: END IF;
2577: X_Return_Status => l_return_status,
2578: x_msg_count => x_msg_count,
2579: x_msg_data => x_msg_data);
2580: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2581: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2582: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2583: RAISE FND_API.G_EXC_ERROR;
2584: END IF;
2585:
2578: x_msg_count => x_msg_count,
2579: x_msg_data => x_msg_data);
2580: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2581: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2582: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2583: RAISE FND_API.G_EXC_ERROR;
2584: END IF;
2585:
2586: END IF; -- if set id is null
2579: x_msg_data => x_msg_data);
2580: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2581: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2582: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2583: RAISE FND_API.G_EXC_ERROR;
2584: END IF;
2585:
2586: END IF; -- if set id is null
2587: END IF; -- Temp table intenal if condition
2677:
2678: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
2679: g_set_recursive_flag := TRUE;
2680: oe_order_pvt.Lines
2681: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
2682: , p_control_rec => l_control_rec
2683: , p_x_line_tbl => l_line_tbl
2684: , p_x_old_line_tbl => l_old_line_tbl
2685: , x_return_status => l_return_status
2685: , x_return_status => l_return_status
2686:
2687: );
2688:
2689: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2691: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2692: RAISE FND_API.G_EXC_ERROR;
2693: END IF;
2686:
2687: );
2688:
2689: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2691: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2692: RAISE FND_API.G_EXC_ERROR;
2693: END IF;
2694:
2687: );
2688:
2689: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2691: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2692: RAISE FND_API.G_EXC_ERROR;
2693: END IF;
2694:
2695: /* jolin start comment out nocopy for notification project
2688:
2689: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2691: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2692: RAISE FND_API.G_EXC_ERROR;
2693: END IF;
2694:
2695: /* jolin start comment out nocopy for notification project
2696:
2708: l_line_tbl.delete;
2709:
2710: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
2711: g_set_recursive_flag := FALSE;
2712: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2714: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2715: RAISE FND_API.G_EXC_ERROR;
2716: END IF;
2709:
2710: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
2711: g_set_recursive_flag := FALSE;
2712: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2714: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2715: RAISE FND_API.G_EXC_ERROR;
2716: END IF;
2717:
2710: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
2711: g_set_recursive_flag := FALSE;
2712: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2714: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2715: RAISE FND_API.G_EXC_ERROR;
2716: END IF;
2717:
2718: END IF; -- IF line table is greate than Zero
2711: g_set_recursive_flag := FALSE;
2712: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2714: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2715: RAISE FND_API.G_EXC_ERROR;
2716: END IF;
2717:
2718: END IF; -- IF line table is greate than Zero
2719:
2732:
2733:
2734: EXCEPTION
2735:
2736: WHEN FND_API.G_EXC_ERROR THEN
2737:
2738: x_return_status := FND_API.G_RET_STS_ERROR;
2739:
2740: -- Get message count and data
2734: EXCEPTION
2735:
2736: WHEN FND_API.G_EXC_ERROR THEN
2737:
2738: x_return_status := FND_API.G_RET_STS_ERROR;
2739:
2740: -- Get message count and data
2741:
2742:
2746: );
2747: IF l_debug_level > 0 THEN
2748: oe_debug_pub.add( 'IN INSERINTO EXCEPTION ' , 1 ) ;
2749: END IF;
2750: RAISE FND_API.G_EXC_ERROR;
2751:
2752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2753:
2754: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2748: oe_debug_pub.add( 'IN INSERINTO EXCEPTION ' , 1 ) ;
2749: END IF;
2750: RAISE FND_API.G_EXC_ERROR;
2751:
2752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2753:
2754: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2755: -- Get message count and data
2756:
2750: RAISE FND_API.G_EXC_ERROR;
2751:
2752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2753:
2754: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2755: -- Get message count and data
2756:
2757: oe_msg_pub.count_and_get
2758: ( p_count => x_msg_count
2757: oe_msg_pub.count_and_get
2758: ( p_count => x_msg_count
2759: , p_data => x_msg_data
2760: );
2761: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2762: WHEN OTHERS THEN
2763:
2764: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2765:
2760: );
2761: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2762: WHEN OTHERS THEN
2763:
2764: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2765:
2766: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
2767: THEN
2768: oe_msg_pub.Add_Exc_Msg
2783:
2784:
2785: Procedure Update_Set
2786: (p_Set_Id IN NUMBER,
2787: p_Ship_From_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2788: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2789: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
2790: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
2791: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2784:
2785: Procedure Update_Set
2786: (p_Set_Id IN NUMBER,
2787: p_Ship_From_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2788: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2789: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
2790: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
2791: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2792: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2785: Procedure Update_Set
2786: (p_Set_Id IN NUMBER,
2787: p_Ship_From_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2788: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2789: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
2790: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
2791: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2792: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2793: p_shipment_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2786: (p_Set_Id IN NUMBER,
2787: p_Ship_From_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2788: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2789: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
2790: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
2791: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2792: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2793: p_shipment_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2794: X_Return_Status OUT NOCOPY VARCHAR2,
2787: p_Ship_From_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2788: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2789: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
2790: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
2791: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2792: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2793: p_shipment_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2794: X_Return_Status OUT NOCOPY VARCHAR2,
2795:
2788: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2789: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
2790: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
2791: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2792: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2793: p_shipment_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2794: X_Return_Status OUT NOCOPY VARCHAR2,
2795:
2796: x_msg_count OUT NOCOPY NUMBER,
2789: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
2790: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
2791: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2792: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2793: p_shipment_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2794: X_Return_Status OUT NOCOPY VARCHAR2,
2795:
2796: x_msg_count OUT NOCOPY NUMBER,
2797:
2813: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2814: --
2815: Begin
2816: l_set_rec := get_set_rec(p_set_id);
2817: IF (p_ship_from_org_id = fnd_api.g_miss_num or
2818: p_ship_from_org_id IS NULL )THEN
2819: l_Ship_From_Org_Id := l_set_rec.Ship_From_Org_Id ;
2820: ELSE
2821: l_Ship_From_Org_Id := p_Ship_From_Org_Id ;
2820: ELSE
2821: l_Ship_From_Org_Id := p_Ship_From_Org_Id ;
2822: END IF;
2823:
2824: IF (p_ship_to_org_id = fnd_api.g_miss_num or
2825: p_ship_from_org_id IS NULL )THEN
2826: l_Ship_to_Org_Id := l_set_rec.Ship_to_Org_Id ;
2827: ELSE
2828: l_Ship_to_Org_Id := p_Ship_to_Org_Id ;
2827: ELSE
2828: l_Ship_to_Org_Id := p_Ship_to_Org_Id ;
2829: END IF;
2830:
2831: IF (p_Schedule_Arrival_Date = fnd_api.g_miss_date or
2832: p_Schedule_Arrival_Date IS NULL )THEN
2833: l_Schedule_Arrival_Date := l_set_rec.Schedule_Arrival_Date;
2834: ELSE
2835: l_Schedule_Arrival_Date := p_Schedule_Arrival_Date ;
2834: ELSE
2835: l_Schedule_Arrival_Date := p_Schedule_Arrival_Date ;
2836: END IF;
2837:
2838: IF (p_Schedule_ship_Date = fnd_api.g_miss_date or
2839: p_Schedule_ship_Date IS NULL )THEN
2840: l_Schedule_ship_Date := l_set_rec.Schedule_ship_Date;
2841: ELSE
2842: l_Schedule_ship_Date := p_Schedule_ship_Date ;
2841: ELSE
2842: l_Schedule_ship_Date := p_Schedule_ship_Date ;
2843: END IF;
2844:
2845: IF (p_Freight_Carrier_Code = fnd_api.g_miss_char or
2846: p_Freight_Carrier_Code IS NULL )THEN
2847: l_Freight_Carrier_Code := l_set_rec.Freight_Carrier_Code;
2848: ELSE
2849: l_Freight_Carrier_Code := p_Freight_Carrier_Code ;
2848: ELSE
2849: l_Freight_Carrier_Code := p_Freight_Carrier_Code ;
2850: END IF;
2851:
2852: IF p_Shipping_Method_Code = fnd_api.g_miss_char
2853: THEN
2854: l_Shipping_Method_Code := l_set_rec.Shipping_Method_Code;
2855: ELSE
2856: l_Shipping_Method_Code := p_Shipping_Method_Code ;
2855: ELSE
2856: l_Shipping_Method_Code := p_Shipping_Method_Code ;
2857: END IF;
2858:
2859: IF (p_shipment_priority_code = fnd_api.g_miss_char or
2860: p_shipment_priority_code IS NULL )THEN
2861: l_shipment_priority_code := l_set_rec.shipment_priority_code;
2862: ELSE
2863: l_shipment_priority_code := p_shipment_priority_code ;
2876:
2877: Null;
2878: g_set_rec := l_init_set_rec;
2879: --FP bug 3891395: setting the return status
2880: x_return_status := FND_API.G_RET_STS_SUCCESS;
2881: EXCEPTION
2882:
2883: WHEN FND_API.G_EXC_ERROR THEN
2884:
2879: --FP bug 3891395: setting the return status
2880: x_return_status := FND_API.G_RET_STS_SUCCESS;
2881: EXCEPTION
2882:
2883: WHEN FND_API.G_EXC_ERROR THEN
2884:
2885: x_return_status := FND_API.G_RET_STS_ERROR;
2886:
2887: -- Get message count and data
2881: EXCEPTION
2882:
2883: WHEN FND_API.G_EXC_ERROR THEN
2884:
2885: x_return_status := FND_API.G_RET_STS_ERROR;
2886:
2887: -- Get message count and data
2888:
2889:
2891: ( p_count => x_msg_count
2892: , p_data => x_msg_data
2893: );
2894:
2895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2896:
2897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2898: -- Get message count and data
2899:
2893: );
2894:
2895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2896:
2897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2898: -- Get message count and data
2899:
2900: oe_msg_pub.count_and_get
2901: ( p_count => x_msg_count
2902: , p_data => x_msg_data
2903: );
2904: WHEN OTHERS THEN
2905:
2906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2907:
2908: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
2909: THEN
2910: oe_msg_pub.Add_Exc_Msg
2940:
2941: END get_set_rec;
2942:
2943: PROCEDURE Validate_set_attributes(p_set_id IN NUMBER ,
2944: p_Ship_From_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2945: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2946: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
2947: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
2948: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2941: END get_set_rec;
2942:
2943: PROCEDURE Validate_set_attributes(p_set_id IN NUMBER ,
2944: p_Ship_From_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2945: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2946: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
2947: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
2948: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2949: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2942:
2943: PROCEDURE Validate_set_attributes(p_set_id IN NUMBER ,
2944: p_Ship_From_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2945: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2946: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
2947: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
2948: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2949: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2950: p_shipment_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2943: PROCEDURE Validate_set_attributes(p_set_id IN NUMBER ,
2944: p_Ship_From_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2945: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2946: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
2947: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
2948: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2949: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2950: p_shipment_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2951: X_Return_Status OUT NOCOPY VARCHAR2) IS
2944: p_Ship_From_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2945: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2946: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
2947: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
2948: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2949: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2950: p_shipment_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2951: X_Return_Status OUT NOCOPY VARCHAR2) IS
2952:
2945: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2946: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
2947: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
2948: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2949: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2950: p_shipment_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2951: X_Return_Status OUT NOCOPY VARCHAR2) IS
2952:
2953: l_set_rec OE_ORDER_CACHE.set_rec_type;
2946: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
2947: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
2948: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2949: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2950: p_shipment_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2951: X_Return_Status OUT NOCOPY VARCHAR2) IS
2952:
2953: l_set_rec OE_ORDER_CACHE.set_rec_type;
2954: x_msg_count NUMBER;
2965: (p_Schedule_Ship_Date <> l_set_rec.Schedule_ship_Date) OR
2966: (p_Freight_Carrier_Code <> l_set_rec.Freight_Carrier_Code) OR
2967: (p_Shipping_Method_Code <> l_set_rec.Shipping_Method_Code) OR
2968: (p_shipment_priority_code <> l_set_rec.shipment_priority_code) THEN
2969: --RAISE FND_API.G_EXC_ERROR;
2970: fnd_message.set_name('ONT', 'OE_INVALID_SET_ATTR');
2971: FND_MESSAGE.SET_TOKEN('SET','SHIP');
2972: oe_msg_pub.add;
2973: -- RAISE FND_API.G_EXC_ERROR ;
2969: --RAISE FND_API.G_EXC_ERROR;
2970: fnd_message.set_name('ONT', 'OE_INVALID_SET_ATTR');
2971: FND_MESSAGE.SET_TOKEN('SET','SHIP');
2972: oe_msg_pub.add;
2973: -- RAISE FND_API.G_EXC_ERROR ;
2974:
2975: NULL;
2976: END IF;
2977: ELSIF (l_set_rec.set_type = 'ARRIVAL_SET') THEN
2979: (p_Ship_To_Org_Id <> l_Set_rec.Ship_To_Org_Id) THEN
2980: fnd_message.set_name('ONT', 'OE_INVALID_SET_ATTR');
2981: FND_MESSAGE.SET_TOKEN('SET','ARRIVAL');
2982: oe_msg_pub.add;
2983: --RAISE FND_API.G_EXC_ERROR ;
2984: NULL;
2985: END IF;
2986: END IF;
2987: EXCEPTION
2985: END IF;
2986: END IF;
2987: EXCEPTION
2988:
2989: WHEN FND_API.G_EXC_ERROR THEN
2990:
2991: x_return_status := FND_API.G_RET_STS_ERROR;
2992:
2993: -- Get message count and data
2987: EXCEPTION
2988:
2989: WHEN FND_API.G_EXC_ERROR THEN
2990:
2991: x_return_status := FND_API.G_RET_STS_ERROR;
2992:
2993: -- Get message count and data
2994:
2995:
2997: ( p_count => x_msg_count
2998: , p_data => x_msg_data
2999: );
3000:
3001: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3002:
3003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3004: -- Get message count and data
3005:
2999: );
3000:
3001: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3002:
3003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3004: -- Get message count and data
3005:
3006: oe_msg_pub.count_and_get
3007: ( p_count => x_msg_count
3008: , p_data => x_msg_data
3009: );
3010: WHEN OTHERS THEN
3011:
3012: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3013:
3014: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
3015: THEN
3016: oe_msg_pub.Add_Exc_Msg
3033: Procedure Process_Sets
3034: ( p_selected_line_tbl IN OE_GLOBALS.Selected_Record_Tbl, -- R12.MOAC
3035: p_record_count IN NUMBER,
3036: p_set_name IN VARCHAR2,
3037: p_set_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
3038: p_operation IN VARCHAR2,
3039: p_header_id IN VARCHAR2 := FND_API.G_MISS_CHAR,
3040: x_Set_Id OUT NOCOPY NUMBER,
3041:
3035: p_record_count IN NUMBER,
3036: p_set_name IN VARCHAR2,
3037: p_set_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
3038: p_operation IN VARCHAR2,
3039: p_header_id IN VARCHAR2 := FND_API.G_MISS_CHAR,
3040: x_Set_Id OUT NOCOPY NUMBER,
3041:
3042: x_return_status OUT NOCOPY VARCHAR2,
3043:
3079: l_top_model_line_id NUMBER;
3080: BEGIN
3081:
3082: SAVEPOINT Process_sets;
3083: x_return_status := FND_API.G_RET_STS_SUCCESS;
3084:
3085: /* If the profile to process new set schduling functioanlity after
3086: performance changes is set to Yest then branch the code to new
3087: procedure or continue */
3101: x_return_status => x_return_status,
3102: x_msg_count => x_msg_count,
3103: x_msg_data => x_msg_data );
3104:
3105: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3107: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3108: RAISE FND_API.G_EXC_ERROR;
3109: END IF;
3102: x_msg_count => x_msg_count,
3103: x_msg_data => x_msg_data );
3104:
3105: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3107: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3108: RAISE FND_API.G_EXC_ERROR;
3109: END IF;
3110:
3103: x_msg_data => x_msg_data );
3104:
3105: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3107: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3108: RAISE FND_API.G_EXC_ERROR;
3109: END IF;
3110:
3111: GOTO END_NEW_PROCESS_SETS;
3104:
3105: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3107: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3108: RAISE FND_API.G_EXC_ERROR;
3109: END IF;
3110:
3111: GOTO END_NEW_PROCESS_SETS;
3112:
3159:
3160: fnd_message.set_name('ONT', 'OE_SET_CLOSED');
3161: FND_MESSAGE.SET_TOKEN('SET', p_set_name);
3162: oe_msg_pub.add;
3163: RAISE FND_API.G_EXC_ERROR;
3164: END IF;
3165: END IF;
3166:
3167: IF (p_operation = 'REMOVE' AND
3210: (p_line_id => l_line_id
3211: ,p_x_line_rec => l_line_rec
3212: ,x_return_status => l_return_status);
3213:
3214: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3216: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3217: RAISE FND_API.G_EXC_ERROR;
3218: END IF;
3211: ,p_x_line_rec => l_line_rec
3212: ,x_return_status => l_return_status);
3213:
3214: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3216: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3217: RAISE FND_API.G_EXC_ERROR;
3218: END IF;
3219:
3212: ,x_return_status => l_return_status);
3213:
3214: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3216: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3217: RAISE FND_API.G_EXC_ERROR;
3218: END IF;
3219:
3220: OE_MSG_PUB.set_msg_context
3213:
3214: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3216: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3217: RAISE FND_API.G_EXC_ERROR;
3218: END IF;
3219:
3220: OE_MSG_PUB.set_msg_context
3221: ( p_entity_code => 'LINE'
3285: OE_MSG_PUB.ADD;
3286: IF l_debug_level > 0 THEN
3287: oe_debug_pub.add( 'SET- NOT ALLOWED FOR THIS ITEMTYPE' ) ;
3288: END IF;
3289: RAISE FND_API.G_EXC_ERROR;
3290: END IF;
3291:
3292: IF p_set_type = 'ARRIVAL' THEN
3293:
3301: -- FND_MESSAGE.Set_Name('ONT', 'OE_INVALID_SET_COMB');
3302: FND_MESSAGE.Set_Name('ONT','OE_SCH_NOT_IN_SHIP_ARR');
3303: /* Changed the message to fix the bug 2862565 */
3304: oe_msg_pub.add;
3305: RAISE FND_API.G_EXC_ERROR;
3306: END IF;
3307:
3308: IF (l_set_id IS NULL) THEN
3309: l_line_tbl(I).arrival_set := p_set_name ;
3657: oe_debug_pub.add( 'BEFORE FAILING AT SET NAME' , 1 ) ;
3658: END IF;
3659: fnd_message.set_name('ONT', 'OE_SET_NAME_REQ');
3660: oe_msg_pub.add;
3661: RAISE FND_API.G_EXC_ERROR ;
3662: END IF;
3663: IF p_operation <> 'REMOVE' THEN
3664: IF p_set_type <> 'FULFILLMENT'
3665: AND l_line_tbl.count > 0 THEN
3689: p_old_line_tbl => g_old_line_tbl,
3690: x_return_status => l_return_status);
3691: g_old_line_tbl.delete;
3692:
3693: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3694: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3695: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3696: RAISE FND_API.G_EXC_ERROR;
3697: END IF;
3690: x_return_status => l_return_status);
3691: g_old_line_tbl.delete;
3692:
3693: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3694: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3695: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3696: RAISE FND_API.G_EXC_ERROR;
3697: END IF;
3698: END IF;
3691: g_old_line_tbl.delete;
3692:
3693: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3694: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3695: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3696: RAISE FND_API.G_EXC_ERROR;
3697: END IF;
3698: END IF;
3699: END IF;
3692:
3693: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3694: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3695: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3696: RAISE FND_API.G_EXC_ERROR;
3697: END IF;
3698: END IF;
3699: END IF;
3700:
3741: X_Return_Status => l_return_status,
3742: x_msg_count => x_msg_count,
3743: x_msg_data => x_msg_data);
3744:
3745: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3746: IF l_debug_level > 0 THEN
3747: oe_debug_pub.add( 'INTO UNEXPECTED ERROR' , 1 ) ;
3748: END IF;
3749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3745: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3746: IF l_debug_level > 0 THEN
3747: oe_debug_pub.add( 'INTO UNEXPECTED ERROR' , 1 ) ;
3748: END IF;
3749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3750: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3751: IF l_debug_level > 0 THEN
3752: oe_debug_pub.add( 'INTO EXPECTED ERROR' , 1 ) ;
3753: END IF;
3746: IF l_debug_level > 0 THEN
3747: oe_debug_pub.add( 'INTO UNEXPECTED ERROR' , 1 ) ;
3748: END IF;
3749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3750: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3751: IF l_debug_level > 0 THEN
3752: oe_debug_pub.add( 'INTO EXPECTED ERROR' , 1 ) ;
3753: END IF;
3754: RAISE FND_API.G_EXC_ERROR;
3750: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3751: IF l_debug_level > 0 THEN
3752: oe_debug_pub.add( 'INTO EXPECTED ERROR' , 1 ) ;
3753: END IF;
3754: RAISE FND_API.G_EXC_ERROR;
3755: END IF;
3756:
3757: /* FOR I IN 1 .. L_line_Tbl.Count
3758: LOOP
3846: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .SHIP_FROM_ORG_ID ) ;
3847: END IF;
3848: end loop;
3849: oe_order_pvt.Lines
3850: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
3851: , p_control_rec => l_control_rec
3852: , p_x_line_tbl => l_line_tbl
3853: , p_x_old_line_tbl => l_old_line_tbl
3854: , x_return_status => l_return_status
3853: , p_x_old_line_tbl => l_old_line_tbl
3854: , x_return_status => l_return_status
3855:
3856: );
3857: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3859: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3860: RAISE FND_API.G_EXC_ERROR;
3861: END IF;
3854: , x_return_status => l_return_status
3855:
3856: );
3857: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3859: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3860: RAISE FND_API.G_EXC_ERROR;
3861: END IF;
3862:
3855:
3856: );
3857: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3859: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3860: RAISE FND_API.G_EXC_ERROR;
3861: END IF;
3862:
3863: /* jolin start comment out nocopy for notification project
3856: );
3857: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3859: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3860: RAISE FND_API.G_EXC_ERROR;
3861: END IF;
3862:
3863: /* jolin start comment out nocopy for notification project
3864:
3875:
3876: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
3877: g_set_recursive_flag := FALSE;
3878:
3879: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3880: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3881: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3882: RAISE FND_API.G_EXC_ERROR;
3883: END IF;
3876: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
3877: g_set_recursive_flag := FALSE;
3878:
3879: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3880: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3881: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3882: RAISE FND_API.G_EXC_ERROR;
3883: END IF;
3884: END IF; -- FUlfillment set
3877: g_set_recursive_flag := FALSE;
3878:
3879: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3880: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3881: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3882: RAISE FND_API.G_EXC_ERROR;
3883: END IF;
3884: END IF; -- FUlfillment set
3885:
3878:
3879: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3880: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3881: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3882: RAISE FND_API.G_EXC_ERROR;
3883: END IF;
3884: END IF; -- FUlfillment set
3885:
3886: END IF; -- Line count
3895: );
3896:
3897: EXCEPTION
3898:
3899: WHEN FND_API.G_EXC_ERROR THEN
3900:
3901: x_return_status := FND_API.G_RET_STS_ERROR;
3902:
3903: -- Get message count and data
3897: EXCEPTION
3898:
3899: WHEN FND_API.G_EXC_ERROR THEN
3900:
3901: x_return_status := FND_API.G_RET_STS_ERROR;
3902:
3903: -- Get message count and data
3904:
3905:
3914: IF l_debug_level > 0 THEN
3915: oe_debug_pub.add( 'AFTER ROLLING BACK' , 1 ) ;
3916: END IF;
3917:
3918: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3919:
3920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3921: -- Get message count and data
3922:
3916: END IF;
3917:
3918: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3919:
3920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3921: -- Get message count and data
3922:
3923: oe_msg_pub.count_and_get
3924: ( p_count => x_msg_count
3933: oe_debug_pub.add( 'AFTER ROLLING BACK' , 1 ) ;
3934: END IF;
3935: WHEN OTHERS THEN
3936:
3937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3938:
3939: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
3940: THEN
3941: oe_msg_pub.Add_Exc_Msg
3984: BEGIN
3985: NULL;
3986: EXCEPTION
3987:
3988: WHEN FND_API.G_EXC_ERROR THEN
3989:
3990: x_return_status := FND_API.G_RET_STS_ERROR;
3991:
3992: -- Get message count and data
3986: EXCEPTION
3987:
3988: WHEN FND_API.G_EXC_ERROR THEN
3989:
3990: x_return_status := FND_API.G_RET_STS_ERROR;
3991:
3992: -- Get message count and data
3993:
3994:
3996: ( p_count => x_msg_count
3997: , p_data => x_msg_data
3998: );
3999:
4000: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4001:
4002: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4003: -- Get message count and data
4004:
3998: );
3999:
4000: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4001:
4002: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4003: -- Get message count and data
4004:
4005: oe_msg_pub.count_and_get
4006: ( p_count => x_msg_count
4007: , p_data => x_msg_data
4008: );
4009: WHEN OTHERS THEN
4010:
4011: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4012:
4013: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
4014: THEN
4015: oe_msg_pub.Add_Exc_Msg
4043: arrival_set_id IS NOT NULL AND
4044: rownum = 1;
4045: NULL;
4046: EXCEPTION
4047: WHEN FND_API.G_EXC_ERROR THEN
4048:
4049: RAISE FND_API.G_EXC_ERROR;
4050: WHEN NO_DATA_FOUND THEN
4051:
4045: NULL;
4046: EXCEPTION
4047: WHEN FND_API.G_EXC_ERROR THEN
4048:
4049: RAISE FND_API.G_EXC_ERROR;
4050: WHEN NO_DATA_FOUND THEN
4051:
4052: x_arrival_set_id := NULL;
4053:
4054:
4055: END Validate_multi_arr_set;
4056:
4057:
4058: Procedure Update_Options(p_ato_line_id IN NUMBER := FND_API.G_MISS_NUM,
4059: p_config_line_id IN NUMBER := FND_API.G_MISS_NUM,
4060: p_set_id IN NUMBER,
4061: p_set_type IN VARCHAR2 )IS
4062: stmt_str varchar2(2000);
4055: END Validate_multi_arr_set;
4056:
4057:
4058: Procedure Update_Options(p_ato_line_id IN NUMBER := FND_API.G_MISS_NUM,
4059: p_config_line_id IN NUMBER := FND_API.G_MISS_NUM,
4060: p_set_id IN NUMBER,
4061: p_set_type IN VARCHAR2 )IS
4062: stmt_str varchar2(2000);
4063: Parent_line_id Number ;
4074: ELSE
4075: column1 := 'ARRIVAL_SET_ID';
4076: END IF;
4077:
4078: IF (p_ato_line_id = FND_API.G_MISS_NUM OR
4079: p_ato_line_id IS NULL ) THEN
4080: column2 := 'CONFIG_LINE_ID';
4081: parent_line_id := p_config_line_id;
4082: ELSE
4122: IF l_debug_level > 0 THEN
4123: oe_debug_pub.add( 'ENTER GET SET ID' ) ;
4124: END IF;
4125: IF (p_x_line_rec.item_type_code IS NULL OR
4126: p_x_line_rec.item_type_code = FND_API.G_MISS_CHAR) AND
4127: p_x_line_rec.operation = oe_globals.g_opr_create THEN
4128: IF l_debug_level > 0 THEN
4129: oe_debug_pub.add( 'ENTER ITEM TYPE CODE NULL' ) ;
4130: END IF;
4128: IF l_debug_level > 0 THEN
4129: oe_debug_pub.add( 'ENTER ITEM TYPE CODE NULL' ) ;
4130: END IF;
4131:
4132: IF ( NVL(p_x_line_rec.top_model_line_id,FND_API.G_MISS_NUM)
4133: <> FND_API.G_MISS_NUM
4134: OR NVL(p_x_line_rec.top_model_line_index,FND_API.G_MISS_NUM)
4135: <> FND_API.G_MISS_NUM ) THEN
4136: IF ( p_x_line_rec.top_model_line_id <> FND_API.G_MISS_NUM
4129: oe_debug_pub.add( 'ENTER ITEM TYPE CODE NULL' ) ;
4130: END IF;
4131:
4132: IF ( NVL(p_x_line_rec.top_model_line_id,FND_API.G_MISS_NUM)
4133: <> FND_API.G_MISS_NUM
4134: OR NVL(p_x_line_rec.top_model_line_index,FND_API.G_MISS_NUM)
4135: <> FND_API.G_MISS_NUM ) THEN
4136: IF ( p_x_line_rec.top_model_line_id <> FND_API.G_MISS_NUM
4137: AND p_x_line_rec.top_model_line_id = p_x_line_rec.line_id )
4130: END IF;
4131:
4132: IF ( NVL(p_x_line_rec.top_model_line_id,FND_API.G_MISS_NUM)
4133: <> FND_API.G_MISS_NUM
4134: OR NVL(p_x_line_rec.top_model_line_index,FND_API.G_MISS_NUM)
4135: <> FND_API.G_MISS_NUM ) THEN
4136: IF ( p_x_line_rec.top_model_line_id <> FND_API.G_MISS_NUM
4137: AND p_x_line_rec.top_model_line_id = p_x_line_rec.line_id )
4138: OR ( p_x_line_rec.top_model_line_index <> FND_API.G_MISS_NUM
4131:
4132: IF ( NVL(p_x_line_rec.top_model_line_id,FND_API.G_MISS_NUM)
4133: <> FND_API.G_MISS_NUM
4134: OR NVL(p_x_line_rec.top_model_line_index,FND_API.G_MISS_NUM)
4135: <> FND_API.G_MISS_NUM ) THEN
4136: IF ( p_x_line_rec.top_model_line_id <> FND_API.G_MISS_NUM
4137: AND p_x_line_rec.top_model_line_id = p_x_line_rec.line_id )
4138: OR ( p_x_line_rec.top_model_line_index <> FND_API.G_MISS_NUM
4139: AND p_x_line_rec.top_model_line_index = p_index )
4132: IF ( NVL(p_x_line_rec.top_model_line_id,FND_API.G_MISS_NUM)
4133: <> FND_API.G_MISS_NUM
4134: OR NVL(p_x_line_rec.top_model_line_index,FND_API.G_MISS_NUM)
4135: <> FND_API.G_MISS_NUM ) THEN
4136: IF ( p_x_line_rec.top_model_line_id <> FND_API.G_MISS_NUM
4137: AND p_x_line_rec.top_model_line_id = p_x_line_rec.line_id )
4138: OR ( p_x_line_rec.top_model_line_index <> FND_API.G_MISS_NUM
4139: AND p_x_line_rec.top_model_line_index = p_index )
4140: THEN
4134: OR NVL(p_x_line_rec.top_model_line_index,FND_API.G_MISS_NUM)
4135: <> FND_API.G_MISS_NUM ) THEN
4136: IF ( p_x_line_rec.top_model_line_id <> FND_API.G_MISS_NUM
4137: AND p_x_line_rec.top_model_line_id = p_x_line_rec.line_id )
4138: OR ( p_x_line_rec.top_model_line_index <> FND_API.G_MISS_NUM
4139: AND p_x_line_rec.top_model_line_index = p_index )
4140: THEN
4141: IF l_debug_level > 0 THEN
4142: oe_debug_pub.add( 'TOP MODEL LINE' , 1 ) ;
4187:
4188: -- Lines that are of type external(drop ships) or shipped or any line that
4189: -- is not model standard and kit are not allowed to have set operations.
4190: IF p_x_line_rec.shipped_quantity IS NULL OR
4191: p_x_line_rec.shipped_quantity = FND_API.G_MISS_NUM THEN
4192: lshpqty := 0;
4193: ELSIF p_x_line_rec.shipped_quantity > 0 THEN
4194: lshpqty := 1;
4195: END IF;
4205: p_x_line_rec.line_id) OR
4206: (p_x_line_rec.item_type_code = 'STANDARD') OR
4207: (p_x_line_rec.item_type_code = 'SERVICE' AND
4208: p_x_line_rec.fulfillment_set IS NOT NULL AND
4209: p_x_line_rec.fulfillment_set <> FND_API.G_MISS_CHAR )
4210: OR
4211: (p_x_line_rec.item_type_code = 'KIT') OR
4212: (litemtypecode = 1) THEN
4213:
4222: IF l_debug_level > 0 THEN
4223: oe_debug_pub.add( 'BEFORE SETTING THE LINE '||P_X_LINE_REC.LINE_ID , 1 ) ;
4224: END IF;
4225: IF (p_x_line_rec.operation = oe_globals.g_opr_create AND
4226: (p_x_line_rec.line_id = FND_API.G_MISS_NUM OR
4227: p_x_line_rec.line_id IS NULL)) THEN
4228: IF l_debug_level > 0 THEN
4229: oe_debug_pub.add( 'BEFORE SETTING THE LINE -1' , 1 ) ;
4230: END IF;
4248:
4249: -- Populate the arrival_set_id and ship_set_id when names are populated.
4250: -- Bug fix 2527647
4251: IF p_x_line_rec.arrival_set IS NOT NULL
4252: AND p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR THEN
4253:
4254: IF Set_Exist(p_set_name => p_x_line_rec.arrival_set,
4255: p_set_type => 'ARRIVAL_SET',
4256: p_header_id => p_x_line_rec.header_id,
4261:
4262: END IF;
4263:
4264: ELSIF p_x_line_rec.ship_set IS NOT NULL
4265: AND p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR THEN
4266:
4267: IF Set_Exist(p_set_name => p_x_line_rec.ship_set,
4268: p_set_type => 'SHIP_SET',
4269: p_header_id => p_x_line_rec.header_id,
4285: -- set id to request a set operation.
4286: -- set id will be derived from set name if passed and if set already exists
4287:
4288: IF (p_x_line_rec.arrival_set IS NOT NULL AND
4289: p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR AND
4290: (p_x_line_rec.arrival_set_id IS NULL OR
4291: p_x_line_rec.arrival_set_id = FND_API.G_MISS_NUM)) OR
4292: (p_old_line_rec.arrival_set is not null AND
4293: p_old_line_rec.arrival_set <> FND_API.G_MISS_CHAR ) then
4287:
4288: IF (p_x_line_rec.arrival_set IS NOT NULL AND
4289: p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR AND
4290: (p_x_line_rec.arrival_set_id IS NULL OR
4291: p_x_line_rec.arrival_set_id = FND_API.G_MISS_NUM)) OR
4292: (p_old_line_rec.arrival_set is not null AND
4293: p_old_line_rec.arrival_set <> FND_API.G_MISS_CHAR ) then
4294: IF l_debug_level > 0 THEN
4295: oe_debug_pub.add( 'ARRIVAL SET CREATION' , 1 ) ;
4289: p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR AND
4290: (p_x_line_rec.arrival_set_id IS NULL OR
4291: p_x_line_rec.arrival_set_id = FND_API.G_MISS_NUM)) OR
4292: (p_old_line_rec.arrival_set is not null AND
4293: p_old_line_rec.arrival_set <> FND_API.G_MISS_CHAR ) then
4294: IF l_debug_level > 0 THEN
4295: oe_debug_pub.add( 'ARRIVAL SET CREATION' , 1 ) ;
4296: END IF;
4297:
4304: -- arise while cascading scheduling attributes since there are ovelapping
4305: -- set attributes in arrival and ship sets.
4306:
4307: IF (p_x_line_rec.ship_set_id IS NOT NULL AND
4308: p_x_line_rec.ship_set_id <> FND_API.G_MISS_NUM ) OR
4309: (p_x_line_rec.ship_set IS NOT NULL AND
4310: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR) THEN
4311:
4312:
4306:
4307: IF (p_x_line_rec.ship_set_id IS NOT NULL AND
4308: p_x_line_rec.ship_set_id <> FND_API.G_MISS_NUM ) OR
4309: (p_x_line_rec.ship_set IS NOT NULL AND
4310: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR) THEN
4311:
4312:
4313: /* Changed the message to fix the bug 2862565 */
4314: -- FND_MESSAGE.Set_Name('ONT', 'OE_INVALID_SET_COMB');
4314: -- FND_MESSAGE.Set_Name('ONT', 'OE_INVALID_SET_COMB');
4315: FND_MESSAGE.Set_Name('ONT','OE_SCH_NOT_IN_SHIP_ARR');
4316: /* Changed the message to fix the bug 2862565 */
4317: oe_msg_pub.add;
4318: RAISE FND_API.G_EXC_ERROR;
4319:
4320: /*IF Set_Exist(p_set_name => p_x_line_rec.arrival_set,
4321: p_set_type => 'ARRIVAL_SET',
4322: p_header_id =>p_x_line_rec.header_id,
4333: IF x_arrival_set_id IS NOT NULL AND
4334: nvl(l_set_id,-99) <> x_arrival_set_id THEN
4335: FND_MESSAGE.Set_Name('ONT', 'OE_INVALID_SET_COMB');
4336: oe_msg_pub.add;
4337: RAISE FND_API.G_EXC_ERROR;
4338: END IF; */
4339:
4340: END IF; -- If ship set id
4341:
4352: fnd_message.set_name('ONT', 'OE_SET_CLOSED');
4353: FND_MESSAGE.SET_TOKEN('SET',
4354: l_set_rec.set_name);
4355: oe_msg_pub.add;
4356: RAISE FND_API.G_EXC_ERROR;
4357: END IF;
4358:
4359: -- If set exists and line is getting inserted into an existing set then
4360: -- default set attributes.
4432: -- This logic will add an entry into global table if already not exists one
4433:
4434: IF p_x_line_rec.operation = oe_globals.g_opr_create THEN
4435: IF (p_x_line_rec.line_id IS NOT NULL AND
4436: p_x_line_rec.line_id <> FND_API.G_MISS_NUM ) THEN
4437: g_set_tbl(I).line_id := p_x_line_rec.line_id;
4438: ELSE
4439: g_set_tbl(I).line_id := p_index;
4440: g_set_tbl(I).operation := 'C';
4459:
4460: -- This login will work off the set id if user chooses to pass setid
4461:
4462: ELSIF (p_x_line_rec.arrival_set_id IS NOT NULL AND
4463: p_x_line_rec.arrival_set_id <> FND_API.G_MISS_NUM) then
4464: IF l_debug_level > 0 THEN
4465: oe_debug_pub.add( 'IN ARRIVAL SET ID' , 1 ) ;
4466: END IF;
4467:
4509: -- If user is trying to remove the line from the set and if its a model then
4510: -- all the options need be removed
4511:
4512: ELSIF (p_old_line_rec.arrival_set_id IS NOT NULL AND
4513: p_old_line_rec.arrival_set_id <> FND_API.G_MISS_NUM) AND
4514: (p_x_line_rec.arrival_set_id IS NULL)then
4515: IF (p_x_line_rec.top_model_line_id = p_x_line_rec.line_id) THEN
4516: IF l_debug_level > 0 THEN
4517: oe_debug_pub.add( 'IN REMOVE OF ARRIVAL SET' , 1 ) ;
4558: oe_debug_pub.add( 'WHAT THE HEC ' , 1 ) ;
4559: END IF;
4560:
4561: IF (p_x_line_rec.ship_set IS NOT NULL AND
4562: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR)OR
4563: ( p_old_line_rec.ship_set is not null AND
4564: p_old_line_rec.ship_set <> FND_API.G_MISS_CHAR) then
4565: IF l_debug_level > 0 THEN
4566: oe_debug_pub.add( 'BEFORE SHIP SET NAME' ) ;
4560:
4561: IF (p_x_line_rec.ship_set IS NOT NULL AND
4562: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR)OR
4563: ( p_old_line_rec.ship_set is not null AND
4564: p_old_line_rec.ship_set <> FND_API.G_MISS_CHAR) then
4565: IF l_debug_level > 0 THEN
4566: oe_debug_pub.add( 'BEFORE SHIP SET NAME' ) ;
4567: END IF;
4568: IF Set_Exist(p_set_name =>p_x_line_rec.ship_set,
4577: fnd_message.set_name('ONT', 'OE_SET_CLOSED');
4578: FND_MESSAGE.SET_TOKEN('SET',
4579: l_set_rec.set_name);
4580: oe_msg_pub.add;
4581: RAISE FND_API.G_EXC_ERROR;
4582: END IF;
4583: p_x_line_rec.ship_to_org_id := l_set_rec.ship_to_org_id;
4584: p_x_line_rec.ship_from_org_id := l_set_rec.ship_from_org_id;
4585: p_x_line_rec.schedule_ship_date := l_set_rec.schedule_ship_date;
4690: oe_debug_pub.add( 'NOT EXISTS' ) ;
4691: END IF;
4692: IF p_x_line_rec.operation = oe_globals.g_opr_create THEN
4693: IF (p_x_line_rec.line_id IS NOT NULL AND
4694: p_x_line_rec.line_id <> FND_API.G_MISS_NUM ) THEN
4695: g_set_tbl(I).line_id := p_x_line_rec.line_id;
4696: ELSE
4697: g_set_tbl(I).line_id := p_index;
4698: g_set_tbl(I).operation := 'C';
4710:
4711: p_x_line_rec.ship_set_id := NULL;
4712: END IF;
4713: ELSIF (p_x_line_rec.ship_set_id IS NOT NULL AND
4714: p_x_line_rec.ship_set_id <> FND_API.G_MISS_NUM)THEN
4715: IF NOT OE_GLOBALS.Equal(p_x_line_rec.ship_set_id,p_old_line_rec.ship_set_id)
4716: THEN
4717: IF l_debug_level > 0 THEN
4718: oe_debug_pub.add( 'ITEM TYPE CODE' || P_X_LINE_REC.SHIP_SET_ID ) ;
4753: END IF;
4754: END IF;
4755: END IF;
4756: ELSIF (p_old_line_rec.ship_set_id IS NOT NULL AND
4757: p_old_line_rec.ship_set_id <> FND_API.G_MISS_NUM) AND
4758: (p_x_line_rec.ship_set_id IS NULL)then
4759: IF (p_x_line_rec.top_model_line_id = p_x_line_rec.line_id) THEN
4760:
4761: IF g_set_opt_tbl.count > 0 THEN
4793:
4794: -- Fulfillment sets will have the similar logic as arrival sets
4795:
4796: IF (p_x_line_rec.fulfillment_set IS NOT NULL AND
4797: p_x_line_rec.fulfillment_set <> FND_API.G_MISS_CHAR)THEN
4798:
4799: IF l_debug_level > 0 THEN
4800: oe_debug_pub.add( 'INTO FULLFILLMENT SETS ' ) ;
4801: END IF;
4846: oe_debug_pub.add( 'NOT EXISTS' ) ;
4847: END IF;
4848: IF p_x_line_rec.operation = oe_globals.g_opr_create THEN
4849: IF (p_x_line_rec.line_id IS NOT NULL AND
4850: p_x_line_rec.line_id <> FND_API.G_MISS_NUM ) THEN
4851: g_set_tbl(I).line_id := p_x_line_rec.line_id;
4852: ELSE
4853: g_set_tbl(I).line_id := p_index;
4854: g_set_tbl(I).operation := 'C';
4865: IF l_debug_level > 0 THEN
4866: oe_debug_pub.add( 'EXIT FULLFILLMENT SET ' ) ;
4867: END IF;
4868: ELSIF (p_x_line_rec.fulfillment_set_id IS NOT NULL AND
4869: p_x_line_rec.fulfillment_set_id <> FND_API.G_MISS_NUM)THEN
4870: IF NOT OE_GLOBALS.Equal(p_x_line_rec.fulfillment_set_id,p_old_line_rec.fulfillment_set_id)
4871: THEN
4872:
4873: IF NOT Set_Exist(p_set_id => p_x_line_rec.fulfillment_set_id) THEN
4912: oe_debug_pub.add( 'NOT EXISTS' ) ;
4913: END IF;
4914: IF p_x_line_rec.operation = oe_globals.g_opr_create THEN
4915: IF (p_x_line_rec.line_id IS NOT NULL AND
4916: p_x_line_rec.line_id <> FND_API.G_MISS_NUM ) THEN
4917: g_set_tbl(I).line_id := p_x_line_rec.line_id;
4918: ELSE
4919: g_set_tbl(I).line_id := p_index;
4920: g_set_tbl(I).operation := 'C';
4950: END IF;
4951: END IF;
4952: END IF;
4953: ELSIF (p_old_line_rec.fulfillment_set_id IS NOT NULL AND
4954: p_old_line_rec.fulfillment_set_id <> FND_API.G_MISS_NUM) AND
4955: (p_x_line_rec.fulfillment_set_id IS NULL)then
4956: IF (p_x_line_rec.top_model_line_id = p_x_line_rec.line_id) THEN
4957:
4958: IF g_set_opt_tbl.count > 0 THEN
4984: OR
4985: NOT OE_GLOBALS.Equal(p_x_line_rec.ship_set_id,p_old_line_rec.ship_set_id)
4986: OR
4987: (p_x_line_rec.arrival_set IS NOT NULL AND
4988: p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR)
4989: OR
4990: (p_x_line_rec.ship_set IS NOT NULL AND
4991: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR)
4992: THEN
4987: (p_x_line_rec.arrival_set IS NOT NULL AND
4988: p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR)
4989: OR
4990: (p_x_line_rec.ship_set IS NOT NULL AND
4991: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR)
4992: THEN
4993:
4994: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_SET_OPR');
4995: -- FND_MESSAGE.SET_TOKEN('ITEMTYPE',
4996: -- p_x_line_rec.item_type_code);
4997:
4998: OE_MSG_PUB.ADD;
4999: oe_debug_pub.add('Set- not allowed for this itemtype');
5000: RAISE FND_API.G_EXC_ERROR;
5001:
5002: END IF;
5003: */
5004:
5003: */
5004:
5005: -- Added this part of the code to fix bug 2116353.
5006: IF p_x_line_rec.arrival_set IS NOT NULL
5007: AND p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR
5008: AND p_x_line_rec.arrival_set_id IS NULL THEN
5009:
5010: IF Set_Exist(p_set_name => p_x_line_rec.arrival_set,
5011: p_set_type => 'ARRIVAL_SET',
5017:
5018: END IF;
5019:
5020: ELSIF p_x_line_rec.ship_set IS NOT NULL
5021: AND p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR
5022: AND p_x_line_rec.ship_set_id IS NULL THEN
5023:
5024: IF Set_Exist(p_set_name => p_x_line_rec.ship_set,
5025: p_set_type => 'SHIP_SET',
5066:
5067: END IF; -- Recursive Flag
5068:
5069: EXCEPTION
5070: WHEN FND_API.G_EXC_ERROR THEN
5071:
5072: RAISE FND_API.G_EXC_ERROR;
5073:
5074:
5068:
5069: EXCEPTION
5070: WHEN FND_API.G_EXC_ERROR THEN
5071:
5072: RAISE FND_API.G_EXC_ERROR;
5073:
5074:
5075: WHEN OTHERS THEN
5076:
5081: , 'Get_Set_Id'
5082: );
5083: END IF;
5084:
5085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5086:
5087:
5088:
5089: END Get_Set_Id;
5117:
5118: IF
5119: (p_set_id IS NULL
5120: OR
5121: p_set_id = FND_API.G_MISS_NUM)
5122: THEN
5123:
5124: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5125:
5120: OR
5121: p_set_id = FND_API.G_MISS_NUM)
5122: THEN
5123:
5124: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5125:
5126: END IF;
5127:
5128: Begin
5133: Where set_id = p_set_id;
5134: Exception
5135: When Others Then
5136:
5137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5138: END;
5139: FOR C1REC in C1 LOOP
5140: oe_line_util.query_row(p_line_id => c1rec.line_id,
5141: x_line_rec => l_line_rec);
5147:
5148: IF
5149: (p_set_id IS NOT NULL
5150: AND
5151: p_set_id <> FND_API.G_MISS_NUM)
5152: AND
5153: (x_line_tbl.COUNT = 0)
5154: THEN
5155: RAISE NO_DATA_FOUND;
5163:
5164:
5165: EXCEPTION
5166:
5167: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5168:
5169: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5170:
5171: WHEN OTHERS THEN
5165: EXCEPTION
5166:
5167: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5168:
5169: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5170:
5171: WHEN OTHERS THEN
5172:
5173: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5177: , 'Query_Set_Rows'
5178: );
5179: END IF;
5180:
5181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5182:
5183: END Query_Set_Rows;
5184:
5185: PROCEDURE Create_line_Set(p_x_line_rec IN OUT NOCOPY OE_ORDER_PUB.LINE_REC_TYPE
5240: END IF;
5241:
5242:
5243: EXCEPTION
5244: WHEN FND_API.G_EXC_ERROR THEN
5245:
5246: RAISE FND_API.G_EXC_ERROR;
5247:
5248:
5242:
5243: EXCEPTION
5244: WHEN FND_API.G_EXC_ERROR THEN
5245:
5246: RAISE FND_API.G_EXC_ERROR;
5247:
5248:
5249: WHEN OTHERS THEN
5250: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5253: ( G_PKG_NAME ,
5254: 'create_line_set'
5255: );
5256: END IF;
5257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5258:
5259: END Create_Line_Set;
5260:
5261: Procedure Process_Sets(p_x_line_tbl IN OUT NOCOPY OE_ORDER_PUB.LINE_TBL_TYPE
5459: OE_MSG_PUB.ADD;
5460: IF l_debug_level > 0 THEN
5461: oe_debug_pub.add( 'SET- NOT ALLOWED FOR THIS ITEMTYPE' ) ;
5462: END IF;
5463: --RAISE FND_API.G_EXC_ERROR;
5464: g_set_tbl(I).process_flag := 'Y' ;
5465: END IF;
5466: END IF;
5467:
5600: OE_MSG_PUB.ADD;
5601: IF l_debug_level > 0 THEN
5602: oe_debug_pub.add( 'SET- NOT ALLOWED FOR THIS ITEMTYPE' ) ;
5603: END IF;
5604: --RAISE FND_API.G_EXC_ERROR;
5605: g_set_tbl(J).process_flag := 'Y' ;
5606: END IF;
5607: IF l_debug_level > 0 THEN
5608: oe_debug_pub.add( 'PROCES FLAG- J:' || G_SET_TBL ( J ) .PROCESS_FLAG ) ;
5643: --l_line_tbl(l_count).schedule_arrival_date := l_schedule_arrival_date;
5644: -- l_line_tbl(l_count).freight_carrier_code := l_freight_carrier_code;
5645: ELSIF g_set_tbl(J).set_type = 'ARRIVAL_SET' THEN
5646: IF (l_line_tbl(l_count).ship_set_id IS NOT NULL AND
5647: l_line_tbl(l_count).ship_set_id <> FND_API.G_MISS_NUM) THEN
5648:
5649: IF Set_Exist(p_set_name =>g_set_tbl(J).set_name,
5650: p_set_type => 'ARRIVAL_SET',
5651: p_header_id =>l_line_tbl(l_count).header_id,
5665: -- FND_MESSAGE.Set_Name('ONT', 'OE_INVALID_SET_COMB');
5666: FND_MESSAGE.Set_Name('ONT','OE_SCH_NOT_IN_SHIP_ARR');
5667: /* Changed the message to fix the bug 2862565 */
5668: oe_msg_pub.add;
5669: RAISE FND_API.G_EXC_ERROR;
5670: END IF;
5671:
5672: END IF;
5673:
5764:
5765: IF l_debug_level > 0 THEN
5766: oe_debug_pub.add( 'AFTER GROUP SCHEDULING' , 1 ) ;
5767: END IF;
5768: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5769: IF l_debug_level > 0 THEN
5770: oe_debug_pub.add( 'RETURNSTATUS UNEXPECTED SCHEDULING' , 1 ) ;
5771: END IF;
5772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5768: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5769: IF l_debug_level > 0 THEN
5770: oe_debug_pub.add( 'RETURNSTATUS UNEXPECTED SCHEDULING' , 1 ) ;
5771: END IF;
5772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5773: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5774: IF l_debug_level > 0 THEN
5775: oe_debug_pub.add( 'RETURNSTATUS ERROR SCHEDULING' , 1 ) ;
5776: END IF;
5769: IF l_debug_level > 0 THEN
5770: oe_debug_pub.add( 'RETURNSTATUS UNEXPECTED SCHEDULING' , 1 ) ;
5771: END IF;
5772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5773: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5774: IF l_debug_level > 0 THEN
5775: oe_debug_pub.add( 'RETURNSTATUS ERROR SCHEDULING' , 1 ) ;
5776: END IF;
5777: RAISE FND_API.G_EXC_ERROR;
5773: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5774: IF l_debug_level > 0 THEN
5775: oe_debug_pub.add( 'RETURNSTATUS ERROR SCHEDULING' , 1 ) ;
5776: END IF;
5777: RAISE FND_API.G_EXC_ERROR;
5778: END IF;
5779: --l_header_id := l_line_tbl(1).header_id;
5780: IF l_set_type = 'SHIP_SET' THEN
5781: l_ship_from_org_id := l_line_tbl(1).ship_from_org_id;
5815: X_Return_Status => l_return_status,
5816: x_msg_count => x_msg_count,
5817: x_msg_data => x_msg_data);
5818:
5819: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5821: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5822: RAISE FND_API.G_EXC_ERROR;
5823: END IF;
5816: x_msg_count => x_msg_count,
5817: x_msg_data => x_msg_data);
5818:
5819: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5821: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5822: RAISE FND_API.G_EXC_ERROR;
5823: END IF;
5824:
5817: x_msg_data => x_msg_data);
5818:
5819: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5821: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5822: RAISE FND_API.G_EXC_ERROR;
5823: END IF;
5824:
5825: IF l_set_type = 'FULFILLMENT_SET' THEN
5818:
5819: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5821: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5822: RAISE FND_API.G_EXC_ERROR;
5823: END IF;
5824:
5825: IF l_set_type = 'FULFILLMENT_SET' THEN
5826: IF l_debug_level > 0 THEN
5886: p_Freight_Carrier_Code => l_line_tbl(K).Freight_Carrier_Code,
5887: p_Shipping_Method_Code => l_line_tbl(K).Shipping_Method_Code,
5888: X_Return_Status => l_return_status);*/
5889:
5890: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5891: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5892: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5893: RAISE FND_API.G_EXC_ERROR;
5894: END IF;
5887: p_Shipping_Method_Code => l_line_tbl(K).Shipping_Method_Code,
5888: X_Return_Status => l_return_status);*/
5889:
5890: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5891: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5892: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5893: RAISE FND_API.G_EXC_ERROR;
5894: END IF;
5895: END IF;
5888: X_Return_Status => l_return_status);*/
5889:
5890: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5891: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5892: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5893: RAISE FND_API.G_EXC_ERROR;
5894: END IF;
5895: END IF;
5896: END LOOP;
5889:
5890: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5891: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5892: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5893: RAISE FND_API.G_EXC_ERROR;
5894: END IF;
5895: END IF;
5896: END LOOP;
5897:
5924: END IF;
5925:
5926:
5927: oe_order_pvt.Lines
5928: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
5929: , p_control_rec => l_control_rec
5930: , p_x_line_tbl => l_line_tbl
5931: , p_x_old_line_tbl => g_old_line_tbl
5932: , x_return_status => l_return_status
5931: , p_x_old_line_tbl => g_old_line_tbl
5932: , x_return_status => l_return_status
5933:
5934: );
5935: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5936: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5937: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5938: RAISE FND_API.G_EXC_ERROR;
5939: END IF;
5932: , x_return_status => l_return_status
5933:
5934: );
5935: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5936: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5937: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5938: RAISE FND_API.G_EXC_ERROR;
5939: END IF;
5940:
5933:
5934: );
5935: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5936: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5937: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5938: RAISE FND_API.G_EXC_ERROR;
5939: END IF;
5940:
5941: /* jolin start comment out nocopy for notification project
5934: );
5935: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5936: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5937: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5938: RAISE FND_API.G_EXC_ERROR;
5939: END IF;
5940:
5941: /* jolin start comment out nocopy for notification project
5942:
5961: oe_debug_pub.add( 'AFTER CALLING PROCESS ORDER IN SETS-1' ) ;
5962: END IF;
5963: g_set_recursive_flag := FALSE;
5964:
5965: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
5966: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
5967: END IF;
5968:
5969:
6023: END IF;
6024:
6025:
6026: EXCEPTION
6027: WHEN FND_API.G_EXC_ERROR THEN
6028:
6029: RAISE FND_API.G_EXC_ERROR;
6030:
6031: WHEN OTHERS THEN
6025:
6026: EXCEPTION
6027: WHEN FND_API.G_EXC_ERROR THEN
6028:
6029: RAISE FND_API.G_EXC_ERROR;
6030:
6031: WHEN OTHERS THEN
6032:
6033: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6037: 'Process Sets'
6038: );
6039: END IF;
6040:
6041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6042:
6043:
6044:
6045: END Process_Sets;
6203: (p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE and
6204: p_x_line_rec.split_from_line_id is NOT NULL)) then
6205:
6206: IF ((p_x_line_rec.arrival_set is not null AND
6207: p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR) OR
6208: (p_x_line_rec.arrival_set_id is not null AND
6209: p_x_line_rec.arrival_set_id <> FND_API.G_MISS_NUM))
6210: AND ((p_x_line_rec.ship_set is not null AND
6211: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR) OR
6205:
6206: IF ((p_x_line_rec.arrival_set is not null AND
6207: p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR) OR
6208: (p_x_line_rec.arrival_set_id is not null AND
6209: p_x_line_rec.arrival_set_id <> FND_API.G_MISS_NUM))
6210: AND ((p_x_line_rec.ship_set is not null AND
6211: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR) OR
6212: (p_x_line_rec.ship_set_id is not null AND
6213: p_x_line_rec.ship_set_id <> FND_API.G_MISS_NUM))
6207: p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR) OR
6208: (p_x_line_rec.arrival_set_id is not null AND
6209: p_x_line_rec.arrival_set_id <> FND_API.G_MISS_NUM))
6210: AND ((p_x_line_rec.ship_set is not null AND
6211: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR) OR
6212: (p_x_line_rec.ship_set_id is not null AND
6213: p_x_line_rec.ship_set_id <> FND_API.G_MISS_NUM))
6214: THEN
6215:
6209: p_x_line_rec.arrival_set_id <> FND_API.G_MISS_NUM))
6210: AND ((p_x_line_rec.ship_set is not null AND
6211: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR) OR
6212: (p_x_line_rec.ship_set_id is not null AND
6213: p_x_line_rec.ship_set_id <> FND_API.G_MISS_NUM))
6214: THEN
6215:
6216: IF l_debug_level > 0 THEN
6217: oe_debug_pub.add( 'INVALID SER OPR' , 2 ) ;
6217: oe_debug_pub.add( 'INVALID SER OPR' , 2 ) ;
6218: END IF;
6219: FND_MESSAGE.Set_Name('ONT', 'OE_SCH_NOT_IN_SHIP_ARR'); -- 2724197 New message added
6220: oe_msg_pub.add;
6221: RAISE FND_API.G_EXC_ERROR;
6222:
6223: END IF; -- not both sets populated.
6224:
6225: -- QUOTING Changes - default line set only for lines in fulfillment phase
6306: IF l_debug_level > 0 THEN
6307: oe_debug_pub.add( 'Return Status '|| l_return_status , 1 ) ;
6308: END IF;
6309:
6310: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6311: p_x_line_rec.ship_set_id := Null;
6312: GOTO NO_PROCESS;
6313: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6309:
6310: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6311: p_x_line_rec.ship_set_id := Null;
6312: GOTO NO_PROCESS;
6313: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6315: END IF;
6316:
6317: END IF;
6310: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6311: p_x_line_rec.ship_set_id := Null;
6312: GOTO NO_PROCESS;
6313: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6315: END IF;
6316:
6317: END IF;
6318:
6420: -- Check if the set name is populated and it is a new set
6421: -- Process for arrival sets
6422:
6423: IF (p_x_line_rec.arrival_set IS NOT NULL AND
6424: p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR) THEN
6425:
6426: IF l_debug_level > 0 THEN
6427: oe_debug_pub.add( 'INTO ARRIVAL SET'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6428: END IF;
6528: -- Begin the logic for Ship sets . The logic must go in the same way as
6529: -- arrival sets and is no different execept for set type being SHIP SET
6530:
6531: ELSIF (p_x_line_rec.ship_set IS NOT NULL AND
6532: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR) THEN
6533:
6534: -- Check if this is existing set
6535: IF Set_Exist(p_set_name => p_x_line_rec.ship_set,
6536: p_set_type => 'SHIP_SET',
6649: /* Re Initialize the customer preference to false if it was set in the above
6650: if condition */
6651: g_cust_pref_set := FALSE;
6652:
6653: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6655: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6656: RAISE FND_API.G_EXC_ERROR;
6657: END IF;
6650: if condition */
6651: g_cust_pref_set := FALSE;
6652:
6653: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6655: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6656: RAISE FND_API.G_EXC_ERROR;
6657: END IF;
6658: -- Populate set id on the line record accordingly
6651: g_cust_pref_set := FALSE;
6652:
6653: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6655: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6656: RAISE FND_API.G_EXC_ERROR;
6657: END IF;
6658: -- Populate set id on the line record accordingly
6659: IF l_set_type = 'ARRIVAL_SET' THEN
6652:
6653: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6655: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6656: RAISE FND_API.G_EXC_ERROR;
6657: END IF;
6658: -- Populate set id on the line record accordingly
6659: IF l_set_type = 'ARRIVAL_SET' THEN
6660: p_x_line_rec.arrival_set_id := l_set_id;
6849: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
6850: p_requesting_entity_id => optionrec.line_id,
6851: p_request_type => OE_GLOBALS.G_UPDATE_SHIPPING,
6852: p_request_unique_key1 => OE_GLOBALS.G_OPR_UPDATE,
6853: p_param1 => FND_API.G_TRUE,
6854: x_return_status => l_return_status);
6855:
6856: END IF;
6857: End loop;
6871: AND p_x_line_rec.top_model_line_id <> p_x_line_rec.line_id)
6872: AND p_x_line_rec.top_model_line_id IS NOT NULL THEN
6873:
6874: IF p_x_line_rec.ship_set IS NOT NULL AND
6875: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR THEN
6876: IF oe_set_util.Set_Exist(p_set_name => p_x_line_rec.ship_set,
6877: p_set_type => 'SHIP_SET',
6878: p_header_id =>p_x_line_rec.header_id,
6879: x_set_id => p_x_line_rec.ship_set_id) THEN
6879: x_set_id => p_x_line_rec.ship_set_id) THEN
6880: null;
6881: END IF;
6882: ELSIF p_x_line_rec.arrival_set IS NOT NULL AND
6883: p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR THEN
6884: IF oe_set_util.Set_Exist(p_set_name => p_x_line_rec.arrival_set,
6885: p_set_type => 'ARRIVAL_SET',
6886: p_header_id =>p_x_line_rec.header_id,
6887: x_set_id => p_x_line_rec.arrival_set_id) THEN
6919: OE_MSG_PUB.ADD;
6920: IF l_debug_level > 0 THEN
6921: oe_debug_pub.add( 'SET- NOT ALLOWED FOR THIS ITEMTYPE' ) ;
6922: END IF;
6923: RAISE FND_API.G_EXC_ERROR;
6924: END IF;
6925:
6926:
6927: END IF;
7047: END IF;
7048:
7049:
7050: EXCEPTION
7051: WHEN FND_API.G_EXC_ERROR THEN
7052:
7053: RAISE FND_API.G_EXC_ERROR;
7054:
7055:
7049:
7050: EXCEPTION
7051: WHEN FND_API.G_EXC_ERROR THEN
7052:
7053: RAISE FND_API.G_EXC_ERROR;
7054:
7055:
7056: WHEN OTHERS THEN
7057:
7062: , 'Default_Line_Set'
7063: );
7064: END IF;
7065:
7066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7067:
7068:
7069:
7070:
7111: l_cascade_flag := 'N';
7112: l_ful_exists := 'N';
7113:
7114: IF (p_x_line_rec.fulfillment_set IS NOT NULL AND
7115: p_x_line_rec.fulfillment_set <> FND_API.G_MISS_CHAR)THEN
7116: IF Set_Exist(p_set_name =>p_x_line_rec.fulfillment_set,
7117: p_set_type => 'FULFILLMENT_SET',
7118: p_header_id =>p_x_line_rec.header_id,
7119: x_set_id => l_set_id) THEN
7215: , 'Validate_Fulfillment_Set'
7216: );
7217: END IF;
7218:
7219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7220:
7221: End Validate_Fulfillment_Set;
7222:
7223: -- 4026756
7240: oe_debug_pub.add( 'HEADER ID '||p_request_rec.param2 , 3 ) ;
7241: oe_debug_pub.add( 'SET TYPE'||p_request_rec.param3 , 3 ) ;
7242: oe_debug_pub.add( 'SET ID'||p_request_rec.param1 , 3 ) ;
7243: END IF;
7244: x_return_status := FND_API.G_RET_STS_SUCCESS;
7245: BEGIN
7246: IF p_request_rec.param3 = oe_schedule_util.OESCH_ENTITY_SHIP_SET THEN
7247: SELECT 1
7248: INTO l_dummy
7284: IF l_debug_level > 0 THEN
7285: oe_debug_pub.add( 'EXITING DELETE SET' , 3 ) ;
7286: END IF;
7287: EXCEPTION
7288: WHEN FND_API.G_EXC_ERROR THEN
7289: x_return_status := FND_API.G_RET_STS_ERROR;
7290:
7291: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7285: oe_debug_pub.add( 'EXITING DELETE SET' , 3 ) ;
7286: END IF;
7287: EXCEPTION
7288: WHEN FND_API.G_EXC_ERROR THEN
7289: x_return_status := FND_API.G_RET_STS_ERROR;
7290:
7291: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7293:
7287: EXCEPTION
7288: WHEN FND_API.G_EXC_ERROR THEN
7289: x_return_status := FND_API.G_RET_STS_ERROR;
7290:
7291: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7293:
7294: WHEN OTHERS THEN
7295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7288: WHEN FND_API.G_EXC_ERROR THEN
7289: x_return_status := FND_API.G_RET_STS_ERROR;
7290:
7291: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7293:
7294: WHEN OTHERS THEN
7295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7296:
7291: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7293:
7294: WHEN OTHERS THEN
7295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7296:
7297: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7298: THEN
7299: OE_MSG_PUB.Add_Exc_Msg