[Home] [Help]
PACKAGE BODY: APPS.JTF_PREFAB_FILTER_PUB
Source
1 Package Body JTF_PREFAB_FILTER_PUB AS
2 /* $Header: jtfprefabflb.pls 120.1 2005/07/02 00:56:25 appldev ship $ */
3
4 -- global variables --
5 G_PKG_NAME CONSTANT VARCHAR2(30):='JTF_PREFAB_FILTER_PUB';
6 G_FILE_NAME CONSTANT VARCHAR2(16):='jtfprefabflb.pls';
7
8 G_LOGIN_ID NUMBER := FND_GLOBAL.CONC_LOGIN_ID;
9 G_USER_ID NUMBER := FND_GLOBAL.USER_ID;
10
11 PROCEDURE INSERT_FILTER(
12 p_api_version IN NUMBER,
13 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
14 p_commit IN VARCHAR2 := FND_API.G_FALSE,
15
16 p_filter_id OUT NOCOPY jtf_prefab_filters_b.filter_id%TYPE,
17 p_filter_name IN jtf_prefab_filters_b.filter_name%TYPE,
18 p_application_id IN jtf_prefab_filters_b.application_id%TYPE,
19 p_description IN jtf_prefab_filters_tl.description%TYPE,
20 p_filter_string IN jtf_prefab_filters_b.filter_string%TYPE,
21 p_exclusion_flag IN jtf_prefab_filters_b.exclusion_flag%TYPE,
22 p_enabled_flag IN jtf_prefab_filters_b.enabled_flag%TYPE,
23
24 p_object_version_number OUT NOCOPY jtf_prefab_filters_b.object_version_number%TYPE,
25
26 x_return_status OUT NOCOPY VARCHAR2,
27 x_msg_count OUT NOCOPY NUMBER,
28 x_msg_data OUT NOCOPY VARCHAR2
29 ) AS
30 -- local variables --
31 l_api_name CONSTANT VARCHAR2(30) := 'INSERT_FILTER';
32 l_api_version NUMBER := p_api_version;
33 l_row_id VARCHAR2(255) := NULL;
34
35 CURSOR sequence_cursor IS
36 SELECT jtf_prefab_filters_b_s.NEXTVAL from dual;
37 BEGIN
38 -- Standard Start of API savepoint
39 SAVEPOINT INSERT_FILTER;
40
41 -- Standard call to check for call compatibility.
42 IF NOT FND_API.Compatible_API_Call (
43 l_api_version,
44 p_api_version,
45 l_api_name,
46 G_PKG_NAME)
47 THEN
48 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
49 END IF;
50
51 -- Initialize message list if p_init_msg_list is set to TRUE.
52 IF FND_API.To_Boolean( p_init_msg_list ) THEN
53 FND_MSG_PUB.initialize;
54 END IF;
55
56 -- Initialize API return status to success
57 x_return_status := FND_API.G_RET_STS_SUCCESS;
58
59 -- real logic --
60 ----------------
61
62 OPEN sequence_cursor;
63 FETCH sequence_cursor INTO p_filter_id;
64 CLOSE sequence_cursor;
65 p_object_version_number := 1;
66
67 JTF_PREFAB_FILTERS_PKG.INSERT_ROW(l_row_id,
68 p_filter_id,
69 p_object_version_number,
70 NULL,
71 p_application_id,
72 p_filter_name,
73 p_filter_string,
74 p_exclusion_flag,
75 p_enabled_flag,
76 p_description,
77 SYSDATE,
78 G_USER_ID,
79 SYSDATE,
80 G_USER_ID,
81 G_LOGIN_ID);
82 /*
83 INSERT INTO jtf_prefab_filters (filter_id,
84 object_version_number,
85 created_by,
86 creation_date,
87 last_updated_by,
88 last_update_date,
89 last_update_login,
90 security_group_id,
91 filter_name,
92 application_id,
93 application_id_for_filter,
94 description,
95 filter_string,
96 exclusion_flag,
97 enabled_flag)
98 VALUES (p_filter_id,
99 p_object_version_number,
100 G_USER_ID,
101 SYSDATE,
102 G_USER_ID,
103 SYSDATE,
104 G_LOGIN_ID,
105 NULL,
106 p_filter_name,
107 p_application_id,
108 p_application_id_for_filter,
109 p_description,
110 p_filter_string,
111 p_exclusion_flag,
112 p_enabled_flag);
113 */
114
115 -----------------------
116 -- end of real logic --
117
118 -- Standard check of p_commit.
119 IF (FND_API.To_Boolean(p_commit)) THEN
120 COMMIT WORK;
121 END IF;
122
123 -- Standard call to get message count and if count is 1, get message info.
124 FND_MSG_PUB.Count_And_Get(
125 p_count => x_msg_count,
126 p_data => x_msg_data );
127
128 EXCEPTION
129 WHEN FND_API.G_EXC_ERROR THEN
130 ROLLBACK TO INSERT_FILTER;
131 x_return_status := FND_API.G_RET_STS_ERROR ;
132
133 FND_MSG_PUB.Count_And_Get(
134 p_count => x_msg_count,
135 p_data => x_msg_data );
136
137 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
138 ROLLBACK TO INSERT_FILTER;
139 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
140
141 FND_MSG_PUB.Count_And_Get(
142 p_count => x_msg_count,
143 p_data => x_msg_data );
144
145 WHEN OTHERS THEN
146 ROLLBACK TO INSERT_FILTER;
147 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
148
149 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
150 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
151 END IF;
152
153 FND_MSG_PUB.Count_And_Get(
154 p_count => x_msg_count,
155 p_data => x_msg_data );
156
157 END INSERT_FILTER;
158
159 PROCEDURE UPDATE_FILTER(
160 p_api_version IN NUMBER,
161 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
162 p_commit IN VARCHAR2 := FND_API.G_FALSE,
163
164 p_filter_id IN jtf_prefab_filters_b.filter_id%TYPE,
165 p_filter_name IN jtf_prefab_filters_b.filter_name%TYPE,
166 p_application_id IN jtf_prefab_filters_b.application_id%TYPE,
167 p_description IN jtf_prefab_filters_tl.description%TYPE,
168 p_filter_string IN jtf_prefab_filters_b.filter_string%TYPE,
169 p_exclusion_flag IN jtf_prefab_filters_b.exclusion_flag%TYPE,
170 p_enabled_flag IN jtf_prefab_filters_b.enabled_flag%TYPE,
171
172 p_object_version_number IN OUT NOCOPY jtf_prefab_filters_b.object_version_number%TYPE,
173
174 x_return_status OUT NOCOPY VARCHAR2,
175 x_msg_count OUT NOCOPY NUMBER,
176 x_msg_data OUT NOCOPY VARCHAR2
177 ) AS
178 -- local variables --
179 l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_FILTER';
180 l_api_version NUMBER := p_api_version;
181
182 BEGIN
183 -- Standard Start of API savepoint
184 SAVEPOINT UPDATE_FILTER;
185
186 -- Standard call to check for call compatibility.
187 IF NOT FND_API.Compatible_API_Call (
188 l_api_version,
189 p_api_version,
190 l_api_name,
191 G_PKG_NAME)
192 THEN
193 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
194 END IF;
195
196 -- Initialize message list if p_init_msg_list is set to TRUE.
197 IF FND_API.To_Boolean( p_init_msg_list ) THEN
198 FND_MSG_PUB.initialize;
199 END IF;
200
201 -- Initialize API return status to success
202 x_return_status := FND_API.G_RET_STS_SUCCESS;
203
204 -- real logic --
205 ----------------
206
207 JTF_PREFAB_FILTERS_PKG.UPDATE_ROW(p_filter_id,
208 p_object_version_number,
209 NULL,
210 p_application_id,
211 p_filter_name,
212 p_filter_string,
213 p_exclusion_flag,
214 p_enabled_flag,
215 p_description,
216 SYSDATE,
217 G_USER_ID,
218 G_LOGIN_ID);
219
220 /*
221 UPDATE jtf_prefab_filters
222 SET object_version_number = p_object_version_number,
223 last_updated_by = G_USER_ID,
224 last_update_date = SYSDATE,
225 last_update_login = G_LOGIN_ID,
226 filter_name = p_filter_name,
227 application_id = p_application_id,
228 application_id_for_filter = p_application_id_for_filter,
229 description = p_description,
230 filter_string = p_filter_string,
231 exclusion_flag = p_exclusion_flag,
232 enabled_flag = p_enabled_flag
233 WHERE filter_id = p_filter_id;
234 */
235
236 -----------------------
237 -- end of real logic --
238
239 -- Standard check of p_commit.
240 IF (FND_API.To_Boolean(p_commit)) THEN
241 COMMIT WORK;
242 END IF;
243
244 -- Standard call to get message count and if count is 1, get message info.
245 FND_MSG_PUB.Count_And_Get(
246 p_count => x_msg_count,
247 p_data => x_msg_data );
248
249 EXCEPTION
250 WHEN FND_API.G_EXC_ERROR THEN
251 ROLLBACK TO UPDATE_FILTER;
252 x_return_status := FND_API.G_RET_STS_ERROR ;
253
254 FND_MSG_PUB.Count_And_Get(
255 p_count => x_msg_count,
256 p_data => x_msg_data );
257
258 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
259 ROLLBACK TO UPDATE_FILTER;
260 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
261
262 FND_MSG_PUB.Count_And_Get(
263 p_count => x_msg_count,
264 p_data => x_msg_data );
265
266 WHEN OTHERS THEN
267 ROLLBACK TO UPDATE_FILTER;
268 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
269
270 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
271 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
272 END IF;
273
274 FND_MSG_PUB.Count_And_Get(
275 p_count => x_msg_count,
276 p_data => x_msg_data );
277
278 END UPDATE_FILTER;
279
280 procedure DELETE_FILTER(
281 p_api_version IN NUMBER,
282 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
283 p_commit IN VARCHAR2 := FND_API.G_FALSE,
284
285 p_filter_id IN jtf_prefab_filters_b.filter_id%TYPE,
286
287 p_object_version_number IN jtf_prefab_filters_b.object_version_number%TYPE,
288
289 x_return_status OUT NOCOPY VARCHAR2,
290 x_msg_count OUT NOCOPY NUMBER,
291 x_msg_data OUT NOCOPY VARCHAR2
292 ) AS
293 l_api_name CONSTANT VARCHAR2(30) := 'DELETE_FILTER';
294 l_api_version CONSTANT NUMBER := p_api_version;
295
296 l_object_version NUMBER := NULL;
297 BEGIN
298 -- Standard Start of API savepoint
299 SAVEPOINT DELETE_FILTER;
300
301 -- Standard call to check for call compatibility.
302 IF NOT FND_API.Compatible_API_Call (
303 l_api_version,
304 p_api_version,
305 l_api_name,
306 G_PKG_NAME)
307 THEN
308 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
309 END IF;
310
311 -- Initialize message list if p_init_msg_list is set to TRUE.
312 IF FND_API.To_Boolean( p_init_msg_list ) THEN
313 FND_MSG_PUB.initialize;
314 END IF;
315
316 -- Initialize API return status to success
317 x_return_status := FND_API.G_RET_STS_SUCCESS;
318
319 -- real logic --
320 ----------------
321
322 JTF_PREFAB_FILTERS_PKG.DELETE_ROW(p_filter_id);
323
324 /*
325 DELETE FROM jtf_prefab_filters
326 WHERE filter_id = p_filter_id;
327 */
328
329 -----------------------
330 -- end of real logic --
331
332 -- Standard check of p_commit.
333 IF (FND_API.To_Boolean(p_commit)) THEN
334 COMMIT WORK;
335 END IF;
336
337 -- Standard call to get message count and if count is 1, get message info.
338 FND_MSG_PUB.Count_And_Get(
339 p_count => x_msg_count,
340 p_data => x_msg_data );
341
342 EXCEPTION
343 WHEN FND_API.G_EXC_ERROR THEN
344 ROLLBACK TO DELETE_FILTER;
345 x_return_status := FND_API.G_RET_STS_ERROR ;
346
347 FND_MSG_PUB.Count_And_Get(
348 p_count => x_msg_count,
349 p_data => x_msg_data );
350
351 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
352 ROLLBACK TO DELETE_FILTER;
353 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
354
355 FND_MSG_PUB.Count_And_Get(
356 p_count => x_msg_count,
357 p_data => x_msg_data );
358
359 WHEN OTHERS THEN
360 ROLLBACK TO DELETE_FILTER;
361 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
362
363 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
364 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
365 END IF;
366
367 FND_MSG_PUB.Count_And_Get(
368 p_count => x_msg_count,
369 p_data => x_msg_data );
370
371 END DELETE_FILTER;
372
373 END JTF_PREFAB_FILTER_PUB;