[Home] [Help]
PACKAGE BODY: APPS.AHL_DI_DOC_REVISION_PUB_W
Source
1 package body ahl_di_doc_revision_pub_w as
2 /* $Header: AHLREVWB.pls 120.0 2005/05/26 02:36:54 appldev 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_doc_revision_pub.revision_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_DATE_TABLE
21 , a8 JTF_NUMBER_TABLE
22 , a9 JTF_VARCHAR2_TABLE_100
23 , a10 JTF_VARCHAR2_TABLE_400
24 , a11 JTF_DATE_TABLE
25 , a12 JTF_DATE_TABLE
26 , a13 JTF_DATE_TABLE
27 , a14 JTF_DATE_TABLE
28 , a15 JTF_DATE_TABLE
29 , a16 JTF_VARCHAR2_TABLE_300
30 , a17 JTF_VARCHAR2_TABLE_100
31 , a18 JTF_VARCHAR2_TABLE_100
32 , a19 JTF_VARCHAR2_TABLE_200
33 , a20 JTF_VARCHAR2_TABLE_100
34 , a21 JTF_NUMBER_TABLE
35 , a22 JTF_VARCHAR2_TABLE_100
36 , a23 JTF_VARCHAR2_TABLE_100
37 , a24 JTF_VARCHAR2_TABLE_2000
38 , a25 JTF_NUMBER_TABLE
39 , a26 JTF_VARCHAR2_TABLE_100
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_200
50 , a37 JTF_VARCHAR2_TABLE_200
51 , a38 JTF_VARCHAR2_TABLE_200
52 , a39 JTF_VARCHAR2_TABLE_200
53 , a40 JTF_VARCHAR2_TABLE_200
54 , a41 JTF_VARCHAR2_TABLE_200
55 , a42 JTF_VARCHAR2_TABLE_100
56 ) as
57 ddindx binary_integer; indx binary_integer;
58 begin
59 if a0 is not null and a0.count > 0 then
60 if a0.count > 0 then
61 indx := a0.first;
62 ddindx := 1;
63 while true loop
64 t(ddindx).doc_revision_id := a0(indx);
65 t(ddindx).document_id := a1(indx);
66 t(ddindx).revision_no := a2(indx);
67 t(ddindx).revision_type_code := a3(indx);
68 t(ddindx).revision_type_desc := a4(indx);
69 t(ddindx).revision_status_code := a5(indx);
70 t(ddindx).revision_status_desc := a6(indx);
71 t(ddindx).revision_date := rosetta_g_miss_date_in_map(a7(indx));
72 t(ddindx).approved_by_party_id := a8(indx);
73 t(ddindx).approved_by_pty_number := a9(indx);
74 t(ddindx).approved_by_pty_name := a10(indx);
75 t(ddindx).approved_date := rosetta_g_miss_date_in_map(a11(indx));
76 t(ddindx).effective_date := rosetta_g_miss_date_in_map(a12(indx));
77 t(ddindx).obsolete_date := rosetta_g_miss_date_in_map(a13(indx));
78 t(ddindx).issue_date := rosetta_g_miss_date_in_map(a14(indx));
79 t(ddindx).received_date := rosetta_g_miss_date_in_map(a15(indx));
80 t(ddindx).url := a16(indx);
81 t(ddindx).media_type_code := a17(indx);
82 t(ddindx).media_type_desc := a18(indx);
83 t(ddindx).volume := a19(indx);
84 t(ddindx).issue := a20(indx);
85 t(ddindx).issue_number := a21(indx);
86 t(ddindx).language := a22(indx);
87 t(ddindx).source_lang := a23(indx);
88 t(ddindx).comments := a24(indx);
89 t(ddindx).object_version_number := a25(indx);
90 t(ddindx).attribute_category := a26(indx);
91 t(ddindx).attribute1 := a27(indx);
92 t(ddindx).attribute2 := a28(indx);
93 t(ddindx).attribute3 := a29(indx);
94 t(ddindx).attribute4 := a30(indx);
95 t(ddindx).attribute5 := a31(indx);
96 t(ddindx).attribute6 := a32(indx);
97 t(ddindx).attribute7 := a33(indx);
98 t(ddindx).attribute8 := a34(indx);
99 t(ddindx).attribute9 := a35(indx);
100 t(ddindx).attribute10 := a36(indx);
101 t(ddindx).attribute11 := a37(indx);
102 t(ddindx).attribute12 := a38(indx);
103 t(ddindx).attribute13 := a39(indx);
104 t(ddindx).attribute14 := a40(indx);
105 t(ddindx).attribute15 := a41(indx);
106 t(ddindx).delete_flag := a42(indx);
107 ddindx := ddindx+1;
108 if a0.last =indx
109 then exit;
110 end if;
111 indx := a0.next(indx);
112 end loop;
113 end if;
114 end if;
115 end rosetta_table_copy_in_p1;
116 procedure rosetta_table_copy_out_p1(t ahl_di_doc_revision_pub.revision_tbl, a0 out nocopy JTF_NUMBER_TABLE
117 , a1 out nocopy JTF_NUMBER_TABLE
118 , a2 out nocopy JTF_VARCHAR2_TABLE_100
119 , a3 out nocopy JTF_VARCHAR2_TABLE_100
120 , a4 out nocopy JTF_VARCHAR2_TABLE_100
121 , a5 out nocopy JTF_VARCHAR2_TABLE_100
122 , a6 out nocopy JTF_VARCHAR2_TABLE_100
123 , a7 out nocopy JTF_DATE_TABLE
124 , a8 out nocopy JTF_NUMBER_TABLE
125 , a9 out nocopy JTF_VARCHAR2_TABLE_100
126 , a10 out nocopy JTF_VARCHAR2_TABLE_400
127 , a11 out nocopy JTF_DATE_TABLE
128 , a12 out nocopy JTF_DATE_TABLE
129 , a13 out nocopy JTF_DATE_TABLE
130 , a14 out nocopy JTF_DATE_TABLE
131 , a15 out nocopy JTF_DATE_TABLE
132 , a16 out nocopy JTF_VARCHAR2_TABLE_300
133 , a17 out nocopy JTF_VARCHAR2_TABLE_100
134 , a18 out nocopy JTF_VARCHAR2_TABLE_100
135 , a19 out nocopy JTF_VARCHAR2_TABLE_200
136 , a20 out nocopy JTF_VARCHAR2_TABLE_100
137 , a21 out nocopy JTF_NUMBER_TABLE
138 , a22 out nocopy JTF_VARCHAR2_TABLE_100
139 , a23 out nocopy JTF_VARCHAR2_TABLE_100
140 , a24 out nocopy JTF_VARCHAR2_TABLE_2000
141 , a25 out nocopy JTF_NUMBER_TABLE
142 , a26 out nocopy JTF_VARCHAR2_TABLE_100
143 , a27 out nocopy JTF_VARCHAR2_TABLE_200
144 , a28 out nocopy JTF_VARCHAR2_TABLE_200
145 , a29 out nocopy JTF_VARCHAR2_TABLE_200
146 , a30 out nocopy JTF_VARCHAR2_TABLE_200
147 , a31 out nocopy JTF_VARCHAR2_TABLE_200
148 , a32 out nocopy JTF_VARCHAR2_TABLE_200
149 , a33 out nocopy JTF_VARCHAR2_TABLE_200
150 , a34 out nocopy JTF_VARCHAR2_TABLE_200
151 , a35 out nocopy JTF_VARCHAR2_TABLE_200
152 , a36 out nocopy JTF_VARCHAR2_TABLE_200
153 , a37 out nocopy JTF_VARCHAR2_TABLE_200
154 , a38 out nocopy JTF_VARCHAR2_TABLE_200
155 , a39 out nocopy JTF_VARCHAR2_TABLE_200
156 , a40 out nocopy JTF_VARCHAR2_TABLE_200
157 , a41 out nocopy JTF_VARCHAR2_TABLE_200
158 , a42 out nocopy JTF_VARCHAR2_TABLE_100
159 ) as
160 ddindx binary_integer; indx binary_integer;
161 begin
162 if t is null or t.count = 0 then
163 a0 := JTF_NUMBER_TABLE();
164 a1 := JTF_NUMBER_TABLE();
165 a2 := JTF_VARCHAR2_TABLE_100();
166 a3 := JTF_VARCHAR2_TABLE_100();
167 a4 := JTF_VARCHAR2_TABLE_100();
168 a5 := JTF_VARCHAR2_TABLE_100();
169 a6 := JTF_VARCHAR2_TABLE_100();
170 a7 := JTF_DATE_TABLE();
171 a8 := JTF_NUMBER_TABLE();
172 a9 := JTF_VARCHAR2_TABLE_100();
173 a10 := JTF_VARCHAR2_TABLE_400();
174 a11 := JTF_DATE_TABLE();
175 a12 := JTF_DATE_TABLE();
176 a13 := JTF_DATE_TABLE();
177 a14 := JTF_DATE_TABLE();
178 a15 := JTF_DATE_TABLE();
179 a16 := JTF_VARCHAR2_TABLE_300();
180 a17 := JTF_VARCHAR2_TABLE_100();
181 a18 := JTF_VARCHAR2_TABLE_100();
182 a19 := JTF_VARCHAR2_TABLE_200();
183 a20 := JTF_VARCHAR2_TABLE_100();
184 a21 := JTF_NUMBER_TABLE();
185 a22 := JTF_VARCHAR2_TABLE_100();
186 a23 := JTF_VARCHAR2_TABLE_100();
187 a24 := JTF_VARCHAR2_TABLE_2000();
188 a25 := JTF_NUMBER_TABLE();
189 a26 := JTF_VARCHAR2_TABLE_100();
190 a27 := JTF_VARCHAR2_TABLE_200();
191 a28 := JTF_VARCHAR2_TABLE_200();
192 a29 := JTF_VARCHAR2_TABLE_200();
193 a30 := JTF_VARCHAR2_TABLE_200();
194 a31 := JTF_VARCHAR2_TABLE_200();
195 a32 := JTF_VARCHAR2_TABLE_200();
196 a33 := JTF_VARCHAR2_TABLE_200();
197 a34 := JTF_VARCHAR2_TABLE_200();
198 a35 := JTF_VARCHAR2_TABLE_200();
199 a36 := JTF_VARCHAR2_TABLE_200();
200 a37 := JTF_VARCHAR2_TABLE_200();
201 a38 := JTF_VARCHAR2_TABLE_200();
202 a39 := JTF_VARCHAR2_TABLE_200();
203 a40 := JTF_VARCHAR2_TABLE_200();
204 a41 := JTF_VARCHAR2_TABLE_200();
205 a42 := JTF_VARCHAR2_TABLE_100();
206 else
207 a0 := JTF_NUMBER_TABLE();
208 a1 := JTF_NUMBER_TABLE();
209 a2 := JTF_VARCHAR2_TABLE_100();
210 a3 := JTF_VARCHAR2_TABLE_100();
211 a4 := JTF_VARCHAR2_TABLE_100();
212 a5 := JTF_VARCHAR2_TABLE_100();
213 a6 := JTF_VARCHAR2_TABLE_100();
214 a7 := JTF_DATE_TABLE();
215 a8 := JTF_NUMBER_TABLE();
216 a9 := JTF_VARCHAR2_TABLE_100();
217 a10 := JTF_VARCHAR2_TABLE_400();
218 a11 := JTF_DATE_TABLE();
219 a12 := JTF_DATE_TABLE();
220 a13 := JTF_DATE_TABLE();
221 a14 := JTF_DATE_TABLE();
222 a15 := JTF_DATE_TABLE();
223 a16 := JTF_VARCHAR2_TABLE_300();
224 a17 := JTF_VARCHAR2_TABLE_100();
225 a18 := JTF_VARCHAR2_TABLE_100();
226 a19 := JTF_VARCHAR2_TABLE_200();
227 a20 := JTF_VARCHAR2_TABLE_100();
228 a21 := JTF_NUMBER_TABLE();
229 a22 := JTF_VARCHAR2_TABLE_100();
230 a23 := JTF_VARCHAR2_TABLE_100();
231 a24 := JTF_VARCHAR2_TABLE_2000();
232 a25 := JTF_NUMBER_TABLE();
233 a26 := JTF_VARCHAR2_TABLE_100();
234 a27 := JTF_VARCHAR2_TABLE_200();
235 a28 := JTF_VARCHAR2_TABLE_200();
236 a29 := JTF_VARCHAR2_TABLE_200();
237 a30 := JTF_VARCHAR2_TABLE_200();
238 a31 := JTF_VARCHAR2_TABLE_200();
239 a32 := JTF_VARCHAR2_TABLE_200();
240 a33 := JTF_VARCHAR2_TABLE_200();
241 a34 := JTF_VARCHAR2_TABLE_200();
242 a35 := JTF_VARCHAR2_TABLE_200();
243 a36 := JTF_VARCHAR2_TABLE_200();
244 a37 := JTF_VARCHAR2_TABLE_200();
245 a38 := JTF_VARCHAR2_TABLE_200();
246 a39 := JTF_VARCHAR2_TABLE_200();
247 a40 := JTF_VARCHAR2_TABLE_200();
248 a41 := JTF_VARCHAR2_TABLE_200();
249 a42 := JTF_VARCHAR2_TABLE_100();
250 if t.count > 0 then
251 a0.extend(t.count);
252 a1.extend(t.count);
253 a2.extend(t.count);
254 a3.extend(t.count);
255 a4.extend(t.count);
256 a5.extend(t.count);
257 a6.extend(t.count);
258 a7.extend(t.count);
259 a8.extend(t.count);
260 a9.extend(t.count);
261 a10.extend(t.count);
262 a11.extend(t.count);
263 a12.extend(t.count);
264 a13.extend(t.count);
265 a14.extend(t.count);
266 a15.extend(t.count);
267 a16.extend(t.count);
268 a17.extend(t.count);
269 a18.extend(t.count);
270 a19.extend(t.count);
271 a20.extend(t.count);
272 a21.extend(t.count);
273 a22.extend(t.count);
274 a23.extend(t.count);
275 a24.extend(t.count);
276 a25.extend(t.count);
277 a26.extend(t.count);
278 a27.extend(t.count);
279 a28.extend(t.count);
280 a29.extend(t.count);
281 a30.extend(t.count);
282 a31.extend(t.count);
283 a32.extend(t.count);
284 a33.extend(t.count);
285 a34.extend(t.count);
286 a35.extend(t.count);
287 a36.extend(t.count);
288 a37.extend(t.count);
289 a38.extend(t.count);
290 a39.extend(t.count);
291 a40.extend(t.count);
292 a41.extend(t.count);
293 a42.extend(t.count);
294 ddindx := t.first;
295 indx := 1;
296 while true loop
297 a0(indx) := t(ddindx).doc_revision_id;
298 a1(indx) := t(ddindx).document_id;
299 a2(indx) := t(ddindx).revision_no;
300 a3(indx) := t(ddindx).revision_type_code;
301 a4(indx) := t(ddindx).revision_type_desc;
302 a5(indx) := t(ddindx).revision_status_code;
303 a6(indx) := t(ddindx).revision_status_desc;
304 a7(indx) := t(ddindx).revision_date;
305 a8(indx) := t(ddindx).approved_by_party_id;
306 a9(indx) := t(ddindx).approved_by_pty_number;
307 a10(indx) := t(ddindx).approved_by_pty_name;
308 a11(indx) := t(ddindx).approved_date;
309 a12(indx) := t(ddindx).effective_date;
310 a13(indx) := t(ddindx).obsolete_date;
311 a14(indx) := t(ddindx).issue_date;
312 a15(indx) := t(ddindx).received_date;
313 a16(indx) := t(ddindx).url;
314 a17(indx) := t(ddindx).media_type_code;
315 a18(indx) := t(ddindx).media_type_desc;
316 a19(indx) := t(ddindx).volume;
317 a20(indx) := t(ddindx).issue;
318 a21(indx) := t(ddindx).issue_number;
319 a22(indx) := t(ddindx).language;
320 a23(indx) := t(ddindx).source_lang;
321 a24(indx) := t(ddindx).comments;
322 a25(indx) := t(ddindx).object_version_number;
323 a26(indx) := t(ddindx).attribute_category;
324 a27(indx) := t(ddindx).attribute1;
325 a28(indx) := t(ddindx).attribute2;
326 a29(indx) := t(ddindx).attribute3;
327 a30(indx) := t(ddindx).attribute4;
328 a31(indx) := t(ddindx).attribute5;
329 a32(indx) := t(ddindx).attribute6;
330 a33(indx) := t(ddindx).attribute7;
331 a34(indx) := t(ddindx).attribute8;
332 a35(indx) := t(ddindx).attribute9;
333 a36(indx) := t(ddindx).attribute10;
334 a37(indx) := t(ddindx).attribute11;
335 a38(indx) := t(ddindx).attribute12;
336 a39(indx) := t(ddindx).attribute13;
337 a40(indx) := t(ddindx).attribute14;
338 a41(indx) := t(ddindx).attribute15;
339 a42(indx) := t(ddindx).delete_flag;
340 indx := indx+1;
341 if t.last =ddindx
342 then exit;
343 end if;
344 ddindx := t.next(ddindx);
345 end loop;
346 end if;
347 end if;
348 end rosetta_table_copy_out_p1;
349
350 procedure create_revision(p_api_version NUMBER
351 , p_init_msg_list VARCHAR2
352 , p_commit VARCHAR2
353 , p_validate_only VARCHAR2
354 , p_validation_level NUMBER
355 , p5_a0 in out nocopy JTF_NUMBER_TABLE
356 , p5_a1 in out nocopy JTF_NUMBER_TABLE
357 , p5_a2 in out nocopy JTF_VARCHAR2_TABLE_100
358 , p5_a3 in out nocopy JTF_VARCHAR2_TABLE_100
359 , p5_a4 in out nocopy JTF_VARCHAR2_TABLE_100
360 , p5_a5 in out nocopy JTF_VARCHAR2_TABLE_100
361 , p5_a6 in out nocopy JTF_VARCHAR2_TABLE_100
365 , p5_a10 in out nocopy JTF_VARCHAR2_TABLE_400
362 , p5_a7 in out nocopy JTF_DATE_TABLE
363 , p5_a8 in out nocopy JTF_NUMBER_TABLE
364 , p5_a9 in out nocopy JTF_VARCHAR2_TABLE_100
366 , p5_a11 in out nocopy JTF_DATE_TABLE
367 , p5_a12 in out nocopy JTF_DATE_TABLE
368 , p5_a13 in out nocopy JTF_DATE_TABLE
369 , p5_a14 in out nocopy JTF_DATE_TABLE
370 , p5_a15 in out nocopy JTF_DATE_TABLE
371 , p5_a16 in out nocopy JTF_VARCHAR2_TABLE_300
372 , p5_a17 in out nocopy JTF_VARCHAR2_TABLE_100
373 , p5_a18 in out nocopy JTF_VARCHAR2_TABLE_100
374 , p5_a19 in out nocopy JTF_VARCHAR2_TABLE_200
375 , p5_a20 in out nocopy JTF_VARCHAR2_TABLE_100
376 , p5_a21 in out nocopy JTF_NUMBER_TABLE
377 , p5_a22 in out nocopy JTF_VARCHAR2_TABLE_100
378 , p5_a23 in out nocopy JTF_VARCHAR2_TABLE_100
379 , p5_a24 in out nocopy JTF_VARCHAR2_TABLE_2000
380 , p5_a25 in out nocopy JTF_NUMBER_TABLE
381 , p5_a26 in out nocopy JTF_VARCHAR2_TABLE_100
382 , p5_a27 in out nocopy JTF_VARCHAR2_TABLE_200
383 , p5_a28 in out nocopy JTF_VARCHAR2_TABLE_200
384 , p5_a29 in out nocopy JTF_VARCHAR2_TABLE_200
385 , p5_a30 in out nocopy JTF_VARCHAR2_TABLE_200
386 , p5_a31 in out nocopy JTF_VARCHAR2_TABLE_200
387 , p5_a32 in out nocopy JTF_VARCHAR2_TABLE_200
388 , p5_a33 in out nocopy JTF_VARCHAR2_TABLE_200
389 , p5_a34 in out nocopy JTF_VARCHAR2_TABLE_200
390 , p5_a35 in out nocopy JTF_VARCHAR2_TABLE_200
391 , p5_a36 in out nocopy JTF_VARCHAR2_TABLE_200
392 , p5_a37 in out nocopy JTF_VARCHAR2_TABLE_200
393 , p5_a38 in out nocopy JTF_VARCHAR2_TABLE_200
394 , p5_a39 in out nocopy JTF_VARCHAR2_TABLE_200
395 , p5_a40 in out nocopy JTF_VARCHAR2_TABLE_200
396 , p5_a41 in out nocopy JTF_VARCHAR2_TABLE_200
397 , p5_a42 in out nocopy JTF_VARCHAR2_TABLE_100
398 , p_module_type VARCHAR2
399 , x_return_status out nocopy VARCHAR2
400 , x_msg_count out nocopy NUMBER
401 , x_msg_data out nocopy VARCHAR2
402 )
403
404 as
405 ddp_x_revision_tbl ahl_di_doc_revision_pub.revision_tbl;
406 ddindx binary_integer; indx binary_integer;
407 begin
408
409 -- copy data to the local IN or IN-OUT args, if any
410
411
412
413
414
415 ahl_di_doc_revision_pub_w.rosetta_table_copy_in_p1(ddp_x_revision_tbl, p5_a0
416 , p5_a1
417 , p5_a2
418 , p5_a3
419 , p5_a4
420 , p5_a5
421 , p5_a6
422 , p5_a7
423 , p5_a8
424 , p5_a9
425 , p5_a10
426 , p5_a11
427 , p5_a12
428 , p5_a13
429 , p5_a14
430 , p5_a15
431 , p5_a16
432 , p5_a17
433 , p5_a18
434 , p5_a19
435 , p5_a20
436 , p5_a21
437 , p5_a22
438 , p5_a23
439 , p5_a24
440 , p5_a25
441 , p5_a26
442 , p5_a27
443 , p5_a28
444 , p5_a29
445 , p5_a30
446 , p5_a31
447 , p5_a32
448 , p5_a33
449 , p5_a34
450 , p5_a35
451 , p5_a36
452 , p5_a37
453 , p5_a38
454 , p5_a39
455 , p5_a40
456 , p5_a41
457 , p5_a42
458 );
459
460
461
462
463
464 -- here's the delegated call to the old PL/SQL routine
465 ahl_di_doc_revision_pub.create_revision(p_api_version,
466 p_init_msg_list,
467 p_commit,
468 p_validate_only,
469 p_validation_level,
470 ddp_x_revision_tbl,
471 p_module_type,
472 x_return_status,
473 x_msg_count,
474 x_msg_data);
475
476 -- copy data back from the local variables to OUT or IN-OUT args, if any
477
478
479
480
481
482 ahl_di_doc_revision_pub_w.rosetta_table_copy_out_p1(ddp_x_revision_tbl, p5_a0
483 , p5_a1
484 , p5_a2
485 , p5_a3
486 , p5_a4
487 , p5_a5
488 , p5_a6
489 , p5_a7
490 , p5_a8
491 , p5_a9
492 , p5_a10
493 , p5_a11
494 , p5_a12
495 , p5_a13
496 , p5_a14
497 , p5_a15
498 , p5_a16
499 , p5_a17
500 , p5_a18
501 , p5_a19
502 , p5_a20
503 , p5_a21
504 , p5_a22
505 , p5_a23
506 , p5_a24
507 , p5_a25
508 , p5_a26
509 , p5_a27
510 , p5_a28
511 , p5_a29
512 , p5_a30
513 , p5_a31
514 , p5_a32
515 , p5_a33
516 , p5_a34
517 , p5_a35
518 , p5_a36
519 , p5_a37
520 , p5_a38
521 , p5_a39
522 , p5_a40
523 , p5_a41
524 , p5_a42
525 );
526
527
528
529
530 end;
531
532 procedure modify_revision(p_api_version NUMBER
533 , p_init_msg_list VARCHAR2
534 , p_commit VARCHAR2
535 , p_validate_only VARCHAR2
536 , p_validation_level NUMBER
537 , p5_a0 in out nocopy JTF_NUMBER_TABLE
541 , p5_a4 in out nocopy JTF_VARCHAR2_TABLE_100
538 , p5_a1 in out nocopy JTF_NUMBER_TABLE
539 , p5_a2 in out nocopy JTF_VARCHAR2_TABLE_100
540 , p5_a3 in out nocopy JTF_VARCHAR2_TABLE_100
542 , p5_a5 in out nocopy JTF_VARCHAR2_TABLE_100
543 , p5_a6 in out nocopy JTF_VARCHAR2_TABLE_100
544 , p5_a7 in out nocopy JTF_DATE_TABLE
545 , p5_a8 in out nocopy JTF_NUMBER_TABLE
546 , p5_a9 in out nocopy JTF_VARCHAR2_TABLE_100
547 , p5_a10 in out nocopy JTF_VARCHAR2_TABLE_400
548 , p5_a11 in out nocopy JTF_DATE_TABLE
549 , p5_a12 in out nocopy JTF_DATE_TABLE
550 , p5_a13 in out nocopy JTF_DATE_TABLE
551 , p5_a14 in out nocopy JTF_DATE_TABLE
552 , p5_a15 in out nocopy JTF_DATE_TABLE
553 , p5_a16 in out nocopy JTF_VARCHAR2_TABLE_300
554 , p5_a17 in out nocopy JTF_VARCHAR2_TABLE_100
555 , p5_a18 in out nocopy JTF_VARCHAR2_TABLE_100
556 , p5_a19 in out nocopy JTF_VARCHAR2_TABLE_200
557 , p5_a20 in out nocopy JTF_VARCHAR2_TABLE_100
558 , p5_a21 in out nocopy JTF_NUMBER_TABLE
559 , p5_a22 in out nocopy JTF_VARCHAR2_TABLE_100
560 , p5_a23 in out nocopy JTF_VARCHAR2_TABLE_100
561 , p5_a24 in out nocopy JTF_VARCHAR2_TABLE_2000
562 , p5_a25 in out nocopy JTF_NUMBER_TABLE
563 , p5_a26 in out nocopy JTF_VARCHAR2_TABLE_100
564 , p5_a27 in out nocopy JTF_VARCHAR2_TABLE_200
565 , p5_a28 in out nocopy JTF_VARCHAR2_TABLE_200
566 , p5_a29 in out nocopy JTF_VARCHAR2_TABLE_200
567 , p5_a30 in out nocopy JTF_VARCHAR2_TABLE_200
568 , p5_a31 in out nocopy JTF_VARCHAR2_TABLE_200
569 , p5_a32 in out nocopy JTF_VARCHAR2_TABLE_200
570 , p5_a33 in out nocopy JTF_VARCHAR2_TABLE_200
571 , p5_a34 in out nocopy JTF_VARCHAR2_TABLE_200
572 , p5_a35 in out nocopy JTF_VARCHAR2_TABLE_200
573 , p5_a36 in out nocopy JTF_VARCHAR2_TABLE_200
574 , p5_a37 in out nocopy JTF_VARCHAR2_TABLE_200
575 , p5_a38 in out nocopy JTF_VARCHAR2_TABLE_200
576 , p5_a39 in out nocopy JTF_VARCHAR2_TABLE_200
577 , p5_a40 in out nocopy JTF_VARCHAR2_TABLE_200
578 , p5_a41 in out nocopy JTF_VARCHAR2_TABLE_200
579 , p5_a42 in out nocopy JTF_VARCHAR2_TABLE_100
580 , p_module_type VARCHAR2
581 , x_return_status out nocopy VARCHAR2
582 , x_msg_count out nocopy NUMBER
583 , x_msg_data out nocopy VARCHAR2
584 )
585
586 as
587 ddp_x_revision_tbl ahl_di_doc_revision_pub.revision_tbl;
588 ddindx binary_integer; indx binary_integer;
589 begin
590
591 -- copy data to the local IN or IN-OUT args, if any
592
593
594
595
596
597 ahl_di_doc_revision_pub_w.rosetta_table_copy_in_p1(ddp_x_revision_tbl, p5_a0
598 , p5_a1
599 , p5_a2
600 , p5_a3
601 , p5_a4
602 , p5_a5
603 , p5_a6
604 , p5_a7
605 , p5_a8
606 , p5_a9
607 , p5_a10
608 , p5_a11
609 , p5_a12
610 , p5_a13
611 , p5_a14
612 , p5_a15
613 , p5_a16
614 , p5_a17
615 , p5_a18
616 , p5_a19
617 , p5_a20
618 , p5_a21
619 , p5_a22
620 , p5_a23
621 , p5_a24
622 , p5_a25
623 , p5_a26
624 , p5_a27
625 , p5_a28
626 , p5_a29
627 , p5_a30
628 , p5_a31
629 , p5_a32
630 , p5_a33
631 , p5_a34
632 , p5_a35
633 , p5_a36
634 , p5_a37
635 , p5_a38
636 , p5_a39
637 , p5_a40
638 , p5_a41
639 , p5_a42
640 );
641
642
643
644
645
646 -- here's the delegated call to the old PL/SQL routine
647 ahl_di_doc_revision_pub.modify_revision(p_api_version,
648 p_init_msg_list,
649 p_commit,
650 p_validate_only,
651 p_validation_level,
652 ddp_x_revision_tbl,
653 p_module_type,
654 x_return_status,
655 x_msg_count,
656 x_msg_data);
657
658 -- copy data back from the local variables to OUT or IN-OUT args, if any
659
660
661
662
663
664 ahl_di_doc_revision_pub_w.rosetta_table_copy_out_p1(ddp_x_revision_tbl, p5_a0
665 , p5_a1
666 , p5_a2
667 , p5_a3
668 , p5_a4
669 , p5_a5
670 , p5_a6
671 , p5_a7
672 , p5_a8
673 , p5_a9
674 , p5_a10
675 , p5_a11
676 , p5_a12
677 , p5_a13
678 , p5_a14
679 , p5_a15
680 , p5_a16
681 , p5_a17
682 , p5_a18
683 , p5_a19
684 , p5_a20
685 , p5_a21
686 , p5_a22
687 , p5_a23
688 , p5_a24
689 , p5_a25
690 , p5_a26
691 , p5_a27
692 , p5_a28
693 , p5_a29
694 , p5_a30
695 , p5_a31
696 , p5_a32
697 , p5_a33
698 , p5_a34
699 , p5_a35
700 , p5_a36
701 , p5_a37
702 , p5_a38
703 , p5_a39
704 , p5_a40
705 , p5_a41
706 , p5_a42
707 );
708
709
710
714 end ahl_di_doc_revision_pub_w;
711
712 end;
713