[Home] [Help]
PACKAGE BODY: APPS.IBC_CITEM_RUNTIME_PUB_W
Source
1 package body ibc_citem_runtime_pub_w as
2 /* $Header: ibcwcirb.pls 120.1 2005/05/31 01:00:40 appldev $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return NULL; end if;
10 return d;
11 end;
12
13 procedure rosetta_table_copy_in_p0(t out nocopy ibc_citem_runtime_pub.rendition_file_name_tbl, a0 JTF_VARCHAR2_TABLE_300) as
14 ddindx binary_integer; indx binary_integer;
15 begin
16 if a0 is null then
17 t := null;
18 elsif a0.count = 0 then
19 t := ibc_citem_runtime_pub.rendition_file_name_tbl();
20 else
21 if a0.count > 0 then
22 t := ibc_citem_runtime_pub.rendition_file_name_tbl();
23 t.extend(a0.count);
24 indx := a0.first;
25 ddindx := 1;
26 while true loop
27 t(ddindx) := a0(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_p0;
37 procedure rosetta_table_copy_out_p0(t ibc_citem_runtime_pub.rendition_file_name_tbl, a0 out nocopy JTF_VARCHAR2_TABLE_300) as
38 ddindx binary_integer; indx binary_integer;
39 begin
40 if t is null then
41 a0 := null;
42 elsif t.count = 0 then
43 a0 := JTF_VARCHAR2_TABLE_300();
44 else
45 a0 := JTF_VARCHAR2_TABLE_300();
46 if t.count > 0 then
47 a0.extend(t.count);
48 ddindx := t.first;
49 indx := 1;
50 while true loop
51 a0(indx) := t(ddindx);
52 indx := indx+1;
53 if t.last =ddindx
54 then exit;
55 end if;
56 ddindx := t.next(ddindx);
57 end loop;
58 end if;
59 end if;
60 end rosetta_table_copy_out_p0;
61
62 procedure rosetta_table_copy_in_p1(t out nocopy ibc_citem_runtime_pub.rendition_file_id_tbl, a0 JTF_NUMBER_TABLE) as
63 ddindx binary_integer; indx binary_integer;
64 begin
65 if a0 is null then
66 t := null;
67 elsif a0.count = 0 then
68 t := ibc_citem_runtime_pub.rendition_file_id_tbl();
69 else
70 if a0.count > 0 then
71 t := ibc_citem_runtime_pub.rendition_file_id_tbl();
72 t.extend(a0.count);
73 indx := a0.first;
74 ddindx := 1;
75 while true loop
76 t(ddindx) := a0(indx);
77 ddindx := ddindx+1;
78 if a0.last =indx
79 then exit;
80 end if;
81 indx := a0.next(indx);
82 end loop;
83 end if;
84 end if;
85 end rosetta_table_copy_in_p1;
86 procedure rosetta_table_copy_out_p1(t ibc_citem_runtime_pub.rendition_file_id_tbl, a0 out nocopy JTF_NUMBER_TABLE) as
87 ddindx binary_integer; indx binary_integer;
88 begin
89 if t is null then
90 a0 := null;
91 elsif t.count = 0 then
92 a0 := JTF_NUMBER_TABLE();
93 else
94 a0 := JTF_NUMBER_TABLE();
95 if t.count > 0 then
96 a0.extend(t.count);
97 ddindx := t.first;
98 indx := 1;
99 while true loop
100 a0(indx) := t(ddindx);
101 indx := indx+1;
102 if t.last =ddindx
103 then exit;
104 end if;
105 ddindx := t.next(ddindx);
106 end loop;
107 end if;
108 end if;
109 end rosetta_table_copy_out_p1;
110
111 procedure rosetta_table_copy_in_p2(t out nocopy ibc_citem_runtime_pub.rendition_mime_type_tbl, a0 JTF_VARCHAR2_TABLE_100) as
112 ddindx binary_integer; indx binary_integer;
113 begin
114 if a0 is null then
115 t := null;
116 elsif a0.count = 0 then
117 t := ibc_citem_runtime_pub.rendition_mime_type_tbl();
118 else
119 if a0.count > 0 then
120 t := ibc_citem_runtime_pub.rendition_mime_type_tbl();
121 t.extend(a0.count);
122 indx := a0.first;
123 ddindx := 1;
124 while true loop
125 t(ddindx) := a0(indx);
126 ddindx := ddindx+1;
127 if a0.last =indx
128 then exit;
129 end if;
130 indx := a0.next(indx);
131 end loop;
132 end if;
133 end if;
134 end rosetta_table_copy_in_p2;
135 procedure rosetta_table_copy_out_p2(t ibc_citem_runtime_pub.rendition_mime_type_tbl, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
136 ddindx binary_integer; indx binary_integer;
137 begin
138 if t is null then
139 a0 := null;
140 elsif t.count = 0 then
141 a0 := JTF_VARCHAR2_TABLE_100();
142 else
143 a0 := JTF_VARCHAR2_TABLE_100();
144 if t.count > 0 then
145 a0.extend(t.count);
146 ddindx := t.first;
147 indx := 1;
148 while true loop
149 a0(indx) := t(ddindx);
150 indx := indx+1;
151 if t.last =ddindx
152 then exit;
153 end if;
154 ddindx := t.next(ddindx);
155 end loop;
156 end if;
157 end if;
158 end rosetta_table_copy_out_p2;
159
160 procedure rosetta_table_copy_in_p3(t out nocopy ibc_citem_runtime_pub.rendition_name_tbl, a0 JTF_VARCHAR2_TABLE_300) as
161 ddindx binary_integer; indx binary_integer;
162 begin
163 if a0 is null then
164 t := null;
165 elsif a0.count = 0 then
166 t := ibc_citem_runtime_pub.rendition_name_tbl();
167 else
168 if a0.count > 0 then
169 t := ibc_citem_runtime_pub.rendition_name_tbl();
170 t.extend(a0.count);
171 indx := a0.first;
172 ddindx := 1;
173 while true loop
174 t(ddindx) := a0(indx);
175 ddindx := ddindx+1;
176 if a0.last =indx
177 then exit;
178 end if;
179 indx := a0.next(indx);
180 end loop;
181 end if;
182 end if;
183 end rosetta_table_copy_in_p3;
184 procedure rosetta_table_copy_out_p3(t ibc_citem_runtime_pub.rendition_name_tbl, a0 out nocopy JTF_VARCHAR2_TABLE_300) as
185 ddindx binary_integer; indx binary_integer;
186 begin
187 if t is null then
188 a0 := null;
189 elsif t.count = 0 then
190 a0 := JTF_VARCHAR2_TABLE_300();
191 else
192 a0 := JTF_VARCHAR2_TABLE_300();
193 if t.count > 0 then
194 a0.extend(t.count);
195 ddindx := t.first;
196 indx := 1;
197 while true loop
198 a0(indx) := t(ddindx);
199 indx := indx+1;
200 if t.last =ddindx
201 then exit;
202 end if;
203 ddindx := t.next(ddindx);
204 end loop;
205 end if;
206 end if;
207 end rosetta_table_copy_out_p3;
208
209 procedure rosetta_table_copy_in_p4(t out nocopy ibc_citem_runtime_pub.comp_item_attrib_tcode_tbl, a0 JTF_VARCHAR2_TABLE_100) as
210 ddindx binary_integer; indx binary_integer;
211 begin
212 if a0 is null then
213 t := null;
214 elsif a0.count = 0 then
215 t := ibc_citem_runtime_pub.comp_item_attrib_tcode_tbl();
216 else
217 if a0.count > 0 then
218 t := ibc_citem_runtime_pub.comp_item_attrib_tcode_tbl();
219 t.extend(a0.count);
220 indx := a0.first;
221 ddindx := 1;
222 while true loop
223 t(ddindx) := a0(indx);
224 ddindx := ddindx+1;
225 if a0.last =indx
226 then exit;
227 end if;
228 indx := a0.next(indx);
229 end loop;
230 end if;
231 end if;
232 end rosetta_table_copy_in_p4;
233 procedure rosetta_table_copy_out_p4(t ibc_citem_runtime_pub.comp_item_attrib_tcode_tbl, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
234 ddindx binary_integer; indx binary_integer;
235 begin
236 if t is null then
237 a0 := null;
238 elsif t.count = 0 then
239 a0 := JTF_VARCHAR2_TABLE_100();
240 else
241 a0 := JTF_VARCHAR2_TABLE_100();
242 if t.count > 0 then
243 a0.extend(t.count);
244 ddindx := t.first;
245 indx := 1;
246 while true loop
247 a0(indx) := t(ddindx);
248 indx := indx+1;
249 if t.last =ddindx
250 then exit;
251 end if;
252 ddindx := t.next(ddindx);
253 end loop;
254 end if;
255 end if;
256 end rosetta_table_copy_out_p4;
257
258 procedure rosetta_table_copy_in_p5(t out nocopy ibc_citem_runtime_pub.comp_item_citem_id_tbl, a0 JTF_NUMBER_TABLE) as
259 ddindx binary_integer; indx binary_integer;
260 begin
261 if a0 is null then
262 t := null;
263 elsif a0.count = 0 then
264 t := ibc_citem_runtime_pub.comp_item_citem_id_tbl();
265 else
266 if a0.count > 0 then
267 t := ibc_citem_runtime_pub.comp_item_citem_id_tbl();
268 t.extend(a0.count);
269 indx := a0.first;
270 ddindx := 1;
271 while true loop
272 t(ddindx) := a0(indx);
273 ddindx := ddindx+1;
274 if a0.last =indx
275 then exit;
276 end if;
277 indx := a0.next(indx);
278 end loop;
279 end if;
280 end if;
281 end rosetta_table_copy_in_p5;
282 procedure rosetta_table_copy_out_p5(t ibc_citem_runtime_pub.comp_item_citem_id_tbl, a0 out nocopy JTF_NUMBER_TABLE) as
283 ddindx binary_integer; indx binary_integer;
284 begin
285 if t is null then
286 a0 := null;
287 elsif 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_p5;
306
307 procedure rosetta_table_copy_in_p7(t out nocopy ibc_citem_runtime_pub.content_item_meta_tbl, a0 JTF_NUMBER_TABLE
308 , a1 JTF_NUMBER_TABLE
309 , a2 JTF_DATE_TABLE
310 , a3 JTF_DATE_TABLE
311 , a4 JTF_VARCHAR2_TABLE_100
312 , a5 JTF_VARCHAR2_TABLE_100
313 , a6 JTF_VARCHAR2_TABLE_100
314 , a7 JTF_VARCHAR2_TABLE_300
315 , a8 JTF_VARCHAR2_TABLE_2000
316 , a9 JTF_VARCHAR2_TABLE_300
317 , a10 JTF_NUMBER_TABLE
318 , a11 JTF_VARCHAR2_TABLE_100
319 , a12 JTF_VARCHAR2_TABLE_300
320 ) as
321 ddindx binary_integer; indx binary_integer;
322 begin
323 if a0 is not null and a0.count=0 then
324 t := ibc_citem_runtime_pub.content_item_meta_tbl();
325 elsif a0 is not null and a0.count > 0 then
326 if a0.count > 0 then
327 t := ibc_citem_runtime_pub.content_item_meta_tbl();
328 t.extend(a0.count);
329 indx := a0.first;
330 ddindx := 1;
331 while true loop
332 t(ddindx).content_item_id := a0(indx);
333 t(ddindx).version_number := a1(indx);
334 t(ddindx).available_date := rosetta_g_miss_date_in_map(a2(indx));
335 t(ddindx).expiration_date := rosetta_g_miss_date_in_map(a3(indx));
336 t(ddindx).content_type_code := a4(indx);
337 t(ddindx).item_reference_code := a5(indx);
338 t(ddindx).encrypt_flag := a6(indx);
339 t(ddindx).content_item_name := a7(indx);
340 t(ddindx).description := a8(indx);
341 t(ddindx).attachment_file_name := a9(indx);
342 t(ddindx).attachment_file_id := a10(indx);
343 t(ddindx).default_mime_type := a11(indx);
344 t(ddindx).default_rendition_name := a12(indx);
345 ddindx := ddindx+1;
346 if a0.last =indx
347 then exit;
348 end if;
349 indx := a0.next(indx);
350 end loop;
351 end if;
352 end if;
353 end rosetta_table_copy_in_p7;
354 procedure rosetta_table_copy_out_p7(t ibc_citem_runtime_pub.content_item_meta_tbl, a0 out nocopy JTF_NUMBER_TABLE
355 , a1 out nocopy JTF_NUMBER_TABLE
356 , a2 out nocopy JTF_DATE_TABLE
357 , a3 out nocopy JTF_DATE_TABLE
358 , a4 out nocopy JTF_VARCHAR2_TABLE_100
359 , a5 out nocopy JTF_VARCHAR2_TABLE_100
360 , a6 out nocopy JTF_VARCHAR2_TABLE_100
361 , a7 out nocopy JTF_VARCHAR2_TABLE_300
362 , a8 out nocopy JTF_VARCHAR2_TABLE_2000
363 , a9 out nocopy JTF_VARCHAR2_TABLE_300
364 , a10 out nocopy JTF_NUMBER_TABLE
365 , a11 out nocopy JTF_VARCHAR2_TABLE_100
366 , a12 out nocopy JTF_VARCHAR2_TABLE_300
367 ) as
368 ddindx binary_integer; indx binary_integer;
369 begin
370 if t is null then
371 a0 := null;
372 a1 := null;
373 a2 := null;
374 a3 := null;
375 a4 := null;
376 a5 := null;
377 a6 := null;
378 a7 := null;
379 a8 := null;
380 a9 := null;
381 a10 := null;
382 a11 := null;
383 a12 := null;
384 elsif t.count = 0 then
385 a0 := JTF_NUMBER_TABLE();
386 a1 := JTF_NUMBER_TABLE();
387 a2 := JTF_DATE_TABLE();
388 a3 := JTF_DATE_TABLE();
389 a4 := JTF_VARCHAR2_TABLE_100();
390 a5 := JTF_VARCHAR2_TABLE_100();
391 a6 := JTF_VARCHAR2_TABLE_100();
392 a7 := JTF_VARCHAR2_TABLE_300();
393 a8 := JTF_VARCHAR2_TABLE_2000();
394 a9 := JTF_VARCHAR2_TABLE_300();
395 a10 := JTF_NUMBER_TABLE();
396 a11 := JTF_VARCHAR2_TABLE_100();
397 a12 := JTF_VARCHAR2_TABLE_300();
398 else
399 a0 := JTF_NUMBER_TABLE();
403 a4 := JTF_VARCHAR2_TABLE_100();
400 a1 := JTF_NUMBER_TABLE();
401 a2 := JTF_DATE_TABLE();
402 a3 := JTF_DATE_TABLE();
404 a5 := JTF_VARCHAR2_TABLE_100();
405 a6 := JTF_VARCHAR2_TABLE_100();
406 a7 := JTF_VARCHAR2_TABLE_300();
407 a8 := JTF_VARCHAR2_TABLE_2000();
408 a9 := JTF_VARCHAR2_TABLE_300();
409 a10 := JTF_NUMBER_TABLE();
410 a11 := JTF_VARCHAR2_TABLE_100();
411 a12 := JTF_VARCHAR2_TABLE_300();
412 if t.count > 0 then
413 a0.extend(t.count);
414 a1.extend(t.count);
415 a2.extend(t.count);
416 a3.extend(t.count);
417 a4.extend(t.count);
418 a5.extend(t.count);
419 a6.extend(t.count);
420 a7.extend(t.count);
421 a8.extend(t.count);
422 a9.extend(t.count);
423 a10.extend(t.count);
424 a11.extend(t.count);
425 a12.extend(t.count);
426 ddindx := t.first;
427 indx := 1;
428 while true loop
429 a0(indx) := t(ddindx).content_item_id;
430 a1(indx) := t(ddindx).version_number;
431 a2(indx) := t(ddindx).available_date;
432 a3(indx) := t(ddindx).expiration_date;
433 a4(indx) := t(ddindx).content_type_code;
434 a5(indx) := t(ddindx).item_reference_code;
435 a6(indx) := t(ddindx).encrypt_flag;
436 a7(indx) := t(ddindx).content_item_name;
437 a8(indx) := t(ddindx).description;
438 a9(indx) := t(ddindx).attachment_file_name;
439 a10(indx) := t(ddindx).attachment_file_id;
440 a11(indx) := t(ddindx).default_mime_type;
441 a12(indx) := t(ddindx).default_rendition_name;
442 indx := indx+1;
443 if t.last =ddindx
444 then exit;
445 end if;
446 ddindx := t.next(ddindx);
447 end loop;
448 end if;
449 end if;
450 end rosetta_table_copy_out_p7;
451
452 procedure rosetta_table_copy_in_p9(t out nocopy ibc_citem_runtime_pub.content_item_id_tbl, a0 JTF_NUMBER_TABLE) as
453 ddindx binary_integer; indx binary_integer;
454 begin
455 if a0 is null then
456 t := null;
457 elsif a0.count = 0 then
458 t := ibc_citem_runtime_pub.content_item_id_tbl();
459 else
460 if a0.count > 0 then
461 t := ibc_citem_runtime_pub.content_item_id_tbl();
462 t.extend(a0.count);
463 indx := a0.first;
464 ddindx := 1;
465 while true loop
466 t(ddindx) := a0(indx);
467 ddindx := ddindx+1;
468 if a0.last =indx
469 then exit;
470 end if;
471 indx := a0.next(indx);
472 end loop;
473 end if;
474 end if;
475 end rosetta_table_copy_in_p9;
476 procedure rosetta_table_copy_out_p9(t ibc_citem_runtime_pub.content_item_id_tbl, a0 out nocopy JTF_NUMBER_TABLE) as
477 ddindx binary_integer; indx binary_integer;
478 begin
479 if t is null then
480 a0 := null;
481 elsif t.count = 0 then
482 a0 := JTF_NUMBER_TABLE();
483 else
484 a0 := JTF_NUMBER_TABLE();
485 if t.count > 0 then
486 a0.extend(t.count);
487 ddindx := t.first;
488 indx := 1;
489 while true loop
490 a0(indx) := t(ddindx);
491 indx := indx+1;
492 if t.last =ddindx
493 then exit;
494 end if;
495 ddindx := t.next(ddindx);
496 end loop;
497 end if;
498 end if;
499 end rosetta_table_copy_out_p9;
500
501 procedure get_citems_meta_by_assoc(p_api_version NUMBER
502 , p_init_msg_list VARCHAR2
503 , p_association_type_code VARCHAR2
504 , p_associated_object_val1 VARCHAR2
505 , p_associated_object_val2 VARCHAR2
506 , p_associated_object_val3 VARCHAR2
507 , p_associated_object_val4 VARCHAR2
508 , p_associated_object_val5 VARCHAR2
509 , p_label_code VARCHAR2
510 , x_return_status out nocopy VARCHAR2
511 , x_msg_count out nocopy NUMBER
512 , x_msg_data out nocopy VARCHAR2
513 , p12_a0 out nocopy JTF_NUMBER_TABLE
514 , p12_a1 out nocopy JTF_NUMBER_TABLE
515 , p12_a2 out nocopy JTF_DATE_TABLE
516 , p12_a3 out nocopy JTF_DATE_TABLE
517 , p12_a4 out nocopy JTF_VARCHAR2_TABLE_100
518 , p12_a5 out nocopy JTF_VARCHAR2_TABLE_100
519 , p12_a6 out nocopy JTF_VARCHAR2_TABLE_100
520 , p12_a7 out nocopy JTF_VARCHAR2_TABLE_300
521 , p12_a8 out nocopy JTF_VARCHAR2_TABLE_2000
522 , p12_a9 out nocopy JTF_VARCHAR2_TABLE_300
523 , p12_a10 out nocopy JTF_NUMBER_TABLE
524 , p12_a11 out nocopy JTF_VARCHAR2_TABLE_100
525 , p12_a12 out nocopy JTF_VARCHAR2_TABLE_300
526 )
527
528 as
529 ddx_content_item_meta_tbl ibc_citem_runtime_pub.content_item_meta_tbl;
530 ddindx binary_integer; indx binary_integer;
531 begin
532
533 -- copy data to the local IN or IN-OUT args, if any
534
535
536
537
538
539
540
541
542
543
544
545
546
550 p_association_type_code,
547 -- here's the delegated call to the old PL/SQL routine
548 ibc_citem_runtime_pub.get_citems_meta_by_assoc(p_api_version,
549 p_init_msg_list,
551 p_associated_object_val1,
552 p_associated_object_val2,
553 p_associated_object_val3,
554 p_associated_object_val4,
555 p_associated_object_val5,
556 p_label_code,
557 x_return_status,
558 x_msg_count,
559 x_msg_data,
560 ddx_content_item_meta_tbl);
561
562 -- copy data back from the local variables to OUT or IN-OUT args, if any
563
564
565
566
567
568
569
570
571
572
573
574
575 ibc_citem_runtime_pub_w.rosetta_table_copy_out_p7(ddx_content_item_meta_tbl, p12_a0
576 , p12_a1
577 , p12_a2
578 , p12_a3
579 , p12_a4
580 , p12_a5
581 , p12_a6
582 , p12_a7
583 , p12_a8
584 , p12_a9
585 , p12_a10
586 , p12_a11
587 , p12_a12
588 );
589 end;
590
591 procedure get_citems_meta_by_assoc_ctyp(p_api_version NUMBER
592 , p_init_msg_list VARCHAR2
593 , p_association_type_code VARCHAR2
594 , p_associated_object_val1 VARCHAR2
595 , p_associated_object_val2 VARCHAR2
596 , p_associated_object_val3 VARCHAR2
597 , p_associated_object_val4 VARCHAR2
598 , p_associated_object_val5 VARCHAR2
599 , p_content_type_code VARCHAR2
600 , p_label_code VARCHAR2
601 , x_return_status out nocopy VARCHAR2
602 , x_msg_count out nocopy NUMBER
603 , x_msg_data out nocopy VARCHAR2
604 , p13_a0 out nocopy JTF_NUMBER_TABLE
605 , p13_a1 out nocopy JTF_NUMBER_TABLE
606 , p13_a2 out nocopy JTF_DATE_TABLE
607 , p13_a3 out nocopy JTF_DATE_TABLE
608 , p13_a4 out nocopy JTF_VARCHAR2_TABLE_100
609 , p13_a5 out nocopy JTF_VARCHAR2_TABLE_100
610 , p13_a6 out nocopy JTF_VARCHAR2_TABLE_100
611 , p13_a7 out nocopy JTF_VARCHAR2_TABLE_300
612 , p13_a8 out nocopy JTF_VARCHAR2_TABLE_2000
613 , p13_a9 out nocopy JTF_VARCHAR2_TABLE_300
614 , p13_a10 out nocopy JTF_NUMBER_TABLE
615 , p13_a11 out nocopy JTF_VARCHAR2_TABLE_100
616 , p13_a12 out nocopy JTF_VARCHAR2_TABLE_300
617 )
618
619 as
620 ddx_content_item_meta_tbl ibc_citem_runtime_pub.content_item_meta_tbl;
621 ddindx binary_integer; indx binary_integer;
622 begin
623
624 -- copy data to the local IN or IN-OUT args, if any
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639 -- here's the delegated call to the old PL/SQL routine
640 ibc_citem_runtime_pub.get_citems_meta_by_assoc_ctyp(p_api_version,
641 p_init_msg_list,
642 p_association_type_code,
643 p_associated_object_val1,
644 p_associated_object_val2,
645 p_associated_object_val3,
646 p_associated_object_val4,
647 p_associated_object_val5,
648 p_content_type_code,
649 p_label_code,
650 x_return_status,
651 x_msg_count,
652 x_msg_data,
653 ddx_content_item_meta_tbl);
654
655 -- copy data back from the local variables to OUT or IN-OUT args, if any
656
657
658
659
660
661
662
663
664
665
666
667
668
669 ibc_citem_runtime_pub_w.rosetta_table_copy_out_p7(ddx_content_item_meta_tbl, p13_a0
670 , p13_a1
671 , p13_a2
672 , p13_a3
673 , p13_a4
674 , p13_a5
675 , p13_a6
676 , p13_a7
677 , p13_a8
678 , p13_a9
679 , p13_a10
680 , p13_a11
681 , p13_a12
682 );
683 end;
684
685 procedure get_citems_meta(p_api_version NUMBER
686 , p_init_msg_list VARCHAR2
687 , p_content_item_ids JTF_NUMBER_TABLE
688 , p_label_code VARCHAR2
689 , x_return_status out nocopy VARCHAR2
690 , x_msg_count out nocopy NUMBER
691 , x_msg_data out nocopy VARCHAR2
692 , p7_a0 out nocopy JTF_NUMBER_TABLE
693 , p7_a1 out nocopy JTF_NUMBER_TABLE
694 , p7_a2 out nocopy JTF_DATE_TABLE
695 , p7_a3 out nocopy JTF_DATE_TABLE
696 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_100
697 , p7_a5 out nocopy JTF_VARCHAR2_TABLE_100
698 , p7_a6 out nocopy JTF_VARCHAR2_TABLE_100
699 , p7_a7 out nocopy JTF_VARCHAR2_TABLE_300
700 , p7_a8 out nocopy JTF_VARCHAR2_TABLE_2000
701 , p7_a9 out nocopy JTF_VARCHAR2_TABLE_300
702 , p7_a10 out nocopy JTF_NUMBER_TABLE
703 , p7_a11 out nocopy JTF_VARCHAR2_TABLE_100
704 , p7_a12 out nocopy JTF_VARCHAR2_TABLE_300
705 )
706
707 as
708 ddp_content_item_ids ibc_citem_runtime_pub.content_item_id_tbl;
709 ddx_content_item_meta_tbl ibc_citem_runtime_pub.content_item_meta_tbl;
710 ddindx binary_integer; indx binary_integer;
711 begin
712
713 -- copy data to the local IN or IN-OUT args, if any
714
715
716 ibc_citem_runtime_pub_w.rosetta_table_copy_in_p9(ddp_content_item_ids, p_content_item_ids);
717
718
719
720
721
722
726 ddp_content_item_ids,
723 -- here's the delegated call to the old PL/SQL routine
724 ibc_citem_runtime_pub.get_citems_meta(p_api_version,
725 p_init_msg_list,
727 p_label_code,
728 x_return_status,
729 x_msg_count,
730 x_msg_data,
731 ddx_content_item_meta_tbl);
732
733 -- copy data back from the local variables to OUT or IN-OUT args, if any
734
735
736
737
738
739
740
741 ibc_citem_runtime_pub_w.rosetta_table_copy_out_p7(ddx_content_item_meta_tbl, p7_a0
742 , p7_a1
743 , p7_a2
744 , p7_a3
745 , p7_a4
746 , p7_a5
747 , p7_a6
748 , p7_a7
749 , p7_a8
750 , p7_a9
751 , p7_a10
752 , p7_a11
753 , p7_a12
754 );
755 end;
756
757 procedure get_citem_meta(p_api_version NUMBER
758 , p_init_msg_list VARCHAR2
759 , p_content_item_id NUMBER
760 , p_label_code VARCHAR2
761 , x_return_status out nocopy VARCHAR2
762 , x_msg_count out nocopy NUMBER
763 , x_msg_data out nocopy VARCHAR2
764 , p7_a0 out nocopy NUMBER
765 , p7_a1 out nocopy NUMBER
766 , p7_a2 out nocopy DATE
767 , p7_a3 out nocopy DATE
768 , p7_a4 out nocopy VARCHAR2
769 , p7_a5 out nocopy VARCHAR2
770 , p7_a6 out nocopy VARCHAR2
771 , p7_a7 out nocopy VARCHAR2
772 , p7_a8 out nocopy VARCHAR2
773 , p7_a9 out nocopy VARCHAR2
774 , p7_a10 out nocopy NUMBER
775 , p7_a11 out nocopy VARCHAR2
776 , p7_a12 out nocopy VARCHAR2
777 )
778
779 as
780 ddx_content_item_meta ibc_citem_runtime_pub.content_item_meta_rec;
781 ddindx binary_integer; indx binary_integer;
782 begin
783
784 -- copy data to the local IN or IN-OUT args, if any
785
786
787
788
789
790
791
792
793 -- here's the delegated call to the old PL/SQL routine
794 ibc_citem_runtime_pub.get_citem_meta(p_api_version,
795 p_init_msg_list,
796 p_content_item_id,
797 p_label_code,
798 x_return_status,
799 x_msg_count,
800 x_msg_data,
801 ddx_content_item_meta);
802
803 -- copy data back from the local variables to OUT or IN-OUT args, if any
804
805
806
807
808
809
810
811 p7_a0 := ddx_content_item_meta.content_item_id;
812 p7_a1 := ddx_content_item_meta.version_number;
813 p7_a2 := ddx_content_item_meta.available_date;
814 p7_a3 := ddx_content_item_meta.expiration_date;
815 p7_a4 := ddx_content_item_meta.content_type_code;
816 p7_a5 := ddx_content_item_meta.item_reference_code;
817 p7_a6 := ddx_content_item_meta.encrypt_flag;
818 p7_a7 := ddx_content_item_meta.content_item_name;
819 p7_a8 := ddx_content_item_meta.description;
820 p7_a9 := ddx_content_item_meta.attachment_file_name;
821 p7_a10 := ddx_content_item_meta.attachment_file_id;
822 p7_a11 := ddx_content_item_meta.default_mime_type;
823 p7_a12 := ddx_content_item_meta.default_rendition_name;
824 end;
825
826 procedure get_citem_basic(p_api_version NUMBER
827 , p_init_msg_list VARCHAR2
828 , p_content_item_id NUMBER
829 , p_label_code VARCHAR2
830 , x_return_status out nocopy VARCHAR2
831 , x_msg_count out nocopy NUMBER
832 , x_msg_data out nocopy VARCHAR2
833 , p7_a0 out nocopy NUMBER
834 , p7_a1 out nocopy NUMBER
835 , p7_a2 out nocopy DATE
836 , p7_a3 out nocopy DATE
837 , p7_a4 out nocopy VARCHAR2
838 , p7_a5 out nocopy VARCHAR2
839 , p7_a6 out nocopy VARCHAR2
840 , p7_a7 out nocopy VARCHAR2
841 , p7_a8 out nocopy VARCHAR2
842 , p7_a9 out nocopy VARCHAR2
843 , p7_a10 out nocopy NUMBER
844 , p7_a11 out nocopy JTF_VARCHAR2_TABLE_300
845 , p7_a12 out nocopy JTF_NUMBER_TABLE
846 , p7_a13 out nocopy JTF_VARCHAR2_TABLE_100
847 , p7_a14 out nocopy JTF_VARCHAR2_TABLE_300
848 , p7_a15 out nocopy VARCHAR2
849 , p7_a16 out nocopy VARCHAR2
850 , p7_a17 out nocopy CLOB
851 , p7_a18 out nocopy JTF_VARCHAR2_TABLE_100
852 , p7_a19 out nocopy JTF_NUMBER_TABLE
853 )
854
855 as
856 ddx_content_item_basic ibc_citem_runtime_pub.content_item_basic_rec;
857 ddindx binary_integer; indx binary_integer;
858 begin
859
860 -- copy data to the local IN or IN-OUT args, if any
861
862
863
864
865
866
867
868
869 -- here's the delegated call to the old PL/SQL routine
870 ibc_citem_runtime_pub.get_citem_basic(p_api_version,
871 p_init_msg_list,
872 p_content_item_id,
873 p_label_code,
874 x_return_status,
875 x_msg_count,
876 x_msg_data,
877 ddx_content_item_basic);
878
879 -- copy data back from the local variables to OUT or IN-OUT args, if any
880
881
882
883
884
885
886
887 p7_a0 := ddx_content_item_basic.content_item_id;
888 p7_a1 := ddx_content_item_basic.version_number;
889 p7_a2 := ddx_content_item_basic.available_date;
890 p7_a3 := ddx_content_item_basic.expiration_date;
891 p7_a4 := ddx_content_item_basic.content_type_code;
895 p7_a8 := ddx_content_item_basic.description;
892 p7_a5 := ddx_content_item_basic.item_reference_code;
893 p7_a6 := ddx_content_item_basic.encrypt_flag;
894 p7_a7 := ddx_content_item_basic.content_item_name;
896 p7_a9 := ddx_content_item_basic.attachment_file_name;
897 p7_a10 := ddx_content_item_basic.attachment_file_id;
898 ibc_citem_runtime_pub_w.rosetta_table_copy_out_p0(ddx_content_item_basic.rendition_file_names, p7_a11);
899 ibc_citem_runtime_pub_w.rosetta_table_copy_out_p1(ddx_content_item_basic.rendition_file_ids, p7_a12);
900 ibc_citem_runtime_pub_w.rosetta_table_copy_out_p2(ddx_content_item_basic.rendition_mime_types, p7_a13);
901 ibc_citem_runtime_pub_w.rosetta_table_copy_out_p3(ddx_content_item_basic.rendition_names, p7_a14);
902 p7_a15 := ddx_content_item_basic.default_mime_type;
903 p7_a16 := ddx_content_item_basic.default_rendition_name;
904 p7_a17 := ddx_content_item_basic.attribute_bundle;
905 ibc_citem_runtime_pub_w.rosetta_table_copy_out_p4(ddx_content_item_basic.comp_item_attrib_tcodes, p7_a18);
906 ibc_citem_runtime_pub_w.rosetta_table_copy_out_p5(ddx_content_item_basic.comp_item_citem_ids, p7_a19);
907 end;
908
909 end ibc_citem_runtime_pub_w;