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