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