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