[Home] [Help]
PACKAGE BODY: APPS.OKL_ECV_PVT_W
Source
1 package body okl_ecv_pvt_w as
2 /* $Header: OKLIECVB.pls 120.1 2005/10/30 04:58:45 appldev noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy okl_ecv_pvt.okl_ecv_tbl, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_VARCHAR2_TABLE_100
7 , a4 JTF_VARCHAR2_TABLE_100
8 , a5 JTF_VARCHAR2_TABLE_100
9 , a6 JTF_VARCHAR2_TABLE_100
10 , a7 JTF_VARCHAR2_TABLE_300
11 , a8 JTF_VARCHAR2_TABLE_300
12 , a9 JTF_NUMBER_TABLE
13 , a10 JTF_NUMBER_TABLE
14 , a11 JTF_DATE_TABLE
15 , a12 JTF_DATE_TABLE
16 , a13 JTF_VARCHAR2_TABLE_100
17 , a14 JTF_NUMBER_TABLE
18 , a15 JTF_NUMBER_TABLE
19 , a16 JTF_DATE_TABLE
20 , a17 JTF_NUMBER_TABLE
21 , a18 JTF_DATE_TABLE
22 , a19 JTF_NUMBER_TABLE
23 , a20 JTF_VARCHAR2_TABLE_100
24 , a21 JTF_VARCHAR2_TABLE_500
25 , a22 JTF_VARCHAR2_TABLE_500
26 , a23 JTF_VARCHAR2_TABLE_500
27 , a24 JTF_VARCHAR2_TABLE_500
28 , a25 JTF_VARCHAR2_TABLE_500
29 , a26 JTF_VARCHAR2_TABLE_500
30 , a27 JTF_VARCHAR2_TABLE_500
31 , a28 JTF_VARCHAR2_TABLE_500
32 , a29 JTF_VARCHAR2_TABLE_500
33 , a30 JTF_VARCHAR2_TABLE_500
34 , a31 JTF_VARCHAR2_TABLE_500
35 , a32 JTF_VARCHAR2_TABLE_500
36 , a33 JTF_VARCHAR2_TABLE_500
37 , a34 JTF_VARCHAR2_TABLE_500
38 , a35 JTF_VARCHAR2_TABLE_500
39 ) as
40 ddindx binary_integer; indx binary_integer;
41 begin
42 if a0 is not null and a0.count > 0 then
43 if a0.count > 0 then
44 indx := a0.first;
45 ddindx := 1;
46 while true loop
47 t(ddindx).criterion_value_id := a0(indx);
48 t(ddindx).object_version_number := a1(indx);
49 t(ddindx).criteria_id := a2(indx);
50 t(ddindx).data_type_code := a3(indx);
51 t(ddindx).source_yn := a4(indx);
52 t(ddindx).value_type_code := a5(indx);
53 t(ddindx).operator_code := a6(indx);
54 t(ddindx).crit_cat_value1 := a7(indx);
55 t(ddindx).crit_cat_value2 := a8(indx);
56 t(ddindx).crit_cat_numval1 := a9(indx);
57 t(ddindx).crit_cat_numval2 := a10(indx);
58 t(ddindx).crit_cat_dateval1 := a11(indx);
59 t(ddindx).crit_cat_dateval2 := a12(indx);
60 t(ddindx).validate_record := a13(indx);
61 t(ddindx).adjustment_factor := a14(indx);
62 t(ddindx).created_by := a15(indx);
63 t(ddindx).creation_date := a16(indx);
64 t(ddindx).last_updated_by := a17(indx);
65 t(ddindx).last_update_date := a18(indx);
66 t(ddindx).last_update_login := a19(indx);
67 t(ddindx).attribute_category := a20(indx);
68 t(ddindx).attribute1 := a21(indx);
69 t(ddindx).attribute2 := a22(indx);
70 t(ddindx).attribute3 := a23(indx);
71 t(ddindx).attribute4 := a24(indx);
72 t(ddindx).attribute5 := a25(indx);
73 t(ddindx).attribute6 := a26(indx);
74 t(ddindx).attribute7 := a27(indx);
75 t(ddindx).attribute8 := a28(indx);
76 t(ddindx).attribute9 := a29(indx);
77 t(ddindx).attribute10 := a30(indx);
78 t(ddindx).attribute11 := a31(indx);
79 t(ddindx).attribute12 := a32(indx);
80 t(ddindx).attribute13 := a33(indx);
81 t(ddindx).attribute14 := a34(indx);
82 t(ddindx).attribute15 := a35(indx);
83 ddindx := ddindx+1;
84 if a0.last =indx
85 then exit;
86 end if;
87 indx := a0.next(indx);
88 end loop;
89 end if;
90 end if;
91 end rosetta_table_copy_in_p1;
92 procedure rosetta_table_copy_out_p1(t okl_ecv_pvt.okl_ecv_tbl, a0 out nocopy JTF_NUMBER_TABLE
93 , a1 out nocopy JTF_NUMBER_TABLE
94 , a2 out nocopy JTF_NUMBER_TABLE
95 , a3 out nocopy JTF_VARCHAR2_TABLE_100
96 , a4 out nocopy JTF_VARCHAR2_TABLE_100
97 , a5 out nocopy JTF_VARCHAR2_TABLE_100
98 , a6 out nocopy JTF_VARCHAR2_TABLE_100
99 , a7 out nocopy JTF_VARCHAR2_TABLE_300
100 , a8 out nocopy JTF_VARCHAR2_TABLE_300
101 , a9 out nocopy JTF_NUMBER_TABLE
102 , a10 out nocopy JTF_NUMBER_TABLE
103 , a11 out nocopy JTF_DATE_TABLE
104 , a12 out nocopy JTF_DATE_TABLE
105 , a13 out nocopy JTF_VARCHAR2_TABLE_100
106 , a14 out nocopy JTF_NUMBER_TABLE
107 , a15 out nocopy JTF_NUMBER_TABLE
108 , a16 out nocopy JTF_DATE_TABLE
109 , a17 out nocopy JTF_NUMBER_TABLE
110 , a18 out nocopy JTF_DATE_TABLE
111 , a19 out nocopy JTF_NUMBER_TABLE
112 , a20 out nocopy JTF_VARCHAR2_TABLE_100
113 , a21 out nocopy JTF_VARCHAR2_TABLE_500
114 , a22 out nocopy JTF_VARCHAR2_TABLE_500
115 , a23 out nocopy JTF_VARCHAR2_TABLE_500
116 , a24 out nocopy JTF_VARCHAR2_TABLE_500
117 , a25 out nocopy JTF_VARCHAR2_TABLE_500
118 , a26 out nocopy JTF_VARCHAR2_TABLE_500
119 , a27 out nocopy JTF_VARCHAR2_TABLE_500
120 , a28 out nocopy JTF_VARCHAR2_TABLE_500
121 , a29 out nocopy JTF_VARCHAR2_TABLE_500
122 , a30 out nocopy JTF_VARCHAR2_TABLE_500
123 , a31 out nocopy JTF_VARCHAR2_TABLE_500
124 , a32 out nocopy JTF_VARCHAR2_TABLE_500
125 , a33 out nocopy JTF_VARCHAR2_TABLE_500
126 , a34 out nocopy JTF_VARCHAR2_TABLE_500
127 , a35 out nocopy JTF_VARCHAR2_TABLE_500
128 ) as
129 ddindx binary_integer; indx binary_integer;
130 begin
131 if t is null or t.count = 0 then
132 a0 := JTF_NUMBER_TABLE();
133 a1 := JTF_NUMBER_TABLE();
134 a2 := JTF_NUMBER_TABLE();
135 a3 := JTF_VARCHAR2_TABLE_100();
136 a4 := JTF_VARCHAR2_TABLE_100();
137 a5 := JTF_VARCHAR2_TABLE_100();
138 a6 := JTF_VARCHAR2_TABLE_100();
139 a7 := JTF_VARCHAR2_TABLE_300();
140 a8 := JTF_VARCHAR2_TABLE_300();
141 a9 := JTF_NUMBER_TABLE();
142 a10 := JTF_NUMBER_TABLE();
143 a11 := JTF_DATE_TABLE();
144 a12 := JTF_DATE_TABLE();
145 a13 := JTF_VARCHAR2_TABLE_100();
146 a14 := JTF_NUMBER_TABLE();
147 a15 := JTF_NUMBER_TABLE();
148 a16 := JTF_DATE_TABLE();
149 a17 := JTF_NUMBER_TABLE();
150 a18 := JTF_DATE_TABLE();
151 a19 := JTF_NUMBER_TABLE();
152 a20 := JTF_VARCHAR2_TABLE_100();
153 a21 := JTF_VARCHAR2_TABLE_500();
154 a22 := JTF_VARCHAR2_TABLE_500();
155 a23 := JTF_VARCHAR2_TABLE_500();
156 a24 := JTF_VARCHAR2_TABLE_500();
157 a25 := JTF_VARCHAR2_TABLE_500();
158 a26 := JTF_VARCHAR2_TABLE_500();
159 a27 := JTF_VARCHAR2_TABLE_500();
160 a28 := JTF_VARCHAR2_TABLE_500();
161 a29 := JTF_VARCHAR2_TABLE_500();
162 a30 := JTF_VARCHAR2_TABLE_500();
163 a31 := JTF_VARCHAR2_TABLE_500();
164 a32 := JTF_VARCHAR2_TABLE_500();
165 a33 := JTF_VARCHAR2_TABLE_500();
166 a34 := JTF_VARCHAR2_TABLE_500();
167 a35 := JTF_VARCHAR2_TABLE_500();
168 else
169 a0 := JTF_NUMBER_TABLE();
170 a1 := JTF_NUMBER_TABLE();
171 a2 := JTF_NUMBER_TABLE();
172 a3 := JTF_VARCHAR2_TABLE_100();
173 a4 := JTF_VARCHAR2_TABLE_100();
174 a5 := JTF_VARCHAR2_TABLE_100();
175 a6 := JTF_VARCHAR2_TABLE_100();
176 a7 := JTF_VARCHAR2_TABLE_300();
177 a8 := JTF_VARCHAR2_TABLE_300();
178 a9 := JTF_NUMBER_TABLE();
179 a10 := JTF_NUMBER_TABLE();
180 a11 := JTF_DATE_TABLE();
181 a12 := JTF_DATE_TABLE();
182 a13 := JTF_VARCHAR2_TABLE_100();
183 a14 := JTF_NUMBER_TABLE();
184 a15 := JTF_NUMBER_TABLE();
185 a16 := JTF_DATE_TABLE();
186 a17 := JTF_NUMBER_TABLE();
187 a18 := JTF_DATE_TABLE();
188 a19 := JTF_NUMBER_TABLE();
189 a20 := JTF_VARCHAR2_TABLE_100();
190 a21 := JTF_VARCHAR2_TABLE_500();
191 a22 := JTF_VARCHAR2_TABLE_500();
192 a23 := JTF_VARCHAR2_TABLE_500();
193 a24 := JTF_VARCHAR2_TABLE_500();
194 a25 := JTF_VARCHAR2_TABLE_500();
195 a26 := JTF_VARCHAR2_TABLE_500();
196 a27 := JTF_VARCHAR2_TABLE_500();
197 a28 := JTF_VARCHAR2_TABLE_500();
198 a29 := JTF_VARCHAR2_TABLE_500();
199 a30 := JTF_VARCHAR2_TABLE_500();
200 a31 := JTF_VARCHAR2_TABLE_500();
201 a32 := JTF_VARCHAR2_TABLE_500();
202 a33 := JTF_VARCHAR2_TABLE_500();
203 a34 := JTF_VARCHAR2_TABLE_500();
204 a35 := JTF_VARCHAR2_TABLE_500();
205 if t.count > 0 then
206 a0.extend(t.count);
207 a1.extend(t.count);
208 a2.extend(t.count);
209 a3.extend(t.count);
210 a4.extend(t.count);
211 a5.extend(t.count);
212 a6.extend(t.count);
213 a7.extend(t.count);
214 a8.extend(t.count);
215 a9.extend(t.count);
216 a10.extend(t.count);
217 a11.extend(t.count);
218 a12.extend(t.count);
219 a13.extend(t.count);
220 a14.extend(t.count);
221 a15.extend(t.count);
222 a16.extend(t.count);
223 a17.extend(t.count);
224 a18.extend(t.count);
225 a19.extend(t.count);
226 a20.extend(t.count);
227 a21.extend(t.count);
228 a22.extend(t.count);
229 a23.extend(t.count);
230 a24.extend(t.count);
231 a25.extend(t.count);
232 a26.extend(t.count);
233 a27.extend(t.count);
234 a28.extend(t.count);
235 a29.extend(t.count);
236 a30.extend(t.count);
237 a31.extend(t.count);
238 a32.extend(t.count);
239 a33.extend(t.count);
240 a34.extend(t.count);
241 a35.extend(t.count);
242 ddindx := t.first;
243 indx := 1;
244 while true loop
245 a0(indx) := t(ddindx).criterion_value_id;
246 a1(indx) := t(ddindx).object_version_number;
247 a2(indx) := t(ddindx).criteria_id;
248 a3(indx) := t(ddindx).data_type_code;
249 a4(indx) := t(ddindx).source_yn;
250 a5(indx) := t(ddindx).value_type_code;
251 a6(indx) := t(ddindx).operator_code;
252 a7(indx) := t(ddindx).crit_cat_value1;
253 a8(indx) := t(ddindx).crit_cat_value2;
254 a9(indx) := t(ddindx).crit_cat_numval1;
255 a10(indx) := t(ddindx).crit_cat_numval2;
256 a11(indx) := t(ddindx).crit_cat_dateval1;
257 a12(indx) := t(ddindx).crit_cat_dateval2;
258 a13(indx) := t(ddindx).validate_record;
259 a14(indx) := t(ddindx).adjustment_factor;
260 a15(indx) := t(ddindx).created_by;
261 a16(indx) := t(ddindx).creation_date;
262 a17(indx) := t(ddindx).last_updated_by;
263 a18(indx) := t(ddindx).last_update_date;
264 a19(indx) := t(ddindx).last_update_login;
265 a20(indx) := t(ddindx).attribute_category;
266 a21(indx) := t(ddindx).attribute1;
267 a22(indx) := t(ddindx).attribute2;
268 a23(indx) := t(ddindx).attribute3;
269 a24(indx) := t(ddindx).attribute4;
270 a25(indx) := t(ddindx).attribute5;
271 a26(indx) := t(ddindx).attribute6;
272 a27(indx) := t(ddindx).attribute7;
273 a28(indx) := t(ddindx).attribute8;
274 a29(indx) := t(ddindx).attribute9;
275 a30(indx) := t(ddindx).attribute10;
276 a31(indx) := t(ddindx).attribute11;
277 a32(indx) := t(ddindx).attribute12;
278 a33(indx) := t(ddindx).attribute13;
279 a34(indx) := t(ddindx).attribute14;
280 a35(indx) := t(ddindx).attribute15;
281 indx := indx+1;
282 if t.last =ddindx
283 then exit;
284 end if;
285 ddindx := t.next(ddindx);
286 end loop;
287 end if;
288 end if;
289 end rosetta_table_copy_out_p1;
290
291 procedure insert_row(p_api_version NUMBER
292 , p_init_msg_list VARCHAR2
293 , x_return_status out nocopy VARCHAR2
294 , x_msg_count out nocopy NUMBER
295 , x_msg_data out nocopy VARCHAR2
296 , p5_a0 NUMBER
297 , p5_a1 NUMBER
298 , p5_a2 NUMBER
299 , p5_a3 VARCHAR2
300 , p5_a4 VARCHAR2
301 , p5_a5 VARCHAR2
302 , p5_a6 VARCHAR2
303 , p5_a7 VARCHAR2
304 , p5_a8 VARCHAR2
305 , p5_a9 NUMBER
306 , p5_a10 NUMBER
307 , p5_a11 DATE
308 , p5_a12 DATE
309 , p5_a13 VARCHAR2
310 , p5_a14 NUMBER
311 , p5_a15 NUMBER
312 , p5_a16 DATE
313 , p5_a17 NUMBER
314 , p5_a18 DATE
315 , p5_a19 NUMBER
316 , p5_a20 VARCHAR2
317 , p5_a21 VARCHAR2
318 , p5_a22 VARCHAR2
319 , p5_a23 VARCHAR2
320 , p5_a24 VARCHAR2
321 , p5_a25 VARCHAR2
322 , p5_a26 VARCHAR2
323 , p5_a27 VARCHAR2
324 , p5_a28 VARCHAR2
325 , p5_a29 VARCHAR2
326 , p5_a30 VARCHAR2
327 , p5_a31 VARCHAR2
328 , p5_a32 VARCHAR2
329 , p5_a33 VARCHAR2
330 , p5_a34 VARCHAR2
331 , p5_a35 VARCHAR2
332 , p6_a0 out nocopy NUMBER
333 , p6_a1 out nocopy NUMBER
334 , p6_a2 out nocopy NUMBER
335 , p6_a3 out nocopy VARCHAR2
336 , p6_a4 out nocopy VARCHAR2
337 , p6_a5 out nocopy VARCHAR2
338 , p6_a6 out nocopy VARCHAR2
339 , p6_a7 out nocopy VARCHAR2
340 , p6_a8 out nocopy VARCHAR2
341 , p6_a9 out nocopy NUMBER
342 , p6_a10 out nocopy NUMBER
343 , p6_a11 out nocopy DATE
344 , p6_a12 out nocopy DATE
345 , p6_a13 out nocopy VARCHAR2
346 , p6_a14 out nocopy NUMBER
347 , p6_a15 out nocopy NUMBER
348 , p6_a16 out nocopy DATE
349 , p6_a17 out nocopy NUMBER
350 , p6_a18 out nocopy DATE
351 , p6_a19 out nocopy NUMBER
352 , p6_a20 out nocopy VARCHAR2
353 , p6_a21 out nocopy VARCHAR2
354 , p6_a22 out nocopy VARCHAR2
355 , p6_a23 out nocopy VARCHAR2
356 , p6_a24 out nocopy VARCHAR2
357 , p6_a25 out nocopy VARCHAR2
358 , p6_a26 out nocopy VARCHAR2
359 , p6_a27 out nocopy VARCHAR2
360 , p6_a28 out nocopy VARCHAR2
361 , p6_a29 out nocopy VARCHAR2
362 , p6_a30 out nocopy VARCHAR2
363 , p6_a31 out nocopy VARCHAR2
364 , p6_a32 out nocopy VARCHAR2
365 , p6_a33 out nocopy VARCHAR2
366 , p6_a34 out nocopy VARCHAR2
367 , p6_a35 out nocopy VARCHAR2
368 )
369
370 as
371 ddp_ecv_rec okl_ecv_pvt.okl_ecv_rec;
372 ddx_ecv_rec okl_ecv_pvt.okl_ecv_rec;
373 ddindx binary_integer; indx binary_integer;
374 begin
375
376 -- copy data to the local IN or IN-OUT args, if any
377
378
379
380
381
382 ddp_ecv_rec.criterion_value_id := p5_a0;
383 ddp_ecv_rec.object_version_number := p5_a1;
384 ddp_ecv_rec.criteria_id := p5_a2;
385 ddp_ecv_rec.data_type_code := p5_a3;
386 ddp_ecv_rec.source_yn := p5_a4;
387 ddp_ecv_rec.value_type_code := p5_a5;
388 ddp_ecv_rec.operator_code := p5_a6;
389 ddp_ecv_rec.crit_cat_value1 := p5_a7;
390 ddp_ecv_rec.crit_cat_value2 := p5_a8;
391 ddp_ecv_rec.crit_cat_numval1 := p5_a9;
392 ddp_ecv_rec.crit_cat_numval2 := p5_a10;
393 ddp_ecv_rec.crit_cat_dateval1 := p5_a11;
394 ddp_ecv_rec.crit_cat_dateval2 := p5_a12;
395 ddp_ecv_rec.validate_record := p5_a13;
396 ddp_ecv_rec.adjustment_factor := p5_a14;
397 ddp_ecv_rec.created_by := p5_a15;
398 ddp_ecv_rec.creation_date := p5_a16;
399 ddp_ecv_rec.last_updated_by := p5_a17;
400 ddp_ecv_rec.last_update_date := p5_a18;
401 ddp_ecv_rec.last_update_login := p5_a19;
402 ddp_ecv_rec.attribute_category := p5_a20;
403 ddp_ecv_rec.attribute1 := p5_a21;
404 ddp_ecv_rec.attribute2 := p5_a22;
405 ddp_ecv_rec.attribute3 := p5_a23;
406 ddp_ecv_rec.attribute4 := p5_a24;
407 ddp_ecv_rec.attribute5 := p5_a25;
408 ddp_ecv_rec.attribute6 := p5_a26;
409 ddp_ecv_rec.attribute7 := p5_a27;
410 ddp_ecv_rec.attribute8 := p5_a28;
411 ddp_ecv_rec.attribute9 := p5_a29;
412 ddp_ecv_rec.attribute10 := p5_a30;
413 ddp_ecv_rec.attribute11 := p5_a31;
414 ddp_ecv_rec.attribute12 := p5_a32;
415 ddp_ecv_rec.attribute13 := p5_a33;
416 ddp_ecv_rec.attribute14 := p5_a34;
417 ddp_ecv_rec.attribute15 := p5_a35;
418
419
420 -- here's the delegated call to the old PL/SQL routine
421 okl_ecv_pvt.insert_row(p_api_version,
422 p_init_msg_list,
423 x_return_status,
424 x_msg_count,
425 x_msg_data,
426 ddp_ecv_rec,
427 ddx_ecv_rec);
428
429 -- copy data back from the local variables to OUT or IN-OUT args, if any
430
431
432
433
434
435
436 p6_a0 := ddx_ecv_rec.criterion_value_id;
437 p6_a1 := ddx_ecv_rec.object_version_number;
438 p6_a2 := ddx_ecv_rec.criteria_id;
439 p6_a3 := ddx_ecv_rec.data_type_code;
440 p6_a4 := ddx_ecv_rec.source_yn;
441 p6_a5 := ddx_ecv_rec.value_type_code;
442 p6_a6 := ddx_ecv_rec.operator_code;
443 p6_a7 := ddx_ecv_rec.crit_cat_value1;
444 p6_a8 := ddx_ecv_rec.crit_cat_value2;
445 p6_a9 := ddx_ecv_rec.crit_cat_numval1;
446 p6_a10 := ddx_ecv_rec.crit_cat_numval2;
447 p6_a11 := ddx_ecv_rec.crit_cat_dateval1;
448 p6_a12 := ddx_ecv_rec.crit_cat_dateval2;
449 p6_a13 := ddx_ecv_rec.validate_record;
450 p6_a14 := ddx_ecv_rec.adjustment_factor;
451 p6_a15 := ddx_ecv_rec.created_by;
452 p6_a16 := ddx_ecv_rec.creation_date;
453 p6_a17 := ddx_ecv_rec.last_updated_by;
454 p6_a18 := ddx_ecv_rec.last_update_date;
455 p6_a19 := ddx_ecv_rec.last_update_login;
456 p6_a20 := ddx_ecv_rec.attribute_category;
457 p6_a21 := ddx_ecv_rec.attribute1;
458 p6_a22 := ddx_ecv_rec.attribute2;
459 p6_a23 := ddx_ecv_rec.attribute3;
460 p6_a24 := ddx_ecv_rec.attribute4;
461 p6_a25 := ddx_ecv_rec.attribute5;
462 p6_a26 := ddx_ecv_rec.attribute6;
463 p6_a27 := ddx_ecv_rec.attribute7;
464 p6_a28 := ddx_ecv_rec.attribute8;
465 p6_a29 := ddx_ecv_rec.attribute9;
466 p6_a30 := ddx_ecv_rec.attribute10;
467 p6_a31 := ddx_ecv_rec.attribute11;
468 p6_a32 := ddx_ecv_rec.attribute12;
469 p6_a33 := ddx_ecv_rec.attribute13;
470 p6_a34 := ddx_ecv_rec.attribute14;
471 p6_a35 := ddx_ecv_rec.attribute15;
472 end;
473
474 procedure insert_row(p_api_version NUMBER
475 , p_init_msg_list VARCHAR2
476 , x_return_status out nocopy VARCHAR2
477 , x_msg_count out nocopy NUMBER
478 , x_msg_data out nocopy VARCHAR2
479 , p5_a0 JTF_NUMBER_TABLE
480 , p5_a1 JTF_NUMBER_TABLE
481 , p5_a2 JTF_NUMBER_TABLE
482 , p5_a3 JTF_VARCHAR2_TABLE_100
483 , p5_a4 JTF_VARCHAR2_TABLE_100
484 , p5_a5 JTF_VARCHAR2_TABLE_100
485 , p5_a6 JTF_VARCHAR2_TABLE_100
486 , p5_a7 JTF_VARCHAR2_TABLE_300
487 , p5_a8 JTF_VARCHAR2_TABLE_300
488 , p5_a9 JTF_NUMBER_TABLE
489 , p5_a10 JTF_NUMBER_TABLE
490 , p5_a11 JTF_DATE_TABLE
491 , p5_a12 JTF_DATE_TABLE
492 , p5_a13 JTF_VARCHAR2_TABLE_100
493 , p5_a14 JTF_NUMBER_TABLE
494 , p5_a15 JTF_NUMBER_TABLE
495 , p5_a16 JTF_DATE_TABLE
496 , p5_a17 JTF_NUMBER_TABLE
497 , p5_a18 JTF_DATE_TABLE
498 , p5_a19 JTF_NUMBER_TABLE
499 , p5_a20 JTF_VARCHAR2_TABLE_100
500 , p5_a21 JTF_VARCHAR2_TABLE_500
501 , p5_a22 JTF_VARCHAR2_TABLE_500
502 , p5_a23 JTF_VARCHAR2_TABLE_500
503 , p5_a24 JTF_VARCHAR2_TABLE_500
504 , p5_a25 JTF_VARCHAR2_TABLE_500
505 , p5_a26 JTF_VARCHAR2_TABLE_500
506 , p5_a27 JTF_VARCHAR2_TABLE_500
507 , p5_a28 JTF_VARCHAR2_TABLE_500
508 , p5_a29 JTF_VARCHAR2_TABLE_500
509 , p5_a30 JTF_VARCHAR2_TABLE_500
510 , p5_a31 JTF_VARCHAR2_TABLE_500
511 , p5_a32 JTF_VARCHAR2_TABLE_500
512 , p5_a33 JTF_VARCHAR2_TABLE_500
513 , p5_a34 JTF_VARCHAR2_TABLE_500
514 , p5_a35 JTF_VARCHAR2_TABLE_500
515 , p6_a0 out nocopy JTF_NUMBER_TABLE
516 , p6_a1 out nocopy JTF_NUMBER_TABLE
517 , p6_a2 out nocopy JTF_NUMBER_TABLE
518 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
519 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
520 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
521 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
522 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_300
523 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_300
524 , p6_a9 out nocopy JTF_NUMBER_TABLE
525 , p6_a10 out nocopy JTF_NUMBER_TABLE
526 , p6_a11 out nocopy JTF_DATE_TABLE
527 , p6_a12 out nocopy JTF_DATE_TABLE
528 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
529 , p6_a14 out nocopy JTF_NUMBER_TABLE
530 , p6_a15 out nocopy JTF_NUMBER_TABLE
531 , p6_a16 out nocopy JTF_DATE_TABLE
532 , p6_a17 out nocopy JTF_NUMBER_TABLE
533 , p6_a18 out nocopy JTF_DATE_TABLE
534 , p6_a19 out nocopy JTF_NUMBER_TABLE
535 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_100
536 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
537 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
538 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
539 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
540 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
541 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
542 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
543 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
544 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
545 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
546 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
547 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
548 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
549 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
550 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_500
551 )
552
553 as
554 ddp_ecv_tbl okl_ecv_pvt.okl_ecv_tbl;
555 ddx_ecv_tbl okl_ecv_pvt.okl_ecv_tbl;
556 ddindx binary_integer; indx binary_integer;
557 begin
558
559 -- copy data to the local IN or IN-OUT args, if any
560
561
562
563
564
565 okl_ecv_pvt_w.rosetta_table_copy_in_p1(ddp_ecv_tbl, p5_a0
566 , p5_a1
567 , p5_a2
568 , p5_a3
569 , p5_a4
570 , p5_a5
571 , p5_a6
572 , p5_a7
573 , p5_a8
574 , p5_a9
575 , p5_a10
576 , p5_a11
577 , p5_a12
578 , p5_a13
579 , p5_a14
580 , p5_a15
581 , p5_a16
582 , p5_a17
583 , p5_a18
584 , p5_a19
585 , p5_a20
586 , p5_a21
587 , p5_a22
588 , p5_a23
589 , p5_a24
590 , p5_a25
591 , p5_a26
592 , p5_a27
593 , p5_a28
594 , p5_a29
595 , p5_a30
596 , p5_a31
597 , p5_a32
598 , p5_a33
599 , p5_a34
600 , p5_a35
601 );
602
603
604 -- here's the delegated call to the old PL/SQL routine
605 okl_ecv_pvt.insert_row(p_api_version,
606 p_init_msg_list,
607 x_return_status,
608 x_msg_count,
609 x_msg_data,
610 ddp_ecv_tbl,
611 ddx_ecv_tbl);
612
613 -- copy data back from the local variables to OUT or IN-OUT args, if any
614
615
616
617
618
619
620 okl_ecv_pvt_w.rosetta_table_copy_out_p1(ddx_ecv_tbl, p6_a0
621 , p6_a1
622 , p6_a2
623 , p6_a3
624 , p6_a4
625 , p6_a5
626 , p6_a6
627 , p6_a7
628 , p6_a8
629 , p6_a9
630 , p6_a10
631 , p6_a11
632 , p6_a12
633 , p6_a13
634 , p6_a14
635 , p6_a15
636 , p6_a16
637 , p6_a17
638 , p6_a18
639 , p6_a19
640 , p6_a20
641 , p6_a21
642 , p6_a22
643 , p6_a23
644 , p6_a24
645 , p6_a25
646 , p6_a26
647 , p6_a27
648 , p6_a28
649 , p6_a29
650 , p6_a30
651 , p6_a31
652 , p6_a32
653 , p6_a33
654 , p6_a34
655 , p6_a35
656 );
657 end;
658
659 procedure update_row(p_api_version NUMBER
660 , p_init_msg_list VARCHAR2
661 , x_return_status out nocopy VARCHAR2
662 , x_msg_count out nocopy NUMBER
663 , x_msg_data out nocopy VARCHAR2
664 , p5_a0 NUMBER
665 , p5_a1 NUMBER
666 , p5_a2 NUMBER
667 , p5_a3 VARCHAR2
668 , p5_a4 VARCHAR2
669 , p5_a5 VARCHAR2
670 , p5_a6 VARCHAR2
671 , p5_a7 VARCHAR2
672 , p5_a8 VARCHAR2
673 , p5_a9 NUMBER
674 , p5_a10 NUMBER
675 , p5_a11 DATE
676 , p5_a12 DATE
677 , p5_a13 VARCHAR2
678 , p5_a14 NUMBER
679 , p5_a15 NUMBER
680 , p5_a16 DATE
681 , p5_a17 NUMBER
682 , p5_a18 DATE
683 , p5_a19 NUMBER
684 , p5_a20 VARCHAR2
685 , p5_a21 VARCHAR2
686 , p5_a22 VARCHAR2
687 , p5_a23 VARCHAR2
688 , p5_a24 VARCHAR2
689 , p5_a25 VARCHAR2
690 , p5_a26 VARCHAR2
691 , p5_a27 VARCHAR2
692 , p5_a28 VARCHAR2
693 , p5_a29 VARCHAR2
694 , p5_a30 VARCHAR2
695 , p5_a31 VARCHAR2
696 , p5_a32 VARCHAR2
697 , p5_a33 VARCHAR2
698 , p5_a34 VARCHAR2
699 , p5_a35 VARCHAR2
700 , p6_a0 out nocopy NUMBER
701 , p6_a1 out nocopy NUMBER
702 , p6_a2 out nocopy NUMBER
703 , p6_a3 out nocopy VARCHAR2
704 , p6_a4 out nocopy VARCHAR2
705 , p6_a5 out nocopy VARCHAR2
706 , p6_a6 out nocopy VARCHAR2
707 , p6_a7 out nocopy VARCHAR2
708 , p6_a8 out nocopy VARCHAR2
709 , p6_a9 out nocopy NUMBER
710 , p6_a10 out nocopy NUMBER
711 , p6_a11 out nocopy DATE
712 , p6_a12 out nocopy DATE
713 , p6_a13 out nocopy VARCHAR2
714 , p6_a14 out nocopy NUMBER
715 , p6_a15 out nocopy NUMBER
716 , p6_a16 out nocopy DATE
717 , p6_a17 out nocopy NUMBER
718 , p6_a18 out nocopy DATE
719 , p6_a19 out nocopy NUMBER
720 , p6_a20 out nocopy VARCHAR2
721 , p6_a21 out nocopy VARCHAR2
722 , p6_a22 out nocopy VARCHAR2
723 , p6_a23 out nocopy VARCHAR2
724 , p6_a24 out nocopy VARCHAR2
725 , p6_a25 out nocopy VARCHAR2
726 , p6_a26 out nocopy VARCHAR2
727 , p6_a27 out nocopy VARCHAR2
728 , p6_a28 out nocopy VARCHAR2
729 , p6_a29 out nocopy VARCHAR2
730 , p6_a30 out nocopy VARCHAR2
731 , p6_a31 out nocopy VARCHAR2
732 , p6_a32 out nocopy VARCHAR2
733 , p6_a33 out nocopy VARCHAR2
734 , p6_a34 out nocopy VARCHAR2
735 , p6_a35 out nocopy VARCHAR2
736 )
737
738 as
739 ddp_ecv_rec okl_ecv_pvt.okl_ecv_rec;
740 ddx_ecv_rec okl_ecv_pvt.okl_ecv_rec;
741 ddindx binary_integer; indx binary_integer;
742 begin
743
744 -- copy data to the local IN or IN-OUT args, if any
745
746
747
748
749
750 ddp_ecv_rec.criterion_value_id := p5_a0;
751 ddp_ecv_rec.object_version_number := p5_a1;
752 ddp_ecv_rec.criteria_id := p5_a2;
753 ddp_ecv_rec.data_type_code := p5_a3;
754 ddp_ecv_rec.source_yn := p5_a4;
755 ddp_ecv_rec.value_type_code := p5_a5;
756 ddp_ecv_rec.operator_code := p5_a6;
757 ddp_ecv_rec.crit_cat_value1 := p5_a7;
758 ddp_ecv_rec.crit_cat_value2 := p5_a8;
759 ddp_ecv_rec.crit_cat_numval1 := p5_a9;
760 ddp_ecv_rec.crit_cat_numval2 := p5_a10;
761 ddp_ecv_rec.crit_cat_dateval1 := p5_a11;
762 ddp_ecv_rec.crit_cat_dateval2 := p5_a12;
763 ddp_ecv_rec.validate_record := p5_a13;
764 ddp_ecv_rec.adjustment_factor := p5_a14;
765 ddp_ecv_rec.created_by := p5_a15;
766 ddp_ecv_rec.creation_date := p5_a16;
767 ddp_ecv_rec.last_updated_by := p5_a17;
768 ddp_ecv_rec.last_update_date := p5_a18;
769 ddp_ecv_rec.last_update_login := p5_a19;
770 ddp_ecv_rec.attribute_category := p5_a20;
771 ddp_ecv_rec.attribute1 := p5_a21;
772 ddp_ecv_rec.attribute2 := p5_a22;
773 ddp_ecv_rec.attribute3 := p5_a23;
774 ddp_ecv_rec.attribute4 := p5_a24;
775 ddp_ecv_rec.attribute5 := p5_a25;
776 ddp_ecv_rec.attribute6 := p5_a26;
777 ddp_ecv_rec.attribute7 := p5_a27;
778 ddp_ecv_rec.attribute8 := p5_a28;
779 ddp_ecv_rec.attribute9 := p5_a29;
780 ddp_ecv_rec.attribute10 := p5_a30;
781 ddp_ecv_rec.attribute11 := p5_a31;
782 ddp_ecv_rec.attribute12 := p5_a32;
783 ddp_ecv_rec.attribute13 := p5_a33;
784 ddp_ecv_rec.attribute14 := p5_a34;
785 ddp_ecv_rec.attribute15 := p5_a35;
786
787
788 -- here's the delegated call to the old PL/SQL routine
789 okl_ecv_pvt.update_row(p_api_version,
790 p_init_msg_list,
791 x_return_status,
792 x_msg_count,
793 x_msg_data,
794 ddp_ecv_rec,
795 ddx_ecv_rec);
796
797 -- copy data back from the local variables to OUT or IN-OUT args, if any
798
799
800
801
802
803
804 p6_a0 := ddx_ecv_rec.criterion_value_id;
805 p6_a1 := ddx_ecv_rec.object_version_number;
806 p6_a2 := ddx_ecv_rec.criteria_id;
807 p6_a3 := ddx_ecv_rec.data_type_code;
808 p6_a4 := ddx_ecv_rec.source_yn;
809 p6_a5 := ddx_ecv_rec.value_type_code;
810 p6_a6 := ddx_ecv_rec.operator_code;
811 p6_a7 := ddx_ecv_rec.crit_cat_value1;
812 p6_a8 := ddx_ecv_rec.crit_cat_value2;
813 p6_a9 := ddx_ecv_rec.crit_cat_numval1;
814 p6_a10 := ddx_ecv_rec.crit_cat_numval2;
815 p6_a11 := ddx_ecv_rec.crit_cat_dateval1;
816 p6_a12 := ddx_ecv_rec.crit_cat_dateval2;
817 p6_a13 := ddx_ecv_rec.validate_record;
818 p6_a14 := ddx_ecv_rec.adjustment_factor;
819 p6_a15 := ddx_ecv_rec.created_by;
820 p6_a16 := ddx_ecv_rec.creation_date;
821 p6_a17 := ddx_ecv_rec.last_updated_by;
822 p6_a18 := ddx_ecv_rec.last_update_date;
823 p6_a19 := ddx_ecv_rec.last_update_login;
824 p6_a20 := ddx_ecv_rec.attribute_category;
825 p6_a21 := ddx_ecv_rec.attribute1;
826 p6_a22 := ddx_ecv_rec.attribute2;
827 p6_a23 := ddx_ecv_rec.attribute3;
828 p6_a24 := ddx_ecv_rec.attribute4;
829 p6_a25 := ddx_ecv_rec.attribute5;
830 p6_a26 := ddx_ecv_rec.attribute6;
831 p6_a27 := ddx_ecv_rec.attribute7;
832 p6_a28 := ddx_ecv_rec.attribute8;
833 p6_a29 := ddx_ecv_rec.attribute9;
834 p6_a30 := ddx_ecv_rec.attribute10;
835 p6_a31 := ddx_ecv_rec.attribute11;
836 p6_a32 := ddx_ecv_rec.attribute12;
837 p6_a33 := ddx_ecv_rec.attribute13;
838 p6_a34 := ddx_ecv_rec.attribute14;
839 p6_a35 := ddx_ecv_rec.attribute15;
840 end;
841
842 procedure update_row(p_api_version NUMBER
843 , p_init_msg_list VARCHAR2
844 , x_return_status out nocopy VARCHAR2
845 , x_msg_count out nocopy NUMBER
846 , x_msg_data out nocopy VARCHAR2
847 , p5_a0 JTF_NUMBER_TABLE
848 , p5_a1 JTF_NUMBER_TABLE
849 , p5_a2 JTF_NUMBER_TABLE
850 , p5_a3 JTF_VARCHAR2_TABLE_100
851 , p5_a4 JTF_VARCHAR2_TABLE_100
852 , p5_a5 JTF_VARCHAR2_TABLE_100
853 , p5_a6 JTF_VARCHAR2_TABLE_100
854 , p5_a7 JTF_VARCHAR2_TABLE_300
855 , p5_a8 JTF_VARCHAR2_TABLE_300
856 , p5_a9 JTF_NUMBER_TABLE
857 , p5_a10 JTF_NUMBER_TABLE
858 , p5_a11 JTF_DATE_TABLE
859 , p5_a12 JTF_DATE_TABLE
860 , p5_a13 JTF_VARCHAR2_TABLE_100
861 , p5_a14 JTF_NUMBER_TABLE
862 , p5_a15 JTF_NUMBER_TABLE
863 , p5_a16 JTF_DATE_TABLE
864 , p5_a17 JTF_NUMBER_TABLE
865 , p5_a18 JTF_DATE_TABLE
866 , p5_a19 JTF_NUMBER_TABLE
867 , p5_a20 JTF_VARCHAR2_TABLE_100
868 , p5_a21 JTF_VARCHAR2_TABLE_500
869 , p5_a22 JTF_VARCHAR2_TABLE_500
870 , p5_a23 JTF_VARCHAR2_TABLE_500
871 , p5_a24 JTF_VARCHAR2_TABLE_500
872 , p5_a25 JTF_VARCHAR2_TABLE_500
873 , p5_a26 JTF_VARCHAR2_TABLE_500
874 , p5_a27 JTF_VARCHAR2_TABLE_500
875 , p5_a28 JTF_VARCHAR2_TABLE_500
876 , p5_a29 JTF_VARCHAR2_TABLE_500
877 , p5_a30 JTF_VARCHAR2_TABLE_500
878 , p5_a31 JTF_VARCHAR2_TABLE_500
879 , p5_a32 JTF_VARCHAR2_TABLE_500
880 , p5_a33 JTF_VARCHAR2_TABLE_500
881 , p5_a34 JTF_VARCHAR2_TABLE_500
882 , p5_a35 JTF_VARCHAR2_TABLE_500
883 , p6_a0 out nocopy JTF_NUMBER_TABLE
884 , p6_a1 out nocopy JTF_NUMBER_TABLE
885 , p6_a2 out nocopy JTF_NUMBER_TABLE
886 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
887 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
888 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
889 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
890 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_300
891 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_300
892 , p6_a9 out nocopy JTF_NUMBER_TABLE
893 , p6_a10 out nocopy JTF_NUMBER_TABLE
894 , p6_a11 out nocopy JTF_DATE_TABLE
895 , p6_a12 out nocopy JTF_DATE_TABLE
896 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
897 , p6_a14 out nocopy JTF_NUMBER_TABLE
898 , p6_a15 out nocopy JTF_NUMBER_TABLE
899 , p6_a16 out nocopy JTF_DATE_TABLE
900 , p6_a17 out nocopy JTF_NUMBER_TABLE
901 , p6_a18 out nocopy JTF_DATE_TABLE
902 , p6_a19 out nocopy JTF_NUMBER_TABLE
903 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_100
904 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
905 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
906 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
907 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
908 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
909 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
910 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
911 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
912 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
913 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
914 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
915 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
916 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
917 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
918 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_500
919 )
920
921 as
922 ddp_ecv_tbl okl_ecv_pvt.okl_ecv_tbl;
923 ddx_ecv_tbl okl_ecv_pvt.okl_ecv_tbl;
924 ddindx binary_integer; indx binary_integer;
925 begin
926
927 -- copy data to the local IN or IN-OUT args, if any
928
929
930
931
932
933 okl_ecv_pvt_w.rosetta_table_copy_in_p1(ddp_ecv_tbl, p5_a0
934 , p5_a1
935 , p5_a2
936 , p5_a3
937 , p5_a4
938 , p5_a5
939 , p5_a6
940 , p5_a7
941 , p5_a8
942 , p5_a9
943 , p5_a10
944 , p5_a11
945 , p5_a12
946 , p5_a13
947 , p5_a14
948 , p5_a15
949 , p5_a16
950 , p5_a17
951 , p5_a18
952 , p5_a19
953 , p5_a20
954 , p5_a21
955 , p5_a22
956 , p5_a23
957 , p5_a24
958 , p5_a25
959 , p5_a26
960 , p5_a27
961 , p5_a28
962 , p5_a29
963 , p5_a30
964 , p5_a31
965 , p5_a32
966 , p5_a33
967 , p5_a34
968 , p5_a35
969 );
970
971
972 -- here's the delegated call to the old PL/SQL routine
973 okl_ecv_pvt.update_row(p_api_version,
974 p_init_msg_list,
975 x_return_status,
976 x_msg_count,
977 x_msg_data,
978 ddp_ecv_tbl,
979 ddx_ecv_tbl);
980
981 -- copy data back from the local variables to OUT or IN-OUT args, if any
982
983
984
985
986
987
988 okl_ecv_pvt_w.rosetta_table_copy_out_p1(ddx_ecv_tbl, p6_a0
989 , p6_a1
990 , p6_a2
991 , p6_a3
992 , p6_a4
993 , p6_a5
994 , p6_a6
995 , p6_a7
996 , p6_a8
997 , p6_a9
998 , p6_a10
999 , p6_a11
1000 , p6_a12
1001 , p6_a13
1002 , p6_a14
1003 , p6_a15
1004 , p6_a16
1005 , p6_a17
1006 , p6_a18
1007 , p6_a19
1008 , p6_a20
1009 , p6_a21
1010 , p6_a22
1011 , p6_a23
1012 , p6_a24
1013 , p6_a25
1014 , p6_a26
1015 , p6_a27
1016 , p6_a28
1017 , p6_a29
1018 , p6_a30
1019 , p6_a31
1020 , p6_a32
1021 , p6_a33
1022 , p6_a34
1023 , p6_a35
1024 );
1025 end;
1026
1027 procedure delete_row(p_api_version NUMBER
1028 , p_init_msg_list VARCHAR2
1029 , x_return_status out nocopy VARCHAR2
1030 , x_msg_count out nocopy NUMBER
1031 , x_msg_data out nocopy VARCHAR2
1032 , p5_a0 NUMBER
1033 , p5_a1 NUMBER
1034 , p5_a2 NUMBER
1035 , p5_a3 VARCHAR2
1036 , p5_a4 VARCHAR2
1037 , p5_a5 VARCHAR2
1038 , p5_a6 VARCHAR2
1039 , p5_a7 VARCHAR2
1040 , p5_a8 VARCHAR2
1041 , p5_a9 NUMBER
1042 , p5_a10 NUMBER
1043 , p5_a11 DATE
1044 , p5_a12 DATE
1045 , p5_a13 VARCHAR2
1046 , p5_a14 NUMBER
1047 , p5_a15 NUMBER
1048 , p5_a16 DATE
1049 , p5_a17 NUMBER
1050 , p5_a18 DATE
1051 , p5_a19 NUMBER
1052 , p5_a20 VARCHAR2
1053 , p5_a21 VARCHAR2
1054 , p5_a22 VARCHAR2
1055 , p5_a23 VARCHAR2
1056 , p5_a24 VARCHAR2
1057 , p5_a25 VARCHAR2
1058 , p5_a26 VARCHAR2
1059 , p5_a27 VARCHAR2
1060 , p5_a28 VARCHAR2
1061 , p5_a29 VARCHAR2
1062 , p5_a30 VARCHAR2
1063 , p5_a31 VARCHAR2
1064 , p5_a32 VARCHAR2
1065 , p5_a33 VARCHAR2
1066 , p5_a34 VARCHAR2
1067 , p5_a35 VARCHAR2
1068 )
1069
1070 as
1071 ddp_ecv_rec okl_ecv_pvt.okl_ecv_rec;
1072 ddindx binary_integer; indx binary_integer;
1073 begin
1074
1075 -- copy data to the local IN or IN-OUT args, if any
1076
1077
1078
1079
1080
1081 ddp_ecv_rec.criterion_value_id := p5_a0;
1082 ddp_ecv_rec.object_version_number := p5_a1;
1083 ddp_ecv_rec.criteria_id := p5_a2;
1084 ddp_ecv_rec.data_type_code := p5_a3;
1085 ddp_ecv_rec.source_yn := p5_a4;
1086 ddp_ecv_rec.value_type_code := p5_a5;
1087 ddp_ecv_rec.operator_code := p5_a6;
1088 ddp_ecv_rec.crit_cat_value1 := p5_a7;
1089 ddp_ecv_rec.crit_cat_value2 := p5_a8;
1090 ddp_ecv_rec.crit_cat_numval1 := p5_a9;
1091 ddp_ecv_rec.crit_cat_numval2 := p5_a10;
1092 ddp_ecv_rec.crit_cat_dateval1 := p5_a11;
1093 ddp_ecv_rec.crit_cat_dateval2 := p5_a12;
1094 ddp_ecv_rec.validate_record := p5_a13;
1095 ddp_ecv_rec.adjustment_factor := p5_a14;
1096 ddp_ecv_rec.created_by := p5_a15;
1097 ddp_ecv_rec.creation_date := p5_a16;
1098 ddp_ecv_rec.last_updated_by := p5_a17;
1099 ddp_ecv_rec.last_update_date := p5_a18;
1100 ddp_ecv_rec.last_update_login := p5_a19;
1101 ddp_ecv_rec.attribute_category := p5_a20;
1102 ddp_ecv_rec.attribute1 := p5_a21;
1103 ddp_ecv_rec.attribute2 := p5_a22;
1104 ddp_ecv_rec.attribute3 := p5_a23;
1105 ddp_ecv_rec.attribute4 := p5_a24;
1106 ddp_ecv_rec.attribute5 := p5_a25;
1107 ddp_ecv_rec.attribute6 := p5_a26;
1108 ddp_ecv_rec.attribute7 := p5_a27;
1109 ddp_ecv_rec.attribute8 := p5_a28;
1110 ddp_ecv_rec.attribute9 := p5_a29;
1111 ddp_ecv_rec.attribute10 := p5_a30;
1112 ddp_ecv_rec.attribute11 := p5_a31;
1113 ddp_ecv_rec.attribute12 := p5_a32;
1114 ddp_ecv_rec.attribute13 := p5_a33;
1115 ddp_ecv_rec.attribute14 := p5_a34;
1116 ddp_ecv_rec.attribute15 := p5_a35;
1117
1118 -- here's the delegated call to the old PL/SQL routine
1119 okl_ecv_pvt.delete_row(p_api_version,
1120 p_init_msg_list,
1121 x_return_status,
1122 x_msg_count,
1123 x_msg_data,
1124 ddp_ecv_rec);
1125
1126 -- copy data back from the local variables to OUT or IN-OUT args, if any
1127
1128
1129
1130
1131
1132 end;
1133
1134 procedure delete_row(p_api_version NUMBER
1135 , p_init_msg_list VARCHAR2
1136 , x_return_status out nocopy VARCHAR2
1137 , x_msg_count out nocopy NUMBER
1138 , x_msg_data out nocopy VARCHAR2
1139 , p5_a0 JTF_NUMBER_TABLE
1140 , p5_a1 JTF_NUMBER_TABLE
1141 , p5_a2 JTF_NUMBER_TABLE
1142 , p5_a3 JTF_VARCHAR2_TABLE_100
1143 , p5_a4 JTF_VARCHAR2_TABLE_100
1144 , p5_a5 JTF_VARCHAR2_TABLE_100
1145 , p5_a6 JTF_VARCHAR2_TABLE_100
1146 , p5_a7 JTF_VARCHAR2_TABLE_300
1147 , p5_a8 JTF_VARCHAR2_TABLE_300
1148 , p5_a9 JTF_NUMBER_TABLE
1149 , p5_a10 JTF_NUMBER_TABLE
1150 , p5_a11 JTF_DATE_TABLE
1151 , p5_a12 JTF_DATE_TABLE
1152 , p5_a13 JTF_VARCHAR2_TABLE_100
1153 , p5_a14 JTF_NUMBER_TABLE
1154 , p5_a15 JTF_NUMBER_TABLE
1155 , p5_a16 JTF_DATE_TABLE
1156 , p5_a17 JTF_NUMBER_TABLE
1157 , p5_a18 JTF_DATE_TABLE
1158 , p5_a19 JTF_NUMBER_TABLE
1159 , p5_a20 JTF_VARCHAR2_TABLE_100
1160 , p5_a21 JTF_VARCHAR2_TABLE_500
1161 , p5_a22 JTF_VARCHAR2_TABLE_500
1162 , p5_a23 JTF_VARCHAR2_TABLE_500
1163 , p5_a24 JTF_VARCHAR2_TABLE_500
1164 , p5_a25 JTF_VARCHAR2_TABLE_500
1165 , p5_a26 JTF_VARCHAR2_TABLE_500
1166 , p5_a27 JTF_VARCHAR2_TABLE_500
1167 , p5_a28 JTF_VARCHAR2_TABLE_500
1168 , p5_a29 JTF_VARCHAR2_TABLE_500
1169 , p5_a30 JTF_VARCHAR2_TABLE_500
1170 , p5_a31 JTF_VARCHAR2_TABLE_500
1171 , p5_a32 JTF_VARCHAR2_TABLE_500
1172 , p5_a33 JTF_VARCHAR2_TABLE_500
1173 , p5_a34 JTF_VARCHAR2_TABLE_500
1174 , p5_a35 JTF_VARCHAR2_TABLE_500
1175 )
1176
1177 as
1178 ddp_ecv_tbl okl_ecv_pvt.okl_ecv_tbl;
1179 ddindx binary_integer; indx binary_integer;
1180 begin
1181
1182 -- copy data to the local IN or IN-OUT args, if any
1183
1184
1185
1186
1187
1188 okl_ecv_pvt_w.rosetta_table_copy_in_p1(ddp_ecv_tbl, p5_a0
1189 , p5_a1
1190 , p5_a2
1191 , p5_a3
1192 , p5_a4
1193 , p5_a5
1194 , p5_a6
1195 , p5_a7
1196 , p5_a8
1197 , p5_a9
1198 , p5_a10
1199 , p5_a11
1200 , p5_a12
1201 , p5_a13
1202 , p5_a14
1203 , p5_a15
1204 , p5_a16
1205 , p5_a17
1206 , p5_a18
1207 , p5_a19
1208 , p5_a20
1209 , p5_a21
1210 , p5_a22
1211 , p5_a23
1212 , p5_a24
1213 , p5_a25
1214 , p5_a26
1215 , p5_a27
1216 , p5_a28
1217 , p5_a29
1218 , p5_a30
1219 , p5_a31
1220 , p5_a32
1221 , p5_a33
1222 , p5_a34
1223 , p5_a35
1224 );
1225
1226 -- here's the delegated call to the old PL/SQL routine
1227 okl_ecv_pvt.delete_row(p_api_version,
1228 p_init_msg_list,
1229 x_return_status,
1230 x_msg_count,
1231 x_msg_data,
1232 ddp_ecv_tbl);
1233
1234 -- copy data back from the local variables to OUT or IN-OUT args, if any
1235
1236
1237
1238
1239
1240 end;
1241
1242 function validate_record(p0_a0 in out nocopy NUMBER
1243 , p0_a1 in out nocopy NUMBER
1244 , p0_a2 in out nocopy NUMBER
1245 , p0_a3 in out nocopy VARCHAR2
1246 , p0_a4 in out nocopy VARCHAR2
1247 , p0_a5 in out nocopy VARCHAR2
1248 , p0_a6 in out nocopy VARCHAR2
1249 , p0_a7 in out nocopy VARCHAR2
1250 , p0_a8 in out nocopy VARCHAR2
1251 , p0_a9 in out nocopy NUMBER
1252 , p0_a10 in out nocopy NUMBER
1253 , p0_a11 in out nocopy DATE
1254 , p0_a12 in out nocopy DATE
1255 , p0_a13 in out nocopy VARCHAR2
1256 , p0_a14 in out nocopy NUMBER
1257 , p0_a15 in out nocopy NUMBER
1258 , p0_a16 in out nocopy DATE
1259 , p0_a17 in out nocopy NUMBER
1260 , p0_a18 in out nocopy DATE
1261 , p0_a19 in out nocopy NUMBER
1262 , p0_a20 in out nocopy VARCHAR2
1263 , p0_a21 in out nocopy VARCHAR2
1264 , p0_a22 in out nocopy VARCHAR2
1265 , p0_a23 in out nocopy VARCHAR2
1266 , p0_a24 in out nocopy VARCHAR2
1267 , p0_a25 in out nocopy VARCHAR2
1268 , p0_a26 in out nocopy VARCHAR2
1269 , p0_a27 in out nocopy VARCHAR2
1270 , p0_a28 in out nocopy VARCHAR2
1271 , p0_a29 in out nocopy VARCHAR2
1272 , p0_a30 in out nocopy VARCHAR2
1273 , p0_a31 in out nocopy VARCHAR2
1274 , p0_a32 in out nocopy VARCHAR2
1275 , p0_a33 in out nocopy VARCHAR2
1276 , p0_a34 in out nocopy VARCHAR2
1277 , p0_a35 in out nocopy VARCHAR2
1278 ) return varchar2
1279
1280 as
1281 ddp_ecv_rec okl_ecv_pvt.okl_ecv_rec;
1282 ddindx binary_integer; indx binary_integer;
1283 ddrosetta_retval varchar2(4000);
1284 begin
1285
1286 -- copy data to the local IN or IN-OUT args, if any
1287 ddp_ecv_rec.criterion_value_id := p0_a0;
1288 ddp_ecv_rec.object_version_number := p0_a1;
1289 ddp_ecv_rec.criteria_id := p0_a2;
1290 ddp_ecv_rec.data_type_code := p0_a3;
1291 ddp_ecv_rec.source_yn := p0_a4;
1292 ddp_ecv_rec.value_type_code := p0_a5;
1293 ddp_ecv_rec.operator_code := p0_a6;
1294 ddp_ecv_rec.crit_cat_value1 := p0_a7;
1295 ddp_ecv_rec.crit_cat_value2 := p0_a8;
1296 ddp_ecv_rec.crit_cat_numval1 := p0_a9;
1297 ddp_ecv_rec.crit_cat_numval2 := p0_a10;
1298 ddp_ecv_rec.crit_cat_dateval1 := p0_a11;
1299 ddp_ecv_rec.crit_cat_dateval2 := p0_a12;
1300 ddp_ecv_rec.validate_record := p0_a13;
1301 ddp_ecv_rec.adjustment_factor := p0_a14;
1302 ddp_ecv_rec.created_by := p0_a15;
1303 ddp_ecv_rec.creation_date := p0_a16;
1304 ddp_ecv_rec.last_updated_by := p0_a17;
1305 ddp_ecv_rec.last_update_date := p0_a18;
1306 ddp_ecv_rec.last_update_login := p0_a19;
1307 ddp_ecv_rec.attribute_category := p0_a20;
1308 ddp_ecv_rec.attribute1 := p0_a21;
1309 ddp_ecv_rec.attribute2 := p0_a22;
1310 ddp_ecv_rec.attribute3 := p0_a23;
1311 ddp_ecv_rec.attribute4 := p0_a24;
1312 ddp_ecv_rec.attribute5 := p0_a25;
1313 ddp_ecv_rec.attribute6 := p0_a26;
1314 ddp_ecv_rec.attribute7 := p0_a27;
1315 ddp_ecv_rec.attribute8 := p0_a28;
1316 ddp_ecv_rec.attribute9 := p0_a29;
1317 ddp_ecv_rec.attribute10 := p0_a30;
1318 ddp_ecv_rec.attribute11 := p0_a31;
1319 ddp_ecv_rec.attribute12 := p0_a32;
1320 ddp_ecv_rec.attribute13 := p0_a33;
1321 ddp_ecv_rec.attribute14 := p0_a34;
1322 ddp_ecv_rec.attribute15 := p0_a35;
1323
1324 -- here's the delegated call to the old PL/SQL routine
1325 ddrosetta_retval := okl_ecv_pvt.validate_record(ddp_ecv_rec);
1326
1327 -- copy data back from the local variables to OUT or IN-OUT args, if any
1328 p0_a0 := ddp_ecv_rec.criterion_value_id;
1329 p0_a1 := ddp_ecv_rec.object_version_number;
1330 p0_a2 := ddp_ecv_rec.criteria_id;
1331 p0_a3 := ddp_ecv_rec.data_type_code;
1332 p0_a4 := ddp_ecv_rec.source_yn;
1333 p0_a5 := ddp_ecv_rec.value_type_code;
1334 p0_a6 := ddp_ecv_rec.operator_code;
1335 p0_a7 := ddp_ecv_rec.crit_cat_value1;
1336 p0_a8 := ddp_ecv_rec.crit_cat_value2;
1337 p0_a9 := ddp_ecv_rec.crit_cat_numval1;
1338 p0_a10 := ddp_ecv_rec.crit_cat_numval2;
1339 p0_a11 := ddp_ecv_rec.crit_cat_dateval1;
1340 p0_a12 := ddp_ecv_rec.crit_cat_dateval2;
1341 p0_a13 := ddp_ecv_rec.validate_record;
1342 p0_a14 := ddp_ecv_rec.adjustment_factor;
1343 p0_a15 := ddp_ecv_rec.created_by;
1344 p0_a16 := ddp_ecv_rec.creation_date;
1345 p0_a17 := ddp_ecv_rec.last_updated_by;
1346 p0_a18 := ddp_ecv_rec.last_update_date;
1347 p0_a19 := ddp_ecv_rec.last_update_login;
1348 p0_a20 := ddp_ecv_rec.attribute_category;
1349 p0_a21 := ddp_ecv_rec.attribute1;
1350 p0_a22 := ddp_ecv_rec.attribute2;
1351 p0_a23 := ddp_ecv_rec.attribute3;
1352 p0_a24 := ddp_ecv_rec.attribute4;
1353 p0_a25 := ddp_ecv_rec.attribute5;
1354 p0_a26 := ddp_ecv_rec.attribute6;
1355 p0_a27 := ddp_ecv_rec.attribute7;
1356 p0_a28 := ddp_ecv_rec.attribute8;
1357 p0_a29 := ddp_ecv_rec.attribute9;
1358 p0_a30 := ddp_ecv_rec.attribute10;
1359 p0_a31 := ddp_ecv_rec.attribute11;
1360 p0_a32 := ddp_ecv_rec.attribute12;
1361 p0_a33 := ddp_ecv_rec.attribute13;
1362 p0_a34 := ddp_ecv_rec.attribute14;
1363 p0_a35 := ddp_ecv_rec.attribute15;
1364
1365 return ddrosetta_retval;
1366 end;
1367
1368 end okl_ecv_pvt_w;