[Home] [Help]
PACKAGE BODY: APPS.OKL_PAL_PVT_W
Source
1 package body okl_pal_pvt_w as
2 /* $Header: OKLIPALB.pls 120.0 2005/07/07 10:39:50 viselvar noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy okl_pal_pvt.okl_pal_tbl, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_VARCHAR2_TABLE_100
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_VARCHAR2_TABLE_100
8 , a5 JTF_DATE_TABLE
9 , a6 JTF_DATE_TABLE
10 , a7 JTF_VARCHAR2_TABLE_100
11 , a8 JTF_VARCHAR2_TABLE_500
12 , a9 JTF_VARCHAR2_TABLE_500
13 , a10 JTF_VARCHAR2_TABLE_500
14 , a11 JTF_VARCHAR2_TABLE_500
15 , a12 JTF_VARCHAR2_TABLE_500
16 , a13 JTF_VARCHAR2_TABLE_500
17 , a14 JTF_VARCHAR2_TABLE_500
18 , a15 JTF_VARCHAR2_TABLE_500
19 , a16 JTF_VARCHAR2_TABLE_500
20 , a17 JTF_VARCHAR2_TABLE_500
21 , a18 JTF_VARCHAR2_TABLE_500
22 , a19 JTF_VARCHAR2_TABLE_500
23 , a20 JTF_VARCHAR2_TABLE_500
24 , a21 JTF_VARCHAR2_TABLE_500
25 , a22 JTF_VARCHAR2_TABLE_500
26 , a23 JTF_NUMBER_TABLE
27 , a24 JTF_DATE_TABLE
28 , a25 JTF_NUMBER_TABLE
29 , a26 JTF_DATE_TABLE
30 , a27 JTF_NUMBER_TABLE
31 ) as
32 ddindx binary_integer; indx binary_integer;
33 begin
34 if a0 is not null and a0.count > 0 then
35 if a0.count > 0 then
36 indx := a0.first;
37 ddindx := 1;
38 while true loop
39 t(ddindx).adj_mat_version_id := a0(indx);
40 t(ddindx).object_version_number := a1(indx);
41 t(ddindx).version_number := a2(indx);
42 t(ddindx).adj_mat_id := a3(indx);
43 t(ddindx).sts_code := a4(indx);
44 t(ddindx).effective_from_date := a5(indx);
45 t(ddindx).effective_to_date := a6(indx);
46 t(ddindx).attribute_category := a7(indx);
47 t(ddindx).attribute1 := a8(indx);
48 t(ddindx).attribute2 := a9(indx);
49 t(ddindx).attribute3 := a10(indx);
50 t(ddindx).attribute4 := a11(indx);
51 t(ddindx).attribute5 := a12(indx);
52 t(ddindx).attribute6 := a13(indx);
53 t(ddindx).attribute7 := a14(indx);
54 t(ddindx).attribute8 := a15(indx);
55 t(ddindx).attribute9 := a16(indx);
56 t(ddindx).attribute10 := a17(indx);
57 t(ddindx).attribute11 := a18(indx);
58 t(ddindx).attribute12 := a19(indx);
59 t(ddindx).attribute13 := a20(indx);
60 t(ddindx).attribute14 := a21(indx);
61 t(ddindx).attribute15 := a22(indx);
62 t(ddindx).created_by := a23(indx);
63 t(ddindx).creation_date := a24(indx);
64 t(ddindx).last_updated_by := a25(indx);
65 t(ddindx).last_update_date := a26(indx);
66 t(ddindx).last_update_login := a27(indx);
67 ddindx := ddindx+1;
68 if a0.last =indx
69 then exit;
70 end if;
71 indx := a0.next(indx);
72 end loop;
73 end if;
74 end if;
75 end rosetta_table_copy_in_p1;
76 procedure rosetta_table_copy_out_p1(t okl_pal_pvt.okl_pal_tbl, a0 out nocopy JTF_NUMBER_TABLE
77 , a1 out nocopy JTF_NUMBER_TABLE
78 , a2 out nocopy JTF_VARCHAR2_TABLE_100
79 , a3 out nocopy JTF_NUMBER_TABLE
80 , a4 out nocopy JTF_VARCHAR2_TABLE_100
81 , a5 out nocopy JTF_DATE_TABLE
82 , a6 out nocopy JTF_DATE_TABLE
83 , a7 out nocopy JTF_VARCHAR2_TABLE_100
84 , a8 out nocopy JTF_VARCHAR2_TABLE_500
85 , a9 out nocopy JTF_VARCHAR2_TABLE_500
86 , a10 out nocopy JTF_VARCHAR2_TABLE_500
87 , a11 out nocopy JTF_VARCHAR2_TABLE_500
88 , a12 out nocopy JTF_VARCHAR2_TABLE_500
89 , a13 out nocopy JTF_VARCHAR2_TABLE_500
90 , a14 out nocopy JTF_VARCHAR2_TABLE_500
91 , a15 out nocopy JTF_VARCHAR2_TABLE_500
92 , a16 out nocopy JTF_VARCHAR2_TABLE_500
93 , a17 out nocopy JTF_VARCHAR2_TABLE_500
94 , a18 out nocopy JTF_VARCHAR2_TABLE_500
95 , a19 out nocopy JTF_VARCHAR2_TABLE_500
96 , a20 out nocopy JTF_VARCHAR2_TABLE_500
97 , a21 out nocopy JTF_VARCHAR2_TABLE_500
98 , a22 out nocopy JTF_VARCHAR2_TABLE_500
99 , a23 out nocopy JTF_NUMBER_TABLE
100 , a24 out nocopy JTF_DATE_TABLE
101 , a25 out nocopy JTF_NUMBER_TABLE
102 , a26 out nocopy JTF_DATE_TABLE
103 , a27 out nocopy JTF_NUMBER_TABLE
104 ) as
105 ddindx binary_integer; indx binary_integer;
106 begin
107 if t is null or t.count = 0 then
108 a0 := JTF_NUMBER_TABLE();
109 a1 := JTF_NUMBER_TABLE();
110 a2 := JTF_VARCHAR2_TABLE_100();
111 a3 := JTF_NUMBER_TABLE();
112 a4 := JTF_VARCHAR2_TABLE_100();
113 a5 := JTF_DATE_TABLE();
114 a6 := JTF_DATE_TABLE();
115 a7 := JTF_VARCHAR2_TABLE_100();
116 a8 := JTF_VARCHAR2_TABLE_500();
117 a9 := JTF_VARCHAR2_TABLE_500();
118 a10 := JTF_VARCHAR2_TABLE_500();
119 a11 := JTF_VARCHAR2_TABLE_500();
120 a12 := JTF_VARCHAR2_TABLE_500();
121 a13 := JTF_VARCHAR2_TABLE_500();
122 a14 := JTF_VARCHAR2_TABLE_500();
123 a15 := JTF_VARCHAR2_TABLE_500();
124 a16 := JTF_VARCHAR2_TABLE_500();
125 a17 := JTF_VARCHAR2_TABLE_500();
126 a18 := JTF_VARCHAR2_TABLE_500();
127 a19 := JTF_VARCHAR2_TABLE_500();
128 a20 := JTF_VARCHAR2_TABLE_500();
129 a21 := JTF_VARCHAR2_TABLE_500();
130 a22 := JTF_VARCHAR2_TABLE_500();
131 a23 := JTF_NUMBER_TABLE();
132 a24 := JTF_DATE_TABLE();
133 a25 := JTF_NUMBER_TABLE();
134 a26 := JTF_DATE_TABLE();
135 a27 := JTF_NUMBER_TABLE();
136 else
137 a0 := JTF_NUMBER_TABLE();
138 a1 := JTF_NUMBER_TABLE();
139 a2 := JTF_VARCHAR2_TABLE_100();
140 a3 := JTF_NUMBER_TABLE();
141 a4 := JTF_VARCHAR2_TABLE_100();
142 a5 := JTF_DATE_TABLE();
143 a6 := JTF_DATE_TABLE();
144 a7 := JTF_VARCHAR2_TABLE_100();
145 a8 := JTF_VARCHAR2_TABLE_500();
146 a9 := JTF_VARCHAR2_TABLE_500();
147 a10 := JTF_VARCHAR2_TABLE_500();
148 a11 := JTF_VARCHAR2_TABLE_500();
149 a12 := JTF_VARCHAR2_TABLE_500();
150 a13 := JTF_VARCHAR2_TABLE_500();
151 a14 := JTF_VARCHAR2_TABLE_500();
152 a15 := JTF_VARCHAR2_TABLE_500();
153 a16 := JTF_VARCHAR2_TABLE_500();
154 a17 := JTF_VARCHAR2_TABLE_500();
155 a18 := JTF_VARCHAR2_TABLE_500();
156 a19 := JTF_VARCHAR2_TABLE_500();
157 a20 := JTF_VARCHAR2_TABLE_500();
158 a21 := JTF_VARCHAR2_TABLE_500();
159 a22 := JTF_VARCHAR2_TABLE_500();
160 a23 := JTF_NUMBER_TABLE();
161 a24 := JTF_DATE_TABLE();
162 a25 := JTF_NUMBER_TABLE();
163 a26 := JTF_DATE_TABLE();
164 a27 := JTF_NUMBER_TABLE();
165 if t.count > 0 then
166 a0.extend(t.count);
167 a1.extend(t.count);
168 a2.extend(t.count);
169 a3.extend(t.count);
170 a4.extend(t.count);
171 a5.extend(t.count);
172 a6.extend(t.count);
173 a7.extend(t.count);
174 a8.extend(t.count);
175 a9.extend(t.count);
176 a10.extend(t.count);
177 a11.extend(t.count);
178 a12.extend(t.count);
179 a13.extend(t.count);
180 a14.extend(t.count);
181 a15.extend(t.count);
182 a16.extend(t.count);
183 a17.extend(t.count);
184 a18.extend(t.count);
185 a19.extend(t.count);
186 a20.extend(t.count);
187 a21.extend(t.count);
188 a22.extend(t.count);
189 a23.extend(t.count);
190 a24.extend(t.count);
191 a25.extend(t.count);
192 a26.extend(t.count);
193 a27.extend(t.count);
194 ddindx := t.first;
195 indx := 1;
196 while true loop
197 a0(indx) := t(ddindx).adj_mat_version_id;
198 a1(indx) := t(ddindx).object_version_number;
199 a2(indx) := t(ddindx).version_number;
200 a3(indx) := t(ddindx).adj_mat_id;
201 a4(indx) := t(ddindx).sts_code;
202 a5(indx) := t(ddindx).effective_from_date;
203 a6(indx) := t(ddindx).effective_to_date;
204 a7(indx) := t(ddindx).attribute_category;
205 a8(indx) := t(ddindx).attribute1;
206 a9(indx) := t(ddindx).attribute2;
207 a10(indx) := t(ddindx).attribute3;
208 a11(indx) := t(ddindx).attribute4;
209 a12(indx) := t(ddindx).attribute5;
210 a13(indx) := t(ddindx).attribute6;
211 a14(indx) := t(ddindx).attribute7;
212 a15(indx) := t(ddindx).attribute8;
213 a16(indx) := t(ddindx).attribute9;
214 a17(indx) := t(ddindx).attribute10;
215 a18(indx) := t(ddindx).attribute11;
216 a19(indx) := t(ddindx).attribute12;
217 a20(indx) := t(ddindx).attribute13;
218 a21(indx) := t(ddindx).attribute14;
219 a22(indx) := t(ddindx).attribute15;
220 a23(indx) := t(ddindx).created_by;
221 a24(indx) := t(ddindx).creation_date;
222 a25(indx) := t(ddindx).last_updated_by;
223 a26(indx) := t(ddindx).last_update_date;
224 a27(indx) := t(ddindx).last_update_login;
225 indx := indx+1;
226 if t.last =ddindx
227 then exit;
228 end if;
229 ddindx := t.next(ddindx);
230 end loop;
231 end if;
232 end if;
233 end rosetta_table_copy_out_p1;
234
235 procedure insert_row(p_api_version NUMBER
236 , p_init_msg_list VARCHAR2
237 , x_return_status out nocopy VARCHAR2
238 , x_msg_count out nocopy NUMBER
239 , x_msg_data out nocopy VARCHAR2
240 , p5_a0 NUMBER
241 , p5_a1 NUMBER
242 , p5_a2 VARCHAR2
243 , p5_a3 NUMBER
244 , p5_a4 VARCHAR2
245 , p5_a5 DATE
246 , p5_a6 DATE
247 , p5_a7 VARCHAR2
248 , p5_a8 VARCHAR2
249 , p5_a9 VARCHAR2
250 , p5_a10 VARCHAR2
251 , p5_a11 VARCHAR2
252 , p5_a12 VARCHAR2
253 , p5_a13 VARCHAR2
254 , p5_a14 VARCHAR2
255 , p5_a15 VARCHAR2
256 , p5_a16 VARCHAR2
257 , p5_a17 VARCHAR2
258 , p5_a18 VARCHAR2
259 , p5_a19 VARCHAR2
260 , p5_a20 VARCHAR2
261 , p5_a21 VARCHAR2
262 , p5_a22 VARCHAR2
263 , p5_a23 NUMBER
264 , p5_a24 DATE
265 , p5_a25 NUMBER
266 , p5_a26 DATE
267 , p5_a27 NUMBER
268 , p6_a0 out nocopy NUMBER
269 , p6_a1 out nocopy NUMBER
270 , p6_a2 out nocopy VARCHAR2
271 , p6_a3 out nocopy NUMBER
272 , p6_a4 out nocopy VARCHAR2
273 , p6_a5 out nocopy DATE
274 , p6_a6 out nocopy DATE
275 , p6_a7 out nocopy VARCHAR2
276 , p6_a8 out nocopy VARCHAR2
277 , p6_a9 out nocopy VARCHAR2
278 , p6_a10 out nocopy VARCHAR2
279 , p6_a11 out nocopy VARCHAR2
280 , p6_a12 out nocopy VARCHAR2
281 , p6_a13 out nocopy VARCHAR2
282 , p6_a14 out nocopy VARCHAR2
283 , p6_a15 out nocopy VARCHAR2
284 , p6_a16 out nocopy VARCHAR2
285 , p6_a17 out nocopy VARCHAR2
286 , p6_a18 out nocopy VARCHAR2
287 , p6_a19 out nocopy VARCHAR2
288 , p6_a20 out nocopy VARCHAR2
289 , p6_a21 out nocopy VARCHAR2
290 , p6_a22 out nocopy VARCHAR2
291 , p6_a23 out nocopy NUMBER
292 , p6_a24 out nocopy DATE
293 , p6_a25 out nocopy NUMBER
294 , p6_a26 out nocopy DATE
295 , p6_a27 out nocopy NUMBER
296 )
297
298 as
299 ddp_pal_rec okl_pal_pvt.okl_pal_rec;
300 ddx_pal_rec okl_pal_pvt.okl_pal_rec;
301 ddindx binary_integer; indx binary_integer;
302 begin
303
304 -- copy data to the local IN or IN-OUT args, if any
305
306
307
308
309
310 ddp_pal_rec.adj_mat_version_id := p5_a0;
311 ddp_pal_rec.object_version_number := p5_a1;
312 ddp_pal_rec.version_number := p5_a2;
313 ddp_pal_rec.adj_mat_id := p5_a3;
314 ddp_pal_rec.sts_code := p5_a4;
315 ddp_pal_rec.effective_from_date := p5_a5;
316 ddp_pal_rec.effective_to_date := p5_a6;
317 ddp_pal_rec.attribute_category := p5_a7;
318 ddp_pal_rec.attribute1 := p5_a8;
319 ddp_pal_rec.attribute2 := p5_a9;
320 ddp_pal_rec.attribute3 := p5_a10;
321 ddp_pal_rec.attribute4 := p5_a11;
322 ddp_pal_rec.attribute5 := p5_a12;
323 ddp_pal_rec.attribute6 := p5_a13;
324 ddp_pal_rec.attribute7 := p5_a14;
325 ddp_pal_rec.attribute8 := p5_a15;
326 ddp_pal_rec.attribute9 := p5_a16;
327 ddp_pal_rec.attribute10 := p5_a17;
328 ddp_pal_rec.attribute11 := p5_a18;
329 ddp_pal_rec.attribute12 := p5_a19;
330 ddp_pal_rec.attribute13 := p5_a20;
331 ddp_pal_rec.attribute14 := p5_a21;
332 ddp_pal_rec.attribute15 := p5_a22;
333 ddp_pal_rec.created_by := p5_a23;
334 ddp_pal_rec.creation_date := p5_a24;
335 ddp_pal_rec.last_updated_by := p5_a25;
336 ddp_pal_rec.last_update_date := p5_a26;
337 ddp_pal_rec.last_update_login := p5_a27;
338
339
340 -- here's the delegated call to the old PL/SQL routine
341 okl_pal_pvt.insert_row(p_api_version,
342 p_init_msg_list,
343 x_return_status,
344 x_msg_count,
345 x_msg_data,
346 ddp_pal_rec,
347 ddx_pal_rec);
348
349 -- copy data back from the local variables to OUT or IN-OUT args, if any
350
351
352
353
354
355
356 p6_a0 := ddx_pal_rec.adj_mat_version_id;
357 p6_a1 := ddx_pal_rec.object_version_number;
358 p6_a2 := ddx_pal_rec.version_number;
359 p6_a3 := ddx_pal_rec.adj_mat_id;
360 p6_a4 := ddx_pal_rec.sts_code;
361 p6_a5 := ddx_pal_rec.effective_from_date;
362 p6_a6 := ddx_pal_rec.effective_to_date;
363 p6_a7 := ddx_pal_rec.attribute_category;
364 p6_a8 := ddx_pal_rec.attribute1;
365 p6_a9 := ddx_pal_rec.attribute2;
366 p6_a10 := ddx_pal_rec.attribute3;
367 p6_a11 := ddx_pal_rec.attribute4;
368 p6_a12 := ddx_pal_rec.attribute5;
369 p6_a13 := ddx_pal_rec.attribute6;
370 p6_a14 := ddx_pal_rec.attribute7;
371 p6_a15 := ddx_pal_rec.attribute8;
372 p6_a16 := ddx_pal_rec.attribute9;
373 p6_a17 := ddx_pal_rec.attribute10;
374 p6_a18 := ddx_pal_rec.attribute11;
375 p6_a19 := ddx_pal_rec.attribute12;
376 p6_a20 := ddx_pal_rec.attribute13;
377 p6_a21 := ddx_pal_rec.attribute14;
378 p6_a22 := ddx_pal_rec.attribute15;
379 p6_a23 := ddx_pal_rec.created_by;
380 p6_a24 := ddx_pal_rec.creation_date;
381 p6_a25 := ddx_pal_rec.last_updated_by;
382 p6_a26 := ddx_pal_rec.last_update_date;
383 p6_a27 := ddx_pal_rec.last_update_login;
384 end;
385
386 procedure insert_row(p_api_version NUMBER
387 , p_init_msg_list VARCHAR2
388 , x_return_status out nocopy VARCHAR2
389 , x_msg_count out nocopy NUMBER
390 , x_msg_data out nocopy VARCHAR2
391 , p5_a0 JTF_NUMBER_TABLE
392 , p5_a1 JTF_NUMBER_TABLE
393 , p5_a2 JTF_VARCHAR2_TABLE_100
394 , p5_a3 JTF_NUMBER_TABLE
395 , p5_a4 JTF_VARCHAR2_TABLE_100
396 , p5_a5 JTF_DATE_TABLE
397 , p5_a6 JTF_DATE_TABLE
398 , p5_a7 JTF_VARCHAR2_TABLE_100
399 , p5_a8 JTF_VARCHAR2_TABLE_500
400 , p5_a9 JTF_VARCHAR2_TABLE_500
401 , p5_a10 JTF_VARCHAR2_TABLE_500
402 , p5_a11 JTF_VARCHAR2_TABLE_500
403 , p5_a12 JTF_VARCHAR2_TABLE_500
404 , p5_a13 JTF_VARCHAR2_TABLE_500
405 , p5_a14 JTF_VARCHAR2_TABLE_500
406 , p5_a15 JTF_VARCHAR2_TABLE_500
407 , p5_a16 JTF_VARCHAR2_TABLE_500
408 , p5_a17 JTF_VARCHAR2_TABLE_500
409 , p5_a18 JTF_VARCHAR2_TABLE_500
410 , p5_a19 JTF_VARCHAR2_TABLE_500
411 , p5_a20 JTF_VARCHAR2_TABLE_500
412 , p5_a21 JTF_VARCHAR2_TABLE_500
413 , p5_a22 JTF_VARCHAR2_TABLE_500
414 , p5_a23 JTF_NUMBER_TABLE
415 , p5_a24 JTF_DATE_TABLE
416 , p5_a25 JTF_NUMBER_TABLE
417 , p5_a26 JTF_DATE_TABLE
418 , p5_a27 JTF_NUMBER_TABLE
419 , p6_a0 out nocopy JTF_NUMBER_TABLE
420 , p6_a1 out nocopy JTF_NUMBER_TABLE
421 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
422 , p6_a3 out nocopy JTF_NUMBER_TABLE
423 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
424 , p6_a5 out nocopy JTF_DATE_TABLE
425 , p6_a6 out nocopy JTF_DATE_TABLE
426 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
427 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
428 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
429 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
430 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
431 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
432 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
433 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
434 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
435 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
436 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
437 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
438 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
439 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
440 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
441 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
442 , p6_a23 out nocopy JTF_NUMBER_TABLE
443 , p6_a24 out nocopy JTF_DATE_TABLE
444 , p6_a25 out nocopy JTF_NUMBER_TABLE
445 , p6_a26 out nocopy JTF_DATE_TABLE
446 , p6_a27 out nocopy JTF_NUMBER_TABLE
447 )
448
449 as
450 ddp_pal_tbl okl_pal_pvt.okl_pal_tbl;
451 ddx_pal_tbl okl_pal_pvt.okl_pal_tbl;
452 ddindx binary_integer; indx binary_integer;
453 begin
454
455 -- copy data to the local IN or IN-OUT args, if any
456
457
458
459
460
461 okl_pal_pvt_w.rosetta_table_copy_in_p1(ddp_pal_tbl, p5_a0
462 , p5_a1
463 , p5_a2
464 , p5_a3
465 , p5_a4
466 , p5_a5
467 , p5_a6
468 , p5_a7
469 , p5_a8
470 , p5_a9
471 , p5_a10
472 , p5_a11
473 , p5_a12
474 , p5_a13
475 , p5_a14
476 , p5_a15
477 , p5_a16
478 , p5_a17
479 , p5_a18
480 , p5_a19
481 , p5_a20
482 , p5_a21
483 , p5_a22
484 , p5_a23
485 , p5_a24
486 , p5_a25
487 , p5_a26
488 , p5_a27
489 );
490
491
492 -- here's the delegated call to the old PL/SQL routine
493 okl_pal_pvt.insert_row(p_api_version,
494 p_init_msg_list,
495 x_return_status,
496 x_msg_count,
497 x_msg_data,
498 ddp_pal_tbl,
499 ddx_pal_tbl);
500
501 -- copy data back from the local variables to OUT or IN-OUT args, if any
502
503
504
505
506
507
508 okl_pal_pvt_w.rosetta_table_copy_out_p1(ddx_pal_tbl, p6_a0
509 , p6_a1
510 , p6_a2
511 , p6_a3
512 , p6_a4
513 , p6_a5
514 , p6_a6
515 , p6_a7
516 , p6_a8
517 , p6_a9
518 , p6_a10
519 , p6_a11
520 , p6_a12
521 , p6_a13
522 , p6_a14
523 , p6_a15
524 , p6_a16
525 , p6_a17
526 , p6_a18
527 , p6_a19
528 , p6_a20
529 , p6_a21
530 , p6_a22
531 , p6_a23
532 , p6_a24
533 , p6_a25
534 , p6_a26
535 , p6_a27
536 );
537 end;
538
539 procedure update_row(p_api_version NUMBER
540 , p_init_msg_list VARCHAR2
541 , x_return_status out nocopy VARCHAR2
542 , x_msg_count out nocopy NUMBER
543 , x_msg_data out nocopy VARCHAR2
544 , p5_a0 NUMBER
545 , p5_a1 NUMBER
546 , p5_a2 VARCHAR2
547 , p5_a3 NUMBER
548 , p5_a4 VARCHAR2
549 , p5_a5 DATE
550 , p5_a6 DATE
551 , p5_a7 VARCHAR2
552 , p5_a8 VARCHAR2
553 , p5_a9 VARCHAR2
554 , p5_a10 VARCHAR2
555 , p5_a11 VARCHAR2
556 , p5_a12 VARCHAR2
557 , p5_a13 VARCHAR2
558 , p5_a14 VARCHAR2
559 , p5_a15 VARCHAR2
560 , p5_a16 VARCHAR2
561 , p5_a17 VARCHAR2
562 , p5_a18 VARCHAR2
563 , p5_a19 VARCHAR2
564 , p5_a20 VARCHAR2
565 , p5_a21 VARCHAR2
566 , p5_a22 VARCHAR2
567 , p5_a23 NUMBER
568 , p5_a24 DATE
569 , p5_a25 NUMBER
570 , p5_a26 DATE
571 , p5_a27 NUMBER
572 , p6_a0 out nocopy NUMBER
573 , p6_a1 out nocopy NUMBER
574 , p6_a2 out nocopy VARCHAR2
575 , p6_a3 out nocopy NUMBER
576 , p6_a4 out nocopy VARCHAR2
577 , p6_a5 out nocopy DATE
578 , p6_a6 out nocopy DATE
579 , p6_a7 out nocopy VARCHAR2
580 , p6_a8 out nocopy VARCHAR2
581 , p6_a9 out nocopy VARCHAR2
582 , p6_a10 out nocopy VARCHAR2
583 , p6_a11 out nocopy VARCHAR2
584 , p6_a12 out nocopy VARCHAR2
585 , p6_a13 out nocopy VARCHAR2
586 , p6_a14 out nocopy VARCHAR2
587 , p6_a15 out nocopy VARCHAR2
588 , p6_a16 out nocopy VARCHAR2
589 , p6_a17 out nocopy VARCHAR2
590 , p6_a18 out nocopy VARCHAR2
591 , p6_a19 out nocopy VARCHAR2
592 , p6_a20 out nocopy VARCHAR2
593 , p6_a21 out nocopy VARCHAR2
594 , p6_a22 out nocopy VARCHAR2
595 , p6_a23 out nocopy NUMBER
596 , p6_a24 out nocopy DATE
597 , p6_a25 out nocopy NUMBER
598 , p6_a26 out nocopy DATE
599 , p6_a27 out nocopy NUMBER
600 )
601
602 as
603 ddp_pal_rec okl_pal_pvt.okl_pal_rec;
604 ddx_pal_rec okl_pal_pvt.okl_pal_rec;
605 ddindx binary_integer; indx binary_integer;
606 begin
607
608 -- copy data to the local IN or IN-OUT args, if any
609
610
611
612
613
614 ddp_pal_rec.adj_mat_version_id := p5_a0;
615 ddp_pal_rec.object_version_number := p5_a1;
616 ddp_pal_rec.version_number := p5_a2;
617 ddp_pal_rec.adj_mat_id := p5_a3;
618 ddp_pal_rec.sts_code := p5_a4;
619 ddp_pal_rec.effective_from_date := p5_a5;
620 ddp_pal_rec.effective_to_date := p5_a6;
621 ddp_pal_rec.attribute_category := p5_a7;
622 ddp_pal_rec.attribute1 := p5_a8;
623 ddp_pal_rec.attribute2 := p5_a9;
624 ddp_pal_rec.attribute3 := p5_a10;
625 ddp_pal_rec.attribute4 := p5_a11;
626 ddp_pal_rec.attribute5 := p5_a12;
627 ddp_pal_rec.attribute6 := p5_a13;
628 ddp_pal_rec.attribute7 := p5_a14;
629 ddp_pal_rec.attribute8 := p5_a15;
630 ddp_pal_rec.attribute9 := p5_a16;
631 ddp_pal_rec.attribute10 := p5_a17;
632 ddp_pal_rec.attribute11 := p5_a18;
633 ddp_pal_rec.attribute12 := p5_a19;
634 ddp_pal_rec.attribute13 := p5_a20;
635 ddp_pal_rec.attribute14 := p5_a21;
636 ddp_pal_rec.attribute15 := p5_a22;
637 ddp_pal_rec.created_by := p5_a23;
638 ddp_pal_rec.creation_date := p5_a24;
639 ddp_pal_rec.last_updated_by := p5_a25;
640 ddp_pal_rec.last_update_date := p5_a26;
641 ddp_pal_rec.last_update_login := p5_a27;
642
643
644 -- here's the delegated call to the old PL/SQL routine
645 okl_pal_pvt.update_row(p_api_version,
646 p_init_msg_list,
647 x_return_status,
648 x_msg_count,
649 x_msg_data,
650 ddp_pal_rec,
651 ddx_pal_rec);
652
653 -- copy data back from the local variables to OUT or IN-OUT args, if any
654
655
656
657
658
659
660 p6_a0 := ddx_pal_rec.adj_mat_version_id;
661 p6_a1 := ddx_pal_rec.object_version_number;
662 p6_a2 := ddx_pal_rec.version_number;
663 p6_a3 := ddx_pal_rec.adj_mat_id;
664 p6_a4 := ddx_pal_rec.sts_code;
665 p6_a5 := ddx_pal_rec.effective_from_date;
666 p6_a6 := ddx_pal_rec.effective_to_date;
667 p6_a7 := ddx_pal_rec.attribute_category;
668 p6_a8 := ddx_pal_rec.attribute1;
669 p6_a9 := ddx_pal_rec.attribute2;
670 p6_a10 := ddx_pal_rec.attribute3;
671 p6_a11 := ddx_pal_rec.attribute4;
672 p6_a12 := ddx_pal_rec.attribute5;
673 p6_a13 := ddx_pal_rec.attribute6;
674 p6_a14 := ddx_pal_rec.attribute7;
675 p6_a15 := ddx_pal_rec.attribute8;
676 p6_a16 := ddx_pal_rec.attribute9;
677 p6_a17 := ddx_pal_rec.attribute10;
678 p6_a18 := ddx_pal_rec.attribute11;
679 p6_a19 := ddx_pal_rec.attribute12;
680 p6_a20 := ddx_pal_rec.attribute13;
681 p6_a21 := ddx_pal_rec.attribute14;
682 p6_a22 := ddx_pal_rec.attribute15;
683 p6_a23 := ddx_pal_rec.created_by;
684 p6_a24 := ddx_pal_rec.creation_date;
685 p6_a25 := ddx_pal_rec.last_updated_by;
686 p6_a26 := ddx_pal_rec.last_update_date;
687 p6_a27 := ddx_pal_rec.last_update_login;
688 end;
689
690 procedure update_row(p_api_version NUMBER
691 , p_init_msg_list VARCHAR2
692 , x_return_status out nocopy VARCHAR2
693 , x_msg_count out nocopy NUMBER
694 , x_msg_data out nocopy VARCHAR2
695 , p5_a0 JTF_NUMBER_TABLE
696 , p5_a1 JTF_NUMBER_TABLE
697 , p5_a2 JTF_VARCHAR2_TABLE_100
698 , p5_a3 JTF_NUMBER_TABLE
699 , p5_a4 JTF_VARCHAR2_TABLE_100
700 , p5_a5 JTF_DATE_TABLE
701 , p5_a6 JTF_DATE_TABLE
702 , p5_a7 JTF_VARCHAR2_TABLE_100
703 , p5_a8 JTF_VARCHAR2_TABLE_500
704 , p5_a9 JTF_VARCHAR2_TABLE_500
705 , p5_a10 JTF_VARCHAR2_TABLE_500
706 , p5_a11 JTF_VARCHAR2_TABLE_500
707 , p5_a12 JTF_VARCHAR2_TABLE_500
708 , p5_a13 JTF_VARCHAR2_TABLE_500
709 , p5_a14 JTF_VARCHAR2_TABLE_500
710 , p5_a15 JTF_VARCHAR2_TABLE_500
711 , p5_a16 JTF_VARCHAR2_TABLE_500
712 , p5_a17 JTF_VARCHAR2_TABLE_500
713 , p5_a18 JTF_VARCHAR2_TABLE_500
714 , p5_a19 JTF_VARCHAR2_TABLE_500
715 , p5_a20 JTF_VARCHAR2_TABLE_500
716 , p5_a21 JTF_VARCHAR2_TABLE_500
717 , p5_a22 JTF_VARCHAR2_TABLE_500
718 , p5_a23 JTF_NUMBER_TABLE
719 , p5_a24 JTF_DATE_TABLE
720 , p5_a25 JTF_NUMBER_TABLE
721 , p5_a26 JTF_DATE_TABLE
722 , p5_a27 JTF_NUMBER_TABLE
723 , p6_a0 out nocopy JTF_NUMBER_TABLE
724 , p6_a1 out nocopy JTF_NUMBER_TABLE
725 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
726 , p6_a3 out nocopy JTF_NUMBER_TABLE
727 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
728 , p6_a5 out nocopy JTF_DATE_TABLE
729 , p6_a6 out nocopy JTF_DATE_TABLE
730 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
731 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
732 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
733 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
734 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
735 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
736 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
737 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
738 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
739 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
740 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
741 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
742 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
743 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
744 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
745 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
746 , p6_a23 out nocopy JTF_NUMBER_TABLE
747 , p6_a24 out nocopy JTF_DATE_TABLE
748 , p6_a25 out nocopy JTF_NUMBER_TABLE
749 , p6_a26 out nocopy JTF_DATE_TABLE
750 , p6_a27 out nocopy JTF_NUMBER_TABLE
751 )
752
753 as
754 ddp_pal_tbl okl_pal_pvt.okl_pal_tbl;
755 ddx_pal_tbl okl_pal_pvt.okl_pal_tbl;
756 ddindx binary_integer; indx binary_integer;
757 begin
758
759 -- copy data to the local IN or IN-OUT args, if any
760
761
762
763
764
765 okl_pal_pvt_w.rosetta_table_copy_in_p1(ddp_pal_tbl, p5_a0
766 , p5_a1
767 , p5_a2
768 , p5_a3
769 , p5_a4
770 , p5_a5
771 , p5_a6
772 , p5_a7
773 , p5_a8
774 , p5_a9
775 , p5_a10
776 , p5_a11
777 , p5_a12
778 , p5_a13
779 , p5_a14
780 , p5_a15
781 , p5_a16
782 , p5_a17
783 , p5_a18
784 , p5_a19
785 , p5_a20
786 , p5_a21
787 , p5_a22
788 , p5_a23
789 , p5_a24
790 , p5_a25
791 , p5_a26
792 , p5_a27
793 );
794
795
796 -- here's the delegated call to the old PL/SQL routine
797 okl_pal_pvt.update_row(p_api_version,
798 p_init_msg_list,
799 x_return_status,
800 x_msg_count,
801 x_msg_data,
802 ddp_pal_tbl,
803 ddx_pal_tbl);
804
805 -- copy data back from the local variables to OUT or IN-OUT args, if any
806
807
808
809
810
811
812 okl_pal_pvt_w.rosetta_table_copy_out_p1(ddx_pal_tbl, p6_a0
813 , p6_a1
814 , p6_a2
815 , p6_a3
816 , p6_a4
817 , p6_a5
818 , p6_a6
819 , p6_a7
820 , p6_a8
821 , p6_a9
822 , p6_a10
823 , p6_a11
824 , p6_a12
825 , p6_a13
826 , p6_a14
827 , p6_a15
828 , p6_a16
829 , p6_a17
830 , p6_a18
831 , p6_a19
832 , p6_a20
833 , p6_a21
834 , p6_a22
835 , p6_a23
836 , p6_a24
837 , p6_a25
838 , p6_a26
839 , p6_a27
840 );
841 end;
842
843 procedure delete_row(p_api_version NUMBER
844 , p_init_msg_list VARCHAR2
845 , x_return_status out nocopy VARCHAR2
846 , x_msg_count out nocopy NUMBER
847 , x_msg_data out nocopy VARCHAR2
848 , p5_a0 NUMBER
849 , p5_a1 NUMBER
850 , p5_a2 VARCHAR2
851 , p5_a3 NUMBER
852 , p5_a4 VARCHAR2
853 , p5_a5 DATE
854 , p5_a6 DATE
855 , p5_a7 VARCHAR2
856 , p5_a8 VARCHAR2
857 , p5_a9 VARCHAR2
858 , p5_a10 VARCHAR2
859 , p5_a11 VARCHAR2
860 , p5_a12 VARCHAR2
861 , p5_a13 VARCHAR2
862 , p5_a14 VARCHAR2
863 , p5_a15 VARCHAR2
864 , p5_a16 VARCHAR2
865 , p5_a17 VARCHAR2
866 , p5_a18 VARCHAR2
867 , p5_a19 VARCHAR2
868 , p5_a20 VARCHAR2
869 , p5_a21 VARCHAR2
870 , p5_a22 VARCHAR2
871 , p5_a23 NUMBER
872 , p5_a24 DATE
873 , p5_a25 NUMBER
874 , p5_a26 DATE
875 , p5_a27 NUMBER
876 )
877
878 as
879 ddp_pal_rec okl_pal_pvt.okl_pal_rec;
880 ddindx binary_integer; indx binary_integer;
881 begin
882
883 -- copy data to the local IN or IN-OUT args, if any
884
885
886
887
888
889 ddp_pal_rec.adj_mat_version_id := p5_a0;
890 ddp_pal_rec.object_version_number := p5_a1;
891 ddp_pal_rec.version_number := p5_a2;
892 ddp_pal_rec.adj_mat_id := p5_a3;
893 ddp_pal_rec.sts_code := p5_a4;
894 ddp_pal_rec.effective_from_date := p5_a5;
895 ddp_pal_rec.effective_to_date := p5_a6;
896 ddp_pal_rec.attribute_category := p5_a7;
897 ddp_pal_rec.attribute1 := p5_a8;
898 ddp_pal_rec.attribute2 := p5_a9;
899 ddp_pal_rec.attribute3 := p5_a10;
900 ddp_pal_rec.attribute4 := p5_a11;
901 ddp_pal_rec.attribute5 := p5_a12;
902 ddp_pal_rec.attribute6 := p5_a13;
903 ddp_pal_rec.attribute7 := p5_a14;
904 ddp_pal_rec.attribute8 := p5_a15;
905 ddp_pal_rec.attribute9 := p5_a16;
906 ddp_pal_rec.attribute10 := p5_a17;
907 ddp_pal_rec.attribute11 := p5_a18;
908 ddp_pal_rec.attribute12 := p5_a19;
909 ddp_pal_rec.attribute13 := p5_a20;
910 ddp_pal_rec.attribute14 := p5_a21;
911 ddp_pal_rec.attribute15 := p5_a22;
912 ddp_pal_rec.created_by := p5_a23;
913 ddp_pal_rec.creation_date := p5_a24;
914 ddp_pal_rec.last_updated_by := p5_a25;
915 ddp_pal_rec.last_update_date := p5_a26;
916 ddp_pal_rec.last_update_login := p5_a27;
917
918 -- here's the delegated call to the old PL/SQL routine
919 okl_pal_pvt.delete_row(p_api_version,
920 p_init_msg_list,
921 x_return_status,
922 x_msg_count,
923 x_msg_data,
924 ddp_pal_rec);
925
926 -- copy data back from the local variables to OUT or IN-OUT args, if any
927
928
929
930
931
932 end;
933
934 procedure delete_row(p_api_version NUMBER
935 , p_init_msg_list VARCHAR2
936 , x_return_status out nocopy VARCHAR2
937 , x_msg_count out nocopy NUMBER
938 , x_msg_data out nocopy VARCHAR2
939 , p5_a0 JTF_NUMBER_TABLE
940 , p5_a1 JTF_NUMBER_TABLE
941 , p5_a2 JTF_VARCHAR2_TABLE_100
942 , p5_a3 JTF_NUMBER_TABLE
943 , p5_a4 JTF_VARCHAR2_TABLE_100
944 , p5_a5 JTF_DATE_TABLE
945 , p5_a6 JTF_DATE_TABLE
946 , p5_a7 JTF_VARCHAR2_TABLE_100
947 , p5_a8 JTF_VARCHAR2_TABLE_500
948 , p5_a9 JTF_VARCHAR2_TABLE_500
949 , p5_a10 JTF_VARCHAR2_TABLE_500
950 , p5_a11 JTF_VARCHAR2_TABLE_500
951 , p5_a12 JTF_VARCHAR2_TABLE_500
952 , p5_a13 JTF_VARCHAR2_TABLE_500
953 , p5_a14 JTF_VARCHAR2_TABLE_500
954 , p5_a15 JTF_VARCHAR2_TABLE_500
955 , p5_a16 JTF_VARCHAR2_TABLE_500
956 , p5_a17 JTF_VARCHAR2_TABLE_500
957 , p5_a18 JTF_VARCHAR2_TABLE_500
958 , p5_a19 JTF_VARCHAR2_TABLE_500
959 , p5_a20 JTF_VARCHAR2_TABLE_500
960 , p5_a21 JTF_VARCHAR2_TABLE_500
961 , p5_a22 JTF_VARCHAR2_TABLE_500
962 , p5_a23 JTF_NUMBER_TABLE
963 , p5_a24 JTF_DATE_TABLE
964 , p5_a25 JTF_NUMBER_TABLE
965 , p5_a26 JTF_DATE_TABLE
966 , p5_a27 JTF_NUMBER_TABLE
967 )
968
969 as
970 ddp_pal_tbl okl_pal_pvt.okl_pal_tbl;
971 ddindx binary_integer; indx binary_integer;
972 begin
973
974 -- copy data to the local IN or IN-OUT args, if any
975
976
977
978
979
980 okl_pal_pvt_w.rosetta_table_copy_in_p1(ddp_pal_tbl, p5_a0
981 , p5_a1
982 , p5_a2
983 , p5_a3
984 , p5_a4
985 , p5_a5
986 , p5_a6
987 , p5_a7
988 , p5_a8
989 , p5_a9
990 , p5_a10
991 , p5_a11
992 , p5_a12
993 , p5_a13
994 , p5_a14
995 , p5_a15
996 , p5_a16
997 , p5_a17
998 , p5_a18
999 , p5_a19
1000 , p5_a20
1001 , p5_a21
1002 , p5_a22
1003 , p5_a23
1004 , p5_a24
1005 , p5_a25
1006 , p5_a26
1007 , p5_a27
1008 );
1009
1010 -- here's the delegated call to the old PL/SQL routine
1011 okl_pal_pvt.delete_row(p_api_version,
1012 p_init_msg_list,
1013 x_return_status,
1014 x_msg_count,
1015 x_msg_data,
1016 ddp_pal_tbl);
1017
1018 -- copy data back from the local variables to OUT or IN-OUT args, if any
1019
1020
1021
1022
1023
1024 end;
1025
1026 end okl_pal_pvt_w;