[Home] [Help]
PACKAGE BODY: APPS.AMV_ITEM_PUB_W
Source
1 package body amv_item_pub_w as
2 /* $Header: amvwitmb.pls 120.2 2005/06/30 08:04 appldev ship $ */
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 fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure rosetta_table_copy_in_p0(t out nocopy amv_item_pub.amv_char_varray_type, a0 JTF_VARCHAR2_TABLE_4000) as
23 ddindx binary_integer; indx binary_integer;
24 begin
25 if a0 is null then
26 t := null;
27 elsif a0.count = 0 then
28 t := amv_item_pub.amv_char_varray_type();
29 else
30 if a0.count > 0 then
31 t := amv_item_pub.amv_char_varray_type();
32 t.extend(a0.count);
33 indx := a0.first;
34 ddindx := 1;
35 while true loop
36 t(ddindx) := a0(indx);
37 ddindx := ddindx+1;
38 if a0.last =indx
39 then exit;
40 end if;
41 indx := a0.next(indx);
42 end loop;
43 end if;
44 end if;
45 end rosetta_table_copy_in_p0;
46 procedure rosetta_table_copy_out_p0(t amv_item_pub.amv_char_varray_type, a0 out nocopy JTF_VARCHAR2_TABLE_4000) as
47 ddindx binary_integer; indx binary_integer;
48 begin
49 if t is null then
50 a0 := null;
51 elsif t.count = 0 then
52 a0 := JTF_VARCHAR2_TABLE_4000();
53 else
54 a0 := JTF_VARCHAR2_TABLE_4000();
55 if t.count > 0 then
56 a0.extend(t.count);
57 ddindx := t.first;
58 indx := 1;
59 while true loop
60 a0(indx) := t(ddindx);
61 indx := indx+1;
62 if t.last =ddindx
63 then exit;
64 end if;
65 ddindx := t.next(ddindx);
66 end loop;
67 end if;
68 end if;
69 end rosetta_table_copy_out_p0;
70
71 procedure rosetta_table_copy_in_p1(t out nocopy amv_item_pub.amv_number_varray_type, a0 JTF_NUMBER_TABLE) as
72 ddindx binary_integer; indx binary_integer;
73 begin
74 if a0 is null then
75 t := null;
76 elsif a0.count = 0 then
77 t := amv_item_pub.amv_number_varray_type();
78 else
79 if a0.count > 0 then
80 t := amv_item_pub.amv_number_varray_type();
81 t.extend(a0.count);
82 indx := a0.first;
83 ddindx := 1;
84 while true loop
85 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
86 ddindx := ddindx+1;
87 if a0.last =indx
88 then exit;
89 end if;
90 indx := a0.next(indx);
91 end loop;
92 end if;
93 end if;
94 end rosetta_table_copy_in_p1;
95 procedure rosetta_table_copy_out_p1(t amv_item_pub.amv_number_varray_type, a0 out nocopy JTF_NUMBER_TABLE) as
96 ddindx binary_integer; indx binary_integer;
97 begin
98 if t is null then
99 a0 := null;
100 elsif t.count = 0 then
101 a0 := JTF_NUMBER_TABLE();
102 else
103 a0 := JTF_NUMBER_TABLE();
104 if t.count > 0 then
105 a0.extend(t.count);
106 ddindx := t.first;
107 indx := 1;
108 while true loop
109 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
110 indx := indx+1;
111 if t.last =ddindx
112 then exit;
113 end if;
114 ddindx := t.next(ddindx);
115 end loop;
116 end if;
117 end if;
118 end rosetta_table_copy_out_p1;
119
120 procedure rosetta_table_copy_in_p6(t out nocopy amv_item_pub.amv_simple_item_obj_varray, a0 JTF_NUMBER_TABLE
121 , a1 JTF_NUMBER_TABLE
122 , a2 JTF_DATE_TABLE
123 , a3 JTF_NUMBER_TABLE
124 , a4 JTF_DATE_TABLE
125 , a5 JTF_NUMBER_TABLE
126 , a6 JTF_NUMBER_TABLE
127 , a7 JTF_NUMBER_TABLE
128 , a8 JTF_VARCHAR2_TABLE_100
129 , a9 JTF_VARCHAR2_TABLE_300
130 , a10 JTF_VARCHAR2_TABLE_2000
131 , a11 JTF_VARCHAR2_TABLE_2000
132 , a12 JTF_VARCHAR2_TABLE_100
133 , a13 JTF_VARCHAR2_TABLE_100
134 , a14 JTF_DATE_TABLE
135 , a15 JTF_DATE_TABLE
136 , a16 JTF_VARCHAR2_TABLE_300
137 , a17 JTF_VARCHAR2_TABLE_2000
138 , a18 JTF_DATE_TABLE
139 , a19 JTF_VARCHAR2_TABLE_100
140 , a20 JTF_NUMBER_TABLE
141 , a21 JTF_NUMBER_TABLE
142 , a22 JTF_NUMBER_TABLE
143 , a23 JTF_VARCHAR2_TABLE_300
144 , a24 JTF_VARCHAR2_TABLE_2000
145 , a25 JTF_VARCHAR2_TABLE_2000
146 , a26 JTF_VARCHAR2_TABLE_2000
147 , a27 JTF_VARCHAR2_TABLE_2000
148 , a28 JTF_VARCHAR2_TABLE_2000
149 ) as
150 ddindx binary_integer; indx binary_integer;
151 begin
152 if a0 is not null and a0.count=0 then
153 t := amv_item_pub.amv_simple_item_obj_varray();
154 elsif a0 is not null and a0.count > 0 then
155 if a0.count > 0 then
156 t := amv_item_pub.amv_simple_item_obj_varray();
157 t.extend(a0.count);
158 indx := a0.first;
159 ddindx := 1;
160 while true loop
161 t(ddindx).item_id := rosetta_g_miss_num_map(a0(indx));
162 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
163 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a2(indx));
164 t(ddindx).created_by := rosetta_g_miss_num_map(a3(indx));
165 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a4(indx));
166 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a5(indx));
167 t(ddindx).last_update_login := rosetta_g_miss_num_map(a6(indx));
168 t(ddindx).application_id := rosetta_g_miss_num_map(a7(indx));
169 t(ddindx).external_access_flag := a8(indx);
170 t(ddindx).item_name := a9(indx);
171 t(ddindx).description := a10(indx);
172 t(ddindx).text_string := a11(indx);
173 t(ddindx).language_code := a12(indx);
174 t(ddindx).status_code := a13(indx);
175 t(ddindx).effective_start_date := rosetta_g_miss_date_in_map(a14(indx));
176 t(ddindx).expiration_date := rosetta_g_miss_date_in_map(a15(indx));
177 t(ddindx).item_type := a16(indx);
178 t(ddindx).url_string := a17(indx);
179 t(ddindx).publication_date := rosetta_g_miss_date_in_map(a18(indx));
180 t(ddindx).priority := a19(indx);
181 t(ddindx).content_type_id := rosetta_g_miss_num_map(a20(indx));
182 t(ddindx).owner_id := rosetta_g_miss_num_map(a21(indx));
183 t(ddindx).default_approver_id := rosetta_g_miss_num_map(a22(indx));
184 t(ddindx).item_destination_type := a23(indx);
185 t(ddindx).file_id_list := a24(indx);
186 t(ddindx).persp_id_list := a25(indx);
187 t(ddindx).persp_name_list := a26(indx);
188 t(ddindx).author_list := a27(indx);
189 t(ddindx).keyword_list := a28(indx);
190 ddindx := ddindx+1;
191 if a0.last =indx
192 then exit;
193 end if;
194 indx := a0.next(indx);
195 end loop;
196 end if;
197 end if;
198 end rosetta_table_copy_in_p6;
199 procedure rosetta_table_copy_out_p6(t amv_item_pub.amv_simple_item_obj_varray, a0 out nocopy JTF_NUMBER_TABLE
200 , a1 out nocopy JTF_NUMBER_TABLE
201 , a2 out nocopy JTF_DATE_TABLE
202 , a3 out nocopy JTF_NUMBER_TABLE
203 , a4 out nocopy JTF_DATE_TABLE
204 , a5 out nocopy JTF_NUMBER_TABLE
205 , a6 out nocopy JTF_NUMBER_TABLE
206 , a7 out nocopy JTF_NUMBER_TABLE
207 , a8 out nocopy JTF_VARCHAR2_TABLE_100
208 , a9 out nocopy JTF_VARCHAR2_TABLE_300
209 , a10 out nocopy JTF_VARCHAR2_TABLE_2000
210 , a11 out nocopy JTF_VARCHAR2_TABLE_2000
211 , a12 out nocopy JTF_VARCHAR2_TABLE_100
212 , a13 out nocopy JTF_VARCHAR2_TABLE_100
213 , a14 out nocopy JTF_DATE_TABLE
214 , a15 out nocopy JTF_DATE_TABLE
215 , a16 out nocopy JTF_VARCHAR2_TABLE_300
216 , a17 out nocopy JTF_VARCHAR2_TABLE_2000
217 , a18 out nocopy JTF_DATE_TABLE
218 , a19 out nocopy JTF_VARCHAR2_TABLE_100
219 , a20 out nocopy JTF_NUMBER_TABLE
220 , a21 out nocopy JTF_NUMBER_TABLE
221 , a22 out nocopy JTF_NUMBER_TABLE
222 , a23 out nocopy JTF_VARCHAR2_TABLE_300
223 , a24 out nocopy JTF_VARCHAR2_TABLE_2000
224 , a25 out nocopy JTF_VARCHAR2_TABLE_2000
225 , a26 out nocopy JTF_VARCHAR2_TABLE_2000
226 , a27 out nocopy JTF_VARCHAR2_TABLE_2000
227 , a28 out nocopy JTF_VARCHAR2_TABLE_2000
228 ) as
229 ddindx binary_integer; indx binary_integer;
230 begin
231 if t is null then
232 a0 := null;
233 a1 := null;
234 a2 := null;
235 a3 := null;
236 a4 := null;
237 a5 := null;
238 a6 := null;
239 a7 := null;
240 a8 := null;
241 a9 := null;
242 a10 := null;
243 a11 := null;
244 a12 := null;
245 a13 := null;
246 a14 := null;
247 a15 := null;
248 a16 := null;
249 a17 := null;
250 a18 := null;
251 a19 := null;
252 a20 := null;
253 a21 := null;
254 a22 := null;
255 a23 := null;
256 a24 := null;
257 a25 := null;
258 a26 := null;
259 a27 := null;
260 a28 := null;
261 elsif t.count = 0 then
262 a0 := JTF_NUMBER_TABLE();
263 a1 := JTF_NUMBER_TABLE();
264 a2 := JTF_DATE_TABLE();
265 a3 := JTF_NUMBER_TABLE();
266 a4 := JTF_DATE_TABLE();
267 a5 := JTF_NUMBER_TABLE();
268 a6 := JTF_NUMBER_TABLE();
269 a7 := JTF_NUMBER_TABLE();
270 a8 := JTF_VARCHAR2_TABLE_100();
271 a9 := JTF_VARCHAR2_TABLE_300();
272 a10 := JTF_VARCHAR2_TABLE_2000();
273 a11 := JTF_VARCHAR2_TABLE_2000();
274 a12 := JTF_VARCHAR2_TABLE_100();
275 a13 := JTF_VARCHAR2_TABLE_100();
276 a14 := JTF_DATE_TABLE();
277 a15 := JTF_DATE_TABLE();
278 a16 := JTF_VARCHAR2_TABLE_300();
279 a17 := JTF_VARCHAR2_TABLE_2000();
280 a18 := JTF_DATE_TABLE();
281 a19 := JTF_VARCHAR2_TABLE_100();
282 a20 := JTF_NUMBER_TABLE();
283 a21 := JTF_NUMBER_TABLE();
284 a22 := JTF_NUMBER_TABLE();
285 a23 := JTF_VARCHAR2_TABLE_300();
286 a24 := JTF_VARCHAR2_TABLE_2000();
287 a25 := JTF_VARCHAR2_TABLE_2000();
288 a26 := JTF_VARCHAR2_TABLE_2000();
289 a27 := JTF_VARCHAR2_TABLE_2000();
290 a28 := JTF_VARCHAR2_TABLE_2000();
291 else
292 a0 := JTF_NUMBER_TABLE();
293 a1 := JTF_NUMBER_TABLE();
294 a2 := JTF_DATE_TABLE();
295 a3 := JTF_NUMBER_TABLE();
296 a4 := JTF_DATE_TABLE();
297 a5 := JTF_NUMBER_TABLE();
298 a6 := JTF_NUMBER_TABLE();
299 a7 := JTF_NUMBER_TABLE();
300 a8 := JTF_VARCHAR2_TABLE_100();
301 a9 := JTF_VARCHAR2_TABLE_300();
302 a10 := JTF_VARCHAR2_TABLE_2000();
303 a11 := JTF_VARCHAR2_TABLE_2000();
304 a12 := JTF_VARCHAR2_TABLE_100();
305 a13 := JTF_VARCHAR2_TABLE_100();
306 a14 := JTF_DATE_TABLE();
307 a15 := JTF_DATE_TABLE();
308 a16 := JTF_VARCHAR2_TABLE_300();
309 a17 := JTF_VARCHAR2_TABLE_2000();
310 a18 := JTF_DATE_TABLE();
311 a19 := JTF_VARCHAR2_TABLE_100();
312 a20 := JTF_NUMBER_TABLE();
313 a21 := JTF_NUMBER_TABLE();
314 a22 := JTF_NUMBER_TABLE();
315 a23 := JTF_VARCHAR2_TABLE_300();
316 a24 := JTF_VARCHAR2_TABLE_2000();
317 a25 := JTF_VARCHAR2_TABLE_2000();
318 a26 := JTF_VARCHAR2_TABLE_2000();
319 a27 := JTF_VARCHAR2_TABLE_2000();
320 a28 := JTF_VARCHAR2_TABLE_2000();
321 if t.count > 0 then
322 a0.extend(t.count);
323 a1.extend(t.count);
324 a2.extend(t.count);
325 a3.extend(t.count);
326 a4.extend(t.count);
327 a5.extend(t.count);
328 a6.extend(t.count);
329 a7.extend(t.count);
330 a8.extend(t.count);
331 a9.extend(t.count);
332 a10.extend(t.count);
333 a11.extend(t.count);
334 a12.extend(t.count);
335 a13.extend(t.count);
336 a14.extend(t.count);
337 a15.extend(t.count);
338 a16.extend(t.count);
339 a17.extend(t.count);
340 a18.extend(t.count);
341 a19.extend(t.count);
342 a20.extend(t.count);
343 a21.extend(t.count);
344 a22.extend(t.count);
345 a23.extend(t.count);
346 a24.extend(t.count);
347 a25.extend(t.count);
348 a26.extend(t.count);
349 a27.extend(t.count);
350 a28.extend(t.count);
351 ddindx := t.first;
352 indx := 1;
353 while true loop
354 a0(indx) := rosetta_g_miss_num_map(t(ddindx).item_id);
355 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
356 a2(indx) := t(ddindx).creation_date;
357 a3(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
358 a4(indx) := t(ddindx).last_update_date;
359 a5(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
360 a6(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
361 a7(indx) := rosetta_g_miss_num_map(t(ddindx).application_id);
362 a8(indx) := t(ddindx).external_access_flag;
363 a9(indx) := t(ddindx).item_name;
364 a10(indx) := t(ddindx).description;
365 a11(indx) := t(ddindx).text_string;
366 a12(indx) := t(ddindx).language_code;
367 a13(indx) := t(ddindx).status_code;
368 a14(indx) := t(ddindx).effective_start_date;
369 a15(indx) := t(ddindx).expiration_date;
370 a16(indx) := t(ddindx).item_type;
371 a17(indx) := t(ddindx).url_string;
372 a18(indx) := t(ddindx).publication_date;
373 a19(indx) := t(ddindx).priority;
374 a20(indx) := rosetta_g_miss_num_map(t(ddindx).content_type_id);
375 a21(indx) := rosetta_g_miss_num_map(t(ddindx).owner_id);
376 a22(indx) := rosetta_g_miss_num_map(t(ddindx).default_approver_id);
377 a23(indx) := t(ddindx).item_destination_type;
378 a24(indx) := t(ddindx).file_id_list;
379 a25(indx) := t(ddindx).persp_id_list;
380 a26(indx) := t(ddindx).persp_name_list;
381 a27(indx) := t(ddindx).author_list;
382 a28(indx) := t(ddindx).keyword_list;
383 indx := indx+1;
384 if t.last =ddindx
385 then exit;
386 end if;
387 ddindx := t.next(ddindx);
388 end loop;
389 end if;
390 end if;
391 end rosetta_table_copy_out_p6;
392
393 procedure rosetta_table_copy_in_p8(t out nocopy amv_item_pub.amv_nameid_varray_type, a0 JTF_NUMBER_TABLE
394 , a1 JTF_VARCHAR2_TABLE_300
395 ) as
396 ddindx binary_integer; indx binary_integer;
397 begin
398 if a0 is not null and a0.count=0 then
399 t := amv_item_pub.amv_nameid_varray_type();
400 elsif a0 is not null and a0.count > 0 then
404 indx := a0.first;
401 if a0.count > 0 then
402 t := amv_item_pub.amv_nameid_varray_type();
403 t.extend(a0.count);
405 ddindx := 1;
406 while true loop
407 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
408 t(ddindx).name := a1(indx);
409 ddindx := ddindx+1;
410 if a0.last =indx
411 then exit;
412 end if;
413 indx := a0.next(indx);
414 end loop;
415 end if;
416 end if;
417 end rosetta_table_copy_in_p8;
418 procedure rosetta_table_copy_out_p8(t amv_item_pub.amv_nameid_varray_type, a0 out nocopy JTF_NUMBER_TABLE
419 , a1 out nocopy JTF_VARCHAR2_TABLE_300
420 ) as
421 ddindx binary_integer; indx binary_integer;
422 begin
423 if t is null then
424 a0 := null;
425 a1 := null;
426 elsif t.count = 0 then
427 a0 := JTF_NUMBER_TABLE();
428 a1 := JTF_VARCHAR2_TABLE_300();
429 else
430 a0 := JTF_NUMBER_TABLE();
431 a1 := JTF_VARCHAR2_TABLE_300();
432 if t.count > 0 then
433 a0.extend(t.count);
434 a1.extend(t.count);
435 ddindx := t.first;
436 indx := 1;
437 while true loop
438 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
439 a1(indx) := t(ddindx).name;
440 indx := indx+1;
441 if t.last =ddindx
442 then exit;
443 end if;
444 ddindx := t.next(ddindx);
445 end loop;
446 end if;
447 end if;
448 end rosetta_table_copy_out_p8;
449
450 procedure create_item(p_api_version NUMBER
451 , p_init_msg_list VARCHAR2
452 , p_commit VARCHAR2
453 , x_return_status out nocopy VARCHAR2
454 , x_msg_count out nocopy NUMBER
455 , x_msg_data out nocopy VARCHAR2
456 , p_check_login_user VARCHAR2
457 , p_channel_id_array JTF_NUMBER_TABLE
458 , p_file_array JTF_NUMBER_TABLE
459 , p10_a0 JTF_NUMBER_TABLE
460 , p10_a1 JTF_VARCHAR2_TABLE_300
461 , p_author_array JTF_VARCHAR2_TABLE_4000
462 , p_keyword_array JTF_VARCHAR2_TABLE_4000
463 , x_item_id out nocopy NUMBER
464 , p8_a0 NUMBER := 0-1962.0724
465 , p8_a1 NUMBER := 0-1962.0724
466 , p8_a2 DATE := fnd_api.g_miss_date
467 , p8_a3 NUMBER := 0-1962.0724
468 , p8_a4 DATE := fnd_api.g_miss_date
469 , p8_a5 NUMBER := 0-1962.0724
470 , p8_a6 NUMBER := 0-1962.0724
471 , p8_a7 NUMBER := 0-1962.0724
472 , p8_a8 VARCHAR2 := fnd_api.g_miss_char
473 , p8_a9 VARCHAR2 := fnd_api.g_miss_char
474 , p8_a10 VARCHAR2 := fnd_api.g_miss_char
475 , p8_a11 VARCHAR2 := fnd_api.g_miss_char
476 , p8_a12 VARCHAR2 := fnd_api.g_miss_char
477 , p8_a13 VARCHAR2 := fnd_api.g_miss_char
478 , p8_a14 DATE := fnd_api.g_miss_date
479 , p8_a15 DATE := fnd_api.g_miss_date
480 , p8_a16 VARCHAR2 := fnd_api.g_miss_char
481 , p8_a17 VARCHAR2 := fnd_api.g_miss_char
482 , p8_a18 DATE := fnd_api.g_miss_date
483 , p8_a19 VARCHAR2 := fnd_api.g_miss_char
484 , p8_a20 NUMBER := 0-1962.0724
485 , p8_a21 NUMBER := 0-1962.0724
486 , p8_a22 NUMBER := 0-1962.0724
487 , p8_a23 VARCHAR2 := fnd_api.g_miss_char
488 )
489
490 as
491 ddp_channel_id_array amv_item_pub.amv_number_varray_type;
492 ddp_item_obj amv_item_pub.amv_item_obj_type;
493 ddp_file_array amv_item_pub.amv_number_varray_type;
494 ddp_persp_array amv_item_pub.amv_nameid_varray_type;
495 ddp_author_array amv_item_pub.amv_char_varray_type;
496 ddp_keyword_array amv_item_pub.amv_char_varray_type;
497 ddindx binary_integer; indx binary_integer;
498 begin
499
500 -- copy data to the local IN or IN-OUT args, if any
501
502
503
504
505
506
507
508 amv_item_pub_w.rosetta_table_copy_in_p1(ddp_channel_id_array, p_channel_id_array);
509
510 ddp_item_obj.item_id := rosetta_g_miss_num_map(p8_a0);
511 ddp_item_obj.object_version_number := rosetta_g_miss_num_map(p8_a1);
512 ddp_item_obj.creation_date := rosetta_g_miss_date_in_map(p8_a2);
513 ddp_item_obj.created_by := rosetta_g_miss_num_map(p8_a3);
514 ddp_item_obj.last_update_date := rosetta_g_miss_date_in_map(p8_a4);
515 ddp_item_obj.last_updated_by := rosetta_g_miss_num_map(p8_a5);
516 ddp_item_obj.last_update_login := rosetta_g_miss_num_map(p8_a6);
517 ddp_item_obj.application_id := rosetta_g_miss_num_map(p8_a7);
518 ddp_item_obj.external_access_flag := p8_a8;
519 ddp_item_obj.item_name := p8_a9;
520 ddp_item_obj.description := p8_a10;
521 ddp_item_obj.text_string := p8_a11;
522 ddp_item_obj.language_code := p8_a12;
523 ddp_item_obj.status_code := p8_a13;
524 ddp_item_obj.effective_start_date := rosetta_g_miss_date_in_map(p8_a14);
525 ddp_item_obj.expiration_date := rosetta_g_miss_date_in_map(p8_a15);
526 ddp_item_obj.item_type := p8_a16;
527 ddp_item_obj.url_string := p8_a17;
528 ddp_item_obj.publication_date := rosetta_g_miss_date_in_map(p8_a18);
532 ddp_item_obj.default_approver_id := rosetta_g_miss_num_map(p8_a22);
529 ddp_item_obj.priority := p8_a19;
530 ddp_item_obj.content_type_id := rosetta_g_miss_num_map(p8_a20);
531 ddp_item_obj.owner_id := rosetta_g_miss_num_map(p8_a21);
533 ddp_item_obj.item_destination_type := p8_a23;
534
535 amv_item_pub_w.rosetta_table_copy_in_p1(ddp_file_array, p_file_array);
536
537 amv_item_pub_w.rosetta_table_copy_in_p8(ddp_persp_array, p10_a0
538 , p10_a1
539 );
540
541 amv_item_pub_w.rosetta_table_copy_in_p0(ddp_author_array, p_author_array);
542
543 amv_item_pub_w.rosetta_table_copy_in_p0(ddp_keyword_array, p_keyword_array);
544
545
546 -- here's the delegated call to the old PL/SQL routine
547 amv_item_pub.create_item(p_api_version,
548 p_init_msg_list,
549 p_commit,
550 x_return_status,
551 x_msg_count,
552 x_msg_data,
553 p_check_login_user,
554 ddp_channel_id_array,
555 ddp_item_obj,
556 ddp_file_array,
557 ddp_persp_array,
558 ddp_author_array,
559 ddp_keyword_array,
560 x_item_id);
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
576 end;
577
578 procedure update_item(p_api_version NUMBER
579 , p_init_msg_list VARCHAR2
580 , p_commit VARCHAR2
581 , x_return_status out nocopy VARCHAR2
582 , x_msg_count out nocopy NUMBER
583 , x_msg_data out nocopy VARCHAR2
584 , p_check_login_user VARCHAR2
585 , p_channel_id_array JTF_NUMBER_TABLE
586 , p_file_array JTF_NUMBER_TABLE
587 , p10_a0 JTF_NUMBER_TABLE
588 , p10_a1 JTF_VARCHAR2_TABLE_300
589 , p_author_array JTF_VARCHAR2_TABLE_4000
590 , p_keyword_array JTF_VARCHAR2_TABLE_4000
591 , p8_a0 NUMBER := 0-1962.0724
592 , p8_a1 NUMBER := 0-1962.0724
593 , p8_a2 DATE := fnd_api.g_miss_date
594 , p8_a3 NUMBER := 0-1962.0724
595 , p8_a4 DATE := fnd_api.g_miss_date
596 , p8_a5 NUMBER := 0-1962.0724
597 , p8_a6 NUMBER := 0-1962.0724
598 , p8_a7 NUMBER := 0-1962.0724
599 , p8_a8 VARCHAR2 := fnd_api.g_miss_char
600 , p8_a9 VARCHAR2 := fnd_api.g_miss_char
601 , p8_a10 VARCHAR2 := fnd_api.g_miss_char
602 , p8_a11 VARCHAR2 := fnd_api.g_miss_char
603 , p8_a12 VARCHAR2 := fnd_api.g_miss_char
604 , p8_a13 VARCHAR2 := fnd_api.g_miss_char
605 , p8_a14 DATE := fnd_api.g_miss_date
606 , p8_a15 DATE := fnd_api.g_miss_date
607 , p8_a16 VARCHAR2 := fnd_api.g_miss_char
608 , p8_a17 VARCHAR2 := fnd_api.g_miss_char
609 , p8_a18 DATE := fnd_api.g_miss_date
610 , p8_a19 VARCHAR2 := fnd_api.g_miss_char
611 , p8_a20 NUMBER := 0-1962.0724
612 , p8_a21 NUMBER := 0-1962.0724
613 , p8_a22 NUMBER := 0-1962.0724
614 , p8_a23 VARCHAR2 := fnd_api.g_miss_char
615 )
616
617 as
618 ddp_channel_id_array amv_item_pub.amv_number_varray_type;
619 ddp_item_obj amv_item_pub.amv_item_obj_type;
620 ddp_file_array amv_item_pub.amv_number_varray_type;
621 ddp_persp_array amv_item_pub.amv_nameid_varray_type;
622 ddp_author_array amv_item_pub.amv_char_varray_type;
623 ddp_keyword_array amv_item_pub.amv_char_varray_type;
624 ddindx binary_integer; indx binary_integer;
625 begin
626
627 -- copy data to the local IN or IN-OUT args, if any
628
629
630
631
632
633
634
635 amv_item_pub_w.rosetta_table_copy_in_p1(ddp_channel_id_array, p_channel_id_array);
636
637 ddp_item_obj.item_id := rosetta_g_miss_num_map(p8_a0);
638 ddp_item_obj.object_version_number := rosetta_g_miss_num_map(p8_a1);
639 ddp_item_obj.creation_date := rosetta_g_miss_date_in_map(p8_a2);
640 ddp_item_obj.created_by := rosetta_g_miss_num_map(p8_a3);
641 ddp_item_obj.last_update_date := rosetta_g_miss_date_in_map(p8_a4);
642 ddp_item_obj.last_updated_by := rosetta_g_miss_num_map(p8_a5);
643 ddp_item_obj.last_update_login := rosetta_g_miss_num_map(p8_a6);
644 ddp_item_obj.application_id := rosetta_g_miss_num_map(p8_a7);
645 ddp_item_obj.external_access_flag := p8_a8;
646 ddp_item_obj.item_name := p8_a9;
647 ddp_item_obj.description := p8_a10;
648 ddp_item_obj.text_string := p8_a11;
649 ddp_item_obj.language_code := p8_a12;
650 ddp_item_obj.status_code := p8_a13;
651 ddp_item_obj.effective_start_date := rosetta_g_miss_date_in_map(p8_a14);
652 ddp_item_obj.expiration_date := rosetta_g_miss_date_in_map(p8_a15);
653 ddp_item_obj.item_type := p8_a16;
654 ddp_item_obj.url_string := p8_a17;
655 ddp_item_obj.publication_date := rosetta_g_miss_date_in_map(p8_a18);
656 ddp_item_obj.priority := p8_a19;
657 ddp_item_obj.content_type_id := rosetta_g_miss_num_map(p8_a20);
658 ddp_item_obj.owner_id := rosetta_g_miss_num_map(p8_a21);
659 ddp_item_obj.default_approver_id := rosetta_g_miss_num_map(p8_a22);
660 ddp_item_obj.item_destination_type := p8_a23;
661
665 , p10_a1
662 amv_item_pub_w.rosetta_table_copy_in_p1(ddp_file_array, p_file_array);
663
664 amv_item_pub_w.rosetta_table_copy_in_p8(ddp_persp_array, p10_a0
666 );
667
668 amv_item_pub_w.rosetta_table_copy_in_p0(ddp_author_array, p_author_array);
669
670 amv_item_pub_w.rosetta_table_copy_in_p0(ddp_keyword_array, p_keyword_array);
671
672 -- here's the delegated call to the old PL/SQL routine
673 amv_item_pub.update_item(p_api_version,
674 p_init_msg_list,
675 p_commit,
676 x_return_status,
677 x_msg_count,
678 x_msg_data,
679 p_check_login_user,
680 ddp_channel_id_array,
681 ddp_item_obj,
682 ddp_file_array,
683 ddp_persp_array,
684 ddp_author_array,
685 ddp_keyword_array);
686
687 -- copy data back from the local variables to OUT or IN-OUT args, if any
688
689
690
691
692
693
694
695
696
697
698
699
700 end;
701
702 procedure get_item(p_api_version NUMBER
703 , p_init_msg_list VARCHAR2
704 , x_return_status out nocopy VARCHAR2
705 , x_msg_count out nocopy NUMBER
706 , x_msg_data out nocopy VARCHAR2
707 , p_check_login_user VARCHAR2
708 , p_item_id NUMBER
709 , p7_a0 out nocopy NUMBER
710 , p7_a1 out nocopy NUMBER
711 , p7_a2 out nocopy DATE
712 , p7_a3 out nocopy NUMBER
713 , p7_a4 out nocopy DATE
714 , p7_a5 out nocopy NUMBER
715 , p7_a6 out nocopy NUMBER
716 , p7_a7 out nocopy NUMBER
717 , p7_a8 out nocopy VARCHAR2
718 , p7_a9 out nocopy VARCHAR2
719 , p7_a10 out nocopy VARCHAR2
720 , p7_a11 out nocopy VARCHAR2
721 , p7_a12 out nocopy VARCHAR2
722 , p7_a13 out nocopy VARCHAR2
723 , p7_a14 out nocopy DATE
724 , p7_a15 out nocopy DATE
725 , p7_a16 out nocopy VARCHAR2
726 , p7_a17 out nocopy VARCHAR2
727 , p7_a18 out nocopy DATE
728 , p7_a19 out nocopy VARCHAR2
729 , p7_a20 out nocopy NUMBER
730 , p7_a21 out nocopy NUMBER
731 , p7_a22 out nocopy NUMBER
732 , p7_a23 out nocopy VARCHAR2
733 , x_file_array out nocopy JTF_NUMBER_TABLE
734 , p9_a0 out nocopy JTF_NUMBER_TABLE
735 , p9_a1 out nocopy JTF_VARCHAR2_TABLE_300
736 , x_author_array out nocopy JTF_VARCHAR2_TABLE_4000
737 , x_keyword_array out nocopy JTF_VARCHAR2_TABLE_4000
738 )
739
740 as
741 ddx_item_obj amv_item_pub.amv_item_obj_type;
742 ddx_file_array amv_item_pub.amv_number_varray_type;
743 ddx_persp_array amv_item_pub.amv_nameid_varray_type;
744 ddx_author_array amv_item_pub.amv_char_varray_type;
745 ddx_keyword_array amv_item_pub.amv_char_varray_type;
746 ddindx binary_integer; indx binary_integer;
747 begin
748
749 -- copy data to the local IN or IN-OUT args, if any
750
751
752
753
754
755
756
757
758
759
760
761
762 -- here's the delegated call to the old PL/SQL routine
763 amv_item_pub.get_item(p_api_version,
764 p_init_msg_list,
765 x_return_status,
766 x_msg_count,
767 x_msg_data,
768 p_check_login_user,
769 p_item_id,
770 ddx_item_obj,
771 ddx_file_array,
772 ddx_persp_array,
773 ddx_author_array,
774 ddx_keyword_array);
775
776 -- copy data back from the local variables to OUT or IN-OUT args, if any
777
778
779
780
781
782
783
784 p7_a0 := rosetta_g_miss_num_map(ddx_item_obj.item_id);
785 p7_a1 := rosetta_g_miss_num_map(ddx_item_obj.object_version_number);
786 p7_a2 := ddx_item_obj.creation_date;
787 p7_a3 := rosetta_g_miss_num_map(ddx_item_obj.created_by);
788 p7_a4 := ddx_item_obj.last_update_date;
789 p7_a5 := rosetta_g_miss_num_map(ddx_item_obj.last_updated_by);
790 p7_a6 := rosetta_g_miss_num_map(ddx_item_obj.last_update_login);
791 p7_a7 := rosetta_g_miss_num_map(ddx_item_obj.application_id);
792 p7_a8 := ddx_item_obj.external_access_flag;
793 p7_a9 := ddx_item_obj.item_name;
794 p7_a10 := ddx_item_obj.description;
795 p7_a11 := ddx_item_obj.text_string;
796 p7_a12 := ddx_item_obj.language_code;
797 p7_a13 := ddx_item_obj.status_code;
798 p7_a14 := ddx_item_obj.effective_start_date;
799 p7_a15 := ddx_item_obj.expiration_date;
800 p7_a16 := ddx_item_obj.item_type;
801 p7_a17 := ddx_item_obj.url_string;
802 p7_a18 := ddx_item_obj.publication_date;
803 p7_a19 := ddx_item_obj.priority;
804 p7_a20 := rosetta_g_miss_num_map(ddx_item_obj.content_type_id);
805 p7_a21 := rosetta_g_miss_num_map(ddx_item_obj.owner_id);
806 p7_a22 := rosetta_g_miss_num_map(ddx_item_obj.default_approver_id);
807 p7_a23 := ddx_item_obj.item_destination_type;
808
809 amv_item_pub_w.rosetta_table_copy_out_p1(ddx_file_array, x_file_array);
810
811 amv_item_pub_w.rosetta_table_copy_out_p8(ddx_persp_array, p9_a0
812 , p9_a1
813 );
814
818 end;
815 amv_item_pub_w.rosetta_table_copy_out_p0(ddx_author_array, x_author_array);
816
817 amv_item_pub_w.rosetta_table_copy_out_p0(ddx_keyword_array, x_keyword_array);
819
820 procedure find_item(p_api_version NUMBER
821 , p_init_msg_list VARCHAR2
822 , x_return_status out nocopy VARCHAR2
823 , x_msg_count out nocopy NUMBER
824 , x_msg_data out nocopy VARCHAR2
825 , p_check_login_user VARCHAR2
826 , p_item_name VARCHAR2
827 , p_description VARCHAR2
828 , p_item_type VARCHAR2
829 , p10_a0 out nocopy NUMBER
830 , p10_a1 out nocopy NUMBER
831 , p10_a2 out nocopy NUMBER
832 , p11_a0 out nocopy JTF_NUMBER_TABLE
833 , p11_a1 out nocopy JTF_NUMBER_TABLE
834 , p11_a2 out nocopy JTF_DATE_TABLE
835 , p11_a3 out nocopy JTF_NUMBER_TABLE
836 , p11_a4 out nocopy JTF_DATE_TABLE
837 , p11_a5 out nocopy JTF_NUMBER_TABLE
838 , p11_a6 out nocopy JTF_NUMBER_TABLE
839 , p11_a7 out nocopy JTF_NUMBER_TABLE
840 , p11_a8 out nocopy JTF_VARCHAR2_TABLE_100
841 , p11_a9 out nocopy JTF_VARCHAR2_TABLE_300
842 , p11_a10 out nocopy JTF_VARCHAR2_TABLE_2000
843 , p11_a11 out nocopy JTF_VARCHAR2_TABLE_2000
844 , p11_a12 out nocopy JTF_VARCHAR2_TABLE_100
845 , p11_a13 out nocopy JTF_VARCHAR2_TABLE_100
846 , p11_a14 out nocopy JTF_DATE_TABLE
847 , p11_a15 out nocopy JTF_DATE_TABLE
848 , p11_a16 out nocopy JTF_VARCHAR2_TABLE_300
849 , p11_a17 out nocopy JTF_VARCHAR2_TABLE_2000
850 , p11_a18 out nocopy JTF_DATE_TABLE
851 , p11_a19 out nocopy JTF_VARCHAR2_TABLE_100
852 , p11_a20 out nocopy JTF_NUMBER_TABLE
853 , p11_a21 out nocopy JTF_NUMBER_TABLE
854 , p11_a22 out nocopy JTF_NUMBER_TABLE
855 , p11_a23 out nocopy JTF_VARCHAR2_TABLE_300
856 , p11_a24 out nocopy JTF_VARCHAR2_TABLE_2000
857 , p11_a25 out nocopy JTF_VARCHAR2_TABLE_2000
858 , p11_a26 out nocopy JTF_VARCHAR2_TABLE_2000
859 , p11_a27 out nocopy JTF_VARCHAR2_TABLE_2000
860 , p11_a28 out nocopy JTF_VARCHAR2_TABLE_2000
861 , p9_a0 NUMBER := 0-1962.0724
862 , p9_a1 NUMBER := 0-1962.0724
863 , p9_a2 VARCHAR2 := fnd_api.g_miss_char
864 )
865
866 as
867 ddp_subset_request_obj amv_item_pub.amv_request_obj_type;
868 ddx_subset_return_obj amv_item_pub.amv_return_obj_type;
869 ddx_item_obj_array amv_item_pub.amv_simple_item_obj_varray;
870 ddindx binary_integer; indx binary_integer;
871 begin
872
873 -- copy data to the local IN or IN-OUT args, if any
874
875
876
877
878
879
880
881
882
883 ddp_subset_request_obj.records_requested := rosetta_g_miss_num_map(p9_a0);
884 ddp_subset_request_obj.start_record_position := rosetta_g_miss_num_map(p9_a1);
885 ddp_subset_request_obj.return_total_count_flag := p9_a2;
886
887
888
889 -- here's the delegated call to the old PL/SQL routine
890 amv_item_pub.find_item(p_api_version,
891 p_init_msg_list,
892 x_return_status,
893 x_msg_count,
894 x_msg_data,
895 p_check_login_user,
896 p_item_name,
897 p_description,
898 p_item_type,
899 ddp_subset_request_obj,
900 ddx_subset_return_obj,
901 ddx_item_obj_array);
902
903 -- copy data back from the local variables to OUT or IN-OUT args, if any
904
905
906
907
908
909
910
911
912
913
914 p10_a0 := rosetta_g_miss_num_map(ddx_subset_return_obj.returned_record_count);
915 p10_a1 := rosetta_g_miss_num_map(ddx_subset_return_obj.next_record_position);
916 p10_a2 := rosetta_g_miss_num_map(ddx_subset_return_obj.total_record_count);
917
918 amv_item_pub_w.rosetta_table_copy_out_p6(ddx_item_obj_array, p11_a0
919 , p11_a1
920 , p11_a2
921 , p11_a3
922 , p11_a4
923 , p11_a5
924 , p11_a6
925 , p11_a7
926 , p11_a8
927 , p11_a9
928 , p11_a10
929 , p11_a11
930 , p11_a12
931 , p11_a13
932 , p11_a14
933 , p11_a15
934 , p11_a16
935 , p11_a17
936 , p11_a18
937 , p11_a19
938 , p11_a20
939 , p11_a21
940 , p11_a22
941 , p11_a23
942 , p11_a24
943 , p11_a25
944 , p11_a26
945 , p11_a27
946 , p11_a28
947 );
948 end;
949
950 procedure add_itemkeyword(p_api_version NUMBER
951 , p_init_msg_list VARCHAR2
952 , p_commit VARCHAR2
953 , x_return_status out nocopy VARCHAR2
954 , x_msg_count out nocopy NUMBER
955 , x_msg_data out nocopy VARCHAR2
956 , p_check_login_user VARCHAR2
957 , p_item_id NUMBER
958 , p_keyword_varray JTF_VARCHAR2_TABLE_4000
959 )
960
961 as
962 ddp_keyword_varray amv_item_pub.amv_char_varray_type;
963 ddindx binary_integer; indx binary_integer;
964 begin
965
966 -- copy data to the local IN or IN-OUT args, if any
967
968
969
970
971
975 amv_item_pub_w.rosetta_table_copy_in_p0(ddp_keyword_varray, p_keyword_varray);
972
973
974
976
977 -- here's the delegated call to the old PL/SQL routine
978 amv_item_pub.add_itemkeyword(p_api_version,
979 p_init_msg_list,
980 p_commit,
981 x_return_status,
982 x_msg_count,
983 x_msg_data,
984 p_check_login_user,
985 p_item_id,
986 ddp_keyword_varray);
987
988 -- copy data back from the local variables to OUT or IN-OUT args, if any
989
990
991
992
993
994
995
996
997 end;
998
999 procedure delete_itemkeyword(p_api_version NUMBER
1000 , p_init_msg_list VARCHAR2
1001 , p_commit VARCHAR2
1002 , x_return_status out nocopy VARCHAR2
1003 , x_msg_count out nocopy NUMBER
1004 , x_msg_data out nocopy VARCHAR2
1005 , p_check_login_user VARCHAR2
1006 , p_item_id NUMBER
1007 , p_keyword_varray JTF_VARCHAR2_TABLE_4000
1008 )
1009
1010 as
1011 ddp_keyword_varray amv_item_pub.amv_char_varray_type;
1012 ddindx binary_integer; indx binary_integer;
1013 begin
1014
1015 -- copy data to the local IN or IN-OUT args, if any
1016
1017
1018
1019
1020
1021
1022
1023
1024 amv_item_pub_w.rosetta_table_copy_in_p0(ddp_keyword_varray, p_keyword_varray);
1025
1026 -- here's the delegated call to the old PL/SQL routine
1027 amv_item_pub.delete_itemkeyword(p_api_version,
1028 p_init_msg_list,
1029 p_commit,
1030 x_return_status,
1031 x_msg_count,
1032 x_msg_data,
1033 p_check_login_user,
1034 p_item_id,
1035 ddp_keyword_varray);
1036
1037 -- copy data back from the local variables to OUT or IN-OUT args, if any
1038
1039
1040
1041
1042
1043
1044
1045
1046 end;
1047
1048 procedure replace_itemkeyword(p_api_version NUMBER
1049 , p_init_msg_list VARCHAR2
1050 , p_commit VARCHAR2
1051 , x_return_status out nocopy VARCHAR2
1052 , x_msg_count out nocopy NUMBER
1053 , x_msg_data out nocopy VARCHAR2
1054 , p_check_login_user VARCHAR2
1055 , p_item_id NUMBER
1056 , p_keyword_varray JTF_VARCHAR2_TABLE_4000
1057 )
1058
1059 as
1060 ddp_keyword_varray amv_item_pub.amv_char_varray_type;
1061 ddindx binary_integer; indx binary_integer;
1062 begin
1063
1064 -- copy data to the local IN or IN-OUT args, if any
1065
1066
1067
1068
1069
1070
1071
1072
1073 amv_item_pub_w.rosetta_table_copy_in_p0(ddp_keyword_varray, p_keyword_varray);
1074
1075 -- here's the delegated call to the old PL/SQL routine
1076 amv_item_pub.replace_itemkeyword(p_api_version,
1077 p_init_msg_list,
1078 p_commit,
1079 x_return_status,
1080 x_msg_count,
1081 x_msg_data,
1082 p_check_login_user,
1083 p_item_id,
1084 ddp_keyword_varray);
1085
1086 -- copy data back from the local variables to OUT or IN-OUT args, if any
1087
1088
1089
1090
1091
1092
1093
1094
1095 end;
1096
1097 procedure get_itemkeyword(p_api_version NUMBER
1098 , p_init_msg_list VARCHAR2
1099 , x_return_status out nocopy VARCHAR2
1100 , x_msg_count out nocopy NUMBER
1101 , x_msg_data out nocopy VARCHAR2
1102 , p_check_login_user VARCHAR2
1103 , p_item_id NUMBER
1104 , x_keyword_varray out nocopy JTF_VARCHAR2_TABLE_4000
1105 )
1106
1107 as
1108 ddx_keyword_varray amv_item_pub.amv_char_varray_type;
1109 ddindx binary_integer; indx binary_integer;
1110 begin
1111
1112 -- copy data to the local IN or IN-OUT args, if any
1113
1114
1115
1116
1117
1118
1119
1120
1121 -- here's the delegated call to the old PL/SQL routine
1122 amv_item_pub.get_itemkeyword(p_api_version,
1123 p_init_msg_list,
1124 x_return_status,
1125 x_msg_count,
1126 x_msg_data,
1127 p_check_login_user,
1128 p_item_id,
1129 ddx_keyword_varray);
1130
1131 -- copy data back from the local variables to OUT or IN-OUT args, if any
1132
1133
1134
1135
1136
1137
1138
1139 amv_item_pub_w.rosetta_table_copy_out_p0(ddx_keyword_varray, x_keyword_varray);
1140 end;
1141
1142 procedure add_itemauthor(p_api_version NUMBER
1143 , p_init_msg_list VARCHAR2
1144 , p_commit VARCHAR2
1145 , x_return_status out nocopy VARCHAR2
1146 , x_msg_count out nocopy NUMBER
1147 , x_msg_data out nocopy VARCHAR2
1148 , p_check_login_user VARCHAR2
1149 , p_item_id NUMBER
1150 , p_author_varray JTF_VARCHAR2_TABLE_4000
1151 )
1152
1153 as
1154 ddp_author_varray amv_item_pub.amv_char_varray_type;
1155 ddindx binary_integer; indx binary_integer;
1156 begin
1157
1158 -- copy data to the local IN or IN-OUT args, if any
1159
1163
1160
1161
1162
1164
1165
1166
1167 amv_item_pub_w.rosetta_table_copy_in_p0(ddp_author_varray, p_author_varray);
1168
1169 -- here's the delegated call to the old PL/SQL routine
1170 amv_item_pub.add_itemauthor(p_api_version,
1171 p_init_msg_list,
1172 p_commit,
1173 x_return_status,
1174 x_msg_count,
1175 x_msg_data,
1176 p_check_login_user,
1177 p_item_id,
1178 ddp_author_varray);
1179
1180 -- copy data back from the local variables to OUT or IN-OUT args, if any
1181
1182
1183
1184
1185
1186
1187
1188
1189 end;
1190
1191 procedure delete_itemauthor(p_api_version NUMBER
1192 , p_init_msg_list VARCHAR2
1193 , p_commit VARCHAR2
1194 , x_return_status out nocopy VARCHAR2
1195 , x_msg_count out nocopy NUMBER
1196 , x_msg_data out nocopy VARCHAR2
1197 , p_check_login_user VARCHAR2
1198 , p_item_id NUMBER
1199 , p_author_varray JTF_VARCHAR2_TABLE_4000
1200 )
1201
1202 as
1203 ddp_author_varray amv_item_pub.amv_char_varray_type;
1204 ddindx binary_integer; indx binary_integer;
1205 begin
1206
1207 -- copy data to the local IN or IN-OUT args, if any
1208
1209
1210
1211
1212
1213
1214
1215
1216 amv_item_pub_w.rosetta_table_copy_in_p0(ddp_author_varray, p_author_varray);
1217
1218 -- here's the delegated call to the old PL/SQL routine
1219 amv_item_pub.delete_itemauthor(p_api_version,
1220 p_init_msg_list,
1221 p_commit,
1222 x_return_status,
1223 x_msg_count,
1224 x_msg_data,
1225 p_check_login_user,
1226 p_item_id,
1227 ddp_author_varray);
1228
1229 -- copy data back from the local variables to OUT or IN-OUT args, if any
1230
1231
1232
1233
1234
1235
1236
1237
1238 end;
1239
1240 procedure replace_itemauthor(p_api_version NUMBER
1241 , p_init_msg_list VARCHAR2
1242 , p_commit VARCHAR2
1243 , x_return_status out nocopy VARCHAR2
1244 , x_msg_count out nocopy NUMBER
1245 , x_msg_data out nocopy VARCHAR2
1246 , p_check_login_user VARCHAR2
1247 , p_item_id NUMBER
1248 , p_author_varray JTF_VARCHAR2_TABLE_4000
1249 )
1250
1251 as
1252 ddp_author_varray amv_item_pub.amv_char_varray_type;
1253 ddindx binary_integer; indx binary_integer;
1254 begin
1255
1256 -- copy data to the local IN or IN-OUT args, if any
1257
1258
1259
1260
1261
1262
1263
1264
1265 amv_item_pub_w.rosetta_table_copy_in_p0(ddp_author_varray, p_author_varray);
1266
1267 -- here's the delegated call to the old PL/SQL routine
1268 amv_item_pub.replace_itemauthor(p_api_version,
1269 p_init_msg_list,
1270 p_commit,
1271 x_return_status,
1272 x_msg_count,
1273 x_msg_data,
1274 p_check_login_user,
1275 p_item_id,
1276 ddp_author_varray);
1277
1278 -- copy data back from the local variables to OUT or IN-OUT args, if any
1279
1280
1281
1282
1283
1284
1285
1286
1287 end;
1288
1289 procedure get_itemauthor(p_api_version NUMBER
1290 , p_init_msg_list VARCHAR2
1291 , x_return_status out nocopy VARCHAR2
1292 , x_msg_count out nocopy NUMBER
1293 , x_msg_data out nocopy VARCHAR2
1294 , p_check_login_user VARCHAR2
1295 , p_item_id NUMBER
1296 , x_author_varray out nocopy JTF_VARCHAR2_TABLE_4000
1297 )
1298
1299 as
1300 ddx_author_varray amv_item_pub.amv_char_varray_type;
1301 ddindx binary_integer; indx binary_integer;
1302 begin
1303
1304 -- copy data to the local IN or IN-OUT args, if any
1305
1306
1307
1308
1309
1310
1311
1312
1313 -- here's the delegated call to the old PL/SQL routine
1314 amv_item_pub.get_itemauthor(p_api_version,
1315 p_init_msg_list,
1316 x_return_status,
1317 x_msg_count,
1318 x_msg_data,
1319 p_check_login_user,
1320 p_item_id,
1321 ddx_author_varray);
1322
1323 -- copy data back from the local variables to OUT or IN-OUT args, if any
1324
1325
1326
1327
1328
1329
1330
1331 amv_item_pub_w.rosetta_table_copy_out_p0(ddx_author_varray, x_author_varray);
1332 end;
1333
1334 procedure add_itemfile(p_api_version NUMBER
1335 , p_init_msg_list VARCHAR2
1336 , p_commit VARCHAR2
1337 , x_return_status out nocopy VARCHAR2
1338 , x_msg_count out nocopy NUMBER
1339 , x_msg_data out nocopy VARCHAR2
1340 , p_check_login_user VARCHAR2
1341 , p_application_id NUMBER
1342 , p_item_id NUMBER
1343 , p_file_id_varray JTF_NUMBER_TABLE
1344 )
1345
1346 as
1347 ddp_file_id_varray amv_item_pub.amv_number_varray_type;
1348 ddindx binary_integer; indx binary_integer;
1349 begin
1350
1354
1351 -- copy data to the local IN or IN-OUT args, if any
1352
1353
1355
1356
1357
1358
1359
1360
1361 amv_item_pub_w.rosetta_table_copy_in_p1(ddp_file_id_varray, p_file_id_varray);
1362
1363 -- here's the delegated call to the old PL/SQL routine
1364 amv_item_pub.add_itemfile(p_api_version,
1365 p_init_msg_list,
1366 p_commit,
1367 x_return_status,
1368 x_msg_count,
1369 x_msg_data,
1370 p_check_login_user,
1371 p_application_id,
1372 p_item_id,
1373 ddp_file_id_varray);
1374
1375 -- copy data back from the local variables to OUT or IN-OUT args, if any
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385 end;
1386
1387 procedure delete_itemfile(p_api_version NUMBER
1388 , p_init_msg_list VARCHAR2
1389 , p_commit VARCHAR2
1390 , x_return_status out nocopy VARCHAR2
1391 , x_msg_count out nocopy NUMBER
1392 , x_msg_data out nocopy VARCHAR2
1393 , p_check_login_user VARCHAR2
1394 , p_item_id NUMBER
1395 , p_file_id_varray JTF_NUMBER_TABLE
1396 )
1397
1398 as
1399 ddp_file_id_varray amv_item_pub.amv_number_varray_type;
1400 ddindx binary_integer; indx binary_integer;
1401 begin
1402
1403 -- copy data to the local IN or IN-OUT args, if any
1404
1405
1406
1407
1408
1409
1410
1411
1412 amv_item_pub_w.rosetta_table_copy_in_p1(ddp_file_id_varray, p_file_id_varray);
1413
1414 -- here's the delegated call to the old PL/SQL routine
1415 amv_item_pub.delete_itemfile(p_api_version,
1416 p_init_msg_list,
1417 p_commit,
1418 x_return_status,
1419 x_msg_count,
1420 x_msg_data,
1421 p_check_login_user,
1422 p_item_id,
1423 ddp_file_id_varray);
1424
1425 -- copy data back from the local variables to OUT or IN-OUT args, if any
1426
1427
1428
1429
1430
1431
1432
1433
1434 end;
1435
1436 procedure replace_itemfile(p_api_version NUMBER
1437 , p_init_msg_list VARCHAR2
1438 , p_commit VARCHAR2
1439 , x_return_status out nocopy VARCHAR2
1440 , x_msg_count out nocopy NUMBER
1441 , x_msg_data out nocopy VARCHAR2
1442 , p_check_login_user VARCHAR2
1443 , p_item_id NUMBER
1444 , p_file_id_varray JTF_NUMBER_TABLE
1445 )
1446
1447 as
1448 ddp_file_id_varray amv_item_pub.amv_number_varray_type;
1449 ddindx binary_integer; indx binary_integer;
1450 begin
1451
1452 -- copy data to the local IN or IN-OUT args, if any
1453
1454
1455
1456
1457
1458
1459
1460
1461 amv_item_pub_w.rosetta_table_copy_in_p1(ddp_file_id_varray, p_file_id_varray);
1462
1463 -- here's the delegated call to the old PL/SQL routine
1464 amv_item_pub.replace_itemfile(p_api_version,
1465 p_init_msg_list,
1466 p_commit,
1467 x_return_status,
1468 x_msg_count,
1469 x_msg_data,
1470 p_check_login_user,
1471 p_item_id,
1472 ddp_file_id_varray);
1473
1474 -- copy data back from the local variables to OUT or IN-OUT args, if any
1475
1476
1477
1478
1479
1480
1481
1482
1483 end;
1484
1485 procedure get_itemfile(p_api_version NUMBER
1486 , p_init_msg_list VARCHAR2
1487 , x_return_status out nocopy VARCHAR2
1488 , x_msg_count out nocopy NUMBER
1489 , x_msg_data out nocopy VARCHAR2
1490 , p_check_login_user VARCHAR2
1491 , p_item_id NUMBER
1492 , x_file_id_varray out nocopy JTF_NUMBER_TABLE
1493 )
1494
1495 as
1496 ddx_file_id_varray amv_item_pub.amv_number_varray_type;
1497 ddindx binary_integer; indx binary_integer;
1498 begin
1499
1500 -- copy data to the local IN or IN-OUT args, if any
1501
1502
1503
1504
1505
1506
1507
1508
1509 -- here's the delegated call to the old PL/SQL routine
1510 amv_item_pub.get_itemfile(p_api_version,
1511 p_init_msg_list,
1512 x_return_status,
1513 x_msg_count,
1514 x_msg_data,
1515 p_check_login_user,
1516 p_item_id,
1517 ddx_file_id_varray);
1518
1519 -- copy data back from the local variables to OUT or IN-OUT args, if any
1520
1521
1522
1523
1524
1525
1526
1527 amv_item_pub_w.rosetta_table_copy_out_p1(ddx_file_id_varray, x_file_id_varray);
1528 end;
1529
1530 procedure get_usermessage(p_api_version NUMBER
1531 , p_init_msg_list VARCHAR2
1532 , x_return_status out nocopy VARCHAR2
1533 , x_msg_count out nocopy NUMBER
1534 , x_msg_data out nocopy VARCHAR2
1535 , p_check_login_user VARCHAR2
1536 , p_user_id NUMBER
1537 , x_item_id_varray out nocopy JTF_NUMBER_TABLE
1538 , x_message_varray out nocopy JTF_VARCHAR2_TABLE_4000
1539 )
1540
1544 ddindx binary_integer; indx binary_integer;
1541 as
1542 ddx_item_id_varray amv_item_pub.amv_number_varray_type;
1543 ddx_message_varray amv_item_pub.amv_char_varray_type;
1545 begin
1546
1547 -- copy data to the local IN or IN-OUT args, if any
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557 -- here's the delegated call to the old PL/SQL routine
1558 amv_item_pub.get_usermessage(p_api_version,
1559 p_init_msg_list,
1560 x_return_status,
1561 x_msg_count,
1562 x_msg_data,
1563 p_check_login_user,
1564 p_user_id,
1565 ddx_item_id_varray,
1566 ddx_message_varray);
1567
1568 -- copy data back from the local variables to OUT or IN-OUT args, if any
1569
1570
1571
1572
1573
1574
1575
1576 amv_item_pub_w.rosetta_table_copy_out_p1(ddx_item_id_varray, x_item_id_varray);
1577
1578 amv_item_pub_w.rosetta_table_copy_out_p0(ddx_message_varray, x_message_varray);
1579 end;
1580
1581 procedure get_usermessage2(p_api_version NUMBER
1582 , p_init_msg_list VARCHAR2
1583 , x_return_status out nocopy VARCHAR2
1584 , x_msg_count out nocopy NUMBER
1585 , x_msg_data out nocopy VARCHAR2
1586 , p_check_login_user VARCHAR2
1587 , p_user_id NUMBER
1588 , p7_a0 out nocopy JTF_NUMBER_TABLE
1589 , p7_a1 out nocopy JTF_NUMBER_TABLE
1590 , p7_a2 out nocopy JTF_DATE_TABLE
1591 , p7_a3 out nocopy JTF_NUMBER_TABLE
1592 , p7_a4 out nocopy JTF_DATE_TABLE
1593 , p7_a5 out nocopy JTF_NUMBER_TABLE
1594 , p7_a6 out nocopy JTF_NUMBER_TABLE
1595 , p7_a7 out nocopy JTF_NUMBER_TABLE
1596 , p7_a8 out nocopy JTF_VARCHAR2_TABLE_100
1597 , p7_a9 out nocopy JTF_VARCHAR2_TABLE_300
1598 , p7_a10 out nocopy JTF_VARCHAR2_TABLE_2000
1599 , p7_a11 out nocopy JTF_VARCHAR2_TABLE_2000
1600 , p7_a12 out nocopy JTF_VARCHAR2_TABLE_100
1601 , p7_a13 out nocopy JTF_VARCHAR2_TABLE_100
1602 , p7_a14 out nocopy JTF_DATE_TABLE
1603 , p7_a15 out nocopy JTF_DATE_TABLE
1604 , p7_a16 out nocopy JTF_VARCHAR2_TABLE_300
1605 , p7_a17 out nocopy JTF_VARCHAR2_TABLE_2000
1606 , p7_a18 out nocopy JTF_DATE_TABLE
1607 , p7_a19 out nocopy JTF_VARCHAR2_TABLE_100
1608 , p7_a20 out nocopy JTF_NUMBER_TABLE
1609 , p7_a21 out nocopy JTF_NUMBER_TABLE
1610 , p7_a22 out nocopy JTF_NUMBER_TABLE
1611 , p7_a23 out nocopy JTF_VARCHAR2_TABLE_300
1612 , p7_a24 out nocopy JTF_VARCHAR2_TABLE_2000
1613 , p7_a25 out nocopy JTF_VARCHAR2_TABLE_2000
1614 , p7_a26 out nocopy JTF_VARCHAR2_TABLE_2000
1615 , p7_a27 out nocopy JTF_VARCHAR2_TABLE_2000
1616 , p7_a28 out nocopy JTF_VARCHAR2_TABLE_2000
1617 )
1618
1619 as
1620 ddx_item_varray amv_item_pub.amv_simple_item_obj_varray;
1621 ddindx binary_integer; indx binary_integer;
1622 begin
1623
1624 -- copy data to the local IN or IN-OUT args, if any
1625
1626
1627
1628
1629
1630
1631
1632
1633 -- here's the delegated call to the old PL/SQL routine
1634 amv_item_pub.get_usermessage2(p_api_version,
1635 p_init_msg_list,
1636 x_return_status,
1637 x_msg_count,
1638 x_msg_data,
1639 p_check_login_user,
1640 p_user_id,
1641 ddx_item_varray);
1642
1643 -- copy data back from the local variables to OUT or IN-OUT args, if any
1644
1645
1646
1647
1648
1649
1650
1651 amv_item_pub_w.rosetta_table_copy_out_p6(ddx_item_varray, p7_a0
1652 , p7_a1
1653 , p7_a2
1654 , p7_a3
1655 , p7_a4
1656 , p7_a5
1657 , p7_a6
1658 , p7_a7
1659 , p7_a8
1660 , p7_a9
1661 , p7_a10
1662 , p7_a11
1663 , p7_a12
1664 , p7_a13
1665 , p7_a14
1666 , p7_a15
1667 , p7_a16
1668 , p7_a17
1669 , p7_a18
1670 , p7_a19
1671 , p7_a20
1672 , p7_a21
1673 , p7_a22
1674 , p7_a23
1675 , p7_a24
1676 , p7_a25
1677 , p7_a26
1678 , p7_a27
1679 , p7_a28
1680 );
1681 end;
1682
1683 procedure get_channelsperitem(p_api_version NUMBER
1684 , p_init_msg_list VARCHAR2
1685 , x_return_status out nocopy VARCHAR2
1686 , x_msg_count out nocopy NUMBER
1687 , x_msg_data out nocopy VARCHAR2
1688 , p_check_login_user VARCHAR2
1689 , p_item_id NUMBER
1690 , p_match_type VARCHAR2
1691 , p8_a0 out nocopy JTF_NUMBER_TABLE
1692 , p8_a1 out nocopy JTF_VARCHAR2_TABLE_300
1693 )
1694
1695 as
1696 ddx_channel_array amv_item_pub.amv_nameid_varray_type;
1697 ddindx binary_integer; indx binary_integer;
1698 begin
1699
1700 -- copy data to the local IN or IN-OUT args, if any
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710 -- here's the delegated call to the old PL/SQL routine
1711 amv_item_pub.get_channelsperitem(p_api_version,
1712 p_init_msg_list,
1713 x_return_status,
1714 x_msg_count,
1715 x_msg_data,
1716 p_check_login_user,
1717 p_item_id,
1718 p_match_type,
1719 ddx_channel_array);
1720
1721 -- copy data back from the local variables to OUT or IN-OUT args, if any
1722
1723
1724
1725
1726
1727
1728
1729
1730 amv_item_pub_w.rosetta_table_copy_out_p8(ddx_channel_array, p8_a0
1731 , p8_a1
1732 );
1733 end;
1734
1735 end amv_item_pub_w;