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