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