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