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