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