PACKAGE BODY: APPS.OPI_DBI_PARTY_MERGE_PKG

Source

1 PACKAGE BODY OPI_DBI_PARTY_MERGE_PKG AS
2 /* $Header: OPIDEHZMGB.pls 115.0 2004/03/17 00:36:25 rjin noship $ */
3 
4 
5 PROCEDURE OPI_DBI_COGS_F_M (
6     p_entity_name                IN   VARCHAR2,
7     p_from_id                    IN   NUMBER,
8     x_to_id                      OUT  NOCOPY NUMBER,
9     p_from_fk_id                 IN   NUMBER,
10     p_to_fk_id                   IN   NUMBER,
11     p_parent_entity_name         IN   VARCHAR2,
12     p_batch_id                   IN   NUMBER,
13     p_batch_party_id             IN   NUMBER,
14     x_return_status              OUT  NOCOPY VARCHAR2)
15 IS
16 
17    l_merge_reason_code          VARCHAR2(30);
18 
19 BEGIN
20    x_return_status :=  FND_API.G_RET_STS_SUCCESS;
21 
22    SELECT merge_reason_code
23      INTO   l_merge_reason_code
24      FROM   hz_merge_batch
25     WHERE  batch_id  = p_batch_id;
26 
27    IF l_merge_reason_code = 'DUPLICATE' THEN
28       NULL;
29    ELSE
30       NULL;
31    END IF;
32 
33    IF p_from_fk_id = p_to_fk_id THEN
34       x_to_id := p_from_id;
35       RETURN;
36    END IF;
37 
38    IF p_from_fk_id <> p_to_fk_id THEN
39 
40 	 update opi_dbi_cogs_f
41 	    set customer_id = p_to_fk_id
42 	  where	customer_id = p_from_fk_id;
43 
44    END IF;
45 
46    EXCEPTION
47      WHEN others THEN
48        x_return_status :=  FND_API.G_RET_STS_ERROR;
49 
50 END OPI_DBI_COGS_F_M;
51 
52 
53 END  OPI_DBI_PARTY_MERGE_PKG;