[Home] [Help]
PACKAGE BODY: APPS.OKL_VLD_PVT_W
Source
1 package body okl_vld_pvt_w as
2 /* $Header: OKLIVLDB.pls 120.0 2005/09/20 12:39:04 ssdeshpa noship $ */
3 procedure rosetta_table_copy_in_p23(t out nocopy okl_vld_pvt.vldv_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_VARCHAR2_TABLE_100
6 , a3 JTF_VARCHAR2_TABLE_500
7 , a4 JTF_VARCHAR2_TABLE_500
8 , a5 JTF_VARCHAR2_TABLE_500
9 , a6 JTF_VARCHAR2_TABLE_500
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_NUMBER_TABLE
22 , a19 JTF_NUMBER_TABLE
23 , a20 JTF_VARCHAR2_TABLE_100
24 , a21 JTF_VARCHAR2_TABLE_300
25 , a22 JTF_VARCHAR2_TABLE_2000
26 , a23 JTF_VARCHAR2_TABLE_2000
27 ) as
28 ddindx binary_integer; indx binary_integer;
29 begin
30 if a0 is not null and a0.count > 0 then
31 if a0.count > 0 then
32 indx := a0.first;
33 ddindx := 1;
34 while true loop
35 t(ddindx).id := a0(indx);
36 t(ddindx).object_version_number := a1(indx);
37 t(ddindx).attribute_category := a2(indx);
38 t(ddindx).attribute1 := a3(indx);
39 t(ddindx).attribute2 := a4(indx);
40 t(ddindx).attribute3 := a5(indx);
41 t(ddindx).attribute4 := a6(indx);
42 t(ddindx).attribute5 := a7(indx);
43 t(ddindx).attribute6 := a8(indx);
44 t(ddindx).attribute7 := a9(indx);
45 t(ddindx).attribute8 := a10(indx);
46 t(ddindx).attribute9 := a11(indx);
47 t(ddindx).attribute10 := a12(indx);
48 t(ddindx).attribute11 := a13(indx);
49 t(ddindx).attribute12 := a14(indx);
50 t(ddindx).attribute13 := a15(indx);
51 t(ddindx).attribute14 := a16(indx);
52 t(ddindx).attribute15 := a17(indx);
53 t(ddindx).validation_set_id := a18(indx);
54 t(ddindx).function_id := a19(indx);
55 t(ddindx).failure_severity := a20(indx);
56 t(ddindx).short_description := a21(indx);
57 t(ddindx).description := a22(indx);
58 t(ddindx).comments := a23(indx);
59 ddindx := ddindx+1;
60 if a0.last =indx
61 then exit;
62 end if;
63 indx := a0.next(indx);
64 end loop;
65 end if;
66 end if;
67 end rosetta_table_copy_in_p23;
68 procedure rosetta_table_copy_out_p23(t okl_vld_pvt.vldv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
69 , a1 out nocopy JTF_NUMBER_TABLE
70 , a2 out nocopy JTF_VARCHAR2_TABLE_100
71 , a3 out nocopy JTF_VARCHAR2_TABLE_500
72 , a4 out nocopy JTF_VARCHAR2_TABLE_500
73 , a5 out nocopy JTF_VARCHAR2_TABLE_500
74 , a6 out nocopy JTF_VARCHAR2_TABLE_500
75 , a7 out nocopy JTF_VARCHAR2_TABLE_500
76 , a8 out nocopy JTF_VARCHAR2_TABLE_500
77 , a9 out nocopy JTF_VARCHAR2_TABLE_500
78 , a10 out nocopy JTF_VARCHAR2_TABLE_500
79 , a11 out nocopy JTF_VARCHAR2_TABLE_500
80 , a12 out nocopy JTF_VARCHAR2_TABLE_500
81 , a13 out nocopy JTF_VARCHAR2_TABLE_500
82 , a14 out nocopy JTF_VARCHAR2_TABLE_500
83 , a15 out nocopy JTF_VARCHAR2_TABLE_500
84 , a16 out nocopy JTF_VARCHAR2_TABLE_500
85 , a17 out nocopy JTF_VARCHAR2_TABLE_500
86 , a18 out nocopy JTF_NUMBER_TABLE
87 , a19 out nocopy JTF_NUMBER_TABLE
88 , a20 out nocopy JTF_VARCHAR2_TABLE_100
89 , a21 out nocopy JTF_VARCHAR2_TABLE_300
90 , a22 out nocopy JTF_VARCHAR2_TABLE_2000
91 , a23 out nocopy JTF_VARCHAR2_TABLE_2000
92 ) as
93 ddindx binary_integer; indx binary_integer;
94 begin
95 if t is null or t.count = 0 then
96 a0 := JTF_NUMBER_TABLE();
97 a1 := JTF_NUMBER_TABLE();
98 a2 := JTF_VARCHAR2_TABLE_100();
99 a3 := JTF_VARCHAR2_TABLE_500();
100 a4 := JTF_VARCHAR2_TABLE_500();
101 a5 := JTF_VARCHAR2_TABLE_500();
102 a6 := JTF_VARCHAR2_TABLE_500();
103 a7 := JTF_VARCHAR2_TABLE_500();
104 a8 := JTF_VARCHAR2_TABLE_500();
105 a9 := JTF_VARCHAR2_TABLE_500();
106 a10 := JTF_VARCHAR2_TABLE_500();
107 a11 := JTF_VARCHAR2_TABLE_500();
108 a12 := JTF_VARCHAR2_TABLE_500();
109 a13 := JTF_VARCHAR2_TABLE_500();
110 a14 := JTF_VARCHAR2_TABLE_500();
111 a15 := JTF_VARCHAR2_TABLE_500();
112 a16 := JTF_VARCHAR2_TABLE_500();
113 a17 := JTF_VARCHAR2_TABLE_500();
114 a18 := JTF_NUMBER_TABLE();
115 a19 := JTF_NUMBER_TABLE();
116 a20 := JTF_VARCHAR2_TABLE_100();
117 a21 := JTF_VARCHAR2_TABLE_300();
118 a22 := JTF_VARCHAR2_TABLE_2000();
119 a23 := JTF_VARCHAR2_TABLE_2000();
120 else
121 a0 := JTF_NUMBER_TABLE();
122 a1 := JTF_NUMBER_TABLE();
123 a2 := JTF_VARCHAR2_TABLE_100();
124 a3 := JTF_VARCHAR2_TABLE_500();
125 a4 := JTF_VARCHAR2_TABLE_500();
126 a5 := JTF_VARCHAR2_TABLE_500();
127 a6 := JTF_VARCHAR2_TABLE_500();
128 a7 := JTF_VARCHAR2_TABLE_500();
129 a8 := JTF_VARCHAR2_TABLE_500();
130 a9 := JTF_VARCHAR2_TABLE_500();
131 a10 := JTF_VARCHAR2_TABLE_500();
132 a11 := JTF_VARCHAR2_TABLE_500();
133 a12 := JTF_VARCHAR2_TABLE_500();
134 a13 := JTF_VARCHAR2_TABLE_500();
135 a14 := JTF_VARCHAR2_TABLE_500();
136 a15 := JTF_VARCHAR2_TABLE_500();
137 a16 := JTF_VARCHAR2_TABLE_500();
138 a17 := JTF_VARCHAR2_TABLE_500();
139 a18 := JTF_NUMBER_TABLE();
140 a19 := JTF_NUMBER_TABLE();
141 a20 := JTF_VARCHAR2_TABLE_100();
142 a21 := JTF_VARCHAR2_TABLE_300();
143 a22 := JTF_VARCHAR2_TABLE_2000();
144 a23 := JTF_VARCHAR2_TABLE_2000();
145 if t.count > 0 then
146 a0.extend(t.count);
147 a1.extend(t.count);
148 a2.extend(t.count);
149 a3.extend(t.count);
150 a4.extend(t.count);
151 a5.extend(t.count);
152 a6.extend(t.count);
153 a7.extend(t.count);
154 a8.extend(t.count);
155 a9.extend(t.count);
156 a10.extend(t.count);
157 a11.extend(t.count);
158 a12.extend(t.count);
159 a13.extend(t.count);
160 a14.extend(t.count);
161 a15.extend(t.count);
162 a16.extend(t.count);
163 a17.extend(t.count);
164 a18.extend(t.count);
165 a19.extend(t.count);
166 a20.extend(t.count);
167 a21.extend(t.count);
168 a22.extend(t.count);
169 a23.extend(t.count);
170 ddindx := t.first;
171 indx := 1;
172 while true loop
173 a0(indx) := t(ddindx).id;
174 a1(indx) := t(ddindx).object_version_number;
175 a2(indx) := t(ddindx).attribute_category;
176 a3(indx) := t(ddindx).attribute1;
177 a4(indx) := t(ddindx).attribute2;
178 a5(indx) := t(ddindx).attribute3;
179 a6(indx) := t(ddindx).attribute4;
180 a7(indx) := t(ddindx).attribute5;
181 a8(indx) := t(ddindx).attribute6;
182 a9(indx) := t(ddindx).attribute7;
183 a10(indx) := t(ddindx).attribute8;
184 a11(indx) := t(ddindx).attribute9;
185 a12(indx) := t(ddindx).attribute10;
186 a13(indx) := t(ddindx).attribute11;
187 a14(indx) := t(ddindx).attribute12;
188 a15(indx) := t(ddindx).attribute13;
189 a16(indx) := t(ddindx).attribute14;
190 a17(indx) := t(ddindx).attribute15;
191 a18(indx) := t(ddindx).validation_set_id;
192 a19(indx) := t(ddindx).function_id;
193 a20(indx) := t(ddindx).failure_severity;
194 a21(indx) := t(ddindx).short_description;
195 a22(indx) := t(ddindx).description;
196 a23(indx) := t(ddindx).comments;
197 indx := indx+1;
198 if t.last =ddindx
199 then exit;
200 end if;
201 ddindx := t.next(ddindx);
202 end loop;
203 end if;
204 end if;
205 end rosetta_table_copy_out_p23;
206
207 procedure insert_row(p_api_version NUMBER
208 , p_init_msg_list VARCHAR2
209 , x_return_status out nocopy VARCHAR2
210 , x_msg_count out nocopy NUMBER
211 , x_msg_data out nocopy VARCHAR2
212 , p5_a0 JTF_NUMBER_TABLE
213 , p5_a1 JTF_NUMBER_TABLE
214 , p5_a2 JTF_VARCHAR2_TABLE_100
215 , p5_a3 JTF_VARCHAR2_TABLE_500
216 , p5_a4 JTF_VARCHAR2_TABLE_500
217 , p5_a5 JTF_VARCHAR2_TABLE_500
218 , p5_a6 JTF_VARCHAR2_TABLE_500
219 , p5_a7 JTF_VARCHAR2_TABLE_500
220 , p5_a8 JTF_VARCHAR2_TABLE_500
221 , p5_a9 JTF_VARCHAR2_TABLE_500
222 , p5_a10 JTF_VARCHAR2_TABLE_500
223 , p5_a11 JTF_VARCHAR2_TABLE_500
224 , p5_a12 JTF_VARCHAR2_TABLE_500
225 , p5_a13 JTF_VARCHAR2_TABLE_500
226 , p5_a14 JTF_VARCHAR2_TABLE_500
227 , p5_a15 JTF_VARCHAR2_TABLE_500
228 , p5_a16 JTF_VARCHAR2_TABLE_500
229 , p5_a17 JTF_VARCHAR2_TABLE_500
230 , p5_a18 JTF_NUMBER_TABLE
231 , p5_a19 JTF_NUMBER_TABLE
232 , p5_a20 JTF_VARCHAR2_TABLE_100
233 , p5_a21 JTF_VARCHAR2_TABLE_300
234 , p5_a22 JTF_VARCHAR2_TABLE_2000
235 , p5_a23 JTF_VARCHAR2_TABLE_2000
236 , p6_a0 out nocopy JTF_NUMBER_TABLE
237 , p6_a1 out nocopy JTF_NUMBER_TABLE
238 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
239 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_500
240 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_500
241 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_500
242 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_500
243 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_500
244 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
245 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
246 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
247 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
248 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
249 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
250 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
251 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
252 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
253 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
254 , p6_a18 out nocopy JTF_NUMBER_TABLE
255 , p6_a19 out nocopy JTF_NUMBER_TABLE
256 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_100
257 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_300
258 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_2000
259 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_2000
260 )
261
262 as
263 ddp_vldv_tbl okl_vld_pvt.vldv_tbl_type;
264 ddx_vldv_tbl okl_vld_pvt.vldv_tbl_type;
265 ddindx binary_integer; indx binary_integer;
266 begin
267
268 -- copy data to the local IN or IN-OUT args, if any
269
270
271
272
273
274 okl_vld_pvt_w.rosetta_table_copy_in_p23(ddp_vldv_tbl, p5_a0
275 , p5_a1
276 , p5_a2
277 , p5_a3
278 , p5_a4
279 , p5_a5
280 , p5_a6
281 , p5_a7
282 , p5_a8
283 , p5_a9
284 , p5_a10
285 , p5_a11
286 , p5_a12
287 , p5_a13
288 , p5_a14
289 , p5_a15
290 , p5_a16
291 , p5_a17
292 , p5_a18
293 , p5_a19
294 , p5_a20
295 , p5_a21
296 , p5_a22
297 , p5_a23
298 );
299
300
301 -- here's the delegated call to the old PL/SQL routine
302 okl_vld_pvt.insert_row(p_api_version,
303 p_init_msg_list,
304 x_return_status,
305 x_msg_count,
306 x_msg_data,
307 ddp_vldv_tbl,
308 ddx_vldv_tbl);
309
310 -- copy data back from the local variables to OUT or IN-OUT args, if any
311
312
313
314
315
316
317 okl_vld_pvt_w.rosetta_table_copy_out_p23(ddx_vldv_tbl, p6_a0
318 , p6_a1
319 , p6_a2
320 , p6_a3
321 , p6_a4
322 , p6_a5
323 , p6_a6
324 , p6_a7
325 , p6_a8
326 , p6_a9
327 , p6_a10
328 , p6_a11
329 , p6_a12
330 , p6_a13
331 , p6_a14
332 , p6_a15
333 , p6_a16
334 , p6_a17
335 , p6_a18
336 , p6_a19
337 , p6_a20
338 , p6_a21
339 , p6_a22
340 , p6_a23
341 );
342 end;
343
344 procedure update_row(p_api_version NUMBER
345 , p_init_msg_list VARCHAR2
346 , x_return_status out nocopy VARCHAR2
347 , x_msg_count out nocopy NUMBER
348 , x_msg_data out nocopy VARCHAR2
349 , p5_a0 JTF_NUMBER_TABLE
350 , p5_a1 JTF_NUMBER_TABLE
351 , p5_a2 JTF_VARCHAR2_TABLE_100
352 , p5_a3 JTF_VARCHAR2_TABLE_500
353 , p5_a4 JTF_VARCHAR2_TABLE_500
354 , p5_a5 JTF_VARCHAR2_TABLE_500
355 , p5_a6 JTF_VARCHAR2_TABLE_500
356 , p5_a7 JTF_VARCHAR2_TABLE_500
357 , p5_a8 JTF_VARCHAR2_TABLE_500
358 , p5_a9 JTF_VARCHAR2_TABLE_500
359 , p5_a10 JTF_VARCHAR2_TABLE_500
360 , p5_a11 JTF_VARCHAR2_TABLE_500
361 , p5_a12 JTF_VARCHAR2_TABLE_500
362 , p5_a13 JTF_VARCHAR2_TABLE_500
363 , p5_a14 JTF_VARCHAR2_TABLE_500
364 , p5_a15 JTF_VARCHAR2_TABLE_500
365 , p5_a16 JTF_VARCHAR2_TABLE_500
366 , p5_a17 JTF_VARCHAR2_TABLE_500
367 , p5_a18 JTF_NUMBER_TABLE
368 , p5_a19 JTF_NUMBER_TABLE
369 , p5_a20 JTF_VARCHAR2_TABLE_100
370 , p5_a21 JTF_VARCHAR2_TABLE_300
371 , p5_a22 JTF_VARCHAR2_TABLE_2000
372 , p5_a23 JTF_VARCHAR2_TABLE_2000
373 , p6_a0 out nocopy JTF_NUMBER_TABLE
374 , p6_a1 out nocopy JTF_NUMBER_TABLE
375 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
376 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_500
377 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_500
378 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_500
379 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_500
380 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_500
381 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
382 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
383 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
384 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
385 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
386 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
387 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
388 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
389 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
390 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
391 , p6_a18 out nocopy JTF_NUMBER_TABLE
392 , p6_a19 out nocopy JTF_NUMBER_TABLE
393 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_100
394 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_300
395 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_2000
396 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_2000
397 )
398
399 as
400 ddp_vldv_tbl okl_vld_pvt.vldv_tbl_type;
401 ddx_vldv_tbl okl_vld_pvt.vldv_tbl_type;
402 ddindx binary_integer; indx binary_integer;
403 begin
404
405 -- copy data to the local IN or IN-OUT args, if any
406
407
408
409
410
411 okl_vld_pvt_w.rosetta_table_copy_in_p23(ddp_vldv_tbl, p5_a0
412 , p5_a1
413 , p5_a2
414 , p5_a3
415 , p5_a4
416 , p5_a5
417 , p5_a6
418 , p5_a7
419 , p5_a8
420 , p5_a9
421 , p5_a10
422 , p5_a11
423 , p5_a12
424 , p5_a13
425 , p5_a14
426 , p5_a15
427 , p5_a16
428 , p5_a17
429 , p5_a18
430 , p5_a19
431 , p5_a20
432 , p5_a21
433 , p5_a22
434 , p5_a23
435 );
436
437
438 -- here's the delegated call to the old PL/SQL routine
439 okl_vld_pvt.update_row(p_api_version,
440 p_init_msg_list,
441 x_return_status,
442 x_msg_count,
443 x_msg_data,
444 ddp_vldv_tbl,
445 ddx_vldv_tbl);
446
447 -- copy data back from the local variables to OUT or IN-OUT args, if any
448
449
450
451
452
453
454 okl_vld_pvt_w.rosetta_table_copy_out_p23(ddx_vldv_tbl, p6_a0
455 , p6_a1
456 , p6_a2
457 , p6_a3
458 , p6_a4
459 , p6_a5
460 , p6_a6
461 , p6_a7
462 , p6_a8
463 , p6_a9
464 , p6_a10
465 , p6_a11
466 , p6_a12
467 , p6_a13
468 , p6_a14
469 , p6_a15
470 , p6_a16
471 , p6_a17
472 , p6_a18
473 , p6_a19
474 , p6_a20
475 , p6_a21
476 , p6_a22
477 , p6_a23
478 );
479 end;
480
481 procedure delete_row(p_api_version NUMBER
482 , p_init_msg_list VARCHAR2
483 , x_return_status out nocopy VARCHAR2
484 , x_msg_count out nocopy NUMBER
485 , x_msg_data out nocopy VARCHAR2
486 , p5_a0 JTF_NUMBER_TABLE
487 , p5_a1 JTF_NUMBER_TABLE
488 , p5_a2 JTF_VARCHAR2_TABLE_100
489 , p5_a3 JTF_VARCHAR2_TABLE_500
490 , p5_a4 JTF_VARCHAR2_TABLE_500
491 , p5_a5 JTF_VARCHAR2_TABLE_500
492 , p5_a6 JTF_VARCHAR2_TABLE_500
493 , p5_a7 JTF_VARCHAR2_TABLE_500
494 , p5_a8 JTF_VARCHAR2_TABLE_500
495 , p5_a9 JTF_VARCHAR2_TABLE_500
496 , p5_a10 JTF_VARCHAR2_TABLE_500
497 , p5_a11 JTF_VARCHAR2_TABLE_500
498 , p5_a12 JTF_VARCHAR2_TABLE_500
499 , p5_a13 JTF_VARCHAR2_TABLE_500
500 , p5_a14 JTF_VARCHAR2_TABLE_500
501 , p5_a15 JTF_VARCHAR2_TABLE_500
502 , p5_a16 JTF_VARCHAR2_TABLE_500
503 , p5_a17 JTF_VARCHAR2_TABLE_500
504 , p5_a18 JTF_NUMBER_TABLE
505 , p5_a19 JTF_NUMBER_TABLE
506 , p5_a20 JTF_VARCHAR2_TABLE_100
507 , p5_a21 JTF_VARCHAR2_TABLE_300
508 , p5_a22 JTF_VARCHAR2_TABLE_2000
509 , p5_a23 JTF_VARCHAR2_TABLE_2000
510 )
511
512 as
513 ddp_vldv_tbl okl_vld_pvt.vldv_tbl_type;
514 ddindx binary_integer; indx binary_integer;
515 begin
516
517 -- copy data to the local IN or IN-OUT args, if any
518
519
520
521
522
523 okl_vld_pvt_w.rosetta_table_copy_in_p23(ddp_vldv_tbl, p5_a0
524 , p5_a1
525 , p5_a2
526 , p5_a3
527 , p5_a4
528 , p5_a5
529 , p5_a6
530 , p5_a7
531 , p5_a8
532 , p5_a9
533 , p5_a10
534 , p5_a11
535 , p5_a12
536 , p5_a13
537 , p5_a14
538 , p5_a15
539 , p5_a16
540 , p5_a17
541 , p5_a18
542 , p5_a19
543 , p5_a20
544 , p5_a21
545 , p5_a22
546 , p5_a23
547 );
548
549 -- here's the delegated call to the old PL/SQL routine
550 okl_vld_pvt.delete_row(p_api_version,
551 p_init_msg_list,
552 x_return_status,
553 x_msg_count,
554 x_msg_data,
555 ddp_vldv_tbl);
556
557 -- copy data back from the local variables to OUT or IN-OUT args, if any
558
559
560
561
562
563 end;
564
565 procedure insert_row(p_api_version NUMBER
566 , p_init_msg_list VARCHAR2
567 , x_return_status out nocopy VARCHAR2
568 , x_msg_count out nocopy NUMBER
569 , x_msg_data out nocopy VARCHAR2
570 , p5_a0 NUMBER
571 , p5_a1 NUMBER
572 , p5_a2 VARCHAR2
573 , p5_a3 VARCHAR2
574 , p5_a4 VARCHAR2
575 , p5_a5 VARCHAR2
576 , p5_a6 VARCHAR2
577 , p5_a7 VARCHAR2
578 , p5_a8 VARCHAR2
579 , p5_a9 VARCHAR2
580 , p5_a10 VARCHAR2
581 , p5_a11 VARCHAR2
582 , p5_a12 VARCHAR2
583 , p5_a13 VARCHAR2
584 , p5_a14 VARCHAR2
585 , p5_a15 VARCHAR2
586 , p5_a16 VARCHAR2
587 , p5_a17 VARCHAR2
588 , p5_a18 NUMBER
589 , p5_a19 NUMBER
590 , p5_a20 VARCHAR2
591 , p5_a21 VARCHAR2
592 , p5_a22 VARCHAR2
593 , p5_a23 VARCHAR2
594 , p6_a0 out nocopy NUMBER
595 , p6_a1 out nocopy NUMBER
596 , p6_a2 out nocopy VARCHAR2
597 , p6_a3 out nocopy VARCHAR2
598 , p6_a4 out nocopy VARCHAR2
599 , p6_a5 out nocopy VARCHAR2
600 , p6_a6 out nocopy VARCHAR2
601 , p6_a7 out nocopy VARCHAR2
602 , p6_a8 out nocopy VARCHAR2
603 , p6_a9 out nocopy VARCHAR2
604 , p6_a10 out nocopy VARCHAR2
605 , p6_a11 out nocopy VARCHAR2
606 , p6_a12 out nocopy VARCHAR2
607 , p6_a13 out nocopy VARCHAR2
608 , p6_a14 out nocopy VARCHAR2
609 , p6_a15 out nocopy VARCHAR2
610 , p6_a16 out nocopy VARCHAR2
611 , p6_a17 out nocopy VARCHAR2
612 , p6_a18 out nocopy NUMBER
613 , p6_a19 out nocopy NUMBER
614 , p6_a20 out nocopy VARCHAR2
615 , p6_a21 out nocopy VARCHAR2
616 , p6_a22 out nocopy VARCHAR2
617 , p6_a23 out nocopy VARCHAR2
618 )
619
620 as
621 ddp_vldv_rec okl_vld_pvt.vldv_rec_type;
622 ddx_vldv_rec okl_vld_pvt.vldv_rec_type;
623 ddindx binary_integer; indx binary_integer;
624 begin
625
626 -- copy data to the local IN or IN-OUT args, if any
627
628
629
630
631
632 ddp_vldv_rec.id := p5_a0;
633 ddp_vldv_rec.object_version_number := p5_a1;
634 ddp_vldv_rec.attribute_category := p5_a2;
635 ddp_vldv_rec.attribute1 := p5_a3;
636 ddp_vldv_rec.attribute2 := p5_a4;
637 ddp_vldv_rec.attribute3 := p5_a5;
638 ddp_vldv_rec.attribute4 := p5_a6;
639 ddp_vldv_rec.attribute5 := p5_a7;
640 ddp_vldv_rec.attribute6 := p5_a8;
641 ddp_vldv_rec.attribute7 := p5_a9;
642 ddp_vldv_rec.attribute8 := p5_a10;
643 ddp_vldv_rec.attribute9 := p5_a11;
644 ddp_vldv_rec.attribute10 := p5_a12;
645 ddp_vldv_rec.attribute11 := p5_a13;
646 ddp_vldv_rec.attribute12 := p5_a14;
647 ddp_vldv_rec.attribute13 := p5_a15;
648 ddp_vldv_rec.attribute14 := p5_a16;
649 ddp_vldv_rec.attribute15 := p5_a17;
650 ddp_vldv_rec.validation_set_id := p5_a18;
651 ddp_vldv_rec.function_id := p5_a19;
652 ddp_vldv_rec.failure_severity := p5_a20;
653 ddp_vldv_rec.short_description := p5_a21;
654 ddp_vldv_rec.description := p5_a22;
655 ddp_vldv_rec.comments := p5_a23;
656
657
658 -- here's the delegated call to the old PL/SQL routine
659 okl_vld_pvt.insert_row(p_api_version,
660 p_init_msg_list,
661 x_return_status,
662 x_msg_count,
663 x_msg_data,
664 ddp_vldv_rec,
665 ddx_vldv_rec);
666
667 -- copy data back from the local variables to OUT or IN-OUT args, if any
668
669
670
671
672
673
674 p6_a0 := ddx_vldv_rec.id;
675 p6_a1 := ddx_vldv_rec.object_version_number;
676 p6_a2 := ddx_vldv_rec.attribute_category;
677 p6_a3 := ddx_vldv_rec.attribute1;
678 p6_a4 := ddx_vldv_rec.attribute2;
679 p6_a5 := ddx_vldv_rec.attribute3;
680 p6_a6 := ddx_vldv_rec.attribute4;
681 p6_a7 := ddx_vldv_rec.attribute5;
682 p6_a8 := ddx_vldv_rec.attribute6;
683 p6_a9 := ddx_vldv_rec.attribute7;
684 p6_a10 := ddx_vldv_rec.attribute8;
685 p6_a11 := ddx_vldv_rec.attribute9;
686 p6_a12 := ddx_vldv_rec.attribute10;
687 p6_a13 := ddx_vldv_rec.attribute11;
688 p6_a14 := ddx_vldv_rec.attribute12;
689 p6_a15 := ddx_vldv_rec.attribute13;
690 p6_a16 := ddx_vldv_rec.attribute14;
691 p6_a17 := ddx_vldv_rec.attribute15;
692 p6_a18 := ddx_vldv_rec.validation_set_id;
693 p6_a19 := ddx_vldv_rec.function_id;
694 p6_a20 := ddx_vldv_rec.failure_severity;
695 p6_a21 := ddx_vldv_rec.short_description;
696 p6_a22 := ddx_vldv_rec.description;
697 p6_a23 := ddx_vldv_rec.comments;
698 end;
699
700 procedure update_row(p_api_version NUMBER
701 , p_init_msg_list VARCHAR2
702 , x_return_status out nocopy VARCHAR2
703 , x_msg_count out nocopy NUMBER
704 , x_msg_data out nocopy VARCHAR2
705 , p5_a0 NUMBER
706 , p5_a1 NUMBER
707 , p5_a2 VARCHAR2
708 , p5_a3 VARCHAR2
709 , p5_a4 VARCHAR2
710 , p5_a5 VARCHAR2
711 , p5_a6 VARCHAR2
712 , p5_a7 VARCHAR2
713 , p5_a8 VARCHAR2
714 , p5_a9 VARCHAR2
715 , p5_a10 VARCHAR2
716 , p5_a11 VARCHAR2
717 , p5_a12 VARCHAR2
718 , p5_a13 VARCHAR2
719 , p5_a14 VARCHAR2
720 , p5_a15 VARCHAR2
721 , p5_a16 VARCHAR2
722 , p5_a17 VARCHAR2
723 , p5_a18 NUMBER
724 , p5_a19 NUMBER
725 , p5_a20 VARCHAR2
726 , p5_a21 VARCHAR2
727 , p5_a22 VARCHAR2
728 , p5_a23 VARCHAR2
729 , p6_a0 out nocopy NUMBER
730 , p6_a1 out nocopy NUMBER
731 , p6_a2 out nocopy VARCHAR2
732 , p6_a3 out nocopy VARCHAR2
733 , p6_a4 out nocopy VARCHAR2
734 , p6_a5 out nocopy VARCHAR2
735 , p6_a6 out nocopy VARCHAR2
736 , p6_a7 out nocopy VARCHAR2
737 , p6_a8 out nocopy VARCHAR2
738 , p6_a9 out nocopy VARCHAR2
739 , p6_a10 out nocopy VARCHAR2
740 , p6_a11 out nocopy VARCHAR2
741 , p6_a12 out nocopy VARCHAR2
742 , p6_a13 out nocopy VARCHAR2
743 , p6_a14 out nocopy VARCHAR2
744 , p6_a15 out nocopy VARCHAR2
745 , p6_a16 out nocopy VARCHAR2
746 , p6_a17 out nocopy VARCHAR2
747 , p6_a18 out nocopy NUMBER
748 , p6_a19 out nocopy NUMBER
749 , p6_a20 out nocopy VARCHAR2
750 , p6_a21 out nocopy VARCHAR2
751 , p6_a22 out nocopy VARCHAR2
752 , p6_a23 out nocopy VARCHAR2
753 )
754
755 as
756 ddp_vldv_rec okl_vld_pvt.vldv_rec_type;
757 ddx_vldv_rec okl_vld_pvt.vldv_rec_type;
758 ddindx binary_integer; indx binary_integer;
759 begin
760
761 -- copy data to the local IN or IN-OUT args, if any
762
763
764
765
766
767 ddp_vldv_rec.id := p5_a0;
768 ddp_vldv_rec.object_version_number := p5_a1;
769 ddp_vldv_rec.attribute_category := p5_a2;
770 ddp_vldv_rec.attribute1 := p5_a3;
771 ddp_vldv_rec.attribute2 := p5_a4;
772 ddp_vldv_rec.attribute3 := p5_a5;
773 ddp_vldv_rec.attribute4 := p5_a6;
774 ddp_vldv_rec.attribute5 := p5_a7;
775 ddp_vldv_rec.attribute6 := p5_a8;
776 ddp_vldv_rec.attribute7 := p5_a9;
777 ddp_vldv_rec.attribute8 := p5_a10;
778 ddp_vldv_rec.attribute9 := p5_a11;
779 ddp_vldv_rec.attribute10 := p5_a12;
780 ddp_vldv_rec.attribute11 := p5_a13;
781 ddp_vldv_rec.attribute12 := p5_a14;
782 ddp_vldv_rec.attribute13 := p5_a15;
783 ddp_vldv_rec.attribute14 := p5_a16;
784 ddp_vldv_rec.attribute15 := p5_a17;
785 ddp_vldv_rec.validation_set_id := p5_a18;
786 ddp_vldv_rec.function_id := p5_a19;
787 ddp_vldv_rec.failure_severity := p5_a20;
788 ddp_vldv_rec.short_description := p5_a21;
789 ddp_vldv_rec.description := p5_a22;
790 ddp_vldv_rec.comments := p5_a23;
791
792
793 -- here's the delegated call to the old PL/SQL routine
794 okl_vld_pvt.update_row(p_api_version,
795 p_init_msg_list,
796 x_return_status,
797 x_msg_count,
798 x_msg_data,
799 ddp_vldv_rec,
800 ddx_vldv_rec);
801
802 -- copy data back from the local variables to OUT or IN-OUT args, if any
803
804
805
806
807
808
809 p6_a0 := ddx_vldv_rec.id;
810 p6_a1 := ddx_vldv_rec.object_version_number;
811 p6_a2 := ddx_vldv_rec.attribute_category;
812 p6_a3 := ddx_vldv_rec.attribute1;
813 p6_a4 := ddx_vldv_rec.attribute2;
814 p6_a5 := ddx_vldv_rec.attribute3;
815 p6_a6 := ddx_vldv_rec.attribute4;
816 p6_a7 := ddx_vldv_rec.attribute5;
817 p6_a8 := ddx_vldv_rec.attribute6;
818 p6_a9 := ddx_vldv_rec.attribute7;
819 p6_a10 := ddx_vldv_rec.attribute8;
820 p6_a11 := ddx_vldv_rec.attribute9;
821 p6_a12 := ddx_vldv_rec.attribute10;
822 p6_a13 := ddx_vldv_rec.attribute11;
823 p6_a14 := ddx_vldv_rec.attribute12;
824 p6_a15 := ddx_vldv_rec.attribute13;
825 p6_a16 := ddx_vldv_rec.attribute14;
826 p6_a17 := ddx_vldv_rec.attribute15;
827 p6_a18 := ddx_vldv_rec.validation_set_id;
828 p6_a19 := ddx_vldv_rec.function_id;
829 p6_a20 := ddx_vldv_rec.failure_severity;
830 p6_a21 := ddx_vldv_rec.short_description;
831 p6_a22 := ddx_vldv_rec.description;
832 p6_a23 := ddx_vldv_rec.comments;
833 end;
834
835 procedure delete_row(p_api_version NUMBER
836 , p_init_msg_list VARCHAR2
837 , x_return_status out nocopy VARCHAR2
838 , x_msg_count out nocopy NUMBER
839 , x_msg_data out nocopy VARCHAR2
840 , p5_a0 NUMBER
841 , p5_a1 NUMBER
842 , p5_a2 VARCHAR2
843 , p5_a3 VARCHAR2
844 , p5_a4 VARCHAR2
845 , p5_a5 VARCHAR2
846 , p5_a6 VARCHAR2
847 , p5_a7 VARCHAR2
848 , p5_a8 VARCHAR2
849 , p5_a9 VARCHAR2
850 , p5_a10 VARCHAR2
851 , p5_a11 VARCHAR2
852 , p5_a12 VARCHAR2
853 , p5_a13 VARCHAR2
854 , p5_a14 VARCHAR2
855 , p5_a15 VARCHAR2
856 , p5_a16 VARCHAR2
857 , p5_a17 VARCHAR2
858 , p5_a18 NUMBER
859 , p5_a19 NUMBER
860 , p5_a20 VARCHAR2
861 , p5_a21 VARCHAR2
862 , p5_a22 VARCHAR2
863 , p5_a23 VARCHAR2
864 )
865
866 as
867 ddp_vldv_rec okl_vld_pvt.vldv_rec_type;
868 ddindx binary_integer; indx binary_integer;
869 begin
870
871 -- copy data to the local IN or IN-OUT args, if any
872
873
874
875
876
877 ddp_vldv_rec.id := p5_a0;
878 ddp_vldv_rec.object_version_number := p5_a1;
879 ddp_vldv_rec.attribute_category := p5_a2;
880 ddp_vldv_rec.attribute1 := p5_a3;
881 ddp_vldv_rec.attribute2 := p5_a4;
882 ddp_vldv_rec.attribute3 := p5_a5;
883 ddp_vldv_rec.attribute4 := p5_a6;
884 ddp_vldv_rec.attribute5 := p5_a7;
885 ddp_vldv_rec.attribute6 := p5_a8;
886 ddp_vldv_rec.attribute7 := p5_a9;
887 ddp_vldv_rec.attribute8 := p5_a10;
888 ddp_vldv_rec.attribute9 := p5_a11;
889 ddp_vldv_rec.attribute10 := p5_a12;
890 ddp_vldv_rec.attribute11 := p5_a13;
891 ddp_vldv_rec.attribute12 := p5_a14;
892 ddp_vldv_rec.attribute13 := p5_a15;
893 ddp_vldv_rec.attribute14 := p5_a16;
894 ddp_vldv_rec.attribute15 := p5_a17;
895 ddp_vldv_rec.validation_set_id := p5_a18;
896 ddp_vldv_rec.function_id := p5_a19;
897 ddp_vldv_rec.failure_severity := p5_a20;
898 ddp_vldv_rec.short_description := p5_a21;
899 ddp_vldv_rec.description := p5_a22;
900 ddp_vldv_rec.comments := p5_a23;
901
902 -- here's the delegated call to the old PL/SQL routine
903 okl_vld_pvt.delete_row(p_api_version,
904 p_init_msg_list,
905 x_return_status,
906 x_msg_count,
907 x_msg_data,
908 ddp_vldv_rec);
909
910 -- copy data back from the local variables to OUT or IN-OUT args, if any
911
912
913
914
915
916 end;
917
918 end okl_vld_pvt_w;