[Home] [Help]
PACKAGE BODY: APPS.OKL_XMLP_PARAMS_PVT_W
Source
1 package body okl_xmlp_params_pvt_w as
2 /* $Header: OKLEXMPB.pls 120.1 2007/08/14 22:00:56 rkuttiya noship $ */
3 procedure create_xmlp_params_rec(p_api_version NUMBER
4 , p_init_msg_list VARCHAR2
5 , x_return_status out nocopy VARCHAR2
6 , x_msg_count out nocopy NUMBER
7 , x_msg_data out nocopy VARCHAR2
8 , p5_a0 NUMBER
9 , p5_a1 NUMBER
10 , p5_a2 VARCHAR2
11 , p5_a3 NUMBER
12 , p5_a4 VARCHAR2
13 , p5_a5 VARCHAR2
14 , p5_a6 VARCHAR2
15 , p5_a7 VARCHAR2
16 , p5_a8 VARCHAR2
17 , p5_a9 VARCHAR2
18 , p5_a10 VARCHAR2
19 , p5_a11 VARCHAR2
20 , p5_a12 VARCHAR2
21 , p5_a13 VARCHAR2
22 , p5_a14 VARCHAR2
23 , p5_a15 VARCHAR2
24 , p5_a16 VARCHAR2
25 , p5_a17 VARCHAR2
26 , p5_a18 VARCHAR2
27 , p5_a19 VARCHAR2
28 , p5_a20 VARCHAR2
29 , p5_a21 VARCHAR2
30 , p5_a22 NUMBER
31 , p5_a23 DATE
32 , p5_a24 NUMBER
33 , p5_a25 DATE
34 , p5_a26 VARCHAR2
35 , p6_a0 out nocopy NUMBER
36 , p6_a1 out nocopy NUMBER
37 , p6_a2 out nocopy VARCHAR2
38 , p6_a3 out nocopy NUMBER
39 , p6_a4 out nocopy VARCHAR2
40 , p6_a5 out nocopy VARCHAR2
41 , p6_a6 out nocopy VARCHAR2
42 , p6_a7 out nocopy VARCHAR2
43 , p6_a8 out nocopy VARCHAR2
44 , p6_a9 out nocopy VARCHAR2
45 , p6_a10 out nocopy VARCHAR2
46 , p6_a11 out nocopy VARCHAR2
47 , p6_a12 out nocopy VARCHAR2
48 , p6_a13 out nocopy VARCHAR2
49 , p6_a14 out nocopy VARCHAR2
50 , p6_a15 out nocopy VARCHAR2
51 , p6_a16 out nocopy VARCHAR2
52 , p6_a17 out nocopy VARCHAR2
53 , p6_a18 out nocopy VARCHAR2
54 , p6_a19 out nocopy VARCHAR2
55 , p6_a20 out nocopy VARCHAR2
56 , p6_a21 out nocopy VARCHAR2
57 , p6_a22 out nocopy NUMBER
58 , p6_a23 out nocopy DATE
59 , p6_a24 out nocopy NUMBER
60 , p6_a25 out nocopy DATE
61 , p6_a26 out nocopy VARCHAR2
62 )
63
64 as
65 ddp_xmp_rec okl_xmlp_params_pvt.xmp_rec_type;
66 ddx_xmp_rec okl_xmlp_params_pvt.xmp_rec_type;
67 ddindx binary_integer; indx binary_integer;
68 begin
69
70 -- copy data to the local IN or IN-OUT args, if any
71
72
73
74
75
76 ddp_xmp_rec.id := p5_a0;
77 ddp_xmp_rec.batch_id := p5_a1;
78 ddp_xmp_rec.param_name := p5_a2;
79 ddp_xmp_rec.object_version_number := p5_a3;
80 ddp_xmp_rec.param_type_code := p5_a4;
81 ddp_xmp_rec.param_value := p5_a5;
82 ddp_xmp_rec.attribute_category := p5_a6;
83 ddp_xmp_rec.attribute1 := p5_a7;
84 ddp_xmp_rec.attribute2 := p5_a8;
85 ddp_xmp_rec.attribute3 := p5_a9;
86 ddp_xmp_rec.attribute4 := p5_a10;
87 ddp_xmp_rec.attribute5 := p5_a11;
88 ddp_xmp_rec.attribute6 := p5_a12;
89 ddp_xmp_rec.attribute7 := p5_a13;
90 ddp_xmp_rec.attribute8 := p5_a14;
91 ddp_xmp_rec.attribute9 := p5_a15;
92 ddp_xmp_rec.attribute10 := p5_a16;
93 ddp_xmp_rec.attribute11 := p5_a17;
94 ddp_xmp_rec.attribute12 := p5_a18;
95 ddp_xmp_rec.attribute13 := p5_a19;
96 ddp_xmp_rec.attribute14 := p5_a20;
97 ddp_xmp_rec.attribute15 := p5_a21;
98 ddp_xmp_rec.created_by := p5_a22;
99 ddp_xmp_rec.creation_date := p5_a23;
100 ddp_xmp_rec.last_updated_by := p5_a24;
101 ddp_xmp_rec.last_update_date := p5_a25;
102 ddp_xmp_rec.last_update_login := p5_a26;
103
104
105 -- here's the delegated call to the old PL/SQL routine
106 okl_xmlp_params_pvt.create_xmlp_params_rec(p_api_version,
107 p_init_msg_list,
108 x_return_status,
109 x_msg_count,
110 x_msg_data,
111 ddp_xmp_rec,
112 ddx_xmp_rec);
113
114 -- copy data back from the local variables to OUT or IN-OUT args, if any
115
116
117
118
119
120
121 p6_a0 := ddx_xmp_rec.id;
122 p6_a1 := ddx_xmp_rec.batch_id;
123 p6_a2 := ddx_xmp_rec.param_name;
124 p6_a3 := ddx_xmp_rec.object_version_number;
125 p6_a4 := ddx_xmp_rec.param_type_code;
126 p6_a5 := ddx_xmp_rec.param_value;
127 p6_a6 := ddx_xmp_rec.attribute_category;
128 p6_a7 := ddx_xmp_rec.attribute1;
129 p6_a8 := ddx_xmp_rec.attribute2;
130 p6_a9 := ddx_xmp_rec.attribute3;
131 p6_a10 := ddx_xmp_rec.attribute4;
132 p6_a11 := ddx_xmp_rec.attribute5;
133 p6_a12 := ddx_xmp_rec.attribute6;
134 p6_a13 := ddx_xmp_rec.attribute7;
135 p6_a14 := ddx_xmp_rec.attribute8;
136 p6_a15 := ddx_xmp_rec.attribute9;
137 p6_a16 := ddx_xmp_rec.attribute10;
138 p6_a17 := ddx_xmp_rec.attribute11;
139 p6_a18 := ddx_xmp_rec.attribute12;
140 p6_a19 := ddx_xmp_rec.attribute13;
141 p6_a20 := ddx_xmp_rec.attribute14;
142 p6_a21 := ddx_xmp_rec.attribute15;
143 p6_a22 := ddx_xmp_rec.created_by;
144 p6_a23 := ddx_xmp_rec.creation_date;
145 p6_a24 := ddx_xmp_rec.last_updated_by;
146 p6_a25 := ddx_xmp_rec.last_update_date;
147 p6_a26 := ddx_xmp_rec.last_update_login;
148 end;
149
150 procedure create_xmlp_params_tbl(p_api_version NUMBER
151 , p_init_msg_list VARCHAR2
152 , x_return_status out nocopy VARCHAR2
153 , x_msg_count out nocopy NUMBER
154 , x_msg_data out nocopy VARCHAR2
155 , p5_a0 JTF_NUMBER_TABLE
156 , p5_a1 JTF_NUMBER_TABLE
157 , p5_a2 JTF_VARCHAR2_TABLE_300
158 , p5_a3 JTF_NUMBER_TABLE
159 , p5_a4 JTF_VARCHAR2_TABLE_100
160 , p5_a5 JTF_VARCHAR2_TABLE_2000
161 , p5_a6 JTF_VARCHAR2_TABLE_100
162 , p5_a7 JTF_VARCHAR2_TABLE_500
163 , p5_a8 JTF_VARCHAR2_TABLE_500
164 , p5_a9 JTF_VARCHAR2_TABLE_500
165 , p5_a10 JTF_VARCHAR2_TABLE_500
166 , p5_a11 JTF_VARCHAR2_TABLE_500
167 , p5_a12 JTF_VARCHAR2_TABLE_500
168 , p5_a13 JTF_VARCHAR2_TABLE_500
169 , p5_a14 JTF_VARCHAR2_TABLE_500
170 , p5_a15 JTF_VARCHAR2_TABLE_500
171 , p5_a16 JTF_VARCHAR2_TABLE_500
172 , p5_a17 JTF_VARCHAR2_TABLE_500
173 , p5_a18 JTF_VARCHAR2_TABLE_500
174 , p5_a19 JTF_VARCHAR2_TABLE_500
175 , p5_a20 JTF_VARCHAR2_TABLE_500
176 , p5_a21 JTF_VARCHAR2_TABLE_500
177 , p5_a22 JTF_NUMBER_TABLE
178 , p5_a23 JTF_DATE_TABLE
179 , p5_a24 JTF_NUMBER_TABLE
180 , p5_a25 JTF_DATE_TABLE
181 , p5_a26 JTF_VARCHAR2_TABLE_300
182 , p6_a0 out nocopy JTF_NUMBER_TABLE
183 , p6_a1 out nocopy JTF_NUMBER_TABLE
184 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_300
185 , p6_a3 out nocopy JTF_NUMBER_TABLE
186 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
187 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_2000
188 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
189 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_500
190 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
191 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
192 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
193 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
194 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
195 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
196 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
197 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
198 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
199 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
200 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
201 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
202 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
203 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
204 , p6_a22 out nocopy JTF_NUMBER_TABLE
205 , p6_a23 out nocopy JTF_DATE_TABLE
206 , p6_a24 out nocopy JTF_NUMBER_TABLE
207 , p6_a25 out nocopy JTF_DATE_TABLE
208 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_300
209 )
210
211 as
212 ddp_xmp_tbl okl_xmlp_params_pvt.xmp_tbl_type;
213 ddx_xmp_tbl okl_xmlp_params_pvt.xmp_tbl_type;
214 ddindx binary_integer; indx binary_integer;
215 begin
216
217 -- copy data to the local IN or IN-OUT args, if any
218
219
220
221
222
223 okl_xmp_pvt_w.rosetta_table_copy_in_p2(ddp_xmp_tbl, p5_a0
224 , p5_a1
225 , p5_a2
226 , p5_a3
227 , p5_a4
228 , p5_a5
229 , p5_a6
230 , p5_a7
231 , p5_a8
232 , p5_a9
233 , p5_a10
234 , p5_a11
235 , p5_a12
236 , p5_a13
237 , p5_a14
238 , p5_a15
239 , p5_a16
240 , p5_a17
241 , p5_a18
242 , p5_a19
243 , p5_a20
244 , p5_a21
245 , p5_a22
246 , p5_a23
247 , p5_a24
248 , p5_a25
249 , p5_a26
250 );
251
252
253 -- here's the delegated call to the old PL/SQL routine
254 okl_xmlp_params_pvt.create_xmlp_params_tbl(p_api_version,
255 p_init_msg_list,
256 x_return_status,
257 x_msg_count,
258 x_msg_data,
259 ddp_xmp_tbl,
260 ddx_xmp_tbl);
261
262 -- copy data back from the local variables to OUT or IN-OUT args, if any
263
264
265
266
267
268
269 okl_xmp_pvt_w.rosetta_table_copy_out_p2(ddx_xmp_tbl, p6_a0
270 , p6_a1
271 , p6_a2
272 , p6_a3
273 , p6_a4
274 , p6_a5
275 , p6_a6
276 , p6_a7
277 , p6_a8
278 , p6_a9
279 , p6_a10
280 , p6_a11
281 , p6_a12
282 , p6_a13
283 , p6_a14
284 , p6_a15
285 , p6_a16
286 , p6_a17
287 , p6_a18
288 , p6_a19
289 , p6_a20
290 , p6_a21
291 , p6_a22
292 , p6_a23
293 , p6_a24
294 , p6_a25
295 , p6_a26
296 );
297 end;
298
299 procedure update_xmlp_params_rec(p_api_version NUMBER
300 , p_init_msg_list VARCHAR2
301 , x_return_status out nocopy VARCHAR2
302 , x_msg_count out nocopy NUMBER
303 , x_msg_data out nocopy VARCHAR2
304 , p5_a0 NUMBER
305 , p5_a1 NUMBER
306 , p5_a2 VARCHAR2
307 , p5_a3 NUMBER
308 , p5_a4 VARCHAR2
309 , p5_a5 VARCHAR2
310 , p5_a6 VARCHAR2
311 , p5_a7 VARCHAR2
312 , p5_a8 VARCHAR2
313 , p5_a9 VARCHAR2
314 , p5_a10 VARCHAR2
315 , p5_a11 VARCHAR2
316 , p5_a12 VARCHAR2
317 , p5_a13 VARCHAR2
318 , p5_a14 VARCHAR2
319 , p5_a15 VARCHAR2
320 , p5_a16 VARCHAR2
321 , p5_a17 VARCHAR2
322 , p5_a18 VARCHAR2
323 , p5_a19 VARCHAR2
324 , p5_a20 VARCHAR2
325 , p5_a21 VARCHAR2
326 , p5_a22 NUMBER
327 , p5_a23 DATE
328 , p5_a24 NUMBER
329 , p5_a25 DATE
330 , p5_a26 VARCHAR2
331 , p6_a0 out nocopy NUMBER
332 , p6_a1 out nocopy NUMBER
333 , p6_a2 out nocopy VARCHAR2
334 , p6_a3 out nocopy NUMBER
335 , p6_a4 out nocopy VARCHAR2
336 , p6_a5 out nocopy VARCHAR2
337 , p6_a6 out nocopy VARCHAR2
338 , p6_a7 out nocopy VARCHAR2
339 , p6_a8 out nocopy VARCHAR2
340 , p6_a9 out nocopy VARCHAR2
341 , p6_a10 out nocopy VARCHAR2
342 , p6_a11 out nocopy VARCHAR2
343 , p6_a12 out nocopy VARCHAR2
344 , p6_a13 out nocopy VARCHAR2
345 , p6_a14 out nocopy VARCHAR2
346 , p6_a15 out nocopy VARCHAR2
347 , p6_a16 out nocopy VARCHAR2
348 , p6_a17 out nocopy VARCHAR2
349 , p6_a18 out nocopy VARCHAR2
350 , p6_a19 out nocopy VARCHAR2
351 , p6_a20 out nocopy VARCHAR2
352 , p6_a21 out nocopy VARCHAR2
353 , p6_a22 out nocopy NUMBER
354 , p6_a23 out nocopy DATE
355 , p6_a24 out nocopy NUMBER
356 , p6_a25 out nocopy DATE
357 , p6_a26 out nocopy VARCHAR2
358 )
359
360 as
361 ddp_xmp_rec okl_xmlp_params_pvt.xmp_rec_type;
362 ddx_xmp_rec okl_xmlp_params_pvt.xmp_rec_type;
363 ddindx binary_integer; indx binary_integer;
364 begin
365
366 -- copy data to the local IN or IN-OUT args, if any
367
368
369
370
371
372 ddp_xmp_rec.id := p5_a0;
373 ddp_xmp_rec.batch_id := p5_a1;
374 ddp_xmp_rec.param_name := p5_a2;
375 ddp_xmp_rec.object_version_number := p5_a3;
376 ddp_xmp_rec.param_type_code := p5_a4;
377 ddp_xmp_rec.param_value := p5_a5;
378 ddp_xmp_rec.attribute_category := p5_a6;
379 ddp_xmp_rec.attribute1 := p5_a7;
380 ddp_xmp_rec.attribute2 := p5_a8;
381 ddp_xmp_rec.attribute3 := p5_a9;
382 ddp_xmp_rec.attribute4 := p5_a10;
383 ddp_xmp_rec.attribute5 := p5_a11;
384 ddp_xmp_rec.attribute6 := p5_a12;
385 ddp_xmp_rec.attribute7 := p5_a13;
386 ddp_xmp_rec.attribute8 := p5_a14;
387 ddp_xmp_rec.attribute9 := p5_a15;
388 ddp_xmp_rec.attribute10 := p5_a16;
389 ddp_xmp_rec.attribute11 := p5_a17;
390 ddp_xmp_rec.attribute12 := p5_a18;
391 ddp_xmp_rec.attribute13 := p5_a19;
392 ddp_xmp_rec.attribute14 := p5_a20;
393 ddp_xmp_rec.attribute15 := p5_a21;
394 ddp_xmp_rec.created_by := p5_a22;
395 ddp_xmp_rec.creation_date := p5_a23;
396 ddp_xmp_rec.last_updated_by := p5_a24;
397 ddp_xmp_rec.last_update_date := p5_a25;
398 ddp_xmp_rec.last_update_login := p5_a26;
399
400
401 -- here's the delegated call to the old PL/SQL routine
402 okl_xmlp_params_pvt.update_xmlp_params_rec(p_api_version,
403 p_init_msg_list,
404 x_return_status,
405 x_msg_count,
406 x_msg_data,
407 ddp_xmp_rec,
408 ddx_xmp_rec);
409
410 -- copy data back from the local variables to OUT or IN-OUT args, if any
411
412
413
414
415
416
417 p6_a0 := ddx_xmp_rec.id;
418 p6_a1 := ddx_xmp_rec.batch_id;
419 p6_a2 := ddx_xmp_rec.param_name;
420 p6_a3 := ddx_xmp_rec.object_version_number;
421 p6_a4 := ddx_xmp_rec.param_type_code;
422 p6_a5 := ddx_xmp_rec.param_value;
423 p6_a6 := ddx_xmp_rec.attribute_category;
424 p6_a7 := ddx_xmp_rec.attribute1;
425 p6_a8 := ddx_xmp_rec.attribute2;
426 p6_a9 := ddx_xmp_rec.attribute3;
427 p6_a10 := ddx_xmp_rec.attribute4;
428 p6_a11 := ddx_xmp_rec.attribute5;
429 p6_a12 := ddx_xmp_rec.attribute6;
430 p6_a13 := ddx_xmp_rec.attribute7;
431 p6_a14 := ddx_xmp_rec.attribute8;
432 p6_a15 := ddx_xmp_rec.attribute9;
433 p6_a16 := ddx_xmp_rec.attribute10;
434 p6_a17 := ddx_xmp_rec.attribute11;
435 p6_a18 := ddx_xmp_rec.attribute12;
436 p6_a19 := ddx_xmp_rec.attribute13;
437 p6_a20 := ddx_xmp_rec.attribute14;
438 p6_a21 := ddx_xmp_rec.attribute15;
439 p6_a22 := ddx_xmp_rec.created_by;
440 p6_a23 := ddx_xmp_rec.creation_date;
441 p6_a24 := ddx_xmp_rec.last_updated_by;
442 p6_a25 := ddx_xmp_rec.last_update_date;
443 p6_a26 := ddx_xmp_rec.last_update_login;
444 end;
445
446 procedure update_xmlp_params_tbl(p_api_version NUMBER
447 , p_init_msg_list VARCHAR2
448 , x_return_status out nocopy VARCHAR2
449 , x_msg_count out nocopy NUMBER
450 , x_msg_data out nocopy VARCHAR2
451 , p5_a0 JTF_NUMBER_TABLE
452 , p5_a1 JTF_NUMBER_TABLE
453 , p5_a2 JTF_VARCHAR2_TABLE_300
454 , p5_a3 JTF_NUMBER_TABLE
455 , p5_a4 JTF_VARCHAR2_TABLE_100
456 , p5_a5 JTF_VARCHAR2_TABLE_2000
457 , p5_a6 JTF_VARCHAR2_TABLE_100
458 , p5_a7 JTF_VARCHAR2_TABLE_500
459 , p5_a8 JTF_VARCHAR2_TABLE_500
460 , p5_a9 JTF_VARCHAR2_TABLE_500
464 , p5_a13 JTF_VARCHAR2_TABLE_500
461 , p5_a10 JTF_VARCHAR2_TABLE_500
462 , p5_a11 JTF_VARCHAR2_TABLE_500
463 , p5_a12 JTF_VARCHAR2_TABLE_500
465 , p5_a14 JTF_VARCHAR2_TABLE_500
466 , p5_a15 JTF_VARCHAR2_TABLE_500
467 , p5_a16 JTF_VARCHAR2_TABLE_500
468 , p5_a17 JTF_VARCHAR2_TABLE_500
469 , p5_a18 JTF_VARCHAR2_TABLE_500
470 , p5_a19 JTF_VARCHAR2_TABLE_500
471 , p5_a20 JTF_VARCHAR2_TABLE_500
472 , p5_a21 JTF_VARCHAR2_TABLE_500
473 , p5_a22 JTF_NUMBER_TABLE
474 , p5_a23 JTF_DATE_TABLE
475 , p5_a24 JTF_NUMBER_TABLE
476 , p5_a25 JTF_DATE_TABLE
477 , p5_a26 JTF_VARCHAR2_TABLE_300
478 , p6_a0 out nocopy JTF_NUMBER_TABLE
479 , p6_a1 out nocopy JTF_NUMBER_TABLE
480 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_300
481 , p6_a3 out nocopy JTF_NUMBER_TABLE
482 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
483 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_2000
484 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
485 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_500
486 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
487 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
488 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
489 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
490 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
491 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
492 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
493 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
494 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
495 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
496 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
497 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
498 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
499 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
500 , p6_a22 out nocopy JTF_NUMBER_TABLE
501 , p6_a23 out nocopy JTF_DATE_TABLE
502 , p6_a24 out nocopy JTF_NUMBER_TABLE
503 , p6_a25 out nocopy JTF_DATE_TABLE
504 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_300
505 )
506
507 as
508 ddp_xmp_tbl okl_xmlp_params_pvt.xmp_tbl_type;
509 ddx_xmp_tbl okl_xmlp_params_pvt.xmp_tbl_type;
510 ddindx binary_integer; indx binary_integer;
511 begin
512
513 -- copy data to the local IN or IN-OUT args, if any
514
515
516
517
518
519 okl_xmp_pvt_w.rosetta_table_copy_in_p2(ddp_xmp_tbl, p5_a0
520 , p5_a1
521 , p5_a2
522 , p5_a3
523 , p5_a4
524 , p5_a5
525 , p5_a6
526 , p5_a7
527 , p5_a8
528 , p5_a9
529 , p5_a10
530 , p5_a11
531 , p5_a12
532 , p5_a13
533 , p5_a14
534 , p5_a15
535 , p5_a16
536 , p5_a17
537 , p5_a18
538 , p5_a19
539 , p5_a20
540 , p5_a21
541 , p5_a22
542 , p5_a23
543 , p5_a24
544 , p5_a25
545 , p5_a26
546 );
547
548
549 -- here's the delegated call to the old PL/SQL routine
550 okl_xmlp_params_pvt.update_xmlp_params_tbl(p_api_version,
551 p_init_msg_list,
552 x_return_status,
553 x_msg_count,
554 x_msg_data,
555 ddp_xmp_tbl,
556 ddx_xmp_tbl);
557
558 -- copy data back from the local variables to OUT or IN-OUT args, if any
559
560
561
562
563
564
565 okl_xmp_pvt_w.rosetta_table_copy_out_p2(ddx_xmp_tbl, p6_a0
566 , p6_a1
567 , p6_a2
568 , p6_a3
569 , p6_a4
570 , p6_a5
571 , p6_a6
572 , p6_a7
573 , p6_a8
574 , p6_a9
575 , p6_a10
576 , p6_a11
577 , p6_a12
578 , p6_a13
579 , p6_a14
580 , p6_a15
581 , p6_a16
582 , p6_a17
583 , p6_a18
584 , p6_a19
585 , p6_a20
586 , p6_a21
587 , p6_a22
588 , p6_a23
589 , p6_a24
590 , p6_a25
591 , p6_a26
592 );
593 end;
594
595 procedure validate_xmlp_params_rec(p_api_version NUMBER
596 , p_init_msg_list VARCHAR2
597 , x_return_status out nocopy VARCHAR2
598 , x_msg_count out nocopy NUMBER
599 , x_msg_data out nocopy VARCHAR2
600 , p5_a0 NUMBER
601 , p5_a1 NUMBER
602 , p5_a2 VARCHAR2
603 , p5_a3 NUMBER
604 , p5_a4 VARCHAR2
605 , p5_a5 VARCHAR2
606 , p5_a6 VARCHAR2
607 , p5_a7 VARCHAR2
608 , p5_a8 VARCHAR2
609 , p5_a9 VARCHAR2
610 , p5_a10 VARCHAR2
611 , p5_a11 VARCHAR2
612 , p5_a12 VARCHAR2
613 , p5_a13 VARCHAR2
614 , p5_a14 VARCHAR2
615 , p5_a15 VARCHAR2
616 , p5_a16 VARCHAR2
617 , p5_a17 VARCHAR2
618 , p5_a18 VARCHAR2
619 , p5_a19 VARCHAR2
620 , p5_a20 VARCHAR2
621 , p5_a21 VARCHAR2
622 , p5_a22 NUMBER
623 , p5_a23 DATE
624 , p5_a24 NUMBER
625 , p5_a25 DATE
626 , p5_a26 VARCHAR2
627 )
628
629 as
630 ddp_xmp_rec okl_xmlp_params_pvt.xmp_rec_type;
631 ddindx binary_integer; indx binary_integer;
632 begin
633
634 -- copy data to the local IN or IN-OUT args, if any
635
636
637
638
639
640 ddp_xmp_rec.id := p5_a0;
641 ddp_xmp_rec.batch_id := p5_a1;
642 ddp_xmp_rec.param_name := p5_a2;
643 ddp_xmp_rec.object_version_number := p5_a3;
644 ddp_xmp_rec.param_type_code := p5_a4;
645 ddp_xmp_rec.param_value := p5_a5;
646 ddp_xmp_rec.attribute_category := p5_a6;
647 ddp_xmp_rec.attribute1 := p5_a7;
648 ddp_xmp_rec.attribute2 := p5_a8;
649 ddp_xmp_rec.attribute3 := p5_a9;
650 ddp_xmp_rec.attribute4 := p5_a10;
651 ddp_xmp_rec.attribute5 := p5_a11;
652 ddp_xmp_rec.attribute6 := p5_a12;
653 ddp_xmp_rec.attribute7 := p5_a13;
654 ddp_xmp_rec.attribute8 := p5_a14;
655 ddp_xmp_rec.attribute9 := p5_a15;
656 ddp_xmp_rec.attribute10 := p5_a16;
657 ddp_xmp_rec.attribute11 := p5_a17;
658 ddp_xmp_rec.attribute12 := p5_a18;
659 ddp_xmp_rec.attribute13 := p5_a19;
660 ddp_xmp_rec.attribute14 := p5_a20;
661 ddp_xmp_rec.attribute15 := p5_a21;
662 ddp_xmp_rec.created_by := p5_a22;
663 ddp_xmp_rec.creation_date := p5_a23;
664 ddp_xmp_rec.last_updated_by := p5_a24;
665 ddp_xmp_rec.last_update_date := p5_a25;
666 ddp_xmp_rec.last_update_login := p5_a26;
667
668 -- here's the delegated call to the old PL/SQL routine
669 okl_xmlp_params_pvt.validate_xmlp_params_rec(p_api_version,
670 p_init_msg_list,
671 x_return_status,
672 x_msg_count,
673 x_msg_data,
674 ddp_xmp_rec);
675
676 -- copy data back from the local variables to OUT or IN-OUT args, if any
677
678
679
680
681
682 end;
683
684 procedure validate_xmlp_params_tbl(p_api_version NUMBER
685 , p_init_msg_list VARCHAR2
686 , x_return_status out nocopy VARCHAR2
687 , x_msg_count out nocopy NUMBER
688 , x_msg_data out nocopy VARCHAR2
689 , p5_a0 JTF_NUMBER_TABLE
690 , p5_a1 JTF_NUMBER_TABLE
691 , p5_a2 JTF_VARCHAR2_TABLE_300
692 , p5_a3 JTF_NUMBER_TABLE
693 , p5_a4 JTF_VARCHAR2_TABLE_100
694 , p5_a5 JTF_VARCHAR2_TABLE_2000
695 , p5_a6 JTF_VARCHAR2_TABLE_100
696 , p5_a7 JTF_VARCHAR2_TABLE_500
697 , p5_a8 JTF_VARCHAR2_TABLE_500
698 , p5_a9 JTF_VARCHAR2_TABLE_500
699 , p5_a10 JTF_VARCHAR2_TABLE_500
700 , p5_a11 JTF_VARCHAR2_TABLE_500
701 , p5_a12 JTF_VARCHAR2_TABLE_500
702 , p5_a13 JTF_VARCHAR2_TABLE_500
703 , p5_a14 JTF_VARCHAR2_TABLE_500
704 , p5_a15 JTF_VARCHAR2_TABLE_500
705 , p5_a16 JTF_VARCHAR2_TABLE_500
706 , p5_a17 JTF_VARCHAR2_TABLE_500
707 , p5_a18 JTF_VARCHAR2_TABLE_500
708 , p5_a19 JTF_VARCHAR2_TABLE_500
709 , p5_a20 JTF_VARCHAR2_TABLE_500
710 , p5_a21 JTF_VARCHAR2_TABLE_500
711 , p5_a22 JTF_NUMBER_TABLE
712 , p5_a23 JTF_DATE_TABLE
713 , p5_a24 JTF_NUMBER_TABLE
714 , p5_a25 JTF_DATE_TABLE
715 , p5_a26 JTF_VARCHAR2_TABLE_300
716 )
717
718 as
719 ddp_xmp_tbl okl_xmlp_params_pvt.xmp_tbl_type;
720 ddindx binary_integer; indx binary_integer;
721 begin
722
723 -- copy data to the local IN or IN-OUT args, if any
724
725
726
727
728
729 okl_xmp_pvt_w.rosetta_table_copy_in_p2(ddp_xmp_tbl, p5_a0
730 , p5_a1
731 , p5_a2
732 , p5_a3
733 , p5_a4
734 , p5_a5
735 , p5_a6
736 , p5_a7
737 , p5_a8
738 , p5_a9
739 , p5_a10
740 , p5_a11
741 , p5_a12
742 , p5_a13
743 , p5_a14
744 , p5_a15
745 , p5_a16
746 , p5_a17
747 , p5_a18
748 , p5_a19
749 , p5_a20
750 , p5_a21
751 , p5_a22
752 , p5_a23
753 , p5_a24
754 , p5_a25
755 , p5_a26
756 );
757
758 -- here's the delegated call to the old PL/SQL routine
759 okl_xmlp_params_pvt.validate_xmlp_params_tbl(p_api_version,
760 p_init_msg_list,
761 x_return_status,
762 x_msg_count,
763 x_msg_data,
764 ddp_xmp_tbl);
765
766 -- copy data back from the local variables to OUT or IN-OUT args, if any
767
768
769
770
771
772 end;
773
774 end okl_xmlp_params_pvt_w;