[Home] [Help]
PACKAGE BODY: APPS.EAM_ASSET_OPERATION_TXN_PUB_W
Source
1 package body eam_asset_operation_txn_pub_w as
2 /* $Header: EAMPAORB.pls 120.4 2008/01/26 01:54:26 devijay ship $ */
3 procedure rosetta_table_copy_in_p2(t out nocopy eam_asset_operation_txn_pub.eam_quality_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_NUMBER_TABLE
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_VARCHAR2_TABLE_2000
12 , a9 JTF_VARCHAR2_TABLE_100
13 , a10 JTF_NUMBER_TABLE
14 , a11 JTF_NUMBER_TABLE
15 , a12 JTF_NUMBER_TABLE
16 , a13 JTF_VARCHAR2_TABLE_100
17 , a14 JTF_NUMBER_TABLE
18 ) as
19 ddindx binary_integer; indx binary_integer;
20 begin
21 if a0 is not null and a0.count > 0 then
22 if a0.count > 0 then
23 indx := a0.first;
24 ddindx := 1;
25 while true loop
26 t(ddindx).batch_id := a0(indx);
27 t(ddindx).row_id := a1(indx);
28 t(ddindx).instance_id := a2(indx);
29 t(ddindx).organization_id := a3(indx);
30 t(ddindx).plan_id := a4(indx);
31 t(ddindx).spec_id := a5(indx);
32 t(ddindx).p_enable_flag := a6(indx);
33 t(ddindx).element_id := a7(indx);
34 t(ddindx).element_value := a8(indx);
35 t(ddindx).element_validation_flag := a9(indx);
36 t(ddindx).transaction_number := a10(indx);
37 t(ddindx).collection_id := a11(indx);
38 t(ddindx).occurrence := a12(indx);
39 t(ddindx).return_status := a13(indx);
40 t(ddindx).transaction_type := a14(indx);
41 ddindx := ddindx+1;
42 if a0.last =indx
43 then exit;
44 end if;
45 indx := a0.next(indx);
46 end loop;
47 end if;
48 end if;
49 end rosetta_table_copy_in_p2;
50 procedure rosetta_table_copy_out_p2(t eam_asset_operation_txn_pub.eam_quality_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
51 , a1 out nocopy JTF_NUMBER_TABLE
52 , a2 out nocopy JTF_NUMBER_TABLE
53 , a3 out nocopy JTF_NUMBER_TABLE
54 , a4 out nocopy JTF_NUMBER_TABLE
55 , a5 out nocopy JTF_NUMBER_TABLE
56 , a6 out nocopy JTF_NUMBER_TABLE
57 , a7 out nocopy JTF_NUMBER_TABLE
58 , a8 out nocopy JTF_VARCHAR2_TABLE_2000
59 , a9 out nocopy JTF_VARCHAR2_TABLE_100
60 , a10 out nocopy JTF_NUMBER_TABLE
61 , a11 out nocopy JTF_NUMBER_TABLE
62 , a12 out nocopy JTF_NUMBER_TABLE
63 , a13 out nocopy JTF_VARCHAR2_TABLE_100
64 , a14 out nocopy JTF_NUMBER_TABLE
65 ) as
66 ddindx binary_integer; indx binary_integer;
67 begin
68 if t is null or t.count = 0 then
69 a0 := JTF_NUMBER_TABLE();
70 a1 := JTF_NUMBER_TABLE();
71 a2 := JTF_NUMBER_TABLE();
72 a3 := JTF_NUMBER_TABLE();
73 a4 := JTF_NUMBER_TABLE();
74 a5 := JTF_NUMBER_TABLE();
75 a6 := JTF_NUMBER_TABLE();
76 a7 := JTF_NUMBER_TABLE();
77 a8 := JTF_VARCHAR2_TABLE_2000();
78 a9 := JTF_VARCHAR2_TABLE_100();
79 a10 := JTF_NUMBER_TABLE();
80 a11 := JTF_NUMBER_TABLE();
81 a12 := JTF_NUMBER_TABLE();
82 a13 := JTF_VARCHAR2_TABLE_100();
83 a14 := JTF_NUMBER_TABLE();
84 else
85 a0 := JTF_NUMBER_TABLE();
86 a1 := JTF_NUMBER_TABLE();
87 a2 := JTF_NUMBER_TABLE();
88 a3 := JTF_NUMBER_TABLE();
89 a4 := JTF_NUMBER_TABLE();
90 a5 := JTF_NUMBER_TABLE();
91 a6 := JTF_NUMBER_TABLE();
92 a7 := JTF_NUMBER_TABLE();
93 a8 := JTF_VARCHAR2_TABLE_2000();
94 a9 := JTF_VARCHAR2_TABLE_100();
95 a10 := JTF_NUMBER_TABLE();
96 a11 := JTF_NUMBER_TABLE();
97 a12 := JTF_NUMBER_TABLE();
98 a13 := JTF_VARCHAR2_TABLE_100();
99 a14 := JTF_NUMBER_TABLE();
100 if t.count > 0 then
101 a0.extend(t.count);
102 a1.extend(t.count);
103 a2.extend(t.count);
104 a3.extend(t.count);
105 a4.extend(t.count);
106 a5.extend(t.count);
107 a6.extend(t.count);
108 a7.extend(t.count);
109 a8.extend(t.count);
110 a9.extend(t.count);
111 a10.extend(t.count);
112 a11.extend(t.count);
113 a12.extend(t.count);
114 a13.extend(t.count);
115 a14.extend(t.count);
116 ddindx := t.first;
117 indx := 1;
118 while true loop
119 a0(indx) := t(ddindx).batch_id;
120 a1(indx) := t(ddindx).row_id;
121 a2(indx) := t(ddindx).instance_id;
122 a3(indx) := t(ddindx).organization_id;
123 a4(indx) := t(ddindx).plan_id;
124 a5(indx) := t(ddindx).spec_id;
125 a6(indx) := t(ddindx).p_enable_flag;
126 a7(indx) := t(ddindx).element_id;
127 a8(indx) := t(ddindx).element_value;
128 a9(indx) := t(ddindx).element_validation_flag;
129 a10(indx) := t(ddindx).transaction_number;
130 a11(indx) := t(ddindx).collection_id;
131 a12(indx) := t(ddindx).occurrence;
132 a13(indx) := t(ddindx).return_status;
133 a14(indx) := t(ddindx).transaction_type;
134 indx := indx+1;
135 if t.last =ddindx
136 then exit;
137 end if;
138 ddindx := t.next(ddindx);
139 end loop;
140 end if;
141 end if;
142 end rosetta_table_copy_out_p2;
143
144 procedure rosetta_table_copy_in_p4(t out nocopy eam_asset_operation_txn_pub.ctr_property_readings_tbl, a0 JTF_NUMBER_TABLE
145 , a1 JTF_NUMBER_TABLE
146 , a2 JTF_VARCHAR2_TABLE_300
147 , a3 JTF_DATE_TABLE
148 , a4 JTF_VARCHAR2_TABLE_100
149 , a5 JTF_VARCHAR2_TABLE_200
150 , a6 JTF_VARCHAR2_TABLE_200
151 , a7 JTF_VARCHAR2_TABLE_200
152 , a8 JTF_VARCHAR2_TABLE_200
153 , a9 JTF_VARCHAR2_TABLE_200
154 , a10 JTF_VARCHAR2_TABLE_200
155 , a11 JTF_VARCHAR2_TABLE_200
156 , a12 JTF_VARCHAR2_TABLE_200
157 , a13 JTF_VARCHAR2_TABLE_200
158 , a14 JTF_VARCHAR2_TABLE_200
159 , a15 JTF_VARCHAR2_TABLE_200
160 , a16 JTF_VARCHAR2_TABLE_200
161 , a17 JTF_VARCHAR2_TABLE_200
162 , a18 JTF_VARCHAR2_TABLE_200
163 , a19 JTF_VARCHAR2_TABLE_200
164 , a20 JTF_VARCHAR2_TABLE_100
165 ) as
166 ddindx binary_integer; indx binary_integer;
167 begin
168 if a0 is not null and a0.count > 0 then
169 if a0.count > 0 then
170 indx := a0.first;
171 ddindx := 1;
172 while true loop
173 t(ddindx).counter_id := a0(indx);
174 t(ddindx).counter_property_id := a1(indx);
175 t(ddindx).property_value := a2(indx);
176 t(ddindx).value_timestamp := a3(indx);
177 t(ddindx).attribute_category := a4(indx);
178 t(ddindx).attribute1 := a5(indx);
179 t(ddindx).attribute2 := a6(indx);
180 t(ddindx).attribute3 := a7(indx);
181 t(ddindx).attribute4 := a8(indx);
182 t(ddindx).attribute5 := a9(indx);
183 t(ddindx).attribute6 := a10(indx);
184 t(ddindx).attribute7 := a11(indx);
185 t(ddindx).attribute8 := a12(indx);
186 t(ddindx).attribute9 := a13(indx);
187 t(ddindx).attribute10 := a14(indx);
188 t(ddindx).attribute11 := a15(indx);
189 t(ddindx).attribute12 := a16(indx);
190 t(ddindx).attribute13 := a17(indx);
191 t(ddindx).attribute14 := a18(indx);
192 t(ddindx).attribute15 := a19(indx);
193 t(ddindx).migrated_flag := a20(indx);
194 ddindx := ddindx+1;
195 if a0.last =indx
196 then exit;
197 end if;
198 indx := a0.next(indx);
199 end loop;
200 end if;
201 end if;
202 end rosetta_table_copy_in_p4;
203 procedure rosetta_table_copy_out_p4(t eam_asset_operation_txn_pub.ctr_property_readings_tbl, a0 out nocopy JTF_NUMBER_TABLE
204 , a1 out nocopy JTF_NUMBER_TABLE
205 , a2 out nocopy JTF_VARCHAR2_TABLE_300
206 , a3 out nocopy JTF_DATE_TABLE
207 , a4 out nocopy JTF_VARCHAR2_TABLE_100
208 , a5 out nocopy JTF_VARCHAR2_TABLE_200
209 , a6 out nocopy JTF_VARCHAR2_TABLE_200
210 , a7 out nocopy JTF_VARCHAR2_TABLE_200
211 , a8 out nocopy JTF_VARCHAR2_TABLE_200
212 , a9 out nocopy JTF_VARCHAR2_TABLE_200
213 , a10 out nocopy JTF_VARCHAR2_TABLE_200
214 , a11 out nocopy JTF_VARCHAR2_TABLE_200
215 , a12 out nocopy JTF_VARCHAR2_TABLE_200
216 , a13 out nocopy JTF_VARCHAR2_TABLE_200
217 , a14 out nocopy JTF_VARCHAR2_TABLE_200
218 , a15 out nocopy JTF_VARCHAR2_TABLE_200
219 , a16 out nocopy JTF_VARCHAR2_TABLE_200
220 , a17 out nocopy JTF_VARCHAR2_TABLE_200
221 , a18 out nocopy JTF_VARCHAR2_TABLE_200
222 , a19 out nocopy JTF_VARCHAR2_TABLE_200
223 , a20 out nocopy JTF_VARCHAR2_TABLE_100
224 ) as
225 ddindx binary_integer; indx binary_integer;
226 begin
227 if t is null or t.count = 0 then
228 a0 := JTF_NUMBER_TABLE();
229 a1 := JTF_NUMBER_TABLE();
230 a2 := JTF_VARCHAR2_TABLE_300();
231 a3 := JTF_DATE_TABLE();
232 a4 := JTF_VARCHAR2_TABLE_100();
233 a5 := JTF_VARCHAR2_TABLE_200();
234 a6 := JTF_VARCHAR2_TABLE_200();
235 a7 := JTF_VARCHAR2_TABLE_200();
236 a8 := JTF_VARCHAR2_TABLE_200();
237 a9 := JTF_VARCHAR2_TABLE_200();
238 a10 := JTF_VARCHAR2_TABLE_200();
239 a11 := JTF_VARCHAR2_TABLE_200();
240 a12 := JTF_VARCHAR2_TABLE_200();
241 a13 := JTF_VARCHAR2_TABLE_200();
242 a14 := JTF_VARCHAR2_TABLE_200();
243 a15 := JTF_VARCHAR2_TABLE_200();
244 a16 := JTF_VARCHAR2_TABLE_200();
245 a17 := JTF_VARCHAR2_TABLE_200();
246 a18 := JTF_VARCHAR2_TABLE_200();
247 a19 := JTF_VARCHAR2_TABLE_200();
248 a20 := JTF_VARCHAR2_TABLE_100();
249 else
250 a0 := JTF_NUMBER_TABLE();
251 a1 := JTF_NUMBER_TABLE();
252 a2 := JTF_VARCHAR2_TABLE_300();
253 a3 := JTF_DATE_TABLE();
254 a4 := JTF_VARCHAR2_TABLE_100();
255 a5 := JTF_VARCHAR2_TABLE_200();
256 a6 := JTF_VARCHAR2_TABLE_200();
257 a7 := JTF_VARCHAR2_TABLE_200();
258 a8 := JTF_VARCHAR2_TABLE_200();
259 a9 := JTF_VARCHAR2_TABLE_200();
260 a10 := JTF_VARCHAR2_TABLE_200();
261 a11 := JTF_VARCHAR2_TABLE_200();
262 a12 := JTF_VARCHAR2_TABLE_200();
263 a13 := JTF_VARCHAR2_TABLE_200();
264 a14 := JTF_VARCHAR2_TABLE_200();
265 a15 := JTF_VARCHAR2_TABLE_200();
266 a16 := JTF_VARCHAR2_TABLE_200();
267 a17 := JTF_VARCHAR2_TABLE_200();
268 a18 := JTF_VARCHAR2_TABLE_200();
269 a19 := JTF_VARCHAR2_TABLE_200();
270 a20 := JTF_VARCHAR2_TABLE_100();
271 if t.count > 0 then
272 a0.extend(t.count);
273 a1.extend(t.count);
274 a2.extend(t.count);
275 a3.extend(t.count);
276 a4.extend(t.count);
277 a5.extend(t.count);
278 a6.extend(t.count);
279 a7.extend(t.count);
280 a8.extend(t.count);
281 a9.extend(t.count);
282 a10.extend(t.count);
283 a11.extend(t.count);
284 a12.extend(t.count);
285 a13.extend(t.count);
286 a14.extend(t.count);
287 a15.extend(t.count);
288 a16.extend(t.count);
289 a17.extend(t.count);
290 a18.extend(t.count);
291 a19.extend(t.count);
292 a20.extend(t.count);
293 ddindx := t.first;
294 indx := 1;
295 while true loop
296 a0(indx) := t(ddindx).counter_id;
297 a1(indx) := t(ddindx).counter_property_id;
298 a2(indx) := t(ddindx).property_value;
299 a3(indx) := t(ddindx).value_timestamp;
300 a4(indx) := t(ddindx).attribute_category;
301 a5(indx) := t(ddindx).attribute1;
302 a6(indx) := t(ddindx).attribute2;
303 a7(indx) := t(ddindx).attribute3;
304 a8(indx) := t(ddindx).attribute4;
305 a9(indx) := t(ddindx).attribute5;
306 a10(indx) := t(ddindx).attribute6;
307 a11(indx) := t(ddindx).attribute7;
308 a12(indx) := t(ddindx).attribute8;
309 a13(indx) := t(ddindx).attribute9;
310 a14(indx) := t(ddindx).attribute10;
311 a15(indx) := t(ddindx).attribute11;
312 a16(indx) := t(ddindx).attribute12;
313 a17(indx) := t(ddindx).attribute13;
314 a18(indx) := t(ddindx).attribute14;
315 a19(indx) := t(ddindx).attribute15;
316 a20(indx) := t(ddindx).migrated_flag;
317 indx := indx+1;
318 if t.last =ddindx
319 then exit;
320 end if;
321 ddindx := t.next(ddindx);
322 end loop;
323 end if;
324 end if;
325 end rosetta_table_copy_out_p4;
326
327 procedure rosetta_table_copy_in_p6(t out nocopy eam_asset_operation_txn_pub.meter_reading_rec_tbl_type, a0 JTF_NUMBER_TABLE
328 , a1 JTF_NUMBER_TABLE
329 , a2 JTF_NUMBER_TABLE
330 , a3 JTF_DATE_TABLE
331 , a4 JTF_VARCHAR2_TABLE_100
332 , a5 JTF_VARCHAR2_TABLE_100
333 , a6 JTF_NUMBER_TABLE
334 , a7 JTF_NUMBER_TABLE
335 , a8 JTF_NUMBER_TABLE
336 , a9 JTF_NUMBER_TABLE
337 , a10 JTF_VARCHAR2_TABLE_100
338 , a11 JTF_VARCHAR2_TABLE_100
339 , a12 JTF_VARCHAR2_TABLE_100
340 , a13 JTF_NUMBER_TABLE
341 , a14 JTF_NUMBER_TABLE
342 , a15 JTF_VARCHAR2_TABLE_300
343 , a16 JTF_VARCHAR2_TABLE_100
344 , a17 JTF_VARCHAR2_TABLE_200
345 , a18 JTF_VARCHAR2_TABLE_200
346 , a19 JTF_VARCHAR2_TABLE_200
347 , a20 JTF_VARCHAR2_TABLE_200
348 , a21 JTF_VARCHAR2_TABLE_200
349 , a22 JTF_VARCHAR2_TABLE_200
350 , a23 JTF_VARCHAR2_TABLE_200
351 , a24 JTF_VARCHAR2_TABLE_200
352 , a25 JTF_VARCHAR2_TABLE_200
353 , a26 JTF_VARCHAR2_TABLE_200
354 , a27 JTF_VARCHAR2_TABLE_200
355 , a28 JTF_VARCHAR2_TABLE_200
356 , a29 JTF_VARCHAR2_TABLE_200
357 , a30 JTF_VARCHAR2_TABLE_200
358 , a31 JTF_VARCHAR2_TABLE_200
359 , a32 JTF_VARCHAR2_TABLE_200
360 , a33 JTF_VARCHAR2_TABLE_200
361 , a34 JTF_VARCHAR2_TABLE_200
362 , a35 JTF_VARCHAR2_TABLE_200
363 , a36 JTF_VARCHAR2_TABLE_200
364 , a37 JTF_VARCHAR2_TABLE_200
365 , a38 JTF_VARCHAR2_TABLE_200
366 , a39 JTF_VARCHAR2_TABLE_200
367 , a40 JTF_VARCHAR2_TABLE_200
368 , a41 JTF_VARCHAR2_TABLE_200
369 , a42 JTF_VARCHAR2_TABLE_200
370 , a43 JTF_VARCHAR2_TABLE_200
371 , a44 JTF_VARCHAR2_TABLE_200
372 , a45 JTF_VARCHAR2_TABLE_200
373 , a46 JTF_VARCHAR2_TABLE_200
374 , a47 JTF_NUMBER_TABLE
375 , a48 JTF_VARCHAR2_TABLE_100
376 ) as
380 if a0.count > 0 then
377 ddindx binary_integer; indx binary_integer;
378 begin
379 if a0 is not null and a0.count > 0 then
381 indx := a0.first;
382 ddindx := 1;
383 while true loop
384 t(ddindx).meter_id := a0(indx);
385 t(ddindx).meter_reading_id := a1(indx);
386 t(ddindx).current_reading := a2(indx);
387 t(ddindx).current_reading_date := a3(indx);
388 t(ddindx).reset_flag := a4(indx);
389 t(ddindx).description := a5(indx);
390 t(ddindx).wip_entity_id := a6(indx);
391 t(ddindx).check_in_out_type := a7(indx);
392 t(ddindx).instance_id := a8(indx);
393 t(ddindx).source_line_id := a9(indx);
394 t(ddindx).source_code := a10(indx);
395 t(ddindx).wo_entry_fake_flag := a11(indx);
396 t(ddindx).adjustment_type := a12(indx);
397 t(ddindx).adjustment_reading := a13(indx);
398 t(ddindx).net_reading := a14(indx);
399 t(ddindx).reset_reason := a15(indx);
400 t(ddindx).attribute_category := a16(indx);
401 t(ddindx).attribute1 := a17(indx);
402 t(ddindx).attribute2 := a18(indx);
403 t(ddindx).attribute3 := a19(indx);
404 t(ddindx).attribute4 := a20(indx);
405 t(ddindx).attribute5 := a21(indx);
406 t(ddindx).attribute6 := a22(indx);
407 t(ddindx).attribute7 := a23(indx);
408 t(ddindx).attribute8 := a24(indx);
409 t(ddindx).attribute9 := a25(indx);
410 t(ddindx).attribute10 := a26(indx);
411 t(ddindx).attribute11 := a27(indx);
412 t(ddindx).attribute12 := a28(indx);
413 t(ddindx).attribute13 := a29(indx);
414 t(ddindx).attribute14 := a30(indx);
415 t(ddindx).attribute15 := a31(indx);
416 t(ddindx).attribute16 := a32(indx);
417 t(ddindx).attribute17 := a33(indx);
418 t(ddindx).attribute18 := a34(indx);
419 t(ddindx).attribute19 := a35(indx);
420 t(ddindx).attribute20 := a36(indx);
421 t(ddindx).attribute21 := a37(indx);
422 t(ddindx).attribute22 := a38(indx);
423 t(ddindx).attribute23 := a39(indx);
424 t(ddindx).attribute24 := a40(indx);
425 t(ddindx).attribute25 := a41(indx);
426 t(ddindx).attribute26 := a42(indx);
427 t(ddindx).attribute27 := a43(indx);
428 t(ddindx).attribute28 := a44(indx);
429 t(ddindx).attribute29 := a45(indx);
430 t(ddindx).attribute30 := a46(indx);
431 t(ddindx).value_before_reset := a47(indx);
432 t(ddindx).p_ignore_warnings := a48(indx);
433 ddindx := ddindx+1;
434 if a0.last =indx
435 then exit;
436 end if;
437 indx := a0.next(indx);
438 end loop;
439 end if;
440 end if;
441 end rosetta_table_copy_in_p6;
442 procedure rosetta_table_copy_out_p6(t eam_asset_operation_txn_pub.meter_reading_rec_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
443 , a1 out nocopy JTF_NUMBER_TABLE
444 , a2 out nocopy JTF_NUMBER_TABLE
445 , a3 out nocopy JTF_DATE_TABLE
446 , a4 out nocopy JTF_VARCHAR2_TABLE_100
447 , a5 out nocopy JTF_VARCHAR2_TABLE_100
448 , a6 out nocopy JTF_NUMBER_TABLE
449 , a7 out nocopy JTF_NUMBER_TABLE
450 , a8 out nocopy JTF_NUMBER_TABLE
451 , a9 out nocopy JTF_NUMBER_TABLE
452 , a10 out nocopy JTF_VARCHAR2_TABLE_100
453 , a11 out nocopy JTF_VARCHAR2_TABLE_100
454 , a12 out nocopy JTF_VARCHAR2_TABLE_100
455 , a13 out nocopy JTF_NUMBER_TABLE
456 , a14 out nocopy JTF_NUMBER_TABLE
457 , a15 out nocopy JTF_VARCHAR2_TABLE_300
458 , a16 out nocopy JTF_VARCHAR2_TABLE_100
459 , a17 out nocopy JTF_VARCHAR2_TABLE_200
460 , a18 out nocopy JTF_VARCHAR2_TABLE_200
461 , a19 out nocopy JTF_VARCHAR2_TABLE_200
462 , a20 out nocopy JTF_VARCHAR2_TABLE_200
463 , a21 out nocopy JTF_VARCHAR2_TABLE_200
464 , a22 out nocopy JTF_VARCHAR2_TABLE_200
465 , a23 out nocopy JTF_VARCHAR2_TABLE_200
466 , a24 out nocopy JTF_VARCHAR2_TABLE_200
467 , a25 out nocopy JTF_VARCHAR2_TABLE_200
468 , a26 out nocopy JTF_VARCHAR2_TABLE_200
469 , a27 out nocopy JTF_VARCHAR2_TABLE_200
470 , a28 out nocopy JTF_VARCHAR2_TABLE_200
471 , a29 out nocopy JTF_VARCHAR2_TABLE_200
472 , a30 out nocopy JTF_VARCHAR2_TABLE_200
473 , a31 out nocopy JTF_VARCHAR2_TABLE_200
474 , a32 out nocopy JTF_VARCHAR2_TABLE_200
475 , a33 out nocopy JTF_VARCHAR2_TABLE_200
476 , a34 out nocopy JTF_VARCHAR2_TABLE_200
477 , a35 out nocopy JTF_VARCHAR2_TABLE_200
478 , a36 out nocopy JTF_VARCHAR2_TABLE_200
479 , a37 out nocopy JTF_VARCHAR2_TABLE_200
480 , a38 out nocopy JTF_VARCHAR2_TABLE_200
481 , a39 out nocopy JTF_VARCHAR2_TABLE_200
482 , a40 out nocopy JTF_VARCHAR2_TABLE_200
483 , a41 out nocopy JTF_VARCHAR2_TABLE_200
484 , a42 out nocopy JTF_VARCHAR2_TABLE_200
485 , a43 out nocopy JTF_VARCHAR2_TABLE_200
486 , a44 out nocopy JTF_VARCHAR2_TABLE_200
487 , a45 out nocopy JTF_VARCHAR2_TABLE_200
488 , a46 out nocopy JTF_VARCHAR2_TABLE_200
489 , a47 out nocopy JTF_NUMBER_TABLE
490 , a48 out nocopy JTF_VARCHAR2_TABLE_100
491 ) as
492 ddindx binary_integer; indx binary_integer;
493 begin
494 if t is null or t.count = 0 then
498 a3 := JTF_DATE_TABLE();
495 a0 := JTF_NUMBER_TABLE();
496 a1 := JTF_NUMBER_TABLE();
497 a2 := JTF_NUMBER_TABLE();
499 a4 := JTF_VARCHAR2_TABLE_100();
500 a5 := JTF_VARCHAR2_TABLE_100();
501 a6 := JTF_NUMBER_TABLE();
502 a7 := JTF_NUMBER_TABLE();
503 a8 := JTF_NUMBER_TABLE();
504 a9 := JTF_NUMBER_TABLE();
505 a10 := JTF_VARCHAR2_TABLE_100();
506 a11 := JTF_VARCHAR2_TABLE_100();
507 a12 := JTF_VARCHAR2_TABLE_100();
508 a13 := JTF_NUMBER_TABLE();
509 a14 := JTF_NUMBER_TABLE();
510 a15 := JTF_VARCHAR2_TABLE_300();
511 a16 := JTF_VARCHAR2_TABLE_100();
512 a17 := JTF_VARCHAR2_TABLE_200();
513 a18 := JTF_VARCHAR2_TABLE_200();
514 a19 := JTF_VARCHAR2_TABLE_200();
515 a20 := JTF_VARCHAR2_TABLE_200();
516 a21 := JTF_VARCHAR2_TABLE_200();
517 a22 := JTF_VARCHAR2_TABLE_200();
518 a23 := JTF_VARCHAR2_TABLE_200();
519 a24 := JTF_VARCHAR2_TABLE_200();
520 a25 := JTF_VARCHAR2_TABLE_200();
521 a26 := JTF_VARCHAR2_TABLE_200();
522 a27 := JTF_VARCHAR2_TABLE_200();
523 a28 := JTF_VARCHAR2_TABLE_200();
524 a29 := JTF_VARCHAR2_TABLE_200();
525 a30 := JTF_VARCHAR2_TABLE_200();
526 a31 := JTF_VARCHAR2_TABLE_200();
527 a32 := JTF_VARCHAR2_TABLE_200();
528 a33 := JTF_VARCHAR2_TABLE_200();
529 a34 := JTF_VARCHAR2_TABLE_200();
530 a35 := JTF_VARCHAR2_TABLE_200();
531 a36 := JTF_VARCHAR2_TABLE_200();
532 a37 := JTF_VARCHAR2_TABLE_200();
533 a38 := JTF_VARCHAR2_TABLE_200();
534 a39 := JTF_VARCHAR2_TABLE_200();
535 a40 := JTF_VARCHAR2_TABLE_200();
536 a41 := JTF_VARCHAR2_TABLE_200();
537 a42 := JTF_VARCHAR2_TABLE_200();
538 a43 := JTF_VARCHAR2_TABLE_200();
539 a44 := JTF_VARCHAR2_TABLE_200();
540 a45 := JTF_VARCHAR2_TABLE_200();
541 a46 := JTF_VARCHAR2_TABLE_200();
542 a47 := JTF_NUMBER_TABLE();
543 a48 := JTF_VARCHAR2_TABLE_100();
544 else
545 a0 := JTF_NUMBER_TABLE();
546 a1 := JTF_NUMBER_TABLE();
547 a2 := JTF_NUMBER_TABLE();
548 a3 := JTF_DATE_TABLE();
549 a4 := JTF_VARCHAR2_TABLE_100();
550 a5 := JTF_VARCHAR2_TABLE_100();
551 a6 := JTF_NUMBER_TABLE();
552 a7 := JTF_NUMBER_TABLE();
553 a8 := JTF_NUMBER_TABLE();
554 a9 := JTF_NUMBER_TABLE();
555 a10 := JTF_VARCHAR2_TABLE_100();
556 a11 := JTF_VARCHAR2_TABLE_100();
557 a12 := JTF_VARCHAR2_TABLE_100();
558 a13 := JTF_NUMBER_TABLE();
559 a14 := JTF_NUMBER_TABLE();
560 a15 := JTF_VARCHAR2_TABLE_300();
561 a16 := JTF_VARCHAR2_TABLE_100();
562 a17 := JTF_VARCHAR2_TABLE_200();
563 a18 := JTF_VARCHAR2_TABLE_200();
564 a19 := JTF_VARCHAR2_TABLE_200();
565 a20 := JTF_VARCHAR2_TABLE_200();
566 a21 := JTF_VARCHAR2_TABLE_200();
567 a22 := JTF_VARCHAR2_TABLE_200();
568 a23 := JTF_VARCHAR2_TABLE_200();
569 a24 := JTF_VARCHAR2_TABLE_200();
570 a25 := JTF_VARCHAR2_TABLE_200();
571 a26 := JTF_VARCHAR2_TABLE_200();
572 a27 := JTF_VARCHAR2_TABLE_200();
573 a28 := JTF_VARCHAR2_TABLE_200();
574 a29 := JTF_VARCHAR2_TABLE_200();
575 a30 := JTF_VARCHAR2_TABLE_200();
576 a31 := JTF_VARCHAR2_TABLE_200();
577 a32 := JTF_VARCHAR2_TABLE_200();
578 a33 := JTF_VARCHAR2_TABLE_200();
579 a34 := JTF_VARCHAR2_TABLE_200();
580 a35 := JTF_VARCHAR2_TABLE_200();
581 a36 := JTF_VARCHAR2_TABLE_200();
582 a37 := JTF_VARCHAR2_TABLE_200();
583 a38 := JTF_VARCHAR2_TABLE_200();
584 a39 := JTF_VARCHAR2_TABLE_200();
585 a40 := JTF_VARCHAR2_TABLE_200();
586 a41 := JTF_VARCHAR2_TABLE_200();
587 a42 := JTF_VARCHAR2_TABLE_200();
588 a43 := JTF_VARCHAR2_TABLE_200();
589 a44 := JTF_VARCHAR2_TABLE_200();
590 a45 := JTF_VARCHAR2_TABLE_200();
591 a46 := JTF_VARCHAR2_TABLE_200();
592 a47 := JTF_NUMBER_TABLE();
593 a48 := JTF_VARCHAR2_TABLE_100();
594 if t.count > 0 then
595 a0.extend(t.count);
596 a1.extend(t.count);
597 a2.extend(t.count);
598 a3.extend(t.count);
599 a4.extend(t.count);
600 a5.extend(t.count);
601 a6.extend(t.count);
602 a7.extend(t.count);
603 a8.extend(t.count);
604 a9.extend(t.count);
605 a10.extend(t.count);
606 a11.extend(t.count);
607 a12.extend(t.count);
608 a13.extend(t.count);
609 a14.extend(t.count);
610 a15.extend(t.count);
611 a16.extend(t.count);
612 a17.extend(t.count);
613 a18.extend(t.count);
614 a19.extend(t.count);
615 a20.extend(t.count);
616 a21.extend(t.count);
617 a22.extend(t.count);
618 a23.extend(t.count);
619 a24.extend(t.count);
620 a25.extend(t.count);
621 a26.extend(t.count);
622 a27.extend(t.count);
623 a28.extend(t.count);
624 a29.extend(t.count);
625 a30.extend(t.count);
626 a31.extend(t.count);
627 a32.extend(t.count);
628 a33.extend(t.count);
629 a34.extend(t.count);
630 a35.extend(t.count);
634 a39.extend(t.count);
631 a36.extend(t.count);
632 a37.extend(t.count);
633 a38.extend(t.count);
635 a40.extend(t.count);
636 a41.extend(t.count);
637 a42.extend(t.count);
638 a43.extend(t.count);
639 a44.extend(t.count);
640 a45.extend(t.count);
641 a46.extend(t.count);
642 a47.extend(t.count);
643 a48.extend(t.count);
644 ddindx := t.first;
645 indx := 1;
646 while true loop
647 a0(indx) := t(ddindx).meter_id;
648 a1(indx) := t(ddindx).meter_reading_id;
649 a2(indx) := t(ddindx).current_reading;
650 a3(indx) := t(ddindx).current_reading_date;
651 a4(indx) := t(ddindx).reset_flag;
652 a5(indx) := t(ddindx).description;
653 a6(indx) := t(ddindx).wip_entity_id;
654 a7(indx) := t(ddindx).check_in_out_type;
655 a8(indx) := t(ddindx).instance_id;
656 a9(indx) := t(ddindx).source_line_id;
657 a10(indx) := t(ddindx).source_code;
658 a11(indx) := t(ddindx).wo_entry_fake_flag;
659 a12(indx) := t(ddindx).adjustment_type;
660 a13(indx) := t(ddindx).adjustment_reading;
661 a14(indx) := t(ddindx).net_reading;
662 a15(indx) := t(ddindx).reset_reason;
663 a16(indx) := t(ddindx).attribute_category;
664 a17(indx) := t(ddindx).attribute1;
665 a18(indx) := t(ddindx).attribute2;
666 a19(indx) := t(ddindx).attribute3;
667 a20(indx) := t(ddindx).attribute4;
668 a21(indx) := t(ddindx).attribute5;
669 a22(indx) := t(ddindx).attribute6;
670 a23(indx) := t(ddindx).attribute7;
671 a24(indx) := t(ddindx).attribute8;
672 a25(indx) := t(ddindx).attribute9;
673 a26(indx) := t(ddindx).attribute10;
674 a27(indx) := t(ddindx).attribute11;
675 a28(indx) := t(ddindx).attribute12;
676 a29(indx) := t(ddindx).attribute13;
677 a30(indx) := t(ddindx).attribute14;
678 a31(indx) := t(ddindx).attribute15;
679 a32(indx) := t(ddindx).attribute16;
680 a33(indx) := t(ddindx).attribute17;
681 a34(indx) := t(ddindx).attribute18;
682 a35(indx) := t(ddindx).attribute19;
683 a36(indx) := t(ddindx).attribute20;
684 a37(indx) := t(ddindx).attribute21;
685 a38(indx) := t(ddindx).attribute22;
686 a39(indx) := t(ddindx).attribute23;
687 a40(indx) := t(ddindx).attribute24;
688 a41(indx) := t(ddindx).attribute25;
689 a42(indx) := t(ddindx).attribute26;
690 a43(indx) := t(ddindx).attribute27;
691 a44(indx) := t(ddindx).attribute28;
692 a45(indx) := t(ddindx).attribute29;
693 a46(indx) := t(ddindx).attribute30;
694 a47(indx) := t(ddindx).value_before_reset;
695 a48(indx) := t(ddindx).p_ignore_warnings;
696 indx := indx+1;
697 if t.last =ddindx
698 then exit;
699 end if;
700 ddindx := t.next(ddindx);
701 end loop;
702 end if;
703 end if;
704 end rosetta_table_copy_out_p6;
705
706 procedure process_checkinout_txn(p_api_version NUMBER
707 , p_init_msg_list VARCHAR2
708 , p_commit VARCHAR2
709 , p_validation_level NUMBER
710 , p_txn_date DATE
711 , p_txn_type NUMBER
712 , p_instance_id NUMBER
713 , p_comments VARCHAR2
714 , p_qa_collection_id NUMBER
715 , p_operable_flag NUMBER
716 , p_employee_id NUMBER
717 , p11_a0 JTF_NUMBER_TABLE
718 , p11_a1 JTF_NUMBER_TABLE
719 , p11_a2 JTF_NUMBER_TABLE
720 , p11_a3 JTF_NUMBER_TABLE
721 , p11_a4 JTF_NUMBER_TABLE
722 , p11_a5 JTF_NUMBER_TABLE
723 , p11_a6 JTF_NUMBER_TABLE
724 , p11_a7 JTF_NUMBER_TABLE
725 , p11_a8 JTF_VARCHAR2_TABLE_2000
726 , p11_a9 JTF_VARCHAR2_TABLE_100
727 , p11_a10 JTF_NUMBER_TABLE
728 , p11_a11 JTF_NUMBER_TABLE
729 , p11_a12 JTF_NUMBER_TABLE
730 , p11_a13 JTF_VARCHAR2_TABLE_100
731 , p11_a14 JTF_NUMBER_TABLE
732 , p12_a0 JTF_NUMBER_TABLE
733 , p12_a1 JTF_NUMBER_TABLE
734 , p12_a2 JTF_NUMBER_TABLE
735 , p12_a3 JTF_DATE_TABLE
736 , p12_a4 JTF_VARCHAR2_TABLE_100
737 , p12_a5 JTF_VARCHAR2_TABLE_100
738 , p12_a6 JTF_NUMBER_TABLE
739 , p12_a7 JTF_NUMBER_TABLE
740 , p12_a8 JTF_NUMBER_TABLE
741 , p12_a9 JTF_NUMBER_TABLE
742 , p12_a10 JTF_VARCHAR2_TABLE_100
743 , p12_a11 JTF_VARCHAR2_TABLE_100
744 , p12_a12 JTF_VARCHAR2_TABLE_100
745 , p12_a13 JTF_NUMBER_TABLE
746 , p12_a14 JTF_NUMBER_TABLE
747 , p12_a15 JTF_VARCHAR2_TABLE_300
748 , p12_a16 JTF_VARCHAR2_TABLE_100
749 , p12_a17 JTF_VARCHAR2_TABLE_200
750 , p12_a18 JTF_VARCHAR2_TABLE_200
751 , p12_a19 JTF_VARCHAR2_TABLE_200
752 , p12_a20 JTF_VARCHAR2_TABLE_200
753 , p12_a21 JTF_VARCHAR2_TABLE_200
754 , p12_a22 JTF_VARCHAR2_TABLE_200
755 , p12_a23 JTF_VARCHAR2_TABLE_200
756 , p12_a24 JTF_VARCHAR2_TABLE_200
757 , p12_a25 JTF_VARCHAR2_TABLE_200
758 , p12_a26 JTF_VARCHAR2_TABLE_200
759 , p12_a27 JTF_VARCHAR2_TABLE_200
760 , p12_a28 JTF_VARCHAR2_TABLE_200
764 , p12_a32 JTF_VARCHAR2_TABLE_200
761 , p12_a29 JTF_VARCHAR2_TABLE_200
762 , p12_a30 JTF_VARCHAR2_TABLE_200
763 , p12_a31 JTF_VARCHAR2_TABLE_200
765 , p12_a33 JTF_VARCHAR2_TABLE_200
766 , p12_a34 JTF_VARCHAR2_TABLE_200
767 , p12_a35 JTF_VARCHAR2_TABLE_200
768 , p12_a36 JTF_VARCHAR2_TABLE_200
769 , p12_a37 JTF_VARCHAR2_TABLE_200
770 , p12_a38 JTF_VARCHAR2_TABLE_200
771 , p12_a39 JTF_VARCHAR2_TABLE_200
772 , p12_a40 JTF_VARCHAR2_TABLE_200
773 , p12_a41 JTF_VARCHAR2_TABLE_200
774 , p12_a42 JTF_VARCHAR2_TABLE_200
775 , p12_a43 JTF_VARCHAR2_TABLE_200
776 , p12_a44 JTF_VARCHAR2_TABLE_200
777 , p12_a45 JTF_VARCHAR2_TABLE_200
778 , p12_a46 JTF_VARCHAR2_TABLE_200
779 , p12_a47 JTF_NUMBER_TABLE
780 , p12_a48 JTF_VARCHAR2_TABLE_100
781 , p13_a0 JTF_NUMBER_TABLE
782 , p13_a1 JTF_NUMBER_TABLE
783 , p13_a2 JTF_VARCHAR2_TABLE_300
784 , p13_a3 JTF_DATE_TABLE
785 , p13_a4 JTF_VARCHAR2_TABLE_100
786 , p13_a5 JTF_VARCHAR2_TABLE_200
787 , p13_a6 JTF_VARCHAR2_TABLE_200
788 , p13_a7 JTF_VARCHAR2_TABLE_200
789 , p13_a8 JTF_VARCHAR2_TABLE_200
790 , p13_a9 JTF_VARCHAR2_TABLE_200
791 , p13_a10 JTF_VARCHAR2_TABLE_200
792 , p13_a11 JTF_VARCHAR2_TABLE_200
793 , p13_a12 JTF_VARCHAR2_TABLE_200
794 , p13_a13 JTF_VARCHAR2_TABLE_200
795 , p13_a14 JTF_VARCHAR2_TABLE_200
796 , p13_a15 JTF_VARCHAR2_TABLE_200
797 , p13_a16 JTF_VARCHAR2_TABLE_200
798 , p13_a17 JTF_VARCHAR2_TABLE_200
799 , p13_a18 JTF_VARCHAR2_TABLE_200
800 , p13_a19 JTF_VARCHAR2_TABLE_200
801 , p13_a20 JTF_VARCHAR2_TABLE_100
802 , p_attribute_category VARCHAR2
803 , p_attribute1 VARCHAR2
804 , p_attribute2 VARCHAR2
805 , p_attribute3 VARCHAR2
806 , p_attribute4 VARCHAR2
807 , p_attribute5 VARCHAR2
808 , p_attribute6 VARCHAR2
809 , p_attribute7 VARCHAR2
810 , p_attribute8 VARCHAR2
811 , p_attribute9 VARCHAR2
812 , p_attribute10 VARCHAR2
813 , p_attribute11 VARCHAR2
814 , p_attribute12 VARCHAR2
815 , p_attribute13 VARCHAR2
816 , p_attribute14 VARCHAR2
817 , p_attribute15 VARCHAR2
818 , x_return_status out nocopy VARCHAR2
819 , x_msg_count out nocopy NUMBER
820 , x_msg_data out nocopy VARCHAR2
821 )
822
823 as
824 ddp_eam_ops_quality_tbl eam_asset_operation_txn_pub.eam_quality_tbl_type;
825 ddp_meter_reading_rec_tbl eam_asset_operation_txn_pub.meter_reading_rec_tbl_type;
826 ddp_counter_properties_tbl eam_asset_operation_txn_pub.ctr_property_readings_tbl;
827 ddindx binary_integer; indx binary_integer;
828 begin
829
830 -- copy data to the local IN or IN-OUT args, if any
831
832
833
834
835
836
837
838
839
840
841
842 eam_asset_operation_txn_pub_w.rosetta_table_copy_in_p2(ddp_eam_ops_quality_tbl, p11_a0
843 , p11_a1
844 , p11_a2
845 , p11_a3
846 , p11_a4
847 , p11_a5
848 , p11_a6
849 , p11_a7
850 , p11_a8
851 , p11_a9
852 , p11_a10
853 , p11_a11
854 , p11_a12
855 , p11_a13
856 , p11_a14
857 );
858
859 eam_asset_operation_txn_pub_w.rosetta_table_copy_in_p6(ddp_meter_reading_rec_tbl, p12_a0
860 , p12_a1
861 , p12_a2
862 , p12_a3
863 , p12_a4
864 , p12_a5
865 , p12_a6
866 , p12_a7
867 , p12_a8
868 , p12_a9
869 , p12_a10
870 , p12_a11
871 , p12_a12
872 , p12_a13
873 , p12_a14
874 , p12_a15
875 , p12_a16
876 , p12_a17
877 , p12_a18
878 , p12_a19
879 , p12_a20
880 , p12_a21
881 , p12_a22
882 , p12_a23
883 , p12_a24
884 , p12_a25
885 , p12_a26
886 , p12_a27
887 , p12_a28
888 , p12_a29
889 , p12_a30
890 , p12_a31
891 , p12_a32
892 , p12_a33
893 , p12_a34
894 , p12_a35
895 , p12_a36
896 , p12_a37
897 , p12_a38
898 , p12_a39
899 , p12_a40
900 , p12_a41
901 , p12_a42
902 , p12_a43
903 , p12_a44
904 , p12_a45
905 , p12_a46
906 , p12_a47
907 , p12_a48
908 );
909
910 eam_asset_operation_txn_pub_w.rosetta_table_copy_in_p4(ddp_counter_properties_tbl, p13_a0
911 , p13_a1
912 , p13_a2
913 , p13_a3
914 , p13_a4
915 , p13_a5
916 , p13_a6
917 , p13_a7
918 , p13_a8
919 , p13_a9
920 , p13_a10
921 , p13_a11
922 , p13_a12
923 , p13_a13
924 , p13_a14
925 , p13_a15
926 , p13_a16
927 , p13_a17
928 , p13_a18
929 , p13_a19
930 , p13_a20
931 );
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952 -- here's the delegated call to the old PL/SQL routine
953 eam_asset_operation_txn_pub.process_checkinout_txn(p_api_version,
954 p_init_msg_list,
955 p_commit,
956 p_validation_level,
957 p_txn_date,
958 p_txn_type,
959 p_instance_id,
960 p_comments,
961 p_qa_collection_id,
962 p_operable_flag,
963 p_employee_id,
964 ddp_eam_ops_quality_tbl,
965 ddp_meter_reading_rec_tbl,
966 ddp_counter_properties_tbl,
967 p_attribute_category,
968 p_attribute1,
969 p_attribute2,
970 p_attribute3,
971 p_attribute4,
972 p_attribute5,
973 p_attribute6,
974 p_attribute7,
975 p_attribute8,
976 p_attribute9,
977 p_attribute10,
978 p_attribute11,
979 p_attribute12,
980 p_attribute13,
981 p_attribute14,
982 p_attribute15,
983 x_return_status,
984 x_msg_count,
985 x_msg_data);
986
987 -- copy data back from the local variables to OUT or IN-OUT args, if any
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020 end;
1021
1022 end eam_asset_operation_txn_pub_w;