[Home] [Help]
PACKAGE BODY: APPS.CN_PAY_ELEMENT_INPUTS_PVT_W
Source
1 package body cn_pay_element_inputs_pvt_w as
2 /* $Header: cnwqpib.pls 115.3 2002/02/05 00:29:12 pkm ship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure rosetta_table_copy_in_p2(t out cn_pay_element_inputs_pvt.pay_element_input_tbl_type, a0 JTF_VARCHAR2_TABLE_100
23 , a1 JTF_DATE_TABLE
24 , a2 JTF_DATE_TABLE
25 , a3 JTF_VARCHAR2_TABLE_100
26 , a4 JTF_VARCHAR2_TABLE_100
27 , a5 JTF_VARCHAR2_TABLE_100
28 , a6 JTF_NUMBER_TABLE
29 , a7 JTF_NUMBER_TABLE
30 , a8 JTF_NUMBER_TABLE
31 , a9 JTF_NUMBER_TABLE
32 , a10 JTF_NUMBER_TABLE
33 , a11 JTF_NUMBER_TABLE
34 , a12 JTF_NUMBER_TABLE
35 , a13 JTF_VARCHAR2_TABLE_100
36 , a14 JTF_VARCHAR2_TABLE_200
37 , a15 JTF_VARCHAR2_TABLE_200
38 , a16 JTF_VARCHAR2_TABLE_200
39 , a17 JTF_VARCHAR2_TABLE_200
40 , a18 JTF_VARCHAR2_TABLE_200
41 , a19 JTF_VARCHAR2_TABLE_200
42 , a20 JTF_VARCHAR2_TABLE_200
43 , a21 JTF_VARCHAR2_TABLE_200
44 , a22 JTF_VARCHAR2_TABLE_200
45 , a23 JTF_VARCHAR2_TABLE_200
46 , a24 JTF_VARCHAR2_TABLE_200
47 , a25 JTF_VARCHAR2_TABLE_200
48 , a26 JTF_VARCHAR2_TABLE_200
49 , a27 JTF_VARCHAR2_TABLE_200
50 , a28 JTF_VARCHAR2_TABLE_200
51 ) as
52 ddindx binary_integer; indx binary_integer;
53 begin
54 if a0 is not null and a0.count > 0 then
55 if a0.count > 0 then
56 indx := a0.first;
57 ddindx := 1;
58 while true loop
59 t(ddindx).pay_element_name := a0(indx);
60 t(ddindx).start_date := rosetta_g_miss_date_in_map(a1(indx));
61 t(ddindx).end_date := rosetta_g_miss_date_in_map(a2(indx));
62 t(ddindx).table_name := a3(indx);
63 t(ddindx).column_name := a4(indx);
64 t(ddindx).pay_input_name := a5(indx);
65 t(ddindx).line_number := a6(indx);
66 t(ddindx).pay_element_input_id := a7(indx);
67 t(ddindx).quota_pay_element_id := a8(indx);
68 t(ddindx).element_input_id := a9(indx);
69 t(ddindx).element_type_id := a10(indx);
70 t(ddindx).tab_object_id := a11(indx);
71 t(ddindx).col_object_id := a12(indx);
72 t(ddindx).attribute_category := a13(indx);
73 t(ddindx).attribute1 := a14(indx);
74 t(ddindx).attribute2 := a15(indx);
75 t(ddindx).attribute3 := a16(indx);
76 t(ddindx).attribute4 := a17(indx);
77 t(ddindx).attribute5 := a18(indx);
78 t(ddindx).attribute6 := a19(indx);
79 t(ddindx).attribute7 := a20(indx);
80 t(ddindx).attribute8 := a21(indx);
81 t(ddindx).attribute9 := a22(indx);
82 t(ddindx).attribute10 := a23(indx);
83 t(ddindx).attribute11 := a24(indx);
84 t(ddindx).attribute12 := a25(indx);
85 t(ddindx).attribute13 := a26(indx);
86 t(ddindx).attribute14 := a27(indx);
87 t(ddindx).attribute15 := a28(indx);
88 ddindx := ddindx+1;
89 if a0.last =indx
90 then exit;
91 end if;
92 indx := a0.next(indx);
93 end loop;
94 end if;
95 end if;
96 end rosetta_table_copy_in_p2;
97 procedure rosetta_table_copy_out_p2(t cn_pay_element_inputs_pvt.pay_element_input_tbl_type, a0 out JTF_VARCHAR2_TABLE_100
98 , a1 out JTF_DATE_TABLE
99 , a2 out JTF_DATE_TABLE
100 , a3 out JTF_VARCHAR2_TABLE_100
101 , a4 out JTF_VARCHAR2_TABLE_100
102 , a5 out JTF_VARCHAR2_TABLE_100
103 , a6 out JTF_NUMBER_TABLE
104 , a7 out JTF_NUMBER_TABLE
105 , a8 out JTF_NUMBER_TABLE
106 , a9 out JTF_NUMBER_TABLE
107 , a10 out JTF_NUMBER_TABLE
108 , a11 out JTF_NUMBER_TABLE
109 , a12 out JTF_NUMBER_TABLE
110 , a13 out JTF_VARCHAR2_TABLE_100
111 , a14 out JTF_VARCHAR2_TABLE_200
112 , a15 out JTF_VARCHAR2_TABLE_200
113 , a16 out JTF_VARCHAR2_TABLE_200
114 , a17 out JTF_VARCHAR2_TABLE_200
115 , a18 out JTF_VARCHAR2_TABLE_200
116 , a19 out JTF_VARCHAR2_TABLE_200
117 , a20 out JTF_VARCHAR2_TABLE_200
118 , a21 out JTF_VARCHAR2_TABLE_200
119 , a22 out JTF_VARCHAR2_TABLE_200
120 , a23 out JTF_VARCHAR2_TABLE_200
121 , a24 out JTF_VARCHAR2_TABLE_200
122 , a25 out JTF_VARCHAR2_TABLE_200
123 , a26 out JTF_VARCHAR2_TABLE_200
124 , a27 out JTF_VARCHAR2_TABLE_200
125 , a28 out JTF_VARCHAR2_TABLE_200
126 ) as
127 ddindx binary_integer; indx binary_integer;
128 begin
129 if t is null or t.count = 0 then
130 a0 := JTF_VARCHAR2_TABLE_100();
131 a1 := JTF_DATE_TABLE();
132 a2 := JTF_DATE_TABLE();
133 a3 := JTF_VARCHAR2_TABLE_100();
134 a4 := JTF_VARCHAR2_TABLE_100();
135 a5 := JTF_VARCHAR2_TABLE_100();
136 a6 := JTF_NUMBER_TABLE();
137 a7 := JTF_NUMBER_TABLE();
138 a8 := JTF_NUMBER_TABLE();
139 a9 := JTF_NUMBER_TABLE();
140 a10 := JTF_NUMBER_TABLE();
141 a11 := JTF_NUMBER_TABLE();
142 a12 := JTF_NUMBER_TABLE();
143 a13 := JTF_VARCHAR2_TABLE_100();
144 a14 := JTF_VARCHAR2_TABLE_200();
145 a15 := JTF_VARCHAR2_TABLE_200();
146 a16 := JTF_VARCHAR2_TABLE_200();
147 a17 := JTF_VARCHAR2_TABLE_200();
148 a18 := JTF_VARCHAR2_TABLE_200();
149 a19 := JTF_VARCHAR2_TABLE_200();
150 a20 := JTF_VARCHAR2_TABLE_200();
151 a21 := JTF_VARCHAR2_TABLE_200();
152 a22 := JTF_VARCHAR2_TABLE_200();
153 a23 := JTF_VARCHAR2_TABLE_200();
154 a24 := JTF_VARCHAR2_TABLE_200();
155 a25 := JTF_VARCHAR2_TABLE_200();
156 a26 := JTF_VARCHAR2_TABLE_200();
157 a27 := JTF_VARCHAR2_TABLE_200();
158 a28 := JTF_VARCHAR2_TABLE_200();
159 else
160 a0 := JTF_VARCHAR2_TABLE_100();
161 a1 := JTF_DATE_TABLE();
162 a2 := JTF_DATE_TABLE();
163 a3 := JTF_VARCHAR2_TABLE_100();
164 a4 := JTF_VARCHAR2_TABLE_100();
165 a5 := JTF_VARCHAR2_TABLE_100();
166 a6 := JTF_NUMBER_TABLE();
167 a7 := JTF_NUMBER_TABLE();
168 a8 := JTF_NUMBER_TABLE();
169 a9 := JTF_NUMBER_TABLE();
170 a10 := JTF_NUMBER_TABLE();
171 a11 := JTF_NUMBER_TABLE();
172 a12 := JTF_NUMBER_TABLE();
173 a13 := JTF_VARCHAR2_TABLE_100();
174 a14 := JTF_VARCHAR2_TABLE_200();
175 a15 := JTF_VARCHAR2_TABLE_200();
176 a16 := JTF_VARCHAR2_TABLE_200();
177 a17 := JTF_VARCHAR2_TABLE_200();
178 a18 := JTF_VARCHAR2_TABLE_200();
179 a19 := JTF_VARCHAR2_TABLE_200();
180 a20 := JTF_VARCHAR2_TABLE_200();
181 a21 := JTF_VARCHAR2_TABLE_200();
182 a22 := JTF_VARCHAR2_TABLE_200();
183 a23 := JTF_VARCHAR2_TABLE_200();
184 a24 := JTF_VARCHAR2_TABLE_200();
185 a25 := JTF_VARCHAR2_TABLE_200();
186 a26 := JTF_VARCHAR2_TABLE_200();
187 a27 := JTF_VARCHAR2_TABLE_200();
188 a28 := JTF_VARCHAR2_TABLE_200();
189 if t.count > 0 then
190 a0.extend(t.count);
191 a1.extend(t.count);
192 a2.extend(t.count);
193 a3.extend(t.count);
194 a4.extend(t.count);
195 a5.extend(t.count);
196 a6.extend(t.count);
197 a7.extend(t.count);
198 a8.extend(t.count);
199 a9.extend(t.count);
200 a10.extend(t.count);
201 a11.extend(t.count);
202 a12.extend(t.count);
203 a13.extend(t.count);
204 a14.extend(t.count);
205 a15.extend(t.count);
206 a16.extend(t.count);
207 a17.extend(t.count);
208 a18.extend(t.count);
209 a19.extend(t.count);
210 a20.extend(t.count);
211 a21.extend(t.count);
212 a22.extend(t.count);
213 a23.extend(t.count);
214 a24.extend(t.count);
215 a25.extend(t.count);
216 a26.extend(t.count);
217 a27.extend(t.count);
218 a28.extend(t.count);
219 ddindx := t.first;
220 indx := 1;
221 while true loop
222 a0(indx) := t(ddindx).pay_element_name;
223 a1(indx) := t(ddindx).start_date;
224 a2(indx) := t(ddindx).end_date;
225 a3(indx) := t(ddindx).table_name;
226 a4(indx) := t(ddindx).column_name;
227 a5(indx) := t(ddindx).pay_input_name;
228 a6(indx) := t(ddindx).line_number;
229 a7(indx) := t(ddindx).pay_element_input_id;
230 a8(indx) := t(ddindx).quota_pay_element_id;
231 a9(indx) := t(ddindx).element_input_id;
232 a10(indx) := t(ddindx).element_type_id;
233 a11(indx) := t(ddindx).tab_object_id;
234 a12(indx) := t(ddindx).col_object_id;
235 a13(indx) := t(ddindx).attribute_category;
236 a14(indx) := t(ddindx).attribute1;
237 a15(indx) := t(ddindx).attribute2;
238 a16(indx) := t(ddindx).attribute3;
239 a17(indx) := t(ddindx).attribute4;
240 a18(indx) := t(ddindx).attribute5;
241 a19(indx) := t(ddindx).attribute6;
242 a20(indx) := t(ddindx).attribute7;
243 a21(indx) := t(ddindx).attribute8;
244 a22(indx) := t(ddindx).attribute9;
245 a23(indx) := t(ddindx).attribute10;
246 a24(indx) := t(ddindx).attribute11;
247 a25(indx) := t(ddindx).attribute12;
248 a26(indx) := t(ddindx).attribute13;
249 a27(indx) := t(ddindx).attribute14;
250 a28(indx) := t(ddindx).attribute15;
251 indx := indx+1;
252 if t.last =ddindx
253 then exit;
254 end if;
255 ddindx := t.next(ddindx);
256 end loop;
257 end if;
258 end if;
259 end rosetta_table_copy_out_p2;
260
261 procedure rosetta_table_copy_in_p5(t out cn_pay_element_inputs_pvt.pay_element_input_out_tbl_type, a0 JTF_NUMBER_TABLE
262 , a1 JTF_NUMBER_TABLE
263 , a2 JTF_NUMBER_TABLE
264 , a3 JTF_NUMBER_TABLE
265 , a4 JTF_VARCHAR2_TABLE_100
266 , a5 JTF_VARCHAR2_TABLE_100
267 , a6 JTF_DATE_TABLE
268 , a7 JTF_DATE_TABLE
269 , a8 JTF_VARCHAR2_TABLE_100
270 , a9 JTF_VARCHAR2_TABLE_100
271 , a10 JTF_NUMBER_TABLE
272 , a11 JTF_NUMBER_TABLE
273 , a12 JTF_NUMBER_TABLE
274 ) as
275 ddindx binary_integer; indx binary_integer;
276 begin
277 if a0 is not null and a0.count > 0 then
278 if a0.count > 0 then
279 indx := a0.first;
280 ddindx := 1;
281 while true loop
282 t(ddindx).pay_element_input_id := a0(indx);
283 t(ddindx).quota_pay_element_id := a1(indx);
284 t(ddindx).element_input_id := a2(indx);
285 t(ddindx).element_type_id := a3(indx);
286 t(ddindx).table_name := a4(indx);
287 t(ddindx).column_name := a5(indx);
288 t(ddindx).start_date := rosetta_g_miss_date_in_map(a6(indx));
289 t(ddindx).end_date := rosetta_g_miss_date_in_map(a7(indx));
290 t(ddindx).pay_element_name := a8(indx);
291 t(ddindx).pay_input_name := a9(indx);
292 t(ddindx).line_number := a10(indx);
293 t(ddindx).tab_object_id := a11(indx);
294 t(ddindx).col_object_id := a12(indx);
295 ddindx := ddindx+1;
296 if a0.last =indx
297 then exit;
298 end if;
299 indx := a0.next(indx);
300 end loop;
301 end if;
302 end if;
303 end rosetta_table_copy_in_p5;
304 procedure rosetta_table_copy_out_p5(t cn_pay_element_inputs_pvt.pay_element_input_out_tbl_type, a0 out JTF_NUMBER_TABLE
305 , a1 out JTF_NUMBER_TABLE
306 , a2 out JTF_NUMBER_TABLE
307 , a3 out JTF_NUMBER_TABLE
308 , a4 out JTF_VARCHAR2_TABLE_100
309 , a5 out JTF_VARCHAR2_TABLE_100
310 , a6 out JTF_DATE_TABLE
311 , a7 out JTF_DATE_TABLE
312 , a8 out JTF_VARCHAR2_TABLE_100
313 , a9 out JTF_VARCHAR2_TABLE_100
314 , a10 out JTF_NUMBER_TABLE
315 , a11 out JTF_NUMBER_TABLE
316 , a12 out JTF_NUMBER_TABLE
317 ) as
318 ddindx binary_integer; indx binary_integer;
319 begin
320 if t is null or t.count = 0 then
321 a0 := JTF_NUMBER_TABLE();
322 a1 := JTF_NUMBER_TABLE();
323 a2 := JTF_NUMBER_TABLE();
324 a3 := JTF_NUMBER_TABLE();
325 a4 := JTF_VARCHAR2_TABLE_100();
326 a5 := JTF_VARCHAR2_TABLE_100();
327 a6 := JTF_DATE_TABLE();
328 a7 := JTF_DATE_TABLE();
329 a8 := JTF_VARCHAR2_TABLE_100();
330 a9 := JTF_VARCHAR2_TABLE_100();
331 a10 := JTF_NUMBER_TABLE();
332 a11 := JTF_NUMBER_TABLE();
333 a12 := JTF_NUMBER_TABLE();
334 else
335 a0 := JTF_NUMBER_TABLE();
336 a1 := JTF_NUMBER_TABLE();
337 a2 := JTF_NUMBER_TABLE();
338 a3 := JTF_NUMBER_TABLE();
339 a4 := JTF_VARCHAR2_TABLE_100();
340 a5 := JTF_VARCHAR2_TABLE_100();
341 a6 := JTF_DATE_TABLE();
342 a7 := JTF_DATE_TABLE();
343 a8 := JTF_VARCHAR2_TABLE_100();
344 a9 := JTF_VARCHAR2_TABLE_100();
345 a10 := JTF_NUMBER_TABLE();
346 a11 := JTF_NUMBER_TABLE();
347 a12 := JTF_NUMBER_TABLE();
348 if t.count > 0 then
349 a0.extend(t.count);
350 a1.extend(t.count);
351 a2.extend(t.count);
352 a3.extend(t.count);
353 a4.extend(t.count);
354 a5.extend(t.count);
355 a6.extend(t.count);
356 a7.extend(t.count);
357 a8.extend(t.count);
358 a9.extend(t.count);
359 a10.extend(t.count);
360 a11.extend(t.count);
361 a12.extend(t.count);
362 ddindx := t.first;
363 indx := 1;
364 while true loop
365 a0(indx) := t(ddindx).pay_element_input_id;
366 a1(indx) := t(ddindx).quota_pay_element_id;
367 a2(indx) := t(ddindx).element_input_id;
368 a3(indx) := t(ddindx).element_type_id;
369 a4(indx) := t(ddindx).table_name;
370 a5(indx) := t(ddindx).column_name;
371 a6(indx) := t(ddindx).start_date;
372 a7(indx) := t(ddindx).end_date;
373 a8(indx) := t(ddindx).pay_element_name;
374 a9(indx) := t(ddindx).pay_input_name;
375 a10(indx) := t(ddindx).line_number;
376 a11(indx) := t(ddindx).tab_object_id;
377 a12(indx) := t(ddindx).col_object_id;
378 indx := indx+1;
379 if t.last =ddindx
380 then exit;
381 end if;
382 ddindx := t.next(ddindx);
383 end loop;
384 end if;
385 end if;
386 end rosetta_table_copy_out_p5;
387
388 procedure create_pay_element_input(p_api_version NUMBER
389 , p_init_msg_list VARCHAR2
390 , p_commit VARCHAR2
391 , p_validation_level NUMBER
392 , x_return_status out VARCHAR2
393 , x_msg_count out NUMBER
394 , x_msg_data out VARCHAR2
395 , p7_a0 VARCHAR2
396 , p7_a1 DATE
397 , p7_a2 DATE
398 , p7_a3 VARCHAR2
399 , p7_a4 VARCHAR2
400 , p7_a5 VARCHAR2
401 , p7_a6 NUMBER
402 , p7_a7 NUMBER
403 , p7_a8 NUMBER
404 , p7_a9 NUMBER
405 , p7_a10 NUMBER
406 , p7_a11 NUMBER
407 , p7_a12 NUMBER
408 , p7_a13 VARCHAR2
409 , p7_a14 VARCHAR2
410 , p7_a15 VARCHAR2
411 , p7_a16 VARCHAR2
412 , p7_a17 VARCHAR2
416 , p7_a21 VARCHAR2
413 , p7_a18 VARCHAR2
414 , p7_a19 VARCHAR2
415 , p7_a20 VARCHAR2
417 , p7_a22 VARCHAR2
418 , p7_a23 VARCHAR2
419 , p7_a24 VARCHAR2
420 , p7_a25 VARCHAR2
421 , p7_a26 VARCHAR2
422 , p7_a27 VARCHAR2
423 , p7_a28 VARCHAR2
424 , x_pay_element_input_id out NUMBER
425 , x_loading_status out VARCHAR2
426 )
427 as
428 ddp_pay_element_input_rec cn_pay_element_inputs_pvt.pay_element_input_rec_type;
429 ddindx binary_integer; indx binary_integer;
430 begin
431
432 -- copy data to the local IN or IN-OUT args, if any
433
434
435
436
437
438
439
440 ddp_pay_element_input_rec.pay_element_name := p7_a0;
441 ddp_pay_element_input_rec.start_date := rosetta_g_miss_date_in_map(p7_a1);
442 ddp_pay_element_input_rec.end_date := rosetta_g_miss_date_in_map(p7_a2);
443 ddp_pay_element_input_rec.table_name := p7_a3;
444 ddp_pay_element_input_rec.column_name := p7_a4;
445 ddp_pay_element_input_rec.pay_input_name := p7_a5;
446 ddp_pay_element_input_rec.line_number := p7_a6;
447 ddp_pay_element_input_rec.pay_element_input_id := p7_a7;
448 ddp_pay_element_input_rec.quota_pay_element_id := p7_a8;
449 ddp_pay_element_input_rec.element_input_id := p7_a9;
450 ddp_pay_element_input_rec.element_type_id := p7_a10;
451 ddp_pay_element_input_rec.tab_object_id := p7_a11;
452 ddp_pay_element_input_rec.col_object_id := p7_a12;
453 ddp_pay_element_input_rec.attribute_category := p7_a13;
454 ddp_pay_element_input_rec.attribute1 := p7_a14;
455 ddp_pay_element_input_rec.attribute2 := p7_a15;
456 ddp_pay_element_input_rec.attribute3 := p7_a16;
457 ddp_pay_element_input_rec.attribute4 := p7_a17;
458 ddp_pay_element_input_rec.attribute5 := p7_a18;
459 ddp_pay_element_input_rec.attribute6 := p7_a19;
460 ddp_pay_element_input_rec.attribute7 := p7_a20;
461 ddp_pay_element_input_rec.attribute8 := p7_a21;
462 ddp_pay_element_input_rec.attribute9 := p7_a22;
463 ddp_pay_element_input_rec.attribute10 := p7_a23;
464 ddp_pay_element_input_rec.attribute11 := p7_a24;
465 ddp_pay_element_input_rec.attribute12 := p7_a25;
466 ddp_pay_element_input_rec.attribute13 := p7_a26;
467 ddp_pay_element_input_rec.attribute14 := p7_a27;
468 ddp_pay_element_input_rec.attribute15 := p7_a28;
469
470
471
472 -- here's the delegated call to the old PL/SQL routine
473 cn_pay_element_inputs_pvt.create_pay_element_input(p_api_version,
474 p_init_msg_list,
475 p_commit,
476 p_validation_level,
477 x_return_status,
478 x_msg_count,
479 x_msg_data,
480 ddp_pay_element_input_rec,
481 x_pay_element_input_id,
482 x_loading_status);
483
484 -- copy data back from the local OUT or IN-OUT args, if any
485
486
487
488
489
490
491
492
493
494 end;
495
496 procedure update_pay_element_input(p_api_version NUMBER
497 , p_init_msg_list VARCHAR2
498 , p_commit VARCHAR2
499 , p_validation_level NUMBER
500 , x_return_status out VARCHAR2
501 , x_msg_count out NUMBER
502 , x_msg_data out VARCHAR2
503 , p7_a0 VARCHAR2
504 , p7_a1 DATE
505 , p7_a2 DATE
506 , p7_a3 VARCHAR2
507 , p7_a4 VARCHAR2
508 , p7_a5 VARCHAR2
509 , p7_a6 NUMBER
510 , p7_a7 NUMBER
511 , p7_a8 NUMBER
512 , p7_a9 NUMBER
513 , p7_a10 NUMBER
514 , p7_a11 NUMBER
515 , p7_a12 NUMBER
516 , p7_a13 VARCHAR2
517 , p7_a14 VARCHAR2
518 , p7_a15 VARCHAR2
519 , p7_a16 VARCHAR2
520 , p7_a17 VARCHAR2
521 , p7_a18 VARCHAR2
522 , p7_a19 VARCHAR2
523 , p7_a20 VARCHAR2
524 , p7_a21 VARCHAR2
525 , p7_a22 VARCHAR2
526 , p7_a23 VARCHAR2
527 , p7_a24 VARCHAR2
528 , p7_a25 VARCHAR2
529 , p7_a26 VARCHAR2
530 , p7_a27 VARCHAR2
531 , p7_a28 VARCHAR2
532 , p8_a0 VARCHAR2
533 , p8_a1 DATE
534 , p8_a2 DATE
535 , p8_a3 VARCHAR2
536 , p8_a4 VARCHAR2
537 , p8_a5 VARCHAR2
538 , p8_a6 NUMBER
539 , p8_a7 NUMBER
540 , p8_a8 NUMBER
541 , p8_a9 NUMBER
542 , p8_a10 NUMBER
543 , p8_a11 NUMBER
544 , p8_a12 NUMBER
545 , p8_a13 VARCHAR2
546 , p8_a14 VARCHAR2
547 , p8_a15 VARCHAR2
548 , p8_a16 VARCHAR2
549 , p8_a17 VARCHAR2
550 , p8_a18 VARCHAR2
551 , p8_a19 VARCHAR2
552 , p8_a20 VARCHAR2
553 , p8_a21 VARCHAR2
554 , p8_a22 VARCHAR2
555 , p8_a23 VARCHAR2
556 , p8_a24 VARCHAR2
557 , p8_a25 VARCHAR2
558 , p8_a26 VARCHAR2
559 , p8_a27 VARCHAR2
560 , p8_a28 VARCHAR2
561 , x_loading_status out VARCHAR2
562 )
563 as
564 ddpo_pay_element_input_rec cn_pay_element_inputs_pvt.pay_element_input_rec_type;
565 ddp_pay_element_input_rec cn_pay_element_inputs_pvt.pay_element_input_rec_type;
566 ddindx binary_integer; indx binary_integer;
567 begin
568
569 -- copy data to the local IN or IN-OUT args, if any
570
571
572
573
574
578 ddpo_pay_element_input_rec.start_date := rosetta_g_miss_date_in_map(p7_a1);
575
576
577 ddpo_pay_element_input_rec.pay_element_name := p7_a0;
579 ddpo_pay_element_input_rec.end_date := rosetta_g_miss_date_in_map(p7_a2);
580 ddpo_pay_element_input_rec.table_name := p7_a3;
581 ddpo_pay_element_input_rec.column_name := p7_a4;
582 ddpo_pay_element_input_rec.pay_input_name := p7_a5;
583 ddpo_pay_element_input_rec.line_number := p7_a6;
584 ddpo_pay_element_input_rec.pay_element_input_id := p7_a7;
585 ddpo_pay_element_input_rec.quota_pay_element_id := p7_a8;
586 ddpo_pay_element_input_rec.element_input_id := p7_a9;
587 ddpo_pay_element_input_rec.element_type_id := p7_a10;
588 ddpo_pay_element_input_rec.tab_object_id := p7_a11;
589 ddpo_pay_element_input_rec.col_object_id := p7_a12;
590 ddpo_pay_element_input_rec.attribute_category := p7_a13;
591 ddpo_pay_element_input_rec.attribute1 := p7_a14;
592 ddpo_pay_element_input_rec.attribute2 := p7_a15;
593 ddpo_pay_element_input_rec.attribute3 := p7_a16;
594 ddpo_pay_element_input_rec.attribute4 := p7_a17;
595 ddpo_pay_element_input_rec.attribute5 := p7_a18;
596 ddpo_pay_element_input_rec.attribute6 := p7_a19;
597 ddpo_pay_element_input_rec.attribute7 := p7_a20;
598 ddpo_pay_element_input_rec.attribute8 := p7_a21;
599 ddpo_pay_element_input_rec.attribute9 := p7_a22;
600 ddpo_pay_element_input_rec.attribute10 := p7_a23;
601 ddpo_pay_element_input_rec.attribute11 := p7_a24;
602 ddpo_pay_element_input_rec.attribute12 := p7_a25;
603 ddpo_pay_element_input_rec.attribute13 := p7_a26;
604 ddpo_pay_element_input_rec.attribute14 := p7_a27;
605 ddpo_pay_element_input_rec.attribute15 := p7_a28;
606
607 ddp_pay_element_input_rec.pay_element_name := p8_a0;
608 ddp_pay_element_input_rec.start_date := rosetta_g_miss_date_in_map(p8_a1);
609 ddp_pay_element_input_rec.end_date := rosetta_g_miss_date_in_map(p8_a2);
610 ddp_pay_element_input_rec.table_name := p8_a3;
611 ddp_pay_element_input_rec.column_name := p8_a4;
612 ddp_pay_element_input_rec.pay_input_name := p8_a5;
613 ddp_pay_element_input_rec.line_number := p8_a6;
614 ddp_pay_element_input_rec.pay_element_input_id := p8_a7;
615 ddp_pay_element_input_rec.quota_pay_element_id := p8_a8;
616 ddp_pay_element_input_rec.element_input_id := p8_a9;
617 ddp_pay_element_input_rec.element_type_id := p8_a10;
618 ddp_pay_element_input_rec.tab_object_id := p8_a11;
619 ddp_pay_element_input_rec.col_object_id := p8_a12;
620 ddp_pay_element_input_rec.attribute_category := p8_a13;
621 ddp_pay_element_input_rec.attribute1 := p8_a14;
622 ddp_pay_element_input_rec.attribute2 := p8_a15;
623 ddp_pay_element_input_rec.attribute3 := p8_a16;
624 ddp_pay_element_input_rec.attribute4 := p8_a17;
625 ddp_pay_element_input_rec.attribute5 := p8_a18;
626 ddp_pay_element_input_rec.attribute6 := p8_a19;
627 ddp_pay_element_input_rec.attribute7 := p8_a20;
628 ddp_pay_element_input_rec.attribute8 := p8_a21;
629 ddp_pay_element_input_rec.attribute9 := p8_a22;
630 ddp_pay_element_input_rec.attribute10 := p8_a23;
631 ddp_pay_element_input_rec.attribute11 := p8_a24;
632 ddp_pay_element_input_rec.attribute12 := p8_a25;
633 ddp_pay_element_input_rec.attribute13 := p8_a26;
634 ddp_pay_element_input_rec.attribute14 := p8_a27;
635 ddp_pay_element_input_rec.attribute15 := p8_a28;
636
637
638 -- here's the delegated call to the old PL/SQL routine
639 cn_pay_element_inputs_pvt.update_pay_element_input(p_api_version,
640 p_init_msg_list,
641 p_commit,
642 p_validation_level,
643 x_return_status,
644 x_msg_count,
645 x_msg_data,
646 ddpo_pay_element_input_rec,
647 ddp_pay_element_input_rec,
648 x_loading_status);
649
650 -- copy data back from the local OUT or IN-OUT args, if any
651
652
653
654
655
656
657
658
659
660 end;
661
662 procedure get_pay_element_input(p_api_version NUMBER
663 , p_init_msg_list VARCHAR2
664 , p_commit VARCHAR2
665 , p_validation_level NUMBER
666 , x_return_status out VARCHAR2
667 , x_msg_count out NUMBER
668 , x_msg_data out VARCHAR2
669 , p_element_type_id NUMBER
670 , p_start_record NUMBER
671 , p_increment_count NUMBER
672 , p_order_by VARCHAR2
673 , p11_a0 out JTF_NUMBER_TABLE
674 , p11_a1 out JTF_NUMBER_TABLE
675 , p11_a2 out JTF_NUMBER_TABLE
676 , p11_a3 out JTF_NUMBER_TABLE
677 , p11_a4 out JTF_VARCHAR2_TABLE_100
678 , p11_a5 out JTF_VARCHAR2_TABLE_100
679 , p11_a6 out JTF_DATE_TABLE
680 , p11_a7 out JTF_DATE_TABLE
681 , p11_a8 out JTF_VARCHAR2_TABLE_100
682 , p11_a9 out JTF_VARCHAR2_TABLE_100
683 , p11_a10 out JTF_NUMBER_TABLE
684 , p11_a11 out JTF_NUMBER_TABLE
685 , p11_a12 out JTF_NUMBER_TABLE
686 , x_total_records out NUMBER
687 , x_status out VARCHAR2
688 , x_loading_status out VARCHAR2
689 )
690 as
691 ddx_pay_element_input_tbl cn_pay_element_inputs_pvt.pay_element_input_out_tbl_type;
692 ddindx binary_integer; indx binary_integer;
693 begin
694
695 -- copy data to the local IN or IN-OUT args, if any
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
714 p_commit,
711 -- here's the delegated call to the old PL/SQL routine
712 cn_pay_element_inputs_pvt.get_pay_element_input(p_api_version,
713 p_init_msg_list,
715 p_validation_level,
716 x_return_status,
717 x_msg_count,
718 x_msg_data,
719 p_element_type_id,
720 p_start_record,
721 p_increment_count,
722 p_order_by,
723 ddx_pay_element_input_tbl,
724 x_total_records,
725 x_status,
726 x_loading_status);
727
728 -- copy data back from the local OUT or IN-OUT args, if any
729
730
731
732
733
734
735
736
737
738
739
740 cn_pay_element_inputs_pvt_w.rosetta_table_copy_out_p5(ddx_pay_element_input_tbl, p11_a0
741 , p11_a1
742 , p11_a2
743 , p11_a3
744 , p11_a4
745 , p11_a5
746 , p11_a6
747 , p11_a7
748 , p11_a8
749 , p11_a9
750 , p11_a10
751 , p11_a11
752 , p11_a12
753 );
754
755
756
757 end;
758
759 end cn_pay_element_inputs_pvt_w;