[Home] [Help]
PACKAGE BODY: APPS.AHL_MEL_CDL_ATA_SEQS_PVT_W
Source
1 package body ahl_mel_cdl_ata_seqs_pvt_w as
2 /* $Header: AHLWATAB.pls 120.1 2005/09/12 04:08 tamdas noship $ */
3 procedure rosetta_table_copy_in_p3(t out nocopy ahl_mel_cdl_ata_seqs_pvt.ata_sequence_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_VARCHAR2_TABLE_100
8 , a5 JTF_VARCHAR2_TABLE_100
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_VARCHAR2_TABLE_100
12 , a9 JTF_VARCHAR2_TABLE_200
13 , a10 JTF_VARCHAR2_TABLE_200
14 , a11 JTF_VARCHAR2_TABLE_200
15 , a12 JTF_VARCHAR2_TABLE_200
16 , a13 JTF_VARCHAR2_TABLE_200
17 , a14 JTF_VARCHAR2_TABLE_200
18 , a15 JTF_VARCHAR2_TABLE_200
19 , a16 JTF_VARCHAR2_TABLE_200
20 , a17 JTF_VARCHAR2_TABLE_200
21 , a18 JTF_VARCHAR2_TABLE_200
22 , a19 JTF_VARCHAR2_TABLE_200
23 , a20 JTF_VARCHAR2_TABLE_200
24 , a21 JTF_VARCHAR2_TABLE_200
25 , a22 JTF_VARCHAR2_TABLE_200
26 , a23 JTF_VARCHAR2_TABLE_200
27 , a24 JTF_VARCHAR2_TABLE_32767
28 , a25 JTF_VARCHAR2_TABLE_100
29 ) as
30 ddindx binary_integer; indx binary_integer;
31 begin
32 if a0 is not null and a0.count > 0 then
33 if a0.count > 0 then
34 indx := a0.first;
35 ddindx := 1;
36 while true loop
37 t(ddindx).mel_cdl_ata_sequence_id := a0(indx);
38 t(ddindx).object_version_number := a1(indx);
39 t(ddindx).mel_cdl_header_id := a2(indx);
40 t(ddindx).repair_category_id := a3(indx);
41 t(ddindx).repair_category_name := a4(indx);
42 t(ddindx).ata_code := a5(indx);
43 t(ddindx).installed_number := a6(indx);
44 t(ddindx).dispatch_number := a7(indx);
45 t(ddindx).attribute_category := a8(indx);
46 t(ddindx).attribute1 := a9(indx);
47 t(ddindx).attribute2 := a10(indx);
48 t(ddindx).attribute3 := a11(indx);
49 t(ddindx).attribute4 := a12(indx);
50 t(ddindx).attribute5 := a13(indx);
51 t(ddindx).attribute6 := a14(indx);
52 t(ddindx).attribute7 := a15(indx);
53 t(ddindx).attribute8 := a16(indx);
54 t(ddindx).attribute9 := a17(indx);
55 t(ddindx).attribute10 := a18(indx);
56 t(ddindx).attribute11 := a19(indx);
57 t(ddindx).attribute12 := a20(indx);
58 t(ddindx).attribute13 := a21(indx);
59 t(ddindx).attribute14 := a22(indx);
60 t(ddindx).attribute15 := a23(indx);
61 t(ddindx).remarks_note := a24(indx);
62 t(ddindx).dml_operation := a25(indx);
63 ddindx := ddindx+1;
64 if a0.last =indx
65 then exit;
66 end if;
67 indx := a0.next(indx);
68 end loop;
69 end if;
70 end if;
71 end rosetta_table_copy_in_p3;
72 procedure rosetta_table_copy_out_p3(t ahl_mel_cdl_ata_seqs_pvt.ata_sequence_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
73 , a1 out nocopy JTF_NUMBER_TABLE
74 , a2 out nocopy JTF_NUMBER_TABLE
75 , a3 out nocopy JTF_NUMBER_TABLE
76 , a4 out nocopy JTF_VARCHAR2_TABLE_100
77 , a5 out nocopy JTF_VARCHAR2_TABLE_100
78 , a6 out nocopy JTF_NUMBER_TABLE
79 , a7 out nocopy JTF_NUMBER_TABLE
80 , a8 out nocopy JTF_VARCHAR2_TABLE_100
81 , a9 out nocopy JTF_VARCHAR2_TABLE_200
82 , a10 out nocopy JTF_VARCHAR2_TABLE_200
83 , a11 out nocopy JTF_VARCHAR2_TABLE_200
84 , a12 out nocopy JTF_VARCHAR2_TABLE_200
85 , a13 out nocopy JTF_VARCHAR2_TABLE_200
86 , a14 out nocopy JTF_VARCHAR2_TABLE_200
87 , a15 out nocopy JTF_VARCHAR2_TABLE_200
88 , a16 out nocopy JTF_VARCHAR2_TABLE_200
89 , a17 out nocopy JTF_VARCHAR2_TABLE_200
90 , a18 out nocopy JTF_VARCHAR2_TABLE_200
91 , a19 out nocopy JTF_VARCHAR2_TABLE_200
92 , a20 out nocopy JTF_VARCHAR2_TABLE_200
93 , a21 out nocopy JTF_VARCHAR2_TABLE_200
94 , a22 out nocopy JTF_VARCHAR2_TABLE_200
95 , a23 out nocopy JTF_VARCHAR2_TABLE_200
96 , a24 out nocopy JTF_VARCHAR2_TABLE_32767
97 , a25 out nocopy JTF_VARCHAR2_TABLE_100
98 ) as
99 ddindx binary_integer; indx binary_integer;
100 begin
101 if t is null or t.count = 0 then
102 a0 := JTF_NUMBER_TABLE();
103 a1 := JTF_NUMBER_TABLE();
104 a2 := JTF_NUMBER_TABLE();
105 a3 := JTF_NUMBER_TABLE();
106 a4 := JTF_VARCHAR2_TABLE_100();
107 a5 := JTF_VARCHAR2_TABLE_100();
108 a6 := JTF_NUMBER_TABLE();
109 a7 := JTF_NUMBER_TABLE();
110 a8 := JTF_VARCHAR2_TABLE_100();
111 a9 := JTF_VARCHAR2_TABLE_200();
112 a10 := JTF_VARCHAR2_TABLE_200();
113 a11 := JTF_VARCHAR2_TABLE_200();
114 a12 := JTF_VARCHAR2_TABLE_200();
115 a13 := JTF_VARCHAR2_TABLE_200();
116 a14 := JTF_VARCHAR2_TABLE_200();
117 a15 := JTF_VARCHAR2_TABLE_200();
118 a16 := JTF_VARCHAR2_TABLE_200();
119 a17 := JTF_VARCHAR2_TABLE_200();
120 a18 := JTF_VARCHAR2_TABLE_200();
121 a19 := JTF_VARCHAR2_TABLE_200();
122 a20 := JTF_VARCHAR2_TABLE_200();
123 a21 := JTF_VARCHAR2_TABLE_200();
124 a22 := JTF_VARCHAR2_TABLE_200();
125 a23 := JTF_VARCHAR2_TABLE_200();
126 a24 := JTF_VARCHAR2_TABLE_32767();
127 a25 := JTF_VARCHAR2_TABLE_100();
128 else
129 a0 := JTF_NUMBER_TABLE();
130 a1 := JTF_NUMBER_TABLE();
131 a2 := JTF_NUMBER_TABLE();
132 a3 := JTF_NUMBER_TABLE();
133 a4 := JTF_VARCHAR2_TABLE_100();
134 a5 := JTF_VARCHAR2_TABLE_100();
135 a6 := JTF_NUMBER_TABLE();
136 a7 := JTF_NUMBER_TABLE();
137 a8 := JTF_VARCHAR2_TABLE_100();
138 a9 := JTF_VARCHAR2_TABLE_200();
139 a10 := JTF_VARCHAR2_TABLE_200();
140 a11 := JTF_VARCHAR2_TABLE_200();
141 a12 := JTF_VARCHAR2_TABLE_200();
142 a13 := JTF_VARCHAR2_TABLE_200();
143 a14 := JTF_VARCHAR2_TABLE_200();
144 a15 := JTF_VARCHAR2_TABLE_200();
145 a16 := JTF_VARCHAR2_TABLE_200();
146 a17 := JTF_VARCHAR2_TABLE_200();
147 a18 := JTF_VARCHAR2_TABLE_200();
148 a19 := JTF_VARCHAR2_TABLE_200();
149 a20 := JTF_VARCHAR2_TABLE_200();
150 a21 := JTF_VARCHAR2_TABLE_200();
151 a22 := JTF_VARCHAR2_TABLE_200();
152 a23 := JTF_VARCHAR2_TABLE_200();
153 a24 := JTF_VARCHAR2_TABLE_32767();
154 a25 := JTF_VARCHAR2_TABLE_100();
155 if t.count > 0 then
156 a0.extend(t.count);
157 a1.extend(t.count);
158 a2.extend(t.count);
159 a3.extend(t.count);
160 a4.extend(t.count);
161 a5.extend(t.count);
162 a6.extend(t.count);
163 a7.extend(t.count);
164 a8.extend(t.count);
165 a9.extend(t.count);
166 a10.extend(t.count);
167 a11.extend(t.count);
168 a12.extend(t.count);
169 a13.extend(t.count);
170 a14.extend(t.count);
171 a15.extend(t.count);
172 a16.extend(t.count);
173 a17.extend(t.count);
174 a18.extend(t.count);
175 a19.extend(t.count);
176 a20.extend(t.count);
177 a21.extend(t.count);
178 a22.extend(t.count);
179 a23.extend(t.count);
180 a24.extend(t.count);
181 a25.extend(t.count);
182 ddindx := t.first;
183 indx := 1;
184 while true loop
185 a0(indx) := t(ddindx).mel_cdl_ata_sequence_id;
186 a1(indx) := t(ddindx).object_version_number;
187 a2(indx) := t(ddindx).mel_cdl_header_id;
188 a3(indx) := t(ddindx).repair_category_id;
189 a4(indx) := t(ddindx).repair_category_name;
190 a5(indx) := t(ddindx).ata_code;
191 a6(indx) := t(ddindx).installed_number;
192 a7(indx) := t(ddindx).dispatch_number;
193 a8(indx) := t(ddindx).attribute_category;
194 a9(indx) := t(ddindx).attribute1;
195 a10(indx) := t(ddindx).attribute2;
196 a11(indx) := t(ddindx).attribute3;
197 a12(indx) := t(ddindx).attribute4;
198 a13(indx) := t(ddindx).attribute5;
199 a14(indx) := t(ddindx).attribute6;
200 a15(indx) := t(ddindx).attribute7;
201 a16(indx) := t(ddindx).attribute8;
202 a17(indx) := t(ddindx).attribute9;
203 a18(indx) := t(ddindx).attribute10;
204 a19(indx) := t(ddindx).attribute11;
205 a20(indx) := t(ddindx).attribute12;
206 a21(indx) := t(ddindx).attribute13;
207 a22(indx) := t(ddindx).attribute14;
208 a23(indx) := t(ddindx).attribute15;
209 a24(indx) := t(ddindx).remarks_note;
210 a25(indx) := t(ddindx).dml_operation;
211 indx := indx+1;
212 if t.last =ddindx
213 then exit;
214 end if;
215 ddindx := t.next(ddindx);
216 end loop;
217 end if;
218 end if;
219 end rosetta_table_copy_out_p3;
220
221 procedure rosetta_table_copy_in_p5(t out nocopy ahl_mel_cdl_ata_seqs_pvt.mo_procedure_tbl_type, a0 JTF_NUMBER_TABLE
222 , a1 JTF_NUMBER_TABLE
223 , a2 JTF_NUMBER_TABLE
224 , a3 JTF_NUMBER_TABLE
225 , a4 JTF_VARCHAR2_TABLE_100
226 , a5 JTF_NUMBER_TABLE
227 , a6 JTF_VARCHAR2_TABLE_100
228 , a7 JTF_VARCHAR2_TABLE_200
229 , a8 JTF_VARCHAR2_TABLE_200
230 , a9 JTF_VARCHAR2_TABLE_200
231 , a10 JTF_VARCHAR2_TABLE_200
232 , a11 JTF_VARCHAR2_TABLE_200
233 , a12 JTF_VARCHAR2_TABLE_200
234 , a13 JTF_VARCHAR2_TABLE_200
235 , a14 JTF_VARCHAR2_TABLE_200
236 , a15 JTF_VARCHAR2_TABLE_200
237 , a16 JTF_VARCHAR2_TABLE_200
238 , a17 JTF_VARCHAR2_TABLE_200
239 , a18 JTF_VARCHAR2_TABLE_200
240 , a19 JTF_VARCHAR2_TABLE_200
241 , a20 JTF_VARCHAR2_TABLE_200
242 , a21 JTF_VARCHAR2_TABLE_200
243 , a22 JTF_VARCHAR2_TABLE_100
244 ) as
245 ddindx binary_integer; indx binary_integer;
246 begin
247 if a0 is not null and a0.count > 0 then
248 if a0.count > 0 then
249 indx := a0.first;
250 ddindx := 1;
251 while true loop
252 t(ddindx).mel_cdl_mo_procedure_id := a0(indx);
253 t(ddindx).object_version_number := a1(indx);
254 t(ddindx).ata_sequence_id := a2(indx);
255 t(ddindx).mr_header_id := a3(indx);
256 t(ddindx).mr_title := a4(indx);
257 t(ddindx).mr_version_number := a5(indx);
258 t(ddindx).attribute_category := a6(indx);
259 t(ddindx).attribute1 := a7(indx);
260 t(ddindx).attribute2 := a8(indx);
261 t(ddindx).attribute3 := a9(indx);
262 t(ddindx).attribute4 := a10(indx);
263 t(ddindx).attribute5 := a11(indx);
264 t(ddindx).attribute6 := a12(indx);
265 t(ddindx).attribute7 := a13(indx);
266 t(ddindx).attribute8 := a14(indx);
267 t(ddindx).attribute9 := a15(indx);
268 t(ddindx).attribute10 := a16(indx);
269 t(ddindx).attribute11 := a17(indx);
270 t(ddindx).attribute12 := a18(indx);
271 t(ddindx).attribute13 := a19(indx);
272 t(ddindx).attribute14 := a20(indx);
273 t(ddindx).attribute15 := a21(indx);
274 t(ddindx).dml_operation := a22(indx);
275 ddindx := ddindx+1;
276 if a0.last =indx
277 then exit;
278 end if;
279 indx := a0.next(indx);
280 end loop;
281 end if;
282 end if;
283 end rosetta_table_copy_in_p5;
284 procedure rosetta_table_copy_out_p5(t ahl_mel_cdl_ata_seqs_pvt.mo_procedure_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
285 , a1 out nocopy JTF_NUMBER_TABLE
286 , a2 out nocopy JTF_NUMBER_TABLE
287 , a3 out nocopy JTF_NUMBER_TABLE
288 , a4 out nocopy JTF_VARCHAR2_TABLE_100
289 , a5 out nocopy JTF_NUMBER_TABLE
290 , a6 out nocopy JTF_VARCHAR2_TABLE_100
291 , a7 out nocopy JTF_VARCHAR2_TABLE_200
292 , a8 out nocopy JTF_VARCHAR2_TABLE_200
293 , a9 out nocopy JTF_VARCHAR2_TABLE_200
294 , a10 out nocopy JTF_VARCHAR2_TABLE_200
295 , a11 out nocopy JTF_VARCHAR2_TABLE_200
296 , a12 out nocopy JTF_VARCHAR2_TABLE_200
297 , a13 out nocopy JTF_VARCHAR2_TABLE_200
298 , a14 out nocopy JTF_VARCHAR2_TABLE_200
299 , a15 out nocopy JTF_VARCHAR2_TABLE_200
300 , a16 out nocopy JTF_VARCHAR2_TABLE_200
301 , a17 out nocopy JTF_VARCHAR2_TABLE_200
302 , a18 out nocopy JTF_VARCHAR2_TABLE_200
303 , a19 out nocopy JTF_VARCHAR2_TABLE_200
304 , a20 out nocopy JTF_VARCHAR2_TABLE_200
305 , a21 out nocopy JTF_VARCHAR2_TABLE_200
306 , a22 out nocopy JTF_VARCHAR2_TABLE_100
307 ) as
308 ddindx binary_integer; indx binary_integer;
309 begin
310 if t is null or t.count = 0 then
311 a0 := JTF_NUMBER_TABLE();
312 a1 := JTF_NUMBER_TABLE();
313 a2 := JTF_NUMBER_TABLE();
314 a3 := JTF_NUMBER_TABLE();
315 a4 := JTF_VARCHAR2_TABLE_100();
316 a5 := JTF_NUMBER_TABLE();
317 a6 := JTF_VARCHAR2_TABLE_100();
318 a7 := JTF_VARCHAR2_TABLE_200();
319 a8 := JTF_VARCHAR2_TABLE_200();
320 a9 := JTF_VARCHAR2_TABLE_200();
321 a10 := JTF_VARCHAR2_TABLE_200();
322 a11 := JTF_VARCHAR2_TABLE_200();
323 a12 := JTF_VARCHAR2_TABLE_200();
324 a13 := JTF_VARCHAR2_TABLE_200();
325 a14 := JTF_VARCHAR2_TABLE_200();
329 a18 := JTF_VARCHAR2_TABLE_200();
326 a15 := JTF_VARCHAR2_TABLE_200();
327 a16 := JTF_VARCHAR2_TABLE_200();
328 a17 := JTF_VARCHAR2_TABLE_200();
330 a19 := JTF_VARCHAR2_TABLE_200();
331 a20 := JTF_VARCHAR2_TABLE_200();
332 a21 := JTF_VARCHAR2_TABLE_200();
333 a22 := JTF_VARCHAR2_TABLE_100();
334 else
335 a0 := JTF_NUMBER_TABLE();
336 a1 := JTF_NUMBER_TABLE();
337 a2 := JTF_NUMBER_TABLE();
338 a3 := JTF_NUMBER_TABLE();
339 a4 := JTF_VARCHAR2_TABLE_100();
340 a5 := JTF_NUMBER_TABLE();
341 a6 := JTF_VARCHAR2_TABLE_100();
342 a7 := JTF_VARCHAR2_TABLE_200();
343 a8 := JTF_VARCHAR2_TABLE_200();
344 a9 := JTF_VARCHAR2_TABLE_200();
345 a10 := JTF_VARCHAR2_TABLE_200();
346 a11 := JTF_VARCHAR2_TABLE_200();
347 a12 := JTF_VARCHAR2_TABLE_200();
348 a13 := JTF_VARCHAR2_TABLE_200();
349 a14 := JTF_VARCHAR2_TABLE_200();
350 a15 := JTF_VARCHAR2_TABLE_200();
351 a16 := JTF_VARCHAR2_TABLE_200();
352 a17 := JTF_VARCHAR2_TABLE_200();
353 a18 := JTF_VARCHAR2_TABLE_200();
354 a19 := JTF_VARCHAR2_TABLE_200();
355 a20 := JTF_VARCHAR2_TABLE_200();
356 a21 := JTF_VARCHAR2_TABLE_200();
357 a22 := JTF_VARCHAR2_TABLE_100();
358 if t.count > 0 then
359 a0.extend(t.count);
360 a1.extend(t.count);
361 a2.extend(t.count);
362 a3.extend(t.count);
363 a4.extend(t.count);
364 a5.extend(t.count);
365 a6.extend(t.count);
366 a7.extend(t.count);
367 a8.extend(t.count);
368 a9.extend(t.count);
369 a10.extend(t.count);
370 a11.extend(t.count);
371 a12.extend(t.count);
372 a13.extend(t.count);
373 a14.extend(t.count);
374 a15.extend(t.count);
375 a16.extend(t.count);
376 a17.extend(t.count);
377 a18.extend(t.count);
378 a19.extend(t.count);
379 a20.extend(t.count);
380 a21.extend(t.count);
381 a22.extend(t.count);
382 ddindx := t.first;
383 indx := 1;
384 while true loop
385 a0(indx) := t(ddindx).mel_cdl_mo_procedure_id;
386 a1(indx) := t(ddindx).object_version_number;
387 a2(indx) := t(ddindx).ata_sequence_id;
388 a3(indx) := t(ddindx).mr_header_id;
389 a4(indx) := t(ddindx).mr_title;
390 a5(indx) := t(ddindx).mr_version_number;
391 a6(indx) := t(ddindx).attribute_category;
392 a7(indx) := t(ddindx).attribute1;
393 a8(indx) := t(ddindx).attribute2;
394 a9(indx) := t(ddindx).attribute3;
395 a10(indx) := t(ddindx).attribute4;
396 a11(indx) := t(ddindx).attribute5;
397 a12(indx) := t(ddindx).attribute6;
398 a13(indx) := t(ddindx).attribute7;
399 a14(indx) := t(ddindx).attribute8;
400 a15(indx) := t(ddindx).attribute9;
401 a16(indx) := t(ddindx).attribute10;
402 a17(indx) := t(ddindx).attribute11;
403 a18(indx) := t(ddindx).attribute12;
404 a19(indx) := t(ddindx).attribute13;
405 a20(indx) := t(ddindx).attribute14;
406 a21(indx) := t(ddindx).attribute15;
407 a22(indx) := t(ddindx).dml_operation;
408 indx := indx+1;
409 if t.last =ddindx
410 then exit;
411 end if;
412 ddindx := t.next(ddindx);
413 end loop;
414 end if;
415 end if;
416 end rosetta_table_copy_out_p5;
417
418 procedure rosetta_table_copy_in_p7(t out nocopy ahl_mel_cdl_ata_seqs_pvt.relationship_tbl_type, a0 JTF_NUMBER_TABLE
419 , a1 JTF_NUMBER_TABLE
420 , a2 JTF_NUMBER_TABLE
421 , a3 JTF_NUMBER_TABLE
422 , a4 JTF_VARCHAR2_TABLE_100
423 , a5 JTF_VARCHAR2_TABLE_200
424 , a6 JTF_VARCHAR2_TABLE_200
425 , a7 JTF_VARCHAR2_TABLE_200
426 , a8 JTF_VARCHAR2_TABLE_200
427 , a9 JTF_VARCHAR2_TABLE_200
428 , a10 JTF_VARCHAR2_TABLE_200
429 , a11 JTF_VARCHAR2_TABLE_200
430 , a12 JTF_VARCHAR2_TABLE_200
431 , a13 JTF_VARCHAR2_TABLE_200
432 , a14 JTF_VARCHAR2_TABLE_200
433 , a15 JTF_VARCHAR2_TABLE_200
434 , a16 JTF_VARCHAR2_TABLE_200
435 , a17 JTF_VARCHAR2_TABLE_200
436 , a18 JTF_VARCHAR2_TABLE_200
437 , a19 JTF_VARCHAR2_TABLE_200
438 , a20 JTF_VARCHAR2_TABLE_100
439 ) as
440 ddindx binary_integer; indx binary_integer;
441 begin
442 if a0 is not null and a0.count > 0 then
443 if a0.count > 0 then
444 indx := a0.first;
445 ddindx := 1;
446 while true loop
447 t(ddindx).mel_cdl_relationship_id := a0(indx);
448 t(ddindx).object_version_number := a1(indx);
449 t(ddindx).ata_sequence_id := a2(indx);
450 t(ddindx).related_ata_sequence_id := a3(indx);
451 t(ddindx).attribute_category := a4(indx);
452 t(ddindx).attribute1 := a5(indx);
453 t(ddindx).attribute2 := a6(indx);
454 t(ddindx).attribute3 := a7(indx);
455 t(ddindx).attribute4 := a8(indx);
456 t(ddindx).attribute5 := a9(indx);
457 t(ddindx).attribute6 := a10(indx);
458 t(ddindx).attribute7 := a11(indx);
459 t(ddindx).attribute8 := a12(indx);
460 t(ddindx).attribute9 := a13(indx);
461 t(ddindx).attribute10 := a14(indx);
462 t(ddindx).attribute11 := a15(indx);
463 t(ddindx).attribute12 := a16(indx);
464 t(ddindx).attribute13 := a17(indx);
465 t(ddindx).attribute14 := a18(indx);
466 t(ddindx).attribute15 := a19(indx);
467 t(ddindx).dml_operation := a20(indx);
471 end if;
468 ddindx := ddindx+1;
469 if a0.last =indx
470 then exit;
472 indx := a0.next(indx);
473 end loop;
474 end if;
475 end if;
476 end rosetta_table_copy_in_p7;
477 procedure rosetta_table_copy_out_p7(t ahl_mel_cdl_ata_seqs_pvt.relationship_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
478 , a1 out nocopy JTF_NUMBER_TABLE
479 , a2 out nocopy JTF_NUMBER_TABLE
480 , a3 out nocopy JTF_NUMBER_TABLE
481 , a4 out nocopy JTF_VARCHAR2_TABLE_100
482 , a5 out nocopy JTF_VARCHAR2_TABLE_200
483 , a6 out nocopy JTF_VARCHAR2_TABLE_200
484 , a7 out nocopy JTF_VARCHAR2_TABLE_200
485 , a8 out nocopy JTF_VARCHAR2_TABLE_200
486 , a9 out nocopy JTF_VARCHAR2_TABLE_200
487 , a10 out nocopy JTF_VARCHAR2_TABLE_200
488 , a11 out nocopy JTF_VARCHAR2_TABLE_200
489 , a12 out nocopy JTF_VARCHAR2_TABLE_200
490 , a13 out nocopy JTF_VARCHAR2_TABLE_200
491 , a14 out nocopy JTF_VARCHAR2_TABLE_200
492 , a15 out nocopy JTF_VARCHAR2_TABLE_200
493 , a16 out nocopy JTF_VARCHAR2_TABLE_200
494 , a17 out nocopy JTF_VARCHAR2_TABLE_200
495 , a18 out nocopy JTF_VARCHAR2_TABLE_200
496 , a19 out nocopy JTF_VARCHAR2_TABLE_200
497 , a20 out nocopy JTF_VARCHAR2_TABLE_100
498 ) as
499 ddindx binary_integer; indx binary_integer;
500 begin
501 if t is null or t.count = 0 then
502 a0 := JTF_NUMBER_TABLE();
503 a1 := JTF_NUMBER_TABLE();
504 a2 := JTF_NUMBER_TABLE();
505 a3 := JTF_NUMBER_TABLE();
506 a4 := JTF_VARCHAR2_TABLE_100();
507 a5 := JTF_VARCHAR2_TABLE_200();
508 a6 := JTF_VARCHAR2_TABLE_200();
509 a7 := JTF_VARCHAR2_TABLE_200();
510 a8 := JTF_VARCHAR2_TABLE_200();
511 a9 := JTF_VARCHAR2_TABLE_200();
512 a10 := JTF_VARCHAR2_TABLE_200();
513 a11 := JTF_VARCHAR2_TABLE_200();
514 a12 := JTF_VARCHAR2_TABLE_200();
515 a13 := JTF_VARCHAR2_TABLE_200();
516 a14 := JTF_VARCHAR2_TABLE_200();
517 a15 := JTF_VARCHAR2_TABLE_200();
518 a16 := JTF_VARCHAR2_TABLE_200();
519 a17 := JTF_VARCHAR2_TABLE_200();
520 a18 := JTF_VARCHAR2_TABLE_200();
521 a19 := JTF_VARCHAR2_TABLE_200();
522 a20 := JTF_VARCHAR2_TABLE_100();
523 else
524 a0 := JTF_NUMBER_TABLE();
525 a1 := JTF_NUMBER_TABLE();
526 a2 := JTF_NUMBER_TABLE();
527 a3 := JTF_NUMBER_TABLE();
528 a4 := JTF_VARCHAR2_TABLE_100();
529 a5 := JTF_VARCHAR2_TABLE_200();
530 a6 := JTF_VARCHAR2_TABLE_200();
531 a7 := JTF_VARCHAR2_TABLE_200();
532 a8 := JTF_VARCHAR2_TABLE_200();
533 a9 := JTF_VARCHAR2_TABLE_200();
534 a10 := JTF_VARCHAR2_TABLE_200();
535 a11 := JTF_VARCHAR2_TABLE_200();
536 a12 := JTF_VARCHAR2_TABLE_200();
537 a13 := JTF_VARCHAR2_TABLE_200();
538 a14 := JTF_VARCHAR2_TABLE_200();
539 a15 := JTF_VARCHAR2_TABLE_200();
540 a16 := JTF_VARCHAR2_TABLE_200();
541 a17 := JTF_VARCHAR2_TABLE_200();
542 a18 := JTF_VARCHAR2_TABLE_200();
543 a19 := JTF_VARCHAR2_TABLE_200();
544 a20 := JTF_VARCHAR2_TABLE_100();
545 if t.count > 0 then
546 a0.extend(t.count);
547 a1.extend(t.count);
548 a2.extend(t.count);
549 a3.extend(t.count);
550 a4.extend(t.count);
551 a5.extend(t.count);
552 a6.extend(t.count);
553 a7.extend(t.count);
554 a8.extend(t.count);
555 a9.extend(t.count);
556 a10.extend(t.count);
557 a11.extend(t.count);
558 a12.extend(t.count);
559 a13.extend(t.count);
560 a14.extend(t.count);
561 a15.extend(t.count);
562 a16.extend(t.count);
563 a17.extend(t.count);
564 a18.extend(t.count);
565 a19.extend(t.count);
566 a20.extend(t.count);
567 ddindx := t.first;
568 indx := 1;
569 while true loop
570 a0(indx) := t(ddindx).mel_cdl_relationship_id;
571 a1(indx) := t(ddindx).object_version_number;
572 a2(indx) := t(ddindx).ata_sequence_id;
573 a3(indx) := t(ddindx).related_ata_sequence_id;
574 a4(indx) := t(ddindx).attribute_category;
575 a5(indx) := t(ddindx).attribute1;
576 a6(indx) := t(ddindx).attribute2;
577 a7(indx) := t(ddindx).attribute3;
578 a8(indx) := t(ddindx).attribute4;
579 a9(indx) := t(ddindx).attribute5;
580 a10(indx) := t(ddindx).attribute6;
581 a11(indx) := t(ddindx).attribute7;
582 a12(indx) := t(ddindx).attribute8;
583 a13(indx) := t(ddindx).attribute9;
584 a14(indx) := t(ddindx).attribute10;
585 a15(indx) := t(ddindx).attribute11;
586 a16(indx) := t(ddindx).attribute12;
587 a17(indx) := t(ddindx).attribute13;
588 a18(indx) := t(ddindx).attribute14;
589 a19(indx) := t(ddindx).attribute15;
590 a20(indx) := t(ddindx).dml_operation;
591 indx := indx+1;
592 if t.last =ddindx
593 then exit;
594 end if;
595 ddindx := t.next(ddindx);
596 end loop;
597 end if;
598 end if;
599 end rosetta_table_copy_out_p7;
600
601 procedure process_ata_sequences(p_api_version NUMBER
602 , p_init_msg_list VARCHAR2
603 , p_commit VARCHAR2
604 , p_validation_level NUMBER
605 , p_default VARCHAR2
606 , p_module_type VARCHAR2
607 , x_return_status out nocopy VARCHAR2
608 , x_msg_count out nocopy NUMBER
609 , x_msg_data out nocopy VARCHAR2
610 , p9_a0 in out nocopy JTF_NUMBER_TABLE
611 , p9_a1 in out nocopy JTF_NUMBER_TABLE
615 , p9_a5 in out nocopy JTF_VARCHAR2_TABLE_100
612 , p9_a2 in out nocopy JTF_NUMBER_TABLE
613 , p9_a3 in out nocopy JTF_NUMBER_TABLE
614 , p9_a4 in out nocopy JTF_VARCHAR2_TABLE_100
616 , p9_a6 in out nocopy JTF_NUMBER_TABLE
617 , p9_a7 in out nocopy JTF_NUMBER_TABLE
618 , p9_a8 in out nocopy JTF_VARCHAR2_TABLE_100
619 , p9_a9 in out nocopy JTF_VARCHAR2_TABLE_200
620 , p9_a10 in out nocopy JTF_VARCHAR2_TABLE_200
621 , p9_a11 in out nocopy JTF_VARCHAR2_TABLE_200
622 , p9_a12 in out nocopy JTF_VARCHAR2_TABLE_200
623 , p9_a13 in out nocopy JTF_VARCHAR2_TABLE_200
624 , p9_a14 in out nocopy JTF_VARCHAR2_TABLE_200
625 , p9_a15 in out nocopy JTF_VARCHAR2_TABLE_200
626 , p9_a16 in out nocopy JTF_VARCHAR2_TABLE_200
627 , p9_a17 in out nocopy JTF_VARCHAR2_TABLE_200
628 , p9_a18 in out nocopy JTF_VARCHAR2_TABLE_200
629 , p9_a19 in out nocopy JTF_VARCHAR2_TABLE_200
630 , p9_a20 in out nocopy JTF_VARCHAR2_TABLE_200
631 , p9_a21 in out nocopy JTF_VARCHAR2_TABLE_200
632 , p9_a22 in out nocopy JTF_VARCHAR2_TABLE_200
633 , p9_a23 in out nocopy JTF_VARCHAR2_TABLE_200
634 , p9_a24 in out nocopy JTF_VARCHAR2_TABLE_32767
635 , p9_a25 in out nocopy JTF_VARCHAR2_TABLE_100
636 )
637
638 as
639 ddp_x_ata_sequences_tbl ahl_mel_cdl_ata_seqs_pvt.ata_sequence_tbl_type;
640 ddindx binary_integer; indx binary_integer;
641 begin
642
643 -- copy data to the local IN or IN-OUT args, if any
644
645
646
647
648
649
650
651
652
653 ahl_mel_cdl_ata_seqs_pvt_w.rosetta_table_copy_in_p3(ddp_x_ata_sequences_tbl, p9_a0
654 , p9_a1
655 , p9_a2
656 , p9_a3
657 , p9_a4
658 , p9_a5
659 , p9_a6
660 , p9_a7
661 , p9_a8
662 , p9_a9
663 , p9_a10
664 , p9_a11
665 , p9_a12
666 , p9_a13
667 , p9_a14
668 , p9_a15
669 , p9_a16
670 , p9_a17
671 , p9_a18
672 , p9_a19
673 , p9_a20
674 , p9_a21
675 , p9_a22
676 , p9_a23
677 , p9_a24
678 , p9_a25
679 );
680
681 -- here's the delegated call to the old PL/SQL routine
682 ahl_mel_cdl_ata_seqs_pvt.process_ata_sequences(p_api_version,
683 p_init_msg_list,
684 p_commit,
685 p_validation_level,
686 p_default,
687 p_module_type,
688 x_return_status,
689 x_msg_count,
690 x_msg_data,
691 ddp_x_ata_sequences_tbl);
692
693 -- copy data back from the local variables to OUT or IN-OUT args, if any
694
695
696
697
698
699
700
701
702
703 ahl_mel_cdl_ata_seqs_pvt_w.rosetta_table_copy_out_p3(ddp_x_ata_sequences_tbl, p9_a0
704 , p9_a1
705 , p9_a2
706 , p9_a3
707 , p9_a4
708 , p9_a5
709 , p9_a6
710 , p9_a7
711 , p9_a8
712 , p9_a9
713 , p9_a10
714 , p9_a11
715 , p9_a12
716 , p9_a13
717 , p9_a14
718 , p9_a15
719 , p9_a16
720 , p9_a17
721 , p9_a18
722 , p9_a19
723 , p9_a20
724 , p9_a21
725 , p9_a22
726 , p9_a23
727 , p9_a24
728 , p9_a25
729 );
730 end;
731
732 procedure process_mo_procedures(p_api_version NUMBER
733 , p_init_msg_list VARCHAR2
734 , p_commit VARCHAR2
735 , p_validation_level NUMBER
736 , p_default VARCHAR2
737 , p_module_type VARCHAR2
738 , x_return_status out nocopy VARCHAR2
739 , x_msg_count out nocopy NUMBER
740 , x_msg_data out nocopy VARCHAR2
741 , p9_a0 in out nocopy JTF_NUMBER_TABLE
742 , p9_a1 in out nocopy JTF_NUMBER_TABLE
743 , p9_a2 in out nocopy JTF_NUMBER_TABLE
744 , p9_a3 in out nocopy JTF_NUMBER_TABLE
745 , p9_a4 in out nocopy JTF_VARCHAR2_TABLE_100
746 , p9_a5 in out nocopy JTF_NUMBER_TABLE
747 , p9_a6 in out nocopy JTF_VARCHAR2_TABLE_100
748 , p9_a7 in out nocopy JTF_VARCHAR2_TABLE_200
749 , p9_a8 in out nocopy JTF_VARCHAR2_TABLE_200
750 , p9_a9 in out nocopy JTF_VARCHAR2_TABLE_200
751 , p9_a10 in out nocopy JTF_VARCHAR2_TABLE_200
752 , p9_a11 in out nocopy JTF_VARCHAR2_TABLE_200
753 , p9_a12 in out nocopy JTF_VARCHAR2_TABLE_200
754 , p9_a13 in out nocopy JTF_VARCHAR2_TABLE_200
755 , p9_a14 in out nocopy JTF_VARCHAR2_TABLE_200
756 , p9_a15 in out nocopy JTF_VARCHAR2_TABLE_200
757 , p9_a16 in out nocopy JTF_VARCHAR2_TABLE_200
758 , p9_a17 in out nocopy JTF_VARCHAR2_TABLE_200
759 , p9_a18 in out nocopy JTF_VARCHAR2_TABLE_200
760 , p9_a19 in out nocopy JTF_VARCHAR2_TABLE_200
761 , p9_a20 in out nocopy JTF_VARCHAR2_TABLE_200
762 , p9_a21 in out nocopy JTF_VARCHAR2_TABLE_200
763 , p9_a22 in out nocopy JTF_VARCHAR2_TABLE_100
764 )
765
766 as
767 ddp_x_mo_procedures_tbl ahl_mel_cdl_ata_seqs_pvt.mo_procedure_tbl_type;
768 ddindx binary_integer; indx binary_integer;
769 begin
770
771 -- copy data to the local IN or IN-OUT args, if any
772
773
774
775
776
777
778
779
780
781 ahl_mel_cdl_ata_seqs_pvt_w.rosetta_table_copy_in_p5(ddp_x_mo_procedures_tbl, p9_a0
782 , p9_a1
783 , p9_a2
784 , p9_a3
785 , p9_a4
786 , p9_a5
787 , p9_a6
788 , p9_a7
789 , p9_a8
790 , p9_a9
791 , p9_a10
795 , p9_a14
792 , p9_a11
793 , p9_a12
794 , p9_a13
796 , p9_a15
797 , p9_a16
798 , p9_a17
799 , p9_a18
800 , p9_a19
801 , p9_a20
802 , p9_a21
803 , p9_a22
804 );
805
806 -- here's the delegated call to the old PL/SQL routine
807 ahl_mel_cdl_ata_seqs_pvt.process_mo_procedures(p_api_version,
808 p_init_msg_list,
809 p_commit,
810 p_validation_level,
811 p_default,
812 p_module_type,
813 x_return_status,
814 x_msg_count,
815 x_msg_data,
816 ddp_x_mo_procedures_tbl);
817
818 -- copy data back from the local variables to OUT or IN-OUT args, if any
819
820
821
822
823
824
825
826
827
828 ahl_mel_cdl_ata_seqs_pvt_w.rosetta_table_copy_out_p5(ddp_x_mo_procedures_tbl, p9_a0
829 , p9_a1
830 , p9_a2
831 , p9_a3
832 , p9_a4
833 , p9_a5
834 , p9_a6
835 , p9_a7
836 , p9_a8
837 , p9_a9
838 , p9_a10
839 , p9_a11
840 , p9_a12
841 , p9_a13
842 , p9_a14
843 , p9_a15
844 , p9_a16
845 , p9_a17
846 , p9_a18
847 , p9_a19
848 , p9_a20
849 , p9_a21
850 , p9_a22
851 );
852 end;
853
854 procedure process_ata_relations(p_api_version NUMBER
855 , p_init_msg_list VARCHAR2
856 , p_commit VARCHAR2
857 , p_validation_level NUMBER
858 , p_default VARCHAR2
859 , p_module_type VARCHAR2
860 , x_return_status out nocopy VARCHAR2
861 , x_msg_count out nocopy NUMBER
862 , x_msg_data out nocopy VARCHAR2
863 , p9_a0 in out nocopy JTF_NUMBER_TABLE
864 , p9_a1 in out nocopy JTF_NUMBER_TABLE
865 , p9_a2 in out nocopy JTF_NUMBER_TABLE
866 , p9_a3 in out nocopy JTF_NUMBER_TABLE
867 , p9_a4 in out nocopy JTF_VARCHAR2_TABLE_100
868 , p9_a5 in out nocopy JTF_VARCHAR2_TABLE_200
869 , p9_a6 in out nocopy JTF_VARCHAR2_TABLE_200
870 , p9_a7 in out nocopy JTF_VARCHAR2_TABLE_200
871 , p9_a8 in out nocopy JTF_VARCHAR2_TABLE_200
872 , p9_a9 in out nocopy JTF_VARCHAR2_TABLE_200
873 , p9_a10 in out nocopy JTF_VARCHAR2_TABLE_200
874 , p9_a11 in out nocopy JTF_VARCHAR2_TABLE_200
875 , p9_a12 in out nocopy JTF_VARCHAR2_TABLE_200
876 , p9_a13 in out nocopy JTF_VARCHAR2_TABLE_200
877 , p9_a14 in out nocopy JTF_VARCHAR2_TABLE_200
878 , p9_a15 in out nocopy JTF_VARCHAR2_TABLE_200
879 , p9_a16 in out nocopy JTF_VARCHAR2_TABLE_200
880 , p9_a17 in out nocopy JTF_VARCHAR2_TABLE_200
881 , p9_a18 in out nocopy JTF_VARCHAR2_TABLE_200
882 , p9_a19 in out nocopy JTF_VARCHAR2_TABLE_200
883 , p9_a20 in out nocopy JTF_VARCHAR2_TABLE_100
884 )
885
886 as
887 ddp_x_ata_relations_tbl ahl_mel_cdl_ata_seqs_pvt.relationship_tbl_type;
888 ddindx binary_integer; indx binary_integer;
889 begin
890
891 -- copy data to the local IN or IN-OUT args, if any
892
893
894
895
896
897
898
899
900
901 ahl_mel_cdl_ata_seqs_pvt_w.rosetta_table_copy_in_p7(ddp_x_ata_relations_tbl, p9_a0
902 , p9_a1
903 , p9_a2
904 , p9_a3
905 , p9_a4
906 , p9_a5
907 , p9_a6
908 , p9_a7
909 , p9_a8
910 , p9_a9
911 , p9_a10
912 , p9_a11
913 , p9_a12
914 , p9_a13
915 , p9_a14
916 , p9_a15
917 , p9_a16
918 , p9_a17
919 , p9_a18
920 , p9_a19
921 , p9_a20
922 );
923
924 -- here's the delegated call to the old PL/SQL routine
925 ahl_mel_cdl_ata_seqs_pvt.process_ata_relations(p_api_version,
926 p_init_msg_list,
927 p_commit,
928 p_validation_level,
929 p_default,
930 p_module_type,
931 x_return_status,
932 x_msg_count,
933 x_msg_data,
934 ddp_x_ata_relations_tbl);
935
936 -- copy data back from the local variables to OUT or IN-OUT args, if any
937
938
939
940
941
942
943
944
945
946 ahl_mel_cdl_ata_seqs_pvt_w.rosetta_table_copy_out_p7(ddp_x_ata_relations_tbl, p9_a0
947 , p9_a1
948 , p9_a2
949 , p9_a3
950 , p9_a4
951 , p9_a5
952 , p9_a6
953 , p9_a7
954 , p9_a8
955 , p9_a9
956 , p9_a10
957 , p9_a11
958 , p9_a12
959 , p9_a13
960 , p9_a14
961 , p9_a15
962 , p9_a16
963 , p9_a17
964 , p9_a18
965 , p9_a19
966 , p9_a20
967 );
968 end;
969
970 end ahl_mel_cdl_ata_seqs_pvt_w;