1: PACKAGE BODY PON_NEGOTIATION_COPY_GRP AS
2: --$Header: PONGCPYB.pls 120.76.12010000.2 2008/10/21 07:18:47 amundhra 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.76.12010000.2 2008/10/21 07:18:47 amundhra 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: --
622:
623: --
624: -- define local variables
625: --
626: l_api_name CONSTANT VARCHAR2(30) := 'PON_NEGOTIATION_COPY_GRP';
627: l_procedure_name CONSTANT VARCHAR2(20) := 'COPY_NEGOTIATION';
628:
629:
630: l_auction_header_id NUMBER := NULL;
733: -- Hence it should be able to rollback to the point of the
734: -- transaction where it was started.
735: -- Thus issuing a save point
736: --
737: SAVEPOINT PON_NEGOTIATION_COPY_GRP;
738:
739: --
740: -- Standard call to check for call compatibility
741: --
925: end if;
926:
927: EXCEPTION
928: WHEN FND_API.G_EXC_ERROR THEN
929: ROLLBACK TO PON_NEGOTIATION_COPY_GRP;
930: x_return_status := FND_API.G_RET_STS_ERROR ;
931: FND_MSG_PUB.COUNT_AND_GET( p_count => x_msg_count,
932: p_data => x_msg_data
933: );
1304: --This exception block is to release the lock put on the row
1305: --in pon_auction_headers_all for p_auction_header_id
1306: EXCEPTION
1307: WHEN OTHERS THEN
1308: ROLLBACK TO PON_NEGOTIATION_COPY_GRP;
1309: x_return_status := FND_API.G_RET_STS_ERROR;
1310: FND_MSG_PUB.COUNT_AND_GET( p_count => x_msg_count,
1311: p_data => x_msg_data
1312: );
9226: LOG_MESSAGE('copy_lines_and_children','Returning with status:'||x_return_status);
9227:
9228: EXCEPTION
9229: WHEN FND_API.G_EXC_ERROR THEN
9230: ROLLBACK TO PON_NEGOTIATION_COPY_GRP;
9231: x_return_status := FND_API.G_RET_STS_ERROR ;
9232: FND_MSG_PUB.COUNT_AND_GET( p_count => x_msg_count,
9233: p_data => x_msg_data
9234: );
9236: LOG_MESSAGE('copy_lines_and_children','An error in the procedure. Error at:'||g_err_loc || ' :' || SQLCODE || ' :' || SQLERRM);
9237:
9238: -- Why another block? We can have only one block. Let me see
9239: WHEN OTHERS THEN
9240: ROLLBACK TO PON_NEGOTIATION_COPY_GRP;
9241: x_return_status := FND_API.G_RET_STS_ERROR;
9242: FND_MSG_PUB.COUNT_AND_GET( p_count => x_msg_count,
9243: p_data => x_msg_data
9244: );
11503: END COPY_SCORING_TEAMS;
11504: --
11505: -- END TEAM SCORING
11506: --
11507: END PON_NEGOTIATION_COPY_GRP;