246: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
247: IF l_debug_level > 0 THEN
248: oe_debug_pub.add('Exception: verify payment returns failure',1);
249: END IF;
250: OE_MSG_PUB.Add_Text(p_message_text => l_msg_data);--bug4683857
251: OE_MSG_PUB.Save_API_Messages; --bug4683857
252: IF l_return_status = FND_API.G_RET_STS_ERROR then
253: RAISE Purchase_Release_Incomplete;
254: ELSE
247: IF l_debug_level > 0 THEN
248: oe_debug_pub.add('Exception: verify payment returns failure',1);
249: END IF;
250: OE_MSG_PUB.Add_Text(p_message_text => l_msg_data);--bug4683857
251: OE_MSG_PUB.Save_API_Messages; --bug4683857
252: IF l_return_status = FND_API.G_RET_STS_ERROR then
253: RAISE Purchase_Release_Incomplete;
254: ELSE
255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: END IF;
293:
294: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
295:
296: OE_MSG_PUB.Add_Text(p_message_text => l_msg_data);--bug4683857
297: OE_MSG_PUB.Save_API_Messages; --bug4683857
298: IF l_return_status = FND_API.G_RET_STS_ERROR then
299: RAISE Purchase_Release_Incomplete;
300: ELSE
293:
294: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
295:
296: OE_MSG_PUB.Add_Text(p_message_text => l_msg_data);--bug4683857
297: OE_MSG_PUB.Save_API_Messages; --bug4683857
298: IF l_return_status = FND_API.G_RET_STS_ERROR then
299: RAISE Purchase_Release_Incomplete;
300: ELSE
301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
303: END IF;
304:
305: IF (l_result = FND_API.G_TRUE) then
306: FND_MESSAGE.SET_NAME('ONT','OE_II_HOLD_FOUND');
307: OE_MSG_PUB.Add;
308: l_drop_ship_line_rec.result := OE_Purchase_Release_PVT.G_RES_ONHOLD;
309: l_drop_ship_line_rec.return_status := FND_API.G_RET_STS_ERROR;
310: RAISE Purchase_Release_Incomplete;
311: END IF;
312: END IF;/* If line is not a service line */
313:
314: IF l_drop_ship_line_rec.deliver_to_location_id is null THEN
315: FND_MESSAGE.SET_NAME('ONT','OE_DS_NO_LOC_LINK');
316: OE_MSG_PUB.Add;
317: l_return_status := FND_API.G_RET_STS_ERROR;
318: IF l_debug_level > 0 THEN
319: oe_debug_pub.add('Exception, Deliver to Location is not setup correctly',1);
320: END IF;
407: FROM PER_WORKFORCE_X
408: WHERE Person_Id = l_drop_ship_line_rec.employee_id
409: ;
410: Fnd_Message.Set_Token('USER', l_inv_emp_full_name);
411: OE_MSG_PUB.Add;
412: RAISE Purchase_Release_Incomplete;
413: END IF;
414:
415: ----- Start: Code changes done during 4099922
433: END IF;
434:
435: IF nvl(item_purchase_enabled,'N') <> 'Y' THEN
436: FND_MESSAGE.SET_NAME('PO','PO_RI_INVALID_ITEM_SRC_VEND_P');
437: OE_MSG_PUB.Add;
438: IF l_debug_level > 0 THEN
439: OE_DEBUG_PUB.add('Exception, item is not purchasing enabled',1);
440: END IF;
441: RAISE Purchase_Release_Incomplete;
451:
452: if v_request_date is null then
453: -- raise error, request date cannot be null #2003381.
454: FND_MESSAGE.SET_NAME('ONT','OE_REQUEST_DATE_FOR_PR_REQD');
455: OE_MSG_PUB.Add;
456: IF l_debug_level > 0 THEN
457: OE_DEBUG_PUB.add('Exception, Reqeust Date is either null or not valid',1);
458: END IF;
459: RAISE Purchase_Release_Incomplete;
667: l_drop_ship_line_rec.return_status := FND_API.G_RET_STS_ERROR;
668: IF l_drop_ship_line_rec.result <> OE_Purchase_Release_PVT.G_RES_ONHOLD THEN
669: l_drop_ship_line_rec.result := OE_Purchase_Release_PVT.G_RES_INCOMPLETE;
670: END IF;
671: --OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME ,'Purchase_Release'); bug 4683857
672: WHEN FND_API.G_EXC_ERROR THEN
673: l_drop_ship_line_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
674: -- Changes for Bug - 2352589
675: IF l_drop_ship_line_rec.result <> OE_Purchase_Release_PVT.G_RES_ONHOLD THEN
674: -- Changes for Bug - 2352589
675: IF l_drop_ship_line_rec.result <> OE_Purchase_Release_PVT.G_RES_ONHOLD THEN
676: l_drop_ship_line_rec.result := OE_Purchase_Release_PVT.G_RES_INCOMPLETE;
677: END IF;
678: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME ,'Purchase_Release');
679: IF l_debug_level > 0 THEN
680: oe_debug_pub.add('AN EXPECTED ERROR RAISED..'||SQLERRM , 1 ) ;
681: END IF;
682: RAISE FND_API.G_EXC_ERROR; -- bug 4683857
680: oe_debug_pub.add('AN EXPECTED ERROR RAISED..'||SQLERRM , 1 ) ;
681: END IF;
682: RAISE FND_API.G_EXC_ERROR; -- bug 4683857
683: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
684: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME ,'Purchase_Release');
685: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
686: IF l_debug_level > 0 THEN
687: oe_debug_pub.add('AN UNEXPECTED ERROR RAISED..'||SQLERRM , 1 ) ;
688: END IF;
687: oe_debug_pub.add('AN UNEXPECTED ERROR RAISED..'||SQLERRM , 1 ) ;
688: END IF;
689: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
690: WHEN OTHERS THEN
691: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
692: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME , 'Purchase_Release');
693: END IF;
694: IF l_debug_level > 0 THEN
695: oe_debug_pub.add('OTHER ERROR RAISED..'||SQLERRM , 1 ) ;
688: END IF;
689: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
690: WHEN OTHERS THEN
691: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
692: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME , 'Purchase_Release');
693: END IF;
694: IF l_debug_level > 0 THEN
695: oe_debug_pub.add('OTHER ERROR RAISED..'||SQLERRM , 1 ) ;
696: END IF;
707:
708: EXCEPTION
709:
710: WHEN FND_API.G_EXC_ERROR THEN
711: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
712: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Purchase_Release');
713: END IF; --bug 5030428
714: --OE_MSG_PUB.reset_msg_context('Purchase_Release'); 5030428
715: RAISE;
708: EXCEPTION
709:
710: WHEN FND_API.G_EXC_ERROR THEN
711: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
712: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Purchase_Release');
713: END IF; --bug 5030428
714: --OE_MSG_PUB.reset_msg_context('Purchase_Release'); 5030428
715: RAISE;
716:
710: WHEN FND_API.G_EXC_ERROR THEN
711: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
712: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Purchase_Release');
713: END IF; --bug 5030428
714: --OE_MSG_PUB.reset_msg_context('Purchase_Release'); 5030428
715: RAISE;
716:
717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
718: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
714: --OE_MSG_PUB.reset_msg_context('Purchase_Release'); 5030428
715: RAISE;
716:
717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
718: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
719: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Purchase_Release');
720: END IF; --bug 5030428
721: --OE_MSG_PUB.reset_msg_context('Purchase_Release'); 5030428
722: RAISE;
715: RAISE;
716:
717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
718: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
719: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Purchase_Release');
720: END IF; --bug 5030428
721: --OE_MSG_PUB.reset_msg_context('Purchase_Release'); 5030428
722: RAISE;
723:
717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
718: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
719: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Purchase_Release');
720: END IF; --bug 5030428
721: --OE_MSG_PUB.reset_msg_context('Purchase_Release'); 5030428
722: RAISE;
723:
724: WHEN OTHERS THEN
725: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
721: --OE_MSG_PUB.reset_msg_context('Purchase_Release'); 5030428
722: RAISE;
723:
724: WHEN OTHERS THEN
725: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
726: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Purchase_Release');
727: END IF;
728: --OE_MSG_PUB.reset_msg_context('Purchase_Release'); 5030428
729: END Purchase_Release;
722: RAISE;
723:
724: WHEN OTHERS THEN
725: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
726: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Purchase_Release');
727: END IF;
728: --OE_MSG_PUB.reset_msg_context('Purchase_Release'); 5030428
729: END Purchase_Release;
730:
724: WHEN OTHERS THEN
725: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
726: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Purchase_Release');
727: END IF;
728: --OE_MSG_PUB.reset_msg_context('Purchase_Release'); 5030428
729: END Purchase_Release;
730:
731: /*-----------------------------------------------------------------
732: PROCEDURE : Insert_Into_Po_Req_Interface
964: EXCEPTION
965:
966: WHEN OTHERS THEN
967:
968: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
969: THEN
970: OE_MSG_PUB.Add_Exc_Msg
971: ( G_PKG_NAME
972: , 'Insert_Into_Po_Req_Interface'
966: WHEN OTHERS THEN
967:
968: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
969: THEN
970: OE_MSG_PUB.Add_Exc_Msg
971: ( G_PKG_NAME
972: , 'Insert_Into_Po_Req_Interface'
973: );
974: END IF;
1038: EXCEPTION
1039:
1040: WHEN OTHERS THEN
1041:
1042: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1043: THEN
1044: OE_MSG_PUB.Add_Exc_Msg
1045: ( G_PKG_NAME
1046: , 'Insert_Drop_Ship_Source'
1040: WHEN OTHERS THEN
1041:
1042: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1043: THEN
1044: OE_MSG_PUB.Add_Exc_Msg
1045: ( G_PKG_NAME
1046: , 'Insert_Drop_Ship_Source'
1047: );
1048: END IF;
1071: x_drop_ship_line_rec := l_drop_ship_line_rec;
1072: IF l_drop_ship_line_rec.deliver_to_location_id = -1 THEN
1073: x_return_status := FND_API.G_RET_STS_ERROR;
1074: FND_MESSAGE.SET_NAME('ONT','OE_DS_NO_LOC_LINK');
1075: OE_MSG_PUB.Add;
1076: ELSE
1077: x_return_status := FND_API.G_RET_STS_SUCCESS;
1078: END IF;
1079: END Associate_address;
1203: EXCEPTION
1204:
1205: WHEN OTHERS THEN
1206:
1207: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1208: THEN
1209: OE_MSG_PUB.Add_Exc_Msg
1210: ( G_PKG_NAME
1211: , 'Get_Eligible_lines'
1205: WHEN OTHERS THEN
1206:
1207: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1208: THEN
1209: OE_MSG_PUB.Add_Exc_Msg
1210: ( G_PKG_NAME
1211: , 'Get_Eligible_lines'
1212: );
1213: END IF;
1706:
1707: ELSIF l_process_flag = 'ERROR' THEN
1708: FND_MESSAGE.SET_NAME('ONT','ONT_DS_LINE_IN_ERROR');
1709: FND_MESSAGE.SET_TOKEN('LINE_NUM',l_line_num);
1710: OE_MSG_PUB.Add;
1711: ELSIF l_process_flag is NOT NULL THEN
1712: FND_MESSAGE.SET_NAME('ONT','ONT_DS_LINE_IN_PROCESS');
1713: FND_MESSAGE.SET_TOKEN('LINE_NUM',l_line_num);
1714: OE_MSG_PUB.Add;
1710: OE_MSG_PUB.Add;
1711: ELSIF l_process_flag is NOT NULL THEN
1712: FND_MESSAGE.SET_NAME('ONT','ONT_DS_LINE_IN_PROCESS');
1713: FND_MESSAGE.SET_TOKEN('LINE_NUM',l_line_num);
1714: OE_MSG_PUB.Add;
1715: RAISE FND_API.G_EXC_ERROR;
1716: END IF;
1717:
1718: END IF;
1793:
1794: ELSIF l_process_flag = 'ERROR' THEN
1795: FND_MESSAGE.SET_NAME('ONT','ONT_DS_LINE_IN_ERROR');
1796: FND_MESSAGE.SET_TOKEN('LINE_NUM',l_line_num);
1797: OE_MSG_PUB.Add;
1798: ELSIF l_process_flag is NOT NULL THEN
1799: FND_MESSAGE.SET_NAME('ONT','ONT_DS_LINE_IN_PROCESS');
1800: FND_MESSAGE.SET_TOKEN('LINE_NUM',l_line_num);
1801: OE_MSG_PUB.Add;
1797: OE_MSG_PUB.Add;
1798: ELSIF l_process_flag is NOT NULL THEN
1799: FND_MESSAGE.SET_NAME('ONT','ONT_DS_LINE_IN_PROCESS');
1800: FND_MESSAGE.SET_TOKEN('LINE_NUM',l_line_num);
1801: OE_MSG_PUB.Add;
1802: RAISE FND_API.G_EXC_ERROR;
1803: END IF;
1804:
1805: ELSE
1858: OE_DEBUG_PUB.Add(' Message Data:'||l_msg_data,2) ;
1859: END IF;
1860:
1861: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1862: OE_MSG_PUB.Transfer_Msg_Stack;
1863: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1865: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1866:
1859: END IF;
1860:
1861: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1862: OE_MSG_PUB.Transfer_Msg_Stack;
1863: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1865: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1866:
1867: OE_MSG_PUB.Transfer_Msg_Stack;
1863: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1865: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1866:
1867: OE_MSG_PUB.Transfer_Msg_Stack;
1868: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1869: FOR I in 1..l_msg_count LOOP
1870: l_msg_data := OE_MSG_PUB.Get(I,'F');
1871: IF l_debug_level > 0 THEN
1864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1865: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1866:
1867: OE_MSG_PUB.Transfer_Msg_Stack;
1868: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1869: FOR I in 1..l_msg_count LOOP
1870: l_msg_data := OE_MSG_PUB.Get(I,'F');
1871: IF l_debug_level > 0 THEN
1872: oe_debug_pub.add('Messages from Update PO;'||l_msg_data,1 ) ;
1866:
1867: OE_MSG_PUB.Transfer_Msg_Stack;
1868: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1869: FOR I in 1..l_msg_count LOOP
1870: l_msg_data := OE_MSG_PUB.Get(I,'F');
1871: IF l_debug_level > 0 THEN
1872: oe_debug_pub.add('Messages from Update PO;'||l_msg_data,1 ) ;
1873: END IF;
1874: END LOOP;
1918: OE_DEBUG_PUB.Add(' Message Data:'||l_msg_data,2) ;
1919: END IF;
1920:
1921: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1922: OE_MSG_PUB.Transfer_Msg_Stack;
1923: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1925: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1926:
1919: END IF;
1920:
1921: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1922: OE_MSG_PUB.Transfer_Msg_Stack;
1923: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1925: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1926:
1927: OE_MSG_PUB.Transfer_Msg_Stack;
1923: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1925: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1926:
1927: OE_MSG_PUB.Transfer_Msg_Stack;
1928: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1929: FOR I in 1..l_msg_count LOOP
1930: l_msg_data := OE_MSG_PUB.Get(I,'F');
1931: IF l_debug_level > 0 THEN
1924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1925: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1926:
1927: OE_MSG_PUB.Transfer_Msg_Stack;
1928: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1929: FOR I in 1..l_msg_count LOOP
1930: l_msg_data := OE_MSG_PUB.Get(I,'F');
1931: IF l_debug_level > 0 THEN
1932: oe_debug_pub.add('Messages from Cancel PO;'||l_msg_data,1 ) ;
1926:
1927: OE_MSG_PUB.Transfer_Msg_Stack;
1928: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1929: FOR I in 1..l_msg_count LOOP
1930: l_msg_data := OE_MSG_PUB.Get(I,'F');
1931: IF l_debug_level > 0 THEN
1932: oe_debug_pub.add('Messages from Cancel PO;'||l_msg_data,1 ) ;
1933: END IF;
1934: END LOOP;
1938: END IF;
1939:
1940: -- bug 5358405
1941: FND_MESSAGE.set_name('ONT','OE_CANCEL_FAILED');
1942: OE_MSG_PUB.Add;
1943:
1944: RAISE FND_API.G_EXC_ERROR;
1945: END IF;
1946:
1981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1982: WHEN OTHERS THEN
1983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1984:
1985: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1986: THEN
1987: OE_MSG_PUB.Add_Exc_Msg
1988: (G_PKG_NAME
1989: ,'Process_DropShip_CMS_Requests'
1983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1984:
1985: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1986: THEN
1987: OE_MSG_PUB.Add_Exc_Msg
1988: (G_PKG_NAME
1989: ,'Process_DropShip_CMS_Requests'
1990: );
1991: END IF;