PACKAGE BODY: APPS.FLM_VENDORMERGE_GRP

Source

1 PACKAGE BODY FLM_VendorMerge_GRP AS
2 /* $Header: FLMTCAB.pls 120.0 2005/10/19 16:45:21 asuherma noship $ */
3 /*==========================================================================+
4 |   Copyright (c) 1997 Oracle Corporation Redwood Shores, California, USA   |
5 |                          All rights reserved.                             |
6 +===========================================================================+
7 |                                                                           |
8 | File Name    : FLMMMMCB.pls                                               |
9 | Description  : This package contains functions called by                  |
10 |                Suppliers Merge program.                                   |
11 | Coders       : Adrian Suherman        08/11/2005                          |
12 +===========================================================================*/
13 
14    G_PKG_NAME              CONSTANT VARCHAR2(30) := 'FLM_VendorMerge_GRP';
15 
16    PROCEDURE Merge_Vendor (
17       p_api_version            IN            NUMBER,
18       p_init_msg_list          IN            VARCHAR2 default FND_API.G_FALSE,
19       p_commit                 IN            VARCHAR2 default FND_API.G_FALSE,
20       p_validation_level       IN            NUMBER   default FND_API.G_VALID_LEVEL_FULL,
21       p_return_status          OUT  NOCOPY   VARCHAR2,
22       p_msg_count              OUT  NOCOPY   NUMBER,
23       p_msg_data               OUT  NOCOPY   VARCHAR2,
24       p_vendor_id              IN            NUMBER,
25       p_dup_vendor_id          IN            NUMBER,
26       p_vendor_site_id         IN            NUMBER,
27       p_dup_vendor_site_id     IN            NUMBER,
28       p_party_id               IN            NUMBER,
29       p_dup_party_id           IN            NUMBER,
30       p_party_site_id          IN            NUMBER,
31       p_dup_party_site_id      IN            NUMBER) IS
32 
33       l_api_version                 CONSTANT NUMBER := 1.0;
34       l_api_name                    CONSTANT VARCHAR2(30) := 'Merge_Vendor';
35 
36    BEGIN
37 
38       if not FND_API.Compatible_API_Call
39         (       l_api_version,
40                 p_api_version,
41                 l_api_name,
42                 G_PKG_NAME)
43       then
44          raise FND_API.G_EXC_UNEXPECTED_ERROR;
45       end if;
46 
47       p_return_status := fnd_api.g_ret_sts_success;
48 
49       update flm_kanban_summary
50       set supplier_id = p_vendor_id
51       where supplier_id = p_dup_vendor_id;
52 
53       update flm_kanban_summary
54       set supplier_site_id = p_vendor_site_id
55       where supplier_site_id = p_dup_vendor_site_id;
56 
57       --  Get message count and data
58       FND_MSG_PUB.Count_And_Get
59       (   p_count   => p_msg_count,
60           p_data    => p_msg_data
61       );
62 
63       if (p_commit = FND_API.G_TRUE) then
64          commit;
65       end if;
66 
67    EXCEPTION
68       WHEN OTHERS THEN
69          fnd_message.set_name('AR', 'HZ_MERGE_SQL_ERROR');
70          fnd_message.set_token('ERROR', sqlerrm);
71          fnd_msg_pub.add;
72          p_return_status := fnd_api.g_ret_sts_unexp_error;
73 
74    END Merge_Vendor;
75 
76 END FLM_VendorMerge_GRP;