[Home] [Help]
PACKAGE BODY: APPS.AMS_XML_ELEMENT_PVT_W
Source
1 package body ams_xml_element_pvt_w as
2 /* $Header: amswxelb.pls 115.4 2002/11/14 01:24:11 jieli 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 AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
6 AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
7 AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
8
9
10 function rosetta_g_miss_num_map(n number) return number as
11 a number := fnd_api.g_miss_num;
12 b number := 0-1962.0724;
13 begin
14 if n=a then return b; end if;
15 if n=b then return a; end if;
16 return n;
17 end;
18
19 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
20 function rosetta_g_miss_date_in_map(d date) return date as
21 begin
22 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
23 return d;
24 end;
25
26 procedure rosetta_table_copy_in_p1(t OUT NOCOPY ams_xml_element_pvt.num_data_set_type_w, a0 JTF_NUMBER_TABLE) as
27 ddindx binary_integer; indx binary_integer;
28 begin
29 if a0 is not null and a0.count > 0 then
30 if a0.count > 0 then
31 indx := a0.first;
32 ddindx := 1;
33 while true loop
34 t(ddindx) := a0(indx);
35 ddindx := ddindx+1;
36 if a0.last =indx
37 then exit;
38 end if;
39 indx := a0.next(indx);
40 end loop;
41 end if;
42 end if;
43 end rosetta_table_copy_in_p1;
44 procedure rosetta_table_copy_out_p1(t ams_xml_element_pvt.num_data_set_type_w, a0 OUT NOCOPY JTF_NUMBER_TABLE) as
45 ddindx binary_integer; indx binary_integer;
46 begin
47 if t is null or t.count = 0 then
48 a0 := JTF_NUMBER_TABLE();
49 else
50 a0 := JTF_NUMBER_TABLE();
51 if t.count > 0 then
52 a0.extend(t.count);
53 ddindx := t.first;
54 indx := 1;
55 while true loop
56 a0(indx) := t(ddindx);
57 indx := indx+1;
58 if t.last =ddindx
59 then exit;
60 end if;
61 ddindx := t.next(ddindx);
62 end loop;
63 end if;
64 end if;
65 end rosetta_table_copy_out_p1;
66
67 procedure rosetta_table_copy_in_p2(t OUT NOCOPY ams_xml_element_pvt.varchar2_2000_set_type, a0 JTF_VARCHAR2_TABLE_2000) as
68 ddindx binary_integer; indx binary_integer;
69 begin
70 if a0 is not null and a0.count > 0 then
71 if a0.count > 0 then
72 indx := a0.first;
73 ddindx := 1;
74 while true loop
75 t(ddindx) := a0(indx);
76 ddindx := ddindx+1;
77 if a0.last =indx
78 then exit;
79 end if;
80 indx := a0.next(indx);
81 end loop;
82 end if;
83 end if;
84 end rosetta_table_copy_in_p2;
85 procedure rosetta_table_copy_out_p2(t ams_xml_element_pvt.varchar2_2000_set_type, a0 OUT NOCOPY JTF_VARCHAR2_TABLE_2000) as
86 ddindx binary_integer; indx binary_integer;
87 begin
88 if t is null or t.count = 0 then
89 a0 := JTF_VARCHAR2_TABLE_2000();
90 else
91 a0 := JTF_VARCHAR2_TABLE_2000();
92 if t.count > 0 then
93 a0.extend(t.count);
94 ddindx := t.first;
95 indx := 1;
96 while true loop
97 a0(indx) := t(ddindx);
98 indx := indx+1;
99 if t.last =ddindx
100 then exit;
101 end if;
102 ddindx := t.next(ddindx);
103 end loop;
104 end if;
105 end if;
106 end rosetta_table_copy_out_p2;
107
108 procedure rosetta_table_copy_in_p5(t OUT NOCOPY ams_xml_element_pvt.xml_element_tbl_type, a0 JTF_NUMBER_TABLE
109 , a1 JTF_NUMBER_TABLE
110 , a2 JTF_NUMBER_TABLE
111 , a3 JTF_NUMBER_TABLE
112 , a4 JTF_NUMBER_TABLE
113 , a5 JTF_DATE_TABLE
114 , a6 JTF_DATE_TABLE
115 , a7 JTF_NUMBER_TABLE
116 , a8 JTF_NUMBER_TABLE
117 , a9 JTF_NUMBER_TABLE
118 , a10 JTF_VARCHAR2_TABLE_2000
119 , a11 JTF_VARCHAR2_TABLE_2000
120 , a12 JTF_NUMBER_TABLE
121 , a13 JTF_VARCHAR2_TABLE_100
122 , a14 JTF_VARCHAR2_TABLE_100
123 , a15 JTF_VARCHAR2_TABLE_300
124 ) as
125 ddindx binary_integer; indx binary_integer;
126 begin
127 if a0 is not null and a0.count > 0 then
128 if a0.count > 0 then
129 indx := a0.first;
130 ddindx := 1;
131 while true loop
132 t(ddindx).imp_xml_element_id := rosetta_g_miss_num_map(a0(indx));
133 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a1(indx));
134 t(ddindx).object_version_number := rosetta_g_miss_num_map(a2(indx));
135 t(ddindx).created_by := rosetta_g_miss_num_map(a3(indx));
136 t(ddindx).last_update_login := rosetta_g_miss_num_map(a4(indx));
137 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a5(indx));
138 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a6(indx));
139 t(ddindx).imp_xml_document_id := rosetta_g_miss_num_map(a7(indx));
140 t(ddindx).order_initial := rosetta_g_miss_num_map(a8(indx));
141 t(ddindx).order_final := rosetta_g_miss_num_map(a9(indx));
142 t(ddindx).column_name := a10(indx);
143 t(ddindx).data := a11(indx);
144 t(ddindx).num_attr := rosetta_g_miss_num_map(a12(indx));
145 t(ddindx).data_type := a13(indx);
146 t(ddindx).load_status := a14(indx);
147 t(ddindx).error_text := a15(indx);
148 ddindx := ddindx+1;
149 if a0.last =indx
150 then exit;
151 end if;
152 indx := a0.next(indx);
153 end loop;
154 end if;
155 end if;
156 end rosetta_table_copy_in_p5;
157 procedure rosetta_table_copy_out_p5(t ams_xml_element_pvt.xml_element_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE
158 , a1 OUT NOCOPY JTF_NUMBER_TABLE
159 , a2 OUT NOCOPY JTF_NUMBER_TABLE
160 , a3 OUT NOCOPY JTF_NUMBER_TABLE
161 , a4 OUT NOCOPY JTF_NUMBER_TABLE
162 , a5 OUT NOCOPY JTF_DATE_TABLE
163 , a6 OUT NOCOPY JTF_DATE_TABLE
164 , a7 OUT NOCOPY JTF_NUMBER_TABLE
165 , a8 OUT NOCOPY JTF_NUMBER_TABLE
166 , a9 OUT NOCOPY JTF_NUMBER_TABLE
167 , a10 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
168 , a11 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
169 , a12 OUT NOCOPY JTF_NUMBER_TABLE
170 , a13 OUT NOCOPY JTF_VARCHAR2_TABLE_100
171 , a14 OUT NOCOPY JTF_VARCHAR2_TABLE_100
172 , a15 OUT NOCOPY JTF_VARCHAR2_TABLE_300
173 ) as
174 ddindx binary_integer; indx binary_integer;
175 begin
176 if t is null or t.count = 0 then
177 a0 := JTF_NUMBER_TABLE();
178 a1 := JTF_NUMBER_TABLE();
179 a2 := JTF_NUMBER_TABLE();
180 a3 := JTF_NUMBER_TABLE();
181 a4 := JTF_NUMBER_TABLE();
182 a5 := JTF_DATE_TABLE();
183 a6 := JTF_DATE_TABLE();
184 a7 := JTF_NUMBER_TABLE();
185 a8 := JTF_NUMBER_TABLE();
186 a9 := JTF_NUMBER_TABLE();
187 a10 := JTF_VARCHAR2_TABLE_2000();
188 a11 := JTF_VARCHAR2_TABLE_2000();
189 a12 := JTF_NUMBER_TABLE();
190 a13 := JTF_VARCHAR2_TABLE_100();
191 a14 := JTF_VARCHAR2_TABLE_100();
192 a15 := JTF_VARCHAR2_TABLE_300();
193 else
194 a0 := JTF_NUMBER_TABLE();
195 a1 := JTF_NUMBER_TABLE();
196 a2 := JTF_NUMBER_TABLE();
197 a3 := JTF_NUMBER_TABLE();
198 a4 := JTF_NUMBER_TABLE();
199 a5 := JTF_DATE_TABLE();
200 a6 := JTF_DATE_TABLE();
201 a7 := JTF_NUMBER_TABLE();
202 a8 := JTF_NUMBER_TABLE();
203 a9 := JTF_NUMBER_TABLE();
204 a10 := JTF_VARCHAR2_TABLE_2000();
205 a11 := JTF_VARCHAR2_TABLE_2000();
206 a12 := JTF_NUMBER_TABLE();
207 a13 := JTF_VARCHAR2_TABLE_100();
208 a14 := JTF_VARCHAR2_TABLE_100();
209 a15 := JTF_VARCHAR2_TABLE_300();
210 if t.count > 0 then
211 a0.extend(t.count);
212 a1.extend(t.count);
213 a2.extend(t.count);
214 a3.extend(t.count);
215 a4.extend(t.count);
216 a5.extend(t.count);
217 a6.extend(t.count);
218 a7.extend(t.count);
219 a8.extend(t.count);
220 a9.extend(t.count);
221 a10.extend(t.count);
222 a11.extend(t.count);
223 a12.extend(t.count);
224 a13.extend(t.count);
225 a14.extend(t.count);
226 a15.extend(t.count);
227 ddindx := t.first;
228 indx := 1;
229 while true loop
230 a0(indx) := rosetta_g_miss_num_map(t(ddindx).imp_xml_element_id);
231 a1(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
232 a2(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
233 a3(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
234 a4(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
235 a5(indx) := t(ddindx).last_update_date;
236 a6(indx) := t(ddindx).creation_date;
237 a7(indx) := rosetta_g_miss_num_map(t(ddindx).imp_xml_document_id);
238 a8(indx) := rosetta_g_miss_num_map(t(ddindx).order_initial);
239 a9(indx) := rosetta_g_miss_num_map(t(ddindx).order_final);
240 a10(indx) := t(ddindx).column_name;
241 a11(indx) := t(ddindx).data;
242 a12(indx) := rosetta_g_miss_num_map(t(ddindx).num_attr);
243 a13(indx) := t(ddindx).data_type;
244 a14(indx) := t(ddindx).load_status;
245 a15(indx) := t(ddindx).error_text;
246 indx := indx+1;
247 if t.last =ddindx
248 then exit;
249 end if;
250 ddindx := t.next(ddindx);
251 end loop;
252 end if;
253 end if;
254 end rosetta_table_copy_out_p5;
255
256 procedure create_xml_element(p_api_version_number NUMBER
257 , p_init_msg_list VARCHAR2
258 , p_commit VARCHAR2
259 , p_validation_level NUMBER
260 , x_return_status OUT NOCOPY VARCHAR2
261 , x_msg_count OUT NOCOPY NUMBER
262 , x_msg_data OUT NOCOPY VARCHAR2
263 , x_imp_xml_element_id OUT NOCOPY NUMBER
264 , p7_a0 NUMBER := 0-1962.0724
265 , p7_a1 NUMBER := 0-1962.0724
266 , p7_a2 NUMBER := 0-1962.0724
267 , p7_a3 NUMBER := 0-1962.0724
268 , p7_a4 NUMBER := 0-1962.0724
269 , p7_a5 DATE := fnd_api.g_miss_date
270 , p7_a6 DATE := fnd_api.g_miss_date
271 , p7_a7 NUMBER := 0-1962.0724
272 , p7_a8 NUMBER := 0-1962.0724
273 , p7_a9 NUMBER := 0-1962.0724
274 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
275 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
276 , p7_a12 NUMBER := 0-1962.0724
277 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
278 , p7_a14 VARCHAR2 := fnd_api.g_miss_char
279 , p7_a15 VARCHAR2 := fnd_api.g_miss_char
280 )
281 as
282 ddp_xml_element_rec ams_xml_element_pvt.xml_element_rec_type;
283 ddindx binary_integer; indx binary_integer;
284 begin
285
286 -- copy data to the local IN or IN-OUT args, if any
287
288
289
290
291
292
293
294 ddp_xml_element_rec.imp_xml_element_id := rosetta_g_miss_num_map(p7_a0);
295 ddp_xml_element_rec.last_updated_by := rosetta_g_miss_num_map(p7_a1);
296 ddp_xml_element_rec.object_version_number := rosetta_g_miss_num_map(p7_a2);
297 ddp_xml_element_rec.created_by := rosetta_g_miss_num_map(p7_a3);
298 ddp_xml_element_rec.last_update_login := rosetta_g_miss_num_map(p7_a4);
299 ddp_xml_element_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a5);
300 ddp_xml_element_rec.creation_date := rosetta_g_miss_date_in_map(p7_a6);
301 ddp_xml_element_rec.imp_xml_document_id := rosetta_g_miss_num_map(p7_a7);
302 ddp_xml_element_rec.order_initial := rosetta_g_miss_num_map(p7_a8);
303 ddp_xml_element_rec.order_final := rosetta_g_miss_num_map(p7_a9);
304 ddp_xml_element_rec.column_name := p7_a10;
305 ddp_xml_element_rec.data := p7_a11;
306 ddp_xml_element_rec.num_attr := rosetta_g_miss_num_map(p7_a12);
307 ddp_xml_element_rec.data_type := p7_a13;
308 ddp_xml_element_rec.load_status := p7_a14;
309 ddp_xml_element_rec.error_text := p7_a15;
310
311
312 -- here's the delegated call to the old PL/SQL routine
313 ams_xml_element_pvt.create_xml_element(p_api_version_number,
314 p_init_msg_list,
315 p_commit,
316 p_validation_level,
317 x_return_status,
318 x_msg_count,
319 x_msg_data,
320 ddp_xml_element_rec,
321 x_imp_xml_element_id);
322
323 -- copy data back from the local OUT or IN-OUT args, if any
324
325
326
327
328
329
330
331
332 end;
333
334 procedure update_error_xml_element(p_api_version_number NUMBER
335 , p_init_msg_list VARCHAR2
336 , p_commit VARCHAR2
337 , p_validation_level NUMBER
338 , p_xml_element_ids JTF_NUMBER_TABLE
339 , p_xml_elements_data JTF_VARCHAR2_TABLE_2000
340 , p_xml_elements_col_name JTF_VARCHAR2_TABLE_2000
341 , x_return_status OUT NOCOPY VARCHAR2
342 , x_msg_count OUT NOCOPY NUMBER
343 , x_msg_data OUT NOCOPY VARCHAR2
344 , x_object_version_number OUT NOCOPY NUMBER
345 , p4_a0 NUMBER := 0-1962.0724
346 , p4_a1 NUMBER := 0-1962.0724
347 , p4_a2 NUMBER := 0-1962.0724
348 , p4_a3 NUMBER := 0-1962.0724
349 , p4_a4 NUMBER := 0-1962.0724
350 , p4_a5 DATE := fnd_api.g_miss_date
351 , p4_a6 DATE := fnd_api.g_miss_date
352 , p4_a7 NUMBER := 0-1962.0724
353 , p4_a8 NUMBER := 0-1962.0724
354 , p4_a9 NUMBER := 0-1962.0724
355 , p4_a10 VARCHAR2 := fnd_api.g_miss_char
356 , p4_a11 VARCHAR2 := fnd_api.g_miss_char
357 , p4_a12 NUMBER := 0-1962.0724
358 , p4_a13 VARCHAR2 := fnd_api.g_miss_char
359 , p4_a14 VARCHAR2 := fnd_api.g_miss_char
360 , p4_a15 VARCHAR2 := fnd_api.g_miss_char
361 )
362 as
363 ddp_xml_element_rec ams_xml_element_pvt.xml_element_rec_type;
364 ddp_xml_element_ids ams_xml_element_pvt.num_data_set_type_w;
365 ddp_xml_elements_data ams_xml_element_pvt.varchar2_2000_set_type;
366 ddp_xml_elements_col_name ams_xml_element_pvt.varchar2_2000_set_type;
367 ddindx binary_integer; indx binary_integer;
368 begin
369
370 -- copy data to the local IN or IN-OUT args, if any
371
372
373
374
375 ddp_xml_element_rec.imp_xml_element_id := rosetta_g_miss_num_map(p4_a0);
379 ddp_xml_element_rec.last_update_login := rosetta_g_miss_num_map(p4_a4);
376 ddp_xml_element_rec.last_updated_by := rosetta_g_miss_num_map(p4_a1);
377 ddp_xml_element_rec.object_version_number := rosetta_g_miss_num_map(p4_a2);
378 ddp_xml_element_rec.created_by := rosetta_g_miss_num_map(p4_a3);
380 ddp_xml_element_rec.last_update_date := rosetta_g_miss_date_in_map(p4_a5);
381 ddp_xml_element_rec.creation_date := rosetta_g_miss_date_in_map(p4_a6);
382 ddp_xml_element_rec.imp_xml_document_id := rosetta_g_miss_num_map(p4_a7);
383 ddp_xml_element_rec.order_initial := rosetta_g_miss_num_map(p4_a8);
384 ddp_xml_element_rec.order_final := rosetta_g_miss_num_map(p4_a9);
385 ddp_xml_element_rec.column_name := p4_a10;
386 ddp_xml_element_rec.data := p4_a11;
387 ddp_xml_element_rec.num_attr := rosetta_g_miss_num_map(p4_a12);
388 ddp_xml_element_rec.data_type := p4_a13;
389 ddp_xml_element_rec.load_status := p4_a14;
390 ddp_xml_element_rec.error_text := p4_a15;
391
392 ams_xml_element_pvt_w.rosetta_table_copy_in_p1(ddp_xml_element_ids, p_xml_element_ids);
393
394 ams_xml_element_pvt_w.rosetta_table_copy_in_p2(ddp_xml_elements_data, p_xml_elements_data);
395
396 ams_xml_element_pvt_w.rosetta_table_copy_in_p2(ddp_xml_elements_col_name, p_xml_elements_col_name);
397
398
399
400
401
402 -- here's the delegated call to the old PL/SQL routine
403 ams_xml_element_pvt.update_error_xml_element(p_api_version_number,
404 p_init_msg_list,
405 p_commit,
406 p_validation_level,
407 ddp_xml_element_rec,
408 ddp_xml_element_ids,
409 ddp_xml_elements_data,
410 ddp_xml_elements_col_name,
411 x_return_status,
412 x_msg_count,
413 x_msg_data,
414 x_object_version_number);
415
416 -- copy data back from the local OUT or IN-OUT args, if any
417
418
419
420
421
422
423
424
425
426
427
428 end;
429
430 procedure update_xml_element(p_api_version_number NUMBER
431 , p_init_msg_list VARCHAR2
432 , p_commit VARCHAR2
433 , p_validation_level NUMBER
434 , x_return_status OUT NOCOPY VARCHAR2
435 , x_msg_count OUT NOCOPY NUMBER
436 , x_msg_data OUT NOCOPY VARCHAR2
437 , x_object_version_number OUT NOCOPY NUMBER
438 , p7_a0 NUMBER := 0-1962.0724
439 , p7_a1 NUMBER := 0-1962.0724
440 , p7_a2 NUMBER := 0-1962.0724
441 , p7_a3 NUMBER := 0-1962.0724
442 , p7_a4 NUMBER := 0-1962.0724
443 , p7_a5 DATE := fnd_api.g_miss_date
444 , p7_a6 DATE := fnd_api.g_miss_date
445 , p7_a7 NUMBER := 0-1962.0724
446 , p7_a8 NUMBER := 0-1962.0724
447 , p7_a9 NUMBER := 0-1962.0724
448 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
449 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
450 , p7_a12 NUMBER := 0-1962.0724
451 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
452 , p7_a14 VARCHAR2 := fnd_api.g_miss_char
453 , p7_a15 VARCHAR2 := fnd_api.g_miss_char
454 )
455 as
456 ddp_xml_element_rec ams_xml_element_pvt.xml_element_rec_type;
457 ddindx binary_integer; indx binary_integer;
458 begin
459
460 -- copy data to the local IN or IN-OUT args, if any
461
462
463
464
465
466
467
468 ddp_xml_element_rec.imp_xml_element_id := rosetta_g_miss_num_map(p7_a0);
469 ddp_xml_element_rec.last_updated_by := rosetta_g_miss_num_map(p7_a1);
470 ddp_xml_element_rec.object_version_number := rosetta_g_miss_num_map(p7_a2);
471 ddp_xml_element_rec.created_by := rosetta_g_miss_num_map(p7_a3);
472 ddp_xml_element_rec.last_update_login := rosetta_g_miss_num_map(p7_a4);
473 ddp_xml_element_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a5);
474 ddp_xml_element_rec.creation_date := rosetta_g_miss_date_in_map(p7_a6);
475 ddp_xml_element_rec.imp_xml_document_id := rosetta_g_miss_num_map(p7_a7);
476 ddp_xml_element_rec.order_initial := rosetta_g_miss_num_map(p7_a8);
477 ddp_xml_element_rec.order_final := rosetta_g_miss_num_map(p7_a9);
478 ddp_xml_element_rec.column_name := p7_a10;
479 ddp_xml_element_rec.data := p7_a11;
480 ddp_xml_element_rec.num_attr := rosetta_g_miss_num_map(p7_a12);
481 ddp_xml_element_rec.data_type := p7_a13;
482 ddp_xml_element_rec.load_status := p7_a14;
483 ddp_xml_element_rec.error_text := p7_a15;
484
488 p_init_msg_list,
485
486 -- here's the delegated call to the old PL/SQL routine
487 ams_xml_element_pvt.update_xml_element(p_api_version_number,
489 p_commit,
490 p_validation_level,
491 x_return_status,
492 x_msg_count,
493 x_msg_data,
494 ddp_xml_element_rec,
495 x_object_version_number);
496
497 -- copy data back from the local OUT or IN-OUT args, if any
498
499
500
501
502
503
504
505
506 end;
507
508 procedure validate_xml_element(p_api_version_number NUMBER
509 , p_init_msg_list VARCHAR2
510 , p_validation_level NUMBER
511 , p_validation_mode VARCHAR2
512 , x_return_status OUT NOCOPY VARCHAR2
513 , x_msg_count OUT NOCOPY NUMBER
514 , x_msg_data OUT NOCOPY VARCHAR2
515 , p3_a0 NUMBER := 0-1962.0724
516 , p3_a1 NUMBER := 0-1962.0724
517 , p3_a2 NUMBER := 0-1962.0724
518 , p3_a3 NUMBER := 0-1962.0724
519 , p3_a4 NUMBER := 0-1962.0724
520 , p3_a5 DATE := fnd_api.g_miss_date
521 , p3_a6 DATE := fnd_api.g_miss_date
522 , p3_a7 NUMBER := 0-1962.0724
523 , p3_a8 NUMBER := 0-1962.0724
524 , p3_a9 NUMBER := 0-1962.0724
525 , p3_a10 VARCHAR2 := fnd_api.g_miss_char
526 , p3_a11 VARCHAR2 := fnd_api.g_miss_char
527 , p3_a12 NUMBER := 0-1962.0724
528 , p3_a13 VARCHAR2 := fnd_api.g_miss_char
529 , p3_a14 VARCHAR2 := fnd_api.g_miss_char
530 , p3_a15 VARCHAR2 := fnd_api.g_miss_char
531 )
532 as
533 ddp_xml_element_rec ams_xml_element_pvt.xml_element_rec_type;
534 ddindx binary_integer; indx binary_integer;
535 begin
536
537 -- copy data to the local IN or IN-OUT args, if any
538
539
540
541 ddp_xml_element_rec.imp_xml_element_id := rosetta_g_miss_num_map(p3_a0);
542 ddp_xml_element_rec.last_updated_by := rosetta_g_miss_num_map(p3_a1);
543 ddp_xml_element_rec.object_version_number := rosetta_g_miss_num_map(p3_a2);
544 ddp_xml_element_rec.created_by := rosetta_g_miss_num_map(p3_a3);
545 ddp_xml_element_rec.last_update_login := rosetta_g_miss_num_map(p3_a4);
546 ddp_xml_element_rec.last_update_date := rosetta_g_miss_date_in_map(p3_a5);
547 ddp_xml_element_rec.creation_date := rosetta_g_miss_date_in_map(p3_a6);
548 ddp_xml_element_rec.imp_xml_document_id := rosetta_g_miss_num_map(p3_a7);
549 ddp_xml_element_rec.order_initial := rosetta_g_miss_num_map(p3_a8);
550 ddp_xml_element_rec.order_final := rosetta_g_miss_num_map(p3_a9);
551 ddp_xml_element_rec.column_name := p3_a10;
552 ddp_xml_element_rec.data := p3_a11;
553 ddp_xml_element_rec.num_attr := rosetta_g_miss_num_map(p3_a12);
554 ddp_xml_element_rec.data_type := p3_a13;
555 ddp_xml_element_rec.load_status := p3_a14;
556 ddp_xml_element_rec.error_text := p3_a15;
557
558
559
560
561
562 -- here's the delegated call to the old PL/SQL routine
563 ams_xml_element_pvt.validate_xml_element(p_api_version_number,
564 p_init_msg_list,
565 p_validation_level,
566 ddp_xml_element_rec,
567 p_validation_mode,
568 x_return_status,
569 x_msg_count,
570 x_msg_data);
571
572 -- copy data back from the local OUT or IN-OUT args, if any
573
574
575
576
577
578
579
580 end;
581
582 procedure check_xml_element_items(p_validation_mode VARCHAR2
583 , x_return_status OUT NOCOPY VARCHAR2
584 , p0_a0 NUMBER := 0-1962.0724
585 , p0_a1 NUMBER := 0-1962.0724
586 , p0_a2 NUMBER := 0-1962.0724
587 , p0_a3 NUMBER := 0-1962.0724
588 , p0_a4 NUMBER := 0-1962.0724
589 , p0_a5 DATE := fnd_api.g_miss_date
590 , p0_a6 DATE := fnd_api.g_miss_date
591 , p0_a7 NUMBER := 0-1962.0724
592 , p0_a8 NUMBER := 0-1962.0724
593 , p0_a9 NUMBER := 0-1962.0724
594 , p0_a10 VARCHAR2 := fnd_api.g_miss_char
595 , p0_a11 VARCHAR2 := fnd_api.g_miss_char
596 , p0_a12 NUMBER := 0-1962.0724
597 , p0_a13 VARCHAR2 := fnd_api.g_miss_char
598 , p0_a14 VARCHAR2 := fnd_api.g_miss_char
599 , p0_a15 VARCHAR2 := fnd_api.g_miss_char
600 )
601 as
602 ddp_xml_element_rec ams_xml_element_pvt.xml_element_rec_type;
603 ddindx binary_integer; indx binary_integer;
604 begin
605
606 -- copy data to the local IN or IN-OUT args, if any
607 ddp_xml_element_rec.imp_xml_element_id := rosetta_g_miss_num_map(p0_a0);
608 ddp_xml_element_rec.last_updated_by := rosetta_g_miss_num_map(p0_a1);
609 ddp_xml_element_rec.object_version_number := rosetta_g_miss_num_map(p0_a2);
610 ddp_xml_element_rec.created_by := rosetta_g_miss_num_map(p0_a3);
611 ddp_xml_element_rec.last_update_login := rosetta_g_miss_num_map(p0_a4);
612 ddp_xml_element_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a5);
613 ddp_xml_element_rec.creation_date := rosetta_g_miss_date_in_map(p0_a6);
614 ddp_xml_element_rec.imp_xml_document_id := rosetta_g_miss_num_map(p0_a7);
615 ddp_xml_element_rec.order_initial := rosetta_g_miss_num_map(p0_a8);
616 ddp_xml_element_rec.order_final := rosetta_g_miss_num_map(p0_a9);
617 ddp_xml_element_rec.column_name := p0_a10;
618 ddp_xml_element_rec.data := p0_a11;
619 ddp_xml_element_rec.num_attr := rosetta_g_miss_num_map(p0_a12);
620 ddp_xml_element_rec.data_type := p0_a13;
621 ddp_xml_element_rec.load_status := p0_a14;
622 ddp_xml_element_rec.error_text := p0_a15;
623
624
625
626 -- here's the delegated call to the old PL/SQL routine
627 ams_xml_element_pvt.check_xml_element_items(ddp_xml_element_rec,
628 p_validation_mode,
629 x_return_status);
630
631 -- copy data back from the local OUT or IN-OUT args, if any
632
633
634 end;
635
636 procedure validate_xml_element_rec(p_api_version_number NUMBER
637 , p_init_msg_list VARCHAR2
638 , x_return_status OUT NOCOPY VARCHAR2
639 , x_msg_count OUT NOCOPY NUMBER
640 , x_msg_data OUT NOCOPY VARCHAR2
641 , p5_a0 NUMBER := 0-1962.0724
642 , p5_a1 NUMBER := 0-1962.0724
643 , p5_a2 NUMBER := 0-1962.0724
644 , p5_a3 NUMBER := 0-1962.0724
645 , p5_a4 NUMBER := 0-1962.0724
646 , p5_a5 DATE := fnd_api.g_miss_date
647 , p5_a6 DATE := fnd_api.g_miss_date
648 , p5_a7 NUMBER := 0-1962.0724
649 , p5_a8 NUMBER := 0-1962.0724
650 , p5_a9 NUMBER := 0-1962.0724
651 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
652 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
653 , p5_a12 NUMBER := 0-1962.0724
654 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
655 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
656 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
657 )
658 as
659 ddp_xml_element_rec ams_xml_element_pvt.xml_element_rec_type;
660 ddindx binary_integer; indx binary_integer;
661 begin
662
663 -- copy data to the local IN or IN-OUT args, if any
664
665
666
667
668
669 ddp_xml_element_rec.imp_xml_element_id := rosetta_g_miss_num_map(p5_a0);
670 ddp_xml_element_rec.last_updated_by := rosetta_g_miss_num_map(p5_a1);
671 ddp_xml_element_rec.object_version_number := rosetta_g_miss_num_map(p5_a2);
672 ddp_xml_element_rec.created_by := rosetta_g_miss_num_map(p5_a3);
673 ddp_xml_element_rec.last_update_login := rosetta_g_miss_num_map(p5_a4);
674 ddp_xml_element_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a5);
675 ddp_xml_element_rec.creation_date := rosetta_g_miss_date_in_map(p5_a6);
676 ddp_xml_element_rec.imp_xml_document_id := rosetta_g_miss_num_map(p5_a7);
677 ddp_xml_element_rec.order_initial := rosetta_g_miss_num_map(p5_a8);
678 ddp_xml_element_rec.order_final := rosetta_g_miss_num_map(p5_a9);
679 ddp_xml_element_rec.column_name := p5_a10;
680 ddp_xml_element_rec.data := p5_a11;
681 ddp_xml_element_rec.num_attr := rosetta_g_miss_num_map(p5_a12);
682 ddp_xml_element_rec.data_type := p5_a13;
683 ddp_xml_element_rec.load_status := p5_a14;
684 ddp_xml_element_rec.error_text := p5_a15;
685
686 -- here's the delegated call to the old PL/SQL routine
687 ams_xml_element_pvt.validate_xml_element_rec(p_api_version_number,
688 p_init_msg_list,
689 x_return_status,
690 x_msg_count,
691 x_msg_data,
692 ddp_xml_element_rec);
693
694 -- copy data back from the local OUT or IN-OUT args, if any
695
696
697
698
699
700 end;
701
702 end ams_xml_element_pvt_w;