[Home] [Help]
PACKAGE BODY: APPS.AHL_DI_DOC_INDEX_PUB_W
Source
1 package body ahl_di_doc_index_pub_w as
2 /* $Header: AHLDOCWB.pls 115.11 2003/07/28 07:29:13 pbarman noship $ */
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 procedure rosetta_table_copy_in_p3(t out nocopy ahl_di_doc_index_pub.document_tbl, a0 JTF_NUMBER_TABLE
14 , a1 JTF_NUMBER_TABLE
15 , a2 JTF_VARCHAR2_TABLE_100
16 , a3 JTF_VARCHAR2_TABLE_100
17 , a4 JTF_VARCHAR2_TABLE_100
18 , a5 JTF_VARCHAR2_TABLE_100
19 , a6 JTF_VARCHAR2_TABLE_100
20 , a7 JTF_VARCHAR2_TABLE_100
21 , a8 JTF_VARCHAR2_TABLE_100
22 , a9 JTF_VARCHAR2_TABLE_100
23 , a10 JTF_VARCHAR2_TABLE_100
24 , a11 JTF_VARCHAR2_TABLE_100
25 , a12 JTF_VARCHAR2_TABLE_100
26 , a13 JTF_VARCHAR2_TABLE_100
27 , a14 JTF_VARCHAR2_TABLE_100
28 , a15 JTF_VARCHAR2_TABLE_100
29 , a16 JTF_VARCHAR2_TABLE_100
30 , a17 JTF_NUMBER_TABLE
31 , a18 JTF_VARCHAR2_TABLE_100
32 , a19 JTF_VARCHAR2_TABLE_200
33 , a20 JTF_VARCHAR2_TABLE_200
34 , a21 JTF_VARCHAR2_TABLE_200
35 , a22 JTF_VARCHAR2_TABLE_200
36 , a23 JTF_VARCHAR2_TABLE_200
37 , a24 JTF_VARCHAR2_TABLE_200
38 , a25 JTF_VARCHAR2_TABLE_200
39 , a26 JTF_VARCHAR2_TABLE_200
40 , a27 JTF_VARCHAR2_TABLE_200
41 , a28 JTF_VARCHAR2_TABLE_200
42 , a29 JTF_VARCHAR2_TABLE_200
43 , a30 JTF_VARCHAR2_TABLE_200
44 , a31 JTF_VARCHAR2_TABLE_200
45 , a32 JTF_VARCHAR2_TABLE_200
46 , a33 JTF_VARCHAR2_TABLE_200
47 , a34 JTF_VARCHAR2_TABLE_100
48 , a35 JTF_VARCHAR2_TABLE_100
49 ) as
50 ddindx binary_integer; indx binary_integer;
51 begin
52 if a0 is not null and a0.count > 0 then
53 if a0.count > 0 then
54 indx := a0.first;
55 ddindx := 1;
56 while true loop
57 t(ddindx).document_id := a0(indx);
58 t(ddindx).source_party_id := a1(indx);
59 t(ddindx).source_party_number := a2(indx);
60 t(ddindx).doc_type_code := a3(indx);
61 t(ddindx).doc_type_desc := a4(indx);
62 t(ddindx).doc_sub_type_code := a5(indx);
63 t(ddindx).doc_sub_type_desc := a6(indx);
64 t(ddindx).document_no := a7(indx);
65 t(ddindx).operator_code := a8(indx);
66 t(ddindx).operator_name := a9(indx);
67 t(ddindx).product_type_code := a10(indx);
68 t(ddindx).product_type_desc := a11(indx);
69 t(ddindx).subscribe_avail_flag := a12(indx);
70 t(ddindx).subscribe_to_flag := a13(indx);
71 t(ddindx).document_title := a14(indx);
72 t(ddindx).language := a15(indx);
73 t(ddindx).source_lang := a16(indx);
74 t(ddindx).object_version_number := a17(indx);
75 t(ddindx).attribute_category := a18(indx);
76 t(ddindx).attribute1 := a19(indx);
77 t(ddindx).attribute2 := a20(indx);
78 t(ddindx).attribute3 := a21(indx);
79 t(ddindx).attribute4 := a22(indx);
80 t(ddindx).attribute5 := a23(indx);
81 t(ddindx).attribute6 := a24(indx);
82 t(ddindx).attribute7 := a25(indx);
83 t(ddindx).attribute8 := a26(indx);
84 t(ddindx).attribute9 := a27(indx);
85 t(ddindx).attribute10 := a28(indx);
86 t(ddindx).attribute11 := a29(indx);
87 t(ddindx).attribute12 := a30(indx);
88 t(ddindx).attribute13 := a31(indx);
89 t(ddindx).attribute14 := a32(indx);
90 t(ddindx).attribute15 := a33(indx);
91 t(ddindx).delete_flag := a34(indx);
92 t(ddindx).process_flag := a35(indx);
93 ddindx := ddindx+1;
94 if a0.last =indx
95 then exit;
96 end if;
97 indx := a0.next(indx);
98 end loop;
99 end if;
100 end if;
101 end rosetta_table_copy_in_p3;
102 procedure rosetta_table_copy_out_p3(t ahl_di_doc_index_pub.document_tbl, a0 out nocopy JTF_NUMBER_TABLE
103 , a1 out nocopy JTF_NUMBER_TABLE
104 , a2 out nocopy JTF_VARCHAR2_TABLE_100
105 , a3 out nocopy JTF_VARCHAR2_TABLE_100
106 , a4 out nocopy JTF_VARCHAR2_TABLE_100
107 , a5 out nocopy JTF_VARCHAR2_TABLE_100
108 , a6 out nocopy JTF_VARCHAR2_TABLE_100
109 , a7 out nocopy JTF_VARCHAR2_TABLE_100
110 , a8 out nocopy JTF_VARCHAR2_TABLE_100
111 , a9 out nocopy JTF_VARCHAR2_TABLE_100
112 , a10 out nocopy JTF_VARCHAR2_TABLE_100
113 , a11 out nocopy JTF_VARCHAR2_TABLE_100
114 , a12 out nocopy JTF_VARCHAR2_TABLE_100
115 , a13 out nocopy JTF_VARCHAR2_TABLE_100
116 , a14 out nocopy JTF_VARCHAR2_TABLE_100
117 , a15 out nocopy JTF_VARCHAR2_TABLE_100
118 , a16 out nocopy JTF_VARCHAR2_TABLE_100
119 , a17 out nocopy JTF_NUMBER_TABLE
120 , a18 out nocopy JTF_VARCHAR2_TABLE_100
121 , a19 out nocopy JTF_VARCHAR2_TABLE_200
122 , a20 out nocopy JTF_VARCHAR2_TABLE_200
123 , a21 out nocopy JTF_VARCHAR2_TABLE_200
124 , a22 out nocopy JTF_VARCHAR2_TABLE_200
125 , a23 out nocopy JTF_VARCHAR2_TABLE_200
126 , a24 out nocopy JTF_VARCHAR2_TABLE_200
127 , a25 out nocopy JTF_VARCHAR2_TABLE_200
128 , a26 out nocopy JTF_VARCHAR2_TABLE_200
129 , a27 out nocopy JTF_VARCHAR2_TABLE_200
130 , a28 out nocopy JTF_VARCHAR2_TABLE_200
131 , a29 out nocopy JTF_VARCHAR2_TABLE_200
132 , a30 out nocopy JTF_VARCHAR2_TABLE_200
133 , a31 out nocopy JTF_VARCHAR2_TABLE_200
134 , a32 out nocopy JTF_VARCHAR2_TABLE_200
135 , a33 out nocopy JTF_VARCHAR2_TABLE_200
136 , a34 out nocopy JTF_VARCHAR2_TABLE_100
137 , a35 out nocopy JTF_VARCHAR2_TABLE_100
138 ) as
139 ddindx binary_integer; indx binary_integer;
140 begin
141 if t is null or t.count = 0 then
142 a0 := JTF_NUMBER_TABLE();
143 a1 := JTF_NUMBER_TABLE();
144 a2 := JTF_VARCHAR2_TABLE_100();
145 a3 := JTF_VARCHAR2_TABLE_100();
146 a4 := JTF_VARCHAR2_TABLE_100();
147 a5 := JTF_VARCHAR2_TABLE_100();
148 a6 := JTF_VARCHAR2_TABLE_100();
149 a7 := JTF_VARCHAR2_TABLE_100();
150 a8 := JTF_VARCHAR2_TABLE_100();
151 a9 := JTF_VARCHAR2_TABLE_100();
152 a10 := JTF_VARCHAR2_TABLE_100();
153 a11 := JTF_VARCHAR2_TABLE_100();
154 a12 := JTF_VARCHAR2_TABLE_100();
155 a13 := JTF_VARCHAR2_TABLE_100();
156 a14 := JTF_VARCHAR2_TABLE_100();
157 a15 := JTF_VARCHAR2_TABLE_100();
158 a16 := JTF_VARCHAR2_TABLE_100();
159 a17 := JTF_NUMBER_TABLE();
160 a18 := JTF_VARCHAR2_TABLE_100();
161 a19 := JTF_VARCHAR2_TABLE_200();
162 a20 := JTF_VARCHAR2_TABLE_200();
163 a21 := JTF_VARCHAR2_TABLE_200();
164 a22 := JTF_VARCHAR2_TABLE_200();
165 a23 := JTF_VARCHAR2_TABLE_200();
166 a24 := JTF_VARCHAR2_TABLE_200();
167 a25 := JTF_VARCHAR2_TABLE_200();
168 a26 := JTF_VARCHAR2_TABLE_200();
169 a27 := JTF_VARCHAR2_TABLE_200();
170 a28 := JTF_VARCHAR2_TABLE_200();
171 a29 := JTF_VARCHAR2_TABLE_200();
172 a30 := JTF_VARCHAR2_TABLE_200();
173 a31 := JTF_VARCHAR2_TABLE_200();
174 a32 := JTF_VARCHAR2_TABLE_200();
175 a33 := JTF_VARCHAR2_TABLE_200();
176 a34 := JTF_VARCHAR2_TABLE_100();
177 a35 := JTF_VARCHAR2_TABLE_100();
178 else
179 a0 := JTF_NUMBER_TABLE();
180 a1 := JTF_NUMBER_TABLE();
181 a2 := JTF_VARCHAR2_TABLE_100();
182 a3 := JTF_VARCHAR2_TABLE_100();
183 a4 := JTF_VARCHAR2_TABLE_100();
184 a5 := JTF_VARCHAR2_TABLE_100();
185 a6 := JTF_VARCHAR2_TABLE_100();
186 a7 := JTF_VARCHAR2_TABLE_100();
187 a8 := JTF_VARCHAR2_TABLE_100();
188 a9 := JTF_VARCHAR2_TABLE_100();
189 a10 := JTF_VARCHAR2_TABLE_100();
190 a11 := JTF_VARCHAR2_TABLE_100();
191 a12 := JTF_VARCHAR2_TABLE_100();
192 a13 := JTF_VARCHAR2_TABLE_100();
193 a14 := JTF_VARCHAR2_TABLE_100();
194 a15 := JTF_VARCHAR2_TABLE_100();
195 a16 := JTF_VARCHAR2_TABLE_100();
196 a17 := JTF_NUMBER_TABLE();
197 a18 := JTF_VARCHAR2_TABLE_100();
198 a19 := JTF_VARCHAR2_TABLE_200();
199 a20 := JTF_VARCHAR2_TABLE_200();
200 a21 := JTF_VARCHAR2_TABLE_200();
201 a22 := JTF_VARCHAR2_TABLE_200();
202 a23 := JTF_VARCHAR2_TABLE_200();
203 a24 := JTF_VARCHAR2_TABLE_200();
204 a25 := JTF_VARCHAR2_TABLE_200();
205 a26 := JTF_VARCHAR2_TABLE_200();
206 a27 := JTF_VARCHAR2_TABLE_200();
207 a28 := JTF_VARCHAR2_TABLE_200();
208 a29 := JTF_VARCHAR2_TABLE_200();
209 a30 := JTF_VARCHAR2_TABLE_200();
210 a31 := JTF_VARCHAR2_TABLE_200();
211 a32 := JTF_VARCHAR2_TABLE_200();
212 a33 := JTF_VARCHAR2_TABLE_200();
213 a34 := JTF_VARCHAR2_TABLE_100();
214 a35 := JTF_VARCHAR2_TABLE_100();
215 if t.count > 0 then
216 a0.extend(t.count);
217 a1.extend(t.count);
218 a2.extend(t.count);
219 a3.extend(t.count);
220 a4.extend(t.count);
221 a5.extend(t.count);
222 a6.extend(t.count);
223 a7.extend(t.count);
224 a8.extend(t.count);
225 a9.extend(t.count);
226 a10.extend(t.count);
227 a11.extend(t.count);
228 a12.extend(t.count);
229 a13.extend(t.count);
230 a14.extend(t.count);
231 a15.extend(t.count);
232 a16.extend(t.count);
233 a17.extend(t.count);
234 a18.extend(t.count);
235 a19.extend(t.count);
236 a20.extend(t.count);
237 a21.extend(t.count);
238 a22.extend(t.count);
239 a23.extend(t.count);
240 a24.extend(t.count);
241 a25.extend(t.count);
242 a26.extend(t.count);
243 a27.extend(t.count);
244 a28.extend(t.count);
245 a29.extend(t.count);
246 a30.extend(t.count);
247 a31.extend(t.count);
248 a32.extend(t.count);
249 a33.extend(t.count);
250 a34.extend(t.count);
251 a35.extend(t.count);
252 ddindx := t.first;
253 indx := 1;
254 while true loop
255 a0(indx) := t(ddindx).document_id;
256 a1(indx) := t(ddindx).source_party_id;
257 a2(indx) := t(ddindx).source_party_number;
258 a3(indx) := t(ddindx).doc_type_code;
259 a4(indx) := t(ddindx).doc_type_desc;
260 a5(indx) := t(ddindx).doc_sub_type_code;
261 a6(indx) := t(ddindx).doc_sub_type_desc;
262 a7(indx) := t(ddindx).document_no;
263 a8(indx) := t(ddindx).operator_code;
264 a9(indx) := t(ddindx).operator_name;
265 a10(indx) := t(ddindx).product_type_code;
266 a11(indx) := t(ddindx).product_type_desc;
267 a12(indx) := t(ddindx).subscribe_avail_flag;
268 a13(indx) := t(ddindx).subscribe_to_flag;
269 a14(indx) := t(ddindx).document_title;
270 a15(indx) := t(ddindx).language;
271 a16(indx) := t(ddindx).source_lang;
272 a17(indx) := t(ddindx).object_version_number;
273 a18(indx) := t(ddindx).attribute_category;
274 a19(indx) := t(ddindx).attribute1;
275 a20(indx) := t(ddindx).attribute2;
276 a21(indx) := t(ddindx).attribute3;
277 a22(indx) := t(ddindx).attribute4;
278 a23(indx) := t(ddindx).attribute5;
279 a24(indx) := t(ddindx).attribute6;
280 a25(indx) := t(ddindx).attribute7;
281 a26(indx) := t(ddindx).attribute8;
282 a27(indx) := t(ddindx).attribute9;
283 a28(indx) := t(ddindx).attribute10;
284 a29(indx) := t(ddindx).attribute11;
285 a30(indx) := t(ddindx).attribute12;
286 a31(indx) := t(ddindx).attribute13;
287 a32(indx) := t(ddindx).attribute14;
288 a33(indx) := t(ddindx).attribute15;
289 a34(indx) := t(ddindx).delete_flag;
290 a35(indx) := t(ddindx).process_flag;
291 indx := indx+1;
292 if t.last =ddindx
293 then exit;
294 end if;
295 ddindx := t.next(ddindx);
296 end loop;
297 end if;
298 end if;
299 end rosetta_table_copy_out_p3;
300
301 procedure rosetta_table_copy_in_p4(t out nocopy ahl_di_doc_index_pub.supplier_tbl, a0 JTF_NUMBER_TABLE
302 , a1 JTF_NUMBER_TABLE
303 , a2 JTF_VARCHAR2_TABLE_100
304 , a3 JTF_NUMBER_TABLE
305 , a4 JTF_VARCHAR2_TABLE_100
306 , a5 JTF_VARCHAR2_TABLE_100
307 , a6 JTF_NUMBER_TABLE
308 , a7 JTF_VARCHAR2_TABLE_100
309 , a8 JTF_VARCHAR2_TABLE_200
310 , a9 JTF_VARCHAR2_TABLE_200
311 , a10 JTF_VARCHAR2_TABLE_200
312 , a11 JTF_VARCHAR2_TABLE_200
313 , a12 JTF_VARCHAR2_TABLE_200
314 , a13 JTF_VARCHAR2_TABLE_200
315 , a14 JTF_VARCHAR2_TABLE_200
316 , a15 JTF_VARCHAR2_TABLE_200
317 , a16 JTF_VARCHAR2_TABLE_200
318 , a17 JTF_VARCHAR2_TABLE_200
319 , a18 JTF_VARCHAR2_TABLE_200
320 , a19 JTF_VARCHAR2_TABLE_200
321 , a20 JTF_VARCHAR2_TABLE_200
322 , a21 JTF_VARCHAR2_TABLE_200
323 , a22 JTF_VARCHAR2_TABLE_200
324 , a23 JTF_VARCHAR2_TABLE_100
325 ) as
326 ddindx binary_integer; indx binary_integer;
327 begin
328 if a0 is not null and a0.count > 0 then
329 if a0.count > 0 then
330 indx := a0.first;
331 ddindx := 1;
332 while true loop
333 t(ddindx).supplier_document_id := a0(indx);
334 t(ddindx).supplier_id := a1(indx);
335 t(ddindx).supplier_number := a2(indx);
336 t(ddindx).document_id := a3(indx);
337 t(ddindx).preference_code := a4(indx);
338 t(ddindx).preference_desc := a5(indx);
339 t(ddindx).object_version_number := a6(indx);
340 t(ddindx).attribute_category := a7(indx);
341 t(ddindx).attribute1 := a8(indx);
342 t(ddindx).attribute2 := a9(indx);
343 t(ddindx).attribute3 := a10(indx);
344 t(ddindx).attribute4 := a11(indx);
345 t(ddindx).attribute5 := a12(indx);
346 t(ddindx).attribute6 := a13(indx);
347 t(ddindx).attribute7 := a14(indx);
348 t(ddindx).attribute8 := a15(indx);
349 t(ddindx).attribute9 := a16(indx);
350 t(ddindx).attribute10 := a17(indx);
351 t(ddindx).attribute11 := a18(indx);
352 t(ddindx).attribute12 := a19(indx);
353 t(ddindx).attribute13 := a20(indx);
354 t(ddindx).attribute14 := a21(indx);
355 t(ddindx).attribute15 := a22(indx);
356 t(ddindx).delete_flag := a23(indx);
357 ddindx := ddindx+1;
358 if a0.last =indx
359 then exit;
360 end if;
361 indx := a0.next(indx);
362 end loop;
363 end if;
364 end if;
365 end rosetta_table_copy_in_p4;
366 procedure rosetta_table_copy_out_p4(t ahl_di_doc_index_pub.supplier_tbl, a0 out nocopy JTF_NUMBER_TABLE
367 , a1 out nocopy JTF_NUMBER_TABLE
368 , a2 out nocopy JTF_VARCHAR2_TABLE_100
369 , a3 out nocopy JTF_NUMBER_TABLE
370 , a4 out nocopy JTF_VARCHAR2_TABLE_100
371 , a5 out nocopy JTF_VARCHAR2_TABLE_100
372 , a6 out nocopy JTF_NUMBER_TABLE
373 , a7 out nocopy JTF_VARCHAR2_TABLE_100
374 , a8 out nocopy JTF_VARCHAR2_TABLE_200
375 , a9 out nocopy JTF_VARCHAR2_TABLE_200
379 , a13 out nocopy JTF_VARCHAR2_TABLE_200
376 , a10 out nocopy JTF_VARCHAR2_TABLE_200
377 , a11 out nocopy JTF_VARCHAR2_TABLE_200
378 , a12 out nocopy JTF_VARCHAR2_TABLE_200
380 , a14 out nocopy JTF_VARCHAR2_TABLE_200
381 , a15 out nocopy JTF_VARCHAR2_TABLE_200
382 , a16 out nocopy JTF_VARCHAR2_TABLE_200
383 , a17 out nocopy JTF_VARCHAR2_TABLE_200
384 , a18 out nocopy JTF_VARCHAR2_TABLE_200
385 , a19 out nocopy JTF_VARCHAR2_TABLE_200
386 , a20 out nocopy JTF_VARCHAR2_TABLE_200
387 , a21 out nocopy JTF_VARCHAR2_TABLE_200
388 , a22 out nocopy JTF_VARCHAR2_TABLE_200
389 , a23 out nocopy JTF_VARCHAR2_TABLE_100
390 ) as
391 ddindx binary_integer; indx binary_integer;
392 begin
393 if t is null or t.count = 0 then
394 a0 := JTF_NUMBER_TABLE();
395 a1 := JTF_NUMBER_TABLE();
396 a2 := JTF_VARCHAR2_TABLE_100();
397 a3 := JTF_NUMBER_TABLE();
398 a4 := JTF_VARCHAR2_TABLE_100();
399 a5 := JTF_VARCHAR2_TABLE_100();
400 a6 := JTF_NUMBER_TABLE();
401 a7 := JTF_VARCHAR2_TABLE_100();
402 a8 := JTF_VARCHAR2_TABLE_200();
403 a9 := JTF_VARCHAR2_TABLE_200();
404 a10 := JTF_VARCHAR2_TABLE_200();
405 a11 := JTF_VARCHAR2_TABLE_200();
406 a12 := JTF_VARCHAR2_TABLE_200();
407 a13 := JTF_VARCHAR2_TABLE_200();
408 a14 := JTF_VARCHAR2_TABLE_200();
409 a15 := JTF_VARCHAR2_TABLE_200();
410 a16 := JTF_VARCHAR2_TABLE_200();
411 a17 := JTF_VARCHAR2_TABLE_200();
412 a18 := JTF_VARCHAR2_TABLE_200();
413 a19 := JTF_VARCHAR2_TABLE_200();
414 a20 := JTF_VARCHAR2_TABLE_200();
415 a21 := JTF_VARCHAR2_TABLE_200();
416 a22 := JTF_VARCHAR2_TABLE_200();
417 a23 := JTF_VARCHAR2_TABLE_100();
418 else
419 a0 := JTF_NUMBER_TABLE();
420 a1 := JTF_NUMBER_TABLE();
421 a2 := JTF_VARCHAR2_TABLE_100();
422 a3 := JTF_NUMBER_TABLE();
423 a4 := JTF_VARCHAR2_TABLE_100();
424 a5 := JTF_VARCHAR2_TABLE_100();
425 a6 := JTF_NUMBER_TABLE();
426 a7 := JTF_VARCHAR2_TABLE_100();
427 a8 := JTF_VARCHAR2_TABLE_200();
428 a9 := JTF_VARCHAR2_TABLE_200();
429 a10 := JTF_VARCHAR2_TABLE_200();
430 a11 := JTF_VARCHAR2_TABLE_200();
431 a12 := JTF_VARCHAR2_TABLE_200();
432 a13 := JTF_VARCHAR2_TABLE_200();
433 a14 := JTF_VARCHAR2_TABLE_200();
434 a15 := JTF_VARCHAR2_TABLE_200();
435 a16 := JTF_VARCHAR2_TABLE_200();
436 a17 := JTF_VARCHAR2_TABLE_200();
437 a18 := JTF_VARCHAR2_TABLE_200();
438 a19 := JTF_VARCHAR2_TABLE_200();
439 a20 := JTF_VARCHAR2_TABLE_200();
440 a21 := JTF_VARCHAR2_TABLE_200();
441 a22 := JTF_VARCHAR2_TABLE_200();
442 a23 := JTF_VARCHAR2_TABLE_100();
443 if t.count > 0 then
444 a0.extend(t.count);
445 a1.extend(t.count);
446 a2.extend(t.count);
447 a3.extend(t.count);
448 a4.extend(t.count);
449 a5.extend(t.count);
450 a6.extend(t.count);
451 a7.extend(t.count);
452 a8.extend(t.count);
453 a9.extend(t.count);
454 a10.extend(t.count);
455 a11.extend(t.count);
456 a12.extend(t.count);
457 a13.extend(t.count);
458 a14.extend(t.count);
459 a15.extend(t.count);
460 a16.extend(t.count);
461 a17.extend(t.count);
462 a18.extend(t.count);
463 a19.extend(t.count);
464 a20.extend(t.count);
465 a21.extend(t.count);
466 a22.extend(t.count);
467 a23.extend(t.count);
468 ddindx := t.first;
469 indx := 1;
470 while true loop
471 a0(indx) := t(ddindx).supplier_document_id;
472 a1(indx) := t(ddindx).supplier_id;
473 a2(indx) := t(ddindx).supplier_number;
474 a3(indx) := t(ddindx).document_id;
475 a4(indx) := t(ddindx).preference_code;
476 a5(indx) := t(ddindx).preference_desc;
477 a6(indx) := t(ddindx).object_version_number;
478 a7(indx) := t(ddindx).attribute_category;
479 a8(indx) := t(ddindx).attribute1;
480 a9(indx) := t(ddindx).attribute2;
481 a10(indx) := t(ddindx).attribute3;
482 a11(indx) := t(ddindx).attribute4;
483 a12(indx) := t(ddindx).attribute5;
484 a13(indx) := t(ddindx).attribute6;
485 a14(indx) := t(ddindx).attribute7;
486 a15(indx) := t(ddindx).attribute8;
487 a16(indx) := t(ddindx).attribute9;
488 a17(indx) := t(ddindx).attribute10;
489 a18(indx) := t(ddindx).attribute11;
490 a19(indx) := t(ddindx).attribute12;
491 a20(indx) := t(ddindx).attribute13;
492 a21(indx) := t(ddindx).attribute14;
493 a22(indx) := t(ddindx).attribute15;
494 a23(indx) := t(ddindx).delete_flag;
495 indx := indx+1;
496 if t.last =ddindx
497 then exit;
498 end if;
499 ddindx := t.next(ddindx);
500 end loop;
501 end if;
502 end if;
503 end rosetta_table_copy_out_p4;
504
505 procedure rosetta_table_copy_in_p5(t out nocopy ahl_di_doc_index_pub.recipient_tbl, a0 JTF_NUMBER_TABLE
506 , a1 JTF_NUMBER_TABLE
507 , a2 JTF_VARCHAR2_TABLE_100
508 , a3 JTF_NUMBER_TABLE
512 , a7 JTF_VARCHAR2_TABLE_200
509 , a4 JTF_NUMBER_TABLE
510 , a5 JTF_VARCHAR2_TABLE_100
511 , a6 JTF_VARCHAR2_TABLE_200
513 , a8 JTF_VARCHAR2_TABLE_200
514 , a9 JTF_VARCHAR2_TABLE_200
515 , a10 JTF_VARCHAR2_TABLE_200
516 , a11 JTF_VARCHAR2_TABLE_200
517 , a12 JTF_VARCHAR2_TABLE_200
518 , a13 JTF_VARCHAR2_TABLE_200
519 , a14 JTF_VARCHAR2_TABLE_200
520 , a15 JTF_VARCHAR2_TABLE_200
521 , a16 JTF_VARCHAR2_TABLE_200
522 , a17 JTF_VARCHAR2_TABLE_200
523 , a18 JTF_VARCHAR2_TABLE_200
524 , a19 JTF_VARCHAR2_TABLE_200
525 , a20 JTF_VARCHAR2_TABLE_200
526 , a21 JTF_VARCHAR2_TABLE_100
527 ) as
528 ddindx binary_integer; indx binary_integer;
529 begin
530 if a0 is not null and a0.count > 0 then
531 if a0.count > 0 then
532 indx := a0.first;
533 ddindx := 1;
534 while true loop
535 t(ddindx).recipient_document_id := a0(indx);
536 t(ddindx).recipient_party_id := a1(indx);
537 t(ddindx).recipient_party_number := a2(indx);
538 t(ddindx).document_id := a3(indx);
539 t(ddindx).object_version_number := a4(indx);
540 t(ddindx).attribute_category := a5(indx);
541 t(ddindx).attribute1 := a6(indx);
542 t(ddindx).attribute2 := a7(indx);
543 t(ddindx).attribute3 := a8(indx);
544 t(ddindx).attribute4 := a9(indx);
545 t(ddindx).attribute5 := a10(indx);
546 t(ddindx).attribute6 := a11(indx);
547 t(ddindx).attribute7 := a12(indx);
548 t(ddindx).attribute8 := a13(indx);
549 t(ddindx).attribute9 := a14(indx);
550 t(ddindx).attribute10 := a15(indx);
551 t(ddindx).attribute11 := a16(indx);
552 t(ddindx).attribute12 := a17(indx);
553 t(ddindx).attribute13 := a18(indx);
554 t(ddindx).attribute14 := a19(indx);
555 t(ddindx).attribute15 := a20(indx);
556 t(ddindx).delete_flag := a21(indx);
557 ddindx := ddindx+1;
558 if a0.last =indx
559 then exit;
560 end if;
561 indx := a0.next(indx);
562 end loop;
563 end if;
564 end if;
565 end rosetta_table_copy_in_p5;
566 procedure rosetta_table_copy_out_p5(t ahl_di_doc_index_pub.recipient_tbl, a0 out nocopy JTF_NUMBER_TABLE
567 , a1 out nocopy JTF_NUMBER_TABLE
568 , a2 out nocopy JTF_VARCHAR2_TABLE_100
569 , a3 out nocopy JTF_NUMBER_TABLE
570 , a4 out nocopy JTF_NUMBER_TABLE
571 , a5 out nocopy JTF_VARCHAR2_TABLE_100
572 , a6 out nocopy JTF_VARCHAR2_TABLE_200
573 , a7 out nocopy JTF_VARCHAR2_TABLE_200
574 , a8 out nocopy JTF_VARCHAR2_TABLE_200
575 , a9 out nocopy JTF_VARCHAR2_TABLE_200
576 , a10 out nocopy JTF_VARCHAR2_TABLE_200
577 , a11 out nocopy JTF_VARCHAR2_TABLE_200
578 , a12 out nocopy JTF_VARCHAR2_TABLE_200
579 , a13 out nocopy JTF_VARCHAR2_TABLE_200
580 , a14 out nocopy JTF_VARCHAR2_TABLE_200
581 , a15 out nocopy JTF_VARCHAR2_TABLE_200
582 , a16 out nocopy JTF_VARCHAR2_TABLE_200
583 , a17 out nocopy JTF_VARCHAR2_TABLE_200
584 , a18 out nocopy JTF_VARCHAR2_TABLE_200
585 , a19 out nocopy JTF_VARCHAR2_TABLE_200
586 , a20 out nocopy JTF_VARCHAR2_TABLE_200
587 , a21 out nocopy JTF_VARCHAR2_TABLE_100
588 ) as
589 ddindx binary_integer; indx binary_integer;
590 begin
591 if t is null or t.count = 0 then
592 a0 := JTF_NUMBER_TABLE();
593 a1 := JTF_NUMBER_TABLE();
594 a2 := JTF_VARCHAR2_TABLE_100();
595 a3 := JTF_NUMBER_TABLE();
596 a4 := JTF_NUMBER_TABLE();
597 a5 := JTF_VARCHAR2_TABLE_100();
598 a6 := JTF_VARCHAR2_TABLE_200();
599 a7 := JTF_VARCHAR2_TABLE_200();
600 a8 := JTF_VARCHAR2_TABLE_200();
601 a9 := JTF_VARCHAR2_TABLE_200();
602 a10 := JTF_VARCHAR2_TABLE_200();
603 a11 := JTF_VARCHAR2_TABLE_200();
604 a12 := JTF_VARCHAR2_TABLE_200();
605 a13 := JTF_VARCHAR2_TABLE_200();
606 a14 := JTF_VARCHAR2_TABLE_200();
607 a15 := JTF_VARCHAR2_TABLE_200();
608 a16 := JTF_VARCHAR2_TABLE_200();
609 a17 := JTF_VARCHAR2_TABLE_200();
610 a18 := JTF_VARCHAR2_TABLE_200();
611 a19 := JTF_VARCHAR2_TABLE_200();
612 a20 := JTF_VARCHAR2_TABLE_200();
613 a21 := JTF_VARCHAR2_TABLE_100();
614 else
615 a0 := JTF_NUMBER_TABLE();
616 a1 := JTF_NUMBER_TABLE();
617 a2 := JTF_VARCHAR2_TABLE_100();
618 a3 := JTF_NUMBER_TABLE();
619 a4 := JTF_NUMBER_TABLE();
620 a5 := JTF_VARCHAR2_TABLE_100();
621 a6 := JTF_VARCHAR2_TABLE_200();
622 a7 := JTF_VARCHAR2_TABLE_200();
623 a8 := JTF_VARCHAR2_TABLE_200();
624 a9 := JTF_VARCHAR2_TABLE_200();
625 a10 := JTF_VARCHAR2_TABLE_200();
626 a11 := JTF_VARCHAR2_TABLE_200();
627 a12 := JTF_VARCHAR2_TABLE_200();
628 a13 := JTF_VARCHAR2_TABLE_200();
629 a14 := JTF_VARCHAR2_TABLE_200();
630 a15 := JTF_VARCHAR2_TABLE_200();
631 a16 := JTF_VARCHAR2_TABLE_200();
632 a17 := JTF_VARCHAR2_TABLE_200();
633 a18 := JTF_VARCHAR2_TABLE_200();
634 a19 := JTF_VARCHAR2_TABLE_200();
635 a20 := JTF_VARCHAR2_TABLE_200();
636 a21 := JTF_VARCHAR2_TABLE_100();
637 if t.count > 0 then
638 a0.extend(t.count);
642 a4.extend(t.count);
639 a1.extend(t.count);
640 a2.extend(t.count);
641 a3.extend(t.count);
643 a5.extend(t.count);
644 a6.extend(t.count);
645 a7.extend(t.count);
646 a8.extend(t.count);
647 a9.extend(t.count);
648 a10.extend(t.count);
649 a11.extend(t.count);
650 a12.extend(t.count);
651 a13.extend(t.count);
652 a14.extend(t.count);
653 a15.extend(t.count);
654 a16.extend(t.count);
655 a17.extend(t.count);
656 a18.extend(t.count);
657 a19.extend(t.count);
658 a20.extend(t.count);
659 a21.extend(t.count);
660 ddindx := t.first;
661 indx := 1;
662 while true loop
663 a0(indx) := t(ddindx).recipient_document_id;
664 a1(indx) := t(ddindx).recipient_party_id;
665 a2(indx) := t(ddindx).recipient_party_number;
666 a3(indx) := t(ddindx).document_id;
667 a4(indx) := t(ddindx).object_version_number;
668 a5(indx) := t(ddindx).attribute_category;
669 a6(indx) := t(ddindx).attribute1;
670 a7(indx) := t(ddindx).attribute2;
671 a8(indx) := t(ddindx).attribute3;
672 a9(indx) := t(ddindx).attribute4;
673 a10(indx) := t(ddindx).attribute5;
674 a11(indx) := t(ddindx).attribute6;
675 a12(indx) := t(ddindx).attribute7;
676 a13(indx) := t(ddindx).attribute8;
677 a14(indx) := t(ddindx).attribute9;
678 a15(indx) := t(ddindx).attribute10;
679 a16(indx) := t(ddindx).attribute11;
680 a17(indx) := t(ddindx).attribute12;
681 a18(indx) := t(ddindx).attribute13;
682 a19(indx) := t(ddindx).attribute14;
683 a20(indx) := t(ddindx).attribute15;
684 a21(indx) := t(ddindx).delete_flag;
685 indx := indx+1;
686 if t.last =ddindx
687 then exit;
688 end if;
689 ddindx := t.next(ddindx);
690 end loop;
691 end if;
692 end if;
693 end rosetta_table_copy_out_p5;
694
695 procedure create_document(p_api_version NUMBER
696 , p_init_msg_list VARCHAR2
697 , p_commit VARCHAR2
698 , p_validate_only VARCHAR2
699 , p_validation_level NUMBER
700 , p5_a0 in out nocopy JTF_NUMBER_TABLE
701 , p5_a1 in out nocopy JTF_NUMBER_TABLE
702 , p5_a2 in out nocopy JTF_VARCHAR2_TABLE_100
703 , p5_a3 in out nocopy JTF_VARCHAR2_TABLE_100
704 , p5_a4 in out nocopy JTF_VARCHAR2_TABLE_100
705 , p5_a5 in out nocopy JTF_VARCHAR2_TABLE_100
706 , p5_a6 in out nocopy JTF_VARCHAR2_TABLE_100
707 , p5_a7 in out nocopy JTF_VARCHAR2_TABLE_100
708 , p5_a8 in out nocopy JTF_VARCHAR2_TABLE_100
709 , p5_a9 in out nocopy JTF_VARCHAR2_TABLE_100
710 , p5_a10 in out nocopy JTF_VARCHAR2_TABLE_100
711 , p5_a11 in out nocopy JTF_VARCHAR2_TABLE_100
712 , p5_a12 in out nocopy JTF_VARCHAR2_TABLE_100
713 , p5_a13 in out nocopy JTF_VARCHAR2_TABLE_100
714 , p5_a14 in out nocopy JTF_VARCHAR2_TABLE_100
715 , p5_a15 in out nocopy JTF_VARCHAR2_TABLE_100
716 , p5_a16 in out nocopy JTF_VARCHAR2_TABLE_100
717 , p5_a17 in out nocopy JTF_NUMBER_TABLE
718 , p5_a18 in out nocopy JTF_VARCHAR2_TABLE_100
719 , p5_a19 in out nocopy JTF_VARCHAR2_TABLE_200
720 , p5_a20 in out nocopy JTF_VARCHAR2_TABLE_200
721 , p5_a21 in out nocopy JTF_VARCHAR2_TABLE_200
722 , p5_a22 in out nocopy JTF_VARCHAR2_TABLE_200
723 , p5_a23 in out nocopy JTF_VARCHAR2_TABLE_200
724 , p5_a24 in out nocopy JTF_VARCHAR2_TABLE_200
725 , p5_a25 in out nocopy JTF_VARCHAR2_TABLE_200
726 , p5_a26 in out nocopy JTF_VARCHAR2_TABLE_200
727 , p5_a27 in out nocopy JTF_VARCHAR2_TABLE_200
728 , p5_a28 in out nocopy JTF_VARCHAR2_TABLE_200
729 , p5_a29 in out nocopy JTF_VARCHAR2_TABLE_200
730 , p5_a30 in out nocopy JTF_VARCHAR2_TABLE_200
731 , p5_a31 in out nocopy JTF_VARCHAR2_TABLE_200
732 , p5_a32 in out nocopy JTF_VARCHAR2_TABLE_200
733 , p5_a33 in out nocopy JTF_VARCHAR2_TABLE_200
734 , p5_a34 in out nocopy JTF_VARCHAR2_TABLE_100
735 , p5_a35 in out nocopy JTF_VARCHAR2_TABLE_100
736 , p6_a0 in out nocopy JTF_NUMBER_TABLE
737 , p6_a1 in out nocopy JTF_NUMBER_TABLE
738 , p6_a2 in out nocopy JTF_VARCHAR2_TABLE_100
739 , p6_a3 in out nocopy JTF_NUMBER_TABLE
740 , p6_a4 in out nocopy JTF_VARCHAR2_TABLE_100
741 , p6_a5 in out nocopy JTF_VARCHAR2_TABLE_100
742 , p6_a6 in out nocopy JTF_NUMBER_TABLE
743 , p6_a7 in out nocopy JTF_VARCHAR2_TABLE_100
744 , p6_a8 in out nocopy JTF_VARCHAR2_TABLE_200
745 , p6_a9 in out nocopy JTF_VARCHAR2_TABLE_200
746 , p6_a10 in out nocopy JTF_VARCHAR2_TABLE_200
747 , p6_a11 in out nocopy JTF_VARCHAR2_TABLE_200
748 , p6_a12 in out nocopy JTF_VARCHAR2_TABLE_200
749 , p6_a13 in out nocopy JTF_VARCHAR2_TABLE_200
750 , p6_a14 in out nocopy JTF_VARCHAR2_TABLE_200
751 , p6_a15 in out nocopy JTF_VARCHAR2_TABLE_200
752 , p6_a16 in out nocopy JTF_VARCHAR2_TABLE_200
753 , p6_a17 in out nocopy JTF_VARCHAR2_TABLE_200
754 , p6_a18 in out nocopy JTF_VARCHAR2_TABLE_200
755 , p6_a19 in out nocopy JTF_VARCHAR2_TABLE_200
756 , p6_a20 in out nocopy JTF_VARCHAR2_TABLE_200
757 , p6_a21 in out nocopy JTF_VARCHAR2_TABLE_200
761 , p7_a1 in out nocopy JTF_NUMBER_TABLE
758 , p6_a22 in out nocopy JTF_VARCHAR2_TABLE_200
759 , p6_a23 in out nocopy JTF_VARCHAR2_TABLE_100
760 , p7_a0 in out nocopy JTF_NUMBER_TABLE
762 , p7_a2 in out nocopy JTF_VARCHAR2_TABLE_100
763 , p7_a3 in out nocopy JTF_NUMBER_TABLE
764 , p7_a4 in out nocopy JTF_NUMBER_TABLE
765 , p7_a5 in out nocopy JTF_VARCHAR2_TABLE_100
766 , p7_a6 in out nocopy JTF_VARCHAR2_TABLE_200
767 , p7_a7 in out nocopy JTF_VARCHAR2_TABLE_200
768 , p7_a8 in out nocopy JTF_VARCHAR2_TABLE_200
769 , p7_a9 in out nocopy JTF_VARCHAR2_TABLE_200
770 , p7_a10 in out nocopy JTF_VARCHAR2_TABLE_200
771 , p7_a11 in out nocopy JTF_VARCHAR2_TABLE_200
772 , p7_a12 in out nocopy JTF_VARCHAR2_TABLE_200
773 , p7_a13 in out nocopy JTF_VARCHAR2_TABLE_200
774 , p7_a14 in out nocopy JTF_VARCHAR2_TABLE_200
775 , p7_a15 in out nocopy JTF_VARCHAR2_TABLE_200
776 , p7_a16 in out nocopy JTF_VARCHAR2_TABLE_200
777 , p7_a17 in out nocopy JTF_VARCHAR2_TABLE_200
778 , p7_a18 in out nocopy JTF_VARCHAR2_TABLE_200
779 , p7_a19 in out nocopy JTF_VARCHAR2_TABLE_200
780 , p7_a20 in out nocopy JTF_VARCHAR2_TABLE_200
781 , p7_a21 in out nocopy JTF_VARCHAR2_TABLE_100
782 , p_module_type VARCHAR2
783 , x_return_status out nocopy VARCHAR2
784 , x_msg_count out nocopy NUMBER
785 , x_msg_data out nocopy VARCHAR2
786 )
787
788 as
789 ddp_x_document_tbl ahl_di_doc_index_pub.document_tbl;
790 ddp_x_supplier_tbl ahl_di_doc_index_pub.supplier_tbl;
791 ddp_x_recipient_tbl ahl_di_doc_index_pub.recipient_tbl;
792 ddindx binary_integer; indx binary_integer;
793 begin
794
795 -- copy data to the local IN or IN-OUT args, if any
796
797
798
799
800
801 ahl_di_doc_index_pub_w.rosetta_table_copy_in_p3(ddp_x_document_tbl, p5_a0
802 , p5_a1
803 , p5_a2
804 , p5_a3
805 , p5_a4
806 , p5_a5
807 , p5_a6
808 , p5_a7
809 , p5_a8
810 , p5_a9
811 , p5_a10
812 , p5_a11
813 , p5_a12
814 , p5_a13
815 , p5_a14
816 , p5_a15
817 , p5_a16
818 , p5_a17
819 , p5_a18
820 , p5_a19
821 , p5_a20
822 , p5_a21
823 , p5_a22
824 , p5_a23
825 , p5_a24
826 , p5_a25
827 , p5_a26
828 , p5_a27
829 , p5_a28
830 , p5_a29
831 , p5_a30
832 , p5_a31
833 , p5_a32
834 , p5_a33
835 , p5_a34
836 , p5_a35
837 );
838
839 ahl_di_doc_index_pub_w.rosetta_table_copy_in_p4(ddp_x_supplier_tbl, p6_a0
840 , p6_a1
841 , p6_a2
842 , p6_a3
843 , p6_a4
844 , p6_a5
845 , p6_a6
846 , p6_a7
847 , p6_a8
848 , p6_a9
849 , p6_a10
850 , p6_a11
851 , p6_a12
852 , p6_a13
853 , p6_a14
854 , p6_a15
855 , p6_a16
856 , p6_a17
857 , p6_a18
858 , p6_a19
859 , p6_a20
860 , p6_a21
861 , p6_a22
862 , p6_a23
863 );
864
865 ahl_di_doc_index_pub_w.rosetta_table_copy_in_p5(ddp_x_recipient_tbl, p7_a0
866 , p7_a1
867 , p7_a2
868 , p7_a3
869 , p7_a4
870 , p7_a5
871 , p7_a6
872 , p7_a7
873 , p7_a8
874 , p7_a9
875 , p7_a10
876 , p7_a11
877 , p7_a12
878 , p7_a13
879 , p7_a14
880 , p7_a15
881 , p7_a16
882 , p7_a17
883 , p7_a18
884 , p7_a19
885 , p7_a20
886 , p7_a21
887 );
888
889
890
891
892
893 -- here's the delegated call to the old PL/SQL routine
894 ahl_di_doc_index_pub.create_document(p_api_version,
895 p_init_msg_list,
896 p_commit,
897 p_validate_only,
898 p_validation_level,
899 ddp_x_document_tbl,
900 ddp_x_supplier_tbl,
901 ddp_x_recipient_tbl,
902 p_module_type,
903 x_return_status,
904 x_msg_count,
905 x_msg_data);
906
907 -- copy data back from the local variables to OUT or IN-OUT args, if any
908
909
910
911
912
913 ahl_di_doc_index_pub_w.rosetta_table_copy_out_p3(ddp_x_document_tbl, p5_a0
914 , p5_a1
915 , p5_a2
916 , p5_a3
917 , p5_a4
918 , p5_a5
919 , p5_a6
920 , p5_a7
921 , p5_a8
922 , p5_a9
923 , p5_a10
924 , p5_a11
925 , p5_a12
926 , p5_a13
927 , p5_a14
928 , p5_a15
929 , p5_a16
930 , p5_a17
931 , p5_a18
932 , p5_a19
933 , p5_a20
934 , p5_a21
935 , p5_a22
936 , p5_a23
937 , p5_a24
938 , p5_a25
939 , p5_a26
940 , p5_a27
941 , p5_a28
942 , p5_a29
946 , p5_a33
943 , p5_a30
944 , p5_a31
945 , p5_a32
947 , p5_a34
948 , p5_a35
949 );
950
951 ahl_di_doc_index_pub_w.rosetta_table_copy_out_p4(ddp_x_supplier_tbl, p6_a0
952 , p6_a1
953 , p6_a2
954 , p6_a3
955 , p6_a4
956 , p6_a5
957 , p6_a6
958 , p6_a7
959 , p6_a8
960 , p6_a9
961 , p6_a10
962 , p6_a11
963 , p6_a12
964 , p6_a13
965 , p6_a14
966 , p6_a15
967 , p6_a16
968 , p6_a17
969 , p6_a18
970 , p6_a19
971 , p6_a20
972 , p6_a21
973 , p6_a22
974 , p6_a23
975 );
976
977 ahl_di_doc_index_pub_w.rosetta_table_copy_out_p5(ddp_x_recipient_tbl, p7_a0
978 , p7_a1
979 , p7_a2
980 , p7_a3
981 , p7_a4
982 , p7_a5
983 , p7_a6
984 , p7_a7
985 , p7_a8
986 , p7_a9
987 , p7_a10
988 , p7_a11
989 , p7_a12
990 , p7_a13
991 , p7_a14
992 , p7_a15
993 , p7_a16
994 , p7_a17
995 , p7_a18
996 , p7_a19
997 , p7_a20
998 , p7_a21
999 );
1000
1001
1002
1003
1004 end;
1005
1006 procedure modify_document(p_api_version NUMBER
1007 , p_init_msg_list VARCHAR2
1008 , p_commit VARCHAR2
1009 , p_validate_only VARCHAR2
1010 , p_validation_level NUMBER
1011 , p5_a0 in out nocopy JTF_NUMBER_TABLE
1012 , p5_a1 in out nocopy JTF_NUMBER_TABLE
1013 , p5_a2 in out nocopy JTF_VARCHAR2_TABLE_100
1014 , p5_a3 in out nocopy JTF_VARCHAR2_TABLE_100
1015 , p5_a4 in out nocopy JTF_VARCHAR2_TABLE_100
1016 , p5_a5 in out nocopy JTF_VARCHAR2_TABLE_100
1017 , p5_a6 in out nocopy JTF_VARCHAR2_TABLE_100
1018 , p5_a7 in out nocopy JTF_VARCHAR2_TABLE_100
1019 , p5_a8 in out nocopy JTF_VARCHAR2_TABLE_100
1020 , p5_a9 in out nocopy JTF_VARCHAR2_TABLE_100
1021 , p5_a10 in out nocopy JTF_VARCHAR2_TABLE_100
1022 , p5_a11 in out nocopy JTF_VARCHAR2_TABLE_100
1023 , p5_a12 in out nocopy JTF_VARCHAR2_TABLE_100
1024 , p5_a13 in out nocopy JTF_VARCHAR2_TABLE_100
1025 , p5_a14 in out nocopy JTF_VARCHAR2_TABLE_100
1026 , p5_a15 in out nocopy JTF_VARCHAR2_TABLE_100
1027 , p5_a16 in out nocopy JTF_VARCHAR2_TABLE_100
1028 , p5_a17 in out nocopy JTF_NUMBER_TABLE
1029 , p5_a18 in out nocopy JTF_VARCHAR2_TABLE_100
1030 , p5_a19 in out nocopy JTF_VARCHAR2_TABLE_200
1031 , p5_a20 in out nocopy JTF_VARCHAR2_TABLE_200
1032 , p5_a21 in out nocopy JTF_VARCHAR2_TABLE_200
1033 , p5_a22 in out nocopy JTF_VARCHAR2_TABLE_200
1034 , p5_a23 in out nocopy JTF_VARCHAR2_TABLE_200
1035 , p5_a24 in out nocopy JTF_VARCHAR2_TABLE_200
1036 , p5_a25 in out nocopy JTF_VARCHAR2_TABLE_200
1037 , p5_a26 in out nocopy JTF_VARCHAR2_TABLE_200
1038 , p5_a27 in out nocopy JTF_VARCHAR2_TABLE_200
1039 , p5_a28 in out nocopy JTF_VARCHAR2_TABLE_200
1040 , p5_a29 in out nocopy JTF_VARCHAR2_TABLE_200
1041 , p5_a30 in out nocopy JTF_VARCHAR2_TABLE_200
1042 , p5_a31 in out nocopy JTF_VARCHAR2_TABLE_200
1043 , p5_a32 in out nocopy JTF_VARCHAR2_TABLE_200
1044 , p5_a33 in out nocopy JTF_VARCHAR2_TABLE_200
1045 , p5_a34 in out nocopy JTF_VARCHAR2_TABLE_100
1046 , p5_a35 in out nocopy JTF_VARCHAR2_TABLE_100
1047 , p6_a0 in out nocopy JTF_NUMBER_TABLE
1048 , p6_a1 in out nocopy JTF_NUMBER_TABLE
1049 , p6_a2 in out nocopy JTF_VARCHAR2_TABLE_100
1050 , p6_a3 in out nocopy JTF_NUMBER_TABLE
1051 , p6_a4 in out nocopy JTF_VARCHAR2_TABLE_100
1052 , p6_a5 in out nocopy JTF_VARCHAR2_TABLE_100
1053 , p6_a6 in out nocopy JTF_NUMBER_TABLE
1054 , p6_a7 in out nocopy JTF_VARCHAR2_TABLE_100
1055 , p6_a8 in out nocopy JTF_VARCHAR2_TABLE_200
1056 , p6_a9 in out nocopy JTF_VARCHAR2_TABLE_200
1057 , p6_a10 in out nocopy JTF_VARCHAR2_TABLE_200
1058 , p6_a11 in out nocopy JTF_VARCHAR2_TABLE_200
1059 , p6_a12 in out nocopy JTF_VARCHAR2_TABLE_200
1060 , p6_a13 in out nocopy JTF_VARCHAR2_TABLE_200
1061 , p6_a14 in out nocopy JTF_VARCHAR2_TABLE_200
1062 , p6_a15 in out nocopy JTF_VARCHAR2_TABLE_200
1063 , p6_a16 in out nocopy JTF_VARCHAR2_TABLE_200
1064 , p6_a17 in out nocopy JTF_VARCHAR2_TABLE_200
1065 , p6_a18 in out nocopy JTF_VARCHAR2_TABLE_200
1066 , p6_a19 in out nocopy JTF_VARCHAR2_TABLE_200
1067 , p6_a20 in out nocopy JTF_VARCHAR2_TABLE_200
1068 , p6_a21 in out nocopy JTF_VARCHAR2_TABLE_200
1069 , p6_a22 in out nocopy JTF_VARCHAR2_TABLE_200
1070 , p6_a23 in out nocopy JTF_VARCHAR2_TABLE_100
1071 , p7_a0 in out nocopy JTF_NUMBER_TABLE
1072 , p7_a1 in out nocopy JTF_NUMBER_TABLE
1073 , p7_a2 in out nocopy JTF_VARCHAR2_TABLE_100
1074 , p7_a3 in out nocopy JTF_NUMBER_TABLE
1075 , p7_a4 in out nocopy JTF_NUMBER_TABLE
1076 , p7_a5 in out nocopy JTF_VARCHAR2_TABLE_100
1077 , p7_a6 in out nocopy JTF_VARCHAR2_TABLE_200
1078 , p7_a7 in out nocopy JTF_VARCHAR2_TABLE_200
1079 , p7_a8 in out nocopy JTF_VARCHAR2_TABLE_200
1080 , p7_a9 in out nocopy JTF_VARCHAR2_TABLE_200
1081 , p7_a10 in out nocopy JTF_VARCHAR2_TABLE_200
1082 , p7_a11 in out nocopy JTF_VARCHAR2_TABLE_200
1086 , p7_a15 in out nocopy JTF_VARCHAR2_TABLE_200
1083 , p7_a12 in out nocopy JTF_VARCHAR2_TABLE_200
1084 , p7_a13 in out nocopy JTF_VARCHAR2_TABLE_200
1085 , p7_a14 in out nocopy JTF_VARCHAR2_TABLE_200
1087 , p7_a16 in out nocopy JTF_VARCHAR2_TABLE_200
1088 , p7_a17 in out nocopy JTF_VARCHAR2_TABLE_200
1089 , p7_a18 in out nocopy JTF_VARCHAR2_TABLE_200
1090 , p7_a19 in out nocopy JTF_VARCHAR2_TABLE_200
1091 , p7_a20 in out nocopy JTF_VARCHAR2_TABLE_200
1092 , p7_a21 in out nocopy JTF_VARCHAR2_TABLE_100
1093 , p_module_type VARCHAR2
1094 , x_return_status out nocopy VARCHAR2
1095 , x_msg_count out nocopy NUMBER
1096 , x_msg_data out nocopy VARCHAR2
1097 )
1098
1099 as
1100 ddp_x_document_tbl ahl_di_doc_index_pub.document_tbl;
1101 ddp_x_supplier_tbl ahl_di_doc_index_pub.supplier_tbl;
1102 ddp_x_recipient_tbl ahl_di_doc_index_pub.recipient_tbl;
1103 ddindx binary_integer; indx binary_integer;
1104 begin
1105
1106 -- copy data to the local IN or IN-OUT args, if any
1107
1108
1109
1110
1111
1112 ahl_di_doc_index_pub_w.rosetta_table_copy_in_p3(ddp_x_document_tbl, p5_a0
1113 , p5_a1
1114 , p5_a2
1115 , p5_a3
1116 , p5_a4
1117 , p5_a5
1118 , p5_a6
1119 , p5_a7
1120 , p5_a8
1121 , p5_a9
1122 , p5_a10
1123 , p5_a11
1124 , p5_a12
1125 , p5_a13
1126 , p5_a14
1127 , p5_a15
1128 , p5_a16
1129 , p5_a17
1130 , p5_a18
1131 , p5_a19
1132 , p5_a20
1133 , p5_a21
1134 , p5_a22
1135 , p5_a23
1136 , p5_a24
1137 , p5_a25
1138 , p5_a26
1139 , p5_a27
1140 , p5_a28
1141 , p5_a29
1142 , p5_a30
1143 , p5_a31
1144 , p5_a32
1145 , p5_a33
1146 , p5_a34
1147 , p5_a35
1148 );
1149
1150 ahl_di_doc_index_pub_w.rosetta_table_copy_in_p4(ddp_x_supplier_tbl, p6_a0
1151 , p6_a1
1152 , p6_a2
1153 , p6_a3
1154 , p6_a4
1155 , p6_a5
1156 , p6_a6
1157 , p6_a7
1158 , p6_a8
1159 , p6_a9
1160 , p6_a10
1161 , p6_a11
1162 , p6_a12
1163 , p6_a13
1164 , p6_a14
1165 , p6_a15
1166 , p6_a16
1167 , p6_a17
1168 , p6_a18
1169 , p6_a19
1170 , p6_a20
1171 , p6_a21
1172 , p6_a22
1173 , p6_a23
1174 );
1175
1176 ahl_di_doc_index_pub_w.rosetta_table_copy_in_p5(ddp_x_recipient_tbl, p7_a0
1177 , p7_a1
1178 , p7_a2
1179 , p7_a3
1180 , p7_a4
1181 , p7_a5
1182 , p7_a6
1183 , p7_a7
1184 , p7_a8
1185 , p7_a9
1186 , p7_a10
1187 , p7_a11
1188 , p7_a12
1189 , p7_a13
1190 , p7_a14
1191 , p7_a15
1192 , p7_a16
1193 , p7_a17
1194 , p7_a18
1195 , p7_a19
1196 , p7_a20
1197 , p7_a21
1198 );
1199
1200
1201
1202
1203
1204 -- here's the delegated call to the old PL/SQL routine
1205 ahl_di_doc_index_pub.modify_document(p_api_version,
1206 p_init_msg_list,
1207 p_commit,
1208 p_validate_only,
1209 p_validation_level,
1210 ddp_x_document_tbl,
1211 ddp_x_supplier_tbl,
1212 ddp_x_recipient_tbl,
1213 p_module_type,
1214 x_return_status,
1215 x_msg_count,
1216 x_msg_data);
1217
1218 -- copy data back from the local variables to OUT or IN-OUT args, if any
1219
1220
1221
1222
1223
1224 ahl_di_doc_index_pub_w.rosetta_table_copy_out_p3(ddp_x_document_tbl, p5_a0
1225 , p5_a1
1226 , p5_a2
1227 , p5_a3
1228 , p5_a4
1229 , p5_a5
1230 , p5_a6
1231 , p5_a7
1232 , p5_a8
1233 , p5_a9
1234 , p5_a10
1235 , p5_a11
1236 , p5_a12
1237 , p5_a13
1238 , p5_a14
1239 , p5_a15
1240 , p5_a16
1241 , p5_a17
1242 , p5_a18
1243 , p5_a19
1244 , p5_a20
1245 , p5_a21
1246 , p5_a22
1247 , p5_a23
1248 , p5_a24
1249 , p5_a25
1250 , p5_a26
1251 , p5_a27
1252 , p5_a28
1253 , p5_a29
1254 , p5_a30
1255 , p5_a31
1256 , p5_a32
1257 , p5_a33
1258 , p5_a34
1259 , p5_a35
1260 );
1261
1262 ahl_di_doc_index_pub_w.rosetta_table_copy_out_p4(ddp_x_supplier_tbl, p6_a0
1263 , p6_a1
1264 , p6_a2
1265 , p6_a3
1266 , p6_a4
1267 , p6_a5
1268 , p6_a6
1269 , p6_a7
1270 , p6_a8
1271 , p6_a9
1272 , p6_a10
1273 , p6_a11
1274 , p6_a12
1275 , p6_a13
1279 , p6_a17
1276 , p6_a14
1277 , p6_a15
1278 , p6_a16
1280 , p6_a18
1281 , p6_a19
1282 , p6_a20
1283 , p6_a21
1284 , p6_a22
1285 , p6_a23
1286 );
1287
1288 ahl_di_doc_index_pub_w.rosetta_table_copy_out_p5(ddp_x_recipient_tbl, p7_a0
1289 , p7_a1
1290 , p7_a2
1291 , p7_a3
1292 , p7_a4
1293 , p7_a5
1294 , p7_a6
1295 , p7_a7
1296 , p7_a8
1297 , p7_a9
1298 , p7_a10
1299 , p7_a11
1300 , p7_a12
1301 , p7_a13
1302 , p7_a14
1303 , p7_a15
1304 , p7_a16
1305 , p7_a17
1306 , p7_a18
1310 );
1307 , p7_a19
1308 , p7_a20
1309 , p7_a21
1311
1312
1313
1314
1315 end;
1316
1317 end ahl_di_doc_index_pub_w;