[Home] [Help]
PACKAGE BODY: APPS.OKL_VCR_PVT_W
Source
1 package body okl_vcr_pvt_w as
2 /* $Header: OKLIVCRB.pls 120.0 2005/08/03 07:56:15 sjalasut noship $ */
3 procedure rosetta_table_copy_in_p2(t out nocopy okl_vcr_pvt.vcrv_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_VARCHAR2_TABLE_100
8 , a5 JTF_VARCHAR2_TABLE_100
9 , a6 JTF_DATE_TABLE
10 , a7 JTF_DATE_TABLE
11 , a8 JTF_DATE_TABLE
12 , a9 JTF_DATE_TABLE
13 , a10 JTF_DATE_TABLE
14 , a11 JTF_DATE_TABLE
15 , a12 JTF_VARCHAR2_TABLE_100
16 , a13 JTF_VARCHAR2_TABLE_500
17 , a14 JTF_VARCHAR2_TABLE_500
18 , a15 JTF_VARCHAR2_TABLE_500
19 , a16 JTF_VARCHAR2_TABLE_500
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_NUMBER_TABLE
32 , a29 JTF_NUMBER_TABLE
33 , a30 JTF_NUMBER_TABLE
34 , a31 JTF_DATE_TABLE
35 , a32 JTF_NUMBER_TABLE
36 , a33 JTF_DATE_TABLE
37 , a34 JTF_NUMBER_TABLE
38 , a35 JTF_DATE_TABLE
39 , a36 JTF_NUMBER_TABLE
40 ) as
41 ddindx binary_integer; indx binary_integer;
42 begin
43 if a0 is not null and a0.count > 0 then
44 if a0.count > 0 then
45 indx := a0.first;
46 ddindx := 1;
47 while true loop
48 t(ddindx).id := a0(indx);
49 t(ddindx).object_version_number := a1(indx);
50 t(ddindx).change_request_number := a2(indx);
51 t(ddindx).chr_id := a3(indx);
52 t(ddindx).change_type_code := a4(indx);
53 t(ddindx).status_code := a5(indx);
54 t(ddindx).request_date := a6(indx);
55 t(ddindx).effective_date := a7(indx);
56 t(ddindx).approved_date := a8(indx);
57 t(ddindx).rejected_date := a9(indx);
58 t(ddindx).ineffective_date := a10(indx);
59 t(ddindx).applied_date := a11(indx);
60 t(ddindx).attribute_category := a12(indx);
61 t(ddindx).attribute1 := a13(indx);
62 t(ddindx).attribute2 := a14(indx);
63 t(ddindx).attribute3 := a15(indx);
64 t(ddindx).attribute4 := a16(indx);
65 t(ddindx).attribute5 := a17(indx);
66 t(ddindx).attribute6 := a18(indx);
67 t(ddindx).attribute7 := a19(indx);
68 t(ddindx).attribute8 := a20(indx);
69 t(ddindx).attribute9 := a21(indx);
70 t(ddindx).attribute10 := a22(indx);
71 t(ddindx).attribute11 := a23(indx);
72 t(ddindx).attribute12 := a24(indx);
73 t(ddindx).attribute13 := a25(indx);
74 t(ddindx).attribute14 := a26(indx);
75 t(ddindx).attribute15 := a27(indx);
76 t(ddindx).request_id := a28(indx);
77 t(ddindx).program_application_id := a29(indx);
78 t(ddindx).program_id := a30(indx);
79 t(ddindx).program_update_date := a31(indx);
80 t(ddindx).created_by := a32(indx);
81 t(ddindx).creation_date := a33(indx);
82 t(ddindx).last_updated_by := a34(indx);
83 t(ddindx).last_update_date := a35(indx);
84 t(ddindx).last_update_login := a36(indx);
85 ddindx := ddindx+1;
86 if a0.last =indx
87 then exit;
88 end if;
89 indx := a0.next(indx);
90 end loop;
91 end if;
92 end if;
93 end rosetta_table_copy_in_p2;
94 procedure rosetta_table_copy_out_p2(t okl_vcr_pvt.vcrv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
95 , a1 out nocopy JTF_NUMBER_TABLE
96 , a2 out nocopy JTF_NUMBER_TABLE
97 , a3 out nocopy JTF_NUMBER_TABLE
98 , a4 out nocopy JTF_VARCHAR2_TABLE_100
99 , a5 out nocopy JTF_VARCHAR2_TABLE_100
100 , a6 out nocopy JTF_DATE_TABLE
101 , a7 out nocopy JTF_DATE_TABLE
102 , a8 out nocopy JTF_DATE_TABLE
103 , a9 out nocopy JTF_DATE_TABLE
104 , a10 out nocopy JTF_DATE_TABLE
105 , a11 out nocopy JTF_DATE_TABLE
106 , a12 out nocopy JTF_VARCHAR2_TABLE_100
107 , a13 out nocopy JTF_VARCHAR2_TABLE_500
108 , a14 out nocopy JTF_VARCHAR2_TABLE_500
109 , a15 out nocopy JTF_VARCHAR2_TABLE_500
110 , a16 out nocopy JTF_VARCHAR2_TABLE_500
111 , a17 out nocopy JTF_VARCHAR2_TABLE_500
112 , a18 out nocopy JTF_VARCHAR2_TABLE_500
113 , a19 out nocopy JTF_VARCHAR2_TABLE_500
114 , a20 out nocopy JTF_VARCHAR2_TABLE_500
115 , a21 out nocopy JTF_VARCHAR2_TABLE_500
116 , a22 out nocopy JTF_VARCHAR2_TABLE_500
117 , a23 out nocopy JTF_VARCHAR2_TABLE_500
118 , a24 out nocopy JTF_VARCHAR2_TABLE_500
119 , a25 out nocopy JTF_VARCHAR2_TABLE_500
120 , a26 out nocopy JTF_VARCHAR2_TABLE_500
121 , a27 out nocopy JTF_VARCHAR2_TABLE_500
122 , a28 out nocopy JTF_NUMBER_TABLE
123 , a29 out nocopy JTF_NUMBER_TABLE
124 , a30 out nocopy JTF_NUMBER_TABLE
125 , a31 out nocopy JTF_DATE_TABLE
126 , a32 out nocopy JTF_NUMBER_TABLE
127 , a33 out nocopy JTF_DATE_TABLE
128 , a34 out nocopy JTF_NUMBER_TABLE
129 , a35 out nocopy JTF_DATE_TABLE
130 , a36 out nocopy JTF_NUMBER_TABLE
131 ) as
132 ddindx binary_integer; indx binary_integer;
133 begin
134 if t is null or t.count = 0 then
135 a0 := JTF_NUMBER_TABLE();
136 a1 := JTF_NUMBER_TABLE();
137 a2 := JTF_NUMBER_TABLE();
138 a3 := JTF_NUMBER_TABLE();
139 a4 := JTF_VARCHAR2_TABLE_100();
140 a5 := JTF_VARCHAR2_TABLE_100();
141 a6 := JTF_DATE_TABLE();
142 a7 := JTF_DATE_TABLE();
143 a8 := JTF_DATE_TABLE();
144 a9 := JTF_DATE_TABLE();
145 a10 := JTF_DATE_TABLE();
146 a11 := JTF_DATE_TABLE();
147 a12 := JTF_VARCHAR2_TABLE_100();
148 a13 := JTF_VARCHAR2_TABLE_500();
149 a14 := JTF_VARCHAR2_TABLE_500();
150 a15 := JTF_VARCHAR2_TABLE_500();
151 a16 := JTF_VARCHAR2_TABLE_500();
152 a17 := JTF_VARCHAR2_TABLE_500();
153 a18 := JTF_VARCHAR2_TABLE_500();
154 a19 := JTF_VARCHAR2_TABLE_500();
155 a20 := JTF_VARCHAR2_TABLE_500();
156 a21 := JTF_VARCHAR2_TABLE_500();
157 a22 := JTF_VARCHAR2_TABLE_500();
158 a23 := JTF_VARCHAR2_TABLE_500();
159 a24 := JTF_VARCHAR2_TABLE_500();
160 a25 := JTF_VARCHAR2_TABLE_500();
161 a26 := JTF_VARCHAR2_TABLE_500();
162 a27 := JTF_VARCHAR2_TABLE_500();
163 a28 := JTF_NUMBER_TABLE();
164 a29 := JTF_NUMBER_TABLE();
165 a30 := JTF_NUMBER_TABLE();
166 a31 := JTF_DATE_TABLE();
167 a32 := JTF_NUMBER_TABLE();
168 a33 := JTF_DATE_TABLE();
169 a34 := JTF_NUMBER_TABLE();
170 a35 := JTF_DATE_TABLE();
171 a36 := JTF_NUMBER_TABLE();
172 else
173 a0 := JTF_NUMBER_TABLE();
174 a1 := JTF_NUMBER_TABLE();
175 a2 := JTF_NUMBER_TABLE();
176 a3 := JTF_NUMBER_TABLE();
177 a4 := JTF_VARCHAR2_TABLE_100();
178 a5 := JTF_VARCHAR2_TABLE_100();
179 a6 := JTF_DATE_TABLE();
180 a7 := JTF_DATE_TABLE();
181 a8 := JTF_DATE_TABLE();
182 a9 := JTF_DATE_TABLE();
183 a10 := JTF_DATE_TABLE();
184 a11 := JTF_DATE_TABLE();
185 a12 := JTF_VARCHAR2_TABLE_100();
186 a13 := JTF_VARCHAR2_TABLE_500();
187 a14 := JTF_VARCHAR2_TABLE_500();
188 a15 := JTF_VARCHAR2_TABLE_500();
189 a16 := JTF_VARCHAR2_TABLE_500();
190 a17 := JTF_VARCHAR2_TABLE_500();
191 a18 := JTF_VARCHAR2_TABLE_500();
192 a19 := JTF_VARCHAR2_TABLE_500();
193 a20 := JTF_VARCHAR2_TABLE_500();
194 a21 := JTF_VARCHAR2_TABLE_500();
195 a22 := JTF_VARCHAR2_TABLE_500();
196 a23 := JTF_VARCHAR2_TABLE_500();
197 a24 := JTF_VARCHAR2_TABLE_500();
198 a25 := JTF_VARCHAR2_TABLE_500();
199 a26 := JTF_VARCHAR2_TABLE_500();
200 a27 := JTF_VARCHAR2_TABLE_500();
201 a28 := JTF_NUMBER_TABLE();
202 a29 := JTF_NUMBER_TABLE();
203 a30 := JTF_NUMBER_TABLE();
204 a31 := JTF_DATE_TABLE();
205 a32 := JTF_NUMBER_TABLE();
206 a33 := JTF_DATE_TABLE();
207 a34 := JTF_NUMBER_TABLE();
208 a35 := JTF_DATE_TABLE();
209 a36 := JTF_NUMBER_TABLE();
210 if t.count > 0 then
211 a0.extend(t.count);
212 a1.extend(t.count);
213 a2.extend(t.count);
214 a3.extend(t.count);
215 a4.extend(t.count);
216 a5.extend(t.count);
217 a6.extend(t.count);
218 a7.extend(t.count);
219 a8.extend(t.count);
220 a9.extend(t.count);
221 a10.extend(t.count);
222 a11.extend(t.count);
223 a12.extend(t.count);
224 a13.extend(t.count);
225 a14.extend(t.count);
226 a15.extend(t.count);
227 a16.extend(t.count);
228 a17.extend(t.count);
229 a18.extend(t.count);
230 a19.extend(t.count);
231 a20.extend(t.count);
232 a21.extend(t.count);
233 a22.extend(t.count);
234 a23.extend(t.count);
235 a24.extend(t.count);
236 a25.extend(t.count);
237 a26.extend(t.count);
238 a27.extend(t.count);
239 a28.extend(t.count);
240 a29.extend(t.count);
241 a30.extend(t.count);
242 a31.extend(t.count);
243 a32.extend(t.count);
244 a33.extend(t.count);
245 a34.extend(t.count);
246 a35.extend(t.count);
247 a36.extend(t.count);
248 ddindx := t.first;
249 indx := 1;
250 while true loop
251 a0(indx) := t(ddindx).id;
252 a1(indx) := t(ddindx).object_version_number;
253 a2(indx) := t(ddindx).change_request_number;
254 a3(indx) := t(ddindx).chr_id;
255 a4(indx) := t(ddindx).change_type_code;
256 a5(indx) := t(ddindx).status_code;
257 a6(indx) := t(ddindx).request_date;
258 a7(indx) := t(ddindx).effective_date;
259 a8(indx) := t(ddindx).approved_date;
260 a9(indx) := t(ddindx).rejected_date;
261 a10(indx) := t(ddindx).ineffective_date;
262 a11(indx) := t(ddindx).applied_date;
263 a12(indx) := t(ddindx).attribute_category;
264 a13(indx) := t(ddindx).attribute1;
265 a14(indx) := t(ddindx).attribute2;
266 a15(indx) := t(ddindx).attribute3;
267 a16(indx) := t(ddindx).attribute4;
268 a17(indx) := t(ddindx).attribute5;
269 a18(indx) := t(ddindx).attribute6;
270 a19(indx) := t(ddindx).attribute7;
271 a20(indx) := t(ddindx).attribute8;
272 a21(indx) := t(ddindx).attribute9;
273 a22(indx) := t(ddindx).attribute10;
274 a23(indx) := t(ddindx).attribute11;
275 a24(indx) := t(ddindx).attribute12;
276 a25(indx) := t(ddindx).attribute13;
277 a26(indx) := t(ddindx).attribute14;
278 a27(indx) := t(ddindx).attribute15;
279 a28(indx) := t(ddindx).request_id;
280 a29(indx) := t(ddindx).program_application_id;
281 a30(indx) := t(ddindx).program_id;
282 a31(indx) := t(ddindx).program_update_date;
283 a32(indx) := t(ddindx).created_by;
284 a33(indx) := t(ddindx).creation_date;
285 a34(indx) := t(ddindx).last_updated_by;
286 a35(indx) := t(ddindx).last_update_date;
287 a36(indx) := t(ddindx).last_update_login;
288 indx := indx+1;
289 if t.last =ddindx
290 then exit;
291 end if;
292 ddindx := t.next(ddindx);
293 end loop;
294 end if;
295 end if;
296 end rosetta_table_copy_out_p2;
297
298 procedure rosetta_table_copy_in_p5(t out nocopy okl_vcr_pvt.vcr_tbl_type, a0 JTF_NUMBER_TABLE
299 , a1 JTF_NUMBER_TABLE
300 , a2 JTF_NUMBER_TABLE
301 , a3 JTF_NUMBER_TABLE
302 , a4 JTF_VARCHAR2_TABLE_100
303 , a5 JTF_VARCHAR2_TABLE_100
304 , a6 JTF_DATE_TABLE
305 , a7 JTF_DATE_TABLE
306 , a8 JTF_DATE_TABLE
307 , a9 JTF_DATE_TABLE
308 , a10 JTF_DATE_TABLE
309 , a11 JTF_DATE_TABLE
310 , a12 JTF_VARCHAR2_TABLE_100
311 , a13 JTF_VARCHAR2_TABLE_500
312 , a14 JTF_VARCHAR2_TABLE_500
313 , a15 JTF_VARCHAR2_TABLE_500
314 , a16 JTF_VARCHAR2_TABLE_500
315 , a17 JTF_VARCHAR2_TABLE_500
316 , a18 JTF_VARCHAR2_TABLE_500
317 , a19 JTF_VARCHAR2_TABLE_500
318 , a20 JTF_VARCHAR2_TABLE_500
319 , a21 JTF_VARCHAR2_TABLE_500
320 , a22 JTF_VARCHAR2_TABLE_500
321 , a23 JTF_VARCHAR2_TABLE_500
322 , a24 JTF_VARCHAR2_TABLE_500
323 , a25 JTF_VARCHAR2_TABLE_500
324 , a26 JTF_VARCHAR2_TABLE_500
325 , a27 JTF_VARCHAR2_TABLE_500
326 , a28 JTF_NUMBER_TABLE
327 , a29 JTF_NUMBER_TABLE
328 , a30 JTF_NUMBER_TABLE
329 , a31 JTF_DATE_TABLE
330 , a32 JTF_NUMBER_TABLE
331 , a33 JTF_DATE_TABLE
332 , a34 JTF_NUMBER_TABLE
333 , a35 JTF_DATE_TABLE
334 , a36 JTF_NUMBER_TABLE
335 ) as
336 ddindx binary_integer; indx binary_integer;
337 begin
338 if a0 is not null and a0.count > 0 then
339 if a0.count > 0 then
340 indx := a0.first;
341 ddindx := 1;
342 while true loop
343 t(ddindx).id := a0(indx);
344 t(ddindx).object_version_number := a1(indx);
345 t(ddindx).change_request_number := a2(indx);
346 t(ddindx).chr_id := a3(indx);
347 t(ddindx).change_type_code := a4(indx);
348 t(ddindx).status_code := a5(indx);
349 t(ddindx).request_date := a6(indx);
350 t(ddindx).effective_date := a7(indx);
351 t(ddindx).approved_date := a8(indx);
352 t(ddindx).rejected_date := a9(indx);
353 t(ddindx).ineffective_date := a10(indx);
354 t(ddindx).applied_date := a11(indx);
355 t(ddindx).attribute_category := a12(indx);
356 t(ddindx).attribute1 := a13(indx);
357 t(ddindx).attribute2 := a14(indx);
358 t(ddindx).attribute3 := a15(indx);
359 t(ddindx).attribute4 := a16(indx);
360 t(ddindx).attribute5 := a17(indx);
361 t(ddindx).attribute6 := a18(indx);
362 t(ddindx).attribute7 := a19(indx);
363 t(ddindx).attribute8 := a20(indx);
364 t(ddindx).attribute9 := a21(indx);
365 t(ddindx).attribute10 := a22(indx);
366 t(ddindx).attribute11 := a23(indx);
367 t(ddindx).attribute12 := a24(indx);
368 t(ddindx).attribute13 := a25(indx);
369 t(ddindx).attribute14 := a26(indx);
370 t(ddindx).attribute15 := a27(indx);
371 t(ddindx).request_id := a28(indx);
372 t(ddindx).program_application_id := a29(indx);
373 t(ddindx).program_id := a30(indx);
374 t(ddindx).program_update_date := a31(indx);
375 t(ddindx).created_by := a32(indx);
376 t(ddindx).creation_date := a33(indx);
377 t(ddindx).last_updated_by := a34(indx);
378 t(ddindx).last_update_date := a35(indx);
379 t(ddindx).last_update_login := a36(indx);
380 ddindx := ddindx+1;
381 if a0.last =indx
382 then exit;
383 end if;
384 indx := a0.next(indx);
385 end loop;
386 end if;
387 end if;
388 end rosetta_table_copy_in_p5;
389 procedure rosetta_table_copy_out_p5(t okl_vcr_pvt.vcr_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
390 , a1 out nocopy JTF_NUMBER_TABLE
391 , a2 out nocopy JTF_NUMBER_TABLE
392 , a3 out nocopy JTF_NUMBER_TABLE
393 , a4 out nocopy JTF_VARCHAR2_TABLE_100
394 , a5 out nocopy JTF_VARCHAR2_TABLE_100
395 , a6 out nocopy JTF_DATE_TABLE
396 , a7 out nocopy JTF_DATE_TABLE
397 , a8 out nocopy JTF_DATE_TABLE
398 , a9 out nocopy JTF_DATE_TABLE
399 , a10 out nocopy JTF_DATE_TABLE
400 , a11 out nocopy JTF_DATE_TABLE
401 , a12 out nocopy JTF_VARCHAR2_TABLE_100
402 , a13 out nocopy JTF_VARCHAR2_TABLE_500
403 , a14 out nocopy JTF_VARCHAR2_TABLE_500
404 , a15 out nocopy JTF_VARCHAR2_TABLE_500
405 , a16 out nocopy JTF_VARCHAR2_TABLE_500
406 , a17 out nocopy JTF_VARCHAR2_TABLE_500
407 , a18 out nocopy JTF_VARCHAR2_TABLE_500
408 , a19 out nocopy JTF_VARCHAR2_TABLE_500
409 , a20 out nocopy JTF_VARCHAR2_TABLE_500
410 , a21 out nocopy JTF_VARCHAR2_TABLE_500
411 , a22 out nocopy JTF_VARCHAR2_TABLE_500
412 , a23 out nocopy JTF_VARCHAR2_TABLE_500
413 , a24 out nocopy JTF_VARCHAR2_TABLE_500
414 , a25 out nocopy JTF_VARCHAR2_TABLE_500
415 , a26 out nocopy JTF_VARCHAR2_TABLE_500
416 , a27 out nocopy JTF_VARCHAR2_TABLE_500
417 , a28 out nocopy JTF_NUMBER_TABLE
418 , a29 out nocopy JTF_NUMBER_TABLE
419 , a30 out nocopy JTF_NUMBER_TABLE
420 , a31 out nocopy JTF_DATE_TABLE
421 , a32 out nocopy JTF_NUMBER_TABLE
422 , a33 out nocopy JTF_DATE_TABLE
423 , a34 out nocopy JTF_NUMBER_TABLE
424 , a35 out nocopy JTF_DATE_TABLE
425 , a36 out nocopy JTF_NUMBER_TABLE
426 ) as
427 ddindx binary_integer; indx binary_integer;
428 begin
429 if t is null or t.count = 0 then
430 a0 := JTF_NUMBER_TABLE();
431 a1 := JTF_NUMBER_TABLE();
432 a2 := JTF_NUMBER_TABLE();
433 a3 := JTF_NUMBER_TABLE();
434 a4 := JTF_VARCHAR2_TABLE_100();
435 a5 := JTF_VARCHAR2_TABLE_100();
436 a6 := JTF_DATE_TABLE();
437 a7 := JTF_DATE_TABLE();
438 a8 := JTF_DATE_TABLE();
439 a9 := JTF_DATE_TABLE();
440 a10 := JTF_DATE_TABLE();
441 a11 := JTF_DATE_TABLE();
442 a12 := JTF_VARCHAR2_TABLE_100();
443 a13 := JTF_VARCHAR2_TABLE_500();
444 a14 := JTF_VARCHAR2_TABLE_500();
445 a15 := JTF_VARCHAR2_TABLE_500();
446 a16 := JTF_VARCHAR2_TABLE_500();
447 a17 := JTF_VARCHAR2_TABLE_500();
448 a18 := JTF_VARCHAR2_TABLE_500();
449 a19 := JTF_VARCHAR2_TABLE_500();
450 a20 := JTF_VARCHAR2_TABLE_500();
451 a21 := JTF_VARCHAR2_TABLE_500();
452 a22 := JTF_VARCHAR2_TABLE_500();
453 a23 := JTF_VARCHAR2_TABLE_500();
454 a24 := JTF_VARCHAR2_TABLE_500();
455 a25 := JTF_VARCHAR2_TABLE_500();
456 a26 := JTF_VARCHAR2_TABLE_500();
457 a27 := JTF_VARCHAR2_TABLE_500();
458 a28 := JTF_NUMBER_TABLE();
459 a29 := JTF_NUMBER_TABLE();
460 a30 := JTF_NUMBER_TABLE();
461 a31 := JTF_DATE_TABLE();
462 a32 := JTF_NUMBER_TABLE();
463 a33 := JTF_DATE_TABLE();
464 a34 := JTF_NUMBER_TABLE();
465 a35 := JTF_DATE_TABLE();
466 a36 := JTF_NUMBER_TABLE();
467 else
468 a0 := JTF_NUMBER_TABLE();
469 a1 := JTF_NUMBER_TABLE();
470 a2 := JTF_NUMBER_TABLE();
471 a3 := JTF_NUMBER_TABLE();
472 a4 := JTF_VARCHAR2_TABLE_100();
473 a5 := JTF_VARCHAR2_TABLE_100();
474 a6 := JTF_DATE_TABLE();
475 a7 := JTF_DATE_TABLE();
476 a8 := JTF_DATE_TABLE();
477 a9 := JTF_DATE_TABLE();
478 a10 := JTF_DATE_TABLE();
479 a11 := JTF_DATE_TABLE();
480 a12 := JTF_VARCHAR2_TABLE_100();
481 a13 := JTF_VARCHAR2_TABLE_500();
482 a14 := JTF_VARCHAR2_TABLE_500();
483 a15 := JTF_VARCHAR2_TABLE_500();
484 a16 := JTF_VARCHAR2_TABLE_500();
485 a17 := JTF_VARCHAR2_TABLE_500();
486 a18 := JTF_VARCHAR2_TABLE_500();
487 a19 := JTF_VARCHAR2_TABLE_500();
488 a20 := JTF_VARCHAR2_TABLE_500();
489 a21 := JTF_VARCHAR2_TABLE_500();
490 a22 := JTF_VARCHAR2_TABLE_500();
491 a23 := JTF_VARCHAR2_TABLE_500();
492 a24 := JTF_VARCHAR2_TABLE_500();
493 a25 := JTF_VARCHAR2_TABLE_500();
494 a26 := JTF_VARCHAR2_TABLE_500();
495 a27 := JTF_VARCHAR2_TABLE_500();
496 a28 := JTF_NUMBER_TABLE();
497 a29 := JTF_NUMBER_TABLE();
498 a30 := JTF_NUMBER_TABLE();
499 a31 := JTF_DATE_TABLE();
500 a32 := JTF_NUMBER_TABLE();
501 a33 := JTF_DATE_TABLE();
502 a34 := JTF_NUMBER_TABLE();
503 a35 := JTF_DATE_TABLE();
504 a36 := JTF_NUMBER_TABLE();
505 if t.count > 0 then
506 a0.extend(t.count);
507 a1.extend(t.count);
508 a2.extend(t.count);
509 a3.extend(t.count);
510 a4.extend(t.count);
511 a5.extend(t.count);
512 a6.extend(t.count);
513 a7.extend(t.count);
514 a8.extend(t.count);
515 a9.extend(t.count);
516 a10.extend(t.count);
517 a11.extend(t.count);
518 a12.extend(t.count);
519 a13.extend(t.count);
520 a14.extend(t.count);
521 a15.extend(t.count);
522 a16.extend(t.count);
523 a17.extend(t.count);
524 a18.extend(t.count);
525 a19.extend(t.count);
526 a20.extend(t.count);
527 a21.extend(t.count);
528 a22.extend(t.count);
529 a23.extend(t.count);
530 a24.extend(t.count);
531 a25.extend(t.count);
532 a26.extend(t.count);
533 a27.extend(t.count);
534 a28.extend(t.count);
535 a29.extend(t.count);
536 a30.extend(t.count);
537 a31.extend(t.count);
538 a32.extend(t.count);
539 a33.extend(t.count);
540 a34.extend(t.count);
541 a35.extend(t.count);
542 a36.extend(t.count);
543 ddindx := t.first;
544 indx := 1;
545 while true loop
546 a0(indx) := t(ddindx).id;
547 a1(indx) := t(ddindx).object_version_number;
548 a2(indx) := t(ddindx).change_request_number;
549 a3(indx) := t(ddindx).chr_id;
550 a4(indx) := t(ddindx).change_type_code;
551 a5(indx) := t(ddindx).status_code;
552 a6(indx) := t(ddindx).request_date;
553 a7(indx) := t(ddindx).effective_date;
554 a8(indx) := t(ddindx).approved_date;
555 a9(indx) := t(ddindx).rejected_date;
556 a10(indx) := t(ddindx).ineffective_date;
557 a11(indx) := t(ddindx).applied_date;
558 a12(indx) := t(ddindx).attribute_category;
559 a13(indx) := t(ddindx).attribute1;
560 a14(indx) := t(ddindx).attribute2;
561 a15(indx) := t(ddindx).attribute3;
562 a16(indx) := t(ddindx).attribute4;
563 a17(indx) := t(ddindx).attribute5;
564 a18(indx) := t(ddindx).attribute6;
565 a19(indx) := t(ddindx).attribute7;
566 a20(indx) := t(ddindx).attribute8;
567 a21(indx) := t(ddindx).attribute9;
568 a22(indx) := t(ddindx).attribute10;
569 a23(indx) := t(ddindx).attribute11;
570 a24(indx) := t(ddindx).attribute12;
571 a25(indx) := t(ddindx).attribute13;
572 a26(indx) := t(ddindx).attribute14;
573 a27(indx) := t(ddindx).attribute15;
574 a28(indx) := t(ddindx).request_id;
575 a29(indx) := t(ddindx).program_application_id;
576 a30(indx) := t(ddindx).program_id;
577 a31(indx) := t(ddindx).program_update_date;
578 a32(indx) := t(ddindx).created_by;
579 a33(indx) := t(ddindx).creation_date;
580 a34(indx) := t(ddindx).last_updated_by;
581 a35(indx) := t(ddindx).last_update_date;
582 a36(indx) := t(ddindx).last_update_login;
583 indx := indx+1;
584 if t.last =ddindx
585 then exit;
586 end if;
587 ddindx := t.next(ddindx);
588 end loop;
589 end if;
590 end if;
591 end rosetta_table_copy_out_p5;
592
593 procedure insert_row(p_api_version NUMBER
594 , p_init_msg_list VARCHAR2
595 , x_return_status out nocopy VARCHAR2
596 , x_msg_count out nocopy NUMBER
597 , x_msg_data out nocopy VARCHAR2
598 , p5_a0 NUMBER
599 , p5_a1 NUMBER
600 , p5_a2 NUMBER
601 , p5_a3 NUMBER
602 , p5_a4 VARCHAR2
603 , p5_a5 VARCHAR2
604 , p5_a6 DATE
605 , p5_a7 DATE
606 , p5_a8 DATE
607 , p5_a9 DATE
608 , p5_a10 DATE
609 , p5_a11 DATE
610 , p5_a12 VARCHAR2
611 , p5_a13 VARCHAR2
612 , p5_a14 VARCHAR2
613 , p5_a15 VARCHAR2
614 , p5_a16 VARCHAR2
615 , p5_a17 VARCHAR2
616 , p5_a18 VARCHAR2
617 , p5_a19 VARCHAR2
618 , p5_a20 VARCHAR2
619 , p5_a21 VARCHAR2
620 , p5_a22 VARCHAR2
621 , p5_a23 VARCHAR2
622 , p5_a24 VARCHAR2
623 , p5_a25 VARCHAR2
624 , p5_a26 VARCHAR2
625 , p5_a27 VARCHAR2
626 , p5_a28 NUMBER
627 , p5_a29 NUMBER
628 , p5_a30 NUMBER
629 , p5_a31 DATE
630 , p5_a32 NUMBER
631 , p5_a33 DATE
632 , p5_a34 NUMBER
633 , p5_a35 DATE
634 , p5_a36 NUMBER
635 , p6_a0 out nocopy NUMBER
636 , p6_a1 out nocopy NUMBER
637 , p6_a2 out nocopy NUMBER
638 , p6_a3 out nocopy NUMBER
639 , p6_a4 out nocopy VARCHAR2
640 , p6_a5 out nocopy VARCHAR2
641 , p6_a6 out nocopy DATE
642 , p6_a7 out nocopy DATE
643 , p6_a8 out nocopy DATE
644 , p6_a9 out nocopy DATE
645 , p6_a10 out nocopy DATE
646 , p6_a11 out nocopy DATE
647 , p6_a12 out nocopy VARCHAR2
648 , p6_a13 out nocopy VARCHAR2
649 , p6_a14 out nocopy VARCHAR2
650 , p6_a15 out nocopy VARCHAR2
651 , p6_a16 out nocopy VARCHAR2
652 , p6_a17 out nocopy VARCHAR2
653 , p6_a18 out nocopy VARCHAR2
654 , p6_a19 out nocopy VARCHAR2
655 , p6_a20 out nocopy VARCHAR2
656 , p6_a21 out nocopy VARCHAR2
657 , p6_a22 out nocopy VARCHAR2
658 , p6_a23 out nocopy VARCHAR2
659 , p6_a24 out nocopy VARCHAR2
660 , p6_a25 out nocopy VARCHAR2
661 , p6_a26 out nocopy VARCHAR2
662 , p6_a27 out nocopy VARCHAR2
663 , p6_a28 out nocopy NUMBER
664 , p6_a29 out nocopy NUMBER
665 , p6_a30 out nocopy NUMBER
666 , p6_a31 out nocopy DATE
667 , p6_a32 out nocopy NUMBER
668 , p6_a33 out nocopy DATE
669 , p6_a34 out nocopy NUMBER
670 , p6_a35 out nocopy DATE
671 , p6_a36 out nocopy NUMBER
672 )
673
674 as
675 ddp_vcrv_rec okl_vcr_pvt.vcrv_rec_type;
676 ddx_vcrv_rec okl_vcr_pvt.vcrv_rec_type;
677 ddindx binary_integer; indx binary_integer;
678 begin
679
680 -- copy data to the local IN or IN-OUT args, if any
681
682
683
684
685
686 ddp_vcrv_rec.id := p5_a0;
687 ddp_vcrv_rec.object_version_number := p5_a1;
688 ddp_vcrv_rec.change_request_number := p5_a2;
689 ddp_vcrv_rec.chr_id := p5_a3;
690 ddp_vcrv_rec.change_type_code := p5_a4;
691 ddp_vcrv_rec.status_code := p5_a5;
692 ddp_vcrv_rec.request_date := p5_a6;
693 ddp_vcrv_rec.effective_date := p5_a7;
694 ddp_vcrv_rec.approved_date := p5_a8;
695 ddp_vcrv_rec.rejected_date := p5_a9;
696 ddp_vcrv_rec.ineffective_date := p5_a10;
697 ddp_vcrv_rec.applied_date := p5_a11;
698 ddp_vcrv_rec.attribute_category := p5_a12;
699 ddp_vcrv_rec.attribute1 := p5_a13;
700 ddp_vcrv_rec.attribute2 := p5_a14;
701 ddp_vcrv_rec.attribute3 := p5_a15;
702 ddp_vcrv_rec.attribute4 := p5_a16;
703 ddp_vcrv_rec.attribute5 := p5_a17;
704 ddp_vcrv_rec.attribute6 := p5_a18;
705 ddp_vcrv_rec.attribute7 := p5_a19;
706 ddp_vcrv_rec.attribute8 := p5_a20;
707 ddp_vcrv_rec.attribute9 := p5_a21;
708 ddp_vcrv_rec.attribute10 := p5_a22;
709 ddp_vcrv_rec.attribute11 := p5_a23;
710 ddp_vcrv_rec.attribute12 := p5_a24;
711 ddp_vcrv_rec.attribute13 := p5_a25;
712 ddp_vcrv_rec.attribute14 := p5_a26;
713 ddp_vcrv_rec.attribute15 := p5_a27;
714 ddp_vcrv_rec.request_id := p5_a28;
715 ddp_vcrv_rec.program_application_id := p5_a29;
716 ddp_vcrv_rec.program_id := p5_a30;
717 ddp_vcrv_rec.program_update_date := p5_a31;
718 ddp_vcrv_rec.created_by := p5_a32;
719 ddp_vcrv_rec.creation_date := p5_a33;
720 ddp_vcrv_rec.last_updated_by := p5_a34;
721 ddp_vcrv_rec.last_update_date := p5_a35;
722 ddp_vcrv_rec.last_update_login := p5_a36;
723
724
725 -- here's the delegated call to the old PL/SQL routine
726 okl_vcr_pvt.insert_row(p_api_version,
727 p_init_msg_list,
728 x_return_status,
729 x_msg_count,
730 x_msg_data,
731 ddp_vcrv_rec,
732 ddx_vcrv_rec);
733
734 -- copy data back from the local variables to OUT or IN-OUT args, if any
735
736
737
738
739
740
741 p6_a0 := ddx_vcrv_rec.id;
742 p6_a1 := ddx_vcrv_rec.object_version_number;
743 p6_a2 := ddx_vcrv_rec.change_request_number;
744 p6_a3 := ddx_vcrv_rec.chr_id;
745 p6_a4 := ddx_vcrv_rec.change_type_code;
746 p6_a5 := ddx_vcrv_rec.status_code;
747 p6_a6 := ddx_vcrv_rec.request_date;
748 p6_a7 := ddx_vcrv_rec.effective_date;
749 p6_a8 := ddx_vcrv_rec.approved_date;
750 p6_a9 := ddx_vcrv_rec.rejected_date;
751 p6_a10 := ddx_vcrv_rec.ineffective_date;
752 p6_a11 := ddx_vcrv_rec.applied_date;
753 p6_a12 := ddx_vcrv_rec.attribute_category;
754 p6_a13 := ddx_vcrv_rec.attribute1;
755 p6_a14 := ddx_vcrv_rec.attribute2;
756 p6_a15 := ddx_vcrv_rec.attribute3;
757 p6_a16 := ddx_vcrv_rec.attribute4;
758 p6_a17 := ddx_vcrv_rec.attribute5;
759 p6_a18 := ddx_vcrv_rec.attribute6;
760 p6_a19 := ddx_vcrv_rec.attribute7;
761 p6_a20 := ddx_vcrv_rec.attribute8;
762 p6_a21 := ddx_vcrv_rec.attribute9;
763 p6_a22 := ddx_vcrv_rec.attribute10;
764 p6_a23 := ddx_vcrv_rec.attribute11;
765 p6_a24 := ddx_vcrv_rec.attribute12;
766 p6_a25 := ddx_vcrv_rec.attribute13;
767 p6_a26 := ddx_vcrv_rec.attribute14;
768 p6_a27 := ddx_vcrv_rec.attribute15;
769 p6_a28 := ddx_vcrv_rec.request_id;
770 p6_a29 := ddx_vcrv_rec.program_application_id;
771 p6_a30 := ddx_vcrv_rec.program_id;
772 p6_a31 := ddx_vcrv_rec.program_update_date;
773 p6_a32 := ddx_vcrv_rec.created_by;
774 p6_a33 := ddx_vcrv_rec.creation_date;
775 p6_a34 := ddx_vcrv_rec.last_updated_by;
776 p6_a35 := ddx_vcrv_rec.last_update_date;
777 p6_a36 := ddx_vcrv_rec.last_update_login;
778 end;
779
780 procedure insert_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_NUMBER_TABLE
788 , p5_a3 JTF_NUMBER_TABLE
789 , p5_a4 JTF_VARCHAR2_TABLE_100
790 , p5_a5 JTF_VARCHAR2_TABLE_100
791 , p5_a6 JTF_DATE_TABLE
792 , p5_a7 JTF_DATE_TABLE
793 , p5_a8 JTF_DATE_TABLE
794 , p5_a9 JTF_DATE_TABLE
795 , p5_a10 JTF_DATE_TABLE
796 , p5_a11 JTF_DATE_TABLE
797 , p5_a12 JTF_VARCHAR2_TABLE_100
798 , p5_a13 JTF_VARCHAR2_TABLE_500
799 , p5_a14 JTF_VARCHAR2_TABLE_500
800 , p5_a15 JTF_VARCHAR2_TABLE_500
801 , p5_a16 JTF_VARCHAR2_TABLE_500
802 , p5_a17 JTF_VARCHAR2_TABLE_500
803 , p5_a18 JTF_VARCHAR2_TABLE_500
804 , p5_a19 JTF_VARCHAR2_TABLE_500
805 , p5_a20 JTF_VARCHAR2_TABLE_500
806 , p5_a21 JTF_VARCHAR2_TABLE_500
807 , p5_a22 JTF_VARCHAR2_TABLE_500
808 , p5_a23 JTF_VARCHAR2_TABLE_500
809 , p5_a24 JTF_VARCHAR2_TABLE_500
810 , p5_a25 JTF_VARCHAR2_TABLE_500
811 , p5_a26 JTF_VARCHAR2_TABLE_500
812 , p5_a27 JTF_VARCHAR2_TABLE_500
813 , p5_a28 JTF_NUMBER_TABLE
814 , p5_a29 JTF_NUMBER_TABLE
815 , p5_a30 JTF_NUMBER_TABLE
816 , p5_a31 JTF_DATE_TABLE
817 , p5_a32 JTF_NUMBER_TABLE
818 , p5_a33 JTF_DATE_TABLE
819 , p5_a34 JTF_NUMBER_TABLE
820 , p5_a35 JTF_DATE_TABLE
821 , p5_a36 JTF_NUMBER_TABLE
822 , p6_a0 out nocopy JTF_NUMBER_TABLE
823 , p6_a1 out nocopy JTF_NUMBER_TABLE
824 , p6_a2 out nocopy JTF_NUMBER_TABLE
825 , p6_a3 out nocopy JTF_NUMBER_TABLE
826 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
827 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
828 , p6_a6 out nocopy JTF_DATE_TABLE
829 , p6_a7 out nocopy JTF_DATE_TABLE
830 , p6_a8 out nocopy JTF_DATE_TABLE
831 , p6_a9 out nocopy JTF_DATE_TABLE
832 , p6_a10 out nocopy JTF_DATE_TABLE
833 , p6_a11 out nocopy JTF_DATE_TABLE
834 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
835 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
836 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
837 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
838 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
839 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
840 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
841 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
842 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
843 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
844 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
845 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
846 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
847 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
848 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
849 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
850 , p6_a28 out nocopy JTF_NUMBER_TABLE
851 , p6_a29 out nocopy JTF_NUMBER_TABLE
852 , p6_a30 out nocopy JTF_NUMBER_TABLE
853 , p6_a31 out nocopy JTF_DATE_TABLE
854 , p6_a32 out nocopy JTF_NUMBER_TABLE
855 , p6_a33 out nocopy JTF_DATE_TABLE
856 , p6_a34 out nocopy JTF_NUMBER_TABLE
857 , p6_a35 out nocopy JTF_DATE_TABLE
858 , p6_a36 out nocopy JTF_NUMBER_TABLE
859 , p7_a0 in out nocopy JTF_NUMBER_TABLE
860 , p7_a1 in out nocopy JTF_VARCHAR2_TABLE_100
861 , p7_a2 in out nocopy JTF_NUMBER_TABLE
862 , p7_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
863 , p7_a4 in out nocopy JTF_NUMBER_TABLE
864 , p7_a5 in out nocopy JTF_VARCHAR2_TABLE_100
865 , p7_a6 in out nocopy JTF_VARCHAR2_TABLE_100
866 )
867
868 as
869 ddp_vcrv_tbl okl_vcr_pvt.vcrv_tbl_type;
870 ddx_vcrv_tbl okl_vcr_pvt.vcrv_tbl_type;
871 ddpx_error_tbl okl_api.error_tbl_type;
872 ddindx binary_integer; indx binary_integer;
873 begin
874
875 -- copy data to the local IN or IN-OUT args, if any
876
877
878
879
880
881 okl_vcr_pvt_w.rosetta_table_copy_in_p2(ddp_vcrv_tbl, p5_a0
882 , p5_a1
883 , p5_a2
884 , p5_a3
885 , p5_a4
886 , p5_a5
887 , p5_a6
888 , p5_a7
889 , p5_a8
890 , p5_a9
891 , p5_a10
892 , p5_a11
893 , p5_a12
894 , p5_a13
895 , p5_a14
896 , p5_a15
897 , p5_a16
898 , p5_a17
899 , p5_a18
900 , p5_a19
901 , p5_a20
902 , p5_a21
903 , p5_a22
904 , p5_a23
905 , p5_a24
906 , p5_a25
907 , p5_a26
908 , p5_a27
909 , p5_a28
910 , p5_a29
911 , p5_a30
912 , p5_a31
913 , p5_a32
914 , p5_a33
915 , p5_a34
916 , p5_a35
917 , p5_a36
918 );
919
920
921 okl_api_w.rosetta_table_copy_in_p3(ddpx_error_tbl, p7_a0
922 , p7_a1
923 , p7_a2
924 , p7_a3
925 , p7_a4
926 , p7_a5
927 , p7_a6
928 );
929
930 -- here's the delegated call to the old PL/SQL routine
931 okl_vcr_pvt.insert_row(p_api_version,
932 p_init_msg_list,
933 x_return_status,
934 x_msg_count,
935 x_msg_data,
936 ddp_vcrv_tbl,
937 ddx_vcrv_tbl,
938 ddpx_error_tbl);
939
940 -- copy data back from the local variables to OUT or IN-OUT args, if any
941
942
943
944
945
946
947 okl_vcr_pvt_w.rosetta_table_copy_out_p2(ddx_vcrv_tbl, p6_a0
948 , p6_a1
949 , p6_a2
950 , p6_a3
951 , p6_a4
952 , p6_a5
953 , p6_a6
954 , p6_a7
955 , p6_a8
956 , p6_a9
957 , p6_a10
958 , p6_a11
959 , p6_a12
960 , p6_a13
961 , p6_a14
962 , p6_a15
963 , p6_a16
964 , p6_a17
965 , p6_a18
966 , p6_a19
967 , p6_a20
968 , p6_a21
969 , p6_a22
970 , p6_a23
971 , p6_a24
972 , p6_a25
973 , p6_a26
974 , p6_a27
975 , p6_a28
976 , p6_a29
977 , p6_a30
978 , p6_a31
979 , p6_a32
980 , p6_a33
981 , p6_a34
982 , p6_a35
983 , p6_a36
984 );
985
986 okl_api_w.rosetta_table_copy_out_p3(ddpx_error_tbl, p7_a0
987 , p7_a1
988 , p7_a2
989 , p7_a3
990 , p7_a4
991 , p7_a5
992 , p7_a6
993 );
994 end;
995
996 procedure insert_row(p_api_version NUMBER
997 , p_init_msg_list VARCHAR2
998 , x_return_status out nocopy VARCHAR2
999 , x_msg_count out nocopy NUMBER
1000 , x_msg_data out nocopy VARCHAR2
1001 , p5_a0 JTF_NUMBER_TABLE
1002 , p5_a1 JTF_NUMBER_TABLE
1003 , p5_a2 JTF_NUMBER_TABLE
1004 , p5_a3 JTF_NUMBER_TABLE
1005 , p5_a4 JTF_VARCHAR2_TABLE_100
1006 , p5_a5 JTF_VARCHAR2_TABLE_100
1007 , p5_a6 JTF_DATE_TABLE
1008 , p5_a7 JTF_DATE_TABLE
1009 , p5_a8 JTF_DATE_TABLE
1010 , p5_a9 JTF_DATE_TABLE
1011 , p5_a10 JTF_DATE_TABLE
1012 , p5_a11 JTF_DATE_TABLE
1013 , p5_a12 JTF_VARCHAR2_TABLE_100
1014 , p5_a13 JTF_VARCHAR2_TABLE_500
1015 , p5_a14 JTF_VARCHAR2_TABLE_500
1016 , p5_a15 JTF_VARCHAR2_TABLE_500
1017 , p5_a16 JTF_VARCHAR2_TABLE_500
1018 , p5_a17 JTF_VARCHAR2_TABLE_500
1019 , p5_a18 JTF_VARCHAR2_TABLE_500
1020 , p5_a19 JTF_VARCHAR2_TABLE_500
1021 , p5_a20 JTF_VARCHAR2_TABLE_500
1022 , p5_a21 JTF_VARCHAR2_TABLE_500
1023 , p5_a22 JTF_VARCHAR2_TABLE_500
1024 , p5_a23 JTF_VARCHAR2_TABLE_500
1025 , p5_a24 JTF_VARCHAR2_TABLE_500
1026 , p5_a25 JTF_VARCHAR2_TABLE_500
1027 , p5_a26 JTF_VARCHAR2_TABLE_500
1028 , p5_a27 JTF_VARCHAR2_TABLE_500
1029 , p5_a28 JTF_NUMBER_TABLE
1030 , p5_a29 JTF_NUMBER_TABLE
1031 , p5_a30 JTF_NUMBER_TABLE
1032 , p5_a31 JTF_DATE_TABLE
1033 , p5_a32 JTF_NUMBER_TABLE
1034 , p5_a33 JTF_DATE_TABLE
1035 , p5_a34 JTF_NUMBER_TABLE
1036 , p5_a35 JTF_DATE_TABLE
1037 , p5_a36 JTF_NUMBER_TABLE
1038 , p6_a0 out nocopy JTF_NUMBER_TABLE
1039 , p6_a1 out nocopy JTF_NUMBER_TABLE
1040 , p6_a2 out nocopy JTF_NUMBER_TABLE
1041 , p6_a3 out nocopy JTF_NUMBER_TABLE
1042 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
1043 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
1044 , p6_a6 out nocopy JTF_DATE_TABLE
1045 , p6_a7 out nocopy JTF_DATE_TABLE
1046 , p6_a8 out nocopy JTF_DATE_TABLE
1047 , p6_a9 out nocopy JTF_DATE_TABLE
1048 , p6_a10 out nocopy JTF_DATE_TABLE
1049 , p6_a11 out nocopy JTF_DATE_TABLE
1050 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
1051 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
1052 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
1053 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
1054 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
1055 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
1056 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1057 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1058 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1059 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1060 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1061 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
1062 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
1063 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
1064 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
1065 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
1066 , p6_a28 out nocopy JTF_NUMBER_TABLE
1067 , p6_a29 out nocopy JTF_NUMBER_TABLE
1068 , p6_a30 out nocopy JTF_NUMBER_TABLE
1069 , p6_a31 out nocopy JTF_DATE_TABLE
1070 , p6_a32 out nocopy JTF_NUMBER_TABLE
1071 , p6_a33 out nocopy JTF_DATE_TABLE
1072 , p6_a34 out nocopy JTF_NUMBER_TABLE
1073 , p6_a35 out nocopy JTF_DATE_TABLE
1074 , p6_a36 out nocopy JTF_NUMBER_TABLE
1075 )
1076
1077 as
1078 ddp_vcrv_tbl okl_vcr_pvt.vcrv_tbl_type;
1079 ddx_vcrv_tbl okl_vcr_pvt.vcrv_tbl_type;
1080 ddindx binary_integer; indx binary_integer;
1081 begin
1082
1083 -- copy data to the local IN or IN-OUT args, if any
1084
1085
1086
1087
1088
1089 okl_vcr_pvt_w.rosetta_table_copy_in_p2(ddp_vcrv_tbl, p5_a0
1090 , p5_a1
1091 , p5_a2
1092 , p5_a3
1093 , p5_a4
1094 , p5_a5
1095 , p5_a6
1096 , p5_a7
1097 , p5_a8
1098 , p5_a9
1099 , p5_a10
1100 , p5_a11
1101 , p5_a12
1102 , p5_a13
1103 , p5_a14
1104 , p5_a15
1105 , p5_a16
1106 , p5_a17
1107 , p5_a18
1108 , p5_a19
1109 , p5_a20
1110 , p5_a21
1111 , p5_a22
1112 , p5_a23
1113 , p5_a24
1114 , p5_a25
1115 , p5_a26
1116 , p5_a27
1117 , p5_a28
1118 , p5_a29
1119 , p5_a30
1120 , p5_a31
1121 , p5_a32
1122 , p5_a33
1123 , p5_a34
1124 , p5_a35
1125 , p5_a36
1126 );
1127
1128
1129 -- here's the delegated call to the old PL/SQL routine
1130 okl_vcr_pvt.insert_row(p_api_version,
1131 p_init_msg_list,
1132 x_return_status,
1133 x_msg_count,
1134 x_msg_data,
1135 ddp_vcrv_tbl,
1136 ddx_vcrv_tbl);
1137
1138 -- copy data back from the local variables to OUT or IN-OUT args, if any
1139
1140
1141
1142
1143
1144
1145 okl_vcr_pvt_w.rosetta_table_copy_out_p2(ddx_vcrv_tbl, p6_a0
1146 , p6_a1
1147 , p6_a2
1148 , p6_a3
1149 , p6_a4
1150 , p6_a5
1151 , p6_a6
1152 , p6_a7
1153 , p6_a8
1154 , p6_a9
1155 , p6_a10
1156 , p6_a11
1157 , p6_a12
1158 , p6_a13
1159 , p6_a14
1160 , p6_a15
1161 , p6_a16
1162 , p6_a17
1163 , p6_a18
1164 , p6_a19
1165 , p6_a20
1166 , p6_a21
1167 , p6_a22
1168 , p6_a23
1169 , p6_a24
1170 , p6_a25
1171 , p6_a26
1172 , p6_a27
1173 , p6_a28
1174 , p6_a29
1175 , p6_a30
1176 , p6_a31
1177 , p6_a32
1178 , p6_a33
1179 , p6_a34
1180 , p6_a35
1181 , p6_a36
1182 );
1183 end;
1184
1185 procedure lock_row(p_api_version NUMBER
1186 , p_init_msg_list VARCHAR2
1187 , x_return_status out nocopy VARCHAR2
1188 , x_msg_count out nocopy NUMBER
1189 , x_msg_data out nocopy VARCHAR2
1190 , p5_a0 NUMBER
1191 , p5_a1 NUMBER
1192 , p5_a2 NUMBER
1193 , p5_a3 NUMBER
1194 , p5_a4 VARCHAR2
1195 , p5_a5 VARCHAR2
1196 , p5_a6 DATE
1197 , p5_a7 DATE
1198 , p5_a8 DATE
1199 , p5_a9 DATE
1200 , p5_a10 DATE
1201 , p5_a11 DATE
1202 , p5_a12 VARCHAR2
1203 , p5_a13 VARCHAR2
1204 , p5_a14 VARCHAR2
1205 , p5_a15 VARCHAR2
1206 , p5_a16 VARCHAR2
1207 , p5_a17 VARCHAR2
1208 , p5_a18 VARCHAR2
1209 , p5_a19 VARCHAR2
1210 , p5_a20 VARCHAR2
1211 , p5_a21 VARCHAR2
1212 , p5_a22 VARCHAR2
1213 , p5_a23 VARCHAR2
1214 , p5_a24 VARCHAR2
1215 , p5_a25 VARCHAR2
1216 , p5_a26 VARCHAR2
1217 , p5_a27 VARCHAR2
1218 , p5_a28 NUMBER
1219 , p5_a29 NUMBER
1220 , p5_a30 NUMBER
1221 , p5_a31 DATE
1222 , p5_a32 NUMBER
1223 , p5_a33 DATE
1224 , p5_a34 NUMBER
1225 , p5_a35 DATE
1226 , p5_a36 NUMBER
1227 )
1228
1229 as
1230 ddp_vcrv_rec okl_vcr_pvt.vcrv_rec_type;
1231 ddindx binary_integer; indx binary_integer;
1232 begin
1233
1234 -- copy data to the local IN or IN-OUT args, if any
1235
1236
1237
1238
1239
1240 ddp_vcrv_rec.id := p5_a0;
1241 ddp_vcrv_rec.object_version_number := p5_a1;
1242 ddp_vcrv_rec.change_request_number := p5_a2;
1243 ddp_vcrv_rec.chr_id := p5_a3;
1244 ddp_vcrv_rec.change_type_code := p5_a4;
1245 ddp_vcrv_rec.status_code := p5_a5;
1246 ddp_vcrv_rec.request_date := p5_a6;
1247 ddp_vcrv_rec.effective_date := p5_a7;
1248 ddp_vcrv_rec.approved_date := p5_a8;
1249 ddp_vcrv_rec.rejected_date := p5_a9;
1250 ddp_vcrv_rec.ineffective_date := p5_a10;
1251 ddp_vcrv_rec.applied_date := p5_a11;
1252 ddp_vcrv_rec.attribute_category := p5_a12;
1253 ddp_vcrv_rec.attribute1 := p5_a13;
1254 ddp_vcrv_rec.attribute2 := p5_a14;
1255 ddp_vcrv_rec.attribute3 := p5_a15;
1256 ddp_vcrv_rec.attribute4 := p5_a16;
1257 ddp_vcrv_rec.attribute5 := p5_a17;
1258 ddp_vcrv_rec.attribute6 := p5_a18;
1259 ddp_vcrv_rec.attribute7 := p5_a19;
1260 ddp_vcrv_rec.attribute8 := p5_a20;
1261 ddp_vcrv_rec.attribute9 := p5_a21;
1262 ddp_vcrv_rec.attribute10 := p5_a22;
1263 ddp_vcrv_rec.attribute11 := p5_a23;
1264 ddp_vcrv_rec.attribute12 := p5_a24;
1265 ddp_vcrv_rec.attribute13 := p5_a25;
1266 ddp_vcrv_rec.attribute14 := p5_a26;
1267 ddp_vcrv_rec.attribute15 := p5_a27;
1268 ddp_vcrv_rec.request_id := p5_a28;
1269 ddp_vcrv_rec.program_application_id := p5_a29;
1270 ddp_vcrv_rec.program_id := p5_a30;
1271 ddp_vcrv_rec.program_update_date := p5_a31;
1272 ddp_vcrv_rec.created_by := p5_a32;
1273 ddp_vcrv_rec.creation_date := p5_a33;
1274 ddp_vcrv_rec.last_updated_by := p5_a34;
1275 ddp_vcrv_rec.last_update_date := p5_a35;
1276 ddp_vcrv_rec.last_update_login := p5_a36;
1277
1278 -- here's the delegated call to the old PL/SQL routine
1279 okl_vcr_pvt.lock_row(p_api_version,
1280 p_init_msg_list,
1281 x_return_status,
1282 x_msg_count,
1283 x_msg_data,
1284 ddp_vcrv_rec);
1285
1286 -- copy data back from the local variables to OUT or IN-OUT args, if any
1287
1288
1289
1290
1291
1292 end;
1293
1294 procedure lock_row(p_api_version NUMBER
1295 , p_init_msg_list VARCHAR2
1296 , x_return_status out nocopy VARCHAR2
1297 , x_msg_count out nocopy NUMBER
1298 , x_msg_data out nocopy VARCHAR2
1299 , p5_a0 JTF_NUMBER_TABLE
1300 , p5_a1 JTF_NUMBER_TABLE
1301 , p5_a2 JTF_NUMBER_TABLE
1302 , p5_a3 JTF_NUMBER_TABLE
1303 , p5_a4 JTF_VARCHAR2_TABLE_100
1304 , p5_a5 JTF_VARCHAR2_TABLE_100
1305 , p5_a6 JTF_DATE_TABLE
1306 , p5_a7 JTF_DATE_TABLE
1307 , p5_a8 JTF_DATE_TABLE
1308 , p5_a9 JTF_DATE_TABLE
1309 , p5_a10 JTF_DATE_TABLE
1310 , p5_a11 JTF_DATE_TABLE
1311 , p5_a12 JTF_VARCHAR2_TABLE_100
1312 , p5_a13 JTF_VARCHAR2_TABLE_500
1313 , p5_a14 JTF_VARCHAR2_TABLE_500
1314 , p5_a15 JTF_VARCHAR2_TABLE_500
1315 , p5_a16 JTF_VARCHAR2_TABLE_500
1316 , p5_a17 JTF_VARCHAR2_TABLE_500
1317 , p5_a18 JTF_VARCHAR2_TABLE_500
1318 , p5_a19 JTF_VARCHAR2_TABLE_500
1319 , p5_a20 JTF_VARCHAR2_TABLE_500
1320 , p5_a21 JTF_VARCHAR2_TABLE_500
1321 , p5_a22 JTF_VARCHAR2_TABLE_500
1322 , p5_a23 JTF_VARCHAR2_TABLE_500
1323 , p5_a24 JTF_VARCHAR2_TABLE_500
1324 , p5_a25 JTF_VARCHAR2_TABLE_500
1325 , p5_a26 JTF_VARCHAR2_TABLE_500
1326 , p5_a27 JTF_VARCHAR2_TABLE_500
1327 , p5_a28 JTF_NUMBER_TABLE
1328 , p5_a29 JTF_NUMBER_TABLE
1329 , p5_a30 JTF_NUMBER_TABLE
1330 , p5_a31 JTF_DATE_TABLE
1331 , p5_a32 JTF_NUMBER_TABLE
1332 , p5_a33 JTF_DATE_TABLE
1333 , p5_a34 JTF_NUMBER_TABLE
1334 , p5_a35 JTF_DATE_TABLE
1335 , p5_a36 JTF_NUMBER_TABLE
1336 , p6_a0 in out nocopy JTF_NUMBER_TABLE
1337 , p6_a1 in out nocopy JTF_VARCHAR2_TABLE_100
1338 , p6_a2 in out nocopy JTF_NUMBER_TABLE
1339 , p6_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
1340 , p6_a4 in out nocopy JTF_NUMBER_TABLE
1341 , p6_a5 in out nocopy JTF_VARCHAR2_TABLE_100
1342 , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_100
1343 )
1344
1345 as
1346 ddp_vcrv_tbl okl_vcr_pvt.vcrv_tbl_type;
1347 ddpx_error_tbl okl_api.error_tbl_type;
1348 ddindx binary_integer; indx binary_integer;
1349 begin
1350
1351 -- copy data to the local IN or IN-OUT args, if any
1352
1353
1354
1355
1356
1357 okl_vcr_pvt_w.rosetta_table_copy_in_p2(ddp_vcrv_tbl, p5_a0
1358 , p5_a1
1359 , p5_a2
1360 , p5_a3
1361 , p5_a4
1362 , p5_a5
1363 , p5_a6
1364 , p5_a7
1365 , p5_a8
1366 , p5_a9
1367 , p5_a10
1368 , p5_a11
1369 , p5_a12
1370 , p5_a13
1371 , p5_a14
1372 , p5_a15
1373 , p5_a16
1374 , p5_a17
1375 , p5_a18
1376 , p5_a19
1377 , p5_a20
1378 , p5_a21
1379 , p5_a22
1380 , p5_a23
1381 , p5_a24
1382 , p5_a25
1383 , p5_a26
1384 , p5_a27
1385 , p5_a28
1386 , p5_a29
1387 , p5_a30
1388 , p5_a31
1389 , p5_a32
1390 , p5_a33
1391 , p5_a34
1392 , p5_a35
1393 , p5_a36
1394 );
1395
1396 okl_api_w.rosetta_table_copy_in_p3(ddpx_error_tbl, p6_a0
1397 , p6_a1
1398 , p6_a2
1399 , p6_a3
1400 , p6_a4
1401 , p6_a5
1402 , p6_a6
1403 );
1404
1405 -- here's the delegated call to the old PL/SQL routine
1406 okl_vcr_pvt.lock_row(p_api_version,
1407 p_init_msg_list,
1408 x_return_status,
1409 x_msg_count,
1410 x_msg_data,
1411 ddp_vcrv_tbl,
1412 ddpx_error_tbl);
1413
1414 -- copy data back from the local variables to OUT or IN-OUT args, if any
1415
1416
1417
1418
1419
1420
1421 okl_api_w.rosetta_table_copy_out_p3(ddpx_error_tbl, p6_a0
1422 , p6_a1
1423 , p6_a2
1424 , p6_a3
1425 , p6_a4
1426 , p6_a5
1427 , p6_a6
1428 );
1429 end;
1430
1431 procedure lock_row(p_api_version NUMBER
1432 , p_init_msg_list VARCHAR2
1433 , x_return_status out nocopy VARCHAR2
1434 , x_msg_count out nocopy NUMBER
1435 , x_msg_data out nocopy VARCHAR2
1436 , p5_a0 JTF_NUMBER_TABLE
1437 , p5_a1 JTF_NUMBER_TABLE
1438 , p5_a2 JTF_NUMBER_TABLE
1439 , p5_a3 JTF_NUMBER_TABLE
1440 , p5_a4 JTF_VARCHAR2_TABLE_100
1441 , p5_a5 JTF_VARCHAR2_TABLE_100
1442 , p5_a6 JTF_DATE_TABLE
1443 , p5_a7 JTF_DATE_TABLE
1444 , p5_a8 JTF_DATE_TABLE
1445 , p5_a9 JTF_DATE_TABLE
1446 , p5_a10 JTF_DATE_TABLE
1447 , p5_a11 JTF_DATE_TABLE
1448 , p5_a12 JTF_VARCHAR2_TABLE_100
1449 , p5_a13 JTF_VARCHAR2_TABLE_500
1450 , p5_a14 JTF_VARCHAR2_TABLE_500
1451 , p5_a15 JTF_VARCHAR2_TABLE_500
1452 , p5_a16 JTF_VARCHAR2_TABLE_500
1453 , p5_a17 JTF_VARCHAR2_TABLE_500
1454 , p5_a18 JTF_VARCHAR2_TABLE_500
1455 , p5_a19 JTF_VARCHAR2_TABLE_500
1456 , p5_a20 JTF_VARCHAR2_TABLE_500
1457 , p5_a21 JTF_VARCHAR2_TABLE_500
1458 , p5_a22 JTF_VARCHAR2_TABLE_500
1459 , p5_a23 JTF_VARCHAR2_TABLE_500
1460 , p5_a24 JTF_VARCHAR2_TABLE_500
1461 , p5_a25 JTF_VARCHAR2_TABLE_500
1462 , p5_a26 JTF_VARCHAR2_TABLE_500
1463 , p5_a27 JTF_VARCHAR2_TABLE_500
1464 , p5_a28 JTF_NUMBER_TABLE
1465 , p5_a29 JTF_NUMBER_TABLE
1466 , p5_a30 JTF_NUMBER_TABLE
1467 , p5_a31 JTF_DATE_TABLE
1468 , p5_a32 JTF_NUMBER_TABLE
1469 , p5_a33 JTF_DATE_TABLE
1470 , p5_a34 JTF_NUMBER_TABLE
1471 , p5_a35 JTF_DATE_TABLE
1472 , p5_a36 JTF_NUMBER_TABLE
1473 )
1474
1475 as
1476 ddp_vcrv_tbl okl_vcr_pvt.vcrv_tbl_type;
1477 ddindx binary_integer; indx binary_integer;
1478 begin
1479
1480 -- copy data to the local IN or IN-OUT args, if any
1481
1482
1483
1484
1485
1486 okl_vcr_pvt_w.rosetta_table_copy_in_p2(ddp_vcrv_tbl, p5_a0
1487 , p5_a1
1488 , p5_a2
1489 , p5_a3
1490 , p5_a4
1491 , p5_a5
1492 , p5_a6
1493 , p5_a7
1494 , p5_a8
1495 , p5_a9
1496 , p5_a10
1497 , p5_a11
1498 , p5_a12
1499 , p5_a13
1500 , p5_a14
1501 , p5_a15
1502 , p5_a16
1503 , p5_a17
1504 , p5_a18
1505 , p5_a19
1506 , p5_a20
1507 , p5_a21
1508 , p5_a22
1509 , p5_a23
1510 , p5_a24
1511 , p5_a25
1512 , p5_a26
1513 , p5_a27
1514 , p5_a28
1515 , p5_a29
1516 , p5_a30
1517 , p5_a31
1518 , p5_a32
1519 , p5_a33
1520 , p5_a34
1521 , p5_a35
1522 , p5_a36
1523 );
1524
1525 -- here's the delegated call to the old PL/SQL routine
1526 okl_vcr_pvt.lock_row(p_api_version,
1527 p_init_msg_list,
1528 x_return_status,
1529 x_msg_count,
1530 x_msg_data,
1531 ddp_vcrv_tbl);
1532
1533 -- copy data back from the local variables to OUT or IN-OUT args, if any
1534
1535
1536
1537
1538
1539 end;
1540
1541 procedure update_row(p_api_version NUMBER
1542 , p_init_msg_list VARCHAR2
1543 , x_return_status out nocopy VARCHAR2
1544 , x_msg_count out nocopy NUMBER
1545 , x_msg_data out nocopy VARCHAR2
1546 , p5_a0 NUMBER
1547 , p5_a1 NUMBER
1548 , p5_a2 NUMBER
1549 , p5_a3 NUMBER
1550 , p5_a4 VARCHAR2
1551 , p5_a5 VARCHAR2
1552 , p5_a6 DATE
1553 , p5_a7 DATE
1554 , p5_a8 DATE
1555 , p5_a9 DATE
1556 , p5_a10 DATE
1557 , p5_a11 DATE
1558 , p5_a12 VARCHAR2
1559 , p5_a13 VARCHAR2
1560 , p5_a14 VARCHAR2
1561 , p5_a15 VARCHAR2
1562 , p5_a16 VARCHAR2
1563 , p5_a17 VARCHAR2
1564 , p5_a18 VARCHAR2
1565 , p5_a19 VARCHAR2
1566 , p5_a20 VARCHAR2
1567 , p5_a21 VARCHAR2
1568 , p5_a22 VARCHAR2
1569 , p5_a23 VARCHAR2
1570 , p5_a24 VARCHAR2
1571 , p5_a25 VARCHAR2
1572 , p5_a26 VARCHAR2
1573 , p5_a27 VARCHAR2
1574 , p5_a28 NUMBER
1575 , p5_a29 NUMBER
1576 , p5_a30 NUMBER
1577 , p5_a31 DATE
1578 , p5_a32 NUMBER
1579 , p5_a33 DATE
1580 , p5_a34 NUMBER
1581 , p5_a35 DATE
1582 , p5_a36 NUMBER
1583 , p6_a0 out nocopy NUMBER
1584 , p6_a1 out nocopy NUMBER
1585 , p6_a2 out nocopy NUMBER
1586 , p6_a3 out nocopy NUMBER
1587 , p6_a4 out nocopy VARCHAR2
1588 , p6_a5 out nocopy VARCHAR2
1589 , p6_a6 out nocopy DATE
1590 , p6_a7 out nocopy DATE
1591 , p6_a8 out nocopy DATE
1592 , p6_a9 out nocopy DATE
1593 , p6_a10 out nocopy DATE
1594 , p6_a11 out nocopy DATE
1595 , p6_a12 out nocopy VARCHAR2
1596 , p6_a13 out nocopy VARCHAR2
1597 , p6_a14 out nocopy VARCHAR2
1598 , p6_a15 out nocopy VARCHAR2
1599 , p6_a16 out nocopy VARCHAR2
1600 , p6_a17 out nocopy VARCHAR2
1601 , p6_a18 out nocopy VARCHAR2
1602 , p6_a19 out nocopy VARCHAR2
1603 , p6_a20 out nocopy VARCHAR2
1604 , p6_a21 out nocopy VARCHAR2
1605 , p6_a22 out nocopy VARCHAR2
1606 , p6_a23 out nocopy VARCHAR2
1607 , p6_a24 out nocopy VARCHAR2
1608 , p6_a25 out nocopy VARCHAR2
1609 , p6_a26 out nocopy VARCHAR2
1610 , p6_a27 out nocopy VARCHAR2
1611 , p6_a28 out nocopy NUMBER
1612 , p6_a29 out nocopy NUMBER
1613 , p6_a30 out nocopy NUMBER
1614 , p6_a31 out nocopy DATE
1615 , p6_a32 out nocopy NUMBER
1616 , p6_a33 out nocopy DATE
1617 , p6_a34 out nocopy NUMBER
1618 , p6_a35 out nocopy DATE
1619 , p6_a36 out nocopy NUMBER
1620 )
1621
1622 as
1623 ddp_vcrv_rec okl_vcr_pvt.vcrv_rec_type;
1624 ddx_vcrv_rec okl_vcr_pvt.vcrv_rec_type;
1625 ddindx binary_integer; indx binary_integer;
1626 begin
1627
1628 -- copy data to the local IN or IN-OUT args, if any
1629
1630
1631
1632
1633
1634 ddp_vcrv_rec.id := p5_a0;
1635 ddp_vcrv_rec.object_version_number := p5_a1;
1636 ddp_vcrv_rec.change_request_number := p5_a2;
1637 ddp_vcrv_rec.chr_id := p5_a3;
1638 ddp_vcrv_rec.change_type_code := p5_a4;
1639 ddp_vcrv_rec.status_code := p5_a5;
1640 ddp_vcrv_rec.request_date := p5_a6;
1641 ddp_vcrv_rec.effective_date := p5_a7;
1642 ddp_vcrv_rec.approved_date := p5_a8;
1643 ddp_vcrv_rec.rejected_date := p5_a9;
1644 ddp_vcrv_rec.ineffective_date := p5_a10;
1645 ddp_vcrv_rec.applied_date := p5_a11;
1646 ddp_vcrv_rec.attribute_category := p5_a12;
1647 ddp_vcrv_rec.attribute1 := p5_a13;
1648 ddp_vcrv_rec.attribute2 := p5_a14;
1649 ddp_vcrv_rec.attribute3 := p5_a15;
1650 ddp_vcrv_rec.attribute4 := p5_a16;
1651 ddp_vcrv_rec.attribute5 := p5_a17;
1652 ddp_vcrv_rec.attribute6 := p5_a18;
1653 ddp_vcrv_rec.attribute7 := p5_a19;
1654 ddp_vcrv_rec.attribute8 := p5_a20;
1655 ddp_vcrv_rec.attribute9 := p5_a21;
1656 ddp_vcrv_rec.attribute10 := p5_a22;
1657 ddp_vcrv_rec.attribute11 := p5_a23;
1658 ddp_vcrv_rec.attribute12 := p5_a24;
1659 ddp_vcrv_rec.attribute13 := p5_a25;
1660 ddp_vcrv_rec.attribute14 := p5_a26;
1661 ddp_vcrv_rec.attribute15 := p5_a27;
1662 ddp_vcrv_rec.request_id := p5_a28;
1663 ddp_vcrv_rec.program_application_id := p5_a29;
1664 ddp_vcrv_rec.program_id := p5_a30;
1665 ddp_vcrv_rec.program_update_date := p5_a31;
1666 ddp_vcrv_rec.created_by := p5_a32;
1667 ddp_vcrv_rec.creation_date := p5_a33;
1668 ddp_vcrv_rec.last_updated_by := p5_a34;
1669 ddp_vcrv_rec.last_update_date := p5_a35;
1670 ddp_vcrv_rec.last_update_login := p5_a36;
1671
1672
1673 -- here's the delegated call to the old PL/SQL routine
1674 okl_vcr_pvt.update_row(p_api_version,
1675 p_init_msg_list,
1676 x_return_status,
1677 x_msg_count,
1678 x_msg_data,
1679 ddp_vcrv_rec,
1680 ddx_vcrv_rec);
1681
1682 -- copy data back from the local variables to OUT or IN-OUT args, if any
1683
1684
1685
1686
1687
1688
1689 p6_a0 := ddx_vcrv_rec.id;
1690 p6_a1 := ddx_vcrv_rec.object_version_number;
1691 p6_a2 := ddx_vcrv_rec.change_request_number;
1692 p6_a3 := ddx_vcrv_rec.chr_id;
1693 p6_a4 := ddx_vcrv_rec.change_type_code;
1694 p6_a5 := ddx_vcrv_rec.status_code;
1695 p6_a6 := ddx_vcrv_rec.request_date;
1696 p6_a7 := ddx_vcrv_rec.effective_date;
1697 p6_a8 := ddx_vcrv_rec.approved_date;
1698 p6_a9 := ddx_vcrv_rec.rejected_date;
1699 p6_a10 := ddx_vcrv_rec.ineffective_date;
1700 p6_a11 := ddx_vcrv_rec.applied_date;
1701 p6_a12 := ddx_vcrv_rec.attribute_category;
1702 p6_a13 := ddx_vcrv_rec.attribute1;
1703 p6_a14 := ddx_vcrv_rec.attribute2;
1704 p6_a15 := ddx_vcrv_rec.attribute3;
1705 p6_a16 := ddx_vcrv_rec.attribute4;
1706 p6_a17 := ddx_vcrv_rec.attribute5;
1707 p6_a18 := ddx_vcrv_rec.attribute6;
1708 p6_a19 := ddx_vcrv_rec.attribute7;
1709 p6_a20 := ddx_vcrv_rec.attribute8;
1710 p6_a21 := ddx_vcrv_rec.attribute9;
1711 p6_a22 := ddx_vcrv_rec.attribute10;
1712 p6_a23 := ddx_vcrv_rec.attribute11;
1713 p6_a24 := ddx_vcrv_rec.attribute12;
1714 p6_a25 := ddx_vcrv_rec.attribute13;
1715 p6_a26 := ddx_vcrv_rec.attribute14;
1716 p6_a27 := ddx_vcrv_rec.attribute15;
1717 p6_a28 := ddx_vcrv_rec.request_id;
1718 p6_a29 := ddx_vcrv_rec.program_application_id;
1719 p6_a30 := ddx_vcrv_rec.program_id;
1720 p6_a31 := ddx_vcrv_rec.program_update_date;
1721 p6_a32 := ddx_vcrv_rec.created_by;
1722 p6_a33 := ddx_vcrv_rec.creation_date;
1723 p6_a34 := ddx_vcrv_rec.last_updated_by;
1724 p6_a35 := ddx_vcrv_rec.last_update_date;
1725 p6_a36 := ddx_vcrv_rec.last_update_login;
1726 end;
1727
1728 procedure update_row(p_api_version NUMBER
1729 , p_init_msg_list VARCHAR2
1730 , x_return_status out nocopy VARCHAR2
1731 , x_msg_count out nocopy NUMBER
1732 , x_msg_data out nocopy VARCHAR2
1733 , p5_a0 JTF_NUMBER_TABLE
1734 , p5_a1 JTF_NUMBER_TABLE
1735 , p5_a2 JTF_NUMBER_TABLE
1736 , p5_a3 JTF_NUMBER_TABLE
1737 , p5_a4 JTF_VARCHAR2_TABLE_100
1738 , p5_a5 JTF_VARCHAR2_TABLE_100
1739 , p5_a6 JTF_DATE_TABLE
1740 , p5_a7 JTF_DATE_TABLE
1741 , p5_a8 JTF_DATE_TABLE
1742 , p5_a9 JTF_DATE_TABLE
1743 , p5_a10 JTF_DATE_TABLE
1744 , p5_a11 JTF_DATE_TABLE
1745 , p5_a12 JTF_VARCHAR2_TABLE_100
1746 , p5_a13 JTF_VARCHAR2_TABLE_500
1747 , p5_a14 JTF_VARCHAR2_TABLE_500
1748 , p5_a15 JTF_VARCHAR2_TABLE_500
1749 , p5_a16 JTF_VARCHAR2_TABLE_500
1750 , p5_a17 JTF_VARCHAR2_TABLE_500
1751 , p5_a18 JTF_VARCHAR2_TABLE_500
1752 , p5_a19 JTF_VARCHAR2_TABLE_500
1753 , p5_a20 JTF_VARCHAR2_TABLE_500
1754 , p5_a21 JTF_VARCHAR2_TABLE_500
1755 , p5_a22 JTF_VARCHAR2_TABLE_500
1756 , p5_a23 JTF_VARCHAR2_TABLE_500
1757 , p5_a24 JTF_VARCHAR2_TABLE_500
1758 , p5_a25 JTF_VARCHAR2_TABLE_500
1759 , p5_a26 JTF_VARCHAR2_TABLE_500
1760 , p5_a27 JTF_VARCHAR2_TABLE_500
1761 , p5_a28 JTF_NUMBER_TABLE
1762 , p5_a29 JTF_NUMBER_TABLE
1763 , p5_a30 JTF_NUMBER_TABLE
1764 , p5_a31 JTF_DATE_TABLE
1765 , p5_a32 JTF_NUMBER_TABLE
1766 , p5_a33 JTF_DATE_TABLE
1767 , p5_a34 JTF_NUMBER_TABLE
1768 , p5_a35 JTF_DATE_TABLE
1769 , p5_a36 JTF_NUMBER_TABLE
1770 , p6_a0 out nocopy JTF_NUMBER_TABLE
1771 , p6_a1 out nocopy JTF_NUMBER_TABLE
1772 , p6_a2 out nocopy JTF_NUMBER_TABLE
1773 , p6_a3 out nocopy JTF_NUMBER_TABLE
1774 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
1775 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
1776 , p6_a6 out nocopy JTF_DATE_TABLE
1777 , p6_a7 out nocopy JTF_DATE_TABLE
1778 , p6_a8 out nocopy JTF_DATE_TABLE
1779 , p6_a9 out nocopy JTF_DATE_TABLE
1780 , p6_a10 out nocopy JTF_DATE_TABLE
1781 , p6_a11 out nocopy JTF_DATE_TABLE
1782 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
1783 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
1784 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
1785 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
1786 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
1787 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
1788 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1789 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1790 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1791 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1792 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1793 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
1794 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
1795 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
1796 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
1797 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
1798 , p6_a28 out nocopy JTF_NUMBER_TABLE
1799 , p6_a29 out nocopy JTF_NUMBER_TABLE
1800 , p6_a30 out nocopy JTF_NUMBER_TABLE
1801 , p6_a31 out nocopy JTF_DATE_TABLE
1802 , p6_a32 out nocopy JTF_NUMBER_TABLE
1803 , p6_a33 out nocopy JTF_DATE_TABLE
1804 , p6_a34 out nocopy JTF_NUMBER_TABLE
1805 , p6_a35 out nocopy JTF_DATE_TABLE
1806 , p6_a36 out nocopy JTF_NUMBER_TABLE
1807 , p7_a0 in out nocopy JTF_NUMBER_TABLE
1808 , p7_a1 in out nocopy JTF_VARCHAR2_TABLE_100
1809 , p7_a2 in out nocopy JTF_NUMBER_TABLE
1810 , p7_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
1811 , p7_a4 in out nocopy JTF_NUMBER_TABLE
1812 , p7_a5 in out nocopy JTF_VARCHAR2_TABLE_100
1813 , p7_a6 in out nocopy JTF_VARCHAR2_TABLE_100
1814 )
1815
1816 as
1817 ddp_vcrv_tbl okl_vcr_pvt.vcrv_tbl_type;
1818 ddx_vcrv_tbl okl_vcr_pvt.vcrv_tbl_type;
1819 ddpx_error_tbl okl_api.error_tbl_type;
1820 ddindx binary_integer; indx binary_integer;
1821 begin
1822
1823 -- copy data to the local IN or IN-OUT args, if any
1824
1825
1826
1827
1828
1829 okl_vcr_pvt_w.rosetta_table_copy_in_p2(ddp_vcrv_tbl, p5_a0
1830 , p5_a1
1831 , p5_a2
1832 , p5_a3
1833 , p5_a4
1834 , p5_a5
1835 , p5_a6
1836 , p5_a7
1837 , p5_a8
1838 , p5_a9
1839 , p5_a10
1840 , p5_a11
1841 , p5_a12
1842 , p5_a13
1843 , p5_a14
1844 , p5_a15
1845 , p5_a16
1846 , p5_a17
1847 , p5_a18
1848 , p5_a19
1849 , p5_a20
1850 , p5_a21
1851 , p5_a22
1852 , p5_a23
1853 , p5_a24
1854 , p5_a25
1855 , p5_a26
1856 , p5_a27
1857 , p5_a28
1858 , p5_a29
1859 , p5_a30
1860 , p5_a31
1861 , p5_a32
1862 , p5_a33
1863 , p5_a34
1864 , p5_a35
1865 , p5_a36
1866 );
1867
1868
1869 okl_api_w.rosetta_table_copy_in_p3(ddpx_error_tbl, p7_a0
1870 , p7_a1
1871 , p7_a2
1872 , p7_a3
1873 , p7_a4
1874 , p7_a5
1875 , p7_a6
1876 );
1877
1878 -- here's the delegated call to the old PL/SQL routine
1879 okl_vcr_pvt.update_row(p_api_version,
1880 p_init_msg_list,
1881 x_return_status,
1882 x_msg_count,
1883 x_msg_data,
1884 ddp_vcrv_tbl,
1885 ddx_vcrv_tbl,
1886 ddpx_error_tbl);
1887
1888 -- copy data back from the local variables to OUT or IN-OUT args, if any
1889
1890
1891
1892
1893
1894
1895 okl_vcr_pvt_w.rosetta_table_copy_out_p2(ddx_vcrv_tbl, p6_a0
1896 , p6_a1
1897 , p6_a2
1898 , p6_a3
1899 , p6_a4
1900 , p6_a5
1901 , p6_a6
1902 , p6_a7
1903 , p6_a8
1904 , p6_a9
1905 , p6_a10
1906 , p6_a11
1907 , p6_a12
1908 , p6_a13
1909 , p6_a14
1910 , p6_a15
1911 , p6_a16
1912 , p6_a17
1913 , p6_a18
1914 , p6_a19
1915 , p6_a20
1916 , p6_a21
1917 , p6_a22
1918 , p6_a23
1919 , p6_a24
1920 , p6_a25
1921 , p6_a26
1922 , p6_a27
1923 , p6_a28
1924 , p6_a29
1925 , p6_a30
1926 , p6_a31
1927 , p6_a32
1928 , p6_a33
1929 , p6_a34
1930 , p6_a35
1931 , p6_a36
1932 );
1933
1934 okl_api_w.rosetta_table_copy_out_p3(ddpx_error_tbl, p7_a0
1935 , p7_a1
1936 , p7_a2
1937 , p7_a3
1938 , p7_a4
1939 , p7_a5
1940 , p7_a6
1941 );
1942 end;
1943
1944 procedure update_row(p_api_version NUMBER
1945 , p_init_msg_list VARCHAR2
1946 , x_return_status out nocopy VARCHAR2
1947 , x_msg_count out nocopy NUMBER
1948 , x_msg_data out nocopy VARCHAR2
1949 , p5_a0 JTF_NUMBER_TABLE
1950 , p5_a1 JTF_NUMBER_TABLE
1951 , p5_a2 JTF_NUMBER_TABLE
1952 , p5_a3 JTF_NUMBER_TABLE
1953 , p5_a4 JTF_VARCHAR2_TABLE_100
1954 , p5_a5 JTF_VARCHAR2_TABLE_100
1955 , p5_a6 JTF_DATE_TABLE
1956 , p5_a7 JTF_DATE_TABLE
1957 , p5_a8 JTF_DATE_TABLE
1958 , p5_a9 JTF_DATE_TABLE
1959 , p5_a10 JTF_DATE_TABLE
1960 , p5_a11 JTF_DATE_TABLE
1961 , p5_a12 JTF_VARCHAR2_TABLE_100
1962 , p5_a13 JTF_VARCHAR2_TABLE_500
1963 , p5_a14 JTF_VARCHAR2_TABLE_500
1964 , p5_a15 JTF_VARCHAR2_TABLE_500
1965 , p5_a16 JTF_VARCHAR2_TABLE_500
1966 , p5_a17 JTF_VARCHAR2_TABLE_500
1967 , p5_a18 JTF_VARCHAR2_TABLE_500
1968 , p5_a19 JTF_VARCHAR2_TABLE_500
1969 , p5_a20 JTF_VARCHAR2_TABLE_500
1970 , p5_a21 JTF_VARCHAR2_TABLE_500
1971 , p5_a22 JTF_VARCHAR2_TABLE_500
1972 , p5_a23 JTF_VARCHAR2_TABLE_500
1973 , p5_a24 JTF_VARCHAR2_TABLE_500
1974 , p5_a25 JTF_VARCHAR2_TABLE_500
1975 , p5_a26 JTF_VARCHAR2_TABLE_500
1976 , p5_a27 JTF_VARCHAR2_TABLE_500
1977 , p5_a28 JTF_NUMBER_TABLE
1978 , p5_a29 JTF_NUMBER_TABLE
1979 , p5_a30 JTF_NUMBER_TABLE
1980 , p5_a31 JTF_DATE_TABLE
1981 , p5_a32 JTF_NUMBER_TABLE
1982 , p5_a33 JTF_DATE_TABLE
1983 , p5_a34 JTF_NUMBER_TABLE
1984 , p5_a35 JTF_DATE_TABLE
1985 , p5_a36 JTF_NUMBER_TABLE
1986 , p6_a0 out nocopy JTF_NUMBER_TABLE
1987 , p6_a1 out nocopy JTF_NUMBER_TABLE
1988 , p6_a2 out nocopy JTF_NUMBER_TABLE
1989 , p6_a3 out nocopy JTF_NUMBER_TABLE
1990 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
1991 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
1992 , p6_a6 out nocopy JTF_DATE_TABLE
1993 , p6_a7 out nocopy JTF_DATE_TABLE
1994 , p6_a8 out nocopy JTF_DATE_TABLE
1995 , p6_a9 out nocopy JTF_DATE_TABLE
1996 , p6_a10 out nocopy JTF_DATE_TABLE
1997 , p6_a11 out nocopy JTF_DATE_TABLE
1998 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
1999 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
2000 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
2001 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
2002 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
2003 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
2004 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
2005 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
2006 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
2007 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
2008 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
2009 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
2010 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
2011 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
2012 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
2013 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
2014 , p6_a28 out nocopy JTF_NUMBER_TABLE
2015 , p6_a29 out nocopy JTF_NUMBER_TABLE
2016 , p6_a30 out nocopy JTF_NUMBER_TABLE
2017 , p6_a31 out nocopy JTF_DATE_TABLE
2018 , p6_a32 out nocopy JTF_NUMBER_TABLE
2019 , p6_a33 out nocopy JTF_DATE_TABLE
2020 , p6_a34 out nocopy JTF_NUMBER_TABLE
2021 , p6_a35 out nocopy JTF_DATE_TABLE
2022 , p6_a36 out nocopy JTF_NUMBER_TABLE
2023 )
2024
2025 as
2026 ddp_vcrv_tbl okl_vcr_pvt.vcrv_tbl_type;
2027 ddx_vcrv_tbl okl_vcr_pvt.vcrv_tbl_type;
2028 ddindx binary_integer; indx binary_integer;
2029 begin
2030
2031 -- copy data to the local IN or IN-OUT args, if any
2032
2033
2034
2035
2036
2037 okl_vcr_pvt_w.rosetta_table_copy_in_p2(ddp_vcrv_tbl, p5_a0
2038 , p5_a1
2039 , p5_a2
2040 , p5_a3
2041 , p5_a4
2042 , p5_a5
2043 , p5_a6
2044 , p5_a7
2045 , p5_a8
2046 , p5_a9
2047 , p5_a10
2048 , p5_a11
2049 , p5_a12
2050 , p5_a13
2051 , p5_a14
2052 , p5_a15
2053 , p5_a16
2054 , p5_a17
2055 , p5_a18
2056 , p5_a19
2057 , p5_a20
2058 , p5_a21
2059 , p5_a22
2060 , p5_a23
2061 , p5_a24
2062 , p5_a25
2063 , p5_a26
2064 , p5_a27
2065 , p5_a28
2066 , p5_a29
2067 , p5_a30
2068 , p5_a31
2069 , p5_a32
2070 , p5_a33
2071 , p5_a34
2072 , p5_a35
2073 , p5_a36
2074 );
2075
2076
2077 -- here's the delegated call to the old PL/SQL routine
2078 okl_vcr_pvt.update_row(p_api_version,
2079 p_init_msg_list,
2080 x_return_status,
2081 x_msg_count,
2082 x_msg_data,
2083 ddp_vcrv_tbl,
2084 ddx_vcrv_tbl);
2085
2086 -- copy data back from the local variables to OUT or IN-OUT args, if any
2087
2088
2089
2090
2091
2092
2093 okl_vcr_pvt_w.rosetta_table_copy_out_p2(ddx_vcrv_tbl, p6_a0
2094 , p6_a1
2095 , p6_a2
2096 , p6_a3
2097 , p6_a4
2098 , p6_a5
2099 , p6_a6
2100 , p6_a7
2101 , p6_a8
2102 , p6_a9
2103 , p6_a10
2104 , p6_a11
2105 , p6_a12
2106 , p6_a13
2107 , p6_a14
2108 , p6_a15
2109 , p6_a16
2110 , p6_a17
2111 , p6_a18
2112 , p6_a19
2113 , p6_a20
2114 , p6_a21
2115 , p6_a22
2116 , p6_a23
2117 , p6_a24
2118 , p6_a25
2119 , p6_a26
2120 , p6_a27
2121 , p6_a28
2122 , p6_a29
2123 , p6_a30
2124 , p6_a31
2125 , p6_a32
2126 , p6_a33
2127 , p6_a34
2128 , p6_a35
2129 , p6_a36
2130 );
2131 end;
2132
2133 procedure delete_row(p_api_version NUMBER
2134 , p_init_msg_list VARCHAR2
2135 , x_return_status out nocopy VARCHAR2
2136 , x_msg_count out nocopy NUMBER
2137 , x_msg_data out nocopy VARCHAR2
2138 , p5_a0 NUMBER
2139 , p5_a1 NUMBER
2140 , p5_a2 NUMBER
2141 , p5_a3 NUMBER
2142 , p5_a4 VARCHAR2
2143 , p5_a5 VARCHAR2
2144 , p5_a6 DATE
2145 , p5_a7 DATE
2146 , p5_a8 DATE
2147 , p5_a9 DATE
2148 , p5_a10 DATE
2149 , p5_a11 DATE
2150 , p5_a12 VARCHAR2
2151 , p5_a13 VARCHAR2
2152 , p5_a14 VARCHAR2
2153 , p5_a15 VARCHAR2
2154 , p5_a16 VARCHAR2
2155 , p5_a17 VARCHAR2
2156 , p5_a18 VARCHAR2
2157 , p5_a19 VARCHAR2
2158 , p5_a20 VARCHAR2
2159 , p5_a21 VARCHAR2
2160 , p5_a22 VARCHAR2
2161 , p5_a23 VARCHAR2
2162 , p5_a24 VARCHAR2
2163 , p5_a25 VARCHAR2
2164 , p5_a26 VARCHAR2
2165 , p5_a27 VARCHAR2
2166 , p5_a28 NUMBER
2167 , p5_a29 NUMBER
2168 , p5_a30 NUMBER
2169 , p5_a31 DATE
2170 , p5_a32 NUMBER
2171 , p5_a33 DATE
2172 , p5_a34 NUMBER
2173 , p5_a35 DATE
2174 , p5_a36 NUMBER
2175 )
2176
2177 as
2178 ddp_vcrv_rec okl_vcr_pvt.vcrv_rec_type;
2179 ddindx binary_integer; indx binary_integer;
2180 begin
2181
2182 -- copy data to the local IN or IN-OUT args, if any
2183
2184
2185
2186
2187
2188 ddp_vcrv_rec.id := p5_a0;
2189 ddp_vcrv_rec.object_version_number := p5_a1;
2190 ddp_vcrv_rec.change_request_number := p5_a2;
2191 ddp_vcrv_rec.chr_id := p5_a3;
2192 ddp_vcrv_rec.change_type_code := p5_a4;
2193 ddp_vcrv_rec.status_code := p5_a5;
2194 ddp_vcrv_rec.request_date := p5_a6;
2195 ddp_vcrv_rec.effective_date := p5_a7;
2196 ddp_vcrv_rec.approved_date := p5_a8;
2197 ddp_vcrv_rec.rejected_date := p5_a9;
2198 ddp_vcrv_rec.ineffective_date := p5_a10;
2199 ddp_vcrv_rec.applied_date := p5_a11;
2200 ddp_vcrv_rec.attribute_category := p5_a12;
2201 ddp_vcrv_rec.attribute1 := p5_a13;
2202 ddp_vcrv_rec.attribute2 := p5_a14;
2203 ddp_vcrv_rec.attribute3 := p5_a15;
2204 ddp_vcrv_rec.attribute4 := p5_a16;
2205 ddp_vcrv_rec.attribute5 := p5_a17;
2206 ddp_vcrv_rec.attribute6 := p5_a18;
2207 ddp_vcrv_rec.attribute7 := p5_a19;
2208 ddp_vcrv_rec.attribute8 := p5_a20;
2209 ddp_vcrv_rec.attribute9 := p5_a21;
2210 ddp_vcrv_rec.attribute10 := p5_a22;
2211 ddp_vcrv_rec.attribute11 := p5_a23;
2212 ddp_vcrv_rec.attribute12 := p5_a24;
2213 ddp_vcrv_rec.attribute13 := p5_a25;
2214 ddp_vcrv_rec.attribute14 := p5_a26;
2215 ddp_vcrv_rec.attribute15 := p5_a27;
2216 ddp_vcrv_rec.request_id := p5_a28;
2217 ddp_vcrv_rec.program_application_id := p5_a29;
2218 ddp_vcrv_rec.program_id := p5_a30;
2219 ddp_vcrv_rec.program_update_date := p5_a31;
2220 ddp_vcrv_rec.created_by := p5_a32;
2221 ddp_vcrv_rec.creation_date := p5_a33;
2222 ddp_vcrv_rec.last_updated_by := p5_a34;
2223 ddp_vcrv_rec.last_update_date := p5_a35;
2224 ddp_vcrv_rec.last_update_login := p5_a36;
2225
2226 -- here's the delegated call to the old PL/SQL routine
2227 okl_vcr_pvt.delete_row(p_api_version,
2228 p_init_msg_list,
2229 x_return_status,
2230 x_msg_count,
2231 x_msg_data,
2232 ddp_vcrv_rec);
2233
2234 -- copy data back from the local variables to OUT or IN-OUT args, if any
2235
2236
2237
2238
2239
2240 end;
2241
2242 procedure delete_row(p_api_version NUMBER
2243 , p_init_msg_list VARCHAR2
2244 , x_return_status out nocopy VARCHAR2
2245 , x_msg_count out nocopy NUMBER
2246 , x_msg_data out nocopy VARCHAR2
2247 , p5_a0 JTF_NUMBER_TABLE
2248 , p5_a1 JTF_NUMBER_TABLE
2249 , p5_a2 JTF_NUMBER_TABLE
2250 , p5_a3 JTF_NUMBER_TABLE
2251 , p5_a4 JTF_VARCHAR2_TABLE_100
2252 , p5_a5 JTF_VARCHAR2_TABLE_100
2253 , p5_a6 JTF_DATE_TABLE
2254 , p5_a7 JTF_DATE_TABLE
2255 , p5_a8 JTF_DATE_TABLE
2256 , p5_a9 JTF_DATE_TABLE
2257 , p5_a10 JTF_DATE_TABLE
2258 , p5_a11 JTF_DATE_TABLE
2259 , p5_a12 JTF_VARCHAR2_TABLE_100
2260 , p5_a13 JTF_VARCHAR2_TABLE_500
2261 , p5_a14 JTF_VARCHAR2_TABLE_500
2262 , p5_a15 JTF_VARCHAR2_TABLE_500
2263 , p5_a16 JTF_VARCHAR2_TABLE_500
2264 , p5_a17 JTF_VARCHAR2_TABLE_500
2265 , p5_a18 JTF_VARCHAR2_TABLE_500
2266 , p5_a19 JTF_VARCHAR2_TABLE_500
2267 , p5_a20 JTF_VARCHAR2_TABLE_500
2268 , p5_a21 JTF_VARCHAR2_TABLE_500
2269 , p5_a22 JTF_VARCHAR2_TABLE_500
2270 , p5_a23 JTF_VARCHAR2_TABLE_500
2271 , p5_a24 JTF_VARCHAR2_TABLE_500
2272 , p5_a25 JTF_VARCHAR2_TABLE_500
2273 , p5_a26 JTF_VARCHAR2_TABLE_500
2274 , p5_a27 JTF_VARCHAR2_TABLE_500
2275 , p5_a28 JTF_NUMBER_TABLE
2276 , p5_a29 JTF_NUMBER_TABLE
2277 , p5_a30 JTF_NUMBER_TABLE
2278 , p5_a31 JTF_DATE_TABLE
2279 , p5_a32 JTF_NUMBER_TABLE
2280 , p5_a33 JTF_DATE_TABLE
2281 , p5_a34 JTF_NUMBER_TABLE
2282 , p5_a35 JTF_DATE_TABLE
2283 , p5_a36 JTF_NUMBER_TABLE
2284 , p6_a0 in out nocopy JTF_NUMBER_TABLE
2285 , p6_a1 in out nocopy JTF_VARCHAR2_TABLE_100
2286 , p6_a2 in out nocopy JTF_NUMBER_TABLE
2287 , p6_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
2288 , p6_a4 in out nocopy JTF_NUMBER_TABLE
2289 , p6_a5 in out nocopy JTF_VARCHAR2_TABLE_100
2290 , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_100
2291 )
2292
2293 as
2294 ddp_vcrv_tbl okl_vcr_pvt.vcrv_tbl_type;
2295 ddpx_error_tbl okl_api.error_tbl_type;
2296 ddindx binary_integer; indx binary_integer;
2297 begin
2298
2299 -- copy data to the local IN or IN-OUT args, if any
2300
2301
2302
2303
2304
2305 okl_vcr_pvt_w.rosetta_table_copy_in_p2(ddp_vcrv_tbl, p5_a0
2306 , p5_a1
2307 , p5_a2
2308 , p5_a3
2309 , p5_a4
2310 , p5_a5
2311 , p5_a6
2312 , p5_a7
2313 , p5_a8
2314 , p5_a9
2315 , p5_a10
2316 , p5_a11
2317 , p5_a12
2318 , p5_a13
2319 , p5_a14
2320 , p5_a15
2321 , p5_a16
2322 , p5_a17
2323 , p5_a18
2324 , p5_a19
2325 , p5_a20
2326 , p5_a21
2327 , p5_a22
2328 , p5_a23
2329 , p5_a24
2330 , p5_a25
2331 , p5_a26
2332 , p5_a27
2333 , p5_a28
2334 , p5_a29
2335 , p5_a30
2336 , p5_a31
2337 , p5_a32
2338 , p5_a33
2339 , p5_a34
2340 , p5_a35
2341 , p5_a36
2342 );
2343
2344 okl_api_w.rosetta_table_copy_in_p3(ddpx_error_tbl, p6_a0
2345 , p6_a1
2346 , p6_a2
2347 , p6_a3
2348 , p6_a4
2349 , p6_a5
2350 , p6_a6
2351 );
2352
2353 -- here's the delegated call to the old PL/SQL routine
2354 okl_vcr_pvt.delete_row(p_api_version,
2355 p_init_msg_list,
2356 x_return_status,
2357 x_msg_count,
2358 x_msg_data,
2359 ddp_vcrv_tbl,
2360 ddpx_error_tbl);
2361
2362 -- copy data back from the local variables to OUT or IN-OUT args, if any
2363
2364
2365
2366
2367
2368
2369 okl_api_w.rosetta_table_copy_out_p3(ddpx_error_tbl, p6_a0
2370 , p6_a1
2371 , p6_a2
2372 , p6_a3
2373 , p6_a4
2374 , p6_a5
2375 , p6_a6
2376 );
2377 end;
2378
2379 procedure delete_row(p_api_version NUMBER
2380 , p_init_msg_list VARCHAR2
2381 , x_return_status out nocopy VARCHAR2
2382 , x_msg_count out nocopy NUMBER
2383 , x_msg_data out nocopy VARCHAR2
2384 , p5_a0 JTF_NUMBER_TABLE
2385 , p5_a1 JTF_NUMBER_TABLE
2386 , p5_a2 JTF_NUMBER_TABLE
2387 , p5_a3 JTF_NUMBER_TABLE
2388 , p5_a4 JTF_VARCHAR2_TABLE_100
2389 , p5_a5 JTF_VARCHAR2_TABLE_100
2390 , p5_a6 JTF_DATE_TABLE
2391 , p5_a7 JTF_DATE_TABLE
2392 , p5_a8 JTF_DATE_TABLE
2393 , p5_a9 JTF_DATE_TABLE
2394 , p5_a10 JTF_DATE_TABLE
2395 , p5_a11 JTF_DATE_TABLE
2396 , p5_a12 JTF_VARCHAR2_TABLE_100
2397 , p5_a13 JTF_VARCHAR2_TABLE_500
2398 , p5_a14 JTF_VARCHAR2_TABLE_500
2399 , p5_a15 JTF_VARCHAR2_TABLE_500
2400 , p5_a16 JTF_VARCHAR2_TABLE_500
2401 , p5_a17 JTF_VARCHAR2_TABLE_500
2402 , p5_a18 JTF_VARCHAR2_TABLE_500
2403 , p5_a19 JTF_VARCHAR2_TABLE_500
2404 , p5_a20 JTF_VARCHAR2_TABLE_500
2405 , p5_a21 JTF_VARCHAR2_TABLE_500
2406 , p5_a22 JTF_VARCHAR2_TABLE_500
2407 , p5_a23 JTF_VARCHAR2_TABLE_500
2408 , p5_a24 JTF_VARCHAR2_TABLE_500
2409 , p5_a25 JTF_VARCHAR2_TABLE_500
2410 , p5_a26 JTF_VARCHAR2_TABLE_500
2411 , p5_a27 JTF_VARCHAR2_TABLE_500
2412 , p5_a28 JTF_NUMBER_TABLE
2413 , p5_a29 JTF_NUMBER_TABLE
2414 , p5_a30 JTF_NUMBER_TABLE
2415 , p5_a31 JTF_DATE_TABLE
2416 , p5_a32 JTF_NUMBER_TABLE
2417 , p5_a33 JTF_DATE_TABLE
2418 , p5_a34 JTF_NUMBER_TABLE
2419 , p5_a35 JTF_DATE_TABLE
2420 , p5_a36 JTF_NUMBER_TABLE
2421 )
2422
2423 as
2424 ddp_vcrv_tbl okl_vcr_pvt.vcrv_tbl_type;
2425 ddindx binary_integer; indx binary_integer;
2426 begin
2427
2428 -- copy data to the local IN or IN-OUT args, if any
2429
2430
2431
2432
2433
2434 okl_vcr_pvt_w.rosetta_table_copy_in_p2(ddp_vcrv_tbl, p5_a0
2435 , p5_a1
2436 , p5_a2
2437 , p5_a3
2438 , p5_a4
2439 , p5_a5
2440 , p5_a6
2441 , p5_a7
2442 , p5_a8
2443 , p5_a9
2444 , p5_a10
2445 , p5_a11
2446 , p5_a12
2447 , p5_a13
2448 , p5_a14
2449 , p5_a15
2450 , p5_a16
2451 , p5_a17
2452 , p5_a18
2453 , p5_a19
2454 , p5_a20
2455 , p5_a21
2456 , p5_a22
2457 , p5_a23
2458 , p5_a24
2459 , p5_a25
2460 , p5_a26
2461 , p5_a27
2462 , p5_a28
2463 , p5_a29
2464 , p5_a30
2465 , p5_a31
2466 , p5_a32
2467 , p5_a33
2468 , p5_a34
2469 , p5_a35
2470 , p5_a36
2471 );
2472
2473 -- here's the delegated call to the old PL/SQL routine
2474 okl_vcr_pvt.delete_row(p_api_version,
2475 p_init_msg_list,
2476 x_return_status,
2477 x_msg_count,
2478 x_msg_data,
2479 ddp_vcrv_tbl);
2480
2481 -- copy data back from the local variables to OUT or IN-OUT args, if any
2482
2483
2484
2485
2486
2487 end;
2488
2489 procedure validate_row(p_api_version NUMBER
2490 , p_init_msg_list VARCHAR2
2491 , x_return_status out nocopy VARCHAR2
2492 , x_msg_count out nocopy NUMBER
2493 , x_msg_data out nocopy VARCHAR2
2494 , p5_a0 NUMBER
2495 , p5_a1 NUMBER
2496 , p5_a2 NUMBER
2497 , p5_a3 NUMBER
2498 , p5_a4 VARCHAR2
2499 , p5_a5 VARCHAR2
2500 , p5_a6 DATE
2501 , p5_a7 DATE
2502 , p5_a8 DATE
2503 , p5_a9 DATE
2504 , p5_a10 DATE
2505 , p5_a11 DATE
2506 , p5_a12 VARCHAR2
2507 , p5_a13 VARCHAR2
2508 , p5_a14 VARCHAR2
2509 , p5_a15 VARCHAR2
2510 , p5_a16 VARCHAR2
2511 , p5_a17 VARCHAR2
2512 , p5_a18 VARCHAR2
2513 , p5_a19 VARCHAR2
2514 , p5_a20 VARCHAR2
2515 , p5_a21 VARCHAR2
2516 , p5_a22 VARCHAR2
2517 , p5_a23 VARCHAR2
2518 , p5_a24 VARCHAR2
2519 , p5_a25 VARCHAR2
2520 , p5_a26 VARCHAR2
2521 , p5_a27 VARCHAR2
2522 , p5_a28 NUMBER
2523 , p5_a29 NUMBER
2524 , p5_a30 NUMBER
2525 , p5_a31 DATE
2526 , p5_a32 NUMBER
2527 , p5_a33 DATE
2528 , p5_a34 NUMBER
2529 , p5_a35 DATE
2530 , p5_a36 NUMBER
2531 )
2532
2533 as
2534 ddp_vcrv_rec okl_vcr_pvt.vcrv_rec_type;
2535 ddindx binary_integer; indx binary_integer;
2536 begin
2537
2538 -- copy data to the local IN or IN-OUT args, if any
2539
2540
2541
2542
2543
2544 ddp_vcrv_rec.id := p5_a0;
2545 ddp_vcrv_rec.object_version_number := p5_a1;
2546 ddp_vcrv_rec.change_request_number := p5_a2;
2547 ddp_vcrv_rec.chr_id := p5_a3;
2548 ddp_vcrv_rec.change_type_code := p5_a4;
2549 ddp_vcrv_rec.status_code := p5_a5;
2550 ddp_vcrv_rec.request_date := p5_a6;
2551 ddp_vcrv_rec.effective_date := p5_a7;
2552 ddp_vcrv_rec.approved_date := p5_a8;
2553 ddp_vcrv_rec.rejected_date := p5_a9;
2554 ddp_vcrv_rec.ineffective_date := p5_a10;
2555 ddp_vcrv_rec.applied_date := p5_a11;
2556 ddp_vcrv_rec.attribute_category := p5_a12;
2557 ddp_vcrv_rec.attribute1 := p5_a13;
2558 ddp_vcrv_rec.attribute2 := p5_a14;
2559 ddp_vcrv_rec.attribute3 := p5_a15;
2560 ddp_vcrv_rec.attribute4 := p5_a16;
2561 ddp_vcrv_rec.attribute5 := p5_a17;
2562 ddp_vcrv_rec.attribute6 := p5_a18;
2563 ddp_vcrv_rec.attribute7 := p5_a19;
2564 ddp_vcrv_rec.attribute8 := p5_a20;
2565 ddp_vcrv_rec.attribute9 := p5_a21;
2566 ddp_vcrv_rec.attribute10 := p5_a22;
2567 ddp_vcrv_rec.attribute11 := p5_a23;
2568 ddp_vcrv_rec.attribute12 := p5_a24;
2569 ddp_vcrv_rec.attribute13 := p5_a25;
2570 ddp_vcrv_rec.attribute14 := p5_a26;
2571 ddp_vcrv_rec.attribute15 := p5_a27;
2572 ddp_vcrv_rec.request_id := p5_a28;
2573 ddp_vcrv_rec.program_application_id := p5_a29;
2574 ddp_vcrv_rec.program_id := p5_a30;
2575 ddp_vcrv_rec.program_update_date := p5_a31;
2576 ddp_vcrv_rec.created_by := p5_a32;
2577 ddp_vcrv_rec.creation_date := p5_a33;
2578 ddp_vcrv_rec.last_updated_by := p5_a34;
2579 ddp_vcrv_rec.last_update_date := p5_a35;
2580 ddp_vcrv_rec.last_update_login := p5_a36;
2581
2582 -- here's the delegated call to the old PL/SQL routine
2583 okl_vcr_pvt.validate_row(p_api_version,
2584 p_init_msg_list,
2585 x_return_status,
2586 x_msg_count,
2587 x_msg_data,
2588 ddp_vcrv_rec);
2589
2590 -- copy data back from the local variables to OUT or IN-OUT args, if any
2591
2592
2593
2594
2595
2596 end;
2597
2598 procedure validate_row(p_api_version NUMBER
2599 , p_init_msg_list VARCHAR2
2600 , x_return_status out nocopy VARCHAR2
2601 , x_msg_count out nocopy NUMBER
2602 , x_msg_data out nocopy VARCHAR2
2603 , p5_a0 JTF_NUMBER_TABLE
2604 , p5_a1 JTF_NUMBER_TABLE
2605 , p5_a2 JTF_NUMBER_TABLE
2606 , p5_a3 JTF_NUMBER_TABLE
2607 , p5_a4 JTF_VARCHAR2_TABLE_100
2608 , p5_a5 JTF_VARCHAR2_TABLE_100
2609 , p5_a6 JTF_DATE_TABLE
2610 , p5_a7 JTF_DATE_TABLE
2611 , p5_a8 JTF_DATE_TABLE
2612 , p5_a9 JTF_DATE_TABLE
2613 , p5_a10 JTF_DATE_TABLE
2614 , p5_a11 JTF_DATE_TABLE
2615 , p5_a12 JTF_VARCHAR2_TABLE_100
2616 , p5_a13 JTF_VARCHAR2_TABLE_500
2617 , p5_a14 JTF_VARCHAR2_TABLE_500
2618 , p5_a15 JTF_VARCHAR2_TABLE_500
2619 , p5_a16 JTF_VARCHAR2_TABLE_500
2620 , p5_a17 JTF_VARCHAR2_TABLE_500
2621 , p5_a18 JTF_VARCHAR2_TABLE_500
2622 , p5_a19 JTF_VARCHAR2_TABLE_500
2623 , p5_a20 JTF_VARCHAR2_TABLE_500
2624 , p5_a21 JTF_VARCHAR2_TABLE_500
2625 , p5_a22 JTF_VARCHAR2_TABLE_500
2626 , p5_a23 JTF_VARCHAR2_TABLE_500
2627 , p5_a24 JTF_VARCHAR2_TABLE_500
2628 , p5_a25 JTF_VARCHAR2_TABLE_500
2629 , p5_a26 JTF_VARCHAR2_TABLE_500
2630 , p5_a27 JTF_VARCHAR2_TABLE_500
2631 , p5_a28 JTF_NUMBER_TABLE
2632 , p5_a29 JTF_NUMBER_TABLE
2633 , p5_a30 JTF_NUMBER_TABLE
2634 , p5_a31 JTF_DATE_TABLE
2635 , p5_a32 JTF_NUMBER_TABLE
2636 , p5_a33 JTF_DATE_TABLE
2637 , p5_a34 JTF_NUMBER_TABLE
2638 , p5_a35 JTF_DATE_TABLE
2639 , p5_a36 JTF_NUMBER_TABLE
2640 , p6_a0 in out nocopy JTF_NUMBER_TABLE
2641 , p6_a1 in out nocopy JTF_VARCHAR2_TABLE_100
2642 , p6_a2 in out nocopy JTF_NUMBER_TABLE
2643 , p6_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
2644 , p6_a4 in out nocopy JTF_NUMBER_TABLE
2645 , p6_a5 in out nocopy JTF_VARCHAR2_TABLE_100
2646 , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_100
2647 )
2648
2649 as
2650 ddp_vcrv_tbl okl_vcr_pvt.vcrv_tbl_type;
2651 ddpx_error_tbl okl_api.error_tbl_type;
2652 ddindx binary_integer; indx binary_integer;
2653 begin
2654
2655 -- copy data to the local IN or IN-OUT args, if any
2656
2657
2658
2659
2660
2661 okl_vcr_pvt_w.rosetta_table_copy_in_p2(ddp_vcrv_tbl, p5_a0
2662 , p5_a1
2663 , p5_a2
2664 , p5_a3
2665 , p5_a4
2666 , p5_a5
2667 , p5_a6
2668 , p5_a7
2669 , p5_a8
2670 , p5_a9
2671 , p5_a10
2672 , p5_a11
2673 , p5_a12
2674 , p5_a13
2675 , p5_a14
2676 , p5_a15
2677 , p5_a16
2678 , p5_a17
2679 , p5_a18
2680 , p5_a19
2681 , p5_a20
2682 , p5_a21
2683 , p5_a22
2684 , p5_a23
2685 , p5_a24
2686 , p5_a25
2687 , p5_a26
2688 , p5_a27
2689 , p5_a28
2690 , p5_a29
2691 , p5_a30
2692 , p5_a31
2693 , p5_a32
2694 , p5_a33
2695 , p5_a34
2696 , p5_a35
2697 , p5_a36
2698 );
2699
2700 okl_api_w.rosetta_table_copy_in_p3(ddpx_error_tbl, p6_a0
2701 , p6_a1
2702 , p6_a2
2703 , p6_a3
2704 , p6_a4
2705 , p6_a5
2706 , p6_a6
2707 );
2708
2709 -- here's the delegated call to the old PL/SQL routine
2710 okl_vcr_pvt.validate_row(p_api_version,
2711 p_init_msg_list,
2712 x_return_status,
2713 x_msg_count,
2714 x_msg_data,
2715 ddp_vcrv_tbl,
2716 ddpx_error_tbl);
2717
2718 -- copy data back from the local variables to OUT or IN-OUT args, if any
2719
2720
2721
2722
2723
2724
2725 okl_api_w.rosetta_table_copy_out_p3(ddpx_error_tbl, p6_a0
2726 , p6_a1
2727 , p6_a2
2728 , p6_a3
2729 , p6_a4
2730 , p6_a5
2731 , p6_a6
2732 );
2733 end;
2734
2735 procedure validate_row(p_api_version NUMBER
2736 , p_init_msg_list VARCHAR2
2737 , x_return_status out nocopy VARCHAR2
2738 , x_msg_count out nocopy NUMBER
2739 , x_msg_data out nocopy VARCHAR2
2740 , p5_a0 JTF_NUMBER_TABLE
2741 , p5_a1 JTF_NUMBER_TABLE
2742 , p5_a2 JTF_NUMBER_TABLE
2743 , p5_a3 JTF_NUMBER_TABLE
2744 , p5_a4 JTF_VARCHAR2_TABLE_100
2745 , p5_a5 JTF_VARCHAR2_TABLE_100
2746 , p5_a6 JTF_DATE_TABLE
2747 , p5_a7 JTF_DATE_TABLE
2748 , p5_a8 JTF_DATE_TABLE
2749 , p5_a9 JTF_DATE_TABLE
2750 , p5_a10 JTF_DATE_TABLE
2751 , p5_a11 JTF_DATE_TABLE
2752 , p5_a12 JTF_VARCHAR2_TABLE_100
2753 , p5_a13 JTF_VARCHAR2_TABLE_500
2754 , p5_a14 JTF_VARCHAR2_TABLE_500
2755 , p5_a15 JTF_VARCHAR2_TABLE_500
2756 , p5_a16 JTF_VARCHAR2_TABLE_500
2757 , p5_a17 JTF_VARCHAR2_TABLE_500
2758 , p5_a18 JTF_VARCHAR2_TABLE_500
2759 , p5_a19 JTF_VARCHAR2_TABLE_500
2760 , p5_a20 JTF_VARCHAR2_TABLE_500
2761 , p5_a21 JTF_VARCHAR2_TABLE_500
2762 , p5_a22 JTF_VARCHAR2_TABLE_500
2763 , p5_a23 JTF_VARCHAR2_TABLE_500
2764 , p5_a24 JTF_VARCHAR2_TABLE_500
2765 , p5_a25 JTF_VARCHAR2_TABLE_500
2766 , p5_a26 JTF_VARCHAR2_TABLE_500
2767 , p5_a27 JTF_VARCHAR2_TABLE_500
2768 , p5_a28 JTF_NUMBER_TABLE
2769 , p5_a29 JTF_NUMBER_TABLE
2770 , p5_a30 JTF_NUMBER_TABLE
2771 , p5_a31 JTF_DATE_TABLE
2772 , p5_a32 JTF_NUMBER_TABLE
2773 , p5_a33 JTF_DATE_TABLE
2774 , p5_a34 JTF_NUMBER_TABLE
2775 , p5_a35 JTF_DATE_TABLE
2776 , p5_a36 JTF_NUMBER_TABLE
2777 )
2778
2779 as
2780 ddp_vcrv_tbl okl_vcr_pvt.vcrv_tbl_type;
2781 ddindx binary_integer; indx binary_integer;
2782 begin
2783
2784 -- copy data to the local IN or IN-OUT args, if any
2785
2786
2787
2788
2789
2790 okl_vcr_pvt_w.rosetta_table_copy_in_p2(ddp_vcrv_tbl, p5_a0
2791 , p5_a1
2792 , p5_a2
2793 , p5_a3
2794 , p5_a4
2795 , p5_a5
2796 , p5_a6
2797 , p5_a7
2798 , p5_a8
2799 , p5_a9
2800 , p5_a10
2801 , p5_a11
2802 , p5_a12
2803 , p5_a13
2804 , p5_a14
2805 , p5_a15
2806 , p5_a16
2807 , p5_a17
2808 , p5_a18
2809 , p5_a19
2810 , p5_a20
2811 , p5_a21
2812 , p5_a22
2813 , p5_a23
2814 , p5_a24
2815 , p5_a25
2816 , p5_a26
2817 , p5_a27
2818 , p5_a28
2819 , p5_a29
2820 , p5_a30
2821 , p5_a31
2822 , p5_a32
2823 , p5_a33
2824 , p5_a34
2825 , p5_a35
2826 , p5_a36
2827 );
2828
2829 -- here's the delegated call to the old PL/SQL routine
2830 okl_vcr_pvt.validate_row(p_api_version,
2831 p_init_msg_list,
2832 x_return_status,
2833 x_msg_count,
2834 x_msg_data,
2835 ddp_vcrv_tbl);
2836
2837 -- copy data back from the local variables to OUT or IN-OUT args, if any
2838
2839
2840
2841
2842
2843 end;
2844
2845 end okl_vcr_pvt_w;