1: PACKAGE BODY JTF_IH_PARTY_MERGE_PKG AS
2: /* $Header: JTFIHPMB.pls 120.2 2006/02/16 23:33:17 nchouras ship $ */
3:
4: -- Start of Comments
5: -- Package name : JTF_IH_PARTY_MERGE_PKG
1: PACKAGE BODY JTF_IH_PARTY_MERGE_PKG AS
2: /* $Header: JTFIHPMB.pls 120.2 2006/02/16 23:33:17 nchouras ship $ */
3:
4: -- Start of Comments
5: -- Package name : JTF_IH_PARTY_MERGE_PKG
6: -- Purpose : Merges duplicate parties in JTF_IH_INTERACTIONS table.
7:
8: --
9: -- History
16: --
17: -- End of Comments
18:
19:
20: G_PROC_NAME CONSTANT VARCHAR2(30) := 'JTF_IH_PARTY_MERGE_PKG';
21: G_USER_ID CONSTANT NUMBER(15) := FND_GLOBAL.USER_ID;
22: G_LOGIN_ID CONSTANT NUMBER(15) := FND_GLOBAL.LOGIN_ID;
23:
24:
50: s_Party_Type VARCHAR2(30);
51: BEGIN
52: l_api_name := 'JTF_IH_MERGE_PARTY';
53: l_count := 0;
54: arp_message.set_line('JTF_IH_PARTY_MERGE_PKG.JTF_IH_MERGE_PARTY()+');
55:
56: x_return_status := FND_API.G_RET_STS_SUCCESS;
57: select merge_reason_code
58: into l_merge_reason_code
148: where from_table = 'HZ_PARTIES'
149: );
150: end if;
151: END JTF_IH_MERGE_PARTY;
152: END JTF_IH_PARTY_MERGE_PKG;