[Home] [Help]
PACKAGE BODY: APPS.OKC_SUBCLASS_PVT
Source
1 Package Body OKC_SUBCLASS_PVT AS
2 /* $Header: OKCCSCSB.pls 120.0 2005/05/25 19:34:51 appldev noship $ */
3
4 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5
6 PROCEDURE add_language IS
7 BEGIN
8 okc_scs_pvt.add_language;
9 END;
10
11 PROCEDURE create_subclass(
12 p_api_version IN NUMBER,
13 p_init_msg_list IN VARCHAR2 ,
14 x_return_status OUT NOCOPY VARCHAR2,
15 x_msg_count OUT NOCOPY NUMBER,
16 x_msg_data OUT NOCOPY VARCHAR2,
17 p_scsv_rec IN scsv_rec_type,
18 x_scsv_rec OUT NOCOPY scsv_rec_type) IS
19 BEGIN
20 okc_scs_pvt.insert_row(
21 p_api_version,
22 p_init_msg_list,
23 x_return_status,
24 x_msg_count,
25 x_msg_data,
26 p_scsv_rec,
27 x_scsv_rec);
28 END create_subclass;
29
30 PROCEDURE create_subclass(
31 p_api_version IN NUMBER,
32 p_init_msg_list IN VARCHAR2 ,
33 x_return_status OUT NOCOPY VARCHAR2,
34 x_msg_count OUT NOCOPY NUMBER,
35 x_msg_data OUT NOCOPY VARCHAR2,
36 p_scsv_tbl IN scsv_tbl_type,
37 x_scsv_tbl OUT NOCOPY scsv_tbl_type) IS
38 BEGIN
39 okc_scs_pvt.insert_row(
40 p_api_version,
41 p_init_msg_list,
42 x_return_status,
43 x_msg_count,
44 x_msg_data,
45 p_scsv_tbl,
46 x_scsv_tbl);
47 END create_subclass;
48
49
50 PROCEDURE update_subclass(
51 p_api_version IN NUMBER,
52 p_init_msg_list IN VARCHAR2 ,
53 x_return_status OUT NOCOPY VARCHAR2,
54 x_msg_count OUT NOCOPY NUMBER,
55 x_msg_data OUT NOCOPY VARCHAR2,
56 p_scsv_rec IN scsv_rec_type,
57 x_scsv_rec OUT NOCOPY scsv_rec_type) IS
58 BEGIN
59 okc_scs_pvt.update_row(
60 p_api_version,
61 p_init_msg_list,
62 x_return_status,
63 x_msg_count,
64 x_msg_data,
65 p_scsv_rec,
66 x_scsv_rec);
67 END update_subclass;
68
69
70 PROCEDURE update_subclass(
71 p_api_version IN NUMBER,
72 p_init_msg_list IN VARCHAR2 ,
73 x_return_status OUT NOCOPY VARCHAR2,
74 x_msg_count OUT NOCOPY NUMBER,
75 x_msg_data OUT NOCOPY VARCHAR2,
76 p_scsv_tbl IN scsv_tbl_type,
77 x_scsv_tbl OUT NOCOPY scsv_tbl_type) IS
78 BEGIN
79 okc_scs_pvt.update_row(
80 p_api_version,
81 p_init_msg_list,
82 x_return_status,
83 x_msg_count,
84 x_msg_data,
85 p_scsv_tbl,
86 x_scsv_tbl);
87 END update_subclass;
88
89 PROCEDURE delete_subclass(
90 p_api_version IN NUMBER,
91 p_init_msg_list IN VARCHAR2 ,
92 x_return_status OUT NOCOPY VARCHAR2,
93 x_msg_count OUT NOCOPY NUMBER,
94 x_msg_data OUT NOCOPY VARCHAR2,
95 p_scsv_rec IN scsv_rec_type) IS
96 BEGIN
97 okc_scs_pvt.delete_row(
98 p_api_version,
99 p_init_msg_list,
100 x_return_status,
101 x_msg_count,
102 x_msg_data,
103 p_scsv_rec);
104 END delete_subclass;
105
106 PROCEDURE delete_subclass(
107 p_api_version IN NUMBER,
108 p_init_msg_list IN VARCHAR2 ,
109 x_return_status OUT NOCOPY VARCHAR2,
110 x_msg_count OUT NOCOPY NUMBER,
111 x_msg_data OUT NOCOPY VARCHAR2,
112 p_scsv_tbl IN scsv_tbl_type) IS
113 BEGIN
114 okc_scs_pvt.delete_row(
115 p_api_version,
116 p_init_msg_list,
117 x_return_status,
118 x_msg_count,
119 x_msg_data,
120 p_scsv_tbl);
121 END delete_subclass;
122
123 PROCEDURE lock_subclass(
124 p_api_version IN NUMBER,
125 p_init_msg_list IN VARCHAR2 ,
126 x_return_status OUT NOCOPY VARCHAR2,
127 x_msg_count OUT NOCOPY NUMBER,
128 x_msg_data OUT NOCOPY VARCHAR2,
129 p_scsv_rec IN scsv_rec_type) IS
130 BEGIN
131 okc_scs_pvt.lock_row(
132 p_api_version,
133 p_init_msg_list,
134 x_return_status,
135 x_msg_count,
136 x_msg_data,
137 p_scsv_rec);
138 END lock_subclass;
139
140 PROCEDURE lock_subclass(
141 p_api_version IN NUMBER,
142 p_init_msg_list IN VARCHAR2 ,
143 x_return_status OUT NOCOPY VARCHAR2,
144 x_msg_count OUT NOCOPY NUMBER,
145 x_msg_data OUT NOCOPY VARCHAR2,
146 p_scsv_tbl IN scsv_tbl_type) IS
147 BEGIN
148 okc_scs_pvt.lock_row(
149 p_api_version,
150 p_init_msg_list,
151 x_return_status,
152 x_msg_count,
153 x_msg_data,
154 p_scsv_tbl);
155 END lock_subclass;
156
157 PROCEDURE validate_subclass(
158 p_api_version IN NUMBER,
159 p_init_msg_list IN VARCHAR2 ,
160 x_return_status OUT NOCOPY VARCHAR2,
161 x_msg_count OUT NOCOPY NUMBER,
162 x_msg_data OUT NOCOPY VARCHAR2,
163 p_scsv_rec IN scsv_rec_type) IS
164 BEGIN
165 okc_scs_pvt.validate_row(
166 p_api_version,
167 p_init_msg_list,
168 x_return_status,
169 x_msg_count,
170 x_msg_data,
171 p_scsv_rec);
172 END validate_subclass;
173
174 PROCEDURE validate_subclass(
175 p_api_version IN NUMBER,
176 p_init_msg_list IN VARCHAR2 ,
177 x_return_status OUT NOCOPY VARCHAR2,
178 x_msg_count OUT NOCOPY NUMBER,
179 x_msg_data OUT NOCOPY VARCHAR2,
180 p_scsv_tbl IN scsv_tbl_type) IS
181 BEGIN
182 okc_scs_pvt.validate_row(
183 p_api_version,
184 p_init_msg_list,
185 x_return_status,
186 x_msg_count,
187 x_msg_data,
188 p_scsv_tbl);
189 END validate_subclass;
190
191 PROCEDURE create_subclass_roles(
192 p_api_version IN NUMBER,
193 p_init_msg_list IN VARCHAR2 ,
194 x_return_status OUT NOCOPY VARCHAR2,
195 x_msg_count OUT NOCOPY NUMBER,
196 x_msg_data OUT NOCOPY VARCHAR2,
197 p_srev_rec IN srev_rec_type,
198 x_srev_rec OUT NOCOPY srev_rec_type) IS
199 BEGIN
200 okc_sre_pvt.insert_row(
201 p_api_version,
202 p_init_msg_list,
203 x_return_status,
204 x_msg_count,
205 x_msg_data,
206 p_srev_rec,
207 x_srev_rec);
208 END create_subclass_roles;
209
210 PROCEDURE create_subclass_roles(
211 p_api_version IN NUMBER,
212 p_init_msg_list IN VARCHAR2 ,
213 x_return_status OUT NOCOPY VARCHAR2,
214 x_msg_count OUT NOCOPY NUMBER,
215 x_msg_data OUT NOCOPY VARCHAR2,
216 p_srev_tbl IN srev_tbl_type,
217 x_srev_tbl OUT NOCOPY srev_tbl_type) IS
218 BEGIN
219 okc_sre_pvt.insert_row(
220 p_api_version,
221 p_init_msg_list,
222 x_return_status,
223 x_msg_count,
224 x_msg_data,
225 p_srev_tbl,
226 x_srev_tbl);
227 END create_subclass_roles;
228
229 PROCEDURE update_subclass_roles(
230 p_api_version IN NUMBER,
231 p_init_msg_list IN VARCHAR2 ,
232 x_return_status OUT NOCOPY VARCHAR2,
233 x_msg_count OUT NOCOPY NUMBER,
234 x_msg_data OUT NOCOPY VARCHAR2,
235 p_srev_rec IN srev_rec_type,
236 x_srev_rec OUT NOCOPY srev_rec_type) IS
237 BEGIN
238 okc_sre_pvt.update_row(
239 p_api_version,
240 p_init_msg_list,
241 x_return_status,
242 x_msg_count,
243 x_msg_data,
244 p_srev_rec,
245 x_srev_rec);
246 END update_subclass_roles;
247
248 PROCEDURE update_subclass_roles(
249 p_api_version IN NUMBER,
250 p_init_msg_list IN VARCHAR2 ,
251 x_return_status OUT NOCOPY VARCHAR2,
252 x_msg_count OUT NOCOPY NUMBER,
253 x_msg_data OUT NOCOPY VARCHAR2,
254 p_srev_tbl IN srev_tbl_type,
255 x_srev_tbl OUT NOCOPY srev_tbl_type) IS
256 BEGIN
257 okc_sre_pvt.update_row(
258 p_api_version,
259 p_init_msg_list,
260 x_return_status,
261 x_msg_count,
262 x_msg_data,
263 p_srev_tbl,
264 x_srev_tbl);
265 END update_subclass_roles;
266
267 PROCEDURE delete_subclass_roles(
268 p_api_version IN NUMBER,
269 p_init_msg_list IN VARCHAR2 ,
270 x_return_status OUT NOCOPY VARCHAR2,
271 x_msg_count OUT NOCOPY NUMBER,
272 x_msg_data OUT NOCOPY VARCHAR2,
273 p_srev_rec IN srev_rec_type) IS
274 BEGIN
275 okc_sre_pvt.delete_row(
276 p_api_version,
277 p_init_msg_list,
278 x_return_status,
279 x_msg_count,
280 x_msg_data,
281 p_srev_rec);
282 END delete_subclass_roles;
283
284 PROCEDURE delete_subclass_roles(
285 p_api_version IN NUMBER,
286 p_init_msg_list IN VARCHAR2 ,
287 x_return_status OUT NOCOPY VARCHAR2,
288 x_msg_count OUT NOCOPY NUMBER,
289 x_msg_data OUT NOCOPY VARCHAR2,
290 p_srev_tbl IN srev_tbl_type) IS
291 BEGIN
292 okc_sre_pvt.delete_row(
293 p_api_version,
294 p_init_msg_list,
295 x_return_status,
296 x_msg_count,
297 x_msg_data,
298 p_srev_tbl);
299 END delete_subclass_roles;
300
301 PROCEDURE lock_subclass_roles(
302 p_api_version IN NUMBER,
303 p_init_msg_list IN VARCHAR2 ,
304 x_return_status OUT NOCOPY VARCHAR2,
305 x_msg_count OUT NOCOPY NUMBER,
306 x_msg_data OUT NOCOPY VARCHAR2,
307 p_srev_rec IN srev_rec_type) IS
308 BEGIN
309 okc_sre_pvt.lock_row(
310 p_api_version,
311 p_init_msg_list,
312 x_return_status,
313 x_msg_count,
314 x_msg_data,
315 p_srev_rec);
316 END lock_subclass_roles;
317
318 PROCEDURE lock_subclass_roles(
319 p_api_version IN NUMBER,
320 p_init_msg_list IN VARCHAR2 ,
321 x_return_status OUT NOCOPY VARCHAR2,
322 x_msg_count OUT NOCOPY NUMBER,
323 x_msg_data OUT NOCOPY VARCHAR2,
324 p_srev_tbl IN srev_tbl_type) IS
325 BEGIN
326 okc_sre_pvt.lock_row(
327 p_api_version,
328 p_init_msg_list,
329 x_return_status,
330 x_msg_count,
331 x_msg_data,
332 p_srev_tbl);
333 END lock_subclass_roles;
334
335 PROCEDURE validate_subclass_roles(
336 p_api_version IN NUMBER,
337 p_init_msg_list IN VARCHAR2 ,
338 x_return_status OUT NOCOPY VARCHAR2,
339 x_msg_count OUT NOCOPY NUMBER,
340 x_msg_data OUT NOCOPY VARCHAR2,
341 p_srev_rec IN srev_rec_type) IS
342 BEGIN
343 okc_sre_pvt.validate_row(
344 p_api_version,
345 p_init_msg_list,
346 x_return_status,
347 x_msg_count,
348 x_msg_data,
349 p_srev_rec);
350 END validate_subclass_roles;
351
352 PROCEDURE validate_subclass_roles(
353 p_api_version IN NUMBER,
354 p_init_msg_list IN VARCHAR2 ,
355 x_return_status OUT NOCOPY VARCHAR2,
356 x_msg_count OUT NOCOPY NUMBER,
357 x_msg_data OUT NOCOPY VARCHAR2,
358 p_srev_tbl IN srev_tbl_type) IS
359 BEGIN
360 okc_sre_pvt.validate_row(
361 p_api_version,
362 p_init_msg_list,
363 x_return_status,
364 x_msg_count,
365 x_msg_data,
366 p_srev_tbl);
367 END validate_subclass_roles;
368
369 PROCEDURE create_subclass_rg_defs(
370 p_api_version IN NUMBER,
371 p_init_msg_list IN VARCHAR2 ,
372 x_return_status OUT NOCOPY VARCHAR2,
373 x_msg_count OUT NOCOPY NUMBER,
374 x_msg_data OUT NOCOPY VARCHAR2,
375 p_srdv_rec IN srdv_rec_type,
376 x_srdv_rec OUT NOCOPY srdv_rec_type) IS
377 BEGIN
378 okc_srd_pvt.insert_row(
379 p_api_version,
380 p_init_msg_list,
381 x_return_status,
382 x_msg_count,
383 x_msg_data,
384 p_srdv_rec,
385 x_srdv_rec);
386 END create_subclass_rg_defs;
387
388 PROCEDURE create_subclass_rg_defs(
389 p_api_version IN NUMBER,
390 p_init_msg_list IN VARCHAR2 ,
391 x_return_status OUT NOCOPY VARCHAR2,
392 x_msg_count OUT NOCOPY NUMBER,
393 x_msg_data OUT NOCOPY VARCHAR2,
394 p_srdv_tbl IN srdv_tbl_type,
395 x_srdv_tbl OUT NOCOPY srdv_tbl_type) IS
396 BEGIN
397 okc_srd_pvt.insert_row(
398 p_api_version,
399 p_init_msg_list,
400 x_return_status,
401 x_msg_count,
402 x_msg_data,
403 p_srdv_tbl,
404 x_srdv_tbl);
405 END create_subclass_rg_defs;
406
407 PROCEDURE update_subclass_rg_defs(
408 p_api_version IN NUMBER,
409 p_init_msg_list IN VARCHAR2 ,
410 x_return_status OUT NOCOPY VARCHAR2,
411 x_msg_count OUT NOCOPY NUMBER,
412 x_msg_data OUT NOCOPY VARCHAR2,
413 p_srdv_rec IN srdv_rec_type,
414 x_srdv_rec OUT NOCOPY srdv_rec_type) IS
415 BEGIN
416 okc_srd_pvt.update_row(
417 p_api_version,
418 p_init_msg_list,
419 x_return_status,
420 x_msg_count,
421 x_msg_data,
422 p_srdv_rec,
423 x_srdv_rec);
424 END update_subclass_rg_defs;
425
426 PROCEDURE update_subclass_rg_defs(
427 p_api_version IN NUMBER,
428 p_init_msg_list IN VARCHAR2 ,
429 x_return_status OUT NOCOPY VARCHAR2,
430 x_msg_count OUT NOCOPY NUMBER,
431 x_msg_data OUT NOCOPY VARCHAR2,
432 p_srdv_tbl IN srdv_tbl_type,
433 x_srdv_tbl OUT NOCOPY srdv_tbl_type) IS
434 BEGIN
435 okc_srd_pvt.update_row(
436 p_api_version,
437 p_init_msg_list,
438 x_return_status,
439 x_msg_count,
440 x_msg_data,
441 p_srdv_tbl,
442 x_srdv_tbl);
443 END update_subclass_rg_defs;
444
445 PROCEDURE delete_subclass_rg_defs(
446 p_api_version IN NUMBER,
447 p_init_msg_list IN VARCHAR2 ,
448 x_return_status OUT NOCOPY VARCHAR2,
449 x_msg_count OUT NOCOPY NUMBER,
450 x_msg_data OUT NOCOPY VARCHAR2,
451 p_srdv_rec IN srdv_rec_type) IS
452 BEGIN
453 okc_srd_pvt.delete_row(
454 p_api_version,
455 p_init_msg_list,
456 x_return_status,
457 x_msg_count,
458 x_msg_data,
459 p_srdv_rec);
460 END delete_subclass_rg_defs;
461
462 PROCEDURE delete_subclass_rg_defs(
463 p_api_version IN NUMBER,
464 p_init_msg_list IN VARCHAR2 ,
465 x_return_status OUT NOCOPY VARCHAR2,
466 x_msg_count OUT NOCOPY NUMBER,
467 x_msg_data OUT NOCOPY VARCHAR2,
468 p_srdv_tbl IN srdv_tbl_type) IS
469 BEGIN
470 okc_srd_pvt.delete_row(
471 p_api_version,
472 p_init_msg_list,
473 x_return_status,
474 x_msg_count,
475 x_msg_data,
476 p_srdv_tbl);
477 END delete_subclass_rg_defs;
478
479 PROCEDURE lock_subclass_rg_defs(
480 p_api_version IN NUMBER,
481 p_init_msg_list IN VARCHAR2 ,
482 x_return_status OUT NOCOPY VARCHAR2,
483 x_msg_count OUT NOCOPY NUMBER,
484 x_msg_data OUT NOCOPY VARCHAR2,
485 p_srdv_rec IN srdv_rec_type) IS
486 BEGIN
487 okc_srd_pvt.lock_row(
488 p_api_version,
489 p_init_msg_list,
490 x_return_status,
491 x_msg_count,
492 x_msg_data,
493 p_srdv_rec);
494 END lock_subclass_rg_defs;
495
496 PROCEDURE lock_subclass_rg_defs(
497 p_api_version IN NUMBER,
498 p_init_msg_list IN VARCHAR2 ,
499 x_return_status OUT NOCOPY VARCHAR2,
500 x_msg_count OUT NOCOPY NUMBER,
501 x_msg_data OUT NOCOPY VARCHAR2,
502 p_srdv_tbl IN srdv_tbl_type) IS
503 BEGIN
504 okc_srd_pvt.lock_row(
505 p_api_version,
506 p_init_msg_list,
507 x_return_status,
508 x_msg_count,
509 x_msg_data,
510 p_srdv_tbl);
511 END lock_subclass_rg_defs;
512
513 PROCEDURE validate_subclass_rg_defs(
514 p_api_version IN NUMBER,
515 p_init_msg_list IN VARCHAR2 ,
516 x_return_status OUT NOCOPY VARCHAR2,
517 x_msg_count OUT NOCOPY NUMBER,
518 x_msg_data OUT NOCOPY VARCHAR2,
519 p_srdv_rec IN srdv_rec_type) IS
520 BEGIN
521 okc_srd_pvt.validate_row(
522 p_api_version,
523 p_init_msg_list,
524 x_return_status,
525 x_msg_count,
526 x_msg_data,
527 p_srdv_rec);
528 END validate_subclass_rg_defs;
529
530 PROCEDURE validate_subclass_rg_defs(
531 p_api_version IN NUMBER,
532 p_init_msg_list IN VARCHAR2 ,
533 x_return_status OUT NOCOPY VARCHAR2,
534 x_msg_count OUT NOCOPY NUMBER,
535 x_msg_data OUT NOCOPY VARCHAR2,
536 p_srdv_tbl IN srdv_tbl_type) IS
537 BEGIN
538 okc_srd_pvt.validate_row(
539 p_api_version,
540 p_init_msg_list,
541 x_return_status,
542 x_msg_count,
543 x_msg_data,
544 p_srdv_tbl);
545 END validate_subclass_rg_defs;
546
547 PROCEDURE create_rg_role_defs(
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_rrdv_rec IN rrdv_rec_type,
554 x_rrdv_rec OUT NOCOPY rrdv_rec_type) IS
555 BEGIN
556 okc_rrd_pvt.insert_row(
557 p_api_version,
558 p_init_msg_list,
559 x_return_status,
560 x_msg_count,
561 x_msg_data,
562 p_rrdv_rec,
563 x_rrdv_rec);
564 END create_rg_role_defs;
565
566 PROCEDURE create_rg_role_defs(
567 p_api_version IN NUMBER,
568 p_init_msg_list IN VARCHAR2 ,
569 x_return_status OUT NOCOPY VARCHAR2,
570 x_msg_count OUT NOCOPY NUMBER,
571 x_msg_data OUT NOCOPY VARCHAR2,
572 p_rrdv_tbl IN rrdv_tbl_type,
573 x_rrdv_tbl OUT NOCOPY rrdv_tbl_type) IS
574 BEGIN
575 okc_rrd_pvt.insert_row(
576 p_api_version,
577 p_init_msg_list,
578 x_return_status,
579 x_msg_count,
580 x_msg_data,
581 p_rrdv_tbl,
582 x_rrdv_tbl);
583 END create_rg_role_defs;
584
585 PROCEDURE update_rg_role_defs(
586 p_api_version IN NUMBER,
587 p_init_msg_list IN VARCHAR2 ,
588 x_return_status OUT NOCOPY VARCHAR2,
589 x_msg_count OUT NOCOPY NUMBER,
590 x_msg_data OUT NOCOPY VARCHAR2,
591 p_rrdv_rec IN rrdv_rec_type,
592 x_rrdv_rec OUT NOCOPY rrdv_rec_type) IS
593 BEGIN
594 okc_rrd_pvt.update_row(
595 p_api_version,
596 p_init_msg_list,
597 x_return_status,
598 x_msg_count,
599 x_msg_data,
600 p_rrdv_rec,
601 x_rrdv_rec);
602 END update_rg_role_defs;
603
604 PROCEDURE update_rg_role_defs(
605 p_api_version IN NUMBER,
606 p_init_msg_list IN VARCHAR2 ,
607 x_return_status OUT NOCOPY VARCHAR2,
608 x_msg_count OUT NOCOPY NUMBER,
609 x_msg_data OUT NOCOPY VARCHAR2,
610 p_rrdv_tbl IN rrdv_tbl_type,
611 x_rrdv_tbl OUT NOCOPY rrdv_tbl_type) IS
612 BEGIN
613 okc_rrd_pvt.update_row(
614 p_api_version,
615 p_init_msg_list,
616 x_return_status,
617 x_msg_count,
618 x_msg_data,
619 p_rrdv_tbl,
620 x_rrdv_tbl);
621 END update_rg_role_defs;
622
623 PROCEDURE delete_rg_role_defs(
624 p_api_version IN NUMBER,
625 p_init_msg_list IN VARCHAR2 ,
626 x_return_status OUT NOCOPY VARCHAR2,
627 x_msg_count OUT NOCOPY NUMBER,
628 x_msg_data OUT NOCOPY VARCHAR2,
629 p_rrdv_rec IN rrdv_rec_type) IS
630 BEGIN
631 okc_rrd_pvt.delete_row(
632 p_api_version,
633 p_init_msg_list,
634 x_return_status,
635 x_msg_count,
636 x_msg_data,
637 p_rrdv_rec);
638 END delete_rg_role_defs;
639
640 PROCEDURE delete_rg_role_defs(
641 p_api_version IN NUMBER,
642 p_init_msg_list IN VARCHAR2 ,
643 x_return_status OUT NOCOPY VARCHAR2,
644 x_msg_count OUT NOCOPY NUMBER,
645 x_msg_data OUT NOCOPY VARCHAR2,
646 p_rrdv_tbl IN rrdv_tbl_type) IS
647 BEGIN
648 okc_rrd_pvt.delete_row(
649 p_api_version,
650 p_init_msg_list,
651 x_return_status,
652 x_msg_count,
653 x_msg_data,
654 p_rrdv_tbl);
655 END delete_rg_role_defs;
656
657 PROCEDURE lock_rg_role_defs(
658 p_api_version IN NUMBER,
659 p_init_msg_list IN VARCHAR2 ,
660 x_return_status OUT NOCOPY VARCHAR2,
661 x_msg_count OUT NOCOPY NUMBER,
662 x_msg_data OUT NOCOPY VARCHAR2,
663 p_rrdv_rec IN rrdv_rec_type) IS
664 BEGIN
665 okc_rrd_pvt.lock_row(
666 p_api_version,
667 p_init_msg_list,
668 x_return_status,
669 x_msg_count,
670 x_msg_data,
671 p_rrdv_rec);
672 END lock_rg_role_defs;
673
674 PROCEDURE lock_rg_role_defs(
675 p_api_version IN NUMBER,
676 p_init_msg_list IN VARCHAR2 ,
677 x_return_status OUT NOCOPY VARCHAR2,
678 x_msg_count OUT NOCOPY NUMBER,
679 x_msg_data OUT NOCOPY VARCHAR2,
680 p_rrdv_tbl IN rrdv_tbl_type) IS
681 BEGIN
682 okc_rrd_pvt.lock_row(
683 p_api_version,
684 p_init_msg_list,
685 x_return_status,
686 x_msg_count,
687 x_msg_data,
688 p_rrdv_tbl);
689 END lock_rg_role_defs;
690
691 PROCEDURE validate_rg_role_defs(
692 p_api_version IN NUMBER,
693 p_init_msg_list IN VARCHAR2 ,
694 x_return_status OUT NOCOPY VARCHAR2,
695 x_msg_count OUT NOCOPY NUMBER,
696 x_msg_data OUT NOCOPY VARCHAR2,
697 p_rrdv_rec IN rrdv_rec_type) IS
698 BEGIN
699 okc_rrd_pvt.validate_row(
700 p_api_version,
701 p_init_msg_list,
702 x_return_status,
703 x_msg_count,
704 x_msg_data,
705 p_rrdv_rec);
706 END validate_rg_role_defs;
707
708 PROCEDURE validate_rg_role_defs(
709 p_api_version IN NUMBER,
710 p_init_msg_list IN VARCHAR2 ,
711 x_return_status OUT NOCOPY VARCHAR2,
712 x_msg_count OUT NOCOPY NUMBER,
713 x_msg_data OUT NOCOPY VARCHAR2,
714 p_rrdv_tbl IN rrdv_tbl_type) IS
715 BEGIN
716 okc_rrd_pvt.validate_row(
717 p_api_version,
718 p_init_msg_list,
719 x_return_status,
720 x_msg_count,
721 x_msg_data,
722 p_rrdv_tbl);
723 END validate_rg_role_defs;
724
725 PROCEDURE create_subclass_top_line(
726 p_api_version IN NUMBER,
727 p_init_msg_list IN VARCHAR2 ,
728 x_return_status OUT NOCOPY VARCHAR2,
729 x_msg_count OUT NOCOPY NUMBER,
730 x_msg_data OUT NOCOPY VARCHAR2,
731 p_stlv_rec IN stlv_rec_type,
732 x_stlv_rec OUT NOCOPY stlv_rec_type) IS
733 BEGIN
734 okc_stl_pvt.insert_row(
735 p_api_version,
736 p_init_msg_list,
737 x_return_status,
738 x_msg_count,
739 x_msg_data,
740 p_stlv_rec,
741 x_stlv_rec);
742 END create_subclass_top_line;
743
744 PROCEDURE create_subclass_top_line(
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_stlv_tbl IN stlv_tbl_type,
751 x_stlv_tbl OUT NOCOPY stlv_tbl_type) IS
752 BEGIN
753 okc_stl_pvt.insert_row(
754 p_api_version,
755 p_init_msg_list,
756 x_return_status,
757 x_msg_count,
758 x_msg_data,
759 p_stlv_tbl,
760 x_stlv_tbl);
761 END create_subclass_top_line;
762
763 PROCEDURE update_subclass_top_line(
764 p_api_version IN NUMBER,
765 p_init_msg_list IN VARCHAR2 ,
766 x_return_status OUT NOCOPY VARCHAR2,
767 x_msg_count OUT NOCOPY NUMBER,
768 x_msg_data OUT NOCOPY VARCHAR2,
769 p_stlv_rec IN stlv_rec_type,
770 x_stlv_rec OUT NOCOPY stlv_rec_type) IS
771 BEGIN
772 okc_stl_pvt.update_row(
773 p_api_version,
774 p_init_msg_list,
775 x_return_status,
776 x_msg_count,
777 x_msg_data,
778 p_stlv_rec,
779 x_stlv_rec);
780 END update_subclass_top_line;
781
782 PROCEDURE update_subclass_top_line(
783 p_api_version IN NUMBER,
784 p_init_msg_list IN VARCHAR2 ,
785 x_return_status OUT NOCOPY VARCHAR2,
786 x_msg_count OUT NOCOPY NUMBER,
787 x_msg_data OUT NOCOPY VARCHAR2,
788 p_stlv_tbl IN stlv_tbl_type,
789 x_stlv_tbl OUT NOCOPY stlv_tbl_type) IS
790 BEGIN
791 okc_stl_pvt.update_row(
792 p_api_version,
793 p_init_msg_list,
794 x_return_status,
795 x_msg_count,
796 x_msg_data,
797 p_stlv_tbl,
798 x_stlv_tbl);
799 END update_subclass_top_line;
800
801 PROCEDURE delete_subclass_top_line(
802 p_api_version IN NUMBER,
803 p_init_msg_list IN VARCHAR2 ,
804 x_return_status OUT NOCOPY VARCHAR2,
805 x_msg_count OUT NOCOPY NUMBER,
806 x_msg_data OUT NOCOPY VARCHAR2,
807 p_stlv_rec IN stlv_rec_type) IS
808 BEGIN
809 okc_stl_pvt.delete_row(
810 p_api_version,
811 p_init_msg_list,
812 x_return_status,
813 x_msg_count,
814 x_msg_data,
815 p_stlv_rec);
816 END delete_subclass_top_line;
817
818 PROCEDURE delete_subclass_top_line(
819 p_api_version IN NUMBER,
820 p_init_msg_list IN VARCHAR2 ,
821 x_return_status OUT NOCOPY VARCHAR2,
822 x_msg_count OUT NOCOPY NUMBER,
823 x_msg_data OUT NOCOPY VARCHAR2,
824 p_stlv_tbl IN stlv_tbl_type) IS
825 BEGIN
826 okc_stl_pvt.delete_row(
827 p_api_version,
828 p_init_msg_list,
829 x_return_status,
830 x_msg_count,
831 x_msg_data,
832 p_stlv_tbl);
833 END delete_subclass_top_line;
834
835 PROCEDURE lock_subclass_top_line(
836 p_api_version IN NUMBER,
837 p_init_msg_list IN VARCHAR2 ,
838 x_return_status OUT NOCOPY VARCHAR2,
839 x_msg_count OUT NOCOPY NUMBER,
840 x_msg_data OUT NOCOPY VARCHAR2,
841 p_stlv_rec IN stlv_rec_type) IS
842 BEGIN
843 okc_stl_pvt.lock_row(
844 p_api_version,
845 p_init_msg_list,
846 x_return_status,
847 x_msg_count,
848 x_msg_data,
849 p_stlv_rec);
850 END lock_subclass_top_line;
851
852 PROCEDURE lock_subclass_top_line(
853 p_api_version IN NUMBER,
854 p_init_msg_list IN VARCHAR2 ,
855 x_return_status OUT NOCOPY VARCHAR2,
856 x_msg_count OUT NOCOPY NUMBER,
857 x_msg_data OUT NOCOPY VARCHAR2,
858 p_stlv_tbl IN stlv_tbl_type) IS
859 BEGIN
860 okc_stl_pvt.lock_row(
861 p_api_version,
862 p_init_msg_list,
863 x_return_status,
864 x_msg_count,
865 x_msg_data,
866 p_stlv_tbl);
867 END lock_subclass_top_line;
868
869 PROCEDURE validate_subclass_top_line(
870 p_api_version IN NUMBER,
871 p_init_msg_list IN VARCHAR2 ,
872 x_return_status OUT NOCOPY VARCHAR2,
873 x_msg_count OUT NOCOPY NUMBER,
874 x_msg_data OUT NOCOPY VARCHAR2,
875 p_stlv_rec IN stlv_rec_type) IS
876 BEGIN
877 okc_stl_pvt.validate_row(
878 p_api_version,
879 p_init_msg_list,
880 x_return_status,
881 x_msg_count,
882 x_msg_data,
883 p_stlv_rec);
884 END validate_subclass_top_line;
885
886 PROCEDURE validate_subclass_top_line(
887 p_api_version IN NUMBER,
888 p_init_msg_list IN VARCHAR2 ,
889 x_return_status OUT NOCOPY VARCHAR2,
890 x_msg_count OUT NOCOPY NUMBER,
891 x_msg_data OUT NOCOPY VARCHAR2,
892 p_stlv_tbl IN stlv_tbl_type) IS
893 BEGIN
894 okc_stl_pvt.validate_row(
895 p_api_version,
896 p_init_msg_list,
897 x_return_status,
898 x_msg_count,
899 x_msg_data,
900 p_stlv_tbl);
901 END validate_subclass_top_line;
902
903 PROCEDURE create_line_style_roles(
904 p_api_version IN NUMBER,
905 p_init_msg_list IN VARCHAR2 ,
906 x_return_status OUT NOCOPY VARCHAR2,
907 x_msg_count OUT NOCOPY NUMBER,
908 x_msg_data OUT NOCOPY VARCHAR2,
909 p_lsrv_rec IN lsrv_rec_type,
910 x_lsrv_rec OUT NOCOPY lsrv_rec_type) IS
911 BEGIN
912 okc_lsr_pvt.insert_row(
913 p_api_version,
914 p_init_msg_list,
915 x_return_status,
916 x_msg_count,
917 x_msg_data,
918 p_lsrv_rec,
919 x_lsrv_rec);
920 END create_line_style_roles;
921
922 PROCEDURE create_line_style_roles(
923 p_api_version IN NUMBER,
924 p_init_msg_list IN VARCHAR2 ,
925 x_return_status OUT NOCOPY VARCHAR2,
926 x_msg_count OUT NOCOPY NUMBER,
927 x_msg_data OUT NOCOPY VARCHAR2,
928 p_lsrv_tbl IN lsrv_tbl_type,
929 x_lsrv_tbl OUT NOCOPY lsrv_tbl_type) IS
930 BEGIN
931 okc_lsr_pvt.insert_row(
932 p_api_version,
933 p_init_msg_list,
934 x_return_status,
935 x_msg_count,
936 x_msg_data,
937 p_lsrv_tbl,
938 x_lsrv_tbl);
939 END create_line_style_roles;
940
941 PROCEDURE update_line_style_roles(
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_lsrv_rec IN lsrv_rec_type,
948 x_lsrv_rec OUT NOCOPY lsrv_rec_type) IS
949 BEGIN
950 okc_lsr_pvt.update_row(
951 p_api_version,
952 p_init_msg_list,
953 x_return_status,
954 x_msg_count,
955 x_msg_data,
956 p_lsrv_rec,
957 x_lsrv_rec);
958 END update_line_style_roles;
959
960 PROCEDURE update_line_style_roles(
961 p_api_version IN NUMBER,
962 p_init_msg_list IN VARCHAR2 ,
963 x_return_status OUT NOCOPY VARCHAR2,
964 x_msg_count OUT NOCOPY NUMBER,
965 x_msg_data OUT NOCOPY VARCHAR2,
966 p_lsrv_tbl IN lsrv_tbl_type,
967 x_lsrv_tbl OUT NOCOPY lsrv_tbl_type) IS
968 BEGIN
969 okc_lsr_pvt.update_row(
970 p_api_version,
971 p_init_msg_list,
972 x_return_status,
973 x_msg_count,
974 x_msg_data,
975 p_lsrv_tbl,
976 x_lsrv_tbl);
977 END update_line_style_roles;
978
979 PROCEDURE delete_line_style_roles(
980 p_api_version IN NUMBER,
981 p_init_msg_list IN VARCHAR2 ,
982 x_return_status OUT NOCOPY VARCHAR2,
983 x_msg_count OUT NOCOPY NUMBER,
984 x_msg_data OUT NOCOPY VARCHAR2,
985 p_lsrv_rec IN lsrv_rec_type) IS
986 BEGIN
987 okc_lsr_pvt.delete_row(
988 p_api_version,
989 p_init_msg_list,
990 x_return_status,
991 x_msg_count,
992 x_msg_data,
993 p_lsrv_rec);
994 END delete_line_style_roles;
995
996 PROCEDURE delete_line_style_roles(
997 p_api_version IN NUMBER,
998 p_init_msg_list IN VARCHAR2 ,
999 x_return_status OUT NOCOPY VARCHAR2,
1000 x_msg_count OUT NOCOPY NUMBER,
1001 x_msg_data OUT NOCOPY VARCHAR2,
1002 p_lsrv_tbl IN lsrv_tbl_type) IS
1003 BEGIN
1004 okc_lsr_pvt.delete_row(
1005 p_api_version,
1006 p_init_msg_list,
1007 x_return_status,
1008 x_msg_count,
1009 x_msg_data,
1010 p_lsrv_tbl);
1011 END delete_line_style_roles;
1012
1013 PROCEDURE lock_line_style_roles(
1014 p_api_version IN NUMBER,
1015 p_init_msg_list IN VARCHAR2 ,
1016 x_return_status OUT NOCOPY VARCHAR2,
1017 x_msg_count OUT NOCOPY NUMBER,
1018 x_msg_data OUT NOCOPY VARCHAR2,
1019 p_lsrv_rec IN lsrv_rec_type) IS
1020 BEGIN
1021 okc_lsr_pvt.lock_row(
1022 p_api_version,
1023 p_init_msg_list,
1024 x_return_status,
1025 x_msg_count,
1026 x_msg_data,
1027 p_lsrv_rec);
1028 END lock_line_style_roles;
1029
1030 PROCEDURE lock_line_style_roles(
1031 p_api_version IN NUMBER,
1032 p_init_msg_list IN VARCHAR2 ,
1033 x_return_status OUT NOCOPY VARCHAR2,
1034 x_msg_count OUT NOCOPY NUMBER,
1035 x_msg_data OUT NOCOPY VARCHAR2,
1036 p_lsrv_tbl IN lsrv_tbl_type) IS
1037 BEGIN
1038 okc_lsr_pvt.lock_row(
1039 p_api_version,
1040 p_init_msg_list,
1041 x_return_status,
1042 x_msg_count,
1043 x_msg_data,
1044 p_lsrv_tbl);
1045 END lock_line_style_roles;
1046
1047 PROCEDURE validate_line_style_roles(
1048 p_api_version IN NUMBER,
1049 p_init_msg_list IN VARCHAR2 ,
1050 x_return_status OUT NOCOPY VARCHAR2,
1051 x_msg_count OUT NOCOPY NUMBER,
1052 x_msg_data OUT NOCOPY VARCHAR2,
1053 p_lsrv_rec IN lsrv_rec_type) IS
1054 BEGIN
1055 okc_lsr_pvt.validate_row(
1056 p_api_version,
1057 p_init_msg_list,
1058 x_return_status,
1059 x_msg_count,
1060 x_msg_data,
1061 p_lsrv_rec);
1062 END validate_line_style_roles;
1063
1064 PROCEDURE validate_line_style_roles(
1065 p_api_version IN NUMBER,
1066 p_init_msg_list IN VARCHAR2 ,
1067 x_return_status OUT NOCOPY VARCHAR2,
1068 x_msg_count OUT NOCOPY NUMBER,
1069 x_msg_data OUT NOCOPY VARCHAR2,
1070 p_lsrv_tbl IN lsrv_tbl_type) IS
1071 BEGIN
1072 okc_lsr_pvt.validate_row(
1073 p_api_version,
1074 p_init_msg_list,
1075 x_return_status,
1076 x_msg_count,
1077 x_msg_data,
1078 p_lsrv_tbl);
1079 END validate_line_style_roles;
1080
1081 PROCEDURE create_lse_rule_groups(
1082 p_api_version IN NUMBER,
1083 p_init_msg_list IN VARCHAR2 ,
1084 x_return_status OUT NOCOPY VARCHAR2,
1085 x_msg_count OUT NOCOPY NUMBER,
1086 x_msg_data OUT NOCOPY VARCHAR2,
1087 p_lrgv_rec IN lrgv_rec_type,
1088 x_lrgv_rec OUT NOCOPY lrgv_rec_type) IS
1089 BEGIN
1090 okc_lrg_pvt.insert_row(
1091 p_api_version,
1092 p_init_msg_list,
1093 x_return_status,
1094 x_msg_count,
1095 x_msg_data,
1096 p_lrgv_rec,
1097 x_lrgv_rec);
1098 END create_lse_rule_groups;
1099
1100 PROCEDURE create_lse_rule_groups(
1101 p_api_version IN NUMBER,
1102 p_init_msg_list IN VARCHAR2 ,
1103 x_return_status OUT NOCOPY VARCHAR2,
1104 x_msg_count OUT NOCOPY NUMBER,
1105 x_msg_data OUT NOCOPY VARCHAR2,
1106 p_lrgv_tbl IN lrgv_tbl_type,
1107 x_lrgv_tbl OUT NOCOPY lrgv_tbl_type) IS
1108 BEGIN
1109 okc_lrg_pvt.insert_row(
1110 p_api_version,
1111 p_init_msg_list,
1112 x_return_status,
1113 x_msg_count,
1114 x_msg_data,
1115 p_lrgv_tbl,
1116 x_lrgv_tbl);
1117 END create_lse_rule_groups;
1118
1119 PROCEDURE update_lse_rule_groups(
1120 p_api_version IN NUMBER,
1121 p_init_msg_list IN VARCHAR2 ,
1122 x_return_status OUT NOCOPY VARCHAR2,
1123 x_msg_count OUT NOCOPY NUMBER,
1124 x_msg_data OUT NOCOPY VARCHAR2,
1125 p_lrgv_rec IN lrgv_rec_type,
1126 x_lrgv_rec OUT NOCOPY lrgv_rec_type) IS
1127 BEGIN
1128 okc_lrg_pvt.update_row(
1129 p_api_version,
1130 p_init_msg_list,
1131 x_return_status,
1132 x_msg_count,
1133 x_msg_data,
1134 p_lrgv_rec,
1135 x_lrgv_rec);
1136 END update_lse_rule_groups;
1137
1138 PROCEDURE update_lse_rule_groups(
1139 p_api_version IN NUMBER,
1140 p_init_msg_list IN VARCHAR2 ,
1141 x_return_status OUT NOCOPY VARCHAR2,
1142 x_msg_count OUT NOCOPY NUMBER,
1143 x_msg_data OUT NOCOPY VARCHAR2,
1144 p_lrgv_tbl IN lrgv_tbl_type,
1145 x_lrgv_tbl OUT NOCOPY lrgv_tbl_type) IS
1146 BEGIN
1147 okc_lrg_pvt.update_row(
1148 p_api_version,
1149 p_init_msg_list,
1150 x_return_status,
1151 x_msg_count,
1152 x_msg_data,
1153 p_lrgv_tbl,
1154 x_lrgv_tbl);
1155 END update_lse_rule_groups;
1156
1157 PROCEDURE delete_lse_rule_groups(
1158 p_api_version IN NUMBER,
1159 p_init_msg_list IN VARCHAR2 ,
1160 x_return_status OUT NOCOPY VARCHAR2,
1161 x_msg_count OUT NOCOPY NUMBER,
1162 x_msg_data OUT NOCOPY VARCHAR2,
1163 p_lrgv_rec IN lrgv_rec_type) IS
1164 BEGIN
1165 okc_lrg_pvt.delete_row(
1166 p_api_version,
1167 p_init_msg_list,
1168 x_return_status,
1169 x_msg_count,
1170 x_msg_data,
1171 p_lrgv_rec);
1172 END delete_lse_rule_groups;
1173
1174 PROCEDURE delete_lse_rule_groups(
1175 p_api_version IN NUMBER,
1176 p_init_msg_list IN VARCHAR2 ,
1177 x_return_status OUT NOCOPY VARCHAR2,
1178 x_msg_count OUT NOCOPY NUMBER,
1179 x_msg_data OUT NOCOPY VARCHAR2,
1180 p_lrgv_tbl IN lrgv_tbl_type) IS
1181 BEGIN
1182 okc_lrg_pvt.delete_row(
1183 p_api_version,
1184 p_init_msg_list,
1185 x_return_status,
1186 x_msg_count,
1187 x_msg_data,
1188 p_lrgv_tbl);
1189 END delete_lse_rule_groups;
1190
1191 PROCEDURE lock_lse_rule_groups(
1192 p_api_version IN NUMBER,
1193 p_init_msg_list IN VARCHAR2 ,
1194 x_return_status OUT NOCOPY VARCHAR2,
1195 x_msg_count OUT NOCOPY NUMBER,
1196 x_msg_data OUT NOCOPY VARCHAR2,
1197 p_lrgv_rec IN lrgv_rec_type) IS
1198 BEGIN
1199 okc_lrg_pvt.lock_row(
1200 p_api_version,
1201 p_init_msg_list,
1202 x_return_status,
1203 x_msg_count,
1204 x_msg_data,
1205 p_lrgv_rec);
1206 END lock_lse_rule_groups;
1207
1208 PROCEDURE lock_lse_rule_groups(
1209 p_api_version IN NUMBER,
1210 p_init_msg_list IN VARCHAR2 ,
1211 x_return_status OUT NOCOPY VARCHAR2,
1212 x_msg_count OUT NOCOPY NUMBER,
1213 x_msg_data OUT NOCOPY VARCHAR2,
1214 p_lrgv_tbl IN lrgv_tbl_type) IS
1215 BEGIN
1216 okc_lrg_pvt.lock_row(
1217 p_api_version,
1218 p_init_msg_list,
1219 x_return_status,
1220 x_msg_count,
1221 x_msg_data,
1222 p_lrgv_tbl);
1223 END lock_lse_rule_groups;
1224
1225 PROCEDURE validate_lse_rule_groups(
1226 p_api_version IN NUMBER,
1227 p_init_msg_list IN VARCHAR2 ,
1228 x_return_status OUT NOCOPY VARCHAR2,
1229 x_msg_count OUT NOCOPY NUMBER,
1230 x_msg_data OUT NOCOPY VARCHAR2,
1231 p_lrgv_rec IN lrgv_rec_type) IS
1232 BEGIN
1233 okc_lrg_pvt.validate_row(
1234 p_api_version,
1235 p_init_msg_list,
1236 x_return_status,
1237 x_msg_count,
1238 x_msg_data,
1239 p_lrgv_rec);
1240 END validate_lse_rule_groups;
1241
1242 PROCEDURE validate_lse_rule_groups(
1243 p_api_version IN NUMBER,
1244 p_init_msg_list IN VARCHAR2 ,
1245 x_return_status OUT NOCOPY VARCHAR2,
1246 x_msg_count OUT NOCOPY NUMBER,
1247 x_msg_data OUT NOCOPY VARCHAR2,
1248 p_lrgv_tbl IN lrgv_tbl_type) IS
1249 BEGIN
1250 okc_lrg_pvt.validate_row(
1251 p_api_version,
1252 p_init_msg_list,
1253 x_return_status,
1254 x_msg_count,
1255 x_msg_data,
1256 p_lrgv_tbl);
1257 END validate_lse_rule_groups;
1258
1259 PROCEDURE create_subclass_resps(
1260 p_api_version IN NUMBER,
1261 p_init_msg_list IN VARCHAR2 ,
1262 x_return_status OUT NOCOPY VARCHAR2,
1263 x_msg_count OUT NOCOPY NUMBER,
1264 x_msg_data OUT NOCOPY VARCHAR2,
1265 p_srav_rec IN srav_rec_type,
1266 x_srav_rec OUT NOCOPY srav_rec_type) IS
1267 BEGIN
1268 okc_sra_pvt.insert_row(
1269 p_api_version,
1270 p_init_msg_list,
1271 x_return_status,
1272 x_msg_count,
1273 x_msg_data,
1274 p_srav_rec,
1275 x_srav_rec);
1276 END create_subclass_resps;
1277
1278 PROCEDURE create_subclass_resps(
1279 p_api_version IN NUMBER,
1280 p_init_msg_list IN VARCHAR2 ,
1281 x_return_status OUT NOCOPY VARCHAR2,
1282 x_msg_count OUT NOCOPY NUMBER,
1283 x_msg_data OUT NOCOPY VARCHAR2,
1284 p_srav_tbl IN srav_tbl_type,
1285 x_srav_tbl OUT NOCOPY srav_tbl_type) IS
1286 BEGIN
1287 okc_sra_pvt.insert_row(
1288 p_api_version,
1289 p_init_msg_list,
1290 x_return_status,
1291 x_msg_count,
1292 x_msg_data,
1293 p_srav_tbl,
1294 x_srav_tbl);
1295 END create_subclass_resps;
1296
1297 PROCEDURE update_subclass_resps(
1298 p_api_version IN NUMBER,
1299 p_init_msg_list IN VARCHAR2 ,
1300 x_return_status OUT NOCOPY VARCHAR2,
1301 x_msg_count OUT NOCOPY NUMBER,
1302 x_msg_data OUT NOCOPY VARCHAR2,
1303 p_srav_rec IN srav_rec_type,
1304 x_srav_rec OUT NOCOPY srav_rec_type) IS
1305 BEGIN
1306 okc_sra_pvt.update_row(
1307 p_api_version,
1308 p_init_msg_list,
1309 x_return_status,
1310 x_msg_count,
1311 x_msg_data,
1312 p_srav_rec,
1313 x_srav_rec);
1314 END update_subclass_resps;
1315
1316 PROCEDURE update_subclass_resps(
1317 p_api_version IN NUMBER,
1318 p_init_msg_list IN VARCHAR2 ,
1319 x_return_status OUT NOCOPY VARCHAR2,
1320 x_msg_count OUT NOCOPY NUMBER,
1321 x_msg_data OUT NOCOPY VARCHAR2,
1322 p_srav_tbl IN srav_tbl_type,
1323 x_srav_tbl OUT NOCOPY srav_tbl_type) IS
1324 BEGIN
1325 okc_sra_pvt.update_row(
1326 p_api_version,
1327 p_init_msg_list,
1328 x_return_status,
1329 x_msg_count,
1330 x_msg_data,
1331 p_srav_tbl,
1332 x_srav_tbl);
1333 END update_subclass_resps;
1334
1335 PROCEDURE delete_subclass_resps(
1336 p_api_version IN NUMBER,
1337 p_init_msg_list IN VARCHAR2 ,
1338 x_return_status OUT NOCOPY VARCHAR2,
1339 x_msg_count OUT NOCOPY NUMBER,
1340 x_msg_data OUT NOCOPY VARCHAR2,
1341 p_srav_rec IN srav_rec_type) IS
1342 BEGIN
1343 okc_sra_pvt.delete_row(
1344 p_api_version,
1345 p_init_msg_list,
1346 x_return_status,
1347 x_msg_count,
1348 x_msg_data,
1349 p_srav_rec);
1350 END delete_subclass_resps;
1351
1352 PROCEDURE delete_subclass_resps(
1353 p_api_version IN NUMBER,
1354 p_init_msg_list IN VARCHAR2 ,
1355 x_return_status OUT NOCOPY VARCHAR2,
1356 x_msg_count OUT NOCOPY NUMBER,
1357 x_msg_data OUT NOCOPY VARCHAR2,
1358 p_srav_tbl IN srav_tbl_type) IS
1359 BEGIN
1360 okc_sra_pvt.delete_row(
1361 p_api_version,
1362 p_init_msg_list,
1363 x_return_status,
1364 x_msg_count,
1365 x_msg_data,
1366 p_srav_tbl);
1367 END delete_subclass_resps;
1368
1369 PROCEDURE lock_subclass_resps(
1370 p_api_version IN NUMBER,
1371 p_init_msg_list IN VARCHAR2 ,
1372 x_return_status OUT NOCOPY VARCHAR2,
1373 x_msg_count OUT NOCOPY NUMBER,
1374 x_msg_data OUT NOCOPY VARCHAR2,
1375 p_srav_rec IN srav_rec_type) IS
1376 BEGIN
1377 okc_sra_pvt.lock_row(
1378 p_api_version,
1379 p_init_msg_list,
1380 x_return_status,
1381 x_msg_count,
1382 x_msg_data,
1383 p_srav_rec);
1384 END lock_subclass_resps;
1385
1386 PROCEDURE lock_subclass_resps(
1387 p_api_version IN NUMBER,
1388 p_init_msg_list IN VARCHAR2 ,
1389 x_return_status OUT NOCOPY VARCHAR2,
1390 x_msg_count OUT NOCOPY NUMBER,
1391 x_msg_data OUT NOCOPY VARCHAR2,
1392 p_srav_tbl IN srav_tbl_type) IS
1393 BEGIN
1394 okc_sra_pvt.lock_row(
1395 p_api_version,
1396 p_init_msg_list,
1397 x_return_status,
1398 x_msg_count,
1399 x_msg_data,
1400 p_srav_tbl);
1401 END lock_subclass_resps;
1402
1403 PROCEDURE validate_subclass_resps(
1404 p_api_version IN NUMBER,
1405 p_init_msg_list IN VARCHAR2 ,
1406 x_return_status OUT NOCOPY VARCHAR2,
1407 x_msg_count OUT NOCOPY NUMBER,
1408 x_msg_data OUT NOCOPY VARCHAR2,
1409 p_srav_rec IN srav_rec_type) IS
1410 BEGIN
1411 okc_sra_pvt.validate_row(
1412 p_api_version,
1413 p_init_msg_list,
1414 x_return_status,
1415 x_msg_count,
1416 x_msg_data,
1417 p_srav_rec);
1418 END validate_subclass_resps;
1419
1420 PROCEDURE validate_subclass_resps(
1421 p_api_version IN NUMBER,
1422 p_init_msg_list IN VARCHAR2 ,
1423 x_return_status OUT NOCOPY VARCHAR2,
1424 x_msg_count OUT NOCOPY NUMBER,
1425 x_msg_data OUT NOCOPY VARCHAR2,
1426 p_srav_tbl IN srav_tbl_type) IS
1427 BEGIN
1428 okc_sra_pvt.validate_row(
1429 p_api_version,
1430 p_init_msg_list,
1431 x_return_status,
1432 x_msg_count,
1433 x_msg_data,
1434 p_srav_tbl);
1435 END validate_subclass_resps;
1436
1437 /*
1438 ------------------------------------------------------------------------
1439 | This API will copy One category to another one. |
1440 | |
1441 |This will copy all the category related informations from foll. views |
1442 | OKC_SUBCLASSES_V |
1443 | OKC_SUBCLASS_ROLES_V |
1444 | OKC_SUBCLASS_RG_DEFS_V |
1445 | OKC_RG_ROLE_DEFS_V |
1446 | OKC_SUBCLASS_TOP_LINE_V |
1447 | OKC_LINE_STYLE_ROLES_V |
1448 | OKC_LSE_ROLE_GROUPS_V |
1449 | OKC_SUBCLASS_RESPS_V |
1450 | OKC_ASSENST_V -- Status and Operation |
1451 | |
1452 |In parameters : |
1453 |p_copy_from_scs_code ==> Category to be copied. |
1454 |p_new_scs_name ==> Name of new category |
1455 |p_new_scs_desc ==> Desc of new category |
1456 | |
1457 |Out Parameter : |
1458 |x_scsv_rec ==> New subclass Record |
1459 ------------------------------------------------------------------------
1460 */
1461
1462 PROCEDURE copy_category(
1463 p_api_version IN NUMBER,
1464 p_init_msg_list IN VARCHAR2 ,
1465 x_return_status OUT NOCOPY VARCHAR2,
1466 x_msg_count OUT NOCOPY NUMBER,
1467 x_msg_data OUT NOCOPY VARCHAR2,
1468 p_copy_from_scs_code IN VARCHAR2,
1469 p_new_scs_name IN VARCHAR2,
1470 p_new_scs_desc IN VARCHAR2,
1471 x_scsv_rec OUT NOCOPY scsv_rec_type) IS
1472
1473
1474 /* Cursor to get existing Subclass Information */
1475
1476 CURSOR c_get_sublass(b_scs_code varchar2) IS
1477 SELECT
1478 cls_code,
1479 meaning ,
1480 description,
1481 start_date,
1482 end_date ,
1483 create_opp_yn ,
1484 access_level
1485 FROM okc_subclasses_v
1486 WHERE code=b_scs_code;
1487
1488 /* Cursor to get existing Subclass Role Information */
1489
1490 CURSOR c_get_scs_role(b_scs_code varchar2) IS
1491 SELECT
1492 id,
1493 rle_code ,
1494 scs_code ,
1495 start_date ,
1496 end_date ,
1497 access_level
1498 FROM okc_subclass_roles_v
1499 WHERE scs_code=b_scs_code;
1500
1501 /* Cursor to get existing Subclass Rule Group Information */
1502 CURSOR c_get_scs_rg_defs(b_scs_code varchar2)IS
1503 SELECT
1504 id,
1505 rgd_code,
1506 scs_code,
1507 start_date,
1508 end_date,
1509 access_level
1510 FROM okc_subclass_rg_defs_v
1511 WHERE scs_code=b_scs_code;
1512
1513 /* Cursor to get existing Subclass Rule Group Role Information */
1514
1515 CURSOR c_get_rg_role_defs(b_scs_code varchar2)IS
1516 SELECT
1517 srd_id,
1518 sre_id,
1519 subject_object_flag,
1520 optional_yn,
1521 attribute_category,
1522 attribute1,
1523 attribute2,
1524 attribute3,
1525 attribute4,
1526 attribute5,
1527 attribute6,
1528 attribute7,
1529 attribute8,
1530 attribute9,
1531 attribute10,
1532 attribute11,
1533 attribute12,
1534 attribute13,
1535 attribute14,
1536 attribute15,
1537 access_level
1538 FROM okc_rg_role_defs_v
1539 WHERE srd_id IN
1540 ( SELECT id FROM okc_subclass_rg_defs_v WHERE scs_code=b_scs_code)
1541 AND sre_id IN
1542 (SELECT id FROM okc_subclass_roles_v WHERE scs_code=b_scs_code);
1543
1544
1545 /* Cursor to get existing Subclass Top Line Information */
1546
1547 CURSOR c_get_subclass_top_line(b_scs_code varchar2)IS
1548 SELECT
1549 lse_id,
1550 scs_code,
1551 start_date,
1552 end_date,
1553 access_level
1554 FROM okc_subclass_top_line_v
1555 WHERE scs_code=b_scs_code;
1556
1557
1558 /* Cursor to get existing Subclass Top Line Role Information */
1559
1560 CURSOR c_get_LINE_STYLE_ROLES(b_scs_code varchar2)IS
1561 SELECT
1562 lse_id,
1563 sre_id,
1564 access_level
1565 FROM OKC_LINE_STYLE_ROLES_v
1566 WHERE sre_id IN
1567 (SELECT id FROM okc_subclass_roles_v WHERE scs_code=b_scs_code);
1568
1569
1570 /* Cursor to get existing Subclass Top Line Rule Group Information */
1571
1572 CURSOR c_get_LSE_RULE_GROUPS(b_scs_code varchar2)IS
1573 SELECT
1574 lse_id,
1575 srd_id,
1576 access_level
1577 FROM OKC_LSE_RULE_GROUPS_v
1578 WHERE srd_id IN
1579 ( SELECT id FROM okc_subclass_rg_defs_v WHERE scs_code=b_scs_code);
1580
1581
1582 /* Cursor to get existing Subclass Responsibility Information */
1583
1584 CURSOR c_get_subclass_resps(b_scs_code varchar2)IS
1585 SELECT
1586 resp_id,
1587 scs_code,
1588 access_level,
1589 start_date,
1590 end_date
1591 FROM OKC_subclass_resps_v
1592 WHERE scs_code=b_scs_code;
1593
1594
1595 /* Cursor to get existing Subclass Status and Operation Information */
1596
1597 CURSOR c_get_assents(b_scs_code varchar2) IS
1598 SELECT
1599 sts_code,
1600 opn_code,
1601 ste_code,
1602 scs_code,
1603 allowed_yn ,
1604 attribute_category ,
1605 attribute1,
1606 attribute2,
1607 attribute3,
1608 attribute4,
1609 attribute5,
1610 attribute6,
1611 attribute7,
1612 attribute8,
1613 attribute9,
1614 attribute10,
1615 attribute11,
1616 attribute12,
1617 attribute13,
1618 attribute14,
1619 attribute15
1620 FROM okc_assents_v
1621 WHERE scs_code=b_scs_code;
1622
1623
1624 TYPE srd_relationship_type IS RECORD (
1625 old_srd_id NUMBER,
1626 new_srd_id NUMBER);
1627
1628 TYPE srd_relationship_tbl_type IS TABLE OF srd_relationship_type INDEX BY BINARY_INTEGER;
1629
1630 srd_relationship_tbl srd_relationship_tbl_type; -- table to store Relationship betwen old and New SRD Id.
1631
1632 TYPE sre_relationship_type IS RECORD (
1633 old_sre_id NUMBER,
1634 new_sre_id NUMBER);
1635
1636 TYPE sre_relationship_tbl_type IS TABLE OF sre_relationship_type INDEX BY BINARY_INTEGER;
1637
1638 sre_relationship_tbl sre_relationship_tbl_type; -- Table to store Information between Old and New SRE id.
1639
1640 l_scsv_rec scsv_rec_type;
1641 lx_scsv_rec scsv_rec_type;
1642
1643 l_srev_tbl srev_tbl_type;
1644 lx_srev_tbl srev_tbl_type;
1645
1646 l_srdv_tbl srdv_tbl_type;
1647 lx_srdv_tbl srdv_tbl_type;
1648
1649 l_rrdv_tbl rrdv_tbl_type;
1650 lx_rrdv_tbl rrdv_tbl_type;
1651
1652 l_stlv_tbl stlv_tbl_type;
1653 lx_stlv_tbl stlv_tbl_type;
1654
1655 l_lsrv_tbl lsrv_tbl_type;
1656 lx_lsrv_tbl lsrv_tbl_type;
1657
1658 l_lrgv_tbl lrgv_tbl_type;
1659 lx_lrgv_tbl lrgv_tbl_type;
1660
1661 l_srav_tbl srav_tbl_type;
1662 lx_srav_tbl srav_tbl_type;
1663
1664 l_astv_tbl okc_ast_pvt.astv_tbl_type ;
1665 lx_astv_tbl okc_ast_pvt.astv_tbl_type ;
1666
1667
1668 l_return_status VARCHAR2(1);
1669 l_cnt Number := 0;
1670
1671 l_scs_role c_get_scs_role%ROWTYPE;
1672 l_scs_rg_defs c_get_scs_rg_defs%ROWTYPE;
1673 l_rg_role_defs c_get_rg_role_defs%ROWTYPE;
1674 l_subclass_top_line c_get_subclass_top_line%ROWTYPE;
1675 l_line_style_roles c_get_line_style_roles%ROWTYPE;
1676 l_lse_rule_groups c_get_lse_rule_groups%ROWTYPE;
1677 l_subclass_resps c_get_subclass_resps%ROWTYPE;
1678 l_assents c_get_assents %ROWTYPE;
1679
1680
1681 /* Start Function to get New SRD id from PL/SQL table for old SRD id */
1682
1683 FUNCTION get_new_srd_id (
1684 p_old_srd_id IN Number,
1685 p_srd_relationship_tbl srd_relationship_tbl_type
1686 ) RETURN number IS
1687
1688 l_new_srd_id number := 0;
1689
1690 BEGIN
1691
1692
1693 FOR i in p_srd_relationship_tbl.FIRST..p_srd_relationship_tbl.LAST LOOP
1694
1695 IF p_srd_relationship_tbl(i).old_srd_id = p_old_srd_id THEN
1696
1697 l_new_srd_id := p_srd_relationship_tbl(i).new_srd_id ;
1698 EXIT;
1699
1700 END IF;
1701
1702 END LOOP;
1703
1704 return l_new_srd_id;
1705 END;
1706
1707 /* End : Function to get New SRD id from PL/SQL table for old SRD id */
1708
1709
1710
1711 /* Start Function to get New SRE id from PL/SQL table for old SRE id */
1712
1713 FUNCTION get_new_sre_id (
1714 p_old_sre_id IN Number,
1715 p_sre_relationship_tbl sre_relationship_tbl_type
1716 ) RETURN number IS
1717
1718 l_new_sre_id number := 0;
1719
1720 BEGIN
1721
1722 FOR i in p_sre_relationship_tbl.FIRST..p_sre_relationship_tbl.LAST LOOP
1723
1724 IF p_sre_relationship_tbl(i).old_sre_id = p_old_sre_id THEN
1725 l_new_sre_id := p_sre_relationship_tbl(i).new_sre_id ;
1726 EXIT;
1727 END IF;
1728
1729 END LOOP;
1730
1731 return l_new_sre_id;
1732 END;
1733
1734 /* End : Function to get New SRE id from PL/SQL table for old SRE id */
1735
1736 BEGIN
1737
1738 IF (l_debug = 'Y') THEN
1739 OKC_DEBUG.log('1000 : Starting OKC_SUBCLASS_PVT.Copy_category ', 2);
1740 END IF;
1741
1742 sre_relationship_tbl.delete;
1743 srd_relationship_tbl.delete;
1744
1745 /* Start Copying Subclass Header */
1746
1747 OPEN c_get_sublass(p_copy_from_scs_code);
1748
1749 FETCH c_get_sublass into l_scsv_rec.cls_code,
1750 l_scsv_rec.meaning,
1751 l_scsv_rec.description ,
1752 l_scsv_rec.start_date,
1753 l_scsv_rec.end_date,
1754 l_scsv_rec.create_opp_yn,
1755 l_scsv_rec.access_level;
1756
1757 l_scsv_rec.start_date := trunc(sysdate); -- Start date for new Category will be todays date.
1758 l_scsv_rec.end_date := null;
1759
1760 l_scsv_rec.meaning := p_new_scs_name;
1761 l_scsv_rec.description := p_new_scs_desc;
1762
1763 ClOSE c_get_sublass;
1764
1765 IF (l_debug = 'Y') THEN
1766 OKC_DEBUG.log('1003 : Calling OKC_SUBCLASS_PVT.create_subclass ', 2);
1767 END IF;
1768
1769 create_subclass(
1770 p_api_version => p_api_version ,
1771 p_init_msg_list => p_init_msg_list,
1772 x_return_status => l_return_status,
1773 x_msg_count => x_msg_count,
1774 x_msg_data => x_msg_data,
1775 p_scsv_rec => l_scsv_rec,
1776 x_scsv_rec => lx_scsv_rec);
1777
1778 IF (l_debug = 'Y') THEN
1779 OKC_DEBUG.log('1004 : Exit OKC_SUBCLASS_PVT.create_subclass '||l_return_status, 2);
1780 END IF;
1781
1782 IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1783 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1784 x_return_status := l_return_status;
1785 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1786 ELSE
1787 x_return_status := l_return_status;
1788 RAISE FND_API.G_EXC_ERROR;
1789 END IF;
1790 END IF;
1791
1792 /* End Copying Subclass Header */
1793
1794
1795 /* Start : Copying Subclass Party Role */
1796
1797 l_srev_tbl.delete;
1798 lx_srev_tbl.delete;
1799 l_cnt := 0;
1800
1801 OPEN c_get_scs_role(p_copy_from_scs_code);
1802 LOOP
1803
1804 FETCH c_get_scs_role INTO l_scs_role;
1805
1806
1807 EXIT WHEN c_get_scs_role%NOTFOUND;
1808 l_cnt := l_cnt + 1;
1809
1810 sre_relationship_tbl(l_cnt).old_sre_id := l_scs_role.id; -- Population SRE relationship table with existing SRE ID
1811
1812 l_srev_tbl(l_cnt).rle_code := l_scs_role.rle_code;
1813 l_srev_tbl(l_cnt).end_date := null;
1814 l_srev_tbl(l_cnt).access_level := l_scs_role.access_level;
1815 l_srev_tbl(l_cnt).scs_code := lx_scsv_rec.code;
1816 l_srev_tbl(l_cnt).start_date := trunc(sysdate);
1817
1818 END LOOP;
1819 CLOSE c_get_scs_role;
1820
1821 IF l_cnt > 0 Then
1822
1823 IF (l_debug = 'Y') THEN
1824 OKC_DEBUG.log('1007 : Calling OKC_SUBCLASS_PVT.create_subclass_roles ', 2);
1825 END IF;
1826
1827 create_subclass_roles(
1828 p_api_version => p_api_version,
1829 p_init_msg_list => p_init_msg_list,
1830 x_return_status => l_return_status,
1831 x_msg_count => x_msg_count,
1832 x_msg_data => x_msg_data,
1833 p_srev_tbl => l_srev_tbl,
1834 x_srev_tbl => lx_srev_tbl);
1835
1836 IF (l_debug = 'Y') THEN
1837 OKC_DEBUG.log('1008 : Exit OKC_SUBCLASS_PVT.create_subclass_roles '||l_return_status, 2);
1838 END IF;
1839
1840 IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1841 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1842 x_return_status := l_return_status;
1843 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1844 ELSE
1845 x_return_status := l_return_status;
1846 RAISE FND_API.G_EXC_ERROR;
1847 END IF;
1848 END IF;
1849
1850
1851 IF sre_relationship_tbl.count > 0 then
1852 FOR i in sre_relationship_tbl.FIRST..sre_relationship_tbl.LAST LOOP
1853 sre_relationship_tbl(i).new_sre_id := lx_srev_tbl(i).id; -- Populating SRE relationship table with new SRE Id.
1854 END LOOP;
1855 END IF;
1856 END IF;
1857
1858 /* End : Copying Subclass Party Role */
1859
1860 /* Start : Copying Subclass Rule Group */
1861
1862 l_srdv_tbl.delete;
1863 lx_srdv_tbl.delete;
1864 l_cnt := 0;
1865
1866 OPEN c_get_scs_rg_defs(p_copy_from_scs_code );
1867 LOOP
1868
1869 FETCH c_get_scs_rg_defs INTO l_scs_rg_defs;
1870
1871
1872 EXIT WHEN c_get_scs_rg_defs%NOTFOUND;
1873 l_cnt := l_cnt + 1;
1874
1875 srd_relationship_tbl(l_cnt).old_srd_id := l_scs_rg_defs.id; -- Populating SRD relationship table with existing SRD ID
1876
1877
1878 l_srdv_tbl(l_cnt).rgd_code := l_scs_rg_defs.rgd_code;
1879 l_srdv_tbl(l_cnt).end_date := null;
1880 l_srdv_tbl(l_cnt).access_level := l_scs_rg_defs.access_level;
1881 l_srdv_tbl(l_cnt).scs_code := lx_scsv_rec.code;
1882 l_srdv_tbl(l_cnt).start_date := trunc(sysdate);
1883
1884 END LOOP;
1885 CLOSE c_get_scs_rg_defs;
1886
1887 IF l_cnt > 0 Then
1888
1889 IF (l_debug = 'Y') THEN
1890 OKC_DEBUG.log('1009 : Calling OKC_SUBCLASS_PVT.create_subclass_rg_defs ', 2);
1891 END IF;
1892
1893 create_subclass_rg_defs(
1894 p_api_version => p_api_version,
1895 p_init_msg_list => p_init_msg_list,
1896 x_return_status => l_return_status,
1897 x_msg_count => x_msg_count,
1898 x_msg_data => x_msg_data,
1899 p_srdv_tbl => l_srdv_tbl,
1900 x_srdv_tbl => lx_srdv_tbl);
1901
1902 IF (l_debug = 'Y') THEN
1903 OKC_DEBUG.log('1010 : Exit OKC_SUBCLASS_PVT.create_subclass_rg_defs '||l_return_status, 2);
1904 END IF;
1905
1906 IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1907 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1908 x_return_status := l_return_status;
1909 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1910 ELSE
1911 x_return_status := l_return_status;
1912 RAISE FND_API.G_EXC_ERROR;
1913 END IF;
1914 END IF;
1915
1916 IF srd_relationship_tbl.count > 0 then
1917 FOR i in srd_relationship_tbl.FIRST..srd_relationship_tbl.LAST LOOP
1918 srd_relationship_tbl(i).new_srd_id := lx_srdv_tbl(i).id; -- Populating SRD relationship table with New SRD Id.
1919 END LOOP;
1920 END IF;
1921
1922 END IF;
1923
1924 /* End : Copying Subclass Rule Group */
1925
1926
1927 /* Start : Copying Subclass Rule Group Role */
1928
1929 l_rrdv_tbl.delete;
1930 lx_rrdv_tbl.delete;
1931 l_cnt := 0;
1932
1933 OPEN c_get_rg_role_defs(p_copy_from_scs_code);
1934 LOOP
1935
1936 FETCH c_get_rg_role_defs INTO l_rg_role_defs;
1937
1938
1939 EXIT WHEN c_get_rg_role_defs%NOTFOUND;
1940 l_cnt := l_cnt + 1;
1941
1942 l_rrdv_tbl(l_cnt).srd_id := l_rg_role_defs.srd_id;
1943 l_rrdv_tbl(l_cnt).sre_id := l_rg_role_defs.sre_id;
1944 l_rrdv_tbl(l_cnt).subject_object_flag := l_rg_role_defs.subject_object_flag;
1945 l_rrdv_tbl(l_cnt).optional_yn := l_rg_role_defs.optional_yn;
1946 l_rrdv_tbl(l_cnt).attribute_category := l_rg_role_defs.attribute_category;
1947 l_rrdv_tbl(l_cnt).attribute1 := l_rg_role_defs.attribute1;
1948 l_rrdv_tbl(l_cnt).attribute2 := l_rg_role_defs.attribute2;
1949 l_rrdv_tbl(l_cnt).attribute3 := l_rg_role_defs.attribute3;
1950 l_rrdv_tbl(l_cnt).attribute4 := l_rg_role_defs.attribute4;
1951 l_rrdv_tbl(l_cnt).attribute5 := l_rg_role_defs.attribute5;
1952 l_rrdv_tbl(l_cnt).attribute6 := l_rg_role_defs.attribute6;
1953 l_rrdv_tbl(l_cnt).attribute7 := l_rg_role_defs.attribute7;
1954 l_rrdv_tbl(l_cnt).attribute8 := l_rg_role_defs.attribute8;
1955 l_rrdv_tbl(l_cnt).attribute9 := l_rg_role_defs.attribute9;
1956 l_rrdv_tbl(l_cnt).attribute10 := l_rg_role_defs.attribute10;
1957 l_rrdv_tbl(l_cnt).attribute11 := l_rg_role_defs.attribute11;
1958 l_rrdv_tbl(l_cnt).attribute12 := l_rg_role_defs.attribute12;
1959 l_rrdv_tbl(l_cnt).attribute13 := l_rg_role_defs.attribute13;
1960 l_rrdv_tbl(l_cnt).attribute14 := l_rg_role_defs.attribute14;
1961 l_rrdv_tbl(l_cnt).attribute15 := l_rg_role_defs.attribute15;
1962 l_rrdv_tbl(l_cnt).access_level := l_rg_role_defs.access_level;
1963
1964 l_rrdv_tbl(l_cnt).srd_id := get_new_srd_id(l_rrdv_tbl(l_cnt).srd_id,srd_relationship_tbl);
1965 l_rrdv_tbl(l_cnt).sre_id := get_new_sre_id(l_rrdv_tbl(l_cnt).sre_id,sre_relationship_tbl);
1966
1967
1968 END LOOP;
1969 CLOSE c_get_rg_role_defs;
1970
1971 IF l_cnt > 0 Then
1972
1973 IF (l_debug = 'Y') THEN
1974 OKC_DEBUG.log('1011 : Calling OKC_SUBCLASS_PVT.create_rg_role_defs ', 2);
1975 END IF;
1976
1977 create_rg_role_defs(
1978 p_api_version => p_api_version,
1979 p_init_msg_list => p_init_msg_list,
1980 x_return_status => l_return_status,
1981 x_msg_count => x_msg_count,
1982 x_msg_data => x_msg_data,
1983 p_rrdv_tbl => l_rrdv_tbl,
1984 x_rrdv_tbl => lx_rrdv_tbl);
1985
1986 IF (l_debug = 'Y') THEN
1987 OKC_DEBUG.log('1012 : Exit OKC_SUBCLASS_PVT.create_rg_role_defs '||l_return_status, 2);
1988 END IF;
1989
1990 IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1991
1992 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1993
1994 x_return_status := l_return_status;
1995 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1996 ELSE
1997 x_return_status := l_return_status;
1998 RAISE FND_API.G_EXC_ERROR;
1999 END IF;
2000 END IF;
2001
2002 END IF;
2003
2004 /* End : Copying Subclass Rule Group Role */
2005
2006
2007 /* Start : Copying Subclass Top Line Styles */
2008
2009 l_stlv_tbl.delete;
2010 lx_stlv_tbl.delete;
2011 l_cnt := 0;
2012
2013 OPEN c_get_subclass_top_line(p_copy_from_scs_code );
2014 LOOP
2015
2016 FETCH c_get_subclass_top_line INTO l_subclass_top_line;
2017
2018 EXIT WHEN c_get_subclass_top_line%NOTFOUND;
2019 l_cnt := l_cnt + 1;
2020
2021 l_stlv_tbl(l_cnt).lse_id := l_subclass_top_line.lse_id;
2022 l_stlv_tbl(l_cnt).end_date := null;
2023 l_stlv_tbl(l_cnt).access_level := l_subclass_top_line.access_level;
2024 l_stlv_tbl(l_cnt).scs_code := lx_scsv_rec.code;
2025 l_stlv_tbl(l_cnt).start_date := trunc(sysdate);
2026
2027 END LOOP;
2028 CLOSE c_get_subclass_top_line;
2029
2030 IF l_cnt > 0 Then
2031
2032 IF (l_debug = 'Y') THEN
2033 OKC_DEBUG.log('1013 : Calling OKC_SUBCLASS_PVT.create_subclass_top_line ', 2);
2034 END IF;
2035
2036 create_subclass_top_line(
2037 p_api_version => p_api_version,
2038 p_init_msg_list => p_init_msg_list,
2039 x_return_status => l_return_status,
2040 x_msg_count => x_msg_count,
2041 x_msg_data => x_msg_data,
2042 p_stlv_tbl => l_stlv_tbl,
2043 x_stlv_tbl => lx_stlv_tbl);
2044
2045 IF (l_debug = 'Y') THEN
2046 OKC_DEBUG.log('1014 : Exit OKC_SUBCLASS_PVT.create_subclass_top_line '||l_return_status, 2);
2047 END IF;
2048
2049 IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2050
2051 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2052 x_return_status := l_return_status;
2053 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2054 ELSE
2055 x_return_status := l_return_status;
2056 RAISE FND_API.G_EXC_ERROR;
2057 END IF;
2058 END IF;
2059
2060 END IF;
2061
2062 /* End : Copying Subclass Top Line Styles */
2063
2064
2065
2066 /* Start : Copying Subclass Line Style Role */
2067
2068 l_lsrv_tbl.delete;
2069 lx_lsrv_tbl.delete;
2070 l_cnt := 0;
2071
2072 OPEN c_get_line_style_roles(p_copy_from_scs_code );
2073 LOOP
2074
2075 FETCH c_get_line_style_roles INTO l_line_style_roles;
2076
2077
2078 EXIT WHEN c_get_line_style_roles%NOTFOUND;
2079 l_cnt := l_cnt + 1;
2080
2081 l_lsrv_tbl(l_cnt).lse_id := l_line_style_roles.lse_id;
2082 l_lsrv_tbl(l_cnt).sre_id := l_line_style_roles.sre_id;
2083 l_lsrv_tbl(l_cnt).access_level := l_line_style_roles.access_level;
2084
2085 l_lsrv_tbl(l_cnt).sre_id := get_new_sre_id(l_lsrv_tbl(l_cnt).sre_id,sre_relationship_tbl);
2086
2087 END LOOP;
2088 CLOSE c_get_line_style_roles;
2089
2090 IF l_cnt > 0 Then
2091
2092 IF (l_debug = 'Y') THEN
2093 OKC_DEBUG.log('1015 : Calling OKC_SUBCLASS_PVT.create_line_style_roles ', 2);
2094 END IF;
2095
2096 create_line_style_roles(
2097 p_api_version => p_api_version,
2098 p_init_msg_list => p_init_msg_list,
2099 x_return_status => l_return_status,
2100 x_msg_count => x_msg_count,
2101 x_msg_data => x_msg_data,
2102 p_lsrv_tbl => l_lsrv_tbl,
2103 x_lsrv_tbl => lx_lsrv_tbl);
2104
2105 IF (l_debug = 'Y') THEN
2106 OKC_DEBUG.log('1016 : Exit OKC_SUBCLASS_PVT.create_line_style_roles '||l_return_status, 2);
2107 END IF;
2108
2109 IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2110
2111 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2112 x_return_status := l_return_status;
2113 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2114 ELSE
2115 x_return_status := l_return_status;
2116 RAISE FND_API.G_EXC_ERROR;
2117 END IF;
2118 END IF;
2119
2120 END IF;
2121
2122 /* End : Copying Subclass Line Style Role */
2123
2124
2125 /* Start : Copying Subclass Line Style Rule Group*/
2126
2127 l_lrgv_tbl.delete;
2128 lx_lrgv_tbl.delete;
2129 l_cnt := 0;
2130
2131 OPEN c_get_lse_rule_groups(p_copy_from_scs_code );
2132 LOOP
2133
2134 FETCH c_get_lse_rule_groups INTO l_lse_rule_groups;
2135
2136 EXIT WHEN c_get_lse_rule_groups%NOTFOUND;
2137 l_cnt := l_cnt + 1;
2138
2139 l_lrgv_tbl(l_cnt).lse_id := l_lse_rule_groups.lse_id;
2140 l_lrgv_tbl(l_cnt).srd_id := l_lse_rule_groups.srd_id;
2141 l_lrgv_tbl(l_cnt).access_level := l_lse_rule_groups.access_level;
2142
2143 l_lrgv_tbl(l_cnt).srd_id := get_new_srd_id(l_lrgv_tbl(l_cnt).srd_id,srd_relationship_tbl);
2144
2145 END LOOP;
2146 CLOSE c_get_lse_rule_groups;
2147
2148 IF l_cnt > 0 Then
2149
2150 IF (l_debug = 'Y') THEN
2151 OKC_DEBUG.log('1017 : Calling OKC_SUBCLASS_PVT.create_lse_rule_groups ', 2);
2152 END IF;
2153
2154 create_lse_rule_groups(
2155 p_api_version => p_api_version,
2156 p_init_msg_list => p_init_msg_list,
2157 x_return_status => l_return_status,
2158 x_msg_count => x_msg_count,
2159 x_msg_data => x_msg_data,
2160 p_lrgv_tbl => l_lrgv_tbl,
2161 x_lrgv_tbl => lx_lrgv_tbl);
2162
2163 IF (l_debug = 'Y') THEN
2164 OKC_DEBUG.log('1018 : Exit OKC_SUBCLASS_PVT.create_lse_rule_groups '||l_return_status, 2);
2165 END IF;
2166
2167 IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2168
2169 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2170
2171 x_return_status := l_return_status;
2172 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2173
2174 ELSE
2175 x_return_status := l_return_status;
2176 RAISE FND_API.G_EXC_ERROR;
2177
2178 END IF;
2179 END IF;
2180
2181 END IF;
2182
2183 /* End : Copying Subclass Line Style Rule Group*/
2184
2185
2186 /* Start : Copying Subclass Responsibility */
2187
2188 l_srav_tbl.delete;
2189 lx_srav_tbl.delete;
2190 l_cnt := 0;
2191
2192 OPEN c_get_subclass_resps(p_copy_from_scs_code );
2193 LOOP
2194 FETCH c_get_subclass_resps into l_subclass_resps;
2195
2196
2197 EXIT WHEN c_get_subclass_resps%NOTFOUND;
2198 l_cnt := l_cnt+1;
2199
2200 l_srav_tbl(l_cnt).resp_id := l_subclass_resps.resp_id;
2201 l_srav_tbl(l_cnt).access_level := l_subclass_resps.access_level;
2202 l_srav_tbl(l_cnt).end_date := null;
2203 l_srav_tbl(l_cnt).scs_code := lx_scsv_rec.code;
2204 l_srav_tbl(l_cnt).start_date := trunc(sysdate);
2205
2206 END LOOP;
2207 CLOSE c_get_subclass_resps;
2208
2209 IF l_cnt > 0 Then
2210
2211 IF (l_debug = 'Y') THEN
2212 OKC_DEBUG.log('1019 : Calling OKC_SUBCLASS_PVT.create_subclass_resps ', 2);
2213 END IF;
2214
2215 create_subclass_resps(
2216 p_api_version => p_api_version ,
2217 p_init_msg_list => p_init_msg_list,
2218 x_return_status => l_return_status,
2219 x_msg_count => x_msg_count,
2220 x_msg_data => x_msg_data,
2221 p_srav_tbl => l_srav_tbl,
2222 x_srav_tbl => lx_srav_tbl);
2223
2224 IF (l_debug = 'Y') THEN
2225 OKC_DEBUG.log('1020 : Exit OKC_SUBCLASS_PVT.create_subclass_resps '||l_return_status, 2);
2226 END IF;
2227
2228 IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2229
2230 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2231 x_return_status := l_return_status;
2232 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2233
2234 ELSE
2235 x_return_status := l_return_status;
2236 RAISE FND_API.G_EXC_ERROR;
2237
2238 END IF;
2239
2240 END IF;
2241 END IF;
2242
2243 /* End : Copying Subclass Responsibility */
2244
2245
2246 /* Start : Copying Status and Operation for category */
2247
2248 l_astv_tbl.delete;
2249 lx_astv_tbl.delete;
2250 l_cnt := 0;
2251
2252 OPEN c_get_assents(p_copy_from_scs_code);
2253 LOOP
2254 FETCH c_get_assents INTO l_assents;
2255
2256
2257 EXIT WHEN c_get_assents%NOTFOUND;
2258 l_cnt := l_cnt+1;
2259
2260 l_astv_tbl(l_cnt).sts_code := l_assents.sts_code;
2261 l_astv_tbl(l_cnt).opn_code := l_assents.opn_code;
2262 l_astv_tbl(l_cnt).ste_code := l_assents.ste_code;
2263 l_astv_tbl(l_cnt).allowed_yn := l_assents.allowed_yn;
2264 l_astv_tbl(l_cnt).attribute_category := l_assents.attribute_category;
2265 l_astv_tbl(l_cnt).attribute1 := l_assents.attribute1;
2266 l_astv_tbl(l_cnt).attribute2 := l_assents.attribute2;
2267 l_astv_tbl(l_cnt).attribute3 := l_assents.attribute3;
2268 l_astv_tbl(l_cnt).attribute4 := l_assents.attribute4;
2269 l_astv_tbl(l_cnt).attribute5 := l_assents.attribute5;
2270 l_astv_tbl(l_cnt).attribute6 := l_assents.attribute6;
2271 l_astv_tbl(l_cnt).attribute7 := l_assents.attribute7;
2272 l_astv_tbl(l_cnt).attribute8 := l_assents.attribute8;
2273 l_astv_tbl(l_cnt).attribute9 := l_assents.attribute9;
2274 l_astv_tbl(l_cnt).attribute10 := l_assents.attribute10;
2275 l_astv_tbl(l_cnt).attribute11 := l_assents.attribute11;
2276 l_astv_tbl(l_cnt).attribute12 := l_assents.attribute12;
2277 l_astv_tbl(l_cnt).attribute13 := l_assents.attribute13;
2278 l_astv_tbl(l_cnt).attribute14 := l_assents.attribute14;
2279 l_astv_tbl(l_cnt).attribute15 := l_assents.attribute15;
2280
2281 l_astv_tbl(l_cnt).scs_code := lx_scsv_rec.code;
2282
2283 END LOOP;
2284 CLOSE c_get_assents;
2285
2286 IF l_cnt > 0 Then
2287
2288 IF (l_debug = 'Y') THEN
2289 OKC_DEBUG.log('1021 : Calling OKC_ASSENT_PUB.create_assent ', 2);
2290 END IF;
2291
2292 OKC_ASSENT_PUB.create_assent(
2293 p_api_version => p_api_version ,
2294 p_init_msg_list => p_init_msg_list,
2295 x_return_status => l_return_status,
2296 x_msg_count => x_msg_count,
2297 x_msg_data => x_msg_data,
2298 p_astv_tbl => l_astv_tbl,
2299 x_astv_tbl => lx_astv_tbl);
2300
2301 IF (l_debug = 'Y') THEN
2302 OKC_DEBUG.log('1022 : Exit OKC_SUBCLASS_PVT.create_subclass_resps '||l_return_status, 2);
2303 END IF;
2304
2305 IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2306
2307 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2308 x_return_status := l_return_status;
2309 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2310 ELSE
2311 x_return_status := l_return_status;
2312 RAISE FND_API.G_EXC_ERROR;
2313 END IF;
2314 END IF;
2315
2316 END IF;
2317
2318 /* End : Copying Status and Operation for category */
2319
2320 x_return_status := OKC_API.G_RET_STS_SUCCESS;
2321 x_scsv_rec := lx_scsv_rec;
2322
2323 IF (l_debug = 'Y') THEN
2324 OKC_DEBUG.log('1050 : End OKC_SUBCLASS_PVT.Copy_category......Status '||x_return_status, 2);
2325 END IF;
2326
2327 EXCEPTION
2328
2329 WHEN FND_API.G_EXC_ERROR THEN
2330
2331 IF c_get_sublass%ISOPEN THEN
2332 CLOSE c_get_sublass;
2333 END IF;
2334
2335 IF c_get_scs_role%ISOPEN THEN
2336 CLOSE c_get_scs_role;
2337 END IF;
2338
2339 IF c_get_scs_rg_defs%ISOPEN THEN
2340 CLOSE c_get_scs_rg_defs;
2341 END IF;
2342
2343 IF c_get_rg_role_defs%ISOPEN THEN
2344 CLOSE c_get_rg_role_defs;
2345 END IF;
2346
2347 IF c_get_subclass_top_line%ISOPEN THEN
2348 CLOSE c_get_subclass_top_line;
2349 END IF;
2350
2351 IF c_get_line_style_roles%ISOPEN THEN
2352 CLOSE c_get_line_style_roles;
2353 END IF;
2354
2355 IF c_get_lse_rule_groups%ISOPEN THEN
2356 CLOSE c_get_lse_rule_groups;
2357 END IF;
2358
2359 IF c_get_subclass_resps%ISOPEN THEN
2360 CLOSE c_get_subclass_resps;
2361 END IF;
2362
2363 IF c_get_assents%ISOPEN THEN
2364 CLOSE c_get_assents;
2365 END IF;
2366
2367 x_return_status := FND_API.G_RET_STS_ERROR;
2368 IF (l_debug = 'Y') THEN
2369 OKC_DEBUG.log('1050 : End with Error...OKC_SUBCLASS_PVT.Copy_category......Status '||x_return_status, 2);
2370 END IF;
2371
2372
2373 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2374
2375 IF c_get_sublass%ISOPEN THEN
2376 CLOSE c_get_sublass;
2377 END IF;
2378
2379 IF c_get_scs_role%ISOPEN THEN
2380 CLOSE c_get_scs_role;
2381 END IF;
2382
2383 IF c_get_scs_rg_defs%ISOPEN THEN
2384 CLOSE c_get_scs_rg_defs;
2385 END IF;
2386
2387 IF c_get_rg_role_defs%ISOPEN THEN
2388 CLOSE c_get_rg_role_defs;
2389 END IF;
2390
2391 IF c_get_subclass_top_line%ISOPEN THEN
2392 CLOSE c_get_subclass_top_line;
2393 END IF;
2394
2395 IF c_get_line_style_roles%ISOPEN THEN
2396 CLOSE c_get_line_style_roles;
2397 END IF;
2398
2399 IF c_get_lse_rule_groups%ISOPEN THEN
2400 CLOSE c_get_lse_rule_groups;
2401 END IF;
2402
2403 IF c_get_subclass_resps%ISOPEN THEN
2404 CLOSE c_get_subclass_resps;
2405 END IF;
2406
2407 IF c_get_assents%ISOPEN THEN
2408 CLOSE c_get_assents;
2409 END IF;
2410
2411 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2412
2413 IF (l_debug = 'Y') THEN
2414 OKC_DEBUG.log('1050 : End with Unexpected Error...OKC_SUBCLASS_PVT.Copy_category......Status '||x_return_status, 2);
2415 END IF;
2416
2417 END;
2418 END okc_subclass_pvt;