[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.3 2005/09/14 02:34:52 vnanjang noship $ */
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 )
538
539 as
540 ddp_art_var_tbl okc_terms_multirec_grp.art_var_tbl_type;
541 ddindx binary_integer; indx binary_integer;
542 begin
543
544 -- copy data to the local IN or IN-OUT args, if any
545
546
547
548
549
550
551 okc_terms_multirec_grp_w.rosetta_table_copy_in_p5(ddp_art_var_tbl, p6_a0
552 , p6_a1
553 , p6_a2
554 , p6_a3
555 , p6_a4
556 , p6_a5
557 , p6_a6
558 , p6_a7
559 );
560
561
562
563
564
565 -- here's the delegated call to the old PL/SQL routine
566 okc_terms_multirec_grp.update_article_variable(p_api_version,
567 p_init_msg_list,
568 p_validation_level,
569 p_validate_commit,
570 p_validation_string,
571 p_commit,
572 ddp_art_var_tbl,
573 p_mode,
574 x_return_status,
575 x_msg_count,
576 x_msg_data);
577
578 -- copy data back from the local variables to OUT or IN-OUT args, if any
579
580
581
582
583
584
585
586
587
588
589 end;
590
591 procedure update_structure(p_api_version NUMBER
592 , p_init_msg_list VARCHAR2
593 , p_validation_level NUMBER
594 , p_validate_commit VARCHAR2
595 , p_validation_string VARCHAR2
596 , p_commit VARCHAR2
597 , p6_a0 JTF_VARCHAR2_TABLE_100
598 , p6_a1 JTF_NUMBER_TABLE
599 , p6_a2 JTF_NUMBER_TABLE
600 , p6_a3 JTF_NUMBER_TABLE
601 , p6_a4 JTF_VARCHAR2_TABLE_100
602 , p6_a5 JTF_VARCHAR2_TABLE_100
603 , p6_a6 JTF_NUMBER_TABLE
604 , x_return_status out nocopy VARCHAR2
605 , x_msg_count out nocopy NUMBER
606 , x_msg_data out nocopy VARCHAR2
607 )
608
609 as
610 ddp_structure_tbl okc_terms_multirec_grp.structure_tbl_type;
611 ddindx binary_integer; indx binary_integer;
612 begin
613
614 -- copy data to the local IN or IN-OUT args, if any
615
616
617
618
619
620
621 okc_terms_multirec_grp_w.rosetta_table_copy_in_p7(ddp_structure_tbl, p6_a0
622 , p6_a1
623 , p6_a2
624 , p6_a3
625 , p6_a4
626 , p6_a5
627 , p6_a6
628 );
629
630
631
632
633 -- here's the delegated call to the old PL/SQL routine
634 okc_terms_multirec_grp.update_structure(p_api_version,
635 p_init_msg_list,
636 p_validation_level,
637 p_validate_commit,
638 p_validation_string,
639 p_commit,
640 ddp_structure_tbl,
641 x_return_status,
642 x_msg_count,
643 x_msg_data);
644
645 -- copy data back from the local variables to OUT or IN-OUT args, if any
646
647
648
649
650
651
652
653
654
655 end;
656
657 procedure sync_doc_with_expert(p_api_version NUMBER
658 , p_init_msg_list VARCHAR2
659 , p_validate_commit VARCHAR2
660 , p_validation_string VARCHAR2
661 , p_commit VARCHAR2
662 , p_doc_type VARCHAR2
663 , p_doc_id NUMBER
664 , p_article_id_tbl JTF_NUMBER_TABLE
665 , p_mode VARCHAR2
666 , x_articles_dropped out nocopy NUMBER
667 , x_return_status out nocopy VARCHAR2
668 , x_msg_count out nocopy NUMBER
669 , x_msg_data out nocopy VARCHAR2
670 )
671
672 as
673 ddp_article_id_tbl okc_terms_multirec_grp.article_id_tbl_type;
674 ddindx binary_integer; indx binary_integer;
675 begin
676
677 -- copy data to the local IN or IN-OUT args, if any
678
679
680
681
682
683
684
685 okc_terms_multirec_grp_w.rosetta_table_copy_in_p8(ddp_article_id_tbl, p_article_id_tbl);
686
687
688
689
690
691
692 -- here's the delegated call to the old PL/SQL routine
693 okc_terms_multirec_grp.sync_doc_with_expert(p_api_version,
694 p_init_msg_list,
695 p_validate_commit,
696 p_validation_string,
697 p_commit,
698 p_doc_type,
699 p_doc_id,
700 ddp_article_id_tbl,
701 p_mode,
702 x_articles_dropped,
703 x_return_status,
704 x_msg_count,
705 x_msg_data);
706
707 -- copy data back from the local variables to OUT or IN-OUT args, if any
708
709
710
711
712
713
714
715
716
717
718
719
720 end;
721
722 procedure refresh_articles(p_api_version NUMBER
723 , p_init_msg_list VARCHAR2
724 , p_validate_commit VARCHAR2
725 , p_validation_string VARCHAR2
726 , p_commit VARCHAR2
727 , p_mode VARCHAR2
728 , p_doc_type VARCHAR2
729 , p_doc_id NUMBER
730 , p8_a0 JTF_NUMBER_TABLE
731 , p8_a1 JTF_NUMBER_TABLE
732 , p8_a2 JTF_NUMBER_TABLE
733 , x_return_status out nocopy VARCHAR2
734 , x_msg_count out nocopy NUMBER
735 , x_msg_data out nocopy VARCHAR2
736 )
737
738 as
739 ddp_article_tbl okc_terms_multirec_grp.article_tbl_type;
740 ddindx binary_integer; indx binary_integer;
741 begin
742
743 -- copy data to the local IN or IN-OUT args, if any
744
745
746
747
748
749
750
751
752 okc_terms_multirec_grp_w.rosetta_table_copy_in_p9(ddp_article_tbl, p8_a0
753 , p8_a1
754 , p8_a2
755 );
756
757
758
759
760 -- here's the delegated call to the old PL/SQL routine
761 okc_terms_multirec_grp.refresh_articles(p_api_version,
762 p_init_msg_list,
763 p_validate_commit,
764 p_validation_string,
765 p_commit,
766 p_mode,
767 p_doc_type,
768 p_doc_id,
769 ddp_article_tbl,
770 x_return_status,
771 x_msg_count,
772 x_msg_data);
773
774 -- copy data back from the local variables to OUT or IN-OUT args, if any
775
776
777
778
779
780
781
782
783
784
785
786 end;
787
788 procedure organize_layout(p_api_version NUMBER
789 , p_init_msg_list VARCHAR2
790 , p_validation_level NUMBER
791 , p_validate_commit VARCHAR2
792 , p_validation_string VARCHAR2
793 , p_commit VARCHAR2
794 , p6_a0 JTF_VARCHAR2_TABLE_100
795 , p6_a1 JTF_NUMBER_TABLE
796 , p_ref_point VARCHAR2
797 , p_doc_type VARCHAR2
798 , p_doc_id NUMBER
799 , p_to_object_type VARCHAR2
800 , p_to_object_id NUMBER
801 , x_return_status out nocopy VARCHAR2
802 , x_msg_count out nocopy NUMBER
803 , x_msg_data out nocopy VARCHAR2
804 )
805
806 as
807 ddp_organize_tbl okc_terms_multirec_grp.organize_tbl_type;
808 ddindx binary_integer; indx binary_integer;
809 begin
810
811 -- copy data to the local IN or IN-OUT args, if any
812
813
814
815
816
817
818 okc_terms_multirec_grp_w.rosetta_table_copy_in_p10(ddp_organize_tbl, p6_a0
819 , p6_a1
820 );
821
822
823
824
825
826
827
828
829
830 -- here's the delegated call to the old PL/SQL routine
831 okc_terms_multirec_grp.organize_layout(p_api_version,
832 p_init_msg_list,
833 p_validation_level,
834 p_validate_commit,
835 p_validation_string,
836 p_commit,
837 ddp_organize_tbl,
838 p_ref_point,
839 p_doc_type,
840 p_doc_id,
841 p_to_object_type,
842 p_to_object_id,
843 x_return_status,
844 x_msg_count,
845 x_msg_data);
846
847 -- copy data back from the local variables to OUT or IN-OUT args, if any
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862 end;
863
864
865 procedure rosetta_table_copy_in_p11(t out nocopy okc_terms_multirec_grp.merge_review_tbl_type, a0 JTF_VARCHAR2_TABLE_100
866 , a1 JTF_NUMBER_TABLE, a2 JTF_NUMBER_TABLE
867 ) as
868 ddindx binary_integer; indx binary_integer;
869 begin
870 if a0 is not null and a0.count > 0 then
871 if a0.count > 0 then
872 indx := a0.first;
873 ddindx := 1;
874 while true loop
875 t(ddindx).object_type := a0(indx);
876 t(ddindx).review_upld_terms_id := a1(indx);
877 t(ddindx).object_version_number := a2(indx);
878 ddindx := ddindx+1;
879 if a0.last =indx
880 then exit;
881 end if;
882 indx := a0.next(indx);
883 end loop;
884 end if;
885 end if;
886 end rosetta_table_copy_in_p11;
887
888 procedure merge_review_clauses(p_api_version NUMBER
889 , p_init_msg_list VARCHAR2
890 , p_validation_level NUMBER
891 , p_validate_commit VARCHAR2
892 , p_validation_string VARCHAR2
893 , p_commit VARCHAR2
894 , p6_a0 JTF_VARCHAR2_TABLE_100
895 , p6_a1 JTF_NUMBER_TABLE
896 , p6_a2 JTF_NUMBER_TABLE
897 , p_doc_type VARCHAR2
898 , p_doc_id NUMBER
899 , x_return_status out nocopy VARCHAR2
900 , x_msg_count out nocopy NUMBER
901 , x_msg_data out nocopy VARCHAR2
902 )
903
904 as
905 ddp_merge_review_clauses_tbl okc_terms_multirec_grp.merge_review_tbl_type;
906 ddindx binary_integer; indx binary_integer;
907 begin
908
909 -- copy data to the local IN or IN-OUT args, if any
910
911
912
913
914
915
916 okc_terms_multirec_grp_w.rosetta_table_copy_in_p11(ddp_merge_review_clauses_tbl, p6_a0
917 , p6_a1, p6_a2
918 );
919
920
921
922
923
924
925
926
927
928 -- here's the delegated call to the old PL/SQL routine
929 okc_terms_multirec_grp.merge_review_clauses(p_api_version,
930 p_init_msg_list,
931 p_validation_level,
932 p_validate_commit,
933 p_validation_string,
934 p_commit,
935 ddp_merge_review_clauses_tbl,
936 p_doc_type,
937 p_doc_id,
938 x_return_status,
939 x_msg_count,
940 x_msg_data);
941
942 -- copy data back from the local variables to OUT or IN-OUT args, if any
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957 end;
958
959 end okc_terms_multirec_grp_w;