[Home] [Help]
PACKAGE BODY: APPS.OKS_REPORT_TEMPLATES_PUB
Source
1 PACKAGE BODY OKS_REPORT_TEMPLATES_PUB AS
2 /* $Header: OKSPRTMB.pls 120.0 2005/05/25 17:39:41 appldev noship $ */
3 ---------------------------------------------------------------------------
4 -- PROCEDURE qc
5 ---------------------------------------------------------------------------
6 PROCEDURE qc IS
7 BEGIN
8 OKS_REPORT_TEMPLATES_PVT.qc;
9 END qc;
10
11 ---------------------------------------------------------------------------
12 -- PROCEDURE change_version
13 ---------------------------------------------------------------------------
14 PROCEDURE change_version IS
15 BEGIN
16 OKS_REPORT_TEMPLATES_PVT.change_version;
17 END change_version;
18
19 ---------------------------------------------------------------------------
20 -- PROCEDURE api_copy
21 ---------------------------------------------------------------------------
22 PROCEDURE api_copy IS
23 BEGIN
24 OKS_REPORT_TEMPLATES_PVT.api_copy;
25 END api_copy;
26
27 ---------------------------------------------------------------------------
28 -- PROCEDURE validate_row
29 ---------------------------------------------------------------------------
30 -----------------------------------------
31 -- validate_row for:OKS_TEMPLATE_SET_V --
32 -----------------------------------------
33 PROCEDURE validate_row(
34 p_api_version IN NUMBER,
35 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
36 x_return_status OUT NOCOPY VARCHAR2,
37 x_msg_count OUT NOCOPY NUMBER,
38 x_msg_data OUT NOCOPY VARCHAR2,
39 p_rtmpv_rec IN rtmpv_rec_type) IS
40
41 l_api_version CONSTANT NUMBER := 1;
42 l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
43 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
44 BEGIN
45 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
46 G_PKG_NAME,
47 p_init_msg_list,
48 l_api_version,
49 p_api_version,
50 '_PUB',
51 x_return_status);
52 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
53 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
54 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
55 RAISE OKC_API.G_EXCEPTION_ERROR;
56 END IF;
57
58 OKC_UTIL.call_user_hook
59 (
60 x_return_status => x_return_status,
61 p_package_name => g_pkg_name,
62 p_procedure_name => l_api_name,
63 p_before_after => 'B'
64 );
65 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
66 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
67 ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
68 raise OKC_API.G_EXCEPTION_ERROR;
69 End If;
70 OKS_REPORT_TEMPLATES_PVT.validate_row(p_api_version => l_api_version,
71 p_init_msg_list => p_init_msg_list,
72 x_return_status => x_return_status,
73 x_msg_count => x_msg_count,
74 x_msg_data => x_msg_data,
75 p_rtmpv_rec => p_rtmpv_rec );
76
77 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
78 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
79 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
80 raise OKC_API.G_EXCEPTION_ERROR;
81 End If;
82
83 OKC_UTIL.call_user_hook
84 (
85 x_return_status => x_return_status,
86 p_package_name => g_pkg_name,
87 p_procedure_name => l_api_name,
88 p_before_after => 'A'
89 );
90
91 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
92 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
93 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
94 raise OKC_API.G_EXCEPTION_ERROR;
95 End If;
96
97 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
98 x_return_status := l_return_status;
99
100 EXCEPTION
101 WHEN OKC_API.G_EXCEPTION_ERROR THEN
102 x_return_status := OKC_API.HANDLE_EXCEPTIONS
103 (
104 l_api_name,
105 G_PKG_NAME,
106 'OKC_API.G_RET_STS_ERROR',
107 x_msg_count,
108 x_msg_data,
109 '_PUB'
110 );
111 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
112 x_return_status := OKC_API.HANDLE_EXCEPTIONS
113 (
114 l_api_name,
115 G_PKG_NAME,
116 'OKC_API.G_RET_STS_UNEXP_ERROR',
117 x_msg_count,
118 x_msg_data,
119 '_PUB'
120 );
121 WHEN OTHERS THEN
122 x_return_status := OKC_API.HANDLE_EXCEPTIONS
123 (
124 l_api_name,
125 G_PKG_NAME,
126 'OTHERS',
127 x_msg_count,
128 x_msg_data,
129 '_PUB'
130 );
131 END validate_row;
132 ----------------------------------------------------
133 -- PL/SQL TBL validate_row for:OKS_TEMPLATE_SET_V --
134 ----------------------------------------------------
135 PROCEDURE validate_row(
136 p_api_version IN NUMBER,
137 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
138 x_return_status OUT NOCOPY VARCHAR2,
139 x_msg_count OUT NOCOPY NUMBER,
140 x_msg_data OUT NOCOPY VARCHAR2,
141 p_rtmpv_tbl IN rtmpv_tbl_type,
142 px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
143
144 l_api_version CONSTANT NUMBER := 1;
145 l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
146 l_return_status VARCHAR2(1);
147 BEGIN
148 OKC_API.init_msg_list(p_init_msg_list);
149 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
150 G_PKG_NAME,
151 p_init_msg_list,
152 l_api_version,
153 p_api_version,
154 '_PUB',
155 x_return_status);
156 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
157 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
158 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
159 RAISE OKC_API.G_EXCEPTION_ERROR;
160 END IF;
161
162 OKC_UTIL.call_user_hook
163 (
164 x_return_status => x_return_status,
165 p_package_name => g_pkg_name,
166 p_procedure_name => l_api_name,
167 p_before_after => 'B'
168 );
169 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
170 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
171 ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
172 raise OKC_API.G_EXCEPTION_ERROR;
173 End If;
174 OKS_REPORT_TEMPLATES_PVT.validate_row(p_api_version => l_api_version,
175 p_init_msg_list => p_init_msg_list,
176 x_return_status => x_return_status,
177 x_msg_count => x_msg_count,
178 x_msg_data => x_msg_data,
179 p_rtmpv_tbl => p_rtmpv_tbl,
180 px_error_tbl => px_error_tbl);
181
182 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
183 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
184 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
185 raise OKC_API.G_EXCEPTION_ERROR;
186 End If;
187
188 OKC_UTIL.call_user_hook
189 (
190 x_return_status => x_return_status,
191 p_package_name => g_pkg_name,
192 p_procedure_name => l_api_name,
193 p_before_after => 'A'
194 );
195
196 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
197 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
198 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
199 raise OKC_API.G_EXCEPTION_ERROR;
200 End If;
201 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
202 x_return_status := l_return_status;
203 EXCEPTION
204 WHEN OKC_API.G_EXCEPTION_ERROR THEN
205 x_return_status := OKC_API.HANDLE_EXCEPTIONS
206 (
207 l_api_name,
208 G_PKG_NAME,
209 'OKC_API.G_RET_STS_ERROR',
210 x_msg_count,
211 x_msg_data,
212 '_PUB'
213 );
214 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
215 x_return_status := OKC_API.HANDLE_EXCEPTIONS
216 (
217 l_api_name,
218 G_PKG_NAME,
219 'OKC_API.G_RET_STS_UNEXP_ERROR',
220 x_msg_count,
221 x_msg_data,
222 '_PUB'
223 );
224 WHEN OTHERS THEN
225 x_return_status := OKC_API.HANDLE_EXCEPTIONS
226 (
227 l_api_name,
228 G_PKG_NAME,
229 'OTHERS',
230 x_msg_count,
231 x_msg_data,
232 '_PUB'
233 );
234 END validate_row;
235
236 ----------------------------------------------------
237 -- PL/SQL TBL validate_row for:OKS_TEMPLATE_SET_V --
238 ----------------------------------------------------
239 PROCEDURE validate_row(
240 p_api_version IN NUMBER,
241 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
242 x_return_status OUT NOCOPY VARCHAR2,
243 x_msg_count OUT NOCOPY NUMBER,
244 x_msg_data OUT NOCOPY VARCHAR2,
245 p_rtmpv_tbl IN rtmpv_tbl_type) IS
246
247 l_api_version CONSTANT NUMBER := 1;
248 l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
249 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
250 BEGIN
251 OKC_API.init_msg_list(p_init_msg_list);
252 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
253 G_PKG_NAME,
254 p_init_msg_list,
255 l_api_version,
256 p_api_version,
257 '_PUB',
258 x_return_status);
259 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
260 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
261 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
262 RAISE OKC_API.G_EXCEPTION_ERROR;
263 END IF;
264
265 OKC_UTIL.call_user_hook
266 (
267 x_return_status => x_return_status,
268 p_package_name => g_pkg_name,
269 p_procedure_name => l_api_name,
270 p_before_after => 'B'
271 );
272 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
273 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
274 ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
275 raise OKC_API.G_EXCEPTION_ERROR;
276 End If;
277 OKS_REPORT_TEMPLATES_PVT.validate_row(p_api_version => l_api_version,
278 p_init_msg_list => p_init_msg_list,
279 x_return_status => x_return_status,
280 x_msg_count => x_msg_count,
281 x_msg_data => x_msg_data,
282 p_rtmpv_tbl => p_rtmpv_tbl);
283
284 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
285 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
286 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
287 raise OKC_API.G_EXCEPTION_ERROR;
288 End If;
289
290 OKC_UTIL.call_user_hook
291 (
292 x_return_status => x_return_status,
293 p_package_name => g_pkg_name,
294 p_procedure_name => l_api_name,
295 p_before_after => 'A'
296 );
297
298 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
299 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
300 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
301 raise OKC_API.G_EXCEPTION_ERROR;
302 End If;
303 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
304 x_return_status := l_return_status;
305 EXCEPTION
306 WHEN OKC_API.G_EXCEPTION_ERROR THEN
307 x_return_status := OKC_API.HANDLE_EXCEPTIONS
308 (
309 l_api_name,
310 G_PKG_NAME,
311 'OKC_API.G_RET_STS_ERROR',
312 x_msg_count,
313 x_msg_data,
314 '_PUB'
315 );
316 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
317 x_return_status := OKC_API.HANDLE_EXCEPTIONS
318 (
319 l_api_name,
320 G_PKG_NAME,
321 'OKC_API.G_RET_STS_UNEXP_ERROR',
322 x_msg_count,
323 x_msg_data,
324 '_PUB'
325 );
326 WHEN OTHERS THEN
327 x_return_status := OKC_API.HANDLE_EXCEPTIONS
328 (
329 l_api_name,
330 G_PKG_NAME,
331 'OTHERS',
332 x_msg_count,
333 x_msg_data,
334 '_PUB'
335 );
336 END validate_row;
337
338 ---------------------------------------------------------------------------
339 -- PROCEDURE insert_row
340 ---------------------------------------------------------------------------
341 ----------------------------------------
342 -- insert_row for :OKS_TEMPLATE_SET_V --
343 ----------------------------------------
344 PROCEDURE insert_row(
345 p_api_version IN NUMBER,
346 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
347 x_return_status OUT NOCOPY VARCHAR2,
348 x_msg_count OUT NOCOPY NUMBER,
349 x_msg_data OUT NOCOPY VARCHAR2,
350 p_rtmpv_rec IN rtmpv_rec_type,
351 x_rtmpv_rec OUT NOCOPY rtmpv_rec_type
352 ) IS
353
354 l_api_version CONSTANT NUMBER := 1;
355 l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
356 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
357 BEGIN
358 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
359 G_PKG_NAME,
360 p_init_msg_list,
361 l_api_version,
362 p_api_version,
363 '_PUB',
364 x_return_status);
365 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
366 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
367 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
368 RAISE OKC_API.G_EXCEPTION_ERROR;
369 END IF;
370
371 OKC_UTIL.call_user_hook
372 (
373 x_return_status => x_return_status,
374 p_package_name => g_pkg_name,
375 p_procedure_name => l_api_name,
376 p_before_after => 'B'
377 );
378 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
379 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
380 ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
381 raise OKC_API.G_EXCEPTION_ERROR;
382 End If;
383 OKS_REPORT_TEMPLATES_PVT.insert_row(p_api_version => l_api_version,
384 p_init_msg_list => p_init_msg_list,
385 x_return_status => x_return_status,
386 x_msg_count => x_msg_count,
387 x_msg_data => x_msg_data,
388 p_rtmpv_rec => p_rtmpv_rec,
389 x_rtmpv_rec => x_rtmpv_rec);
390
391
392 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
393 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
394 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
395 raise OKC_API.G_EXCEPTION_ERROR;
396 End If;
397
398 OKC_UTIL.call_user_hook
399 (
400 x_return_status => x_return_status,
401 p_package_name => g_pkg_name,
402 p_procedure_name => l_api_name,
403 p_before_after => 'A'
404 );
405
406 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
407 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
408 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
409 raise OKC_API.G_EXCEPTION_ERROR;
410 End If;
411
412 x_return_status := l_return_status;
413 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
414 EXCEPTION
415 WHEN OKC_API.G_EXCEPTION_ERROR THEN
416 x_return_status := OKC_API.HANDLE_EXCEPTIONS
417 (
418 l_api_name,
419 G_PKG_NAME,
420 'OKC_API.G_RET_STS_ERROR',
421 x_msg_count,
422 x_msg_data,
423 '_PUB'
424 );
425 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
426 x_return_status := OKC_API.HANDLE_EXCEPTIONS
427 (
428 l_api_name,
429 G_PKG_NAME,
430 'OKC_API.G_RET_STS_UNEXP_ERROR',
431 x_msg_count,
432 x_msg_data,
433 '_PUB'
434 );
435 WHEN OTHERS THEN
436 x_return_status := OKC_API.HANDLE_EXCEPTIONS
437 (
438 l_api_name,
439 G_PKG_NAME,
440 'OTHERS',
441 x_msg_count,
442 x_msg_data,
443 '_PUB'
444 );
445 END insert_row;
446 ----------------------------------------
447 -- PL/SQL TBL insert_row for:TMSV_TBL --
448 ----------------------------------------
449 PROCEDURE insert_row(
450 p_api_version IN NUMBER,
451 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
452 x_return_status OUT NOCOPY VARCHAR2,
453 x_msg_count OUT NOCOPY NUMBER,
454 x_msg_data OUT NOCOPY VARCHAR2,
455 p_rtmpv_tbl IN rtmpv_tbl_type,
456 x_rtmpv_tbl OUT NOCOPY rtmpv_tbl_type,
457 px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
458
459 l_api_version CONSTANT NUMBER := 1;
460 l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
461 l_return_status VARCHAR2(1);
462 BEGIN
463 OKC_API.init_msg_list(p_init_msg_list);
464 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
465 G_PKG_NAME,
466 p_init_msg_list,
467 l_api_version,
468 p_api_version,
469 '_PUB',
470 x_return_status);
471 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
472 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
473 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
474 RAISE OKC_API.G_EXCEPTION_ERROR;
475 END IF;
476
477 OKC_UTIL.call_user_hook
478 (
479 x_return_status => x_return_status,
480 p_package_name => g_pkg_name,
481 p_procedure_name => l_api_name,
482 p_before_after => 'B'
483 );
484 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
485 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
486 ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
487 raise OKC_API.G_EXCEPTION_ERROR;
488 End If;
489 OKS_REPORT_TEMPLATES_PVT.insert_row(p_api_version => l_api_version,
490 p_init_msg_list => p_init_msg_list,
491 x_return_status => x_return_status,
492 x_msg_count => x_msg_count,
493 x_msg_data => x_msg_data,
494 p_rtmpv_tbl => p_rtmpv_tbl,
495 x_rtmpv_tbl => x_rtmpv_tbl,
496 px_error_tbl => px_error_tbl);
497
498 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
499 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
500 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
501 raise OKC_API.G_EXCEPTION_ERROR;
502 End If;
503
504 OKC_UTIL.call_user_hook
505 (
506 x_return_status => x_return_status,
507 p_package_name => g_pkg_name,
508 p_procedure_name => l_api_name,
509 p_before_after => 'A'
510 );
511
512 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
513 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
514 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
515 raise OKC_API.G_EXCEPTION_ERROR;
516 End If;
517
518 x_return_status := l_return_status;
519 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
520 EXCEPTION
521 WHEN OKC_API.G_EXCEPTION_ERROR THEN
522 x_return_status := OKC_API.HANDLE_EXCEPTIONS
523 (
524 l_api_name,
525 G_PKG_NAME,
526 'OKC_API.G_RET_STS_ERROR',
527 x_msg_count,
528 x_msg_data,
529 '_PUB'
530 );
531 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
532 x_return_status := OKC_API.HANDLE_EXCEPTIONS
533 (
534 l_api_name,
535 G_PKG_NAME,
536 'OKC_API.G_RET_STS_UNEXP_ERROR',
537 x_msg_count,
538 x_msg_data,
539 '_PUB'
540 );
541 WHEN OTHERS THEN
542 x_return_status := OKC_API.HANDLE_EXCEPTIONS
543 (
544 l_api_name,
545 G_PKG_NAME,
546 'OTHERS',
547 x_msg_count,
548 x_msg_data,
549 '_PUB'
550 );
551 END insert_row;
552
553 ----------------------------------------
554 -- PL/SQL TBL insert_row for:TMSV_TBL --
555 ----------------------------------------
556 PROCEDURE insert_row(
557 p_api_version IN NUMBER,
558 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
559 x_return_status OUT NOCOPY VARCHAR2,
560 x_msg_count OUT NOCOPY NUMBER,
561 x_msg_data OUT NOCOPY VARCHAR2,
562 p_rtmpv_tbl IN rtmpv_tbl_type,
563 x_rtmpv_tbl OUT NOCOPY rtmpv_tbl_type) IS
564
565
566 l_api_version CONSTANT NUMBER := 1;
567 l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
568 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
569 BEGIN
570 OKC_API.init_msg_list(p_init_msg_list);
571 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
572 G_PKG_NAME,
573 p_init_msg_list,
574 l_api_version,
575 p_api_version,
576 '_PUB',
577 x_return_status);
578 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
579 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
580 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
581 RAISE OKC_API.G_EXCEPTION_ERROR;
582 END IF;
583
584 OKC_UTIL.call_user_hook
585 (
586 x_return_status => x_return_status,
587 p_package_name => g_pkg_name,
588 p_procedure_name => l_api_name,
589 p_before_after => 'B'
590 );
591 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
592 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
593 ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
594 raise OKC_API.G_EXCEPTION_ERROR;
595 End If;
596 OKS_REPORT_TEMPLATES_PVT.insert_row(p_api_version => l_api_version,
597 p_init_msg_list => p_init_msg_list,
598 x_return_status => x_return_status,
599 x_msg_count => x_msg_count,
600 x_msg_data => x_msg_data,
601 p_rtmpv_tbl => p_rtmpv_tbl,
602 x_rtmpv_tbl => x_rtmpv_tbl);
603
604
605 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
606 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
607 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
608 raise OKC_API.G_EXCEPTION_ERROR;
609 End If;
610
611 OKC_UTIL.call_user_hook
612 (
613 x_return_status => x_return_status,
614 p_package_name => g_pkg_name,
615 p_procedure_name => l_api_name,
616 p_before_after => 'A'
617 );
618
619 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
620 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
621 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
622 raise OKC_API.G_EXCEPTION_ERROR;
623 End If;
624
625 x_return_status := l_return_status;
626 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
627 EXCEPTION
628 WHEN OKC_API.G_EXCEPTION_ERROR THEN
629 x_return_status := OKC_API.HANDLE_EXCEPTIONS
630 (
631 l_api_name,
632 G_PKG_NAME,
633 'OKC_API.G_RET_STS_ERROR',
634 x_msg_count,
635 x_msg_data,
636 '_PUB'
637 );
638 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
639 x_return_status := OKC_API.HANDLE_EXCEPTIONS
640 (
641 l_api_name,
642 G_PKG_NAME,
643 'OKC_API.G_RET_STS_UNEXP_ERROR',
644 x_msg_count,
645 x_msg_data,
646 '_PUB'
647 );
648 WHEN OTHERS THEN
649 x_return_status := OKC_API.HANDLE_EXCEPTIONS
650 (
651 l_api_name,
652 G_PKG_NAME,
653 'OTHERS',
654 x_msg_count,
655 x_msg_data,
656 '_PUB'
657 );
658 END insert_row;
659
660 ---------------------------------------------------------------------------
661 -- PROCEDURE lock_row
662 ---------------------------------------------------------------------------
663 --------------------------------------
664 -- lock_row for: OKS_TEMPLATE_SET_V --
665 --------------------------------------
666 PROCEDURE lock_row(
667 p_api_version IN NUMBER,
668 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
669 x_return_status OUT NOCOPY VARCHAR2,
670 x_msg_count OUT NOCOPY NUMBER,
671 x_msg_data OUT NOCOPY VARCHAR2,
672 p_rtmpv_rec IN rtmpv_rec_type) IS
673
674 l_api_version CONSTANT NUMBER := 1;
675 l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
676 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
677 BEGIN
678 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
679 G_PKG_NAME,
680 p_init_msg_list,
681 l_api_version,
682 p_api_version,
683 '_PUB',
684 x_return_status);
685 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
686 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
687 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
688 RAISE OKC_API.G_EXCEPTION_ERROR;
689 END IF;
690
691 OKC_UTIL.call_user_hook
692 (
693 x_return_status => x_return_status,
694 p_package_name => g_pkg_name,
695 p_procedure_name => l_api_name,
696 p_before_after => 'B'
697 );
698 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
699 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
700 ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
701 raise OKC_API.G_EXCEPTION_ERROR;
702 End If;
703 OKS_REPORT_TEMPLATES_PVT.lock_row(p_api_version => l_api_version,
704 p_init_msg_list => p_init_msg_list,
705 x_return_status => x_return_status,
706 x_msg_count => x_msg_count,
707 x_msg_data => x_msg_data,
708 p_rtmpv_rec => p_rtmpv_rec);
709
710
711 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
712 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
713 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
714 raise OKC_API.G_EXCEPTION_ERROR;
715 End If;
716
717 OKC_UTIL.call_user_hook
718 (
719 x_return_status => x_return_status,
720 p_package_name => g_pkg_name,
721 p_procedure_name => l_api_name,
722 p_before_after => 'A'
723 );
724
725 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
726 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
727 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
728 raise OKC_API.G_EXCEPTION_ERROR;
729 End If;
730 x_return_status := l_return_status;
731 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
732 EXCEPTION
733 WHEN OKC_API.G_EXCEPTION_ERROR THEN
734 x_return_status := OKC_API.HANDLE_EXCEPTIONS
735 (
736 l_api_name,
737 G_PKG_NAME,
738 'OKC_API.G_RET_STS_ERROR',
739 x_msg_count,
740 x_msg_data,
741 '_PUB'
742 );
743 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
744 x_return_status := OKC_API.HANDLE_EXCEPTIONS
745 (
746 l_api_name,
747 G_PKG_NAME,
748 'OKC_API.G_RET_STS_UNEXP_ERROR',
749 x_msg_count,
750 x_msg_data,
751 '_PUB'
752 );
753 WHEN OTHERS THEN
754 x_return_status := OKC_API.HANDLE_EXCEPTIONS
755 (
756 l_api_name,
757 G_PKG_NAME,
758 'OTHERS',
759 x_msg_count,
760 x_msg_data,
761 '_PUB'
762 );
763 END lock_row;
764 --------------------------------------
765 -- PL/SQL TBL lock_row for:TMSV_TBL --
766 --------------------------------------
767 PROCEDURE lock_row(
768 p_api_version IN NUMBER,
769 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
770 x_return_status OUT NOCOPY VARCHAR2,
771 x_msg_count OUT NOCOPY NUMBER,
772 x_msg_data OUT NOCOPY VARCHAR2,
773 p_rtmpv_tbl IN rtmpv_tbl_type,
774 px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE
775 ) IS
776
777 l_api_version CONSTANT NUMBER := 1;
778 l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
779 l_return_status VARCHAR2(1);
780 BEGIN
781 OKC_API.init_msg_list(p_init_msg_list);
782 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
783 G_PKG_NAME,
784 p_init_msg_list,
785 l_api_version,
786 p_api_version,
787 '_PUB',
788 x_return_status);
789 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
790 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
791 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
792 RAISE OKC_API.G_EXCEPTION_ERROR;
793 END IF;
794
795 OKC_UTIL.call_user_hook
796 (
797 x_return_status => x_return_status,
798 p_package_name => g_pkg_name,
799 p_procedure_name => l_api_name,
800 p_before_after => 'B'
801 );
802 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
803 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
804 ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
805 raise OKC_API.G_EXCEPTION_ERROR;
806 End If;
807 OKS_REPORT_TEMPLATES_PVT.lock_row(p_api_version => l_api_version,
808 p_init_msg_list => p_init_msg_list,
809 x_return_status => x_return_status,
810 x_msg_count => x_msg_count,
811 x_msg_data => x_msg_data,
812 p_rtmpv_tbl => p_rtmpv_tbl,
813 px_error_tbl => px_error_tbl);
814
815
816 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
817 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
818 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
819 raise OKC_API.G_EXCEPTION_ERROR;
820 End If;
821
822 OKC_UTIL.call_user_hook
823 (
824 x_return_status => x_return_status,
825 p_package_name => g_pkg_name,
826 p_procedure_name => l_api_name,
827 p_before_after => 'A'
828 );
829
830 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
831 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
832 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
833 raise OKC_API.G_EXCEPTION_ERROR;
834 End If;
835
836 x_return_status := l_return_status;
837 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
838 EXCEPTION
839 WHEN OKC_API.G_EXCEPTION_ERROR THEN
840 x_return_status := OKC_API.HANDLE_EXCEPTIONS
841 (
842 l_api_name,
843 G_PKG_NAME,
844 'OKC_API.G_RET_STS_ERROR',
845 x_msg_count,
846 x_msg_data,
847 '_PUB'
848 );
849 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
850 x_return_status := OKC_API.HANDLE_EXCEPTIONS
851 (
852 l_api_name,
853 G_PKG_NAME,
854 'OKC_API.G_RET_STS_UNEXP_ERROR',
855 x_msg_count,
856 x_msg_data,
857 '_PUB'
858 );
859 WHEN OTHERS THEN
860 x_return_status := OKC_API.HANDLE_EXCEPTIONS
861 (
862 l_api_name,
863 G_PKG_NAME,
864 'OTHERS',
865 x_msg_count,
866 x_msg_data,
867 '_PUB'
868 );
869 END lock_row;
870 --------------------------------------
871 -- PL/SQL TBL lock_row for:TMSV_TBL --
872 --------------------------------------
873 PROCEDURE lock_row(
874 p_api_version IN NUMBER,
875 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
876 x_return_status OUT NOCOPY VARCHAR2,
877 x_msg_count OUT NOCOPY NUMBER,
878 x_msg_data OUT NOCOPY VARCHAR2,
879 p_rtmpv_tbl IN rtmpv_tbl_type) IS
880
881 l_api_version CONSTANT NUMBER := 1;
882 l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
883 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
884 BEGIN
885 OKC_API.init_msg_list(p_init_msg_list);
886 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
887 G_PKG_NAME,
888 p_init_msg_list,
889 l_api_version,
890 p_api_version,
891 '_PUB',
892 x_return_status);
893 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
894 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
895 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
896 RAISE OKC_API.G_EXCEPTION_ERROR;
897 END IF;
898
899 OKC_UTIL.call_user_hook
900 (
901 x_return_status => x_return_status,
902 p_package_name => g_pkg_name,
903 p_procedure_name => l_api_name,
904 p_before_after => 'B'
905 );
906 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
907 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
908 ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
909 raise OKC_API.G_EXCEPTION_ERROR;
910 End If;
911 OKS_REPORT_TEMPLATES_PVT.lock_row(p_api_version => l_api_version,
912 p_init_msg_list => p_init_msg_list,
913 x_return_status => x_return_status,
914 x_msg_count => x_msg_count,
915 x_msg_data => x_msg_data,
916 p_rtmpv_tbl => p_rtmpv_tbl);
917
918 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
919 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
920 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
921 raise OKC_API.G_EXCEPTION_ERROR;
922 End If;
923
924 OKC_UTIL.call_user_hook
925 (
926 x_return_status => x_return_status,
927 p_package_name => g_pkg_name,
928 p_procedure_name => l_api_name,
929 p_before_after => 'A'
930 );
931
932 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
933 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
934 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
935 raise OKC_API.G_EXCEPTION_ERROR;
936 End If;
937
938 x_return_status := l_return_status;
939 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
940 EXCEPTION
941 WHEN OKC_API.G_EXCEPTION_ERROR THEN
942 x_return_status := OKC_API.HANDLE_EXCEPTIONS
943 (
944 l_api_name,
945 G_PKG_NAME,
946 'OKC_API.G_RET_STS_ERROR',
947 x_msg_count,
948 x_msg_data,
949 '_PUB'
950 );
951 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
952 x_return_status := OKC_API.HANDLE_EXCEPTIONS
953 (
954 l_api_name,
955 G_PKG_NAME,
956 'OKC_API.G_RET_STS_UNEXP_ERROR',
957 x_msg_count,
958 x_msg_data,
959 '_PUB'
960 );
961 WHEN OTHERS THEN
962 x_return_status := OKC_API.HANDLE_EXCEPTIONS
963 (
964 l_api_name,
965 G_PKG_NAME,
966 'OTHERS',
967 x_msg_count,
968 x_msg_data,
969 '_PUB'
970 );
971 END lock_row;
972 ---------------------------------------------------------------------------
973 -- PROCEDURE update_row
974 ---------------------------------------------------------------------------
975 ---------------------------------------
976 -- update_row for:OKS_TEMPLATE_SET_V --
977 ---------------------------------------
978 PROCEDURE update_row(
979 p_api_version IN NUMBER,
980 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
981 x_return_status OUT NOCOPY VARCHAR2,
982 x_msg_count OUT NOCOPY NUMBER,
983 x_msg_data OUT NOCOPY VARCHAR2,
984 p_rtmpv_rec IN rtmpv_rec_type,
985 x_rtmpv_rec OUT NOCOPY rtmpv_rec_type) IS
986
987 l_api_version CONSTANT NUMBER := 1;
988 l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
989 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
990 Begin
991 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
992 G_PKG_NAME,
993 p_init_msg_list,
994 l_api_version,
995 p_api_version,
996 '_PUB',
997 x_return_status);
998 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
999 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1000 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1001 RAISE OKC_API.G_EXCEPTION_ERROR;
1002 END IF;
1003
1004 OKC_UTIL.call_user_hook
1005 (
1006 x_return_status => x_return_status,
1007 p_package_name => g_pkg_name,
1008 p_procedure_name => l_api_name,
1009 p_before_after => 'B'
1010 );
1011 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
1012 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1013 ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1014 raise OKC_API.G_EXCEPTION_ERROR;
1015 End If;
1016 OKS_REPORT_TEMPLATES_PVT.update_row(p_api_version => l_api_version,
1017 p_init_msg_list => p_init_msg_list,
1018 x_return_status => x_return_status,
1019 x_msg_count => x_msg_count,
1020 x_msg_data => x_msg_data,
1021 p_rtmpv_rec => p_rtmpv_rec,
1022 x_rtmpv_rec => x_rtmpv_rec);
1023
1024
1025
1026 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1027 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1028 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1029 raise OKC_API.G_EXCEPTION_ERROR;
1030 End If;
1031
1032 OKC_UTIL.call_user_hook
1033 (
1034 x_return_status => x_return_status,
1035 p_package_name => g_pkg_name,
1036 p_procedure_name => l_api_name,
1037 p_before_after => 'A'
1038 );
1039
1040 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1041 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1042 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1043 raise OKC_API.G_EXCEPTION_ERROR;
1044 End If;
1045
1046 x_return_status := l_return_status;
1047 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1048 EXCEPTION
1049 WHEN OKC_API.G_EXCEPTION_ERROR THEN
1050 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1051 (
1052 l_api_name,
1053 G_PKG_NAME,
1054 'OKC_API.G_RET_STS_ERROR',
1055 x_msg_count,
1056 x_msg_data,
1057 '_PUB'
1058 );
1059 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1060 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1061 (
1062 l_api_name,
1063 G_PKG_NAME,
1064 'OKC_API.G_RET_STS_UNEXP_ERROR',
1065 x_msg_count,
1066 x_msg_data,
1067 '_PUB'
1068 );
1069 WHEN OTHERS THEN
1070 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1071 (
1072 l_api_name,
1073 G_PKG_NAME,
1074 'OTHERS',
1075 x_msg_count,
1076 x_msg_data,
1077 '_PUB'
1078 );
1079 END update_row;
1080 ----------------------------------------
1081 -- PL/SQL TBL update_row for:tmsv_tbl --
1082 ----------------------------------------
1083 PROCEDURE update_row(
1084 p_api_version IN NUMBER,
1085 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1086 x_return_status OUT NOCOPY VARCHAR2,
1087 x_msg_count OUT NOCOPY NUMBER,
1088 x_msg_data OUT NOCOPY VARCHAR2,
1089 p_rtmpv_tbl IN rtmpv_tbl_type,
1090 x_rtmpv_tbl OUT NOCOPY rtmpv_tbl_type,
1091 px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
1092
1093 l_api_version CONSTANT NUMBER := 1;
1094 l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
1095 l_return_status VARCHAR2(1);
1096 BEGIN
1097 OKC_API.init_msg_list(p_init_msg_list);
1098 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1099 G_PKG_NAME,
1100 p_init_msg_list,
1101 l_api_version,
1102 p_api_version,
1103 '_PUB',
1104 x_return_status);
1105 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1106 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1107 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1108 RAISE OKC_API.G_EXCEPTION_ERROR;
1109 END IF;
1110
1111 OKC_UTIL.call_user_hook
1112 (
1113 x_return_status => x_return_status,
1114 p_package_name => g_pkg_name,
1115 p_procedure_name => l_api_name,
1116 p_before_after => 'B'
1117 );
1118 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
1119 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1120 ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1121 raise OKC_API.G_EXCEPTION_ERROR;
1122 End If;
1123 OKS_REPORT_TEMPLATES_PVT.update_row(p_api_version => l_api_version,
1124 p_init_msg_list => p_init_msg_list,
1125 x_return_status => x_return_status,
1126 x_msg_count => x_msg_count,
1127 x_msg_data => x_msg_data,
1128 p_rtmpv_tbl => p_rtmpv_tbl,
1129 x_rtmpv_tbl => x_rtmpv_tbl,
1130 px_error_tbl => px_error_tbl);
1131
1132
1133 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1134 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1135 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1136 raise OKC_API.G_EXCEPTION_ERROR;
1137 End If;
1138
1139 OKC_UTIL.call_user_hook
1140 (
1141 x_return_status => x_return_status,
1142 p_package_name => g_pkg_name,
1143 p_procedure_name => l_api_name,
1144 p_before_after => 'A'
1145 );
1146
1147 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1148 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1149 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1150 raise OKC_API.G_EXCEPTION_ERROR;
1151 End If;
1152
1153 x_return_status := l_return_status;
1154 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1155 EXCEPTION
1156 WHEN OKC_API.G_EXCEPTION_ERROR THEN
1157 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1158 (
1159 l_api_name,
1160 G_PKG_NAME,
1161 'OKC_API.G_RET_STS_ERROR',
1162 x_msg_count,
1163 x_msg_data,
1164 '_PUB'
1165 );
1166 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1167 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1168 (
1169 l_api_name,
1170 G_PKG_NAME,
1171 'OKC_API.G_RET_STS_UNEXP_ERROR',
1172 x_msg_count,
1173 x_msg_data,
1174 '_PUB'
1175 );
1176 WHEN OTHERS THEN
1177 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1178 (
1179 l_api_name,
1180 G_PKG_NAME,
1181 'OTHERS',
1182 x_msg_count,
1183 x_msg_data,
1184 '_PUB'
1185 );
1186 END update_row;
1187
1188 ----------------------------------------
1189 -- PL/SQL TBL update_row for:TMSV_TBL --
1190 ----------------------------------------
1191 PROCEDURE update_row(
1192 p_api_version IN NUMBER,
1193 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1194 x_return_status OUT NOCOPY VARCHAR2,
1195 x_msg_count OUT NOCOPY NUMBER,
1196 x_msg_data OUT NOCOPY VARCHAR2,
1197 p_rtmpv_tbl IN rtmpv_tbl_type,
1198 x_rtmpv_tbl OUT NOCOPY rtmpv_tbl_type) IS
1199
1200 l_api_version CONSTANT NUMBER := 1;
1201 l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
1202 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1203 BEGIN
1204 OKC_API.init_msg_list(p_init_msg_list);
1205 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1206 G_PKG_NAME,
1207 p_init_msg_list,
1208 l_api_version,
1209 p_api_version,
1210 '_PUB',
1211 x_return_status);
1212 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1213 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1214 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1215 RAISE OKC_API.G_EXCEPTION_ERROR;
1216 END IF;
1217
1218 OKC_UTIL.call_user_hook
1219 (
1220 x_return_status => x_return_status,
1221 p_package_name => g_pkg_name,
1222 p_procedure_name => l_api_name,
1223 p_before_after => 'B'
1224 );
1225 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
1226 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1227 ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1228 raise OKC_API.G_EXCEPTION_ERROR;
1229 End If;
1230 OKS_REPORT_TEMPLATES_PVT.update_row(p_api_version => l_api_version,
1231 p_init_msg_list => p_init_msg_list,
1232 x_return_status => x_return_status,
1233 x_msg_count => x_msg_count,
1234 x_msg_data => x_msg_data,
1235 p_rtmpv_tbl => p_rtmpv_tbl,
1236 x_rtmpv_tbl => x_rtmpv_tbl);
1237
1238
1239 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1240 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1241 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1242 raise OKC_API.G_EXCEPTION_ERROR;
1243 End If;
1244
1245 OKC_UTIL.call_user_hook
1246 (
1247 x_return_status => x_return_status,
1248 p_package_name => g_pkg_name,
1249 p_procedure_name => l_api_name,
1250 p_before_after => 'A'
1251 );
1252
1253 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1254 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1255 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1256 raise OKC_API.G_EXCEPTION_ERROR;
1257 End If;
1258
1259 x_return_status := l_return_status;
1260 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1261 EXCEPTION
1262 WHEN OKC_API.G_EXCEPTION_ERROR THEN
1263 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1264 (
1265 l_api_name,
1266 G_PKG_NAME,
1267 'OKC_API.G_RET_STS_ERROR',
1268 x_msg_count,
1269 x_msg_data,
1270 '_PUB'
1271 );
1272 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1273 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1274 (
1275 l_api_name,
1276 G_PKG_NAME,
1277 'OKC_API.G_RET_STS_UNEXP_ERROR',
1278 x_msg_count,
1279 x_msg_data,
1280 '_PUB'
1281 );
1282 WHEN OTHERS THEN
1283 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1284 (
1285 l_api_name,
1286 G_PKG_NAME,
1287 'OTHERS',
1288 x_msg_count,
1289 x_msg_data,
1290 '_PUB'
1291 );
1292 END update_row;
1293
1294 ---------------------------------------------------------------------------
1295 -- PROCEDURE delete_row
1296 ---------------------------------------------------------------------------
1297 ---------------------------------------
1298 -- delete_row for:OKS_TEMPLATE_SET_V --
1299 ---------------------------------------
1300 PROCEDURE delete_row(
1301 p_api_version IN NUMBER,
1302 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1303 x_return_status OUT NOCOPY VARCHAR2,
1304 x_msg_count OUT NOCOPY NUMBER,
1305 x_msg_data OUT NOCOPY VARCHAR2,
1306 p_rtmpv_rec IN rtmpv_rec_type) IS
1307
1308 l_api_version CONSTANT NUMBER := 1;
1309 l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
1310 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1311 BEGIN
1312 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1313 G_PKG_NAME,
1314 p_init_msg_list,
1315 l_api_version,
1316 p_api_version,
1317 '_PUB',
1318 x_return_status);
1319 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1320 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1321 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1322 RAISE OKC_API.G_EXCEPTION_ERROR;
1323 END IF;
1324
1325 OKC_UTIL.call_user_hook
1326 (
1327 x_return_status => x_return_status,
1328 p_package_name => g_pkg_name,
1329 p_procedure_name => l_api_name,
1330 p_before_after => 'B'
1331 );
1332 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
1333 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1334 ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1335 raise OKC_API.G_EXCEPTION_ERROR;
1336 End If;
1337 OKS_REPORT_TEMPLATES_PVT.delete_row(p_api_version => l_api_version,
1338 p_init_msg_list => p_init_msg_list,
1339 x_return_status => x_return_status,
1340 x_msg_count => x_msg_count,
1341 x_msg_data => x_msg_data,
1342 p_rtmpv_rec => p_rtmpv_rec);
1343
1344
1345
1346 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1347 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1348 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1349 raise OKC_API.G_EXCEPTION_ERROR;
1350 End If;
1351
1352 OKC_UTIL.call_user_hook
1353 (
1354 x_return_status => x_return_status,
1355 p_package_name => g_pkg_name,
1356 p_procedure_name => l_api_name,
1357 p_before_after => 'A'
1358 );
1359
1360 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1361 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1362 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1363 raise OKC_API.G_EXCEPTION_ERROR;
1364 End If;
1365 x_return_status := l_return_status;
1366 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1367 EXCEPTION
1368 WHEN OKC_API.G_EXCEPTION_ERROR THEN
1369 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1370 (
1371 l_api_name,
1372 G_PKG_NAME,
1373 'OKC_API.G_RET_STS_ERROR',
1374 x_msg_count,
1375 x_msg_data,
1376 '_PUB'
1377 );
1378 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1379 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1380 (
1381 l_api_name,
1382 G_PKG_NAME,
1383 'OKC_API.G_RET_STS_UNEXP_ERROR',
1384 x_msg_count,
1385 x_msg_data,
1386 '_PUB'
1387 );
1388 WHEN OTHERS THEN
1389 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1390 (
1391 l_api_name,
1392 G_PKG_NAME,
1393 'OTHERS',
1394 x_msg_count,
1395 x_msg_data,
1396 '_PUB'
1397 );
1398 END delete_row;
1399 --------------------------------------------------
1400 -- PL/SQL TBL delete_row for:OKS_TEMPLATE_SET_V --
1401 --------------------------------------------------
1402 PROCEDURE delete_row(
1403 p_api_version IN NUMBER,
1404 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1405 x_return_status OUT NOCOPY VARCHAR2,
1406 x_msg_count OUT NOCOPY NUMBER,
1407 x_msg_data OUT NOCOPY VARCHAR2,
1408 p_rtmpv_tbl IN rtmpv_tbl_type,
1409 px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
1410
1411 l_api_version CONSTANT NUMBER := 1;
1412 l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
1413 l_return_status VARCHAR2(1);
1414 BEGIN
1415 OKC_API.init_msg_list(p_init_msg_list);
1416 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1417 G_PKG_NAME,
1418 p_init_msg_list,
1419 l_api_version,
1420 p_api_version,
1421 '_PUB',
1422 x_return_status);
1423 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1424 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1425 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1426 RAISE OKC_API.G_EXCEPTION_ERROR;
1427 END IF;
1428
1429 OKC_UTIL.call_user_hook
1430 (
1431 x_return_status => x_return_status,
1432 p_package_name => g_pkg_name,
1433 p_procedure_name => l_api_name,
1434 p_before_after => 'B'
1435 );
1436 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
1437 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1438 ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1439 raise OKC_API.G_EXCEPTION_ERROR;
1440 End If;
1441 OKS_REPORT_TEMPLATES_PVT.delete_row(p_api_version => l_api_version,
1442 p_init_msg_list => p_init_msg_list,
1443 x_return_status => x_return_status,
1444 x_msg_count => x_msg_count,
1445 x_msg_data => x_msg_data,
1446 p_rtmpv_tbl => p_rtmpv_tbl,
1447 px_error_tbl => px_error_tbl);
1448
1449
1450 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1451 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1452 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1453 raise OKC_API.G_EXCEPTION_ERROR;
1454 End If;
1455
1456 OKC_UTIL.call_user_hook
1457 (
1458 x_return_status => x_return_status,
1459 p_package_name => g_pkg_name,
1460 p_procedure_name => l_api_name,
1461 p_before_after => 'A'
1462 );
1463
1464 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1465 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1466 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1467 raise OKC_API.G_EXCEPTION_ERROR;
1468 End If;
1469
1470 x_return_status := l_return_status;
1471 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1472 EXCEPTION
1473 WHEN OKC_API.G_EXCEPTION_ERROR THEN
1474 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1475 (
1476 l_api_name,
1477 G_PKG_NAME,
1478 'OKC_API.G_RET_STS_ERROR',
1479 x_msg_count,
1480 x_msg_data,
1481 '_PUB'
1482 );
1483 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1484 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1485 (
1486 l_api_name,
1487 G_PKG_NAME,
1488 'OKC_API.G_RET_STS_UNEXP_ERROR',
1489 x_msg_count,
1490 x_msg_data,
1491 '_PUB'
1492 );
1493 WHEN OTHERS THEN
1494 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1495 (
1496 l_api_name,
1497 G_PKG_NAME,
1498 'OTHERS',
1499 x_msg_count,
1500 x_msg_data,
1501 '_PUB'
1502 );
1503 END delete_row;
1504
1505 --------------------------------------------------
1506 -- PL/SQL TBL delete_row for:OKS_TEMPLATE_SET_V --
1507 --------------------------------------------------
1508 PROCEDURE delete_row(
1509 p_api_version IN NUMBER,
1510 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1511 x_return_status OUT NOCOPY VARCHAR2,
1512 x_msg_count OUT NOCOPY NUMBER,
1513 x_msg_data OUT NOCOPY VARCHAR2,
1514 p_rtmpv_tbl IN rtmpv_tbl_type) IS
1515
1516 l_api_version CONSTANT NUMBER := 1;
1517 l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
1518 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1519 BEGIN
1520 OKC_API.init_msg_list(p_init_msg_list);
1521 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1522 G_PKG_NAME,
1523 p_init_msg_list,
1524 l_api_version,
1525 p_api_version,
1526 '_PUB',
1527 x_return_status);
1528 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1529 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1530 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1531 RAISE OKC_API.G_EXCEPTION_ERROR;
1532 END IF;
1533
1534 OKC_UTIL.call_user_hook
1535 (
1536 x_return_status => x_return_status,
1537 p_package_name => g_pkg_name,
1538 p_procedure_name => l_api_name,
1539 p_before_after => 'B'
1540 );
1541 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
1542 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1543 ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1544 raise OKC_API.G_EXCEPTION_ERROR;
1545 End If;
1546 OKS_REPORT_TEMPLATES_PVT.delete_row(p_api_version => l_api_version,
1547 p_init_msg_list => p_init_msg_list,
1548 x_return_status => x_return_status,
1549 x_msg_count => x_msg_count,
1550 x_msg_data => x_msg_data,
1551 p_rtmpv_tbl => p_rtmpv_tbl);
1552
1553
1554
1555 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1556 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1557 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1558 raise OKC_API.G_EXCEPTION_ERROR;
1559 End If;
1560
1561 OKC_UTIL.call_user_hook
1562 (
1563 x_return_status => x_return_status,
1564 p_package_name => g_pkg_name,
1565 p_procedure_name => l_api_name,
1566 p_before_after => 'A'
1567 );
1568
1569 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1570 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1571 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1572 raise OKC_API.G_EXCEPTION_ERROR;
1573 End If;
1574
1575 x_return_status := l_return_status;
1576 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1577 EXCEPTION
1578 WHEN OKC_API.G_EXCEPTION_ERROR THEN
1579 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1580 (
1581 l_api_name,
1582 G_PKG_NAME,
1583 'OKC_API.G_RET_STS_ERROR',
1584 x_msg_count,
1585 x_msg_data,
1586 '_PUB'
1587 );
1588 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1589 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1590 (
1591 l_api_name,
1592 G_PKG_NAME,
1593 'OKC_API.G_RET_STS_UNEXP_ERROR',
1594 x_msg_count,
1595 x_msg_data,
1596 '_PUB'
1597 );
1598 WHEN OTHERS THEN
1599 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1600 (
1601 l_api_name,
1602 G_PKG_NAME,
1603 'OTHERS',
1604 x_msg_count,
1605 x_msg_data,
1606 '_PUB'
1607 );
1608 END delete_row;
1609
1610 END OKS_REPORT_TEMPLATES_PUB;