[Home] [Help]
PACKAGE BODY: APPS.OKC_TERMS_MULTIREC_GRP_W
Source
1 package body okc_terms_multirec_grp_w as
2 /* $Header: OKCWMULB.pls 120.4 2011/12/09 13:58:31 serukull ship $ */
3
4 procedure rosetta_table_copy_in_p5(t out nocopy okc_terms_multirec_grp.art_var_tbl_type, a0 JTF_NUMBER_TABLE
5 , a1 JTF_VARCHAR2_TABLE_100
6 , a2 JTF_VARCHAR2_TABLE_100
7 , a3 JTF_VARCHAR2_TABLE_100
8 , a4 JTF_VARCHAR2_TABLE_100
9 , a5 JTF_VARCHAR2_TABLE_2000
10 , a6 JTF_NUMBER_TABLE
11 , a7 JTF_NUMBER_TABLE
12 ) as
13 ddindx binary_integer; indx binary_integer;
14 begin
15 if a0 is not null and a0.count > 0 then
16 if a0.count > 0 then
17 indx := a0.first;
18 ddindx := 1;
19 while true loop
20 t(ddindx).cat_id := a0(indx);
21 t(ddindx).variable_code := a1(indx);
22 t(ddindx).variable_type := a2(indx);
23 t(ddindx).external_yn := a3(indx);
24 t(ddindx).variable_value_id := a4(indx);
25 t(ddindx).variable_value := a5(indx);
26 t(ddindx).attribute_value_set_id := a6(indx);
27 t(ddindx).object_version_number := a7(indx);
28 ddindx := ddindx+1;
29 if a0.last =indx
30 then exit;
31 end if;
32 indx := a0.next(indx);
33 end loop;
34 end if;
35 end if;
36 end rosetta_table_copy_in_p5;
37 procedure rosetta_table_copy_out_p5(t okc_terms_multirec_grp.art_var_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
38 , a1 out nocopy JTF_VARCHAR2_TABLE_100
39 , a2 out nocopy JTF_VARCHAR2_TABLE_100
40 , a3 out nocopy JTF_VARCHAR2_TABLE_100
41 , a4 out nocopy JTF_VARCHAR2_TABLE_100
42 , a5 out nocopy JTF_VARCHAR2_TABLE_2000
43 , a6 out nocopy JTF_NUMBER_TABLE
44 , a7 out nocopy JTF_NUMBER_TABLE
45 ) as
46 ddindx binary_integer; indx binary_integer;
47 begin
48 if t is null or t.count = 0 then
49 a0 := JTF_NUMBER_TABLE();
50 a1 := JTF_VARCHAR2_TABLE_100();
51 a2 := JTF_VARCHAR2_TABLE_100();
52 a3 := JTF_VARCHAR2_TABLE_100();
53 a4 := JTF_VARCHAR2_TABLE_100();
54 a5 := JTF_VARCHAR2_TABLE_2000();
55 a6 := JTF_NUMBER_TABLE();
56 a7 := JTF_NUMBER_TABLE();
57 else
58 a0 := JTF_NUMBER_TABLE();
59 a1 := JTF_VARCHAR2_TABLE_100();
60 a2 := JTF_VARCHAR2_TABLE_100();
61 a3 := JTF_VARCHAR2_TABLE_100();
62 a4 := JTF_VARCHAR2_TABLE_100();
63 a5 := JTF_VARCHAR2_TABLE_2000();
64 a6 := JTF_NUMBER_TABLE();
65 a7 := JTF_NUMBER_TABLE();
66 if t.count > 0 then
67 a0.extend(t.count);
68 a1.extend(t.count);
69 a2.extend(t.count);
70 a3.extend(t.count);
71 a4.extend(t.count);
72 a5.extend(t.count);
73 a6.extend(t.count);
74 a7.extend(t.count);
75 ddindx := t.first;
76 indx := 1;
77 while true loop
78 a0(indx) := t(ddindx).cat_id;
79 a1(indx) := t(ddindx).variable_code;
80 a2(indx) := t(ddindx).variable_type;
81 a3(indx) := t(ddindx).external_yn;
82 a4(indx) := t(ddindx).variable_value_id;
83 a5(indx) := t(ddindx).variable_value;
84 a6(indx) := t(ddindx).attribute_value_set_id;
85 a7(indx) := t(ddindx).object_version_number;
86 indx := indx+1;
87 if t.last =ddindx
88 then exit;
89 end if;
90 ddindx := t.next(ddindx);
91 end loop;
92 end if;
93 end if;
94 end rosetta_table_copy_out_p5;
95
96 procedure rosetta_table_copy_in_p6(t out nocopy okc_terms_multirec_grp.kart_tbl_type, a0 JTF_NUMBER_TABLE
97 , a1 JTF_NUMBER_TABLE
98 , a2 JTF_NUMBER_TABLE
99 , a3 JTF_VARCHAR2_TABLE_2000
100 , a4 JTF_VARCHAR2_TABLE_100
101 , a5 JTF_NUMBER_TABLE
102 , a6 JTF_NUMBER_TABLE
103 ) as
104 ddindx binary_integer; indx binary_integer;
105 begin
106 if a0 is not null and a0.count > 0 then
107 if a0.count > 0 then
108 indx := a0.first;
109 ddindx := 1;
110 while true loop
111 t(ddindx).id := a0(indx);
112 t(ddindx).sav_sae_id := a1(indx);
113 t(ddindx).article_version_id := a2(indx);
114 t(ddindx).amendment_description := a3(indx);
115 t(ddindx).print_text_yn := a4(indx);
116 t(ddindx).ref_article_id := a5(indx);
117 t(ddindx).ref_article_version_id := a6(indx);
118 ddindx := ddindx+1;
119 if a0.last =indx
120 then exit;
121 end if;
122 indx := a0.next(indx);
123 end loop;
124 end if;
125 end if;
126 end rosetta_table_copy_in_p6;
127 procedure rosetta_table_copy_out_p6(t okc_terms_multirec_grp.kart_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
128 , a1 out nocopy JTF_NUMBER_TABLE
129 , a2 out nocopy JTF_NUMBER_TABLE
130 , a3 out nocopy JTF_VARCHAR2_TABLE_2000
131 , a4 out nocopy JTF_VARCHAR2_TABLE_100
132 , a5 out nocopy JTF_NUMBER_TABLE
133 , a6 out nocopy JTF_NUMBER_TABLE
134 ) as
135 ddindx binary_integer; indx binary_integer;
136 begin
137 if t is null or t.count = 0 then
138 a0 := JTF_NUMBER_TABLE();
139 a1 := JTF_NUMBER_TABLE();
140 a2 := JTF_NUMBER_TABLE();
141 a3 := JTF_VARCHAR2_TABLE_2000();
142 a4 := JTF_VARCHAR2_TABLE_100();
143 a5 := JTF_NUMBER_TABLE();
144 a6 := JTF_NUMBER_TABLE();
145 else
146 a0 := JTF_NUMBER_TABLE();
147 a1 := JTF_NUMBER_TABLE();
148 a2 := JTF_NUMBER_TABLE();
149 a3 := JTF_VARCHAR2_TABLE_2000();
150 a4 := JTF_VARCHAR2_TABLE_100();
151 a5 := JTF_NUMBER_TABLE();
152 a6 := JTF_NUMBER_TABLE();
153 if t.count > 0 then
154 a0.extend(t.count);
155 a1.extend(t.count);
156 a2.extend(t.count);
157 a3.extend(t.count);
158 a4.extend(t.count);
159 a5.extend(t.count);
160 a6.extend(t.count);
161 ddindx := t.first;
162 indx := 1;
163 while true loop
164 a0(indx) := t(ddindx).id;
165 a1(indx) := t(ddindx).sav_sae_id;
166 a2(indx) := t(ddindx).article_version_id;
167 a3(indx) := t(ddindx).amendment_description;
168 a4(indx) := t(ddindx).print_text_yn;
169 a5(indx) := t(ddindx).ref_article_id;
170 a6(indx) := t(ddindx).ref_article_version_id;
171 indx := indx+1;
172 if t.last =ddindx
173 then exit;
174 end if;
175 ddindx := t.next(ddindx);
176 end loop;
177 end if;
178 end if;
179 end rosetta_table_copy_out_p6;
180
181 procedure rosetta_table_copy_in_p7(t out nocopy okc_terms_multirec_grp.structure_tbl_type, a0 JTF_VARCHAR2_TABLE_100
182 , a1 JTF_NUMBER_TABLE
183 , a2 JTF_NUMBER_TABLE
184 , a3 JTF_NUMBER_TABLE
185 , a4 JTF_VARCHAR2_TABLE_100
186 , a5 JTF_VARCHAR2_TABLE_100
187 , a6 JTF_NUMBER_TABLE
188 ) as
189 ddindx binary_integer; indx binary_integer;
190 begin
191 if a0 is not null and a0.count > 0 then
192 if a0.count > 0 then
193 indx := a0.first;
194 ddindx := 1;
195 while true loop
196 t(ddindx).type := a0(indx);
197 t(ddindx).id := a1(indx);
198 t(ddindx).scn_id := a2(indx);
199 t(ddindx).display_sequence := a3(indx);
200 t(ddindx).label := a4(indx);
201 t(ddindx).mandatory_yn := a5(indx);
202 t(ddindx).object_version_number := a6(indx);
203 ddindx := ddindx+1;
204 if a0.last =indx
205 then exit;
206 end if;
207 indx := a0.next(indx);
208 end loop;
209 end if;
210 end if;
211 end rosetta_table_copy_in_p7;
212 procedure rosetta_table_copy_out_p7(t okc_terms_multirec_grp.structure_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
213 , a1 out nocopy JTF_NUMBER_TABLE
214 , a2 out nocopy JTF_NUMBER_TABLE
215 , a3 out nocopy JTF_NUMBER_TABLE
216 , a4 out nocopy JTF_VARCHAR2_TABLE_100
217 , a5 out nocopy JTF_VARCHAR2_TABLE_100
218 , a6 out nocopy JTF_NUMBER_TABLE
219 ) as
220 ddindx binary_integer; indx binary_integer;
221 begin
222 if t is null or t.count = 0 then
223 a0 := JTF_VARCHAR2_TABLE_100();
224 a1 := JTF_NUMBER_TABLE();
225 a2 := JTF_NUMBER_TABLE();
226 a3 := JTF_NUMBER_TABLE();
227 a4 := JTF_VARCHAR2_TABLE_100();
228 a5 := JTF_VARCHAR2_TABLE_100();
229 a6 := JTF_NUMBER_TABLE();
230 else
231 a0 := JTF_VARCHAR2_TABLE_100();
232 a1 := JTF_NUMBER_TABLE();
233 a2 := JTF_NUMBER_TABLE();
234 a3 := JTF_NUMBER_TABLE();
235 a4 := JTF_VARCHAR2_TABLE_100();
236 a5 := JTF_VARCHAR2_TABLE_100();
237 a6 := JTF_NUMBER_TABLE();
238 if t.count > 0 then
239 a0.extend(t.count);
240 a1.extend(t.count);
241 a2.extend(t.count);
242 a3.extend(t.count);
243 a4.extend(t.count);
244 a5.extend(t.count);
245 a6.extend(t.count);
246 ddindx := t.first;
247 indx := 1;
248 while true loop
249 a0(indx) := t(ddindx).type;
250 a1(indx) := t(ddindx).id;
251 a2(indx) := t(ddindx).scn_id;
252 a3(indx) := t(ddindx).display_sequence;
253 a4(indx) := t(ddindx).label;
254 a5(indx) := t(ddindx).mandatory_yn;
255 a6(indx) := t(ddindx).object_version_number;
256 indx := indx+1;
257 if t.last =ddindx
258 then exit;
259 end if;
260 ddindx := t.next(ddindx);
261 end loop;
262 end if;
263 end if;
264 end rosetta_table_copy_out_p7;
265
266 procedure rosetta_table_copy_in_p8(t out nocopy okc_terms_multirec_grp.article_id_tbl_type, a0 JTF_NUMBER_TABLE) as
267 ddindx binary_integer; indx binary_integer;
268 begin
269 if a0 is not null and a0.count > 0 then
270 if a0.count > 0 then
271 indx := a0.first;
272 ddindx := 1;
273 while true loop
274 t(ddindx) := a0(indx);
275 ddindx := ddindx+1;
276 if a0.last =indx
277 then exit;
278 end if;
279 indx := a0.next(indx);
280 end loop;
281 end if;
282 end if;
283 end rosetta_table_copy_in_p8;
284 procedure rosetta_table_copy_out_p8(t okc_terms_multirec_grp.article_id_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
285 ddindx binary_integer; indx binary_integer;
286 begin
287 if t is null or t.count = 0 then
288 a0 := JTF_NUMBER_TABLE();
289 else
290 a0 := JTF_NUMBER_TABLE();
291 if t.count > 0 then
292 a0.extend(t.count);
293 ddindx := t.first;
294 indx := 1;
295 while true loop
296 a0(indx) := t(ddindx);
297 indx := indx+1;
298 if t.last =ddindx
299 then exit;
300 end if;
301 ddindx := t.next(ddindx);
302 end loop;
303 end if;
304 end if;
305 end rosetta_table_copy_out_p8;
306
307 procedure rosetta_table_copy_in_p9(t out nocopy okc_terms_multirec_grp.article_tbl_type, a0 JTF_NUMBER_TABLE
308 , a1 JTF_NUMBER_TABLE
309 , a2 JTF_NUMBER_TABLE
310 ) as
311 ddindx binary_integer; indx binary_integer;
312 begin
313 if a0 is not null and a0.count > 0 then
314 if a0.count > 0 then
315 indx := a0.first;
316 ddindx := 1;
317 while true loop
318 t(ddindx).cat_id := a0(indx);
319 t(ddindx).article_version_id := a1(indx);
320 t(ddindx).ovn := a2(indx);
321 ddindx := ddindx+1;
322 if a0.last =indx
323 then exit;
324 end if;
325 indx := a0.next(indx);
326 end loop;
327 end if;
328 end if;
329 end rosetta_table_copy_in_p9;
330 procedure rosetta_table_copy_out_p9(t okc_terms_multirec_grp.article_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
331 , a1 out nocopy JTF_NUMBER_TABLE
332 , a2 out nocopy JTF_NUMBER_TABLE
333 ) as
334 ddindx binary_integer; indx binary_integer;
335 begin
336 if t is null or t.count = 0 then
337 a0 := JTF_NUMBER_TABLE();
338 a1 := JTF_NUMBER_TABLE();
339 a2 := JTF_NUMBER_TABLE();
340 else
341 a0 := JTF_NUMBER_TABLE();
342 a1 := JTF_NUMBER_TABLE();
343 a2 := JTF_NUMBER_TABLE();
344 if t.count > 0 then
345 a0.extend(t.count);
346 a1.extend(t.count);
347 a2.extend(t.count);
348 ddindx := t.first;
349 indx := 1;
350 while true loop
351 a0(indx) := t(ddindx).cat_id;
352 a1(indx) := t(ddindx).article_version_id;
353 a2(indx) := t(ddindx).ovn;
354 indx := indx+1;
355 if t.last =ddindx
356 then exit;
357 end if;
358 ddindx := t.next(ddindx);
359 end loop;
360 end if;
361 end if;
362 end rosetta_table_copy_out_p9;
363
364 procedure rosetta_table_copy_in_p10(t out nocopy okc_terms_multirec_grp.organize_tbl_type, a0 JTF_VARCHAR2_TABLE_100
365 , a1 JTF_NUMBER_TABLE
366 ) as
367 ddindx binary_integer; indx binary_integer;
368 begin
369 if a0 is not null and a0.count > 0 then
370 if a0.count > 0 then
371 indx := a0.first;
372 ddindx := 1;
373 while true loop
374 t(ddindx).object_type := a0(indx);
375 t(ddindx).id := a1(indx);
376 ddindx := ddindx+1;
377 if a0.last =indx
378 then exit;
379 end if;
380 indx := a0.next(indx);
381 end loop;
382 end if;
383 end if;
384 end rosetta_table_copy_in_p10;
385 procedure rosetta_table_copy_out_p10(t okc_terms_multirec_grp.organize_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
386 , a1 out nocopy JTF_NUMBER_TABLE
387 ) as
388 ddindx binary_integer; indx binary_integer;
389 begin
390 if t is null or t.count = 0 then
391 a0 := JTF_VARCHAR2_TABLE_100();
392 a1 := JTF_NUMBER_TABLE();
393 else
394 a0 := JTF_VARCHAR2_TABLE_100();
395 a1 := JTF_NUMBER_TABLE();
396 if t.count > 0 then
397 a0.extend(t.count);
398 a1.extend(t.count);
399 ddindx := t.first;
400 indx := 1;
401 while true loop
402 a0(indx) := t(ddindx).object_type;
403 a1(indx) := t(ddindx).id;
404 indx := indx+1;
405 if t.last =ddindx
406 then exit;
407 end if;
408 ddindx := t.next(ddindx);
409 end loop;
410 end if;
411 end if;
412 end rosetta_table_copy_out_p10;
413
414 procedure create_article(p_api_version NUMBER
415 , p_init_msg_list VARCHAR2
416 , p_mode VARCHAR2
417 , p_validation_level NUMBER
418 , p_validate_commit VARCHAR2
419 , p_validation_string VARCHAR2
420 , p_commit VARCHAR2
421 , p_ref_type VARCHAR2
422 , p_ref_id NUMBER
423 , p_doc_type VARCHAR2
424 , p_doc_id NUMBER
425 , p11_a0 JTF_NUMBER_TABLE
426 , p11_a1 JTF_NUMBER_TABLE
427 , p11_a2 JTF_NUMBER_TABLE
428 , p11_a3 JTF_VARCHAR2_TABLE_2000
429 , p11_a4 JTF_VARCHAR2_TABLE_100
430 , p11_a5 JTF_NUMBER_TABLE
431 , p11_a6 JTF_NUMBER_TABLE
432 , p12_a0 out nocopy JTF_NUMBER_TABLE
433 , p12_a1 out nocopy JTF_NUMBER_TABLE
434 , p12_a2 out nocopy JTF_NUMBER_TABLE
435 , p12_a3 out nocopy JTF_VARCHAR2_TABLE_2000
436 , p12_a4 out nocopy JTF_VARCHAR2_TABLE_100
437 , p12_a5 out nocopy JTF_NUMBER_TABLE
438 , p12_a6 out nocopy JTF_NUMBER_TABLE
439 , x_return_status out nocopy VARCHAR2
440 , x_msg_count out nocopy NUMBER
441 , x_msg_data out nocopy VARCHAR2
442 )
443
444 as
445 ddp_kart_tbl okc_terms_multirec_grp.kart_tbl_type;
446 ddx_kart_tbl okc_terms_multirec_grp.kart_tbl_type;
447 ddindx binary_integer; indx binary_integer;
448 begin
449
450 -- copy data to the local IN or IN-OUT args, if any
451
452
453
454
455
456
457
458
459
460
461
462 okc_terms_multirec_grp_w.rosetta_table_copy_in_p6(ddp_kart_tbl, p11_a0
463 , p11_a1
464 , p11_a2
465 , p11_a3
466 , p11_a4
467 , p11_a5
468 , p11_a6
469 );
470
471
472
473
474
475 -- here's the delegated call to the old PL/SQL routine
476 okc_terms_multirec_grp.create_article(p_api_version,
477 p_init_msg_list,
478 p_mode,
479 p_validation_level,
480 p_validate_commit,
481 p_validation_string,
482 p_commit,
483 p_ref_type,
484 p_ref_id,
485 p_doc_type,
486 p_doc_id,
487 ddp_kart_tbl,
488 ddx_kart_tbl,
489 x_return_status,
490 x_msg_count,
491 x_msg_data);
492
493 -- copy data back from the local variables to OUT or IN-OUT args, if any
494
495
496
497
498
499
500
501
502
503
504
505
506 okc_terms_multirec_grp_w.rosetta_table_copy_out_p6(ddx_kart_tbl, p12_a0
507 , p12_a1
508 , p12_a2
509 , p12_a3
510 , p12_a4
511 , p12_a5
512 , p12_a6
513 );
514
515
516
517 end;
518
519 procedure update_article_variable(p_api_version NUMBER
520 , p_init_msg_list VARCHAR2
521 , p_validation_level NUMBER
522 , p_validate_commit VARCHAR2
523 , p_validation_string VARCHAR2
524 , p_commit VARCHAR2
525 , p6_a0 JTF_NUMBER_TABLE
526 , p6_a1 JTF_VARCHAR2_TABLE_100
527 , p6_a2 JTF_VARCHAR2_TABLE_100
528 , p6_a3 JTF_VARCHAR2_TABLE_100
529 , p6_a4 JTF_VARCHAR2_TABLE_100
530 , p6_a5 JTF_VARCHAR2_TABLE_2000
531 , p6_a6 JTF_NUMBER_TABLE
532 , p6_a7 JTF_NUMBER_TABLE
533 , p_mode VARCHAR2
534 , x_return_status out nocopy VARCHAR2
535 , x_msg_count out nocopy NUMBER
536 , x_msg_data out nocopy VARCHAR2
537 , p_lock_terms_yn IN VARCHAR2
538 )
539
540 as
541 ddp_art_var_tbl okc_terms_multirec_grp.art_var_tbl_type;
542 ddindx binary_integer; indx binary_integer;
543 begin
544
545 -- copy data to the local IN or IN-OUT args, if any
546
547
548
549
550
551
552 okc_terms_multirec_grp_w.rosetta_table_copy_in_p5(ddp_art_var_tbl, p6_a0
553 , p6_a1
554 , p6_a2
555 , p6_a3
556 , p6_a4
557 , p6_a5
558 , p6_a6
559 , p6_a7
560 );
561
562
563
564
565
566 -- here's the delegated call to the old PL/SQL routine
567 okc_terms_multirec_grp.update_article_variable(p_api_version,
568 p_init_msg_list,
569 p_validation_level,
570 p_validate_commit,
571 p_validation_string,
572 p_commit,
573 ddp_art_var_tbl,
574 p_mode,
575 x_return_status,
576 x_msg_count,
577 x_msg_data,
578 p_lock_terms_yn);
579
580 -- copy data back from the local variables to OUT or IN-OUT args, if any
581
582
583
584
585
586
587
588
589
590
591 end;
592
593 procedure update_structure(p_api_version NUMBER
594 , p_init_msg_list VARCHAR2
595 , p_validation_level NUMBER
596 , p_validate_commit VARCHAR2
597 , p_validation_string VARCHAR2
598 , p_commit VARCHAR2
599 , p6_a0 JTF_VARCHAR2_TABLE_100
600 , p6_a1 JTF_NUMBER_TABLE
601 , p6_a2 JTF_NUMBER_TABLE
602 , p6_a3 JTF_NUMBER_TABLE
603 , p6_a4 JTF_VARCHAR2_TABLE_100
604 , p6_a5 JTF_VARCHAR2_TABLE_100
605 , p6_a6 JTF_NUMBER_TABLE
606 , x_return_status out nocopy VARCHAR2
607 , x_msg_count out nocopy NUMBER
608 , x_msg_data out nocopy VARCHAR2
609 )
610
611 as
612 ddp_structure_tbl okc_terms_multirec_grp.structure_tbl_type;
613 ddindx binary_integer; indx binary_integer;
614 begin
615
616 -- copy data to the local IN or IN-OUT args, if any
617
618
619
620
621
622
623 okc_terms_multirec_grp_w.rosetta_table_copy_in_p7(ddp_structure_tbl, p6_a0
624 , p6_a1
625 , p6_a2
626 , p6_a3
627 , p6_a4
628 , p6_a5
629 , p6_a6
630 );
631
632
633
634
635 -- here's the delegated call to the old PL/SQL routine
636 okc_terms_multirec_grp.update_structure(p_api_version,
637 p_init_msg_list,
638 p_validation_level,
639 p_validate_commit,
640 p_validation_string,
641 p_commit,
642 ddp_structure_tbl,
643 x_return_status,
644 x_msg_count,
645 x_msg_data);
646
647 -- copy data back from the local variables to OUT or IN-OUT args, if any
648
649
650
651
652
653
654
655
656
657 end;
658
659 procedure sync_doc_with_expert(p_api_version NUMBER
660 , p_init_msg_list VARCHAR2
661 , p_validate_commit VARCHAR2
662 , p_validation_string VARCHAR2
663 , p_commit VARCHAR2
664 , p_doc_type VARCHAR2
665 , p_doc_id NUMBER
666 , p_article_id_tbl JTF_NUMBER_TABLE
667 , p_mode VARCHAR2
668 , x_articles_dropped out nocopy NUMBER
669 , x_return_status out nocopy VARCHAR2
670 , x_msg_count out nocopy NUMBER
671 , x_msg_data out nocopy VARCHAR2
672 , p_lock_terms_yn IN VARCHAR2
673 )
674
675 as
676 ddp_article_id_tbl okc_terms_multirec_grp.article_id_tbl_type;
677 ddindx binary_integer; indx binary_integer;
678 begin
679
680 -- copy data to the local IN or IN-OUT args, if any
681
682
683
684
685
686
687
688 okc_terms_multirec_grp_w.rosetta_table_copy_in_p8(ddp_article_id_tbl, p_article_id_tbl);
689
690
691
692
693
694
695 -- here's the delegated call to the old PL/SQL routine
696 okc_terms_multirec_grp.sync_doc_with_expert(p_api_version,
697 p_init_msg_list,
698 p_validate_commit,
699 p_validation_string,
700 p_commit,
701 p_doc_type,
702 p_doc_id,
703 ddp_article_id_tbl,
704 p_mode,
705 x_articles_dropped,
706 x_return_status,
707 x_msg_count,
708 x_msg_data,
709 p_lock_terms_yn);
710
711 -- copy data back from the local variables to OUT or IN-OUT args, if any
712
713
714
715
716
717
718
719
720
721
722
723
724 end;
725
726 procedure refresh_articles(p_api_version NUMBER
727 , p_init_msg_list VARCHAR2
728 , p_validate_commit VARCHAR2
729 , p_validation_string VARCHAR2
730 , p_commit VARCHAR2
731 , p_mode VARCHAR2
732 , p_doc_type VARCHAR2
733 , p_doc_id NUMBER
734 , p8_a0 JTF_NUMBER_TABLE
735 , p8_a1 JTF_NUMBER_TABLE
736 , p8_a2 JTF_NUMBER_TABLE
737 , x_return_status out nocopy VARCHAR2
738 , x_msg_count out nocopy NUMBER
739 , x_msg_data out nocopy VARCHAR2
740 , p_lock_terms_yn IN VARCHAR2
741 )
742
743 as
744 ddp_article_tbl okc_terms_multirec_grp.article_tbl_type;
745 ddindx binary_integer; indx binary_integer;
746 begin
747
748 -- copy data to the local IN or IN-OUT args, if any
749
750
751
752
753
754
755
756
757 okc_terms_multirec_grp_w.rosetta_table_copy_in_p9(ddp_article_tbl, p8_a0
758 , p8_a1
759 , p8_a2
760 );
761
762
763
764
765 -- here's the delegated call to the old PL/SQL routine
766 okc_terms_multirec_grp.refresh_articles(p_api_version,
767 p_init_msg_list,
768 p_validate_commit,
769 p_validation_string,
770 p_commit,
771 p_mode,
772 p_doc_type,
773 p_doc_id,
774 ddp_article_tbl,
775 x_return_status,
776 x_msg_count,
777 x_msg_data,
778 p_lock_terms_yn);
779
780 -- copy data back from the local variables to OUT or IN-OUT args, if any
781
782
783
784
785
786
787
788
789
790
791
792 end;
793
794 procedure organize_layout(p_api_version NUMBER
795 , p_init_msg_list VARCHAR2
796 , p_validation_level NUMBER
797 , p_validate_commit VARCHAR2
798 , p_validation_string VARCHAR2
799 , p_commit VARCHAR2
800 , p6_a0 JTF_VARCHAR2_TABLE_100
801 , p6_a1 JTF_NUMBER_TABLE
802 , p_ref_point VARCHAR2
803 , p_doc_type VARCHAR2
804 , p_doc_id NUMBER
805 , p_to_object_type VARCHAR2
806 , p_to_object_id NUMBER
807 , x_return_status out nocopy VARCHAR2
808 , x_msg_count out nocopy NUMBER
809 , x_msg_data out nocopy VARCHAR2
810 )
811
812 as
813 ddp_organize_tbl okc_terms_multirec_grp.organize_tbl_type;
814 ddindx binary_integer; indx binary_integer;
815 begin
816
817 -- copy data to the local IN or IN-OUT args, if any
818
819
820
821
822
823
824 okc_terms_multirec_grp_w.rosetta_table_copy_in_p10(ddp_organize_tbl, p6_a0
825 , p6_a1
826 );
827
828
829
830
831
832
833
834
835
836 -- here's the delegated call to the old PL/SQL routine
837 okc_terms_multirec_grp.organize_layout(p_api_version,
838 p_init_msg_list,
839 p_validation_level,
840 p_validate_commit,
841 p_validation_string,
842 p_commit,
843 ddp_organize_tbl,
844 p_ref_point,
845 p_doc_type,
846 p_doc_id,
847 p_to_object_type,
848 p_to_object_id,
849 x_return_status,
850 x_msg_count,
851 x_msg_data);
852
853 -- copy data back from the local variables to OUT or IN-OUT args, if any
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868 end;
869
870
871 procedure rosetta_table_copy_in_p11(t out nocopy okc_terms_multirec_grp.merge_review_tbl_type, a0 JTF_VARCHAR2_TABLE_100
872 , a1 JTF_NUMBER_TABLE, a2 JTF_NUMBER_TABLE
873 ) as
874 ddindx binary_integer; indx binary_integer;
875 begin
876 if a0 is not null and a0.count > 0 then
877 if a0.count > 0 then
878 indx := a0.first;
879 ddindx := 1;
880 while true loop
881 t(ddindx).object_type := a0(indx);
882 t(ddindx).review_upld_terms_id := a1(indx);
883 t(ddindx).object_version_number := a2(indx);
884 ddindx := ddindx+1;
885 if a0.last =indx
886 then exit;
887 end if;
888 indx := a0.next(indx);
889 end loop;
890 end if;
891 end if;
892 end rosetta_table_copy_in_p11;
893
894 procedure merge_review_clauses(p_api_version NUMBER
895 , p_init_msg_list VARCHAR2
896 , p_validation_level NUMBER
897 , p_validate_commit VARCHAR2
898 , p_validation_string VARCHAR2
899 , p_commit VARCHAR2
900 , p6_a0 JTF_VARCHAR2_TABLE_100
901 , p6_a1 JTF_NUMBER_TABLE
902 , p6_a2 JTF_NUMBER_TABLE
903 , p_doc_type VARCHAR2
904 , p_doc_id NUMBER
905 , x_return_status out nocopy VARCHAR2
906 , x_msg_count out nocopy NUMBER
907 , x_msg_data out nocopy VARCHAR2
908 )
909
910 as
911 ddp_merge_review_clauses_tbl okc_terms_multirec_grp.merge_review_tbl_type;
912 ddindx binary_integer; indx binary_integer;
913 begin
914
915 -- copy data to the local IN or IN-OUT args, if any
916
917
918
919
920
921
922 okc_terms_multirec_grp_w.rosetta_table_copy_in_p11(ddp_merge_review_clauses_tbl, p6_a0
923 , p6_a1, p6_a2
924 );
925
926
927
928
929
930
931
932
933
934 -- here's the delegated call to the old PL/SQL routine
935 okc_terms_multirec_grp.merge_review_clauses(p_api_version,
936 p_init_msg_list,
937 p_validation_level,
938 p_validate_commit,
939 p_validation_string,
940 p_commit,
941 ddp_merge_review_clauses_tbl,
942 p_doc_type,
943 p_doc_id,
944 x_return_status,
945 x_msg_count,
946 x_msg_data);
947
948 -- copy data back from the local variables to OUT or IN-OUT args, if any
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963 end;
964
965 end okc_terms_multirec_grp_w;