[Home] [Help]
PACKAGE BODY: APPS.ARW_CMREQ_COVER_W
Source
1 package body arw_cmreq_cover_w as
2 /* $Header: ARICMREQCB.pls 120.0 2011/11/28 15:51:30 parln noship $ */
3 procedure rosetta_table_copy_in_p7(t out nocopy arw_cmreq_cover.cm_line_tbl_type_cover, 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_200
9 , a6 JTF_VARCHAR2_TABLE_200
10 , a7 JTF_VARCHAR2_TABLE_200
11 , a8 JTF_VARCHAR2_TABLE_200
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_100
24 , a21 JTF_VARCHAR2_TABLE_200
25 , a22 JTF_VARCHAR2_TABLE_200
26 , a23 JTF_VARCHAR2_TABLE_200
27 , a24 JTF_VARCHAR2_TABLE_200
28 , a25 JTF_VARCHAR2_TABLE_200
29 , a26 JTF_VARCHAR2_TABLE_200
30 , a27 JTF_VARCHAR2_TABLE_200
31 , a28 JTF_VARCHAR2_TABLE_200
32 , a29 JTF_VARCHAR2_TABLE_200
33 , a30 JTF_VARCHAR2_TABLE_200
34 , a31 JTF_VARCHAR2_TABLE_200
35 , a32 JTF_VARCHAR2_TABLE_200
36 , a33 JTF_VARCHAR2_TABLE_200
37 , a34 JTF_VARCHAR2_TABLE_200
38 , a35 JTF_VARCHAR2_TABLE_200
39 , a36 JTF_VARCHAR2_TABLE_200
40 , a37 JTF_VARCHAR2_TABLE_200
41 , a38 JTF_VARCHAR2_TABLE_200
42 , a39 JTF_VARCHAR2_TABLE_200
43 , a40 JTF_VARCHAR2_TABLE_200
44 , a41 JTF_VARCHAR2_TABLE_200
45 , a42 JTF_VARCHAR2_TABLE_200
46 , a43 JTF_VARCHAR2_TABLE_200
47 , a44 JTF_VARCHAR2_TABLE_200
48 , a45 JTF_VARCHAR2_TABLE_200
49 , a46 JTF_VARCHAR2_TABLE_200
50 , a47 JTF_VARCHAR2_TABLE_200
51 , a48 JTF_VARCHAR2_TABLE_200
52 , a49 JTF_VARCHAR2_TABLE_200
53 , a50 JTF_VARCHAR2_TABLE_200
54 , a51 JTF_VARCHAR2_TABLE_200
55 , a52 JTF_VARCHAR2_TABLE_200
56 , a53 JTF_VARCHAR2_TABLE_200
57 , a54 JTF_VARCHAR2_TABLE_200
58 , a55 JTF_VARCHAR2_TABLE_200
59 , a56 JTF_VARCHAR2_TABLE_100
60 ) as
61 ddindx binary_integer; indx binary_integer;
62 begin
63 if a0 is not null and a0.count > 0 then
64 if a0.count > 0 then
65 indx := a0.first;
66 ddindx := 1;
67 while true loop
68 t(ddindx).customer_trx_line_id := a0(indx);
69 t(ddindx).extended_amount := a1(indx);
70 t(ddindx).quantity_credited := a2(indx);
71 t(ddindx).price := a3(indx);
72 t(ddindx).attribute_category := a4(indx);
73 t(ddindx).attribute1 := a5(indx);
74 t(ddindx).attribute2 := a6(indx);
75 t(ddindx).attribute3 := a7(indx);
76 t(ddindx).attribute4 := a8(indx);
77 t(ddindx).attribute5 := a9(indx);
78 t(ddindx).attribute6 := a10(indx);
79 t(ddindx).attribute7 := a11(indx);
80 t(ddindx).attribute8 := a12(indx);
81 t(ddindx).attribute9 := a13(indx);
82 t(ddindx).attribute10 := a14(indx);
83 t(ddindx).attribute11 := a15(indx);
84 t(ddindx).attribute12 := a16(indx);
85 t(ddindx).attribute13 := a17(indx);
86 t(ddindx).attribute14 := a18(indx);
87 t(ddindx).attribute15 := a19(indx);
88 t(ddindx).interface_line_context := a20(indx);
89 t(ddindx).interface_line_attribute1 := a21(indx);
90 t(ddindx).interface_line_attribute2 := a22(indx);
91 t(ddindx).interface_line_attribute3 := a23(indx);
92 t(ddindx).interface_line_attribute4 := a24(indx);
93 t(ddindx).interface_line_attribute5 := a25(indx);
94 t(ddindx).interface_line_attribute6 := a26(indx);
95 t(ddindx).interface_line_attribute7 := a27(indx);
96 t(ddindx).interface_line_attribute8 := a28(indx);
97 t(ddindx).interface_line_attribute9 := a29(indx);
98 t(ddindx).interface_line_attribute10 := a30(indx);
99 t(ddindx).interface_line_attribute11 := a31(indx);
100 t(ddindx).interface_line_attribute12 := a32(indx);
101 t(ddindx).interface_line_attribute13 := a33(indx);
102 t(ddindx).interface_line_attribute14 := a34(indx);
103 t(ddindx).interface_line_attribute15 := a35(indx);
104 t(ddindx).global_attribute1 := a36(indx);
105 t(ddindx).global_attribute2 := a37(indx);
106 t(ddindx).global_attribute3 := a38(indx);
107 t(ddindx).global_attribute4 := a39(indx);
108 t(ddindx).global_attribute5 := a40(indx);
109 t(ddindx).global_attribute6 := a41(indx);
110 t(ddindx).global_attribute7 := a42(indx);
111 t(ddindx).global_attribute8 := a43(indx);
112 t(ddindx).global_attribute9 := a44(indx);
113 t(ddindx).global_attribute10 := a45(indx);
114 t(ddindx).global_attribute11 := a46(indx);
115 t(ddindx).global_attribute12 := a47(indx);
116 t(ddindx).global_attribute13 := a48(indx);
117 t(ddindx).global_attribute14 := a49(indx);
118 t(ddindx).global_attribute15 := a50(indx);
119 t(ddindx).global_attribute16 := a51(indx);
120 t(ddindx).global_attribute17 := a52(indx);
121 t(ddindx).global_attribute18 := a53(indx);
122 t(ddindx).global_attribute19 := a54(indx);
123 t(ddindx).global_attribute20 := a55(indx);
124 t(ddindx).global_attribute_category := a56(indx);
125 ddindx := ddindx+1;
126 if a0.last =indx
127 then exit;
128 end if;
129 indx := a0.next(indx);
130 end loop;
131 end if;
132 end if;
133 end rosetta_table_copy_in_p7;
134 procedure rosetta_table_copy_out_p7(t arw_cmreq_cover.cm_line_tbl_type_cover, a0 out nocopy JTF_NUMBER_TABLE
135 , a1 out nocopy JTF_NUMBER_TABLE
136 , a2 out nocopy JTF_NUMBER_TABLE
137 , a3 out nocopy JTF_NUMBER_TABLE
138 , a4 out nocopy JTF_VARCHAR2_TABLE_100
139 , a5 out nocopy JTF_VARCHAR2_TABLE_200
140 , a6 out nocopy JTF_VARCHAR2_TABLE_200
141 , a7 out nocopy JTF_VARCHAR2_TABLE_200
142 , a8 out nocopy JTF_VARCHAR2_TABLE_200
143 , a9 out nocopy JTF_VARCHAR2_TABLE_200
144 , a10 out nocopy JTF_VARCHAR2_TABLE_200
145 , a11 out nocopy JTF_VARCHAR2_TABLE_200
146 , a12 out nocopy JTF_VARCHAR2_TABLE_200
147 , a13 out nocopy JTF_VARCHAR2_TABLE_200
148 , a14 out nocopy JTF_VARCHAR2_TABLE_200
149 , a15 out nocopy JTF_VARCHAR2_TABLE_200
150 , a16 out nocopy JTF_VARCHAR2_TABLE_200
151 , a17 out nocopy JTF_VARCHAR2_TABLE_200
152 , a18 out nocopy JTF_VARCHAR2_TABLE_200
153 , a19 out nocopy JTF_VARCHAR2_TABLE_200
154 , a20 out nocopy JTF_VARCHAR2_TABLE_100
155 , a21 out nocopy JTF_VARCHAR2_TABLE_200
156 , a22 out nocopy JTF_VARCHAR2_TABLE_200
157 , a23 out nocopy JTF_VARCHAR2_TABLE_200
158 , a24 out nocopy JTF_VARCHAR2_TABLE_200
159 , a25 out nocopy JTF_VARCHAR2_TABLE_200
160 , a26 out nocopy JTF_VARCHAR2_TABLE_200
161 , a27 out nocopy JTF_VARCHAR2_TABLE_200
162 , a28 out nocopy JTF_VARCHAR2_TABLE_200
163 , a29 out nocopy JTF_VARCHAR2_TABLE_200
164 , a30 out nocopy JTF_VARCHAR2_TABLE_200
165 , a31 out nocopy JTF_VARCHAR2_TABLE_200
166 , a32 out nocopy JTF_VARCHAR2_TABLE_200
167 , a33 out nocopy JTF_VARCHAR2_TABLE_200
168 , a34 out nocopy JTF_VARCHAR2_TABLE_200
169 , a35 out nocopy JTF_VARCHAR2_TABLE_200
170 , a36 out nocopy JTF_VARCHAR2_TABLE_200
171 , a37 out nocopy JTF_VARCHAR2_TABLE_200
172 , a38 out nocopy JTF_VARCHAR2_TABLE_200
173 , a39 out nocopy JTF_VARCHAR2_TABLE_200
174 , a40 out nocopy JTF_VARCHAR2_TABLE_200
175 , a41 out nocopy JTF_VARCHAR2_TABLE_200
176 , a42 out nocopy JTF_VARCHAR2_TABLE_200
177 , a43 out nocopy JTF_VARCHAR2_TABLE_200
178 , a44 out nocopy JTF_VARCHAR2_TABLE_200
179 , a45 out nocopy JTF_VARCHAR2_TABLE_200
180 , a46 out nocopy JTF_VARCHAR2_TABLE_200
181 , a47 out nocopy JTF_VARCHAR2_TABLE_200
182 , a48 out nocopy JTF_VARCHAR2_TABLE_200
183 , a49 out nocopy JTF_VARCHAR2_TABLE_200
184 , a50 out nocopy JTF_VARCHAR2_TABLE_200
185 , a51 out nocopy JTF_VARCHAR2_TABLE_200
186 , a52 out nocopy JTF_VARCHAR2_TABLE_200
187 , a53 out nocopy JTF_VARCHAR2_TABLE_200
188 , a54 out nocopy JTF_VARCHAR2_TABLE_200
189 , a55 out nocopy JTF_VARCHAR2_TABLE_200
190 , a56 out nocopy JTF_VARCHAR2_TABLE_100
191 ) as
192 ddindx binary_integer; indx binary_integer;
193 begin
194 if t is null or t.count = 0 then
195 a0 := JTF_NUMBER_TABLE();
196 a1 := JTF_NUMBER_TABLE();
197 a2 := JTF_NUMBER_TABLE();
198 a3 := JTF_NUMBER_TABLE();
199 a4 := JTF_VARCHAR2_TABLE_100();
200 a5 := JTF_VARCHAR2_TABLE_200();
201 a6 := JTF_VARCHAR2_TABLE_200();
202 a7 := JTF_VARCHAR2_TABLE_200();
203 a8 := JTF_VARCHAR2_TABLE_200();
204 a9 := JTF_VARCHAR2_TABLE_200();
205 a10 := JTF_VARCHAR2_TABLE_200();
206 a11 := JTF_VARCHAR2_TABLE_200();
207 a12 := JTF_VARCHAR2_TABLE_200();
208 a13 := JTF_VARCHAR2_TABLE_200();
209 a14 := JTF_VARCHAR2_TABLE_200();
210 a15 := JTF_VARCHAR2_TABLE_200();
211 a16 := JTF_VARCHAR2_TABLE_200();
212 a17 := JTF_VARCHAR2_TABLE_200();
213 a18 := JTF_VARCHAR2_TABLE_200();
214 a19 := JTF_VARCHAR2_TABLE_200();
215 a20 := JTF_VARCHAR2_TABLE_100();
216 a21 := JTF_VARCHAR2_TABLE_200();
217 a22 := JTF_VARCHAR2_TABLE_200();
218 a23 := JTF_VARCHAR2_TABLE_200();
219 a24 := JTF_VARCHAR2_TABLE_200();
220 a25 := JTF_VARCHAR2_TABLE_200();
221 a26 := JTF_VARCHAR2_TABLE_200();
222 a27 := JTF_VARCHAR2_TABLE_200();
223 a28 := JTF_VARCHAR2_TABLE_200();
224 a29 := JTF_VARCHAR2_TABLE_200();
225 a30 := JTF_VARCHAR2_TABLE_200();
226 a31 := JTF_VARCHAR2_TABLE_200();
227 a32 := JTF_VARCHAR2_TABLE_200();
228 a33 := JTF_VARCHAR2_TABLE_200();
229 a34 := JTF_VARCHAR2_TABLE_200();
230 a35 := JTF_VARCHAR2_TABLE_200();
231 a36 := JTF_VARCHAR2_TABLE_200();
232 a37 := JTF_VARCHAR2_TABLE_200();
233 a38 := JTF_VARCHAR2_TABLE_200();
234 a39 := JTF_VARCHAR2_TABLE_200();
235 a40 := JTF_VARCHAR2_TABLE_200();
236 a41 := JTF_VARCHAR2_TABLE_200();
237 a42 := JTF_VARCHAR2_TABLE_200();
238 a43 := JTF_VARCHAR2_TABLE_200();
239 a44 := JTF_VARCHAR2_TABLE_200();
240 a45 := JTF_VARCHAR2_TABLE_200();
241 a46 := JTF_VARCHAR2_TABLE_200();
242 a47 := JTF_VARCHAR2_TABLE_200();
243 a48 := JTF_VARCHAR2_TABLE_200();
244 a49 := JTF_VARCHAR2_TABLE_200();
245 a50 := JTF_VARCHAR2_TABLE_200();
246 a51 := JTF_VARCHAR2_TABLE_200();
247 a52 := JTF_VARCHAR2_TABLE_200();
248 a53 := JTF_VARCHAR2_TABLE_200();
249 a54 := JTF_VARCHAR2_TABLE_200();
250 a55 := JTF_VARCHAR2_TABLE_200();
251 a56 := JTF_VARCHAR2_TABLE_100();
252 else
253 a0 := JTF_NUMBER_TABLE();
254 a1 := JTF_NUMBER_TABLE();
255 a2 := JTF_NUMBER_TABLE();
256 a3 := JTF_NUMBER_TABLE();
257 a4 := JTF_VARCHAR2_TABLE_100();
258 a5 := JTF_VARCHAR2_TABLE_200();
259 a6 := JTF_VARCHAR2_TABLE_200();
260 a7 := JTF_VARCHAR2_TABLE_200();
261 a8 := JTF_VARCHAR2_TABLE_200();
262 a9 := JTF_VARCHAR2_TABLE_200();
263 a10 := JTF_VARCHAR2_TABLE_200();
264 a11 := JTF_VARCHAR2_TABLE_200();
265 a12 := JTF_VARCHAR2_TABLE_200();
266 a13 := JTF_VARCHAR2_TABLE_200();
267 a14 := JTF_VARCHAR2_TABLE_200();
268 a15 := JTF_VARCHAR2_TABLE_200();
269 a16 := JTF_VARCHAR2_TABLE_200();
270 a17 := JTF_VARCHAR2_TABLE_200();
271 a18 := JTF_VARCHAR2_TABLE_200();
272 a19 := JTF_VARCHAR2_TABLE_200();
273 a20 := JTF_VARCHAR2_TABLE_100();
274 a21 := JTF_VARCHAR2_TABLE_200();
275 a22 := JTF_VARCHAR2_TABLE_200();
276 a23 := JTF_VARCHAR2_TABLE_200();
277 a24 := JTF_VARCHAR2_TABLE_200();
278 a25 := JTF_VARCHAR2_TABLE_200();
279 a26 := JTF_VARCHAR2_TABLE_200();
280 a27 := JTF_VARCHAR2_TABLE_200();
281 a28 := JTF_VARCHAR2_TABLE_200();
282 a29 := JTF_VARCHAR2_TABLE_200();
283 a30 := JTF_VARCHAR2_TABLE_200();
284 a31 := JTF_VARCHAR2_TABLE_200();
285 a32 := JTF_VARCHAR2_TABLE_200();
286 a33 := JTF_VARCHAR2_TABLE_200();
287 a34 := JTF_VARCHAR2_TABLE_200();
288 a35 := JTF_VARCHAR2_TABLE_200();
289 a36 := JTF_VARCHAR2_TABLE_200();
290 a37 := JTF_VARCHAR2_TABLE_200();
291 a38 := JTF_VARCHAR2_TABLE_200();
292 a39 := JTF_VARCHAR2_TABLE_200();
293 a40 := JTF_VARCHAR2_TABLE_200();
294 a41 := JTF_VARCHAR2_TABLE_200();
295 a42 := JTF_VARCHAR2_TABLE_200();
296 a43 := JTF_VARCHAR2_TABLE_200();
297 a44 := JTF_VARCHAR2_TABLE_200();
298 a45 := JTF_VARCHAR2_TABLE_200();
299 a46 := JTF_VARCHAR2_TABLE_200();
300 a47 := JTF_VARCHAR2_TABLE_200();
301 a48 := JTF_VARCHAR2_TABLE_200();
302 a49 := JTF_VARCHAR2_TABLE_200();
303 a50 := JTF_VARCHAR2_TABLE_200();
304 a51 := JTF_VARCHAR2_TABLE_200();
305 a52 := JTF_VARCHAR2_TABLE_200();
306 a53 := JTF_VARCHAR2_TABLE_200();
307 a54 := JTF_VARCHAR2_TABLE_200();
308 a55 := JTF_VARCHAR2_TABLE_200();
309 a56 := JTF_VARCHAR2_TABLE_100();
310 if t.count > 0 then
311 a0.extend(t.count);
312 a1.extend(t.count);
313 a2.extend(t.count);
314 a3.extend(t.count);
315 a4.extend(t.count);
316 a5.extend(t.count);
317 a6.extend(t.count);
318 a7.extend(t.count);
319 a8.extend(t.count);
320 a9.extend(t.count);
321 a10.extend(t.count);
322 a11.extend(t.count);
323 a12.extend(t.count);
324 a13.extend(t.count);
325 a14.extend(t.count);
326 a15.extend(t.count);
327 a16.extend(t.count);
328 a17.extend(t.count);
329 a18.extend(t.count);
330 a19.extend(t.count);
331 a20.extend(t.count);
332 a21.extend(t.count);
333 a22.extend(t.count);
334 a23.extend(t.count);
335 a24.extend(t.count);
336 a25.extend(t.count);
337 a26.extend(t.count);
338 a27.extend(t.count);
339 a28.extend(t.count);
340 a29.extend(t.count);
341 a30.extend(t.count);
342 a31.extend(t.count);
343 a32.extend(t.count);
344 a33.extend(t.count);
345 a34.extend(t.count);
346 a35.extend(t.count);
347 a36.extend(t.count);
348 a37.extend(t.count);
349 a38.extend(t.count);
350 a39.extend(t.count);
351 a40.extend(t.count);
352 a41.extend(t.count);
353 a42.extend(t.count);
354 a43.extend(t.count);
355 a44.extend(t.count);
356 a45.extend(t.count);
357 a46.extend(t.count);
358 a47.extend(t.count);
359 a48.extend(t.count);
360 a49.extend(t.count);
361 a50.extend(t.count);
362 a51.extend(t.count);
363 a52.extend(t.count);
364 a53.extend(t.count);
365 a54.extend(t.count);
366 a55.extend(t.count);
367 a56.extend(t.count);
368 ddindx := t.first;
369 indx := 1;
370 while true loop
371 a0(indx) := t(ddindx).customer_trx_line_id;
372 a1(indx) := t(ddindx).extended_amount;
373 a2(indx) := t(ddindx).quantity_credited;
374 a3(indx) := t(ddindx).price;
375 a4(indx) := t(ddindx).attribute_category;
376 a5(indx) := t(ddindx).attribute1;
377 a6(indx) := t(ddindx).attribute2;
378 a7(indx) := t(ddindx).attribute3;
379 a8(indx) := t(ddindx).attribute4;
380 a9(indx) := t(ddindx).attribute5;
381 a10(indx) := t(ddindx).attribute6;
382 a11(indx) := t(ddindx).attribute7;
383 a12(indx) := t(ddindx).attribute8;
384 a13(indx) := t(ddindx).attribute9;
385 a14(indx) := t(ddindx).attribute10;
386 a15(indx) := t(ddindx).attribute11;
387 a16(indx) := t(ddindx).attribute12;
388 a17(indx) := t(ddindx).attribute13;
389 a18(indx) := t(ddindx).attribute14;
390 a19(indx) := t(ddindx).attribute15;
391 a20(indx) := t(ddindx).interface_line_context;
392 a21(indx) := t(ddindx).interface_line_attribute1;
393 a22(indx) := t(ddindx).interface_line_attribute2;
394 a23(indx) := t(ddindx).interface_line_attribute3;
395 a24(indx) := t(ddindx).interface_line_attribute4;
396 a25(indx) := t(ddindx).interface_line_attribute5;
397 a26(indx) := t(ddindx).interface_line_attribute6;
398 a27(indx) := t(ddindx).interface_line_attribute7;
399 a28(indx) := t(ddindx).interface_line_attribute8;
400 a29(indx) := t(ddindx).interface_line_attribute9;
401 a30(indx) := t(ddindx).interface_line_attribute10;
402 a31(indx) := t(ddindx).interface_line_attribute11;
403 a32(indx) := t(ddindx).interface_line_attribute12;
404 a33(indx) := t(ddindx).interface_line_attribute13;
405 a34(indx) := t(ddindx).interface_line_attribute14;
406 a35(indx) := t(ddindx).interface_line_attribute15;
407 a36(indx) := t(ddindx).global_attribute1;
408 a37(indx) := t(ddindx).global_attribute2;
409 a38(indx) := t(ddindx).global_attribute3;
410 a39(indx) := t(ddindx).global_attribute4;
411 a40(indx) := t(ddindx).global_attribute5;
412 a41(indx) := t(ddindx).global_attribute6;
413 a42(indx) := t(ddindx).global_attribute7;
414 a43(indx) := t(ddindx).global_attribute8;
415 a44(indx) := t(ddindx).global_attribute9;
416 a45(indx) := t(ddindx).global_attribute10;
417 a46(indx) := t(ddindx).global_attribute11;
418 a47(indx) := t(ddindx).global_attribute12;
419 a48(indx) := t(ddindx).global_attribute13;
420 a49(indx) := t(ddindx).global_attribute14;
421 a50(indx) := t(ddindx).global_attribute15;
422 a51(indx) := t(ddindx).global_attribute16;
423 a52(indx) := t(ddindx).global_attribute17;
424 a53(indx) := t(ddindx).global_attribute18;
425 a54(indx) := t(ddindx).global_attribute19;
426 a55(indx) := t(ddindx).global_attribute20;
427 a56(indx) := t(ddindx).global_attribute_category;
428 indx := indx+1;
429 if t.last =ddindx
430 then exit;
431 end if;
432 ddindx := t.next(ddindx);
433 end loop;
434 end if;
435 end if;
436 end rosetta_table_copy_out_p7;
437
438 end arw_cmreq_cover_w;