[Home] [Help]
PACKAGE BODY: APPS.OKL_INDICES_PVT
Source
1 PACKAGE BODY OKL_INDICES_PVT AS
2 /* $Header: OKLCIDXB.pls 115.2 2002/02/18 20:10:28 pkm ship $ */
3
4
5 PROCEDURE create_indices(
6 p_api_version IN NUMBER
7 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
8 ,x_return_status OUT NOCOPY VARCHAR2
9 ,x_msg_count OUT NOCOPY NUMBER
10 ,x_msg_data OUT NOCOPY VARCHAR2
11 ,p_idxv_rec IN idxv_rec_type
12 ,p_ivev_tbl IN ivev_tbl_type
13 ,x_idxv_rec OUT NOCOPY idxv_rec_type
14 ,x_ivev_tbl OUT NOCOPY ivev_tbl_type
15 ) IS
16
17 i NUMBER;
18 l_idxv_rec idxv_rec_type;
19 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
20 l_ivev_tbl ivev_tbl_type := p_ivev_tbl;
21
22 BEGIN
23 -- Populate TRX CONTRACTS
24 create_indices(
25 p_api_version => p_api_version
26 ,p_init_msg_list => p_init_msg_list
27 ,x_return_status => x_return_status
28 ,x_msg_count => x_msg_count
29 ,x_msg_data => x_msg_data
30 ,p_idxv_rec => p_idxv_rec
31 ,x_idxv_rec => x_idxv_rec);
32 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
33 RAISE G_EXCEPTION_HALT_VALIDATION;
34 ELSE
35 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
36 l_return_status := x_return_status;
37 END IF;
38 END IF;
39 -- populate the foreign key for the detail
40 IF (l_ivev_tbl.COUNT > 0) THEN
41 i:= l_ivev_tbl.FIRST;
42 LOOP
43 l_ivev_tbl(i).idx_id := x_idxv_rec.id;
44 EXIT WHEN(i = l_ivev_tbl.LAST);
45 i := l_ivev_tbl.NEXT(i);
46 END LOOP;
47 END IF;
48
49 -- populate the detail
50 create_index_values(
51 p_api_version => p_api_version
52 ,p_init_msg_list => p_init_msg_list
53 ,x_return_status => x_return_status
54 ,x_msg_count => x_msg_count
55 ,x_msg_data => x_msg_data
56 ,p_ivev_tbl => l_ivev_tbl
57 ,x_ivev_tbl => x_ivev_tbl);
58 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
59 RAISE G_EXCEPTION_HALT_VALIDATION;
60 ELSE
61 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
62 l_return_status := x_return_status;
63 END IF;
64 END IF;
65
66 EXCEPTION
67 WHEN G_EXCEPTION_HALT_VALIDATION THEN
68 NULL;
69
70 WHEN OTHERS THEN
71 OKC_API.SET_MESSAGE(p_app_name => g_app_name
72 ,p_msg_name => g_unexpected_error
73 ,p_token1 => g_sqlcode_token
74 ,p_token1_value => sqlcode
75 ,p_token2 => g_sqlerrm_token
76 ,p_token2_value => sqlerrm);
77 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
78 END create_indices;
79
80 PROCEDURE create_indices(
81 p_api_version IN NUMBER
82 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
83 ,x_return_status OUT NOCOPY VARCHAR2
84 ,x_msg_count OUT NOCOPY NUMBER
85 ,x_msg_data OUT NOCOPY VARCHAR2
86 ,p_idxv_rec IN idxv_rec_type
87 ,x_idxv_rec OUT NOCOPY idxv_rec_type) IS
88 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
89 BEGIN
90 okl_idx_pvt.insert_row(
91 p_api_version => p_api_version
92 ,p_init_msg_list => p_init_msg_list
93 ,x_return_status => x_return_status
94 ,x_msg_count => x_msg_count
95 ,x_msg_data => x_msg_data
96 ,p_idxv_rec => p_idxv_rec
97 ,x_idxv_rec => x_idxv_rec
98 );
99
100 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
101 RAISE G_EXCEPTION_HALT_VALIDATION;
102 ELSE
103 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
104 l_return_status := x_return_status;
105 END IF;
106 END IF;
107 -- Custom code if any
108
109 EXCEPTION
110 WHEN G_EXCEPTION_HALT_VALIDATION THEN
111 NULL;
112
113 WHEN OTHERS THEN
114 OKC_API.SET_MESSAGE(p_app_name => g_app_name
115 ,p_msg_name => g_unexpected_error
116 ,p_token1 => g_sqlcode_token
117 ,p_token1_value => sqlcode
118 ,p_token2 => g_sqlerrm_token
119 ,p_token2_value => sqlerrm);
120 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
121 END create_indices;
122 --null;
123 PROCEDURE create_indices(
124 p_api_version IN NUMBER
125 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
126 ,x_return_status OUT NOCOPY VARCHAR2
127 ,x_msg_count OUT NOCOPY NUMBER
128 ,x_msg_data OUT NOCOPY VARCHAR2
129 ,p_idxv_tbl IN idxv_tbl_type
130 ,x_idxv_tbl OUT NOCOPY idxv_tbl_type) IS
131 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
132
133 BEGIN
134 okl_idx_pvt.insert_row(
135 p_api_version => p_api_version
136 ,p_init_msg_list => p_init_msg_list
137 ,x_return_status => x_return_status
138 ,x_msg_count => x_msg_count
139 ,x_msg_data => x_msg_data
140 ,p_idxv_tbl => p_idxv_tbl
141 ,x_idxv_tbl => x_idxv_tbl
142 );
143 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
144 RAISE G_EXCEPTION_HALT_VALIDATION;
145 ELSE
146 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
147 l_return_status := x_return_status;
148 END IF;
149 END IF;
150 -- Custom code if any
151
152 EXCEPTION
153 WHEN G_EXCEPTION_HALT_VALIDATION THEN
154 NULL;
155
156 WHEN OTHERS THEN
157 OKC_API.SET_MESSAGE(p_app_name => g_app_name
158 ,p_msg_name => g_unexpected_error
159 ,p_token1 => g_sqlcode_token
160 ,p_token1_value => sqlcode
161 ,p_token2 => g_sqlerrm_token
162 ,p_token2_value => sqlerrm);
163 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
164
165 END create_indices;
166
167 -- Object type procedure for update
168 PROCEDURE update_indices(
169 p_api_version IN NUMBER,
170 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
171 x_return_status OUT NOCOPY VARCHAR2,
172 x_msg_count OUT NOCOPY NUMBER,
173 x_msg_data OUT NOCOPY VARCHAR2,
174 p_idxv_rec IN idxv_rec_type,
175 p_ivev_tbl IN ivev_tbl_type,
176 x_idxv_rec OUT NOCOPY idxv_rec_type,
177 x_ivev_tbl OUT NOCOPY ivev_tbl_type) IS
178 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
179 BEGIN
180 -- Update the master
181 update_indices(
182 p_api_version => p_api_version
183 ,p_init_msg_list => p_init_msg_list
184 ,x_return_status => x_return_status
185 ,x_msg_count => x_msg_count
186 ,x_msg_data => x_msg_data
187 ,p_idxv_rec => p_idxv_rec
188 ,x_idxv_rec => x_idxv_rec
189 );
190 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
191 RAISE G_EXCEPTION_HALT_VALIDATION;
192 ELSE
193 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
194 l_return_status := x_return_status;
195 END IF;
196 END IF;
197
198 -- Update the detail
199 update_index_values(
200 p_api_version => p_api_version
201 ,p_init_msg_list => p_init_msg_list
202 ,x_return_status => x_return_status
203 ,x_msg_count => x_msg_count
204 ,x_msg_data => x_msg_data
205 ,p_ivev_tbl => p_ivev_tbl
206 ,x_ivev_tbl => x_ivev_tbl
207 );
208
209 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
210 RAISE G_EXCEPTION_HALT_VALIDATION;
211 ELSE
212 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
213 l_return_status := x_return_status;
214 END IF;
215 END IF;
216
217 EXCEPTION
218 WHEN G_EXCEPTION_HALT_VALIDATION THEN
219 NULL;
220
221 WHEN OTHERS THEN
222 OKC_API.SET_MESSAGE(p_app_name => g_app_name
223 ,p_msg_name => g_unexpected_error
224 ,p_token1 => g_sqlcode_token
225 ,p_token1_value => sqlcode
226 ,p_token2 => g_sqlerrm_token
227 ,p_token2_value => sqlerrm);
228 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
229
230 END update_indices;
231
232 PROCEDURE validate_indices(
233 p_api_version IN NUMBER
234 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
235 ,x_return_status OUT NOCOPY VARCHAR2
236 ,x_msg_count OUT NOCOPY NUMBER
237 ,x_msg_data OUT NOCOPY VARCHAR2
238 ,p_idxv_rec IN idxv_rec_type
239 ,p_ivev_tbl IN ivev_tbl_type) IS
240
241 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
242 BEGIN
243 -- Validate the master
244 validate_indices(
245 p_api_version => p_api_version
246 ,p_init_msg_list => p_init_msg_list
247 ,x_return_status => x_return_status
248 ,x_msg_count => x_msg_count
249 ,x_msg_data => x_msg_data
250 ,p_idxv_rec => p_idxv_rec
251 );
252
253 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
254 RAISE G_EXCEPTION_HALT_VALIDATION;
255 ELSE
256 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
257 l_return_status := x_return_status;
258 END IF;
259 END IF;
260
261 -- Validate the detail
262 validate_index_values(
263 p_api_version => p_api_version
264 ,p_init_msg_list => p_init_msg_list
265 ,x_return_status => x_return_status
266 ,x_msg_count => x_msg_count
267 ,x_msg_data => x_msg_data
268 ,p_ivev_tbl => p_ivev_tbl
269 );
270
271 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
272 RAISE G_EXCEPTION_HALT_VALIDATION;
273 ELSE
274 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
275 l_return_status := x_return_status;
276 END IF;
277 END IF;
278
279 EXCEPTION
280 WHEN G_EXCEPTION_HALT_VALIDATION THEN
281 NULL;
282 WHEN OTHERS THEN
283 OKC_API.SET_MESSAGE(p_app_name => g_app_name
284 ,p_msg_name => g_unexpected_error
285 ,p_token1 => g_sqlcode_token
286 ,p_token1_value => sqlcode
287 ,p_token2 => g_sqlerrm_token
288 ,p_token2_value => sqlerrm);
289 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
290
291 END validate_indices;
292
293 PROCEDURE lock_indices(
294 p_api_version IN NUMBER
295 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
296 ,x_return_status OUT NOCOPY VARCHAR2
297 ,x_msg_count OUT NOCOPY NUMBER
298 ,x_msg_data OUT NOCOPY VARCHAR2
299 ,p_idxv_rec IN idxv_rec_type) IS
300 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
301
302 BEGIN
303 okl_idx_pvt.lock_row(
304 p_api_version => p_api_version
305 ,p_init_msg_list => p_init_msg_list
306 ,x_return_status => x_return_status
307 ,x_msg_count => x_msg_count
308 ,x_msg_data => x_msg_data
309 ,p_idxv_rec => p_idxv_rec
310 );
311 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
312 RAISE G_EXCEPTION_HALT_VALIDATION;
313 ELSE
314 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
315 l_return_status := x_return_status;
316 END IF;
317 END IF;
318
319 EXCEPTION
320 WHEN G_EXCEPTION_HALT_VALIDATION THEN
321 NULL;
322 WHEN OTHERS THEN
323 OKC_API.SET_MESSAGE(p_app_name => g_app_name
324 ,p_msg_name => g_unexpected_error
325 ,p_token1 => g_sqlcode_token
326 ,p_token1_value => sqlcode
327 ,p_token2 => g_sqlerrm_token
328 ,p_token2_value => sqlerrm);
329 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
330 END lock_indices;
331
332 PROCEDURE lock_indices(
333 p_api_version IN NUMBER
334 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
335 ,x_return_status OUT NOCOPY VARCHAR2
336 ,x_msg_count OUT NOCOPY NUMBER
337 ,x_msg_data OUT NOCOPY VARCHAR2
338 ,p_idxv_tbl IN idxv_tbl_type) IS
339 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
340
341 BEGIN
342 okl_idx_pvt.lock_row(
343 p_api_version => p_api_version
344 ,p_init_msg_list => p_init_msg_list
345 ,x_return_status => x_return_status
346 ,x_msg_count => x_msg_count
347 ,x_msg_data => x_msg_data
348 ,p_idxv_tbl => p_idxv_tbl
349 );
350 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
351 RAISE G_EXCEPTION_HALT_VALIDATION;
352 ELSE
353 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
354 l_return_status := x_return_status;
355 END IF;
356 END IF;
357
358 EXCEPTION
359 WHEN G_EXCEPTION_HALT_VALIDATION THEN
360 NULL;
361 WHEN OTHERS THEN
362 OKC_API.SET_MESSAGE(p_app_name => g_app_name
363 ,p_msg_name => g_unexpected_error
364 ,p_token1 => g_sqlcode_token
365 ,p_token1_value => sqlcode
366 ,p_token2 => g_sqlerrm_token
367 ,p_token2_value => sqlerrm);
368 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
369 END lock_indices;
370
371 PROCEDURE update_indices(
372 p_api_version IN NUMBER
373 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
374 ,x_return_status OUT NOCOPY VARCHAR2
375 ,x_msg_count OUT NOCOPY NUMBER
376 ,x_msg_data OUT NOCOPY VARCHAR2
377 ,p_idxv_rec IN idxv_rec_type
378 ,x_idxv_rec OUT NOCOPY idxv_rec_type) IS
379 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
380
381 BEGIN
382 okl_idx_pvt.update_row(
383 p_api_version => p_api_version
384 ,p_init_msg_list => p_init_msg_list
385 ,x_return_status => x_return_status
386 ,x_msg_count => x_msg_count
387 ,x_msg_data => x_msg_data
388 ,p_idxv_rec => p_idxv_rec
389 ,x_idxv_rec => x_idxv_rec
390 );
391 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
392 RAISE G_EXCEPTION_HALT_VALIDATION;
393 ELSE
394 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
395 l_return_status := x_return_status;
396 END IF;
397 END IF;
398 EXCEPTION
399 WHEN G_EXCEPTION_HALT_VALIDATION THEN
400 NULL;
401 WHEN OTHERS THEN
402 OKC_API.SET_MESSAGE(p_app_name => g_app_name
403 ,p_msg_name => g_unexpected_error
404 ,p_token1 => g_sqlcode_token
405 ,p_token1_value => sqlcode
406 ,p_token2 => g_sqlerrm_token
407 ,p_token2_value => sqlerrm);
408 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
409 END update_indices;
410
411 PROCEDURE update_indices(
412 p_api_version IN NUMBER
413 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
414 ,x_return_status OUT NOCOPY VARCHAR2
415 ,x_msg_count OUT NOCOPY NUMBER
416 ,x_msg_data OUT NOCOPY VARCHAR2
417 ,p_idxv_tbl IN idxv_tbl_type
418 ,x_idxv_tbl OUT NOCOPY idxv_tbl_type) IS
419 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
420 BEGIN
421 okl_idx_pvt.update_row(
422 p_api_version => p_api_version
423 ,p_init_msg_list => p_init_msg_list
424 ,x_return_status => x_return_status
425 ,x_msg_count => x_msg_count
426 ,x_msg_data => x_msg_data
427 ,p_idxv_tbl => p_idxv_tbl
428 ,x_idxv_tbl => x_idxv_tbl
429 );
430 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
431 RAISE G_EXCEPTION_HALT_VALIDATION;
432 ELSE
433 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
434 l_return_status := x_return_status;
435 END IF;
436 END IF;
437 EXCEPTION
438 WHEN G_EXCEPTION_HALT_VALIDATION THEN
439 NULL;
440 WHEN OTHERS THEN
441 OKC_API.SET_MESSAGE(p_app_name => g_app_name
442 ,p_msg_name => g_unexpected_error
443 ,p_token1 => g_sqlcode_token
444 ,p_token1_value => sqlcode
445 ,p_token2 => g_sqlerrm_token
446 ,p_token2_value => sqlerrm);
447 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
448 END update_indices;
449
450 --Put custom code for cascade delete by developer
451 PROCEDURE delete_indices(
452 p_api_version IN NUMBER
453 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
454 ,x_return_status OUT NOCOPY VARCHAR2
455 ,x_msg_count OUT NOCOPY NUMBER
456 ,x_msg_data OUT NOCOPY VARCHAR2
457 ,p_idxv_rec IN idxv_rec_type) IS
458 i NUMBER :=0;
459 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
460 l_ivev_tbl ivev_tbl_type;
461
462 CURSOR ive_csr IS
463 SELECT ive.id
464 FROM OKL_INDEX_VALUES ive
465 WHERE ive.idx_id = p_idxv_rec.id;
466 BEGIN
467 FOR ive_rec IN ive_csr
468 LOOP
469 i := i + 1;
470 l_ivev_tbl(i).id := ive_rec.id;
471 END LOOP;
472 IF l_ivev_tbl.COUNT > 0 THEN
473 delete_index_values(
474 p_api_version => p_api_version
475 ,p_init_msg_list => p_init_msg_list
476 ,x_return_status => x_return_status
477 ,x_msg_count => x_msg_count
478 ,x_msg_data => x_msg_data
479 ,p_ivev_tbl => l_ivev_tbl
480 );
481
482 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
483 RAISE G_EXCEPTION_HALT_VALIDATION;
484 ELSE
485 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
486 l_return_status := x_return_status;
487 END IF;
488 END IF;
489 END IF;
490 --Delete the Master
491 okl_idx_pvt.delete_row(
492 p_api_version => p_api_version
493 ,p_init_msg_list => p_init_msg_list
494 ,x_return_status => x_return_status
495 ,x_msg_count => x_msg_count
496 ,x_msg_data => x_msg_data
497 ,p_idxv_rec => p_idxv_rec
498 );
499
500 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
501 RAISE G_EXCEPTION_HALT_VALIDATION;
502 ELSE
503 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
504 l_return_status := x_return_status;
505 END IF;
506 END IF;
507 EXCEPTION
508 WHEN G_EXCEPTION_HALT_VALIDATION THEN
509 NULL;
510 WHEN OTHERS THEN
511 OKC_API.SET_MESSAGE(p_app_name => g_app_name
512 ,p_msg_name => g_unexpected_error
513 ,p_token1 => g_sqlcode_token
514 ,p_token1_value => sqlcode
515 ,p_token2 => g_sqlerrm_token
516 ,p_token2_value => sqlerrm);
517
518 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
519 END delete_indices;
520
521 PROCEDURE delete_indices(
522 p_api_version IN NUMBER
523 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
524 ,x_return_status OUT NOCOPY VARCHAR2
525 ,x_msg_count OUT NOCOPY NUMBER
526 ,x_msg_data OUT NOCOPY VARCHAR2
527 ,p_idxv_tbl IN idxv_tbl_type) IS
528 i NUMBER :=0;
529 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
530 BEGIN
531 --Initialize the return status
532 x_return_status := OKC_API.G_RET_STS_SUCCESS;
533 IF (p_idxv_tbl.COUNT > 0) THEN
534 i := p_idxv_tbl.FIRST;
535 LOOP
536 delete_indices(
537 p_api_version => p_api_version
538 ,p_init_msg_list => p_init_msg_list
539 ,x_return_status => x_return_status
540 ,x_msg_count => x_msg_count
541 ,x_msg_data => x_msg_data
542 ,p_idxv_rec => p_idxv_tbl(i)
543 );
544
545 EXIT WHEN (i = p_idxv_tbl.LAST);
546 i := p_idxv_tbl.NEXT(i);
547 END LOOP;
548 END IF;
549 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
550 RAISE G_EXCEPTION_HALT_VALIDATION;
551 ELSE
552 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
553 l_return_status := x_return_status;
554 END IF;
555 END IF;
556 EXCEPTION
557 WHEN G_EXCEPTION_HALT_VALIDATION THEN
558 NULL;
559 WHEN OTHERS THEN
560 OKC_API.SET_MESSAGE(p_app_name => g_app_name
561 ,p_msg_name => g_unexpected_error
562 ,p_token1 => g_sqlcode_token
563 ,p_token1_value => sqlcode
564 ,p_token2 => g_sqlerrm_token
565 ,p_token2_value => sqlerrm);
566 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
567 END delete_indices;
568
569 PROCEDURE validate_indices(
570 p_api_version IN NUMBER
571 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
572 ,x_return_status OUT NOCOPY VARCHAR2
573 ,x_msg_count OUT NOCOPY NUMBER
574 ,x_msg_data OUT NOCOPY VARCHAR2
575 ,p_idxv_rec IN idxv_rec_type) IS
576 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
577 BEGIN
578 okl_idx_pvt.validate_row(
579 p_api_version => p_api_version
580 ,p_init_msg_list => p_init_msg_list
581 ,x_return_status => x_return_status
582 ,x_msg_count => x_msg_count
583 ,x_msg_data => x_msg_data
584 ,p_idxv_rec => p_idxv_rec
585 );
586 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
587 RAISE G_EXCEPTION_HALT_VALIDATION;
588 ELSE
589 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
590 l_return_status := x_return_status;
591 END IF;
592 END IF;
593 EXCEPTION
594 WHEN G_EXCEPTION_HALT_VALIDATION THEN
595 NULL;
596 WHEN OTHERS THEN
597 OKC_API.SET_MESSAGE(p_app_name => g_app_name
598 ,p_msg_name => g_unexpected_error
599 ,p_token1 => g_sqlcode_token
600 ,p_token1_value => sqlcode
601 ,p_token2 => g_sqlerrm_token
602 ,p_token2_value => sqlerrm);
603 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
604 END validate_indices;
605
606 PROCEDURE validate_indices(
607 p_api_version IN NUMBER,
608 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
609 x_return_status OUT NOCOPY VARCHAR2,
610 x_msg_count OUT NOCOPY NUMBER,
611 x_msg_data OUT NOCOPY VARCHAR2,
612 p_idxv_tbl IN idxv_tbl_type) IS
613 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
614
615 BEGIN
616 okl_idx_pvt.validate_row(
617 p_api_version => p_api_version
618 ,p_init_msg_list => p_init_msg_list
619 ,x_return_status => x_return_status
620 ,x_msg_count => x_msg_count
621 ,x_msg_data => x_msg_data
622 ,p_idxv_tbl => p_idxv_tbl
623 );
624 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
625 RAISE G_EXCEPTION_HALT_VALIDATION;
626 ELSE
627 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
628 l_return_status := x_return_status;
629 END IF;
630 END IF;
631 EXCEPTION
632 WHEN G_EXCEPTION_HALT_VALIDATION THEN
633 NULL;
634 WHEN OTHERS THEN
635 OKC_API.SET_MESSAGE(p_app_name => g_app_name
636 ,p_msg_name => g_unexpected_error
637 ,p_token1 => g_sqlcode_token
638 ,p_token1_value => sqlcode
639 ,p_token2 => g_sqlerrm_token
640 ,p_token2_value => sqlerrm);
641 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
642 END validate_indices;
643
644 PROCEDURE create_index_values(
645 p_api_version IN NUMBER
646 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
647 ,x_return_status OUT NOCOPY VARCHAR2
648 ,x_msg_count OUT NOCOPY NUMBER
649 ,x_msg_data OUT NOCOPY VARCHAR2
650 ,p_ivev_rec IN ivev_rec_type
651 ,x_ivev_rec OUT NOCOPY ivev_rec_type) IS
652 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
653
654 BEGIN
655 okl_ive_pvt.insert_row(
656 p_api_version => p_api_version
657 ,p_init_msg_list => p_init_msg_list
658 ,x_return_status => x_return_status
659 ,x_msg_count => x_msg_count
660 ,x_msg_data => x_msg_data
661 ,p_ivev_rec => p_ivev_rec
662 ,x_ivev_rec => x_ivev_rec
663 );
664 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
665 RAISE G_EXCEPTION_HALT_VALIDATION;
666 ELSE
667 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
668 l_return_status := x_return_status;
669 END IF;
670 END IF;
671 EXCEPTION
672 WHEN G_EXCEPTION_HALT_VALIDATION THEN
673 NULL;
674 WHEN OTHERS THEN
675 OKC_API.SET_MESSAGE(p_app_name => g_app_name
676 ,p_msg_name => g_unexpected_error
677 ,p_token1 => g_sqlcode_token
678 ,p_token1_value => sqlcode
679 ,p_token2 => g_sqlerrm_token
680 ,p_token2_value => sqlerrm);
681 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
682 END create_index_values;
683
684 PROCEDURE create_index_values(
685 p_api_version IN NUMBER
686 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
687 ,x_return_status OUT NOCOPY VARCHAR2
688 ,x_msg_count OUT NOCOPY NUMBER
689 ,x_msg_data OUT NOCOPY VARCHAR2
690 ,p_ivev_tbl IN ivev_tbl_type
691 ,x_ivev_tbl OUT NOCOPY ivev_tbl_type) IS
692 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
693
694 BEGIN
695 okl_ive_pvt.insert_row(
696 p_api_version => p_api_version
697 ,p_init_msg_list => p_init_msg_list
698 ,x_return_status => x_return_status
699 ,x_msg_count => x_msg_count
700 ,x_msg_data => x_msg_data
701 ,p_ivev_tbl => p_ivev_tbl
702 ,x_ivev_tbl => x_ivev_tbl
703 );
704 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
705 RAISE G_EXCEPTION_HALT_VALIDATION;
706 ELSE
707 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
708 l_return_status := x_return_status;
709 END IF;
710 END IF;
711 EXCEPTION
712 WHEN G_EXCEPTION_HALT_VALIDATION THEN
713 NULL;
714 WHEN OTHERS THEN
715 OKC_API.SET_MESSAGE(p_app_name => g_app_name
716 ,p_msg_name => g_unexpected_error
717 ,p_token1 => g_sqlcode_token
718 ,p_token1_value => sqlcode
719 ,p_token2 => g_sqlerrm_token
720 ,p_token2_value => sqlerrm);
721 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
722 END create_index_values;
723
724 PROCEDURE lock_index_values(
725 p_api_version IN NUMBER
726 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
727 ,x_return_status OUT NOCOPY VARCHAR2
728 ,x_msg_count OUT NOCOPY NUMBER
729 ,x_msg_data OUT NOCOPY VARCHAR2
730 ,p_ivev_rec IN ivev_rec_type) IS
731 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
732 BEGIN
733 okl_ive_pvt.lock_row(
734 p_api_version => p_api_version
735 ,p_init_msg_list => p_init_msg_list
736 ,x_return_status => x_return_status
737 ,x_msg_count => x_msg_count
738 ,x_msg_data => x_msg_data
739 ,p_ivev_rec => p_ivev_rec
740 );
741 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
742 RAISE G_EXCEPTION_HALT_VALIDATION;
743 ELSE
744 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
745 l_return_status := x_return_status;
746 END IF;
747 END IF;
748 EXCEPTION
749 WHEN G_EXCEPTION_HALT_VALIDATION THEN
750 NULL;
751 WHEN OTHERS THEN
752 OKC_API.SET_MESSAGE(p_app_name => g_app_name
753 ,p_msg_name => g_unexpected_error
754 ,p_token1 => g_sqlcode_token
755 ,p_token1_value => sqlcode
756 ,p_token2 => g_sqlerrm_token
757 ,p_token2_value => sqlerrm);
758 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
759
760 END lock_index_values;
761
762 PROCEDURE lock_index_values(
763 p_api_version IN NUMBER
764 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
765 ,x_return_status OUT NOCOPY VARCHAR2
766 ,x_msg_count OUT NOCOPY NUMBER
767 ,x_msg_data OUT NOCOPY VARCHAR2
768 ,p_ivev_tbl IN ivev_tbl_type) IS
769 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
770
771 BEGIN
772 okl_ive_pvt.lock_row(
773 p_api_version => p_api_version
774 ,p_init_msg_list => p_init_msg_list
775 ,x_return_status => x_return_status
776 ,x_msg_count => x_msg_count
777 ,x_msg_data => x_msg_data
778 ,p_ivev_tbl => p_ivev_tbl
779 );
780 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
781 RAISE G_EXCEPTION_HALT_VALIDATION;
782 ELSE
783 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
784 l_return_status := x_return_status;
785 END IF;
786 END IF;
787 EXCEPTION
788 WHEN G_EXCEPTION_HALT_VALIDATION THEN
789 NULL;
790 WHEN OTHERS THEN
791 OKC_API.SET_MESSAGE(p_app_name => g_app_name
792 ,p_msg_name => g_unexpected_error
793 ,p_token1 => g_sqlcode_token
794 ,p_token1_value => sqlcode
795 ,p_token2 => g_sqlerrm_token
796 ,p_token2_value => sqlerrm);
797 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
798 END lock_index_values;
799
800 PROCEDURE update_index_values(
801 p_api_version IN NUMBER
802 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
803 ,x_return_status OUT NOCOPY VARCHAR2
804 ,x_msg_count OUT NOCOPY NUMBER
805 ,x_msg_data OUT NOCOPY VARCHAR2
806 ,p_ivev_rec IN ivev_rec_type
807 ,x_ivev_rec OUT NOCOPY ivev_rec_type) IS
808 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
809
810 BEGIN
811 okl_ive_pvt.update_row(
812 p_api_version => p_api_version
813 ,p_init_msg_list => p_init_msg_list
814 ,x_return_status => x_return_status
815 ,x_msg_count => x_msg_count
816 ,x_msg_data => x_msg_data
817 ,p_ivev_rec => p_ivev_rec
818 ,x_ivev_rec => x_ivev_rec
819 );
820 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
821 RAISE G_EXCEPTION_HALT_VALIDATION;
822 ELSE
823 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
824 l_return_status := x_return_status;
825 END IF;
826 END IF;
827 EXCEPTION
828 WHEN G_EXCEPTION_HALT_VALIDATION THEN
829 NULL;
830 WHEN OTHERS THEN
831 OKC_API.SET_MESSAGE(p_app_name => g_app_name
832 ,p_msg_name => g_unexpected_error
833 ,p_token1 => g_sqlcode_token
834 ,p_token1_value => sqlcode
835 ,p_token2 => g_sqlerrm_token
836 ,p_token2_value => sqlerrm);
837 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
838 END update_index_values;
839
840 PROCEDURE update_index_values(
841 p_api_version IN NUMBER
842 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
843 ,x_return_status OUT NOCOPY VARCHAR2
844 ,x_msg_count OUT NOCOPY NUMBER
845 ,x_msg_data OUT NOCOPY VARCHAR2
846 ,p_ivev_tbl IN ivev_tbl_type
847 ,x_ivev_tbl OUT NOCOPY ivev_tbl_type) IS
848 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
849
850 BEGIN
851 okl_ive_pvt.update_row(
852 p_api_version => p_api_version
853 ,p_init_msg_list => p_init_msg_list
854 ,x_return_status => x_return_status
855 ,x_msg_count => x_msg_count
856 ,x_msg_data => x_msg_data
857 ,p_ivev_tbl => p_ivev_tbl
858 ,x_ivev_tbl => x_ivev_tbl
859 );
860 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
861 RAISE G_EXCEPTION_HALT_VALIDATION;
862 ELSE
863 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
864 l_return_status := x_return_status;
865 END IF;
866 END IF;
867 EXCEPTION
868 WHEN G_EXCEPTION_HALT_VALIDATION THEN
869 NULL;
870 WHEN OTHERS THEN
871 OKC_API.SET_MESSAGE(p_app_name => g_app_name
872 ,p_msg_name => g_unexpected_error
873 ,p_token1 => g_sqlcode_token
874 ,p_token1_value => sqlcode
875 ,p_token2 => g_sqlerrm_token
876 ,p_token2_value => sqlerrm);
877 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
878 END update_index_values;
879
880 --Put custom code for cascade delete by developer
881 PROCEDURE delete_index_values(
882 p_api_version IN NUMBER
883 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
884 ,x_return_status OUT NOCOPY VARCHAR2
885 ,x_msg_count OUT NOCOPY NUMBER
886 ,x_msg_data OUT NOCOPY VARCHAR2
887 ,p_ivev_rec IN ivev_rec_type) IS
888 i NUMBER :=0;
889 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
890 BEGIN
891 okl_ive_pvt.delete_row(
892 p_api_version => p_api_version
893 ,p_init_msg_list => p_init_msg_list
894 ,x_return_status => x_return_status
895 ,x_msg_count => x_msg_count
896 ,x_msg_data => x_msg_data
897 ,p_ivev_rec => p_ivev_rec);
898 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
899 RAISE G_EXCEPTION_HALT_VALIDATION;
900 ELSE
901 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
902 l_return_status := x_return_status;
903 END IF;
904 END IF;
905 EXCEPTION
906 WHEN G_EXCEPTION_HALT_VALIDATION THEN
907 NULL;
908 WHEN OTHERS THEN
909 OKC_API.SET_MESSAGE(p_app_name => g_app_name
910 ,p_msg_name => g_unexpected_error
911 ,p_token1 => g_sqlcode_token
912 ,p_token1_value => sqlcode
913 ,p_token2 => g_sqlerrm_token
914 ,p_token2_value => sqlerrm);
915 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
916 END delete_index_values;
917
918 PROCEDURE delete_index_values(
919 p_api_version IN NUMBER
920 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
921 ,x_return_status OUT NOCOPY VARCHAR2
922 ,x_msg_count OUT NOCOPY NUMBER
923 ,x_msg_data OUT NOCOPY VARCHAR2
924 ,p_ivev_tbl IN ivev_tbl_type) IS
925
926 i NUMBER :=0;
927 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
928 BEGIN
929 --Initialize the return status
930 x_return_status := OKC_API.G_RET_STS_SUCCESS;
931 IF (p_ivev_tbl.COUNT > 0) THEN
932 i := p_ivev_tbl.FIRST;
933 LOOP
934 delete_index_values(
935 p_api_version => p_api_version
936 ,p_init_msg_list => p_init_msg_list
937 ,x_return_status => x_return_status
938 ,x_msg_count => x_msg_count
939 ,x_msg_data => x_msg_data
940 ,p_ivev_rec => p_ivev_tbl(i));
941 EXIT WHEN (i = p_ivev_tbl.LAST);
942 i := p_ivev_tbl.NEXT(i);
943 END LOOP;
944 END IF;
945 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
946 RAISE G_EXCEPTION_HALT_VALIDATION;
947 ELSE
948 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
949 l_return_status := x_return_status;
950 END IF;
951 END IF;
952 EXCEPTION
953 WHEN G_EXCEPTION_HALT_VALIDATION THEN
954 NULL;
955 WHEN OTHERS THEN
956 OKC_API.SET_MESSAGE(p_app_name => g_app_name
957 ,p_msg_name => g_unexpected_error
958 ,p_token1 => g_sqlcode_token
959 ,p_token1_value => sqlcode
960 ,p_token2 => g_sqlerrm_token
961 ,p_token2_value => sqlerrm);
962 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
963 END delete_index_values;
964
965 PROCEDURE validate_index_values(
966 p_api_version IN NUMBER
967 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
968 ,x_return_status OUT NOCOPY VARCHAR2
969 ,x_msg_count OUT NOCOPY NUMBER
970 ,x_msg_data OUT NOCOPY VARCHAR2
971 ,p_ivev_rec IN ivev_rec_type) IS
972 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
973 BEGIN
974 okl_ive_pvt.validate_row(
975 p_api_version => p_api_version
976 ,p_init_msg_list => p_init_msg_list
977 ,x_return_status => x_return_status
978 ,x_msg_count => x_msg_count
979 ,x_msg_data => x_msg_data
980 ,p_ivev_rec => p_ivev_rec
981 );
982 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
983 RAISE G_EXCEPTION_HALT_VALIDATION;
984 ELSE
985 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
986 l_return_status := x_return_status;
987 END IF;
988 END IF;
989 EXCEPTION
990 WHEN G_EXCEPTION_HALT_VALIDATION THEN
991 NULL;
992 WHEN OTHERS THEN
993 OKC_API.SET_MESSAGE(p_app_name => g_app_name
994 ,p_msg_name => g_unexpected_error
995 ,p_token1 => g_sqlcode_token
996 ,p_token1_value => sqlcode
997 ,p_token2 => g_sqlerrm_token
998 ,p_token2_value => sqlerrm);
999 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1000 END validate_index_values;
1001
1002 PROCEDURE validate_index_values(
1003 p_api_version IN NUMBER
1004 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
1005 ,x_return_status OUT NOCOPY VARCHAR2
1006 ,x_msg_count OUT NOCOPY NUMBER
1007 ,x_msg_data OUT NOCOPY VARCHAR2
1008 ,p_ivev_tbl IN ivev_tbl_type) IS
1009 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1010 BEGIN
1011 okl_ive_pvt.validate_row(
1012 p_api_version => p_api_version
1013 ,p_init_msg_list => p_init_msg_list
1014 ,x_return_status => x_return_status
1015 ,x_msg_count => x_msg_count
1016 ,x_msg_data => x_msg_data
1017 ,p_ivev_tbl => p_ivev_tbl
1018 );
1019 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1020 RAISE G_EXCEPTION_HALT_VALIDATION;
1021 ELSE
1022 IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
1023 l_return_status := x_return_status;
1024 END IF;
1025 END IF;
1026 EXCEPTION
1027 WHEN G_EXCEPTION_HALT_VALIDATION THEN
1028 NULL;
1029 WHEN OTHERS THEN
1030 OKC_API.SET_MESSAGE(p_app_name => g_app_name
1031 ,p_msg_name => g_unexpected_error
1032 ,p_token1 => g_sqlcode_token
1033 ,p_token1_value => sqlcode
1034 ,p_token2 => g_sqlerrm_token
1035 ,p_token2_value => sqlerrm);
1036 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1037 END validate_index_values;
1038
1039 END OKL_INDICES_PVT;