[Home] [Help]
PACKAGE BODY: APPS.AMS_IMPORT_XML_PVT_W
Source
1 package body ams_import_xml_pvt_w as
2 /* $Header: amswmixb.pls 120.1 2006/01/12 22:11 rmbhanda 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
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure rosetta_table_copy_in_p0(t out nocopy ams_import_xml_pvt.xml_element_key_set_type, a0 JTF_NUMBER_TABLE) as
23 ddindx binary_integer; indx binary_integer;
24 begin
25 if a0 is not null and a0.count > 0 then
26 if a0.count > 0 then
27 indx := a0.first;
28 ddindx := 1;
29 while true loop
30 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
31 ddindx := ddindx+1;
32 if a0.last =indx
33 then exit;
34 end if;
35 indx := a0.next(indx);
36 end loop;
37 end if;
38 end if;
39 end rosetta_table_copy_in_p0;
40 procedure rosetta_table_copy_out_p0(t ams_import_xml_pvt.xml_element_key_set_type, a0 out nocopy JTF_NUMBER_TABLE) as
41 ddindx binary_integer; indx binary_integer;
42 begin
43 if t is null or t.count = 0 then
44 a0 := JTF_NUMBER_TABLE();
45 else
46 a0 := JTF_NUMBER_TABLE();
47 if t.count > 0 then
48 a0.extend(t.count);
49 ddindx := t.first;
50 indx := 1;
51 while true loop
52 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
53 indx := indx+1;
54 if t.last =ddindx
55 then exit;
56 end if;
57 ddindx := t.next(ddindx);
58 end loop;
59 end if;
60 end if;
61 end rosetta_table_copy_out_p0;
62
63 procedure rosetta_table_copy_in_p1(t out nocopy ams_import_xml_pvt.xml_source_column_set_type, a0 JTF_VARCHAR2_TABLE_200) as
64 ddindx binary_integer; indx binary_integer;
65 begin
66 if a0 is not null and a0.count > 0 then
67 if a0.count > 0 then
68 indx := a0.first;
69 ddindx := 1;
70 while true loop
71 t(ddindx) := a0(indx);
72 ddindx := ddindx+1;
73 if a0.last =indx
74 then exit;
75 end if;
76 indx := a0.next(indx);
77 end loop;
78 end if;
79 end if;
80 end rosetta_table_copy_in_p1;
81 procedure rosetta_table_copy_out_p1(t ams_import_xml_pvt.xml_source_column_set_type, a0 out nocopy JTF_VARCHAR2_TABLE_200) as
82 ddindx binary_integer; indx binary_integer;
83 begin
84 if t is null or t.count = 0 then
85 a0 := JTF_VARCHAR2_TABLE_200();
86 else
87 a0 := JTF_VARCHAR2_TABLE_200();
88 if t.count > 0 then
89 a0.extend(t.count);
90 ddindx := t.first;
91 indx := 1;
92 while true loop
93 a0(indx) := t(ddindx);
94 indx := indx+1;
95 if t.last =ddindx
96 then exit;
97 end if;
98 ddindx := t.next(ddindx);
99 end loop;
100 end if;
101 end if;
102 end rosetta_table_copy_out_p1;
103
104 procedure rosetta_table_copy_in_p2(t out nocopy ams_import_xml_pvt.xml_target_column_set_type, a0 JTF_VARCHAR2_TABLE_100) as
105 ddindx binary_integer; indx binary_integer;
106 begin
107 if a0 is not null and a0.count > 0 then
108 if a0.count > 0 then
109 indx := a0.first;
110 ddindx := 1;
111 while true loop
112 t(ddindx) := a0(indx);
113 ddindx := ddindx+1;
114 if a0.last =indx
115 then exit;
116 end if;
117 indx := a0.next(indx);
118 end loop;
119 end if;
120 end if;
121 end rosetta_table_copy_in_p2;
122 procedure rosetta_table_copy_out_p2(t ams_import_xml_pvt.xml_target_column_set_type, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
123 ddindx binary_integer; indx binary_integer;
124 begin
125 if t is null or t.count = 0 then
126 a0 := JTF_VARCHAR2_TABLE_100();
127 else
128 a0 := JTF_VARCHAR2_TABLE_100();
129 if t.count > 0 then
130 a0.extend(t.count);
131 ddindx := t.first;
132 indx := 1;
133 while true loop
134 a0(indx) := t(ddindx);
135 indx := indx+1;
136 if t.last =ddindx
137 then exit;
138 end if;
139 ddindx := t.next(ddindx);
140 end loop;
141 end if;
142 end if;
143 end rosetta_table_copy_out_p2;
144
145 procedure rosetta_table_copy_in_p3(t out nocopy ams_import_xml_pvt.xml_element_set_type, a0 JTF_NUMBER_TABLE
146 , a1 JTF_DATE_TABLE
147 , a2 JTF_NUMBER_TABLE
148 , a3 JTF_DATE_TABLE
149 , a4 JTF_NUMBER_TABLE
150 , a5 JTF_NUMBER_TABLE
151 , a6 JTF_NUMBER_TABLE
152 , a7 JTF_NUMBER_TABLE
153 , a8 JTF_NUMBER_TABLE
154 , a9 JTF_NUMBER_TABLE
155 , a10 JTF_VARCHAR2_TABLE_2000
156 , a11 JTF_VARCHAR2_TABLE_2000
157 , a12 JTF_NUMBER_TABLE
158 , a13 JTF_VARCHAR2_TABLE_100
159 , a14 JTF_VARCHAR2_TABLE_100
160 , a15 JTF_VARCHAR2_TABLE_4000
161 ) as
162 ddindx binary_integer; indx binary_integer;
163 begin
164 if a0 is not null and a0.count > 0 then
165 if a0.count > 0 then
166 indx := a0.first;
167 ddindx := 1;
168 while true loop
169 t(ddindx).imp_xml_element_id := rosetta_g_miss_num_map(a0(indx));
170 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a1(indx));
171 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a2(indx));
172 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a3(indx));
173 t(ddindx).created_by := rosetta_g_miss_num_map(a4(indx));
174 t(ddindx).last_update_login := rosetta_g_miss_num_map(a5(indx));
175 t(ddindx).object_version_number := rosetta_g_miss_num_map(a6(indx));
176 t(ddindx).imp_xml_document_id := rosetta_g_miss_num_map(a7(indx));
177 t(ddindx).order_initial := rosetta_g_miss_num_map(a8(indx));
178 t(ddindx).order_final := rosetta_g_miss_num_map(a9(indx));
179 t(ddindx).column_name := a10(indx);
180 t(ddindx).data := a11(indx);
181 t(ddindx).num_attr := rosetta_g_miss_num_map(a12(indx));
182 t(ddindx).data_type := a13(indx);
183 t(ddindx).load_status := a14(indx);
184 t(ddindx).error_text := a15(indx);
185 ddindx := ddindx+1;
186 if a0.last =indx
187 then exit;
188 end if;
189 indx := a0.next(indx);
190 end loop;
191 end if;
192 end if;
193 end rosetta_table_copy_in_p3;
194 procedure rosetta_table_copy_out_p3(t ams_import_xml_pvt.xml_element_set_type, a0 out nocopy JTF_NUMBER_TABLE
195 , a1 out nocopy JTF_DATE_TABLE
196 , a2 out nocopy JTF_NUMBER_TABLE
197 , a3 out nocopy JTF_DATE_TABLE
198 , a4 out nocopy JTF_NUMBER_TABLE
199 , a5 out nocopy JTF_NUMBER_TABLE
200 , a6 out nocopy JTF_NUMBER_TABLE
201 , a7 out nocopy JTF_NUMBER_TABLE
202 , a8 out nocopy JTF_NUMBER_TABLE
203 , a9 out nocopy JTF_NUMBER_TABLE
204 , a10 out nocopy JTF_VARCHAR2_TABLE_2000
205 , a11 out nocopy JTF_VARCHAR2_TABLE_2000
206 , a12 out nocopy JTF_NUMBER_TABLE
207 , a13 out nocopy JTF_VARCHAR2_TABLE_100
208 , a14 out nocopy JTF_VARCHAR2_TABLE_100
209 , a15 out nocopy JTF_VARCHAR2_TABLE_4000
210 ) as
211 ddindx binary_integer; indx binary_integer;
212 begin
213 if t is null or t.count = 0 then
214 a0 := JTF_NUMBER_TABLE();
215 a1 := JTF_DATE_TABLE();
216 a2 := JTF_NUMBER_TABLE();
217 a3 := JTF_DATE_TABLE();
218 a4 := JTF_NUMBER_TABLE();
219 a5 := JTF_NUMBER_TABLE();
220 a6 := JTF_NUMBER_TABLE();
221 a7 := JTF_NUMBER_TABLE();
222 a8 := JTF_NUMBER_TABLE();
223 a9 := JTF_NUMBER_TABLE();
224 a10 := JTF_VARCHAR2_TABLE_2000();
225 a11 := JTF_VARCHAR2_TABLE_2000();
226 a12 := JTF_NUMBER_TABLE();
227 a13 := JTF_VARCHAR2_TABLE_100();
228 a14 := JTF_VARCHAR2_TABLE_100();
229 a15 := JTF_VARCHAR2_TABLE_4000();
230 else
231 a0 := JTF_NUMBER_TABLE();
232 a1 := JTF_DATE_TABLE();
233 a2 := JTF_NUMBER_TABLE();
234 a3 := JTF_DATE_TABLE();
235 a4 := JTF_NUMBER_TABLE();
236 a5 := JTF_NUMBER_TABLE();
237 a6 := JTF_NUMBER_TABLE();
238 a7 := JTF_NUMBER_TABLE();
239 a8 := JTF_NUMBER_TABLE();
240 a9 := JTF_NUMBER_TABLE();
241 a10 := JTF_VARCHAR2_TABLE_2000();
242 a11 := JTF_VARCHAR2_TABLE_2000();
243 a12 := JTF_NUMBER_TABLE();
244 a13 := JTF_VARCHAR2_TABLE_100();
245 a14 := JTF_VARCHAR2_TABLE_100();
246 a15 := JTF_VARCHAR2_TABLE_4000();
247 if t.count > 0 then
248 a0.extend(t.count);
249 a1.extend(t.count);
250 a2.extend(t.count);
251 a3.extend(t.count);
252 a4.extend(t.count);
253 a5.extend(t.count);
254 a6.extend(t.count);
255 a7.extend(t.count);
256 a8.extend(t.count);
257 a9.extend(t.count);
258 a10.extend(t.count);
259 a11.extend(t.count);
260 a12.extend(t.count);
261 a13.extend(t.count);
262 a14.extend(t.count);
263 a15.extend(t.count);
264 ddindx := t.first;
265 indx := 1;
266 while true loop
267 a0(indx) := rosetta_g_miss_num_map(t(ddindx).imp_xml_element_id);
268 a1(indx) := t(ddindx).last_update_date;
269 a2(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
270 a3(indx) := t(ddindx).creation_date;
271 a4(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
272 a5(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
273 a6(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
274 a7(indx) := rosetta_g_miss_num_map(t(ddindx).imp_xml_document_id);
275 a8(indx) := rosetta_g_miss_num_map(t(ddindx).order_initial);
276 a9(indx) := rosetta_g_miss_num_map(t(ddindx).order_final);
277 a10(indx) := t(ddindx).column_name;
278 a11(indx) := t(ddindx).data;
279 a12(indx) := rosetta_g_miss_num_map(t(ddindx).num_attr);
280 a13(indx) := t(ddindx).data_type;
281 a14(indx) := t(ddindx).load_status;
282 a15(indx) := t(ddindx).error_text;
283 indx := indx+1;
284 if t.last =ddindx
285 then exit;
286 end if;
287 ddindx := t.next(ddindx);
288 end loop;
289 end if;
290 end if;
291 end rosetta_table_copy_out_p3;
292
293 procedure is_leaf_node(p_imp_xml_element_id NUMBER
294 , x_return_status out nocopy VARCHAR2
295 , x_msg_data out nocopy VARCHAR2
296 , ddrosetta_retval_bool OUT NOCOPY NUMBER
297 )
298
299 as
300 ddindx binary_integer; indx binary_integer;
301 ddrosetta_retval boolean;
302 begin
303
304 -- copy data to the local IN or IN-OUT args, if any
305
306
307
308 -- here's the delegated call to the old PL/SQL routine
309 ddrosetta_retval := ams_import_xml_pvt.is_leaf_node(p_imp_xml_element_id,
310 x_return_status,
311 x_msg_data);
312
313 -- copy data back from the local variables to OUT or IN-OUT args, if any
314 if ddrosetta_retval is null
315 then ddrosetta_retval_bool := null;
316 elsif ddrosetta_retval
317 then ddrosetta_retval_bool := 1;
318 else ddrosetta_retval_bool := 0;
319 end if;
320
321
322 end;
323
324 procedure get_root_node(p_import_list_header_id NUMBER
325 , p1_a0 out nocopy NUMBER
326 , p1_a1 out nocopy DATE
327 , p1_a2 out nocopy NUMBER
328 , p1_a3 out nocopy DATE
329 , p1_a4 out nocopy NUMBER
330 , p1_a5 out nocopy NUMBER
331 , p1_a6 out nocopy NUMBER
332 , p1_a7 out nocopy NUMBER
333 , p1_a8 out nocopy NUMBER
334 , p1_a9 out nocopy NUMBER
335 , p1_a10 out nocopy VARCHAR2
336 , p1_a11 out nocopy VARCHAR2
337 , p1_a12 out nocopy NUMBER
338 , p1_a13 out nocopy VARCHAR2
339 , p1_a14 out nocopy VARCHAR2
340 , p1_a15 out nocopy VARCHAR2
341 , x_return_status out nocopy VARCHAR2
342 , x_msg_data out nocopy VARCHAR2
343 )
344
345 as
346 ddx_node_rec ams_imp_xml_elements%rowtype;
347 ddindx binary_integer; indx binary_integer;
348 begin
349
350 -- copy data to the local IN or IN-OUT args, if any
351
352
353
354
355 -- here's the delegated call to the old PL/SQL routine
356 ams_import_xml_pvt.get_root_node(p_import_list_header_id,
357 ddx_node_rec,
358 x_return_status,
359 x_msg_data);
360
361 -- copy data back from the local variables to OUT or IN-OUT args, if any
362
363 p1_a0 := rosetta_g_miss_num_map(ddx_node_rec.imp_xml_element_id);
364 p1_a1 := ddx_node_rec.last_update_date;
365 p1_a2 := rosetta_g_miss_num_map(ddx_node_rec.last_updated_by);
366 p1_a3 := ddx_node_rec.creation_date;
367 p1_a4 := rosetta_g_miss_num_map(ddx_node_rec.created_by);
368 p1_a5 := rosetta_g_miss_num_map(ddx_node_rec.last_update_login);
369 p1_a6 := rosetta_g_miss_num_map(ddx_node_rec.object_version_number);
370 p1_a7 := rosetta_g_miss_num_map(ddx_node_rec.imp_xml_document_id);
371 p1_a8 := rosetta_g_miss_num_map(ddx_node_rec.order_initial);
372 p1_a9 := rosetta_g_miss_num_map(ddx_node_rec.order_final);
373 p1_a10 := ddx_node_rec.column_name;
374 p1_a11 := ddx_node_rec.data;
375 p1_a12 := rosetta_g_miss_num_map(ddx_node_rec.num_attr);
376 p1_a13 := ddx_node_rec.data_type;
377 p1_a14 := ddx_node_rec.load_status;
378 p1_a15 := ddx_node_rec.error_text;
379
380
381 end;
382
383 procedure get_parent_node(p_imp_xml_element_id NUMBER
384 , p1_a0 out nocopy NUMBER
385 , p1_a1 out nocopy DATE
386 , p1_a2 out nocopy NUMBER
387 , p1_a3 out nocopy DATE
388 , p1_a4 out nocopy NUMBER
389 , p1_a5 out nocopy NUMBER
390 , p1_a6 out nocopy NUMBER
391 , p1_a7 out nocopy NUMBER
392 , p1_a8 out nocopy NUMBER
393 , p1_a9 out nocopy NUMBER
394 , p1_a10 out nocopy VARCHAR2
395 , p1_a11 out nocopy VARCHAR2
396 , p1_a12 out nocopy NUMBER
397 , p1_a13 out nocopy VARCHAR2
398 , p1_a14 out nocopy VARCHAR2
399 , p1_a15 out nocopy VARCHAR2
400 , x_return_status out nocopy VARCHAR2
401 , x_msg_data out nocopy VARCHAR2
402 )
403
404 as
405 ddx_node_rec ams_imp_xml_elements%rowtype;
406 ddindx binary_integer; indx binary_integer;
407 begin
408
409 -- copy data to the local IN or IN-OUT args, if any
410
411
412
413
414 -- here's the delegated call to the old PL/SQL routine
415 ams_import_xml_pvt.get_parent_node(p_imp_xml_element_id,
416 ddx_node_rec,
417 x_return_status,
418 x_msg_data);
419
420 -- copy data back from the local variables to OUT or IN-OUT args, if any
421
422 p1_a0 := rosetta_g_miss_num_map(ddx_node_rec.imp_xml_element_id);
426 p1_a4 := rosetta_g_miss_num_map(ddx_node_rec.created_by);
423 p1_a1 := ddx_node_rec.last_update_date;
424 p1_a2 := rosetta_g_miss_num_map(ddx_node_rec.last_updated_by);
425 p1_a3 := ddx_node_rec.creation_date;
427 p1_a5 := rosetta_g_miss_num_map(ddx_node_rec.last_update_login);
428 p1_a6 := rosetta_g_miss_num_map(ddx_node_rec.object_version_number);
429 p1_a7 := rosetta_g_miss_num_map(ddx_node_rec.imp_xml_document_id);
430 p1_a8 := rosetta_g_miss_num_map(ddx_node_rec.order_initial);
431 p1_a9 := rosetta_g_miss_num_map(ddx_node_rec.order_final);
432 p1_a10 := ddx_node_rec.column_name;
433 p1_a11 := ddx_node_rec.data;
434 p1_a12 := rosetta_g_miss_num_map(ddx_node_rec.num_attr);
435 p1_a13 := ddx_node_rec.data_type;
436 p1_a14 := ddx_node_rec.load_status;
437 p1_a15 := ddx_node_rec.error_text;
438
439
440 end;
441
442 procedure get_first_child_node(p_imp_xml_element_id NUMBER
443 , p1_a0 out nocopy NUMBER
444 , p1_a1 out nocopy DATE
445 , p1_a2 out nocopy NUMBER
446 , p1_a3 out nocopy DATE
447 , p1_a4 out nocopy NUMBER
448 , p1_a5 out nocopy NUMBER
449 , p1_a6 out nocopy NUMBER
450 , p1_a7 out nocopy NUMBER
451 , p1_a8 out nocopy NUMBER
452 , p1_a9 out nocopy NUMBER
453 , p1_a10 out nocopy VARCHAR2
454 , p1_a11 out nocopy VARCHAR2
455 , p1_a12 out nocopy NUMBER
456 , p1_a13 out nocopy VARCHAR2
457 , p1_a14 out nocopy VARCHAR2
458 , p1_a15 out nocopy VARCHAR2
459 , x_return_status out nocopy VARCHAR2
460 , x_msg_data out nocopy VARCHAR2
461 )
462
463 as
464 ddx_node_rec ams_imp_xml_elements%rowtype;
465 ddindx binary_integer; indx binary_integer;
466 begin
467
468 -- copy data to the local IN or IN-OUT args, if any
469
470
471
472
473 -- here's the delegated call to the old PL/SQL routine
474 ams_import_xml_pvt.get_first_child_node(p_imp_xml_element_id,
475 ddx_node_rec,
476 x_return_status,
477 x_msg_data);
478
479 -- copy data back from the local variables to OUT or IN-OUT args, if any
480
481 p1_a0 := rosetta_g_miss_num_map(ddx_node_rec.imp_xml_element_id);
482 p1_a1 := ddx_node_rec.last_update_date;
483 p1_a2 := rosetta_g_miss_num_map(ddx_node_rec.last_updated_by);
484 p1_a3 := ddx_node_rec.creation_date;
485 p1_a4 := rosetta_g_miss_num_map(ddx_node_rec.created_by);
486 p1_a5 := rosetta_g_miss_num_map(ddx_node_rec.last_update_login);
487 p1_a6 := rosetta_g_miss_num_map(ddx_node_rec.object_version_number);
488 p1_a7 := rosetta_g_miss_num_map(ddx_node_rec.imp_xml_document_id);
489 p1_a8 := rosetta_g_miss_num_map(ddx_node_rec.order_initial);
490 p1_a9 := rosetta_g_miss_num_map(ddx_node_rec.order_final);
491 p1_a10 := ddx_node_rec.column_name;
492 p1_a11 := ddx_node_rec.data;
493 p1_a12 := rosetta_g_miss_num_map(ddx_node_rec.num_attr);
494 p1_a13 := ddx_node_rec.data_type;
495 p1_a14 := ddx_node_rec.load_status;
496 p1_a15 := ddx_node_rec.error_text;
497
498
499 end;
500
501 procedure get_next_sibling_node(p_imp_xml_element_id NUMBER
502 , p1_a0 out nocopy NUMBER
503 , p1_a1 out nocopy DATE
504 , p1_a2 out nocopy NUMBER
505 , p1_a3 out nocopy DATE
506 , p1_a4 out nocopy NUMBER
507 , p1_a5 out nocopy NUMBER
508 , p1_a6 out nocopy NUMBER
509 , p1_a7 out nocopy NUMBER
510 , p1_a8 out nocopy NUMBER
511 , p1_a9 out nocopy NUMBER
512 , p1_a10 out nocopy VARCHAR2
513 , p1_a11 out nocopy VARCHAR2
514 , p1_a12 out nocopy NUMBER
515 , p1_a13 out nocopy VARCHAR2
516 , p1_a14 out nocopy VARCHAR2
517 , p1_a15 out nocopy VARCHAR2
518 , x_return_status out nocopy VARCHAR2
519 , x_msg_data out nocopy VARCHAR2
520 )
521
522 as
523 ddx_node_rec ams_imp_xml_elements%rowtype;
524 ddindx binary_integer; indx binary_integer;
525 begin
526
527 -- copy data to the local IN or IN-OUT args, if any
528
529
530
531
532 -- here's the delegated call to the old PL/SQL routine
533 ams_import_xml_pvt.get_next_sibling_node(p_imp_xml_element_id,
534 ddx_node_rec,
535 x_return_status,
536 x_msg_data);
537
538 -- copy data back from the local variables to OUT or IN-OUT args, if any
539
540 p1_a0 := rosetta_g_miss_num_map(ddx_node_rec.imp_xml_element_id);
541 p1_a1 := ddx_node_rec.last_update_date;
542 p1_a2 := rosetta_g_miss_num_map(ddx_node_rec.last_updated_by);
543 p1_a3 := ddx_node_rec.creation_date;
544 p1_a4 := rosetta_g_miss_num_map(ddx_node_rec.created_by);
545 p1_a5 := rosetta_g_miss_num_map(ddx_node_rec.last_update_login);
546 p1_a6 := rosetta_g_miss_num_map(ddx_node_rec.object_version_number);
547 p1_a7 := rosetta_g_miss_num_map(ddx_node_rec.imp_xml_document_id);
548 p1_a8 := rosetta_g_miss_num_map(ddx_node_rec.order_initial);
549 p1_a9 := rosetta_g_miss_num_map(ddx_node_rec.order_final);
550 p1_a10 := ddx_node_rec.column_name;
551 p1_a11 := ddx_node_rec.data;
552 p1_a12 := rosetta_g_miss_num_map(ddx_node_rec.num_attr);
553 p1_a13 := ddx_node_rec.data_type;
554 p1_a14 := ddx_node_rec.load_status;
555 p1_a15 := ddx_node_rec.error_text;
556
557
558 end;
559
560 procedure get_children_nodes(p_imp_xml_element_id NUMBER
561 , x_child_ids out nocopy JTF_NUMBER_TABLE
562 , x_return_status out nocopy VARCHAR2
563 , x_msg_data out nocopy VARCHAR2
564 )
565
566 as
567 ddx_child_ids ams_import_xml_pvt.xml_element_key_set_type;
568 ddindx binary_integer; indx binary_integer;
569 begin
570
571 -- copy data to the local IN or IN-OUT args, if any
572
573
574
575
576 -- here's the delegated call to the old PL/SQL routine
577 ams_import_xml_pvt.get_children_nodes(p_imp_xml_element_id,
578 ddx_child_ids,
579 x_return_status,
580 x_msg_data);
581
582 -- copy data back from the local variables to OUT or IN-OUT args, if any
583
584 ams_import_xml_pvt_w.rosetta_table_copy_out_p0(ddx_child_ids, x_child_ids);
585
586
587 end;
588
589 procedure get_children_nodes(p_imp_xml_element_id NUMBER
590 , p1_a0 out nocopy JTF_NUMBER_TABLE
591 , p1_a1 out nocopy JTF_DATE_TABLE
592 , p1_a2 out nocopy JTF_NUMBER_TABLE
593 , p1_a3 out nocopy JTF_DATE_TABLE
594 , p1_a4 out nocopy JTF_NUMBER_TABLE
595 , p1_a5 out nocopy JTF_NUMBER_TABLE
596 , p1_a6 out nocopy JTF_NUMBER_TABLE
597 , p1_a7 out nocopy JTF_NUMBER_TABLE
598 , p1_a8 out nocopy JTF_NUMBER_TABLE
599 , p1_a9 out nocopy JTF_NUMBER_TABLE
600 , p1_a10 out nocopy JTF_VARCHAR2_TABLE_2000
601 , p1_a11 out nocopy JTF_VARCHAR2_TABLE_2000
602 , p1_a12 out nocopy JTF_NUMBER_TABLE
603 , p1_a13 out nocopy JTF_VARCHAR2_TABLE_100
604 , p1_a14 out nocopy JTF_VARCHAR2_TABLE_100
605 , p1_a15 out nocopy JTF_VARCHAR2_TABLE_4000
606 , x_return_status out nocopy VARCHAR2
607 , x_msg_data out nocopy VARCHAR2
608 )
609
610 as
611 ddx_child_set ams_import_xml_pvt.xml_element_set_type;
612 ddindx binary_integer; indx binary_integer;
613 begin
614
615 -- copy data to the local IN or IN-OUT args, if any
616
617
618
619
620 -- here's the delegated call to the old PL/SQL routine
621 ams_import_xml_pvt.get_children_nodes(p_imp_xml_element_id,
622 ddx_child_set,
623 x_return_status,
624 x_msg_data);
625
626 -- copy data back from the local variables to OUT or IN-OUT args, if any
627
628 ams_import_xml_pvt_w.rosetta_table_copy_out_p3(ddx_child_set, p1_a0
629 , p1_a1
630 , p1_a2
631 , p1_a3
632 , p1_a4
633 , p1_a5
634 , p1_a6
635 , p1_a7
636 , p1_a8
637 , p1_a9
638 , p1_a10
639 , p1_a11
640 , p1_a12
641 , p1_a13
642 , p1_a14
643 , p1_a15
644 );
645
646
647 end;
648
649 end ams_import_xml_pvt_w;