[Home] [Help]
PACKAGE BODY: APPS.OKL_ICP_PVT_W
Source
1 package body okl_icp_pvt_w as
2 /* $Header: OKLIICPB.pls 120.2 2005/07/11 10:23:38 smadhava noship $ */
3 procedure rosetta_table_copy_in_p27(t out nocopy okl_icp_pvt.icpv_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_VARCHAR2_TABLE_100
11 , a8 JTF_VARCHAR2_TABLE_100
12 , a9 JTF_DATE_TABLE
13 , a10 JTF_DATE_TABLE
14 , a11 JTF_NUMBER_TABLE
15 , a12 JTF_DATE_TABLE
16 , a13 JTF_NUMBER_TABLE
17 , a14 JTF_DATE_TABLE
18 , a15 JTF_NUMBER_TABLE
19 , a16 JTF_VARCHAR2_TABLE_100
20 , a17 JTF_VARCHAR2_TABLE_500
21 , a18 JTF_VARCHAR2_TABLE_500
22 , a19 JTF_VARCHAR2_TABLE_500
23 , a20 JTF_VARCHAR2_TABLE_500
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 ) as
36 ddindx binary_integer; indx binary_integer;
37 begin
38 if a0 is not null and a0.count > 0 then
39 if a0.count > 0 then
40 indx := a0.first;
41 ddindx := 1;
42 while true loop
43 t(ddindx).id := a0(indx);
44 t(ddindx).object_version_number := a1(indx);
45 t(ddindx).cat_id1 := a2(indx);
46 t(ddindx).cat_id2 := a3(indx);
47 t(ddindx).term_in_months := a4(indx);
48 t(ddindx).residual_value_percent := a5(indx);
49 t(ddindx).item_residual_id := a6(indx);
50 t(ddindx).sts_code := a7(indx);
51 t(ddindx).version_number := a8(indx);
52 t(ddindx).start_date := a9(indx);
53 t(ddindx).end_date := a10(indx);
54 t(ddindx).created_by := a11(indx);
55 t(ddindx).creation_date := a12(indx);
56 t(ddindx).last_updated_by := a13(indx);
57 t(ddindx).last_update_date := a14(indx);
58 t(ddindx).last_update_login := a15(indx);
59 t(ddindx).attribute_category := a16(indx);
60 t(ddindx).attribute1 := a17(indx);
61 t(ddindx).attribute2 := a18(indx);
62 t(ddindx).attribute3 := a19(indx);
63 t(ddindx).attribute4 := a20(indx);
64 t(ddindx).attribute5 := a21(indx);
65 t(ddindx).attribute6 := a22(indx);
66 t(ddindx).attribute7 := a23(indx);
67 t(ddindx).attribute8 := a24(indx);
68 t(ddindx).attribute9 := a25(indx);
69 t(ddindx).attribute10 := a26(indx);
70 t(ddindx).attribute11 := a27(indx);
71 t(ddindx).attribute12 := a28(indx);
72 t(ddindx).attribute13 := a29(indx);
73 t(ddindx).attribute14 := a30(indx);
74 t(ddindx).attribute15 := a31(indx);
75 ddindx := ddindx+1;
76 if a0.last =indx
77 then exit;
78 end if;
79 indx := a0.next(indx);
80 end loop;
81 end if;
82 end if;
83 end rosetta_table_copy_in_p27;
84 procedure rosetta_table_copy_out_p27(t okl_icp_pvt.icpv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
85 , a1 out nocopy JTF_NUMBER_TABLE
86 , a2 out nocopy JTF_NUMBER_TABLE
87 , a3 out nocopy JTF_NUMBER_TABLE
88 , a4 out nocopy JTF_NUMBER_TABLE
89 , a5 out nocopy JTF_NUMBER_TABLE
90 , a6 out nocopy JTF_NUMBER_TABLE
91 , a7 out nocopy JTF_VARCHAR2_TABLE_100
92 , a8 out nocopy JTF_VARCHAR2_TABLE_100
93 , a9 out nocopy JTF_DATE_TABLE
94 , a10 out nocopy JTF_DATE_TABLE
95 , a11 out nocopy JTF_NUMBER_TABLE
96 , a12 out nocopy JTF_DATE_TABLE
97 , a13 out nocopy JTF_NUMBER_TABLE
98 , a14 out nocopy JTF_DATE_TABLE
99 , a15 out nocopy JTF_NUMBER_TABLE
100 , a16 out nocopy JTF_VARCHAR2_TABLE_100
101 , a17 out nocopy JTF_VARCHAR2_TABLE_500
102 , a18 out nocopy JTF_VARCHAR2_TABLE_500
103 , a19 out nocopy JTF_VARCHAR2_TABLE_500
104 , a20 out nocopy JTF_VARCHAR2_TABLE_500
105 , a21 out nocopy JTF_VARCHAR2_TABLE_500
106 , a22 out nocopy JTF_VARCHAR2_TABLE_500
107 , a23 out nocopy JTF_VARCHAR2_TABLE_500
108 , a24 out nocopy JTF_VARCHAR2_TABLE_500
109 , a25 out nocopy JTF_VARCHAR2_TABLE_500
110 , a26 out nocopy JTF_VARCHAR2_TABLE_500
111 , a27 out nocopy JTF_VARCHAR2_TABLE_500
112 , a28 out nocopy JTF_VARCHAR2_TABLE_500
113 , a29 out nocopy JTF_VARCHAR2_TABLE_500
114 , a30 out nocopy JTF_VARCHAR2_TABLE_500
115 , a31 out nocopy JTF_VARCHAR2_TABLE_500
116 ) as
117 ddindx binary_integer; indx binary_integer;
118 begin
119 if t is null or t.count = 0 then
120 a0 := JTF_NUMBER_TABLE();
121 a1 := JTF_NUMBER_TABLE();
122 a2 := JTF_NUMBER_TABLE();
123 a3 := JTF_NUMBER_TABLE();
124 a4 := JTF_NUMBER_TABLE();
125 a5 := JTF_NUMBER_TABLE();
126 a6 := JTF_NUMBER_TABLE();
127 a7 := JTF_VARCHAR2_TABLE_100();
128 a8 := JTF_VARCHAR2_TABLE_100();
129 a9 := JTF_DATE_TABLE();
130 a10 := JTF_DATE_TABLE();
131 a11 := JTF_NUMBER_TABLE();
132 a12 := JTF_DATE_TABLE();
133 a13 := JTF_NUMBER_TABLE();
134 a14 := JTF_DATE_TABLE();
135 a15 := JTF_NUMBER_TABLE();
136 a16 := JTF_VARCHAR2_TABLE_100();
137 a17 := JTF_VARCHAR2_TABLE_500();
138 a18 := JTF_VARCHAR2_TABLE_500();
139 a19 := JTF_VARCHAR2_TABLE_500();
140 a20 := JTF_VARCHAR2_TABLE_500();
141 a21 := JTF_VARCHAR2_TABLE_500();
142 a22 := JTF_VARCHAR2_TABLE_500();
143 a23 := JTF_VARCHAR2_TABLE_500();
144 a24 := JTF_VARCHAR2_TABLE_500();
145 a25 := JTF_VARCHAR2_TABLE_500();
146 a26 := JTF_VARCHAR2_TABLE_500();
147 a27 := JTF_VARCHAR2_TABLE_500();
148 a28 := JTF_VARCHAR2_TABLE_500();
149 a29 := JTF_VARCHAR2_TABLE_500();
150 a30 := JTF_VARCHAR2_TABLE_500();
151 a31 := JTF_VARCHAR2_TABLE_500();
152 else
153 a0 := JTF_NUMBER_TABLE();
154 a1 := JTF_NUMBER_TABLE();
155 a2 := JTF_NUMBER_TABLE();
156 a3 := JTF_NUMBER_TABLE();
157 a4 := JTF_NUMBER_TABLE();
158 a5 := JTF_NUMBER_TABLE();
159 a6 := JTF_NUMBER_TABLE();
160 a7 := JTF_VARCHAR2_TABLE_100();
161 a8 := JTF_VARCHAR2_TABLE_100();
162 a9 := JTF_DATE_TABLE();
163 a10 := JTF_DATE_TABLE();
164 a11 := JTF_NUMBER_TABLE();
165 a12 := JTF_DATE_TABLE();
166 a13 := JTF_NUMBER_TABLE();
167 a14 := JTF_DATE_TABLE();
168 a15 := JTF_NUMBER_TABLE();
169 a16 := JTF_VARCHAR2_TABLE_100();
170 a17 := JTF_VARCHAR2_TABLE_500();
171 a18 := JTF_VARCHAR2_TABLE_500();
172 a19 := JTF_VARCHAR2_TABLE_500();
173 a20 := JTF_VARCHAR2_TABLE_500();
174 a21 := JTF_VARCHAR2_TABLE_500();
175 a22 := JTF_VARCHAR2_TABLE_500();
176 a23 := JTF_VARCHAR2_TABLE_500();
177 a24 := JTF_VARCHAR2_TABLE_500();
178 a25 := JTF_VARCHAR2_TABLE_500();
179 a26 := JTF_VARCHAR2_TABLE_500();
180 a27 := JTF_VARCHAR2_TABLE_500();
181 a28 := JTF_VARCHAR2_TABLE_500();
182 a29 := JTF_VARCHAR2_TABLE_500();
183 a30 := JTF_VARCHAR2_TABLE_500();
184 a31 := JTF_VARCHAR2_TABLE_500();
185 if t.count > 0 then
186 a0.extend(t.count);
187 a1.extend(t.count);
188 a2.extend(t.count);
189 a3.extend(t.count);
190 a4.extend(t.count);
191 a5.extend(t.count);
192 a6.extend(t.count);
193 a7.extend(t.count);
194 a8.extend(t.count);
195 a9.extend(t.count);
196 a10.extend(t.count);
197 a11.extend(t.count);
198 a12.extend(t.count);
199 a13.extend(t.count);
200 a14.extend(t.count);
201 a15.extend(t.count);
202 a16.extend(t.count);
203 a17.extend(t.count);
204 a18.extend(t.count);
205 a19.extend(t.count);
206 a20.extend(t.count);
207 a21.extend(t.count);
208 a22.extend(t.count);
209 a23.extend(t.count);
210 a24.extend(t.count);
211 a25.extend(t.count);
212 a26.extend(t.count);
213 a27.extend(t.count);
214 a28.extend(t.count);
215 a29.extend(t.count);
216 a30.extend(t.count);
217 a31.extend(t.count);
218 ddindx := t.first;
219 indx := 1;
220 while true loop
221 a0(indx) := t(ddindx).id;
222 a1(indx) := t(ddindx).object_version_number;
223 a2(indx) := t(ddindx).cat_id1;
224 a3(indx) := t(ddindx).cat_id2;
225 a4(indx) := t(ddindx).term_in_months;
226 a5(indx) := t(ddindx).residual_value_percent;
227 a6(indx) := t(ddindx).item_residual_id;
228 a7(indx) := t(ddindx).sts_code;
229 a8(indx) := t(ddindx).version_number;
230 a9(indx) := t(ddindx).start_date;
231 a10(indx) := t(ddindx).end_date;
232 a11(indx) := t(ddindx).created_by;
233 a12(indx) := t(ddindx).creation_date;
234 a13(indx) := t(ddindx).last_updated_by;
235 a14(indx) := t(ddindx).last_update_date;
236 a15(indx) := t(ddindx).last_update_login;
237 a16(indx) := t(ddindx).attribute_category;
238 a17(indx) := t(ddindx).attribute1;
239 a18(indx) := t(ddindx).attribute2;
240 a19(indx) := t(ddindx).attribute3;
241 a20(indx) := t(ddindx).attribute4;
242 a21(indx) := t(ddindx).attribute5;
243 a22(indx) := t(ddindx).attribute6;
244 a23(indx) := t(ddindx).attribute7;
245 a24(indx) := t(ddindx).attribute8;
246 a25(indx) := t(ddindx).attribute9;
247 a26(indx) := t(ddindx).attribute10;
248 a27(indx) := t(ddindx).attribute11;
249 a28(indx) := t(ddindx).attribute12;
250 a29(indx) := t(ddindx).attribute13;
251 a30(indx) := t(ddindx).attribute14;
252 a31(indx) := t(ddindx).attribute15;
253 indx := indx+1;
254 if t.last =ddindx
255 then exit;
256 end if;
257 ddindx := t.next(ddindx);
258 end loop;
259 end if;
260 end if;
261 end rosetta_table_copy_out_p27;
262
263 procedure rosetta_table_copy_in_p29(t out nocopy okl_icp_pvt.icp_tbl_type, a0 JTF_NUMBER_TABLE
264 , a1 JTF_NUMBER_TABLE
265 , a2 JTF_NUMBER_TABLE
266 , a3 JTF_NUMBER_TABLE
267 , a4 JTF_NUMBER_TABLE
268 , a5 JTF_NUMBER_TABLE
269 , a6 JTF_DATE_TABLE
270 , a7 JTF_DATE_TABLE
271 , a8 JTF_NUMBER_TABLE
272 , a9 JTF_DATE_TABLE
273 , a10 JTF_NUMBER_TABLE
274 , a11 JTF_DATE_TABLE
275 , a12 JTF_NUMBER_TABLE
276 , a13 JTF_VARCHAR2_TABLE_100
277 , a14 JTF_VARCHAR2_TABLE_500
278 , a15 JTF_VARCHAR2_TABLE_500
279 , a16 JTF_VARCHAR2_TABLE_500
280 , a17 JTF_VARCHAR2_TABLE_500
281 , a18 JTF_VARCHAR2_TABLE_500
282 , a19 JTF_VARCHAR2_TABLE_500
283 , a20 JTF_VARCHAR2_TABLE_500
284 , a21 JTF_VARCHAR2_TABLE_500
285 , a22 JTF_VARCHAR2_TABLE_500
286 , a23 JTF_VARCHAR2_TABLE_500
287 , a24 JTF_VARCHAR2_TABLE_500
288 , a25 JTF_VARCHAR2_TABLE_500
289 , a26 JTF_VARCHAR2_TABLE_500
290 , a27 JTF_VARCHAR2_TABLE_500
291 , a28 JTF_VARCHAR2_TABLE_500
292 ) as
293 ddindx binary_integer; indx binary_integer;
294 begin
295 if a0 is not null and a0.count > 0 then
296 if a0.count > 0 then
297 indx := a0.first;
298 ddindx := 1;
299 while true loop
300 t(ddindx).id := a0(indx);
301 t(ddindx).object_version_number := a1(indx);
302 t(ddindx).cat_id1 := a2(indx);
303 t(ddindx).cat_id2 := a3(indx);
304 t(ddindx).term_in_months := a4(indx);
305 t(ddindx).residual_value_percent := a5(indx);
306 t(ddindx).start_date := a6(indx);
307 t(ddindx).end_date := a7(indx);
308 t(ddindx).created_by := a8(indx);
309 t(ddindx).creation_date := a9(indx);
310 t(ddindx).last_updated_by := a10(indx);
311 t(ddindx).last_update_date := a11(indx);
312 t(ddindx).last_update_login := a12(indx);
313 t(ddindx).attribute_category := a13(indx);
314 t(ddindx).attribute1 := a14(indx);
315 t(ddindx).attribute2 := a15(indx);
316 t(ddindx).attribute3 := a16(indx);
317 t(ddindx).attribute4 := a17(indx);
318 t(ddindx).attribute5 := a18(indx);
319 t(ddindx).attribute6 := a19(indx);
320 t(ddindx).attribute7 := a20(indx);
321 t(ddindx).attribute8 := a21(indx);
322 t(ddindx).attribute9 := a22(indx);
323 t(ddindx).attribute10 := a23(indx);
324 t(ddindx).attribute11 := a24(indx);
325 t(ddindx).attribute12 := a25(indx);
326 t(ddindx).attribute13 := a26(indx);
327 t(ddindx).attribute14 := a27(indx);
328 t(ddindx).attribute15 := a28(indx);
329 ddindx := ddindx+1;
330 if a0.last =indx
331 then exit;
332 end if;
333 indx := a0.next(indx);
334 end loop;
335 end if;
336 end if;
337 end rosetta_table_copy_in_p29;
338 procedure rosetta_table_copy_out_p29(t okl_icp_pvt.icp_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
339 , a1 out nocopy JTF_NUMBER_TABLE
340 , a2 out nocopy JTF_NUMBER_TABLE
341 , a3 out nocopy JTF_NUMBER_TABLE
342 , a4 out nocopy JTF_NUMBER_TABLE
343 , a5 out nocopy JTF_NUMBER_TABLE
344 , a6 out nocopy JTF_DATE_TABLE
345 , a7 out nocopy JTF_DATE_TABLE
346 , a8 out nocopy JTF_NUMBER_TABLE
347 , a9 out nocopy JTF_DATE_TABLE
348 , a10 out nocopy JTF_NUMBER_TABLE
349 , a11 out nocopy JTF_DATE_TABLE
350 , a12 out nocopy JTF_NUMBER_TABLE
351 , a13 out nocopy JTF_VARCHAR2_TABLE_100
352 , a14 out nocopy JTF_VARCHAR2_TABLE_500
353 , a15 out nocopy JTF_VARCHAR2_TABLE_500
354 , a16 out nocopy JTF_VARCHAR2_TABLE_500
355 , a17 out nocopy JTF_VARCHAR2_TABLE_500
356 , a18 out nocopy JTF_VARCHAR2_TABLE_500
357 , a19 out nocopy JTF_VARCHAR2_TABLE_500
358 , a20 out nocopy JTF_VARCHAR2_TABLE_500
359 , a21 out nocopy JTF_VARCHAR2_TABLE_500
360 , a22 out nocopy JTF_VARCHAR2_TABLE_500
361 , a23 out nocopy JTF_VARCHAR2_TABLE_500
362 , a24 out nocopy JTF_VARCHAR2_TABLE_500
363 , a25 out nocopy JTF_VARCHAR2_TABLE_500
364 , a26 out nocopy JTF_VARCHAR2_TABLE_500
365 , a27 out nocopy JTF_VARCHAR2_TABLE_500
366 , a28 out nocopy JTF_VARCHAR2_TABLE_500
367 ) as
368 ddindx binary_integer; indx binary_integer;
369 begin
370 if t is null or t.count = 0 then
371 a0 := JTF_NUMBER_TABLE();
372 a1 := JTF_NUMBER_TABLE();
373 a2 := JTF_NUMBER_TABLE();
374 a3 := JTF_NUMBER_TABLE();
375 a4 := JTF_NUMBER_TABLE();
376 a5 := JTF_NUMBER_TABLE();
377 a6 := JTF_DATE_TABLE();
378 a7 := JTF_DATE_TABLE();
379 a8 := JTF_NUMBER_TABLE();
380 a9 := JTF_DATE_TABLE();
381 a10 := JTF_NUMBER_TABLE();
382 a11 := JTF_DATE_TABLE();
383 a12 := JTF_NUMBER_TABLE();
384 a13 := JTF_VARCHAR2_TABLE_100();
385 a14 := JTF_VARCHAR2_TABLE_500();
386 a15 := JTF_VARCHAR2_TABLE_500();
387 a16 := JTF_VARCHAR2_TABLE_500();
388 a17 := JTF_VARCHAR2_TABLE_500();
389 a18 := JTF_VARCHAR2_TABLE_500();
390 a19 := JTF_VARCHAR2_TABLE_500();
391 a20 := JTF_VARCHAR2_TABLE_500();
392 a21 := JTF_VARCHAR2_TABLE_500();
393 a22 := JTF_VARCHAR2_TABLE_500();
394 a23 := JTF_VARCHAR2_TABLE_500();
395 a24 := JTF_VARCHAR2_TABLE_500();
396 a25 := JTF_VARCHAR2_TABLE_500();
397 a26 := JTF_VARCHAR2_TABLE_500();
398 a27 := JTF_VARCHAR2_TABLE_500();
399 a28 := JTF_VARCHAR2_TABLE_500();
400 else
401 a0 := JTF_NUMBER_TABLE();
402 a1 := JTF_NUMBER_TABLE();
403 a2 := JTF_NUMBER_TABLE();
404 a3 := JTF_NUMBER_TABLE();
405 a4 := JTF_NUMBER_TABLE();
406 a5 := JTF_NUMBER_TABLE();
407 a6 := JTF_DATE_TABLE();
408 a7 := JTF_DATE_TABLE();
409 a8 := JTF_NUMBER_TABLE();
410 a9 := JTF_DATE_TABLE();
411 a10 := JTF_NUMBER_TABLE();
412 a11 := JTF_DATE_TABLE();
413 a12 := JTF_NUMBER_TABLE();
414 a13 := JTF_VARCHAR2_TABLE_100();
415 a14 := JTF_VARCHAR2_TABLE_500();
416 a15 := JTF_VARCHAR2_TABLE_500();
417 a16 := JTF_VARCHAR2_TABLE_500();
418 a17 := JTF_VARCHAR2_TABLE_500();
419 a18 := JTF_VARCHAR2_TABLE_500();
420 a19 := JTF_VARCHAR2_TABLE_500();
421 a20 := JTF_VARCHAR2_TABLE_500();
422 a21 := JTF_VARCHAR2_TABLE_500();
423 a22 := JTF_VARCHAR2_TABLE_500();
424 a23 := JTF_VARCHAR2_TABLE_500();
425 a24 := JTF_VARCHAR2_TABLE_500();
426 a25 := JTF_VARCHAR2_TABLE_500();
427 a26 := JTF_VARCHAR2_TABLE_500();
428 a27 := JTF_VARCHAR2_TABLE_500();
429 a28 := JTF_VARCHAR2_TABLE_500();
430 if t.count > 0 then
431 a0.extend(t.count);
432 a1.extend(t.count);
433 a2.extend(t.count);
434 a3.extend(t.count);
435 a4.extend(t.count);
436 a5.extend(t.count);
437 a6.extend(t.count);
438 a7.extend(t.count);
439 a8.extend(t.count);
440 a9.extend(t.count);
441 a10.extend(t.count);
442 a11.extend(t.count);
443 a12.extend(t.count);
444 a13.extend(t.count);
445 a14.extend(t.count);
446 a15.extend(t.count);
447 a16.extend(t.count);
448 a17.extend(t.count);
449 a18.extend(t.count);
450 a19.extend(t.count);
451 a20.extend(t.count);
452 a21.extend(t.count);
453 a22.extend(t.count);
454 a23.extend(t.count);
455 a24.extend(t.count);
456 a25.extend(t.count);
457 a26.extend(t.count);
458 a27.extend(t.count);
459 a28.extend(t.count);
460 ddindx := t.first;
461 indx := 1;
462 while true loop
463 a0(indx) := t(ddindx).id;
464 a1(indx) := t(ddindx).object_version_number;
465 a2(indx) := t(ddindx).cat_id1;
466 a3(indx) := t(ddindx).cat_id2;
467 a4(indx) := t(ddindx).term_in_months;
468 a5(indx) := t(ddindx).residual_value_percent;
469 a6(indx) := t(ddindx).start_date;
470 a7(indx) := t(ddindx).end_date;
471 a8(indx) := t(ddindx).created_by;
472 a9(indx) := t(ddindx).creation_date;
473 a10(indx) := t(ddindx).last_updated_by;
474 a11(indx) := t(ddindx).last_update_date;
475 a12(indx) := t(ddindx).last_update_login;
476 a13(indx) := t(ddindx).attribute_category;
477 a14(indx) := t(ddindx).attribute1;
478 a15(indx) := t(ddindx).attribute2;
479 a16(indx) := t(ddindx).attribute3;
480 a17(indx) := t(ddindx).attribute4;
481 a18(indx) := t(ddindx).attribute5;
482 a19(indx) := t(ddindx).attribute6;
483 a20(indx) := t(ddindx).attribute7;
484 a21(indx) := t(ddindx).attribute8;
485 a22(indx) := t(ddindx).attribute9;
486 a23(indx) := t(ddindx).attribute10;
487 a24(indx) := t(ddindx).attribute11;
488 a25(indx) := t(ddindx).attribute12;
489 a26(indx) := t(ddindx).attribute13;
490 a27(indx) := t(ddindx).attribute14;
491 a28(indx) := t(ddindx).attribute15;
492 indx := indx+1;
493 if t.last =ddindx
494 then exit;
495 end if;
496 ddindx := t.next(ddindx);
497 end loop;
498 end if;
499 end if;
500 end rosetta_table_copy_out_p29;
501
502 procedure insert_row(p_api_version NUMBER
503 , p_init_msg_list VARCHAR2
504 , x_return_status out nocopy VARCHAR2
505 , x_msg_count out nocopy NUMBER
506 , x_msg_data out nocopy VARCHAR2
507 , p5_a0 NUMBER
508 , p5_a1 NUMBER
509 , p5_a2 NUMBER
510 , p5_a3 NUMBER
511 , p5_a4 NUMBER
512 , p5_a5 NUMBER
513 , p5_a6 NUMBER
514 , p5_a7 VARCHAR2
515 , p5_a8 VARCHAR2
516 , p5_a9 DATE
517 , p5_a10 DATE
518 , p5_a11 NUMBER
519 , p5_a12 DATE
520 , p5_a13 NUMBER
521 , p5_a14 DATE
522 , p5_a15 NUMBER
523 , p5_a16 VARCHAR2
524 , p5_a17 VARCHAR2
525 , p5_a18 VARCHAR2
526 , p5_a19 VARCHAR2
527 , p5_a20 VARCHAR2
528 , p5_a21 VARCHAR2
529 , p5_a22 VARCHAR2
530 , p5_a23 VARCHAR2
531 , p5_a24 VARCHAR2
532 , p5_a25 VARCHAR2
533 , p5_a26 VARCHAR2
534 , p5_a27 VARCHAR2
535 , p5_a28 VARCHAR2
536 , p5_a29 VARCHAR2
537 , p5_a30 VARCHAR2
538 , p5_a31 VARCHAR2
539 , p6_a0 out nocopy NUMBER
540 , p6_a1 out nocopy NUMBER
541 , p6_a2 out nocopy NUMBER
542 , p6_a3 out nocopy NUMBER
543 , p6_a4 out nocopy NUMBER
544 , p6_a5 out nocopy NUMBER
545 , p6_a6 out nocopy NUMBER
546 , p6_a7 out nocopy VARCHAR2
547 , p6_a8 out nocopy VARCHAR2
548 , p6_a9 out nocopy DATE
549 , p6_a10 out nocopy DATE
550 , p6_a11 out nocopy NUMBER
551 , p6_a12 out nocopy DATE
552 , p6_a13 out nocopy NUMBER
553 , p6_a14 out nocopy DATE
554 , p6_a15 out nocopy NUMBER
555 , p6_a16 out nocopy VARCHAR2
556 , p6_a17 out nocopy VARCHAR2
557 , p6_a18 out nocopy VARCHAR2
558 , p6_a19 out nocopy VARCHAR2
559 , p6_a20 out nocopy VARCHAR2
560 , p6_a21 out nocopy VARCHAR2
561 , p6_a22 out nocopy VARCHAR2
562 , p6_a23 out nocopy VARCHAR2
563 , p6_a24 out nocopy VARCHAR2
564 , p6_a25 out nocopy VARCHAR2
565 , p6_a26 out nocopy VARCHAR2
566 , p6_a27 out nocopy VARCHAR2
567 , p6_a28 out nocopy VARCHAR2
568 , p6_a29 out nocopy VARCHAR2
569 , p6_a30 out nocopy VARCHAR2
570 , p6_a31 out nocopy VARCHAR2
571 )
572
573 as
574 ddp_icpv_rec okl_icp_pvt.icpv_rec_type;
575 ddx_icpv_rec okl_icp_pvt.icpv_rec_type;
576 ddindx binary_integer; indx binary_integer;
577 begin
578
579 -- copy data to the local IN or IN-OUT args, if any
580
581
582
583
584
585 ddp_icpv_rec.id := p5_a0;
586 ddp_icpv_rec.object_version_number := p5_a1;
587 ddp_icpv_rec.cat_id1 := p5_a2;
588 ddp_icpv_rec.cat_id2 := p5_a3;
589 ddp_icpv_rec.term_in_months := p5_a4;
590 ddp_icpv_rec.residual_value_percent := p5_a5;
591 ddp_icpv_rec.item_residual_id := p5_a6;
592 ddp_icpv_rec.sts_code := p5_a7;
593 ddp_icpv_rec.version_number := p5_a8;
594 ddp_icpv_rec.start_date := p5_a9;
595 ddp_icpv_rec.end_date := p5_a10;
596 ddp_icpv_rec.created_by := p5_a11;
597 ddp_icpv_rec.creation_date := p5_a12;
598 ddp_icpv_rec.last_updated_by := p5_a13;
599 ddp_icpv_rec.last_update_date := p5_a14;
600 ddp_icpv_rec.last_update_login := p5_a15;
601 ddp_icpv_rec.attribute_category := p5_a16;
602 ddp_icpv_rec.attribute1 := p5_a17;
603 ddp_icpv_rec.attribute2 := p5_a18;
604 ddp_icpv_rec.attribute3 := p5_a19;
605 ddp_icpv_rec.attribute4 := p5_a20;
606 ddp_icpv_rec.attribute5 := p5_a21;
607 ddp_icpv_rec.attribute6 := p5_a22;
608 ddp_icpv_rec.attribute7 := p5_a23;
609 ddp_icpv_rec.attribute8 := p5_a24;
610 ddp_icpv_rec.attribute9 := p5_a25;
611 ddp_icpv_rec.attribute10 := p5_a26;
612 ddp_icpv_rec.attribute11 := p5_a27;
613 ddp_icpv_rec.attribute12 := p5_a28;
614 ddp_icpv_rec.attribute13 := p5_a29;
615 ddp_icpv_rec.attribute14 := p5_a30;
616 ddp_icpv_rec.attribute15 := p5_a31;
617
618
619 -- here's the delegated call to the old PL/SQL routine
620 okl_icp_pvt.insert_row(p_api_version,
621 p_init_msg_list,
622 x_return_status,
623 x_msg_count,
624 x_msg_data,
625 ddp_icpv_rec,
626 ddx_icpv_rec);
627
628 -- copy data back from the local variables to OUT or IN-OUT args, if any
629
630
631
632
633
634
635 p6_a0 := ddx_icpv_rec.id;
636 p6_a1 := ddx_icpv_rec.object_version_number;
637 p6_a2 := ddx_icpv_rec.cat_id1;
638 p6_a3 := ddx_icpv_rec.cat_id2;
639 p6_a4 := ddx_icpv_rec.term_in_months;
640 p6_a5 := ddx_icpv_rec.residual_value_percent;
641 p6_a6 := ddx_icpv_rec.item_residual_id;
642 p6_a7 := ddx_icpv_rec.sts_code;
643 p6_a8 := ddx_icpv_rec.version_number;
644 p6_a9 := ddx_icpv_rec.start_date;
645 p6_a10 := ddx_icpv_rec.end_date;
646 p6_a11 := ddx_icpv_rec.created_by;
647 p6_a12 := ddx_icpv_rec.creation_date;
648 p6_a13 := ddx_icpv_rec.last_updated_by;
649 p6_a14 := ddx_icpv_rec.last_update_date;
650 p6_a15 := ddx_icpv_rec.last_update_login;
651 p6_a16 := ddx_icpv_rec.attribute_category;
652 p6_a17 := ddx_icpv_rec.attribute1;
653 p6_a18 := ddx_icpv_rec.attribute2;
654 p6_a19 := ddx_icpv_rec.attribute3;
655 p6_a20 := ddx_icpv_rec.attribute4;
656 p6_a21 := ddx_icpv_rec.attribute5;
657 p6_a22 := ddx_icpv_rec.attribute6;
658 p6_a23 := ddx_icpv_rec.attribute7;
659 p6_a24 := ddx_icpv_rec.attribute8;
660 p6_a25 := ddx_icpv_rec.attribute9;
661 p6_a26 := ddx_icpv_rec.attribute10;
662 p6_a27 := ddx_icpv_rec.attribute11;
663 p6_a28 := ddx_icpv_rec.attribute12;
664 p6_a29 := ddx_icpv_rec.attribute13;
665 p6_a30 := ddx_icpv_rec.attribute14;
666 p6_a31 := ddx_icpv_rec.attribute15;
667 end;
668
669 procedure insert_row(p_api_version NUMBER
670 , p_init_msg_list VARCHAR2
671 , x_return_status out nocopy VARCHAR2
672 , x_msg_count out nocopy NUMBER
673 , x_msg_data out nocopy VARCHAR2
674 , p5_a0 JTF_NUMBER_TABLE
675 , p5_a1 JTF_NUMBER_TABLE
676 , p5_a2 JTF_NUMBER_TABLE
677 , p5_a3 JTF_NUMBER_TABLE
678 , p5_a4 JTF_NUMBER_TABLE
679 , p5_a5 JTF_NUMBER_TABLE
680 , p5_a6 JTF_NUMBER_TABLE
681 , p5_a7 JTF_VARCHAR2_TABLE_100
682 , p5_a8 JTF_VARCHAR2_TABLE_100
683 , p5_a9 JTF_DATE_TABLE
684 , p5_a10 JTF_DATE_TABLE
685 , p5_a11 JTF_NUMBER_TABLE
686 , p5_a12 JTF_DATE_TABLE
687 , p5_a13 JTF_NUMBER_TABLE
688 , p5_a14 JTF_DATE_TABLE
689 , p5_a15 JTF_NUMBER_TABLE
690 , p5_a16 JTF_VARCHAR2_TABLE_100
691 , p5_a17 JTF_VARCHAR2_TABLE_500
692 , p5_a18 JTF_VARCHAR2_TABLE_500
693 , p5_a19 JTF_VARCHAR2_TABLE_500
694 , p5_a20 JTF_VARCHAR2_TABLE_500
695 , p5_a21 JTF_VARCHAR2_TABLE_500
696 , p5_a22 JTF_VARCHAR2_TABLE_500
697 , p5_a23 JTF_VARCHAR2_TABLE_500
698 , p5_a24 JTF_VARCHAR2_TABLE_500
699 , p5_a25 JTF_VARCHAR2_TABLE_500
700 , p5_a26 JTF_VARCHAR2_TABLE_500
701 , p5_a27 JTF_VARCHAR2_TABLE_500
702 , p5_a28 JTF_VARCHAR2_TABLE_500
703 , p5_a29 JTF_VARCHAR2_TABLE_500
704 , p5_a30 JTF_VARCHAR2_TABLE_500
705 , p5_a31 JTF_VARCHAR2_TABLE_500
706 , p6_a0 out nocopy JTF_NUMBER_TABLE
707 , p6_a1 out nocopy JTF_NUMBER_TABLE
708 , p6_a2 out nocopy JTF_NUMBER_TABLE
709 , p6_a3 out nocopy JTF_NUMBER_TABLE
710 , p6_a4 out nocopy JTF_NUMBER_TABLE
711 , p6_a5 out nocopy JTF_NUMBER_TABLE
712 , p6_a6 out nocopy JTF_NUMBER_TABLE
713 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
714 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
715 , p6_a9 out nocopy JTF_DATE_TABLE
716 , p6_a10 out nocopy JTF_DATE_TABLE
717 , p6_a11 out nocopy JTF_NUMBER_TABLE
718 , p6_a12 out nocopy JTF_DATE_TABLE
719 , p6_a13 out nocopy JTF_NUMBER_TABLE
720 , p6_a14 out nocopy JTF_DATE_TABLE
721 , p6_a15 out nocopy JTF_NUMBER_TABLE
722 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_100
723 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
724 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
725 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
726 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
727 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
728 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
729 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
730 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
731 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
732 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
733 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
734 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
735 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
736 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
737 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
738 )
739
740 as
741 ddp_icpv_tbl okl_icp_pvt.icpv_tbl_type;
742 ddx_icpv_tbl okl_icp_pvt.icpv_tbl_type;
743 ddindx binary_integer; indx binary_integer;
744 begin
745
746 -- copy data to the local IN or IN-OUT args, if any
747
748
749
750
751
752 okl_icp_pvt_w.rosetta_table_copy_in_p27(ddp_icpv_tbl, p5_a0
753 , p5_a1
754 , p5_a2
755 , p5_a3
756 , p5_a4
757 , p5_a5
758 , p5_a6
759 , p5_a7
760 , p5_a8
761 , p5_a9
762 , p5_a10
763 , p5_a11
764 , p5_a12
765 , p5_a13
766 , p5_a14
767 , p5_a15
768 , p5_a16
769 , p5_a17
770 , p5_a18
771 , p5_a19
772 , p5_a20
773 , p5_a21
774 , p5_a22
775 , p5_a23
776 , p5_a24
777 , p5_a25
778 , p5_a26
779 , p5_a27
780 , p5_a28
781 , p5_a29
782 , p5_a30
783 , p5_a31
784 );
785
786
787 -- here's the delegated call to the old PL/SQL routine
788 okl_icp_pvt.insert_row(p_api_version,
789 p_init_msg_list,
790 x_return_status,
791 x_msg_count,
792 x_msg_data,
793 ddp_icpv_tbl,
794 ddx_icpv_tbl);
795
796 -- copy data back from the local variables to OUT or IN-OUT args, if any
797
798
799
800
801
802
803 okl_icp_pvt_w.rosetta_table_copy_out_p27(ddx_icpv_tbl, p6_a0
804 , p6_a1
805 , p6_a2
806 , p6_a3
807 , p6_a4
808 , p6_a5
809 , p6_a6
810 , p6_a7
811 , p6_a8
812 , p6_a9
813 , p6_a10
814 , p6_a11
815 , p6_a12
816 , p6_a13
817 , p6_a14
818 , p6_a15
819 , p6_a16
820 , p6_a17
821 , p6_a18
822 , p6_a19
823 , p6_a20
824 , p6_a21
825 , p6_a22
826 , p6_a23
827 , p6_a24
828 , p6_a25
829 , p6_a26
830 , p6_a27
831 , p6_a28
832 , p6_a29
833 , p6_a30
834 , p6_a31
835 );
836 end;
837
838 procedure lock_row(p_api_version NUMBER
839 , p_init_msg_list VARCHAR2
840 , x_return_status out nocopy VARCHAR2
841 , x_msg_count out nocopy NUMBER
842 , x_msg_data out nocopy VARCHAR2
843 , p5_a0 NUMBER
844 , p5_a1 NUMBER
845 , p5_a2 NUMBER
846 , p5_a3 NUMBER
847 , p5_a4 NUMBER
848 , p5_a5 NUMBER
849 , p5_a6 NUMBER
850 , p5_a7 VARCHAR2
851 , p5_a8 VARCHAR2
852 , p5_a9 DATE
853 , p5_a10 DATE
854 , p5_a11 NUMBER
855 , p5_a12 DATE
856 , p5_a13 NUMBER
857 , p5_a14 DATE
858 , p5_a15 NUMBER
859 , p5_a16 VARCHAR2
860 , p5_a17 VARCHAR2
861 , p5_a18 VARCHAR2
862 , p5_a19 VARCHAR2
863 , p5_a20 VARCHAR2
864 , p5_a21 VARCHAR2
865 , p5_a22 VARCHAR2
866 , p5_a23 VARCHAR2
867 , p5_a24 VARCHAR2
868 , p5_a25 VARCHAR2
869 , p5_a26 VARCHAR2
870 , p5_a27 VARCHAR2
871 , p5_a28 VARCHAR2
872 , p5_a29 VARCHAR2
873 , p5_a30 VARCHAR2
874 , p5_a31 VARCHAR2
875 )
876
877 as
878 ddp_icpv_rec okl_icp_pvt.icpv_rec_type;
879 ddindx binary_integer; indx binary_integer;
880 begin
881
882 -- copy data to the local IN or IN-OUT args, if any
883
884
885
886
887
888 ddp_icpv_rec.id := p5_a0;
889 ddp_icpv_rec.object_version_number := p5_a1;
890 ddp_icpv_rec.cat_id1 := p5_a2;
891 ddp_icpv_rec.cat_id2 := p5_a3;
892 ddp_icpv_rec.term_in_months := p5_a4;
893 ddp_icpv_rec.residual_value_percent := p5_a5;
894 ddp_icpv_rec.item_residual_id := p5_a6;
895 ddp_icpv_rec.sts_code := p5_a7;
896 ddp_icpv_rec.version_number := p5_a8;
897 ddp_icpv_rec.start_date := p5_a9;
898 ddp_icpv_rec.end_date := p5_a10;
899 ddp_icpv_rec.created_by := p5_a11;
900 ddp_icpv_rec.creation_date := p5_a12;
901 ddp_icpv_rec.last_updated_by := p5_a13;
902 ddp_icpv_rec.last_update_date := p5_a14;
903 ddp_icpv_rec.last_update_login := p5_a15;
904 ddp_icpv_rec.attribute_category := p5_a16;
905 ddp_icpv_rec.attribute1 := p5_a17;
906 ddp_icpv_rec.attribute2 := p5_a18;
907 ddp_icpv_rec.attribute3 := p5_a19;
908 ddp_icpv_rec.attribute4 := p5_a20;
909 ddp_icpv_rec.attribute5 := p5_a21;
910 ddp_icpv_rec.attribute6 := p5_a22;
911 ddp_icpv_rec.attribute7 := p5_a23;
912 ddp_icpv_rec.attribute8 := p5_a24;
913 ddp_icpv_rec.attribute9 := p5_a25;
914 ddp_icpv_rec.attribute10 := p5_a26;
915 ddp_icpv_rec.attribute11 := p5_a27;
916 ddp_icpv_rec.attribute12 := p5_a28;
917 ddp_icpv_rec.attribute13 := p5_a29;
918 ddp_icpv_rec.attribute14 := p5_a30;
919 ddp_icpv_rec.attribute15 := p5_a31;
920
921 -- here's the delegated call to the old PL/SQL routine
922 okl_icp_pvt.lock_row(p_api_version,
923 p_init_msg_list,
924 x_return_status,
925 x_msg_count,
926 x_msg_data,
927 ddp_icpv_rec);
928
929 -- copy data back from the local variables to OUT or IN-OUT args, if any
930
931
932
933
934
935 end;
936
937 procedure lock_row(p_api_version NUMBER
938 , p_init_msg_list VARCHAR2
939 , x_return_status out nocopy VARCHAR2
940 , x_msg_count out nocopy NUMBER
941 , x_msg_data out nocopy VARCHAR2
942 , p5_a0 JTF_NUMBER_TABLE
943 , p5_a1 JTF_NUMBER_TABLE
944 , p5_a2 JTF_NUMBER_TABLE
945 , p5_a3 JTF_NUMBER_TABLE
946 , p5_a4 JTF_NUMBER_TABLE
947 , p5_a5 JTF_NUMBER_TABLE
948 , p5_a6 JTF_NUMBER_TABLE
949 , p5_a7 JTF_VARCHAR2_TABLE_100
950 , p5_a8 JTF_VARCHAR2_TABLE_100
951 , p5_a9 JTF_DATE_TABLE
952 , p5_a10 JTF_DATE_TABLE
953 , p5_a11 JTF_NUMBER_TABLE
954 , p5_a12 JTF_DATE_TABLE
955 , p5_a13 JTF_NUMBER_TABLE
956 , p5_a14 JTF_DATE_TABLE
957 , p5_a15 JTF_NUMBER_TABLE
958 , p5_a16 JTF_VARCHAR2_TABLE_100
959 , p5_a17 JTF_VARCHAR2_TABLE_500
960 , p5_a18 JTF_VARCHAR2_TABLE_500
961 , p5_a19 JTF_VARCHAR2_TABLE_500
962 , p5_a20 JTF_VARCHAR2_TABLE_500
963 , p5_a21 JTF_VARCHAR2_TABLE_500
964 , p5_a22 JTF_VARCHAR2_TABLE_500
965 , p5_a23 JTF_VARCHAR2_TABLE_500
966 , p5_a24 JTF_VARCHAR2_TABLE_500
967 , p5_a25 JTF_VARCHAR2_TABLE_500
968 , p5_a26 JTF_VARCHAR2_TABLE_500
969 , p5_a27 JTF_VARCHAR2_TABLE_500
970 , p5_a28 JTF_VARCHAR2_TABLE_500
971 , p5_a29 JTF_VARCHAR2_TABLE_500
972 , p5_a30 JTF_VARCHAR2_TABLE_500
973 , p5_a31 JTF_VARCHAR2_TABLE_500
974 )
975
976 as
977 ddp_icpv_tbl okl_icp_pvt.icpv_tbl_type;
978 ddindx binary_integer; indx binary_integer;
979 begin
980
981 -- copy data to the local IN or IN-OUT args, if any
982
983
984
985
986
987 okl_icp_pvt_w.rosetta_table_copy_in_p27(ddp_icpv_tbl, p5_a0
988 , p5_a1
989 , p5_a2
990 , p5_a3
991 , p5_a4
992 , p5_a5
993 , p5_a6
994 , p5_a7
995 , p5_a8
996 , p5_a9
997 , p5_a10
998 , p5_a11
999 , p5_a12
1000 , p5_a13
1001 , p5_a14
1002 , p5_a15
1003 , p5_a16
1004 , p5_a17
1005 , p5_a18
1006 , p5_a19
1007 , p5_a20
1008 , p5_a21
1009 , p5_a22
1010 , p5_a23
1011 , p5_a24
1012 , p5_a25
1013 , p5_a26
1014 , p5_a27
1015 , p5_a28
1016 , p5_a29
1017 , p5_a30
1018 , p5_a31
1019 );
1020
1021 -- here's the delegated call to the old PL/SQL routine
1022 okl_icp_pvt.lock_row(p_api_version,
1023 p_init_msg_list,
1024 x_return_status,
1025 x_msg_count,
1026 x_msg_data,
1027 ddp_icpv_tbl);
1028
1029 -- copy data back from the local variables to OUT or IN-OUT args, if any
1030
1031
1032
1033
1034
1035 end;
1036
1037 procedure update_row(p_api_version NUMBER
1038 , p_init_msg_list VARCHAR2
1039 , x_return_status out nocopy VARCHAR2
1040 , x_msg_count out nocopy NUMBER
1041 , x_msg_data out nocopy VARCHAR2
1042 , p5_a0 NUMBER
1043 , p5_a1 NUMBER
1044 , p5_a2 NUMBER
1045 , p5_a3 NUMBER
1046 , p5_a4 NUMBER
1047 , p5_a5 NUMBER
1048 , p5_a6 NUMBER
1049 , p5_a7 VARCHAR2
1050 , p5_a8 VARCHAR2
1051 , p5_a9 DATE
1052 , p5_a10 DATE
1053 , p5_a11 NUMBER
1054 , p5_a12 DATE
1055 , p5_a13 NUMBER
1056 , p5_a14 DATE
1057 , p5_a15 NUMBER
1058 , p5_a16 VARCHAR2
1059 , p5_a17 VARCHAR2
1060 , p5_a18 VARCHAR2
1061 , p5_a19 VARCHAR2
1062 , p5_a20 VARCHAR2
1063 , p5_a21 VARCHAR2
1064 , p5_a22 VARCHAR2
1065 , p5_a23 VARCHAR2
1066 , p5_a24 VARCHAR2
1067 , p5_a25 VARCHAR2
1068 , p5_a26 VARCHAR2
1069 , p5_a27 VARCHAR2
1070 , p5_a28 VARCHAR2
1071 , p5_a29 VARCHAR2
1072 , p5_a30 VARCHAR2
1073 , p5_a31 VARCHAR2
1074 , p6_a0 out nocopy NUMBER
1075 , p6_a1 out nocopy NUMBER
1076 , p6_a2 out nocopy NUMBER
1077 , p6_a3 out nocopy NUMBER
1078 , p6_a4 out nocopy NUMBER
1079 , p6_a5 out nocopy NUMBER
1080 , p6_a6 out nocopy NUMBER
1081 , p6_a7 out nocopy VARCHAR2
1082 , p6_a8 out nocopy VARCHAR2
1083 , p6_a9 out nocopy DATE
1084 , p6_a10 out nocopy DATE
1085 , p6_a11 out nocopy NUMBER
1086 , p6_a12 out nocopy DATE
1087 , p6_a13 out nocopy NUMBER
1088 , p6_a14 out nocopy DATE
1089 , p6_a15 out nocopy NUMBER
1090 , p6_a16 out nocopy VARCHAR2
1091 , p6_a17 out nocopy VARCHAR2
1092 , p6_a18 out nocopy VARCHAR2
1093 , p6_a19 out nocopy VARCHAR2
1094 , p6_a20 out nocopy VARCHAR2
1095 , p6_a21 out nocopy VARCHAR2
1096 , p6_a22 out nocopy VARCHAR2
1097 , p6_a23 out nocopy VARCHAR2
1098 , p6_a24 out nocopy VARCHAR2
1099 , p6_a25 out nocopy VARCHAR2
1100 , p6_a26 out nocopy VARCHAR2
1101 , p6_a27 out nocopy VARCHAR2
1102 , p6_a28 out nocopy VARCHAR2
1103 , p6_a29 out nocopy VARCHAR2
1104 , p6_a30 out nocopy VARCHAR2
1105 , p6_a31 out nocopy VARCHAR2
1106 )
1107
1108 as
1109 ddp_icpv_rec okl_icp_pvt.icpv_rec_type;
1110 ddx_icpv_rec okl_icp_pvt.icpv_rec_type;
1111 ddindx binary_integer; indx binary_integer;
1112 begin
1113
1114 -- copy data to the local IN or IN-OUT args, if any
1115
1116
1117
1118
1119
1120 ddp_icpv_rec.id := p5_a0;
1121 ddp_icpv_rec.object_version_number := p5_a1;
1122 ddp_icpv_rec.cat_id1 := p5_a2;
1123 ddp_icpv_rec.cat_id2 := p5_a3;
1124 ddp_icpv_rec.term_in_months := p5_a4;
1125 ddp_icpv_rec.residual_value_percent := p5_a5;
1126 ddp_icpv_rec.item_residual_id := p5_a6;
1127 ddp_icpv_rec.sts_code := p5_a7;
1128 ddp_icpv_rec.version_number := p5_a8;
1129 ddp_icpv_rec.start_date := p5_a9;
1130 ddp_icpv_rec.end_date := p5_a10;
1131 ddp_icpv_rec.created_by := p5_a11;
1132 ddp_icpv_rec.creation_date := p5_a12;
1133 ddp_icpv_rec.last_updated_by := p5_a13;
1134 ddp_icpv_rec.last_update_date := p5_a14;
1135 ddp_icpv_rec.last_update_login := p5_a15;
1136 ddp_icpv_rec.attribute_category := p5_a16;
1137 ddp_icpv_rec.attribute1 := p5_a17;
1138 ddp_icpv_rec.attribute2 := p5_a18;
1139 ddp_icpv_rec.attribute3 := p5_a19;
1140 ddp_icpv_rec.attribute4 := p5_a20;
1141 ddp_icpv_rec.attribute5 := p5_a21;
1142 ddp_icpv_rec.attribute6 := p5_a22;
1143 ddp_icpv_rec.attribute7 := p5_a23;
1144 ddp_icpv_rec.attribute8 := p5_a24;
1145 ddp_icpv_rec.attribute9 := p5_a25;
1146 ddp_icpv_rec.attribute10 := p5_a26;
1147 ddp_icpv_rec.attribute11 := p5_a27;
1148 ddp_icpv_rec.attribute12 := p5_a28;
1149 ddp_icpv_rec.attribute13 := p5_a29;
1150 ddp_icpv_rec.attribute14 := p5_a30;
1151 ddp_icpv_rec.attribute15 := p5_a31;
1152
1153
1154 -- here's the delegated call to the old PL/SQL routine
1155 okl_icp_pvt.update_row(p_api_version,
1156 p_init_msg_list,
1157 x_return_status,
1158 x_msg_count,
1159 x_msg_data,
1160 ddp_icpv_rec,
1161 ddx_icpv_rec);
1162
1163 -- copy data back from the local variables to OUT or IN-OUT args, if any
1164
1165
1166
1167
1168
1169
1170 p6_a0 := ddx_icpv_rec.id;
1171 p6_a1 := ddx_icpv_rec.object_version_number;
1172 p6_a2 := ddx_icpv_rec.cat_id1;
1173 p6_a3 := ddx_icpv_rec.cat_id2;
1174 p6_a4 := ddx_icpv_rec.term_in_months;
1175 p6_a5 := ddx_icpv_rec.residual_value_percent;
1176 p6_a6 := ddx_icpv_rec.item_residual_id;
1177 p6_a7 := ddx_icpv_rec.sts_code;
1178 p6_a8 := ddx_icpv_rec.version_number;
1179 p6_a9 := ddx_icpv_rec.start_date;
1180 p6_a10 := ddx_icpv_rec.end_date;
1181 p6_a11 := ddx_icpv_rec.created_by;
1182 p6_a12 := ddx_icpv_rec.creation_date;
1183 p6_a13 := ddx_icpv_rec.last_updated_by;
1184 p6_a14 := ddx_icpv_rec.last_update_date;
1185 p6_a15 := ddx_icpv_rec.last_update_login;
1186 p6_a16 := ddx_icpv_rec.attribute_category;
1187 p6_a17 := ddx_icpv_rec.attribute1;
1188 p6_a18 := ddx_icpv_rec.attribute2;
1189 p6_a19 := ddx_icpv_rec.attribute3;
1190 p6_a20 := ddx_icpv_rec.attribute4;
1191 p6_a21 := ddx_icpv_rec.attribute5;
1192 p6_a22 := ddx_icpv_rec.attribute6;
1193 p6_a23 := ddx_icpv_rec.attribute7;
1194 p6_a24 := ddx_icpv_rec.attribute8;
1195 p6_a25 := ddx_icpv_rec.attribute9;
1196 p6_a26 := ddx_icpv_rec.attribute10;
1197 p6_a27 := ddx_icpv_rec.attribute11;
1198 p6_a28 := ddx_icpv_rec.attribute12;
1199 p6_a29 := ddx_icpv_rec.attribute13;
1200 p6_a30 := ddx_icpv_rec.attribute14;
1201 p6_a31 := ddx_icpv_rec.attribute15;
1202 end;
1203
1204 procedure update_row(p_api_version NUMBER
1205 , p_init_msg_list VARCHAR2
1206 , x_return_status out nocopy VARCHAR2
1207 , x_msg_count out nocopy NUMBER
1208 , x_msg_data out nocopy VARCHAR2
1209 , p5_a0 JTF_NUMBER_TABLE
1210 , p5_a1 JTF_NUMBER_TABLE
1211 , p5_a2 JTF_NUMBER_TABLE
1212 , p5_a3 JTF_NUMBER_TABLE
1213 , p5_a4 JTF_NUMBER_TABLE
1214 , p5_a5 JTF_NUMBER_TABLE
1215 , p5_a6 JTF_NUMBER_TABLE
1216 , p5_a7 JTF_VARCHAR2_TABLE_100
1217 , p5_a8 JTF_VARCHAR2_TABLE_100
1218 , p5_a9 JTF_DATE_TABLE
1219 , p5_a10 JTF_DATE_TABLE
1220 , p5_a11 JTF_NUMBER_TABLE
1221 , p5_a12 JTF_DATE_TABLE
1222 , p5_a13 JTF_NUMBER_TABLE
1223 , p5_a14 JTF_DATE_TABLE
1224 , p5_a15 JTF_NUMBER_TABLE
1225 , p5_a16 JTF_VARCHAR2_TABLE_100
1226 , p5_a17 JTF_VARCHAR2_TABLE_500
1227 , p5_a18 JTF_VARCHAR2_TABLE_500
1228 , p5_a19 JTF_VARCHAR2_TABLE_500
1229 , p5_a20 JTF_VARCHAR2_TABLE_500
1230 , p5_a21 JTF_VARCHAR2_TABLE_500
1231 , p5_a22 JTF_VARCHAR2_TABLE_500
1232 , p5_a23 JTF_VARCHAR2_TABLE_500
1233 , p5_a24 JTF_VARCHAR2_TABLE_500
1234 , p5_a25 JTF_VARCHAR2_TABLE_500
1235 , p5_a26 JTF_VARCHAR2_TABLE_500
1236 , p5_a27 JTF_VARCHAR2_TABLE_500
1237 , p5_a28 JTF_VARCHAR2_TABLE_500
1238 , p5_a29 JTF_VARCHAR2_TABLE_500
1239 , p5_a30 JTF_VARCHAR2_TABLE_500
1240 , p5_a31 JTF_VARCHAR2_TABLE_500
1241 , p6_a0 out nocopy JTF_NUMBER_TABLE
1242 , p6_a1 out nocopy JTF_NUMBER_TABLE
1243 , p6_a2 out nocopy JTF_NUMBER_TABLE
1244 , p6_a3 out nocopy JTF_NUMBER_TABLE
1245 , p6_a4 out nocopy JTF_NUMBER_TABLE
1246 , p6_a5 out nocopy JTF_NUMBER_TABLE
1247 , p6_a6 out nocopy JTF_NUMBER_TABLE
1248 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
1249 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
1250 , p6_a9 out nocopy JTF_DATE_TABLE
1251 , p6_a10 out nocopy JTF_DATE_TABLE
1252 , p6_a11 out nocopy JTF_NUMBER_TABLE
1253 , p6_a12 out nocopy JTF_DATE_TABLE
1254 , p6_a13 out nocopy JTF_NUMBER_TABLE
1255 , p6_a14 out nocopy JTF_DATE_TABLE
1256 , p6_a15 out nocopy JTF_NUMBER_TABLE
1257 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_100
1258 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
1259 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1260 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1261 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1262 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1263 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1264 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
1265 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
1266 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
1267 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
1268 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
1269 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
1270 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
1271 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
1272 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
1273 )
1274
1275 as
1276 ddp_icpv_tbl okl_icp_pvt.icpv_tbl_type;
1277 ddx_icpv_tbl okl_icp_pvt.icpv_tbl_type;
1278 ddindx binary_integer; indx binary_integer;
1279 begin
1280
1281 -- copy data to the local IN or IN-OUT args, if any
1282
1283
1284
1285
1286
1287 okl_icp_pvt_w.rosetta_table_copy_in_p27(ddp_icpv_tbl, p5_a0
1288 , p5_a1
1289 , p5_a2
1290 , p5_a3
1291 , p5_a4
1292 , p5_a5
1293 , p5_a6
1294 , p5_a7
1295 , p5_a8
1296 , p5_a9
1297 , p5_a10
1298 , p5_a11
1299 , p5_a12
1300 , p5_a13
1301 , p5_a14
1302 , p5_a15
1303 , p5_a16
1304 , p5_a17
1305 , p5_a18
1306 , p5_a19
1307 , p5_a20
1308 , p5_a21
1309 , p5_a22
1310 , p5_a23
1311 , p5_a24
1312 , p5_a25
1313 , p5_a26
1314 , p5_a27
1315 , p5_a28
1316 , p5_a29
1317 , p5_a30
1318 , p5_a31
1319 );
1320
1321
1322 -- here's the delegated call to the old PL/SQL routine
1323 okl_icp_pvt.update_row(p_api_version,
1324 p_init_msg_list,
1325 x_return_status,
1326 x_msg_count,
1327 x_msg_data,
1328 ddp_icpv_tbl,
1329 ddx_icpv_tbl);
1330
1331 -- copy data back from the local variables to OUT or IN-OUT args, if any
1332
1333
1334
1335
1336
1337
1338 okl_icp_pvt_w.rosetta_table_copy_out_p27(ddx_icpv_tbl, p6_a0
1339 , p6_a1
1340 , p6_a2
1341 , p6_a3
1342 , p6_a4
1343 , p6_a5
1344 , p6_a6
1345 , p6_a7
1346 , p6_a8
1347 , p6_a9
1348 , p6_a10
1349 , p6_a11
1350 , p6_a12
1351 , p6_a13
1352 , p6_a14
1353 , p6_a15
1354 , p6_a16
1355 , p6_a17
1356 , p6_a18
1357 , p6_a19
1358 , p6_a20
1359 , p6_a21
1360 , p6_a22
1361 , p6_a23
1362 , p6_a24
1363 , p6_a25
1364 , p6_a26
1365 , p6_a27
1366 , p6_a28
1367 , p6_a29
1368 , p6_a30
1369 , p6_a31
1370 );
1371 end;
1372
1373 procedure delete_row(p_api_version NUMBER
1374 , p_init_msg_list VARCHAR2
1375 , x_return_status out nocopy VARCHAR2
1376 , x_msg_count out nocopy NUMBER
1377 , x_msg_data out nocopy VARCHAR2
1378 , p5_a0 NUMBER
1379 , p5_a1 NUMBER
1380 , p5_a2 NUMBER
1381 , p5_a3 NUMBER
1382 , p5_a4 NUMBER
1383 , p5_a5 NUMBER
1384 , p5_a6 NUMBER
1385 , p5_a7 VARCHAR2
1386 , p5_a8 VARCHAR2
1387 , p5_a9 DATE
1388 , p5_a10 DATE
1389 , p5_a11 NUMBER
1390 , p5_a12 DATE
1391 , p5_a13 NUMBER
1392 , p5_a14 DATE
1393 , p5_a15 NUMBER
1394 , p5_a16 VARCHAR2
1395 , p5_a17 VARCHAR2
1396 , p5_a18 VARCHAR2
1397 , p5_a19 VARCHAR2
1398 , p5_a20 VARCHAR2
1399 , p5_a21 VARCHAR2
1400 , p5_a22 VARCHAR2
1401 , p5_a23 VARCHAR2
1402 , p5_a24 VARCHAR2
1403 , p5_a25 VARCHAR2
1404 , p5_a26 VARCHAR2
1405 , p5_a27 VARCHAR2
1406 , p5_a28 VARCHAR2
1407 , p5_a29 VARCHAR2
1408 , p5_a30 VARCHAR2
1409 , p5_a31 VARCHAR2
1410 )
1411
1412 as
1413 ddp_icpv_rec okl_icp_pvt.icpv_rec_type;
1414 ddindx binary_integer; indx binary_integer;
1415 begin
1416
1417 -- copy data to the local IN or IN-OUT args, if any
1418
1419
1420
1421
1422
1423 ddp_icpv_rec.id := p5_a0;
1424 ddp_icpv_rec.object_version_number := p5_a1;
1425 ddp_icpv_rec.cat_id1 := p5_a2;
1426 ddp_icpv_rec.cat_id2 := p5_a3;
1427 ddp_icpv_rec.term_in_months := p5_a4;
1428 ddp_icpv_rec.residual_value_percent := p5_a5;
1429 ddp_icpv_rec.item_residual_id := p5_a6;
1430 ddp_icpv_rec.sts_code := p5_a7;
1431 ddp_icpv_rec.version_number := p5_a8;
1432 ddp_icpv_rec.start_date := p5_a9;
1433 ddp_icpv_rec.end_date := p5_a10;
1434 ddp_icpv_rec.created_by := p5_a11;
1435 ddp_icpv_rec.creation_date := p5_a12;
1436 ddp_icpv_rec.last_updated_by := p5_a13;
1437 ddp_icpv_rec.last_update_date := p5_a14;
1438 ddp_icpv_rec.last_update_login := p5_a15;
1439 ddp_icpv_rec.attribute_category := p5_a16;
1440 ddp_icpv_rec.attribute1 := p5_a17;
1441 ddp_icpv_rec.attribute2 := p5_a18;
1442 ddp_icpv_rec.attribute3 := p5_a19;
1443 ddp_icpv_rec.attribute4 := p5_a20;
1444 ddp_icpv_rec.attribute5 := p5_a21;
1445 ddp_icpv_rec.attribute6 := p5_a22;
1446 ddp_icpv_rec.attribute7 := p5_a23;
1447 ddp_icpv_rec.attribute8 := p5_a24;
1448 ddp_icpv_rec.attribute9 := p5_a25;
1449 ddp_icpv_rec.attribute10 := p5_a26;
1450 ddp_icpv_rec.attribute11 := p5_a27;
1451 ddp_icpv_rec.attribute12 := p5_a28;
1452 ddp_icpv_rec.attribute13 := p5_a29;
1453 ddp_icpv_rec.attribute14 := p5_a30;
1454 ddp_icpv_rec.attribute15 := p5_a31;
1455
1456 -- here's the delegated call to the old PL/SQL routine
1457 okl_icp_pvt.delete_row(p_api_version,
1458 p_init_msg_list,
1459 x_return_status,
1460 x_msg_count,
1461 x_msg_data,
1462 ddp_icpv_rec);
1463
1464 -- copy data back from the local variables to OUT or IN-OUT args, if any
1465
1466
1467
1468
1469
1470 end;
1471
1472 procedure delete_row(p_api_version NUMBER
1473 , p_init_msg_list VARCHAR2
1474 , x_return_status out nocopy VARCHAR2
1475 , x_msg_count out nocopy NUMBER
1476 , x_msg_data out nocopy VARCHAR2
1477 , p5_a0 JTF_NUMBER_TABLE
1478 , p5_a1 JTF_NUMBER_TABLE
1479 , p5_a2 JTF_NUMBER_TABLE
1480 , p5_a3 JTF_NUMBER_TABLE
1481 , p5_a4 JTF_NUMBER_TABLE
1482 , p5_a5 JTF_NUMBER_TABLE
1483 , p5_a6 JTF_NUMBER_TABLE
1484 , p5_a7 JTF_VARCHAR2_TABLE_100
1485 , p5_a8 JTF_VARCHAR2_TABLE_100
1486 , p5_a9 JTF_DATE_TABLE
1487 , p5_a10 JTF_DATE_TABLE
1488 , p5_a11 JTF_NUMBER_TABLE
1489 , p5_a12 JTF_DATE_TABLE
1490 , p5_a13 JTF_NUMBER_TABLE
1491 , p5_a14 JTF_DATE_TABLE
1492 , p5_a15 JTF_NUMBER_TABLE
1493 , p5_a16 JTF_VARCHAR2_TABLE_100
1494 , p5_a17 JTF_VARCHAR2_TABLE_500
1495 , p5_a18 JTF_VARCHAR2_TABLE_500
1496 , p5_a19 JTF_VARCHAR2_TABLE_500
1497 , p5_a20 JTF_VARCHAR2_TABLE_500
1498 , p5_a21 JTF_VARCHAR2_TABLE_500
1499 , p5_a22 JTF_VARCHAR2_TABLE_500
1500 , p5_a23 JTF_VARCHAR2_TABLE_500
1501 , p5_a24 JTF_VARCHAR2_TABLE_500
1502 , p5_a25 JTF_VARCHAR2_TABLE_500
1503 , p5_a26 JTF_VARCHAR2_TABLE_500
1504 , p5_a27 JTF_VARCHAR2_TABLE_500
1505 , p5_a28 JTF_VARCHAR2_TABLE_500
1506 , p5_a29 JTF_VARCHAR2_TABLE_500
1507 , p5_a30 JTF_VARCHAR2_TABLE_500
1508 , p5_a31 JTF_VARCHAR2_TABLE_500
1509 )
1510
1511 as
1512 ddp_icpv_tbl okl_icp_pvt.icpv_tbl_type;
1513 ddindx binary_integer; indx binary_integer;
1514 begin
1515
1516 -- copy data to the local IN or IN-OUT args, if any
1517
1518
1519
1520
1521
1522 okl_icp_pvt_w.rosetta_table_copy_in_p27(ddp_icpv_tbl, p5_a0
1523 , p5_a1
1524 , p5_a2
1525 , p5_a3
1526 , p5_a4
1527 , p5_a5
1528 , p5_a6
1529 , p5_a7
1530 , p5_a8
1531 , p5_a9
1532 , p5_a10
1533 , p5_a11
1534 , p5_a12
1535 , p5_a13
1536 , p5_a14
1537 , p5_a15
1538 , p5_a16
1539 , p5_a17
1540 , p5_a18
1541 , p5_a19
1542 , p5_a20
1543 , p5_a21
1544 , p5_a22
1545 , p5_a23
1546 , p5_a24
1547 , p5_a25
1548 , p5_a26
1549 , p5_a27
1550 , p5_a28
1551 , p5_a29
1552 , p5_a30
1553 , p5_a31
1554 );
1555
1556 -- here's the delegated call to the old PL/SQL routine
1557 okl_icp_pvt.delete_row(p_api_version,
1558 p_init_msg_list,
1559 x_return_status,
1560 x_msg_count,
1561 x_msg_data,
1562 ddp_icpv_tbl);
1563
1564 -- copy data back from the local variables to OUT or IN-OUT args, if any
1565
1566
1567
1568
1569
1570 end;
1571
1572 procedure validate_row(p_api_version NUMBER
1573 , p_init_msg_list VARCHAR2
1574 , x_return_status out nocopy VARCHAR2
1575 , x_msg_count out nocopy NUMBER
1576 , x_msg_data out nocopy VARCHAR2
1577 , p5_a0 NUMBER
1578 , p5_a1 NUMBER
1579 , p5_a2 NUMBER
1580 , p5_a3 NUMBER
1581 , p5_a4 NUMBER
1582 , p5_a5 NUMBER
1583 , p5_a6 NUMBER
1584 , p5_a7 VARCHAR2
1585 , p5_a8 VARCHAR2
1586 , p5_a9 DATE
1587 , p5_a10 DATE
1588 , p5_a11 NUMBER
1589 , p5_a12 DATE
1590 , p5_a13 NUMBER
1591 , p5_a14 DATE
1592 , p5_a15 NUMBER
1593 , p5_a16 VARCHAR2
1594 , p5_a17 VARCHAR2
1595 , p5_a18 VARCHAR2
1596 , p5_a19 VARCHAR2
1597 , p5_a20 VARCHAR2
1598 , p5_a21 VARCHAR2
1599 , p5_a22 VARCHAR2
1600 , p5_a23 VARCHAR2
1601 , p5_a24 VARCHAR2
1602 , p5_a25 VARCHAR2
1603 , p5_a26 VARCHAR2
1604 , p5_a27 VARCHAR2
1605 , p5_a28 VARCHAR2
1606 , p5_a29 VARCHAR2
1607 , p5_a30 VARCHAR2
1608 , p5_a31 VARCHAR2
1609 )
1610
1611 as
1612 ddp_icpv_rec okl_icp_pvt.icpv_rec_type;
1613 ddindx binary_integer; indx binary_integer;
1614 begin
1615
1616 -- copy data to the local IN or IN-OUT args, if any
1617
1618
1619
1620
1621
1622 ddp_icpv_rec.id := p5_a0;
1623 ddp_icpv_rec.object_version_number := p5_a1;
1624 ddp_icpv_rec.cat_id1 := p5_a2;
1625 ddp_icpv_rec.cat_id2 := p5_a3;
1626 ddp_icpv_rec.term_in_months := p5_a4;
1627 ddp_icpv_rec.residual_value_percent := p5_a5;
1628 ddp_icpv_rec.item_residual_id := p5_a6;
1629 ddp_icpv_rec.sts_code := p5_a7;
1630 ddp_icpv_rec.version_number := p5_a8;
1631 ddp_icpv_rec.start_date := p5_a9;
1632 ddp_icpv_rec.end_date := p5_a10;
1633 ddp_icpv_rec.created_by := p5_a11;
1634 ddp_icpv_rec.creation_date := p5_a12;
1635 ddp_icpv_rec.last_updated_by := p5_a13;
1636 ddp_icpv_rec.last_update_date := p5_a14;
1637 ddp_icpv_rec.last_update_login := p5_a15;
1638 ddp_icpv_rec.attribute_category := p5_a16;
1639 ddp_icpv_rec.attribute1 := p5_a17;
1640 ddp_icpv_rec.attribute2 := p5_a18;
1641 ddp_icpv_rec.attribute3 := p5_a19;
1642 ddp_icpv_rec.attribute4 := p5_a20;
1643 ddp_icpv_rec.attribute5 := p5_a21;
1644 ddp_icpv_rec.attribute6 := p5_a22;
1645 ddp_icpv_rec.attribute7 := p5_a23;
1646 ddp_icpv_rec.attribute8 := p5_a24;
1647 ddp_icpv_rec.attribute9 := p5_a25;
1648 ddp_icpv_rec.attribute10 := p5_a26;
1649 ddp_icpv_rec.attribute11 := p5_a27;
1650 ddp_icpv_rec.attribute12 := p5_a28;
1651 ddp_icpv_rec.attribute13 := p5_a29;
1652 ddp_icpv_rec.attribute14 := p5_a30;
1653 ddp_icpv_rec.attribute15 := p5_a31;
1654
1655 -- here's the delegated call to the old PL/SQL routine
1656 okl_icp_pvt.validate_row(p_api_version,
1657 p_init_msg_list,
1658 x_return_status,
1659 x_msg_count,
1660 x_msg_data,
1661 ddp_icpv_rec);
1662
1663 -- copy data back from the local variables to OUT or IN-OUT args, if any
1664
1665
1666
1667
1668
1669 end;
1670
1671 procedure validate_row(p_api_version NUMBER
1672 , p_init_msg_list VARCHAR2
1673 , x_return_status out nocopy VARCHAR2
1674 , x_msg_count out nocopy NUMBER
1675 , x_msg_data out nocopy VARCHAR2
1676 , p5_a0 JTF_NUMBER_TABLE
1677 , p5_a1 JTF_NUMBER_TABLE
1678 , p5_a2 JTF_NUMBER_TABLE
1679 , p5_a3 JTF_NUMBER_TABLE
1680 , p5_a4 JTF_NUMBER_TABLE
1681 , p5_a5 JTF_NUMBER_TABLE
1682 , p5_a6 JTF_NUMBER_TABLE
1683 , p5_a7 JTF_VARCHAR2_TABLE_100
1684 , p5_a8 JTF_VARCHAR2_TABLE_100
1685 , p5_a9 JTF_DATE_TABLE
1686 , p5_a10 JTF_DATE_TABLE
1687 , p5_a11 JTF_NUMBER_TABLE
1688 , p5_a12 JTF_DATE_TABLE
1689 , p5_a13 JTF_NUMBER_TABLE
1690 , p5_a14 JTF_DATE_TABLE
1691 , p5_a15 JTF_NUMBER_TABLE
1692 , p5_a16 JTF_VARCHAR2_TABLE_100
1693 , p5_a17 JTF_VARCHAR2_TABLE_500
1694 , p5_a18 JTF_VARCHAR2_TABLE_500
1695 , p5_a19 JTF_VARCHAR2_TABLE_500
1696 , p5_a20 JTF_VARCHAR2_TABLE_500
1697 , p5_a21 JTF_VARCHAR2_TABLE_500
1698 , p5_a22 JTF_VARCHAR2_TABLE_500
1699 , p5_a23 JTF_VARCHAR2_TABLE_500
1700 , p5_a24 JTF_VARCHAR2_TABLE_500
1701 , p5_a25 JTF_VARCHAR2_TABLE_500
1702 , p5_a26 JTF_VARCHAR2_TABLE_500
1703 , p5_a27 JTF_VARCHAR2_TABLE_500
1704 , p5_a28 JTF_VARCHAR2_TABLE_500
1705 , p5_a29 JTF_VARCHAR2_TABLE_500
1706 , p5_a30 JTF_VARCHAR2_TABLE_500
1707 , p5_a31 JTF_VARCHAR2_TABLE_500
1708 )
1709
1710 as
1711 ddp_icpv_tbl okl_icp_pvt.icpv_tbl_type;
1712 ddindx binary_integer; indx binary_integer;
1713 begin
1714
1715 -- copy data to the local IN or IN-OUT args, if any
1716
1717
1718
1719
1720
1721 okl_icp_pvt_w.rosetta_table_copy_in_p27(ddp_icpv_tbl, p5_a0
1722 , p5_a1
1723 , p5_a2
1724 , p5_a3
1725 , p5_a4
1726 , p5_a5
1727 , p5_a6
1728 , p5_a7
1729 , p5_a8
1730 , p5_a9
1731 , p5_a10
1732 , p5_a11
1733 , p5_a12
1734 , p5_a13
1735 , p5_a14
1736 , p5_a15
1737 , p5_a16
1738 , p5_a17
1739 , p5_a18
1740 , p5_a19
1741 , p5_a20
1742 , p5_a21
1743 , p5_a22
1744 , p5_a23
1745 , p5_a24
1746 , p5_a25
1747 , p5_a26
1748 , p5_a27
1749 , p5_a28
1750 , p5_a29
1751 , p5_a30
1752 , p5_a31
1753 );
1754
1755 -- here's the delegated call to the old PL/SQL routine
1756 okl_icp_pvt.validate_row(p_api_version,
1757 p_init_msg_list,
1758 x_return_status,
1759 x_msg_count,
1760 x_msg_data,
1761 ddp_icpv_tbl);
1762
1763 -- copy data back from the local variables to OUT or IN-OUT args, if any
1764
1765
1766
1767
1768
1769 end;
1770
1771 end okl_icp_pvt_w;