[Home] [Help]
PACKAGE BODY: APPS.OKL_DRA_PVT_W
Source
1 package body okl_dra_pvt_w as
2 /* $Header: OKLIDRAB.pls 120.0 2007/04/27 09:17:30 gkhuntet noship $ */
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 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 function rosetta_g_miss_num_map(n number) return number as
17 a number := fnd_api.g_miss_num;
18 b number := 0-1962.0724;
19 begin
20 if n=a then return b; end if;
21 if n=b then return a; end if;
22 return n;
23 end;
24
25 procedure rosetta_table_copy_in_p2(t out nocopy okl_dra_pvt.drav_tbl_type, a0 JTF_NUMBER_TABLE
26 , a1 JTF_NUMBER_TABLE
27 , a2 JTF_VARCHAR2_TABLE_100
28 , a3 JTF_VARCHAR2_TABLE_200
29 , a4 JTF_NUMBER_TABLE
30 , a5 JTF_DATE_TABLE
31 , a6 JTF_DATE_TABLE
32 , a7 JTF_VARCHAR2_TABLE_100
33 , a8 JTF_VARCHAR2_TABLE_100
34 , a9 JTF_NUMBER_TABLE
35 , a10 JTF_NUMBER_TABLE
36 , a11 JTF_VARCHAR2_TABLE_100
37 , a12 JTF_VARCHAR2_TABLE_100
38 , a13 JTF_NUMBER_TABLE
39 , a14 JTF_VARCHAR2_TABLE_100
40 , a15 JTF_VARCHAR2_TABLE_100
41 , a16 JTF_VARCHAR2_TABLE_2000
42 , a17 JTF_VARCHAR2_TABLE_100
43 , a18 JTF_VARCHAR2_TABLE_500
44 , a19 JTF_VARCHAR2_TABLE_500
45 , a20 JTF_VARCHAR2_TABLE_500
46 , a21 JTF_VARCHAR2_TABLE_500
47 , a22 JTF_VARCHAR2_TABLE_500
48 , a23 JTF_VARCHAR2_TABLE_500
49 , a24 JTF_VARCHAR2_TABLE_500
50 , a25 JTF_VARCHAR2_TABLE_500
51 , a26 JTF_VARCHAR2_TABLE_500
52 , a27 JTF_VARCHAR2_TABLE_500
53 , a28 JTF_VARCHAR2_TABLE_500
54 , a29 JTF_VARCHAR2_TABLE_500
55 , a30 JTF_VARCHAR2_TABLE_500
56 , a31 JTF_VARCHAR2_TABLE_500
57 , a32 JTF_VARCHAR2_TABLE_500
58 , a33 JTF_NUMBER_TABLE
59 , a34 JTF_DATE_TABLE
60 , a35 JTF_NUMBER_TABLE
61 , a36 JTF_DATE_TABLE
62 , a37 JTF_NUMBER_TABLE
63 ) as
64 ddindx binary_integer; indx binary_integer;
65 begin
66 if a0 is not null and a0.count > 0 then
67 if a0.count > 0 then
68 indx := a0.first;
69 ddindx := 1;
70 while true loop
71 t(ddindx).disb_rule_id := rosetta_g_miss_num_map(a0(indx));
72 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
73 t(ddindx).sfwt_flag := a2(indx);
74 t(ddindx).rule_name := a3(indx);
75 t(ddindx).org_id := rosetta_g_miss_num_map(a4(indx));
76 t(ddindx).start_date := rosetta_g_miss_date_in_map(a5(indx));
77 t(ddindx).end_date := rosetta_g_miss_date_in_map(a6(indx));
78 t(ddindx).fee_option := a7(indx);
79 t(ddindx).fee_basis := a8(indx);
80 t(ddindx).fee_amount := rosetta_g_miss_num_map(a9(indx));
81 t(ddindx).fee_percent := rosetta_g_miss_num_map(a10(indx));
82 t(ddindx).consolidate_by_due_date := a11(indx);
83 t(ddindx).frequency := a12(indx);
84 t(ddindx).day_of_month := rosetta_g_miss_num_map(a13(indx));
85 t(ddindx).scheduled_month := a14(indx);
86 t(ddindx).consolidate_strm_type := a15(indx);
87 t(ddindx).description := a16(indx);
88 t(ddindx).attribute_category := a17(indx);
89 t(ddindx).attribute1 := a18(indx);
90 t(ddindx).attribute2 := a19(indx);
91 t(ddindx).attribute3 := a20(indx);
92 t(ddindx).attribute4 := a21(indx);
93 t(ddindx).attribute5 := a22(indx);
94 t(ddindx).attribute6 := a23(indx);
95 t(ddindx).attribute7 := a24(indx);
96 t(ddindx).attribute8 := a25(indx);
97 t(ddindx).attribute9 := a26(indx);
98 t(ddindx).attribute10 := a27(indx);
99 t(ddindx).attribute11 := a28(indx);
100 t(ddindx).attribute12 := a29(indx);
101 t(ddindx).attribute13 := a30(indx);
102 t(ddindx).attribute14 := a31(indx);
103 t(ddindx).attribute15 := a32(indx);
104 t(ddindx).created_by := rosetta_g_miss_num_map(a33(indx));
105 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a34(indx));
106 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a35(indx));
107 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a36(indx));
108 t(ddindx).last_update_login := rosetta_g_miss_num_map(a37(indx));
109 ddindx := ddindx+1;
110 if a0.last =indx
111 then exit;
112 end if;
113 indx := a0.next(indx);
114 end loop;
115 end if;
116 end if;
117 end rosetta_table_copy_in_p2;
118 procedure rosetta_table_copy_out_p2(t okl_dra_pvt.drav_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
119 , a1 out nocopy JTF_NUMBER_TABLE
120 , a2 out nocopy JTF_VARCHAR2_TABLE_100
121 , a3 out nocopy JTF_VARCHAR2_TABLE_200
122 , a4 out nocopy JTF_NUMBER_TABLE
123 , a5 out nocopy JTF_DATE_TABLE
124 , a6 out nocopy JTF_DATE_TABLE
125 , a7 out nocopy JTF_VARCHAR2_TABLE_100
126 , a8 out nocopy JTF_VARCHAR2_TABLE_100
127 , a9 out nocopy JTF_NUMBER_TABLE
128 , a10 out nocopy JTF_NUMBER_TABLE
129 , a11 out nocopy JTF_VARCHAR2_TABLE_100
130 , a12 out nocopy JTF_VARCHAR2_TABLE_100
131 , a13 out nocopy JTF_NUMBER_TABLE
132 , a14 out nocopy JTF_VARCHAR2_TABLE_100
133 , a15 out nocopy JTF_VARCHAR2_TABLE_100
134 , a16 out nocopy JTF_VARCHAR2_TABLE_2000
135 , a17 out nocopy JTF_VARCHAR2_TABLE_100
136 , a18 out nocopy JTF_VARCHAR2_TABLE_500
137 , a19 out nocopy JTF_VARCHAR2_TABLE_500
138 , a20 out nocopy JTF_VARCHAR2_TABLE_500
139 , a21 out nocopy JTF_VARCHAR2_TABLE_500
140 , a22 out nocopy JTF_VARCHAR2_TABLE_500
141 , a23 out nocopy JTF_VARCHAR2_TABLE_500
142 , a24 out nocopy JTF_VARCHAR2_TABLE_500
143 , a25 out nocopy JTF_VARCHAR2_TABLE_500
144 , a26 out nocopy JTF_VARCHAR2_TABLE_500
145 , a27 out nocopy JTF_VARCHAR2_TABLE_500
146 , a28 out nocopy JTF_VARCHAR2_TABLE_500
147 , a29 out nocopy JTF_VARCHAR2_TABLE_500
148 , a30 out nocopy JTF_VARCHAR2_TABLE_500
149 , a31 out nocopy JTF_VARCHAR2_TABLE_500
150 , a32 out nocopy JTF_VARCHAR2_TABLE_500
151 , a33 out nocopy JTF_NUMBER_TABLE
152 , a34 out nocopy JTF_DATE_TABLE
153 , a35 out nocopy JTF_NUMBER_TABLE
154 , a36 out nocopy JTF_DATE_TABLE
155 , a37 out nocopy JTF_NUMBER_TABLE
156 ) as
157 ddindx binary_integer; indx binary_integer;
158 begin
159 if t is null or t.count = 0 then
160 a0 := JTF_NUMBER_TABLE();
161 a1 := JTF_NUMBER_TABLE();
162 a2 := JTF_VARCHAR2_TABLE_100();
163 a3 := JTF_VARCHAR2_TABLE_200();
164 a4 := JTF_NUMBER_TABLE();
165 a5 := JTF_DATE_TABLE();
166 a6 := JTF_DATE_TABLE();
167 a7 := JTF_VARCHAR2_TABLE_100();
168 a8 := JTF_VARCHAR2_TABLE_100();
169 a9 := JTF_NUMBER_TABLE();
170 a10 := JTF_NUMBER_TABLE();
171 a11 := JTF_VARCHAR2_TABLE_100();
172 a12 := JTF_VARCHAR2_TABLE_100();
173 a13 := JTF_NUMBER_TABLE();
174 a14 := JTF_VARCHAR2_TABLE_100();
175 a15 := JTF_VARCHAR2_TABLE_100();
176 a16 := JTF_VARCHAR2_TABLE_2000();
177 a17 := JTF_VARCHAR2_TABLE_100();
178 a18 := JTF_VARCHAR2_TABLE_500();
179 a19 := JTF_VARCHAR2_TABLE_500();
180 a20 := JTF_VARCHAR2_TABLE_500();
181 a21 := JTF_VARCHAR2_TABLE_500();
182 a22 := JTF_VARCHAR2_TABLE_500();
183 a23 := JTF_VARCHAR2_TABLE_500();
184 a24 := JTF_VARCHAR2_TABLE_500();
185 a25 := JTF_VARCHAR2_TABLE_500();
186 a26 := JTF_VARCHAR2_TABLE_500();
187 a27 := JTF_VARCHAR2_TABLE_500();
188 a28 := JTF_VARCHAR2_TABLE_500();
189 a29 := JTF_VARCHAR2_TABLE_500();
190 a30 := JTF_VARCHAR2_TABLE_500();
191 a31 := JTF_VARCHAR2_TABLE_500();
192 a32 := JTF_VARCHAR2_TABLE_500();
193 a33 := JTF_NUMBER_TABLE();
194 a34 := JTF_DATE_TABLE();
195 a35 := JTF_NUMBER_TABLE();
196 a36 := JTF_DATE_TABLE();
197 a37 := JTF_NUMBER_TABLE();
198 else
199 a0 := JTF_NUMBER_TABLE();
200 a1 := JTF_NUMBER_TABLE();
201 a2 := JTF_VARCHAR2_TABLE_100();
202 a3 := JTF_VARCHAR2_TABLE_200();
203 a4 := JTF_NUMBER_TABLE();
204 a5 := JTF_DATE_TABLE();
205 a6 := JTF_DATE_TABLE();
206 a7 := JTF_VARCHAR2_TABLE_100();
207 a8 := JTF_VARCHAR2_TABLE_100();
208 a9 := JTF_NUMBER_TABLE();
209 a10 := JTF_NUMBER_TABLE();
210 a11 := JTF_VARCHAR2_TABLE_100();
211 a12 := JTF_VARCHAR2_TABLE_100();
212 a13 := JTF_NUMBER_TABLE();
213 a14 := JTF_VARCHAR2_TABLE_100();
214 a15 := JTF_VARCHAR2_TABLE_100();
215 a16 := JTF_VARCHAR2_TABLE_2000();
216 a17 := JTF_VARCHAR2_TABLE_100();
217 a18 := JTF_VARCHAR2_TABLE_500();
218 a19 := JTF_VARCHAR2_TABLE_500();
219 a20 := JTF_VARCHAR2_TABLE_500();
220 a21 := JTF_VARCHAR2_TABLE_500();
221 a22 := JTF_VARCHAR2_TABLE_500();
222 a23 := JTF_VARCHAR2_TABLE_500();
223 a24 := JTF_VARCHAR2_TABLE_500();
224 a25 := JTF_VARCHAR2_TABLE_500();
225 a26 := JTF_VARCHAR2_TABLE_500();
226 a27 := JTF_VARCHAR2_TABLE_500();
227 a28 := JTF_VARCHAR2_TABLE_500();
228 a29 := JTF_VARCHAR2_TABLE_500();
229 a30 := JTF_VARCHAR2_TABLE_500();
230 a31 := JTF_VARCHAR2_TABLE_500();
231 a32 := JTF_VARCHAR2_TABLE_500();
232 a33 := JTF_NUMBER_TABLE();
233 a34 := JTF_DATE_TABLE();
234 a35 := JTF_NUMBER_TABLE();
235 a36 := JTF_DATE_TABLE();
236 a37 := JTF_NUMBER_TABLE();
237 if t.count > 0 then
238 a0.extend(t.count);
239 a1.extend(t.count);
240 a2.extend(t.count);
241 a3.extend(t.count);
242 a4.extend(t.count);
243 a5.extend(t.count);
244 a6.extend(t.count);
245 a7.extend(t.count);
246 a8.extend(t.count);
247 a9.extend(t.count);
248 a10.extend(t.count);
249 a11.extend(t.count);
250 a12.extend(t.count);
251 a13.extend(t.count);
252 a14.extend(t.count);
253 a15.extend(t.count);
254 a16.extend(t.count);
255 a17.extend(t.count);
256 a18.extend(t.count);
257 a19.extend(t.count);
258 a20.extend(t.count);
259 a21.extend(t.count);
260 a22.extend(t.count);
261 a23.extend(t.count);
262 a24.extend(t.count);
263 a25.extend(t.count);
264 a26.extend(t.count);
265 a27.extend(t.count);
266 a28.extend(t.count);
267 a29.extend(t.count);
268 a30.extend(t.count);
269 a31.extend(t.count);
270 a32.extend(t.count);
271 a33.extend(t.count);
272 a34.extend(t.count);
273 a35.extend(t.count);
274 a36.extend(t.count);
275 a37.extend(t.count);
276 ddindx := t.first;
277 indx := 1;
278 while true loop
279 a0(indx) := rosetta_g_miss_num_map(t(ddindx).disb_rule_id);
280 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
281 a2(indx) := t(ddindx).sfwt_flag;
282 a3(indx) := t(ddindx).rule_name;
283 a4(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
284 a5(indx) := t(ddindx).start_date;
285 a6(indx) := t(ddindx).end_date;
286 a7(indx) := t(ddindx).fee_option;
287 a8(indx) := t(ddindx).fee_basis;
288 a9(indx) := rosetta_g_miss_num_map(t(ddindx).fee_amount);
289 a10(indx) := rosetta_g_miss_num_map(t(ddindx).fee_percent);
290 a11(indx) := t(ddindx).consolidate_by_due_date;
291 a12(indx) := t(ddindx).frequency;
292 a13(indx) := rosetta_g_miss_num_map(t(ddindx).day_of_month);
293 a14(indx) := t(ddindx).scheduled_month;
294 a15(indx) := t(ddindx).consolidate_strm_type;
295 a16(indx) := t(ddindx).description;
296 a17(indx) := t(ddindx).attribute_category;
297 a18(indx) := t(ddindx).attribute1;
298 a19(indx) := t(ddindx).attribute2;
299 a20(indx) := t(ddindx).attribute3;
300 a21(indx) := t(ddindx).attribute4;
301 a22(indx) := t(ddindx).attribute5;
302 a23(indx) := t(ddindx).attribute6;
303 a24(indx) := t(ddindx).attribute7;
304 a25(indx) := t(ddindx).attribute8;
305 a26(indx) := t(ddindx).attribute9;
306 a27(indx) := t(ddindx).attribute10;
307 a28(indx) := t(ddindx).attribute11;
308 a29(indx) := t(ddindx).attribute12;
309 a30(indx) := t(ddindx).attribute13;
310 a31(indx) := t(ddindx).attribute14;
311 a32(indx) := t(ddindx).attribute15;
312 a33(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
313 a34(indx) := t(ddindx).creation_date;
314 a35(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
315 a36(indx) := t(ddindx).last_update_date;
316 a37(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
317 indx := indx+1;
318 if t.last =ddindx
319 then exit;
320 end if;
321 ddindx := t.next(ddindx);
322 end loop;
323 end if;
324 end if;
325 end rosetta_table_copy_out_p2;
326
327 procedure rosetta_table_copy_in_p5(t out nocopy okl_dra_pvt.okl_disb_rules_tl_tbl_type, a0 JTF_NUMBER_TABLE
328 , a1 JTF_VARCHAR2_TABLE_100
329 , a2 JTF_VARCHAR2_TABLE_100
330 , a3 JTF_VARCHAR2_TABLE_100
331 , a4 JTF_VARCHAR2_TABLE_2000
332 , a5 JTF_NUMBER_TABLE
333 , a6 JTF_DATE_TABLE
334 , a7 JTF_NUMBER_TABLE
335 , a8 JTF_DATE_TABLE
336 , a9 JTF_NUMBER_TABLE
337 ) as
338 ddindx binary_integer; indx binary_integer;
339 begin
340 if a0 is not null and a0.count > 0 then
341 if a0.count > 0 then
342 indx := a0.first;
343 ddindx := 1;
344 while true loop
345 t(ddindx).disb_rule_id := rosetta_g_miss_num_map(a0(indx));
346 t(ddindx).language := a1(indx);
347 t(ddindx).source_lang := a2(indx);
348 t(ddindx).sfwt_flag := a3(indx);
349 t(ddindx).description := a4(indx);
350 t(ddindx).created_by := rosetta_g_miss_num_map(a5(indx));
351 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a6(indx));
352 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a7(indx));
353 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a8(indx));
354 t(ddindx).last_update_login := rosetta_g_miss_num_map(a9(indx));
355 ddindx := ddindx+1;
356 if a0.last =indx
357 then exit;
358 end if;
359 indx := a0.next(indx);
360 end loop;
361 end if;
362 end if;
363 end rosetta_table_copy_in_p5;
364 procedure rosetta_table_copy_out_p5(t okl_dra_pvt.okl_disb_rules_tl_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
365 , a1 out nocopy JTF_VARCHAR2_TABLE_100
366 , a2 out nocopy JTF_VARCHAR2_TABLE_100
367 , a3 out nocopy JTF_VARCHAR2_TABLE_100
368 , a4 out nocopy JTF_VARCHAR2_TABLE_2000
369 , a5 out nocopy JTF_NUMBER_TABLE
370 , a6 out nocopy JTF_DATE_TABLE
371 , a7 out nocopy JTF_NUMBER_TABLE
372 , a8 out nocopy JTF_DATE_TABLE
373 , a9 out nocopy JTF_NUMBER_TABLE
374 ) as
375 ddindx binary_integer; indx binary_integer;
376 begin
377 if t is null or t.count = 0 then
378 a0 := JTF_NUMBER_TABLE();
379 a1 := JTF_VARCHAR2_TABLE_100();
380 a2 := JTF_VARCHAR2_TABLE_100();
381 a3 := JTF_VARCHAR2_TABLE_100();
382 a4 := JTF_VARCHAR2_TABLE_2000();
383 a5 := JTF_NUMBER_TABLE();
384 a6 := JTF_DATE_TABLE();
385 a7 := JTF_NUMBER_TABLE();
386 a8 := JTF_DATE_TABLE();
387 a9 := JTF_NUMBER_TABLE();
388 else
389 a0 := JTF_NUMBER_TABLE();
390 a1 := JTF_VARCHAR2_TABLE_100();
391 a2 := JTF_VARCHAR2_TABLE_100();
392 a3 := JTF_VARCHAR2_TABLE_100();
393 a4 := JTF_VARCHAR2_TABLE_2000();
394 a5 := JTF_NUMBER_TABLE();
395 a6 := JTF_DATE_TABLE();
396 a7 := JTF_NUMBER_TABLE();
397 a8 := JTF_DATE_TABLE();
398 a9 := JTF_NUMBER_TABLE();
399 if t.count > 0 then
400 a0.extend(t.count);
401 a1.extend(t.count);
402 a2.extend(t.count);
403 a3.extend(t.count);
404 a4.extend(t.count);
405 a5.extend(t.count);
406 a6.extend(t.count);
407 a7.extend(t.count);
408 a8.extend(t.count);
409 a9.extend(t.count);
410 ddindx := t.first;
411 indx := 1;
412 while true loop
413 a0(indx) := rosetta_g_miss_num_map(t(ddindx).disb_rule_id);
414 a1(indx) := t(ddindx).language;
415 a2(indx) := t(ddindx).source_lang;
416 a3(indx) := t(ddindx).sfwt_flag;
417 a4(indx) := t(ddindx).description;
418 a5(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
419 a6(indx) := t(ddindx).creation_date;
420 a7(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
421 a8(indx) := t(ddindx).last_update_date;
422 a9(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
423 indx := indx+1;
424 if t.last =ddindx
425 then exit;
426 end if;
427 ddindx := t.next(ddindx);
428 end loop;
429 end if;
430 end if;
431 end rosetta_table_copy_out_p5;
432
433 procedure rosetta_table_copy_in_p8(t out nocopy okl_dra_pvt.dra_tbl_type, a0 JTF_NUMBER_TABLE
434 , a1 JTF_NUMBER_TABLE
435 , a2 JTF_VARCHAR2_TABLE_200
436 , a3 JTF_NUMBER_TABLE
437 , a4 JTF_DATE_TABLE
438 , a5 JTF_DATE_TABLE
439 , a6 JTF_VARCHAR2_TABLE_100
440 , a7 JTF_VARCHAR2_TABLE_100
441 , a8 JTF_NUMBER_TABLE
442 , a9 JTF_NUMBER_TABLE
443 , a10 JTF_VARCHAR2_TABLE_100
444 , a11 JTF_VARCHAR2_TABLE_100
445 , a12 JTF_NUMBER_TABLE
446 , a13 JTF_VARCHAR2_TABLE_100
447 , a14 JTF_VARCHAR2_TABLE_100
448 , a15 JTF_VARCHAR2_TABLE_100
449 , a16 JTF_VARCHAR2_TABLE_500
450 , a17 JTF_VARCHAR2_TABLE_500
451 , a18 JTF_VARCHAR2_TABLE_500
452 , a19 JTF_VARCHAR2_TABLE_500
453 , a20 JTF_VARCHAR2_TABLE_500
454 , a21 JTF_VARCHAR2_TABLE_500
455 , a22 JTF_VARCHAR2_TABLE_500
456 , a23 JTF_VARCHAR2_TABLE_500
457 , a24 JTF_VARCHAR2_TABLE_500
458 , a25 JTF_VARCHAR2_TABLE_500
459 , a26 JTF_VARCHAR2_TABLE_500
460 , a27 JTF_VARCHAR2_TABLE_500
461 , a28 JTF_VARCHAR2_TABLE_500
462 , a29 JTF_VARCHAR2_TABLE_500
463 , a30 JTF_VARCHAR2_TABLE_500
464 , a31 JTF_NUMBER_TABLE
465 , a32 JTF_DATE_TABLE
466 , a33 JTF_NUMBER_TABLE
467 , a34 JTF_DATE_TABLE
468 , a35 JTF_NUMBER_TABLE
469 ) as
470 ddindx binary_integer; indx binary_integer;
471 begin
472 if a0 is not null and a0.count > 0 then
473 if a0.count > 0 then
474 indx := a0.first;
475 ddindx := 1;
476 while true loop
477 t(ddindx).disb_rule_id := rosetta_g_miss_num_map(a0(indx));
478 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
479 t(ddindx).rule_name := a2(indx);
480 t(ddindx).org_id := rosetta_g_miss_num_map(a3(indx));
481 t(ddindx).start_date := rosetta_g_miss_date_in_map(a4(indx));
482 t(ddindx).end_date := rosetta_g_miss_date_in_map(a5(indx));
483 t(ddindx).fee_option := a6(indx);
484 t(ddindx).fee_basis := a7(indx);
485 t(ddindx).fee_amount := rosetta_g_miss_num_map(a8(indx));
486 t(ddindx).fee_percent := rosetta_g_miss_num_map(a9(indx));
487 t(ddindx).consolidate_by_due_date := a10(indx);
488 t(ddindx).frequency := a11(indx);
489 t(ddindx).day_of_month := rosetta_g_miss_num_map(a12(indx));
490 t(ddindx).scheduled_month := a13(indx);
491 t(ddindx).consolidate_strm_type := a14(indx);
492 t(ddindx).attribute_category := a15(indx);
493 t(ddindx).attribute1 := a16(indx);
494 t(ddindx).attribute2 := a17(indx);
495 t(ddindx).attribute3 := a18(indx);
496 t(ddindx).attribute4 := a19(indx);
497 t(ddindx).attribute5 := a20(indx);
498 t(ddindx).attribute6 := a21(indx);
499 t(ddindx).attribute7 := a22(indx);
500 t(ddindx).attribute8 := a23(indx);
501 t(ddindx).attribute9 := a24(indx);
502 t(ddindx).attribute10 := a25(indx);
503 t(ddindx).attribute11 := a26(indx);
504 t(ddindx).attribute12 := a27(indx);
505 t(ddindx).attribute13 := a28(indx);
506 t(ddindx).attribute14 := a29(indx);
507 t(ddindx).attribute15 := a30(indx);
508 t(ddindx).created_by := rosetta_g_miss_num_map(a31(indx));
509 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a32(indx));
510 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a33(indx));
511 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a34(indx));
512 t(ddindx).last_update_login := rosetta_g_miss_num_map(a35(indx));
513 ddindx := ddindx+1;
514 if a0.last =indx
515 then exit;
516 end if;
517 indx := a0.next(indx);
518 end loop;
519 end if;
520 end if;
521 end rosetta_table_copy_in_p8;
522 procedure rosetta_table_copy_out_p8(t okl_dra_pvt.dra_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
523 , a1 out nocopy JTF_NUMBER_TABLE
524 , a2 out nocopy JTF_VARCHAR2_TABLE_200
525 , a3 out nocopy JTF_NUMBER_TABLE
526 , a4 out nocopy JTF_DATE_TABLE
527 , a5 out nocopy JTF_DATE_TABLE
528 , a6 out nocopy JTF_VARCHAR2_TABLE_100
529 , a7 out nocopy JTF_VARCHAR2_TABLE_100
530 , a8 out nocopy JTF_NUMBER_TABLE
531 , a9 out nocopy JTF_NUMBER_TABLE
532 , a10 out nocopy JTF_VARCHAR2_TABLE_100
533 , a11 out nocopy JTF_VARCHAR2_TABLE_100
534 , a12 out nocopy JTF_NUMBER_TABLE
535 , a13 out nocopy JTF_VARCHAR2_TABLE_100
536 , a14 out nocopy JTF_VARCHAR2_TABLE_100
537 , a15 out nocopy JTF_VARCHAR2_TABLE_100
538 , a16 out nocopy JTF_VARCHAR2_TABLE_500
539 , a17 out nocopy JTF_VARCHAR2_TABLE_500
540 , a18 out nocopy JTF_VARCHAR2_TABLE_500
541 , a19 out nocopy JTF_VARCHAR2_TABLE_500
542 , a20 out nocopy JTF_VARCHAR2_TABLE_500
543 , a21 out nocopy JTF_VARCHAR2_TABLE_500
544 , a22 out nocopy JTF_VARCHAR2_TABLE_500
545 , a23 out nocopy JTF_VARCHAR2_TABLE_500
546 , a24 out nocopy JTF_VARCHAR2_TABLE_500
547 , a25 out nocopy JTF_VARCHAR2_TABLE_500
548 , a26 out nocopy JTF_VARCHAR2_TABLE_500
549 , a27 out nocopy JTF_VARCHAR2_TABLE_500
550 , a28 out nocopy JTF_VARCHAR2_TABLE_500
551 , a29 out nocopy JTF_VARCHAR2_TABLE_500
552 , a30 out nocopy JTF_VARCHAR2_TABLE_500
553 , a31 out nocopy JTF_NUMBER_TABLE
554 , a32 out nocopy JTF_DATE_TABLE
555 , a33 out nocopy JTF_NUMBER_TABLE
556 , a34 out nocopy JTF_DATE_TABLE
557 , a35 out nocopy JTF_NUMBER_TABLE
558 ) as
559 ddindx binary_integer; indx binary_integer;
560 begin
561 if t is null or t.count = 0 then
562 a0 := JTF_NUMBER_TABLE();
563 a1 := JTF_NUMBER_TABLE();
564 a2 := JTF_VARCHAR2_TABLE_200();
565 a3 := JTF_NUMBER_TABLE();
566 a4 := JTF_DATE_TABLE();
567 a5 := JTF_DATE_TABLE();
568 a6 := JTF_VARCHAR2_TABLE_100();
569 a7 := JTF_VARCHAR2_TABLE_100();
570 a8 := JTF_NUMBER_TABLE();
571 a9 := JTF_NUMBER_TABLE();
572 a10 := JTF_VARCHAR2_TABLE_100();
573 a11 := JTF_VARCHAR2_TABLE_100();
574 a12 := JTF_NUMBER_TABLE();
575 a13 := JTF_VARCHAR2_TABLE_100();
576 a14 := JTF_VARCHAR2_TABLE_100();
577 a15 := JTF_VARCHAR2_TABLE_100();
578 a16 := JTF_VARCHAR2_TABLE_500();
579 a17 := JTF_VARCHAR2_TABLE_500();
580 a18 := JTF_VARCHAR2_TABLE_500();
581 a19 := JTF_VARCHAR2_TABLE_500();
582 a20 := JTF_VARCHAR2_TABLE_500();
583 a21 := JTF_VARCHAR2_TABLE_500();
584 a22 := JTF_VARCHAR2_TABLE_500();
585 a23 := JTF_VARCHAR2_TABLE_500();
586 a24 := JTF_VARCHAR2_TABLE_500();
587 a25 := JTF_VARCHAR2_TABLE_500();
588 a26 := JTF_VARCHAR2_TABLE_500();
589 a27 := JTF_VARCHAR2_TABLE_500();
590 a28 := JTF_VARCHAR2_TABLE_500();
591 a29 := JTF_VARCHAR2_TABLE_500();
592 a30 := JTF_VARCHAR2_TABLE_500();
593 a31 := JTF_NUMBER_TABLE();
594 a32 := JTF_DATE_TABLE();
595 a33 := JTF_NUMBER_TABLE();
596 a34 := JTF_DATE_TABLE();
597 a35 := JTF_NUMBER_TABLE();
598 else
599 a0 := JTF_NUMBER_TABLE();
600 a1 := JTF_NUMBER_TABLE();
601 a2 := JTF_VARCHAR2_TABLE_200();
602 a3 := JTF_NUMBER_TABLE();
603 a4 := JTF_DATE_TABLE();
604 a5 := JTF_DATE_TABLE();
605 a6 := JTF_VARCHAR2_TABLE_100();
606 a7 := JTF_VARCHAR2_TABLE_100();
607 a8 := JTF_NUMBER_TABLE();
608 a9 := JTF_NUMBER_TABLE();
609 a10 := JTF_VARCHAR2_TABLE_100();
610 a11 := JTF_VARCHAR2_TABLE_100();
611 a12 := JTF_NUMBER_TABLE();
612 a13 := JTF_VARCHAR2_TABLE_100();
613 a14 := JTF_VARCHAR2_TABLE_100();
614 a15 := JTF_VARCHAR2_TABLE_100();
615 a16 := JTF_VARCHAR2_TABLE_500();
616 a17 := JTF_VARCHAR2_TABLE_500();
617 a18 := JTF_VARCHAR2_TABLE_500();
618 a19 := JTF_VARCHAR2_TABLE_500();
619 a20 := JTF_VARCHAR2_TABLE_500();
620 a21 := JTF_VARCHAR2_TABLE_500();
621 a22 := JTF_VARCHAR2_TABLE_500();
622 a23 := JTF_VARCHAR2_TABLE_500();
623 a24 := JTF_VARCHAR2_TABLE_500();
624 a25 := JTF_VARCHAR2_TABLE_500();
625 a26 := JTF_VARCHAR2_TABLE_500();
626 a27 := JTF_VARCHAR2_TABLE_500();
627 a28 := JTF_VARCHAR2_TABLE_500();
628 a29 := JTF_VARCHAR2_TABLE_500();
629 a30 := JTF_VARCHAR2_TABLE_500();
630 a31 := JTF_NUMBER_TABLE();
631 a32 := JTF_DATE_TABLE();
632 a33 := JTF_NUMBER_TABLE();
633 a34 := JTF_DATE_TABLE();
634 a35 := JTF_NUMBER_TABLE();
635 if t.count > 0 then
636 a0.extend(t.count);
637 a1.extend(t.count);
638 a2.extend(t.count);
639 a3.extend(t.count);
640 a4.extend(t.count);
641 a5.extend(t.count);
642 a6.extend(t.count);
643 a7.extend(t.count);
644 a8.extend(t.count);
645 a9.extend(t.count);
646 a10.extend(t.count);
647 a11.extend(t.count);
648 a12.extend(t.count);
649 a13.extend(t.count);
650 a14.extend(t.count);
651 a15.extend(t.count);
652 a16.extend(t.count);
653 a17.extend(t.count);
654 a18.extend(t.count);
655 a19.extend(t.count);
656 a20.extend(t.count);
657 a21.extend(t.count);
658 a22.extend(t.count);
659 a23.extend(t.count);
660 a24.extend(t.count);
661 a25.extend(t.count);
662 a26.extend(t.count);
663 a27.extend(t.count);
664 a28.extend(t.count);
665 a29.extend(t.count);
666 a30.extend(t.count);
667 a31.extend(t.count);
668 a32.extend(t.count);
669 a33.extend(t.count);
670 a34.extend(t.count);
671 a35.extend(t.count);
672 ddindx := t.first;
673 indx := 1;
674 while true loop
675 a0(indx) := rosetta_g_miss_num_map(t(ddindx).disb_rule_id);
676 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
677 a2(indx) := t(ddindx).rule_name;
678 a3(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
679 a4(indx) := t(ddindx).start_date;
680 a5(indx) := t(ddindx).end_date;
681 a6(indx) := t(ddindx).fee_option;
682 a7(indx) := t(ddindx).fee_basis;
683 a8(indx) := rosetta_g_miss_num_map(t(ddindx).fee_amount);
684 a9(indx) := rosetta_g_miss_num_map(t(ddindx).fee_percent);
685 a10(indx) := t(ddindx).consolidate_by_due_date;
686 a11(indx) := t(ddindx).frequency;
687 a12(indx) := rosetta_g_miss_num_map(t(ddindx).day_of_month);
688 a13(indx) := t(ddindx).scheduled_month;
689 a14(indx) := t(ddindx).consolidate_strm_type;
690 a15(indx) := t(ddindx).attribute_category;
691 a16(indx) := t(ddindx).attribute1;
692 a17(indx) := t(ddindx).attribute2;
693 a18(indx) := t(ddindx).attribute3;
694 a19(indx) := t(ddindx).attribute4;
695 a20(indx) := t(ddindx).attribute5;
696 a21(indx) := t(ddindx).attribute6;
697 a22(indx) := t(ddindx).attribute7;
698 a23(indx) := t(ddindx).attribute8;
699 a24(indx) := t(ddindx).attribute9;
700 a25(indx) := t(ddindx).attribute10;
701 a26(indx) := t(ddindx).attribute11;
702 a27(indx) := t(ddindx).attribute12;
703 a28(indx) := t(ddindx).attribute13;
704 a29(indx) := t(ddindx).attribute14;
705 a30(indx) := t(ddindx).attribute15;
706 a31(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
707 a32(indx) := t(ddindx).creation_date;
708 a33(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
709 a34(indx) := t(ddindx).last_update_date;
710 a35(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
711 indx := indx+1;
712 if t.last =ddindx
713 then exit;
714 end if;
715 ddindx := t.next(ddindx);
716 end loop;
717 end if;
718 end if;
719 end rosetta_table_copy_out_p8;
720
721 procedure insert_row(p_api_version NUMBER
722 , p_init_msg_list VARCHAR2
723 , x_return_status out nocopy VARCHAR2
724 , x_msg_count out nocopy NUMBER
725 , x_msg_data out nocopy VARCHAR2
726 , p6_a0 out nocopy NUMBER
727 , p6_a1 out nocopy NUMBER
728 , p6_a2 out nocopy VARCHAR2
729 , p6_a3 out nocopy VARCHAR2
730 , p6_a4 out nocopy NUMBER
731 , p6_a5 out nocopy DATE
732 , p6_a6 out nocopy DATE
733 , p6_a7 out nocopy VARCHAR2
734 , p6_a8 out nocopy VARCHAR2
735 , p6_a9 out nocopy NUMBER
736 , p6_a10 out nocopy NUMBER
737 , p6_a11 out nocopy VARCHAR2
738 , p6_a12 out nocopy VARCHAR2
739 , p6_a13 out nocopy NUMBER
740 , p6_a14 out nocopy VARCHAR2
741 , p6_a15 out nocopy VARCHAR2
742 , p6_a16 out nocopy VARCHAR2
743 , p6_a17 out nocopy VARCHAR2
744 , p6_a18 out nocopy VARCHAR2
745 , p6_a19 out nocopy VARCHAR2
746 , p6_a20 out nocopy VARCHAR2
747 , p6_a21 out nocopy VARCHAR2
748 , p6_a22 out nocopy VARCHAR2
749 , p6_a23 out nocopy VARCHAR2
750 , p6_a24 out nocopy VARCHAR2
751 , p6_a25 out nocopy VARCHAR2
752 , p6_a26 out nocopy VARCHAR2
753 , p6_a27 out nocopy VARCHAR2
754 , p6_a28 out nocopy VARCHAR2
755 , p6_a29 out nocopy VARCHAR2
756 , p6_a30 out nocopy VARCHAR2
757 , p6_a31 out nocopy VARCHAR2
758 , p6_a32 out nocopy VARCHAR2
759 , p6_a33 out nocopy NUMBER
760 , p6_a34 out nocopy DATE
761 , p6_a35 out nocopy NUMBER
762 , p6_a36 out nocopy DATE
763 , p6_a37 out nocopy NUMBER
764 , p5_a0 NUMBER := 0-1962.0724
765 , p5_a1 NUMBER := 0-1962.0724
766 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
767 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
768 , p5_a4 NUMBER := 0-1962.0724
769 , p5_a5 DATE := fnd_api.g_miss_date
770 , p5_a6 DATE := fnd_api.g_miss_date
771 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
772 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
773 , p5_a9 NUMBER := 0-1962.0724
774 , p5_a10 NUMBER := 0-1962.0724
775 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
776 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
777 , p5_a13 NUMBER := 0-1962.0724
778 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
779 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
780 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
781 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
782 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
783 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
784 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
785 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
786 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
787 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
788 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
789 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
790 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
791 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
792 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
793 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
794 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
795 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
796 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
797 , p5_a33 NUMBER := 0-1962.0724
798 , p5_a34 DATE := fnd_api.g_miss_date
799 , p5_a35 NUMBER := 0-1962.0724
800 , p5_a36 DATE := fnd_api.g_miss_date
801 , p5_a37 NUMBER := 0-1962.0724
802 )
803
804 as
805 ddp_drav_rec okl_dra_pvt.drav_rec_type;
806 ddx_drav_rec okl_dra_pvt.drav_rec_type;
807 ddindx binary_integer; indx binary_integer;
808 begin
809
810 -- copy data to the local IN or IN-OUT args, if any
811
812
813
814
815
816 ddp_drav_rec.disb_rule_id := rosetta_g_miss_num_map(p5_a0);
817 ddp_drav_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
818 ddp_drav_rec.sfwt_flag := p5_a2;
819 ddp_drav_rec.rule_name := p5_a3;
820 ddp_drav_rec.org_id := rosetta_g_miss_num_map(p5_a4);
821 ddp_drav_rec.start_date := rosetta_g_miss_date_in_map(p5_a5);
822 ddp_drav_rec.end_date := rosetta_g_miss_date_in_map(p5_a6);
823 ddp_drav_rec.fee_option := p5_a7;
824 ddp_drav_rec.fee_basis := p5_a8;
825 ddp_drav_rec.fee_amount := rosetta_g_miss_num_map(p5_a9);
826 ddp_drav_rec.fee_percent := rosetta_g_miss_num_map(p5_a10);
827 ddp_drav_rec.consolidate_by_due_date := p5_a11;
828 ddp_drav_rec.frequency := p5_a12;
829 ddp_drav_rec.day_of_month := rosetta_g_miss_num_map(p5_a13);
830 ddp_drav_rec.scheduled_month := p5_a14;
831 ddp_drav_rec.consolidate_strm_type := p5_a15;
832 ddp_drav_rec.description := p5_a16;
833 ddp_drav_rec.attribute_category := p5_a17;
834 ddp_drav_rec.attribute1 := p5_a18;
835 ddp_drav_rec.attribute2 := p5_a19;
836 ddp_drav_rec.attribute3 := p5_a20;
837 ddp_drav_rec.attribute4 := p5_a21;
838 ddp_drav_rec.attribute5 := p5_a22;
839 ddp_drav_rec.attribute6 := p5_a23;
840 ddp_drav_rec.attribute7 := p5_a24;
841 ddp_drav_rec.attribute8 := p5_a25;
842 ddp_drav_rec.attribute9 := p5_a26;
843 ddp_drav_rec.attribute10 := p5_a27;
844 ddp_drav_rec.attribute11 := p5_a28;
845 ddp_drav_rec.attribute12 := p5_a29;
846 ddp_drav_rec.attribute13 := p5_a30;
847 ddp_drav_rec.attribute14 := p5_a31;
848 ddp_drav_rec.attribute15 := p5_a32;
849 ddp_drav_rec.created_by := rosetta_g_miss_num_map(p5_a33);
850 ddp_drav_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
851 ddp_drav_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
852 ddp_drav_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
853 ddp_drav_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
854
855
856 -- here's the delegated call to the old PL/SQL routine
857 okl_dra_pvt.insert_row(p_api_version,
858 p_init_msg_list,
859 x_return_status,
860 x_msg_count,
861 x_msg_data,
862 ddp_drav_rec,
863 ddx_drav_rec);
864
865 -- copy data back from the local variables to OUT or IN-OUT args, if any
866
867
868
869
870
871
872 p6_a0 := rosetta_g_miss_num_map(ddx_drav_rec.disb_rule_id);
873 p6_a1 := rosetta_g_miss_num_map(ddx_drav_rec.object_version_number);
874 p6_a2 := ddx_drav_rec.sfwt_flag;
875 p6_a3 := ddx_drav_rec.rule_name;
876 p6_a4 := rosetta_g_miss_num_map(ddx_drav_rec.org_id);
877 p6_a5 := ddx_drav_rec.start_date;
878 p6_a6 := ddx_drav_rec.end_date;
879 p6_a7 := ddx_drav_rec.fee_option;
880 p6_a8 := ddx_drav_rec.fee_basis;
881 p6_a9 := rosetta_g_miss_num_map(ddx_drav_rec.fee_amount);
882 p6_a10 := rosetta_g_miss_num_map(ddx_drav_rec.fee_percent);
883 p6_a11 := ddx_drav_rec.consolidate_by_due_date;
884 p6_a12 := ddx_drav_rec.frequency;
885 p6_a13 := rosetta_g_miss_num_map(ddx_drav_rec.day_of_month);
886 p6_a14 := ddx_drav_rec.scheduled_month;
887 p6_a15 := ddx_drav_rec.consolidate_strm_type;
888 p6_a16 := ddx_drav_rec.description;
889 p6_a17 := ddx_drav_rec.attribute_category;
890 p6_a18 := ddx_drav_rec.attribute1;
891 p6_a19 := ddx_drav_rec.attribute2;
892 p6_a20 := ddx_drav_rec.attribute3;
893 p6_a21 := ddx_drav_rec.attribute4;
894 p6_a22 := ddx_drav_rec.attribute5;
895 p6_a23 := ddx_drav_rec.attribute6;
896 p6_a24 := ddx_drav_rec.attribute7;
897 p6_a25 := ddx_drav_rec.attribute8;
898 p6_a26 := ddx_drav_rec.attribute9;
899 p6_a27 := ddx_drav_rec.attribute10;
900 p6_a28 := ddx_drav_rec.attribute11;
901 p6_a29 := ddx_drav_rec.attribute12;
902 p6_a30 := ddx_drav_rec.attribute13;
903 p6_a31 := ddx_drav_rec.attribute14;
904 p6_a32 := ddx_drav_rec.attribute15;
905 p6_a33 := rosetta_g_miss_num_map(ddx_drav_rec.created_by);
906 p6_a34 := ddx_drav_rec.creation_date;
907 p6_a35 := rosetta_g_miss_num_map(ddx_drav_rec.last_updated_by);
908 p6_a36 := ddx_drav_rec.last_update_date;
909 p6_a37 := rosetta_g_miss_num_map(ddx_drav_rec.last_update_login);
910 end;
911
912 procedure insert_row(p_api_version NUMBER
913 , p_init_msg_list VARCHAR2
914 , x_return_status out nocopy VARCHAR2
915 , x_msg_count out nocopy NUMBER
916 , x_msg_data out nocopy VARCHAR2
917 , p5_a0 JTF_NUMBER_TABLE
918 , p5_a1 JTF_NUMBER_TABLE
919 , p5_a2 JTF_VARCHAR2_TABLE_100
920 , p5_a3 JTF_VARCHAR2_TABLE_200
921 , p5_a4 JTF_NUMBER_TABLE
922 , p5_a5 JTF_DATE_TABLE
923 , p5_a6 JTF_DATE_TABLE
924 , p5_a7 JTF_VARCHAR2_TABLE_100
925 , p5_a8 JTF_VARCHAR2_TABLE_100
926 , p5_a9 JTF_NUMBER_TABLE
927 , p5_a10 JTF_NUMBER_TABLE
928 , p5_a11 JTF_VARCHAR2_TABLE_100
929 , p5_a12 JTF_VARCHAR2_TABLE_100
930 , p5_a13 JTF_NUMBER_TABLE
931 , p5_a14 JTF_VARCHAR2_TABLE_100
932 , p5_a15 JTF_VARCHAR2_TABLE_100
933 , p5_a16 JTF_VARCHAR2_TABLE_2000
934 , p5_a17 JTF_VARCHAR2_TABLE_100
935 , p5_a18 JTF_VARCHAR2_TABLE_500
936 , p5_a19 JTF_VARCHAR2_TABLE_500
937 , p5_a20 JTF_VARCHAR2_TABLE_500
938 , p5_a21 JTF_VARCHAR2_TABLE_500
939 , p5_a22 JTF_VARCHAR2_TABLE_500
940 , p5_a23 JTF_VARCHAR2_TABLE_500
941 , p5_a24 JTF_VARCHAR2_TABLE_500
942 , p5_a25 JTF_VARCHAR2_TABLE_500
943 , p5_a26 JTF_VARCHAR2_TABLE_500
944 , p5_a27 JTF_VARCHAR2_TABLE_500
945 , p5_a28 JTF_VARCHAR2_TABLE_500
946 , p5_a29 JTF_VARCHAR2_TABLE_500
947 , p5_a30 JTF_VARCHAR2_TABLE_500
948 , p5_a31 JTF_VARCHAR2_TABLE_500
949 , p5_a32 JTF_VARCHAR2_TABLE_500
950 , p5_a33 JTF_NUMBER_TABLE
951 , p5_a34 JTF_DATE_TABLE
952 , p5_a35 JTF_NUMBER_TABLE
953 , p5_a36 JTF_DATE_TABLE
954 , p5_a37 JTF_NUMBER_TABLE
955 , p6_a0 out nocopy JTF_NUMBER_TABLE
956 , p6_a1 out nocopy JTF_NUMBER_TABLE
957 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
958 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_200
959 , p6_a4 out nocopy JTF_NUMBER_TABLE
960 , p6_a5 out nocopy JTF_DATE_TABLE
961 , p6_a6 out nocopy JTF_DATE_TABLE
962 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
963 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
964 , p6_a9 out nocopy JTF_NUMBER_TABLE
965 , p6_a10 out nocopy JTF_NUMBER_TABLE
966 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
967 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
968 , p6_a13 out nocopy JTF_NUMBER_TABLE
969 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
970 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
971 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_2000
972 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_100
973 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
974 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
975 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
976 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
977 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
978 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
979 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
980 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
981 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
982 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
983 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
984 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
985 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
986 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
987 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
988 , p6_a33 out nocopy JTF_NUMBER_TABLE
989 , p6_a34 out nocopy JTF_DATE_TABLE
990 , p6_a35 out nocopy JTF_NUMBER_TABLE
991 , p6_a36 out nocopy JTF_DATE_TABLE
992 , p6_a37 out nocopy JTF_NUMBER_TABLE
993 )
994
995 as
996 ddp_drav_tbl okl_dra_pvt.drav_tbl_type;
997 ddx_drav_tbl okl_dra_pvt.drav_tbl_type;
998 ddindx binary_integer; indx binary_integer;
999 begin
1000
1001 -- copy data to the local IN or IN-OUT args, if any
1002
1003
1004
1005
1006
1007 okl_dra_pvt_w.rosetta_table_copy_in_p2(ddp_drav_tbl, p5_a0
1008 , p5_a1
1009 , p5_a2
1010 , p5_a3
1011 , p5_a4
1012 , p5_a5
1013 , p5_a6
1014 , p5_a7
1015 , p5_a8
1016 , p5_a9
1017 , p5_a10
1018 , p5_a11
1019 , p5_a12
1020 , p5_a13
1021 , p5_a14
1022 , p5_a15
1023 , p5_a16
1024 , p5_a17
1025 , p5_a18
1026 , p5_a19
1027 , p5_a20
1028 , p5_a21
1029 , p5_a22
1030 , p5_a23
1031 , p5_a24
1032 , p5_a25
1033 , p5_a26
1034 , p5_a27
1035 , p5_a28
1036 , p5_a29
1037 , p5_a30
1038 , p5_a31
1039 , p5_a32
1040 , p5_a33
1041 , p5_a34
1042 , p5_a35
1043 , p5_a36
1044 , p5_a37
1045 );
1046
1047
1048 -- here's the delegated call to the old PL/SQL routine
1049 okl_dra_pvt.insert_row(p_api_version,
1050 p_init_msg_list,
1051 x_return_status,
1052 x_msg_count,
1053 x_msg_data,
1054 ddp_drav_tbl,
1055 ddx_drav_tbl);
1056
1057 -- copy data back from the local variables to OUT or IN-OUT args, if any
1058
1059
1060
1061
1062
1063
1064 okl_dra_pvt_w.rosetta_table_copy_out_p2(ddx_drav_tbl, p6_a0
1065 , p6_a1
1066 , p6_a2
1067 , p6_a3
1068 , p6_a4
1069 , p6_a5
1070 , p6_a6
1071 , p6_a7
1072 , p6_a8
1073 , p6_a9
1074 , p6_a10
1075 , p6_a11
1076 , p6_a12
1077 , p6_a13
1078 , p6_a14
1079 , p6_a15
1080 , p6_a16
1081 , p6_a17
1082 , p6_a18
1083 , p6_a19
1084 , p6_a20
1085 , p6_a21
1086 , p6_a22
1087 , p6_a23
1088 , p6_a24
1089 , p6_a25
1090 , p6_a26
1091 , p6_a27
1092 , p6_a28
1093 , p6_a29
1094 , p6_a30
1095 , p6_a31
1096 , p6_a32
1097 , p6_a33
1098 , p6_a34
1099 , p6_a35
1100 , p6_a36
1101 , p6_a37
1102 );
1103 end;
1104
1105 procedure lock_row(p_api_version NUMBER
1106 , p_init_msg_list VARCHAR2
1107 , x_return_status out nocopy VARCHAR2
1108 , x_msg_count out nocopy NUMBER
1109 , x_msg_data out nocopy VARCHAR2
1110 , p5_a0 NUMBER := 0-1962.0724
1111 , p5_a1 NUMBER := 0-1962.0724
1112 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1113 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1114 , p5_a4 NUMBER := 0-1962.0724
1115 , p5_a5 DATE := fnd_api.g_miss_date
1116 , p5_a6 DATE := fnd_api.g_miss_date
1117 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1118 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1119 , p5_a9 NUMBER := 0-1962.0724
1120 , p5_a10 NUMBER := 0-1962.0724
1121 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1122 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1123 , p5_a13 NUMBER := 0-1962.0724
1124 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1125 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1126 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1127 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1128 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1129 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1130 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1131 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1132 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1133 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1134 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1135 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1136 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1137 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1138 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1139 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1140 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1141 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1142 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
1143 , p5_a33 NUMBER := 0-1962.0724
1144 , p5_a34 DATE := fnd_api.g_miss_date
1145 , p5_a35 NUMBER := 0-1962.0724
1146 , p5_a36 DATE := fnd_api.g_miss_date
1147 , p5_a37 NUMBER := 0-1962.0724
1148 )
1149
1150 as
1151 ddp_drav_rec okl_dra_pvt.drav_rec_type;
1152 ddindx binary_integer; indx binary_integer;
1153 begin
1154
1155 -- copy data to the local IN or IN-OUT args, if any
1156
1157
1158
1159
1160
1161 ddp_drav_rec.disb_rule_id := rosetta_g_miss_num_map(p5_a0);
1162 ddp_drav_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1163 ddp_drav_rec.sfwt_flag := p5_a2;
1164 ddp_drav_rec.rule_name := p5_a3;
1165 ddp_drav_rec.org_id := rosetta_g_miss_num_map(p5_a4);
1166 ddp_drav_rec.start_date := rosetta_g_miss_date_in_map(p5_a5);
1167 ddp_drav_rec.end_date := rosetta_g_miss_date_in_map(p5_a6);
1168 ddp_drav_rec.fee_option := p5_a7;
1169 ddp_drav_rec.fee_basis := p5_a8;
1170 ddp_drav_rec.fee_amount := rosetta_g_miss_num_map(p5_a9);
1171 ddp_drav_rec.fee_percent := rosetta_g_miss_num_map(p5_a10);
1172 ddp_drav_rec.consolidate_by_due_date := p5_a11;
1173 ddp_drav_rec.frequency := p5_a12;
1174 ddp_drav_rec.day_of_month := rosetta_g_miss_num_map(p5_a13);
1175 ddp_drav_rec.scheduled_month := p5_a14;
1176 ddp_drav_rec.consolidate_strm_type := p5_a15;
1177 ddp_drav_rec.description := p5_a16;
1178 ddp_drav_rec.attribute_category := p5_a17;
1179 ddp_drav_rec.attribute1 := p5_a18;
1180 ddp_drav_rec.attribute2 := p5_a19;
1181 ddp_drav_rec.attribute3 := p5_a20;
1182 ddp_drav_rec.attribute4 := p5_a21;
1183 ddp_drav_rec.attribute5 := p5_a22;
1184 ddp_drav_rec.attribute6 := p5_a23;
1185 ddp_drav_rec.attribute7 := p5_a24;
1186 ddp_drav_rec.attribute8 := p5_a25;
1187 ddp_drav_rec.attribute9 := p5_a26;
1188 ddp_drav_rec.attribute10 := p5_a27;
1189 ddp_drav_rec.attribute11 := p5_a28;
1190 ddp_drav_rec.attribute12 := p5_a29;
1191 ddp_drav_rec.attribute13 := p5_a30;
1192 ddp_drav_rec.attribute14 := p5_a31;
1193 ddp_drav_rec.attribute15 := p5_a32;
1194 ddp_drav_rec.created_by := rosetta_g_miss_num_map(p5_a33);
1195 ddp_drav_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
1196 ddp_drav_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
1197 ddp_drav_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
1198 ddp_drav_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
1199
1200 -- here's the delegated call to the old PL/SQL routine
1201 okl_dra_pvt.lock_row(p_api_version,
1202 p_init_msg_list,
1203 x_return_status,
1204 x_msg_count,
1205 x_msg_data,
1206 ddp_drav_rec);
1207
1208 -- copy data back from the local variables to OUT or IN-OUT args, if any
1209
1210
1211
1212
1213
1214 end;
1215
1216 procedure lock_row(p_api_version NUMBER
1217 , p_init_msg_list VARCHAR2
1218 , x_return_status out nocopy VARCHAR2
1219 , x_msg_count out nocopy NUMBER
1220 , x_msg_data out nocopy VARCHAR2
1221 , p5_a0 JTF_NUMBER_TABLE
1222 , p5_a1 JTF_NUMBER_TABLE
1223 , p5_a2 JTF_VARCHAR2_TABLE_100
1224 , p5_a3 JTF_VARCHAR2_TABLE_200
1225 , p5_a4 JTF_NUMBER_TABLE
1226 , p5_a5 JTF_DATE_TABLE
1227 , p5_a6 JTF_DATE_TABLE
1228 , p5_a7 JTF_VARCHAR2_TABLE_100
1229 , p5_a8 JTF_VARCHAR2_TABLE_100
1230 , p5_a9 JTF_NUMBER_TABLE
1231 , p5_a10 JTF_NUMBER_TABLE
1232 , p5_a11 JTF_VARCHAR2_TABLE_100
1233 , p5_a12 JTF_VARCHAR2_TABLE_100
1234 , p5_a13 JTF_NUMBER_TABLE
1235 , p5_a14 JTF_VARCHAR2_TABLE_100
1236 , p5_a15 JTF_VARCHAR2_TABLE_100
1237 , p5_a16 JTF_VARCHAR2_TABLE_2000
1238 , p5_a17 JTF_VARCHAR2_TABLE_100
1239 , p5_a18 JTF_VARCHAR2_TABLE_500
1240 , p5_a19 JTF_VARCHAR2_TABLE_500
1241 , p5_a20 JTF_VARCHAR2_TABLE_500
1242 , p5_a21 JTF_VARCHAR2_TABLE_500
1243 , p5_a22 JTF_VARCHAR2_TABLE_500
1244 , p5_a23 JTF_VARCHAR2_TABLE_500
1245 , p5_a24 JTF_VARCHAR2_TABLE_500
1246 , p5_a25 JTF_VARCHAR2_TABLE_500
1247 , p5_a26 JTF_VARCHAR2_TABLE_500
1248 , p5_a27 JTF_VARCHAR2_TABLE_500
1249 , p5_a28 JTF_VARCHAR2_TABLE_500
1250 , p5_a29 JTF_VARCHAR2_TABLE_500
1251 , p5_a30 JTF_VARCHAR2_TABLE_500
1252 , p5_a31 JTF_VARCHAR2_TABLE_500
1253 , p5_a32 JTF_VARCHAR2_TABLE_500
1254 , p5_a33 JTF_NUMBER_TABLE
1255 , p5_a34 JTF_DATE_TABLE
1256 , p5_a35 JTF_NUMBER_TABLE
1257 , p5_a36 JTF_DATE_TABLE
1258 , p5_a37 JTF_NUMBER_TABLE
1259 )
1260
1261 as
1262 ddp_drav_tbl okl_dra_pvt.drav_tbl_type;
1263 ddindx binary_integer; indx binary_integer;
1264 begin
1265
1266 -- copy data to the local IN or IN-OUT args, if any
1267
1268
1269
1270
1271
1272 okl_dra_pvt_w.rosetta_table_copy_in_p2(ddp_drav_tbl, p5_a0
1273 , p5_a1
1274 , p5_a2
1275 , p5_a3
1276 , p5_a4
1277 , p5_a5
1278 , p5_a6
1279 , p5_a7
1280 , p5_a8
1281 , p5_a9
1282 , p5_a10
1283 , p5_a11
1284 , p5_a12
1285 , p5_a13
1286 , p5_a14
1287 , p5_a15
1288 , p5_a16
1289 , p5_a17
1290 , p5_a18
1291 , p5_a19
1292 , p5_a20
1293 , p5_a21
1294 , p5_a22
1295 , p5_a23
1296 , p5_a24
1297 , p5_a25
1298 , p5_a26
1299 , p5_a27
1300 , p5_a28
1301 , p5_a29
1302 , p5_a30
1303 , p5_a31
1304 , p5_a32
1305 , p5_a33
1306 , p5_a34
1307 , p5_a35
1308 , p5_a36
1309 , p5_a37
1310 );
1311
1312 -- here's the delegated call to the old PL/SQL routine
1313 okl_dra_pvt.lock_row(p_api_version,
1314 p_init_msg_list,
1315 x_return_status,
1316 x_msg_count,
1317 x_msg_data,
1318 ddp_drav_tbl);
1319
1320 -- copy data back from the local variables to OUT or IN-OUT args, if any
1321
1322
1323
1324
1325
1326 end;
1327
1328 procedure update_row(p_api_version NUMBER
1329 , p_init_msg_list VARCHAR2
1330 , x_return_status out nocopy VARCHAR2
1331 , x_msg_count out nocopy NUMBER
1332 , x_msg_data out nocopy VARCHAR2
1333 , p6_a0 out nocopy NUMBER
1334 , p6_a1 out nocopy NUMBER
1335 , p6_a2 out nocopy VARCHAR2
1336 , p6_a3 out nocopy VARCHAR2
1337 , p6_a4 out nocopy NUMBER
1338 , p6_a5 out nocopy DATE
1339 , p6_a6 out nocopy DATE
1340 , p6_a7 out nocopy VARCHAR2
1341 , p6_a8 out nocopy VARCHAR2
1342 , p6_a9 out nocopy NUMBER
1343 , p6_a10 out nocopy NUMBER
1344 , p6_a11 out nocopy VARCHAR2
1345 , p6_a12 out nocopy VARCHAR2
1346 , p6_a13 out nocopy NUMBER
1347 , p6_a14 out nocopy VARCHAR2
1348 , p6_a15 out nocopy VARCHAR2
1349 , p6_a16 out nocopy VARCHAR2
1350 , p6_a17 out nocopy VARCHAR2
1351 , p6_a18 out nocopy VARCHAR2
1352 , p6_a19 out nocopy VARCHAR2
1353 , p6_a20 out nocopy VARCHAR2
1354 , p6_a21 out nocopy VARCHAR2
1355 , p6_a22 out nocopy VARCHAR2
1356 , p6_a23 out nocopy VARCHAR2
1357 , p6_a24 out nocopy VARCHAR2
1358 , p6_a25 out nocopy VARCHAR2
1359 , p6_a26 out nocopy VARCHAR2
1360 , p6_a27 out nocopy VARCHAR2
1361 , p6_a28 out nocopy VARCHAR2
1362 , p6_a29 out nocopy VARCHAR2
1363 , p6_a30 out nocopy VARCHAR2
1364 , p6_a31 out nocopy VARCHAR2
1365 , p6_a32 out nocopy VARCHAR2
1366 , p6_a33 out nocopy NUMBER
1367 , p6_a34 out nocopy DATE
1368 , p6_a35 out nocopy NUMBER
1369 , p6_a36 out nocopy DATE
1370 , p6_a37 out nocopy NUMBER
1371 , p5_a0 NUMBER := 0-1962.0724
1372 , p5_a1 NUMBER := 0-1962.0724
1373 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1374 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1375 , p5_a4 NUMBER := 0-1962.0724
1376 , p5_a5 DATE := fnd_api.g_miss_date
1377 , p5_a6 DATE := fnd_api.g_miss_date
1378 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1379 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1380 , p5_a9 NUMBER := 0-1962.0724
1381 , p5_a10 NUMBER := 0-1962.0724
1382 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1383 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1384 , p5_a13 NUMBER := 0-1962.0724
1385 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1386 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1387 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1388 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1389 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1390 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1391 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1392 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1393 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1394 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1395 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1396 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1397 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1398 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1399 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1400 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1401 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1402 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1403 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
1404 , p5_a33 NUMBER := 0-1962.0724
1405 , p5_a34 DATE := fnd_api.g_miss_date
1406 , p5_a35 NUMBER := 0-1962.0724
1407 , p5_a36 DATE := fnd_api.g_miss_date
1408 , p5_a37 NUMBER := 0-1962.0724
1409 )
1410
1411 as
1412 ddp_drav_rec okl_dra_pvt.drav_rec_type;
1413 ddx_drav_rec okl_dra_pvt.drav_rec_type;
1414 ddindx binary_integer; indx binary_integer;
1415 begin
1416
1417 -- copy data to the local IN or IN-OUT args, if any
1418
1419
1420
1421
1422
1423 ddp_drav_rec.disb_rule_id := rosetta_g_miss_num_map(p5_a0);
1424 ddp_drav_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1425 ddp_drav_rec.sfwt_flag := p5_a2;
1426 ddp_drav_rec.rule_name := p5_a3;
1427 ddp_drav_rec.org_id := rosetta_g_miss_num_map(p5_a4);
1428 ddp_drav_rec.start_date := rosetta_g_miss_date_in_map(p5_a5);
1429 ddp_drav_rec.end_date := rosetta_g_miss_date_in_map(p5_a6);
1430 ddp_drav_rec.fee_option := p5_a7;
1431 ddp_drav_rec.fee_basis := p5_a8;
1432 ddp_drav_rec.fee_amount := rosetta_g_miss_num_map(p5_a9);
1433 ddp_drav_rec.fee_percent := rosetta_g_miss_num_map(p5_a10);
1434 ddp_drav_rec.consolidate_by_due_date := p5_a11;
1435 ddp_drav_rec.frequency := p5_a12;
1436 ddp_drav_rec.day_of_month := rosetta_g_miss_num_map(p5_a13);
1437 ddp_drav_rec.scheduled_month := p5_a14;
1438 ddp_drav_rec.consolidate_strm_type := p5_a15;
1439 ddp_drav_rec.description := p5_a16;
1440 ddp_drav_rec.attribute_category := p5_a17;
1441 ddp_drav_rec.attribute1 := p5_a18;
1442 ddp_drav_rec.attribute2 := p5_a19;
1443 ddp_drav_rec.attribute3 := p5_a20;
1444 ddp_drav_rec.attribute4 := p5_a21;
1445 ddp_drav_rec.attribute5 := p5_a22;
1446 ddp_drav_rec.attribute6 := p5_a23;
1447 ddp_drav_rec.attribute7 := p5_a24;
1448 ddp_drav_rec.attribute8 := p5_a25;
1449 ddp_drav_rec.attribute9 := p5_a26;
1450 ddp_drav_rec.attribute10 := p5_a27;
1451 ddp_drav_rec.attribute11 := p5_a28;
1452 ddp_drav_rec.attribute12 := p5_a29;
1453 ddp_drav_rec.attribute13 := p5_a30;
1454 ddp_drav_rec.attribute14 := p5_a31;
1455 ddp_drav_rec.attribute15 := p5_a32;
1456 ddp_drav_rec.created_by := rosetta_g_miss_num_map(p5_a33);
1457 ddp_drav_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
1458 ddp_drav_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
1459 ddp_drav_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
1460 ddp_drav_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
1461
1462
1463 -- here's the delegated call to the old PL/SQL routine
1464 okl_dra_pvt.update_row(p_api_version,
1465 p_init_msg_list,
1466 x_return_status,
1467 x_msg_count,
1468 x_msg_data,
1469 ddp_drav_rec,
1470 ddx_drav_rec);
1471
1472 -- copy data back from the local variables to OUT or IN-OUT args, if any
1473
1474
1475
1476
1477
1478
1479 p6_a0 := rosetta_g_miss_num_map(ddx_drav_rec.disb_rule_id);
1480 p6_a1 := rosetta_g_miss_num_map(ddx_drav_rec.object_version_number);
1481 p6_a2 := ddx_drav_rec.sfwt_flag;
1482 p6_a3 := ddx_drav_rec.rule_name;
1483 p6_a4 := rosetta_g_miss_num_map(ddx_drav_rec.org_id);
1484 p6_a5 := ddx_drav_rec.start_date;
1485 p6_a6 := ddx_drav_rec.end_date;
1486 p6_a7 := ddx_drav_rec.fee_option;
1487 p6_a8 := ddx_drav_rec.fee_basis;
1488 p6_a9 := rosetta_g_miss_num_map(ddx_drav_rec.fee_amount);
1489 p6_a10 := rosetta_g_miss_num_map(ddx_drav_rec.fee_percent);
1490 p6_a11 := ddx_drav_rec.consolidate_by_due_date;
1491 p6_a12 := ddx_drav_rec.frequency;
1492 p6_a13 := rosetta_g_miss_num_map(ddx_drav_rec.day_of_month);
1493 p6_a14 := ddx_drav_rec.scheduled_month;
1494 p6_a15 := ddx_drav_rec.consolidate_strm_type;
1495 p6_a16 := ddx_drav_rec.description;
1496 p6_a17 := ddx_drav_rec.attribute_category;
1497 p6_a18 := ddx_drav_rec.attribute1;
1498 p6_a19 := ddx_drav_rec.attribute2;
1499 p6_a20 := ddx_drav_rec.attribute3;
1500 p6_a21 := ddx_drav_rec.attribute4;
1501 p6_a22 := ddx_drav_rec.attribute5;
1502 p6_a23 := ddx_drav_rec.attribute6;
1503 p6_a24 := ddx_drav_rec.attribute7;
1504 p6_a25 := ddx_drav_rec.attribute8;
1505 p6_a26 := ddx_drav_rec.attribute9;
1506 p6_a27 := ddx_drav_rec.attribute10;
1507 p6_a28 := ddx_drav_rec.attribute11;
1508 p6_a29 := ddx_drav_rec.attribute12;
1509 p6_a30 := ddx_drav_rec.attribute13;
1510 p6_a31 := ddx_drav_rec.attribute14;
1511 p6_a32 := ddx_drav_rec.attribute15;
1512 p6_a33 := rosetta_g_miss_num_map(ddx_drav_rec.created_by);
1513 p6_a34 := ddx_drav_rec.creation_date;
1514 p6_a35 := rosetta_g_miss_num_map(ddx_drav_rec.last_updated_by);
1515 p6_a36 := ddx_drav_rec.last_update_date;
1516 p6_a37 := rosetta_g_miss_num_map(ddx_drav_rec.last_update_login);
1517 end;
1518
1519 procedure update_row(p_api_version NUMBER
1520 , p_init_msg_list VARCHAR2
1521 , x_return_status out nocopy VARCHAR2
1522 , x_msg_count out nocopy NUMBER
1523 , x_msg_data out nocopy VARCHAR2
1524 , p5_a0 JTF_NUMBER_TABLE
1525 , p5_a1 JTF_NUMBER_TABLE
1526 , p5_a2 JTF_VARCHAR2_TABLE_100
1527 , p5_a3 JTF_VARCHAR2_TABLE_200
1528 , p5_a4 JTF_NUMBER_TABLE
1529 , p5_a5 JTF_DATE_TABLE
1530 , p5_a6 JTF_DATE_TABLE
1531 , p5_a7 JTF_VARCHAR2_TABLE_100
1532 , p5_a8 JTF_VARCHAR2_TABLE_100
1533 , p5_a9 JTF_NUMBER_TABLE
1534 , p5_a10 JTF_NUMBER_TABLE
1535 , p5_a11 JTF_VARCHAR2_TABLE_100
1536 , p5_a12 JTF_VARCHAR2_TABLE_100
1537 , p5_a13 JTF_NUMBER_TABLE
1538 , p5_a14 JTF_VARCHAR2_TABLE_100
1539 , p5_a15 JTF_VARCHAR2_TABLE_100
1540 , p5_a16 JTF_VARCHAR2_TABLE_2000
1541 , p5_a17 JTF_VARCHAR2_TABLE_100
1542 , p5_a18 JTF_VARCHAR2_TABLE_500
1543 , p5_a19 JTF_VARCHAR2_TABLE_500
1544 , p5_a20 JTF_VARCHAR2_TABLE_500
1545 , p5_a21 JTF_VARCHAR2_TABLE_500
1546 , p5_a22 JTF_VARCHAR2_TABLE_500
1547 , p5_a23 JTF_VARCHAR2_TABLE_500
1548 , p5_a24 JTF_VARCHAR2_TABLE_500
1549 , p5_a25 JTF_VARCHAR2_TABLE_500
1550 , p5_a26 JTF_VARCHAR2_TABLE_500
1551 , p5_a27 JTF_VARCHAR2_TABLE_500
1552 , p5_a28 JTF_VARCHAR2_TABLE_500
1553 , p5_a29 JTF_VARCHAR2_TABLE_500
1554 , p5_a30 JTF_VARCHAR2_TABLE_500
1555 , p5_a31 JTF_VARCHAR2_TABLE_500
1556 , p5_a32 JTF_VARCHAR2_TABLE_500
1557 , p5_a33 JTF_NUMBER_TABLE
1558 , p5_a34 JTF_DATE_TABLE
1559 , p5_a35 JTF_NUMBER_TABLE
1560 , p5_a36 JTF_DATE_TABLE
1561 , p5_a37 JTF_NUMBER_TABLE
1562 , p6_a0 out nocopy JTF_NUMBER_TABLE
1563 , p6_a1 out nocopy JTF_NUMBER_TABLE
1564 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
1565 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_200
1566 , p6_a4 out nocopy JTF_NUMBER_TABLE
1567 , p6_a5 out nocopy JTF_DATE_TABLE
1568 , p6_a6 out nocopy JTF_DATE_TABLE
1569 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
1570 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
1571 , p6_a9 out nocopy JTF_NUMBER_TABLE
1572 , p6_a10 out nocopy JTF_NUMBER_TABLE
1573 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
1574 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
1575 , p6_a13 out nocopy JTF_NUMBER_TABLE
1576 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
1577 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
1578 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_2000
1579 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_100
1580 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1581 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1582 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1583 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1584 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1585 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
1586 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
1587 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
1588 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
1589 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
1590 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
1591 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
1592 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
1593 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
1594 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
1595 , p6_a33 out nocopy JTF_NUMBER_TABLE
1596 , p6_a34 out nocopy JTF_DATE_TABLE
1597 , p6_a35 out nocopy JTF_NUMBER_TABLE
1598 , p6_a36 out nocopy JTF_DATE_TABLE
1599 , p6_a37 out nocopy JTF_NUMBER_TABLE
1600 )
1601
1602 as
1603 ddp_drav_tbl okl_dra_pvt.drav_tbl_type;
1604 ddx_drav_tbl okl_dra_pvt.drav_tbl_type;
1605 ddindx binary_integer; indx binary_integer;
1606 begin
1607
1608 -- copy data to the local IN or IN-OUT args, if any
1609
1610
1611
1612
1613
1614 okl_dra_pvt_w.rosetta_table_copy_in_p2(ddp_drav_tbl, p5_a0
1615 , p5_a1
1616 , p5_a2
1617 , p5_a3
1618 , p5_a4
1619 , p5_a5
1620 , p5_a6
1621 , p5_a7
1622 , p5_a8
1623 , p5_a9
1624 , p5_a10
1625 , p5_a11
1626 , p5_a12
1627 , p5_a13
1628 , p5_a14
1629 , p5_a15
1630 , p5_a16
1631 , p5_a17
1632 , p5_a18
1633 , p5_a19
1634 , p5_a20
1635 , p5_a21
1636 , p5_a22
1637 , p5_a23
1638 , p5_a24
1639 , p5_a25
1640 , p5_a26
1641 , p5_a27
1642 , p5_a28
1643 , p5_a29
1644 , p5_a30
1645 , p5_a31
1646 , p5_a32
1647 , p5_a33
1648 , p5_a34
1649 , p5_a35
1650 , p5_a36
1651 , p5_a37
1652 );
1653
1654
1655 -- here's the delegated call to the old PL/SQL routine
1656 okl_dra_pvt.update_row(p_api_version,
1657 p_init_msg_list,
1658 x_return_status,
1659 x_msg_count,
1660 x_msg_data,
1661 ddp_drav_tbl,
1662 ddx_drav_tbl);
1663
1664 -- copy data back from the local variables to OUT or IN-OUT args, if any
1665
1666
1667
1668
1669
1670
1671 okl_dra_pvt_w.rosetta_table_copy_out_p2(ddx_drav_tbl, p6_a0
1672 , p6_a1
1673 , p6_a2
1674 , p6_a3
1675 , p6_a4
1676 , p6_a5
1677 , p6_a6
1678 , p6_a7
1679 , p6_a8
1680 , p6_a9
1681 , p6_a10
1682 , p6_a11
1683 , p6_a12
1684 , p6_a13
1685 , p6_a14
1686 , p6_a15
1687 , p6_a16
1688 , p6_a17
1689 , p6_a18
1690 , p6_a19
1691 , p6_a20
1692 , p6_a21
1693 , p6_a22
1694 , p6_a23
1695 , p6_a24
1696 , p6_a25
1697 , p6_a26
1698 , p6_a27
1699 , p6_a28
1700 , p6_a29
1701 , p6_a30
1702 , p6_a31
1703 , p6_a32
1704 , p6_a33
1705 , p6_a34
1706 , p6_a35
1707 , p6_a36
1708 , p6_a37
1709 );
1710 end;
1711
1712 procedure delete_row(p_api_version NUMBER
1713 , p_init_msg_list VARCHAR2
1714 , x_return_status out nocopy VARCHAR2
1715 , x_msg_count out nocopy NUMBER
1716 , x_msg_data out nocopy VARCHAR2
1717 , p5_a0 NUMBER := 0-1962.0724
1718 , p5_a1 NUMBER := 0-1962.0724
1719 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1720 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1721 , p5_a4 NUMBER := 0-1962.0724
1722 , p5_a5 DATE := fnd_api.g_miss_date
1723 , p5_a6 DATE := fnd_api.g_miss_date
1724 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1725 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1726 , p5_a9 NUMBER := 0-1962.0724
1727 , p5_a10 NUMBER := 0-1962.0724
1728 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1729 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1730 , p5_a13 NUMBER := 0-1962.0724
1731 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1732 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1733 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1734 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1735 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1736 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1737 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1738 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1739 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1740 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1741 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1742 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1743 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1744 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1745 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1746 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1747 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1748 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1749 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
1750 , p5_a33 NUMBER := 0-1962.0724
1751 , p5_a34 DATE := fnd_api.g_miss_date
1752 , p5_a35 NUMBER := 0-1962.0724
1753 , p5_a36 DATE := fnd_api.g_miss_date
1754 , p5_a37 NUMBER := 0-1962.0724
1755 )
1756
1757 as
1758 ddp_drav_rec okl_dra_pvt.drav_rec_type;
1759 ddindx binary_integer; indx binary_integer;
1760 begin
1761
1762 -- copy data to the local IN or IN-OUT args, if any
1763
1764
1765
1766
1767
1768 ddp_drav_rec.disb_rule_id := rosetta_g_miss_num_map(p5_a0);
1769 ddp_drav_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1770 ddp_drav_rec.sfwt_flag := p5_a2;
1771 ddp_drav_rec.rule_name := p5_a3;
1772 ddp_drav_rec.org_id := rosetta_g_miss_num_map(p5_a4);
1773 ddp_drav_rec.start_date := rosetta_g_miss_date_in_map(p5_a5);
1774 ddp_drav_rec.end_date := rosetta_g_miss_date_in_map(p5_a6);
1775 ddp_drav_rec.fee_option := p5_a7;
1776 ddp_drav_rec.fee_basis := p5_a8;
1777 ddp_drav_rec.fee_amount := rosetta_g_miss_num_map(p5_a9);
1778 ddp_drav_rec.fee_percent := rosetta_g_miss_num_map(p5_a10);
1779 ddp_drav_rec.consolidate_by_due_date := p5_a11;
1780 ddp_drav_rec.frequency := p5_a12;
1781 ddp_drav_rec.day_of_month := rosetta_g_miss_num_map(p5_a13);
1782 ddp_drav_rec.scheduled_month := p5_a14;
1783 ddp_drav_rec.consolidate_strm_type := p5_a15;
1784 ddp_drav_rec.description := p5_a16;
1785 ddp_drav_rec.attribute_category := p5_a17;
1786 ddp_drav_rec.attribute1 := p5_a18;
1787 ddp_drav_rec.attribute2 := p5_a19;
1788 ddp_drav_rec.attribute3 := p5_a20;
1789 ddp_drav_rec.attribute4 := p5_a21;
1790 ddp_drav_rec.attribute5 := p5_a22;
1791 ddp_drav_rec.attribute6 := p5_a23;
1792 ddp_drav_rec.attribute7 := p5_a24;
1793 ddp_drav_rec.attribute8 := p5_a25;
1794 ddp_drav_rec.attribute9 := p5_a26;
1795 ddp_drav_rec.attribute10 := p5_a27;
1796 ddp_drav_rec.attribute11 := p5_a28;
1797 ddp_drav_rec.attribute12 := p5_a29;
1798 ddp_drav_rec.attribute13 := p5_a30;
1799 ddp_drav_rec.attribute14 := p5_a31;
1800 ddp_drav_rec.attribute15 := p5_a32;
1801 ddp_drav_rec.created_by := rosetta_g_miss_num_map(p5_a33);
1802 ddp_drav_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
1803 ddp_drav_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
1804 ddp_drav_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
1805 ddp_drav_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
1806
1807 -- here's the delegated call to the old PL/SQL routine
1808 okl_dra_pvt.delete_row(p_api_version,
1809 p_init_msg_list,
1810 x_return_status,
1811 x_msg_count,
1812 x_msg_data,
1813 ddp_drav_rec);
1814
1815 -- copy data back from the local variables to OUT or IN-OUT args, if any
1816
1817
1818
1819
1820
1821 end;
1822
1823 procedure delete_row(p_api_version NUMBER
1824 , p_init_msg_list VARCHAR2
1825 , x_return_status out nocopy VARCHAR2
1826 , x_msg_count out nocopy NUMBER
1827 , x_msg_data out nocopy VARCHAR2
1828 , p5_a0 JTF_NUMBER_TABLE
1829 , p5_a1 JTF_NUMBER_TABLE
1830 , p5_a2 JTF_VARCHAR2_TABLE_100
1831 , p5_a3 JTF_VARCHAR2_TABLE_200
1832 , p5_a4 JTF_NUMBER_TABLE
1833 , p5_a5 JTF_DATE_TABLE
1834 , p5_a6 JTF_DATE_TABLE
1835 , p5_a7 JTF_VARCHAR2_TABLE_100
1836 , p5_a8 JTF_VARCHAR2_TABLE_100
1837 , p5_a9 JTF_NUMBER_TABLE
1838 , p5_a10 JTF_NUMBER_TABLE
1839 , p5_a11 JTF_VARCHAR2_TABLE_100
1840 , p5_a12 JTF_VARCHAR2_TABLE_100
1841 , p5_a13 JTF_NUMBER_TABLE
1842 , p5_a14 JTF_VARCHAR2_TABLE_100
1843 , p5_a15 JTF_VARCHAR2_TABLE_100
1844 , p5_a16 JTF_VARCHAR2_TABLE_2000
1845 , p5_a17 JTF_VARCHAR2_TABLE_100
1846 , p5_a18 JTF_VARCHAR2_TABLE_500
1847 , p5_a19 JTF_VARCHAR2_TABLE_500
1848 , p5_a20 JTF_VARCHAR2_TABLE_500
1849 , p5_a21 JTF_VARCHAR2_TABLE_500
1850 , p5_a22 JTF_VARCHAR2_TABLE_500
1851 , p5_a23 JTF_VARCHAR2_TABLE_500
1852 , p5_a24 JTF_VARCHAR2_TABLE_500
1853 , p5_a25 JTF_VARCHAR2_TABLE_500
1854 , p5_a26 JTF_VARCHAR2_TABLE_500
1855 , p5_a27 JTF_VARCHAR2_TABLE_500
1856 , p5_a28 JTF_VARCHAR2_TABLE_500
1857 , p5_a29 JTF_VARCHAR2_TABLE_500
1858 , p5_a30 JTF_VARCHAR2_TABLE_500
1859 , p5_a31 JTF_VARCHAR2_TABLE_500
1860 , p5_a32 JTF_VARCHAR2_TABLE_500
1861 , p5_a33 JTF_NUMBER_TABLE
1862 , p5_a34 JTF_DATE_TABLE
1863 , p5_a35 JTF_NUMBER_TABLE
1864 , p5_a36 JTF_DATE_TABLE
1865 , p5_a37 JTF_NUMBER_TABLE
1866 )
1867
1868 as
1869 ddp_drav_tbl okl_dra_pvt.drav_tbl_type;
1870 ddindx binary_integer; indx binary_integer;
1871 begin
1872
1873 -- copy data to the local IN or IN-OUT args, if any
1874
1875
1876
1877
1878
1879 okl_dra_pvt_w.rosetta_table_copy_in_p2(ddp_drav_tbl, p5_a0
1880 , p5_a1
1881 , p5_a2
1882 , p5_a3
1883 , p5_a4
1884 , p5_a5
1885 , p5_a6
1886 , p5_a7
1887 , p5_a8
1888 , p5_a9
1889 , p5_a10
1890 , p5_a11
1891 , p5_a12
1892 , p5_a13
1893 , p5_a14
1894 , p5_a15
1895 , p5_a16
1896 , p5_a17
1897 , p5_a18
1898 , p5_a19
1899 , p5_a20
1900 , p5_a21
1901 , p5_a22
1902 , p5_a23
1903 , p5_a24
1904 , p5_a25
1905 , p5_a26
1906 , p5_a27
1907 , p5_a28
1908 , p5_a29
1909 , p5_a30
1910 , p5_a31
1911 , p5_a32
1912 , p5_a33
1913 , p5_a34
1914 , p5_a35
1915 , p5_a36
1916 , p5_a37
1917 );
1918
1919 -- here's the delegated call to the old PL/SQL routine
1920 okl_dra_pvt.delete_row(p_api_version,
1921 p_init_msg_list,
1922 x_return_status,
1923 x_msg_count,
1924 x_msg_data,
1925 ddp_drav_tbl);
1926
1927 -- copy data back from the local variables to OUT or IN-OUT args, if any
1928
1929
1930
1931
1932
1933 end;
1934
1935 procedure validate_row(p_api_version NUMBER
1936 , p_init_msg_list VARCHAR2
1937 , x_return_status out nocopy VARCHAR2
1938 , x_msg_count out nocopy NUMBER
1939 , x_msg_data out nocopy VARCHAR2
1940 , p5_a0 NUMBER := 0-1962.0724
1941 , p5_a1 NUMBER := 0-1962.0724
1942 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1943 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1944 , p5_a4 NUMBER := 0-1962.0724
1945 , p5_a5 DATE := fnd_api.g_miss_date
1946 , p5_a6 DATE := fnd_api.g_miss_date
1947 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1948 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1949 , p5_a9 NUMBER := 0-1962.0724
1950 , p5_a10 NUMBER := 0-1962.0724
1951 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1952 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1953 , p5_a13 NUMBER := 0-1962.0724
1954 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1955 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1956 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1957 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1958 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1959 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1960 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1961 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1962 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1963 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1964 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1965 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1966 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1967 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1968 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1969 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1970 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1971 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1972 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
1973 , p5_a33 NUMBER := 0-1962.0724
1974 , p5_a34 DATE := fnd_api.g_miss_date
1975 , p5_a35 NUMBER := 0-1962.0724
1976 , p5_a36 DATE := fnd_api.g_miss_date
1977 , p5_a37 NUMBER := 0-1962.0724
1978 )
1979
1980 as
1981 ddp_drav_rec okl_dra_pvt.drav_rec_type;
1982 ddindx binary_integer; indx binary_integer;
1983 begin
1984
1985 -- copy data to the local IN or IN-OUT args, if any
1986
1987
1988
1989
1990
1991 ddp_drav_rec.disb_rule_id := rosetta_g_miss_num_map(p5_a0);
1992 ddp_drav_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1993 ddp_drav_rec.sfwt_flag := p5_a2;
1994 ddp_drav_rec.rule_name := p5_a3;
1995 ddp_drav_rec.org_id := rosetta_g_miss_num_map(p5_a4);
1996 ddp_drav_rec.start_date := rosetta_g_miss_date_in_map(p5_a5);
1997 ddp_drav_rec.end_date := rosetta_g_miss_date_in_map(p5_a6);
1998 ddp_drav_rec.fee_option := p5_a7;
1999 ddp_drav_rec.fee_basis := p5_a8;
2000 ddp_drav_rec.fee_amount := rosetta_g_miss_num_map(p5_a9);
2001 ddp_drav_rec.fee_percent := rosetta_g_miss_num_map(p5_a10);
2002 ddp_drav_rec.consolidate_by_due_date := p5_a11;
2003 ddp_drav_rec.frequency := p5_a12;
2004 ddp_drav_rec.day_of_month := rosetta_g_miss_num_map(p5_a13);
2005 ddp_drav_rec.scheduled_month := p5_a14;
2006 ddp_drav_rec.consolidate_strm_type := p5_a15;
2007 ddp_drav_rec.description := p5_a16;
2008 ddp_drav_rec.attribute_category := p5_a17;
2009 ddp_drav_rec.attribute1 := p5_a18;
2010 ddp_drav_rec.attribute2 := p5_a19;
2011 ddp_drav_rec.attribute3 := p5_a20;
2012 ddp_drav_rec.attribute4 := p5_a21;
2013 ddp_drav_rec.attribute5 := p5_a22;
2014 ddp_drav_rec.attribute6 := p5_a23;
2015 ddp_drav_rec.attribute7 := p5_a24;
2016 ddp_drav_rec.attribute8 := p5_a25;
2017 ddp_drav_rec.attribute9 := p5_a26;
2018 ddp_drav_rec.attribute10 := p5_a27;
2019 ddp_drav_rec.attribute11 := p5_a28;
2020 ddp_drav_rec.attribute12 := p5_a29;
2021 ddp_drav_rec.attribute13 := p5_a30;
2022 ddp_drav_rec.attribute14 := p5_a31;
2023 ddp_drav_rec.attribute15 := p5_a32;
2024 ddp_drav_rec.created_by := rosetta_g_miss_num_map(p5_a33);
2025 ddp_drav_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
2026 ddp_drav_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
2027 ddp_drav_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
2028 ddp_drav_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
2029
2030 -- here's the delegated call to the old PL/SQL routine
2031 okl_dra_pvt.validate_row(p_api_version,
2032 p_init_msg_list,
2033 x_return_status,
2034 x_msg_count,
2035 x_msg_data,
2036 ddp_drav_rec);
2037
2038 -- copy data back from the local variables to OUT or IN-OUT args, if any
2039
2040
2041
2042
2043
2044 end;
2045
2046 procedure validate_row(p_api_version NUMBER
2047 , p_init_msg_list VARCHAR2
2048 , x_return_status out nocopy VARCHAR2
2049 , x_msg_count out nocopy NUMBER
2050 , x_msg_data out nocopy VARCHAR2
2051 , p5_a0 JTF_NUMBER_TABLE
2052 , p5_a1 JTF_NUMBER_TABLE
2053 , p5_a2 JTF_VARCHAR2_TABLE_100
2054 , p5_a3 JTF_VARCHAR2_TABLE_200
2055 , p5_a4 JTF_NUMBER_TABLE
2056 , p5_a5 JTF_DATE_TABLE
2057 , p5_a6 JTF_DATE_TABLE
2058 , p5_a7 JTF_VARCHAR2_TABLE_100
2059 , p5_a8 JTF_VARCHAR2_TABLE_100
2060 , p5_a9 JTF_NUMBER_TABLE
2061 , p5_a10 JTF_NUMBER_TABLE
2062 , p5_a11 JTF_VARCHAR2_TABLE_100
2063 , p5_a12 JTF_VARCHAR2_TABLE_100
2064 , p5_a13 JTF_NUMBER_TABLE
2065 , p5_a14 JTF_VARCHAR2_TABLE_100
2066 , p5_a15 JTF_VARCHAR2_TABLE_100
2067 , p5_a16 JTF_VARCHAR2_TABLE_2000
2068 , p5_a17 JTF_VARCHAR2_TABLE_100
2069 , p5_a18 JTF_VARCHAR2_TABLE_500
2070 , p5_a19 JTF_VARCHAR2_TABLE_500
2071 , p5_a20 JTF_VARCHAR2_TABLE_500
2072 , p5_a21 JTF_VARCHAR2_TABLE_500
2073 , p5_a22 JTF_VARCHAR2_TABLE_500
2074 , p5_a23 JTF_VARCHAR2_TABLE_500
2075 , p5_a24 JTF_VARCHAR2_TABLE_500
2076 , p5_a25 JTF_VARCHAR2_TABLE_500
2077 , p5_a26 JTF_VARCHAR2_TABLE_500
2078 , p5_a27 JTF_VARCHAR2_TABLE_500
2079 , p5_a28 JTF_VARCHAR2_TABLE_500
2080 , p5_a29 JTF_VARCHAR2_TABLE_500
2081 , p5_a30 JTF_VARCHAR2_TABLE_500
2082 , p5_a31 JTF_VARCHAR2_TABLE_500
2083 , p5_a32 JTF_VARCHAR2_TABLE_500
2084 , p5_a33 JTF_NUMBER_TABLE
2085 , p5_a34 JTF_DATE_TABLE
2086 , p5_a35 JTF_NUMBER_TABLE
2087 , p5_a36 JTF_DATE_TABLE
2088 , p5_a37 JTF_NUMBER_TABLE
2089 )
2090
2091 as
2092 ddp_drav_tbl okl_dra_pvt.drav_tbl_type;
2093 ddindx binary_integer; indx binary_integer;
2094 begin
2095
2096 -- copy data to the local IN or IN-OUT args, if any
2097
2098
2099
2100
2101
2102 okl_dra_pvt_w.rosetta_table_copy_in_p2(ddp_drav_tbl, p5_a0
2103 , p5_a1
2104 , p5_a2
2105 , p5_a3
2106 , p5_a4
2107 , p5_a5
2108 , p5_a6
2109 , p5_a7
2110 , p5_a8
2111 , p5_a9
2112 , p5_a10
2113 , p5_a11
2114 , p5_a12
2115 , p5_a13
2116 , p5_a14
2117 , p5_a15
2118 , p5_a16
2119 , p5_a17
2120 , p5_a18
2121 , p5_a19
2122 , p5_a20
2123 , p5_a21
2124 , p5_a22
2125 , p5_a23
2126 , p5_a24
2127 , p5_a25
2128 , p5_a26
2129 , p5_a27
2130 , p5_a28
2131 , p5_a29
2132 , p5_a30
2133 , p5_a31
2134 , p5_a32
2135 , p5_a33
2136 , p5_a34
2137 , p5_a35
2138 , p5_a36
2139 , p5_a37
2140 );
2141
2142 -- here's the delegated call to the old PL/SQL routine
2143 okl_dra_pvt.validate_row(p_api_version,
2144 p_init_msg_list,
2145 x_return_status,
2146 x_msg_count,
2147 x_msg_data,
2148 ddp_drav_tbl);
2149
2150 -- copy data back from the local variables to OUT or IN-OUT args, if any
2151
2152
2153
2154
2155
2156 end;
2157
2158 end okl_dra_pvt_w;