[Home] [Help]
PACKAGE BODY: APPS.EAM_PROCESS_PERMIT_PUB_W
Source
1 package body eam_process_permit_pub_w as
2 /* $Header: EAMVWPRB.pls 120.0.12010000.2 2010/03/23 00:35:21 mashah noship $ */
3 procedure rosetta_table_copy_in_p2(t out nocopy eam_process_permit_pub.eam_wp_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_VARCHAR2_TABLE_300
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_VARCHAR2_TABLE_300
11 , a8 JTF_NUMBER_TABLE
12 , a9 JTF_NUMBER_TABLE
13 , a10 JTF_DATE_TABLE
14 , a11 JTF_DATE_TABLE
15 , a12 JTF_VARCHAR2_TABLE_100
16 , a13 JTF_DATE_TABLE
17 , a14 JTF_NUMBER_TABLE
18 , a15 JTF_VARCHAR2_TABLE_100
19 , a16 JTF_VARCHAR2_TABLE_300
20 , a17 JTF_VARCHAR2_TABLE_300
21 , a18 JTF_VARCHAR2_TABLE_300
22 , a19 JTF_VARCHAR2_TABLE_300
23 , a20 JTF_VARCHAR2_TABLE_300
24 , a21 JTF_VARCHAR2_TABLE_300
25 , a22 JTF_VARCHAR2_TABLE_300
26 , a23 JTF_VARCHAR2_TABLE_300
27 , a24 JTF_VARCHAR2_TABLE_300
28 , a25 JTF_VARCHAR2_TABLE_300
29 , a26 JTF_VARCHAR2_TABLE_300
30 , a27 JTF_VARCHAR2_TABLE_300
31 , a28 JTF_VARCHAR2_TABLE_300
32 , a29 JTF_VARCHAR2_TABLE_300
33 , a30 JTF_VARCHAR2_TABLE_300
34 , a31 JTF_VARCHAR2_TABLE_300
35 , a32 JTF_VARCHAR2_TABLE_300
36 , a33 JTF_VARCHAR2_TABLE_300
37 , a34 JTF_VARCHAR2_TABLE_300
38 , a35 JTF_VARCHAR2_TABLE_300
39 , a36 JTF_VARCHAR2_TABLE_300
40 , a37 JTF_VARCHAR2_TABLE_300
41 , a38 JTF_VARCHAR2_TABLE_300
42 , a39 JTF_VARCHAR2_TABLE_300
43 , a40 JTF_VARCHAR2_TABLE_300
44 , a41 JTF_VARCHAR2_TABLE_300
45 , a42 JTF_VARCHAR2_TABLE_300
46 , a43 JTF_VARCHAR2_TABLE_300
47 , a44 JTF_VARCHAR2_TABLE_300
48 , a45 JTF_VARCHAR2_TABLE_300
49 , a46 JTF_NUMBER_TABLE
50 , a47 JTF_NUMBER_TABLE
51 , a48 JTF_DATE_TABLE
52 , a49 JTF_NUMBER_TABLE
53 , a50 JTF_NUMBER_TABLE
54 ) as
55 ddindx binary_integer; indx binary_integer;
56 begin
57 if a0 is not null and a0.count > 0 then
58 if a0.count > 0 then
59 indx := a0.first;
60 ddindx := 1;
61 while true loop
62 t(ddindx).header_id := a0(indx);
63 t(ddindx).batch_id := a1(indx);
64 t(ddindx).row_id := a2(indx);
65 t(ddindx).transaction_type := a3(indx);
66 t(ddindx).permit_id := a4(indx);
67 t(ddindx).permit_name := a5(indx);
68 t(ddindx).permit_type := a6(indx);
69 t(ddindx).description := a7(indx);
70 t(ddindx).organization_id := a8(indx);
71 t(ddindx).status_type := a9(indx);
72 t(ddindx).valid_from := a10(indx);
73 t(ddindx).valid_to := a11(indx);
74 t(ddindx).pending_flag := a12(indx);
75 t(ddindx).completion_date := a13(indx);
76 t(ddindx).user_defined_status_id := a14(indx);
77 t(ddindx).attribute_category := a15(indx);
78 t(ddindx).attribute1 := a16(indx);
79 t(ddindx).attribute2 := a17(indx);
80 t(ddindx).attribute3 := a18(indx);
81 t(ddindx).attribute4 := a19(indx);
82 t(ddindx).attribute5 := a20(indx);
83 t(ddindx).attribute6 := a21(indx);
84 t(ddindx).attribute7 := a22(indx);
85 t(ddindx).attribute8 := a23(indx);
86 t(ddindx).attribute9 := a24(indx);
87 t(ddindx).attribute10 := a25(indx);
88 t(ddindx).attribute11 := a26(indx);
89 t(ddindx).attribute12 := a27(indx);
90 t(ddindx).attribute13 := a28(indx);
91 t(ddindx).attribute14 := a29(indx);
92 t(ddindx).attribute15 := a30(indx);
93 t(ddindx).attribute16 := a31(indx);
94 t(ddindx).attribute17 := a32(indx);
95 t(ddindx).attribute18 := a33(indx);
96 t(ddindx).attribute19 := a34(indx);
97 t(ddindx).attribute20 := a35(indx);
98 t(ddindx).attribute21 := a36(indx);
99 t(ddindx).attribute22 := a37(indx);
100 t(ddindx).attribute23 := a38(indx);
101 t(ddindx).attribute24 := a39(indx);
102 t(ddindx).attribute25 := a40(indx);
103 t(ddindx).attribute26 := a41(indx);
104 t(ddindx).attribute27 := a42(indx);
105 t(ddindx).attribute28 := a43(indx);
106 t(ddindx).attribute29 := a44(indx);
107 t(ddindx).attribute30 := a45(indx);
108 t(ddindx).approved_by := a46(indx);
109 t(ddindx).created_by := a47(indx);
110 t(ddindx).creation_date := a48(indx);
111 t(ddindx).user_id := a49(indx);
112 t(ddindx).responsibility_id := a50(indx);
113 ddindx := ddindx+1;
114 if a0.last =indx
115 then exit;
116 end if;
117 indx := a0.next(indx);
118 end loop;
119 end if;
120 end if;
121 end rosetta_table_copy_in_p2;
122 procedure rosetta_table_copy_out_p2(t eam_process_permit_pub.eam_wp_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
123 , a1 out nocopy JTF_NUMBER_TABLE
124 , a2 out nocopy JTF_NUMBER_TABLE
125 , a3 out nocopy JTF_NUMBER_TABLE
126 , a4 out nocopy JTF_NUMBER_TABLE
127 , a5 out nocopy JTF_VARCHAR2_TABLE_300
128 , a6 out nocopy JTF_NUMBER_TABLE
129 , a7 out nocopy JTF_VARCHAR2_TABLE_300
130 , a8 out nocopy JTF_NUMBER_TABLE
131 , a9 out nocopy JTF_NUMBER_TABLE
132 , a10 out nocopy JTF_DATE_TABLE
133 , a11 out nocopy JTF_DATE_TABLE
134 , a12 out nocopy JTF_VARCHAR2_TABLE_100
135 , a13 out nocopy JTF_DATE_TABLE
136 , a14 out nocopy JTF_NUMBER_TABLE
137 , a15 out nocopy JTF_VARCHAR2_TABLE_100
138 , a16 out nocopy JTF_VARCHAR2_TABLE_300
139 , a17 out nocopy JTF_VARCHAR2_TABLE_300
140 , a18 out nocopy JTF_VARCHAR2_TABLE_300
141 , a19 out nocopy JTF_VARCHAR2_TABLE_300
142 , a20 out nocopy JTF_VARCHAR2_TABLE_300
143 , a21 out nocopy JTF_VARCHAR2_TABLE_300
144 , a22 out nocopy JTF_VARCHAR2_TABLE_300
145 , a23 out nocopy JTF_VARCHAR2_TABLE_300
146 , a24 out nocopy JTF_VARCHAR2_TABLE_300
147 , a25 out nocopy JTF_VARCHAR2_TABLE_300
148 , a26 out nocopy JTF_VARCHAR2_TABLE_300
149 , a27 out nocopy JTF_VARCHAR2_TABLE_300
150 , a28 out nocopy JTF_VARCHAR2_TABLE_300
151 , a29 out nocopy JTF_VARCHAR2_TABLE_300
152 , a30 out nocopy JTF_VARCHAR2_TABLE_300
153 , a31 out nocopy JTF_VARCHAR2_TABLE_300
154 , a32 out nocopy JTF_VARCHAR2_TABLE_300
155 , a33 out nocopy JTF_VARCHAR2_TABLE_300
156 , a34 out nocopy JTF_VARCHAR2_TABLE_300
157 , a35 out nocopy JTF_VARCHAR2_TABLE_300
158 , a36 out nocopy JTF_VARCHAR2_TABLE_300
159 , a37 out nocopy JTF_VARCHAR2_TABLE_300
160 , a38 out nocopy JTF_VARCHAR2_TABLE_300
161 , a39 out nocopy JTF_VARCHAR2_TABLE_300
162 , a40 out nocopy JTF_VARCHAR2_TABLE_300
163 , a41 out nocopy JTF_VARCHAR2_TABLE_300
164 , a42 out nocopy JTF_VARCHAR2_TABLE_300
165 , a43 out nocopy JTF_VARCHAR2_TABLE_300
166 , a44 out nocopy JTF_VARCHAR2_TABLE_300
167 , a45 out nocopy JTF_VARCHAR2_TABLE_300
168 , a46 out nocopy JTF_NUMBER_TABLE
169 , a47 out nocopy JTF_NUMBER_TABLE
170 , a48 out nocopy JTF_DATE_TABLE
171 , a49 out nocopy JTF_NUMBER_TABLE
172 , a50 out nocopy JTF_NUMBER_TABLE
173 ) as
174 ddindx binary_integer; indx binary_integer;
175 begin
176 if t is null or t.count = 0 then
177 a0 := JTF_NUMBER_TABLE();
178 a1 := JTF_NUMBER_TABLE();
179 a2 := JTF_NUMBER_TABLE();
180 a3 := JTF_NUMBER_TABLE();
181 a4 := JTF_NUMBER_TABLE();
182 a5 := JTF_VARCHAR2_TABLE_300();
183 a6 := JTF_NUMBER_TABLE();
184 a7 := JTF_VARCHAR2_TABLE_300();
185 a8 := JTF_NUMBER_TABLE();
186 a9 := JTF_NUMBER_TABLE();
187 a10 := JTF_DATE_TABLE();
188 a11 := JTF_DATE_TABLE();
189 a12 := JTF_VARCHAR2_TABLE_100();
190 a13 := JTF_DATE_TABLE();
191 a14 := JTF_NUMBER_TABLE();
192 a15 := JTF_VARCHAR2_TABLE_100();
193 a16 := JTF_VARCHAR2_TABLE_300();
194 a17 := JTF_VARCHAR2_TABLE_300();
195 a18 := JTF_VARCHAR2_TABLE_300();
196 a19 := JTF_VARCHAR2_TABLE_300();
197 a20 := JTF_VARCHAR2_TABLE_300();
198 a21 := JTF_VARCHAR2_TABLE_300();
199 a22 := JTF_VARCHAR2_TABLE_300();
200 a23 := JTF_VARCHAR2_TABLE_300();
201 a24 := JTF_VARCHAR2_TABLE_300();
202 a25 := JTF_VARCHAR2_TABLE_300();
203 a26 := JTF_VARCHAR2_TABLE_300();
204 a27 := JTF_VARCHAR2_TABLE_300();
205 a28 := JTF_VARCHAR2_TABLE_300();
206 a29 := JTF_VARCHAR2_TABLE_300();
207 a30 := JTF_VARCHAR2_TABLE_300();
208 a31 := JTF_VARCHAR2_TABLE_300();
209 a32 := JTF_VARCHAR2_TABLE_300();
210 a33 := JTF_VARCHAR2_TABLE_300();
211 a34 := JTF_VARCHAR2_TABLE_300();
212 a35 := JTF_VARCHAR2_TABLE_300();
213 a36 := JTF_VARCHAR2_TABLE_300();
214 a37 := JTF_VARCHAR2_TABLE_300();
215 a38 := JTF_VARCHAR2_TABLE_300();
216 a39 := JTF_VARCHAR2_TABLE_300();
217 a40 := JTF_VARCHAR2_TABLE_300();
218 a41 := JTF_VARCHAR2_TABLE_300();
219 a42 := JTF_VARCHAR2_TABLE_300();
220 a43 := JTF_VARCHAR2_TABLE_300();
221 a44 := JTF_VARCHAR2_TABLE_300();
222 a45 := JTF_VARCHAR2_TABLE_300();
223 a46 := JTF_NUMBER_TABLE();
224 a47 := JTF_NUMBER_TABLE();
225 a48 := JTF_DATE_TABLE();
226 a49 := JTF_NUMBER_TABLE();
227 a50 := JTF_NUMBER_TABLE();
228 else
229 a0 := JTF_NUMBER_TABLE();
230 a1 := JTF_NUMBER_TABLE();
231 a2 := JTF_NUMBER_TABLE();
232 a3 := JTF_NUMBER_TABLE();
233 a4 := JTF_NUMBER_TABLE();
234 a5 := JTF_VARCHAR2_TABLE_300();
235 a6 := JTF_NUMBER_TABLE();
236 a7 := JTF_VARCHAR2_TABLE_300();
237 a8 := JTF_NUMBER_TABLE();
238 a9 := JTF_NUMBER_TABLE();
239 a10 := JTF_DATE_TABLE();
240 a11 := JTF_DATE_TABLE();
241 a12 := JTF_VARCHAR2_TABLE_100();
242 a13 := JTF_DATE_TABLE();
243 a14 := JTF_NUMBER_TABLE();
244 a15 := JTF_VARCHAR2_TABLE_100();
245 a16 := JTF_VARCHAR2_TABLE_300();
246 a17 := JTF_VARCHAR2_TABLE_300();
247 a18 := JTF_VARCHAR2_TABLE_300();
248 a19 := JTF_VARCHAR2_TABLE_300();
249 a20 := JTF_VARCHAR2_TABLE_300();
250 a21 := JTF_VARCHAR2_TABLE_300();
251 a22 := JTF_VARCHAR2_TABLE_300();
252 a23 := JTF_VARCHAR2_TABLE_300();
253 a24 := JTF_VARCHAR2_TABLE_300();
254 a25 := JTF_VARCHAR2_TABLE_300();
255 a26 := JTF_VARCHAR2_TABLE_300();
256 a27 := JTF_VARCHAR2_TABLE_300();
257 a28 := JTF_VARCHAR2_TABLE_300();
258 a29 := JTF_VARCHAR2_TABLE_300();
259 a30 := JTF_VARCHAR2_TABLE_300();
260 a31 := JTF_VARCHAR2_TABLE_300();
261 a32 := JTF_VARCHAR2_TABLE_300();
262 a33 := JTF_VARCHAR2_TABLE_300();
263 a34 := JTF_VARCHAR2_TABLE_300();
264 a35 := JTF_VARCHAR2_TABLE_300();
265 a36 := JTF_VARCHAR2_TABLE_300();
266 a37 := JTF_VARCHAR2_TABLE_300();
267 a38 := JTF_VARCHAR2_TABLE_300();
268 a39 := JTF_VARCHAR2_TABLE_300();
269 a40 := JTF_VARCHAR2_TABLE_300();
270 a41 := JTF_VARCHAR2_TABLE_300();
271 a42 := JTF_VARCHAR2_TABLE_300();
272 a43 := JTF_VARCHAR2_TABLE_300();
273 a44 := JTF_VARCHAR2_TABLE_300();
274 a45 := JTF_VARCHAR2_TABLE_300();
275 a46 := JTF_NUMBER_TABLE();
276 a47 := JTF_NUMBER_TABLE();
277 a48 := JTF_DATE_TABLE();
278 a49 := JTF_NUMBER_TABLE();
279 a50 := JTF_NUMBER_TABLE();
280 if t.count > 0 then
281 a0.extend(t.count);
282 a1.extend(t.count);
283 a2.extend(t.count);
284 a3.extend(t.count);
285 a4.extend(t.count);
286 a5.extend(t.count);
287 a6.extend(t.count);
288 a7.extend(t.count);
289 a8.extend(t.count);
290 a9.extend(t.count);
291 a10.extend(t.count);
292 a11.extend(t.count);
293 a12.extend(t.count);
294 a13.extend(t.count);
295 a14.extend(t.count);
296 a15.extend(t.count);
297 a16.extend(t.count);
298 a17.extend(t.count);
299 a18.extend(t.count);
300 a19.extend(t.count);
301 a20.extend(t.count);
302 a21.extend(t.count);
303 a22.extend(t.count);
304 a23.extend(t.count);
305 a24.extend(t.count);
306 a25.extend(t.count);
307 a26.extend(t.count);
308 a27.extend(t.count);
309 a28.extend(t.count);
310 a29.extend(t.count);
311 a30.extend(t.count);
312 a31.extend(t.count);
313 a32.extend(t.count);
314 a33.extend(t.count);
315 a34.extend(t.count);
316 a35.extend(t.count);
317 a36.extend(t.count);
318 a37.extend(t.count);
319 a38.extend(t.count);
320 a39.extend(t.count);
321 a40.extend(t.count);
322 a41.extend(t.count);
326 a45.extend(t.count);
323 a42.extend(t.count);
324 a43.extend(t.count);
325 a44.extend(t.count);
327 a46.extend(t.count);
328 a47.extend(t.count);
329 a48.extend(t.count);
330 a49.extend(t.count);
331 a50.extend(t.count);
332 ddindx := t.first;
333 indx := 1;
334 while true loop
335 a0(indx) := t(ddindx).header_id;
336 a1(indx) := t(ddindx).batch_id;
337 a2(indx) := t(ddindx).row_id;
338 a3(indx) := t(ddindx).transaction_type;
339 a4(indx) := t(ddindx).permit_id;
340 a5(indx) := t(ddindx).permit_name;
341 a6(indx) := t(ddindx).permit_type;
342 a7(indx) := t(ddindx).description;
343 a8(indx) := t(ddindx).organization_id;
344 a9(indx) := t(ddindx).status_type;
345 a10(indx) := t(ddindx).valid_from;
346 a11(indx) := t(ddindx).valid_to;
347 a12(indx) := t(ddindx).pending_flag;
348 a13(indx) := t(ddindx).completion_date;
349 a14(indx) := t(ddindx).user_defined_status_id;
350 a15(indx) := t(ddindx).attribute_category;
351 a16(indx) := t(ddindx).attribute1;
352 a17(indx) := t(ddindx).attribute2;
353 a18(indx) := t(ddindx).attribute3;
354 a19(indx) := t(ddindx).attribute4;
355 a20(indx) := t(ddindx).attribute5;
356 a21(indx) := t(ddindx).attribute6;
357 a22(indx) := t(ddindx).attribute7;
358 a23(indx) := t(ddindx).attribute8;
359 a24(indx) := t(ddindx).attribute9;
360 a25(indx) := t(ddindx).attribute10;
361 a26(indx) := t(ddindx).attribute11;
362 a27(indx) := t(ddindx).attribute12;
363 a28(indx) := t(ddindx).attribute13;
364 a29(indx) := t(ddindx).attribute14;
365 a30(indx) := t(ddindx).attribute15;
366 a31(indx) := t(ddindx).attribute16;
367 a32(indx) := t(ddindx).attribute17;
368 a33(indx) := t(ddindx).attribute18;
369 a34(indx) := t(ddindx).attribute19;
370 a35(indx) := t(ddindx).attribute20;
371 a36(indx) := t(ddindx).attribute21;
372 a37(indx) := t(ddindx).attribute22;
373 a38(indx) := t(ddindx).attribute23;
374 a39(indx) := t(ddindx).attribute24;
375 a40(indx) := t(ddindx).attribute25;
376 a41(indx) := t(ddindx).attribute26;
377 a42(indx) := t(ddindx).attribute27;
378 a43(indx) := t(ddindx).attribute28;
379 a44(indx) := t(ddindx).attribute29;
380 a45(indx) := t(ddindx).attribute30;
381 a46(indx) := t(ddindx).approved_by;
382 a47(indx) := t(ddindx).created_by;
383 a48(indx) := t(ddindx).creation_date;
384 a49(indx) := t(ddindx).user_id;
385 a50(indx) := t(ddindx).responsibility_id;
386 indx := indx+1;
387 if t.last =ddindx
388 then exit;
389 end if;
390 ddindx := t.next(ddindx);
391 end loop;
392 end if;
393 end if;
394 end rosetta_table_copy_out_p2;
395
396 procedure rosetta_table_copy_in_p3(t out nocopy eam_process_permit_pub.eam_wp_association_tbl_type, a0 JTF_NUMBER_TABLE
397 , a1 JTF_NUMBER_TABLE
398 , a2 JTF_NUMBER_TABLE
399 , a3 JTF_NUMBER_TABLE
400 , a4 JTF_NUMBER_TABLE
401 , a5 JTF_NUMBER_TABLE
402 , a6 JTF_NUMBER_TABLE
403 , a7 JTF_NUMBER_TABLE
404 , a8 JTF_VARCHAR2_TABLE_100
405 , a9 JTF_VARCHAR2_TABLE_300
406 , a10 JTF_VARCHAR2_TABLE_300
407 , a11 JTF_VARCHAR2_TABLE_300
408 , a12 JTF_VARCHAR2_TABLE_300
409 , a13 JTF_VARCHAR2_TABLE_300
410 , a14 JTF_VARCHAR2_TABLE_300
411 , a15 JTF_VARCHAR2_TABLE_300
412 , a16 JTF_VARCHAR2_TABLE_300
413 , a17 JTF_VARCHAR2_TABLE_300
414 , a18 JTF_VARCHAR2_TABLE_300
415 , a19 JTF_VARCHAR2_TABLE_300
416 , a20 JTF_VARCHAR2_TABLE_300
417 , a21 JTF_VARCHAR2_TABLE_300
418 , a22 JTF_VARCHAR2_TABLE_300
419 , a23 JTF_VARCHAR2_TABLE_300
420 , a24 JTF_VARCHAR2_TABLE_300
421 , a25 JTF_VARCHAR2_TABLE_300
422 , a26 JTF_VARCHAR2_TABLE_300
423 , a27 JTF_VARCHAR2_TABLE_300
424 , a28 JTF_VARCHAR2_TABLE_300
425 , a29 JTF_VARCHAR2_TABLE_300
426 , a30 JTF_VARCHAR2_TABLE_300
427 , a31 JTF_VARCHAR2_TABLE_300
428 , a32 JTF_VARCHAR2_TABLE_300
429 , a33 JTF_VARCHAR2_TABLE_300
430 , a34 JTF_VARCHAR2_TABLE_300
431 , a35 JTF_VARCHAR2_TABLE_300
432 , a36 JTF_VARCHAR2_TABLE_300
433 , a37 JTF_VARCHAR2_TABLE_300
434 , a38 JTF_VARCHAR2_TABLE_300
435 , a39 JTF_NUMBER_TABLE
436 , a40 JTF_DATE_TABLE
437 ) as
438 ddindx binary_integer; indx binary_integer;
439 begin
440 if a0 is not null and a0.count > 0 then
441 if a0.count > 0 then
442 indx := a0.first;
443 ddindx := 1;
444 while true loop
445 t(ddindx).header_id := a0(indx);
446 t(ddindx).batch_id := a1(indx);
447 t(ddindx).row_id := a2(indx);
448 t(ddindx).transaction_type := a3(indx);
449 t(ddindx).safety_association_id := a4(indx);
450 t(ddindx).source_id := a5(indx);
451 t(ddindx).target_ref_id := a6(indx);
452 t(ddindx).association_type := a7(indx);
453 t(ddindx).attribute_category := a8(indx);
454 t(ddindx).attribute1 := a9(indx);
455 t(ddindx).attribute2 := a10(indx);
456 t(ddindx).attribute3 := a11(indx);
457 t(ddindx).attribute4 := a12(indx);
458 t(ddindx).attribute5 := a13(indx);
459 t(ddindx).attribute6 := a14(indx);
460 t(ddindx).attribute7 := a15(indx);
461 t(ddindx).attribute8 := a16(indx);
462 t(ddindx).attribute9 := a17(indx);
466 t(ddindx).attribute13 := a21(indx);
463 t(ddindx).attribute10 := a18(indx);
464 t(ddindx).attribute11 := a19(indx);
465 t(ddindx).attribute12 := a20(indx);
467 t(ddindx).attribute14 := a22(indx);
468 t(ddindx).attribute15 := a23(indx);
469 t(ddindx).attribute16 := a24(indx);
470 t(ddindx).attribute17 := a25(indx);
471 t(ddindx).attribute18 := a26(indx);
472 t(ddindx).attribute19 := a27(indx);
473 t(ddindx).attribute20 := a28(indx);
474 t(ddindx).attribute21 := a29(indx);
475 t(ddindx).attribute22 := a30(indx);
476 t(ddindx).attribute23 := a31(indx);
477 t(ddindx).attribute24 := a32(indx);
478 t(ddindx).attribute25 := a33(indx);
479 t(ddindx).attribute26 := a34(indx);
480 t(ddindx).attribute27 := a35(indx);
481 t(ddindx).attribute28 := a36(indx);
482 t(ddindx).attribute29 := a37(indx);
483 t(ddindx).attribute30 := a38(indx);
484 t(ddindx).created_by := a39(indx);
485 t(ddindx).creation_date := a40(indx);
486 ddindx := ddindx+1;
487 if a0.last =indx
488 then exit;
489 end if;
490 indx := a0.next(indx);
491 end loop;
492 end if;
493 end if;
494 end rosetta_table_copy_in_p3;
495 procedure rosetta_table_copy_out_p3(t eam_process_permit_pub.eam_wp_association_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
496 , a1 out nocopy JTF_NUMBER_TABLE
497 , a2 out nocopy JTF_NUMBER_TABLE
498 , a3 out nocopy JTF_NUMBER_TABLE
499 , a4 out nocopy JTF_NUMBER_TABLE
500 , a5 out nocopy JTF_NUMBER_TABLE
501 , a6 out nocopy JTF_NUMBER_TABLE
502 , a7 out nocopy JTF_NUMBER_TABLE
503 , a8 out nocopy JTF_VARCHAR2_TABLE_100
504 , a9 out nocopy JTF_VARCHAR2_TABLE_300
505 , a10 out nocopy JTF_VARCHAR2_TABLE_300
506 , a11 out nocopy JTF_VARCHAR2_TABLE_300
507 , a12 out nocopy JTF_VARCHAR2_TABLE_300
508 , a13 out nocopy JTF_VARCHAR2_TABLE_300
509 , a14 out nocopy JTF_VARCHAR2_TABLE_300
510 , a15 out nocopy JTF_VARCHAR2_TABLE_300
511 , a16 out nocopy JTF_VARCHAR2_TABLE_300
512 , a17 out nocopy JTF_VARCHAR2_TABLE_300
513 , a18 out nocopy JTF_VARCHAR2_TABLE_300
514 , a19 out nocopy JTF_VARCHAR2_TABLE_300
515 , a20 out nocopy JTF_VARCHAR2_TABLE_300
516 , a21 out nocopy JTF_VARCHAR2_TABLE_300
517 , a22 out nocopy JTF_VARCHAR2_TABLE_300
518 , a23 out nocopy JTF_VARCHAR2_TABLE_300
519 , a24 out nocopy JTF_VARCHAR2_TABLE_300
520 , a25 out nocopy JTF_VARCHAR2_TABLE_300
521 , a26 out nocopy JTF_VARCHAR2_TABLE_300
522 , a27 out nocopy JTF_VARCHAR2_TABLE_300
523 , a28 out nocopy JTF_VARCHAR2_TABLE_300
524 , a29 out nocopy JTF_VARCHAR2_TABLE_300
525 , a30 out nocopy JTF_VARCHAR2_TABLE_300
526 , a31 out nocopy JTF_VARCHAR2_TABLE_300
527 , a32 out nocopy JTF_VARCHAR2_TABLE_300
528 , a33 out nocopy JTF_VARCHAR2_TABLE_300
529 , a34 out nocopy JTF_VARCHAR2_TABLE_300
530 , a35 out nocopy JTF_VARCHAR2_TABLE_300
531 , a36 out nocopy JTF_VARCHAR2_TABLE_300
532 , a37 out nocopy JTF_VARCHAR2_TABLE_300
533 , a38 out nocopy JTF_VARCHAR2_TABLE_300
534 , a39 out nocopy JTF_NUMBER_TABLE
535 , a40 out nocopy JTF_DATE_TABLE
536 ) as
537 ddindx binary_integer; indx binary_integer;
538 begin
539 if t is null or t.count = 0 then
540 a0 := JTF_NUMBER_TABLE();
541 a1 := JTF_NUMBER_TABLE();
542 a2 := JTF_NUMBER_TABLE();
543 a3 := JTF_NUMBER_TABLE();
544 a4 := JTF_NUMBER_TABLE();
545 a5 := JTF_NUMBER_TABLE();
546 a6 := JTF_NUMBER_TABLE();
547 a7 := JTF_NUMBER_TABLE();
548 a8 := JTF_VARCHAR2_TABLE_100();
549 a9 := JTF_VARCHAR2_TABLE_300();
550 a10 := JTF_VARCHAR2_TABLE_300();
551 a11 := JTF_VARCHAR2_TABLE_300();
552 a12 := JTF_VARCHAR2_TABLE_300();
553 a13 := JTF_VARCHAR2_TABLE_300();
554 a14 := JTF_VARCHAR2_TABLE_300();
555 a15 := JTF_VARCHAR2_TABLE_300();
556 a16 := JTF_VARCHAR2_TABLE_300();
557 a17 := JTF_VARCHAR2_TABLE_300();
558 a18 := JTF_VARCHAR2_TABLE_300();
559 a19 := JTF_VARCHAR2_TABLE_300();
560 a20 := JTF_VARCHAR2_TABLE_300();
561 a21 := JTF_VARCHAR2_TABLE_300();
562 a22 := JTF_VARCHAR2_TABLE_300();
563 a23 := JTF_VARCHAR2_TABLE_300();
564 a24 := JTF_VARCHAR2_TABLE_300();
565 a25 := JTF_VARCHAR2_TABLE_300();
566 a26 := JTF_VARCHAR2_TABLE_300();
567 a27 := JTF_VARCHAR2_TABLE_300();
568 a28 := JTF_VARCHAR2_TABLE_300();
569 a29 := JTF_VARCHAR2_TABLE_300();
570 a30 := JTF_VARCHAR2_TABLE_300();
571 a31 := JTF_VARCHAR2_TABLE_300();
572 a32 := JTF_VARCHAR2_TABLE_300();
573 a33 := JTF_VARCHAR2_TABLE_300();
574 a34 := JTF_VARCHAR2_TABLE_300();
575 a35 := JTF_VARCHAR2_TABLE_300();
576 a36 := JTF_VARCHAR2_TABLE_300();
577 a37 := JTF_VARCHAR2_TABLE_300();
578 a38 := JTF_VARCHAR2_TABLE_300();
579 a39 := JTF_NUMBER_TABLE();
580 a40 := JTF_DATE_TABLE();
581 else
582 a0 := JTF_NUMBER_TABLE();
583 a1 := JTF_NUMBER_TABLE();
584 a2 := JTF_NUMBER_TABLE();
585 a3 := JTF_NUMBER_TABLE();
586 a4 := JTF_NUMBER_TABLE();
587 a5 := JTF_NUMBER_TABLE();
588 a6 := JTF_NUMBER_TABLE();
589 a7 := JTF_NUMBER_TABLE();
590 a8 := JTF_VARCHAR2_TABLE_100();
591 a9 := JTF_VARCHAR2_TABLE_300();
592 a10 := JTF_VARCHAR2_TABLE_300();
593 a11 := JTF_VARCHAR2_TABLE_300();
594 a12 := JTF_VARCHAR2_TABLE_300();
595 a13 := JTF_VARCHAR2_TABLE_300();
596 a14 := JTF_VARCHAR2_TABLE_300();
597 a15 := JTF_VARCHAR2_TABLE_300();
598 a16 := JTF_VARCHAR2_TABLE_300();
599 a17 := JTF_VARCHAR2_TABLE_300();
600 a18 := JTF_VARCHAR2_TABLE_300();
601 a19 := JTF_VARCHAR2_TABLE_300();
602 a20 := JTF_VARCHAR2_TABLE_300();
603 a21 := JTF_VARCHAR2_TABLE_300();
604 a22 := JTF_VARCHAR2_TABLE_300();
605 a23 := JTF_VARCHAR2_TABLE_300();
606 a24 := JTF_VARCHAR2_TABLE_300();
607 a25 := JTF_VARCHAR2_TABLE_300();
608 a26 := JTF_VARCHAR2_TABLE_300();
609 a27 := JTF_VARCHAR2_TABLE_300();
610 a28 := JTF_VARCHAR2_TABLE_300();
611 a29 := JTF_VARCHAR2_TABLE_300();
612 a30 := JTF_VARCHAR2_TABLE_300();
613 a31 := JTF_VARCHAR2_TABLE_300();
614 a32 := JTF_VARCHAR2_TABLE_300();
615 a33 := JTF_VARCHAR2_TABLE_300();
616 a34 := JTF_VARCHAR2_TABLE_300();
617 a35 := JTF_VARCHAR2_TABLE_300();
618 a36 := JTF_VARCHAR2_TABLE_300();
619 a37 := JTF_VARCHAR2_TABLE_300();
620 a38 := JTF_VARCHAR2_TABLE_300();
621 a39 := JTF_NUMBER_TABLE();
622 a40 := JTF_DATE_TABLE();
623 if t.count > 0 then
624 a0.extend(t.count);
625 a1.extend(t.count);
626 a2.extend(t.count);
627 a3.extend(t.count);
628 a4.extend(t.count);
629 a5.extend(t.count);
630 a6.extend(t.count);
631 a7.extend(t.count);
632 a8.extend(t.count);
633 a9.extend(t.count);
634 a10.extend(t.count);
635 a11.extend(t.count);
636 a12.extend(t.count);
637 a13.extend(t.count);
638 a14.extend(t.count);
639 a15.extend(t.count);
640 a16.extend(t.count);
641 a17.extend(t.count);
642 a18.extend(t.count);
643 a19.extend(t.count);
644 a20.extend(t.count);
645 a21.extend(t.count);
646 a22.extend(t.count);
647 a23.extend(t.count);
648 a24.extend(t.count);
649 a25.extend(t.count);
650 a26.extend(t.count);
651 a27.extend(t.count);
652 a28.extend(t.count);
653 a29.extend(t.count);
654 a30.extend(t.count);
655 a31.extend(t.count);
656 a32.extend(t.count);
657 a33.extend(t.count);
658 a34.extend(t.count);
659 a35.extend(t.count);
660 a36.extend(t.count);
661 a37.extend(t.count);
662 a38.extend(t.count);
663 a39.extend(t.count);
664 a40.extend(t.count);
665 ddindx := t.first;
666 indx := 1;
667 while true loop
668 a0(indx) := t(ddindx).header_id;
669 a1(indx) := t(ddindx).batch_id;
670 a2(indx) := t(ddindx).row_id;
671 a3(indx) := t(ddindx).transaction_type;
672 a4(indx) := t(ddindx).safety_association_id;
673 a5(indx) := t(ddindx).source_id;
674 a6(indx) := t(ddindx).target_ref_id;
675 a7(indx) := t(ddindx).association_type;
676 a8(indx) := t(ddindx).attribute_category;
677 a9(indx) := t(ddindx).attribute1;
678 a10(indx) := t(ddindx).attribute2;
679 a11(indx) := t(ddindx).attribute3;
680 a12(indx) := t(ddindx).attribute4;
681 a13(indx) := t(ddindx).attribute5;
682 a14(indx) := t(ddindx).attribute6;
683 a15(indx) := t(ddindx).attribute7;
684 a16(indx) := t(ddindx).attribute8;
685 a17(indx) := t(ddindx).attribute9;
686 a18(indx) := t(ddindx).attribute10;
687 a19(indx) := t(ddindx).attribute11;
688 a20(indx) := t(ddindx).attribute12;
689 a21(indx) := t(ddindx).attribute13;
690 a22(indx) := t(ddindx).attribute14;
691 a23(indx) := t(ddindx).attribute15;
692 a24(indx) := t(ddindx).attribute16;
693 a25(indx) := t(ddindx).attribute17;
694 a26(indx) := t(ddindx).attribute18;
695 a27(indx) := t(ddindx).attribute19;
696 a28(indx) := t(ddindx).attribute20;
697 a29(indx) := t(ddindx).attribute21;
698 a30(indx) := t(ddindx).attribute22;
699 a31(indx) := t(ddindx).attribute23;
700 a32(indx) := t(ddindx).attribute24;
701 a33(indx) := t(ddindx).attribute25;
702 a34(indx) := t(ddindx).attribute26;
703 a35(indx) := t(ddindx).attribute27;
704 a36(indx) := t(ddindx).attribute28;
705 a37(indx) := t(ddindx).attribute29;
706 a38(indx) := t(ddindx).attribute30;
707 a39(indx) := t(ddindx).created_by;
708 a40(indx) := t(ddindx).creation_date;
709 indx := indx+1;
710 if t.last =ddindx
711 then exit;
712 end if;
713 ddindx := t.next(ddindx);
714 end loop;
715 end if;
716 end if;
717 end rosetta_table_copy_out_p3;
718
719 end eam_process_permit_pub_w;
720