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