[Home] [Help]
PACKAGE BODY: APPS.AHL_UMP_UNITMAINT_PVT_W
Source
1 package body ahl_ump_unitmaint_pvt_w as
2 /* $Header: AHLVUMWB.pls 120.1 2005/08/17 09:02:53 pbarman noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure rosetta_table_copy_in_p3(t out nocopy ahl_ump_unitmaint_pvt.unit_effectivity_tbl_type, a0 JTF_NUMBER_TABLE
17 , a1 JTF_NUMBER_TABLE
18 , a2 JTF_DATE_TABLE
19 , a3 JTF_NUMBER_TABLE
20 , a4 JTF_DATE_TABLE
21 , a5 JTF_NUMBER_TABLE
22 , a6 JTF_NUMBER_TABLE
23 , a7 JTF_NUMBER_TABLE
24 , a8 JTF_VARCHAR2_TABLE_100
25 , a9 JTF_NUMBER_TABLE
26 , a10 JTF_NUMBER_TABLE
27 , a11 JTF_NUMBER_TABLE
28 , a12 JTF_VARCHAR2_TABLE_100
29 , a13 JTF_NUMBER_TABLE
30 , a14 JTF_VARCHAR2_TABLE_100
31 , a15 JTF_VARCHAR2_TABLE_100
32 , a16 JTF_DATE_TABLE
33 , a17 JTF_NUMBER_TABLE
34 , a18 JTF_NUMBER_TABLE
35 , a19 JTF_VARCHAR2_TABLE_100
36 , a20 JTF_VARCHAR2_TABLE_100
37 , a21 JTF_VARCHAR2_TABLE_100
38 , a22 JTF_NUMBER_TABLE
39 , a23 JTF_VARCHAR2_TABLE_4000
40 , a24 JTF_DATE_TABLE
41 , a25 JTF_DATE_TABLE
42 , a26 JTF_DATE_TABLE
43 , a27 JTF_NUMBER_TABLE
44 , a28 JTF_NUMBER_TABLE
45 , a29 JTF_NUMBER_TABLE
46 , a30 JTF_VARCHAR2_TABLE_100
47 , a31 JTF_VARCHAR2_TABLE_200
48 , a32 JTF_VARCHAR2_TABLE_200
49 , a33 JTF_VARCHAR2_TABLE_200
50 , a34 JTF_VARCHAR2_TABLE_200
51 , a35 JTF_VARCHAR2_TABLE_200
52 , a36 JTF_VARCHAR2_TABLE_200
53 , a37 JTF_VARCHAR2_TABLE_200
54 , a38 JTF_VARCHAR2_TABLE_200
55 , a39 JTF_VARCHAR2_TABLE_200
56 , a40 JTF_VARCHAR2_TABLE_200
57 , a41 JTF_VARCHAR2_TABLE_200
58 , a42 JTF_VARCHAR2_TABLE_200
59 , a43 JTF_VARCHAR2_TABLE_200
60 , a44 JTF_VARCHAR2_TABLE_200
61 , a45 JTF_VARCHAR2_TABLE_200
62 ) as
63 ddindx binary_integer; indx binary_integer;
64 begin
65 if a0 is not null and a0.count > 0 then
66 if a0.count > 0 then
67 indx := a0.first;
68 ddindx := 1;
69 while true loop
70 t(ddindx).unit_effectivity_id := a0(indx);
71 t(ddindx).object_version_number := a1(indx);
72 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a2(indx));
73 t(ddindx).last_updated_by := a3(indx);
74 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a4(indx));
75 t(ddindx).created_by := a5(indx);
76 t(ddindx).last_update_login := a6(indx);
77 t(ddindx).csi_item_instance_id := a7(indx);
78 t(ddindx).csi_instance_number := a8(indx);
79 t(ddindx).mr_interval_id := a9(indx);
80 t(ddindx).mr_effectivity_id := a10(indx);
81 t(ddindx).mr_id := a11(indx);
82 t(ddindx).mr_title := a12(indx);
83 t(ddindx).mr_version_number := a13(indx);
84 t(ddindx).status_code := a14(indx);
85 t(ddindx).status := a15(indx);
86 t(ddindx).due_date := rosetta_g_miss_date_in_map(a16(indx));
87 t(ddindx).due_counter_value := a17(indx);
88 t(ddindx).forecast_sequence := a18(indx);
89 t(ddindx).repetitive_mr_flag := a19(indx);
90 t(ddindx).tolerance_flag := a20(indx);
91 t(ddindx).message_code := a21(indx);
92 t(ddindx).preceding_ue_id := a22(indx);
93 t(ddindx).remarks := a23(indx);
94 t(ddindx).date_run := rosetta_g_miss_date_in_map(a24(indx));
95 t(ddindx).set_due_date := rosetta_g_miss_date_in_map(a25(indx));
96 t(ddindx).accomplished_date := rosetta_g_miss_date_in_map(a26(indx));
97 t(ddindx).qa_collection_id := a27(indx);
98 t(ddindx).unit_deferral_id := a28(indx);
99 t(ddindx).unit_deferral_object_version := a29(indx);
100 t(ddindx).attribute_category := a30(indx);
101 t(ddindx).attribute1 := a31(indx);
102 t(ddindx).attribute2 := a32(indx);
103 t(ddindx).attribute3 := a33(indx);
104 t(ddindx).attribute4 := a34(indx);
105 t(ddindx).attribute5 := a35(indx);
106 t(ddindx).attribute6 := a36(indx);
107 t(ddindx).attribute7 := a37(indx);
108 t(ddindx).attribute8 := a38(indx);
109 t(ddindx).attribute9 := a39(indx);
110 t(ddindx).attribute10 := a40(indx);
111 t(ddindx).attribute11 := a41(indx);
112 t(ddindx).attribute12 := a42(indx);
113 t(ddindx).attribute13 := a43(indx);
114 t(ddindx).attribute14 := a44(indx);
115 t(ddindx).attribute15 := a45(indx);
116 ddindx := ddindx+1;
117 if a0.last =indx
118 then exit;
119 end if;
120 indx := a0.next(indx);
121 end loop;
122 end if;
123 end if;
124 end rosetta_table_copy_in_p3;
125 procedure rosetta_table_copy_out_p3(t ahl_ump_unitmaint_pvt.unit_effectivity_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
126 , a1 out nocopy JTF_NUMBER_TABLE
127 , a2 out nocopy JTF_DATE_TABLE
128 , a3 out nocopy JTF_NUMBER_TABLE
129 , a4 out nocopy JTF_DATE_TABLE
130 , a5 out nocopy JTF_NUMBER_TABLE
131 , a6 out nocopy JTF_NUMBER_TABLE
132 , a7 out nocopy JTF_NUMBER_TABLE
133 , a8 out nocopy JTF_VARCHAR2_TABLE_100
134 , a9 out nocopy JTF_NUMBER_TABLE
135 , a10 out nocopy JTF_NUMBER_TABLE
136 , a11 out nocopy JTF_NUMBER_TABLE
137 , a12 out nocopy JTF_VARCHAR2_TABLE_100
138 , a13 out nocopy JTF_NUMBER_TABLE
139 , a14 out nocopy JTF_VARCHAR2_TABLE_100
140 , a15 out nocopy JTF_VARCHAR2_TABLE_100
141 , a16 out nocopy JTF_DATE_TABLE
142 , a17 out nocopy JTF_NUMBER_TABLE
143 , a18 out nocopy JTF_NUMBER_TABLE
144 , a19 out nocopy JTF_VARCHAR2_TABLE_100
145 , a20 out nocopy JTF_VARCHAR2_TABLE_100
146 , a21 out nocopy JTF_VARCHAR2_TABLE_100
147 , a22 out nocopy JTF_NUMBER_TABLE
148 , a23 out nocopy JTF_VARCHAR2_TABLE_4000
149 , a24 out nocopy JTF_DATE_TABLE
150 , a25 out nocopy JTF_DATE_TABLE
151 , a26 out nocopy JTF_DATE_TABLE
152 , a27 out nocopy JTF_NUMBER_TABLE
153 , a28 out nocopy JTF_NUMBER_TABLE
154 , a29 out nocopy JTF_NUMBER_TABLE
155 , a30 out nocopy JTF_VARCHAR2_TABLE_100
156 , a31 out nocopy JTF_VARCHAR2_TABLE_200
157 , a32 out nocopy JTF_VARCHAR2_TABLE_200
158 , a33 out nocopy JTF_VARCHAR2_TABLE_200
159 , a34 out nocopy JTF_VARCHAR2_TABLE_200
160 , a35 out nocopy JTF_VARCHAR2_TABLE_200
161 , a36 out nocopy JTF_VARCHAR2_TABLE_200
162 , a37 out nocopy JTF_VARCHAR2_TABLE_200
163 , a38 out nocopy JTF_VARCHAR2_TABLE_200
164 , a39 out nocopy JTF_VARCHAR2_TABLE_200
165 , a40 out nocopy JTF_VARCHAR2_TABLE_200
166 , a41 out nocopy JTF_VARCHAR2_TABLE_200
167 , a42 out nocopy JTF_VARCHAR2_TABLE_200
168 , a43 out nocopy JTF_VARCHAR2_TABLE_200
169 , a44 out nocopy JTF_VARCHAR2_TABLE_200
170 , a45 out nocopy JTF_VARCHAR2_TABLE_200
171 ) as
172 ddindx binary_integer; indx binary_integer;
173 begin
174 if t is null or t.count = 0 then
175 a0 := JTF_NUMBER_TABLE();
176 a1 := JTF_NUMBER_TABLE();
177 a2 := JTF_DATE_TABLE();
178 a3 := JTF_NUMBER_TABLE();
179 a4 := JTF_DATE_TABLE();
180 a5 := JTF_NUMBER_TABLE();
181 a6 := JTF_NUMBER_TABLE();
182 a7 := JTF_NUMBER_TABLE();
183 a8 := JTF_VARCHAR2_TABLE_100();
184 a9 := JTF_NUMBER_TABLE();
185 a10 := JTF_NUMBER_TABLE();
186 a11 := JTF_NUMBER_TABLE();
187 a12 := JTF_VARCHAR2_TABLE_100();
188 a13 := JTF_NUMBER_TABLE();
189 a14 := JTF_VARCHAR2_TABLE_100();
190 a15 := JTF_VARCHAR2_TABLE_100();
191 a16 := JTF_DATE_TABLE();
192 a17 := JTF_NUMBER_TABLE();
193 a18 := JTF_NUMBER_TABLE();
194 a19 := JTF_VARCHAR2_TABLE_100();
195 a20 := JTF_VARCHAR2_TABLE_100();
196 a21 := JTF_VARCHAR2_TABLE_100();
197 a22 := JTF_NUMBER_TABLE();
198 a23 := JTF_VARCHAR2_TABLE_4000();
199 a24 := JTF_DATE_TABLE();
200 a25 := JTF_DATE_TABLE();
201 a26 := JTF_DATE_TABLE();
202 a27 := JTF_NUMBER_TABLE();
203 a28 := JTF_NUMBER_TABLE();
204 a29 := JTF_NUMBER_TABLE();
205 a30 := JTF_VARCHAR2_TABLE_100();
206 a31 := JTF_VARCHAR2_TABLE_200();
207 a32 := JTF_VARCHAR2_TABLE_200();
208 a33 := JTF_VARCHAR2_TABLE_200();
209 a34 := JTF_VARCHAR2_TABLE_200();
210 a35 := JTF_VARCHAR2_TABLE_200();
211 a36 := JTF_VARCHAR2_TABLE_200();
212 a37 := JTF_VARCHAR2_TABLE_200();
213 a38 := JTF_VARCHAR2_TABLE_200();
214 a39 := JTF_VARCHAR2_TABLE_200();
215 a40 := JTF_VARCHAR2_TABLE_200();
216 a41 := JTF_VARCHAR2_TABLE_200();
217 a42 := JTF_VARCHAR2_TABLE_200();
218 a43 := JTF_VARCHAR2_TABLE_200();
219 a44 := JTF_VARCHAR2_TABLE_200();
220 a45 := JTF_VARCHAR2_TABLE_200();
221 else
222 a0 := JTF_NUMBER_TABLE();
223 a1 := JTF_NUMBER_TABLE();
224 a2 := JTF_DATE_TABLE();
225 a3 := JTF_NUMBER_TABLE();
226 a4 := JTF_DATE_TABLE();
227 a5 := JTF_NUMBER_TABLE();
228 a6 := JTF_NUMBER_TABLE();
229 a7 := JTF_NUMBER_TABLE();
230 a8 := JTF_VARCHAR2_TABLE_100();
231 a9 := JTF_NUMBER_TABLE();
232 a10 := JTF_NUMBER_TABLE();
233 a11 := JTF_NUMBER_TABLE();
234 a12 := JTF_VARCHAR2_TABLE_100();
235 a13 := JTF_NUMBER_TABLE();
236 a14 := JTF_VARCHAR2_TABLE_100();
237 a15 := JTF_VARCHAR2_TABLE_100();
238 a16 := JTF_DATE_TABLE();
239 a17 := JTF_NUMBER_TABLE();
240 a18 := JTF_NUMBER_TABLE();
241 a19 := JTF_VARCHAR2_TABLE_100();
242 a20 := JTF_VARCHAR2_TABLE_100();
243 a21 := JTF_VARCHAR2_TABLE_100();
244 a22 := JTF_NUMBER_TABLE();
245 a23 := JTF_VARCHAR2_TABLE_4000();
246 a24 := JTF_DATE_TABLE();
247 a25 := JTF_DATE_TABLE();
248 a26 := JTF_DATE_TABLE();
249 a27 := JTF_NUMBER_TABLE();
250 a28 := JTF_NUMBER_TABLE();
251 a29 := JTF_NUMBER_TABLE();
252 a30 := JTF_VARCHAR2_TABLE_100();
253 a31 := JTF_VARCHAR2_TABLE_200();
254 a32 := JTF_VARCHAR2_TABLE_200();
255 a33 := JTF_VARCHAR2_TABLE_200();
256 a34 := JTF_VARCHAR2_TABLE_200();
257 a35 := JTF_VARCHAR2_TABLE_200();
258 a36 := JTF_VARCHAR2_TABLE_200();
259 a37 := JTF_VARCHAR2_TABLE_200();
260 a38 := JTF_VARCHAR2_TABLE_200();
261 a39 := JTF_VARCHAR2_TABLE_200();
262 a40 := JTF_VARCHAR2_TABLE_200();
263 a41 := JTF_VARCHAR2_TABLE_200();
264 a42 := JTF_VARCHAR2_TABLE_200();
265 a43 := JTF_VARCHAR2_TABLE_200();
266 a44 := JTF_VARCHAR2_TABLE_200();
267 a45 := JTF_VARCHAR2_TABLE_200();
268 if t.count > 0 then
269 a0.extend(t.count);
270 a1.extend(t.count);
271 a2.extend(t.count);
272 a3.extend(t.count);
273 a4.extend(t.count);
274 a5.extend(t.count);
275 a6.extend(t.count);
276 a7.extend(t.count);
277 a8.extend(t.count);
278 a9.extend(t.count);
279 a10.extend(t.count);
280 a11.extend(t.count);
281 a12.extend(t.count);
282 a13.extend(t.count);
283 a14.extend(t.count);
284 a15.extend(t.count);
285 a16.extend(t.count);
286 a17.extend(t.count);
287 a18.extend(t.count);
288 a19.extend(t.count);
289 a20.extend(t.count);
290 a21.extend(t.count);
291 a22.extend(t.count);
292 a23.extend(t.count);
293 a24.extend(t.count);
294 a25.extend(t.count);
295 a26.extend(t.count);
296 a27.extend(t.count);
297 a28.extend(t.count);
298 a29.extend(t.count);
299 a30.extend(t.count);
300 a31.extend(t.count);
301 a32.extend(t.count);
302 a33.extend(t.count);
303 a34.extend(t.count);
304 a35.extend(t.count);
305 a36.extend(t.count);
306 a37.extend(t.count);
307 a38.extend(t.count);
308 a39.extend(t.count);
309 a40.extend(t.count);
310 a41.extend(t.count);
311 a42.extend(t.count);
312 a43.extend(t.count);
313 a44.extend(t.count);
314 a45.extend(t.count);
315 ddindx := t.first;
316 indx := 1;
317 while true loop
318 a0(indx) := t(ddindx).unit_effectivity_id;
319 a1(indx) := t(ddindx).object_version_number;
320 a2(indx) := t(ddindx).last_update_date;
321 a3(indx) := t(ddindx).last_updated_by;
322 a4(indx) := t(ddindx).creation_date;
323 a5(indx) := t(ddindx).created_by;
324 a6(indx) := t(ddindx).last_update_login;
325 a7(indx) := t(ddindx).csi_item_instance_id;
326 a8(indx) := t(ddindx).csi_instance_number;
327 a9(indx) := t(ddindx).mr_interval_id;
328 a10(indx) := t(ddindx).mr_effectivity_id;
329 a11(indx) := t(ddindx).mr_id;
330 a12(indx) := t(ddindx).mr_title;
331 a13(indx) := t(ddindx).mr_version_number;
332 a14(indx) := t(ddindx).status_code;
333 a15(indx) := t(ddindx).status;
334 a16(indx) := t(ddindx).due_date;
335 a17(indx) := t(ddindx).due_counter_value;
336 a18(indx) := t(ddindx).forecast_sequence;
337 a19(indx) := t(ddindx).repetitive_mr_flag;
338 a20(indx) := t(ddindx).tolerance_flag;
339 a21(indx) := t(ddindx).message_code;
340 a22(indx) := t(ddindx).preceding_ue_id;
341 a23(indx) := t(ddindx).remarks;
342 a24(indx) := t(ddindx).date_run;
343 a25(indx) := t(ddindx).set_due_date;
344 a26(indx) := t(ddindx).accomplished_date;
345 a27(indx) := t(ddindx).qa_collection_id;
346 a28(indx) := t(ddindx).unit_deferral_id;
347 a29(indx) := t(ddindx).unit_deferral_object_version;
348 a30(indx) := t(ddindx).attribute_category;
349 a31(indx) := t(ddindx).attribute1;
350 a32(indx) := t(ddindx).attribute2;
351 a33(indx) := t(ddindx).attribute3;
352 a34(indx) := t(ddindx).attribute4;
353 a35(indx) := t(ddindx).attribute5;
354 a36(indx) := t(ddindx).attribute6;
355 a37(indx) := t(ddindx).attribute7;
356 a38(indx) := t(ddindx).attribute8;
357 a39(indx) := t(ddindx).attribute9;
358 a40(indx) := t(ddindx).attribute10;
359 a41(indx) := t(ddindx).attribute11;
360 a42(indx) := t(ddindx).attribute12;
361 a43(indx) := t(ddindx).attribute13;
362 a44(indx) := t(ddindx).attribute14;
363 a45(indx) := t(ddindx).attribute15;
364 indx := indx+1;
365 if t.last =ddindx
366 then exit;
367 end if;
368 ddindx := t.next(ddindx);
369 end loop;
370 end if;
371 end if;
372 end rosetta_table_copy_out_p3;
373
374 procedure rosetta_table_copy_in_p4(t out nocopy ahl_ump_unitmaint_pvt.unit_threshold_tbl_type, a0 JTF_NUMBER_TABLE
375 , a1 JTF_NUMBER_TABLE
376 , a2 JTF_DATE_TABLE
377 , a3 JTF_NUMBER_TABLE
378 , a4 JTF_DATE_TABLE
379 , a5 JTF_NUMBER_TABLE
380 , a6 JTF_NUMBER_TABLE
381 , a7 JTF_NUMBER_TABLE
382 , a8 JTF_NUMBER_TABLE
383 , a9 JTF_VARCHAR2_TABLE_100
384 , a10 JTF_NUMBER_TABLE
385 , a11 JTF_VARCHAR2_TABLE_100
386 , a12 JTF_VARCHAR2_TABLE_100
387 , a13 JTF_VARCHAR2_TABLE_200
388 , a14 JTF_VARCHAR2_TABLE_200
389 , a15 JTF_VARCHAR2_TABLE_200
390 , a16 JTF_VARCHAR2_TABLE_200
391 , a17 JTF_VARCHAR2_TABLE_200
392 , a18 JTF_VARCHAR2_TABLE_200
393 , a19 JTF_VARCHAR2_TABLE_200
394 , a20 JTF_VARCHAR2_TABLE_200
395 , a21 JTF_VARCHAR2_TABLE_200
396 , a22 JTF_VARCHAR2_TABLE_200
397 , a23 JTF_VARCHAR2_TABLE_200
398 , a24 JTF_VARCHAR2_TABLE_200
399 , a25 JTF_VARCHAR2_TABLE_200
400 , a26 JTF_VARCHAR2_TABLE_200
401 , a27 JTF_VARCHAR2_TABLE_200
402 , a28 JTF_NUMBER_TABLE
403 ) as
404 ddindx binary_integer; indx binary_integer;
405 begin
406 if a0 is not null and a0.count > 0 then
407 if a0.count > 0 then
408 indx := a0.first;
409 ddindx := 1;
410 while true loop
411 t(ddindx).unit_threshold_id := a0(indx);
412 t(ddindx).object_version_number := a1(indx);
413 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a2(indx));
414 t(ddindx).last_updated_by := a3(indx);
415 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a4(indx));
416 t(ddindx).created_by := a5(indx);
417 t(ddindx).last_update_login := a6(indx);
418 t(ddindx).unit_effectivity_id := a7(indx);
419 t(ddindx).counter_id := a8(indx);
420 t(ddindx).counter_name := a9(indx);
421 t(ddindx).counter_value := a10(indx);
422 t(ddindx).operation_flag := a11(indx);
423 t(ddindx).attribute_category := a12(indx);
424 t(ddindx).attribute1 := a13(indx);
425 t(ddindx).attribute2 := a14(indx);
426 t(ddindx).attribute3 := a15(indx);
427 t(ddindx).attribute4 := a16(indx);
428 t(ddindx).attribute5 := a17(indx);
429 t(ddindx).attribute6 := a18(indx);
430 t(ddindx).attribute7 := a19(indx);
431 t(ddindx).attribute8 := a20(indx);
432 t(ddindx).attribute9 := a21(indx);
433 t(ddindx).attribute10 := a22(indx);
434 t(ddindx).attribute11 := a23(indx);
435 t(ddindx).attribute12 := a24(indx);
436 t(ddindx).attribute13 := a25(indx);
437 t(ddindx).attribute14 := a26(indx);
438 t(ddindx).attribute15 := a27(indx);
439 t(ddindx).unit_deferral_id := a28(indx);
440 ddindx := ddindx+1;
441 if a0.last =indx
442 then exit;
443 end if;
444 indx := a0.next(indx);
445 end loop;
446 end if;
447 end if;
448 end rosetta_table_copy_in_p4;
449 procedure rosetta_table_copy_out_p4(t ahl_ump_unitmaint_pvt.unit_threshold_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
450 , a1 out nocopy JTF_NUMBER_TABLE
451 , a2 out nocopy JTF_DATE_TABLE
452 , a3 out nocopy JTF_NUMBER_TABLE
453 , a4 out nocopy JTF_DATE_TABLE
454 , a5 out nocopy JTF_NUMBER_TABLE
455 , a6 out nocopy JTF_NUMBER_TABLE
456 , a7 out nocopy JTF_NUMBER_TABLE
457 , a8 out nocopy JTF_NUMBER_TABLE
458 , a9 out nocopy JTF_VARCHAR2_TABLE_100
459 , a10 out nocopy JTF_NUMBER_TABLE
460 , a11 out nocopy JTF_VARCHAR2_TABLE_100
461 , a12 out nocopy JTF_VARCHAR2_TABLE_100
462 , a13 out nocopy JTF_VARCHAR2_TABLE_200
463 , a14 out nocopy JTF_VARCHAR2_TABLE_200
464 , a15 out nocopy JTF_VARCHAR2_TABLE_200
465 , a16 out nocopy JTF_VARCHAR2_TABLE_200
466 , a17 out nocopy JTF_VARCHAR2_TABLE_200
467 , a18 out nocopy JTF_VARCHAR2_TABLE_200
468 , a19 out nocopy JTF_VARCHAR2_TABLE_200
469 , a20 out nocopy JTF_VARCHAR2_TABLE_200
470 , a21 out nocopy JTF_VARCHAR2_TABLE_200
471 , a22 out nocopy JTF_VARCHAR2_TABLE_200
472 , a23 out nocopy JTF_VARCHAR2_TABLE_200
473 , a24 out nocopy JTF_VARCHAR2_TABLE_200
474 , a25 out nocopy JTF_VARCHAR2_TABLE_200
475 , a26 out nocopy JTF_VARCHAR2_TABLE_200
476 , a27 out nocopy JTF_VARCHAR2_TABLE_200
477 , a28 out nocopy JTF_NUMBER_TABLE
478 ) as
479 ddindx binary_integer; indx binary_integer;
480 begin
481 if t is null or t.count = 0 then
482 a0 := JTF_NUMBER_TABLE();
483 a1 := JTF_NUMBER_TABLE();
484 a2 := JTF_DATE_TABLE();
485 a3 := JTF_NUMBER_TABLE();
486 a4 := JTF_DATE_TABLE();
487 a5 := JTF_NUMBER_TABLE();
488 a6 := JTF_NUMBER_TABLE();
489 a7 := JTF_NUMBER_TABLE();
490 a8 := JTF_NUMBER_TABLE();
491 a9 := JTF_VARCHAR2_TABLE_100();
492 a10 := JTF_NUMBER_TABLE();
493 a11 := JTF_VARCHAR2_TABLE_100();
494 a12 := JTF_VARCHAR2_TABLE_100();
495 a13 := JTF_VARCHAR2_TABLE_200();
496 a14 := JTF_VARCHAR2_TABLE_200();
497 a15 := JTF_VARCHAR2_TABLE_200();
498 a16 := JTF_VARCHAR2_TABLE_200();
499 a17 := JTF_VARCHAR2_TABLE_200();
500 a18 := JTF_VARCHAR2_TABLE_200();
501 a19 := JTF_VARCHAR2_TABLE_200();
502 a20 := JTF_VARCHAR2_TABLE_200();
503 a21 := JTF_VARCHAR2_TABLE_200();
504 a22 := JTF_VARCHAR2_TABLE_200();
505 a23 := JTF_VARCHAR2_TABLE_200();
506 a24 := JTF_VARCHAR2_TABLE_200();
507 a25 := JTF_VARCHAR2_TABLE_200();
508 a26 := JTF_VARCHAR2_TABLE_200();
509 a27 := JTF_VARCHAR2_TABLE_200();
510 a28 := JTF_NUMBER_TABLE();
511 else
512 a0 := JTF_NUMBER_TABLE();
513 a1 := JTF_NUMBER_TABLE();
514 a2 := JTF_DATE_TABLE();
515 a3 := JTF_NUMBER_TABLE();
516 a4 := JTF_DATE_TABLE();
517 a5 := JTF_NUMBER_TABLE();
518 a6 := JTF_NUMBER_TABLE();
519 a7 := JTF_NUMBER_TABLE();
520 a8 := JTF_NUMBER_TABLE();
521 a9 := JTF_VARCHAR2_TABLE_100();
522 a10 := JTF_NUMBER_TABLE();
523 a11 := JTF_VARCHAR2_TABLE_100();
524 a12 := JTF_VARCHAR2_TABLE_100();
525 a13 := JTF_VARCHAR2_TABLE_200();
526 a14 := JTF_VARCHAR2_TABLE_200();
527 a15 := JTF_VARCHAR2_TABLE_200();
528 a16 := JTF_VARCHAR2_TABLE_200();
529 a17 := JTF_VARCHAR2_TABLE_200();
530 a18 := JTF_VARCHAR2_TABLE_200();
531 a19 := JTF_VARCHAR2_TABLE_200();
532 a20 := JTF_VARCHAR2_TABLE_200();
533 a21 := JTF_VARCHAR2_TABLE_200();
534 a22 := JTF_VARCHAR2_TABLE_200();
535 a23 := JTF_VARCHAR2_TABLE_200();
536 a24 := JTF_VARCHAR2_TABLE_200();
537 a25 := JTF_VARCHAR2_TABLE_200();
538 a26 := JTF_VARCHAR2_TABLE_200();
539 a27 := JTF_VARCHAR2_TABLE_200();
540 a28 := JTF_NUMBER_TABLE();
541 if t.count > 0 then
542 a0.extend(t.count);
543 a1.extend(t.count);
544 a2.extend(t.count);
545 a3.extend(t.count);
546 a4.extend(t.count);
547 a5.extend(t.count);
548 a6.extend(t.count);
549 a7.extend(t.count);
550 a8.extend(t.count);
551 a9.extend(t.count);
552 a10.extend(t.count);
553 a11.extend(t.count);
554 a12.extend(t.count);
555 a13.extend(t.count);
556 a14.extend(t.count);
557 a15.extend(t.count);
558 a16.extend(t.count);
559 a17.extend(t.count);
560 a18.extend(t.count);
561 a19.extend(t.count);
562 a20.extend(t.count);
563 a21.extend(t.count);
564 a22.extend(t.count);
565 a23.extend(t.count);
566 a24.extend(t.count);
567 a25.extend(t.count);
568 a26.extend(t.count);
569 a27.extend(t.count);
570 a28.extend(t.count);
571 ddindx := t.first;
572 indx := 1;
573 while true loop
574 a0(indx) := t(ddindx).unit_threshold_id;
575 a1(indx) := t(ddindx).object_version_number;
576 a2(indx) := t(ddindx).last_update_date;
577 a3(indx) := t(ddindx).last_updated_by;
578 a4(indx) := t(ddindx).creation_date;
579 a5(indx) := t(ddindx).created_by;
580 a6(indx) := t(ddindx).last_update_login;
581 a7(indx) := t(ddindx).unit_effectivity_id;
582 a8(indx) := t(ddindx).counter_id;
583 a9(indx) := t(ddindx).counter_name;
584 a10(indx) := t(ddindx).counter_value;
585 a11(indx) := t(ddindx).operation_flag;
586 a12(indx) := t(ddindx).attribute_category;
587 a13(indx) := t(ddindx).attribute1;
588 a14(indx) := t(ddindx).attribute2;
589 a15(indx) := t(ddindx).attribute3;
590 a16(indx) := t(ddindx).attribute4;
591 a17(indx) := t(ddindx).attribute5;
592 a18(indx) := t(ddindx).attribute6;
593 a19(indx) := t(ddindx).attribute7;
594 a20(indx) := t(ddindx).attribute8;
595 a21(indx) := t(ddindx).attribute9;
596 a22(indx) := t(ddindx).attribute10;
597 a23(indx) := t(ddindx).attribute11;
598 a24(indx) := t(ddindx).attribute12;
599 a25(indx) := t(ddindx).attribute13;
600 a26(indx) := t(ddindx).attribute14;
601 a27(indx) := t(ddindx).attribute15;
602 a28(indx) := t(ddindx).unit_deferral_id;
603 indx := indx+1;
604 if t.last =ddindx
605 then exit;
606 end if;
607 ddindx := t.next(ddindx);
608 end loop;
609 end if;
610 end if;
611 end rosetta_table_copy_out_p4;
612
613 procedure rosetta_table_copy_in_p5(t out nocopy ahl_ump_unitmaint_pvt.unit_accomplish_tbl_type, a0 JTF_NUMBER_TABLE
614 , a1 JTF_NUMBER_TABLE
615 , a2 JTF_DATE_TABLE
616 , a3 JTF_NUMBER_TABLE
617 , a4 JTF_DATE_TABLE
618 , a5 JTF_NUMBER_TABLE
619 , a6 JTF_NUMBER_TABLE
620 , a7 JTF_NUMBER_TABLE
621 , a8 JTF_NUMBER_TABLE
622 , a9 JTF_VARCHAR2_TABLE_100
623 , a10 JTF_NUMBER_TABLE
624 , a11 JTF_VARCHAR2_TABLE_100
625 , a12 JTF_VARCHAR2_TABLE_100
626 , a13 JTF_VARCHAR2_TABLE_200
627 , a14 JTF_VARCHAR2_TABLE_200
628 , a15 JTF_VARCHAR2_TABLE_200
629 , a16 JTF_VARCHAR2_TABLE_200
630 , a17 JTF_VARCHAR2_TABLE_200
631 , a18 JTF_VARCHAR2_TABLE_200
632 , a19 JTF_VARCHAR2_TABLE_200
633 , a20 JTF_VARCHAR2_TABLE_200
634 , a21 JTF_VARCHAR2_TABLE_200
635 , a22 JTF_VARCHAR2_TABLE_200
636 , a23 JTF_VARCHAR2_TABLE_200
637 , a24 JTF_VARCHAR2_TABLE_200
638 , a25 JTF_VARCHAR2_TABLE_200
639 , a26 JTF_VARCHAR2_TABLE_200
640 , a27 JTF_VARCHAR2_TABLE_200
641 ) as
642 ddindx binary_integer; indx binary_integer;
643 begin
644 if a0 is not null and a0.count > 0 then
645 if a0.count > 0 then
646 indx := a0.first;
647 ddindx := 1;
648 while true loop
649 t(ddindx).unit_accomplish_id := a0(indx);
650 t(ddindx).object_version_number := a1(indx);
651 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a2(indx));
652 t(ddindx).last_updated_by := a3(indx);
653 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a4(indx));
654 t(ddindx).created_by := a5(indx);
655 t(ddindx).last_update_login := a6(indx);
656 t(ddindx).unit_effectivity_id := a7(indx);
657 t(ddindx).counter_id := a8(indx);
658 t(ddindx).counter_name := a9(indx);
659 t(ddindx).counter_value := a10(indx);
660 t(ddindx).operation_flag := a11(indx);
661 t(ddindx).attribute_category := a12(indx);
662 t(ddindx).attribute1 := a13(indx);
663 t(ddindx).attribute2 := a14(indx);
664 t(ddindx).attribute3 := a15(indx);
665 t(ddindx).attribute4 := a16(indx);
666 t(ddindx).attribute5 := a17(indx);
667 t(ddindx).attribute6 := a18(indx);
668 t(ddindx).attribute7 := a19(indx);
669 t(ddindx).attribute8 := a20(indx);
670 t(ddindx).attribute9 := a21(indx);
671 t(ddindx).attribute10 := a22(indx);
672 t(ddindx).attribute11 := a23(indx);
673 t(ddindx).attribute12 := a24(indx);
674 t(ddindx).attribute13 := a25(indx);
675 t(ddindx).attribute14 := a26(indx);
676 t(ddindx).attribute15 := a27(indx);
677 ddindx := ddindx+1;
678 if a0.last =indx
679 then exit;
680 end if;
681 indx := a0.next(indx);
682 end loop;
683 end if;
684 end if;
685 end rosetta_table_copy_in_p5;
686 procedure rosetta_table_copy_out_p5(t ahl_ump_unitmaint_pvt.unit_accomplish_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
687 , a1 out nocopy JTF_NUMBER_TABLE
688 , a2 out nocopy JTF_DATE_TABLE
689 , a3 out nocopy JTF_NUMBER_TABLE
690 , a4 out nocopy JTF_DATE_TABLE
691 , a5 out nocopy JTF_NUMBER_TABLE
692 , a6 out nocopy JTF_NUMBER_TABLE
693 , a7 out nocopy JTF_NUMBER_TABLE
694 , a8 out nocopy JTF_NUMBER_TABLE
695 , a9 out nocopy JTF_VARCHAR2_TABLE_100
696 , a10 out nocopy JTF_NUMBER_TABLE
697 , a11 out nocopy JTF_VARCHAR2_TABLE_100
698 , a12 out nocopy JTF_VARCHAR2_TABLE_100
699 , a13 out nocopy JTF_VARCHAR2_TABLE_200
700 , a14 out nocopy JTF_VARCHAR2_TABLE_200
701 , a15 out nocopy JTF_VARCHAR2_TABLE_200
702 , a16 out nocopy JTF_VARCHAR2_TABLE_200
703 , a17 out nocopy JTF_VARCHAR2_TABLE_200
704 , a18 out nocopy JTF_VARCHAR2_TABLE_200
705 , a19 out nocopy JTF_VARCHAR2_TABLE_200
706 , a20 out nocopy JTF_VARCHAR2_TABLE_200
707 , a21 out nocopy JTF_VARCHAR2_TABLE_200
708 , a22 out nocopy JTF_VARCHAR2_TABLE_200
709 , a23 out nocopy JTF_VARCHAR2_TABLE_200
710 , a24 out nocopy JTF_VARCHAR2_TABLE_200
711 , a25 out nocopy JTF_VARCHAR2_TABLE_200
712 , a26 out nocopy JTF_VARCHAR2_TABLE_200
713 , a27 out nocopy JTF_VARCHAR2_TABLE_200
714 ) as
715 ddindx binary_integer; indx binary_integer;
716 begin
717 if t is null or t.count = 0 then
718 a0 := JTF_NUMBER_TABLE();
719 a1 := JTF_NUMBER_TABLE();
720 a2 := JTF_DATE_TABLE();
721 a3 := JTF_NUMBER_TABLE();
722 a4 := JTF_DATE_TABLE();
723 a5 := JTF_NUMBER_TABLE();
724 a6 := JTF_NUMBER_TABLE();
725 a7 := JTF_NUMBER_TABLE();
726 a8 := JTF_NUMBER_TABLE();
727 a9 := JTF_VARCHAR2_TABLE_100();
728 a10 := JTF_NUMBER_TABLE();
729 a11 := JTF_VARCHAR2_TABLE_100();
730 a12 := JTF_VARCHAR2_TABLE_100();
731 a13 := JTF_VARCHAR2_TABLE_200();
732 a14 := JTF_VARCHAR2_TABLE_200();
733 a15 := JTF_VARCHAR2_TABLE_200();
734 a16 := JTF_VARCHAR2_TABLE_200();
735 a17 := JTF_VARCHAR2_TABLE_200();
736 a18 := JTF_VARCHAR2_TABLE_200();
737 a19 := JTF_VARCHAR2_TABLE_200();
738 a20 := JTF_VARCHAR2_TABLE_200();
739 a21 := JTF_VARCHAR2_TABLE_200();
740 a22 := JTF_VARCHAR2_TABLE_200();
741 a23 := JTF_VARCHAR2_TABLE_200();
742 a24 := JTF_VARCHAR2_TABLE_200();
743 a25 := JTF_VARCHAR2_TABLE_200();
744 a26 := JTF_VARCHAR2_TABLE_200();
745 a27 := JTF_VARCHAR2_TABLE_200();
746 else
747 a0 := JTF_NUMBER_TABLE();
748 a1 := JTF_NUMBER_TABLE();
749 a2 := JTF_DATE_TABLE();
750 a3 := JTF_NUMBER_TABLE();
751 a4 := JTF_DATE_TABLE();
752 a5 := JTF_NUMBER_TABLE();
753 a6 := JTF_NUMBER_TABLE();
754 a7 := JTF_NUMBER_TABLE();
755 a8 := JTF_NUMBER_TABLE();
756 a9 := JTF_VARCHAR2_TABLE_100();
757 a10 := JTF_NUMBER_TABLE();
758 a11 := JTF_VARCHAR2_TABLE_100();
759 a12 := JTF_VARCHAR2_TABLE_100();
760 a13 := JTF_VARCHAR2_TABLE_200();
761 a14 := JTF_VARCHAR2_TABLE_200();
762 a15 := JTF_VARCHAR2_TABLE_200();
763 a16 := JTF_VARCHAR2_TABLE_200();
764 a17 := JTF_VARCHAR2_TABLE_200();
765 a18 := JTF_VARCHAR2_TABLE_200();
766 a19 := JTF_VARCHAR2_TABLE_200();
767 a20 := JTF_VARCHAR2_TABLE_200();
768 a21 := JTF_VARCHAR2_TABLE_200();
769 a22 := JTF_VARCHAR2_TABLE_200();
770 a23 := JTF_VARCHAR2_TABLE_200();
771 a24 := JTF_VARCHAR2_TABLE_200();
772 a25 := JTF_VARCHAR2_TABLE_200();
773 a26 := JTF_VARCHAR2_TABLE_200();
774 a27 := JTF_VARCHAR2_TABLE_200();
775 if t.count > 0 then
776 a0.extend(t.count);
777 a1.extend(t.count);
778 a2.extend(t.count);
779 a3.extend(t.count);
780 a4.extend(t.count);
781 a5.extend(t.count);
782 a6.extend(t.count);
783 a7.extend(t.count);
784 a8.extend(t.count);
785 a9.extend(t.count);
786 a10.extend(t.count);
787 a11.extend(t.count);
788 a12.extend(t.count);
789 a13.extend(t.count);
790 a14.extend(t.count);
791 a15.extend(t.count);
792 a16.extend(t.count);
793 a17.extend(t.count);
794 a18.extend(t.count);
795 a19.extend(t.count);
796 a20.extend(t.count);
797 a21.extend(t.count);
798 a22.extend(t.count);
799 a23.extend(t.count);
800 a24.extend(t.count);
801 a25.extend(t.count);
802 a26.extend(t.count);
803 a27.extend(t.count);
804 ddindx := t.first;
805 indx := 1;
806 while true loop
807 a0(indx) := t(ddindx).unit_accomplish_id;
808 a1(indx) := t(ddindx).object_version_number;
809 a2(indx) := t(ddindx).last_update_date;
810 a3(indx) := t(ddindx).last_updated_by;
811 a4(indx) := t(ddindx).creation_date;
812 a5(indx) := t(ddindx).created_by;
813 a6(indx) := t(ddindx).last_update_login;
814 a7(indx) := t(ddindx).unit_effectivity_id;
815 a8(indx) := t(ddindx).counter_id;
816 a9(indx) := t(ddindx).counter_name;
817 a10(indx) := t(ddindx).counter_value;
818 a11(indx) := t(ddindx).operation_flag;
819 a12(indx) := t(ddindx).attribute_category;
820 a13(indx) := t(ddindx).attribute1;
821 a14(indx) := t(ddindx).attribute2;
822 a15(indx) := t(ddindx).attribute3;
823 a16(indx) := t(ddindx).attribute4;
824 a17(indx) := t(ddindx).attribute5;
825 a18(indx) := t(ddindx).attribute6;
826 a19(indx) := t(ddindx).attribute7;
827 a20(indx) := t(ddindx).attribute8;
828 a21(indx) := t(ddindx).attribute9;
829 a22(indx) := t(ddindx).attribute10;
830 a23(indx) := t(ddindx).attribute11;
831 a24(indx) := t(ddindx).attribute12;
832 a25(indx) := t(ddindx).attribute13;
833 a26(indx) := t(ddindx).attribute14;
834 a27(indx) := t(ddindx).attribute15;
835 indx := indx+1;
836 if t.last =ddindx
837 then exit;
838 end if;
839 ddindx := t.next(ddindx);
840 end loop;
841 end if;
842 end if;
843 end rosetta_table_copy_out_p5;
844
845 procedure capture_mr_updates(p_api_version NUMBER
846 , p_init_msg_list VARCHAR2
847 , p_commit VARCHAR2
848 , p_validation_level NUMBER
849 , p_default VARCHAR2
850 , p_module_type VARCHAR2
851 , p6_a0 JTF_NUMBER_TABLE
852 , p6_a1 JTF_NUMBER_TABLE
853 , p6_a2 JTF_DATE_TABLE
854 , p6_a3 JTF_NUMBER_TABLE
855 , p6_a4 JTF_DATE_TABLE
856 , p6_a5 JTF_NUMBER_TABLE
857 , p6_a6 JTF_NUMBER_TABLE
858 , p6_a7 JTF_NUMBER_TABLE
859 , p6_a8 JTF_VARCHAR2_TABLE_100
860 , p6_a9 JTF_NUMBER_TABLE
861 , p6_a10 JTF_NUMBER_TABLE
862 , p6_a11 JTF_NUMBER_TABLE
863 , p6_a12 JTF_VARCHAR2_TABLE_100
864 , p6_a13 JTF_NUMBER_TABLE
865 , p6_a14 JTF_VARCHAR2_TABLE_100
866 , p6_a15 JTF_VARCHAR2_TABLE_100
867 , p6_a16 JTF_DATE_TABLE
868 , p6_a17 JTF_NUMBER_TABLE
869 , p6_a18 JTF_NUMBER_TABLE
870 , p6_a19 JTF_VARCHAR2_TABLE_100
871 , p6_a20 JTF_VARCHAR2_TABLE_100
872 , p6_a21 JTF_VARCHAR2_TABLE_100
873 , p6_a22 JTF_NUMBER_TABLE
874 , p6_a23 JTF_VARCHAR2_TABLE_4000
875 , p6_a24 JTF_DATE_TABLE
876 , p6_a25 JTF_DATE_TABLE
877 , p6_a26 JTF_DATE_TABLE
878 , p6_a27 JTF_NUMBER_TABLE
879 , p6_a28 JTF_NUMBER_TABLE
880 , p6_a29 JTF_NUMBER_TABLE
881 , p6_a30 JTF_VARCHAR2_TABLE_100
882 , p6_a31 JTF_VARCHAR2_TABLE_200
883 , p6_a32 JTF_VARCHAR2_TABLE_200
884 , p6_a33 JTF_VARCHAR2_TABLE_200
885 , p6_a34 JTF_VARCHAR2_TABLE_200
886 , p6_a35 JTF_VARCHAR2_TABLE_200
887 , p6_a36 JTF_VARCHAR2_TABLE_200
888 , p6_a37 JTF_VARCHAR2_TABLE_200
889 , p6_a38 JTF_VARCHAR2_TABLE_200
890 , p6_a39 JTF_VARCHAR2_TABLE_200
891 , p6_a40 JTF_VARCHAR2_TABLE_200
892 , p6_a41 JTF_VARCHAR2_TABLE_200
893 , p6_a42 JTF_VARCHAR2_TABLE_200
894 , p6_a43 JTF_VARCHAR2_TABLE_200
895 , p6_a44 JTF_VARCHAR2_TABLE_200
896 , p6_a45 JTF_VARCHAR2_TABLE_200
897 , p7_a0 in out nocopy JTF_NUMBER_TABLE
898 , p7_a1 in out nocopy JTF_NUMBER_TABLE
899 , p7_a2 in out nocopy JTF_DATE_TABLE
900 , p7_a3 in out nocopy JTF_NUMBER_TABLE
901 , p7_a4 in out nocopy JTF_DATE_TABLE
902 , p7_a5 in out nocopy JTF_NUMBER_TABLE
903 , p7_a6 in out nocopy JTF_NUMBER_TABLE
904 , p7_a7 in out nocopy JTF_NUMBER_TABLE
905 , p7_a8 in out nocopy JTF_NUMBER_TABLE
906 , p7_a9 in out nocopy JTF_VARCHAR2_TABLE_100
907 , p7_a10 in out nocopy JTF_NUMBER_TABLE
908 , p7_a11 in out nocopy JTF_VARCHAR2_TABLE_100
909 , p7_a12 in out nocopy JTF_VARCHAR2_TABLE_100
910 , p7_a13 in out nocopy JTF_VARCHAR2_TABLE_200
911 , p7_a14 in out nocopy JTF_VARCHAR2_TABLE_200
912 , p7_a15 in out nocopy JTF_VARCHAR2_TABLE_200
913 , p7_a16 in out nocopy JTF_VARCHAR2_TABLE_200
914 , p7_a17 in out nocopy JTF_VARCHAR2_TABLE_200
915 , p7_a18 in out nocopy JTF_VARCHAR2_TABLE_200
916 , p7_a19 in out nocopy JTF_VARCHAR2_TABLE_200
917 , p7_a20 in out nocopy JTF_VARCHAR2_TABLE_200
918 , p7_a21 in out nocopy JTF_VARCHAR2_TABLE_200
919 , p7_a22 in out nocopy JTF_VARCHAR2_TABLE_200
920 , p7_a23 in out nocopy JTF_VARCHAR2_TABLE_200
921 , p7_a24 in out nocopy JTF_VARCHAR2_TABLE_200
922 , p7_a25 in out nocopy JTF_VARCHAR2_TABLE_200
923 , p7_a26 in out nocopy JTF_VARCHAR2_TABLE_200
924 , p7_a27 in out nocopy JTF_VARCHAR2_TABLE_200
925 , p7_a28 in out nocopy JTF_NUMBER_TABLE
926 , p8_a0 in out nocopy JTF_NUMBER_TABLE
927 , p8_a1 in out nocopy JTF_NUMBER_TABLE
928 , p8_a2 in out nocopy JTF_DATE_TABLE
929 , p8_a3 in out nocopy JTF_NUMBER_TABLE
930 , p8_a4 in out nocopy JTF_DATE_TABLE
931 , p8_a5 in out nocopy JTF_NUMBER_TABLE
932 , p8_a6 in out nocopy JTF_NUMBER_TABLE
933 , p8_a7 in out nocopy JTF_NUMBER_TABLE
934 , p8_a8 in out nocopy JTF_NUMBER_TABLE
935 , p8_a9 in out nocopy JTF_VARCHAR2_TABLE_100
936 , p8_a10 in out nocopy JTF_NUMBER_TABLE
937 , p8_a11 in out nocopy JTF_VARCHAR2_TABLE_100
938 , p8_a12 in out nocopy JTF_VARCHAR2_TABLE_100
939 , p8_a13 in out nocopy JTF_VARCHAR2_TABLE_200
940 , p8_a14 in out nocopy JTF_VARCHAR2_TABLE_200
941 , p8_a15 in out nocopy JTF_VARCHAR2_TABLE_200
942 , p8_a16 in out nocopy JTF_VARCHAR2_TABLE_200
943 , p8_a17 in out nocopy JTF_VARCHAR2_TABLE_200
944 , p8_a18 in out nocopy JTF_VARCHAR2_TABLE_200
945 , p8_a19 in out nocopy JTF_VARCHAR2_TABLE_200
946 , p8_a20 in out nocopy JTF_VARCHAR2_TABLE_200
947 , p8_a21 in out nocopy JTF_VARCHAR2_TABLE_200
948 , p8_a22 in out nocopy JTF_VARCHAR2_TABLE_200
949 , p8_a23 in out nocopy JTF_VARCHAR2_TABLE_200
950 , p8_a24 in out nocopy JTF_VARCHAR2_TABLE_200
951 , p8_a25 in out nocopy JTF_VARCHAR2_TABLE_200
952 , p8_a26 in out nocopy JTF_VARCHAR2_TABLE_200
953 , p8_a27 in out nocopy JTF_VARCHAR2_TABLE_200
954 , x_return_status out nocopy VARCHAR2
955 , x_msg_count out nocopy NUMBER
956 , x_msg_data out nocopy VARCHAR2
957 )
958
959 as
960 ddp_unit_effectivity_tbl ahl_ump_unitmaint_pvt.unit_effectivity_tbl_type;
961 ddp_x_unit_threshold_tbl ahl_ump_unitmaint_pvt.unit_threshold_tbl_type;
962 ddp_x_unit_accomplish_tbl ahl_ump_unitmaint_pvt.unit_accomplish_tbl_type;
963 ddindx binary_integer; indx binary_integer;
964 begin
965
966 -- copy data to the local IN or IN-OUT args, if any
967
968
969
970
971
972
973 ahl_ump_unitmaint_pvt_w.rosetta_table_copy_in_p3(ddp_unit_effectivity_tbl, p6_a0
974 , p6_a1
975 , p6_a2
976 , p6_a3
977 , p6_a4
978 , p6_a5
979 , p6_a6
980 , p6_a7
981 , p6_a8
982 , p6_a9
983 , p6_a10
984 , p6_a11
985 , p6_a12
986 , p6_a13
987 , p6_a14
988 , p6_a15
989 , p6_a16
990 , p6_a17
991 , p6_a18
992 , p6_a19
993 , p6_a20
994 , p6_a21
995 , p6_a22
996 , p6_a23
997 , p6_a24
998 , p6_a25
999 , p6_a26
1000 , p6_a27
1001 , p6_a28
1002 , p6_a29
1003 , p6_a30
1004 , p6_a31
1005 , p6_a32
1006 , p6_a33
1007 , p6_a34
1008 , p6_a35
1009 , p6_a36
1010 , p6_a37
1011 , p6_a38
1012 , p6_a39
1013 , p6_a40
1014 , p6_a41
1015 , p6_a42
1016 , p6_a43
1017 , p6_a44
1018 , p6_a45
1019 );
1020
1021 ahl_ump_unitmaint_pvt_w.rosetta_table_copy_in_p4(ddp_x_unit_threshold_tbl, p7_a0
1022 , p7_a1
1023 , p7_a2
1024 , p7_a3
1025 , p7_a4
1026 , p7_a5
1027 , p7_a6
1028 , p7_a7
1029 , p7_a8
1030 , p7_a9
1031 , p7_a10
1032 , p7_a11
1033 , p7_a12
1034 , p7_a13
1035 , p7_a14
1036 , p7_a15
1037 , p7_a16
1038 , p7_a17
1039 , p7_a18
1040 , p7_a19
1041 , p7_a20
1042 , p7_a21
1043 , p7_a22
1044 , p7_a23
1045 , p7_a24
1046 , p7_a25
1047 , p7_a26
1048 , p7_a27
1049 , p7_a28
1050 );
1051
1052 ahl_ump_unitmaint_pvt_w.rosetta_table_copy_in_p5(ddp_x_unit_accomplish_tbl, p8_a0
1053 , p8_a1
1054 , p8_a2
1055 , p8_a3
1056 , p8_a4
1057 , p8_a5
1058 , p8_a6
1059 , p8_a7
1060 , p8_a8
1061 , p8_a9
1062 , p8_a10
1063 , p8_a11
1064 , p8_a12
1065 , p8_a13
1066 , p8_a14
1067 , p8_a15
1068 , p8_a16
1069 , p8_a17
1070 , p8_a18
1071 , p8_a19
1072 , p8_a20
1073 , p8_a21
1074 , p8_a22
1075 , p8_a23
1076 , p8_a24
1077 , p8_a25
1078 , p8_a26
1079 , p8_a27
1080 );
1081
1082
1083
1084
1085 -- here's the delegated call to the old PL/SQL routine
1086 ahl_ump_unitmaint_pvt.capture_mr_updates(p_api_version,
1087 p_init_msg_list,
1088 p_commit,
1089 p_validation_level,
1090 p_default,
1091 p_module_type,
1092 ddp_unit_effectivity_tbl,
1093 ddp_x_unit_threshold_tbl,
1094 ddp_x_unit_accomplish_tbl,
1095 x_return_status,
1096 x_msg_count,
1097 x_msg_data);
1098
1099 -- copy data back from the local variables to OUT or IN-OUT args, if any
1100
1101
1102
1103
1104
1105
1106
1107 ahl_ump_unitmaint_pvt_w.rosetta_table_copy_out_p4(ddp_x_unit_threshold_tbl, p7_a0
1108 , p7_a1
1109 , p7_a2
1110 , p7_a3
1111 , p7_a4
1112 , p7_a5
1113 , p7_a6
1114 , p7_a7
1115 , p7_a8
1116 , p7_a9
1117 , p7_a10
1118 , p7_a11
1119 , p7_a12
1120 , p7_a13
1121 , p7_a14
1122 , p7_a15
1123 , p7_a16
1124 , p7_a17
1125 , p7_a18
1126 , p7_a19
1127 , p7_a20
1128 , p7_a21
1129 , p7_a22
1130 , p7_a23
1131 , p7_a24
1132 , p7_a25
1133 , p7_a26
1134 , p7_a27
1135 , p7_a28
1136 );
1137
1138 ahl_ump_unitmaint_pvt_w.rosetta_table_copy_out_p5(ddp_x_unit_accomplish_tbl, p8_a0
1139 , p8_a1
1140 , p8_a2
1141 , p8_a3
1142 , p8_a4
1143 , p8_a5
1144 , p8_a6
1145 , p8_a7
1146 , p8_a8
1147 , p8_a9
1148 , p8_a10
1149 , p8_a11
1150 , p8_a12
1151 , p8_a13
1152 , p8_a14
1153 , p8_a15
1154 , p8_a16
1155 , p8_a17
1156 , p8_a18
1157 , p8_a19
1158 , p8_a20
1159 , p8_a21
1160 , p8_a22
1161 , p8_a23
1162 , p8_a24
1163 , p8_a25
1164 , p8_a26
1165 , p8_a27
1166 );
1167
1168
1169
1170 end;
1171
1172 end ahl_ump_unitmaint_pvt_w;