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