[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUP_DISB_RULES_PVT_W
Source
1 package body okl_setup_disb_rules_pvt_w as
2 /* $Header: OKLESDRB.pls 120.0 2007/04/27 09:16:03 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 create_disbursement_rule(p_api_version NUMBER
26 , p_init_msg_list VARCHAR2
27 , x_return_status out nocopy VARCHAR2
28 , x_msg_count out nocopy NUMBER
29 , x_msg_data out nocopy VARCHAR2
30 , p6_a0 JTF_NUMBER_TABLE
31 , p6_a1 JTF_NUMBER_TABLE
32 , p6_a2 JTF_NUMBER_TABLE
33 , p6_a3 JTF_VARCHAR2_TABLE_100
34 , p6_a4 JTF_VARCHAR2_TABLE_100
35 , p6_a5 JTF_VARCHAR2_TABLE_500
36 , p6_a6 JTF_VARCHAR2_TABLE_500
37 , p6_a7 JTF_VARCHAR2_TABLE_500
38 , p6_a8 JTF_VARCHAR2_TABLE_500
39 , p6_a9 JTF_VARCHAR2_TABLE_500
40 , p6_a10 JTF_VARCHAR2_TABLE_500
41 , p6_a11 JTF_VARCHAR2_TABLE_500
42 , p6_a12 JTF_VARCHAR2_TABLE_500
43 , p6_a13 JTF_VARCHAR2_TABLE_500
44 , p6_a14 JTF_VARCHAR2_TABLE_500
45 , p6_a15 JTF_VARCHAR2_TABLE_500
46 , p6_a16 JTF_VARCHAR2_TABLE_500
47 , p6_a17 JTF_VARCHAR2_TABLE_500
48 , p6_a18 JTF_VARCHAR2_TABLE_500
49 , p6_a19 JTF_VARCHAR2_TABLE_500
50 , p6_a20 JTF_NUMBER_TABLE
51 , p6_a21 JTF_DATE_TABLE
52 , p6_a22 JTF_NUMBER_TABLE
53 , p6_a23 JTF_DATE_TABLE
54 , p6_a24 JTF_NUMBER_TABLE
55 , p7_a0 JTF_NUMBER_TABLE
56 , p7_a1 JTF_NUMBER_TABLE
57 , p7_a2 JTF_NUMBER_TABLE
58 , p7_a3 JTF_NUMBER_TABLE
59 , p7_a4 JTF_NUMBER_TABLE
60 , p7_a5 JTF_DATE_TABLE
61 , p7_a6 JTF_DATE_TABLE
62 , p7_a7 JTF_NUMBER_TABLE
63 , p7_a8 JTF_NUMBER_TABLE
64 , p7_a9 JTF_NUMBER_TABLE
65 , p7_a10 JTF_VARCHAR2_TABLE_100
66 , p7_a11 JTF_VARCHAR2_TABLE_500
67 , p7_a12 JTF_VARCHAR2_TABLE_500
68 , p7_a13 JTF_VARCHAR2_TABLE_500
69 , p7_a14 JTF_VARCHAR2_TABLE_500
70 , p7_a15 JTF_VARCHAR2_TABLE_500
71 , p7_a16 JTF_VARCHAR2_TABLE_500
72 , p7_a17 JTF_VARCHAR2_TABLE_500
73 , p7_a18 JTF_VARCHAR2_TABLE_500
74 , p7_a19 JTF_VARCHAR2_TABLE_500
75 , p7_a20 JTF_VARCHAR2_TABLE_500
76 , p7_a21 JTF_VARCHAR2_TABLE_500
77 , p7_a22 JTF_VARCHAR2_TABLE_500
78 , p7_a23 JTF_VARCHAR2_TABLE_500
79 , p7_a24 JTF_VARCHAR2_TABLE_500
80 , p7_a25 JTF_VARCHAR2_TABLE_500
81 , p7_a26 JTF_NUMBER_TABLE
82 , p7_a27 JTF_DATE_TABLE
83 , p7_a28 JTF_NUMBER_TABLE
84 , p7_a29 JTF_DATE_TABLE
85 , p7_a30 JTF_NUMBER_TABLE
86 , p8_a0 out nocopy NUMBER
87 , p8_a1 out nocopy NUMBER
88 , p8_a2 out nocopy VARCHAR2
89 , p8_a3 out nocopy VARCHAR2
90 , p8_a4 out nocopy NUMBER
91 , p8_a5 out nocopy DATE
92 , p8_a6 out nocopy DATE
93 , p8_a7 out nocopy VARCHAR2
94 , p8_a8 out nocopy VARCHAR2
95 , p8_a9 out nocopy NUMBER
96 , p8_a10 out nocopy NUMBER
97 , p8_a11 out nocopy VARCHAR2
98 , p8_a12 out nocopy VARCHAR2
99 , p8_a13 out nocopy NUMBER
100 , p8_a14 out nocopy VARCHAR2
101 , p8_a15 out nocopy VARCHAR2
102 , p8_a16 out nocopy VARCHAR2
103 , p8_a17 out nocopy VARCHAR2
104 , p8_a18 out nocopy VARCHAR2
105 , p8_a19 out nocopy VARCHAR2
106 , p8_a20 out nocopy VARCHAR2
107 , p8_a21 out nocopy VARCHAR2
108 , p8_a22 out nocopy VARCHAR2
109 , p8_a23 out nocopy VARCHAR2
110 , p8_a24 out nocopy VARCHAR2
111 , p8_a25 out nocopy VARCHAR2
112 , p8_a26 out nocopy VARCHAR2
113 , p8_a27 out nocopy VARCHAR2
114 , p8_a28 out nocopy VARCHAR2
115 , p8_a29 out nocopy VARCHAR2
116 , p8_a30 out nocopy VARCHAR2
117 , p8_a31 out nocopy VARCHAR2
118 , p8_a32 out nocopy VARCHAR2
119 , p8_a33 out nocopy NUMBER
120 , p8_a34 out nocopy DATE
121 , p8_a35 out nocopy NUMBER
122 , p8_a36 out nocopy DATE
123 , p8_a37 out nocopy NUMBER
124 , p5_a0 NUMBER := 0-1962.0724
125 , p5_a1 NUMBER := 0-1962.0724
126 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
127 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
128 , p5_a4 NUMBER := 0-1962.0724
129 , p5_a5 DATE := fnd_api.g_miss_date
130 , p5_a6 DATE := fnd_api.g_miss_date
131 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
132 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
133 , p5_a9 NUMBER := 0-1962.0724
134 , p5_a10 NUMBER := 0-1962.0724
135 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
136 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
137 , p5_a13 NUMBER := 0-1962.0724
138 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
139 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
140 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
141 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
142 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
143 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
144 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
145 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
146 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
147 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
148 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
149 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
150 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
151 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
152 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
153 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
154 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
155 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
156 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
157 , p5_a33 NUMBER := 0-1962.0724
158 , p5_a34 DATE := fnd_api.g_miss_date
159 , p5_a35 NUMBER := 0-1962.0724
160 , p5_a36 DATE := fnd_api.g_miss_date
161 , p5_a37 NUMBER := 0-1962.0724
162 )
163
164 as
165 ddp_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
166 ddp_drs_tbl okl_setup_disb_rules_pvt.drs_tbl_type;
167 ddp_drv_tbl okl_setup_disb_rules_pvt.drv_tbl_type;
168 ddx_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
169 ddindx binary_integer; indx binary_integer;
170 begin
171
172 -- copy data to the local IN or IN-OUT args, if any
173
174
175
176
177
178 ddp_drav_rec.disb_rule_id := rosetta_g_miss_num_map(p5_a0);
179 ddp_drav_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
180 ddp_drav_rec.sfwt_flag := p5_a2;
181 ddp_drav_rec.rule_name := p5_a3;
182 ddp_drav_rec.org_id := rosetta_g_miss_num_map(p5_a4);
183 ddp_drav_rec.start_date := rosetta_g_miss_date_in_map(p5_a5);
184 ddp_drav_rec.end_date := rosetta_g_miss_date_in_map(p5_a6);
185 ddp_drav_rec.fee_option := p5_a7;
186 ddp_drav_rec.fee_basis := p5_a8;
187 ddp_drav_rec.fee_amount := rosetta_g_miss_num_map(p5_a9);
188 ddp_drav_rec.fee_percent := rosetta_g_miss_num_map(p5_a10);
189 ddp_drav_rec.consolidate_by_due_date := p5_a11;
190 ddp_drav_rec.frequency := p5_a12;
191 ddp_drav_rec.day_of_month := rosetta_g_miss_num_map(p5_a13);
192 ddp_drav_rec.scheduled_month := p5_a14;
193 ddp_drav_rec.consolidate_strm_type := p5_a15;
194 ddp_drav_rec.description := p5_a16;
195 ddp_drav_rec.attribute_category := p5_a17;
196 ddp_drav_rec.attribute1 := p5_a18;
197 ddp_drav_rec.attribute2 := p5_a19;
198 ddp_drav_rec.attribute3 := p5_a20;
199 ddp_drav_rec.attribute4 := p5_a21;
200 ddp_drav_rec.attribute5 := p5_a22;
201 ddp_drav_rec.attribute6 := p5_a23;
202 ddp_drav_rec.attribute7 := p5_a24;
203 ddp_drav_rec.attribute8 := p5_a25;
204 ddp_drav_rec.attribute9 := p5_a26;
205 ddp_drav_rec.attribute10 := p5_a27;
206 ddp_drav_rec.attribute11 := p5_a28;
207 ddp_drav_rec.attribute12 := p5_a29;
208 ddp_drav_rec.attribute13 := p5_a30;
209 ddp_drav_rec.attribute14 := p5_a31;
210 ddp_drav_rec.attribute15 := p5_a32;
211 ddp_drav_rec.created_by := rosetta_g_miss_num_map(p5_a33);
212 ddp_drav_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
213 ddp_drav_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
214 ddp_drav_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
215 ddp_drav_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
216
217 okl_drs_pvt_w.rosetta_table_copy_in_p2(ddp_drs_tbl, p6_a0
218 , p6_a1
219 , p6_a2
220 , p6_a3
221 , p6_a4
222 , p6_a5
223 , p6_a6
224 , p6_a7
225 , p6_a8
226 , p6_a9
227 , p6_a10
228 , p6_a11
229 , p6_a12
230 , p6_a13
231 , p6_a14
232 , p6_a15
233 , p6_a16
234 , p6_a17
235 , p6_a18
236 , p6_a19
237 , p6_a20
238 , p6_a21
239 , p6_a22
240 , p6_a23
241 , p6_a24
242 );
243
244 okl_drv_pvt_w.rosetta_table_copy_in_p2(ddp_drv_tbl, p7_a0
245 , p7_a1
246 , p7_a2
247 , p7_a3
248 , p7_a4
249 , p7_a5
250 , p7_a6
251 , p7_a7
252 , p7_a8
253 , p7_a9
254 , p7_a10
255 , p7_a11
256 , p7_a12
257 , p7_a13
258 , p7_a14
259 , p7_a15
260 , p7_a16
261 , p7_a17
262 , p7_a18
263 , p7_a19
264 , p7_a20
265 , p7_a21
266 , p7_a22
267 , p7_a23
268 , p7_a24
269 , p7_a25
270 , p7_a26
271 , p7_a27
272 , p7_a28
273 , p7_a29
274 , p7_a30
275 );
276
277
278 -- here's the delegated call to the old PL/SQL routine
279 okl_setup_disb_rules_pvt.create_disbursement_rule(p_api_version,
280 p_init_msg_list,
281 x_return_status,
282 x_msg_count,
283 x_msg_data,
284 ddp_drav_rec,
285 ddp_drs_tbl,
286 ddp_drv_tbl,
287 ddx_drav_rec);
288
289 -- copy data back from the local variables to OUT or IN-OUT args, if any
290
291
292
293
294
295
296
297
298 p8_a0 := rosetta_g_miss_num_map(ddx_drav_rec.disb_rule_id);
299 p8_a1 := rosetta_g_miss_num_map(ddx_drav_rec.object_version_number);
300 p8_a2 := ddx_drav_rec.sfwt_flag;
301 p8_a3 := ddx_drav_rec.rule_name;
302 p8_a4 := rosetta_g_miss_num_map(ddx_drav_rec.org_id);
303 p8_a5 := ddx_drav_rec.start_date;
304 p8_a6 := ddx_drav_rec.end_date;
305 p8_a7 := ddx_drav_rec.fee_option;
306 p8_a8 := ddx_drav_rec.fee_basis;
307 p8_a9 := rosetta_g_miss_num_map(ddx_drav_rec.fee_amount);
308 p8_a10 := rosetta_g_miss_num_map(ddx_drav_rec.fee_percent);
309 p8_a11 := ddx_drav_rec.consolidate_by_due_date;
310 p8_a12 := ddx_drav_rec.frequency;
311 p8_a13 := rosetta_g_miss_num_map(ddx_drav_rec.day_of_month);
312 p8_a14 := ddx_drav_rec.scheduled_month;
313 p8_a15 := ddx_drav_rec.consolidate_strm_type;
314 p8_a16 := ddx_drav_rec.description;
315 p8_a17 := ddx_drav_rec.attribute_category;
316 p8_a18 := ddx_drav_rec.attribute1;
317 p8_a19 := ddx_drav_rec.attribute2;
318 p8_a20 := ddx_drav_rec.attribute3;
319 p8_a21 := ddx_drav_rec.attribute4;
320 p8_a22 := ddx_drav_rec.attribute5;
321 p8_a23 := ddx_drav_rec.attribute6;
322 p8_a24 := ddx_drav_rec.attribute7;
323 p8_a25 := ddx_drav_rec.attribute8;
324 p8_a26 := ddx_drav_rec.attribute9;
325 p8_a27 := ddx_drav_rec.attribute10;
326 p8_a28 := ddx_drav_rec.attribute11;
327 p8_a29 := ddx_drav_rec.attribute12;
328 p8_a30 := ddx_drav_rec.attribute13;
329 p8_a31 := ddx_drav_rec.attribute14;
330 p8_a32 := ddx_drav_rec.attribute15;
331 p8_a33 := rosetta_g_miss_num_map(ddx_drav_rec.created_by);
332 p8_a34 := ddx_drav_rec.creation_date;
333 p8_a35 := rosetta_g_miss_num_map(ddx_drav_rec.last_updated_by);
334 p8_a36 := ddx_drav_rec.last_update_date;
335 p8_a37 := rosetta_g_miss_num_map(ddx_drav_rec.last_update_login);
336 end;
337
338 procedure update_disbursement_rule(p_api_version NUMBER
339 , p_init_msg_list VARCHAR2
340 , x_return_status out nocopy VARCHAR2
341 , x_msg_count out nocopy NUMBER
342 , x_msg_data out nocopy VARCHAR2
343 , p6_a0 JTF_NUMBER_TABLE
344 , p6_a1 JTF_NUMBER_TABLE
345 , p6_a2 JTF_NUMBER_TABLE
346 , p6_a3 JTF_VARCHAR2_TABLE_100
347 , p6_a4 JTF_VARCHAR2_TABLE_100
348 , p6_a5 JTF_VARCHAR2_TABLE_500
349 , p6_a6 JTF_VARCHAR2_TABLE_500
350 , p6_a7 JTF_VARCHAR2_TABLE_500
351 , p6_a8 JTF_VARCHAR2_TABLE_500
352 , p6_a9 JTF_VARCHAR2_TABLE_500
353 , p6_a10 JTF_VARCHAR2_TABLE_500
354 , p6_a11 JTF_VARCHAR2_TABLE_500
355 , p6_a12 JTF_VARCHAR2_TABLE_500
356 , p6_a13 JTF_VARCHAR2_TABLE_500
357 , p6_a14 JTF_VARCHAR2_TABLE_500
358 , p6_a15 JTF_VARCHAR2_TABLE_500
359 , p6_a16 JTF_VARCHAR2_TABLE_500
360 , p6_a17 JTF_VARCHAR2_TABLE_500
361 , p6_a18 JTF_VARCHAR2_TABLE_500
362 , p6_a19 JTF_VARCHAR2_TABLE_500
363 , p6_a20 JTF_NUMBER_TABLE
364 , p6_a21 JTF_DATE_TABLE
365 , p6_a22 JTF_NUMBER_TABLE
366 , p6_a23 JTF_DATE_TABLE
367 , p6_a24 JTF_NUMBER_TABLE
368 , p7_a0 JTF_NUMBER_TABLE
369 , p7_a1 JTF_NUMBER_TABLE
370 , p7_a2 JTF_NUMBER_TABLE
371 , p7_a3 JTF_NUMBER_TABLE
372 , p7_a4 JTF_NUMBER_TABLE
373 , p7_a5 JTF_DATE_TABLE
374 , p7_a6 JTF_DATE_TABLE
375 , p7_a7 JTF_NUMBER_TABLE
376 , p7_a8 JTF_NUMBER_TABLE
377 , p7_a9 JTF_NUMBER_TABLE
378 , p7_a10 JTF_VARCHAR2_TABLE_100
379 , p7_a11 JTF_VARCHAR2_TABLE_500
380 , p7_a12 JTF_VARCHAR2_TABLE_500
381 , p7_a13 JTF_VARCHAR2_TABLE_500
382 , p7_a14 JTF_VARCHAR2_TABLE_500
383 , p7_a15 JTF_VARCHAR2_TABLE_500
384 , p7_a16 JTF_VARCHAR2_TABLE_500
385 , p7_a17 JTF_VARCHAR2_TABLE_500
386 , p7_a18 JTF_VARCHAR2_TABLE_500
387 , p7_a19 JTF_VARCHAR2_TABLE_500
388 , p7_a20 JTF_VARCHAR2_TABLE_500
389 , p7_a21 JTF_VARCHAR2_TABLE_500
390 , p7_a22 JTF_VARCHAR2_TABLE_500
391 , p7_a23 JTF_VARCHAR2_TABLE_500
392 , p7_a24 JTF_VARCHAR2_TABLE_500
393 , p7_a25 JTF_VARCHAR2_TABLE_500
394 , p7_a26 JTF_NUMBER_TABLE
395 , p7_a27 JTF_DATE_TABLE
396 , p7_a28 JTF_NUMBER_TABLE
397 , p7_a29 JTF_DATE_TABLE
398 , p7_a30 JTF_NUMBER_TABLE
399 , p8_a0 out nocopy NUMBER
400 , p8_a1 out nocopy NUMBER
401 , p8_a2 out nocopy VARCHAR2
402 , p8_a3 out nocopy VARCHAR2
403 , p8_a4 out nocopy NUMBER
404 , p8_a5 out nocopy DATE
405 , p8_a6 out nocopy DATE
406 , p8_a7 out nocopy VARCHAR2
407 , p8_a8 out nocopy VARCHAR2
408 , p8_a9 out nocopy NUMBER
409 , p8_a10 out nocopy NUMBER
410 , p8_a11 out nocopy VARCHAR2
411 , p8_a12 out nocopy VARCHAR2
412 , p8_a13 out nocopy NUMBER
413 , p8_a14 out nocopy VARCHAR2
414 , p8_a15 out nocopy VARCHAR2
415 , p8_a16 out nocopy VARCHAR2
416 , p8_a17 out nocopy VARCHAR2
417 , p8_a18 out nocopy VARCHAR2
418 , p8_a19 out nocopy VARCHAR2
419 , p8_a20 out nocopy VARCHAR2
420 , p8_a21 out nocopy VARCHAR2
421 , p8_a22 out nocopy VARCHAR2
422 , p8_a23 out nocopy VARCHAR2
423 , p8_a24 out nocopy VARCHAR2
424 , p8_a25 out nocopy VARCHAR2
425 , p8_a26 out nocopy VARCHAR2
426 , p8_a27 out nocopy VARCHAR2
427 , p8_a28 out nocopy VARCHAR2
428 , p8_a29 out nocopy VARCHAR2
429 , p8_a30 out nocopy VARCHAR2
430 , p8_a31 out nocopy VARCHAR2
431 , p8_a32 out nocopy VARCHAR2
432 , p8_a33 out nocopy NUMBER
433 , p8_a34 out nocopy DATE
434 , p8_a35 out nocopy NUMBER
435 , p8_a36 out nocopy DATE
436 , p8_a37 out nocopy NUMBER
437 , p5_a0 NUMBER := 0-1962.0724
438 , p5_a1 NUMBER := 0-1962.0724
439 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
440 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
441 , p5_a4 NUMBER := 0-1962.0724
442 , p5_a5 DATE := fnd_api.g_miss_date
443 , p5_a6 DATE := fnd_api.g_miss_date
444 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
445 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
446 , p5_a9 NUMBER := 0-1962.0724
447 , p5_a10 NUMBER := 0-1962.0724
448 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
449 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
450 , p5_a13 NUMBER := 0-1962.0724
451 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
452 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
453 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
454 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
455 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
456 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
457 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
458 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
459 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
460 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
461 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
462 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
463 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
464 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
465 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
466 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
467 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
468 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
469 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
470 , p5_a33 NUMBER := 0-1962.0724
471 , p5_a34 DATE := fnd_api.g_miss_date
472 , p5_a35 NUMBER := 0-1962.0724
473 , p5_a36 DATE := fnd_api.g_miss_date
474 , p5_a37 NUMBER := 0-1962.0724
475 )
476
477 as
478 ddp_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
479 ddp_drs_tbl okl_setup_disb_rules_pvt.drs_tbl_type;
480 ddp_drv_tbl okl_setup_disb_rules_pvt.drv_tbl_type;
481 ddx_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
482 ddindx binary_integer; indx binary_integer;
483 begin
484
485 -- copy data to the local IN or IN-OUT args, if any
486
487
488
489
490
491 ddp_drav_rec.disb_rule_id := rosetta_g_miss_num_map(p5_a0);
492 ddp_drav_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
493 ddp_drav_rec.sfwt_flag := p5_a2;
494 ddp_drav_rec.rule_name := p5_a3;
495 ddp_drav_rec.org_id := rosetta_g_miss_num_map(p5_a4);
496 ddp_drav_rec.start_date := rosetta_g_miss_date_in_map(p5_a5);
497 ddp_drav_rec.end_date := rosetta_g_miss_date_in_map(p5_a6);
498 ddp_drav_rec.fee_option := p5_a7;
499 ddp_drav_rec.fee_basis := p5_a8;
500 ddp_drav_rec.fee_amount := rosetta_g_miss_num_map(p5_a9);
501 ddp_drav_rec.fee_percent := rosetta_g_miss_num_map(p5_a10);
502 ddp_drav_rec.consolidate_by_due_date := p5_a11;
503 ddp_drav_rec.frequency := p5_a12;
504 ddp_drav_rec.day_of_month := rosetta_g_miss_num_map(p5_a13);
505 ddp_drav_rec.scheduled_month := p5_a14;
506 ddp_drav_rec.consolidate_strm_type := p5_a15;
507 ddp_drav_rec.description := p5_a16;
508 ddp_drav_rec.attribute_category := p5_a17;
509 ddp_drav_rec.attribute1 := p5_a18;
510 ddp_drav_rec.attribute2 := p5_a19;
511 ddp_drav_rec.attribute3 := p5_a20;
512 ddp_drav_rec.attribute4 := p5_a21;
513 ddp_drav_rec.attribute5 := p5_a22;
514 ddp_drav_rec.attribute6 := p5_a23;
515 ddp_drav_rec.attribute7 := p5_a24;
516 ddp_drav_rec.attribute8 := p5_a25;
517 ddp_drav_rec.attribute9 := p5_a26;
518 ddp_drav_rec.attribute10 := p5_a27;
519 ddp_drav_rec.attribute11 := p5_a28;
520 ddp_drav_rec.attribute12 := p5_a29;
521 ddp_drav_rec.attribute13 := p5_a30;
522 ddp_drav_rec.attribute14 := p5_a31;
523 ddp_drav_rec.attribute15 := p5_a32;
524 ddp_drav_rec.created_by := rosetta_g_miss_num_map(p5_a33);
525 ddp_drav_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
526 ddp_drav_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
527 ddp_drav_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
528 ddp_drav_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
529
530 okl_drs_pvt_w.rosetta_table_copy_in_p2(ddp_drs_tbl, p6_a0
531 , p6_a1
532 , p6_a2
533 , p6_a3
534 , p6_a4
535 , p6_a5
536 , p6_a6
537 , p6_a7
538 , p6_a8
539 , p6_a9
540 , p6_a10
541 , p6_a11
542 , p6_a12
543 , p6_a13
544 , p6_a14
545 , p6_a15
546 , p6_a16
547 , p6_a17
548 , p6_a18
549 , p6_a19
550 , p6_a20
551 , p6_a21
552 , p6_a22
553 , p6_a23
554 , p6_a24
555 );
556
557 okl_drv_pvt_w.rosetta_table_copy_in_p2(ddp_drv_tbl, p7_a0
558 , p7_a1
559 , p7_a2
560 , p7_a3
561 , p7_a4
562 , p7_a5
563 , p7_a6
564 , p7_a7
565 , p7_a8
566 , p7_a9
567 , p7_a10
568 , p7_a11
569 , p7_a12
570 , p7_a13
571 , p7_a14
572 , p7_a15
573 , p7_a16
574 , p7_a17
575 , p7_a18
576 , p7_a19
577 , p7_a20
578 , p7_a21
579 , p7_a22
580 , p7_a23
581 , p7_a24
582 , p7_a25
583 , p7_a26
584 , p7_a27
585 , p7_a28
586 , p7_a29
587 , p7_a30
588 );
589
590
591 -- here's the delegated call to the old PL/SQL routine
592 okl_setup_disb_rules_pvt.update_disbursement_rule(p_api_version,
593 p_init_msg_list,
594 x_return_status,
595 x_msg_count,
596 x_msg_data,
597 ddp_drav_rec,
598 ddp_drs_tbl,
599 ddp_drv_tbl,
600 ddx_drav_rec);
601
602 -- copy data back from the local variables to OUT or IN-OUT args, if any
603
604
605
606
607
608
609
610
611 p8_a0 := rosetta_g_miss_num_map(ddx_drav_rec.disb_rule_id);
612 p8_a1 := rosetta_g_miss_num_map(ddx_drav_rec.object_version_number);
613 p8_a2 := ddx_drav_rec.sfwt_flag;
614 p8_a3 := ddx_drav_rec.rule_name;
615 p8_a4 := rosetta_g_miss_num_map(ddx_drav_rec.org_id);
616 p8_a5 := ddx_drav_rec.start_date;
617 p8_a6 := ddx_drav_rec.end_date;
618 p8_a7 := ddx_drav_rec.fee_option;
619 p8_a8 := ddx_drav_rec.fee_basis;
620 p8_a9 := rosetta_g_miss_num_map(ddx_drav_rec.fee_amount);
621 p8_a10 := rosetta_g_miss_num_map(ddx_drav_rec.fee_percent);
622 p8_a11 := ddx_drav_rec.consolidate_by_due_date;
623 p8_a12 := ddx_drav_rec.frequency;
624 p8_a13 := rosetta_g_miss_num_map(ddx_drav_rec.day_of_month);
625 p8_a14 := ddx_drav_rec.scheduled_month;
626 p8_a15 := ddx_drav_rec.consolidate_strm_type;
627 p8_a16 := ddx_drav_rec.description;
628 p8_a17 := ddx_drav_rec.attribute_category;
629 p8_a18 := ddx_drav_rec.attribute1;
630 p8_a19 := ddx_drav_rec.attribute2;
631 p8_a20 := ddx_drav_rec.attribute3;
632 p8_a21 := ddx_drav_rec.attribute4;
633 p8_a22 := ddx_drav_rec.attribute5;
634 p8_a23 := ddx_drav_rec.attribute6;
635 p8_a24 := ddx_drav_rec.attribute7;
636 p8_a25 := ddx_drav_rec.attribute8;
637 p8_a26 := ddx_drav_rec.attribute9;
638 p8_a27 := ddx_drav_rec.attribute10;
639 p8_a28 := ddx_drav_rec.attribute11;
640 p8_a29 := ddx_drav_rec.attribute12;
641 p8_a30 := ddx_drav_rec.attribute13;
642 p8_a31 := ddx_drav_rec.attribute14;
643 p8_a32 := ddx_drav_rec.attribute15;
644 p8_a33 := rosetta_g_miss_num_map(ddx_drav_rec.created_by);
645 p8_a34 := ddx_drav_rec.creation_date;
646 p8_a35 := rosetta_g_miss_num_map(ddx_drav_rec.last_updated_by);
647 p8_a36 := ddx_drav_rec.last_update_date;
648 p8_a37 := rosetta_g_miss_num_map(ddx_drav_rec.last_update_login);
649 end;
650
651 procedure validate_disbursement_rule(p_api_version NUMBER
652 , p_init_msg_list VARCHAR2
653 , x_return_status out nocopy VARCHAR2
654 , x_msg_count out nocopy NUMBER
655 , x_msg_data out nocopy VARCHAR2
656 , p6_a0 JTF_NUMBER_TABLE
657 , p6_a1 JTF_NUMBER_TABLE
658 , p6_a2 JTF_NUMBER_TABLE
659 , p6_a3 JTF_VARCHAR2_TABLE_100
660 , p6_a4 JTF_VARCHAR2_TABLE_100
661 , p6_a5 JTF_VARCHAR2_TABLE_500
662 , p6_a6 JTF_VARCHAR2_TABLE_500
663 , p6_a7 JTF_VARCHAR2_TABLE_500
664 , p6_a8 JTF_VARCHAR2_TABLE_500
665 , p6_a9 JTF_VARCHAR2_TABLE_500
666 , p6_a10 JTF_VARCHAR2_TABLE_500
667 , p6_a11 JTF_VARCHAR2_TABLE_500
668 , p6_a12 JTF_VARCHAR2_TABLE_500
669 , p6_a13 JTF_VARCHAR2_TABLE_500
670 , p6_a14 JTF_VARCHAR2_TABLE_500
671 , p6_a15 JTF_VARCHAR2_TABLE_500
672 , p6_a16 JTF_VARCHAR2_TABLE_500
673 , p6_a17 JTF_VARCHAR2_TABLE_500
674 , p6_a18 JTF_VARCHAR2_TABLE_500
675 , p6_a19 JTF_VARCHAR2_TABLE_500
676 , p6_a20 JTF_NUMBER_TABLE
677 , p6_a21 JTF_DATE_TABLE
678 , p6_a22 JTF_NUMBER_TABLE
679 , p6_a23 JTF_DATE_TABLE
680 , p6_a24 JTF_NUMBER_TABLE
681 , p7_a0 JTF_NUMBER_TABLE
682 , p7_a1 JTF_NUMBER_TABLE
683 , p7_a2 JTF_NUMBER_TABLE
684 , p7_a3 JTF_NUMBER_TABLE
685 , p7_a4 JTF_NUMBER_TABLE
686 , p7_a5 JTF_DATE_TABLE
687 , p7_a6 JTF_DATE_TABLE
688 , p7_a7 JTF_NUMBER_TABLE
689 , p7_a8 JTF_NUMBER_TABLE
690 , p7_a9 JTF_NUMBER_TABLE
691 , p7_a10 JTF_VARCHAR2_TABLE_100
692 , p7_a11 JTF_VARCHAR2_TABLE_500
693 , p7_a12 JTF_VARCHAR2_TABLE_500
694 , p7_a13 JTF_VARCHAR2_TABLE_500
695 , p7_a14 JTF_VARCHAR2_TABLE_500
696 , p7_a15 JTF_VARCHAR2_TABLE_500
697 , p7_a16 JTF_VARCHAR2_TABLE_500
698 , p7_a17 JTF_VARCHAR2_TABLE_500
699 , p7_a18 JTF_VARCHAR2_TABLE_500
700 , p7_a19 JTF_VARCHAR2_TABLE_500
701 , p7_a20 JTF_VARCHAR2_TABLE_500
702 , p7_a21 JTF_VARCHAR2_TABLE_500
703 , p7_a22 JTF_VARCHAR2_TABLE_500
704 , p7_a23 JTF_VARCHAR2_TABLE_500
705 , p7_a24 JTF_VARCHAR2_TABLE_500
706 , p7_a25 JTF_VARCHAR2_TABLE_500
707 , p7_a26 JTF_NUMBER_TABLE
708 , p7_a27 JTF_DATE_TABLE
709 , p7_a28 JTF_NUMBER_TABLE
710 , p7_a29 JTF_DATE_TABLE
711 , p7_a30 JTF_NUMBER_TABLE
712 , p5_a0 NUMBER := 0-1962.0724
713 , p5_a1 NUMBER := 0-1962.0724
714 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
715 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
716 , p5_a4 NUMBER := 0-1962.0724
717 , p5_a5 DATE := fnd_api.g_miss_date
718 , p5_a6 DATE := fnd_api.g_miss_date
719 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
720 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
721 , p5_a9 NUMBER := 0-1962.0724
722 , p5_a10 NUMBER := 0-1962.0724
723 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
724 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
725 , p5_a13 NUMBER := 0-1962.0724
726 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
727 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
728 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
729 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
730 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
731 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
732 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
733 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
734 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
735 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
736 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
737 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
738 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
739 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
740 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
741 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
742 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
743 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
744 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
745 , p5_a33 NUMBER := 0-1962.0724
746 , p5_a34 DATE := fnd_api.g_miss_date
747 , p5_a35 NUMBER := 0-1962.0724
748 , p5_a36 DATE := fnd_api.g_miss_date
749 , p5_a37 NUMBER := 0-1962.0724
750 )
751
752 as
753 ddp_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
754 ddp_drs_tbl okl_setup_disb_rules_pvt.drs_tbl_type;
755 ddp_drv_tbl okl_setup_disb_rules_pvt.drv_tbl_type;
756 ddindx binary_integer; indx binary_integer;
757 begin
758
759 -- copy data to the local IN or IN-OUT args, if any
760
761
762
763
764
765 ddp_drav_rec.disb_rule_id := rosetta_g_miss_num_map(p5_a0);
766 ddp_drav_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
767 ddp_drav_rec.sfwt_flag := p5_a2;
768 ddp_drav_rec.rule_name := p5_a3;
769 ddp_drav_rec.org_id := rosetta_g_miss_num_map(p5_a4);
770 ddp_drav_rec.start_date := rosetta_g_miss_date_in_map(p5_a5);
771 ddp_drav_rec.end_date := rosetta_g_miss_date_in_map(p5_a6);
772 ddp_drav_rec.fee_option := p5_a7;
773 ddp_drav_rec.fee_basis := p5_a8;
774 ddp_drav_rec.fee_amount := rosetta_g_miss_num_map(p5_a9);
775 ddp_drav_rec.fee_percent := rosetta_g_miss_num_map(p5_a10);
776 ddp_drav_rec.consolidate_by_due_date := p5_a11;
777 ddp_drav_rec.frequency := p5_a12;
778 ddp_drav_rec.day_of_month := rosetta_g_miss_num_map(p5_a13);
779 ddp_drav_rec.scheduled_month := p5_a14;
780 ddp_drav_rec.consolidate_strm_type := p5_a15;
781 ddp_drav_rec.description := p5_a16;
782 ddp_drav_rec.attribute_category := p5_a17;
783 ddp_drav_rec.attribute1 := p5_a18;
784 ddp_drav_rec.attribute2 := p5_a19;
785 ddp_drav_rec.attribute3 := p5_a20;
786 ddp_drav_rec.attribute4 := p5_a21;
787 ddp_drav_rec.attribute5 := p5_a22;
788 ddp_drav_rec.attribute6 := p5_a23;
789 ddp_drav_rec.attribute7 := p5_a24;
790 ddp_drav_rec.attribute8 := p5_a25;
791 ddp_drav_rec.attribute9 := p5_a26;
792 ddp_drav_rec.attribute10 := p5_a27;
793 ddp_drav_rec.attribute11 := p5_a28;
794 ddp_drav_rec.attribute12 := p5_a29;
795 ddp_drav_rec.attribute13 := p5_a30;
796 ddp_drav_rec.attribute14 := p5_a31;
797 ddp_drav_rec.attribute15 := p5_a32;
798 ddp_drav_rec.created_by := rosetta_g_miss_num_map(p5_a33);
799 ddp_drav_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
800 ddp_drav_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
801 ddp_drav_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
802 ddp_drav_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
803
804 okl_drs_pvt_w.rosetta_table_copy_in_p2(ddp_drs_tbl, p6_a0
805 , p6_a1
806 , p6_a2
807 , p6_a3
808 , p6_a4
809 , p6_a5
810 , p6_a6
811 , p6_a7
812 , p6_a8
813 , p6_a9
814 , p6_a10
815 , p6_a11
816 , p6_a12
817 , p6_a13
818 , p6_a14
819 , p6_a15
820 , p6_a16
821 , p6_a17
822 , p6_a18
823 , p6_a19
824 , p6_a20
825 , p6_a21
826 , p6_a22
827 , p6_a23
828 , p6_a24
829 );
830
831 okl_drv_pvt_w.rosetta_table_copy_in_p2(ddp_drv_tbl, p7_a0
832 , p7_a1
833 , p7_a2
834 , p7_a3
835 , p7_a4
836 , p7_a5
837 , p7_a6
838 , p7_a7
839 , p7_a8
840 , p7_a9
841 , p7_a10
842 , p7_a11
843 , p7_a12
844 , p7_a13
845 , p7_a14
846 , p7_a15
847 , p7_a16
848 , p7_a17
849 , p7_a18
850 , p7_a19
851 , p7_a20
852 , p7_a21
853 , p7_a22
854 , p7_a23
855 , p7_a24
856 , p7_a25
857 , p7_a26
858 , p7_a27
859 , p7_a28
860 , p7_a29
861 , p7_a30
862 );
863
864 -- here's the delegated call to the old PL/SQL routine
865 okl_setup_disb_rules_pvt.validate_disbursement_rule(p_api_version,
866 p_init_msg_list,
867 x_return_status,
868 x_msg_count,
869 x_msg_data,
870 ddp_drav_rec,
871 ddp_drs_tbl,
872 ddp_drv_tbl);
873
874 -- copy data back from the local variables to OUT or IN-OUT args, if any
875
876
877
878
879
880
881
882 end;
883
884 procedure create_v_disbursement_rule(p_api_version NUMBER
885 , p_init_msg_list VARCHAR2
886 , x_return_status out nocopy VARCHAR2
887 , x_msg_count out nocopy NUMBER
888 , x_msg_data out nocopy VARCHAR2
889 , p5_a0 JTF_NUMBER_TABLE
890 , p5_a1 JTF_NUMBER_TABLE
891 , p5_a2 JTF_NUMBER_TABLE
892 , p5_a3 JTF_NUMBER_TABLE
893 , p5_a4 JTF_NUMBER_TABLE
894 , p5_a5 JTF_DATE_TABLE
895 , p5_a6 JTF_DATE_TABLE
896 , p5_a7 JTF_NUMBER_TABLE
897 , p5_a8 JTF_NUMBER_TABLE
898 , p5_a9 JTF_NUMBER_TABLE
899 , p5_a10 JTF_VARCHAR2_TABLE_100
900 , p5_a11 JTF_VARCHAR2_TABLE_500
901 , p5_a12 JTF_VARCHAR2_TABLE_500
902 , p5_a13 JTF_VARCHAR2_TABLE_500
903 , p5_a14 JTF_VARCHAR2_TABLE_500
904 , p5_a15 JTF_VARCHAR2_TABLE_500
905 , p5_a16 JTF_VARCHAR2_TABLE_500
906 , p5_a17 JTF_VARCHAR2_TABLE_500
907 , p5_a18 JTF_VARCHAR2_TABLE_500
908 , p5_a19 JTF_VARCHAR2_TABLE_500
909 , p5_a20 JTF_VARCHAR2_TABLE_500
910 , p5_a21 JTF_VARCHAR2_TABLE_500
911 , p5_a22 JTF_VARCHAR2_TABLE_500
912 , p5_a23 JTF_VARCHAR2_TABLE_500
913 , p5_a24 JTF_VARCHAR2_TABLE_500
914 , p5_a25 JTF_VARCHAR2_TABLE_500
915 , p5_a26 JTF_NUMBER_TABLE
916 , p5_a27 JTF_DATE_TABLE
917 , p5_a28 JTF_NUMBER_TABLE
918 , p5_a29 JTF_DATE_TABLE
919 , p5_a30 JTF_NUMBER_TABLE
920 , p6_a0 out nocopy JTF_NUMBER_TABLE
921 , p6_a1 out nocopy JTF_NUMBER_TABLE
922 , p6_a2 out nocopy JTF_NUMBER_TABLE
923 , p6_a3 out nocopy JTF_NUMBER_TABLE
924 , p6_a4 out nocopy JTF_NUMBER_TABLE
925 , p6_a5 out nocopy JTF_DATE_TABLE
926 , p6_a6 out nocopy JTF_DATE_TABLE
927 , p6_a7 out nocopy JTF_NUMBER_TABLE
928 , p6_a8 out nocopy JTF_NUMBER_TABLE
929 , p6_a9 out nocopy JTF_NUMBER_TABLE
930 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
931 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
932 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
933 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
934 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
935 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
936 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
937 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
938 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
939 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
940 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
941 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
942 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
943 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
944 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
945 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
946 , p6_a26 out nocopy JTF_NUMBER_TABLE
947 , p6_a27 out nocopy JTF_DATE_TABLE
948 , p6_a28 out nocopy JTF_NUMBER_TABLE
949 , p6_a29 out nocopy JTF_DATE_TABLE
950 , p6_a30 out nocopy JTF_NUMBER_TABLE
951 )
952
953 as
954 ddp_drv_tbl okl_setup_disb_rules_pvt.drv_tbl_type;
955 ddx_drv_tbl okl_setup_disb_rules_pvt.drv_tbl_type;
956 ddindx binary_integer; indx binary_integer;
957 begin
958
959 -- copy data to the local IN or IN-OUT args, if any
960
961
962
963
964
965 okl_drv_pvt_w.rosetta_table_copy_in_p2(ddp_drv_tbl, p5_a0
966 , p5_a1
967 , p5_a2
968 , p5_a3
969 , p5_a4
970 , p5_a5
971 , p5_a6
972 , p5_a7
973 , p5_a8
974 , p5_a9
975 , p5_a10
976 , p5_a11
977 , p5_a12
978 , p5_a13
979 , p5_a14
980 , p5_a15
981 , p5_a16
982 , p5_a17
983 , p5_a18
984 , p5_a19
985 , p5_a20
986 , p5_a21
987 , p5_a22
988 , p5_a23
989 , p5_a24
990 , p5_a25
991 , p5_a26
992 , p5_a27
993 , p5_a28
994 , p5_a29
995 , p5_a30
996 );
997
998
999 -- here's the delegated call to the old PL/SQL routine
1000 okl_setup_disb_rules_pvt.create_v_disbursement_rule(p_api_version,
1001 p_init_msg_list,
1002 x_return_status,
1003 x_msg_count,
1004 x_msg_data,
1005 ddp_drv_tbl,
1006 ddx_drv_tbl);
1007
1008 -- copy data back from the local variables to OUT or IN-OUT args, if any
1009
1010
1011
1012
1013
1014
1015 okl_drv_pvt_w.rosetta_table_copy_out_p2(ddx_drv_tbl, p6_a0
1016 , p6_a1
1017 , p6_a2
1018 , p6_a3
1019 , p6_a4
1020 , p6_a5
1021 , p6_a6
1022 , p6_a7
1023 , p6_a8
1024 , p6_a9
1025 , p6_a10
1026 , p6_a11
1027 , p6_a12
1028 , p6_a13
1029 , p6_a14
1030 , p6_a15
1031 , p6_a16
1032 , p6_a17
1033 , p6_a18
1034 , p6_a19
1035 , p6_a20
1036 , p6_a21
1037 , p6_a22
1038 , p6_a23
1039 , p6_a24
1040 , p6_a25
1041 , p6_a26
1042 , p6_a27
1043 , p6_a28
1044 , p6_a29
1045 , p6_a30
1046 );
1047 end;
1048
1049 end okl_setup_disb_rules_pvt_w;