[Home] [Help]
PACKAGE BODY: APPS.AHL_MC_NODE_PVT_W
Source
1 package body ahl_mc_node_pvt_w as
2 /* $Header: AHLVNOWB.pls 120.4 2006/05/03 02:12 sathapli noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure rosetta_table_copy_in_p6(t out nocopy ahl_mc_node_pvt.node_tbl_type, a0 JTF_NUMBER_TABLE
17 , a1 JTF_NUMBER_TABLE
18 , a2 JTF_NUMBER_TABLE
19 , a3 JTF_VARCHAR2_TABLE_100
20 , a4 JTF_VARCHAR2_TABLE_100
21 , a5 JTF_VARCHAR2_TABLE_100
22 , a6 JTF_VARCHAR2_TABLE_100
23 , a7 JTF_VARCHAR2_TABLE_100
24 , a8 JTF_VARCHAR2_TABLE_100
25 , a9 JTF_VARCHAR2_TABLE_100
26 , a10 JTF_NUMBER_TABLE
27 , a11 JTF_NUMBER_TABLE
28 , a12 JTF_NUMBER_TABLE
29 , a13 JTF_VARCHAR2_TABLE_100
30 , a14 JTF_NUMBER_TABLE
31 , a15 JTF_DATE_TABLE
32 , a16 JTF_DATE_TABLE
33 , a17 JTF_NUMBER_TABLE
34 , a18 JTF_NUMBER_TABLE
35 , a19 JTF_VARCHAR2_TABLE_100
36 , a20 JTF_VARCHAR2_TABLE_200
37 , a21 JTF_VARCHAR2_TABLE_200
38 , a22 JTF_VARCHAR2_TABLE_200
39 , a23 JTF_VARCHAR2_TABLE_200
40 , a24 JTF_VARCHAR2_TABLE_200
41 , a25 JTF_VARCHAR2_TABLE_200
42 , a26 JTF_VARCHAR2_TABLE_200
43 , a27 JTF_VARCHAR2_TABLE_200
44 , a28 JTF_VARCHAR2_TABLE_200
45 , a29 JTF_VARCHAR2_TABLE_200
46 , a30 JTF_VARCHAR2_TABLE_200
47 , a31 JTF_VARCHAR2_TABLE_200
48 , a32 JTF_VARCHAR2_TABLE_200
49 , a33 JTF_VARCHAR2_TABLE_200
50 , a34 JTF_VARCHAR2_TABLE_200
51 , a35 JTF_VARCHAR2_TABLE_100
52 , a36 JTF_NUMBER_TABLE
53 ) as
54 ddindx binary_integer; indx binary_integer;
55 begin
56 if a0 is not null and a0.count > 0 then
57 if a0.count > 0 then
58 indx := a0.first;
59 ddindx := 1;
60 while true loop
61 t(ddindx).relationship_id := a0(indx);
62 t(ddindx).mc_header_id := a1(indx);
63 t(ddindx).position_key := a2(indx);
64 t(ddindx).position_ref_code := a3(indx);
65 t(ddindx).position_ref_meaning := a4(indx);
66 t(ddindx).ata_code := a5(indx);
67 t(ddindx).ata_meaning := a6(indx);
68 t(ddindx).position_necessity_code := a7(indx);
69 t(ddindx).position_necessity_meaning := a8(indx);
70 t(ddindx).uom_code := a9(indx);
71 t(ddindx).quantity := a10(indx);
72 t(ddindx).parent_relationship_id := a11(indx);
73 t(ddindx).item_group_id := a12(indx);
74 t(ddindx).item_group_name := a13(indx);
75 t(ddindx).display_order := a14(indx);
76 t(ddindx).active_start_date := rosetta_g_miss_date_in_map(a15(indx));
77 t(ddindx).active_end_date := rosetta_g_miss_date_in_map(a16(indx));
78 t(ddindx).object_version_number := a17(indx);
79 t(ddindx).security_group_id := a18(indx);
80 t(ddindx).attribute_category := a19(indx);
81 t(ddindx).attribute1 := a20(indx);
82 t(ddindx).attribute2 := a21(indx);
83 t(ddindx).attribute3 := a22(indx);
84 t(ddindx).attribute4 := a23(indx);
85 t(ddindx).attribute5 := a24(indx);
86 t(ddindx).attribute6 := a25(indx);
87 t(ddindx).attribute7 := a26(indx);
88 t(ddindx).attribute8 := a27(indx);
89 t(ddindx).attribute9 := a28(indx);
90 t(ddindx).attribute10 := a29(indx);
91 t(ddindx).attribute11 := a30(indx);
92 t(ddindx).attribute12 := a31(indx);
93 t(ddindx).attribute13 := a32(indx);
94 t(ddindx).attribute14 := a33(indx);
95 t(ddindx).attribute15 := a34(indx);
96 t(ddindx).operation_flag := a35(indx);
97 t(ddindx).parent_node_rec_index := a36(indx);
98 ddindx := ddindx+1;
99 if a0.last =indx
100 then exit;
101 end if;
102 indx := a0.next(indx);
103 end loop;
104 end if;
105 end if;
106 end rosetta_table_copy_in_p6;
107 procedure rosetta_table_copy_out_p6(t ahl_mc_node_pvt.node_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
108 , a1 out nocopy JTF_NUMBER_TABLE
109 , a2 out nocopy JTF_NUMBER_TABLE
110 , a3 out nocopy JTF_VARCHAR2_TABLE_100
111 , a4 out nocopy JTF_VARCHAR2_TABLE_100
112 , a5 out nocopy JTF_VARCHAR2_TABLE_100
113 , a6 out nocopy JTF_VARCHAR2_TABLE_100
114 , a7 out nocopy JTF_VARCHAR2_TABLE_100
115 , a8 out nocopy JTF_VARCHAR2_TABLE_100
116 , a9 out nocopy JTF_VARCHAR2_TABLE_100
117 , a10 out nocopy JTF_NUMBER_TABLE
118 , a11 out nocopy JTF_NUMBER_TABLE
119 , a12 out nocopy JTF_NUMBER_TABLE
120 , a13 out nocopy JTF_VARCHAR2_TABLE_100
121 , a14 out nocopy JTF_NUMBER_TABLE
122 , a15 out nocopy JTF_DATE_TABLE
123 , a16 out nocopy JTF_DATE_TABLE
124 , a17 out nocopy JTF_NUMBER_TABLE
125 , a18 out nocopy JTF_NUMBER_TABLE
126 , a19 out nocopy JTF_VARCHAR2_TABLE_100
127 , a20 out nocopy JTF_VARCHAR2_TABLE_200
128 , a21 out nocopy JTF_VARCHAR2_TABLE_200
129 , a22 out nocopy JTF_VARCHAR2_TABLE_200
130 , a23 out nocopy JTF_VARCHAR2_TABLE_200
131 , a24 out nocopy JTF_VARCHAR2_TABLE_200
132 , a25 out nocopy JTF_VARCHAR2_TABLE_200
133 , a26 out nocopy JTF_VARCHAR2_TABLE_200
134 , a27 out nocopy JTF_VARCHAR2_TABLE_200
135 , a28 out nocopy JTF_VARCHAR2_TABLE_200
136 , a29 out nocopy JTF_VARCHAR2_TABLE_200
137 , a30 out nocopy JTF_VARCHAR2_TABLE_200
138 , a31 out nocopy JTF_VARCHAR2_TABLE_200
139 , a32 out nocopy JTF_VARCHAR2_TABLE_200
140 , a33 out nocopy JTF_VARCHAR2_TABLE_200
141 , a34 out nocopy JTF_VARCHAR2_TABLE_200
142 , a35 out nocopy JTF_VARCHAR2_TABLE_100
143 , a36 out nocopy JTF_NUMBER_TABLE
144 ) as
145 ddindx binary_integer; indx binary_integer;
146 begin
147 if t is null or t.count = 0 then
148 a0 := JTF_NUMBER_TABLE();
149 a1 := JTF_NUMBER_TABLE();
150 a2 := JTF_NUMBER_TABLE();
151 a3 := JTF_VARCHAR2_TABLE_100();
152 a4 := JTF_VARCHAR2_TABLE_100();
153 a5 := JTF_VARCHAR2_TABLE_100();
154 a6 := JTF_VARCHAR2_TABLE_100();
155 a7 := JTF_VARCHAR2_TABLE_100();
156 a8 := JTF_VARCHAR2_TABLE_100();
157 a9 := JTF_VARCHAR2_TABLE_100();
158 a10 := JTF_NUMBER_TABLE();
159 a11 := JTF_NUMBER_TABLE();
160 a12 := JTF_NUMBER_TABLE();
161 a13 := JTF_VARCHAR2_TABLE_100();
162 a14 := JTF_NUMBER_TABLE();
163 a15 := JTF_DATE_TABLE();
164 a16 := JTF_DATE_TABLE();
165 a17 := JTF_NUMBER_TABLE();
166 a18 := JTF_NUMBER_TABLE();
167 a19 := JTF_VARCHAR2_TABLE_100();
168 a20 := JTF_VARCHAR2_TABLE_200();
169 a21 := JTF_VARCHAR2_TABLE_200();
170 a22 := JTF_VARCHAR2_TABLE_200();
171 a23 := JTF_VARCHAR2_TABLE_200();
172 a24 := JTF_VARCHAR2_TABLE_200();
173 a25 := JTF_VARCHAR2_TABLE_200();
174 a26 := JTF_VARCHAR2_TABLE_200();
175 a27 := JTF_VARCHAR2_TABLE_200();
176 a28 := JTF_VARCHAR2_TABLE_200();
177 a29 := JTF_VARCHAR2_TABLE_200();
178 a30 := JTF_VARCHAR2_TABLE_200();
179 a31 := JTF_VARCHAR2_TABLE_200();
180 a32 := JTF_VARCHAR2_TABLE_200();
181 a33 := JTF_VARCHAR2_TABLE_200();
182 a34 := JTF_VARCHAR2_TABLE_200();
183 a35 := JTF_VARCHAR2_TABLE_100();
184 a36 := JTF_NUMBER_TABLE();
185 else
186 a0 := JTF_NUMBER_TABLE();
187 a1 := JTF_NUMBER_TABLE();
188 a2 := JTF_NUMBER_TABLE();
189 a3 := JTF_VARCHAR2_TABLE_100();
190 a4 := JTF_VARCHAR2_TABLE_100();
191 a5 := JTF_VARCHAR2_TABLE_100();
192 a6 := JTF_VARCHAR2_TABLE_100();
193 a7 := JTF_VARCHAR2_TABLE_100();
194 a8 := JTF_VARCHAR2_TABLE_100();
195 a9 := JTF_VARCHAR2_TABLE_100();
196 a10 := JTF_NUMBER_TABLE();
197 a11 := JTF_NUMBER_TABLE();
198 a12 := JTF_NUMBER_TABLE();
199 a13 := JTF_VARCHAR2_TABLE_100();
200 a14 := JTF_NUMBER_TABLE();
201 a15 := JTF_DATE_TABLE();
202 a16 := JTF_DATE_TABLE();
203 a17 := JTF_NUMBER_TABLE();
204 a18 := JTF_NUMBER_TABLE();
205 a19 := JTF_VARCHAR2_TABLE_100();
206 a20 := JTF_VARCHAR2_TABLE_200();
207 a21 := JTF_VARCHAR2_TABLE_200();
208 a22 := JTF_VARCHAR2_TABLE_200();
209 a23 := JTF_VARCHAR2_TABLE_200();
210 a24 := JTF_VARCHAR2_TABLE_200();
211 a25 := JTF_VARCHAR2_TABLE_200();
212 a26 := JTF_VARCHAR2_TABLE_200();
213 a27 := JTF_VARCHAR2_TABLE_200();
214 a28 := JTF_VARCHAR2_TABLE_200();
215 a29 := JTF_VARCHAR2_TABLE_200();
216 a30 := JTF_VARCHAR2_TABLE_200();
217 a31 := JTF_VARCHAR2_TABLE_200();
218 a32 := JTF_VARCHAR2_TABLE_200();
219 a33 := JTF_VARCHAR2_TABLE_200();
220 a34 := JTF_VARCHAR2_TABLE_200();
221 a35 := JTF_VARCHAR2_TABLE_100();
222 a36 := JTF_NUMBER_TABLE();
223 if t.count > 0 then
224 a0.extend(t.count);
225 a1.extend(t.count);
226 a2.extend(t.count);
227 a3.extend(t.count);
228 a4.extend(t.count);
229 a5.extend(t.count);
230 a6.extend(t.count);
231 a7.extend(t.count);
232 a8.extend(t.count);
233 a9.extend(t.count);
234 a10.extend(t.count);
235 a11.extend(t.count);
236 a12.extend(t.count);
237 a13.extend(t.count);
238 a14.extend(t.count);
239 a15.extend(t.count);
240 a16.extend(t.count);
241 a17.extend(t.count);
242 a18.extend(t.count);
243 a19.extend(t.count);
244 a20.extend(t.count);
245 a21.extend(t.count);
246 a22.extend(t.count);
247 a23.extend(t.count);
248 a24.extend(t.count);
249 a25.extend(t.count);
250 a26.extend(t.count);
251 a27.extend(t.count);
252 a28.extend(t.count);
253 a29.extend(t.count);
254 a30.extend(t.count);
255 a31.extend(t.count);
256 a32.extend(t.count);
257 a33.extend(t.count);
258 a34.extend(t.count);
259 a35.extend(t.count);
260 a36.extend(t.count);
261 ddindx := t.first;
262 indx := 1;
263 while true loop
264 a0(indx) := t(ddindx).relationship_id;
265 a1(indx) := t(ddindx).mc_header_id;
266 a2(indx) := t(ddindx).position_key;
267 a3(indx) := t(ddindx).position_ref_code;
268 a4(indx) := t(ddindx).position_ref_meaning;
269 a5(indx) := t(ddindx).ata_code;
270 a6(indx) := t(ddindx).ata_meaning;
271 a7(indx) := t(ddindx).position_necessity_code;
272 a8(indx) := t(ddindx).position_necessity_meaning;
273 a9(indx) := t(ddindx).uom_code;
274 a10(indx) := t(ddindx).quantity;
275 a11(indx) := t(ddindx).parent_relationship_id;
276 a12(indx) := t(ddindx).item_group_id;
277 a13(indx) := t(ddindx).item_group_name;
278 a14(indx) := t(ddindx).display_order;
279 a15(indx) := t(ddindx).active_start_date;
280 a16(indx) := t(ddindx).active_end_date;
281 a17(indx) := t(ddindx).object_version_number;
282 a18(indx) := t(ddindx).security_group_id;
283 a19(indx) := t(ddindx).attribute_category;
284 a20(indx) := t(ddindx).attribute1;
285 a21(indx) := t(ddindx).attribute2;
286 a22(indx) := t(ddindx).attribute3;
287 a23(indx) := t(ddindx).attribute4;
288 a24(indx) := t(ddindx).attribute5;
289 a25(indx) := t(ddindx).attribute6;
290 a26(indx) := t(ddindx).attribute7;
291 a27(indx) := t(ddindx).attribute8;
292 a28(indx) := t(ddindx).attribute9;
293 a29(indx) := t(ddindx).attribute10;
294 a30(indx) := t(ddindx).attribute11;
295 a31(indx) := t(ddindx).attribute12;
296 a32(indx) := t(ddindx).attribute13;
297 a33(indx) := t(ddindx).attribute14;
298 a34(indx) := t(ddindx).attribute15;
299 a35(indx) := t(ddindx).operation_flag;
300 a36(indx) := t(ddindx).parent_node_rec_index;
301 indx := indx+1;
302 if t.last =ddindx
303 then exit;
304 end if;
305 ddindx := t.next(ddindx);
306 end loop;
307 end if;
308 end if;
309 end rosetta_table_copy_out_p6;
310
311 procedure rosetta_table_copy_in_p8(t out nocopy ahl_mc_node_pvt.counter_rules_tbl_type, a0 JTF_NUMBER_TABLE
312 , a1 JTF_NUMBER_TABLE
313 , a2 JTF_VARCHAR2_TABLE_100
314 , a3 JTF_VARCHAR2_TABLE_100
315 , a4 JTF_VARCHAR2_TABLE_100
316 , a5 JTF_NUMBER_TABLE
317 , a6 JTF_NUMBER_TABLE
318 , a7 JTF_NUMBER_TABLE
319 , a8 JTF_VARCHAR2_TABLE_100
320 , a9 JTF_VARCHAR2_TABLE_200
321 , a10 JTF_VARCHAR2_TABLE_200
322 , a11 JTF_VARCHAR2_TABLE_200
323 , a12 JTF_VARCHAR2_TABLE_200
324 , a13 JTF_VARCHAR2_TABLE_200
325 , a14 JTF_VARCHAR2_TABLE_200
326 , a15 JTF_VARCHAR2_TABLE_200
327 , a16 JTF_VARCHAR2_TABLE_200
328 , a17 JTF_VARCHAR2_TABLE_200
329 , a18 JTF_VARCHAR2_TABLE_200
330 , a19 JTF_VARCHAR2_TABLE_200
331 , a20 JTF_VARCHAR2_TABLE_200
332 , a21 JTF_VARCHAR2_TABLE_200
333 , a22 JTF_VARCHAR2_TABLE_200
334 , a23 JTF_VARCHAR2_TABLE_200
335 , a24 JTF_VARCHAR2_TABLE_100
336 , a25 JTF_NUMBER_TABLE
337 ) as
338 ddindx binary_integer; indx binary_integer;
339 begin
340 if a0 is not null and a0.count > 0 then
341 if a0.count > 0 then
342 indx := a0.first;
343 ddindx := 1;
344 while true loop
345 t(ddindx).ctr_update_rule_id := a0(indx);
346 t(ddindx).relationship_id := a1(indx);
347 t(ddindx).uom_code := a2(indx);
348 t(ddindx).rule_code := a3(indx);
349 t(ddindx).rule_meaning := a4(indx);
350 t(ddindx).ratio := a5(indx);
351 t(ddindx).object_version_number := a6(indx);
352 t(ddindx).security_group_id := a7(indx);
353 t(ddindx).attribute_category := a8(indx);
354 t(ddindx).attribute1 := a9(indx);
355 t(ddindx).attribute2 := a10(indx);
356 t(ddindx).attribute3 := a11(indx);
357 t(ddindx).attribute4 := a12(indx);
358 t(ddindx).attribute5 := a13(indx);
359 t(ddindx).attribute6 := a14(indx);
360 t(ddindx).attribute7 := a15(indx);
361 t(ddindx).attribute8 := a16(indx);
362 t(ddindx).attribute9 := a17(indx);
363 t(ddindx).attribute10 := a18(indx);
364 t(ddindx).attribute11 := a19(indx);
365 t(ddindx).attribute12 := a20(indx);
366 t(ddindx).attribute13 := a21(indx);
367 t(ddindx).attribute14 := a22(indx);
368 t(ddindx).attribute15 := a23(indx);
369 t(ddindx).operation_flag := a24(indx);
370 t(ddindx).node_tbl_index := a25(indx);
371 ddindx := ddindx+1;
372 if a0.last =indx
373 then exit;
374 end if;
375 indx := a0.next(indx);
376 end loop;
377 end if;
378 end if;
379 end rosetta_table_copy_in_p8;
380 procedure rosetta_table_copy_out_p8(t ahl_mc_node_pvt.counter_rules_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
381 , a1 out nocopy JTF_NUMBER_TABLE
382 , a2 out nocopy JTF_VARCHAR2_TABLE_100
383 , a3 out nocopy JTF_VARCHAR2_TABLE_100
384 , a4 out nocopy JTF_VARCHAR2_TABLE_100
385 , a5 out nocopy JTF_NUMBER_TABLE
386 , a6 out nocopy JTF_NUMBER_TABLE
387 , a7 out nocopy JTF_NUMBER_TABLE
388 , a8 out nocopy JTF_VARCHAR2_TABLE_100
389 , a9 out nocopy JTF_VARCHAR2_TABLE_200
390 , a10 out nocopy JTF_VARCHAR2_TABLE_200
391 , a11 out nocopy JTF_VARCHAR2_TABLE_200
392 , a12 out nocopy JTF_VARCHAR2_TABLE_200
393 , a13 out nocopy JTF_VARCHAR2_TABLE_200
394 , a14 out nocopy JTF_VARCHAR2_TABLE_200
395 , a15 out nocopy JTF_VARCHAR2_TABLE_200
396 , a16 out nocopy JTF_VARCHAR2_TABLE_200
397 , a17 out nocopy JTF_VARCHAR2_TABLE_200
398 , a18 out nocopy JTF_VARCHAR2_TABLE_200
399 , a19 out nocopy JTF_VARCHAR2_TABLE_200
400 , a20 out nocopy JTF_VARCHAR2_TABLE_200
401 , a21 out nocopy JTF_VARCHAR2_TABLE_200
402 , a22 out nocopy JTF_VARCHAR2_TABLE_200
403 , a23 out nocopy JTF_VARCHAR2_TABLE_200
404 , a24 out nocopy JTF_VARCHAR2_TABLE_100
405 , a25 out nocopy JTF_NUMBER_TABLE
406 ) as
407 ddindx binary_integer; indx binary_integer;
408 begin
409 if t is null or t.count = 0 then
410 a0 := JTF_NUMBER_TABLE();
411 a1 := JTF_NUMBER_TABLE();
412 a2 := JTF_VARCHAR2_TABLE_100();
413 a3 := JTF_VARCHAR2_TABLE_100();
414 a4 := JTF_VARCHAR2_TABLE_100();
415 a5 := JTF_NUMBER_TABLE();
416 a6 := JTF_NUMBER_TABLE();
417 a7 := JTF_NUMBER_TABLE();
418 a8 := JTF_VARCHAR2_TABLE_100();
419 a9 := JTF_VARCHAR2_TABLE_200();
420 a10 := JTF_VARCHAR2_TABLE_200();
421 a11 := JTF_VARCHAR2_TABLE_200();
422 a12 := JTF_VARCHAR2_TABLE_200();
423 a13 := JTF_VARCHAR2_TABLE_200();
424 a14 := JTF_VARCHAR2_TABLE_200();
425 a15 := JTF_VARCHAR2_TABLE_200();
426 a16 := JTF_VARCHAR2_TABLE_200();
427 a17 := JTF_VARCHAR2_TABLE_200();
428 a18 := JTF_VARCHAR2_TABLE_200();
429 a19 := JTF_VARCHAR2_TABLE_200();
430 a20 := JTF_VARCHAR2_TABLE_200();
431 a21 := JTF_VARCHAR2_TABLE_200();
432 a22 := JTF_VARCHAR2_TABLE_200();
433 a23 := JTF_VARCHAR2_TABLE_200();
434 a24 := JTF_VARCHAR2_TABLE_100();
435 a25 := JTF_NUMBER_TABLE();
436 else
437 a0 := JTF_NUMBER_TABLE();
438 a1 := JTF_NUMBER_TABLE();
439 a2 := JTF_VARCHAR2_TABLE_100();
440 a3 := JTF_VARCHAR2_TABLE_100();
441 a4 := JTF_VARCHAR2_TABLE_100();
442 a5 := JTF_NUMBER_TABLE();
443 a6 := JTF_NUMBER_TABLE();
444 a7 := JTF_NUMBER_TABLE();
445 a8 := JTF_VARCHAR2_TABLE_100();
446 a9 := JTF_VARCHAR2_TABLE_200();
447 a10 := JTF_VARCHAR2_TABLE_200();
448 a11 := JTF_VARCHAR2_TABLE_200();
449 a12 := JTF_VARCHAR2_TABLE_200();
450 a13 := JTF_VARCHAR2_TABLE_200();
451 a14 := JTF_VARCHAR2_TABLE_200();
452 a15 := JTF_VARCHAR2_TABLE_200();
453 a16 := JTF_VARCHAR2_TABLE_200();
454 a17 := JTF_VARCHAR2_TABLE_200();
455 a18 := JTF_VARCHAR2_TABLE_200();
456 a19 := JTF_VARCHAR2_TABLE_200();
457 a20 := JTF_VARCHAR2_TABLE_200();
458 a21 := JTF_VARCHAR2_TABLE_200();
459 a22 := JTF_VARCHAR2_TABLE_200();
460 a23 := JTF_VARCHAR2_TABLE_200();
461 a24 := JTF_VARCHAR2_TABLE_100();
462 a25 := JTF_NUMBER_TABLE();
463 if t.count > 0 then
464 a0.extend(t.count);
465 a1.extend(t.count);
466 a2.extend(t.count);
467 a3.extend(t.count);
468 a4.extend(t.count);
469 a5.extend(t.count);
470 a6.extend(t.count);
471 a7.extend(t.count);
472 a8.extend(t.count);
473 a9.extend(t.count);
474 a10.extend(t.count);
475 a11.extend(t.count);
476 a12.extend(t.count);
477 a13.extend(t.count);
478 a14.extend(t.count);
479 a15.extend(t.count);
480 a16.extend(t.count);
481 a17.extend(t.count);
482 a18.extend(t.count);
483 a19.extend(t.count);
484 a20.extend(t.count);
485 a21.extend(t.count);
486 a22.extend(t.count);
487 a23.extend(t.count);
488 a24.extend(t.count);
489 a25.extend(t.count);
490 ddindx := t.first;
491 indx := 1;
492 while true loop
493 a0(indx) := t(ddindx).ctr_update_rule_id;
494 a1(indx) := t(ddindx).relationship_id;
495 a2(indx) := t(ddindx).uom_code;
496 a3(indx) := t(ddindx).rule_code;
497 a4(indx) := t(ddindx).rule_meaning;
498 a5(indx) := t(ddindx).ratio;
499 a6(indx) := t(ddindx).object_version_number;
500 a7(indx) := t(ddindx).security_group_id;
501 a8(indx) := t(ddindx).attribute_category;
502 a9(indx) := t(ddindx).attribute1;
503 a10(indx) := t(ddindx).attribute2;
504 a11(indx) := t(ddindx).attribute3;
505 a12(indx) := t(ddindx).attribute4;
506 a13(indx) := t(ddindx).attribute5;
507 a14(indx) := t(ddindx).attribute6;
508 a15(indx) := t(ddindx).attribute7;
509 a16(indx) := t(ddindx).attribute8;
510 a17(indx) := t(ddindx).attribute9;
511 a18(indx) := t(ddindx).attribute10;
512 a19(indx) := t(ddindx).attribute11;
513 a20(indx) := t(ddindx).attribute12;
514 a21(indx) := t(ddindx).attribute13;
515 a22(indx) := t(ddindx).attribute14;
516 a23(indx) := t(ddindx).attribute15;
517 a24(indx) := t(ddindx).operation_flag;
518 a25(indx) := t(ddindx).node_tbl_index;
519 indx := indx+1;
520 if t.last =ddindx
521 then exit;
522 end if;
523 ddindx := t.next(ddindx);
524 end loop;
525 end if;
526 end if;
527 end rosetta_table_copy_out_p8;
528
529 procedure rosetta_table_copy_in_p10(t out nocopy ahl_mc_node_pvt.subconfig_tbl_type, a0 JTF_NUMBER_TABLE
530 , a1 JTF_NUMBER_TABLE
531 , a2 JTF_VARCHAR2_TABLE_100
532 , a3 JTF_NUMBER_TABLE
533 , a4 JTF_NUMBER_TABLE
534 , a5 JTF_DATE_TABLE
535 , a6 JTF_DATE_TABLE
536 , a7 JTF_NUMBER_TABLE
537 , a8 JTF_NUMBER_TABLE
538 , a9 JTF_NUMBER_TABLE
539 , a10 JTF_VARCHAR2_TABLE_100
540 , a11 JTF_VARCHAR2_TABLE_200
541 , a12 JTF_VARCHAR2_TABLE_200
542 , a13 JTF_VARCHAR2_TABLE_200
543 , a14 JTF_VARCHAR2_TABLE_200
544 , a15 JTF_VARCHAR2_TABLE_200
545 , a16 JTF_VARCHAR2_TABLE_200
546 , a17 JTF_VARCHAR2_TABLE_200
547 , a18 JTF_VARCHAR2_TABLE_200
548 , a19 JTF_VARCHAR2_TABLE_200
549 , a20 JTF_VARCHAR2_TABLE_200
550 , a21 JTF_VARCHAR2_TABLE_200
551 , a22 JTF_VARCHAR2_TABLE_200
552 , a23 JTF_VARCHAR2_TABLE_200
553 , a24 JTF_VARCHAR2_TABLE_200
554 , a25 JTF_VARCHAR2_TABLE_200
555 , a26 JTF_VARCHAR2_TABLE_100
556 ) as
557 ddindx binary_integer; indx binary_integer;
558 begin
559 if a0 is not null and a0.count > 0 then
560 if a0.count > 0 then
561 indx := a0.first;
562 ddindx := 1;
563 while true loop
564 t(ddindx).mc_config_relation_id := a0(indx);
565 t(ddindx).mc_header_id := a1(indx);
566 t(ddindx).name := a2(indx);
567 t(ddindx).version_number := a3(indx);
568 t(ddindx).relationship_id := a4(indx);
569 t(ddindx).active_start_date := rosetta_g_miss_date_in_map(a5(indx));
570 t(ddindx).active_end_date := rosetta_g_miss_date_in_map(a6(indx));
571 t(ddindx).object_version_number := a7(indx);
572 t(ddindx).priority := a8(indx);
573 t(ddindx).security_group_id := a9(indx);
574 t(ddindx).attribute_category := a10(indx);
575 t(ddindx).attribute1 := a11(indx);
576 t(ddindx).attribute2 := a12(indx);
577 t(ddindx).attribute3 := a13(indx);
578 t(ddindx).attribute4 := a14(indx);
579 t(ddindx).attribute5 := a15(indx);
580 t(ddindx).attribute6 := a16(indx);
581 t(ddindx).attribute7 := a17(indx);
582 t(ddindx).attribute8 := a18(indx);
583 t(ddindx).attribute9 := a19(indx);
584 t(ddindx).attribute10 := a20(indx);
585 t(ddindx).attribute11 := a21(indx);
586 t(ddindx).attribute12 := a22(indx);
587 t(ddindx).attribute13 := a23(indx);
588 t(ddindx).attribute14 := a24(indx);
589 t(ddindx).attribute15 := a25(indx);
590 t(ddindx).operation_flag := a26(indx);
591 ddindx := ddindx+1;
592 if a0.last =indx
593 then exit;
594 end if;
595 indx := a0.next(indx);
596 end loop;
597 end if;
598 end if;
599 end rosetta_table_copy_in_p10;
600 procedure rosetta_table_copy_out_p10(t ahl_mc_node_pvt.subconfig_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
601 , a1 out nocopy JTF_NUMBER_TABLE
602 , a2 out nocopy JTF_VARCHAR2_TABLE_100
603 , a3 out nocopy JTF_NUMBER_TABLE
604 , a4 out nocopy JTF_NUMBER_TABLE
605 , a5 out nocopy JTF_DATE_TABLE
606 , a6 out nocopy JTF_DATE_TABLE
607 , a7 out nocopy JTF_NUMBER_TABLE
608 , a8 out nocopy JTF_NUMBER_TABLE
609 , a9 out nocopy JTF_NUMBER_TABLE
610 , a10 out nocopy JTF_VARCHAR2_TABLE_100
611 , a11 out nocopy JTF_VARCHAR2_TABLE_200
612 , a12 out nocopy JTF_VARCHAR2_TABLE_200
613 , a13 out nocopy JTF_VARCHAR2_TABLE_200
614 , a14 out nocopy JTF_VARCHAR2_TABLE_200
615 , a15 out nocopy JTF_VARCHAR2_TABLE_200
616 , a16 out nocopy JTF_VARCHAR2_TABLE_200
617 , a17 out nocopy JTF_VARCHAR2_TABLE_200
618 , a18 out nocopy JTF_VARCHAR2_TABLE_200
619 , a19 out nocopy JTF_VARCHAR2_TABLE_200
620 , a20 out nocopy JTF_VARCHAR2_TABLE_200
621 , a21 out nocopy JTF_VARCHAR2_TABLE_200
622 , a22 out nocopy JTF_VARCHAR2_TABLE_200
623 , a23 out nocopy JTF_VARCHAR2_TABLE_200
624 , a24 out nocopy JTF_VARCHAR2_TABLE_200
625 , a25 out nocopy JTF_VARCHAR2_TABLE_200
626 , a26 out nocopy JTF_VARCHAR2_TABLE_100
627 ) as
628 ddindx binary_integer; indx binary_integer;
629 begin
630 if t is null or t.count = 0 then
631 a0 := JTF_NUMBER_TABLE();
632 a1 := JTF_NUMBER_TABLE();
633 a2 := JTF_VARCHAR2_TABLE_100();
634 a3 := JTF_NUMBER_TABLE();
635 a4 := JTF_NUMBER_TABLE();
636 a5 := JTF_DATE_TABLE();
637 a6 := JTF_DATE_TABLE();
638 a7 := JTF_NUMBER_TABLE();
639 a8 := JTF_NUMBER_TABLE();
640 a9 := JTF_NUMBER_TABLE();
641 a10 := JTF_VARCHAR2_TABLE_100();
642 a11 := JTF_VARCHAR2_TABLE_200();
643 a12 := JTF_VARCHAR2_TABLE_200();
644 a13 := JTF_VARCHAR2_TABLE_200();
645 a14 := JTF_VARCHAR2_TABLE_200();
646 a15 := JTF_VARCHAR2_TABLE_200();
647 a16 := JTF_VARCHAR2_TABLE_200();
648 a17 := JTF_VARCHAR2_TABLE_200();
649 a18 := JTF_VARCHAR2_TABLE_200();
650 a19 := JTF_VARCHAR2_TABLE_200();
651 a20 := JTF_VARCHAR2_TABLE_200();
652 a21 := JTF_VARCHAR2_TABLE_200();
653 a22 := JTF_VARCHAR2_TABLE_200();
654 a23 := JTF_VARCHAR2_TABLE_200();
655 a24 := JTF_VARCHAR2_TABLE_200();
656 a25 := JTF_VARCHAR2_TABLE_200();
657 a26 := JTF_VARCHAR2_TABLE_100();
658 else
659 a0 := JTF_NUMBER_TABLE();
660 a1 := JTF_NUMBER_TABLE();
661 a2 := JTF_VARCHAR2_TABLE_100();
662 a3 := JTF_NUMBER_TABLE();
663 a4 := JTF_NUMBER_TABLE();
664 a5 := JTF_DATE_TABLE();
665 a6 := JTF_DATE_TABLE();
666 a7 := JTF_NUMBER_TABLE();
667 a8 := JTF_NUMBER_TABLE();
668 a9 := JTF_NUMBER_TABLE();
669 a10 := JTF_VARCHAR2_TABLE_100();
670 a11 := JTF_VARCHAR2_TABLE_200();
671 a12 := JTF_VARCHAR2_TABLE_200();
672 a13 := JTF_VARCHAR2_TABLE_200();
673 a14 := JTF_VARCHAR2_TABLE_200();
674 a15 := JTF_VARCHAR2_TABLE_200();
675 a16 := JTF_VARCHAR2_TABLE_200();
676 a17 := JTF_VARCHAR2_TABLE_200();
677 a18 := JTF_VARCHAR2_TABLE_200();
678 a19 := JTF_VARCHAR2_TABLE_200();
679 a20 := JTF_VARCHAR2_TABLE_200();
680 a21 := JTF_VARCHAR2_TABLE_200();
681 a22 := JTF_VARCHAR2_TABLE_200();
682 a23 := JTF_VARCHAR2_TABLE_200();
683 a24 := JTF_VARCHAR2_TABLE_200();
684 a25 := JTF_VARCHAR2_TABLE_200();
685 a26 := JTF_VARCHAR2_TABLE_100();
686 if t.count > 0 then
687 a0.extend(t.count);
688 a1.extend(t.count);
689 a2.extend(t.count);
690 a3.extend(t.count);
691 a4.extend(t.count);
692 a5.extend(t.count);
693 a6.extend(t.count);
694 a7.extend(t.count);
695 a8.extend(t.count);
696 a9.extend(t.count);
697 a10.extend(t.count);
698 a11.extend(t.count);
699 a12.extend(t.count);
700 a13.extend(t.count);
701 a14.extend(t.count);
702 a15.extend(t.count);
703 a16.extend(t.count);
704 a17.extend(t.count);
705 a18.extend(t.count);
706 a19.extend(t.count);
707 a20.extend(t.count);
708 a21.extend(t.count);
709 a22.extend(t.count);
710 a23.extend(t.count);
711 a24.extend(t.count);
712 a25.extend(t.count);
713 a26.extend(t.count);
714 ddindx := t.first;
715 indx := 1;
716 while true loop
717 a0(indx) := t(ddindx).mc_config_relation_id;
718 a1(indx) := t(ddindx).mc_header_id;
719 a2(indx) := t(ddindx).name;
720 a3(indx) := t(ddindx).version_number;
721 a4(indx) := t(ddindx).relationship_id;
722 a5(indx) := t(ddindx).active_start_date;
723 a6(indx) := t(ddindx).active_end_date;
724 a7(indx) := t(ddindx).object_version_number;
725 a8(indx) := t(ddindx).priority;
726 a9(indx) := t(ddindx).security_group_id;
727 a10(indx) := t(ddindx).attribute_category;
728 a11(indx) := t(ddindx).attribute1;
729 a12(indx) := t(ddindx).attribute2;
730 a13(indx) := t(ddindx).attribute3;
731 a14(indx) := t(ddindx).attribute4;
732 a15(indx) := t(ddindx).attribute5;
733 a16(indx) := t(ddindx).attribute6;
734 a17(indx) := t(ddindx).attribute7;
735 a18(indx) := t(ddindx).attribute8;
736 a19(indx) := t(ddindx).attribute9;
737 a20(indx) := t(ddindx).attribute10;
738 a21(indx) := t(ddindx).attribute11;
739 a22(indx) := t(ddindx).attribute12;
740 a23(indx) := t(ddindx).attribute13;
741 a24(indx) := t(ddindx).attribute14;
742 a25(indx) := t(ddindx).attribute15;
743 a26(indx) := t(ddindx).operation_flag;
744 indx := indx+1;
745 if t.last =ddindx
746 then exit;
747 end if;
748 ddindx := t.next(ddindx);
749 end loop;
750 end if;
751 end if;
752 end rosetta_table_copy_out_p10;
753
754 procedure create_node(p_api_version NUMBER
755 , p_init_msg_list VARCHAR2
756 , p_commit VARCHAR2
757 , p_validation_level NUMBER
758 , x_return_status out nocopy VARCHAR2
759 , x_msg_count out nocopy NUMBER
760 , x_msg_data out nocopy VARCHAR2
761 , p7_a0 in out nocopy NUMBER
762 , p7_a1 in out nocopy NUMBER
763 , p7_a2 in out nocopy NUMBER
764 , p7_a3 in out nocopy VARCHAR2
765 , p7_a4 in out nocopy VARCHAR2
766 , p7_a5 in out nocopy VARCHAR2
767 , p7_a6 in out nocopy VARCHAR2
768 , p7_a7 in out nocopy VARCHAR2
769 , p7_a8 in out nocopy VARCHAR2
770 , p7_a9 in out nocopy VARCHAR2
771 , p7_a10 in out nocopy NUMBER
772 , p7_a11 in out nocopy NUMBER
773 , p7_a12 in out nocopy NUMBER
774 , p7_a13 in out nocopy VARCHAR2
775 , p7_a14 in out nocopy NUMBER
776 , p7_a15 in out nocopy DATE
777 , p7_a16 in out nocopy DATE
778 , p7_a17 in out nocopy NUMBER
779 , p7_a18 in out nocopy NUMBER
780 , p7_a19 in out nocopy VARCHAR2
781 , p7_a20 in out nocopy VARCHAR2
782 , p7_a21 in out nocopy VARCHAR2
783 , p7_a22 in out nocopy VARCHAR2
784 , p7_a23 in out nocopy VARCHAR2
785 , p7_a24 in out nocopy VARCHAR2
786 , p7_a25 in out nocopy VARCHAR2
787 , p7_a26 in out nocopy VARCHAR2
788 , p7_a27 in out nocopy VARCHAR2
789 , p7_a28 in out nocopy VARCHAR2
790 , p7_a29 in out nocopy VARCHAR2
791 , p7_a30 in out nocopy VARCHAR2
792 , p7_a31 in out nocopy VARCHAR2
793 , p7_a32 in out nocopy VARCHAR2
794 , p7_a33 in out nocopy VARCHAR2
795 , p7_a34 in out nocopy VARCHAR2
796 , p7_a35 in out nocopy VARCHAR2
797 , p7_a36 in out nocopy NUMBER
798 , p8_a0 in out nocopy JTF_NUMBER_TABLE
799 , p8_a1 in out nocopy JTF_NUMBER_TABLE
800 , p8_a2 in out nocopy JTF_VARCHAR2_TABLE_100
801 , p8_a3 in out nocopy JTF_VARCHAR2_TABLE_100
802 , p8_a4 in out nocopy JTF_VARCHAR2_TABLE_100
803 , p8_a5 in out nocopy JTF_NUMBER_TABLE
804 , p8_a6 in out nocopy JTF_NUMBER_TABLE
805 , p8_a7 in out nocopy JTF_NUMBER_TABLE
806 , p8_a8 in out nocopy JTF_VARCHAR2_TABLE_100
807 , p8_a9 in out nocopy JTF_VARCHAR2_TABLE_200
808 , p8_a10 in out nocopy JTF_VARCHAR2_TABLE_200
809 , p8_a11 in out nocopy JTF_VARCHAR2_TABLE_200
810 , p8_a12 in out nocopy JTF_VARCHAR2_TABLE_200
811 , p8_a13 in out nocopy JTF_VARCHAR2_TABLE_200
812 , p8_a14 in out nocopy JTF_VARCHAR2_TABLE_200
813 , p8_a15 in out nocopy JTF_VARCHAR2_TABLE_200
814 , p8_a16 in out nocopy JTF_VARCHAR2_TABLE_200
815 , p8_a17 in out nocopy JTF_VARCHAR2_TABLE_200
816 , p8_a18 in out nocopy JTF_VARCHAR2_TABLE_200
817 , p8_a19 in out nocopy JTF_VARCHAR2_TABLE_200
818 , p8_a20 in out nocopy JTF_VARCHAR2_TABLE_200
819 , p8_a21 in out nocopy JTF_VARCHAR2_TABLE_200
820 , p8_a22 in out nocopy JTF_VARCHAR2_TABLE_200
821 , p8_a23 in out nocopy JTF_VARCHAR2_TABLE_200
822 , p8_a24 in out nocopy JTF_VARCHAR2_TABLE_100
823 , p8_a25 in out nocopy JTF_NUMBER_TABLE
824 , p9_a0 in out nocopy JTF_NUMBER_TABLE
825 , p9_a1 in out nocopy JTF_NUMBER_TABLE
826 , p9_a2 in out nocopy JTF_VARCHAR2_TABLE_100
827 , p9_a3 in out nocopy JTF_NUMBER_TABLE
828 , p9_a4 in out nocopy JTF_NUMBER_TABLE
829 , p9_a5 in out nocopy JTF_DATE_TABLE
830 , p9_a6 in out nocopy JTF_DATE_TABLE
831 , p9_a7 in out nocopy JTF_NUMBER_TABLE
832 , p9_a8 in out nocopy JTF_NUMBER_TABLE
833 , p9_a9 in out nocopy JTF_NUMBER_TABLE
834 , p9_a10 in out nocopy JTF_VARCHAR2_TABLE_100
835 , p9_a11 in out nocopy JTF_VARCHAR2_TABLE_200
836 , p9_a12 in out nocopy JTF_VARCHAR2_TABLE_200
837 , p9_a13 in out nocopy JTF_VARCHAR2_TABLE_200
838 , p9_a14 in out nocopy JTF_VARCHAR2_TABLE_200
839 , p9_a15 in out nocopy JTF_VARCHAR2_TABLE_200
840 , p9_a16 in out nocopy JTF_VARCHAR2_TABLE_200
841 , p9_a17 in out nocopy JTF_VARCHAR2_TABLE_200
842 , p9_a18 in out nocopy JTF_VARCHAR2_TABLE_200
843 , p9_a19 in out nocopy JTF_VARCHAR2_TABLE_200
844 , p9_a20 in out nocopy JTF_VARCHAR2_TABLE_200
845 , p9_a21 in out nocopy JTF_VARCHAR2_TABLE_200
846 , p9_a22 in out nocopy JTF_VARCHAR2_TABLE_200
847 , p9_a23 in out nocopy JTF_VARCHAR2_TABLE_200
848 , p9_a24 in out nocopy JTF_VARCHAR2_TABLE_200
849 , p9_a25 in out nocopy JTF_VARCHAR2_TABLE_200
850 , p9_a26 in out nocopy JTF_VARCHAR2_TABLE_100
851 )
852
853 as
854 ddp_x_node_rec ahl_mc_node_pvt.node_rec_type;
855 ddp_x_counter_rules_tbl ahl_mc_node_pvt.counter_rules_tbl_type;
856 ddp_x_subconfig_tbl ahl_mc_node_pvt.subconfig_tbl_type;
857 ddindx binary_integer; indx binary_integer;
858 begin
859
860 -- copy data to the local IN or IN-OUT args, if any
861
862
863
864
865
866
867
868 ddp_x_node_rec.relationship_id := p7_a0;
869 ddp_x_node_rec.mc_header_id := p7_a1;
870 ddp_x_node_rec.position_key := p7_a2;
871 ddp_x_node_rec.position_ref_code := p7_a3;
872 ddp_x_node_rec.position_ref_meaning := p7_a4;
873 ddp_x_node_rec.ata_code := p7_a5;
874 ddp_x_node_rec.ata_meaning := p7_a6;
875 ddp_x_node_rec.position_necessity_code := p7_a7;
876 ddp_x_node_rec.position_necessity_meaning := p7_a8;
877 ddp_x_node_rec.uom_code := p7_a9;
878 ddp_x_node_rec.quantity := p7_a10;
879 ddp_x_node_rec.parent_relationship_id := p7_a11;
880 ddp_x_node_rec.item_group_id := p7_a12;
881 ddp_x_node_rec.item_group_name := p7_a13;
882 ddp_x_node_rec.display_order := p7_a14;
883 ddp_x_node_rec.active_start_date := rosetta_g_miss_date_in_map(p7_a15);
884 ddp_x_node_rec.active_end_date := rosetta_g_miss_date_in_map(p7_a16);
885 ddp_x_node_rec.object_version_number := p7_a17;
886 ddp_x_node_rec.security_group_id := p7_a18;
887 ddp_x_node_rec.attribute_category := p7_a19;
888 ddp_x_node_rec.attribute1 := p7_a20;
889 ddp_x_node_rec.attribute2 := p7_a21;
890 ddp_x_node_rec.attribute3 := p7_a22;
891 ddp_x_node_rec.attribute4 := p7_a23;
892 ddp_x_node_rec.attribute5 := p7_a24;
893 ddp_x_node_rec.attribute6 := p7_a25;
894 ddp_x_node_rec.attribute7 := p7_a26;
895 ddp_x_node_rec.attribute8 := p7_a27;
896 ddp_x_node_rec.attribute9 := p7_a28;
897 ddp_x_node_rec.attribute10 := p7_a29;
898 ddp_x_node_rec.attribute11 := p7_a30;
899 ddp_x_node_rec.attribute12 := p7_a31;
900 ddp_x_node_rec.attribute13 := p7_a32;
901 ddp_x_node_rec.attribute14 := p7_a33;
902 ddp_x_node_rec.attribute15 := p7_a34;
903 ddp_x_node_rec.operation_flag := p7_a35;
904 ddp_x_node_rec.parent_node_rec_index := p7_a36;
905
906 ahl_mc_node_pvt_w.rosetta_table_copy_in_p8(ddp_x_counter_rules_tbl, p8_a0
907 , p8_a1
908 , p8_a2
909 , p8_a3
910 , p8_a4
911 , p8_a5
912 , p8_a6
913 , p8_a7
914 , p8_a8
915 , p8_a9
916 , p8_a10
917 , p8_a11
918 , p8_a12
919 , p8_a13
920 , p8_a14
921 , p8_a15
922 , p8_a16
923 , p8_a17
924 , p8_a18
925 , p8_a19
926 , p8_a20
927 , p8_a21
928 , p8_a22
929 , p8_a23
930 , p8_a24
931 , p8_a25
932 );
933
934 ahl_mc_node_pvt_w.rosetta_table_copy_in_p10(ddp_x_subconfig_tbl, p9_a0
935 , p9_a1
936 , p9_a2
937 , p9_a3
938 , p9_a4
939 , p9_a5
940 , p9_a6
941 , p9_a7
942 , p9_a8
943 , p9_a9
944 , p9_a10
945 , p9_a11
946 , p9_a12
947 , p9_a13
948 , p9_a14
949 , p9_a15
950 , p9_a16
951 , p9_a17
952 , p9_a18
953 , p9_a19
954 , p9_a20
955 , p9_a21
956 , p9_a22
957 , p9_a23
958 , p9_a24
959 , p9_a25
960 , p9_a26
961 );
962
963 -- here's the delegated call to the old PL/SQL routine
964 ahl_mc_node_pvt.create_node(p_api_version,
965 p_init_msg_list,
966 p_commit,
967 p_validation_level,
968 x_return_status,
969 x_msg_count,
970 x_msg_data,
971 ddp_x_node_rec,
972 ddp_x_counter_rules_tbl,
973 ddp_x_subconfig_tbl);
974
975 -- copy data back from the local variables to OUT or IN-OUT args, if any
976
977
978
979
980
981
982
983 p7_a0 := ddp_x_node_rec.relationship_id;
984 p7_a1 := ddp_x_node_rec.mc_header_id;
985 p7_a2 := ddp_x_node_rec.position_key;
986 p7_a3 := ddp_x_node_rec.position_ref_code;
987 p7_a4 := ddp_x_node_rec.position_ref_meaning;
988 p7_a5 := ddp_x_node_rec.ata_code;
989 p7_a6 := ddp_x_node_rec.ata_meaning;
990 p7_a7 := ddp_x_node_rec.position_necessity_code;
991 p7_a8 := ddp_x_node_rec.position_necessity_meaning;
992 p7_a9 := ddp_x_node_rec.uom_code;
993 p7_a10 := ddp_x_node_rec.quantity;
994 p7_a11 := ddp_x_node_rec.parent_relationship_id;
995 p7_a12 := ddp_x_node_rec.item_group_id;
996 p7_a13 := ddp_x_node_rec.item_group_name;
997 p7_a14 := ddp_x_node_rec.display_order;
998 p7_a15 := ddp_x_node_rec.active_start_date;
999 p7_a16 := ddp_x_node_rec.active_end_date;
1000 p7_a17 := ddp_x_node_rec.object_version_number;
1001 p7_a18 := ddp_x_node_rec.security_group_id;
1002 p7_a19 := ddp_x_node_rec.attribute_category;
1003 p7_a20 := ddp_x_node_rec.attribute1;
1004 p7_a21 := ddp_x_node_rec.attribute2;
1005 p7_a22 := ddp_x_node_rec.attribute3;
1006 p7_a23 := ddp_x_node_rec.attribute4;
1007 p7_a24 := ddp_x_node_rec.attribute5;
1008 p7_a25 := ddp_x_node_rec.attribute6;
1009 p7_a26 := ddp_x_node_rec.attribute7;
1010 p7_a27 := ddp_x_node_rec.attribute8;
1011 p7_a28 := ddp_x_node_rec.attribute9;
1012 p7_a29 := ddp_x_node_rec.attribute10;
1013 p7_a30 := ddp_x_node_rec.attribute11;
1014 p7_a31 := ddp_x_node_rec.attribute12;
1015 p7_a32 := ddp_x_node_rec.attribute13;
1016 p7_a33 := ddp_x_node_rec.attribute14;
1017 p7_a34 := ddp_x_node_rec.attribute15;
1018 p7_a35 := ddp_x_node_rec.operation_flag;
1019 p7_a36 := ddp_x_node_rec.parent_node_rec_index;
1020
1021 ahl_mc_node_pvt_w.rosetta_table_copy_out_p8(ddp_x_counter_rules_tbl, p8_a0
1022 , p8_a1
1023 , p8_a2
1024 , p8_a3
1025 , p8_a4
1026 , p8_a5
1027 , p8_a6
1028 , p8_a7
1029 , p8_a8
1030 , p8_a9
1031 , p8_a10
1032 , p8_a11
1033 , p8_a12
1034 , p8_a13
1035 , p8_a14
1036 , p8_a15
1037 , p8_a16
1038 , p8_a17
1039 , p8_a18
1040 , p8_a19
1041 , p8_a20
1042 , p8_a21
1043 , p8_a22
1044 , p8_a23
1045 , p8_a24
1046 , p8_a25
1047 );
1048
1049 ahl_mc_node_pvt_w.rosetta_table_copy_out_p10(ddp_x_subconfig_tbl, p9_a0
1050 , p9_a1
1051 , p9_a2
1052 , p9_a3
1053 , p9_a4
1054 , p9_a5
1055 , p9_a6
1056 , p9_a7
1057 , p9_a8
1058 , p9_a9
1059 , p9_a10
1060 , p9_a11
1061 , p9_a12
1062 , p9_a13
1063 , p9_a14
1064 , p9_a15
1065 , p9_a16
1066 , p9_a17
1067 , p9_a18
1068 , p9_a19
1069 , p9_a20
1070 , p9_a21
1071 , p9_a22
1072 , p9_a23
1073 , p9_a24
1074 , p9_a25
1075 , p9_a26
1076 );
1077 end;
1078
1079 procedure modify_node(p_api_version NUMBER
1080 , p_init_msg_list VARCHAR2
1081 , p_commit VARCHAR2
1082 , p_validation_level NUMBER
1083 , x_return_status out nocopy VARCHAR2
1084 , x_msg_count out nocopy NUMBER
1085 , x_msg_data out nocopy VARCHAR2
1086 , p7_a0 in out nocopy NUMBER
1087 , p7_a1 in out nocopy NUMBER
1088 , p7_a2 in out nocopy NUMBER
1089 , p7_a3 in out nocopy VARCHAR2
1090 , p7_a4 in out nocopy VARCHAR2
1091 , p7_a5 in out nocopy VARCHAR2
1092 , p7_a6 in out nocopy VARCHAR2
1093 , p7_a7 in out nocopy VARCHAR2
1094 , p7_a8 in out nocopy VARCHAR2
1095 , p7_a9 in out nocopy VARCHAR2
1096 , p7_a10 in out nocopy NUMBER
1097 , p7_a11 in out nocopy NUMBER
1098 , p7_a12 in out nocopy NUMBER
1099 , p7_a13 in out nocopy VARCHAR2
1100 , p7_a14 in out nocopy NUMBER
1101 , p7_a15 in out nocopy DATE
1102 , p7_a16 in out nocopy DATE
1103 , p7_a17 in out nocopy NUMBER
1104 , p7_a18 in out nocopy NUMBER
1105 , p7_a19 in out nocopy VARCHAR2
1106 , p7_a20 in out nocopy VARCHAR2
1107 , p7_a21 in out nocopy VARCHAR2
1108 , p7_a22 in out nocopy VARCHAR2
1109 , p7_a23 in out nocopy VARCHAR2
1110 , p7_a24 in out nocopy VARCHAR2
1111 , p7_a25 in out nocopy VARCHAR2
1112 , p7_a26 in out nocopy VARCHAR2
1113 , p7_a27 in out nocopy VARCHAR2
1114 , p7_a28 in out nocopy VARCHAR2
1115 , p7_a29 in out nocopy VARCHAR2
1116 , p7_a30 in out nocopy VARCHAR2
1117 , p7_a31 in out nocopy VARCHAR2
1118 , p7_a32 in out nocopy VARCHAR2
1119 , p7_a33 in out nocopy VARCHAR2
1120 , p7_a34 in out nocopy VARCHAR2
1121 , p7_a35 in out nocopy VARCHAR2
1122 , p7_a36 in out nocopy NUMBER
1123 , p8_a0 in out nocopy JTF_NUMBER_TABLE
1124 , p8_a1 in out nocopy JTF_NUMBER_TABLE
1125 , p8_a2 in out nocopy JTF_VARCHAR2_TABLE_100
1126 , p8_a3 in out nocopy JTF_VARCHAR2_TABLE_100
1127 , p8_a4 in out nocopy JTF_VARCHAR2_TABLE_100
1128 , p8_a5 in out nocopy JTF_NUMBER_TABLE
1129 , p8_a6 in out nocopy JTF_NUMBER_TABLE
1130 , p8_a7 in out nocopy JTF_NUMBER_TABLE
1131 , p8_a8 in out nocopy JTF_VARCHAR2_TABLE_100
1132 , p8_a9 in out nocopy JTF_VARCHAR2_TABLE_200
1133 , p8_a10 in out nocopy JTF_VARCHAR2_TABLE_200
1134 , p8_a11 in out nocopy JTF_VARCHAR2_TABLE_200
1135 , p8_a12 in out nocopy JTF_VARCHAR2_TABLE_200
1136 , p8_a13 in out nocopy JTF_VARCHAR2_TABLE_200
1137 , p8_a14 in out nocopy JTF_VARCHAR2_TABLE_200
1138 , p8_a15 in out nocopy JTF_VARCHAR2_TABLE_200
1139 , p8_a16 in out nocopy JTF_VARCHAR2_TABLE_200
1140 , p8_a17 in out nocopy JTF_VARCHAR2_TABLE_200
1141 , p8_a18 in out nocopy JTF_VARCHAR2_TABLE_200
1142 , p8_a19 in out nocopy JTF_VARCHAR2_TABLE_200
1143 , p8_a20 in out nocopy JTF_VARCHAR2_TABLE_200
1144 , p8_a21 in out nocopy JTF_VARCHAR2_TABLE_200
1145 , p8_a22 in out nocopy JTF_VARCHAR2_TABLE_200
1146 , p8_a23 in out nocopy JTF_VARCHAR2_TABLE_200
1147 , p8_a24 in out nocopy JTF_VARCHAR2_TABLE_100
1148 , p8_a25 in out nocopy JTF_NUMBER_TABLE
1149 , p9_a0 in out nocopy JTF_NUMBER_TABLE
1150 , p9_a1 in out nocopy JTF_NUMBER_TABLE
1151 , p9_a2 in out nocopy JTF_VARCHAR2_TABLE_100
1152 , p9_a3 in out nocopy JTF_NUMBER_TABLE
1153 , p9_a4 in out nocopy JTF_NUMBER_TABLE
1154 , p9_a5 in out nocopy JTF_DATE_TABLE
1155 , p9_a6 in out nocopy JTF_DATE_TABLE
1156 , p9_a7 in out nocopy JTF_NUMBER_TABLE
1157 , p9_a8 in out nocopy JTF_NUMBER_TABLE
1158 , p9_a9 in out nocopy JTF_NUMBER_TABLE
1159 , p9_a10 in out nocopy JTF_VARCHAR2_TABLE_100
1160 , p9_a11 in out nocopy JTF_VARCHAR2_TABLE_200
1161 , p9_a12 in out nocopy JTF_VARCHAR2_TABLE_200
1162 , p9_a13 in out nocopy JTF_VARCHAR2_TABLE_200
1163 , p9_a14 in out nocopy JTF_VARCHAR2_TABLE_200
1164 , p9_a15 in out nocopy JTF_VARCHAR2_TABLE_200
1165 , p9_a16 in out nocopy JTF_VARCHAR2_TABLE_200
1166 , p9_a17 in out nocopy JTF_VARCHAR2_TABLE_200
1167 , p9_a18 in out nocopy JTF_VARCHAR2_TABLE_200
1168 , p9_a19 in out nocopy JTF_VARCHAR2_TABLE_200
1169 , p9_a20 in out nocopy JTF_VARCHAR2_TABLE_200
1170 , p9_a21 in out nocopy JTF_VARCHAR2_TABLE_200
1171 , p9_a22 in out nocopy JTF_VARCHAR2_TABLE_200
1172 , p9_a23 in out nocopy JTF_VARCHAR2_TABLE_200
1173 , p9_a24 in out nocopy JTF_VARCHAR2_TABLE_200
1174 , p9_a25 in out nocopy JTF_VARCHAR2_TABLE_200
1175 , p9_a26 in out nocopy JTF_VARCHAR2_TABLE_100
1176 )
1177
1178 as
1179 ddp_x_node_rec ahl_mc_node_pvt.node_rec_type;
1180 ddp_x_counter_rules_tbl ahl_mc_node_pvt.counter_rules_tbl_type;
1181 ddp_x_subconfig_tbl ahl_mc_node_pvt.subconfig_tbl_type;
1182 ddindx binary_integer; indx binary_integer;
1183 begin
1184
1185 -- copy data to the local IN or IN-OUT args, if any
1186
1187
1188
1189
1190
1191
1192
1193 ddp_x_node_rec.relationship_id := p7_a0;
1194 ddp_x_node_rec.mc_header_id := p7_a1;
1195 ddp_x_node_rec.position_key := p7_a2;
1196 ddp_x_node_rec.position_ref_code := p7_a3;
1197 ddp_x_node_rec.position_ref_meaning := p7_a4;
1198 ddp_x_node_rec.ata_code := p7_a5;
1199 ddp_x_node_rec.ata_meaning := p7_a6;
1200 ddp_x_node_rec.position_necessity_code := p7_a7;
1201 ddp_x_node_rec.position_necessity_meaning := p7_a8;
1202 ddp_x_node_rec.uom_code := p7_a9;
1203 ddp_x_node_rec.quantity := p7_a10;
1204 ddp_x_node_rec.parent_relationship_id := p7_a11;
1205 ddp_x_node_rec.item_group_id := p7_a12;
1206 ddp_x_node_rec.item_group_name := p7_a13;
1207 ddp_x_node_rec.display_order := p7_a14;
1208 ddp_x_node_rec.active_start_date := rosetta_g_miss_date_in_map(p7_a15);
1209 ddp_x_node_rec.active_end_date := rosetta_g_miss_date_in_map(p7_a16);
1210 ddp_x_node_rec.object_version_number := p7_a17;
1211 ddp_x_node_rec.security_group_id := p7_a18;
1212 ddp_x_node_rec.attribute_category := p7_a19;
1213 ddp_x_node_rec.attribute1 := p7_a20;
1214 ddp_x_node_rec.attribute2 := p7_a21;
1215 ddp_x_node_rec.attribute3 := p7_a22;
1216 ddp_x_node_rec.attribute4 := p7_a23;
1217 ddp_x_node_rec.attribute5 := p7_a24;
1218 ddp_x_node_rec.attribute6 := p7_a25;
1219 ddp_x_node_rec.attribute7 := p7_a26;
1220 ddp_x_node_rec.attribute8 := p7_a27;
1221 ddp_x_node_rec.attribute9 := p7_a28;
1222 ddp_x_node_rec.attribute10 := p7_a29;
1223 ddp_x_node_rec.attribute11 := p7_a30;
1224 ddp_x_node_rec.attribute12 := p7_a31;
1225 ddp_x_node_rec.attribute13 := p7_a32;
1226 ddp_x_node_rec.attribute14 := p7_a33;
1227 ddp_x_node_rec.attribute15 := p7_a34;
1228 ddp_x_node_rec.operation_flag := p7_a35;
1229 ddp_x_node_rec.parent_node_rec_index := p7_a36;
1230
1231 ahl_mc_node_pvt_w.rosetta_table_copy_in_p8(ddp_x_counter_rules_tbl, p8_a0
1232 , p8_a1
1233 , p8_a2
1234 , p8_a3
1235 , p8_a4
1236 , p8_a5
1237 , p8_a6
1238 , p8_a7
1239 , p8_a8
1240 , p8_a9
1241 , p8_a10
1242 , p8_a11
1243 , p8_a12
1244 , p8_a13
1245 , p8_a14
1246 , p8_a15
1247 , p8_a16
1248 , p8_a17
1249 , p8_a18
1250 , p8_a19
1251 , p8_a20
1252 , p8_a21
1253 , p8_a22
1254 , p8_a23
1255 , p8_a24
1256 , p8_a25
1257 );
1258
1259 ahl_mc_node_pvt_w.rosetta_table_copy_in_p10(ddp_x_subconfig_tbl, p9_a0
1260 , p9_a1
1261 , p9_a2
1262 , p9_a3
1263 , p9_a4
1264 , p9_a5
1265 , p9_a6
1266 , p9_a7
1267 , p9_a8
1268 , p9_a9
1269 , p9_a10
1270 , p9_a11
1271 , p9_a12
1272 , p9_a13
1273 , p9_a14
1274 , p9_a15
1275 , p9_a16
1276 , p9_a17
1277 , p9_a18
1278 , p9_a19
1279 , p9_a20
1280 , p9_a21
1281 , p9_a22
1282 , p9_a23
1283 , p9_a24
1284 , p9_a25
1285 , p9_a26
1286 );
1287
1288 -- here's the delegated call to the old PL/SQL routine
1289 ahl_mc_node_pvt.modify_node(p_api_version,
1290 p_init_msg_list,
1291 p_commit,
1292 p_validation_level,
1293 x_return_status,
1294 x_msg_count,
1295 x_msg_data,
1296 ddp_x_node_rec,
1297 ddp_x_counter_rules_tbl,
1298 ddp_x_subconfig_tbl);
1299
1300 -- copy data back from the local variables to OUT or IN-OUT args, if any
1301
1302
1303
1304
1305
1306
1307
1308 p7_a0 := ddp_x_node_rec.relationship_id;
1309 p7_a1 := ddp_x_node_rec.mc_header_id;
1310 p7_a2 := ddp_x_node_rec.position_key;
1311 p7_a3 := ddp_x_node_rec.position_ref_code;
1312 p7_a4 := ddp_x_node_rec.position_ref_meaning;
1313 p7_a5 := ddp_x_node_rec.ata_code;
1314 p7_a6 := ddp_x_node_rec.ata_meaning;
1315 p7_a7 := ddp_x_node_rec.position_necessity_code;
1316 p7_a8 := ddp_x_node_rec.position_necessity_meaning;
1317 p7_a9 := ddp_x_node_rec.uom_code;
1318 p7_a10 := ddp_x_node_rec.quantity;
1319 p7_a11 := ddp_x_node_rec.parent_relationship_id;
1320 p7_a12 := ddp_x_node_rec.item_group_id;
1321 p7_a13 := ddp_x_node_rec.item_group_name;
1322 p7_a14 := ddp_x_node_rec.display_order;
1323 p7_a15 := ddp_x_node_rec.active_start_date;
1324 p7_a16 := ddp_x_node_rec.active_end_date;
1325 p7_a17 := ddp_x_node_rec.object_version_number;
1326 p7_a18 := ddp_x_node_rec.security_group_id;
1327 p7_a19 := ddp_x_node_rec.attribute_category;
1328 p7_a20 := ddp_x_node_rec.attribute1;
1329 p7_a21 := ddp_x_node_rec.attribute2;
1330 p7_a22 := ddp_x_node_rec.attribute3;
1331 p7_a23 := ddp_x_node_rec.attribute4;
1332 p7_a24 := ddp_x_node_rec.attribute5;
1333 p7_a25 := ddp_x_node_rec.attribute6;
1334 p7_a26 := ddp_x_node_rec.attribute7;
1335 p7_a27 := ddp_x_node_rec.attribute8;
1336 p7_a28 := ddp_x_node_rec.attribute9;
1337 p7_a29 := ddp_x_node_rec.attribute10;
1338 p7_a30 := ddp_x_node_rec.attribute11;
1339 p7_a31 := ddp_x_node_rec.attribute12;
1340 p7_a32 := ddp_x_node_rec.attribute13;
1341 p7_a33 := ddp_x_node_rec.attribute14;
1342 p7_a34 := ddp_x_node_rec.attribute15;
1343 p7_a35 := ddp_x_node_rec.operation_flag;
1344 p7_a36 := ddp_x_node_rec.parent_node_rec_index;
1345
1346 ahl_mc_node_pvt_w.rosetta_table_copy_out_p8(ddp_x_counter_rules_tbl, p8_a0
1347 , p8_a1
1348 , p8_a2
1349 , p8_a3
1350 , p8_a4
1351 , p8_a5
1352 , p8_a6
1353 , p8_a7
1354 , p8_a8
1355 , p8_a9
1356 , p8_a10
1357 , p8_a11
1358 , p8_a12
1359 , p8_a13
1360 , p8_a14
1361 , p8_a15
1362 , p8_a16
1363 , p8_a17
1364 , p8_a18
1365 , p8_a19
1366 , p8_a20
1367 , p8_a21
1368 , p8_a22
1369 , p8_a23
1370 , p8_a24
1371 , p8_a25
1372 );
1373
1374 ahl_mc_node_pvt_w.rosetta_table_copy_out_p10(ddp_x_subconfig_tbl, p9_a0
1375 , p9_a1
1376 , p9_a2
1377 , p9_a3
1378 , p9_a4
1379 , p9_a5
1380 , p9_a6
1381 , p9_a7
1382 , p9_a8
1383 , p9_a9
1384 , p9_a10
1385 , p9_a11
1386 , p9_a12
1387 , p9_a13
1388 , p9_a14
1389 , p9_a15
1390 , p9_a16
1391 , p9_a17
1392 , p9_a18
1393 , p9_a19
1394 , p9_a20
1395 , p9_a21
1396 , p9_a22
1397 , p9_a23
1398 , p9_a24
1399 , p9_a25
1400 , p9_a26
1401 );
1402 end;
1403
1404 procedure copy_mc_nodes(p_api_version NUMBER
1405 , p_init_msg_list VARCHAR2
1406 , p_commit VARCHAR2
1407 , p_validation_level NUMBER
1408 , x_return_status out nocopy VARCHAR2
1409 , x_msg_count out nocopy NUMBER
1410 , x_msg_data out nocopy VARCHAR2
1411 , p_source_rel_id NUMBER
1412 , p_dest_rel_id NUMBER
1413 , p_new_rev_flag number
1414 , p_node_copy number
1415 )
1416
1417 as
1418 ddp_new_rev_flag boolean;
1419 ddp_node_copy boolean;
1420 ddindx binary_integer; indx binary_integer;
1421 begin
1422
1423 -- copy data to the local IN or IN-OUT args, if any
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433 if p_new_rev_flag is null
1434 then ddp_new_rev_flag := null;
1435 elsif p_new_rev_flag = 0
1436 then ddp_new_rev_flag := false;
1437 else ddp_new_rev_flag := true;
1438 end if;
1439
1440 if p_node_copy is null
1441 then ddp_node_copy := null;
1442 elsif p_node_copy = 0
1443 then ddp_node_copy := false;
1444 else ddp_node_copy := true;
1445 end if;
1446
1447 -- here's the delegated call to the old PL/SQL routine
1448 ahl_mc_node_pvt.copy_mc_nodes(p_api_version,
1449 p_init_msg_list,
1450 p_commit,
1451 p_validation_level,
1452 x_return_status,
1453 x_msg_count,
1454 x_msg_data,
1455 p_source_rel_id,
1456 p_dest_rel_id,
1457 ddp_new_rev_flag,
1458 ddp_node_copy);
1459
1460 -- copy data back from the local variables to OUT or IN-OUT args, if any
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471 end;
1472
1473 procedure process_documents(p_api_version NUMBER
1474 , p_init_msg_list VARCHAR2
1475 , p_commit VARCHAR2
1476 , p_validation_level NUMBER
1477 , x_return_status out nocopy VARCHAR2
1478 , x_msg_count out nocopy NUMBER
1479 , x_msg_data out nocopy VARCHAR2
1480 , p_node_id NUMBER
1481 , p8_a0 in out nocopy JTF_NUMBER_TABLE
1482 , p8_a1 in out nocopy JTF_NUMBER_TABLE
1483 , p8_a2 in out nocopy JTF_VARCHAR2_TABLE_100
1484 , p8_a3 in out nocopy JTF_NUMBER_TABLE
1485 , p8_a4 in out nocopy JTF_VARCHAR2_TABLE_100
1486 , p8_a5 in out nocopy JTF_VARCHAR2_TABLE_100
1487 , p8_a6 in out nocopy JTF_VARCHAR2_TABLE_100
1488 , p8_a7 in out nocopy JTF_VARCHAR2_TABLE_100
1489 , p8_a8 in out nocopy JTF_NUMBER_TABLE
1490 , p8_a9 in out nocopy JTF_VARCHAR2_TABLE_100
1491 , p8_a10 in out nocopy JTF_VARCHAR2_TABLE_100
1492 , p8_a11 in out nocopy JTF_VARCHAR2_TABLE_100
1493 , p8_a12 in out nocopy JTF_VARCHAR2_TABLE_100
1494 , p8_a13 in out nocopy JTF_VARCHAR2_TABLE_300
1495 , p8_a14 in out nocopy JTF_VARCHAR2_TABLE_100
1496 , p8_a15 in out nocopy JTF_VARCHAR2_TABLE_100
1497 , p8_a16 in out nocopy JTF_VARCHAR2_TABLE_2000
1498 , p8_a17 in out nocopy JTF_VARCHAR2_TABLE_100
1499 , p8_a18 in out nocopy JTF_VARCHAR2_TABLE_100
1500 , p8_a19 in out nocopy JTF_NUMBER_TABLE
1501 , p8_a20 in out nocopy JTF_VARCHAR2_TABLE_100
1502 , p8_a21 in out nocopy JTF_VARCHAR2_TABLE_200
1503 , p8_a22 in out nocopy JTF_VARCHAR2_TABLE_200
1504 , p8_a23 in out nocopy JTF_VARCHAR2_TABLE_200
1505 , p8_a24 in out nocopy JTF_VARCHAR2_TABLE_200
1506 , p8_a25 in out nocopy JTF_VARCHAR2_TABLE_200
1507 , p8_a26 in out nocopy JTF_VARCHAR2_TABLE_200
1508 , p8_a27 in out nocopy JTF_VARCHAR2_TABLE_200
1509 , p8_a28 in out nocopy JTF_VARCHAR2_TABLE_200
1510 , p8_a29 in out nocopy JTF_VARCHAR2_TABLE_200
1511 , p8_a30 in out nocopy JTF_VARCHAR2_TABLE_200
1512 , p8_a31 in out nocopy JTF_VARCHAR2_TABLE_200
1513 , p8_a32 in out nocopy JTF_VARCHAR2_TABLE_200
1514 , p8_a33 in out nocopy JTF_VARCHAR2_TABLE_200
1515 , p8_a34 in out nocopy JTF_VARCHAR2_TABLE_200
1516 , p8_a35 in out nocopy JTF_VARCHAR2_TABLE_200
1517 , p8_a36 in out nocopy JTF_VARCHAR2_TABLE_100
1518 )
1519
1520 as
1521 ddp_x_documents_tbl ahl_di_asso_doc_gen_pub.association_tbl;
1522 ddindx binary_integer; indx binary_integer;
1523 begin
1524
1525 -- copy data to the local IN or IN-OUT args, if any
1526
1527
1528
1529
1530
1531
1532
1533
1534 ahl_di_asso_doc_gen_pub_w.rosetta_table_copy_in_p1(ddp_x_documents_tbl, p8_a0
1535 , p8_a1
1536 , p8_a2
1537 , p8_a3
1538 , p8_a4
1539 , p8_a5
1540 , p8_a6
1541 , p8_a7
1542 , p8_a8
1543 , p8_a9
1544 , p8_a10
1545 , p8_a11
1546 , p8_a12
1547 , p8_a13
1548 , p8_a14
1549 , p8_a15
1550 , p8_a16
1551 , p8_a17
1552 , p8_a18
1553 , p8_a19
1554 , p8_a20
1555 , p8_a21
1556 , p8_a22
1557 , p8_a23
1558 , p8_a24
1559 , p8_a25
1560 , p8_a26
1561 , p8_a27
1562 , p8_a28
1563 , p8_a29
1564 , p8_a30
1565 , p8_a31
1566 , p8_a32
1567 , p8_a33
1568 , p8_a34
1569 , p8_a35
1570 , p8_a36
1571 );
1572
1573 -- here's the delegated call to the old PL/SQL routine
1574 ahl_mc_node_pvt.process_documents(p_api_version,
1575 p_init_msg_list,
1576 p_commit,
1577 p_validation_level,
1578 x_return_status,
1579 x_msg_count,
1580 x_msg_data,
1581 p_node_id,
1582 ddp_x_documents_tbl);
1583
1584 -- copy data back from the local variables to OUT or IN-OUT args, if any
1585
1586
1587
1588
1589
1590
1591
1592
1593 ahl_di_asso_doc_gen_pub_w.rosetta_table_copy_out_p1(ddp_x_documents_tbl, p8_a0
1594 , p8_a1
1595 , p8_a2
1596 , p8_a3
1597 , p8_a4
1598 , p8_a5
1599 , p8_a6
1600 , p8_a7
1601 , p8_a8
1602 , p8_a9
1603 , p8_a10
1604 , p8_a11
1605 , p8_a12
1606 , p8_a13
1607 , p8_a14
1608 , p8_a15
1609 , p8_a16
1610 , p8_a17
1611 , p8_a18
1612 , p8_a19
1613 , p8_a20
1614 , p8_a21
1615 , p8_a22
1616 , p8_a23
1617 , p8_a24
1618 , p8_a25
1619 , p8_a26
1620 , p8_a27
1621 , p8_a28
1622 , p8_a29
1623 , p8_a30
1624 , p8_a31
1625 , p8_a32
1626 , p8_a33
1627 , p8_a34
1628 , p8_a35
1629 , p8_a36
1630 );
1631 end;
1632
1633 procedure associate_item_group(p_api_version NUMBER
1634 , p_init_msg_list VARCHAR2
1635 , p_commit VARCHAR2
1636 , p_validation_level NUMBER
1637 , x_return_status out nocopy VARCHAR2
1638 , x_msg_count out nocopy NUMBER
1639 , x_msg_data out nocopy VARCHAR2
1640 , p7_a0 JTF_NUMBER_TABLE
1641 , p7_a1 JTF_NUMBER_TABLE
1642 , p7_a2 JTF_NUMBER_TABLE
1643 , p7_a3 JTF_VARCHAR2_TABLE_100
1644 , p7_a4 JTF_VARCHAR2_TABLE_100
1645 , p7_a5 JTF_VARCHAR2_TABLE_100
1646 , p7_a6 JTF_VARCHAR2_TABLE_100
1647 , p7_a7 JTF_VARCHAR2_TABLE_100
1648 , p7_a8 JTF_VARCHAR2_TABLE_100
1649 , p7_a9 JTF_VARCHAR2_TABLE_100
1650 , p7_a10 JTF_NUMBER_TABLE
1651 , p7_a11 JTF_NUMBER_TABLE
1652 , p7_a12 JTF_NUMBER_TABLE
1653 , p7_a13 JTF_VARCHAR2_TABLE_100
1654 , p7_a14 JTF_NUMBER_TABLE
1655 , p7_a15 JTF_DATE_TABLE
1656 , p7_a16 JTF_DATE_TABLE
1657 , p7_a17 JTF_NUMBER_TABLE
1658 , p7_a18 JTF_NUMBER_TABLE
1659 , p7_a19 JTF_VARCHAR2_TABLE_100
1660 , p7_a20 JTF_VARCHAR2_TABLE_200
1661 , p7_a21 JTF_VARCHAR2_TABLE_200
1662 , p7_a22 JTF_VARCHAR2_TABLE_200
1663 , p7_a23 JTF_VARCHAR2_TABLE_200
1664 , p7_a24 JTF_VARCHAR2_TABLE_200
1665 , p7_a25 JTF_VARCHAR2_TABLE_200
1666 , p7_a26 JTF_VARCHAR2_TABLE_200
1667 , p7_a27 JTF_VARCHAR2_TABLE_200
1668 , p7_a28 JTF_VARCHAR2_TABLE_200
1669 , p7_a29 JTF_VARCHAR2_TABLE_200
1670 , p7_a30 JTF_VARCHAR2_TABLE_200
1671 , p7_a31 JTF_VARCHAR2_TABLE_200
1672 , p7_a32 JTF_VARCHAR2_TABLE_200
1673 , p7_a33 JTF_VARCHAR2_TABLE_200
1674 , p7_a34 JTF_VARCHAR2_TABLE_200
1675 , p7_a35 JTF_VARCHAR2_TABLE_100
1676 , p7_a36 JTF_NUMBER_TABLE
1677 )
1678
1679 as
1680 ddp_nodes_tbl ahl_mc_node_pvt.node_tbl_type;
1681 ddindx binary_integer; indx binary_integer;
1682 begin
1683
1684 -- copy data to the local IN or IN-OUT args, if any
1685
1686
1687
1688
1689
1690
1691
1692 ahl_mc_node_pvt_w.rosetta_table_copy_in_p6(ddp_nodes_tbl, p7_a0
1693 , p7_a1
1694 , p7_a2
1695 , p7_a3
1696 , p7_a4
1697 , p7_a5
1698 , p7_a6
1699 , p7_a7
1700 , p7_a8
1701 , p7_a9
1702 , p7_a10
1703 , p7_a11
1704 , p7_a12
1705 , p7_a13
1706 , p7_a14
1707 , p7_a15
1708 , p7_a16
1709 , p7_a17
1710 , p7_a18
1711 , p7_a19
1712 , p7_a20
1713 , p7_a21
1714 , p7_a22
1715 , p7_a23
1716 , p7_a24
1717 , p7_a25
1718 , p7_a26
1719 , p7_a27
1720 , p7_a28
1721 , p7_a29
1722 , p7_a30
1723 , p7_a31
1724 , p7_a32
1725 , p7_a33
1726 , p7_a34
1727 , p7_a35
1728 , p7_a36
1729 );
1730
1731 -- here's the delegated call to the old PL/SQL routine
1732 ahl_mc_node_pvt.associate_item_group(p_api_version,
1733 p_init_msg_list,
1734 p_commit,
1735 p_validation_level,
1736 x_return_status,
1737 x_msg_count,
1738 x_msg_data,
1739 ddp_nodes_tbl);
1740
1741 -- copy data back from the local variables to OUT or IN-OUT args, if any
1742
1743
1744
1745
1746
1747
1748
1749 end;
1750
1751 end ahl_mc_node_pvt_w;