[Home] [Help]
PACKAGE BODY: APPS.OKL_VALIDATION_SET_PVT_W
Source
1 package body okl_validation_set_pvt_w as
2 /* $Header: OKLEVLSB.pls 120.3 2005/09/20 06:24:41 ssdeshpa noship $ */
3 procedure create_vls(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 VARCHAR2
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 NUMBER
27 , p5_a19 VARCHAR2
28 , p5_a20 DATE
29 , p5_a21 DATE
30 , p5_a22 VARCHAR2
31 , p5_a23 VARCHAR2
32 , p5_a24 VARCHAR2
33 , p6_a0 out nocopy NUMBER
34 , p6_a1 out nocopy NUMBER
35 , p6_a2 out nocopy VARCHAR2
36 , p6_a3 out nocopy VARCHAR2
37 , p6_a4 out nocopy VARCHAR2
38 , p6_a5 out nocopy VARCHAR2
39 , p6_a6 out nocopy VARCHAR2
40 , p6_a7 out nocopy VARCHAR2
41 , p6_a8 out nocopy VARCHAR2
42 , p6_a9 out nocopy VARCHAR2
43 , p6_a10 out nocopy VARCHAR2
44 , p6_a11 out nocopy VARCHAR2
45 , p6_a12 out nocopy VARCHAR2
46 , p6_a13 out nocopy VARCHAR2
47 , p6_a14 out nocopy VARCHAR2
48 , p6_a15 out nocopy VARCHAR2
49 , p6_a16 out nocopy VARCHAR2
50 , p6_a17 out nocopy VARCHAR2
51 , p6_a18 out nocopy NUMBER
52 , p6_a19 out nocopy VARCHAR2
53 , p6_a20 out nocopy DATE
54 , p6_a21 out nocopy DATE
55 , p6_a22 out nocopy VARCHAR2
56 , p6_a23 out nocopy VARCHAR2
57 , p6_a24 out nocopy VARCHAR2
58 , p7_a0 JTF_NUMBER_TABLE
59 , p7_a1 JTF_NUMBER_TABLE
60 , p7_a2 JTF_VARCHAR2_TABLE_100
61 , p7_a3 JTF_VARCHAR2_TABLE_500
62 , p7_a4 JTF_VARCHAR2_TABLE_500
63 , p7_a5 JTF_VARCHAR2_TABLE_500
64 , p7_a6 JTF_VARCHAR2_TABLE_500
65 , p7_a7 JTF_VARCHAR2_TABLE_500
66 , p7_a8 JTF_VARCHAR2_TABLE_500
67 , p7_a9 JTF_VARCHAR2_TABLE_500
68 , p7_a10 JTF_VARCHAR2_TABLE_500
69 , p7_a11 JTF_VARCHAR2_TABLE_500
70 , p7_a12 JTF_VARCHAR2_TABLE_500
71 , p7_a13 JTF_VARCHAR2_TABLE_500
72 , p7_a14 JTF_VARCHAR2_TABLE_500
73 , p7_a15 JTF_VARCHAR2_TABLE_500
74 , p7_a16 JTF_VARCHAR2_TABLE_500
75 , p7_a17 JTF_VARCHAR2_TABLE_500
76 , p7_a18 JTF_NUMBER_TABLE
77 , p7_a19 JTF_NUMBER_TABLE
78 , p7_a20 JTF_VARCHAR2_TABLE_100
79 , p7_a21 JTF_VARCHAR2_TABLE_300
80 , p7_a22 JTF_VARCHAR2_TABLE_2000
81 , p7_a23 JTF_VARCHAR2_TABLE_2000
82 , p8_a0 out nocopy JTF_NUMBER_TABLE
83 , p8_a1 out nocopy JTF_NUMBER_TABLE
84 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_100
85 , p8_a3 out nocopy JTF_VARCHAR2_TABLE_500
86 , p8_a4 out nocopy JTF_VARCHAR2_TABLE_500
87 , p8_a5 out nocopy JTF_VARCHAR2_TABLE_500
88 , p8_a6 out nocopy JTF_VARCHAR2_TABLE_500
89 , p8_a7 out nocopy JTF_VARCHAR2_TABLE_500
90 , p8_a8 out nocopy JTF_VARCHAR2_TABLE_500
91 , p8_a9 out nocopy JTF_VARCHAR2_TABLE_500
92 , p8_a10 out nocopy JTF_VARCHAR2_TABLE_500
93 , p8_a11 out nocopy JTF_VARCHAR2_TABLE_500
94 , p8_a12 out nocopy JTF_VARCHAR2_TABLE_500
95 , p8_a13 out nocopy JTF_VARCHAR2_TABLE_500
96 , p8_a14 out nocopy JTF_VARCHAR2_TABLE_500
97 , p8_a15 out nocopy JTF_VARCHAR2_TABLE_500
98 , p8_a16 out nocopy JTF_VARCHAR2_TABLE_500
99 , p8_a17 out nocopy JTF_VARCHAR2_TABLE_500
100 , p8_a18 out nocopy JTF_NUMBER_TABLE
101 , p8_a19 out nocopy JTF_NUMBER_TABLE
102 , p8_a20 out nocopy JTF_VARCHAR2_TABLE_100
103 , p8_a21 out nocopy JTF_VARCHAR2_TABLE_300
104 , p8_a22 out nocopy JTF_VARCHAR2_TABLE_2000
105 , p8_a23 out nocopy JTF_VARCHAR2_TABLE_2000
106 )
107
108 as
109 ddp_vlsv_rec okl_validation_set_pvt.vlsv_rec_type;
110 ddx_vlsv_rec okl_validation_set_pvt.vlsv_rec_type;
111 ddp_vldv_tbl okl_validation_set_pvt.vldv_tbl_type;
112 ddx_vldv_tbl okl_validation_set_pvt.vldv_tbl_type;
113 ddindx binary_integer; indx binary_integer;
114 begin
115
116 -- copy data to the local IN or IN-OUT args, if any
117
118
119
120
121
122 ddp_vlsv_rec.id := p5_a0;
123 ddp_vlsv_rec.object_version_number := p5_a1;
124 ddp_vlsv_rec.attribute_category := p5_a2;
125 ddp_vlsv_rec.attribute1 := p5_a3;
126 ddp_vlsv_rec.attribute2 := p5_a4;
127 ddp_vlsv_rec.attribute3 := p5_a5;
128 ddp_vlsv_rec.attribute4 := p5_a6;
129 ddp_vlsv_rec.attribute5 := p5_a7;
130 ddp_vlsv_rec.attribute6 := p5_a8;
131 ddp_vlsv_rec.attribute7 := p5_a9;
132 ddp_vlsv_rec.attribute8 := p5_a10;
133 ddp_vlsv_rec.attribute9 := p5_a11;
134 ddp_vlsv_rec.attribute10 := p5_a12;
135 ddp_vlsv_rec.attribute11 := p5_a13;
136 ddp_vlsv_rec.attribute12 := p5_a14;
137 ddp_vlsv_rec.attribute13 := p5_a15;
138 ddp_vlsv_rec.attribute14 := p5_a16;
139 ddp_vlsv_rec.attribute15 := p5_a17;
140 ddp_vlsv_rec.org_id := p5_a18;
141 ddp_vlsv_rec.validation_set_name := p5_a19;
142 ddp_vlsv_rec.effective_from := p5_a20;
143 ddp_vlsv_rec.effective_to := p5_a21;
144 ddp_vlsv_rec.short_description := p5_a22;
145 ddp_vlsv_rec.description := p5_a23;
146 ddp_vlsv_rec.comments := p5_a24;
147
148
149 okl_vld_pvt_w.rosetta_table_copy_in_p23(ddp_vldv_tbl, p7_a0
150 , p7_a1
151 , p7_a2
152 , p7_a3
153 , p7_a4
154 , p7_a5
155 , p7_a6
156 , p7_a7
157 , p7_a8
158 , p7_a9
159 , p7_a10
160 , p7_a11
161 , p7_a12
162 , p7_a13
163 , p7_a14
164 , p7_a15
165 , p7_a16
166 , p7_a17
167 , p7_a18
168 , p7_a19
169 , p7_a20
170 , p7_a21
171 , p7_a22
172 , p7_a23
173 );
174
175
176 -- here's the delegated call to the old PL/SQL routine
177 okl_validation_set_pvt.create_vls(p_api_version,
178 p_init_msg_list,
179 x_return_status,
180 x_msg_count,
181 x_msg_data,
182 ddp_vlsv_rec,
183 ddx_vlsv_rec,
184 ddp_vldv_tbl,
185 ddx_vldv_tbl);
186
187 -- copy data back from the local variables to OUT or IN-OUT args, if any
188
189
190
191
192
193
194 p6_a0 := ddx_vlsv_rec.id;
195 p6_a1 := ddx_vlsv_rec.object_version_number;
196 p6_a2 := ddx_vlsv_rec.attribute_category;
197 p6_a3 := ddx_vlsv_rec.attribute1;
198 p6_a4 := ddx_vlsv_rec.attribute2;
199 p6_a5 := ddx_vlsv_rec.attribute3;
200 p6_a6 := ddx_vlsv_rec.attribute4;
201 p6_a7 := ddx_vlsv_rec.attribute5;
202 p6_a8 := ddx_vlsv_rec.attribute6;
203 p6_a9 := ddx_vlsv_rec.attribute7;
204 p6_a10 := ddx_vlsv_rec.attribute8;
205 p6_a11 := ddx_vlsv_rec.attribute9;
206 p6_a12 := ddx_vlsv_rec.attribute10;
207 p6_a13 := ddx_vlsv_rec.attribute11;
208 p6_a14 := ddx_vlsv_rec.attribute12;
209 p6_a15 := ddx_vlsv_rec.attribute13;
210 p6_a16 := ddx_vlsv_rec.attribute14;
211 p6_a17 := ddx_vlsv_rec.attribute15;
212 p6_a18 := ddx_vlsv_rec.org_id;
213 p6_a19 := ddx_vlsv_rec.validation_set_name;
214 p6_a20 := ddx_vlsv_rec.effective_from;
215 p6_a21 := ddx_vlsv_rec.effective_to;
216 p6_a22 := ddx_vlsv_rec.short_description;
217 p6_a23 := ddx_vlsv_rec.description;
218 p6_a24 := ddx_vlsv_rec.comments;
219
220
221 okl_vld_pvt_w.rosetta_table_copy_out_p23(ddx_vldv_tbl, p8_a0
222 , p8_a1
223 , p8_a2
224 , p8_a3
225 , p8_a4
226 , p8_a5
227 , p8_a6
228 , p8_a7
229 , p8_a8
230 , p8_a9
231 , p8_a10
232 , p8_a11
233 , p8_a12
234 , p8_a13
235 , p8_a14
236 , p8_a15
237 , p8_a16
238 , p8_a17
239 , p8_a18
240 , p8_a19
241 , p8_a20
242 , p8_a21
243 , p8_a22
244 , p8_a23
245 );
246 end;
247
248 procedure update_vls(p_api_version NUMBER
249 , p_init_msg_list VARCHAR2
250 , x_return_status out nocopy VARCHAR2
251 , x_msg_count out nocopy NUMBER
252 , x_msg_data out nocopy VARCHAR2
253 , p5_a0 NUMBER
254 , p5_a1 NUMBER
255 , p5_a2 VARCHAR2
256 , p5_a3 VARCHAR2
257 , p5_a4 VARCHAR2
258 , p5_a5 VARCHAR2
259 , p5_a6 VARCHAR2
260 , p5_a7 VARCHAR2
261 , p5_a8 VARCHAR2
262 , p5_a9 VARCHAR2
263 , p5_a10 VARCHAR2
264 , p5_a11 VARCHAR2
265 , p5_a12 VARCHAR2
266 , p5_a13 VARCHAR2
267 , p5_a14 VARCHAR2
268 , p5_a15 VARCHAR2
269 , p5_a16 VARCHAR2
270 , p5_a17 VARCHAR2
271 , p5_a18 NUMBER
272 , p5_a19 VARCHAR2
273 , p5_a20 DATE
274 , p5_a21 DATE
275 , p5_a22 VARCHAR2
276 , p5_a23 VARCHAR2
277 , p5_a24 VARCHAR2
278 , p6_a0 out nocopy NUMBER
279 , p6_a1 out nocopy NUMBER
280 , p6_a2 out nocopy VARCHAR2
281 , p6_a3 out nocopy VARCHAR2
282 , p6_a4 out nocopy VARCHAR2
283 , p6_a5 out nocopy VARCHAR2
284 , p6_a6 out nocopy VARCHAR2
285 , p6_a7 out nocopy VARCHAR2
286 , p6_a8 out nocopy VARCHAR2
287 , p6_a9 out nocopy VARCHAR2
288 , p6_a10 out nocopy VARCHAR2
289 , p6_a11 out nocopy VARCHAR2
290 , p6_a12 out nocopy VARCHAR2
291 , p6_a13 out nocopy VARCHAR2
292 , p6_a14 out nocopy VARCHAR2
293 , p6_a15 out nocopy VARCHAR2
294 , p6_a16 out nocopy VARCHAR2
295 , p6_a17 out nocopy VARCHAR2
296 , p6_a18 out nocopy NUMBER
297 , p6_a19 out nocopy VARCHAR2
298 , p6_a20 out nocopy DATE
299 , p6_a21 out nocopy DATE
300 , p6_a22 out nocopy VARCHAR2
301 , p6_a23 out nocopy VARCHAR2
302 , p6_a24 out nocopy VARCHAR2
303 , p7_a0 JTF_NUMBER_TABLE
304 , p7_a1 JTF_NUMBER_TABLE
305 , p7_a2 JTF_VARCHAR2_TABLE_100
306 , p7_a3 JTF_VARCHAR2_TABLE_500
307 , p7_a4 JTF_VARCHAR2_TABLE_500
308 , p7_a5 JTF_VARCHAR2_TABLE_500
309 , p7_a6 JTF_VARCHAR2_TABLE_500
310 , p7_a7 JTF_VARCHAR2_TABLE_500
311 , p7_a8 JTF_VARCHAR2_TABLE_500
312 , p7_a9 JTF_VARCHAR2_TABLE_500
313 , p7_a10 JTF_VARCHAR2_TABLE_500
314 , p7_a11 JTF_VARCHAR2_TABLE_500
315 , p7_a12 JTF_VARCHAR2_TABLE_500
316 , p7_a13 JTF_VARCHAR2_TABLE_500
317 , p7_a14 JTF_VARCHAR2_TABLE_500
318 , p7_a15 JTF_VARCHAR2_TABLE_500
319 , p7_a16 JTF_VARCHAR2_TABLE_500
320 , p7_a17 JTF_VARCHAR2_TABLE_500
321 , p7_a18 JTF_NUMBER_TABLE
322 , p7_a19 JTF_NUMBER_TABLE
323 , p7_a20 JTF_VARCHAR2_TABLE_100
324 , p7_a21 JTF_VARCHAR2_TABLE_300
325 , p7_a22 JTF_VARCHAR2_TABLE_2000
326 , p7_a23 JTF_VARCHAR2_TABLE_2000
327 , p8_a0 out nocopy JTF_NUMBER_TABLE
328 , p8_a1 out nocopy JTF_NUMBER_TABLE
329 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_100
330 , p8_a3 out nocopy JTF_VARCHAR2_TABLE_500
331 , p8_a4 out nocopy JTF_VARCHAR2_TABLE_500
332 , p8_a5 out nocopy JTF_VARCHAR2_TABLE_500
333 , p8_a6 out nocopy JTF_VARCHAR2_TABLE_500
334 , p8_a7 out nocopy JTF_VARCHAR2_TABLE_500
335 , p8_a8 out nocopy JTF_VARCHAR2_TABLE_500
336 , p8_a9 out nocopy JTF_VARCHAR2_TABLE_500
337 , p8_a10 out nocopy JTF_VARCHAR2_TABLE_500
338 , p8_a11 out nocopy JTF_VARCHAR2_TABLE_500
339 , p8_a12 out nocopy JTF_VARCHAR2_TABLE_500
340 , p8_a13 out nocopy JTF_VARCHAR2_TABLE_500
341 , p8_a14 out nocopy JTF_VARCHAR2_TABLE_500
342 , p8_a15 out nocopy JTF_VARCHAR2_TABLE_500
343 , p8_a16 out nocopy JTF_VARCHAR2_TABLE_500
344 , p8_a17 out nocopy JTF_VARCHAR2_TABLE_500
345 , p8_a18 out nocopy JTF_NUMBER_TABLE
346 , p8_a19 out nocopy JTF_NUMBER_TABLE
347 , p8_a20 out nocopy JTF_VARCHAR2_TABLE_100
348 , p8_a21 out nocopy JTF_VARCHAR2_TABLE_300
349 , p8_a22 out nocopy JTF_VARCHAR2_TABLE_2000
350 , p8_a23 out nocopy JTF_VARCHAR2_TABLE_2000
351 )
352
353 as
354 ddp_vlsv_rec okl_validation_set_pvt.vlsv_rec_type;
355 ddx_vlsv_rec okl_validation_set_pvt.vlsv_rec_type;
356 ddp_vldv_tbl okl_validation_set_pvt.vldv_tbl_type;
357 ddx_vldv_tbl okl_validation_set_pvt.vldv_tbl_type;
358 ddindx binary_integer; indx binary_integer;
359 begin
360
361 -- copy data to the local IN or IN-OUT args, if any
362
363
364
365
366
367 ddp_vlsv_rec.id := p5_a0;
368 ddp_vlsv_rec.object_version_number := p5_a1;
369 ddp_vlsv_rec.attribute_category := p5_a2;
370 ddp_vlsv_rec.attribute1 := p5_a3;
371 ddp_vlsv_rec.attribute2 := p5_a4;
372 ddp_vlsv_rec.attribute3 := p5_a5;
373 ddp_vlsv_rec.attribute4 := p5_a6;
374 ddp_vlsv_rec.attribute5 := p5_a7;
375 ddp_vlsv_rec.attribute6 := p5_a8;
376 ddp_vlsv_rec.attribute7 := p5_a9;
377 ddp_vlsv_rec.attribute8 := p5_a10;
378 ddp_vlsv_rec.attribute9 := p5_a11;
379 ddp_vlsv_rec.attribute10 := p5_a12;
380 ddp_vlsv_rec.attribute11 := p5_a13;
381 ddp_vlsv_rec.attribute12 := p5_a14;
382 ddp_vlsv_rec.attribute13 := p5_a15;
383 ddp_vlsv_rec.attribute14 := p5_a16;
384 ddp_vlsv_rec.attribute15 := p5_a17;
385 ddp_vlsv_rec.org_id := p5_a18;
386 ddp_vlsv_rec.validation_set_name := p5_a19;
387 ddp_vlsv_rec.effective_from := p5_a20;
388 ddp_vlsv_rec.effective_to := p5_a21;
389 ddp_vlsv_rec.short_description := p5_a22;
390 ddp_vlsv_rec.description := p5_a23;
391 ddp_vlsv_rec.comments := p5_a24;
392
393
394 okl_vld_pvt_w.rosetta_table_copy_in_p23(ddp_vldv_tbl, p7_a0
395 , p7_a1
396 , p7_a2
397 , p7_a3
398 , p7_a4
399 , p7_a5
400 , p7_a6
401 , p7_a7
402 , p7_a8
403 , p7_a9
404 , p7_a10
405 , p7_a11
406 , p7_a12
407 , p7_a13
408 , p7_a14
409 , p7_a15
410 , p7_a16
411 , p7_a17
412 , p7_a18
413 , p7_a19
414 , p7_a20
415 , p7_a21
416 , p7_a22
417 , p7_a23
418 );
419
420
421 -- here's the delegated call to the old PL/SQL routine
422 okl_validation_set_pvt.update_vls(p_api_version,
423 p_init_msg_list,
424 x_return_status,
425 x_msg_count,
426 x_msg_data,
427 ddp_vlsv_rec,
428 ddx_vlsv_rec,
429 ddp_vldv_tbl,
430 ddx_vldv_tbl);
431
432 -- copy data back from the local variables to OUT or IN-OUT args, if any
433
434
435
436
437
438
439 p6_a0 := ddx_vlsv_rec.id;
440 p6_a1 := ddx_vlsv_rec.object_version_number;
441 p6_a2 := ddx_vlsv_rec.attribute_category;
442 p6_a3 := ddx_vlsv_rec.attribute1;
443 p6_a4 := ddx_vlsv_rec.attribute2;
444 p6_a5 := ddx_vlsv_rec.attribute3;
445 p6_a6 := ddx_vlsv_rec.attribute4;
446 p6_a7 := ddx_vlsv_rec.attribute5;
447 p6_a8 := ddx_vlsv_rec.attribute6;
448 p6_a9 := ddx_vlsv_rec.attribute7;
449 p6_a10 := ddx_vlsv_rec.attribute8;
450 p6_a11 := ddx_vlsv_rec.attribute9;
451 p6_a12 := ddx_vlsv_rec.attribute10;
455 p6_a16 := ddx_vlsv_rec.attribute14;
452 p6_a13 := ddx_vlsv_rec.attribute11;
453 p6_a14 := ddx_vlsv_rec.attribute12;
454 p6_a15 := ddx_vlsv_rec.attribute13;
456 p6_a17 := ddx_vlsv_rec.attribute15;
457 p6_a18 := ddx_vlsv_rec.org_id;
458 p6_a19 := ddx_vlsv_rec.validation_set_name;
459 p6_a20 := ddx_vlsv_rec.effective_from;
460 p6_a21 := ddx_vlsv_rec.effective_to;
461 p6_a22 := ddx_vlsv_rec.short_description;
462 p6_a23 := ddx_vlsv_rec.description;
463 p6_a24 := ddx_vlsv_rec.comments;
464
465
466 okl_vld_pvt_w.rosetta_table_copy_out_p23(ddx_vldv_tbl, p8_a0
467 , p8_a1
468 , p8_a2
469 , p8_a3
470 , p8_a4
471 , p8_a5
472 , p8_a6
473 , p8_a7
474 , p8_a8
475 , p8_a9
476 , p8_a10
477 , p8_a11
478 , p8_a12
479 , p8_a13
480 , p8_a14
481 , p8_a15
482 , p8_a16
483 , p8_a17
484 , p8_a18
485 , p8_a19
486 , p8_a20
487 , p8_a21
488 , p8_a22
489 , p8_a23
490 );
491 end;
492
493 procedure delete_vls(p_api_version NUMBER
494 , p_init_msg_list VARCHAR2
495 , x_return_status out nocopy VARCHAR2
496 , x_msg_count out nocopy NUMBER
497 , x_msg_data out nocopy VARCHAR2
498 , p5_a0 NUMBER
499 , p5_a1 NUMBER
500 , p5_a2 VARCHAR2
501 , p5_a3 VARCHAR2
502 , p5_a4 VARCHAR2
503 , p5_a5 VARCHAR2
504 , p5_a6 VARCHAR2
505 , p5_a7 VARCHAR2
506 , p5_a8 VARCHAR2
507 , p5_a9 VARCHAR2
508 , p5_a10 VARCHAR2
509 , p5_a11 VARCHAR2
510 , p5_a12 VARCHAR2
511 , p5_a13 VARCHAR2
512 , p5_a14 VARCHAR2
513 , p5_a15 VARCHAR2
514 , p5_a16 VARCHAR2
515 , p5_a17 VARCHAR2
516 , p5_a18 NUMBER
517 , p5_a19 VARCHAR2
518 , p5_a20 DATE
519 , p5_a21 DATE
520 , p5_a22 VARCHAR2
521 , p5_a23 VARCHAR2
522 , p5_a24 VARCHAR2
523 )
524
525 as
526 ddp_vlsv_rec okl_validation_set_pvt.vlsv_rec_type;
527 ddindx binary_integer; indx binary_integer;
528 begin
529
530 -- copy data to the local IN or IN-OUT args, if any
531
532
533
534
535
536 ddp_vlsv_rec.id := p5_a0;
537 ddp_vlsv_rec.object_version_number := p5_a1;
538 ddp_vlsv_rec.attribute_category := p5_a2;
539 ddp_vlsv_rec.attribute1 := p5_a3;
540 ddp_vlsv_rec.attribute2 := p5_a4;
541 ddp_vlsv_rec.attribute3 := p5_a5;
542 ddp_vlsv_rec.attribute4 := p5_a6;
543 ddp_vlsv_rec.attribute5 := p5_a7;
544 ddp_vlsv_rec.attribute6 := p5_a8;
545 ddp_vlsv_rec.attribute7 := p5_a9;
546 ddp_vlsv_rec.attribute8 := p5_a10;
547 ddp_vlsv_rec.attribute9 := p5_a11;
548 ddp_vlsv_rec.attribute10 := p5_a12;
549 ddp_vlsv_rec.attribute11 := p5_a13;
550 ddp_vlsv_rec.attribute12 := p5_a14;
551 ddp_vlsv_rec.attribute13 := p5_a15;
552 ddp_vlsv_rec.attribute14 := p5_a16;
553 ddp_vlsv_rec.attribute15 := p5_a17;
554 ddp_vlsv_rec.org_id := p5_a18;
555 ddp_vlsv_rec.validation_set_name := p5_a19;
556 ddp_vlsv_rec.effective_from := p5_a20;
557 ddp_vlsv_rec.effective_to := p5_a21;
558 ddp_vlsv_rec.short_description := p5_a22;
559 ddp_vlsv_rec.description := p5_a23;
560 ddp_vlsv_rec.comments := p5_a24;
561
562 -- here's the delegated call to the old PL/SQL routine
563 okl_validation_set_pvt.delete_vls(p_api_version,
564 p_init_msg_list,
565 x_return_status,
566 x_msg_count,
567 x_msg_data,
568 ddp_vlsv_rec);
569
570 -- copy data back from the local variables to OUT or IN-OUT args, if any
571
572
573
574
575
576 end;
577
578 procedure delete_vld(p_api_version NUMBER
579 , p_init_msg_list VARCHAR2
580 , x_return_status out nocopy VARCHAR2
581 , x_msg_count out nocopy NUMBER
582 , x_msg_data out nocopy VARCHAR2
583 , p5_a0 NUMBER
584 , p5_a1 NUMBER
585 , p5_a2 VARCHAR2
586 , p5_a3 VARCHAR2
587 , p5_a4 VARCHAR2
588 , p5_a5 VARCHAR2
589 , p5_a6 VARCHAR2
590 , p5_a7 VARCHAR2
591 , p5_a8 VARCHAR2
592 , p5_a9 VARCHAR2
593 , p5_a10 VARCHAR2
594 , p5_a11 VARCHAR2
595 , p5_a12 VARCHAR2
596 , p5_a13 VARCHAR2
597 , p5_a14 VARCHAR2
598 , p5_a15 VARCHAR2
599 , p5_a16 VARCHAR2
600 , p5_a17 VARCHAR2
601 , p5_a18 NUMBER
602 , p5_a19 NUMBER
603 , p5_a20 VARCHAR2
604 , p5_a21 VARCHAR2
605 , p5_a22 VARCHAR2
606 , p5_a23 VARCHAR2
607 )
608
609 as
610 ddp_vldv_rec okl_validation_set_pvt.vldv_rec_type;
611 ddindx binary_integer; indx binary_integer;
612 begin
613
614 -- copy data to the local IN or IN-OUT args, if any
615
616
617
618
619
620 ddp_vldv_rec.id := p5_a0;
621 ddp_vldv_rec.object_version_number := p5_a1;
622 ddp_vldv_rec.attribute_category := p5_a2;
623 ddp_vldv_rec.attribute1 := p5_a3;
624 ddp_vldv_rec.attribute2 := p5_a4;
625 ddp_vldv_rec.attribute3 := p5_a5;
626 ddp_vldv_rec.attribute4 := p5_a6;
627 ddp_vldv_rec.attribute5 := p5_a7;
628 ddp_vldv_rec.attribute6 := p5_a8;
629 ddp_vldv_rec.attribute7 := p5_a9;
630 ddp_vldv_rec.attribute8 := p5_a10;
631 ddp_vldv_rec.attribute9 := p5_a11;
632 ddp_vldv_rec.attribute10 := p5_a12;
636 ddp_vldv_rec.attribute14 := p5_a16;
633 ddp_vldv_rec.attribute11 := p5_a13;
634 ddp_vldv_rec.attribute12 := p5_a14;
635 ddp_vldv_rec.attribute13 := p5_a15;
637 ddp_vldv_rec.attribute15 := p5_a17;
638 ddp_vldv_rec.validation_set_id := p5_a18;
639 ddp_vldv_rec.function_id := p5_a19;
640 ddp_vldv_rec.failure_severity := p5_a20;
641 ddp_vldv_rec.short_description := p5_a21;
642 ddp_vldv_rec.description := p5_a22;
643 ddp_vldv_rec.comments := p5_a23;
644
645 -- here's the delegated call to the old PL/SQL routine
646 okl_validation_set_pvt.delete_vld(p_api_version,
647 p_init_msg_list,
648 x_return_status,
649 x_msg_count,
650 x_msg_data,
651 ddp_vldv_rec);
652
653 -- copy data back from the local variables to OUT or IN-OUT args, if any
654
655
656
657
658
659 end;
660
661 function validate_header(p0_a0 NUMBER
662 , p0_a1 NUMBER
663 , p0_a2 VARCHAR2
664 , p0_a3 VARCHAR2
665 , p0_a4 VARCHAR2
666 , p0_a5 VARCHAR2
667 , p0_a6 VARCHAR2
668 , p0_a7 VARCHAR2
669 , p0_a8 VARCHAR2
670 , p0_a9 VARCHAR2
671 , p0_a10 VARCHAR2
672 , p0_a11 VARCHAR2
673 , p0_a12 VARCHAR2
674 , p0_a13 VARCHAR2
675 , p0_a14 VARCHAR2
676 , p0_a15 VARCHAR2
677 , p0_a16 VARCHAR2
678 , p0_a17 VARCHAR2
679 , p0_a18 NUMBER
680 , p0_a19 VARCHAR2
681 , p0_a20 DATE
682 , p0_a21 DATE
683 , p0_a22 VARCHAR2
684 , p0_a23 VARCHAR2
685 , p0_a24 VARCHAR2
686 ) return varchar2
687
688 as
689 ddp_vlsv_rec okl_validation_set_pvt.vlsv_rec_type;
690 ddindx binary_integer; indx binary_integer;
691 ddrosetta_retval varchar2(4000);
692 begin
693
694 -- copy data to the local IN or IN-OUT args, if any
695 ddp_vlsv_rec.id := p0_a0;
696 ddp_vlsv_rec.object_version_number := p0_a1;
697 ddp_vlsv_rec.attribute_category := p0_a2;
698 ddp_vlsv_rec.attribute1 := p0_a3;
699 ddp_vlsv_rec.attribute2 := p0_a4;
700 ddp_vlsv_rec.attribute3 := p0_a5;
701 ddp_vlsv_rec.attribute4 := p0_a6;
702 ddp_vlsv_rec.attribute5 := p0_a7;
703 ddp_vlsv_rec.attribute6 := p0_a8;
704 ddp_vlsv_rec.attribute7 := p0_a9;
705 ddp_vlsv_rec.attribute8 := p0_a10;
706 ddp_vlsv_rec.attribute9 := p0_a11;
707 ddp_vlsv_rec.attribute10 := p0_a12;
708 ddp_vlsv_rec.attribute11 := p0_a13;
709 ddp_vlsv_rec.attribute12 := p0_a14;
710 ddp_vlsv_rec.attribute13 := p0_a15;
711 ddp_vlsv_rec.attribute14 := p0_a16;
712 ddp_vlsv_rec.attribute15 := p0_a17;
713 ddp_vlsv_rec.org_id := p0_a18;
714 ddp_vlsv_rec.validation_set_name := p0_a19;
715 ddp_vlsv_rec.effective_from := p0_a20;
716 ddp_vlsv_rec.effective_to := p0_a21;
717 ddp_vlsv_rec.short_description := p0_a22;
718 ddp_vlsv_rec.description := p0_a23;
719 ddp_vlsv_rec.comments := p0_a24;
720
721 -- here's the delegated call to the old PL/SQL routine
722 ddrosetta_retval := okl_validation_set_pvt.validate_header(ddp_vlsv_rec);
723
724 -- copy data back from the local variables to OUT or IN-OUT args, if any
725
726 return ddrosetta_retval;
727 end;
728
729 end okl_validation_set_pvt_w;