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