[Home] [Help]
PACKAGE BODY: APPS.AHL_UC_INSTANCE_PVT_W
Source
1 package body ahl_uc_instance_pvt_w as
2 /* $Header: AHLWUCIB.pls 120.2.12010000.4 2008/11/20 11:47:49 sathapli ship $ */
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_uc_instance_pvt.uc_child_tbl_type, a0 JTF_VARCHAR2_TABLE_100
17 , a1 JTF_NUMBER_TABLE
18 , a2 JTF_NUMBER_TABLE
19 , a3 JTF_VARCHAR2_TABLE_100
20 , a4 JTF_VARCHAR2_TABLE_100
21 ) as
22 ddindx binary_integer; indx binary_integer;
23 begin
24 if a0 is not null and a0.count > 0 then
25 if a0.count > 0 then
26 indx := a0.first;
27 ddindx := 1;
28 while true loop
29 t(ddindx).node_type := a0(indx);
30 t(ddindx).instance_id := a1(indx);
31 t(ddindx).relationship_id := a2(indx);
32 t(ddindx).leaf_node_flag := a3(indx);
33 t(ddindx).with_subunit_flag := a4(indx);
34 ddindx := ddindx+1;
35 if a0.last =indx
36 then exit;
37 end if;
38 indx := a0.next(indx);
39 end loop;
40 end if;
41 end if;
42 end rosetta_table_copy_in_p3;
43 procedure rosetta_table_copy_out_p3(t ahl_uc_instance_pvt.uc_child_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
44 , a1 out nocopy JTF_NUMBER_TABLE
45 , a2 out nocopy JTF_NUMBER_TABLE
46 , a3 out nocopy JTF_VARCHAR2_TABLE_100
47 , a4 out nocopy JTF_VARCHAR2_TABLE_100
48 ) as
49 ddindx binary_integer; indx binary_integer;
50 begin
51 if t is null or t.count = 0 then
52 a0 := JTF_VARCHAR2_TABLE_100();
53 a1 := JTF_NUMBER_TABLE();
54 a2 := JTF_NUMBER_TABLE();
55 a3 := JTF_VARCHAR2_TABLE_100();
56 a4 := JTF_VARCHAR2_TABLE_100();
57 else
58 a0 := JTF_VARCHAR2_TABLE_100();
59 a1 := JTF_NUMBER_TABLE();
60 a2 := JTF_NUMBER_TABLE();
61 a3 := JTF_VARCHAR2_TABLE_100();
62 a4 := JTF_VARCHAR2_TABLE_100();
63 if t.count > 0 then
64 a0.extend(t.count);
65 a1.extend(t.count);
66 a2.extend(t.count);
67 a3.extend(t.count);
68 a4.extend(t.count);
69 ddindx := t.first;
70 indx := 1;
71 while true loop
72 a0(indx) := t(ddindx).node_type;
73 a1(indx) := t(ddindx).instance_id;
74 a2(indx) := t(ddindx).relationship_id;
75 a3(indx) := t(ddindx).leaf_node_flag;
76 a4(indx) := t(ddindx).with_subunit_flag;
77 indx := indx+1;
78 if t.last =ddindx
79 then exit;
80 end if;
81 ddindx := t.next(ddindx);
82 end loop;
83 end if;
84 end if;
85 end rosetta_table_copy_out_p3;
86
87 procedure rosetta_table_copy_in_p5(t out nocopy ahl_uc_instance_pvt.uc_descendant_tbl_type, a0 JTF_VARCHAR2_TABLE_100
88 , a1 JTF_NUMBER_TABLE
89 , a2 JTF_NUMBER_TABLE
90 , a3 JTF_NUMBER_TABLE
91 , a4 JTF_NUMBER_TABLE
92 , a5 JTF_VARCHAR2_TABLE_100
93 , a6 JTF_VARCHAR2_TABLE_100
94 ) as
95 ddindx binary_integer; indx binary_integer;
96 begin
97 if a0 is not null and a0.count > 0 then
98 if a0.count > 0 then
99 indx := a0.first;
100 ddindx := 1;
101 while true loop
102 t(ddindx).node_type := a0(indx);
103 t(ddindx).instance_id := a1(indx);
104 t(ddindx).parent_instance_id := a2(indx);
105 t(ddindx).relationship_id := a3(indx);
106 t(ddindx).parent_rel_id := a4(indx);
107 t(ddindx).leaf_node_flag := a5(indx);
108 t(ddindx).with_submc_flag := a6(indx);
109 ddindx := ddindx+1;
110 if a0.last =indx
111 then exit;
112 end if;
113 indx := a0.next(indx);
114 end loop;
115 end if;
116 end if;
117 end rosetta_table_copy_in_p5;
118 procedure rosetta_table_copy_out_p5(t ahl_uc_instance_pvt.uc_descendant_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
119 , a1 out nocopy JTF_NUMBER_TABLE
120 , a2 out nocopy JTF_NUMBER_TABLE
121 , a3 out nocopy JTF_NUMBER_TABLE
122 , a4 out nocopy JTF_NUMBER_TABLE
123 , a5 out nocopy JTF_VARCHAR2_TABLE_100
124 , a6 out nocopy JTF_VARCHAR2_TABLE_100
125 ) as
126 ddindx binary_integer; indx binary_integer;
127 begin
128 if t is null or t.count = 0 then
129 a0 := JTF_VARCHAR2_TABLE_100();
130 a1 := JTF_NUMBER_TABLE();
131 a2 := JTF_NUMBER_TABLE();
132 a3 := JTF_NUMBER_TABLE();
133 a4 := JTF_NUMBER_TABLE();
134 a5 := JTF_VARCHAR2_TABLE_100();
135 a6 := JTF_VARCHAR2_TABLE_100();
136 else
137 a0 := JTF_VARCHAR2_TABLE_100();
138 a1 := JTF_NUMBER_TABLE();
139 a2 := JTF_NUMBER_TABLE();
140 a3 := JTF_NUMBER_TABLE();
141 a4 := JTF_NUMBER_TABLE();
142 a5 := JTF_VARCHAR2_TABLE_100();
143 a6 := JTF_VARCHAR2_TABLE_100();
144 if t.count > 0 then
145 a0.extend(t.count);
146 a1.extend(t.count);
147 a2.extend(t.count);
148 a3.extend(t.count);
149 a4.extend(t.count);
150 a5.extend(t.count);
151 a6.extend(t.count);
152 ddindx := t.first;
153 indx := 1;
154 while true loop
155 a0(indx) := t(ddindx).node_type;
156 a1(indx) := t(ddindx).instance_id;
157 a2(indx) := t(ddindx).parent_instance_id;
158 a3(indx) := t(ddindx).relationship_id;
159 a4(indx) := t(ddindx).parent_rel_id;
160 a5(indx) := t(ddindx).leaf_node_flag;
161 a6(indx) := t(ddindx).with_submc_flag;
162 indx := indx+1;
163 if t.last =ddindx
164 then exit;
165 end if;
166 ddindx := t.next(ddindx);
167 end loop;
168 end if;
169 end if;
170 end rosetta_table_copy_out_p5;
171
172 procedure rosetta_table_copy_in_p7(t out nocopy ahl_uc_instance_pvt.available_instance_tbl_type, a0 JTF_NUMBER_TABLE
173 , a1 JTF_NUMBER_TABLE
174 , a2 JTF_NUMBER_TABLE
175 , a3 JTF_NUMBER_TABLE
176 , a4 JTF_VARCHAR2_TABLE_100
177 , a5 JTF_VARCHAR2_TABLE_300
178 , a6 JTF_VARCHAR2_TABLE_300
179 , a7 JTF_VARCHAR2_TABLE_100
180 , a8 JTF_VARCHAR2_TABLE_100
181 , a9 JTF_VARCHAR2_TABLE_100
182 , a10 JTF_VARCHAR2_TABLE_100
183 , a11 JTF_VARCHAR2_TABLE_100
184 , a12 JTF_NUMBER_TABLE
185 , a13 JTF_NUMBER_TABLE
186 , a14 JTF_DATE_TABLE
187 , a15 JTF_DATE_TABLE
188 , a16 JTF_VARCHAR2_TABLE_4000
189 , a17 JTF_VARCHAR2_TABLE_100
190 , a18 JTF_NUMBER_TABLE
191 , a19 JTF_VARCHAR2_TABLE_400
192 , a20 JTF_VARCHAR2_TABLE_400
193 , a21 JTF_NUMBER_TABLE
194 , a22 JTF_VARCHAR2_TABLE_100
195 , a23 JTF_NUMBER_TABLE
196 , a24 JTF_VARCHAR2_TABLE_100
197 , a25 JTF_VARCHAR2_TABLE_300
198 , a26 JTF_NUMBER_TABLE
199 , a27 JTF_VARCHAR2_TABLE_100
200 , a28 JTF_VARCHAR2_TABLE_100
201 , a29 JTF_NUMBER_TABLE
202 , a30 JTF_VARCHAR2_TABLE_100
203 , a31 JTF_VARCHAR2_TABLE_100
204 , a32 JTF_VARCHAR2_TABLE_100
205 , a33 JTF_VARCHAR2_TABLE_100
206 , a34 JTF_VARCHAR2_TABLE_300
207 , a35 JTF_NUMBER_TABLE
208 , a36 JTF_VARCHAR2_TABLE_100
209 , a37 JTF_NUMBER_TABLE
210 , a38 JTF_VARCHAR2_TABLE_300
211 ) as
212 ddindx binary_integer; indx binary_integer;
213 begin
214 if a0 is not null and a0.count > 0 then
215 if a0.count > 0 then
216 indx := a0.first;
217 ddindx := 1;
218 while true loop
219 t(ddindx).csi_item_instance_id := a0(indx);
220 t(ddindx).csi_object_version_number := a1(indx);
221 t(ddindx).inventory_item_id := a2(indx);
222 t(ddindx).inventory_org_id := a3(indx);
223 t(ddindx).organization_code := a4(indx);
224 t(ddindx).item_number := a5(indx);
225 t(ddindx).item_description := a6(indx);
226 t(ddindx).csi_instance_number := a7(indx);
227 t(ddindx).serial_number := a8(indx);
228 t(ddindx).lot_number := a9(indx);
229 t(ddindx).revision := a10(indx);
230 t(ddindx).uom_code := a11(indx);
231 t(ddindx).quantity := a12(indx);
232 t(ddindx).priority := a13(indx);
233 t(ddindx).install_date := rosetta_g_miss_date_in_map(a14(indx));
234 t(ddindx).mfg_date := rosetta_g_miss_date_in_map(a15(indx));
235 t(ddindx).location_description := a16(indx);
236 t(ddindx).party_type := a17(indx);
237 t(ddindx).owner_id := a18(indx);
238 t(ddindx).owner_number := a19(indx);
239 t(ddindx).owner_name := a20(indx);
240 t(ddindx).owner_site_id := a21(indx);
241 t(ddindx).owner_site_number := a22(indx);
242 t(ddindx).csi_party_object_version_num := a23(indx);
243 t(ddindx).status := a24(indx);
244 t(ddindx).condition := a25(indx);
245 t(ddindx).uc_header_id := a26(indx);
246 t(ddindx).uc_name := a27(indx);
247 t(ddindx).uc_status := a28(indx);
248 t(ddindx).mc_header_id := a29(indx);
249 t(ddindx).mc_name := a30(indx);
250 t(ddindx).mc_revision := a31(indx);
251 t(ddindx).mc_status := a32(indx);
252 t(ddindx).position_ref := a33(indx);
253 t(ddindx).wip_entity_name := a34(indx);
254 t(ddindx).csi_ii_relationship_ovn := a35(indx);
255 t(ddindx).subinventory_code := a36(indx);
256 t(ddindx).inventory_locator_id := a37(indx);
257 t(ddindx).locator_segments := a38(indx);
258 ddindx := ddindx+1;
259 if a0.last =indx
260 then exit;
261 end if;
262 indx := a0.next(indx);
263 end loop;
264 end if;
265 end if;
266 end rosetta_table_copy_in_p7;
267 procedure rosetta_table_copy_out_p7(t ahl_uc_instance_pvt.available_instance_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
268 , a1 out nocopy JTF_NUMBER_TABLE
269 , a2 out nocopy JTF_NUMBER_TABLE
270 , a3 out nocopy JTF_NUMBER_TABLE
271 , a4 out nocopy JTF_VARCHAR2_TABLE_100
272 , a5 out nocopy JTF_VARCHAR2_TABLE_300
273 , a6 out nocopy JTF_VARCHAR2_TABLE_300
274 , a7 out nocopy JTF_VARCHAR2_TABLE_100
275 , a8 out nocopy JTF_VARCHAR2_TABLE_100
276 , a9 out nocopy JTF_VARCHAR2_TABLE_100
277 , a10 out nocopy JTF_VARCHAR2_TABLE_100
278 , a11 out nocopy JTF_VARCHAR2_TABLE_100
279 , a12 out nocopy JTF_NUMBER_TABLE
280 , a13 out nocopy JTF_NUMBER_TABLE
281 , a14 out nocopy JTF_DATE_TABLE
282 , a15 out nocopy JTF_DATE_TABLE
283 , a16 out nocopy JTF_VARCHAR2_TABLE_4000
284 , a17 out nocopy JTF_VARCHAR2_TABLE_100
285 , a18 out nocopy JTF_NUMBER_TABLE
286 , a19 out nocopy JTF_VARCHAR2_TABLE_400
287 , a20 out nocopy JTF_VARCHAR2_TABLE_400
288 , a21 out nocopy JTF_NUMBER_TABLE
289 , a22 out nocopy JTF_VARCHAR2_TABLE_100
290 , a23 out nocopy JTF_NUMBER_TABLE
291 , a24 out nocopy JTF_VARCHAR2_TABLE_100
292 , a25 out nocopy JTF_VARCHAR2_TABLE_300
293 , a26 out nocopy JTF_NUMBER_TABLE
294 , a27 out nocopy JTF_VARCHAR2_TABLE_100
295 , a28 out nocopy JTF_VARCHAR2_TABLE_100
296 , a29 out nocopy JTF_NUMBER_TABLE
297 , a30 out nocopy JTF_VARCHAR2_TABLE_100
298 , a31 out nocopy JTF_VARCHAR2_TABLE_100
299 , a32 out nocopy JTF_VARCHAR2_TABLE_100
300 , a33 out nocopy JTF_VARCHAR2_TABLE_100
301 , a34 out nocopy JTF_VARCHAR2_TABLE_300
302 , a35 out nocopy JTF_NUMBER_TABLE
303 , a36 out nocopy JTF_VARCHAR2_TABLE_100
304 , a37 out nocopy JTF_NUMBER_TABLE
305 , a38 out nocopy JTF_VARCHAR2_TABLE_300
306 ) as
307 ddindx binary_integer; indx binary_integer;
308 begin
309 if t is null or t.count = 0 then
310 a0 := JTF_NUMBER_TABLE();
311 a1 := JTF_NUMBER_TABLE();
312 a2 := JTF_NUMBER_TABLE();
313 a3 := JTF_NUMBER_TABLE();
314 a4 := JTF_VARCHAR2_TABLE_100();
315 a5 := JTF_VARCHAR2_TABLE_300();
316 a6 := JTF_VARCHAR2_TABLE_300();
317 a7 := JTF_VARCHAR2_TABLE_100();
318 a8 := JTF_VARCHAR2_TABLE_100();
319 a9 := JTF_VARCHAR2_TABLE_100();
320 a10 := JTF_VARCHAR2_TABLE_100();
321 a11 := JTF_VARCHAR2_TABLE_100();
322 a12 := JTF_NUMBER_TABLE();
323 a13 := JTF_NUMBER_TABLE();
324 a14 := JTF_DATE_TABLE();
325 a15 := JTF_DATE_TABLE();
326 a16 := JTF_VARCHAR2_TABLE_4000();
327 a17 := JTF_VARCHAR2_TABLE_100();
328 a18 := JTF_NUMBER_TABLE();
329 a19 := JTF_VARCHAR2_TABLE_400();
330 a20 := JTF_VARCHAR2_TABLE_400();
331 a21 := JTF_NUMBER_TABLE();
332 a22 := JTF_VARCHAR2_TABLE_100();
333 a23 := JTF_NUMBER_TABLE();
334 a24 := JTF_VARCHAR2_TABLE_100();
335 a25 := JTF_VARCHAR2_TABLE_300();
336 a26 := JTF_NUMBER_TABLE();
337 a27 := JTF_VARCHAR2_TABLE_100();
338 a28 := JTF_VARCHAR2_TABLE_100();
339 a29 := JTF_NUMBER_TABLE();
340 a30 := JTF_VARCHAR2_TABLE_100();
341 a31 := JTF_VARCHAR2_TABLE_100();
342 a32 := JTF_VARCHAR2_TABLE_100();
343 a33 := JTF_VARCHAR2_TABLE_100();
344 a34 := JTF_VARCHAR2_TABLE_300();
345 a35 := JTF_NUMBER_TABLE();
346 a36 := JTF_VARCHAR2_TABLE_100();
347 a37 := JTF_NUMBER_TABLE();
348 a38 := JTF_VARCHAR2_TABLE_300();
349 else
350 a0 := JTF_NUMBER_TABLE();
351 a1 := JTF_NUMBER_TABLE();
352 a2 := JTF_NUMBER_TABLE();
353 a3 := JTF_NUMBER_TABLE();
354 a4 := JTF_VARCHAR2_TABLE_100();
355 a5 := JTF_VARCHAR2_TABLE_300();
356 a6 := JTF_VARCHAR2_TABLE_300();
357 a7 := JTF_VARCHAR2_TABLE_100();
358 a8 := JTF_VARCHAR2_TABLE_100();
359 a9 := JTF_VARCHAR2_TABLE_100();
360 a10 := JTF_VARCHAR2_TABLE_100();
361 a11 := JTF_VARCHAR2_TABLE_100();
362 a12 := JTF_NUMBER_TABLE();
363 a13 := JTF_NUMBER_TABLE();
364 a14 := JTF_DATE_TABLE();
365 a15 := JTF_DATE_TABLE();
366 a16 := JTF_VARCHAR2_TABLE_4000();
367 a17 := JTF_VARCHAR2_TABLE_100();
368 a18 := JTF_NUMBER_TABLE();
369 a19 := JTF_VARCHAR2_TABLE_400();
370 a20 := JTF_VARCHAR2_TABLE_400();
371 a21 := JTF_NUMBER_TABLE();
372 a22 := JTF_VARCHAR2_TABLE_100();
373 a23 := JTF_NUMBER_TABLE();
374 a24 := JTF_VARCHAR2_TABLE_100();
375 a25 := JTF_VARCHAR2_TABLE_300();
376 a26 := JTF_NUMBER_TABLE();
377 a27 := JTF_VARCHAR2_TABLE_100();
378 a28 := JTF_VARCHAR2_TABLE_100();
379 a29 := JTF_NUMBER_TABLE();
380 a30 := JTF_VARCHAR2_TABLE_100();
381 a31 := JTF_VARCHAR2_TABLE_100();
382 a32 := JTF_VARCHAR2_TABLE_100();
383 a33 := JTF_VARCHAR2_TABLE_100();
384 a34 := JTF_VARCHAR2_TABLE_300();
385 a35 := JTF_NUMBER_TABLE();
386 a36 := JTF_VARCHAR2_TABLE_100();
387 a37 := JTF_NUMBER_TABLE();
388 a38 := JTF_VARCHAR2_TABLE_300();
389 if t.count > 0 then
390 a0.extend(t.count);
391 a1.extend(t.count);
392 a2.extend(t.count);
393 a3.extend(t.count);
394 a4.extend(t.count);
395 a5.extend(t.count);
396 a6.extend(t.count);
397 a7.extend(t.count);
398 a8.extend(t.count);
399 a9.extend(t.count);
400 a10.extend(t.count);
401 a11.extend(t.count);
402 a12.extend(t.count);
403 a13.extend(t.count);
404 a14.extend(t.count);
405 a15.extend(t.count);
406 a16.extend(t.count);
407 a17.extend(t.count);
408 a18.extend(t.count);
409 a19.extend(t.count);
410 a20.extend(t.count);
411 a21.extend(t.count);
412 a22.extend(t.count);
413 a23.extend(t.count);
414 a24.extend(t.count);
415 a25.extend(t.count);
416 a26.extend(t.count);
417 a27.extend(t.count);
418 a28.extend(t.count);
419 a29.extend(t.count);
420 a30.extend(t.count);
421 a31.extend(t.count);
422 a32.extend(t.count);
423 a33.extend(t.count);
424 a34.extend(t.count);
425 a35.extend(t.count);
426 a36.extend(t.count);
427 a37.extend(t.count);
428 a38.extend(t.count);
429 ddindx := t.first;
430 indx := 1;
431 while true loop
432 a0(indx) := t(ddindx).csi_item_instance_id;
433 a1(indx) := t(ddindx).csi_object_version_number;
434 a2(indx) := t(ddindx).inventory_item_id;
435 a3(indx) := t(ddindx).inventory_org_id;
436 a4(indx) := t(ddindx).organization_code;
437 a5(indx) := t(ddindx).item_number;
438 a6(indx) := t(ddindx).item_description;
439 a7(indx) := t(ddindx).csi_instance_number;
440 a8(indx) := t(ddindx).serial_number;
441 a9(indx) := t(ddindx).lot_number;
442 a10(indx) := t(ddindx).revision;
443 a11(indx) := t(ddindx).uom_code;
444 a12(indx) := t(ddindx).quantity;
445 a13(indx) := t(ddindx).priority;
446 a14(indx) := t(ddindx).install_date;
447 a15(indx) := t(ddindx).mfg_date;
448 a16(indx) := t(ddindx).location_description;
449 a17(indx) := t(ddindx).party_type;
450 a18(indx) := t(ddindx).owner_id;
451 a19(indx) := t(ddindx).owner_number;
452 a20(indx) := t(ddindx).owner_name;
453 a21(indx) := t(ddindx).owner_site_id;
454 a22(indx) := t(ddindx).owner_site_number;
455 a23(indx) := t(ddindx).csi_party_object_version_num;
456 a24(indx) := t(ddindx).status;
457 a25(indx) := t(ddindx).condition;
458 a26(indx) := t(ddindx).uc_header_id;
459 a27(indx) := t(ddindx).uc_name;
460 a28(indx) := t(ddindx).uc_status;
461 a29(indx) := t(ddindx).mc_header_id;
462 a30(indx) := t(ddindx).mc_name;
463 a31(indx) := t(ddindx).mc_revision;
464 a32(indx) := t(ddindx).mc_status;
465 a33(indx) := t(ddindx).position_ref;
466 a34(indx) := t(ddindx).wip_entity_name;
467 a35(indx) := t(ddindx).csi_ii_relationship_ovn;
468 a36(indx) := t(ddindx).subinventory_code;
469 a37(indx) := t(ddindx).inventory_locator_id;
470 a38(indx) := t(ddindx).locator_segments;
471 indx := indx+1;
472 if t.last =ddindx
473 then exit;
474 end if;
475 ddindx := t.next(ddindx);
476 end loop;
477 end if;
478 end if;
479 end rosetta_table_copy_out_p7;
480
481 procedure update_instance_attr(p_api_version NUMBER
482 , p_init_msg_list VARCHAR2
483 , p_commit VARCHAR2
484 , p_validation_level NUMBER
485 , x_return_status out nocopy VARCHAR2
486 , x_msg_count out nocopy NUMBER
487 , x_msg_data out nocopy VARCHAR2
488 , p_uc_header_id NUMBER
489 , p8_a0 NUMBER
490 , p8_a1 NUMBER
491 , p8_a2 VARCHAR2
492 , p8_a3 VARCHAR2
493 , p8_a4 NUMBER
494 , p8_a5 VARCHAR2
495 , p8_a6 VARCHAR2
496 , p8_a7 VARCHAR2
497 , p8_a8 VARCHAR2
498 , p8_a9 VARCHAR2
499 , p8_a10 NUMBER
500 , p8_a11 VARCHAR2
501 , p8_a12 VARCHAR2
502 , p8_a13 DATE
503 , p8_a14 DATE
504 , p8_a15 NUMBER
505 , p8_a16 NUMBER
506 , p8_a17 VARCHAR2
507 , p8_a18 VARCHAR2
508 , p8_a19 VARCHAR2
509 , p8_a20 VARCHAR2
510 , p8_a21 VARCHAR2
511 , p8_a22 VARCHAR2
512 , p8_a23 VARCHAR2
513 , p8_a24 VARCHAR2
514 , p8_a25 VARCHAR2
515 , p8_a26 VARCHAR2
516 , p8_a27 VARCHAR2
517 , p8_a28 VARCHAR2
518 , p8_a29 VARCHAR2
519 , p8_a30 VARCHAR2
520 , p8_a31 VARCHAR2
521 , p8_a32 VARCHAR2
522 , p8_a33 VARCHAR2
523 , p8_a34 VARCHAR2
524 , p8_a35 VARCHAR2
525 , p8_a36 VARCHAR2
526 , p8_a37 VARCHAR2
527 , p8_a38 VARCHAR2
528 , p8_a39 VARCHAR2
529 , p8_a40 VARCHAR2
530 , p8_a41 VARCHAR2
531 , p8_a42 VARCHAR2
532 , p8_a43 VARCHAR2
533 , p8_a44 VARCHAR2
534 , p8_a45 VARCHAR2
535 , p8_a46 VARCHAR2
536 , p8_a47 VARCHAR2
537 , p_prod_user_flag VARCHAR2
538 )
539
540 as
541 ddp_uc_instance_rec ahl_uc_instance_pvt.uc_instance_rec_type;
542 ddindx binary_integer; indx binary_integer;
543 begin
544
545 -- copy data to the local IN or IN-OUT args, if any
546
547
548
549
550
551
552
553
554 ddp_uc_instance_rec.inventory_item_id := p8_a0;
555 ddp_uc_instance_rec.inventory_org_id := p8_a1;
556 ddp_uc_instance_rec.inventory_org_code := p8_a2;
557 ddp_uc_instance_rec.item_number := p8_a3;
558 ddp_uc_instance_rec.instance_id := p8_a4;
559 ddp_uc_instance_rec.instance_number := p8_a5;
560 ddp_uc_instance_rec.serial_number := p8_a6;
561 ddp_uc_instance_rec.sn_tag_code := p8_a7;
562 ddp_uc_instance_rec.sn_tag_meaning := p8_a8;
563 ddp_uc_instance_rec.lot_number := p8_a9;
564 ddp_uc_instance_rec.quantity := p8_a10;
565 ddp_uc_instance_rec.uom_code := p8_a11;
566 ddp_uc_instance_rec.revision := p8_a12;
567 ddp_uc_instance_rec.mfg_date := rosetta_g_miss_date_in_map(p8_a13);
568 ddp_uc_instance_rec.install_date := rosetta_g_miss_date_in_map(p8_a14);
569 ddp_uc_instance_rec.relationship_id := p8_a15;
570 ddp_uc_instance_rec.object_version_number := p8_a16;
571 ddp_uc_instance_rec.context := p8_a17;
572 ddp_uc_instance_rec.attribute1 := p8_a18;
573 ddp_uc_instance_rec.attribute2 := p8_a19;
574 ddp_uc_instance_rec.attribute3 := p8_a20;
575 ddp_uc_instance_rec.attribute4 := p8_a21;
576 ddp_uc_instance_rec.attribute5 := p8_a22;
577 ddp_uc_instance_rec.attribute6 := p8_a23;
578 ddp_uc_instance_rec.attribute7 := p8_a24;
579 ddp_uc_instance_rec.attribute8 := p8_a25;
580 ddp_uc_instance_rec.attribute9 := p8_a26;
581 ddp_uc_instance_rec.attribute10 := p8_a27;
582 ddp_uc_instance_rec.attribute11 := p8_a28;
583 ddp_uc_instance_rec.attribute12 := p8_a29;
584 ddp_uc_instance_rec.attribute13 := p8_a30;
585 ddp_uc_instance_rec.attribute14 := p8_a31;
586 ddp_uc_instance_rec.attribute15 := p8_a32;
587 ddp_uc_instance_rec.attribute16 := p8_a33;
588 ddp_uc_instance_rec.attribute17 := p8_a34;
589 ddp_uc_instance_rec.attribute18 := p8_a35;
590 ddp_uc_instance_rec.attribute19 := p8_a36;
591 ddp_uc_instance_rec.attribute20 := p8_a37;
592 ddp_uc_instance_rec.attribute21 := p8_a38;
593 ddp_uc_instance_rec.attribute22 := p8_a39;
594 ddp_uc_instance_rec.attribute23 := p8_a40;
595 ddp_uc_instance_rec.attribute24 := p8_a41;
596 ddp_uc_instance_rec.attribute25 := p8_a42;
597 ddp_uc_instance_rec.attribute26 := p8_a43;
598 ddp_uc_instance_rec.attribute27 := p8_a44;
599 ddp_uc_instance_rec.attribute28 := p8_a45;
600 ddp_uc_instance_rec.attribute29 := p8_a46;
601 ddp_uc_instance_rec.attribute30 := p8_a47;
602
603
604 -- here's the delegated call to the old PL/SQL routine
605 ahl_uc_instance_pvt.update_instance_attr(p_api_version,
606 p_init_msg_list,
607 p_commit,
608 p_validation_level,
609 x_return_status,
610 x_msg_count,
611 x_msg_data,
612 p_uc_header_id,
613 ddp_uc_instance_rec,
614 p_prod_user_flag);
615
616 -- copy data back from the local variables to OUT or IN-OUT args, if any
617
618
619
620
621
622
623
624
625
626 end;
627
628 procedure install_new_instance(p_api_version NUMBER
629 , p_init_msg_list VARCHAR2
630 , p_commit VARCHAR2
631 , p_validation_level NUMBER
632 , x_return_status out nocopy VARCHAR2
633 , x_msg_count out nocopy NUMBER
634 , x_msg_data out nocopy VARCHAR2
635 , p_uc_header_id NUMBER
636 , p_parent_instance_id NUMBER
637 , p_prod_user_flag VARCHAR2
638 , p10_a0 in out nocopy NUMBER
639 , p10_a1 in out nocopy NUMBER
640 , p10_a2 in out nocopy VARCHAR2
641 , p10_a3 in out nocopy VARCHAR2
642 , p10_a4 in out nocopy NUMBER
643 , p10_a5 in out nocopy VARCHAR2
644 , p10_a6 in out nocopy VARCHAR2
645 , p10_a7 in out nocopy VARCHAR2
646 , p10_a8 in out nocopy VARCHAR2
647 , p10_a9 in out nocopy VARCHAR2
648 , p10_a10 in out nocopy NUMBER
649 , p10_a11 in out nocopy VARCHAR2
650 , p10_a12 in out nocopy VARCHAR2
651 , p10_a13 in out nocopy DATE
652 , p10_a14 in out nocopy DATE
653 , p10_a15 in out nocopy NUMBER
654 , p10_a16 in out nocopy NUMBER
655 , p10_a17 in out nocopy VARCHAR2
656 , p10_a18 in out nocopy VARCHAR2
657 , p10_a19 in out nocopy VARCHAR2
658 , p10_a20 in out nocopy VARCHAR2
659 , p10_a21 in out nocopy VARCHAR2
660 , p10_a22 in out nocopy VARCHAR2
661 , p10_a23 in out nocopy VARCHAR2
662 , p10_a24 in out nocopy VARCHAR2
663 , p10_a25 in out nocopy VARCHAR2
664 , p10_a26 in out nocopy VARCHAR2
665 , p10_a27 in out nocopy VARCHAR2
666 , p10_a28 in out nocopy VARCHAR2
667 , p10_a29 in out nocopy VARCHAR2
668 , p10_a30 in out nocopy VARCHAR2
669 , p10_a31 in out nocopy VARCHAR2
670 , p10_a32 in out nocopy VARCHAR2
671 , p10_a33 in out nocopy VARCHAR2
672 , p10_a34 in out nocopy VARCHAR2
673 , p10_a35 in out nocopy VARCHAR2
674 , p10_a36 in out nocopy VARCHAR2
675 , p10_a37 in out nocopy VARCHAR2
676 , p10_a38 in out nocopy VARCHAR2
677 , p10_a39 in out nocopy VARCHAR2
678 , p10_a40 in out nocopy VARCHAR2
679 , p10_a41 in out nocopy VARCHAR2
680 , p10_a42 in out nocopy VARCHAR2
681 , p10_a43 in out nocopy VARCHAR2
682 , p10_a44 in out nocopy VARCHAR2
683 , p10_a45 in out nocopy VARCHAR2
684 , p10_a46 in out nocopy VARCHAR2
685 , p10_a47 in out nocopy VARCHAR2
686 , p11_a0 in out nocopy NUMBER
687 , p11_a1 in out nocopy VARCHAR2
688 , p11_a2 in out nocopy NUMBER
689 , p11_a3 in out nocopy VARCHAR2
690 , p11_a4 in out nocopy VARCHAR2
691 , p11_a5 in out nocopy NUMBER
692 , p11_a6 in out nocopy VARCHAR2
693 , p11_a7 in out nocopy VARCHAR2
694 , p11_a8 in out nocopy NUMBER
695 , p11_a9 in out nocopy VARCHAR2
696 , p11_a10 in out nocopy DATE
697 , p11_a11 in out nocopy DATE
698 , p11_a12 in out nocopy NUMBER
699 , p11_a13 in out nocopy VARCHAR2
700 , p11_a14 in out nocopy VARCHAR2
701 , p11_a15 in out nocopy VARCHAR2
702 , p11_a16 in out nocopy VARCHAR2
703 , p11_a17 in out nocopy VARCHAR2
704 , p11_a18 in out nocopy VARCHAR2
705 , p11_a19 in out nocopy VARCHAR2
706 , p11_a20 in out nocopy VARCHAR2
707 , p11_a21 in out nocopy VARCHAR2
708 , p11_a22 in out nocopy VARCHAR2
709 , p11_a23 in out nocopy VARCHAR2
710 , p11_a24 in out nocopy VARCHAR2
711 , p11_a25 in out nocopy VARCHAR2
712 , p11_a26 in out nocopy VARCHAR2
713 , p11_a27 in out nocopy VARCHAR2
714 , p11_a28 in out nocopy VARCHAR2
715 , x_warning_msg_tbl out nocopy JTF_VARCHAR2_TABLE_2000
716 )
717
718 as
719 ddp_x_uc_instance_rec ahl_uc_instance_pvt.uc_instance_rec_type;
720 ddp_x_sub_uc_rec ahl_uc_instance_pvt.uc_header_rec_type;
721 ddx_warning_msg_tbl ahl_uc_validation_pub.error_tbl_type;
722 ddindx binary_integer; indx binary_integer;
723 begin
724
725 -- copy data to the local IN or IN-OUT args, if any
726
727
728
729
730
731
732
733
734
735
736 ddp_x_uc_instance_rec.inventory_item_id := p10_a0;
737 ddp_x_uc_instance_rec.inventory_org_id := p10_a1;
738 ddp_x_uc_instance_rec.inventory_org_code := p10_a2;
739 ddp_x_uc_instance_rec.item_number := p10_a3;
740 ddp_x_uc_instance_rec.instance_id := p10_a4;
741 ddp_x_uc_instance_rec.instance_number := p10_a5;
742 ddp_x_uc_instance_rec.serial_number := p10_a6;
743 ddp_x_uc_instance_rec.sn_tag_code := p10_a7;
744 ddp_x_uc_instance_rec.sn_tag_meaning := p10_a8;
745 ddp_x_uc_instance_rec.lot_number := p10_a9;
746 ddp_x_uc_instance_rec.quantity := p10_a10;
747 ddp_x_uc_instance_rec.uom_code := p10_a11;
748 ddp_x_uc_instance_rec.revision := p10_a12;
749 ddp_x_uc_instance_rec.mfg_date := rosetta_g_miss_date_in_map(p10_a13);
750 ddp_x_uc_instance_rec.install_date := rosetta_g_miss_date_in_map(p10_a14);
751 ddp_x_uc_instance_rec.relationship_id := p10_a15;
752 ddp_x_uc_instance_rec.object_version_number := p10_a16;
753 ddp_x_uc_instance_rec.context := p10_a17;
754 ddp_x_uc_instance_rec.attribute1 := p10_a18;
755 ddp_x_uc_instance_rec.attribute2 := p10_a19;
756 ddp_x_uc_instance_rec.attribute3 := p10_a20;
757 ddp_x_uc_instance_rec.attribute4 := p10_a21;
758 ddp_x_uc_instance_rec.attribute5 := p10_a22;
759 ddp_x_uc_instance_rec.attribute6 := p10_a23;
760 ddp_x_uc_instance_rec.attribute7 := p10_a24;
761 ddp_x_uc_instance_rec.attribute8 := p10_a25;
762 ddp_x_uc_instance_rec.attribute9 := p10_a26;
763 ddp_x_uc_instance_rec.attribute10 := p10_a27;
764 ddp_x_uc_instance_rec.attribute11 := p10_a28;
765 ddp_x_uc_instance_rec.attribute12 := p10_a29;
766 ddp_x_uc_instance_rec.attribute13 := p10_a30;
767 ddp_x_uc_instance_rec.attribute14 := p10_a31;
768 ddp_x_uc_instance_rec.attribute15 := p10_a32;
769 ddp_x_uc_instance_rec.attribute16 := p10_a33;
770 ddp_x_uc_instance_rec.attribute17 := p10_a34;
771 ddp_x_uc_instance_rec.attribute18 := p10_a35;
772 ddp_x_uc_instance_rec.attribute19 := p10_a36;
773 ddp_x_uc_instance_rec.attribute20 := p10_a37;
774 ddp_x_uc_instance_rec.attribute21 := p10_a38;
775 ddp_x_uc_instance_rec.attribute22 := p10_a39;
776 ddp_x_uc_instance_rec.attribute23 := p10_a40;
777 ddp_x_uc_instance_rec.attribute24 := p10_a41;
778 ddp_x_uc_instance_rec.attribute25 := p10_a42;
779 ddp_x_uc_instance_rec.attribute26 := p10_a43;
780 ddp_x_uc_instance_rec.attribute27 := p10_a44;
781 ddp_x_uc_instance_rec.attribute28 := p10_a45;
782 ddp_x_uc_instance_rec.attribute29 := p10_a46;
783 ddp_x_uc_instance_rec.attribute30 := p10_a47;
784
785 ddp_x_sub_uc_rec.uc_header_id := p11_a0;
786 ddp_x_sub_uc_rec.uc_name := p11_a1;
787 ddp_x_sub_uc_rec.mc_header_id := p11_a2;
788 ddp_x_sub_uc_rec.mc_name := p11_a3;
789 ddp_x_sub_uc_rec.mc_revision := p11_a4;
790 ddp_x_sub_uc_rec.parent_uc_header_id := p11_a5;
791 ddp_x_sub_uc_rec.unit_config_status_code := p11_a6;
792 ddp_x_sub_uc_rec.active_uc_status_code := p11_a7;
793 ddp_x_sub_uc_rec.instance_id := p11_a8;
794 ddp_x_sub_uc_rec.instance_number := p11_a9;
795 ddp_x_sub_uc_rec.active_start_date := rosetta_g_miss_date_in_map(p11_a10);
796 ddp_x_sub_uc_rec.active_end_date := rosetta_g_miss_date_in_map(p11_a11);
797 ddp_x_sub_uc_rec.object_version_number := p11_a12;
798 ddp_x_sub_uc_rec.attribute_category := p11_a13;
799 ddp_x_sub_uc_rec.attribute1 := p11_a14;
800 ddp_x_sub_uc_rec.attribute2 := p11_a15;
801 ddp_x_sub_uc_rec.attribute3 := p11_a16;
802 ddp_x_sub_uc_rec.attribute4 := p11_a17;
803 ddp_x_sub_uc_rec.attribute5 := p11_a18;
804 ddp_x_sub_uc_rec.attribute6 := p11_a19;
805 ddp_x_sub_uc_rec.attribute7 := p11_a20;
806 ddp_x_sub_uc_rec.attribute8 := p11_a21;
807 ddp_x_sub_uc_rec.attribute9 := p11_a22;
808 ddp_x_sub_uc_rec.attribute10 := p11_a23;
809 ddp_x_sub_uc_rec.attribute11 := p11_a24;
810 ddp_x_sub_uc_rec.attribute12 := p11_a25;
811 ddp_x_sub_uc_rec.attribute13 := p11_a26;
812 ddp_x_sub_uc_rec.attribute14 := p11_a27;
813 ddp_x_sub_uc_rec.attribute15 := p11_a28;
814
815
816 -- here's the delegated call to the old PL/SQL routine
817 ahl_uc_instance_pvt.install_new_instance(p_api_version,
818 p_init_msg_list,
819 p_commit,
820 p_validation_level,
821 x_return_status,
822 x_msg_count,
823 x_msg_data,
824 p_uc_header_id,
825 p_parent_instance_id,
826 p_prod_user_flag,
827 ddp_x_uc_instance_rec,
828 ddp_x_sub_uc_rec,
829 ddx_warning_msg_tbl);
830
831 -- copy data back from the local variables to OUT or IN-OUT args, if any
832
833
834
835
836
837
838
839
840
841
842 p10_a0 := ddp_x_uc_instance_rec.inventory_item_id;
843 p10_a1 := ddp_x_uc_instance_rec.inventory_org_id;
844 p10_a2 := ddp_x_uc_instance_rec.inventory_org_code;
845 p10_a3 := ddp_x_uc_instance_rec.item_number;
846 p10_a4 := ddp_x_uc_instance_rec.instance_id;
847 p10_a5 := ddp_x_uc_instance_rec.instance_number;
848 p10_a6 := ddp_x_uc_instance_rec.serial_number;
849 p10_a7 := ddp_x_uc_instance_rec.sn_tag_code;
850 p10_a8 := ddp_x_uc_instance_rec.sn_tag_meaning;
851 p10_a9 := ddp_x_uc_instance_rec.lot_number;
852 p10_a10 := ddp_x_uc_instance_rec.quantity;
853 p10_a11 := ddp_x_uc_instance_rec.uom_code;
854 p10_a12 := ddp_x_uc_instance_rec.revision;
855 p10_a13 := ddp_x_uc_instance_rec.mfg_date;
856 p10_a14 := ddp_x_uc_instance_rec.install_date;
857 p10_a15 := ddp_x_uc_instance_rec.relationship_id;
858 p10_a16 := ddp_x_uc_instance_rec.object_version_number;
859 p10_a17 := ddp_x_uc_instance_rec.context;
860 p10_a18 := ddp_x_uc_instance_rec.attribute1;
861 p10_a19 := ddp_x_uc_instance_rec.attribute2;
862 p10_a20 := ddp_x_uc_instance_rec.attribute3;
863 p10_a21 := ddp_x_uc_instance_rec.attribute4;
864 p10_a22 := ddp_x_uc_instance_rec.attribute5;
865 p10_a23 := ddp_x_uc_instance_rec.attribute6;
866 p10_a24 := ddp_x_uc_instance_rec.attribute7;
867 p10_a25 := ddp_x_uc_instance_rec.attribute8;
868 p10_a26 := ddp_x_uc_instance_rec.attribute9;
869 p10_a27 := ddp_x_uc_instance_rec.attribute10;
870 p10_a28 := ddp_x_uc_instance_rec.attribute11;
871 p10_a29 := ddp_x_uc_instance_rec.attribute12;
872 p10_a30 := ddp_x_uc_instance_rec.attribute13;
873 p10_a31 := ddp_x_uc_instance_rec.attribute14;
874 p10_a32 := ddp_x_uc_instance_rec.attribute15;
875 p10_a33 := ddp_x_uc_instance_rec.attribute16;
876 p10_a34 := ddp_x_uc_instance_rec.attribute17;
877 p10_a35 := ddp_x_uc_instance_rec.attribute18;
878 p10_a36 := ddp_x_uc_instance_rec.attribute19;
879 p10_a37 := ddp_x_uc_instance_rec.attribute20;
880 p10_a38 := ddp_x_uc_instance_rec.attribute21;
881 p10_a39 := ddp_x_uc_instance_rec.attribute22;
882 p10_a40 := ddp_x_uc_instance_rec.attribute23;
883 p10_a41 := ddp_x_uc_instance_rec.attribute24;
884 p10_a42 := ddp_x_uc_instance_rec.attribute25;
885 p10_a43 := ddp_x_uc_instance_rec.attribute26;
886 p10_a44 := ddp_x_uc_instance_rec.attribute27;
887 p10_a45 := ddp_x_uc_instance_rec.attribute28;
888 p10_a46 := ddp_x_uc_instance_rec.attribute29;
889 p10_a47 := ddp_x_uc_instance_rec.attribute30;
890
891 p11_a0 := ddp_x_sub_uc_rec.uc_header_id;
892 p11_a1 := ddp_x_sub_uc_rec.uc_name;
893 p11_a2 := ddp_x_sub_uc_rec.mc_header_id;
894 p11_a3 := ddp_x_sub_uc_rec.mc_name;
895 p11_a4 := ddp_x_sub_uc_rec.mc_revision;
896 p11_a5 := ddp_x_sub_uc_rec.parent_uc_header_id;
897 p11_a6 := ddp_x_sub_uc_rec.unit_config_status_code;
898 p11_a7 := ddp_x_sub_uc_rec.active_uc_status_code;
899 p11_a8 := ddp_x_sub_uc_rec.instance_id;
900 p11_a9 := ddp_x_sub_uc_rec.instance_number;
901 p11_a10 := ddp_x_sub_uc_rec.active_start_date;
902 p11_a11 := ddp_x_sub_uc_rec.active_end_date;
903 p11_a12 := ddp_x_sub_uc_rec.object_version_number;
904 p11_a13 := ddp_x_sub_uc_rec.attribute_category;
905 p11_a14 := ddp_x_sub_uc_rec.attribute1;
906 p11_a15 := ddp_x_sub_uc_rec.attribute2;
907 p11_a16 := ddp_x_sub_uc_rec.attribute3;
908 p11_a17 := ddp_x_sub_uc_rec.attribute4;
909 p11_a18 := ddp_x_sub_uc_rec.attribute5;
910 p11_a19 := ddp_x_sub_uc_rec.attribute6;
911 p11_a20 := ddp_x_sub_uc_rec.attribute7;
912 p11_a21 := ddp_x_sub_uc_rec.attribute8;
913 p11_a22 := ddp_x_sub_uc_rec.attribute9;
914 p11_a23 := ddp_x_sub_uc_rec.attribute10;
915 p11_a24 := ddp_x_sub_uc_rec.attribute11;
916 p11_a25 := ddp_x_sub_uc_rec.attribute12;
917 p11_a26 := ddp_x_sub_uc_rec.attribute13;
918 p11_a27 := ddp_x_sub_uc_rec.attribute14;
919 p11_a28 := ddp_x_sub_uc_rec.attribute15;
920
921 ahl_uc_validation_pub_w.rosetta_table_copy_out_p0(ddx_warning_msg_tbl, x_warning_msg_tbl);
922 end;
923
924 procedure install_existing_instance(p_api_version NUMBER
925 , p_init_msg_list VARCHAR2
926 , p_commit VARCHAR2
927 , p_validation_level NUMBER
928 , x_return_status out nocopy VARCHAR2
929 , x_msg_count out nocopy NUMBER
930 , x_msg_data out nocopy VARCHAR2
931 , p_uc_header_id NUMBER
932 , p_parent_instance_id NUMBER
933 , p_instance_id NUMBER
934 , p_instance_number VARCHAR2
935 , p_relationship_id NUMBER
936 , p_csi_ii_ovn NUMBER
937 , p_prod_user_flag VARCHAR2
938 , x_warning_msg_tbl out nocopy JTF_VARCHAR2_TABLE_2000
939 )
940
941 as
942 ddx_warning_msg_tbl ahl_uc_validation_pub.error_tbl_type;
943 ddindx binary_integer; indx binary_integer;
944 begin
945
946 -- copy data to the local IN or IN-OUT args, if any
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962 -- here's the delegated call to the old PL/SQL routine
963 ahl_uc_instance_pvt.install_existing_instance(p_api_version,
964 p_init_msg_list,
965 p_commit,
966 p_validation_level,
967 x_return_status,
968 x_msg_count,
969 x_msg_data,
970 p_uc_header_id,
971 p_parent_instance_id,
972 p_instance_id,
973 p_instance_number,
974 p_relationship_id,
975 p_csi_ii_ovn,
976 p_prod_user_flag,
977 ddx_warning_msg_tbl);
978
979 -- copy data back from the local variables to OUT or IN-OUT args, if any
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994 ahl_uc_validation_pub_w.rosetta_table_copy_out_p0(ddx_warning_msg_tbl, x_warning_msg_tbl);
995 end;
996
997 procedure swap_instance(p_api_version NUMBER
998 , p_init_msg_list VARCHAR2
999 , p_commit VARCHAR2
1000 , p_validation_level NUMBER
1001 , x_return_status out nocopy VARCHAR2
1002 , x_msg_count out nocopy NUMBER
1003 , x_msg_data out nocopy VARCHAR2
1004 , p_uc_header_id NUMBER
1005 , p_parent_instance_id NUMBER
1006 , p_old_instance_id NUMBER
1007 , p_new_instance_id NUMBER
1008 , p_new_instance_number VARCHAR2
1009 , p_relationship_id NUMBER
1010 , p_csi_ii_ovn NUMBER
1011 , p_prod_user_flag VARCHAR2
1012 , x_warning_msg_tbl out nocopy JTF_VARCHAR2_TABLE_2000
1013 )
1014
1015 as
1016 ddx_warning_msg_tbl ahl_uc_validation_pub.error_tbl_type;
1017 ddindx binary_integer; indx binary_integer;
1018 begin
1019
1020 -- copy data to the local IN or IN-OUT args, if any
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037 -- here's the delegated call to the old PL/SQL routine
1038 ahl_uc_instance_pvt.swap_instance(p_api_version,
1039 p_init_msg_list,
1040 p_commit,
1041 p_validation_level,
1042 x_return_status,
1043 x_msg_count,
1044 x_msg_data,
1045 p_uc_header_id,
1046 p_parent_instance_id,
1047 p_old_instance_id,
1048 p_new_instance_id,
1049 p_new_instance_number,
1050 p_relationship_id,
1051 p_csi_ii_ovn,
1052 p_prod_user_flag,
1053 ddx_warning_msg_tbl);
1054
1055 -- copy data back from the local variables to OUT or IN-OUT args, if any
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071 ahl_uc_validation_pub_w.rosetta_table_copy_out_p0(ddx_warning_msg_tbl, x_warning_msg_tbl);
1072 end;
1073
1074 procedure get_available_instances(p_api_version NUMBER
1075 , p_init_msg_list VARCHAR2
1076 , p_validation_level NUMBER
1077 , x_return_status out nocopy VARCHAR2
1078 , x_msg_count out nocopy NUMBER
1079 , x_msg_data out nocopy VARCHAR2
1080 , p_parent_instance_id NUMBER
1081 , p_relationship_id NUMBER
1082 , p_item_number VARCHAR2
1083 , p_serial_number VARCHAR2
1084 , p_instance_number VARCHAR2
1085 , p_workorder_id NUMBER
1086 , p_start_row_index NUMBER
1087 , p_max_rows NUMBER
1088 , p14_a0 out nocopy JTF_NUMBER_TABLE
1089 , p14_a1 out nocopy JTF_NUMBER_TABLE
1090 , p14_a2 out nocopy JTF_NUMBER_TABLE
1091 , p14_a3 out nocopy JTF_NUMBER_TABLE
1092 , p14_a4 out nocopy JTF_VARCHAR2_TABLE_100
1093 , p14_a5 out nocopy JTF_VARCHAR2_TABLE_300
1094 , p14_a6 out nocopy JTF_VARCHAR2_TABLE_300
1095 , p14_a7 out nocopy JTF_VARCHAR2_TABLE_100
1096 , p14_a8 out nocopy JTF_VARCHAR2_TABLE_100
1097 , p14_a9 out nocopy JTF_VARCHAR2_TABLE_100
1098 , p14_a10 out nocopy JTF_VARCHAR2_TABLE_100
1099 , p14_a11 out nocopy JTF_VARCHAR2_TABLE_100
1100 , p14_a12 out nocopy JTF_NUMBER_TABLE
1101 , p14_a13 out nocopy JTF_NUMBER_TABLE
1102 , p14_a14 out nocopy JTF_DATE_TABLE
1103 , p14_a15 out nocopy JTF_DATE_TABLE
1104 , p14_a16 out nocopy JTF_VARCHAR2_TABLE_4000
1105 , p14_a17 out nocopy JTF_VARCHAR2_TABLE_100
1106 , p14_a18 out nocopy JTF_NUMBER_TABLE
1107 , p14_a19 out nocopy JTF_VARCHAR2_TABLE_400
1108 , p14_a20 out nocopy JTF_VARCHAR2_TABLE_400
1109 , p14_a21 out nocopy JTF_NUMBER_TABLE
1110 , p14_a22 out nocopy JTF_VARCHAR2_TABLE_100
1111 , p14_a23 out nocopy JTF_NUMBER_TABLE
1112 , p14_a24 out nocopy JTF_VARCHAR2_TABLE_100
1113 , p14_a25 out nocopy JTF_VARCHAR2_TABLE_300
1114 , p14_a26 out nocopy JTF_NUMBER_TABLE
1115 , p14_a27 out nocopy JTF_VARCHAR2_TABLE_100
1116 , p14_a28 out nocopy JTF_VARCHAR2_TABLE_100
1117 , p14_a29 out nocopy JTF_NUMBER_TABLE
1118 , p14_a30 out nocopy JTF_VARCHAR2_TABLE_100
1119 , p14_a31 out nocopy JTF_VARCHAR2_TABLE_100
1120 , p14_a32 out nocopy JTF_VARCHAR2_TABLE_100
1121 , p14_a33 out nocopy JTF_VARCHAR2_TABLE_100
1122 , p14_a34 out nocopy JTF_VARCHAR2_TABLE_300
1123 , p14_a35 out nocopy JTF_NUMBER_TABLE
1124 , p14_a36 out nocopy JTF_VARCHAR2_TABLE_100
1125 , p14_a37 out nocopy JTF_NUMBER_TABLE
1126 , p14_a38 out nocopy JTF_VARCHAR2_TABLE_300
1127 , x_tbl_count out nocopy NUMBER
1128 )
1129
1130 as
1131 ddx_available_instance_tbl ahl_uc_instance_pvt.available_instance_tbl_type;
1132 ddindx binary_integer; indx binary_integer;
1133 begin
1134
1135 -- copy data to the local IN or IN-OUT args, if any
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152 -- here's the delegated call to the old PL/SQL routine
1153 ahl_uc_instance_pvt.get_available_instances(p_api_version,
1154 p_init_msg_list,
1155 p_validation_level,
1156 x_return_status,
1157 x_msg_count,
1158 x_msg_data,
1159 p_parent_instance_id,
1160 p_relationship_id,
1161 p_item_number,
1162 p_serial_number,
1163 p_instance_number,
1164 p_workorder_id,
1165 p_start_row_index,
1166 p_max_rows,
1167 ddx_available_instance_tbl,
1168 x_tbl_count);
1169
1170 -- copy data back from the local variables to OUT or IN-OUT args, if any
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185 ahl_uc_instance_pvt_w.rosetta_table_copy_out_p7(ddx_available_instance_tbl, p14_a0
1186 , p14_a1
1187 , p14_a2
1188 , p14_a3
1189 , p14_a4
1190 , p14_a5
1191 , p14_a6
1192 , p14_a7
1193 , p14_a8
1194 , p14_a9
1195 , p14_a10
1196 , p14_a11
1197 , p14_a12
1198 , p14_a13
1199 , p14_a14
1200 , p14_a15
1201 , p14_a16
1202 , p14_a17
1203 , p14_a18
1204 , p14_a19
1205 , p14_a20
1206 , p14_a21
1207 , p14_a22
1208 , p14_a23
1209 , p14_a24
1210 , p14_a25
1211 , p14_a26
1212 , p14_a27
1213 , p14_a28
1214 , p14_a29
1215 , p14_a30
1216 , p14_a31
1217 , p14_a32
1218 , p14_a33
1219 , p14_a34
1220 , p14_a35
1221 , p14_a36
1222 , p14_a37
1223 , p14_a38
1224 );
1225
1226 end;
1227
1228 procedure get_avail_subinv_instances(p_api_version NUMBER
1229 , p_init_msg_list VARCHAR2
1230 , p_validation_level NUMBER
1231 , x_return_status out nocopy VARCHAR2
1232 , x_msg_count out nocopy NUMBER
1233 , x_msg_data out nocopy VARCHAR2
1234 , p_relationship_id NUMBER
1235 , p_item_number VARCHAR2
1236 , p_serial_number VARCHAR2
1237 , p_instance_number VARCHAR2
1238 , p_workorder_id NUMBER
1239 , p_start_row_index NUMBER
1240 , p_max_rows NUMBER
1241 , p13_a0 out nocopy JTF_NUMBER_TABLE
1242 , p13_a1 out nocopy JTF_NUMBER_TABLE
1243 , p13_a2 out nocopy JTF_NUMBER_TABLE
1244 , p13_a3 out nocopy JTF_NUMBER_TABLE
1245 , p13_a4 out nocopy JTF_VARCHAR2_TABLE_100
1246 , p13_a5 out nocopy JTF_VARCHAR2_TABLE_300
1247 , p13_a6 out nocopy JTF_VARCHAR2_TABLE_300
1248 , p13_a7 out nocopy JTF_VARCHAR2_TABLE_100
1249 , p13_a8 out nocopy JTF_VARCHAR2_TABLE_100
1250 , p13_a9 out nocopy JTF_VARCHAR2_TABLE_100
1251 , p13_a10 out nocopy JTF_VARCHAR2_TABLE_100
1252 , p13_a11 out nocopy JTF_VARCHAR2_TABLE_100
1253 , p13_a12 out nocopy JTF_NUMBER_TABLE
1254 , p13_a13 out nocopy JTF_NUMBER_TABLE
1255 , p13_a14 out nocopy JTF_DATE_TABLE
1256 , p13_a15 out nocopy JTF_DATE_TABLE
1257 , p13_a16 out nocopy JTF_VARCHAR2_TABLE_4000
1258 , p13_a17 out nocopy JTF_VARCHAR2_TABLE_100
1259 , p13_a18 out nocopy JTF_NUMBER_TABLE
1260 , p13_a19 out nocopy JTF_VARCHAR2_TABLE_400
1261 , p13_a20 out nocopy JTF_VARCHAR2_TABLE_400
1262 , p13_a21 out nocopy JTF_NUMBER_TABLE
1263 , p13_a22 out nocopy JTF_VARCHAR2_TABLE_100
1264 , p13_a23 out nocopy JTF_NUMBER_TABLE
1265 , p13_a24 out nocopy JTF_VARCHAR2_TABLE_100
1266 , p13_a25 out nocopy JTF_VARCHAR2_TABLE_300
1267 , p13_a26 out nocopy JTF_NUMBER_TABLE
1268 , p13_a27 out nocopy JTF_VARCHAR2_TABLE_100
1269 , p13_a28 out nocopy JTF_VARCHAR2_TABLE_100
1270 , p13_a29 out nocopy JTF_NUMBER_TABLE
1271 , p13_a30 out nocopy JTF_VARCHAR2_TABLE_100
1272 , p13_a31 out nocopy JTF_VARCHAR2_TABLE_100
1273 , p13_a32 out nocopy JTF_VARCHAR2_TABLE_100
1274 , p13_a33 out nocopy JTF_VARCHAR2_TABLE_100
1275 , p13_a34 out nocopy JTF_VARCHAR2_TABLE_300
1276 , p13_a35 out nocopy JTF_NUMBER_TABLE
1277 , p13_a36 out nocopy JTF_VARCHAR2_TABLE_100
1278 , p13_a37 out nocopy JTF_NUMBER_TABLE
1279 , p13_a38 out nocopy JTF_VARCHAR2_TABLE_300
1280 )
1281
1282 as
1283 ddx_avail_subinv_instance_tbl ahl_uc_instance_pvt.available_instance_tbl_type;
1284 ddindx binary_integer; indx binary_integer;
1285 begin
1286
1287 -- copy data to the local IN or IN-OUT args, if any
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302 -- here's the delegated call to the old PL/SQL routine
1303 ahl_uc_instance_pvt.get_avail_subinv_instances(p_api_version,
1304 p_init_msg_list,
1305 p_validation_level,
1306 x_return_status,
1307 x_msg_count,
1308 x_msg_data,
1309 p_relationship_id,
1310 p_item_number,
1311 p_serial_number,
1312 p_instance_number,
1313 p_workorder_id,
1314 p_start_row_index,
1315 p_max_rows,
1316 ddx_avail_subinv_instance_tbl);
1317
1318 -- copy data back from the local variables to OUT or IN-OUT args, if any
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332 ahl_uc_instance_pvt_w.rosetta_table_copy_out_p7(ddx_avail_subinv_instance_tbl, p13_a0
1333 , p13_a1
1334 , p13_a2
1335 , p13_a3
1336 , p13_a4
1337 , p13_a5
1338 , p13_a6
1339 , p13_a7
1340 , p13_a8
1341 , p13_a9
1342 , p13_a10
1343 , p13_a11
1344 , p13_a12
1345 , p13_a13
1346 , p13_a14
1347 , p13_a15
1348 , p13_a16
1349 , p13_a17
1350 , p13_a18
1351 , p13_a19
1352 , p13_a20
1353 , p13_a21
1354 , p13_a22
1355 , p13_a23
1356 , p13_a24
1357 , p13_a25
1358 , p13_a26
1359 , p13_a27
1360 , p13_a28
1361 , p13_a29
1362 , p13_a30
1363 , p13_a31
1364 , p13_a32
1365 , p13_a33
1366 , p13_a34
1367 , p13_a35
1368 , p13_a36
1369 , p13_a37
1370 , p13_a38
1371 );
1372 end;
1373
1374 procedure create_unassigned_instance(p_api_version NUMBER
1375 , p_init_msg_list VARCHAR2
1376 , p_commit VARCHAR2
1377 , p_validation_level NUMBER
1378 , x_return_status out nocopy VARCHAR2
1379 , x_msg_count out nocopy NUMBER
1380 , x_msg_data out nocopy VARCHAR2
1381 , p_uc_header_id NUMBER
1382 , p8_a0 in out nocopy NUMBER
1383 , p8_a1 in out nocopy NUMBER
1384 , p8_a2 in out nocopy VARCHAR2
1385 , p8_a3 in out nocopy VARCHAR2
1386 , p8_a4 in out nocopy NUMBER
1387 , p8_a5 in out nocopy VARCHAR2
1388 , p8_a6 in out nocopy VARCHAR2
1389 , p8_a7 in out nocopy VARCHAR2
1390 , p8_a8 in out nocopy VARCHAR2
1391 , p8_a9 in out nocopy VARCHAR2
1392 , p8_a10 in out nocopy NUMBER
1393 , p8_a11 in out nocopy VARCHAR2
1394 , p8_a12 in out nocopy VARCHAR2
1395 , p8_a13 in out nocopy DATE
1396 , p8_a14 in out nocopy DATE
1397 , p8_a15 in out nocopy NUMBER
1398 , p8_a16 in out nocopy NUMBER
1399 , p8_a17 in out nocopy VARCHAR2
1400 , p8_a18 in out nocopy VARCHAR2
1401 , p8_a19 in out nocopy VARCHAR2
1402 , p8_a20 in out nocopy VARCHAR2
1403 , p8_a21 in out nocopy VARCHAR2
1404 , p8_a22 in out nocopy VARCHAR2
1405 , p8_a23 in out nocopy VARCHAR2
1406 , p8_a24 in out nocopy VARCHAR2
1407 , p8_a25 in out nocopy VARCHAR2
1408 , p8_a26 in out nocopy VARCHAR2
1409 , p8_a27 in out nocopy VARCHAR2
1410 , p8_a28 in out nocopy VARCHAR2
1411 , p8_a29 in out nocopy VARCHAR2
1412 , p8_a30 in out nocopy VARCHAR2
1413 , p8_a31 in out nocopy VARCHAR2
1414 , p8_a32 in out nocopy VARCHAR2
1415 , p8_a33 in out nocopy VARCHAR2
1416 , p8_a34 in out nocopy VARCHAR2
1417 , p8_a35 in out nocopy VARCHAR2
1418 , p8_a36 in out nocopy VARCHAR2
1419 , p8_a37 in out nocopy VARCHAR2
1420 , p8_a38 in out nocopy VARCHAR2
1421 , p8_a39 in out nocopy VARCHAR2
1422 , p8_a40 in out nocopy VARCHAR2
1423 , p8_a41 in out nocopy VARCHAR2
1424 , p8_a42 in out nocopy VARCHAR2
1425 , p8_a43 in out nocopy VARCHAR2
1426 , p8_a44 in out nocopy VARCHAR2
1427 , p8_a45 in out nocopy VARCHAR2
1428 , p8_a46 in out nocopy VARCHAR2
1429 , p8_a47 in out nocopy VARCHAR2
1430 )
1431
1432 as
1433 ddp_x_uc_instance_rec ahl_uc_instance_pvt.uc_instance_rec_type;
1434 ddindx binary_integer; indx binary_integer;
1435 begin
1436
1437 -- copy data to the local IN or IN-OUT args, if any
1438
1439
1440
1441
1442
1443
1444
1445
1446 ddp_x_uc_instance_rec.inventory_item_id := p8_a0;
1447 ddp_x_uc_instance_rec.inventory_org_id := p8_a1;
1448 ddp_x_uc_instance_rec.inventory_org_code := p8_a2;
1449 ddp_x_uc_instance_rec.item_number := p8_a3;
1450 ddp_x_uc_instance_rec.instance_id := p8_a4;
1451 ddp_x_uc_instance_rec.instance_number := p8_a5;
1452 ddp_x_uc_instance_rec.serial_number := p8_a6;
1453 ddp_x_uc_instance_rec.sn_tag_code := p8_a7;
1454 ddp_x_uc_instance_rec.sn_tag_meaning := p8_a8;
1455 ddp_x_uc_instance_rec.lot_number := p8_a9;
1456 ddp_x_uc_instance_rec.quantity := p8_a10;
1457 ddp_x_uc_instance_rec.uom_code := p8_a11;
1458 ddp_x_uc_instance_rec.revision := p8_a12;
1459 ddp_x_uc_instance_rec.mfg_date := rosetta_g_miss_date_in_map(p8_a13);
1460 ddp_x_uc_instance_rec.install_date := rosetta_g_miss_date_in_map(p8_a14);
1461 ddp_x_uc_instance_rec.relationship_id := p8_a15;
1462 ddp_x_uc_instance_rec.object_version_number := p8_a16;
1463 ddp_x_uc_instance_rec.context := p8_a17;
1464 ddp_x_uc_instance_rec.attribute1 := p8_a18;
1465 ddp_x_uc_instance_rec.attribute2 := p8_a19;
1466 ddp_x_uc_instance_rec.attribute3 := p8_a20;
1467 ddp_x_uc_instance_rec.attribute4 := p8_a21;
1468 ddp_x_uc_instance_rec.attribute5 := p8_a22;
1469 ddp_x_uc_instance_rec.attribute6 := p8_a23;
1470 ddp_x_uc_instance_rec.attribute7 := p8_a24;
1471 ddp_x_uc_instance_rec.attribute8 := p8_a25;
1472 ddp_x_uc_instance_rec.attribute9 := p8_a26;
1473 ddp_x_uc_instance_rec.attribute10 := p8_a27;
1474 ddp_x_uc_instance_rec.attribute11 := p8_a28;
1475 ddp_x_uc_instance_rec.attribute12 := p8_a29;
1476 ddp_x_uc_instance_rec.attribute13 := p8_a30;
1477 ddp_x_uc_instance_rec.attribute14 := p8_a31;
1478 ddp_x_uc_instance_rec.attribute15 := p8_a32;
1479 ddp_x_uc_instance_rec.attribute16 := p8_a33;
1480 ddp_x_uc_instance_rec.attribute17 := p8_a34;
1481 ddp_x_uc_instance_rec.attribute18 := p8_a35;
1482 ddp_x_uc_instance_rec.attribute19 := p8_a36;
1483 ddp_x_uc_instance_rec.attribute20 := p8_a37;
1484 ddp_x_uc_instance_rec.attribute21 := p8_a38;
1485 ddp_x_uc_instance_rec.attribute22 := p8_a39;
1486 ddp_x_uc_instance_rec.attribute23 := p8_a40;
1487 ddp_x_uc_instance_rec.attribute24 := p8_a41;
1488 ddp_x_uc_instance_rec.attribute25 := p8_a42;
1489 ddp_x_uc_instance_rec.attribute26 := p8_a43;
1490 ddp_x_uc_instance_rec.attribute27 := p8_a44;
1491 ddp_x_uc_instance_rec.attribute28 := p8_a45;
1492 ddp_x_uc_instance_rec.attribute29 := p8_a46;
1493 ddp_x_uc_instance_rec.attribute30 := p8_a47;
1494
1495 -- here's the delegated call to the old PL/SQL routine
1496 ahl_uc_instance_pvt.create_unassigned_instance(p_api_version,
1497 p_init_msg_list,
1498 p_commit,
1499 p_validation_level,
1500 x_return_status,
1501 x_msg_count,
1502 x_msg_data,
1503 p_uc_header_id,
1504 ddp_x_uc_instance_rec);
1505
1506 -- copy data back from the local variables to OUT or IN-OUT args, if any
1507
1508
1509
1510
1511
1512
1513
1514
1515 p8_a0 := ddp_x_uc_instance_rec.inventory_item_id;
1516 p8_a1 := ddp_x_uc_instance_rec.inventory_org_id;
1517 p8_a2 := ddp_x_uc_instance_rec.inventory_org_code;
1518 p8_a3 := ddp_x_uc_instance_rec.item_number;
1519 p8_a4 := ddp_x_uc_instance_rec.instance_id;
1520 p8_a5 := ddp_x_uc_instance_rec.instance_number;
1521 p8_a6 := ddp_x_uc_instance_rec.serial_number;
1522 p8_a7 := ddp_x_uc_instance_rec.sn_tag_code;
1523 p8_a8 := ddp_x_uc_instance_rec.sn_tag_meaning;
1524 p8_a9 := ddp_x_uc_instance_rec.lot_number;
1525 p8_a10 := ddp_x_uc_instance_rec.quantity;
1526 p8_a11 := ddp_x_uc_instance_rec.uom_code;
1527 p8_a12 := ddp_x_uc_instance_rec.revision;
1528 p8_a13 := ddp_x_uc_instance_rec.mfg_date;
1529 p8_a14 := ddp_x_uc_instance_rec.install_date;
1530 p8_a15 := ddp_x_uc_instance_rec.relationship_id;
1531 p8_a16 := ddp_x_uc_instance_rec.object_version_number;
1532 p8_a17 := ddp_x_uc_instance_rec.context;
1533 p8_a18 := ddp_x_uc_instance_rec.attribute1;
1534 p8_a19 := ddp_x_uc_instance_rec.attribute2;
1535 p8_a20 := ddp_x_uc_instance_rec.attribute3;
1536 p8_a21 := ddp_x_uc_instance_rec.attribute4;
1537 p8_a22 := ddp_x_uc_instance_rec.attribute5;
1538 p8_a23 := ddp_x_uc_instance_rec.attribute6;
1539 p8_a24 := ddp_x_uc_instance_rec.attribute7;
1540 p8_a25 := ddp_x_uc_instance_rec.attribute8;
1541 p8_a26 := ddp_x_uc_instance_rec.attribute9;
1542 p8_a27 := ddp_x_uc_instance_rec.attribute10;
1543 p8_a28 := ddp_x_uc_instance_rec.attribute11;
1544 p8_a29 := ddp_x_uc_instance_rec.attribute12;
1545 p8_a30 := ddp_x_uc_instance_rec.attribute13;
1546 p8_a31 := ddp_x_uc_instance_rec.attribute14;
1547 p8_a32 := ddp_x_uc_instance_rec.attribute15;
1548 p8_a33 := ddp_x_uc_instance_rec.attribute16;
1549 p8_a34 := ddp_x_uc_instance_rec.attribute17;
1550 p8_a35 := ddp_x_uc_instance_rec.attribute18;
1551 p8_a36 := ddp_x_uc_instance_rec.attribute19;
1552 p8_a37 := ddp_x_uc_instance_rec.attribute20;
1553 p8_a38 := ddp_x_uc_instance_rec.attribute21;
1554 p8_a39 := ddp_x_uc_instance_rec.attribute22;
1555 p8_a40 := ddp_x_uc_instance_rec.attribute23;
1556 p8_a41 := ddp_x_uc_instance_rec.attribute24;
1557 p8_a42 := ddp_x_uc_instance_rec.attribute25;
1558 p8_a43 := ddp_x_uc_instance_rec.attribute26;
1559 p8_a44 := ddp_x_uc_instance_rec.attribute27;
1560 p8_a45 := ddp_x_uc_instance_rec.attribute28;
1561 p8_a46 := ddp_x_uc_instance_rec.attribute29;
1562 p8_a47 := ddp_x_uc_instance_rec.attribute30;
1563 end;
1564
1565 end ahl_uc_instance_pvt_w;