PACKAGE BODY: APPS.AHL_UMP_UTIL_GRP

Source

1 PACKAGE BODY AHL_UMP_UTIL_GRP AS
2 /* $Header: AHLGUMPB.pls 115.1 2003/09/24 04:57:50 sracha noship $*/
3 
4 G_PKG_NAME          CONSTANT VARCHAR2(30) := 'AHL_UMP_UTIL_GRP';
5 
6 ------------------------
7 -- Declare Procedures --
8 ------------------------
9 
10 -- Wrapper Procedure to call private API populate_appl_MRs.
11 -- Used by MR tab in the Service Request Form.
12 
13 PROCEDURE Populate_Appl_MRs (
14     p_api_version            IN            NUMBER,
15     p_init_msg_list          IN            VARCHAR2  := FND_API.G_FALSE,
16     p_csi_ii_id           IN            NUMBER,
17     x_return_status       OUT  NOCOPY   VARCHAR2,
18     x_msg_count           OUT  NOCOPY   NUMBER,
19     x_msg_data            OUT  NOCOPY   VARCHAR2 )
20 IS
21     l_api_name       CONSTANT VARCHAR2(30) := 'Populate_appl_MRs_grp';
22     l_api_version    CONSTANT NUMBER       := 1.0;
23 
24 
25 BEGIN
26 
27   -- Standard start of API savepoint
28   SAVEPOINT Populate_appl_MRs_grp;
29 
30   -- Standard call to check for call compatibility
31   IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
32                                      G_PKG_NAME) THEN
33     RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34   END IF;
35 
36     -- Initialize message list if p_init_msg_list is set to TRUE
37   IF FND_API.To_Boolean(p_init_msg_list) THEN
38     FND_MSG_PUB.Initialize;
39   END IF;
40 
41   -- Initialize API return status to success
42   x_return_status := FND_API.G_RET_STS_SUCCESS;
43 
44   AHL_UMP_UTIL_PKG.Populate_Appl_MRs (
45     p_csi_ii_id       => p_csi_ii_id,
46     x_return_status   => x_return_status,
47     x_msg_count       =>x_msg_count,
48     x_msg_data        => x_msg_data);
49 
50 
51   IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
52     RAISE FND_API.G_EXC_ERROR;
53   ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
54     RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
55   END IF;
56 
57   -- Standard call to get message count and if count is 1, get message
58   FND_MSG_PUB.Count_And_Get
59     ( p_count => x_msg_count,
60       p_data  => x_msg_data,
61       p_encoded => fnd_api.g_false);
62 
63 --
64 EXCEPTION
65  WHEN FND_API.G_EXC_ERROR THEN
66    x_return_status := FND_API.G_RET_STS_ERROR;
67    Rollback to Populate_Appl_Mrs_Grp;
68    FND_MSG_PUB.count_and_get( p_count => x_msg_count,
69                               p_data  => x_msg_data,
70                               p_encoded => fnd_api.g_false);
71 
72 
73  WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
74    x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
75    Rollback to Populate_Appl_Mrs_Grp;
76    FND_MSG_PUB.count_and_get( p_count => x_msg_count,
77                               p_data  => x_msg_data,
78                                p_encoded => fnd_api.g_false);
79  WHEN OTHERS THEN
80     x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
81     Rollback to Populate_Appl_Mrs_Grp;
82     IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
83        fnd_msg_pub.add_exc_msg(p_pkg_name       => G_PKG_NAME,
84                                p_procedure_name => 'Populate_Appl_Mrs',
85                                p_error_text     => SQLERRM);
86     END IF;
87     FND_MSG_PUB.count_and_get( p_count => x_msg_count,
88                                p_data  => x_msg_data,
89                                 p_encoded => fnd_api.g_false);
90 
91 
92 
93 
94 
95 END Populate_Appl_MRs;
96 
97 
98 End AHL_UMP_UTIL_GRP;