[Home] [Help]
1: PACKAGE BODY pon_negotiation_copy_grp AS
2: --$Header: PONGCPYB.pls 120.117.12020000.7 2013/04/24 09:26:28 hvutukur ship $
3:
4: g_pkg_name CONSTANT VARCHAR2(25):='PON_NEGOTIATION_COPY_GRP';
5:
1: PACKAGE BODY pon_negotiation_copy_grp AS
2: --$Header: PONGCPYB.pls 120.117.12020000.7 2013/04/24 09:26:28 hvutukur ship $
3:
4: g_pkg_name CONSTANT VARCHAR2(25):='PON_NEGOTIATION_COPY_GRP';
5:
6: g_err_loc VARCHAR2(400);
7:
8: -- Global variable for status which will be set in different sub-procedures
14: -- Indicate if the debug mode is on
15: g_debug_mode VARCHAR2(10) := 'Y';
16:
17: -- module name for logging message
18: g_module_prefix CONSTANT VARCHAR2(40) := 'pon.plsql.pon_negotiation_copy_grp.';
19:
20: --
21: -- Few variables redifened as done in SourcingCommonUtil and ContractCommonUtil
22: --
665:
666: --
667: -- define local variables
668: --
669: l_api_name CONSTANT VARCHAR2(30) := 'PON_NEGOTIATION_COPY_GRP';
670: l_procedure_name CONSTANT VARCHAR2(20) := 'COPY_NEGOTIATION';
671:
672:
673: l_auction_header_id NUMBER := NULL;
784: -- Hence it should be able to rollback to the point of the
785: -- transaction where it was started.
786: -- Thus issuing a save point
787: --
788: SAVEPOINT PON_NEGOTIATION_COPY_GRP;
789:
790: --
791: -- Standard call to check for call compatibility
792: --
1028: end if;
1029:
1030: EXCEPTION
1031: WHEN FND_API.G_EXC_ERROR THEN
1032: ROLLBACK TO PON_NEGOTIATION_COPY_GRP;
1033: x_return_status := FND_API.G_RET_STS_ERROR ;
1034: FND_MSG_PUB.COUNT_AND_GET( p_count => x_msg_count,
1035: p_data => x_msg_data
1036: );
1466: --This exception block is to release the lock put on the row
1467: --in pon_auction_headers_all for p_auction_header_id
1468: EXCEPTION
1469: WHEN OTHERS THEN
1470: ROLLBACK TO PON_NEGOTIATION_COPY_GRP;
1471: x_return_status := FND_API.G_RET_STS_ERROR;
1472: FND_MSG_PUB.COUNT_AND_GET( p_count => x_msg_count,
1473: p_data => x_msg_data
1474: );
2249: WHEN l_default_doc_number_exception THEN
2250: LOG_MESSAGE('copy_negotiation','error in defauling doc number');
2251: fnd_message.set_name ('PO', 'PO_API_ERROR');
2252: fnd_message.set_token (token => 'PROC_CALLER',
2253: VALUE => 'PON_NEGOTIATION_COPY_GRP.COPY_HEADER_BASIC'
2254: );
2255: fnd_message.set_token (token => 'PROC_CALLED',
2256: VALUE => 'PO_DOC_NUMBERING_PKG.DEFAULT_DOC_NUMBER_UDA'
2257: );
2299: WHEN l_default_doc_number_exception THEN
2300: LOG_MESSAGE('copy_negotiation : active','error in defauling doc number');
2301: fnd_message.set_name ('PO', 'PO_API_ERROR');
2302: fnd_message.set_token (token => 'PROC_CALLER',
2303: VALUE => 'PON_NEGOTIATION_COPY_GRP.COPY_HEADER_BASIC');
2304: fnd_message.set_token (token => 'PROC_CALLED',
2305: VALUE => 'PO_DOC_NUMBERING_PKG.DEFAULT_DOC_NUMBER_UDA');
2306: fnd_msg_pub.ADD;
2307: RAISE FND_API.G_EXC_ERROR;
10428: LOG_MESSAGE('copy_lines_and_children','Returning with status:'||x_return_status);
10429:
10430: EXCEPTION
10431: WHEN FND_API.G_EXC_ERROR THEN
10432: ROLLBACK TO PON_NEGOTIATION_COPY_GRP;
10433: x_return_status := FND_API.G_RET_STS_ERROR ;
10434: FND_MSG_PUB.COUNT_AND_GET( p_count => x_msg_count,
10435: p_data => x_msg_data
10436: );
10438: LOG_MESSAGE('copy_lines_and_children','An error in the procedure. Error at:'||g_err_loc || ' :' || SQLCODE || ' :' || SQLERRM);
10439:
10440: -- Why another block? We can have only one block. Let me see
10441: WHEN OTHERS THEN
10442: ROLLBACK TO PON_NEGOTIATION_COPY_GRP;
10443: x_return_status := FND_API.G_RET_STS_ERROR;
10444: FND_MSG_PUB.COUNT_AND_GET( p_count => x_msg_count,
10445: p_data => x_msg_data
10446: );
13544: x_result := 'S';
13545:
13546: END COPY_FEDERAL_AMEND_ATTACHMENT;
13547:
13548: END PON_NEGOTIATION_COPY_GRP;