[Home] [Help]
PACKAGE BODY: APPS.AHL_DI_ASSO_DOC_ASO_PUB_W
Source
1 package body ahl_di_asso_doc_aso_pub_w as
2 /* $Header: AHLASOWB.pls 115.9 2002/12/03 12:33:01 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_p1(t out nocopy ahl_di_asso_doc_aso_pub.association_tbl, a0 JTF_NUMBER_TABLE
14 , a1 JTF_NUMBER_TABLE
15 , a2 JTF_VARCHAR2_TABLE_100
16 , a3 JTF_NUMBER_TABLE
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_NUMBER_TABLE
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_300
27 , a14 JTF_VARCHAR2_TABLE_100
28 , a15 JTF_VARCHAR2_TABLE_100
29 , a16 JTF_VARCHAR2_TABLE_2000
30 , a17 JTF_VARCHAR2_TABLE_100
31 , a18 JTF_VARCHAR2_TABLE_100
32 , a19 JTF_NUMBER_TABLE
33 , a20 JTF_VARCHAR2_TABLE_100
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_200
48 , a35 JTF_VARCHAR2_TABLE_200
49 , a36 JTF_VARCHAR2_TABLE_100
50 ) as
51 ddindx binary_integer; indx binary_integer;
52 begin
53 if a0 is not null and a0.count > 0 then
54 if a0.count > 0 then
55 indx := a0.first;
56 ddindx := 1;
57 while true loop
58 t(ddindx).doc_title_asso_id := a0(indx);
59 t(ddindx).document_id := a1(indx);
60 t(ddindx).document_no := a2(indx);
61 t(ddindx).doc_revision_id := a3(indx);
62 t(ddindx).revision_no := a4(indx);
63 t(ddindx).use_latest_rev_flag := a5(indx);
64 t(ddindx).aso_object_type_code := a6(indx);
65 t(ddindx).aso_object_desc := a7(indx);
66 t(ddindx).aso_object_id := a8(indx);
67 t(ddindx).serial_no := a9(indx);
68 t(ddindx).source_lang := a10(indx);
69 t(ddindx).chapter := a11(indx);
70 t(ddindx).section := a12(indx);
71 t(ddindx).subject := a13(indx);
72 t(ddindx).page := a14(indx);
73 t(ddindx).figure := a15(indx);
74 t(ddindx).note := a16(indx);
75 t(ddindx).source_ref_code := a17(indx);
76 t(ddindx).source_ref_mean := a18(indx);
77 t(ddindx).object_version_number := a19(indx);
78 t(ddindx).attribute_category := a20(indx);
79 t(ddindx).attribute1 := a21(indx);
80 t(ddindx).attribute2 := a22(indx);
81 t(ddindx).attribute3 := a23(indx);
82 t(ddindx).attribute4 := a24(indx);
83 t(ddindx).attribute5 := a25(indx);
84 t(ddindx).attribute6 := a26(indx);
85 t(ddindx).attribute7 := a27(indx);
86 t(ddindx).attribute8 := a28(indx);
87 t(ddindx).attribute9 := a29(indx);
88 t(ddindx).attribute10 := a30(indx);
89 t(ddindx).attribute11 := a31(indx);
90 t(ddindx).attribute12 := a32(indx);
91 t(ddindx).attribute13 := a33(indx);
92 t(ddindx).attribute14 := a34(indx);
93 t(ddindx).attribute15 := a35(indx);
94 t(ddindx).delete_flag := a36(indx);
95 ddindx := ddindx+1;
96 if a0.last =indx
97 then exit;
98 end if;
99 indx := a0.next(indx);
100 end loop;
101 end if;
102 end if;
103 end rosetta_table_copy_in_p1;
104 procedure rosetta_table_copy_out_p1(t ahl_di_asso_doc_aso_pub.association_tbl, a0 out nocopy JTF_NUMBER_TABLE
105 , a1 out nocopy JTF_NUMBER_TABLE
106 , a2 out nocopy JTF_VARCHAR2_TABLE_100
107 , a3 out nocopy JTF_NUMBER_TABLE
108 , a4 out nocopy JTF_VARCHAR2_TABLE_100
109 , a5 out nocopy JTF_VARCHAR2_TABLE_100
110 , a6 out nocopy JTF_VARCHAR2_TABLE_100
111 , a7 out nocopy JTF_VARCHAR2_TABLE_100
112 , a8 out nocopy JTF_NUMBER_TABLE
113 , a9 out nocopy JTF_VARCHAR2_TABLE_100
114 , a10 out nocopy JTF_VARCHAR2_TABLE_100
115 , a11 out nocopy JTF_VARCHAR2_TABLE_100
116 , a12 out nocopy JTF_VARCHAR2_TABLE_100
117 , a13 out nocopy JTF_VARCHAR2_TABLE_300
118 , a14 out nocopy JTF_VARCHAR2_TABLE_100
119 , a15 out nocopy JTF_VARCHAR2_TABLE_100
120 , a16 out nocopy JTF_VARCHAR2_TABLE_2000
121 , a17 out nocopy JTF_VARCHAR2_TABLE_100
122 , a18 out nocopy JTF_VARCHAR2_TABLE_100
123 , a19 out nocopy JTF_NUMBER_TABLE
124 , a20 out nocopy JTF_VARCHAR2_TABLE_100
125 , a21 out nocopy JTF_VARCHAR2_TABLE_200
126 , a22 out nocopy JTF_VARCHAR2_TABLE_200
127 , a23 out nocopy JTF_VARCHAR2_TABLE_200
128 , a24 out nocopy JTF_VARCHAR2_TABLE_200
129 , a25 out nocopy JTF_VARCHAR2_TABLE_200
130 , a26 out nocopy JTF_VARCHAR2_TABLE_200
131 , a27 out nocopy JTF_VARCHAR2_TABLE_200
132 , a28 out nocopy JTF_VARCHAR2_TABLE_200
133 , a29 out nocopy JTF_VARCHAR2_TABLE_200
134 , a30 out nocopy JTF_VARCHAR2_TABLE_200
135 , a31 out nocopy JTF_VARCHAR2_TABLE_200
136 , a32 out nocopy JTF_VARCHAR2_TABLE_200
137 , a33 out nocopy JTF_VARCHAR2_TABLE_200
138 , a34 out nocopy JTF_VARCHAR2_TABLE_200
139 , a35 out nocopy JTF_VARCHAR2_TABLE_200
140 , a36 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_NUMBER_TABLE();
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_NUMBER_TABLE();
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_300();
159 a14 := JTF_VARCHAR2_TABLE_100();
160 a15 := JTF_VARCHAR2_TABLE_100();
161 a16 := JTF_VARCHAR2_TABLE_2000();
162 a17 := JTF_VARCHAR2_TABLE_100();
163 a18 := JTF_VARCHAR2_TABLE_100();
164 a19 := JTF_NUMBER_TABLE();
165 a20 := JTF_VARCHAR2_TABLE_100();
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_200();
180 a35 := JTF_VARCHAR2_TABLE_200();
181 a36 := JTF_VARCHAR2_TABLE_100();
182 else
183 a0 := JTF_NUMBER_TABLE();
184 a1 := JTF_NUMBER_TABLE();
185 a2 := JTF_VARCHAR2_TABLE_100();
186 a3 := JTF_NUMBER_TABLE();
187 a4 := JTF_VARCHAR2_TABLE_100();
188 a5 := JTF_VARCHAR2_TABLE_100();
189 a6 := JTF_VARCHAR2_TABLE_100();
190 a7 := JTF_VARCHAR2_TABLE_100();
191 a8 := JTF_NUMBER_TABLE();
192 a9 := JTF_VARCHAR2_TABLE_100();
193 a10 := JTF_VARCHAR2_TABLE_100();
194 a11 := JTF_VARCHAR2_TABLE_100();
195 a12 := JTF_VARCHAR2_TABLE_100();
196 a13 := JTF_VARCHAR2_TABLE_300();
197 a14 := JTF_VARCHAR2_TABLE_100();
198 a15 := JTF_VARCHAR2_TABLE_100();
199 a16 := JTF_VARCHAR2_TABLE_2000();
200 a17 := JTF_VARCHAR2_TABLE_100();
201 a18 := JTF_VARCHAR2_TABLE_100();
202 a19 := JTF_NUMBER_TABLE();
203 a20 := JTF_VARCHAR2_TABLE_100();
204 a21 := JTF_VARCHAR2_TABLE_200();
205 a22 := JTF_VARCHAR2_TABLE_200();
206 a23 := JTF_VARCHAR2_TABLE_200();
207 a24 := JTF_VARCHAR2_TABLE_200();
208 a25 := JTF_VARCHAR2_TABLE_200();
209 a26 := JTF_VARCHAR2_TABLE_200();
210 a27 := JTF_VARCHAR2_TABLE_200();
211 a28 := JTF_VARCHAR2_TABLE_200();
212 a29 := JTF_VARCHAR2_TABLE_200();
213 a30 := JTF_VARCHAR2_TABLE_200();
214 a31 := JTF_VARCHAR2_TABLE_200();
215 a32 := JTF_VARCHAR2_TABLE_200();
216 a33 := JTF_VARCHAR2_TABLE_200();
217 a34 := JTF_VARCHAR2_TABLE_200();
218 a35 := JTF_VARCHAR2_TABLE_200();
219 a36 := JTF_VARCHAR2_TABLE_100();
220 if t.count > 0 then
221 a0.extend(t.count);
222 a1.extend(t.count);
223 a2.extend(t.count);
224 a3.extend(t.count);
225 a4.extend(t.count);
226 a5.extend(t.count);
227 a6.extend(t.count);
228 a7.extend(t.count);
229 a8.extend(t.count);
230 a9.extend(t.count);
231 a10.extend(t.count);
232 a11.extend(t.count);
233 a12.extend(t.count);
234 a13.extend(t.count);
235 a14.extend(t.count);
236 a15.extend(t.count);
237 a16.extend(t.count);
238 a17.extend(t.count);
239 a18.extend(t.count);
240 a19.extend(t.count);
241 a20.extend(t.count);
242 a21.extend(t.count);
243 a22.extend(t.count);
244 a23.extend(t.count);
245 a24.extend(t.count);
246 a25.extend(t.count);
247 a26.extend(t.count);
248 a27.extend(t.count);
249 a28.extend(t.count);
250 a29.extend(t.count);
251 a30.extend(t.count);
252 a31.extend(t.count);
253 a32.extend(t.count);
254 a33.extend(t.count);
255 a34.extend(t.count);
256 a35.extend(t.count);
257 a36.extend(t.count);
258 ddindx := t.first;
259 indx := 1;
260 while true loop
261 a0(indx) := t(ddindx).doc_title_asso_id;
262 a1(indx) := t(ddindx).document_id;
263 a2(indx) := t(ddindx).document_no;
264 a3(indx) := t(ddindx).doc_revision_id;
265 a4(indx) := t(ddindx).revision_no;
266 a5(indx) := t(ddindx).use_latest_rev_flag;
267 a6(indx) := t(ddindx).aso_object_type_code;
268 a7(indx) := t(ddindx).aso_object_desc;
269 a8(indx) := t(ddindx).aso_object_id;
270 a9(indx) := t(ddindx).serial_no;
271 a10(indx) := t(ddindx).source_lang;
272 a11(indx) := t(ddindx).chapter;
273 a12(indx) := t(ddindx).section;
274 a13(indx) := t(ddindx).subject;
275 a14(indx) := t(ddindx).page;
276 a15(indx) := t(ddindx).figure;
277 a16(indx) := t(ddindx).note;
278 a17(indx) := t(ddindx).source_ref_code;
279 a18(indx) := t(ddindx).source_ref_mean;
280 a19(indx) := t(ddindx).object_version_number;
281 a20(indx) := t(ddindx).attribute_category;
282 a21(indx) := t(ddindx).attribute1;
283 a22(indx) := t(ddindx).attribute2;
284 a23(indx) := t(ddindx).attribute3;
285 a24(indx) := t(ddindx).attribute4;
286 a25(indx) := t(ddindx).attribute5;
287 a26(indx) := t(ddindx).attribute6;
288 a27(indx) := t(ddindx).attribute7;
289 a28(indx) := t(ddindx).attribute8;
290 a29(indx) := t(ddindx).attribute9;
291 a30(indx) := t(ddindx).attribute10;
292 a31(indx) := t(ddindx).attribute11;
293 a32(indx) := t(ddindx).attribute12;
294 a33(indx) := t(ddindx).attribute13;
295 a34(indx) := t(ddindx).attribute14;
296 a35(indx) := t(ddindx).attribute15;
297 a36(indx) := t(ddindx).delete_flag;
298 indx := indx+1;
299 if t.last =ddindx
300 then exit;
301 end if;
302 ddindx := t.next(ddindx);
303 end loop;
304 end if;
305 end if;
306 end rosetta_table_copy_out_p1;
307
308 procedure create_association(p_api_version NUMBER
309 , p_init_msg_list VARCHAR2
310 , p_commit VARCHAR2
311 , p_validate_only VARCHAR2
312 , p_validation_level NUMBER
313 , p5_a0 in out nocopy JTF_NUMBER_TABLE
314 , p5_a1 in out nocopy JTF_NUMBER_TABLE
315 , p5_a2 in out nocopy JTF_VARCHAR2_TABLE_100
316 , p5_a3 in out nocopy JTF_NUMBER_TABLE
317 , p5_a4 in out nocopy JTF_VARCHAR2_TABLE_100
318 , p5_a5 in out nocopy JTF_VARCHAR2_TABLE_100
319 , p5_a6 in out nocopy JTF_VARCHAR2_TABLE_100
320 , p5_a7 in out nocopy JTF_VARCHAR2_TABLE_100
321 , p5_a8 in out nocopy JTF_NUMBER_TABLE
322 , p5_a9 in out nocopy JTF_VARCHAR2_TABLE_100
323 , p5_a10 in out nocopy JTF_VARCHAR2_TABLE_100
324 , p5_a11 in out nocopy JTF_VARCHAR2_TABLE_100
325 , p5_a12 in out nocopy JTF_VARCHAR2_TABLE_100
326 , p5_a13 in out nocopy JTF_VARCHAR2_TABLE_300
327 , p5_a14 in out nocopy JTF_VARCHAR2_TABLE_100
328 , p5_a15 in out nocopy JTF_VARCHAR2_TABLE_100
329 , p5_a16 in out nocopy JTF_VARCHAR2_TABLE_2000
330 , p5_a17 in out nocopy JTF_VARCHAR2_TABLE_100
331 , p5_a18 in out nocopy JTF_VARCHAR2_TABLE_100
332 , p5_a19 in out nocopy JTF_NUMBER_TABLE
333 , p5_a20 in out nocopy JTF_VARCHAR2_TABLE_100
334 , p5_a21 in out nocopy JTF_VARCHAR2_TABLE_200
335 , p5_a22 in out nocopy JTF_VARCHAR2_TABLE_200
336 , p5_a23 in out nocopy JTF_VARCHAR2_TABLE_200
337 , p5_a24 in out nocopy JTF_VARCHAR2_TABLE_200
338 , p5_a25 in out nocopy JTF_VARCHAR2_TABLE_200
339 , p5_a26 in out nocopy JTF_VARCHAR2_TABLE_200
340 , p5_a27 in out nocopy JTF_VARCHAR2_TABLE_200
341 , p5_a28 in out nocopy JTF_VARCHAR2_TABLE_200
342 , p5_a29 in out nocopy JTF_VARCHAR2_TABLE_200
343 , p5_a30 in out nocopy JTF_VARCHAR2_TABLE_200
344 , p5_a31 in out nocopy JTF_VARCHAR2_TABLE_200
345 , p5_a32 in out nocopy JTF_VARCHAR2_TABLE_200
346 , p5_a33 in out nocopy JTF_VARCHAR2_TABLE_200
347 , p5_a34 in out nocopy JTF_VARCHAR2_TABLE_200
348 , p5_a35 in out nocopy JTF_VARCHAR2_TABLE_200
349 , p5_a36 in out nocopy JTF_VARCHAR2_TABLE_100
350 , p_module_type VARCHAR2
351 , x_return_status out nocopy VARCHAR2
352 , x_msg_count out nocopy NUMBER
353 , x_msg_data out nocopy VARCHAR2
354 )
355
356 as
357 ddp_x_association_tbl ahl_di_asso_doc_aso_pub.association_tbl;
358 ddindx binary_integer; indx binary_integer;
359 begin
360
361 -- copy data to the local IN or IN-OUT args, if any
362
363
364
365
366
367 ahl_di_asso_doc_aso_pub_w.rosetta_table_copy_in_p1(ddp_x_association_tbl, p5_a0
368 , p5_a1
369 , p5_a2
370 , p5_a3
371 , p5_a4
372 , p5_a5
373 , p5_a6
374 , p5_a7
375 , p5_a8
376 , p5_a9
377 , p5_a10
378 , p5_a11
379 , p5_a12
380 , p5_a13
381 , p5_a14
382 , p5_a15
383 , p5_a16
384 , p5_a17
385 , p5_a18
386 , p5_a19
387 , p5_a20
388 , p5_a21
389 , p5_a22
390 , p5_a23
391 , p5_a24
392 , p5_a25
393 , p5_a26
394 , p5_a27
395 , p5_a28
396 , p5_a29
397 , p5_a30
398 , p5_a31
399 , p5_a32
400 , p5_a33
401 , p5_a34
402 , p5_a35
403 , p5_a36
404 );
405
406
407
408
409
410 -- here's the delegated call to the old PL/SQL routine
411 ahl_di_asso_doc_aso_pub.create_association(p_api_version,
412 p_init_msg_list,
413 p_commit,
414 p_validate_only,
415 p_validation_level,
416 ddp_x_association_tbl,
417 p_module_type,
418 x_return_status,
419 x_msg_count,
420 x_msg_data);
421
422 -- copy data back from the local variables to OUT or IN-OUT args, if any
423
424
425
426
427
428 ahl_di_asso_doc_aso_pub_w.rosetta_table_copy_out_p1(ddp_x_association_tbl, p5_a0
429 , p5_a1
430 , p5_a2
431 , p5_a3
432 , p5_a4
433 , p5_a5
434 , p5_a6
435 , p5_a7
436 , p5_a8
437 , p5_a9
438 , p5_a10
439 , p5_a11
440 , p5_a12
441 , p5_a13
442 , p5_a14
443 , p5_a15
444 , p5_a16
445 , p5_a17
446 , p5_a18
447 , p5_a19
448 , p5_a20
449 , p5_a21
450 , p5_a22
451 , p5_a23
452 , p5_a24
453 , p5_a25
454 , p5_a26
455 , p5_a27
456 , p5_a28
457 , p5_a29
458 , p5_a30
459 , p5_a31
460 , p5_a32
461 , p5_a33
462 , p5_a34
463 , p5_a35
464 , p5_a36
465 );
466
467
468
469
470 end;
471
472 procedure modify_association(p_api_version NUMBER
473 , p_init_msg_list VARCHAR2
474 , p_commit VARCHAR2
475 , p_validate_only VARCHAR2
476 , p_validation_level NUMBER
477 , p5_a0 in out nocopy JTF_NUMBER_TABLE
478 , p5_a1 in out nocopy JTF_NUMBER_TABLE
479 , p5_a2 in out nocopy JTF_VARCHAR2_TABLE_100
480 , p5_a3 in out nocopy JTF_NUMBER_TABLE
481 , p5_a4 in out nocopy JTF_VARCHAR2_TABLE_100
482 , p5_a5 in out nocopy JTF_VARCHAR2_TABLE_100
483 , p5_a6 in out nocopy JTF_VARCHAR2_TABLE_100
484 , p5_a7 in out nocopy JTF_VARCHAR2_TABLE_100
485 , p5_a8 in out nocopy JTF_NUMBER_TABLE
486 , p5_a9 in out nocopy JTF_VARCHAR2_TABLE_100
487 , p5_a10 in out nocopy JTF_VARCHAR2_TABLE_100
488 , p5_a11 in out nocopy JTF_VARCHAR2_TABLE_100
489 , p5_a12 in out nocopy JTF_VARCHAR2_TABLE_100
490 , p5_a13 in out nocopy JTF_VARCHAR2_TABLE_300
491 , p5_a14 in out nocopy JTF_VARCHAR2_TABLE_100
492 , p5_a15 in out nocopy JTF_VARCHAR2_TABLE_100
493 , p5_a16 in out nocopy JTF_VARCHAR2_TABLE_2000
494 , p5_a17 in out nocopy JTF_VARCHAR2_TABLE_100
495 , p5_a18 in out nocopy JTF_VARCHAR2_TABLE_100
496 , p5_a19 in out nocopy JTF_NUMBER_TABLE
497 , p5_a20 in out nocopy JTF_VARCHAR2_TABLE_100
498 , p5_a21 in out nocopy JTF_VARCHAR2_TABLE_200
499 , p5_a22 in out nocopy JTF_VARCHAR2_TABLE_200
500 , p5_a23 in out nocopy JTF_VARCHAR2_TABLE_200
501 , p5_a24 in out nocopy JTF_VARCHAR2_TABLE_200
502 , p5_a25 in out nocopy JTF_VARCHAR2_TABLE_200
503 , p5_a26 in out nocopy JTF_VARCHAR2_TABLE_200
504 , p5_a27 in out nocopy JTF_VARCHAR2_TABLE_200
505 , p5_a28 in out nocopy JTF_VARCHAR2_TABLE_200
506 , p5_a29 in out nocopy JTF_VARCHAR2_TABLE_200
507 , p5_a30 in out nocopy JTF_VARCHAR2_TABLE_200
508 , p5_a31 in out nocopy JTF_VARCHAR2_TABLE_200
509 , p5_a32 in out nocopy JTF_VARCHAR2_TABLE_200
510 , p5_a33 in out nocopy JTF_VARCHAR2_TABLE_200
511 , p5_a34 in out nocopy JTF_VARCHAR2_TABLE_200
512 , p5_a35 in out nocopy JTF_VARCHAR2_TABLE_200
513 , p5_a36 in out nocopy JTF_VARCHAR2_TABLE_100
514 , p_module_type VARCHAR2
515 , x_return_status out nocopy VARCHAR2
516 , x_msg_count out nocopy NUMBER
517 , x_msg_data out nocopy VARCHAR2
518 )
519
520 as
521 ddp_x_association_tbl ahl_di_asso_doc_aso_pub.association_tbl;
522 ddindx binary_integer; indx binary_integer;
523 begin
524
525 -- copy data to the local IN or IN-OUT args, if any
526
527
528
529
530
531 ahl_di_asso_doc_aso_pub_w.rosetta_table_copy_in_p1(ddp_x_association_tbl, p5_a0
532 , p5_a1
533 , p5_a2
534 , p5_a3
535 , p5_a4
536 , p5_a5
537 , p5_a6
538 , p5_a7
539 , p5_a8
540 , p5_a9
541 , p5_a10
542 , p5_a11
543 , p5_a12
544 , p5_a13
545 , p5_a14
546 , p5_a15
547 , p5_a16
548 , p5_a17
549 , p5_a18
550 , p5_a19
551 , p5_a20
552 , p5_a21
553 , p5_a22
554 , p5_a23
555 , p5_a24
556 , p5_a25
557 , p5_a26
558 , p5_a27
559 , p5_a28
560 , p5_a29
561 , p5_a30
562 , p5_a31
563 , p5_a32
564 , p5_a33
565 , p5_a34
566 , p5_a35
567 , p5_a36
568 );
569
570
571
572
573
574 -- here's the delegated call to the old PL/SQL routine
575 ahl_di_asso_doc_aso_pub.modify_association(p_api_version,
576 p_init_msg_list,
577 p_commit,
578 p_validate_only,
579 p_validation_level,
580 ddp_x_association_tbl,
581 p_module_type,
582 x_return_status,
583 x_msg_count,
584 x_msg_data);
585
586 -- copy data back from the local variables to OUT or IN-OUT args, if any
587
588
589
590
591
592 ahl_di_asso_doc_aso_pub_w.rosetta_table_copy_out_p1(ddp_x_association_tbl, p5_a0
593 , p5_a1
594 , p5_a2
595 , p5_a3
596 , p5_a4
597 , p5_a5
598 , p5_a6
599 , p5_a7
600 , p5_a8
601 , p5_a9
602 , p5_a10
603 , p5_a11
604 , p5_a12
605 , p5_a13
606 , p5_a14
607 , p5_a15
608 , p5_a16
609 , p5_a17
610 , p5_a18
611 , p5_a19
612 , p5_a20
613 , p5_a21
614 , p5_a22
615 , p5_a23
616 , p5_a24
617 , p5_a25
618 , p5_a26
619 , p5_a27
620 , p5_a28
621 , p5_a29
622 , p5_a30
623 , p5_a31
624 , p5_a32
625 , p5_a33
626 , p5_a34
627 , p5_a35
628 , p5_a36
629 );
630
631
632
633
634 end;
635
636 procedure process_association(p_api_version NUMBER
637 , p_init_msg_list VARCHAR2
638 , p_commit VARCHAR2
639 , p_validate_only VARCHAR2
640 , p_validation_level NUMBER
641 , p5_a0 in out nocopy JTF_NUMBER_TABLE
642 , p5_a1 in out nocopy JTF_NUMBER_TABLE
643 , p5_a2 in out nocopy JTF_VARCHAR2_TABLE_100
644 , p5_a3 in out nocopy JTF_NUMBER_TABLE
645 , p5_a4 in out nocopy JTF_VARCHAR2_TABLE_100
646 , p5_a5 in out nocopy JTF_VARCHAR2_TABLE_100
647 , p5_a6 in out nocopy JTF_VARCHAR2_TABLE_100
648 , p5_a7 in out nocopy JTF_VARCHAR2_TABLE_100
649 , p5_a8 in out nocopy JTF_NUMBER_TABLE
650 , p5_a9 in out nocopy JTF_VARCHAR2_TABLE_100
651 , p5_a10 in out nocopy JTF_VARCHAR2_TABLE_100
652 , p5_a11 in out nocopy JTF_VARCHAR2_TABLE_100
653 , p5_a12 in out nocopy JTF_VARCHAR2_TABLE_100
654 , p5_a13 in out nocopy JTF_VARCHAR2_TABLE_300
655 , p5_a14 in out nocopy JTF_VARCHAR2_TABLE_100
656 , p5_a15 in out nocopy JTF_VARCHAR2_TABLE_100
657 , p5_a16 in out nocopy JTF_VARCHAR2_TABLE_2000
658 , p5_a17 in out nocopy JTF_VARCHAR2_TABLE_100
659 , p5_a18 in out nocopy JTF_VARCHAR2_TABLE_100
660 , p5_a19 in out nocopy JTF_NUMBER_TABLE
661 , p5_a20 in out nocopy JTF_VARCHAR2_TABLE_100
662 , p5_a21 in out nocopy JTF_VARCHAR2_TABLE_200
663 , p5_a22 in out nocopy JTF_VARCHAR2_TABLE_200
664 , p5_a23 in out nocopy JTF_VARCHAR2_TABLE_200
665 , p5_a24 in out nocopy JTF_VARCHAR2_TABLE_200
666 , p5_a25 in out nocopy JTF_VARCHAR2_TABLE_200
667 , p5_a26 in out nocopy JTF_VARCHAR2_TABLE_200
668 , p5_a27 in out nocopy JTF_VARCHAR2_TABLE_200
669 , p5_a28 in out nocopy JTF_VARCHAR2_TABLE_200
670 , p5_a29 in out nocopy JTF_VARCHAR2_TABLE_200
671 , p5_a30 in out nocopy JTF_VARCHAR2_TABLE_200
672 , p5_a31 in out nocopy JTF_VARCHAR2_TABLE_200
673 , p5_a32 in out nocopy JTF_VARCHAR2_TABLE_200
674 , p5_a33 in out nocopy JTF_VARCHAR2_TABLE_200
675 , p5_a34 in out nocopy JTF_VARCHAR2_TABLE_200
676 , p5_a35 in out nocopy JTF_VARCHAR2_TABLE_200
677 , p5_a36 in out nocopy JTF_VARCHAR2_TABLE_100
678 , p6_a0 in out nocopy JTF_NUMBER_TABLE
679 , p6_a1 in out nocopy JTF_NUMBER_TABLE
680 , p6_a2 in out nocopy JTF_VARCHAR2_TABLE_100
681 , p6_a3 in out nocopy JTF_NUMBER_TABLE
682 , p6_a4 in out nocopy JTF_VARCHAR2_TABLE_100
683 , p6_a5 in out nocopy JTF_VARCHAR2_TABLE_100
684 , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_100
685 , p6_a7 in out nocopy JTF_VARCHAR2_TABLE_100
686 , p6_a8 in out nocopy JTF_NUMBER_TABLE
687 , p6_a9 in out nocopy JTF_VARCHAR2_TABLE_100
688 , p6_a10 in out nocopy JTF_VARCHAR2_TABLE_100
689 , p6_a11 in out nocopy JTF_VARCHAR2_TABLE_100
690 , p6_a12 in out nocopy JTF_VARCHAR2_TABLE_100
691 , p6_a13 in out nocopy JTF_VARCHAR2_TABLE_300
692 , p6_a14 in out nocopy JTF_VARCHAR2_TABLE_100
693 , p6_a15 in out nocopy JTF_VARCHAR2_TABLE_100
694 , p6_a16 in out nocopy JTF_VARCHAR2_TABLE_2000
695 , p6_a17 in out nocopy JTF_VARCHAR2_TABLE_100
696 , p6_a18 in out nocopy JTF_VARCHAR2_TABLE_100
697 , p6_a19 in out nocopy JTF_NUMBER_TABLE
698 , p6_a20 in out nocopy JTF_VARCHAR2_TABLE_100
699 , p6_a21 in out nocopy JTF_VARCHAR2_TABLE_200
700 , p6_a22 in out nocopy JTF_VARCHAR2_TABLE_200
701 , p6_a23 in out nocopy JTF_VARCHAR2_TABLE_200
702 , p6_a24 in out nocopy JTF_VARCHAR2_TABLE_200
703 , p6_a25 in out nocopy JTF_VARCHAR2_TABLE_200
704 , p6_a26 in out nocopy JTF_VARCHAR2_TABLE_200
705 , p6_a27 in out nocopy JTF_VARCHAR2_TABLE_200
706 , p6_a28 in out nocopy JTF_VARCHAR2_TABLE_200
707 , p6_a29 in out nocopy JTF_VARCHAR2_TABLE_200
708 , p6_a30 in out nocopy JTF_VARCHAR2_TABLE_200
709 , p6_a31 in out nocopy JTF_VARCHAR2_TABLE_200
710 , p6_a32 in out nocopy JTF_VARCHAR2_TABLE_200
711 , p6_a33 in out nocopy JTF_VARCHAR2_TABLE_200
712 , p6_a34 in out nocopy JTF_VARCHAR2_TABLE_200
713 , p6_a35 in out nocopy JTF_VARCHAR2_TABLE_200
714 , p6_a36 in out nocopy JTF_VARCHAR2_TABLE_100
715 , p_module_type VARCHAR2
716 , x_return_status out nocopy VARCHAR2
717 , x_msg_count out nocopy NUMBER
718 , x_msg_data out nocopy VARCHAR2
719 )
720
721 as
722 ddp_x_association_tblm ahl_di_asso_doc_aso_pub.association_tbl;
723 ddp_x_association_tblc ahl_di_asso_doc_aso_pub.association_tbl;
724 ddindx binary_integer; indx binary_integer;
725 begin
726
727 -- copy data to the local IN or IN-OUT args, if any
728
729
730
731
732
733 ahl_di_asso_doc_aso_pub_w.rosetta_table_copy_in_p1(ddp_x_association_tblm, p5_a0
734 , p5_a1
735 , p5_a2
736 , p5_a3
737 , p5_a4
738 , p5_a5
739 , p5_a6
740 , p5_a7
741 , p5_a8
742 , p5_a9
743 , p5_a10
744 , p5_a11
745 , p5_a12
746 , p5_a13
747 , p5_a14
748 , p5_a15
749 , p5_a16
750 , p5_a17
751 , p5_a18
752 , p5_a19
753 , p5_a20
754 , p5_a21
755 , p5_a22
756 , p5_a23
757 , p5_a24
758 , p5_a25
759 , p5_a26
760 , p5_a27
761 , p5_a28
762 , p5_a29
763 , p5_a30
764 , p5_a31
765 , p5_a32
766 , p5_a33
767 , p5_a34
768 , p5_a35
769 , p5_a36
770 );
771
772 ahl_di_asso_doc_aso_pub_w.rosetta_table_copy_in_p1(ddp_x_association_tblc, p6_a0
773 , p6_a1
774 , p6_a2
775 , p6_a3
776 , p6_a4
777 , p6_a5
778 , p6_a6
779 , p6_a7
780 , p6_a8
781 , p6_a9
782 , p6_a10
783 , p6_a11
784 , p6_a12
785 , p6_a13
786 , p6_a14
787 , p6_a15
788 , p6_a16
789 , p6_a17
790 , p6_a18
791 , p6_a19
792 , p6_a20
793 , p6_a21
794 , p6_a22
795 , p6_a23
796 , p6_a24
797 , p6_a25
798 , p6_a26
799 , p6_a27
800 , p6_a28
801 , p6_a29
802 , p6_a30
803 , p6_a31
804 , p6_a32
805 , p6_a33
806 , p6_a34
807 , p6_a35
808 , p6_a36
809 );
810
811
812
813
814
815 -- here's the delegated call to the old PL/SQL routine
816 ahl_di_asso_doc_aso_pub.process_association(p_api_version,
817 p_init_msg_list,
818 p_commit,
819 p_validate_only,
820 p_validation_level,
821 ddp_x_association_tblm,
822 ddp_x_association_tblc,
823 p_module_type,
824 x_return_status,
825 x_msg_count,
826 x_msg_data);
827
828 -- copy data back from the local variables to OUT or IN-OUT args, if any
829
830
831
832
833
834 ahl_di_asso_doc_aso_pub_w.rosetta_table_copy_out_p1(ddp_x_association_tblm, p5_a0
835 , p5_a1
836 , p5_a2
837 , p5_a3
838 , p5_a4
839 , p5_a5
840 , p5_a6
841 , p5_a7
842 , p5_a8
843 , p5_a9
844 , p5_a10
845 , p5_a11
846 , p5_a12
847 , p5_a13
848 , p5_a14
849 , p5_a15
850 , p5_a16
851 , p5_a17
852 , p5_a18
853 , p5_a19
854 , p5_a20
855 , p5_a21
856 , p5_a22
857 , p5_a23
858 , p5_a24
859 , p5_a25
860 , p5_a26
861 , p5_a27
862 , p5_a28
863 , p5_a29
864 , p5_a30
865 , p5_a31
866 , p5_a32
867 , p5_a33
868 , p5_a34
869 , p5_a35
870 , p5_a36
871 );
872
873 ahl_di_asso_doc_aso_pub_w.rosetta_table_copy_out_p1(ddp_x_association_tblc, p6_a0
874 , p6_a1
875 , p6_a2
876 , p6_a3
877 , p6_a4
878 , p6_a5
879 , p6_a6
880 , p6_a7
881 , p6_a8
882 , p6_a9
883 , p6_a10
884 , p6_a11
885 , p6_a12
886 , p6_a13
887 , p6_a14
888 , p6_a15
889 , p6_a16
890 , p6_a17
891 , p6_a18
892 , p6_a19
893 , p6_a20
894 , p6_a21
895 , p6_a22
896 , p6_a23
897 , p6_a24
898 , p6_a25
899 , p6_a26
900 , p6_a27
901 , p6_a28
902 , p6_a29
903 , p6_a30
904 , p6_a31
905 , p6_a32
906 , p6_a33
907 , p6_a34
908 , p6_a35
909 , p6_a36
910 );
911
912
913
914
915 end;
916
917 end ahl_di_asso_doc_aso_pub_w;