[Home] [Help]
PACKAGE BODY: APPS.JTF_DELIVERABLE_GRP_W
Source
1 package body jtf_deliverable_grp_w as
2 /* $Header: JTFGRDLB.pls 115.8 2004/07/09 18:50:36 applrt 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 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure rosetta_table_copy_in_p1(t out jtf_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 jtf_deliverable_grp.deliverable_tbl_type, a0 out JTF_NUMBER_TABLE
58 , a1 out JTF_VARCHAR2_TABLE_100
59 , a2 out JTF_VARCHAR2_TABLE_300
60 , a3 out JTF_VARCHAR2_TABLE_100
61 , a4 out JTF_VARCHAR2_TABLE_100
62 , a5 out JTF_VARCHAR2_TABLE_300
63 , a6 out JTF_VARCHAR2_TABLE_2000
64 , a7 out JTF_NUMBER_TABLE
65 , a8 out 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 jtf_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 jtf_deliverable_grp.dlv_ath_tbl_type, a0 out JTF_NUMBER_TABLE
163 , a1 out JTF_VARCHAR2_TABLE_100
164 , a2 out JTF_VARCHAR2_TABLE_300
165 , a3 out JTF_VARCHAR2_TABLE_100
166 , a4 out JTF_VARCHAR2_TABLE_100
167 , a5 out JTF_VARCHAR2_TABLE_300
168 , a6 out JTF_VARCHAR2_TABLE_2000
169 , a7 out JTF_NUMBER_TABLE
170 , a8 out JTF_VARCHAR2_TABLE_100
171 , a9 out JTF_VARCHAR2_TABLE_300
172 , a10 out JTF_NUMBER_TABLE
173 , a11 out 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 jtf_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 jtf_deliverable_grp.dlv_id_ver_tbl_type, a0 out JTF_NUMBER_TABLE
267 , a1 out JTF_VARCHAR2_TABLE_300
268 , a2 out JTF_NUMBER_TABLE
269 , a3 out 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 jtf_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 := jtf_deliverable_grp.number_table();
312 else
313 if a0.count > 0 then
314 t := jtf_deliverable_grp.number_table();
315 t.extend(a0.count);
316 indx := a0.first;
317 ddindx := 1;
318 while true loop
319 t(ddindx) := 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 jtf_deliverable_grp.number_table, a0 out 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) := 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 jtf_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 := jtf_deliverable_grp.varchar2_table_100();
361 else
362 if a0.count > 0 then
363 t := jtf_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 jtf_deliverable_grp.varchar2_table_100, a0 out 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 jtf_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 := jtf_deliverable_grp.varchar2_table_300();
410 else
411 if a0.count > 0 then
412 t := jtf_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 jtf_deliverable_grp.varchar2_table_300, a0 out 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 jtf_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 := jtf_deliverable_grp.varchar2_table_2000();
459 else
460 if a0.count > 0 then
461 t := jtf_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 jtf_deliverable_grp.varchar2_table_2000, a0 out 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 VARCHAR2
504 , x_msg_count out NUMBER
505 , x_msg_data out 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 NUMBER
513 , x_dlv_id_tbl out JTF_NUMBER_TABLE
514 , x_acc_name_tbl out JTF_VARCHAR2_TABLE_100
515 , x_dsp_name_tbl out JTF_VARCHAR2_TABLE_300
516 , x_item_type_tbl out JTF_VARCHAR2_TABLE_100
517 , x_appl_to_tbl out JTF_VARCHAR2_TABLE_100
518 , x_keyword_tbl out JTF_VARCHAR2_TABLE_300
519 , x_desc_tbl out JTF_VARCHAR2_TABLE_2000
520 , x_version_tbl out JTF_NUMBER_TABLE
521 , x_file_name_tbl out JTF_VARCHAR2_TABLE_300
522 , x_file_id_tbl out JTF_NUMBER_TABLE
523 )
524 as
525 ddx_dlv_id_tbl jtf_deliverable_grp.number_table;
526 ddx_acc_name_tbl jtf_deliverable_grp.varchar2_table_100;
527 ddx_dsp_name_tbl jtf_deliverable_grp.varchar2_table_300;
528 ddx_item_type_tbl jtf_deliverable_grp.varchar2_table_100;
529 ddx_appl_to_tbl jtf_deliverable_grp.varchar2_table_100;
530 ddx_keyword_tbl jtf_deliverable_grp.varchar2_table_300;
531 ddx_desc_tbl jtf_deliverable_grp.varchar2_table_2000;
532 ddx_version_tbl jtf_deliverable_grp.number_table;
533 ddx_file_name_tbl jtf_deliverable_grp.varchar2_table_300;
534 ddx_file_id_tbl jtf_deliverable_grp.number_table;
535 ddindx binary_integer; indx binary_integer;
536 begin
537
538 -- copy data to the local IN or IN-OUT args, if any
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561 -- here's the delegated call to the old PL/SQL routine
562 jtf_deliverable_grp.list_deliverable(p_api_version,
563 p_init_msg_list,
564 x_return_status,
565 x_msg_count,
566 x_msg_data,
567 p_item_type,
568 p_item_applicable_to,
569 p_search_type,
570 p_search_value,
571 p_start_id,
572 p_batch_size,
573 x_row_count,
574 ddx_dlv_id_tbl,
575 ddx_acc_name_tbl,
576 ddx_dsp_name_tbl,
577 ddx_item_type_tbl,
578 ddx_appl_to_tbl,
579 ddx_keyword_tbl,
580 ddx_desc_tbl,
581 ddx_version_tbl,
582 ddx_file_name_tbl,
583 ddx_file_id_tbl);
584
585 -- copy data back from the local OUT or IN-OUT args, if any
586
587
588
589
590
591
592
593
594
595
596
597
598 jtf_deliverable_grp_w.rosetta_table_copy_out_p6(ddx_dlv_id_tbl, x_dlv_id_tbl);
599
600 jtf_deliverable_grp_w.rosetta_table_copy_out_p7(ddx_acc_name_tbl, x_acc_name_tbl);
601
602 jtf_deliverable_grp_w.rosetta_table_copy_out_p8(ddx_dsp_name_tbl, x_dsp_name_tbl);
603
604 jtf_deliverable_grp_w.rosetta_table_copy_out_p7(ddx_item_type_tbl, x_item_type_tbl);
605
606 jtf_deliverable_grp_w.rosetta_table_copy_out_p7(ddx_appl_to_tbl, x_appl_to_tbl);
607
608 jtf_deliverable_grp_w.rosetta_table_copy_out_p8(ddx_keyword_tbl, x_keyword_tbl);
609
610 jtf_deliverable_grp_w.rosetta_table_copy_out_p9(ddx_desc_tbl, x_desc_tbl);
611
612 jtf_deliverable_grp_w.rosetta_table_copy_out_p6(ddx_version_tbl, x_version_tbl);
613
614 jtf_deliverable_grp_w.rosetta_table_copy_out_p8(ddx_file_name_tbl, x_file_name_tbl);
615
616 jtf_deliverable_grp_w.rosetta_table_copy_out_p6(ddx_file_id_tbl, x_file_id_tbl);
617 end;
618
619 procedure list_deliverable(p_api_version NUMBER
620 , p_init_msg_list VARCHAR2
621 , x_return_status out VARCHAR2
622 , x_msg_count out NUMBER
623 , x_msg_data out VARCHAR2
624 , p_category_id NUMBER
625 , p_item_type VARCHAR2
626 , p_item_applicable_to VARCHAR2
627 , p_search_type VARCHAR2
628 , p_search_value VARCHAR2
629 , p_start_id NUMBER
630 , p_batch_size NUMBER
631 , x_row_count out NUMBER
632 , x_dlv_id_tbl out JTF_NUMBER_TABLE
633 , x_acc_name_tbl out JTF_VARCHAR2_TABLE_100
634 , x_dsp_name_tbl out JTF_VARCHAR2_TABLE_300
635 , x_item_type_tbl out JTF_VARCHAR2_TABLE_100
636 , x_appl_to_tbl out JTF_VARCHAR2_TABLE_100
637 , x_keyword_tbl out JTF_VARCHAR2_TABLE_300
638 , x_desc_tbl out JTF_VARCHAR2_TABLE_2000
639 , x_version_tbl out JTF_NUMBER_TABLE
640 , x_file_name_tbl out JTF_VARCHAR2_TABLE_300
641 , x_file_id_tbl out JTF_NUMBER_TABLE
642 )
643 as
644 ddx_dlv_id_tbl jtf_deliverable_grp.number_table;
645 ddx_acc_name_tbl jtf_deliverable_grp.varchar2_table_100;
646 ddx_dsp_name_tbl jtf_deliverable_grp.varchar2_table_300;
647 ddx_item_type_tbl jtf_deliverable_grp.varchar2_table_100;
648 ddx_appl_to_tbl jtf_deliverable_grp.varchar2_table_100;
649 ddx_keyword_tbl jtf_deliverable_grp.varchar2_table_300;
650 ddx_desc_tbl jtf_deliverable_grp.varchar2_table_2000;
651 ddx_version_tbl jtf_deliverable_grp.number_table;
652 ddx_file_name_tbl jtf_deliverable_grp.varchar2_table_300;
653 ddx_file_id_tbl jtf_deliverable_grp.number_table;
654 ddindx binary_integer; indx binary_integer;
655 begin
656
657 -- copy data to the local IN or IN-OUT args, if any
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681 -- here's the delegated call to the old PL/SQL routine
682 jtf_deliverable_grp.list_deliverable(p_api_version,
683 p_init_msg_list,
684 x_return_status,
685 x_msg_count,
686 x_msg_data,
687 p_category_id,
688 p_item_type,
689 p_item_applicable_to,
690 p_search_type,
691 p_search_value,
692 p_start_id,
693 p_batch_size,
694 x_row_count,
695 ddx_dlv_id_tbl,
696 ddx_acc_name_tbl,
697 ddx_dsp_name_tbl,
698 ddx_item_type_tbl,
699 ddx_appl_to_tbl,
700 ddx_keyword_tbl,
701 ddx_desc_tbl,
702 ddx_version_tbl,
703 ddx_file_name_tbl,
704 ddx_file_id_tbl);
705
706 -- copy data back from the local OUT or IN-OUT args, if any
707
708
709
710
711
712
713
714
715
716
717
718
719
720 jtf_deliverable_grp_w.rosetta_table_copy_out_p6(ddx_dlv_id_tbl, x_dlv_id_tbl);
721
722 jtf_deliverable_grp_w.rosetta_table_copy_out_p7(ddx_acc_name_tbl, x_acc_name_tbl);
723
724 jtf_deliverable_grp_w.rosetta_table_copy_out_p8(ddx_dsp_name_tbl, x_dsp_name_tbl);
725
726 jtf_deliverable_grp_w.rosetta_table_copy_out_p7(ddx_item_type_tbl, x_item_type_tbl);
727
728 jtf_deliverable_grp_w.rosetta_table_copy_out_p7(ddx_appl_to_tbl, x_appl_to_tbl);
729
730 jtf_deliverable_grp_w.rosetta_table_copy_out_p8(ddx_keyword_tbl, x_keyword_tbl);
731
732 jtf_deliverable_grp_w.rosetta_table_copy_out_p9(ddx_desc_tbl, x_desc_tbl);
733
734 jtf_deliverable_grp_w.rosetta_table_copy_out_p6(ddx_version_tbl, x_version_tbl);
735
736 jtf_deliverable_grp_w.rosetta_table_copy_out_p8(ddx_file_name_tbl, x_file_name_tbl);
737
738 jtf_deliverable_grp_w.rosetta_table_copy_out_p6(ddx_file_id_tbl, x_file_id_tbl);
739 end;
740
741 procedure save_deliverable(p_api_version NUMBER
742 , p_init_msg_list VARCHAR2
743 , p_commit VARCHAR2
744 , x_return_status out VARCHAR2
745 , x_msg_count out NUMBER
746 , x_msg_data out VARCHAR2
747 , p6_a0 in out NUMBER
748 , p6_a1 in out VARCHAR2
749 , p6_a2 in out VARCHAR2
750 , p6_a3 in out VARCHAR2
751 , p6_a4 in out VARCHAR2
752 , p6_a5 in out VARCHAR2
753 , p6_a6 in out VARCHAR2
754 , p6_a7 in out NUMBER
755 , p6_a8 in out VARCHAR2
756 )
757 as
758 ddp_deliverable_rec jtf_deliverable_grp.deliverable_rec_type;
759 ddindx binary_integer; indx binary_integer;
760 begin
761
762 -- copy data to the local IN or IN-OUT args, if any
763
764
765
766
767
768
769 ddp_deliverable_rec.deliverable_id := rosetta_g_miss_num_map(p6_a0);
770 ddp_deliverable_rec.access_name := p6_a1;
771 ddp_deliverable_rec.display_name := p6_a2;
772 ddp_deliverable_rec.item_type := p6_a3;
773 ddp_deliverable_rec.item_applicable_to := p6_a4;
774 ddp_deliverable_rec.keywords := p6_a5;
775 ddp_deliverable_rec.description := p6_a6;
776 ddp_deliverable_rec.object_version_number := rosetta_g_miss_num_map(p6_a7);
777 ddp_deliverable_rec.x_action_status := p6_a8;
778
779 -- here's the delegated call to the old PL/SQL routine
780 jtf_deliverable_grp.save_deliverable(p_api_version,
781 p_init_msg_list,
782 p_commit,
783 x_return_status,
784 x_msg_count,
785 x_msg_data,
786 ddp_deliverable_rec);
787
788 -- copy data back from the local OUT or IN-OUT args, if any
789
790
791
792
793
794
795 p6_a0 := rosetta_g_miss_num_map(ddp_deliverable_rec.deliverable_id);
796 p6_a1 := ddp_deliverable_rec.access_name;
797 p6_a2 := ddp_deliverable_rec.display_name;
798 p6_a3 := ddp_deliverable_rec.item_type;
799 p6_a4 := ddp_deliverable_rec.item_applicable_to;
800 p6_a5 := ddp_deliverable_rec.keywords;
801 p6_a6 := ddp_deliverable_rec.description;
802 p6_a7 := rosetta_g_miss_num_map(ddp_deliverable_rec.object_version_number);
803 p6_a8 := ddp_deliverable_rec.x_action_status;
804 end;
805
806 procedure save_deliverable(p_api_version NUMBER
807 , p_init_msg_list VARCHAR2
808 , p_commit VARCHAR2
809 , x_return_status out VARCHAR2
810 , x_msg_count out NUMBER
811 , x_msg_data out VARCHAR2
812 , p6_a0 in out JTF_NUMBER_TABLE
813 , p6_a1 in out JTF_VARCHAR2_TABLE_100
814 , p6_a2 in out JTF_VARCHAR2_TABLE_300
815 , p6_a3 in out JTF_VARCHAR2_TABLE_100
816 , p6_a4 in out JTF_VARCHAR2_TABLE_100
817 , p6_a5 in out JTF_VARCHAR2_TABLE_300
818 , p6_a6 in out JTF_VARCHAR2_TABLE_2000
819 , p6_a7 in out JTF_NUMBER_TABLE
820 , p6_a8 in out JTF_VARCHAR2_TABLE_100
821 )
822 as
823 ddp_deliverable_tbl jtf_deliverable_grp.deliverable_tbl_type;
824 ddindx binary_integer; indx binary_integer;
825 begin
826
827 -- copy data to the local IN or IN-OUT args, if any
828
829
830
831
832
833
834 jtf_deliverable_grp_w.rosetta_table_copy_in_p1(ddp_deliverable_tbl, p6_a0
835 , p6_a1
836 , p6_a2
837 , p6_a3
838 , p6_a4
839 , p6_a5
840 , p6_a6
841 , p6_a7
842 , p6_a8
843 );
844
845 -- here's the delegated call to the old PL/SQL routine
846 jtf_deliverable_grp.save_deliverable(p_api_version,
847 p_init_msg_list,
848 p_commit,
849 x_return_status,
850 x_msg_count,
851 x_msg_data,
852 ddp_deliverable_tbl);
853
854 -- copy data back from the local OUT or IN-OUT args, if any
855
856
857
858
859
860
861 jtf_deliverable_grp_w.rosetta_table_copy_out_p1(ddp_deliverable_tbl, p6_a0
862 , p6_a1
863 , p6_a2
864 , p6_a3
865 , p6_a4
866 , p6_a5
867 , p6_a6
868 , p6_a7
869 , p6_a8
870 );
871 end;
872
873 procedure save_deliverable(p_api_version NUMBER
874 , p_init_msg_list VARCHAR2
875 , p_commit VARCHAR2
876 , x_return_status out VARCHAR2
877 , x_msg_count out NUMBER
878 , x_msg_data out VARCHAR2
879 , p6_a0 in out NUMBER
880 , p6_a1 in out VARCHAR2
881 , p6_a2 in out VARCHAR2
882 , p6_a3 in out VARCHAR2
883 , p6_a4 in out VARCHAR2
884 , p6_a5 in out VARCHAR2
885 , p6_a6 in out VARCHAR2
886 , p6_a7 in out NUMBER
887 , p6_a8 in out VARCHAR2
888 , p6_a9 in out VARCHAR2
889 , p6_a10 in out NUMBER
890 , p6_a11 in out VARCHAR2
891 )
892 as
893 ddp_dlv_ath_rec jtf_deliverable_grp.dlv_ath_rec_type;
894 ddindx binary_integer; indx binary_integer;
895 begin
896
897 -- copy data to the local IN or IN-OUT args, if any
898
899
900
901
902
903
904 ddp_dlv_ath_rec.deliverable_id := rosetta_g_miss_num_map(p6_a0);
905 ddp_dlv_ath_rec.access_name := p6_a1;
906 ddp_dlv_ath_rec.display_name := p6_a2;
907 ddp_dlv_ath_rec.item_type := p6_a3;
908 ddp_dlv_ath_rec.item_applicable_to := p6_a4;
909 ddp_dlv_ath_rec.keywords := p6_a5;
910 ddp_dlv_ath_rec.description := p6_a6;
911 ddp_dlv_ath_rec.object_version_number := rosetta_g_miss_num_map(p6_a7);
912 ddp_dlv_ath_rec.x_action_status := p6_a8;
913 ddp_dlv_ath_rec.ath_file_name := p6_a9;
914 ddp_dlv_ath_rec.ath_file_id := rosetta_g_miss_num_map(p6_a10);
915 ddp_dlv_ath_rec.x_ath_action_status := p6_a11;
916
917 -- here's the delegated call to the old PL/SQL routine
918 jtf_deliverable_grp.save_deliverable(p_api_version,
919 p_init_msg_list,
920 p_commit,
921 x_return_status,
922 x_msg_count,
923 x_msg_data,
924 ddp_dlv_ath_rec);
925
926 -- copy data back from the local OUT or IN-OUT args, if any
927
928
929
930
931
932
933 p6_a0 := rosetta_g_miss_num_map(ddp_dlv_ath_rec.deliverable_id);
934 p6_a1 := ddp_dlv_ath_rec.access_name;
935 p6_a2 := ddp_dlv_ath_rec.display_name;
936 p6_a3 := ddp_dlv_ath_rec.item_type;
937 p6_a4 := ddp_dlv_ath_rec.item_applicable_to;
938 p6_a5 := ddp_dlv_ath_rec.keywords;
939 p6_a6 := ddp_dlv_ath_rec.description;
940 p6_a7 := rosetta_g_miss_num_map(ddp_dlv_ath_rec.object_version_number);
941 p6_a8 := ddp_dlv_ath_rec.x_action_status;
942 p6_a9 := ddp_dlv_ath_rec.ath_file_name;
943 p6_a10 := rosetta_g_miss_num_map(ddp_dlv_ath_rec.ath_file_id);
944 p6_a11 := ddp_dlv_ath_rec.x_ath_action_status;
945 end;
946
947 procedure save_deliverable(p_api_version NUMBER
948 , p_init_msg_list VARCHAR2
949 , p_commit VARCHAR2
950 , x_return_status out VARCHAR2
951 , x_msg_count out NUMBER
952 , x_msg_data out VARCHAR2
953 , p6_a0 in out JTF_NUMBER_TABLE
954 , p6_a1 in out JTF_VARCHAR2_TABLE_100
955 , p6_a2 in out JTF_VARCHAR2_TABLE_300
956 , p6_a3 in out JTF_VARCHAR2_TABLE_100
957 , p6_a4 in out JTF_VARCHAR2_TABLE_100
958 , p6_a5 in out JTF_VARCHAR2_TABLE_300
959 , p6_a6 in out JTF_VARCHAR2_TABLE_2000
960 , p6_a7 in out JTF_NUMBER_TABLE
961 , p6_a8 in out JTF_VARCHAR2_TABLE_100
962 , p6_a9 in out JTF_VARCHAR2_TABLE_300
963 , p6_a10 in out JTF_NUMBER_TABLE
964 , p6_a11 in out JTF_VARCHAR2_TABLE_100
965 )
966 as
967 ddp_dlv_ath_tbl jtf_deliverable_grp.dlv_ath_tbl_type;
968 ddindx binary_integer; indx binary_integer;
969 begin
970
971 -- copy data to the local IN or IN-OUT args, if any
972
973
974
975
976
977
978 jtf_deliverable_grp_w.rosetta_table_copy_in_p3(ddp_dlv_ath_tbl, p6_a0
979 , p6_a1
980 , p6_a2
981 , p6_a3
982 , p6_a4
983 , p6_a5
984 , p6_a6
985 , p6_a7
986 , p6_a8
987 , p6_a9
988 , p6_a10
989 , p6_a11
990 );
991
992 -- here's the delegated call to the old PL/SQL routine
993 jtf_deliverable_grp.save_deliverable(p_api_version,
994 p_init_msg_list,
995 p_commit,
996 x_return_status,
997 x_msg_count,
998 x_msg_data,
999 ddp_dlv_ath_tbl);
1000
1001 -- copy data back from the local OUT or IN-OUT args, if any
1002
1003
1004
1005
1006
1007
1008 jtf_deliverable_grp_w.rosetta_table_copy_out_p3(ddp_dlv_ath_tbl, p6_a0
1009 , p6_a1
1010 , p6_a2
1011 , p6_a3
1012 , p6_a4
1013 , p6_a5
1014 , p6_a6
1015 , p6_a7
1016 , p6_a8
1017 , p6_a9
1018 , p6_a10
1019 , p6_a11
1020 );
1021 end;
1022
1023 procedure delete_deliverable(p_api_version NUMBER
1024 , p_init_msg_list VARCHAR2
1025 , p_commit VARCHAR2
1026 , x_return_status out VARCHAR2
1027 , x_msg_count out NUMBER
1028 , x_msg_data out VARCHAR2
1029 , p6_a0 in out JTF_NUMBER_TABLE
1030 , p6_a1 in out JTF_VARCHAR2_TABLE_300
1031 , p6_a2 in out JTF_NUMBER_TABLE
1032 , p6_a3 in out JTF_VARCHAR2_TABLE_100
1033 )
1034 as
1035 ddp_dlv_id_ver_tbl jtf_deliverable_grp.dlv_id_ver_tbl_type;
1036 ddindx binary_integer; indx binary_integer;
1037 begin
1038
1039 -- copy data to the local IN or IN-OUT args, if any
1040
1041
1042
1043
1044
1045
1046 jtf_deliverable_grp_w.rosetta_table_copy_in_p5(ddp_dlv_id_ver_tbl, p6_a0
1047 , p6_a1
1048 , p6_a2
1049 , p6_a3
1050 );
1051
1052 -- here's the delegated call to the old PL/SQL routine
1053 jtf_deliverable_grp.delete_deliverable(p_api_version,
1054 p_init_msg_list,
1055 p_commit,
1056 x_return_status,
1057 x_msg_count,
1058 x_msg_data,
1059 ddp_dlv_id_ver_tbl);
1060
1061 -- copy data back from the local OUT or IN-OUT args, if any
1062
1063
1064
1065
1066
1067
1068 jtf_deliverable_grp_w.rosetta_table_copy_out_p5(ddp_dlv_id_ver_tbl, p6_a0
1069 , p6_a1
1070 , p6_a2
1071 , p6_a3
1072 );
1073 end;
1074
1075 end jtf_deliverable_grp_w;