[Home] [Help]
PACKAGE BODY: APPS.IBE_DELIVERABLE_GRP_W
Source
1 package body ibe_deliverable_grp_w as
2 /* $Header: IBEGRDLB.pls 115.1 2002/12/18 07:08:11 schak 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_p1(t out nocopy ibe_deliverable_grp.deliverable_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_VARCHAR2_TABLE_100
24 , a2 JTF_VARCHAR2_TABLE_300
25 , a3 JTF_VARCHAR2_TABLE_100
26 , a4 JTF_VARCHAR2_TABLE_100
27 , a5 JTF_VARCHAR2_TABLE_300
28 , a6 JTF_VARCHAR2_TABLE_2000
29 , a7 JTF_NUMBER_TABLE
30 , a8 JTF_VARCHAR2_TABLE_100
31 ) as
32 ddindx binary_integer; indx binary_integer;
33 begin
34 if a0 is not null and a0.count > 0 then
35 if a0.count > 0 then
36 indx := a0.first;
37 ddindx := 1;
38 while true loop
39 t(ddindx).deliverable_id := rosetta_g_miss_num_map(a0(indx));
40 t(ddindx).access_name := a1(indx);
41 t(ddindx).display_name := a2(indx);
42 t(ddindx).item_type := a3(indx);
43 t(ddindx).item_applicable_to := a4(indx);
44 t(ddindx).keywords := a5(indx);
45 t(ddindx).description := a6(indx);
46 t(ddindx).object_version_number := rosetta_g_miss_num_map(a7(indx));
47 t(ddindx).x_action_status := a8(indx);
48 ddindx := ddindx+1;
49 if a0.last =indx
50 then exit;
51 end if;
52 indx := a0.next(indx);
53 end loop;
54 end if;
55 end if;
56 end rosetta_table_copy_in_p1;
57 procedure rosetta_table_copy_out_p1(t ibe_deliverable_grp.deliverable_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
58 , a1 out nocopy JTF_VARCHAR2_TABLE_100
59 , a2 out nocopy JTF_VARCHAR2_TABLE_300
60 , a3 out nocopy JTF_VARCHAR2_TABLE_100
61 , a4 out nocopy JTF_VARCHAR2_TABLE_100
62 , a5 out nocopy JTF_VARCHAR2_TABLE_300
63 , a6 out nocopy JTF_VARCHAR2_TABLE_2000
64 , a7 out nocopy JTF_NUMBER_TABLE
65 , a8 out nocopy JTF_VARCHAR2_TABLE_100
66 ) as
67 ddindx binary_integer; indx binary_integer;
68 begin
69 if t is null or t.count = 0 then
70 a0 := JTF_NUMBER_TABLE();
71 a1 := JTF_VARCHAR2_TABLE_100();
72 a2 := JTF_VARCHAR2_TABLE_300();
73 a3 := JTF_VARCHAR2_TABLE_100();
74 a4 := JTF_VARCHAR2_TABLE_100();
75 a5 := JTF_VARCHAR2_TABLE_300();
76 a6 := JTF_VARCHAR2_TABLE_2000();
77 a7 := JTF_NUMBER_TABLE();
78 a8 := JTF_VARCHAR2_TABLE_100();
79 else
80 a0 := JTF_NUMBER_TABLE();
81 a1 := JTF_VARCHAR2_TABLE_100();
82 a2 := JTF_VARCHAR2_TABLE_300();
83 a3 := JTF_VARCHAR2_TABLE_100();
84 a4 := JTF_VARCHAR2_TABLE_100();
85 a5 := JTF_VARCHAR2_TABLE_300();
86 a6 := JTF_VARCHAR2_TABLE_2000();
87 a7 := JTF_NUMBER_TABLE();
88 a8 := JTF_VARCHAR2_TABLE_100();
89 if t.count > 0 then
90 a0.extend(t.count);
91 a1.extend(t.count);
92 a2.extend(t.count);
93 a3.extend(t.count);
94 a4.extend(t.count);
95 a5.extend(t.count);
96 a6.extend(t.count);
97 a7.extend(t.count);
98 a8.extend(t.count);
99 ddindx := t.first;
100 indx := 1;
101 while true loop
102 a0(indx) := rosetta_g_miss_num_map(t(ddindx).deliverable_id);
103 a1(indx) := t(ddindx).access_name;
104 a2(indx) := t(ddindx).display_name;
105 a3(indx) := t(ddindx).item_type;
106 a4(indx) := t(ddindx).item_applicable_to;
107 a5(indx) := t(ddindx).keywords;
108 a6(indx) := t(ddindx).description;
109 a7(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
110 a8(indx) := t(ddindx).x_action_status;
111 indx := indx+1;
112 if t.last =ddindx
113 then exit;
114 end if;
115 ddindx := t.next(ddindx);
116 end loop;
117 end if;
118 end if;
119 end rosetta_table_copy_out_p1;
120
121 procedure rosetta_table_copy_in_p3(t out nocopy ibe_deliverable_grp.dlv_ath_tbl_type, a0 JTF_NUMBER_TABLE
122 , a1 JTF_VARCHAR2_TABLE_100
123 , a2 JTF_VARCHAR2_TABLE_300
124 , a3 JTF_VARCHAR2_TABLE_100
125 , a4 JTF_VARCHAR2_TABLE_100
126 , a5 JTF_VARCHAR2_TABLE_300
127 , a6 JTF_VARCHAR2_TABLE_2000
128 , a7 JTF_NUMBER_TABLE
129 , a8 JTF_VARCHAR2_TABLE_100
130 , a9 JTF_VARCHAR2_TABLE_300
131 , a10 JTF_NUMBER_TABLE
132 , a11 JTF_VARCHAR2_TABLE_100
133 ) as
134 ddindx binary_integer; indx binary_integer;
135 begin
136 if a0 is not null and a0.count > 0 then
137 if a0.count > 0 then
138 indx := a0.first;
139 ddindx := 1;
140 while true loop
141 t(ddindx).deliverable_id := rosetta_g_miss_num_map(a0(indx));
142 t(ddindx).access_name := a1(indx);
143 t(ddindx).display_name := a2(indx);
144 t(ddindx).item_type := a3(indx);
145 t(ddindx).item_applicable_to := a4(indx);
146 t(ddindx).keywords := a5(indx);
147 t(ddindx).description := a6(indx);
148 t(ddindx).object_version_number := rosetta_g_miss_num_map(a7(indx));
149 t(ddindx).x_action_status := a8(indx);
150 t(ddindx).ath_file_name := a9(indx);
151 t(ddindx).ath_file_id := rosetta_g_miss_num_map(a10(indx));
152 t(ddindx).x_ath_action_status := a11(indx);
153 ddindx := ddindx+1;
154 if a0.last =indx
155 then exit;
156 end if;
157 indx := a0.next(indx);
158 end loop;
159 end if;
160 end if;
161 end rosetta_table_copy_in_p3;
162 procedure rosetta_table_copy_out_p3(t ibe_deliverable_grp.dlv_ath_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
163 , a1 out nocopy JTF_VARCHAR2_TABLE_100
164 , a2 out nocopy JTF_VARCHAR2_TABLE_300
165 , a3 out nocopy JTF_VARCHAR2_TABLE_100
166 , a4 out nocopy JTF_VARCHAR2_TABLE_100
167 , a5 out nocopy JTF_VARCHAR2_TABLE_300
168 , a6 out nocopy JTF_VARCHAR2_TABLE_2000
169 , a7 out nocopy JTF_NUMBER_TABLE
170 , a8 out nocopy JTF_VARCHAR2_TABLE_100
171 , a9 out nocopy JTF_VARCHAR2_TABLE_300
172 , a10 out nocopy JTF_NUMBER_TABLE
173 , a11 out nocopy JTF_VARCHAR2_TABLE_100
174 ) as
175 ddindx binary_integer; indx binary_integer;
176 begin
177 if t is null or t.count = 0 then
178 a0 := JTF_NUMBER_TABLE();
179 a1 := JTF_VARCHAR2_TABLE_100();
180 a2 := JTF_VARCHAR2_TABLE_300();
181 a3 := JTF_VARCHAR2_TABLE_100();
182 a4 := JTF_VARCHAR2_TABLE_100();
183 a5 := JTF_VARCHAR2_TABLE_300();
184 a6 := JTF_VARCHAR2_TABLE_2000();
185 a7 := JTF_NUMBER_TABLE();
186 a8 := JTF_VARCHAR2_TABLE_100();
187 a9 := JTF_VARCHAR2_TABLE_300();
188 a10 := JTF_NUMBER_TABLE();
189 a11 := JTF_VARCHAR2_TABLE_100();
190 else
191 a0 := JTF_NUMBER_TABLE();
192 a1 := JTF_VARCHAR2_TABLE_100();
193 a2 := JTF_VARCHAR2_TABLE_300();
194 a3 := JTF_VARCHAR2_TABLE_100();
195 a4 := JTF_VARCHAR2_TABLE_100();
196 a5 := JTF_VARCHAR2_TABLE_300();
197 a6 := JTF_VARCHAR2_TABLE_2000();
198 a7 := JTF_NUMBER_TABLE();
199 a8 := JTF_VARCHAR2_TABLE_100();
200 a9 := JTF_VARCHAR2_TABLE_300();
201 a10 := JTF_NUMBER_TABLE();
202 a11 := JTF_VARCHAR2_TABLE_100();
203 if t.count > 0 then
204 a0.extend(t.count);
205 a1.extend(t.count);
206 a2.extend(t.count);
207 a3.extend(t.count);
208 a4.extend(t.count);
209 a5.extend(t.count);
210 a6.extend(t.count);
211 a7.extend(t.count);
212 a8.extend(t.count);
213 a9.extend(t.count);
214 a10.extend(t.count);
215 a11.extend(t.count);
216 ddindx := t.first;
217 indx := 1;
218 while true loop
219 a0(indx) := rosetta_g_miss_num_map(t(ddindx).deliverable_id);
220 a1(indx) := t(ddindx).access_name;
221 a2(indx) := t(ddindx).display_name;
222 a3(indx) := t(ddindx).item_type;
223 a4(indx) := t(ddindx).item_applicable_to;
224 a5(indx) := t(ddindx).keywords;
225 a6(indx) := t(ddindx).description;
226 a7(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
227 a8(indx) := t(ddindx).x_action_status;
228 a9(indx) := t(ddindx).ath_file_name;
229 a10(indx) := rosetta_g_miss_num_map(t(ddindx).ath_file_id);
230 a11(indx) := t(ddindx).x_ath_action_status;
231 indx := indx+1;
232 if t.last =ddindx
233 then exit;
234 end if;
235 ddindx := t.next(ddindx);
236 end loop;
237 end if;
238 end if;
239 end rosetta_table_copy_out_p3;
240
241 procedure rosetta_table_copy_in_p5(t out nocopy ibe_deliverable_grp.dlv_id_ver_tbl_type, a0 JTF_NUMBER_TABLE
242 , a1 JTF_VARCHAR2_TABLE_300
243 , a2 JTF_NUMBER_TABLE
244 , a3 JTF_VARCHAR2_TABLE_100
245 ) as
246 ddindx binary_integer; indx binary_integer;
247 begin
248 if a0 is not null and a0.count > 0 then
249 if a0.count > 0 then
250 indx := a0.first;
251 ddindx := 1;
252 while true loop
253 t(ddindx).deliverable_id := rosetta_g_miss_num_map(a0(indx));
254 t(ddindx).display_name := a1(indx);
255 t(ddindx).object_version_number := rosetta_g_miss_num_map(a2(indx));
256 t(ddindx).x_action_status := a3(indx);
257 ddindx := ddindx+1;
258 if a0.last =indx
259 then exit;
260 end if;
261 indx := a0.next(indx);
262 end loop;
263 end if;
264 end if;
265 end rosetta_table_copy_in_p5;
266 procedure rosetta_table_copy_out_p5(t ibe_deliverable_grp.dlv_id_ver_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
267 , a1 out nocopy JTF_VARCHAR2_TABLE_300
268 , a2 out nocopy JTF_NUMBER_TABLE
269 , a3 out nocopy JTF_VARCHAR2_TABLE_100
270 ) as
271 ddindx binary_integer; indx binary_integer;
272 begin
273 if t is null or t.count = 0 then
274 a0 := JTF_NUMBER_TABLE();
275 a1 := JTF_VARCHAR2_TABLE_300();
276 a2 := JTF_NUMBER_TABLE();
277 a3 := JTF_VARCHAR2_TABLE_100();
278 else
279 a0 := JTF_NUMBER_TABLE();
280 a1 := JTF_VARCHAR2_TABLE_300();
281 a2 := JTF_NUMBER_TABLE();
282 a3 := JTF_VARCHAR2_TABLE_100();
283 if t.count > 0 then
284 a0.extend(t.count);
285 a1.extend(t.count);
286 a2.extend(t.count);
287 a3.extend(t.count);
288 ddindx := t.first;
289 indx := 1;
290 while true loop
291 a0(indx) := rosetta_g_miss_num_map(t(ddindx).deliverable_id);
292 a1(indx) := t(ddindx).display_name;
293 a2(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
294 a3(indx) := t(ddindx).x_action_status;
295 indx := indx+1;
296 if t.last =ddindx
297 then exit;
298 end if;
299 ddindx := t.next(ddindx);
300 end loop;
301 end if;
302 end if;
303 end rosetta_table_copy_out_p5;
304
305 procedure rosetta_table_copy_in_p6(t out nocopy ibe_deliverable_grp.number_table, a0 JTF_NUMBER_TABLE) as
306 ddindx binary_integer; indx binary_integer;
307 begin
308 if a0 is null then
309 t := null;
310 elsif a0.count = 0 then
311 t := ibe_deliverable_grp.number_table();
312 else
313 if a0.count > 0 then
314 t := ibe_deliverable_grp.number_table();
315 t.extend(a0.count);
316 indx := a0.first;
317 ddindx := 1;
318 while true loop
319 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
320 ddindx := ddindx+1;
321 if a0.last =indx
322 then exit;
323 end if;
324 indx := a0.next(indx);
325 end loop;
326 end if;
327 end if;
328 end rosetta_table_copy_in_p6;
329 procedure rosetta_table_copy_out_p6(t ibe_deliverable_grp.number_table, a0 out nocopy JTF_NUMBER_TABLE) as
330 ddindx binary_integer; indx binary_integer;
331 begin
332 if t is null then
333 a0 := null;
334 elsif t.count = 0 then
335 a0 := JTF_NUMBER_TABLE();
336 else
337 a0 := JTF_NUMBER_TABLE();
338 if t.count > 0 then
339 a0.extend(t.count);
340 ddindx := t.first;
341 indx := 1;
342 while true loop
343 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
344 indx := indx+1;
345 if t.last =ddindx
346 then exit;
347 end if;
348 ddindx := t.next(ddindx);
349 end loop;
350 end if;
351 end if;
352 end rosetta_table_copy_out_p6;
353
354 procedure rosetta_table_copy_in_p7(t out nocopy ibe_deliverable_grp.varchar2_table_100, a0 JTF_VARCHAR2_TABLE_100) as
355 ddindx binary_integer; indx binary_integer;
356 begin
357 if a0 is null then
358 t := null;
359 elsif a0.count = 0 then
360 t := ibe_deliverable_grp.varchar2_table_100();
361 else
362 if a0.count > 0 then
363 t := ibe_deliverable_grp.varchar2_table_100();
364 t.extend(a0.count);
365 indx := a0.first;
366 ddindx := 1;
367 while true loop
368 t(ddindx) := a0(indx);
369 ddindx := ddindx+1;
370 if a0.last =indx
371 then exit;
372 end if;
373 indx := a0.next(indx);
374 end loop;
375 end if;
376 end if;
377 end rosetta_table_copy_in_p7;
378 procedure rosetta_table_copy_out_p7(t ibe_deliverable_grp.varchar2_table_100, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
379 ddindx binary_integer; indx binary_integer;
380 begin
381 if t is null then
382 a0 := null;
383 elsif t.count = 0 then
384 a0 := JTF_VARCHAR2_TABLE_100();
385 else
386 a0 := JTF_VARCHAR2_TABLE_100();
387 if t.count > 0 then
388 a0.extend(t.count);
389 ddindx := t.first;
390 indx := 1;
391 while true loop
392 a0(indx) := t(ddindx);
393 indx := indx+1;
394 if t.last =ddindx
395 then exit;
396 end if;
397 ddindx := t.next(ddindx);
398 end loop;
399 end if;
400 end if;
401 end rosetta_table_copy_out_p7;
402
403 procedure rosetta_table_copy_in_p8(t out nocopy ibe_deliverable_grp.varchar2_table_300, a0 JTF_VARCHAR2_TABLE_300) as
404 ddindx binary_integer; indx binary_integer;
405 begin
406 if a0 is null then
407 t := null;
408 elsif a0.count = 0 then
409 t := ibe_deliverable_grp.varchar2_table_300();
410 else
411 if a0.count > 0 then
412 t := ibe_deliverable_grp.varchar2_table_300();
413 t.extend(a0.count);
414 indx := a0.first;
415 ddindx := 1;
416 while true loop
417 t(ddindx) := a0(indx);
418 ddindx := ddindx+1;
419 if a0.last =indx
420 then exit;
421 end if;
422 indx := a0.next(indx);
423 end loop;
424 end if;
425 end if;
426 end rosetta_table_copy_in_p8;
427 procedure rosetta_table_copy_out_p8(t ibe_deliverable_grp.varchar2_table_300, a0 out nocopy JTF_VARCHAR2_TABLE_300) as
428 ddindx binary_integer; indx binary_integer;
429 begin
430 if t is null then
431 a0 := null;
432 elsif t.count = 0 then
433 a0 := JTF_VARCHAR2_TABLE_300();
434 else
435 a0 := JTF_VARCHAR2_TABLE_300();
436 if t.count > 0 then
437 a0.extend(t.count);
438 ddindx := t.first;
439 indx := 1;
440 while true loop
441 a0(indx) := t(ddindx);
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_p8;
451
452 procedure rosetta_table_copy_in_p9(t out nocopy ibe_deliverable_grp.varchar2_table_2000, a0 JTF_VARCHAR2_TABLE_2000) 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 := ibe_deliverable_grp.varchar2_table_2000();
459 else
460 if a0.count > 0 then
461 t := ibe_deliverable_grp.varchar2_table_2000();
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 ibe_deliverable_grp.varchar2_table_2000, a0 out nocopy JTF_VARCHAR2_TABLE_2000) 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_VARCHAR2_TABLE_2000();
483 else
484 a0 := JTF_VARCHAR2_TABLE_2000();
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 list_deliverable(p_api_version NUMBER
502 , p_init_msg_list VARCHAR2
503 , x_return_status out nocopy VARCHAR2
504 , x_msg_count out nocopy NUMBER
505 , x_msg_data out nocopy VARCHAR2
506 , p_item_type VARCHAR2
507 , p_item_applicable_to VARCHAR2
508 , p_search_type VARCHAR2
509 , p_search_value VARCHAR2
510 , p_start_id NUMBER
511 , p_batch_size NUMBER
512 , x_row_count out nocopy NUMBER
513 , x_dlv_id_tbl out nocopy JTF_NUMBER_TABLE
514 , x_acc_name_tbl out nocopy JTF_VARCHAR2_TABLE_100
515 , x_dsp_name_tbl out nocopy JTF_VARCHAR2_TABLE_300
516 , x_item_type_tbl out nocopy JTF_VARCHAR2_TABLE_100
517 , x_appl_to_tbl out nocopy JTF_VARCHAR2_TABLE_100
518 , x_keyword_tbl out nocopy JTF_VARCHAR2_TABLE_300
519 , x_desc_tbl out nocopy JTF_VARCHAR2_TABLE_2000
520 , x_version_tbl out nocopy JTF_NUMBER_TABLE
521 , x_file_name_tbl out nocopy JTF_VARCHAR2_TABLE_300
522 , x_file_id_tbl out nocopy JTF_NUMBER_TABLE
523 )
524
525 as
526 ddx_dlv_id_tbl ibe_deliverable_grp.number_table;
527 ddx_acc_name_tbl ibe_deliverable_grp.varchar2_table_100;
528 ddx_dsp_name_tbl ibe_deliverable_grp.varchar2_table_300;
529 ddx_item_type_tbl ibe_deliverable_grp.varchar2_table_100;
530 ddx_appl_to_tbl ibe_deliverable_grp.varchar2_table_100;
531 ddx_keyword_tbl ibe_deliverable_grp.varchar2_table_300;
532 ddx_desc_tbl ibe_deliverable_grp.varchar2_table_2000;
533 ddx_version_tbl ibe_deliverable_grp.number_table;
534 ddx_file_name_tbl ibe_deliverable_grp.varchar2_table_300;
535 ddx_file_id_tbl ibe_deliverable_grp.number_table;
536 ddindx binary_integer; indx binary_integer;
537 begin
538
539 -- copy data to the local IN or IN-OUT args, if any
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562 -- here's the delegated call to the old PL/SQL routine
563 ibe_deliverable_grp.list_deliverable(p_api_version,
564 p_init_msg_list,
565 x_return_status,
566 x_msg_count,
567 x_msg_data,
568 p_item_type,
569 p_item_applicable_to,
570 p_search_type,
571 p_search_value,
572 p_start_id,
573 p_batch_size,
574 x_row_count,
575 ddx_dlv_id_tbl,
576 ddx_acc_name_tbl,
577 ddx_dsp_name_tbl,
578 ddx_item_type_tbl,
579 ddx_appl_to_tbl,
580 ddx_keyword_tbl,
581 ddx_desc_tbl,
582 ddx_version_tbl,
583 ddx_file_name_tbl,
584 ddx_file_id_tbl);
585
586 -- copy data back from the local variables to OUT or IN-OUT args, if any
587
588
589
590
591
592
593
594
595
596
597
598
599 ibe_deliverable_grp_w.rosetta_table_copy_out_p6(ddx_dlv_id_tbl, x_dlv_id_tbl);
600
601 ibe_deliverable_grp_w.rosetta_table_copy_out_p7(ddx_acc_name_tbl, x_acc_name_tbl);
602
603 ibe_deliverable_grp_w.rosetta_table_copy_out_p8(ddx_dsp_name_tbl, x_dsp_name_tbl);
604
605 ibe_deliverable_grp_w.rosetta_table_copy_out_p7(ddx_item_type_tbl, x_item_type_tbl);
606
607 ibe_deliverable_grp_w.rosetta_table_copy_out_p7(ddx_appl_to_tbl, x_appl_to_tbl);
608
609 ibe_deliverable_grp_w.rosetta_table_copy_out_p8(ddx_keyword_tbl, x_keyword_tbl);
610
611 ibe_deliverable_grp_w.rosetta_table_copy_out_p9(ddx_desc_tbl, x_desc_tbl);
612
613 ibe_deliverable_grp_w.rosetta_table_copy_out_p6(ddx_version_tbl, x_version_tbl);
614
615 ibe_deliverable_grp_w.rosetta_table_copy_out_p8(ddx_file_name_tbl, x_file_name_tbl);
616
617 ibe_deliverable_grp_w.rosetta_table_copy_out_p6(ddx_file_id_tbl, x_file_id_tbl);
618 end;
619
620 procedure list_deliverable(p_api_version NUMBER
621 , p_init_msg_list VARCHAR2
622 , x_return_status out nocopy VARCHAR2
623 , x_msg_count out nocopy NUMBER
624 , x_msg_data out nocopy VARCHAR2
625 , p_category_id NUMBER
626 , p_item_type VARCHAR2
627 , p_item_applicable_to VARCHAR2
628 , p_search_type VARCHAR2
629 , p_search_value VARCHAR2
630 , p_start_id NUMBER
631 , p_batch_size NUMBER
632 , x_row_count out nocopy NUMBER
633 , x_dlv_id_tbl out nocopy JTF_NUMBER_TABLE
634 , x_acc_name_tbl out nocopy JTF_VARCHAR2_TABLE_100
635 , x_dsp_name_tbl out nocopy JTF_VARCHAR2_TABLE_300
636 , x_item_type_tbl out nocopy JTF_VARCHAR2_TABLE_100
637 , x_appl_to_tbl out nocopy JTF_VARCHAR2_TABLE_100
638 , x_keyword_tbl out nocopy JTF_VARCHAR2_TABLE_300
639 , x_desc_tbl out nocopy JTF_VARCHAR2_TABLE_2000
640 , x_version_tbl out nocopy JTF_NUMBER_TABLE
641 , x_file_name_tbl out nocopy JTF_VARCHAR2_TABLE_300
642 , x_file_id_tbl out nocopy JTF_NUMBER_TABLE
643 )
644
645 as
646 ddx_dlv_id_tbl ibe_deliverable_grp.number_table;
647 ddx_acc_name_tbl ibe_deliverable_grp.varchar2_table_100;
648 ddx_dsp_name_tbl ibe_deliverable_grp.varchar2_table_300;
649 ddx_item_type_tbl ibe_deliverable_grp.varchar2_table_100;
650 ddx_appl_to_tbl ibe_deliverable_grp.varchar2_table_100;
651 ddx_keyword_tbl ibe_deliverable_grp.varchar2_table_300;
652 ddx_desc_tbl ibe_deliverable_grp.varchar2_table_2000;
653 ddx_version_tbl ibe_deliverable_grp.number_table;
654 ddx_file_name_tbl ibe_deliverable_grp.varchar2_table_300;
655 ddx_file_id_tbl ibe_deliverable_grp.number_table;
656 ddindx binary_integer; indx binary_integer;
657 begin
658
659 -- copy data to the local IN or IN-OUT args, if any
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683 -- here's the delegated call to the old PL/SQL routine
684 ibe_deliverable_grp.list_deliverable(p_api_version,
685 p_init_msg_list,
686 x_return_status,
687 x_msg_count,
688 x_msg_data,
689 p_category_id,
690 p_item_type,
691 p_item_applicable_to,
692 p_search_type,
693 p_search_value,
694 p_start_id,
695 p_batch_size,
696 x_row_count,
697 ddx_dlv_id_tbl,
698 ddx_acc_name_tbl,
699 ddx_dsp_name_tbl,
700 ddx_item_type_tbl,
701 ddx_appl_to_tbl,
702 ddx_keyword_tbl,
703 ddx_desc_tbl,
704 ddx_version_tbl,
705 ddx_file_name_tbl,
706 ddx_file_id_tbl);
707
708 -- copy data back from the local variables to OUT or IN-OUT args, if any
709
710
711
712
713
714
715
716
717
718
719
720
721
722 ibe_deliverable_grp_w.rosetta_table_copy_out_p6(ddx_dlv_id_tbl, x_dlv_id_tbl);
723
724 ibe_deliverable_grp_w.rosetta_table_copy_out_p7(ddx_acc_name_tbl, x_acc_name_tbl);
725
726 ibe_deliverable_grp_w.rosetta_table_copy_out_p8(ddx_dsp_name_tbl, x_dsp_name_tbl);
727
728 ibe_deliverable_grp_w.rosetta_table_copy_out_p7(ddx_item_type_tbl, x_item_type_tbl);
729
730 ibe_deliverable_grp_w.rosetta_table_copy_out_p7(ddx_appl_to_tbl, x_appl_to_tbl);
731
732 ibe_deliverable_grp_w.rosetta_table_copy_out_p8(ddx_keyword_tbl, x_keyword_tbl);
733
734 ibe_deliverable_grp_w.rosetta_table_copy_out_p9(ddx_desc_tbl, x_desc_tbl);
735
736 ibe_deliverable_grp_w.rosetta_table_copy_out_p6(ddx_version_tbl, x_version_tbl);
737
738 ibe_deliverable_grp_w.rosetta_table_copy_out_p8(ddx_file_name_tbl, x_file_name_tbl);
739
740 ibe_deliverable_grp_w.rosetta_table_copy_out_p6(ddx_file_id_tbl, x_file_id_tbl);
741 end;
742
743 procedure save_deliverable(p_api_version NUMBER
744 , p_init_msg_list VARCHAR2
745 , p_commit VARCHAR2
746 , x_return_status out nocopy VARCHAR2
747 , x_msg_count out nocopy NUMBER
748 , x_msg_data out nocopy VARCHAR2
749 , p6_a0 in out nocopy NUMBER
750 , p6_a1 in out nocopy VARCHAR2
751 , p6_a2 in out nocopy VARCHAR2
752 , p6_a3 in out nocopy VARCHAR2
753 , p6_a4 in out nocopy VARCHAR2
754 , p6_a5 in out nocopy VARCHAR2
755 , p6_a6 in out nocopy VARCHAR2
756 , p6_a7 in out nocopy NUMBER
757 , p6_a8 in out nocopy VARCHAR2
758 )
759
760 as
761 ddp_deliverable_rec ibe_deliverable_grp.deliverable_rec_type;
762 ddindx binary_integer; indx binary_integer;
763 begin
764
765 -- copy data to the local IN or IN-OUT args, if any
766
767
768
769
770
771
772 ddp_deliverable_rec.deliverable_id := rosetta_g_miss_num_map(p6_a0);
773 ddp_deliverable_rec.access_name := p6_a1;
774 ddp_deliverable_rec.display_name := p6_a2;
775 ddp_deliverable_rec.item_type := p6_a3;
776 ddp_deliverable_rec.item_applicable_to := p6_a4;
777 ddp_deliverable_rec.keywords := p6_a5;
778 ddp_deliverable_rec.description := p6_a6;
779 ddp_deliverable_rec.object_version_number := rosetta_g_miss_num_map(p6_a7);
780 ddp_deliverable_rec.x_action_status := p6_a8;
781
782 -- here's the delegated call to the old PL/SQL routine
783 ibe_deliverable_grp.save_deliverable(p_api_version,
784 p_init_msg_list,
785 p_commit,
786 x_return_status,
787 x_msg_count,
788 x_msg_data,
789 ddp_deliverable_rec);
790
791 -- copy data back from the local variables to OUT or IN-OUT args, if any
792
793
794
795
796
797
798 p6_a0 := rosetta_g_miss_num_map(ddp_deliverable_rec.deliverable_id);
799 p6_a1 := ddp_deliverable_rec.access_name;
800 p6_a2 := ddp_deliverable_rec.display_name;
801 p6_a3 := ddp_deliverable_rec.item_type;
802 p6_a4 := ddp_deliverable_rec.item_applicable_to;
803 p6_a5 := ddp_deliverable_rec.keywords;
804 p6_a6 := ddp_deliverable_rec.description;
805 p6_a7 := rosetta_g_miss_num_map(ddp_deliverable_rec.object_version_number);
806 p6_a8 := ddp_deliverable_rec.x_action_status;
807 end;
808
809 procedure save_deliverable(p_api_version NUMBER
810 , p_init_msg_list VARCHAR2
811 , p_commit VARCHAR2
812 , x_return_status out nocopy VARCHAR2
813 , x_msg_count out nocopy NUMBER
814 , x_msg_data out nocopy VARCHAR2
815 , p6_a0 in out nocopy JTF_NUMBER_TABLE
816 , p6_a1 in out nocopy JTF_VARCHAR2_TABLE_100
817 , p6_a2 in out nocopy JTF_VARCHAR2_TABLE_300
818 , p6_a3 in out nocopy JTF_VARCHAR2_TABLE_100
819 , p6_a4 in out nocopy JTF_VARCHAR2_TABLE_100
820 , p6_a5 in out nocopy JTF_VARCHAR2_TABLE_300
821 , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_2000
822 , p6_a7 in out nocopy JTF_NUMBER_TABLE
823 , p6_a8 in out nocopy JTF_VARCHAR2_TABLE_100
824 )
825
826 as
827 ddp_deliverable_tbl ibe_deliverable_grp.deliverable_tbl_type;
828 ddindx binary_integer; indx binary_integer;
829 begin
830
831 -- copy data to the local IN or IN-OUT args, if any
832
833
834
835
836
837
838 ibe_deliverable_grp_w.rosetta_table_copy_in_p1(ddp_deliverable_tbl, p6_a0
839 , p6_a1
840 , p6_a2
841 , p6_a3
842 , p6_a4
843 , p6_a5
844 , p6_a6
845 , p6_a7
846 , p6_a8
847 );
848
849 -- here's the delegated call to the old PL/SQL routine
850 ibe_deliverable_grp.save_deliverable(p_api_version,
851 p_init_msg_list,
852 p_commit,
853 x_return_status,
854 x_msg_count,
855 x_msg_data,
856 ddp_deliverable_tbl);
857
858 -- copy data back from the local variables to OUT or IN-OUT args, if any
859
860
861
862
863
864
865 ibe_deliverable_grp_w.rosetta_table_copy_out_p1(ddp_deliverable_tbl, p6_a0
866 , p6_a1
867 , p6_a2
868 , p6_a3
869 , p6_a4
870 , p6_a5
871 , p6_a6
872 , p6_a7
873 , p6_a8
874 );
875 end;
876
877 procedure save_deliverable(p_api_version NUMBER
878 , p_init_msg_list VARCHAR2
879 , p_commit VARCHAR2
880 , x_return_status out nocopy VARCHAR2
881 , x_msg_count out nocopy NUMBER
882 , x_msg_data out nocopy VARCHAR2
883 , p6_a0 in out nocopy NUMBER
884 , p6_a1 in out nocopy VARCHAR2
885 , p6_a2 in out nocopy VARCHAR2
886 , p6_a3 in out nocopy VARCHAR2
887 , p6_a4 in out nocopy VARCHAR2
888 , p6_a5 in out nocopy VARCHAR2
889 , p6_a6 in out nocopy VARCHAR2
890 , p6_a7 in out nocopy NUMBER
891 , p6_a8 in out nocopy VARCHAR2
892 , p6_a9 in out nocopy VARCHAR2
893 , p6_a10 in out nocopy NUMBER
894 , p6_a11 in out nocopy VARCHAR2
895 )
896
897 as
898 ddp_dlv_ath_rec ibe_deliverable_grp.dlv_ath_rec_type;
899 ddindx binary_integer; indx binary_integer;
900 begin
901
902 -- copy data to the local IN or IN-OUT args, if any
903
904
905
906
907
908
909 ddp_dlv_ath_rec.deliverable_id := rosetta_g_miss_num_map(p6_a0);
910 ddp_dlv_ath_rec.access_name := p6_a1;
911 ddp_dlv_ath_rec.display_name := p6_a2;
912 ddp_dlv_ath_rec.item_type := p6_a3;
913 ddp_dlv_ath_rec.item_applicable_to := p6_a4;
914 ddp_dlv_ath_rec.keywords := p6_a5;
915 ddp_dlv_ath_rec.description := p6_a6;
916 ddp_dlv_ath_rec.object_version_number := rosetta_g_miss_num_map(p6_a7);
917 ddp_dlv_ath_rec.x_action_status := p6_a8;
918 ddp_dlv_ath_rec.ath_file_name := p6_a9;
919 ddp_dlv_ath_rec.ath_file_id := rosetta_g_miss_num_map(p6_a10);
920 ddp_dlv_ath_rec.x_ath_action_status := p6_a11;
921
922 -- here's the delegated call to the old PL/SQL routine
923 ibe_deliverable_grp.save_deliverable(p_api_version,
924 p_init_msg_list,
925 p_commit,
926 x_return_status,
927 x_msg_count,
928 x_msg_data,
929 ddp_dlv_ath_rec);
930
931 -- copy data back from the local variables to OUT or IN-OUT args, if any
932
933
934
935
936
937
938 p6_a0 := rosetta_g_miss_num_map(ddp_dlv_ath_rec.deliverable_id);
939 p6_a1 := ddp_dlv_ath_rec.access_name;
940 p6_a2 := ddp_dlv_ath_rec.display_name;
941 p6_a3 := ddp_dlv_ath_rec.item_type;
942 p6_a4 := ddp_dlv_ath_rec.item_applicable_to;
943 p6_a5 := ddp_dlv_ath_rec.keywords;
944 p6_a6 := ddp_dlv_ath_rec.description;
945 p6_a7 := rosetta_g_miss_num_map(ddp_dlv_ath_rec.object_version_number);
946 p6_a8 := ddp_dlv_ath_rec.x_action_status;
947 p6_a9 := ddp_dlv_ath_rec.ath_file_name;
948 p6_a10 := rosetta_g_miss_num_map(ddp_dlv_ath_rec.ath_file_id);
949 p6_a11 := ddp_dlv_ath_rec.x_ath_action_status;
950 end;
951
952 procedure save_deliverable(p_api_version NUMBER
953 , p_init_msg_list VARCHAR2
954 , p_commit VARCHAR2
955 , x_return_status out nocopy VARCHAR2
956 , x_msg_count out nocopy NUMBER
957 , x_msg_data out nocopy VARCHAR2
958 , p6_a0 in out nocopy JTF_NUMBER_TABLE
959 , p6_a1 in out nocopy JTF_VARCHAR2_TABLE_100
960 , p6_a2 in out nocopy JTF_VARCHAR2_TABLE_300
961 , p6_a3 in out nocopy JTF_VARCHAR2_TABLE_100
962 , p6_a4 in out nocopy JTF_VARCHAR2_TABLE_100
963 , p6_a5 in out nocopy JTF_VARCHAR2_TABLE_300
964 , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_2000
965 , p6_a7 in out nocopy JTF_NUMBER_TABLE
966 , p6_a8 in out nocopy JTF_VARCHAR2_TABLE_100
967 , p6_a9 in out nocopy JTF_VARCHAR2_TABLE_300
968 , p6_a10 in out nocopy JTF_NUMBER_TABLE
969 , p6_a11 in out nocopy JTF_VARCHAR2_TABLE_100
970 )
971
972 as
973 ddp_dlv_ath_tbl ibe_deliverable_grp.dlv_ath_tbl_type;
974 ddindx binary_integer; indx binary_integer;
975 begin
976
977 -- copy data to the local IN or IN-OUT args, if any
978
979
980
981
982
983
984 ibe_deliverable_grp_w.rosetta_table_copy_in_p3(ddp_dlv_ath_tbl, p6_a0
985 , p6_a1
986 , p6_a2
987 , p6_a3
988 , p6_a4
989 , p6_a5
990 , p6_a6
991 , p6_a7
992 , p6_a8
993 , p6_a9
994 , p6_a10
995 , p6_a11
996 );
997
998 -- here's the delegated call to the old PL/SQL routine
999 ibe_deliverable_grp.save_deliverable(p_api_version,
1000 p_init_msg_list,
1001 p_commit,
1002 x_return_status,
1003 x_msg_count,
1004 x_msg_data,
1005 ddp_dlv_ath_tbl);
1006
1007 -- copy data back from the local variables to OUT or IN-OUT args, if any
1008
1009
1010
1011
1012
1013
1014 ibe_deliverable_grp_w.rosetta_table_copy_out_p3(ddp_dlv_ath_tbl, p6_a0
1015 , p6_a1
1016 , p6_a2
1017 , p6_a3
1018 , p6_a4
1019 , p6_a5
1020 , p6_a6
1021 , p6_a7
1022 , p6_a8
1023 , p6_a9
1024 , p6_a10
1025 , p6_a11
1026 );
1027 end;
1028
1029 procedure delete_deliverable(p_api_version NUMBER
1030 , p_init_msg_list VARCHAR2
1031 , p_commit VARCHAR2
1032 , x_return_status out nocopy VARCHAR2
1033 , x_msg_count out nocopy NUMBER
1034 , x_msg_data out nocopy VARCHAR2
1035 , p6_a0 in out nocopy JTF_NUMBER_TABLE
1036 , p6_a1 in out nocopy JTF_VARCHAR2_TABLE_300
1037 , p6_a2 in out nocopy JTF_NUMBER_TABLE
1038 , p6_a3 in out nocopy JTF_VARCHAR2_TABLE_100
1039 )
1040
1041 as
1042 ddp_dlv_id_ver_tbl ibe_deliverable_grp.dlv_id_ver_tbl_type;
1043 ddindx binary_integer; indx binary_integer;
1044 begin
1045
1046 -- copy data to the local IN or IN-OUT args, if any
1047
1048
1049
1050
1051
1052
1053 ibe_deliverable_grp_w.rosetta_table_copy_in_p5(ddp_dlv_id_ver_tbl, p6_a0
1054 , p6_a1
1055 , p6_a2
1056 , p6_a3
1057 );
1058
1059 -- here's the delegated call to the old PL/SQL routine
1060 ibe_deliverable_grp.delete_deliverable(p_api_version,
1061 p_init_msg_list,
1062 p_commit,
1063 x_return_status,
1064 x_msg_count,
1065 x_msg_data,
1066 ddp_dlv_id_ver_tbl);
1067
1068 -- copy data back from the local variables to OUT or IN-OUT args, if any
1069
1070
1071
1072
1073
1074
1075 ibe_deliverable_grp_w.rosetta_table_copy_out_p5(ddp_dlv_id_ver_tbl, p6_a0
1076 , p6_a1
1077 , p6_a2
1078 , p6_a3
1079 );
1080 end;
1081
1082 end ibe_deliverable_grp_w;