48: END IF;
49:
50: -- Initailize message list
51: If FND_API.To_Boolean( p_init_msg_list ) Then
52: FND_MSG_PUB.initialize;
53: End If;
54:
55: -- API Body
56: INV_Move_Order_Pub.Get_Move_Order(
80: END IF;
81:
82: IF ( l_trohdr_rec.header_status = 5 ) THEN
83: FND_MESSAGE.SET_NAME('INV','INV_TO_HEADER_STATUS');
84: FND_MSG_PUB.ADD;
85: RAISE FND_API.G_EXC_ERROR;
86: END IF;
87:
88: for I in 1..l_trolin_tbl.count loop
119: COMMIT WORK;
120: end if;
121:
122: -- Call to get msg count
123: FND_MSG_PUB.Count_And_Get(
124: p_count => x_msg_count,
125: p_data => x_msg_data ) ;
126:
127: EXCEPTION
126:
127: EXCEPTION
128: WHEN FND_API.G_EXC_ERROR THEN
129: x_return_status := FND_API.G_RET_STS_ERROR;
130: FND_MSG_PUB.Count_And_Get(
131: p_count => x_msg_count,
132: p_data => x_msg_data) ;
133: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
131: p_count => x_msg_count,
132: p_data => x_msg_data) ;
133: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
135: FND_MSG_PUB.Count_And_Get(
136: p_count => x_msg_count,
137: p_data => x_msg_data) ;
138: WHEN OTHERS THEN
139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
136: p_count => x_msg_count,
137: p_data => x_msg_data) ;
138: WHEN OTHERS THEN
139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
140: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
141: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Cancel_Order');
142: END IF;
143: FND_MSG_PUB.Count_And_Get(
144: p_count => x_msg_count,
137: p_data => x_msg_data) ;
138: WHEN OTHERS THEN
139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
140: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
141: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Cancel_Order');
142: END IF;
143: FND_MSG_PUB.Count_And_Get(
144: p_count => x_msg_count,
145: p_data => x_msg_data) ;
139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
140: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
141: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Cancel_Order');
142: END IF;
143: FND_MSG_PUB.Count_And_Get(
144: p_count => x_msg_count,
145: p_data => x_msg_data) ;
146: END CANCEL_ORDER;
147:
187: END IF;
188:
189: -- Initailize message list
190: If FND_API.To_Boolean( p_init_msg_list ) Then
191: FND_MSG_PUB.initialize;
192: End If;
193:
194: -- API Body
195: BEGIN
200: EXCEPTION
201: WHEN No_Data_Found THEN
202: RAISE FND_API.G_EXC_ERROR;
203: WHEN OTHERS THEN
204: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Close Order');
205: RAISE FND_API.G_EXC_ERROR;
206: END;
207:
208: IF ( l_hdr_status = 5 ) THEN
226: END IF;
227:
228: IF ( l_hdr_status = 1 OR l_line_status = 1 ) THEN
229: FND_MESSAGE.SET_NAME('INV','INV_TO_HEADER_STATUS');
230: FND_MSG_PUB.ADD;
231: RAISE FND_API.G_EXC_ERROR;
232: END IF;
233:
234: l_trolin_tbl := Inv_Trolin_Util.Get_Lines( l_header_id );
269: COMMIT WORK;
270: end if;
271:
272: -- Call to get msg count and data
273: FND_MSG_PUB.Count_And_Get(
274: p_count => x_msg_count,
275: p_data => x_msg_data ) ;
276:
277: EXCEPTION
276:
277: EXCEPTION
278: WHEN FND_API.G_EXC_ERROR THEN
279: x_return_status := FND_API.G_RET_STS_ERROR;
280: FND_MSG_PUB.Count_And_Get(
281: p_count => x_msg_count,
282: p_data => x_msg_data) ;
283: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
281: p_count => x_msg_count,
282: p_data => x_msg_data) ;
283: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
285: FND_MSG_PUB.Count_And_Get(
286: p_count => x_msg_count,
287: p_data => x_msg_data) ;
288: WHEN OTHERS THEN
289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
286: p_count => x_msg_count,
287: p_data => x_msg_data) ;
288: WHEN OTHERS THEN
289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
290: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
291: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Close_Order');
292: END IF;
293: FND_MSG_PUB.Count_And_Get(
294: p_count => x_msg_count,
287: p_data => x_msg_data) ;
288: WHEN OTHERS THEN
289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
290: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
291: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Close_Order');
292: END IF;
293: FND_MSG_PUB.Count_And_Get(
294: p_count => x_msg_count,
295: p_data => x_msg_data) ;
289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
290: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
291: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Close_Order');
292: END IF;
293: FND_MSG_PUB.Count_And_Get(
294: p_count => x_msg_count,
295: p_data => x_msg_data) ;
296: END CLOSE_ORDER;
297:
335: END IF;
336:
337: -- Initailize message list
338: If FND_API.To_Boolean( p_init_msg_list ) Then
339: FND_MSG_PUB.initialize;
340: End If;
341:
342: -- API Body
343: Begin
349: Exception
350: When No_Data_Found Then
351: RAISE FND_API.G_EXC_ERROR;
352: When OTHERS then
353: FND_MSG_PUB.Add_Exc_Msg
354: ( G_PKG_NAME
355: , 'purge Order'
356: );
357:
359: End;
360:
361: IF ( l_hdr_status <> 5 ) THEN
362: FND_MESSAGE.SET_NAME('INV','INV_TO_HEADER_STATUS');
363: FND_MSG_PUB.ADD;
364: RAISE FND_API.G_EXC_ERROR;
365: END IF;
366:
367: Delete MTL_TXN_REQUEST_LINES
380: COMMIT WORK;
381: end if;
382:
383: -- Call to get msg count and data
384: FND_MSG_PUB.Count_And_Get(
385: p_count => x_msg_count,
386: p_data => x_msg_data ) ;
387:
388: Exception
387:
388: Exception
389: WHEN FND_API.G_EXC_ERROR THEN
390: x_return_status := FND_API.G_RET_STS_ERROR;
391: FND_MSG_PUB.Count_And_Get(
392: p_count => x_msg_count,
393: p_data => x_msg_data ) ;
394:
395:
395:
396: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
397:
398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
399: FND_MSG_PUB.Count_And_Get(
400: p_count => x_msg_count,
401: p_data => x_msg_data ) ;
402:
403:
401: p_data => x_msg_data ) ;
402:
403:
404: WHEN OTHERS THEN
405: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
406: THEN
407: FND_MSG_PUB.Add_Exc_Msg
408: ( G_PKG_NAME
409: , 'Purge_Order'
403:
404: WHEN OTHERS THEN
405: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
406: THEN
407: FND_MSG_PUB.Add_Exc_Msg
408: ( G_PKG_NAME
409: , 'Purge_Order'
410: );
411: END IF;
408: ( G_PKG_NAME
409: , 'Purge_Order'
410: );
411: END IF;
412: FND_MSG_PUB.Count_And_Get(
413: p_count => x_msg_count,
414: p_data => x_msg_data ) ;
415:
416: END PURGE_ORDER;
464: END IF;
465:
466: -- Initailize message list
467: If FND_API.To_Boolean( p_init_msg_list ) Then
468: FND_MSG_PUB.initialize;
469: End If;
470:
471: -- API Body
472: Begin
481: EXCEPTION
482: WHEN No_Data_Found THEN
483: RAISE FND_API.G_EXC_ERROR;
484: WHEN app_exceptions.record_lock_exception THEN
485: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
486: fnd_message.set_name('ONT', 'OE_LOCK_ROW_ALREADY_LOCKED');
487: fnd_msg_pub.ADD;
488: END IF;
489: RAISE FND_API.G_EXC_ERROR;
483: RAISE FND_API.G_EXC_ERROR;
484: WHEN app_exceptions.record_lock_exception THEN
485: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
486: fnd_message.set_name('ONT', 'OE_LOCK_ROW_ALREADY_LOCKED');
487: fnd_msg_pub.ADD;
488: END IF;
489: RAISE FND_API.G_EXC_ERROR;
490: WHEN OTHERS THEN
491: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Cancel Line');
487: fnd_msg_pub.ADD;
488: END IF;
489: RAISE FND_API.G_EXC_ERROR;
490: WHEN OTHERS THEN
491: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Cancel Line');
492: RAISE FND_API.G_EXC_ERROR;
493: END;
494:
495:
499: END IF;
500:
501: IF ( l_Line_status = 5 ) THEN
502: FND_MESSAGE.SET_NAME('INV','INV_TO_HEADER_STATUS');
503: FND_MSG_PUB.ADD;
504: RAISE FND_API.G_EXC_ERROR;
505: END IF;
506:
507: IF ( l_mo_type <> 3 ) then /* 3 - pickwave type MO */
546: l_new_trolin_tbl(1).line_status := 6;
547: l_new_trolin_tbl(1).status_date := sysdate; --bug 5053725
548: l_delete_mmtt := 'YES';
549: When OTHERS then
550: FND_MSG_PUB.Add_Exc_Msg
551: ( G_PKG_NAME
552: , 'Cancel Line'
553: );
554:
591: COMMIT WORK;
592: end if;
593:
594: -- Call to get msg count and data
595: FND_MSG_PUB.Count_And_Get(
596: p_count => x_msg_count,
597: p_data => x_msg_data ) ;
598:
599: EXCEPTION
598:
599: EXCEPTION
600: WHEN FND_API.G_EXC_ERROR THEN
601: x_return_status := FND_API.G_RET_STS_ERROR;
602: FND_MSG_PUB.Count_And_Get(
603: p_count => x_msg_count,
604: p_data => x_msg_data) ;
605: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
606: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
603: p_count => x_msg_count,
604: p_data => x_msg_data) ;
605: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
606: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
607: FND_MSG_PUB.Count_And_Get(
608: p_count => x_msg_count,
609: p_data => x_msg_data) ;
610: WHEN OTHERS THEN
611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
608: p_count => x_msg_count,
609: p_data => x_msg_data) ;
610: WHEN OTHERS THEN
611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
612: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
613: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Cancel line');
614: END IF;
615: FND_MSG_PUB.Count_And_Get(
616: p_count => x_msg_count,
609: p_data => x_msg_data) ;
610: WHEN OTHERS THEN
611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
612: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
613: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Cancel line');
614: END IF;
615: FND_MSG_PUB.Count_And_Get(
616: p_count => x_msg_count,
617: p_data => x_msg_data ) ;
611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
612: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
613: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Cancel line');
614: END IF;
615: FND_MSG_PUB.Count_And_Get(
616: p_count => x_msg_count,
617: p_data => x_msg_data ) ;
618: END CANCEL_LINE;
619:
661: END IF;
662:
663: -- Initailize message list
664: If FND_API.To_Boolean( p_init_msg_list ) Then
665: FND_MSG_PUB.initialize;
666: End If;
667:
668: -- API Body
669: BEGIN
678: EXCEPTION
679: WHEN No_Data_Found THEN
680: RAISE FND_API.G_EXC_ERROR;
681: WHEN app_exceptions.record_lock_exception THEN
682: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
683: fnd_message.set_name('ONT', 'OE_LOCK_ROW_ALREADY_LOCKED');
684: fnd_msg_pub.ADD;
685: END IF;
686: RAISE FND_API.G_EXC_ERROR;
680: RAISE FND_API.G_EXC_ERROR;
681: WHEN app_exceptions.record_lock_exception THEN
682: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
683: fnd_message.set_name('ONT', 'OE_LOCK_ROW_ALREADY_LOCKED');
684: fnd_msg_pub.ADD;
685: END IF;
686: RAISE FND_API.G_EXC_ERROR;
687: WHEN OTHERS THEN
688: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Close Line');
684: fnd_msg_pub.ADD;
685: END IF;
686: RAISE FND_API.G_EXC_ERROR;
687: WHEN OTHERS THEN
688: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Close Line');
689: RAISE FND_API.G_EXC_ERROR;
690: END;
691:
692: IF ( l_Line_status = 5 ) THEN
702: END IF; */
703:
704: IF ( l_Line_status not in (3,4,6,7,9) ) THEN
705: FND_MESSAGE.SET_NAME('INV','INV_TO_HEADER_STATUS');
706: FND_MSG_PUB.ADD;
707: RAISE FND_API.G_EXC_ERROR;
708: END IF;
709:
710: /*Added bug3524130*/
794: COMMIT WORK;
795: end if;
796:
797: -- Call to get msg coount and data
798: FND_MSG_PUB.Count_And_Get(
799: p_count => x_msg_count,
800: p_data => x_msg_data ) ;
801:
802: Exception
801:
802: Exception
803: WHEN FND_API.G_EXC_ERROR THEN
804: x_return_status := FND_API.G_RET_STS_ERROR;
805: FND_MSG_PUB.Count_And_Get(
806: p_count => x_msg_count,
807: p_data => x_msg_data ) ;
808:
809: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
807: p_data => x_msg_data ) ;
808:
809: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
810: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
811: FND_MSG_PUB.Count_And_Get(
812: p_count => x_msg_count,
813: p_data => x_msg_data ) ;
814: WHEN OTHERS THEN
815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
812: p_count => x_msg_count,
813: p_data => x_msg_data ) ;
814: WHEN OTHERS THEN
815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
816: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
817: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Close line');
818: END IF;
819: FND_MSG_PUB.Count_And_Get(
820: p_count => x_msg_count,
813: p_data => x_msg_data ) ;
814: WHEN OTHERS THEN
815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
816: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
817: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Close line');
818: END IF;
819: FND_MSG_PUB.Count_And_Get(
820: p_count => x_msg_count,
821: p_data => x_msg_data ) ;
815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
816: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
817: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Close line');
818: END IF;
819: FND_MSG_PUB.Count_And_Get(
820: p_count => x_msg_count,
821: p_data => x_msg_data ) ;
822: END CLOSE_LINE;
823: