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