[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',
315: l_set_s := 'U' ;
316: oe_debug_pub.add('Error while locking Set status : '||SQLERRM);
317: fnd_message.set_name('ONT', 'OE_SET_LOCKED');
318: oe_msg_pub.add;
319: RAISE FND_API.G_EXC_ERROR ;
320: END;
321:
322: oe_debug_pub.add('Create_Fulfillment_Set:'||OE_Set_util.g_set_rec.set_status ||' l_set_s ' || l_set_s);
323:
327: fnd_message.set_name('ONT', 'OE_SET_CLOSED');
328: FND_MESSAGE.SET_TOKEN('SET',
329: l_set_rec.set_name);
330: oe_msg_pub.add;
331: RAISE FND_API.G_EXC_ERROR ;
332: END IF;
333:
334: Insert into oe_line_sets(
335: Line_id,
361: oe_debug_pub.add( 'EXIT - CREATE FULLFILLMENT SET' ) ;
362: END IF;
363:
364: EXCEPTION
365: WHEN FND_API.G_EXC_ERROR THEN
366:
367:
368: -- Get message count and data
369: oe_msg_pub.count_and_get
373: IF l_debug_level > 0 THEN
374: oe_debug_pub.add( 'IN FULFILLMENT CREATE EXCEPTION ' , 1 ) ;
375: END IF;
376:
377: RAISE FND_API.G_EXC_ERROR;
378:
379:
380: WHEN OTHERS THEN
381:
386: 'Create_Fulfillment_Set'
387: );
388: END IF;
389:
390: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
391:
392: End Create_Fulfillment_Set;
393:
394: /* Fulfill_Sts was added for 2525203 to get status of FULFILL_LINE activity */
417: IF l_debug_level > 0 THEN
418: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS , 5 ) ;
419: END IF;
420:
421: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
423: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS AND
424: nvl(l_activity_status,'ERROR') = 'NOTIFIED' THEN
425: NULL;
418: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS , 5 ) ;
419: END IF;
420:
421: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
423: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS AND
424: nvl(l_activity_status,'ERROR') = 'NOTIFIED' THEN
425: NULL;
426: ELSE
419: END IF;
420:
421: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
423: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS AND
424: nvl(l_activity_status,'ERROR') = 'NOTIFIED' THEN
425: NULL;
426: ELSE
427: l_activity_status := 'ERROR';
456: x_line_rec => l_line_rec);
457: IF (nvl(l_line_rec.fulfilled_flag,'N') = 'Y') THEN
458: fnd_message.set_name('ONT', 'OE_LINE_FULFILLED');
459: oe_msg_pub.add;
460: RAISE FND_API.G_EXC_ERROR ;
461: END IF;
462: 2525203 */
463:
464: /*Delete oe_line_sets
472: x_return_status => l_return_status,
473: p_fulfill_operation => 'Y',
474: p_set_id => p_set_id); -- p_set_id added for 2525203
475:
476: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
477: if l_return_status = FND_API.G_RET_STS_ERROR then
478: raise FND_API.G_EXC_ERROR;
479: else
480: raise FND_API.G_EXC_UNEXPECTED_ERROR;
473: p_fulfill_operation => 'Y',
474: p_set_id => p_set_id); -- p_set_id added for 2525203
475:
476: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
477: if l_return_status = FND_API.G_RET_STS_ERROR then
478: raise FND_API.G_EXC_ERROR;
479: else
480: raise FND_API.G_EXC_UNEXPECTED_ERROR;
481: end if;
474: p_set_id => p_set_id); -- p_set_id added for 2525203
475:
476: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
477: if l_return_status = FND_API.G_RET_STS_ERROR then
478: raise FND_API.G_EXC_ERROR;
479: else
480: raise FND_API.G_EXC_UNEXPECTED_ERROR;
481: end if;
482: end if;
476: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
477: if l_return_status = FND_API.G_RET_STS_ERROR then
478: raise FND_API.G_EXC_ERROR;
479: else
480: raise FND_API.G_EXC_UNEXPECTED_ERROR;
481: end if;
482: end if;
483:
484: -- 2695403
494: oe_debug_pub.add( 'EXIT - DELETE FULLFILLMENT SET' ) ;
495: END IF;
496:
497: EXCEPTION
498: WHEN FND_API.G_EXC_ERROR THEN
499:
500: RAISE FND_API.G_EXC_ERROR;
501:
502: WHEN OTHERS THEN
496:
497: EXCEPTION
498: WHEN FND_API.G_EXC_ERROR THEN
499:
500: RAISE FND_API.G_EXC_ERROR;
501:
502: WHEN OTHERS THEN
503:
504: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
508: 'Delete Fulfillment Set'
509: );
510: END IF;
511:
512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
513:
514: End Delete_Fulfillment_Set;
515:
516: FUNCTION Find_line(p_line_id IN NUMBER)
645: END IF;
646: IF l_debug_level > 0 THEN
647: oe_debug_pub.add( 'AFTER GROUP SCHEDULING' || L_OLD_LINE_TBL.COUNT , 1 ) ;
648: END IF;
649: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
650: IF l_debug_level > 0 THEN
651: oe_debug_pub.add( 'RETURNSTATUS UNEXPECTED SCHEDULING' , 1 ) ;
652: END IF;
653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
649: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
650: IF l_debug_level > 0 THEN
651: oe_debug_pub.add( 'RETURNSTATUS UNEXPECTED SCHEDULING' , 1 ) ;
652: END IF;
653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
654: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
655: IF l_debug_level > 0 THEN
656: oe_debug_pub.add( 'RETURNSTATUS ERROR SCHEDULING' , 1 ) ;
657: END IF;
650: IF l_debug_level > 0 THEN
651: oe_debug_pub.add( 'RETURNSTATUS UNEXPECTED SCHEDULING' , 1 ) ;
652: END IF;
653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
654: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
655: IF l_debug_level > 0 THEN
656: oe_debug_pub.add( 'RETURNSTATUS ERROR SCHEDULING' , 1 ) ;
657: END IF;
658: RAISE FND_API.G_EXC_ERROR;
654: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
655: IF l_debug_level > 0 THEN
656: oe_debug_pub.add( 'RETURNSTATUS ERROR SCHEDULING' , 1 ) ;
657: END IF;
658: RAISE FND_API.G_EXC_ERROR;
659: END IF;
660:
661: l_control_rec.controlled_operation := TRUE;
662: l_control_rec.write_to_db := TRUE;
681: end loop;
682: IF l_line_tbl.count > 0 THEN
683:
684: oe_order_pvt.Lines
685: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
686: , p_control_rec => l_control_rec
687: , p_x_line_tbl => l_line_tbl
688: , p_x_old_line_tbl => l_old_line_tbl
689: , x_return_status => l_return_status
688: , p_x_old_line_tbl => l_old_line_tbl
689: , x_return_status => l_return_status
690:
691: );
692: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
694: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
695: RAISE FND_API.G_EXC_ERROR;
696: END IF;
689: , x_return_status => l_return_status
690:
691: );
692: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
694: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
695: RAISE FND_API.G_EXC_ERROR;
696: END IF;
697:
690:
691: );
692: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
694: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
695: RAISE FND_API.G_EXC_ERROR;
696: END IF;
697:
698: /* jolin start comment out nocopy for notification project
691: );
692: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
694: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
695: RAISE FND_API.G_EXC_ERROR;
696: END IF;
697:
698: /* jolin start comment out nocopy for notification project
699:
720:
721: END LOOP;
722:
723: EXCEPTION
724: WHEN FND_API.G_EXC_ERROR THEN
725:
726: RAISE FND_API.G_EXC_ERROR;
727:
728: WHEN OTHERS THEN
722:
723: EXCEPTION
724: WHEN FND_API.G_EXC_ERROR THEN
725:
726: RAISE FND_API.G_EXC_ERROR;
727:
728: WHEN OTHERS THEN
729:
730: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
734: 'Process Options'
735: );
736: END IF;
737:
738: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
739:
740:
741: END Process_Options;
742:
782: l_line_id := p_x_line_tbl(p_index).line_id;
783: end if;
784: l_count := p_x_line_tbl.count + 1;
785: IF l_line_rec.line_id is null OR
786: l_line_rec.line_id = FND_API.G_MISS_NUM THEN
787: l_line_rec := p_x_line_tbl(p_index);
788: END IF;
789:
790: FOR Optionrec IN Optiontbl
854: oe_debug_pub.add( 'EXIT GET OPTIONS' ) ;
855: END IF;
856:
857: EXCEPTION
858: WHEN FND_API.G_EXC_ERROR THEN
859:
860: RAISE FND_API.G_EXC_ERROR;
861:
862: WHEN OTHERS THEN
856:
857: EXCEPTION
858: WHEN FND_API.G_EXC_ERROR THEN
859:
860: RAISE FND_API.G_EXC_ERROR;
861:
862: WHEN OTHERS THEN
863: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
864: THEN
866: ( G_PKG_NAME ,
867: 'Get_Options'
868: );
869: END IF;
870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
871: END Get_Options;
872:
873: -- This procedure is added for to seperate arrival sets from the ship set
874: -- logic given to DWL customer. The arrival set behaves the same
877:
878:
879: Procedure Insert_Into_arrival_Set
880: (p_Set_request_tbl oe_order_pub.Request_Tbl_Type,
881: p_Push_Set_Date IN VARCHAR2 := FND_API.G_FALSE,
882: X_Return_Status OUT NOCOPY VARCHAR2,
883:
884: x_msg_count OUT NOCOPY NUMBER,
885:
1231: g_old_line_tbl.delete;
1232: END IF;
1233: l_perform_sch := TRUE;
1234:
1235: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1236: IF l_debug_level > 0 THEN
1237: oe_debug_pub.add( ' SCHEDULING UNEXPECTED ERROR ' , 1 ) ;
1238: END IF;
1239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1235: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1236: IF l_debug_level > 0 THEN
1237: oe_debug_pub.add( ' SCHEDULING UNEXPECTED ERROR ' , 1 ) ;
1238: END IF;
1239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1240: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1241: IF l_debug_level > 0 THEN
1242: oe_debug_pub.add( ' EXPECTED ERROR ' , 1 ) ;
1243: END IF;
1236: IF l_debug_level > 0 THEN
1237: oe_debug_pub.add( ' SCHEDULING UNEXPECTED ERROR ' , 1 ) ;
1238: END IF;
1239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1240: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1241: IF l_debug_level > 0 THEN
1242: oe_debug_pub.add( ' EXPECTED ERROR ' , 1 ) ;
1243: END IF;
1244: l_sch_line_tbl.delete;
1244: l_sch_line_tbl.delete;
1245: l_sch_count := 0;
1246: goto END_2;
1247:
1248: -- RAISE FND_API.G_EXC_ERROR;
1249: END IF;
1250: -- END IF; -- Schedule Action Code
1251: IF l_debug_level > 0 THEN
1252: oe_debug_pub.add( 'AFTER CALLIN SCHEDULING ' , 1 ) ;
1333: x_Set_Id => l_set_id,
1334: X_Return_Status => l_return_status,
1335: x_msg_count => x_msg_count,
1336: x_msg_data => x_msg_data);
1337: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1339: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1340: RAISE FND_API.G_EXC_ERROR;
1341: END IF;
1334: X_Return_Status => l_return_status,
1335: x_msg_count => x_msg_count,
1336: x_msg_data => x_msg_data);
1337: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1339: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1340: RAISE FND_API.G_EXC_ERROR;
1341: END IF;
1342:
1335: x_msg_count => x_msg_count,
1336: x_msg_data => x_msg_data);
1337: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1339: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1340: RAISE FND_API.G_EXC_ERROR;
1341: END IF;
1342:
1343: END IF; -- if set id is null
1336: x_msg_data => x_msg_data);
1337: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1339: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1340: RAISE FND_API.G_EXC_ERROR;
1341: END IF;
1342:
1343: END IF; -- if set id is null
1344:
1367: Exception
1368:
1369: WHEN NO_DATA_FOUND THEN
1370: NULL;
1371: WHEN FND_API.G_EXC_ERROR THEN
1372:
1373: x_return_status := FND_API.G_RET_STS_ERROR;
1374:
1375: -- Get message count and data
1369: WHEN NO_DATA_FOUND THEN
1370: NULL;
1371: WHEN FND_API.G_EXC_ERROR THEN
1372:
1373: x_return_status := FND_API.G_RET_STS_ERROR;
1374:
1375: -- Get message count and data
1376:
1377:
1381: );
1382: IF l_debug_level > 0 THEN
1383: oe_debug_pub.add( 'IN INSERINTO EXCEPTION ' , 1 ) ;
1384: END IF;
1385: RAISE FND_API.G_EXC_ERROR;
1386:
1387: WHEN OTHERS THEN
1388: oe_msg_pub.count_and_get
1389: ( p_count => x_msg_count
1388: oe_msg_pub.count_and_get
1389: ( p_count => x_msg_count
1390: , p_data => x_msg_data
1391: );
1392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1393:
1394: /*x_return_status := FND_API.G_EXC_UNEXPECTED_ERROR ;
1395:
1396: OE_DEBUG_PUB.Add('In Inserinto exception ',1);
1390: , p_data => x_msg_data
1391: );
1392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1393:
1394: /*x_return_status := FND_API.G_EXC_UNEXPECTED_ERROR ;
1395:
1396: OE_DEBUG_PUB.Add('In Inserinto exception ',1);
1397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;*/
1398:
1393:
1394: /*x_return_status := FND_API.G_EXC_UNEXPECTED_ERROR ;
1395:
1396: OE_DEBUG_PUB.Add('In Inserinto exception ',1);
1397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;*/
1398:
1399: NULL;
1400:
1401: END ;-- End of get line
1460:
1461: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
1462: g_set_recursive_flag := TRUE;
1463: oe_order_pvt.Lines
1464: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
1465: , p_control_rec => l_control_rec
1466: , p_x_line_tbl => l_line_tbl
1467: , p_x_old_line_tbl => l_old_line_tbl
1468: , x_return_status => l_return_status
1468: , x_return_status => l_return_status
1469:
1470: );
1471:
1472: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1474: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1475: RAISE FND_API.G_EXC_ERROR;
1476: END IF;
1469:
1470: );
1471:
1472: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1474: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1475: RAISE FND_API.G_EXC_ERROR;
1476: END IF;
1477:
1470: );
1471:
1472: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1474: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1475: RAISE FND_API.G_EXC_ERROR;
1476: END IF;
1477:
1478: /* jolin start comment out nocopy for notification project
1471:
1472: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1474: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1475: RAISE FND_API.G_EXC_ERROR;
1476: END IF;
1477:
1478: /* jolin start comment out nocopy for notification project
1479:
1493:
1494:
1495: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1496: g_set_recursive_flag := FALSE;
1497: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1499: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1500: RAISE FND_API.G_EXC_ERROR;
1501: END IF;
1494:
1495: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1496: g_set_recursive_flag := FALSE;
1497: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1499: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1500: RAISE FND_API.G_EXC_ERROR;
1501: END IF;
1502:
1495: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1496: g_set_recursive_flag := FALSE;
1497: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1499: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1500: RAISE FND_API.G_EXC_ERROR;
1501: END IF;
1502:
1503: END IF; -- IF line table is greate than Zero
1496: g_set_recursive_flag := FALSE;
1497: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1499: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1500: RAISE FND_API.G_EXC_ERROR;
1501: END IF;
1502:
1503: END IF; -- IF line table is greate than Zero
1504:
1518:
1519:
1520: EXCEPTION
1521:
1522: WHEN FND_API.G_EXC_ERROR THEN
1523:
1524: x_return_status := FND_API.G_RET_STS_ERROR;
1525:
1526: -- Get message count and data
1520: EXCEPTION
1521:
1522: WHEN FND_API.G_EXC_ERROR THEN
1523:
1524: x_return_status := FND_API.G_RET_STS_ERROR;
1525:
1526: -- Get message count and data
1527:
1528:
1532: );
1533: IF l_debug_level > 0 THEN
1534: oe_debug_pub.add( 'IN INSERINTO EXCEPTION ' , 1 ) ;
1535: END IF;
1536: RAISE FND_API.G_EXC_ERROR;
1537:
1538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1539:
1540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1534: oe_debug_pub.add( 'IN INSERINTO EXCEPTION ' , 1 ) ;
1535: END IF;
1536: RAISE FND_API.G_EXC_ERROR;
1537:
1538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1539:
1540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1541: -- Get message count and data
1542:
1536: RAISE FND_API.G_EXC_ERROR;
1537:
1538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1539:
1540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1541: -- Get message count and data
1542:
1543: oe_msg_pub.count_and_get
1544: ( p_count => x_msg_count
1543: oe_msg_pub.count_and_get
1544: ( p_count => x_msg_count
1545: , p_data => x_msg_data
1546: );
1547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1548: WHEN OTHERS THEN
1549:
1550: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1551:
1546: );
1547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1548: WHEN OTHERS THEN
1549:
1550: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1551:
1552: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
1553: THEN
1554: oe_msg_pub.Add_Exc_Msg
1570: Procedure New_Process_Sets
1571: ( p_selected_line_tbl IN OE_GLOBALS.Selected_Record_Tbl, --(R12.MOAC)
1572: p_record_count IN NUMBER,
1573: p_set_name IN VARCHAR2,
1574: p_set_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
1575: p_operation IN VARCHAR2,
1576: p_header_id IN VARCHAR2 := FND_API.G_MISS_CHAR,
1577: x_Set_Id OUT NOCOPY NUMBER,
1578:
1572: p_record_count IN NUMBER,
1573: p_set_name IN VARCHAR2,
1574: p_set_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
1575: p_operation IN VARCHAR2,
1576: p_header_id IN VARCHAR2 := FND_API.G_MISS_CHAR,
1577: x_Set_Id OUT NOCOPY NUMBER,
1578:
1579: x_return_status OUT NOCOPY VARCHAR2,
1580:
1616: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1617: --
1618: BEGIN
1619: SAVEPOINT New_Process_sets;
1620: x_return_status := FND_API.G_RET_STS_SUCCESS;
1621:
1622:
1623:
1624: IF l_debug_level > 0 THEN
1657: fnd_message.set_name('ONT', 'OE_SET_CLOSED');
1658: FND_MESSAGE.SET_TOKEN('SET',
1659: p_set_name);
1660: oe_msg_pub.add;
1661: RAISE FND_API.G_EXC_ERROR;
1662: END IF;
1663: END IF;
1664: if (p_operation = 'REMOVE' ) THEN
1665: IF l_debug_level > 0 THEN
1693: ( p_line_id => l_line_id,
1694: p_x_line_rec => l_line_rec
1695: ,x_return_status => l_return_status);
1696:
1697: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1699: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1700: RAISE FND_API.G_EXC_ERROR;
1701: END IF;
1694: p_x_line_rec => l_line_rec
1695: ,x_return_status => l_return_status);
1696:
1697: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1699: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1700: RAISE FND_API.G_EXC_ERROR;
1701: END IF;
1702:
1695: ,x_return_status => l_return_status);
1696:
1697: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1699: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1700: RAISE FND_API.G_EXC_ERROR;
1701: END IF;
1702:
1703: OE_MSG_PUB.set_msg_context
1696:
1697: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1699: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1700: RAISE FND_API.G_EXC_ERROR;
1701: END IF;
1702:
1703: OE_MSG_PUB.set_msg_context
1704: ( p_entity_code => 'LINE'
1720: l_line_rec.order_source_id
1721: ,p_source_document_type_id =>
1722: l_line_rec.source_document_type_id);
1723:
1724: IF l_line_rec.ship_set = FND_API.G_MISS_CHAR THEN
1725: l_line_rec.ship_set := Null;
1726: END IF;
1727: IF l_line_rec.arrival_set = FND_API.G_MISS_CHAR THEN
1728: l_line_rec.arrival_set := Null;
1723:
1724: IF l_line_rec.ship_set = FND_API.G_MISS_CHAR THEN
1725: l_line_rec.ship_set := Null;
1726: END IF;
1727: IF l_line_rec.arrival_set = FND_API.G_MISS_CHAR THEN
1728: l_line_rec.arrival_set := Null;
1729: END IF;
1730: l_line_tbl(I) := l_line_rec;
1731:
1759: OE_MSG_PUB.ADD;
1760: IF l_debug_level > 0 THEN
1761: oe_debug_pub.add( 'SET- NOT ALLOWED FOR THIS ITEMTYPE' ) ;
1762: END IF;
1763: RAISE FND_API.G_EXC_ERROR;
1764: END IF;
1765:
1766:
1767: g_old_line_tbl(I) :=
1781: -- FND_MESSAGE.Set_Name('ONT', 'OE_INVALID_SET_COMB');
1782: FND_MESSAGE.Set_Name('ONT','OE_SCH_NOT_IN_SHIP_ARR');
1783: oe_msg_pub.add;
1784: /* Changed the message to fix the bug 2862565 */
1785: RAISE FND_API.G_EXC_ERROR;
1786: END IF;
1787:
1788: IF (l_set_id IS NULL) THEN
1789: l_line_tbl(I).arrival_set := p_set_name ;
1838:
1839: -- Call OE_Order_PVT.Process_order
1840:
1841: oe_order_pvt.Lines
1842: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
1843: , p_control_rec => l_control_rec
1844: , p_x_line_tbl => l_line_tbl
1845: , p_x_old_line_tbl => l_old_line_tbl
1846: , x_return_status => l_return_status
1845: , p_x_old_line_tbl => l_old_line_tbl
1846: , x_return_status => l_return_status
1847:
1848: );
1849: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1851: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1852: RAISE FND_API.G_EXC_ERROR;
1853: END IF;
1846: , x_return_status => l_return_status
1847:
1848: );
1849: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1851: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1852: RAISE FND_API.G_EXC_ERROR;
1853: END IF;
1854:
1847:
1848: );
1849: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1851: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1852: RAISE FND_API.G_EXC_ERROR;
1853: END IF;
1854:
1855:
1848: );
1849: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1851: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1852: RAISE FND_API.G_EXC_ERROR;
1853: END IF;
1854:
1855:
1856: -- jolin start comment out nocopy for notification project
1864: , p_line_tbl => l_line_tbl
1865: , p_old_line_tbl => l_old_line_tbl
1866: );
1867:
1868: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1870: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1871: RAISE FND_API.G_EXC_ERROR;
1872: END IF;
1865: , p_old_line_tbl => l_old_line_tbl
1866: );
1867:
1868: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1870: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1871: RAISE FND_API.G_EXC_ERROR;
1872: END IF;
1873: --jolin end
1866: );
1867:
1868: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1870: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1871: RAISE FND_API.G_EXC_ERROR;
1872: END IF;
1873: --jolin end
1874:
1867:
1868: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1870: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1871: RAISE FND_API.G_EXC_ERROR;
1872: END IF;
1873: --jolin end
1874:
1875: x_return_status := l_return_status;
1876:
1877:
1878: EXCEPTION
1879:
1880: WHEN FND_API.G_EXC_ERROR THEN
1881:
1882: x_return_status := FND_API.G_RET_STS_ERROR;
1883:
1884: -- Get message count and data
1878: EXCEPTION
1879:
1880: WHEN FND_API.G_EXC_ERROR THEN
1881:
1882: x_return_status := FND_API.G_RET_STS_ERROR;
1883:
1884: -- Get message count and data
1885:
1886:
1895: IF l_debug_level > 0 THEN
1896: oe_debug_pub.add( 'AFTER ROLLING BACK' , 1 ) ;
1897: END IF;
1898:
1899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1900:
1901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1902: -- Get message count and data
1903:
1897: END IF;
1898:
1899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1900:
1901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1902: -- Get message count and data
1903:
1904: oe_msg_pub.count_and_get
1905: ( p_count => x_msg_count
1914: oe_debug_pub.add( 'AFTER ROLLING BACK' , 1 ) ;
1915: END IF;
1916: WHEN OTHERS THEN
1917:
1918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1919:
1920: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
1921: THEN
1922: oe_msg_pub.Add_Exc_Msg
1956:
1957: RETURN TRUE;
1958:
1959: EXCEPTION
1960: WHEN FND_API.G_EXC_ERROR THEN
1961:
1962: RAISE FND_API.G_EXC_ERROR;
1963:
1964: WHEN NO_DATA_FOUND THEN
1958:
1959: EXCEPTION
1960: WHEN FND_API.G_EXC_ERROR THEN
1961:
1962: RAISE FND_API.G_EXC_ERROR;
1963:
1964: WHEN NO_DATA_FOUND THEN
1965:
1966: RETURN FALSE;
1967:
1968: End Set_Exist;
1969:
1970: FUNCTION Set_Exist(p_set_id IN NUMBER,
1971: p_header_id IN NUMBER := FND_API.G_MISS_NUM)
1972: RETURN BOOLEAN IS
1973: row_exists VARCHAR2(1);
1974: l_header_id NUMBER := p_header_id;
1975: --
1975: --
1976: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1977: --
1978: Begin
1979: IF p_header_id = FND_API.G_MISS_NUM THEN
1980: l_header_id := NULL;
1981: ELSE
1982: l_header_id := p_header_id;
1983: END IF;
1990: and header_id = nvl(l_header_id,header_id);
1991:
1992: RETURN TRUE;
1993: EXCEPTION
1994: WHEN FND_API.G_EXC_ERROR THEN
1995:
1996: RAISE FND_API.G_EXC_ERROR;
1997:
1998: WHEN NO_DATA_FOUND THEN
1992: RETURN TRUE;
1993: EXCEPTION
1994: WHEN FND_API.G_EXC_ERROR THEN
1995:
1996: RAISE FND_API.G_EXC_ERROR;
1997:
1998: WHEN NO_DATA_FOUND THEN
1999:
2000: RETURN FALSE;
2029: --
2030: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2031: --
2032: Begin
2033: x_return_status := FND_API.G_RET_STS_SUCCESS;
2034: IF l_debug_level > 0 THEN
2035: oe_debug_pub.add( 'ENTER:CREATE SETS ' , 1 ) ;
2036: END IF;
2037: IF l_debug_level > 0 THEN
2048: p_set_type IS NULL) THEN
2049: fnd_message.set_name('ONT', 'OE_SET_REQ_ARG');
2050: FND_MESSAGE.SET_TOKEN('SET',p_set_name);
2051: oe_msg_pub.add;
2052: RAISE FND_API.G_EXC_ERROR ;
2053: -- Require all three header,set name ane set type to create
2054: END IF;
2055: IF l_debug_level > 0 THEN
2056: oe_debug_pub.add( 'BEFORE SETEXISTS ' , 1 ) ;
2070: --p_Shipping_Method_Code IS NULL) THEN
2071: fnd_message.set_name('ONT', 'OE_INVALID_SET_ATTR');
2072: FND_MESSAGE.SET_TOKEN('SET',p_set_name);
2073: oe_msg_pub.add;
2074: RAISE FND_API.G_EXC_ERROR;
2075: -- set attributes cannot be null
2076: ELSIF (p_set_type = 'ARRIVAL_SET') AND
2077: (p_Ship_to_org_id IS NULL OR
2078: p_Schedule_arrival_date IS NULL)THEN
2079: -- Arrival set attributes cannot be null
2080: fnd_message.set_name('ONT', 'OE_INVALID_SET_ATTR');
2081: FND_MESSAGE.SET_TOKEN('SET',p_set_name);
2082: oe_msg_pub.add;
2083: RAISE FND_API.G_EXC_ERROR;
2084:
2085: END IF; */
2086:
2087: -- Bug 14760471 : START
2090: (p_header_id => p_header_id
2091: ,p_x_header_rec => l_header_rec
2092: ,x_return_status => x_return_status);
2093:
2094: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2095: RAISE FND_API.G_EXC_ERROR;
2096: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2097: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2098: END IF;
2091: ,p_x_header_rec => l_header_rec
2092: ,x_return_status => x_return_status);
2093:
2094: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2095: RAISE FND_API.G_EXC_ERROR;
2096: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2097: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2098: END IF;
2099: -- Bug 14760471 : END
2092: ,x_return_status => x_return_status);
2093:
2094: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2095: RAISE FND_API.G_EXC_ERROR;
2096: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2097: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2098: END IF;
2099: -- Bug 14760471 : END
2100:
2093:
2094: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2095: RAISE FND_API.G_EXC_ERROR;
2096: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2097: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2098: END IF;
2099: -- Bug 14760471 : END
2100:
2101:
2160:
2161:
2162: EXCEPTION
2163:
2164: WHEN FND_API.G_EXC_ERROR THEN
2165:
2166: x_return_status := FND_API.G_RET_STS_ERROR;
2167:
2168: -- Get message count and data
2162: EXCEPTION
2163:
2164: WHEN FND_API.G_EXC_ERROR THEN
2165:
2166: x_return_status := FND_API.G_RET_STS_ERROR;
2167:
2168: -- Get message count and data
2169:
2170:
2175: IF l_debug_level > 0 THEN
2176: oe_debug_pub.add( 'IN CREATE EXCEPTION ' , 1 ) ;
2177: END IF;
2178:
2179: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2180:
2181: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2182: -- Get message count and data
2183:
2177: END IF;
2178:
2179: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2180:
2181: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2182: -- Get message count and data
2183:
2184: oe_msg_pub.count_and_get
2185: ( p_count => x_msg_count
2186: , p_data => x_msg_data
2187: );
2188: WHEN OTHERS THEN
2189:
2190: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2191:
2192: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
2193: THEN
2194: oe_msg_pub.Add_Exc_Msg
2208: End Create_Set;
2209:
2210: Procedure Insert_Into_Set
2211: (p_Set_request_tbl oe_order_pub.Request_Tbl_Type,
2212: p_Push_Set_Date IN VARCHAR2 := FND_API.G_FALSE,
2213: X_Return_Status OUT NOCOPY VARCHAR2,
2214:
2215: x_msg_count OUT NOCOPY NUMBER,
2216:
2365: IF l_debug_level > 0 THEN
2366: oe_debug_pub.add( ' EXIT CALLING ARRIVAL SET ' , 1 ) ;
2367: END IF;
2368:
2369: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2370: IF l_debug_level > 0 THEN
2371: oe_debug_pub.add( ' ARRIVAL SET UNEXPECTED ERROR ' , 1 ) ;
2372: END IF;
2373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2369: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2370: IF l_debug_level > 0 THEN
2371: oe_debug_pub.add( ' ARRIVAL SET UNEXPECTED ERROR ' , 1 ) ;
2372: END IF;
2373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2374: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2375: IF l_debug_level > 0 THEN
2376: oe_debug_pub.add( ' ARRIVAL SET ' , 1 ) ;
2377: END IF;
2370: IF l_debug_level > 0 THEN
2371: oe_debug_pub.add( ' ARRIVAL SET UNEXPECTED ERROR ' , 1 ) ;
2372: END IF;
2373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2374: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2375: IF l_debug_level > 0 THEN
2376: oe_debug_pub.add( ' ARRIVAL SET ' , 1 ) ;
2377: END IF;
2378: RAISE FND_API.G_EXC_ERROR;
2374: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2375: IF l_debug_level > 0 THEN
2376: oe_debug_pub.add( ' ARRIVAL SET ' , 1 ) ;
2377: END IF;
2378: RAISE FND_API.G_EXC_ERROR;
2379: END IF;
2380:
2381: GOTO END_1;
2382: END IF;
2431: ( p_line_rec => l_line_rec
2432: ,p_old_line_rec => l_old_line_rec
2433: ,x_return_status => l_return_status);
2434:
2435: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2436: GOTO END_1;
2437: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2438: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2439: END IF;
2433: ,x_return_status => l_return_status);
2434:
2435: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2436: GOTO END_1;
2437: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2438: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2439: END IF;
2440:
2441: END IF;
2434:
2435: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2436: GOTO END_1;
2437: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2438: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2439: END IF;
2440:
2441: END IF;
2442:
2548: g_old_line_tbl.delete;
2549: END IF;
2550: l_perform_sch := TRUE;
2551:
2552: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2553: IF l_debug_level > 0 THEN
2554: oe_debug_pub.add( ' SCHEDULING UNEXPECTED ERROR ' , 1 ) ;
2555: END IF;
2556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2552: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2553: IF l_debug_level > 0 THEN
2554: oe_debug_pub.add( ' SCHEDULING UNEXPECTED ERROR ' , 1 ) ;
2555: END IF;
2556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2557: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2558: GOTO END_1;
2559: IF l_debug_level > 0 THEN
2560: oe_debug_pub.add( ' EXPECTED ERROR ' , 1 ) ;
2553: IF l_debug_level > 0 THEN
2554: oe_debug_pub.add( ' SCHEDULING UNEXPECTED ERROR ' , 1 ) ;
2555: END IF;
2556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2557: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2558: GOTO END_1;
2559: IF l_debug_level > 0 THEN
2560: oe_debug_pub.add( ' EXPECTED ERROR ' , 1 ) ;
2561: END IF;
2558: GOTO END_1;
2559: IF l_debug_level > 0 THEN
2560: oe_debug_pub.add( ' EXPECTED ERROR ' , 1 ) ;
2561: END IF;
2562: --RAISE FND_API.G_EXC_ERROR;
2563: END IF;
2564:
2565: -- END IF; -- Schedule Action Code
2566: IF l_debug_level > 0 THEN
2629: x_Set_Id => l_set_id,
2630: X_Return_Status => l_return_status,
2631: x_msg_count => x_msg_count,
2632: x_msg_data => x_msg_data);
2633: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2635: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2636: RAISE FND_API.G_EXC_ERROR;
2637: END IF;
2630: X_Return_Status => l_return_status,
2631: x_msg_count => x_msg_count,
2632: x_msg_data => x_msg_data);
2633: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2635: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2636: RAISE FND_API.G_EXC_ERROR;
2637: END IF;
2638:
2631: x_msg_count => x_msg_count,
2632: x_msg_data => x_msg_data);
2633: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2635: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2636: RAISE FND_API.G_EXC_ERROR;
2637: END IF;
2638:
2639: END IF; -- if set id is null
2632: x_msg_data => x_msg_data);
2633: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2635: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2636: RAISE FND_API.G_EXC_ERROR;
2637: END IF;
2638:
2639: END IF; -- if set id is null
2640: END IF; -- Temp table intenal if condition
2730:
2731: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
2732: g_set_recursive_flag := TRUE;
2733: oe_order_pvt.Lines
2734: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
2735: , p_control_rec => l_control_rec
2736: , p_x_line_tbl => l_line_tbl
2737: , p_x_old_line_tbl => l_old_line_tbl
2738: , x_return_status => l_return_status
2738: , x_return_status => l_return_status
2739:
2740: );
2741:
2742: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2744: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2745: RAISE FND_API.G_EXC_ERROR;
2746: END IF;
2739:
2740: );
2741:
2742: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2744: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2745: RAISE FND_API.G_EXC_ERROR;
2746: END IF;
2747:
2740: );
2741:
2742: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2744: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2745: RAISE FND_API.G_EXC_ERROR;
2746: END IF;
2747:
2748: /* jolin start comment out nocopy for notification project
2741:
2742: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2744: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2745: RAISE FND_API.G_EXC_ERROR;
2746: END IF;
2747:
2748: /* jolin start comment out nocopy for notification project
2749:
2761: l_line_tbl.delete;
2762:
2763: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
2764: g_set_recursive_flag := FALSE;
2765: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2766: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2767: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2768: RAISE FND_API.G_EXC_ERROR;
2769: END IF;
2762:
2763: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
2764: g_set_recursive_flag := FALSE;
2765: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2766: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2767: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2768: RAISE FND_API.G_EXC_ERROR;
2769: END IF;
2770:
2763: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
2764: g_set_recursive_flag := FALSE;
2765: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2766: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2767: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2768: RAISE FND_API.G_EXC_ERROR;
2769: END IF;
2770:
2771: END IF; -- IF line table is greate than Zero
2764: g_set_recursive_flag := FALSE;
2765: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2766: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2767: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2768: RAISE FND_API.G_EXC_ERROR;
2769: END IF;
2770:
2771: END IF; -- IF line table is greate than Zero
2772:
2785:
2786:
2787: EXCEPTION
2788:
2789: WHEN FND_API.G_EXC_ERROR THEN
2790:
2791: x_return_status := FND_API.G_RET_STS_ERROR;
2792:
2793: -- Get message count and data
2787: EXCEPTION
2788:
2789: WHEN FND_API.G_EXC_ERROR THEN
2790:
2791: x_return_status := FND_API.G_RET_STS_ERROR;
2792:
2793: -- Get message count and data
2794:
2795:
2799: );
2800: IF l_debug_level > 0 THEN
2801: oe_debug_pub.add( 'IN INSERINTO EXCEPTION ' , 1 ) ;
2802: END IF;
2803: RAISE FND_API.G_EXC_ERROR;
2804:
2805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2806:
2807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2801: oe_debug_pub.add( 'IN INSERINTO EXCEPTION ' , 1 ) ;
2802: END IF;
2803: RAISE FND_API.G_EXC_ERROR;
2804:
2805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2806:
2807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2808: -- Get message count and data
2809:
2803: RAISE FND_API.G_EXC_ERROR;
2804:
2805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2806:
2807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2808: -- Get message count and data
2809:
2810: oe_msg_pub.count_and_get
2811: ( p_count => x_msg_count
2810: oe_msg_pub.count_and_get
2811: ( p_count => x_msg_count
2812: , p_data => x_msg_data
2813: );
2814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2815: WHEN OTHERS THEN
2816:
2817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2818:
2813: );
2814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2815: WHEN OTHERS THEN
2816:
2817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2818:
2819: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
2820: THEN
2821: oe_msg_pub.Add_Exc_Msg
2836:
2837:
2838: Procedure Update_Set
2839: (p_Set_Id IN NUMBER,
2840: p_Ship_From_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2841: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2842: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
2843: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
2844: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2837:
2838: Procedure Update_Set
2839: (p_Set_Id IN NUMBER,
2840: p_Ship_From_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2841: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2842: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
2843: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
2844: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2845: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2838: Procedure Update_Set
2839: (p_Set_Id IN NUMBER,
2840: p_Ship_From_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2841: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2842: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
2843: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
2844: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2845: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2846: p_shipment_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2839: (p_Set_Id IN NUMBER,
2840: p_Ship_From_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2841: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2842: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
2843: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
2844: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2845: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2846: p_shipment_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2847: X_Return_Status OUT NOCOPY VARCHAR2,
2840: p_Ship_From_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2841: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2842: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
2843: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
2844: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2845: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2846: p_shipment_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2847: X_Return_Status OUT NOCOPY VARCHAR2,
2848:
2841: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2842: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
2843: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
2844: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2845: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2846: p_shipment_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2847: X_Return_Status OUT NOCOPY VARCHAR2,
2848:
2849: x_msg_count OUT NOCOPY NUMBER,
2842: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
2843: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
2844: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2845: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2846: p_shipment_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2847: X_Return_Status OUT NOCOPY VARCHAR2,
2848:
2849: x_msg_count OUT NOCOPY NUMBER,
2850:
2866: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2867: --
2868: Begin
2869: l_set_rec := get_set_rec(p_set_id);
2870: IF (p_ship_from_org_id = fnd_api.g_miss_num or
2871: p_ship_from_org_id IS NULL )THEN
2872: l_Ship_From_Org_Id := l_set_rec.Ship_From_Org_Id ;
2873: ELSE
2874: l_Ship_From_Org_Id := p_Ship_From_Org_Id ;
2873: ELSE
2874: l_Ship_From_Org_Id := p_Ship_From_Org_Id ;
2875: END IF;
2876:
2877: IF (p_ship_to_org_id = fnd_api.g_miss_num or
2878: p_ship_from_org_id IS NULL )THEN
2879: l_Ship_to_Org_Id := l_set_rec.Ship_to_Org_Id ;
2880: ELSE
2881: l_Ship_to_Org_Id := p_Ship_to_Org_Id ;
2880: ELSE
2881: l_Ship_to_Org_Id := p_Ship_to_Org_Id ;
2882: END IF;
2883:
2884: IF (p_Schedule_Arrival_Date = fnd_api.g_miss_date or
2885: p_Schedule_Arrival_Date IS NULL )THEN
2886: l_Schedule_Arrival_Date := l_set_rec.Schedule_Arrival_Date;
2887: ELSE
2888: l_Schedule_Arrival_Date := p_Schedule_Arrival_Date ;
2887: ELSE
2888: l_Schedule_Arrival_Date := p_Schedule_Arrival_Date ;
2889: END IF;
2890:
2891: IF (p_Schedule_ship_Date = fnd_api.g_miss_date or
2892: p_Schedule_ship_Date IS NULL )THEN
2893: l_Schedule_ship_Date := l_set_rec.Schedule_ship_Date;
2894: ELSE
2895: l_Schedule_ship_Date := p_Schedule_ship_Date ;
2894: ELSE
2895: l_Schedule_ship_Date := p_Schedule_ship_Date ;
2896: END IF;
2897:
2898: IF (p_Freight_Carrier_Code = fnd_api.g_miss_char or
2899: p_Freight_Carrier_Code IS NULL )THEN
2900: l_Freight_Carrier_Code := l_set_rec.Freight_Carrier_Code;
2901: ELSE
2902: l_Freight_Carrier_Code := p_Freight_Carrier_Code ;
2901: ELSE
2902: l_Freight_Carrier_Code := p_Freight_Carrier_Code ;
2903: END IF;
2904:
2905: IF p_Shipping_Method_Code = fnd_api.g_miss_char
2906: THEN
2907: l_Shipping_Method_Code := l_set_rec.Shipping_Method_Code;
2908: ELSE
2909: l_Shipping_Method_Code := p_Shipping_Method_Code ;
2908: ELSE
2909: l_Shipping_Method_Code := p_Shipping_Method_Code ;
2910: END IF;
2911:
2912: IF (p_shipment_priority_code = fnd_api.g_miss_char or
2913: p_shipment_priority_code IS NULL )THEN
2914: l_shipment_priority_code := l_set_rec.shipment_priority_code;
2915: ELSE
2916: l_shipment_priority_code := p_shipment_priority_code ;
2929:
2930: Null;
2931: g_set_rec := l_init_set_rec;
2932: --FP bug 3891395: setting the return status
2933: x_return_status := FND_API.G_RET_STS_SUCCESS;
2934: EXCEPTION
2935:
2936: WHEN FND_API.G_EXC_ERROR THEN
2937:
2932: --FP bug 3891395: setting the return status
2933: x_return_status := FND_API.G_RET_STS_SUCCESS;
2934: EXCEPTION
2935:
2936: WHEN FND_API.G_EXC_ERROR THEN
2937:
2938: x_return_status := FND_API.G_RET_STS_ERROR;
2939:
2940: -- Get message count and data
2934: EXCEPTION
2935:
2936: WHEN FND_API.G_EXC_ERROR THEN
2937:
2938: x_return_status := FND_API.G_RET_STS_ERROR;
2939:
2940: -- Get message count and data
2941:
2942:
2944: ( p_count => x_msg_count
2945: , p_data => x_msg_data
2946: );
2947:
2948: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2949:
2950: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2951: -- Get message count and data
2952:
2946: );
2947:
2948: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2949:
2950: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2951: -- Get message count and data
2952:
2953: oe_msg_pub.count_and_get
2954: ( p_count => x_msg_count
2955: , p_data => x_msg_data
2956: );
2957: WHEN OTHERS THEN
2958:
2959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2960:
2961: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
2962: THEN
2963: oe_msg_pub.Add_Exc_Msg
2993:
2994: END get_set_rec;
2995:
2996: PROCEDURE Validate_set_attributes(p_set_id IN NUMBER ,
2997: p_Ship_From_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2998: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2999: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
3000: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
3001: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2994: END get_set_rec;
2995:
2996: PROCEDURE Validate_set_attributes(p_set_id IN NUMBER ,
2997: p_Ship_From_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2998: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2999: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
3000: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
3001: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3002: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2995:
2996: PROCEDURE Validate_set_attributes(p_set_id IN NUMBER ,
2997: p_Ship_From_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2998: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2999: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
3000: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
3001: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3002: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3003: p_shipment_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2996: PROCEDURE Validate_set_attributes(p_set_id IN NUMBER ,
2997: p_Ship_From_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2998: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2999: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
3000: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
3001: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3002: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3003: p_shipment_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3004: X_Return_Status OUT NOCOPY VARCHAR2) IS
2997: p_Ship_From_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2998: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2999: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
3000: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
3001: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3002: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3003: p_shipment_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3004: X_Return_Status OUT NOCOPY VARCHAR2) IS
3005:
2998: p_Ship_To_Org_Id IN NUMBER := FND_API.G_MISS_NUM,
2999: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
3000: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
3001: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3002: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3003: p_shipment_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3004: X_Return_Status OUT NOCOPY VARCHAR2) IS
3005:
3006: l_set_rec OE_ORDER_CACHE.set_rec_type;
2999: p_Schedule_Ship_Date IN DATE := FND_API.G_MISS_DATE,
3000: p_Schedule_Arrival_Date IN DATE := FND_API.G_MISS_DATE,
3001: p_Freight_Carrier_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3002: p_Shipping_Method_Code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3003: p_shipment_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3004: X_Return_Status OUT NOCOPY VARCHAR2) IS
3005:
3006: l_set_rec OE_ORDER_CACHE.set_rec_type;
3007: x_msg_count NUMBER;
3018: (p_Schedule_Ship_Date <> l_set_rec.Schedule_ship_Date) OR
3019: (p_Freight_Carrier_Code <> l_set_rec.Freight_Carrier_Code) OR
3020: (p_Shipping_Method_Code <> l_set_rec.Shipping_Method_Code) OR
3021: (p_shipment_priority_code <> l_set_rec.shipment_priority_code) THEN
3022: --RAISE FND_API.G_EXC_ERROR;
3023: fnd_message.set_name('ONT', 'OE_INVALID_SET_ATTR');
3024: FND_MESSAGE.SET_TOKEN('SET','SHIP');
3025: oe_msg_pub.add;
3026: -- RAISE FND_API.G_EXC_ERROR ;
3022: --RAISE FND_API.G_EXC_ERROR;
3023: fnd_message.set_name('ONT', 'OE_INVALID_SET_ATTR');
3024: FND_MESSAGE.SET_TOKEN('SET','SHIP');
3025: oe_msg_pub.add;
3026: -- RAISE FND_API.G_EXC_ERROR ;
3027:
3028: NULL;
3029: END IF;
3030: ELSIF (l_set_rec.set_type = 'ARRIVAL_SET') THEN
3032: (p_Ship_To_Org_Id <> l_Set_rec.Ship_To_Org_Id) THEN
3033: fnd_message.set_name('ONT', 'OE_INVALID_SET_ATTR');
3034: FND_MESSAGE.SET_TOKEN('SET','ARRIVAL');
3035: oe_msg_pub.add;
3036: --RAISE FND_API.G_EXC_ERROR ;
3037: NULL;
3038: END IF;
3039: END IF;
3040: EXCEPTION
3038: END IF;
3039: END IF;
3040: EXCEPTION
3041:
3042: WHEN FND_API.G_EXC_ERROR THEN
3043:
3044: x_return_status := FND_API.G_RET_STS_ERROR;
3045:
3046: -- Get message count and data
3040: EXCEPTION
3041:
3042: WHEN FND_API.G_EXC_ERROR THEN
3043:
3044: x_return_status := FND_API.G_RET_STS_ERROR;
3045:
3046: -- Get message count and data
3047:
3048:
3050: ( p_count => x_msg_count
3051: , p_data => x_msg_data
3052: );
3053:
3054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3055:
3056: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3057: -- Get message count and data
3058:
3052: );
3053:
3054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3055:
3056: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3057: -- Get message count and data
3058:
3059: oe_msg_pub.count_and_get
3060: ( p_count => x_msg_count
3061: , p_data => x_msg_data
3062: );
3063: WHEN OTHERS THEN
3064:
3065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3066:
3067: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
3068: THEN
3069: oe_msg_pub.Add_Exc_Msg
3086: Procedure Process_Sets
3087: ( p_selected_line_tbl IN OE_GLOBALS.Selected_Record_Tbl, -- R12.MOAC
3088: p_record_count IN NUMBER,
3089: p_set_name IN VARCHAR2,
3090: p_set_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
3091: p_operation IN VARCHAR2,
3092: p_header_id IN VARCHAR2 := FND_API.G_MISS_CHAR,
3093: x_Set_Id OUT NOCOPY NUMBER,
3094:
3088: p_record_count IN NUMBER,
3089: p_set_name IN VARCHAR2,
3090: p_set_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
3091: p_operation IN VARCHAR2,
3092: p_header_id IN VARCHAR2 := FND_API.G_MISS_CHAR,
3093: x_Set_Id OUT NOCOPY NUMBER,
3094:
3095: x_return_status OUT NOCOPY VARCHAR2,
3096:
3132: l_top_model_line_id NUMBER;
3133: BEGIN
3134:
3135: SAVEPOINT Process_sets;
3136: x_return_status := FND_API.G_RET_STS_SUCCESS;
3137:
3138: /* If the profile to process new set schduling functioanlity after
3139: performance changes is set to Yest then branch the code to new
3140: procedure or continue */
3154: x_return_status => x_return_status,
3155: x_msg_count => x_msg_count,
3156: x_msg_data => x_msg_data );
3157:
3158: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3160: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3161: RAISE FND_API.G_EXC_ERROR;
3162: END IF;
3155: x_msg_count => x_msg_count,
3156: x_msg_data => x_msg_data );
3157:
3158: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3160: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3161: RAISE FND_API.G_EXC_ERROR;
3162: END IF;
3163:
3156: x_msg_data => x_msg_data );
3157:
3158: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3160: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3161: RAISE FND_API.G_EXC_ERROR;
3162: END IF;
3163:
3164: GOTO END_NEW_PROCESS_SETS;
3157:
3158: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3160: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3161: RAISE FND_API.G_EXC_ERROR;
3162: END IF;
3163:
3164: GOTO END_NEW_PROCESS_SETS;
3165:
3216:
3217: fnd_message.set_name('ONT', 'OE_SET_CLOSED');
3218: FND_MESSAGE.SET_TOKEN('SET', p_set_name);
3219: oe_msg_pub.add;
3220: RAISE FND_API.G_EXC_ERROR;
3221: END IF;
3222: END IF;
3223:
3224: IF (p_operation = 'REMOVE' AND
3267: (p_line_id => l_line_id
3268: ,p_x_line_rec => l_line_rec
3269: ,x_return_status => l_return_status);
3270:
3271: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3273: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3274: RAISE FND_API.G_EXC_ERROR;
3275: END IF;
3268: ,p_x_line_rec => l_line_rec
3269: ,x_return_status => l_return_status);
3270:
3271: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3273: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3274: RAISE FND_API.G_EXC_ERROR;
3275: END IF;
3276:
3269: ,x_return_status => l_return_status);
3270:
3271: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3273: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3274: RAISE FND_API.G_EXC_ERROR;
3275: END IF;
3276:
3277: OE_MSG_PUB.set_msg_context
3270:
3271: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3273: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3274: RAISE FND_API.G_EXC_ERROR;
3275: END IF;
3276:
3277: OE_MSG_PUB.set_msg_context
3278: ( p_entity_code => 'LINE'
3342: OE_MSG_PUB.ADD;
3343: IF l_debug_level > 0 THEN
3344: oe_debug_pub.add( 'SET- NOT ALLOWED FOR THIS ITEMTYPE' ) ;
3345: END IF;
3346: RAISE FND_API.G_EXC_ERROR;
3347: END IF;
3348:
3349: IF p_set_type = 'ARRIVAL' THEN
3350:
3358: -- FND_MESSAGE.Set_Name('ONT', 'OE_INVALID_SET_COMB');
3359: FND_MESSAGE.Set_Name('ONT','OE_SCH_NOT_IN_SHIP_ARR');
3360: /* Changed the message to fix the bug 2862565 */
3361: oe_msg_pub.add;
3362: RAISE FND_API.G_EXC_ERROR;
3363: END IF;
3364:
3365: IF (l_set_id IS NULL) THEN
3366: l_line_tbl(I).arrival_set := p_set_name ;
3714: oe_debug_pub.add( 'BEFORE FAILING AT SET NAME' , 1 ) ;
3715: END IF;
3716: fnd_message.set_name('ONT', 'OE_SET_NAME_REQ');
3717: oe_msg_pub.add;
3718: RAISE FND_API.G_EXC_ERROR ;
3719: END IF;
3720: IF p_operation <> 'REMOVE' THEN
3721: IF p_set_type <> 'FULFILLMENT'
3722: AND l_line_tbl.count > 0 THEN
3746: p_old_line_tbl => g_old_line_tbl,
3747: x_return_status => l_return_status);
3748: g_old_line_tbl.delete;
3749:
3750: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3752: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3753: RAISE FND_API.G_EXC_ERROR;
3754: END IF;
3747: x_return_status => l_return_status);
3748: g_old_line_tbl.delete;
3749:
3750: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3752: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3753: RAISE FND_API.G_EXC_ERROR;
3754: END IF;
3755: END IF;
3748: g_old_line_tbl.delete;
3749:
3750: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3752: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3753: RAISE FND_API.G_EXC_ERROR;
3754: END IF;
3755: END IF;
3756: END IF;
3749:
3750: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3752: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3753: RAISE FND_API.G_EXC_ERROR;
3754: END IF;
3755: END IF;
3756: END IF;
3757:
3798: X_Return_Status => l_return_status,
3799: x_msg_count => x_msg_count,
3800: x_msg_data => x_msg_data);
3801:
3802: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3803: IF l_debug_level > 0 THEN
3804: oe_debug_pub.add( 'INTO UNEXPECTED ERROR' , 1 ) ;
3805: END IF;
3806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3802: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3803: IF l_debug_level > 0 THEN
3804: oe_debug_pub.add( 'INTO UNEXPECTED ERROR' , 1 ) ;
3805: END IF;
3806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3807: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3808: IF l_debug_level > 0 THEN
3809: oe_debug_pub.add( 'INTO EXPECTED ERROR' , 1 ) ;
3810: END IF;
3803: IF l_debug_level > 0 THEN
3804: oe_debug_pub.add( 'INTO UNEXPECTED ERROR' , 1 ) ;
3805: END IF;
3806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3807: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3808: IF l_debug_level > 0 THEN
3809: oe_debug_pub.add( 'INTO EXPECTED ERROR' , 1 ) ;
3810: END IF;
3811: RAISE FND_API.G_EXC_ERROR;
3807: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3808: IF l_debug_level > 0 THEN
3809: oe_debug_pub.add( 'INTO EXPECTED ERROR' , 1 ) ;
3810: END IF;
3811: RAISE FND_API.G_EXC_ERROR;
3812: END IF;
3813:
3814: /* FOR I IN 1 .. L_line_Tbl.Count
3815: LOOP
3903: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .SHIP_FROM_ORG_ID ) ;
3904: END IF;
3905: end loop;
3906: oe_order_pvt.Lines
3907: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
3908: , p_control_rec => l_control_rec
3909: , p_x_line_tbl => l_line_tbl
3910: , p_x_old_line_tbl => l_old_line_tbl
3911: , x_return_status => l_return_status
3910: , p_x_old_line_tbl => l_old_line_tbl
3911: , x_return_status => l_return_status
3912:
3913: );
3914: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3916: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3917: RAISE FND_API.G_EXC_ERROR;
3918: END IF;
3911: , x_return_status => l_return_status
3912:
3913: );
3914: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3916: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3917: RAISE FND_API.G_EXC_ERROR;
3918: END IF;
3919:
3912:
3913: );
3914: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3916: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3917: RAISE FND_API.G_EXC_ERROR;
3918: END IF;
3919:
3920: /* jolin start comment out nocopy for notification project
3913: );
3914: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3916: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3917: RAISE FND_API.G_EXC_ERROR;
3918: END IF;
3919:
3920: /* jolin start comment out nocopy for notification project
3921:
3932:
3933: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
3934: g_set_recursive_flag := FALSE;
3935:
3936: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3938: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3939: RAISE FND_API.G_EXC_ERROR;
3940: END IF;
3933: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
3934: g_set_recursive_flag := FALSE;
3935:
3936: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3938: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3939: RAISE FND_API.G_EXC_ERROR;
3940: END IF;
3941: END IF; -- FUlfillment set
3934: g_set_recursive_flag := FALSE;
3935:
3936: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3938: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3939: RAISE FND_API.G_EXC_ERROR;
3940: END IF;
3941: END IF; -- FUlfillment set
3942:
3935:
3936: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3938: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3939: RAISE FND_API.G_EXC_ERROR;
3940: END IF;
3941: END IF; -- FUlfillment set
3942:
3943: END IF; -- Line count
3952: );
3953:
3954: EXCEPTION
3955:
3956: WHEN FND_API.G_EXC_ERROR THEN
3957:
3958: x_return_status := FND_API.G_RET_STS_ERROR;
3959:
3960: -- Get message count and data
3954: EXCEPTION
3955:
3956: WHEN FND_API.G_EXC_ERROR THEN
3957:
3958: x_return_status := FND_API.G_RET_STS_ERROR;
3959:
3960: -- Get message count and data
3961:
3962:
3971: IF l_debug_level > 0 THEN
3972: oe_debug_pub.add( 'AFTER ROLLING BACK' , 1 ) ;
3973: END IF;
3974:
3975: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3976:
3977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3978: -- Get message count and data
3979:
3973: END IF;
3974:
3975: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3976:
3977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3978: -- Get message count and data
3979:
3980: oe_msg_pub.count_and_get
3981: ( p_count => x_msg_count
3990: oe_debug_pub.add( 'AFTER ROLLING BACK' , 1 ) ;
3991: END IF;
3992: WHEN OTHERS THEN
3993:
3994: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3995:
3996: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
3997: THEN
3998: oe_msg_pub.Add_Exc_Msg
4041: BEGIN
4042: NULL;
4043: EXCEPTION
4044:
4045: WHEN FND_API.G_EXC_ERROR THEN
4046:
4047: x_return_status := FND_API.G_RET_STS_ERROR;
4048:
4049: -- Get message count and data
4043: EXCEPTION
4044:
4045: WHEN FND_API.G_EXC_ERROR THEN
4046:
4047: x_return_status := FND_API.G_RET_STS_ERROR;
4048:
4049: -- Get message count and data
4050:
4051:
4053: ( p_count => x_msg_count
4054: , p_data => x_msg_data
4055: );
4056:
4057: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4058:
4059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4060: -- Get message count and data
4061:
4055: );
4056:
4057: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4058:
4059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4060: -- Get message count and data
4061:
4062: oe_msg_pub.count_and_get
4063: ( p_count => x_msg_count
4064: , p_data => x_msg_data
4065: );
4066: WHEN OTHERS THEN
4067:
4068: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4069:
4070: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
4071: THEN
4072: oe_msg_pub.Add_Exc_Msg
4100: arrival_set_id IS NOT NULL AND
4101: rownum = 1;
4102: NULL;
4103: EXCEPTION
4104: WHEN FND_API.G_EXC_ERROR THEN
4105:
4106: RAISE FND_API.G_EXC_ERROR;
4107: WHEN NO_DATA_FOUND THEN
4108:
4102: NULL;
4103: EXCEPTION
4104: WHEN FND_API.G_EXC_ERROR THEN
4105:
4106: RAISE FND_API.G_EXC_ERROR;
4107: WHEN NO_DATA_FOUND THEN
4108:
4109: x_arrival_set_id := NULL;
4110:
4111:
4112: END Validate_multi_arr_set;
4113:
4114:
4115: Procedure Update_Options(p_ato_line_id IN NUMBER := FND_API.G_MISS_NUM,
4116: p_config_line_id IN NUMBER := FND_API.G_MISS_NUM,
4117: p_set_id IN NUMBER,
4118: p_set_type IN VARCHAR2 )IS
4119: stmt_str varchar2(2000);
4112: END Validate_multi_arr_set;
4113:
4114:
4115: Procedure Update_Options(p_ato_line_id IN NUMBER := FND_API.G_MISS_NUM,
4116: p_config_line_id IN NUMBER := FND_API.G_MISS_NUM,
4117: p_set_id IN NUMBER,
4118: p_set_type IN VARCHAR2 )IS
4119: stmt_str varchar2(2000);
4120: Parent_line_id Number ;
4131: ELSE
4132: column1 := 'ARRIVAL_SET_ID';
4133: END IF;
4134:
4135: IF (p_ato_line_id = FND_API.G_MISS_NUM OR
4136: p_ato_line_id IS NULL ) THEN
4137: column2 := 'CONFIG_LINE_ID';
4138: parent_line_id := p_config_line_id;
4139: ELSE
4179: IF l_debug_level > 0 THEN
4180: oe_debug_pub.add( 'ENTER GET SET ID' ) ;
4181: END IF;
4182: IF (p_x_line_rec.item_type_code IS NULL OR
4183: p_x_line_rec.item_type_code = FND_API.G_MISS_CHAR) AND
4184: p_x_line_rec.operation = oe_globals.g_opr_create THEN
4185: IF l_debug_level > 0 THEN
4186: oe_debug_pub.add( 'ENTER ITEM TYPE CODE NULL' ) ;
4187: END IF;
4185: IF l_debug_level > 0 THEN
4186: oe_debug_pub.add( 'ENTER ITEM TYPE CODE NULL' ) ;
4187: END IF;
4188:
4189: IF ( NVL(p_x_line_rec.top_model_line_id,FND_API.G_MISS_NUM)
4190: <> FND_API.G_MISS_NUM
4191: OR NVL(p_x_line_rec.top_model_line_index,FND_API.G_MISS_NUM)
4192: <> FND_API.G_MISS_NUM ) THEN
4193: IF ( p_x_line_rec.top_model_line_id <> FND_API.G_MISS_NUM
4186: oe_debug_pub.add( 'ENTER ITEM TYPE CODE NULL' ) ;
4187: END IF;
4188:
4189: IF ( NVL(p_x_line_rec.top_model_line_id,FND_API.G_MISS_NUM)
4190: <> FND_API.G_MISS_NUM
4191: OR NVL(p_x_line_rec.top_model_line_index,FND_API.G_MISS_NUM)
4192: <> FND_API.G_MISS_NUM ) THEN
4193: IF ( p_x_line_rec.top_model_line_id <> FND_API.G_MISS_NUM
4194: AND p_x_line_rec.top_model_line_id = p_x_line_rec.line_id )
4187: END IF;
4188:
4189: IF ( NVL(p_x_line_rec.top_model_line_id,FND_API.G_MISS_NUM)
4190: <> FND_API.G_MISS_NUM
4191: OR NVL(p_x_line_rec.top_model_line_index,FND_API.G_MISS_NUM)
4192: <> FND_API.G_MISS_NUM ) THEN
4193: IF ( p_x_line_rec.top_model_line_id <> FND_API.G_MISS_NUM
4194: AND p_x_line_rec.top_model_line_id = p_x_line_rec.line_id )
4195: OR ( p_x_line_rec.top_model_line_index <> FND_API.G_MISS_NUM
4188:
4189: IF ( NVL(p_x_line_rec.top_model_line_id,FND_API.G_MISS_NUM)
4190: <> FND_API.G_MISS_NUM
4191: OR NVL(p_x_line_rec.top_model_line_index,FND_API.G_MISS_NUM)
4192: <> FND_API.G_MISS_NUM ) THEN
4193: IF ( p_x_line_rec.top_model_line_id <> FND_API.G_MISS_NUM
4194: AND p_x_line_rec.top_model_line_id = p_x_line_rec.line_id )
4195: OR ( p_x_line_rec.top_model_line_index <> FND_API.G_MISS_NUM
4196: AND p_x_line_rec.top_model_line_index = p_index )
4189: IF ( NVL(p_x_line_rec.top_model_line_id,FND_API.G_MISS_NUM)
4190: <> FND_API.G_MISS_NUM
4191: OR NVL(p_x_line_rec.top_model_line_index,FND_API.G_MISS_NUM)
4192: <> FND_API.G_MISS_NUM ) THEN
4193: IF ( p_x_line_rec.top_model_line_id <> FND_API.G_MISS_NUM
4194: AND p_x_line_rec.top_model_line_id = p_x_line_rec.line_id )
4195: OR ( p_x_line_rec.top_model_line_index <> FND_API.G_MISS_NUM
4196: AND p_x_line_rec.top_model_line_index = p_index )
4197: THEN
4191: OR NVL(p_x_line_rec.top_model_line_index,FND_API.G_MISS_NUM)
4192: <> FND_API.G_MISS_NUM ) THEN
4193: IF ( p_x_line_rec.top_model_line_id <> FND_API.G_MISS_NUM
4194: AND p_x_line_rec.top_model_line_id = p_x_line_rec.line_id )
4195: OR ( p_x_line_rec.top_model_line_index <> FND_API.G_MISS_NUM
4196: AND p_x_line_rec.top_model_line_index = p_index )
4197: THEN
4198: IF l_debug_level > 0 THEN
4199: oe_debug_pub.add( 'TOP MODEL LINE' , 1 ) ;
4244:
4245: -- Lines that are of type external(drop ships) or shipped or any line that
4246: -- is not model standard and kit are not allowed to have set operations.
4247: IF p_x_line_rec.shipped_quantity IS NULL OR
4248: p_x_line_rec.shipped_quantity = FND_API.G_MISS_NUM THEN
4249: lshpqty := 0;
4250: ELSIF p_x_line_rec.shipped_quantity > 0 THEN
4251: lshpqty := 1;
4252: END IF;
4262: p_x_line_rec.line_id) OR
4263: (p_x_line_rec.item_type_code = 'STANDARD') OR
4264: (p_x_line_rec.item_type_code = 'SERVICE' AND
4265: p_x_line_rec.fulfillment_set IS NOT NULL AND
4266: p_x_line_rec.fulfillment_set <> FND_API.G_MISS_CHAR )
4267: OR
4268: (p_x_line_rec.item_type_code = 'KIT') OR
4269: (litemtypecode = 1) THEN
4270:
4279: IF l_debug_level > 0 THEN
4280: oe_debug_pub.add( 'BEFORE SETTING THE LINE '||P_X_LINE_REC.LINE_ID , 1 ) ;
4281: END IF;
4282: IF (p_x_line_rec.operation = oe_globals.g_opr_create AND
4283: (p_x_line_rec.line_id = FND_API.G_MISS_NUM OR
4284: p_x_line_rec.line_id IS NULL)) THEN
4285: IF l_debug_level > 0 THEN
4286: oe_debug_pub.add( 'BEFORE SETTING THE LINE -1' , 1 ) ;
4287: END IF;
4305:
4306: -- Populate the arrival_set_id and ship_set_id when names are populated.
4307: -- Bug fix 2527647
4308: IF p_x_line_rec.arrival_set IS NOT NULL
4309: AND p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR THEN
4310:
4311: IF Set_Exist(p_set_name => p_x_line_rec.arrival_set,
4312: p_set_type => 'ARRIVAL_SET',
4313: p_header_id => p_x_line_rec.header_id,
4318:
4319: END IF;
4320:
4321: ELSIF p_x_line_rec.ship_set IS NOT NULL
4322: AND p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR THEN
4323:
4324: IF Set_Exist(p_set_name => p_x_line_rec.ship_set,
4325: p_set_type => 'SHIP_SET',
4326: p_header_id => p_x_line_rec.header_id,
4342: -- set id to request a set operation.
4343: -- set id will be derived from set name if passed and if set already exists
4344:
4345: IF (p_x_line_rec.arrival_set IS NOT NULL AND
4346: p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR AND
4347: (p_x_line_rec.arrival_set_id IS NULL OR
4348: p_x_line_rec.arrival_set_id = FND_API.G_MISS_NUM)) OR
4349: (p_old_line_rec.arrival_set is not null AND
4350: p_old_line_rec.arrival_set <> FND_API.G_MISS_CHAR ) then
4344:
4345: IF (p_x_line_rec.arrival_set IS NOT NULL AND
4346: p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR AND
4347: (p_x_line_rec.arrival_set_id IS NULL OR
4348: p_x_line_rec.arrival_set_id = FND_API.G_MISS_NUM)) OR
4349: (p_old_line_rec.arrival_set is not null AND
4350: p_old_line_rec.arrival_set <> FND_API.G_MISS_CHAR ) then
4351: IF l_debug_level > 0 THEN
4352: oe_debug_pub.add( 'ARRIVAL SET CREATION' , 1 ) ;
4346: p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR AND
4347: (p_x_line_rec.arrival_set_id IS NULL OR
4348: p_x_line_rec.arrival_set_id = FND_API.G_MISS_NUM)) OR
4349: (p_old_line_rec.arrival_set is not null AND
4350: p_old_line_rec.arrival_set <> FND_API.G_MISS_CHAR ) then
4351: IF l_debug_level > 0 THEN
4352: oe_debug_pub.add( 'ARRIVAL SET CREATION' , 1 ) ;
4353: END IF;
4354:
4361: -- arise while cascading scheduling attributes since there are ovelapping
4362: -- set attributes in arrival and ship sets.
4363:
4364: IF (p_x_line_rec.ship_set_id IS NOT NULL AND
4365: p_x_line_rec.ship_set_id <> FND_API.G_MISS_NUM ) OR
4366: (p_x_line_rec.ship_set IS NOT NULL AND
4367: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR) THEN
4368:
4369:
4363:
4364: IF (p_x_line_rec.ship_set_id IS NOT NULL AND
4365: p_x_line_rec.ship_set_id <> FND_API.G_MISS_NUM ) OR
4366: (p_x_line_rec.ship_set IS NOT NULL AND
4367: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR) THEN
4368:
4369:
4370: /* Changed the message to fix the bug 2862565 */
4371: -- FND_MESSAGE.Set_Name('ONT', 'OE_INVALID_SET_COMB');
4371: -- FND_MESSAGE.Set_Name('ONT', 'OE_INVALID_SET_COMB');
4372: FND_MESSAGE.Set_Name('ONT','OE_SCH_NOT_IN_SHIP_ARR');
4373: /* Changed the message to fix the bug 2862565 */
4374: oe_msg_pub.add;
4375: RAISE FND_API.G_EXC_ERROR;
4376:
4377: /*IF Set_Exist(p_set_name => p_x_line_rec.arrival_set,
4378: p_set_type => 'ARRIVAL_SET',
4379: p_header_id =>p_x_line_rec.header_id,
4390: IF x_arrival_set_id IS NOT NULL AND
4391: nvl(l_set_id,-99) <> x_arrival_set_id THEN
4392: FND_MESSAGE.Set_Name('ONT', 'OE_INVALID_SET_COMB');
4393: oe_msg_pub.add;
4394: RAISE FND_API.G_EXC_ERROR;
4395: END IF; */
4396:
4397: END IF; -- If ship set id
4398:
4409: fnd_message.set_name('ONT', 'OE_SET_CLOSED');
4410: FND_MESSAGE.SET_TOKEN('SET',
4411: l_set_rec.set_name);
4412: oe_msg_pub.add;
4413: RAISE FND_API.G_EXC_ERROR;
4414: END IF;
4415:
4416: -- If set exists and line is getting inserted into an existing set then
4417: -- default set attributes.
4489: -- This logic will add an entry into global table if already not exists one
4490:
4491: IF p_x_line_rec.operation = oe_globals.g_opr_create THEN
4492: IF (p_x_line_rec.line_id IS NOT NULL AND
4493: p_x_line_rec.line_id <> FND_API.G_MISS_NUM ) THEN
4494: g_set_tbl(I).line_id := p_x_line_rec.line_id;
4495: ELSE
4496: g_set_tbl(I).line_id := p_index;
4497: g_set_tbl(I).operation := 'C';
4516:
4517: -- This login will work off the set id if user chooses to pass setid
4518:
4519: ELSIF (p_x_line_rec.arrival_set_id IS NOT NULL AND
4520: p_x_line_rec.arrival_set_id <> FND_API.G_MISS_NUM) then
4521: IF l_debug_level > 0 THEN
4522: oe_debug_pub.add( 'IN ARRIVAL SET ID' , 1 ) ;
4523: END IF;
4524:
4566: -- If user is trying to remove the line from the set and if its a model then
4567: -- all the options need be removed
4568:
4569: ELSIF (p_old_line_rec.arrival_set_id IS NOT NULL AND
4570: p_old_line_rec.arrival_set_id <> FND_API.G_MISS_NUM) AND
4571: (p_x_line_rec.arrival_set_id IS NULL)then
4572: IF (p_x_line_rec.top_model_line_id = p_x_line_rec.line_id) THEN
4573: IF l_debug_level > 0 THEN
4574: oe_debug_pub.add( 'IN REMOVE OF ARRIVAL SET' , 1 ) ;
4615: oe_debug_pub.add( 'WHAT THE HEC ' , 1 ) ;
4616: END IF;
4617:
4618: IF (p_x_line_rec.ship_set IS NOT NULL AND
4619: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR)OR
4620: ( p_old_line_rec.ship_set is not null AND
4621: p_old_line_rec.ship_set <> FND_API.G_MISS_CHAR) then
4622: IF l_debug_level > 0 THEN
4623: oe_debug_pub.add( 'BEFORE SHIP SET NAME' ) ;
4617:
4618: IF (p_x_line_rec.ship_set IS NOT NULL AND
4619: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR)OR
4620: ( p_old_line_rec.ship_set is not null AND
4621: p_old_line_rec.ship_set <> FND_API.G_MISS_CHAR) then
4622: IF l_debug_level > 0 THEN
4623: oe_debug_pub.add( 'BEFORE SHIP SET NAME' ) ;
4624: END IF;
4625: IF Set_Exist(p_set_name =>p_x_line_rec.ship_set,
4634: fnd_message.set_name('ONT', 'OE_SET_CLOSED');
4635: FND_MESSAGE.SET_TOKEN('SET',
4636: l_set_rec.set_name);
4637: oe_msg_pub.add;
4638: RAISE FND_API.G_EXC_ERROR;
4639: END IF;
4640: p_x_line_rec.ship_to_org_id := l_set_rec.ship_to_org_id;
4641: p_x_line_rec.ship_from_org_id := l_set_rec.ship_from_org_id;
4642: p_x_line_rec.schedule_ship_date := l_set_rec.schedule_ship_date;
4747: oe_debug_pub.add( 'NOT EXISTS' ) ;
4748: END IF;
4749: IF p_x_line_rec.operation = oe_globals.g_opr_create THEN
4750: IF (p_x_line_rec.line_id IS NOT NULL AND
4751: p_x_line_rec.line_id <> FND_API.G_MISS_NUM ) THEN
4752: g_set_tbl(I).line_id := p_x_line_rec.line_id;
4753: ELSE
4754: g_set_tbl(I).line_id := p_index;
4755: g_set_tbl(I).operation := 'C';
4767:
4768: p_x_line_rec.ship_set_id := NULL;
4769: END IF;
4770: ELSIF (p_x_line_rec.ship_set_id IS NOT NULL AND
4771: p_x_line_rec.ship_set_id <> FND_API.G_MISS_NUM)THEN
4772: IF NOT OE_GLOBALS.Equal(p_x_line_rec.ship_set_id,p_old_line_rec.ship_set_id)
4773: THEN
4774: IF l_debug_level > 0 THEN
4775: oe_debug_pub.add( 'ITEM TYPE CODE' || P_X_LINE_REC.SHIP_SET_ID ) ;
4810: END IF;
4811: END IF;
4812: END IF;
4813: ELSIF (p_old_line_rec.ship_set_id IS NOT NULL AND
4814: p_old_line_rec.ship_set_id <> FND_API.G_MISS_NUM) AND
4815: (p_x_line_rec.ship_set_id IS NULL)then
4816: IF (p_x_line_rec.top_model_line_id = p_x_line_rec.line_id) THEN
4817:
4818: IF g_set_opt_tbl.count > 0 THEN
4850:
4851: -- Fulfillment sets will have the similar logic as arrival sets
4852:
4853: IF (p_x_line_rec.fulfillment_set IS NOT NULL AND
4854: p_x_line_rec.fulfillment_set <> FND_API.G_MISS_CHAR)THEN
4855:
4856: IF l_debug_level > 0 THEN
4857: oe_debug_pub.add( 'INTO FULLFILLMENT SETS ' ) ;
4858: END IF;
4903: oe_debug_pub.add( 'NOT EXISTS' ) ;
4904: END IF;
4905: IF p_x_line_rec.operation = oe_globals.g_opr_create THEN
4906: IF (p_x_line_rec.line_id IS NOT NULL AND
4907: p_x_line_rec.line_id <> FND_API.G_MISS_NUM ) THEN
4908: g_set_tbl(I).line_id := p_x_line_rec.line_id;
4909: ELSE
4910: g_set_tbl(I).line_id := p_index;
4911: g_set_tbl(I).operation := 'C';
4922: IF l_debug_level > 0 THEN
4923: oe_debug_pub.add( 'EXIT FULLFILLMENT SET ' ) ;
4924: END IF;
4925: ELSIF (p_x_line_rec.fulfillment_set_id IS NOT NULL AND
4926: p_x_line_rec.fulfillment_set_id <> FND_API.G_MISS_NUM)THEN
4927: IF NOT OE_GLOBALS.Equal(p_x_line_rec.fulfillment_set_id,p_old_line_rec.fulfillment_set_id)
4928: THEN
4929:
4930: IF NOT Set_Exist(p_set_id => p_x_line_rec.fulfillment_set_id) THEN
4969: oe_debug_pub.add( 'NOT EXISTS' ) ;
4970: END IF;
4971: IF p_x_line_rec.operation = oe_globals.g_opr_create THEN
4972: IF (p_x_line_rec.line_id IS NOT NULL AND
4973: p_x_line_rec.line_id <> FND_API.G_MISS_NUM ) THEN
4974: g_set_tbl(I).line_id := p_x_line_rec.line_id;
4975: ELSE
4976: g_set_tbl(I).line_id := p_index;
4977: g_set_tbl(I).operation := 'C';
5007: END IF;
5008: END IF;
5009: END IF;
5010: ELSIF (p_old_line_rec.fulfillment_set_id IS NOT NULL AND
5011: p_old_line_rec.fulfillment_set_id <> FND_API.G_MISS_NUM) AND
5012: (p_x_line_rec.fulfillment_set_id IS NULL)then
5013: IF (p_x_line_rec.top_model_line_id = p_x_line_rec.line_id) THEN
5014:
5015: IF g_set_opt_tbl.count > 0 THEN
5041: OR
5042: NOT OE_GLOBALS.Equal(p_x_line_rec.ship_set_id,p_old_line_rec.ship_set_id)
5043: OR
5044: (p_x_line_rec.arrival_set IS NOT NULL AND
5045: p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR)
5046: OR
5047: (p_x_line_rec.ship_set IS NOT NULL AND
5048: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR)
5049: THEN
5044: (p_x_line_rec.arrival_set IS NOT NULL AND
5045: p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR)
5046: OR
5047: (p_x_line_rec.ship_set IS NOT NULL AND
5048: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR)
5049: THEN
5050:
5051: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_SET_OPR');
5052: -- FND_MESSAGE.SET_TOKEN('ITEMTYPE',
5053: -- p_x_line_rec.item_type_code);
5054:
5055: OE_MSG_PUB.ADD;
5056: oe_debug_pub.add('Set- not allowed for this itemtype');
5057: RAISE FND_API.G_EXC_ERROR;
5058:
5059: END IF;
5060: */
5061:
5060: */
5061:
5062: -- Added this part of the code to fix bug 2116353.
5063: IF p_x_line_rec.arrival_set IS NOT NULL
5064: AND p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR
5065: AND p_x_line_rec.arrival_set_id IS NULL THEN
5066:
5067: IF Set_Exist(p_set_name => p_x_line_rec.arrival_set,
5068: p_set_type => 'ARRIVAL_SET',
5074:
5075: END IF;
5076:
5077: ELSIF p_x_line_rec.ship_set IS NOT NULL
5078: AND p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR
5079: AND p_x_line_rec.ship_set_id IS NULL THEN
5080:
5081: IF Set_Exist(p_set_name => p_x_line_rec.ship_set,
5082: p_set_type => 'SHIP_SET',
5123:
5124: END IF; -- Recursive Flag
5125:
5126: EXCEPTION
5127: WHEN FND_API.G_EXC_ERROR THEN
5128:
5129: RAISE FND_API.G_EXC_ERROR;
5130:
5131:
5125:
5126: EXCEPTION
5127: WHEN FND_API.G_EXC_ERROR THEN
5128:
5129: RAISE FND_API.G_EXC_ERROR;
5130:
5131:
5132: WHEN OTHERS THEN
5133:
5138: , 'Get_Set_Id'
5139: );
5140: END IF;
5141:
5142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5143:
5144:
5145:
5146: END Get_Set_Id;
5174:
5175: IF
5176: (p_set_id IS NULL
5177: OR
5178: p_set_id = FND_API.G_MISS_NUM)
5179: THEN
5180:
5181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5182:
5177: OR
5178: p_set_id = FND_API.G_MISS_NUM)
5179: THEN
5180:
5181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5182:
5183: END IF;
5184:
5185: Begin
5190: Where set_id = p_set_id;
5191: Exception
5192: When Others Then
5193:
5194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5195: END;
5196: FOR C1REC in C1 LOOP
5197: oe_line_util.query_row(p_line_id => c1rec.line_id,
5198: x_line_rec => l_line_rec);
5204:
5205: IF
5206: (p_set_id IS NOT NULL
5207: AND
5208: p_set_id <> FND_API.G_MISS_NUM)
5209: AND
5210: (x_line_tbl.COUNT = 0)
5211: THEN
5212: RAISE NO_DATA_FOUND;
5220:
5221:
5222: EXCEPTION
5223:
5224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5225:
5226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5227:
5228: WHEN OTHERS THEN
5222: EXCEPTION
5223:
5224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5225:
5226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5227:
5228: WHEN OTHERS THEN
5229:
5230: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5234: , 'Query_Set_Rows'
5235: );
5236: END IF;
5237:
5238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5239:
5240: END Query_Set_Rows;
5241:
5242: PROCEDURE Create_line_Set(p_x_line_rec IN OUT NOCOPY OE_ORDER_PUB.LINE_REC_TYPE
5297: END IF;
5298:
5299:
5300: EXCEPTION
5301: WHEN FND_API.G_EXC_ERROR THEN
5302:
5303: RAISE FND_API.G_EXC_ERROR;
5304:
5305:
5299:
5300: EXCEPTION
5301: WHEN FND_API.G_EXC_ERROR THEN
5302:
5303: RAISE FND_API.G_EXC_ERROR;
5304:
5305:
5306: WHEN OTHERS THEN
5307: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5310: ( G_PKG_NAME ,
5311: 'create_line_set'
5312: );
5313: END IF;
5314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5315:
5316: END Create_Line_Set;
5317:
5318: Procedure Process_Sets(p_x_line_tbl IN OUT NOCOPY OE_ORDER_PUB.LINE_TBL_TYPE
5516: OE_MSG_PUB.ADD;
5517: IF l_debug_level > 0 THEN
5518: oe_debug_pub.add( 'SET- NOT ALLOWED FOR THIS ITEMTYPE' ) ;
5519: END IF;
5520: --RAISE FND_API.G_EXC_ERROR;
5521: g_set_tbl(I).process_flag := 'Y' ;
5522: END IF;
5523: END IF;
5524:
5657: OE_MSG_PUB.ADD;
5658: IF l_debug_level > 0 THEN
5659: oe_debug_pub.add( 'SET- NOT ALLOWED FOR THIS ITEMTYPE' ) ;
5660: END IF;
5661: --RAISE FND_API.G_EXC_ERROR;
5662: g_set_tbl(J).process_flag := 'Y' ;
5663: END IF;
5664: IF l_debug_level > 0 THEN
5665: oe_debug_pub.add( 'PROCES FLAG- J:' || G_SET_TBL ( J ) .PROCESS_FLAG ) ;
5700: --l_line_tbl(l_count).schedule_arrival_date := l_schedule_arrival_date;
5701: -- l_line_tbl(l_count).freight_carrier_code := l_freight_carrier_code;
5702: ELSIF g_set_tbl(J).set_type = 'ARRIVAL_SET' THEN
5703: IF (l_line_tbl(l_count).ship_set_id IS NOT NULL AND
5704: l_line_tbl(l_count).ship_set_id <> FND_API.G_MISS_NUM) THEN
5705:
5706: IF Set_Exist(p_set_name =>g_set_tbl(J).set_name,
5707: p_set_type => 'ARRIVAL_SET',
5708: p_header_id =>l_line_tbl(l_count).header_id,
5722: -- FND_MESSAGE.Set_Name('ONT', 'OE_INVALID_SET_COMB');
5723: FND_MESSAGE.Set_Name('ONT','OE_SCH_NOT_IN_SHIP_ARR');
5724: /* Changed the message to fix the bug 2862565 */
5725: oe_msg_pub.add;
5726: RAISE FND_API.G_EXC_ERROR;
5727: END IF;
5728:
5729: END IF;
5730:
5821:
5822: IF l_debug_level > 0 THEN
5823: oe_debug_pub.add( 'AFTER GROUP SCHEDULING' , 1 ) ;
5824: END IF;
5825: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5826: IF l_debug_level > 0 THEN
5827: oe_debug_pub.add( 'RETURNSTATUS UNEXPECTED SCHEDULING' , 1 ) ;
5828: END IF;
5829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5825: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5826: IF l_debug_level > 0 THEN
5827: oe_debug_pub.add( 'RETURNSTATUS UNEXPECTED SCHEDULING' , 1 ) ;
5828: END IF;
5829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5830: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5831: IF l_debug_level > 0 THEN
5832: oe_debug_pub.add( 'RETURNSTATUS ERROR SCHEDULING' , 1 ) ;
5833: END IF;
5826: IF l_debug_level > 0 THEN
5827: oe_debug_pub.add( 'RETURNSTATUS UNEXPECTED SCHEDULING' , 1 ) ;
5828: END IF;
5829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5830: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5831: IF l_debug_level > 0 THEN
5832: oe_debug_pub.add( 'RETURNSTATUS ERROR SCHEDULING' , 1 ) ;
5833: END IF;
5834: RAISE FND_API.G_EXC_ERROR;
5830: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5831: IF l_debug_level > 0 THEN
5832: oe_debug_pub.add( 'RETURNSTATUS ERROR SCHEDULING' , 1 ) ;
5833: END IF;
5834: RAISE FND_API.G_EXC_ERROR;
5835: END IF;
5836: --l_header_id := l_line_tbl(1).header_id;
5837: IF l_set_type = 'SHIP_SET' THEN
5838: l_ship_from_org_id := l_line_tbl(1).ship_from_org_id;
5872: X_Return_Status => l_return_status,
5873: x_msg_count => x_msg_count,
5874: x_msg_data => x_msg_data);
5875:
5876: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5878: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5879: RAISE FND_API.G_EXC_ERROR;
5880: END IF;
5873: x_msg_count => x_msg_count,
5874: x_msg_data => x_msg_data);
5875:
5876: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5878: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5879: RAISE FND_API.G_EXC_ERROR;
5880: END IF;
5881:
5874: x_msg_data => x_msg_data);
5875:
5876: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5878: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5879: RAISE FND_API.G_EXC_ERROR;
5880: END IF;
5881:
5882: IF l_set_type = 'FULFILLMENT_SET' THEN
5875:
5876: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5878: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5879: RAISE FND_API.G_EXC_ERROR;
5880: END IF;
5881:
5882: IF l_set_type = 'FULFILLMENT_SET' THEN
5883: IF l_debug_level > 0 THEN
5943: p_Freight_Carrier_Code => l_line_tbl(K).Freight_Carrier_Code,
5944: p_Shipping_Method_Code => l_line_tbl(K).Shipping_Method_Code,
5945: X_Return_Status => l_return_status);*/
5946:
5947: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5948: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5949: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5950: RAISE FND_API.G_EXC_ERROR;
5951: END IF;
5944: p_Shipping_Method_Code => l_line_tbl(K).Shipping_Method_Code,
5945: X_Return_Status => l_return_status);*/
5946:
5947: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5948: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5949: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5950: RAISE FND_API.G_EXC_ERROR;
5951: END IF;
5952: END IF;
5945: X_Return_Status => l_return_status);*/
5946:
5947: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5948: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5949: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5950: RAISE FND_API.G_EXC_ERROR;
5951: END IF;
5952: END IF;
5953: END LOOP;
5946:
5947: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5948: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5949: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5950: RAISE FND_API.G_EXC_ERROR;
5951: END IF;
5952: END IF;
5953: END LOOP;
5954:
5981: END IF;
5982:
5983:
5984: oe_order_pvt.Lines
5985: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
5986: , p_control_rec => l_control_rec
5987: , p_x_line_tbl => l_line_tbl
5988: , p_x_old_line_tbl => g_old_line_tbl
5989: , x_return_status => l_return_status
5988: , p_x_old_line_tbl => g_old_line_tbl
5989: , x_return_status => l_return_status
5990:
5991: );
5992: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5994: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5995: RAISE FND_API.G_EXC_ERROR;
5996: END IF;
5989: , x_return_status => l_return_status
5990:
5991: );
5992: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5994: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5995: RAISE FND_API.G_EXC_ERROR;
5996: END IF;
5997:
5990:
5991: );
5992: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5994: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5995: RAISE FND_API.G_EXC_ERROR;
5996: END IF;
5997:
5998: /* jolin start comment out nocopy for notification project
5991: );
5992: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5994: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5995: RAISE FND_API.G_EXC_ERROR;
5996: END IF;
5997:
5998: /* jolin start comment out nocopy for notification project
5999:
6018: oe_debug_pub.add( 'AFTER CALLING PROCESS ORDER IN SETS-1' ) ;
6019: END IF;
6020: g_set_recursive_flag := FALSE;
6021:
6022: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
6023: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
6024: END IF;
6025:
6026:
6080: END IF;
6081:
6082:
6083: EXCEPTION
6084: WHEN FND_API.G_EXC_ERROR THEN
6085:
6086: RAISE FND_API.G_EXC_ERROR;
6087:
6088: WHEN OTHERS THEN
6082:
6083: EXCEPTION
6084: WHEN FND_API.G_EXC_ERROR THEN
6085:
6086: RAISE FND_API.G_EXC_ERROR;
6087:
6088: WHEN OTHERS THEN
6089:
6090: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6094: 'Process Sets'
6095: );
6096: END IF;
6097:
6098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6099:
6100:
6101:
6102: END Process_Sets;
6309: (p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE and
6310: p_x_line_rec.split_from_line_id is NOT NULL)) then
6311:
6312: IF ((p_x_line_rec.arrival_set is not null AND
6313: p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR) OR
6314: (p_x_line_rec.arrival_set_id is not null AND
6315: p_x_line_rec.arrival_set_id <> FND_API.G_MISS_NUM))
6316: AND ((p_x_line_rec.ship_set is not null AND
6317: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR) OR
6311:
6312: IF ((p_x_line_rec.arrival_set is not null AND
6313: p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR) OR
6314: (p_x_line_rec.arrival_set_id is not null AND
6315: p_x_line_rec.arrival_set_id <> FND_API.G_MISS_NUM))
6316: AND ((p_x_line_rec.ship_set is not null AND
6317: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR) OR
6318: (p_x_line_rec.ship_set_id is not null AND
6319: p_x_line_rec.ship_set_id <> FND_API.G_MISS_NUM))
6313: p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR) OR
6314: (p_x_line_rec.arrival_set_id is not null AND
6315: p_x_line_rec.arrival_set_id <> FND_API.G_MISS_NUM))
6316: AND ((p_x_line_rec.ship_set is not null AND
6317: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR) OR
6318: (p_x_line_rec.ship_set_id is not null AND
6319: p_x_line_rec.ship_set_id <> FND_API.G_MISS_NUM))
6320: THEN
6321:
6315: p_x_line_rec.arrival_set_id <> FND_API.G_MISS_NUM))
6316: AND ((p_x_line_rec.ship_set is not null AND
6317: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR) OR
6318: (p_x_line_rec.ship_set_id is not null AND
6319: p_x_line_rec.ship_set_id <> FND_API.G_MISS_NUM))
6320: THEN
6321:
6322: IF l_debug_level > 0 THEN
6323: oe_debug_pub.add( 'INVALID SER OPR' , 2 ) ;
6323: oe_debug_pub.add( 'INVALID SER OPR' , 2 ) ;
6324: END IF;
6325: FND_MESSAGE.Set_Name('ONT', 'OE_SCH_NOT_IN_SHIP_ARR'); -- 2724197 New message added
6326: oe_msg_pub.add;
6327: RAISE FND_API.G_EXC_ERROR;
6328:
6329: END IF; -- not both sets populated.
6330:
6331: -- QUOTING Changes - default line set only for lines in fulfillment phase
6478: IF l_debug_level > 0 THEN
6479: oe_debug_pub.add( 'Return Status '|| l_return_status , 1 ) ;
6480: END IF;
6481:
6482: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6483: p_x_line_rec.ship_set_id := Null;
6484: GOTO NO_PROCESS;
6485: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6481:
6482: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6483: p_x_line_rec.ship_set_id := Null;
6484: GOTO NO_PROCESS;
6485: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6487: END IF;
6488:
6489: END IF;
6482: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6483: p_x_line_rec.ship_set_id := Null;
6484: GOTO NO_PROCESS;
6485: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6487: END IF;
6488:
6489: END IF;
6490:
6594: -- Check if the set name is populated and it is a new set
6595: -- Process for arrival sets
6596:
6597: IF (p_x_line_rec.arrival_set IS NOT NULL AND
6598: p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR) THEN
6599:
6600: IF l_debug_level > 0 THEN
6601: oe_debug_pub.add( 'INTO ARRIVAL SET'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6602: END IF;
6702: -- Begin the logic for Ship sets . The logic must go in the same way as
6703: -- arrival sets and is no different execept for set type being SHIP SET
6704:
6705: ELSIF (p_x_line_rec.ship_set IS NOT NULL AND
6706: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR) THEN
6707:
6708: -- Check if this is existing set
6709: IF Set_Exist(p_set_name => p_x_line_rec.ship_set,
6710: p_set_type => 'SHIP_SET',
6840: l_set_ship_to := p_x_line_rec.ship_to_org_id;
6841: END IF;
6842:
6843: /*IF ((p_x_line_rec.arrival_set_id IS NOT NULL
6844: AND p_x_line_rec.arrival_set_id <> FND_API.G_MISS_NUM)
6845: OR
6846: ( p_x_line_rec.arrival_set IS NOT NULL
6847: AND p_x_line_rec.arrival_set <> FND_API.G_MISS_char ))
6848: THEN
6843: /*IF ((p_x_line_rec.arrival_set_id IS NOT NULL
6844: AND p_x_line_rec.arrival_set_id <> FND_API.G_MISS_NUM)
6845: OR
6846: ( p_x_line_rec.arrival_set IS NOT NULL
6847: AND p_x_line_rec.arrival_set <> FND_API.G_MISS_char ))
6848: THEN
6849:
6850: IF p_x_line_rec.ship_from_org_id IS NULL THEN
6851: FND_MESSAGE.SET_NAME('ONT','ONT_ATTR_REQ_SET');
6850: IF p_x_line_rec.ship_from_org_id IS NULL THEN
6851: FND_MESSAGE.SET_NAME('ONT','ONT_ATTR_REQ_SET');
6852: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Warehouse'); --9680007 4241385
6853: OE_MSG_PUB.ADD;
6854: RAISE FND_API.G_EXC_ERROR;
6855: END IF ;
6856:
6857: IF p_x_line_rec.shipping_method_code IS NULL THEN
6858: FND_MESSAGE.SET_NAME('ONT','ONT_ATTR_REQ_SET');
6857: IF p_x_line_rec.shipping_method_code IS NULL THEN
6858: FND_MESSAGE.SET_NAME('ONT','ONT_ATTR_REQ_SET');
6859: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Ship Method');
6860: OE_MSG_PUB.ADD;
6861: RAISE FND_API.G_EXC_ERROR;
6862: END IF ;
6863:
6864: END IF ;*/
6865: /*we need to ensure that all the lines in a ship set have the same warehouse, if the
6864: END IF ;*/
6865: /*we need to ensure that all the lines in a ship set have the same warehouse, if the
6866: ship set id is passed(from PO API) or even if ship set name is passed (from UI)*/
6867: IF ((p_x_line_rec.ship_set_id IS NOT NULL
6868: AND p_x_line_rec.ship_set_id <> FND_API.G_MISS_NUM)
6869: OR
6870: ( p_x_line_rec.ship_set IS NOT NULL
6871: AND p_x_line_rec.ship_set <> FND_API.G_MISS_char ))
6872: THEN
6867: IF ((p_x_line_rec.ship_set_id IS NOT NULL
6868: AND p_x_line_rec.ship_set_id <> FND_API.G_MISS_NUM)
6869: OR
6870: ( p_x_line_rec.ship_set IS NOT NULL
6871: AND p_x_line_rec.ship_set <> FND_API.G_MISS_char ))
6872: THEN
6873:
6874: /* IF p_x_line_rec.ship_from_org_id IS NULL THEN
6875: FND_MESSAGE.SET_NAME('ONT','ONT_ATTR_REQ_SET');
6874: /* IF p_x_line_rec.ship_from_org_id IS NULL THEN
6875: FND_MESSAGE.SET_NAME('ONT','ONT_ATTR_REQ_SET');
6876: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Warehouse');
6877: OE_MSG_PUB.ADD;
6878: RAISE FND_API.G_EXC_ERROR; --9680007 4241385
6879: END IF ;
6880:
6881: IF p_x_line_rec.shipping_method_code IS NULL THEN
6882: FND_MESSAGE.SET_NAME('ONT','ONT_ATTR_REQ_SET');
6881: IF p_x_line_rec.shipping_method_code IS NULL THEN
6882: FND_MESSAGE.SET_NAME('ONT','ONT_ATTR_REQ_SET');
6883: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Ship Method');
6884: OE_MSG_PUB.ADD;
6885: RAISE FND_API.G_EXC_ERROR;
6886: END IF ; */
6887:
6888: IF l_debug_level > 0 THEN
6889: oe_debug_pub.add( ' BEFORE SET EXISTS ' , 1 ) ;
6888: IF l_debug_level > 0 THEN
6889: oe_debug_pub.add( ' BEFORE SET EXISTS ' , 1 ) ;
6890: END IF;
6891: IF (p_x_line_rec.ship_set_id IS NOT NULL
6892: AND p_x_line_rec.ship_set_id <> FND_API.G_MISS_NUM) THEN
6893:
6894: BEGIN
6895: SELECT ship_from_org_id , schedule_ship_date ,shipping_method_code
6896: , set_name
6906: END ;
6907: l_ship_set_id:= p_x_line_rec.ship_set_id;
6908:
6909: ELSIF ( p_x_line_rec.ship_set IS NOT NULL
6910: AND p_x_line_rec.ship_set <> FND_API.G_MISS_char ) THEN
6911:
6912: /* if only the ship set name is passed, we can get the ship set id by calling the
6913: set_exists API*/
6914:
6944:
6945: --9680007 added nvl condition to take care of null values.
6946: IF ((p_x_line_rec.ship_from_org_id <> p_old_line_rec.ship_from_org_id)
6947: AND p_old_line_rec.ship_from_org_id IS NOT NULL
6948: AND p_old_line_rec.ship_from_org_id <>FND_API.G_MISS_NUM
6949: AND l_schedule_ship_Date IS NULL)
6950: OR (p_x_line_rec.ship_from_org_id IS NOT NULL
6951: AND l_ship_from_org_id IS null )THEN --9680007 4241385 added OR condition.
6952:
6967: FND_MESSAGE.SET_NAME('ONT','ONT_INVALID_SET_ATTR_W');
6968: fnd_message.set_token('ATTR1',oe_order_util.GET_ATTRIBUTE_name('ITEM_ID'));
6969: fnd_message.set_token('ATTR2',oe_order_util.GET_ATTRIBUTE_name('SHIP_FROM_ORG_ID'));
6970: OE_MSG_PUB.ADD;
6971: RAISE FND_API.G_EXC_ERROR;
6972: END ;
6973: END LOOP ;
6974:
6975: /* if the new warehouse is valid on all the lines in the set, then update
7010: FND_MESSAGE.SET_NAME('ONT','ONT_DIFF_SET_ATTR');
7011: fnd_message.set_token('SHIP_SET',l_set_name_dsp);
7012: fnd_message.set_token('ATTRIBUTE',oe_order_util.GET_ATTRIBUTE_name('SHIP_FROM_ORG_ID'));
7013: OE_MSG_PUB.ADD;
7014: RAISE FND_API.G_EXC_ERROR;
7015: END IF ;
7016: END IF ;
7017: END IF ; --9680007
7018: /*Adding validation for ship_method also*/
7028:
7029: IF ((NVL(p_x_line_rec.shipping_method_code,-99) <>
7030: NVL(p_old_line_rec.shipping_method_code,-99) ) --9680007 added nvl condition
7031: AND p_old_line_rec.shipping_method_code IS NOT NULL
7032: AND p_old_line_rec.shipping_method_code <>FND_API.G_MISS_CHAR
7033: AND l_schedule_ship_Date IS NULL)
7034: OR
7035: (p_x_line_rec.shipping_method_code IS NOT NULL
7036: AND l_shipping_method_code IS null ) -- 9680007 4241385
7053:
7054: FND_MESSAGE.SET_NAME('ONT','ONT_INVALID_SET_ATTR_S');
7055: fnd_message.set_token('ATTR',oe_order_util.GET_ATTRIBUTE_name('SHIPPING_METHOD_CODE'));
7056: OE_MSG_PUB.ADD;
7057: RAISE FND_API.G_EXC_ERROR;
7058: END ;
7059: END LOOP ;
7060:
7061: /* if the new warehouse is valid on all the lines in the set, then update
7096: FND_MESSAGE.SET_NAME('ONT','ONT_DIFF_SET_ATTR');
7097: fnd_message.set_token('SHIP_SET',l_set_name_dsp);
7098: fnd_message.set_token('ATTRIBUTE',oe_order_util.GET_ATTRIBUTE_name('SHIPPING_METHOD_CODE'));
7099: OE_MSG_PUB.ADD;
7100: RAISE FND_API.G_EXC_ERROR;
7101: END IF ;
7102: END IF ;
7103: END IF ;--ship methos profile option.
7104: END IF ;
7127: /* Re Initialize the customer preference to false if it was set in the above
7128: if condition */
7129: g_cust_pref_set := FALSE;
7130:
7131: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7133: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7134: RAISE FND_API.G_EXC_ERROR;
7135: END IF;
7128: if condition */
7129: g_cust_pref_set := FALSE;
7130:
7131: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7133: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7134: RAISE FND_API.G_EXC_ERROR;
7135: END IF;
7136: -- Populate set id on the line record accordingly
7129: g_cust_pref_set := FALSE;
7130:
7131: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7133: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7134: RAISE FND_API.G_EXC_ERROR;
7135: END IF;
7136: -- Populate set id on the line record accordingly
7137: IF l_set_type = 'ARRIVAL_SET' THEN
7130:
7131: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7133: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7134: RAISE FND_API.G_EXC_ERROR;
7135: END IF;
7136: -- Populate set id on the line record accordingly
7137: IF l_set_type = 'ARRIVAL_SET' THEN
7138: p_x_line_rec.arrival_set_id := l_set_id;
7329: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
7330: p_requesting_entity_id => optionrec.line_id,
7331: p_request_type => OE_GLOBALS.G_UPDATE_SHIPPING,
7332: p_request_unique_key1 => OE_GLOBALS.G_OPR_UPDATE,
7333: p_param1 => FND_API.G_TRUE,
7334: x_return_status => l_return_status);
7335:
7336: END IF;
7337: End loop;
7351: AND p_x_line_rec.top_model_line_id <> p_x_line_rec.line_id)
7352: AND p_x_line_rec.top_model_line_id IS NOT NULL THEN
7353:
7354: IF p_x_line_rec.ship_set IS NOT NULL AND
7355: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR THEN
7356: IF oe_set_util.Set_Exist(p_set_name => p_x_line_rec.ship_set,
7357: p_set_type => 'SHIP_SET',
7358: p_header_id =>p_x_line_rec.header_id,
7359: x_set_id => p_x_line_rec.ship_set_id) THEN
7359: x_set_id => p_x_line_rec.ship_set_id) THEN
7360: null;
7361: END IF;
7362: ELSIF p_x_line_rec.arrival_set IS NOT NULL AND
7363: p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR THEN
7364: IF oe_set_util.Set_Exist(p_set_name => p_x_line_rec.arrival_set,
7365: p_set_type => 'ARRIVAL_SET',
7366: p_header_id =>p_x_line_rec.header_id,
7367: x_set_id => p_x_line_rec.arrival_set_id) THEN
7399: OE_MSG_PUB.ADD;
7400: IF l_debug_level > 0 THEN
7401: oe_debug_pub.add( 'SET- NOT ALLOWED FOR THIS ITEMTYPE' ) ;
7402: END IF;
7403: RAISE FND_API.G_EXC_ERROR;
7404: END IF;
7405:
7406:
7407: END IF;
7529: END IF;
7530:
7531:
7532: EXCEPTION
7533: WHEN FND_API.G_EXC_ERROR THEN
7534:
7535: RAISE FND_API.G_EXC_ERROR;
7536:
7537:
7531:
7532: EXCEPTION
7533: WHEN FND_API.G_EXC_ERROR THEN
7534:
7535: RAISE FND_API.G_EXC_ERROR;
7536:
7537:
7538: WHEN OTHERS THEN
7539:
7544: , 'Default_Line_Set'
7545: );
7546: END IF;
7547:
7548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7549:
7550:
7551:
7552:
7593: l_cascade_flag := 'N';
7594: l_ful_exists := 'N';
7595:
7596: IF (p_x_line_rec.fulfillment_set IS NOT NULL AND
7597: p_x_line_rec.fulfillment_set <> FND_API.G_MISS_CHAR)THEN
7598: IF Set_Exist(p_set_name =>p_x_line_rec.fulfillment_set,
7599: p_set_type => 'FULFILLMENT_SET',
7600: p_header_id =>p_x_line_rec.header_id,
7601: x_set_id => l_set_id) THEN
7697: , 'Validate_Fulfillment_Set'
7698: );
7699: END IF;
7700:
7701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7702:
7703: End Validate_Fulfillment_Set;
7704:
7705: -- 4026756
7722: oe_debug_pub.add( 'HEADER ID '||p_request_rec.param2 , 3 ) ;
7723: oe_debug_pub.add( 'SET TYPE'||p_request_rec.param3 , 3 ) ;
7724: oe_debug_pub.add( 'SET ID'||p_request_rec.param1 , 3 ) ;
7725: END IF;
7726: x_return_status := FND_API.G_RET_STS_SUCCESS;
7727: BEGIN
7728: IF p_request_rec.param3 = oe_schedule_util.OESCH_ENTITY_SHIP_SET THEN
7729: SELECT 1
7730: INTO l_dummy
7766: IF l_debug_level > 0 THEN
7767: oe_debug_pub.add( 'EXITING DELETE SET' , 3 ) ;
7768: END IF;
7769: EXCEPTION
7770: WHEN FND_API.G_EXC_ERROR THEN
7771: x_return_status := FND_API.G_RET_STS_ERROR;
7772:
7773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7774: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7767: oe_debug_pub.add( 'EXITING DELETE SET' , 3 ) ;
7768: END IF;
7769: EXCEPTION
7770: WHEN FND_API.G_EXC_ERROR THEN
7771: x_return_status := FND_API.G_RET_STS_ERROR;
7772:
7773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7774: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7775:
7769: EXCEPTION
7770: WHEN FND_API.G_EXC_ERROR THEN
7771: x_return_status := FND_API.G_RET_STS_ERROR;
7772:
7773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7774: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7775:
7776: WHEN OTHERS THEN
7777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7770: WHEN FND_API.G_EXC_ERROR THEN
7771: x_return_status := FND_API.G_RET_STS_ERROR;
7772:
7773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7774: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7775:
7776: WHEN OTHERS THEN
7777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7778:
7773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7774: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7775:
7776: WHEN OTHERS THEN
7777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7778:
7779: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7780: THEN
7781: OE_MSG_PUB.Add_Exc_Msg