1: PACKAGE BODY CS_SR_PARTY_MERGE_PKG AS
2: /* $Header: cssrpmgb.pls 120.1 2005/12/22 17:29:27 spusegao noship $ */
3:
4:
5: G_PROC_NAME CONSTANT VARCHAR2(30) := 'CS_SR_PARTY_MERGE_PKG';
1: PACKAGE BODY CS_SR_PARTY_MERGE_PKG AS
2: /* $Header: cssrpmgb.pls 120.1 2005/12/22 17:29:27 spusegao noship $ */
3:
4:
5: G_PROC_NAME CONSTANT VARCHAR2(30) := 'CS_SR_PARTY_MERGE_PKG';
6: G_USER_ID CONSTANT NUMBER(15) := FND_GLOBAL.USER_ID;
7: G_LOGIN_ID CONSTANT NUMBER(15) := FND_GLOBAL.LOGIN_ID;
8:
9: TYPE ROWID_TBL IS TABLE OF ROWID INDEX BY BINARY_INTEGER;
68: l_last_fetch BOOLEAN := FALSE ;
69:
70:
71: BEGIN
72: arp_message.set_line('CS_SR_PARTY_MERGE_PKG.CS_INC_ALL_MERGE_PARTY()+');
73:
74: x_return_status := FND_API.G_RET_STS_SUCCESS;
75:
76:
324: PRAGMA EXCEPTION_INIT(RESOURCE_BUSY, -0054);
325:
326: BEGIN
327:
328: arp_message.set_line('CS_SR_PARTY_MERGE_PKG.CS_INC_ALL_MERGE_SITE_USES()+');
329:
330: x_return_status := FND_API.G_RET_STS_SUCCESS;
331:
332: SELECT merge_reason_code
597: RESOURCE_BUSY EXCEPTION;
598: PRAGMA EXCEPTION_INIT(RESOURCE_BUSY, -0054);
599:
600: BEGIN
601: arp_message.set_line('CS_SR_PARTY_MERGE_PKG.CS_INC_ALL_MERGE_SITE_ID()+');
602:
603: x_return_status := FND_API.G_RET_STS_SUCCESS;
604:
605: SELECT merge_reason_code
899: RESOURCE_BUSY EXCEPTION;
900: PRAGMA EXCEPTION_INIT(RESOURCE_BUSY, -0054);
901:
902: BEGIN
903: arp_message.set_line('CS_SR_PARTY_MERGE_PKG.CS_AUDIT_MERGE_PARTY()+');
904:
905: x_return_status := FND_API.G_RET_STS_SUCCESS;
906:
907: select merge_reason_code
1066: RESOURCE_BUSY EXCEPTION;
1067: PRAGMA EXCEPTION_INIT(RESOURCE_BUSY, -0054);
1068:
1069: BEGIN
1070: arp_message.set_line('CS_SR_PARTY_MERGE_PKG.CS_AUDIT_MERGE_SITE_ID()+');
1071:
1072: x_return_status := FND_API.G_RET_STS_SUCCESS;
1073:
1074: select merge_reason_code
2003: RESOURCE_BUSY EXCEPTION;
2004: PRAGMA EXCEPTION_INIT(RESOURCE_BUSY, -0054);
2005:
2006: BEGIN
2007: arp_message.set_line('CS_SR_PARTY_MERGE_PKG.CS_INC_ALL_MERGE_CONT_POINTS()+');
2008:
2009: x_return_status := FND_API.G_RET_STS_SUCCESS;
2010:
2011: SELECT merge_reason_code
2171: END;
2172: END IF;
2173: END CS_INC_ALL_MERGE_CONT_POINTS;
2174:
2175: END CS_SR_PARTY_MERGE_PKG;