[Home] [Help]
PACKAGE BODY: APPS.JTF_AMV_ITEM_PUB_W
Source
1 package body jtf_amv_item_pub_w as
2 /* $Header: jtfpitwb.pls 120.3 2005/09/13 11:09:54 vimohan 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 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 function rosetta_g_miss_num_map(n number) return number as
17 a number := fnd_api.g_miss_num;
18 b number := 0-1962.0724;
19 begin
20 if n=a then return b; end if;
21 if n=b then return a; end if;
22 return n;
23 end;
24
25 procedure rosetta_table_copy_in_p1(t out nocopy jtf_amv_item_pub.number_tab_type, a0 JTF_NUMBER_TABLE) as
26 ddindx binary_integer; indx binary_integer;
27 begin
28 if a0 is null then
29 t := null;
30 elsif a0.count = 0 then
31 t := jtf_amv_item_pub.number_tab_type();
32 else
33 if a0.count > 0 then
34 t := jtf_amv_item_pub.number_tab_type();
35 t.extend(a0.count);
36 indx := a0.first;
37 ddindx := 1;
38 while true loop
39 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
40 ddindx := ddindx+1;
41 if a0.last =indx
42 then exit;
43 end if;
44 indx := a0.next(indx);
45 end loop;
46 end if;
47 end if;
48 end rosetta_table_copy_in_p1;
49 procedure rosetta_table_copy_out_p1(t jtf_amv_item_pub.number_tab_type, a0 out nocopy JTF_NUMBER_TABLE) as
50 ddindx binary_integer; indx binary_integer;
51 begin
52 if t is null then
53 a0 := null;
54 elsif t.count = 0 then
55 a0 := JTF_NUMBER_TABLE();
56 else
57 a0 := JTF_NUMBER_TABLE();
58 if t.count > 0 then
59 a0.extend(t.count);
60 ddindx := t.first;
61 indx := 1;
62 while true loop
63 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
64 indx := indx+1;
65 if t.last =ddindx
66 then exit;
67 end if;
68 ddindx := t.next(ddindx);
69 end loop;
70 end if;
71 end if;
72 end rosetta_table_copy_out_p1;
73
74 procedure rosetta_table_copy_in_p2(t out nocopy jtf_amv_item_pub.char_tab_type, a0 JTF_VARCHAR2_TABLE_200) as
75 ddindx binary_integer; indx binary_integer;
76 begin
77 if a0 is null then
78 t := null;
79 elsif a0.count = 0 then
80 t := jtf_amv_item_pub.char_tab_type();
81 else
82 if a0.count > 0 then
83 t := jtf_amv_item_pub.char_tab_type();
84 t.extend(a0.count);
85 indx := a0.first;
86 ddindx := 1;
87 while true loop
88 t(ddindx) := a0(indx);
89 ddindx := ddindx+1;
90 if a0.last =indx
91 then exit;
92 end if;
93 indx := a0.next(indx);
94 end loop;
95 end if;
96 end if;
97 end rosetta_table_copy_in_p2;
98 procedure rosetta_table_copy_out_p2(t jtf_amv_item_pub.char_tab_type, a0 out nocopy JTF_VARCHAR2_TABLE_200) as
99 ddindx binary_integer; indx binary_integer;
100 begin
101 if t is null then
102 a0 := null;
103 elsif t.count = 0 then
104 a0 := JTF_VARCHAR2_TABLE_200();
105 else
106 a0 := JTF_VARCHAR2_TABLE_200();
107 if t.count > 0 then
108 a0.extend(t.count);
109 ddindx := t.first;
110 indx := 1;
111 while true loop
112 a0(indx) := t(ddindx);
113 indx := indx+1;
114 if t.last =ddindx
115 then exit;
116 end if;
117 ddindx := t.next(ddindx);
118 end loop;
119 end if;
120 end if;
121 end rosetta_table_copy_out_p2;
122
123 procedure create_item(p_api_version NUMBER
124 , p_init_msg_list VARCHAR2
125 , p_commit VARCHAR2
126 , x_return_status out nocopy VARCHAR2
127 , x_msg_count out nocopy NUMBER
128 , x_msg_data out nocopy VARCHAR2
129 , x_item_id out nocopy NUMBER
130 , p6_a0 NUMBER := 0-1962.0724
131 , p6_a1 DATE := fnd_api.g_miss_date
132 , p6_a2 NUMBER := 0-1962.0724
133 , p6_a3 DATE := fnd_api.g_miss_date
134 , p6_a4 NUMBER := 0-1962.0724
135 , p6_a5 NUMBER := 0-1962.0724
136 , p6_a6 NUMBER := 0-1962.0724
137 , p6_a7 NUMBER := 0-1962.0724
138 , p6_a8 VARCHAR2 := fnd_api.g_miss_char
139 , p6_a9 VARCHAR2 := fnd_api.g_miss_char
140 , p6_a10 VARCHAR2 := fnd_api.g_miss_char
141 , p6_a11 VARCHAR2 := fnd_api.g_miss_char
142 , p6_a12 VARCHAR2 := fnd_api.g_miss_char
143 , p6_a13 VARCHAR2 := fnd_api.g_miss_char
144 , p6_a14 DATE := fnd_api.g_miss_date
145 , p6_a15 DATE := fnd_api.g_miss_date
146 , p6_a16 VARCHAR2 := fnd_api.g_miss_char
147 , p6_a17 VARCHAR2 := fnd_api.g_miss_char
148 , p6_a18 DATE := fnd_api.g_miss_date
149 , p6_a19 VARCHAR2 := fnd_api.g_miss_char
150 , p6_a20 NUMBER := 0-1962.0724
151 , p6_a21 NUMBER := 0-1962.0724
152 , p6_a22 NUMBER := 0-1962.0724
153 , p6_a23 VARCHAR2 := fnd_api.g_miss_char
154 , p6_a24 VARCHAR2 := fnd_api.g_miss_char
155 , p6_a25 VARCHAR2 := fnd_api.g_miss_char
156 , p6_a26 VARCHAR2 := fnd_api.g_miss_char
157 )
158
159 as
160 ddp_item_rec jtf_amv_item_pub.item_rec_type;
161 ddindx binary_integer; indx binary_integer;
162 begin
163
164 -- copy data to the local IN or IN-OUT args, if any
165
166
167
168
169
170
171 ddp_item_rec.item_id := rosetta_g_miss_num_map(p6_a0);
172 ddp_item_rec.creation_date := rosetta_g_miss_date_in_map(p6_a1);
173 ddp_item_rec.created_by := rosetta_g_miss_num_map(p6_a2);
174 ddp_item_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a3);
175 ddp_item_rec.last_updated_by := rosetta_g_miss_num_map(p6_a4);
176 ddp_item_rec.last_update_login := rosetta_g_miss_num_map(p6_a5);
177 ddp_item_rec.object_version_number := rosetta_g_miss_num_map(p6_a6);
178 ddp_item_rec.application_id := rosetta_g_miss_num_map(p6_a7);
179 ddp_item_rec.external_access_flag := p6_a8;
180 ddp_item_rec.item_name := p6_a9;
181 ddp_item_rec.description := p6_a10;
182 ddp_item_rec.text_string := p6_a11;
183 ddp_item_rec.language_code := p6_a12;
184 ddp_item_rec.status_code := p6_a13;
185 ddp_item_rec.effective_start_date := rosetta_g_miss_date_in_map(p6_a14);
186 ddp_item_rec.expiration_date := rosetta_g_miss_date_in_map(p6_a15);
187 ddp_item_rec.item_type := p6_a16;
188 ddp_item_rec.url_string := p6_a17;
189 ddp_item_rec.publication_date := rosetta_g_miss_date_in_map(p6_a18);
190 ddp_item_rec.priority := p6_a19;
191 ddp_item_rec.content_type_id := rosetta_g_miss_num_map(p6_a20);
192 ddp_item_rec.owner_id := rosetta_g_miss_num_map(p6_a21);
193 ddp_item_rec.default_approver_id := rosetta_g_miss_num_map(p6_a22);
194 ddp_item_rec.item_destination_type := p6_a23;
195 ddp_item_rec.access_name := p6_a24;
196 ddp_item_rec.deliverable_type_code := p6_a25;
197 ddp_item_rec.applicable_to_code := p6_a26;
198
199
200 -- here's the delegated call to the old PL/SQL routine
201 jtf_amv_item_pub.create_item(p_api_version,
202 p_init_msg_list,
203 p_commit,
204 x_return_status,
205 x_msg_count,
206 x_msg_data,
207 ddp_item_rec,
208 x_item_id);
209
210 -- copy data back from the local variables to OUT or IN-OUT args, if any
211
212
213
214
215
216
217
218 end;
219
220 procedure update_item(p_api_version NUMBER
221 , p_init_msg_list VARCHAR2
222 , p_commit VARCHAR2
223 , x_return_status out nocopy VARCHAR2
224 , x_msg_count out nocopy NUMBER
225 , x_msg_data out nocopy VARCHAR2
226 , p6_a0 NUMBER := 0-1962.0724
227 , p6_a1 DATE := fnd_api.g_miss_date
228 , p6_a2 NUMBER := 0-1962.0724
229 , p6_a3 DATE := fnd_api.g_miss_date
230 , p6_a4 NUMBER := 0-1962.0724
231 , p6_a5 NUMBER := 0-1962.0724
232 , p6_a6 NUMBER := 0-1962.0724
233 , p6_a7 NUMBER := 0-1962.0724
234 , p6_a8 VARCHAR2 := fnd_api.g_miss_char
235 , p6_a9 VARCHAR2 := fnd_api.g_miss_char
236 , p6_a10 VARCHAR2 := fnd_api.g_miss_char
237 , p6_a11 VARCHAR2 := fnd_api.g_miss_char
238 , p6_a12 VARCHAR2 := fnd_api.g_miss_char
239 , p6_a13 VARCHAR2 := fnd_api.g_miss_char
240 , p6_a14 DATE := fnd_api.g_miss_date
241 , p6_a15 DATE := fnd_api.g_miss_date
242 , p6_a16 VARCHAR2 := fnd_api.g_miss_char
243 , p6_a17 VARCHAR2 := fnd_api.g_miss_char
244 , p6_a18 DATE := fnd_api.g_miss_date
245 , p6_a19 VARCHAR2 := fnd_api.g_miss_char
246 , p6_a20 NUMBER := 0-1962.0724
247 , p6_a21 NUMBER := 0-1962.0724
248 , p6_a22 NUMBER := 0-1962.0724
249 , p6_a23 VARCHAR2 := fnd_api.g_miss_char
250 , p6_a24 VARCHAR2 := fnd_api.g_miss_char
251 , p6_a25 VARCHAR2 := fnd_api.g_miss_char
252 , p6_a26 VARCHAR2 := fnd_api.g_miss_char
253 )
254
255 as
256 ddp_item_rec jtf_amv_item_pub.item_rec_type;
257 ddindx binary_integer; indx binary_integer;
258 begin
259
260 -- copy data to the local IN or IN-OUT args, if any
261
262
263
264
265
266
267 ddp_item_rec.item_id := rosetta_g_miss_num_map(p6_a0);
268 ddp_item_rec.creation_date := rosetta_g_miss_date_in_map(p6_a1);
269 ddp_item_rec.created_by := rosetta_g_miss_num_map(p6_a2);
270 ddp_item_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a3);
271 ddp_item_rec.last_updated_by := rosetta_g_miss_num_map(p6_a4);
272 ddp_item_rec.last_update_login := rosetta_g_miss_num_map(p6_a5);
273 ddp_item_rec.object_version_number := rosetta_g_miss_num_map(p6_a6);
274 ddp_item_rec.application_id := rosetta_g_miss_num_map(p6_a7);
275 ddp_item_rec.external_access_flag := p6_a8;
276 ddp_item_rec.item_name := p6_a9;
277 ddp_item_rec.description := p6_a10;
278 ddp_item_rec.text_string := p6_a11;
279 ddp_item_rec.language_code := p6_a12;
280 ddp_item_rec.status_code := p6_a13;
281 ddp_item_rec.effective_start_date := rosetta_g_miss_date_in_map(p6_a14);
282 ddp_item_rec.expiration_date := rosetta_g_miss_date_in_map(p6_a15);
283 ddp_item_rec.item_type := p6_a16;
284 ddp_item_rec.url_string := p6_a17;
285 ddp_item_rec.publication_date := rosetta_g_miss_date_in_map(p6_a18);
286 ddp_item_rec.priority := p6_a19;
287 ddp_item_rec.content_type_id := rosetta_g_miss_num_map(p6_a20);
288 ddp_item_rec.owner_id := rosetta_g_miss_num_map(p6_a21);
289 ddp_item_rec.default_approver_id := rosetta_g_miss_num_map(p6_a22);
290 ddp_item_rec.item_destination_type := p6_a23;
291 ddp_item_rec.access_name := p6_a24;
292 ddp_item_rec.deliverable_type_code := p6_a25;
293 ddp_item_rec.applicable_to_code := p6_a26;
294
295 -- here's the delegated call to the old PL/SQL routine
296 jtf_amv_item_pub.update_item(p_api_version,
297 p_init_msg_list,
298 p_commit,
299 x_return_status,
300 x_msg_count,
301 x_msg_data,
302 ddp_item_rec);
303
304 -- copy data back from the local variables to OUT or IN-OUT args, if any
305
306
307
308
309
310
311 end;
312
313 procedure get_item(p_api_version NUMBER
314 , p_init_msg_list VARCHAR2
315 , x_return_status out nocopy VARCHAR2
316 , x_msg_count out nocopy NUMBER
317 , x_msg_data out nocopy VARCHAR2
318 , p_item_id NUMBER
319 , p6_a0 out nocopy NUMBER
320 , p6_a1 out nocopy DATE
321 , p6_a2 out nocopy NUMBER
322 , p6_a3 out nocopy DATE
323 , p6_a4 out nocopy NUMBER
324 , p6_a5 out nocopy NUMBER
325 , p6_a6 out nocopy NUMBER
326 , p6_a7 out nocopy NUMBER
327 , p6_a8 out nocopy VARCHAR2
328 , p6_a9 out nocopy VARCHAR2
329 , p6_a10 out nocopy VARCHAR2
330 , p6_a11 out nocopy VARCHAR2
331 , p6_a12 out nocopy VARCHAR2
332 , p6_a13 out nocopy VARCHAR2
333 , p6_a14 out nocopy DATE
334 , p6_a15 out nocopy DATE
335 , p6_a16 out nocopy VARCHAR2
336 , p6_a17 out nocopy VARCHAR2
337 , p6_a18 out nocopy DATE
338 , p6_a19 out nocopy VARCHAR2
339 , p6_a20 out nocopy NUMBER
340 , p6_a21 out nocopy NUMBER
341 , p6_a22 out nocopy NUMBER
342 , p6_a23 out nocopy VARCHAR2
343 , p6_a24 out nocopy VARCHAR2
344 , p6_a25 out nocopy VARCHAR2
345 , p6_a26 out nocopy VARCHAR2
346 )
347
348 as
349 ddx_item_rec jtf_amv_item_pub.item_rec_type;
350 ddindx binary_integer; indx binary_integer;
351 begin
352
353 -- copy data to the local IN or IN-OUT args, if any
354
355
356
357
358
359
360
361 -- here's the delegated call to the old PL/SQL routine
362 jtf_amv_item_pub.get_item(p_api_version,
363 p_init_msg_list,
364 x_return_status,
365 x_msg_count,
366 x_msg_data,
367 p_item_id,
368 ddx_item_rec);
369
370 -- copy data back from the local variables to OUT or IN-OUT args, if any
371
372
373
374
375
376
377 p6_a0 := rosetta_g_miss_num_map(ddx_item_rec.item_id);
378 p6_a1 := ddx_item_rec.creation_date;
379 p6_a2 := rosetta_g_miss_num_map(ddx_item_rec.created_by);
380 p6_a3 := ddx_item_rec.last_update_date;
381 p6_a4 := rosetta_g_miss_num_map(ddx_item_rec.last_updated_by);
382 p6_a5 := rosetta_g_miss_num_map(ddx_item_rec.last_update_login);
383 p6_a6 := rosetta_g_miss_num_map(ddx_item_rec.object_version_number);
384 p6_a7 := rosetta_g_miss_num_map(ddx_item_rec.application_id);
385 p6_a8 := ddx_item_rec.external_access_flag;
386 p6_a9 := ddx_item_rec.item_name;
387 p6_a10 := ddx_item_rec.description;
388 p6_a11 := ddx_item_rec.text_string;
389 p6_a12 := ddx_item_rec.language_code;
390 p6_a13 := ddx_item_rec.status_code;
391 p6_a14 := ddx_item_rec.effective_start_date;
392 p6_a15 := ddx_item_rec.expiration_date;
393 p6_a16 := ddx_item_rec.item_type;
394 p6_a17 := ddx_item_rec.url_string;
395 p6_a18 := ddx_item_rec.publication_date;
396 p6_a19 := ddx_item_rec.priority;
397 p6_a20 := rosetta_g_miss_num_map(ddx_item_rec.content_type_id);
398 p6_a21 := rosetta_g_miss_num_map(ddx_item_rec.owner_id);
399 p6_a22 := rosetta_g_miss_num_map(ddx_item_rec.default_approver_id);
400 p6_a23 := ddx_item_rec.item_destination_type;
401 p6_a24 := ddx_item_rec.access_name;
402 p6_a25 := ddx_item_rec.deliverable_type_code;
403 p6_a26 := ddx_item_rec.applicable_to_code;
404 end;
405
406 procedure add_itemkeyword(p_api_version NUMBER
407 , p_init_msg_list VARCHAR2
408 , p_commit VARCHAR2
409 , x_return_status out nocopy VARCHAR2
410 , x_msg_count out nocopy NUMBER
411 , x_msg_data out nocopy VARCHAR2
412 , p_item_id NUMBER
413 , p_keyword_tab JTF_VARCHAR2_TABLE_200
414 )
415
416 as
417 ddp_keyword_tab jtf_amv_item_pub.char_tab_type;
418 ddindx binary_integer; indx binary_integer;
419 begin
420
421 -- copy data to the local IN or IN-OUT args, if any
422
423
424
425
426
427
428
429 jtf_amv_item_pub_w.rosetta_table_copy_in_p2(ddp_keyword_tab, p_keyword_tab);
430
431 -- here's the delegated call to the old PL/SQL routine
432 jtf_amv_item_pub.add_itemkeyword(p_api_version,
433 p_init_msg_list,
434 p_commit,
435 x_return_status,
436 x_msg_count,
437 x_msg_data,
438 p_item_id,
439 ddp_keyword_tab);
440
441 -- copy data back from the local variables to OUT or IN-OUT args, if any
442
443
444
445
446
447
448
449 end;
450
451 procedure delete_itemkeyword(p_api_version NUMBER
452 , p_init_msg_list VARCHAR2
453 , p_commit VARCHAR2
454 , x_return_status out nocopy VARCHAR2
455 , x_msg_count out nocopy NUMBER
456 , x_msg_data out nocopy VARCHAR2
457 , p_item_id NUMBER
458 , p_keyword_tab JTF_VARCHAR2_TABLE_200
459 )
460
461 as
462 ddp_keyword_tab jtf_amv_item_pub.char_tab_type;
463 ddindx binary_integer; indx binary_integer;
464 begin
465
466 -- copy data to the local IN or IN-OUT args, if any
467
468
469
470
471
472
473
474 jtf_amv_item_pub_w.rosetta_table_copy_in_p2(ddp_keyword_tab, p_keyword_tab);
475
476 -- here's the delegated call to the old PL/SQL routine
477 jtf_amv_item_pub.delete_itemkeyword(p_api_version,
478 p_init_msg_list,
479 p_commit,
480 x_return_status,
481 x_msg_count,
482 x_msg_data,
483 p_item_id,
484 ddp_keyword_tab);
485
486 -- copy data back from the local variables to OUT or IN-OUT args, if any
487
488
489
490
491
492
493
494 end;
495
496 procedure replace_itemkeyword(p_api_version NUMBER
497 , p_init_msg_list VARCHAR2
498 , p_commit VARCHAR2
499 , x_return_status out nocopy VARCHAR2
500 , x_msg_count out nocopy NUMBER
501 , x_msg_data out nocopy VARCHAR2
502 , p_item_id NUMBER
503 , p_keyword_tab JTF_VARCHAR2_TABLE_200
504 )
505
506 as
507 ddp_keyword_tab jtf_amv_item_pub.char_tab_type;
508 ddindx binary_integer; indx binary_integer;
509 begin
510
511 -- copy data to the local IN or IN-OUT args, if any
512
513
514
515
516
517
518
519 jtf_amv_item_pub_w.rosetta_table_copy_in_p2(ddp_keyword_tab, p_keyword_tab);
520
521 -- here's the delegated call to the old PL/SQL routine
522 jtf_amv_item_pub.replace_itemkeyword(p_api_version,
523 p_init_msg_list,
524 p_commit,
525 x_return_status,
526 x_msg_count,
527 x_msg_data,
528 p_item_id,
529 ddp_keyword_tab);
530
531 -- copy data back from the local variables to OUT or IN-OUT args, if any
532
533
534
535
536
537
538
539 end;
540
541 procedure get_itemkeyword(p_api_version NUMBER
542 , p_init_msg_list VARCHAR2
543 , x_return_status out nocopy VARCHAR2
544 , x_msg_count out nocopy NUMBER
545 , x_msg_data out nocopy VARCHAR2
546 , p_item_id NUMBER
547 , x_keyword_tab out nocopy JTF_VARCHAR2_TABLE_200
548 )
549
550 as
551 ddx_keyword_tab jtf_amv_item_pub.char_tab_type;
552 ddindx binary_integer; indx binary_integer;
553 begin
554
555 -- copy data to the local IN or IN-OUT args, if any
556
557
558
559
560
561
562
563 -- here's the delegated call to the old PL/SQL routine
564 jtf_amv_item_pub.get_itemkeyword(p_api_version,
565 p_init_msg_list,
566 x_return_status,
567 x_msg_count,
568 x_msg_data,
569 p_item_id,
570 ddx_keyword_tab);
571
572 -- copy data back from the local variables to OUT or IN-OUT args, if any
573
574
575
576
577
578
579 jtf_amv_item_pub_w.rosetta_table_copy_out_p2(ddx_keyword_tab, x_keyword_tab);
580 end;
581
582 procedure add_itemauthor(p_api_version NUMBER
583 , p_init_msg_list VARCHAR2
584 , p_commit VARCHAR2
585 , x_return_status out nocopy VARCHAR2
586 , x_msg_count out nocopy NUMBER
587 , x_msg_data out nocopy VARCHAR2
588 , p_item_id NUMBER
589 , p_author_tab JTF_VARCHAR2_TABLE_200
590 )
591
592 as
593 ddp_author_tab jtf_amv_item_pub.char_tab_type;
594 ddindx binary_integer; indx binary_integer;
595 begin
596
597 -- copy data to the local IN or IN-OUT args, if any
598
599
600
601
602
603
604
605 jtf_amv_item_pub_w.rosetta_table_copy_in_p2(ddp_author_tab, p_author_tab);
606
607 -- here's the delegated call to the old PL/SQL routine
608 jtf_amv_item_pub.add_itemauthor(p_api_version,
609 p_init_msg_list,
610 p_commit,
611 x_return_status,
612 x_msg_count,
613 x_msg_data,
614 p_item_id,
615 ddp_author_tab);
616
617 -- copy data back from the local variables to OUT or IN-OUT args, if any
618
619
620
621
622
623
624
625 end;
626
627 procedure delete_itemauthor(p_api_version NUMBER
628 , p_init_msg_list VARCHAR2
629 , p_commit VARCHAR2
630 , x_return_status out nocopy VARCHAR2
631 , x_msg_count out nocopy NUMBER
632 , x_msg_data out nocopy VARCHAR2
633 , p_item_id NUMBER
634 , p_author_tab JTF_VARCHAR2_TABLE_200
635 )
636
637 as
638 ddp_author_tab jtf_amv_item_pub.char_tab_type;
639 ddindx binary_integer; indx binary_integer;
640 begin
641
642 -- copy data to the local IN or IN-OUT args, if any
643
644
645
646
647
648
649
650 jtf_amv_item_pub_w.rosetta_table_copy_in_p2(ddp_author_tab, p_author_tab);
651
652 -- here's the delegated call to the old PL/SQL routine
653 jtf_amv_item_pub.delete_itemauthor(p_api_version,
654 p_init_msg_list,
655 p_commit,
656 x_return_status,
657 x_msg_count,
658 x_msg_data,
659 p_item_id,
660 ddp_author_tab);
661
662 -- copy data back from the local variables to OUT or IN-OUT args, if any
663
664
665
666
667
668
669
670 end;
671
672 procedure replace_itemauthor(p_api_version NUMBER
673 , p_init_msg_list VARCHAR2
674 , p_commit VARCHAR2
675 , x_return_status out nocopy VARCHAR2
676 , x_msg_count out nocopy NUMBER
677 , x_msg_data out nocopy VARCHAR2
678 , p_item_id NUMBER
679 , p_author_tab JTF_VARCHAR2_TABLE_200
680 )
681
682 as
683 ddp_author_tab jtf_amv_item_pub.char_tab_type;
684 ddindx binary_integer; indx binary_integer;
685 begin
686
687 -- copy data to the local IN or IN-OUT args, if any
688
689
690
691
692
693
694
695 jtf_amv_item_pub_w.rosetta_table_copy_in_p2(ddp_author_tab, p_author_tab);
696
697 -- here's the delegated call to the old PL/SQL routine
698 jtf_amv_item_pub.replace_itemauthor(p_api_version,
699 p_init_msg_list,
700 p_commit,
701 x_return_status,
702 x_msg_count,
703 x_msg_data,
704 p_item_id,
705 ddp_author_tab);
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 end;
716
717 procedure get_itemauthor(p_api_version NUMBER
718 , p_init_msg_list VARCHAR2
719 , x_return_status out nocopy VARCHAR2
720 , x_msg_count out nocopy NUMBER
721 , x_msg_data out nocopy VARCHAR2
722 , p_item_id NUMBER
723 , x_author_tab out nocopy JTF_VARCHAR2_TABLE_200
724 )
725
726 as
727 ddx_author_tab jtf_amv_item_pub.char_tab_type;
728 ddindx binary_integer; indx binary_integer;
729 begin
730
731 -- copy data to the local IN or IN-OUT args, if any
732
733
734
735
736
737
738
739 -- here's the delegated call to the old PL/SQL routine
740 jtf_amv_item_pub.get_itemauthor(p_api_version,
741 p_init_msg_list,
742 x_return_status,
743 x_msg_count,
744 x_msg_data,
745 p_item_id,
746 ddx_author_tab);
747
748 -- copy data back from the local variables to OUT or IN-OUT args, if any
749
750
751
752
753
754
755 jtf_amv_item_pub_w.rosetta_table_copy_out_p2(ddx_author_tab, x_author_tab);
756 end;
757
758 end jtf_amv_item_pub_w;