[Home] [Help]
PACKAGE BODY: APPS.OKC_TAGS_PUB
Source
1 Package body OKC_TAGS_PUB AS
2 /* $Header: OKCPTAGB.pls 120.2 2006/02/28 14:47:39 smallya noship $ */
3 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
4
5 G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
6 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_TAGS_PUB';
7
8 -- Start of comments
9 --
10 -- Procedure Name : add_language
11 -- Description :
12 -- Business Rules :
13 -- Parameters :
14 -- Version : 1.0
15 -- End of comments
16
17 procedure add_language is
18 begin
19 OKC_TAG_PVT.add_language;
20 end add_language;
21
22 -- Start of comments
23 --
24 -- Procedure Name : create_tag
25 -- Description :
26 -- Business Rules :
27 -- Parameters :
28 -- Version : 1.0
29 -- End of comments
30 procedure create_tag(p_api_version IN NUMBER,
31 p_init_msg_list IN VARCHAR2 ,
32 x_return_status OUT NOCOPY VARCHAR2,
33 x_msg_count OUT NOCOPY NUMBER,
34 x_msg_data OUT NOCOPY VARCHAR2,
35 p_tagv_rec IN tagv_rec_type,
36 x_tagv_rec OUT NOCOPY tagv_rec_type) is
37 l_api_name CONSTANT VARCHAR2(30) := 'create_tag';
38 l_api_version CONSTANT NUMBER := 1;
39 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
40 begin
41 l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
42 G_PKG_NAME,
43 p_init_msg_list,
44 l_api_version,
45 p_api_version,
46 '_PUB',
47 x_return_status);
48 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
49 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
50 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
51 RAISE OKC_API.G_EXCEPTION_ERROR;
52 END IF;
53 OKC_TAG_PVT.insert_row(p_api_version,
54 p_init_msg_list,
55 x_return_status,
56 x_msg_count,
57 x_msg_data,
58 p_tagv_rec,
59 x_tagv_rec);
60 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
61 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
62 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
63 RAISE OKC_API.G_EXCEPTION_ERROR;
64 END IF;
65 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
66 EXCEPTION
67 WHEN OKC_API.G_EXCEPTION_ERROR THEN
68 x_return_status := OKC_API.HANDLE_EXCEPTIONS
69 (substr(l_api_name,1,26),
70 G_PKG_NAME,
71 'OKC_API.G_RET_STS_ERROR',
72 x_msg_count,
73 x_msg_data,
74 '_PUB');
75 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
76 x_return_status := OKC_API.HANDLE_EXCEPTIONS
77 (substr(l_api_name,1,26),
78 G_PKG_NAME,
79 'OKC_API.G_RET_STS_UNEXP_ERROR',
80 x_msg_count,
81 x_msg_data,
82 '_PUB');
83 WHEN OTHERS THEN
84 x_return_status := OKC_API.HANDLE_EXCEPTIONS
85 (substr(l_api_name,1,26),
86 G_PKG_NAME,
87 'OTHERS',
88 x_msg_count,
89 x_msg_data,
90 '_PUB');
91 end create_tag;
92
93 procedure create_tag(p_api_version IN NUMBER,
94 p_init_msg_list IN VARCHAR2 ,
95 x_return_status OUT NOCOPY VARCHAR2,
96 x_msg_count OUT NOCOPY NUMBER,
97 x_msg_data OUT NOCOPY VARCHAR2,
98 p_tagv_tbl IN tagv_tbl_type,
99 x_tagv_tbl OUT NOCOPY tagv_tbl_type) is
100 i NUMBER;
101 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
102 begin
103 OKC_API.init_msg_list(p_init_msg_list);
104 x_return_status:= OKC_API.G_RET_STS_SUCCESS;
105 if (p_tagv_tbl.COUNT>0) then
106 i := p_tagv_tbl.FIRST;
107 LOOP
108 create_tag(p_api_version=>p_api_version,
109 p_init_msg_list=>OKC_API.G_FALSE,
110 x_return_status=>l_return_status,
111 x_msg_count=>x_msg_count,
112 x_msg_data=>x_msg_data,
113 p_tagv_rec=>p_tagv_tbl(i),
114 x_tagv_rec=>x_tagv_tbl(i));
115 if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
116 x_return_status := l_return_status;
117 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
118 elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
119 x_return_status := l_return_status;
120 end if;
121 EXIT WHEN (i=p_tagv_tbl.LAST);
122 i := p_tagv_tbl.NEXT(i);
123 END LOOP;
124 end if;
125 exception
126 when others then NULL;
127 end create_tag;
128
129 procedure update_tag(p_api_version IN NUMBER,
130 p_init_msg_list IN VARCHAR2 ,
131 x_return_status OUT NOCOPY VARCHAR2,
132 x_msg_count OUT NOCOPY NUMBER,
133 x_msg_data OUT NOCOPY VARCHAR2,
134 p_tagv_rec IN tagv_rec_type,
135 x_tagv_rec OUT NOCOPY tagv_rec_type) is
136 l_api_name CONSTANT VARCHAR2(30) := 'update_tag';
137 l_api_version CONSTANT NUMBER := 1;
138 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
139 begin
140 l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
141 G_PKG_NAME,
142 p_init_msg_list,
143 l_api_version,
144 p_api_version,
145 '_PUB',
146 x_return_status);
147 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
148 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
149 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
150 RAISE OKC_API.G_EXCEPTION_ERROR;
151 END IF;
152 OKC_TAG_PVT.update_row(p_api_version,
153 p_init_msg_list,
154 x_return_status,
155 x_msg_count,
156 x_msg_data,
157 p_tagv_rec,
158 x_tagv_rec);
159 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
160 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
161 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
162 RAISE OKC_API.G_EXCEPTION_ERROR;
163 END IF;
164 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
165 EXCEPTION
166 WHEN OKC_API.G_EXCEPTION_ERROR THEN
167 x_return_status := OKC_API.HANDLE_EXCEPTIONS
168 (substr(l_api_name,1,26),
169 G_PKG_NAME,
170 'OKC_API.G_RET_STS_ERROR',
171 x_msg_count,
172 x_msg_data,
173 '_PUB');
174 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
175 x_return_status := OKC_API.HANDLE_EXCEPTIONS
176 (substr(l_api_name,1,26),
177 G_PKG_NAME,
178 'OKC_API.G_RET_STS_UNEXP_ERROR',
179 x_msg_count,
180 x_msg_data,
181 '_PUB');
182 WHEN OTHERS THEN
183 x_return_status := OKC_API.HANDLE_EXCEPTIONS
184 (substr(l_api_name,1,26),
185 G_PKG_NAME,
186 'OTHERS',
187 x_msg_count,
188 x_msg_data,
189 '_PUB');
190 end update_tag;
191
192 procedure update_tag(p_api_version IN NUMBER,
193 p_init_msg_list IN VARCHAR2 ,
194 x_return_status OUT NOCOPY VARCHAR2,
195 x_msg_count OUT NOCOPY NUMBER,
196 x_msg_data OUT NOCOPY VARCHAR2,
197 p_tagv_tbl IN tagv_tbl_type,
198 x_tagv_tbl OUT NOCOPY tagv_tbl_type) is
199 i NUMBER;
200 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
201 begin
202 OKC_API.init_msg_list(p_init_msg_list);
203 x_return_status:= OKC_API.G_RET_STS_SUCCESS;
204 if (p_tagv_tbl.COUNT>0) then
205 i := p_tagv_tbl.FIRST;
206 LOOP
207 update_tag(p_api_version=>p_api_version,
208 p_init_msg_list=>OKC_API.G_FALSE,
209 x_return_status=>l_return_status,
210 x_msg_count=>x_msg_count,
211 x_msg_data=>x_msg_data,
212 p_tagv_rec=>p_tagv_tbl(i),
213 x_tagv_rec=>x_tagv_tbl(i));
214 if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
215 x_return_status := l_return_status;
216 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
217 elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
218 x_return_status := l_return_status;
219 end if;
220 EXIT WHEN (i=p_tagv_tbl.LAST);
221 i := p_tagv_tbl.NEXT(i);
222 END LOOP;
223 end if;
224 exception
225 when others then NULL;
226 end update_tag;
227
228 procedure delete_tag(p_api_version IN NUMBER,
229 p_init_msg_list IN VARCHAR2 ,
230 x_return_status OUT NOCOPY VARCHAR2,
231 x_msg_count OUT NOCOPY NUMBER,
232 x_msg_data OUT NOCOPY VARCHAR2,
233 p_tagv_rec IN tagv_rec_type) is
234 l_api_name CONSTANT VARCHAR2(30) := 'delete_tag';
235 l_api_version CONSTANT NUMBER := 1;
236 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
237 begin
238 l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
239 G_PKG_NAME,
240 p_init_msg_list,
241 l_api_version,
242 p_api_version,
243 '_PUB',
244 x_return_status);
245 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
246 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
247 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
248 RAISE OKC_API.G_EXCEPTION_ERROR;
249 END IF;
250 OKC_TAG_PVT.delete_row(p_api_version,
251 p_init_msg_list,
252 x_return_status,
253 x_msg_count,
254 x_msg_data,
255 p_tagv_rec);
256 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
257 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
258 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
259 RAISE OKC_API.G_EXCEPTION_ERROR;
260 END IF;
261 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
262 EXCEPTION
263 WHEN OKC_API.G_EXCEPTION_ERROR THEN
264 x_return_status := OKC_API.HANDLE_EXCEPTIONS
265 (substr(l_api_name,1,26),
266 G_PKG_NAME,
267 'OKC_API.G_RET_STS_ERROR',
268 x_msg_count,
269 x_msg_data,
270 '_PUB');
271 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
272 x_return_status := OKC_API.HANDLE_EXCEPTIONS
273 (substr(l_api_name,1,26),
274 G_PKG_NAME,
275 'OKC_API.G_RET_STS_UNEXP_ERROR',
276 x_msg_count,
277 x_msg_data,
278 '_PUB');
279 WHEN OTHERS THEN
280 x_return_status := OKC_API.HANDLE_EXCEPTIONS
281 (substr(l_api_name,1,26),
282 G_PKG_NAME,
283 'OTHERS',
284 x_msg_count,
285 x_msg_data,
286 '_PUB');
287 end delete_tag;
288
289 procedure delete_tag(p_api_version IN NUMBER,
290 p_init_msg_list IN VARCHAR2 ,
291 x_return_status OUT NOCOPY VARCHAR2,
292 x_msg_count OUT NOCOPY NUMBER,
293 x_msg_data OUT NOCOPY VARCHAR2,
294 p_tagv_tbl IN tagv_tbl_type) is
295 i NUMBER;
296 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
297 begin
298 OKC_API.init_msg_list(p_init_msg_list);
299 x_return_status:= OKC_API.G_RET_STS_SUCCESS;
300 if (p_tagv_tbl.COUNT>0) then
301 i := p_tagv_tbl.FIRST;
302 LOOP
303 delete_tag(p_api_version=>p_api_version,
304 p_init_msg_list=>OKC_API.G_FALSE,
305 x_return_status=>l_return_status,
306 x_msg_count=>x_msg_count,
307 x_msg_data=>x_msg_data,
308 p_tagv_rec=>p_tagv_tbl(i));
309 if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
310 x_return_status := l_return_status;
311 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
312 elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
313 x_return_status := l_return_status;
314 end if;
315 EXIT WHEN (i=p_tagv_tbl.LAST);
316 i := p_tagv_tbl.NEXT(i);
317 END LOOP;
318 end if;
319 exception
320 when others then NULL;
321 end delete_tag;
322
323 procedure lock_tag(p_api_version IN NUMBER,
324 p_init_msg_list IN VARCHAR2 ,
325 x_return_status OUT NOCOPY VARCHAR2,
326 x_msg_count OUT NOCOPY NUMBER,
327 x_msg_data OUT NOCOPY VARCHAR2,
328 p_tagv_rec IN tagv_rec_type) is
329 l_api_name CONSTANT VARCHAR2(30) := 'lock_tag';
330 l_api_version CONSTANT NUMBER := 1;
331 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
332 begin
333 l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
334 G_PKG_NAME,
335 p_init_msg_list,
336 l_api_version,
337 p_api_version,
338 '_PUB',
339 x_return_status);
340 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
341 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
342 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
343 RAISE OKC_API.G_EXCEPTION_ERROR;
344 END IF;
345 OKC_TAG_PVT.lock_row(
346 p_init_msg_list,
347 x_return_status,
348 x_msg_count,
349 x_msg_data,
350 p_tagv_rec);
351 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
352 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
353 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
354 RAISE OKC_API.G_EXCEPTION_ERROR;
355 END IF;
356 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
357 EXCEPTION
358 WHEN OKC_API.G_EXCEPTION_ERROR THEN
359 x_return_status := OKC_API.HANDLE_EXCEPTIONS
360 (substr(l_api_name,1,26),
361 G_PKG_NAME,
362 'OKC_API.G_RET_STS_ERROR',
363 x_msg_count,
364 x_msg_data,
365 '_PUB');
366 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
367 x_return_status := OKC_API.HANDLE_EXCEPTIONS
368 (substr(l_api_name,1,26),
369 G_PKG_NAME,
370 'OKC_API.G_RET_STS_UNEXP_ERROR',
371 x_msg_count,
372 x_msg_data,
373 '_PUB');
374 WHEN OTHERS THEN
375 x_return_status := OKC_API.HANDLE_EXCEPTIONS
376 (substr(l_api_name,1,26),
377 G_PKG_NAME,
378 'OTHERS',
379 x_msg_count,
380 x_msg_data,
381 '_PUB');
382 end lock_tag;
383
384 procedure lock_tag(p_api_version IN NUMBER,
385 p_init_msg_list IN VARCHAR2 ,
386 x_return_status OUT NOCOPY VARCHAR2,
387 x_msg_count OUT NOCOPY NUMBER,
388 x_msg_data OUT NOCOPY VARCHAR2,
389 p_tagv_tbl IN tagv_tbl_type) is
390 i NUMBER;
391 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
392 begin
393 OKC_API.init_msg_list(p_init_msg_list);
394 x_return_status:= OKC_API.G_RET_STS_SUCCESS;
395 if (p_tagv_tbl.COUNT>0) then
396 i := p_tagv_tbl.FIRST;
397 LOOP
398 lock_tag(p_api_version=>p_api_version,
399 p_init_msg_list=>OKC_API.G_FALSE,
400 x_return_status=>l_return_status,
401 x_msg_count=>x_msg_count,
402 x_msg_data=>x_msg_data,
403 p_tagv_rec=>p_tagv_tbl(i));
404 if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
405 x_return_status := l_return_status;
406 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
407 elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
408 x_return_status := l_return_status;
409 end if;
410 EXIT WHEN (i=p_tagv_tbl.LAST);
411 i := p_tagv_tbl.NEXT(i);
412 END LOOP;
413 end if;
414 exception
415 when others then NULL;
416 end lock_tag;
417
418 END OKC_TAGS_PUB;