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