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