[Home] [Help]
PACKAGE BODY: APPS.OKL_ECC_VALUES_PVT_W
Source
1 package body okl_ecc_values_pvt_w as
2 /* $Header: OKLEECVB.pls 120.1 2005/10/30 04:58:25 appldev noship $ */
3 procedure remove_ec_line(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 NUMBER
11 , p5_a3 NUMBER
12 , p5_a4 DATE
13 , p5_a5 DATE
14 , p5_a6 VARCHAR2
15 , p5_a7 VARCHAR2
16 , p5_a8 NUMBER
17 , p5_a9 DATE
18 , p5_a10 NUMBER
19 , p5_a11 DATE
20 , p5_a12 NUMBER
21 )
22
23 as
24 ddp_ecl_rec okl_ecc_values_pvt.okl_ecl_rec;
25 ddindx binary_integer; indx binary_integer;
26 begin
27
28 -- copy data to the local IN or IN-OUT args, if any
29
30
31
32
33
34 ddp_ecl_rec.criteria_id := p5_a0;
35 ddp_ecl_rec.object_version_number := p5_a1;
36 ddp_ecl_rec.criteria_set_id := p5_a2;
37 ddp_ecl_rec.crit_cat_def_id := p5_a3;
38 ddp_ecl_rec.effective_from_date := p5_a4;
39 ddp_ecl_rec.effective_to_date := p5_a5;
40 ddp_ecl_rec.match_criteria_code := p5_a6;
41 ddp_ecl_rec.is_new_flag := p5_a7;
42 ddp_ecl_rec.created_by := p5_a8;
43 ddp_ecl_rec.creation_date := p5_a9;
44 ddp_ecl_rec.last_updated_by := p5_a10;
45 ddp_ecl_rec.last_update_date := p5_a11;
46 ddp_ecl_rec.last_update_login := p5_a12;
47
48 -- here's the delegated call to the old PL/SQL routine
49 okl_ecc_values_pvt.remove_ec_line(p_api_version,
50 p_init_msg_list,
51 x_return_status,
52 x_msg_count,
53 x_msg_data,
54 ddp_ecl_rec);
55
56 -- copy data back from the local variables to OUT or IN-OUT args, if any
57
58
59
60
61
62 end;
63
64 procedure handle_eligibility_criteria(p_api_version NUMBER
65 , p_init_msg_list VARCHAR2
66 , x_return_status out nocopy VARCHAR2
67 , x_msg_count out nocopy NUMBER
68 , x_msg_data out nocopy VARCHAR2
69 , p5_a0 NUMBER
70 , p5_a1 NUMBER
71 , p5_a2 NUMBER
72 , p5_a3 VARCHAR2
73 , p5_a4 VARCHAR2
74 , p5_a5 VARCHAR2
75 , p5_a6 NUMBER
76 , p5_a7 DATE
77 , p5_a8 NUMBER
78 , p5_a9 DATE
79 , p5_a10 NUMBER
80 , p6_a0 out nocopy NUMBER
81 , p6_a1 out nocopy NUMBER
82 , p6_a2 out nocopy NUMBER
83 , p6_a3 out nocopy VARCHAR2
84 , p6_a4 out nocopy VARCHAR2
85 , p6_a5 out nocopy VARCHAR2
86 , p6_a6 out nocopy NUMBER
87 , p6_a7 out nocopy DATE
88 , p6_a8 out nocopy NUMBER
89 , p6_a9 out nocopy DATE
90 , p6_a10 out nocopy NUMBER
91 , p7_a0 JTF_NUMBER_TABLE
92 , p7_a1 JTF_NUMBER_TABLE
93 , p7_a2 JTF_NUMBER_TABLE
94 , p7_a3 JTF_NUMBER_TABLE
95 , p7_a4 JTF_DATE_TABLE
96 , p7_a5 JTF_DATE_TABLE
97 , p7_a6 JTF_VARCHAR2_TABLE_100
98 , p7_a7 JTF_VARCHAR2_TABLE_100
99 , p7_a8 JTF_NUMBER_TABLE
100 , p7_a9 JTF_DATE_TABLE
101 , p7_a10 JTF_NUMBER_TABLE
102 , p7_a11 JTF_DATE_TABLE
103 , p7_a12 JTF_NUMBER_TABLE
104 , p8_a0 out nocopy JTF_NUMBER_TABLE
105 , p8_a1 out nocopy JTF_NUMBER_TABLE
106 , p8_a2 out nocopy JTF_NUMBER_TABLE
107 , p8_a3 out nocopy JTF_NUMBER_TABLE
108 , p8_a4 out nocopy JTF_DATE_TABLE
109 , p8_a5 out nocopy JTF_DATE_TABLE
110 , p8_a6 out nocopy JTF_VARCHAR2_TABLE_100
111 , p8_a7 out nocopy JTF_VARCHAR2_TABLE_100
112 , p8_a8 out nocopy JTF_NUMBER_TABLE
113 , p8_a9 out nocopy JTF_DATE_TABLE
114 , p8_a10 out nocopy JTF_NUMBER_TABLE
115 , p8_a11 out nocopy JTF_DATE_TABLE
116 , p8_a12 out nocopy JTF_NUMBER_TABLE
117 , p9_a0 JTF_NUMBER_TABLE
118 , p9_a1 JTF_NUMBER_TABLE
119 , p9_a2 JTF_NUMBER_TABLE
120 , p9_a3 JTF_VARCHAR2_TABLE_100
121 , p9_a4 JTF_VARCHAR2_TABLE_100
122 , p9_a5 JTF_VARCHAR2_TABLE_100
123 , p9_a6 JTF_VARCHAR2_TABLE_100
124 , p9_a7 JTF_VARCHAR2_TABLE_300
125 , p9_a8 JTF_VARCHAR2_TABLE_300
126 , p9_a9 JTF_NUMBER_TABLE
127 , p9_a10 JTF_NUMBER_TABLE
128 , p9_a11 JTF_DATE_TABLE
129 , p9_a12 JTF_DATE_TABLE
130 , p9_a13 JTF_VARCHAR2_TABLE_100
131 , p9_a14 JTF_NUMBER_TABLE
132 , p9_a15 JTF_NUMBER_TABLE
133 , p9_a16 JTF_DATE_TABLE
134 , p9_a17 JTF_NUMBER_TABLE
135 , p9_a18 JTF_DATE_TABLE
136 , p9_a19 JTF_NUMBER_TABLE
137 , p9_a20 JTF_VARCHAR2_TABLE_100
138 , p9_a21 JTF_VARCHAR2_TABLE_500
139 , p9_a22 JTF_VARCHAR2_TABLE_500
140 , p9_a23 JTF_VARCHAR2_TABLE_500
141 , p9_a24 JTF_VARCHAR2_TABLE_500
142 , p9_a25 JTF_VARCHAR2_TABLE_500
143 , p9_a26 JTF_VARCHAR2_TABLE_500
144 , p9_a27 JTF_VARCHAR2_TABLE_500
145 , p9_a28 JTF_VARCHAR2_TABLE_500
146 , p9_a29 JTF_VARCHAR2_TABLE_500
147 , p9_a30 JTF_VARCHAR2_TABLE_500
148 , p9_a31 JTF_VARCHAR2_TABLE_500
149 , p9_a32 JTF_VARCHAR2_TABLE_500
150 , p9_a33 JTF_VARCHAR2_TABLE_500
151 , p9_a34 JTF_VARCHAR2_TABLE_500
152 , p9_a35 JTF_VARCHAR2_TABLE_500
153 , p10_a0 out nocopy JTF_NUMBER_TABLE
154 , p10_a1 out nocopy JTF_NUMBER_TABLE
155 , p10_a2 out nocopy JTF_NUMBER_TABLE
156 , p10_a3 out nocopy JTF_VARCHAR2_TABLE_100
157 , p10_a4 out nocopy JTF_VARCHAR2_TABLE_100
158 , p10_a5 out nocopy JTF_VARCHAR2_TABLE_100
159 , p10_a6 out nocopy JTF_VARCHAR2_TABLE_100
160 , p10_a7 out nocopy JTF_VARCHAR2_TABLE_300
161 , p10_a8 out nocopy JTF_VARCHAR2_TABLE_300
162 , p10_a9 out nocopy JTF_NUMBER_TABLE
163 , p10_a10 out nocopy JTF_NUMBER_TABLE
164 , p10_a11 out nocopy JTF_DATE_TABLE
165 , p10_a12 out nocopy JTF_DATE_TABLE
166 , p10_a13 out nocopy JTF_VARCHAR2_TABLE_100
167 , p10_a14 out nocopy JTF_NUMBER_TABLE
168 , p10_a15 out nocopy JTF_NUMBER_TABLE
169 , p10_a16 out nocopy JTF_DATE_TABLE
170 , p10_a17 out nocopy JTF_NUMBER_TABLE
171 , p10_a18 out nocopy JTF_DATE_TABLE
172 , p10_a19 out nocopy JTF_NUMBER_TABLE
173 , p10_a20 out nocopy JTF_VARCHAR2_TABLE_100
174 , p10_a21 out nocopy JTF_VARCHAR2_TABLE_500
175 , p10_a22 out nocopy JTF_VARCHAR2_TABLE_500
176 , p10_a23 out nocopy JTF_VARCHAR2_TABLE_500
177 , p10_a24 out nocopy JTF_VARCHAR2_TABLE_500
178 , p10_a25 out nocopy JTF_VARCHAR2_TABLE_500
179 , p10_a26 out nocopy JTF_VARCHAR2_TABLE_500
180 , p10_a27 out nocopy JTF_VARCHAR2_TABLE_500
181 , p10_a28 out nocopy JTF_VARCHAR2_TABLE_500
182 , p10_a29 out nocopy JTF_VARCHAR2_TABLE_500
183 , p10_a30 out nocopy JTF_VARCHAR2_TABLE_500
184 , p10_a31 out nocopy JTF_VARCHAR2_TABLE_500
185 , p10_a32 out nocopy JTF_VARCHAR2_TABLE_500
186 , p10_a33 out nocopy JTF_VARCHAR2_TABLE_500
187 , p10_a34 out nocopy JTF_VARCHAR2_TABLE_500
188 , p10_a35 out nocopy JTF_VARCHAR2_TABLE_500
189 , p_source_eff_from DATE
190 , p_source_eff_to DATE
191 )
192
193 as
194 ddp_ech_rec okl_ecc_values_pvt.okl_ech_rec;
195 ddx_ech_rec okl_ecc_values_pvt.okl_ech_rec;
196 ddp_ecl_tbl okl_ecc_values_pvt.okl_ecl_tbl;
197 ddx_ecl_tbl okl_ecc_values_pvt.okl_ecl_tbl;
198 ddp_ecv_tbl okl_ecc_values_pvt.okl_ecv_tbl;
199 ddx_ecv_tbl okl_ecc_values_pvt.okl_ecv_tbl;
200 ddindx binary_integer; indx binary_integer;
201 begin
202
203 -- copy data to the local IN or IN-OUT args, if any
204
205
206
207
208
209 ddp_ech_rec.criteria_set_id := p5_a0;
210 ddp_ech_rec.object_version_number := p5_a1;
211 ddp_ech_rec.source_id := p5_a2;
212 ddp_ech_rec.source_object_code := p5_a3;
213 ddp_ech_rec.match_criteria_code := p5_a4;
214 ddp_ech_rec.validation_code := p5_a5;
215 ddp_ech_rec.created_by := p5_a6;
216 ddp_ech_rec.creation_date := p5_a7;
217 ddp_ech_rec.last_updated_by := p5_a8;
218 ddp_ech_rec.last_update_date := p5_a9;
219 ddp_ech_rec.last_update_login := p5_a10;
220
221
222 okl_ecl_pvt_w.rosetta_table_copy_in_p1(ddp_ecl_tbl, p7_a0
223 , p7_a1
224 , p7_a2
225 , p7_a3
226 , p7_a4
227 , p7_a5
228 , p7_a6
229 , p7_a7
230 , p7_a8
231 , p7_a9
232 , p7_a10
233 , p7_a11
234 , p7_a12
235 );
236
237
238 okl_ecv_pvt_w.rosetta_table_copy_in_p1(ddp_ecv_tbl, p9_a0
239 , p9_a1
240 , p9_a2
241 , p9_a3
242 , p9_a4
243 , p9_a5
244 , p9_a6
245 , p9_a7
246 , p9_a8
247 , p9_a9
248 , p9_a10
249 , p9_a11
250 , p9_a12
251 , p9_a13
252 , p9_a14
253 , p9_a15
254 , p9_a16
255 , p9_a17
256 , p9_a18
257 , p9_a19
258 , p9_a20
259 , p9_a21
260 , p9_a22
261 , p9_a23
262 , p9_a24
263 , p9_a25
264 , p9_a26
265 , p9_a27
266 , p9_a28
267 , p9_a29
268 , p9_a30
269 , p9_a31
270 , p9_a32
271 , p9_a33
272 , p9_a34
273 , p9_a35
274 );
275
276
277
278
279 -- here's the delegated call to the old PL/SQL routine
280 okl_ecc_values_pvt.handle_eligibility_criteria(p_api_version,
281 p_init_msg_list,
282 x_return_status,
283 x_msg_count,
284 x_msg_data,
285 ddp_ech_rec,
286 ddx_ech_rec,
287 ddp_ecl_tbl,
288 ddx_ecl_tbl,
289 ddp_ecv_tbl,
290 ddx_ecv_tbl,
291 p_source_eff_from,
292 p_source_eff_to);
293
294 -- copy data back from the local variables to OUT or IN-OUT args, if any
295
296
297
298
299
300
301 p6_a0 := ddx_ech_rec.criteria_set_id;
302 p6_a1 := ddx_ech_rec.object_version_number;
303 p6_a2 := ddx_ech_rec.source_id;
304 p6_a3 := ddx_ech_rec.source_object_code;
305 p6_a4 := ddx_ech_rec.match_criteria_code;
306 p6_a5 := ddx_ech_rec.validation_code;
307 p6_a6 := ddx_ech_rec.created_by;
308 p6_a7 := ddx_ech_rec.creation_date;
309 p6_a8 := ddx_ech_rec.last_updated_by;
310 p6_a9 := ddx_ech_rec.last_update_date;
311 p6_a10 := ddx_ech_rec.last_update_login;
312
313
314 okl_ecl_pvt_w.rosetta_table_copy_out_p1(ddx_ecl_tbl, p8_a0
315 , p8_a1
316 , p8_a2
317 , p8_a3
318 , p8_a4
319 , p8_a5
320 , p8_a6
321 , p8_a7
322 , p8_a8
323 , p8_a9
324 , p8_a10
325 , p8_a11
326 , p8_a12
327 );
328
329
330 okl_ecv_pvt_w.rosetta_table_copy_out_p1(ddx_ecv_tbl, p10_a0
331 , p10_a1
332 , p10_a2
333 , p10_a3
334 , p10_a4
335 , p10_a5
336 , p10_a6
337 , p10_a7
338 , p10_a8
339 , p10_a9
340 , p10_a10
341 , p10_a11
342 , p10_a12
343 , p10_a13
344 , p10_a14
345 , p10_a15
346 , p10_a16
347 , p10_a17
348 , p10_a18
349 , p10_a19
350 , p10_a20
351 , p10_a21
352 , p10_a22
353 , p10_a23
354 , p10_a24
355 , p10_a25
356 , p10_a26
357 , p10_a27
358 , p10_a28
359 , p10_a29
360 , p10_a30
361 , p10_a31
362 , p10_a32
363 , p10_a33
364 , p10_a34
365 , p10_a35
366 );
367
368
369 end;
370
371 procedure get_eligibility_criteria(p_api_version NUMBER
372 , p_init_msg_list VARCHAR2
373 , x_return_status out nocopy VARCHAR2
374 , x_msg_count out nocopy NUMBER
375 , x_msg_data out nocopy VARCHAR2
376 , p_source_id NUMBER
377 , p_source_type VARCHAR2
378 , p_eff_from DATE
379 , p_eff_to DATE
380 , p9_a0 out nocopy NUMBER
381 , p9_a1 out nocopy NUMBER
382 , p9_a2 out nocopy NUMBER
383 , p9_a3 out nocopy VARCHAR2
384 , p9_a4 out nocopy VARCHAR2
385 , p9_a5 out nocopy VARCHAR2
386 , p9_a6 out nocopy NUMBER
387 , p9_a7 out nocopy DATE
388 , p9_a8 out nocopy NUMBER
389 , p9_a9 out nocopy DATE
390 , p9_a10 out nocopy NUMBER
391 , p10_a0 out nocopy JTF_NUMBER_TABLE
392 , p10_a1 out nocopy JTF_NUMBER_TABLE
393 , p10_a2 out nocopy JTF_NUMBER_TABLE
394 , p10_a3 out nocopy JTF_NUMBER_TABLE
395 , p10_a4 out nocopy JTF_DATE_TABLE
396 , p10_a5 out nocopy JTF_DATE_TABLE
397 , p10_a6 out nocopy JTF_VARCHAR2_TABLE_100
398 , p10_a7 out nocopy JTF_VARCHAR2_TABLE_100
399 , p10_a8 out nocopy JTF_NUMBER_TABLE
400 , p10_a9 out nocopy JTF_DATE_TABLE
401 , p10_a10 out nocopy JTF_NUMBER_TABLE
402 , p10_a11 out nocopy JTF_DATE_TABLE
403 , p10_a12 out nocopy JTF_NUMBER_TABLE
404 , p11_a0 out nocopy JTF_NUMBER_TABLE
405 , p11_a1 out nocopy JTF_NUMBER_TABLE
406 , p11_a2 out nocopy JTF_NUMBER_TABLE
407 , p11_a3 out nocopy JTF_VARCHAR2_TABLE_100
408 , p11_a4 out nocopy JTF_VARCHAR2_TABLE_100
409 , p11_a5 out nocopy JTF_VARCHAR2_TABLE_100
410 , p11_a6 out nocopy JTF_VARCHAR2_TABLE_100
411 , p11_a7 out nocopy JTF_VARCHAR2_TABLE_300
412 , p11_a8 out nocopy JTF_VARCHAR2_TABLE_300
413 , p11_a9 out nocopy JTF_NUMBER_TABLE
414 , p11_a10 out nocopy JTF_NUMBER_TABLE
415 , p11_a11 out nocopy JTF_DATE_TABLE
416 , p11_a12 out nocopy JTF_DATE_TABLE
417 , p11_a13 out nocopy JTF_VARCHAR2_TABLE_100
418 , p11_a14 out nocopy JTF_NUMBER_TABLE
419 , p11_a15 out nocopy JTF_NUMBER_TABLE
420 , p11_a16 out nocopy JTF_DATE_TABLE
421 , p11_a17 out nocopy JTF_NUMBER_TABLE
422 , p11_a18 out nocopy JTF_DATE_TABLE
423 , p11_a19 out nocopy JTF_NUMBER_TABLE
424 , p11_a20 out nocopy JTF_VARCHAR2_TABLE_100
425 , p11_a21 out nocopy JTF_VARCHAR2_TABLE_500
426 , p11_a22 out nocopy JTF_VARCHAR2_TABLE_500
427 , p11_a23 out nocopy JTF_VARCHAR2_TABLE_500
428 , p11_a24 out nocopy JTF_VARCHAR2_TABLE_500
429 , p11_a25 out nocopy JTF_VARCHAR2_TABLE_500
430 , p11_a26 out nocopy JTF_VARCHAR2_TABLE_500
431 , p11_a27 out nocopy JTF_VARCHAR2_TABLE_500
432 , p11_a28 out nocopy JTF_VARCHAR2_TABLE_500
433 , p11_a29 out nocopy JTF_VARCHAR2_TABLE_500
434 , p11_a30 out nocopy JTF_VARCHAR2_TABLE_500
435 , p11_a31 out nocopy JTF_VARCHAR2_TABLE_500
436 , p11_a32 out nocopy JTF_VARCHAR2_TABLE_500
437 , p11_a33 out nocopy JTF_VARCHAR2_TABLE_500
438 , p11_a34 out nocopy JTF_VARCHAR2_TABLE_500
439 , p11_a35 out nocopy JTF_VARCHAR2_TABLE_500
440 )
441
442 as
443 ddx_ech_rec okl_ecc_values_pvt.okl_ech_rec;
444 ddx_ecl_tbl okl_ecc_values_pvt.okl_ecl_tbl;
445 ddx_ecv_tbl okl_ecc_values_pvt.okl_ecv_tbl;
446 ddindx binary_integer; indx binary_integer;
447 begin
448
449 -- copy data to the local IN or IN-OUT args, if any
450
451
452
453
454
455
456
457
458
459
460
461
462 -- here's the delegated call to the old PL/SQL routine
463 okl_ecc_values_pvt.get_eligibility_criteria(p_api_version,
464 p_init_msg_list,
465 x_return_status,
466 x_msg_count,
467 x_msg_data,
468 p_source_id,
469 p_source_type,
470 p_eff_from,
471 p_eff_to,
472 ddx_ech_rec,
473 ddx_ecl_tbl,
474 ddx_ecv_tbl);
475
476 -- copy data back from the local variables to OUT or IN-OUT args, if any
477
478
479
480
481
482
483
484
485
486 p9_a0 := ddx_ech_rec.criteria_set_id;
487 p9_a1 := ddx_ech_rec.object_version_number;
488 p9_a2 := ddx_ech_rec.source_id;
489 p9_a3 := ddx_ech_rec.source_object_code;
490 p9_a4 := ddx_ech_rec.match_criteria_code;
491 p9_a5 := ddx_ech_rec.validation_code;
492 p9_a6 := ddx_ech_rec.created_by;
493 p9_a7 := ddx_ech_rec.creation_date;
494 p9_a8 := ddx_ech_rec.last_updated_by;
495 p9_a9 := ddx_ech_rec.last_update_date;
496 p9_a10 := ddx_ech_rec.last_update_login;
497
498 okl_ecl_pvt_w.rosetta_table_copy_out_p1(ddx_ecl_tbl, p10_a0
499 , p10_a1
500 , p10_a2
501 , p10_a3
502 , p10_a4
503 , p10_a5
504 , p10_a6
505 , p10_a7
506 , p10_a8
507 , p10_a9
508 , p10_a10
509 , p10_a11
510 , p10_a12
511 );
512
513 okl_ecv_pvt_w.rosetta_table_copy_out_p1(ddx_ecv_tbl, p11_a0
514 , p11_a1
515 , p11_a2
516 , p11_a3
517 , p11_a4
518 , p11_a5
519 , p11_a6
520 , p11_a7
521 , p11_a8
522 , p11_a9
523 , p11_a10
524 , p11_a11
525 , p11_a12
526 , p11_a13
527 , p11_a14
528 , p11_a15
529 , p11_a16
530 , p11_a17
531 , p11_a18
532 , p11_a19
533 , p11_a20
534 , p11_a21
535 , p11_a22
536 , p11_a23
537 , p11_a24
538 , p11_a25
539 , p11_a26
540 , p11_a27
541 , p11_a28
542 , p11_a29
543 , p11_a30
544 , p11_a31
545 , p11_a32
546 , p11_a33
547 , p11_a34
548 , p11_a35
549 );
550 end;
551
552 procedure get_eligibility_criteria(p_api_version NUMBER
553 , p_init_msg_list VARCHAR2
554 , x_return_status out nocopy VARCHAR2
555 , x_msg_count out nocopy NUMBER
556 , x_msg_data out nocopy VARCHAR2
557 , p_source_id NUMBER
558 , p_source_type VARCHAR2
559 , p7_a0 out nocopy NUMBER
560 , p7_a1 out nocopy NUMBER
561 , p7_a2 out nocopy NUMBER
562 , p7_a3 out nocopy VARCHAR2
563 , p7_a4 out nocopy VARCHAR2
564 , p7_a5 out nocopy VARCHAR2
565 , p7_a6 out nocopy NUMBER
566 , p7_a7 out nocopy DATE
567 , p7_a8 out nocopy NUMBER
568 , p7_a9 out nocopy DATE
569 , p7_a10 out nocopy NUMBER
570 , p8_a0 out nocopy JTF_NUMBER_TABLE
571 , p8_a1 out nocopy JTF_NUMBER_TABLE
572 , p8_a2 out nocopy JTF_NUMBER_TABLE
573 , p8_a3 out nocopy JTF_NUMBER_TABLE
574 , p8_a4 out nocopy JTF_DATE_TABLE
575 , p8_a5 out nocopy JTF_DATE_TABLE
576 , p8_a6 out nocopy JTF_VARCHAR2_TABLE_100
577 , p8_a7 out nocopy JTF_VARCHAR2_TABLE_100
578 , p8_a8 out nocopy JTF_NUMBER_TABLE
579 , p8_a9 out nocopy JTF_DATE_TABLE
580 , p8_a10 out nocopy JTF_NUMBER_TABLE
581 , p8_a11 out nocopy JTF_DATE_TABLE
582 , p8_a12 out nocopy JTF_NUMBER_TABLE
583 , p9_a0 out nocopy JTF_NUMBER_TABLE
584 , p9_a1 out nocopy JTF_NUMBER_TABLE
585 , p9_a2 out nocopy JTF_NUMBER_TABLE
586 , p9_a3 out nocopy JTF_VARCHAR2_TABLE_100
587 , p9_a4 out nocopy JTF_VARCHAR2_TABLE_100
588 , p9_a5 out nocopy JTF_VARCHAR2_TABLE_100
589 , p9_a6 out nocopy JTF_VARCHAR2_TABLE_100
590 , p9_a7 out nocopy JTF_VARCHAR2_TABLE_300
591 , p9_a8 out nocopy JTF_VARCHAR2_TABLE_300
592 , p9_a9 out nocopy JTF_NUMBER_TABLE
593 , p9_a10 out nocopy JTF_NUMBER_TABLE
594 , p9_a11 out nocopy JTF_DATE_TABLE
595 , p9_a12 out nocopy JTF_DATE_TABLE
596 , p9_a13 out nocopy JTF_VARCHAR2_TABLE_100
597 , p9_a14 out nocopy JTF_NUMBER_TABLE
598 , p9_a15 out nocopy JTF_NUMBER_TABLE
599 , p9_a16 out nocopy JTF_DATE_TABLE
600 , p9_a17 out nocopy JTF_NUMBER_TABLE
601 , p9_a18 out nocopy JTF_DATE_TABLE
602 , p9_a19 out nocopy JTF_NUMBER_TABLE
603 , p9_a20 out nocopy JTF_VARCHAR2_TABLE_100
604 , p9_a21 out nocopy JTF_VARCHAR2_TABLE_500
605 , p9_a22 out nocopy JTF_VARCHAR2_TABLE_500
606 , p9_a23 out nocopy JTF_VARCHAR2_TABLE_500
607 , p9_a24 out nocopy JTF_VARCHAR2_TABLE_500
608 , p9_a25 out nocopy JTF_VARCHAR2_TABLE_500
609 , p9_a26 out nocopy JTF_VARCHAR2_TABLE_500
610 , p9_a27 out nocopy JTF_VARCHAR2_TABLE_500
611 , p9_a28 out nocopy JTF_VARCHAR2_TABLE_500
612 , p9_a29 out nocopy JTF_VARCHAR2_TABLE_500
613 , p9_a30 out nocopy JTF_VARCHAR2_TABLE_500
614 , p9_a31 out nocopy JTF_VARCHAR2_TABLE_500
615 , p9_a32 out nocopy JTF_VARCHAR2_TABLE_500
616 , p9_a33 out nocopy JTF_VARCHAR2_TABLE_500
617 , p9_a34 out nocopy JTF_VARCHAR2_TABLE_500
618 , p9_a35 out nocopy JTF_VARCHAR2_TABLE_500
619 )
620
621 as
622 ddx_ech_rec okl_ecc_values_pvt.okl_ech_rec;
623 ddx_ecl_tbl okl_ecc_values_pvt.okl_ecl_tbl;
624 ddx_ecv_tbl okl_ecc_values_pvt.okl_ecv_tbl;
625 ddindx binary_integer; indx binary_integer;
626 begin
627
628 -- copy data to the local IN or IN-OUT args, if any
629
630
631
632
633
634
635
636
637
638
639 -- here's the delegated call to the old PL/SQL routine
640 okl_ecc_values_pvt.get_eligibility_criteria(p_api_version,
641 p_init_msg_list,
642 x_return_status,
643 x_msg_count,
644 x_msg_data,
645 p_source_id,
646 p_source_type,
647 ddx_ech_rec,
648 ddx_ecl_tbl,
649 ddx_ecv_tbl);
650
651 -- copy data back from the local variables to OUT or IN-OUT args, if any
652
653
654
655
656
657
658
659 p7_a0 := ddx_ech_rec.criteria_set_id;
660 p7_a1 := ddx_ech_rec.object_version_number;
661 p7_a2 := ddx_ech_rec.source_id;
662 p7_a3 := ddx_ech_rec.source_object_code;
663 p7_a4 := ddx_ech_rec.match_criteria_code;
664 p7_a5 := ddx_ech_rec.validation_code;
665 p7_a6 := ddx_ech_rec.created_by;
666 p7_a7 := ddx_ech_rec.creation_date;
667 p7_a8 := ddx_ech_rec.last_updated_by;
668 p7_a9 := ddx_ech_rec.last_update_date;
669 p7_a10 := ddx_ech_rec.last_update_login;
670
671 okl_ecl_pvt_w.rosetta_table_copy_out_p1(ddx_ecl_tbl, p8_a0
672 , p8_a1
673 , p8_a2
674 , p8_a3
675 , p8_a4
676 , p8_a5
677 , p8_a6
678 , p8_a7
679 , p8_a8
680 , p8_a9
681 , p8_a10
682 , p8_a11
683 , p8_a12
684 );
685
686 okl_ecv_pvt_w.rosetta_table_copy_out_p1(ddx_ecv_tbl, p9_a0
687 , p9_a1
688 , p9_a2
689 , p9_a3
690 , p9_a4
691 , p9_a5
692 , p9_a6
693 , p9_a7
694 , p9_a8
695 , p9_a9
696 , p9_a10
697 , p9_a11
698 , p9_a12
699 , p9_a13
700 , p9_a14
701 , p9_a15
702 , p9_a16
703 , p9_a17
704 , p9_a18
705 , p9_a19
706 , p9_a20
707 , p9_a21
708 , p9_a22
709 , p9_a23
710 , p9_a24
711 , p9_a25
712 , p9_a26
713 , p9_a27
714 , p9_a28
715 , p9_a29
716 , p9_a30
717 , p9_a31
718 , p9_a32
719 , p9_a33
720 , p9_a34
721 , p9_a35
722 );
723 end;
724
725 end okl_ecc_values_pvt_w;