PACKAGE BODY: APPS.IGP_PARTY_MERGE

Source

1 PACKAGE BODY igp_party_merge AS
2 /* $Header: IGSPADDB.pls 120.0 2005/06/01 17:15:38 appldev noship $ */
3 
4   PROCEDURE merge_party (
5     p_entity_name        IN VARCHAR2,
6     p_from_id            IN NUMBER,
7     p_to_id              IN OUT NOCOPY  NUMBER,
8     p_from_fk_id         IN NUMBER,
9     p_to_fk_id           IN NUMBER,
10     p_parent_entity_name IN VARCHAR2,
11     p_batch_id           IN NUMBER,
12     p_batch_party_id     IN NUMBER,
13     x_return_status      IN OUT NOCOPY  VARCHAR2 ) AS
14 
15   BEGIN
16 
17     IF p_from_fk_id = p_to_fk_id THEN
18       p_to_id := p_from_id;
19       RETURN;
20 
21     ELSE
22       hz_party_merge.veto_delete;
23       fnd_message.set_name('IGS','IGP_GE_CANT_PARTY_MERGE');
24       fnd_message.set_token('P_FROM_ID',p_from_id);
25       fnd_file.put_line(FND_FILE.LOG,FND_MESSAGE.GET);
26       x_return_status := FND_API.G_RET_STS_ERROR;
27     END IF;
28 
29   END  merge_party;
30 
31 END igp_party_merge;