[Home] [Help]
PACKAGE BODY: APPS.BIS_BUCKET_PUB
Source
1 PACKAGE BODY BIS_BUCKET_PUB AS
2 /* $Header: BISPBKTB.pls 115.4 2004/01/24 08:37:51 jxyu noship $ */
3
4
5 --This API should call BIS_BUCKET_PVT.CREATE_BIS_BUCKET
6 PROCEDURE CREATE_BIS_BUCKET (
7 p_bis_bucket_rec IN BIS_BUCKET_PUB.bis_bucket_rec_type
8 ,x_return_status OUT NOCOPY VARCHAR2
9 ,x_error_tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
10 )
11 IS
12
13 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
14
15 BEGIN
16
17 BIS_BUCKET_PVT.CREATE_BIS_BUCKET(
18 p_bis_bucket_rec => p_bis_bucket_rec
19 ,x_return_status => x_return_status
20 ,x_error_tbl => x_error_tbl
21 );
22
23 EXCEPTION
24 WHEN OTHERS THEN
25 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
26
27 l_error_tbl := x_error_tbl;
28 BIS_UTILITIES_PVT.Add_Error_Message(
29 p_error_msg_id => SQLCODE
30 ,p_error_description => SQLERRM
31 ,p_error_proc_name => G_PKG_NAME||'.CREATE_BIS_BUCKET'
32 ,p_error_table => l_error_tbl
33 ,x_error_table => x_error_tbl
34 );
35
36 END CREATE_BIS_BUCKET;
37
38
39
40 --This API should call BIS_BUCKET_PVT.UPDATE_BIS_BUCKET
41 PROCEDURE UPDATE_BIS_BUCKET (
42 p_bis_bucket_rec IN BIS_BUCKET_PUB.bis_bucket_rec_type
43 ,x_return_status OUT NOCOPY VARCHAR2
44 ,x_error_tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
45 )
46 IS
47
48 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
49
50 BEGIN
51
52 BIS_BUCKET_PVT.UPDATE_BIS_BUCKET(
53 p_bis_bucket_rec => p_bis_bucket_rec
54 ,x_return_status => x_return_status
55 ,x_error_tbl => x_error_tbl
56 );
57
58 EXCEPTION
59 WHEN OTHERS THEN
60 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
61
62 l_error_tbl := x_error_tbl;
63 BIS_UTILITIES_PVT.Add_Error_Message(
64 p_error_msg_id => SQLCODE
65 ,p_error_description => SQLERRM
66 ,p_error_proc_name => G_PKG_NAME||'.UPDATE_BIS_BUCKET'
67 ,p_error_table => l_error_tbl
68 ,x_error_table => x_error_tbl
69 );
70
71 END UPDATE_BIS_BUCKET;
72
73
74
75 --This API should call BIS_BUCKET_PVT.DELETE_BIS_BUCKET
76 PROCEDURE DELETE_BIS_BUCKET (
77 p_bucket_id IN BIS_BUCKET.bucket_id%TYPE := BIS_UTILITIES_PUB.G_NULL_NUM
78 ,p_short_name IN BIS_BUCKET.short_name%TYPE := BIS_UTILITIES_PUB.G_NULL_CHAR
79 ,x_return_status OUT NOCOPY VARCHAR2
80 ,x_error_tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
81 )
82 IS
83
84 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
85
86 BEGIN
87
88 BIS_BUCKET_PVT.DELETE_BIS_BUCKET(
89 p_bucket_id => p_bucket_id
90 ,p_short_name => p_short_name
91 ,x_return_status => x_return_status
92 ,x_error_tbl => x_error_tbl
93 );
94
95 EXCEPTION
96 WHEN OTHERS THEN
97 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
98
99 l_error_tbl := x_error_tbl;
100 BIS_UTILITIES_PVT.Add_Error_Message(
101 p_error_msg_id => SQLCODE
102 ,p_error_description => SQLERRM
103 ,p_error_proc_name => G_PKG_NAME||'.DELETE_BIS_BUCKET'
104 ,p_error_table => l_error_tbl
105 ,x_error_table => x_error_tbl
106 );
107
108 END DELETE_BIS_BUCKET;
109
110
111
112 --This API should call BIS_BUCKET_PVT.RETRIEVE_BIS_BUCKET
113 PROCEDURE RETRIEVE_BIS_BUCKET (
114 p_short_name IN BIS_BUCKET.short_name%TYPE := BIS_UTILITIES_PUB.G_NULL_CHAR
115 ,x_bis_bucket_rec OUT NOCOPY BIS_BUCKET_PUB.bis_bucket_rec_type
116 ,x_return_status OUT NOCOPY VARCHAR2
117 ,x_error_tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
118 )
119 IS
120
121 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
122
123 BEGIN
124
125 BIS_BUCKET_PVT.RETRIEVE_BIS_BUCKET(
126 p_short_name => p_short_name
127 ,x_bis_bucket_rec => x_bis_bucket_rec
128 ,x_return_status => x_return_status
129 ,x_error_tbl => x_error_tbl
130 );
131
132 EXCEPTION
133 WHEN OTHERS THEN
134 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
135
136 l_error_tbl := x_error_tbl;
137 BIS_UTILITIES_PVT.Add_Error_Message(
138 p_error_msg_id => SQLCODE
139 ,p_error_description => SQLERRM
140 ,p_error_proc_name => G_PKG_NAME||'.RETRIEVE_BIS_BUCKET'
141 ,p_error_table => l_error_tbl
142 ,x_error_table => x_error_tbl
143 );
144
145 END RETRIEVE_BIS_BUCKET;
146 -- This API is called from LCT file
147 --=============================================================================
148 PROCEDURE LOAD_BIS_BUCKET (
149 p_bis_bucket_rec IN BIS_BUCKET_PUB.bis_bucket_rec_type
150 ,x_return_status OUT NOCOPY VARCHAR2
151 ,x_error_tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
152 ) IS
153
154 CURSOR c_bkt_set IS
155 SELECT 1
156 FROM bis_bucket
157 WHERE short_name = p_bis_bucket_rec.short_name;
158 l_bucket_exists NUMBER := 0;
159 l_bis_bucket_rec BIS_BUCKET_PUB.bis_bucket_rec_type;
160 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
161 BEGIN
162
163 x_return_status := FND_API.G_RET_STS_SUCCESS;
164 l_bis_bucket_rec := p_bis_bucket_rec;
165
166 IF (c_bkt_set%ISOPEN) THEN
167 CLOSE c_bkt_set;
168 END IF;
169
170 OPEN c_bkt_set;
171 FETCH c_bkt_set INTO l_bucket_exists;
172 IF (c_bkt_set%FOUND) THEN
173 CLOSE c_bkt_set;
174 BIS_BUCKET_PVT.UPDATE_BIS_BUCKET (
175 p_bis_bucket_rec => l_bis_bucket_rec
176 ,x_return_status => x_return_status
177 ,x_error_tbl => x_error_tbl
178 );
179 ELSE
180 CLOSE c_bkt_set;
181 BIS_BUCKET_PVT.CREATE_BIS_BUCKET (
182 p_bis_bucket_rec => l_bis_bucket_rec
183 ,x_return_status => x_return_status
184 ,x_error_tbl => x_error_tbl
185 );
186 END IF;
187
188 EXCEPTION
189 WHEN FND_API.G_EXC_ERROR THEN
190 IF (c_bkt_set%ISOPEN) THEN
191 CLOSE c_bkt_set;
192 END IF;
193 x_return_status := FND_API.G_RET_STS_ERROR ;
194 RAISE FND_API.G_EXC_ERROR;
195
196 WHEN OTHERS THEN
197 IF (c_bkt_set%ISOPEN) THEN
198 CLOSE c_bkt_set;
199 END IF;
200 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
201 l_error_tbl := x_error_tbl;
202 BIS_UTILITIES_PVT.Add_Error_Message(
203 p_error_msg_id => SQLCODE
204 ,p_error_description => SQLERRM
205 ,p_error_proc_name => G_PKG_NAME||'.LOAD_BIS_BUCKET'
206 ,p_error_table => l_error_tbl
207 ,x_error_table => x_error_tbl
208 );
209 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
210 END LOAD_BIS_BUCKET;
211 --=============================================================================
212
213
214 PROCEDURE ADD_LANGUAGE
215 IS
216 BEGIN
217
218 BIS_BUCKET_PVT.ADD_LANGUAGE;
219
220 END ADD_LANGUAGE;
221
222 END BIS_BUCKET_PUB;