[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUP_ACCRUALS_PUB_W
Source
1 package body okl_setup_accruals_pub_w as
2 /* $Header: OKLUARUB.pls 120.1 2005/07/18 15:55:21 viselvar 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
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure create_accrual_rules(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p6_a0 out nocopy NUMBER
28 , p6_a1 out nocopy NUMBER
29 , p6_a2 out nocopy VARCHAR2
30 , p6_a3 out nocopy VARCHAR2
31 , p6_a4 out nocopy VARCHAR2
32 , p6_a5 out nocopy NUMBER
33 , p6_a6 out nocopy VARCHAR2
34 , p6_a7 out nocopy VARCHAR2
35 , p6_a8 out nocopy VARCHAR2
36 , p6_a9 out nocopy VARCHAR2
37 , p6_a10 out nocopy DATE
38 , p6_a11 out nocopy DATE
39 , p6_a12 out nocopy NUMBER
40 , p6_a13 out nocopy NUMBER
41 , p6_a14 out nocopy DATE
42 , p6_a15 out nocopy NUMBER
43 , p6_a16 out nocopy DATE
44 , p6_a17 out nocopy NUMBER
45 , p5_a0 NUMBER := 0-1962.0724
46 , p5_a1 NUMBER := 0-1962.0724
47 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
48 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
49 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
50 , p5_a5 NUMBER := 0-1962.0724
51 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
52 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
53 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
54 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
55 , p5_a10 DATE := fnd_api.g_miss_date
56 , p5_a11 DATE := fnd_api.g_miss_date
57 , p5_a12 NUMBER := 0-1962.0724
58 , p5_a13 NUMBER := 0-1962.0724
59 , p5_a14 DATE := fnd_api.g_miss_date
60 , p5_a15 NUMBER := 0-1962.0724
61 , p5_a16 DATE := fnd_api.g_miss_date
62 , p5_a17 NUMBER := 0-1962.0724
63 )
64
65 as
66 ddp_agnv_rec okl_setup_accruals_pub.agnv_rec_type;
67 ddx_agnv_rec okl_setup_accruals_pub.agnv_rec_type;
68 ddindx binary_integer; indx binary_integer;
69 begin
70
71 -- copy data to the local IN or IN-OUT args, if any
72
73
74
75
76
77 ddp_agnv_rec.id := rosetta_g_miss_num_map(p5_a0);
78 ddp_agnv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
79 ddp_agnv_rec.aro_code := p5_a2;
80 ddp_agnv_rec.arlo_code := p5_a3;
81 ddp_agnv_rec.acro_code := p5_a4;
82 ddp_agnv_rec.line_number := rosetta_g_miss_num_map(p5_a5);
83 ddp_agnv_rec.version := p5_a6;
84 ddp_agnv_rec.left_parentheses := p5_a7;
85 ddp_agnv_rec.right_operand_literal := p5_a8;
86 ddp_agnv_rec.right_parentheses := p5_a9;
87 ddp_agnv_rec.from_date := rosetta_g_miss_date_in_map(p5_a10);
88 ddp_agnv_rec.to_date := rosetta_g_miss_date_in_map(p5_a11);
89 ddp_agnv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
90 ddp_agnv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
91 ddp_agnv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
92 ddp_agnv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
93 ddp_agnv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
94 ddp_agnv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
95
96
97 -- here's the delegated call to the old PL/SQL routine
98 okl_setup_accruals_pub.create_accrual_rules(p_api_version,
99 p_init_msg_list,
100 x_return_status,
101 x_msg_count,
102 x_msg_data,
103 ddp_agnv_rec,
104 ddx_agnv_rec);
105
106 -- copy data back from the local variables to OUT or IN-OUT args, if any
107
108
109
110
111
112
113 p6_a0 := rosetta_g_miss_num_map(ddx_agnv_rec.id);
114 p6_a1 := rosetta_g_miss_num_map(ddx_agnv_rec.object_version_number);
115 p6_a2 := ddx_agnv_rec.aro_code;
116 p6_a3 := ddx_agnv_rec.arlo_code;
117 p6_a4 := ddx_agnv_rec.acro_code;
118 p6_a5 := rosetta_g_miss_num_map(ddx_agnv_rec.line_number);
119 p6_a6 := ddx_agnv_rec.version;
120 p6_a7 := ddx_agnv_rec.left_parentheses;
121 p6_a8 := ddx_agnv_rec.right_operand_literal;
122 p6_a9 := ddx_agnv_rec.right_parentheses;
123 p6_a10 := ddx_agnv_rec.from_date;
124 p6_a11 := ddx_agnv_rec.to_date;
125 p6_a12 := rosetta_g_miss_num_map(ddx_agnv_rec.org_id);
126 p6_a13 := rosetta_g_miss_num_map(ddx_agnv_rec.created_by);
127 p6_a14 := ddx_agnv_rec.creation_date;
128 p6_a15 := rosetta_g_miss_num_map(ddx_agnv_rec.last_updated_by);
129 p6_a16 := ddx_agnv_rec.last_update_date;
130 p6_a17 := rosetta_g_miss_num_map(ddx_agnv_rec.last_update_login);
131 end;
132
133 procedure create_accrual_rules(p_api_version NUMBER
134 , p_init_msg_list VARCHAR2
135 , x_return_status out nocopy VARCHAR2
136 , x_msg_count out nocopy NUMBER
137 , x_msg_data out nocopy VARCHAR2
138 , p5_a0 JTF_NUMBER_TABLE
139 , p5_a1 JTF_NUMBER_TABLE
140 , p5_a2 JTF_VARCHAR2_TABLE_100
141 , p5_a3 JTF_VARCHAR2_TABLE_100
142 , p5_a4 JTF_VARCHAR2_TABLE_100
143 , p5_a5 JTF_NUMBER_TABLE
144 , p5_a6 JTF_VARCHAR2_TABLE_100
145 , p5_a7 JTF_VARCHAR2_TABLE_100
146 , p5_a8 JTF_VARCHAR2_TABLE_100
147 , p5_a9 JTF_VARCHAR2_TABLE_100
148 , p5_a10 JTF_DATE_TABLE
149 , p5_a11 JTF_DATE_TABLE
150 , p5_a12 JTF_NUMBER_TABLE
151 , p5_a13 JTF_NUMBER_TABLE
152 , p5_a14 JTF_DATE_TABLE
153 , p5_a15 JTF_NUMBER_TABLE
154 , p5_a16 JTF_DATE_TABLE
155 , p5_a17 JTF_NUMBER_TABLE
156 , p6_a0 out nocopy JTF_NUMBER_TABLE
157 , p6_a1 out nocopy JTF_NUMBER_TABLE
158 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
159 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
160 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
161 , p6_a5 out nocopy JTF_NUMBER_TABLE
162 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
163 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
164 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
165 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
166 , p6_a10 out nocopy JTF_DATE_TABLE
167 , p6_a11 out nocopy JTF_DATE_TABLE
168 , p6_a12 out nocopy JTF_NUMBER_TABLE
169 , p6_a13 out nocopy JTF_NUMBER_TABLE
170 , p6_a14 out nocopy JTF_DATE_TABLE
171 , p6_a15 out nocopy JTF_NUMBER_TABLE
172 , p6_a16 out nocopy JTF_DATE_TABLE
173 , p6_a17 out nocopy JTF_NUMBER_TABLE
174 )
175
176 as
177 ddp_agnv_tbl okl_setup_accruals_pub.agnv_tbl_type;
178 ddx_agnv_tbl okl_setup_accruals_pub.agnv_tbl_type;
179 ddindx binary_integer; indx binary_integer;
180 begin
181
182 -- copy data to the local IN or IN-OUT args, if any
183
184
185
186
187
188 okl_agn_pvt_w.rosetta_table_copy_in_p5(ddp_agnv_tbl, p5_a0
189 , p5_a1
190 , p5_a2
191 , p5_a3
192 , p5_a4
193 , p5_a5
194 , p5_a6
195 , p5_a7
196 , p5_a8
197 , p5_a9
198 , p5_a10
199 , p5_a11
200 , p5_a12
201 , p5_a13
202 , p5_a14
203 , p5_a15
204 , p5_a16
205 , p5_a17
206 );
207
208
209 -- here's the delegated call to the old PL/SQL routine
210 okl_setup_accruals_pub.create_accrual_rules(p_api_version,
211 p_init_msg_list,
212 x_return_status,
213 x_msg_count,
214 x_msg_data,
215 ddp_agnv_tbl,
216 ddx_agnv_tbl);
217
218 -- copy data back from the local variables to OUT or IN-OUT args, if any
219
220
221
222
223
224
225 okl_agn_pvt_w.rosetta_table_copy_out_p5(ddx_agnv_tbl, p6_a0
226 , p6_a1
227 , p6_a2
228 , p6_a3
229 , p6_a4
230 , p6_a5
231 , p6_a6
232 , p6_a7
233 , p6_a8
234 , p6_a9
235 , p6_a10
236 , p6_a11
237 , p6_a12
238 , p6_a13
239 , p6_a14
240 , p6_a15
241 , p6_a16
242 , p6_a17
243 );
244 end;
245
246 procedure update_accrual_rules(p_api_version NUMBER
247 , p_init_msg_list VARCHAR2
248 , x_return_status out nocopy VARCHAR2
249 , x_msg_count out nocopy NUMBER
250 , x_msg_data out nocopy VARCHAR2
251 , p6_a0 out nocopy NUMBER
252 , p6_a1 out nocopy NUMBER
253 , p6_a2 out nocopy VARCHAR2
254 , p6_a3 out nocopy VARCHAR2
255 , p6_a4 out nocopy VARCHAR2
256 , p6_a5 out nocopy NUMBER
257 , p6_a6 out nocopy VARCHAR2
258 , p6_a7 out nocopy VARCHAR2
259 , p6_a8 out nocopy VARCHAR2
260 , p6_a9 out nocopy VARCHAR2
261 , p6_a10 out nocopy DATE
262 , p6_a11 out nocopy DATE
263 , p6_a12 out nocopy NUMBER
264 , p6_a13 out nocopy NUMBER
265 , p6_a14 out nocopy DATE
266 , p6_a15 out nocopy NUMBER
267 , p6_a16 out nocopy DATE
268 , p6_a17 out nocopy NUMBER
269 , p5_a0 NUMBER := 0-1962.0724
270 , p5_a1 NUMBER := 0-1962.0724
271 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
272 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
273 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
274 , p5_a5 NUMBER := 0-1962.0724
275 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
276 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
277 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
278 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
279 , p5_a10 DATE := fnd_api.g_miss_date
280 , p5_a11 DATE := fnd_api.g_miss_date
281 , p5_a12 NUMBER := 0-1962.0724
282 , p5_a13 NUMBER := 0-1962.0724
283 , p5_a14 DATE := fnd_api.g_miss_date
284 , p5_a15 NUMBER := 0-1962.0724
285 , p5_a16 DATE := fnd_api.g_miss_date
286 , p5_a17 NUMBER := 0-1962.0724
287 )
288
289 as
290 ddp_agnv_rec okl_setup_accruals_pub.agnv_rec_type;
291 ddx_agnv_rec okl_setup_accruals_pub.agnv_rec_type;
292 ddindx binary_integer; indx binary_integer;
293 begin
294
295 -- copy data to the local IN or IN-OUT args, if any
296
297
298
299
300
301 ddp_agnv_rec.id := rosetta_g_miss_num_map(p5_a0);
302 ddp_agnv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
303 ddp_agnv_rec.aro_code := p5_a2;
304 ddp_agnv_rec.arlo_code := p5_a3;
305 ddp_agnv_rec.acro_code := p5_a4;
306 ddp_agnv_rec.line_number := rosetta_g_miss_num_map(p5_a5);
307 ddp_agnv_rec.version := p5_a6;
308 ddp_agnv_rec.left_parentheses := p5_a7;
309 ddp_agnv_rec.right_operand_literal := p5_a8;
310 ddp_agnv_rec.right_parentheses := p5_a9;
311 ddp_agnv_rec.from_date := rosetta_g_miss_date_in_map(p5_a10);
312 ddp_agnv_rec.to_date := rosetta_g_miss_date_in_map(p5_a11);
313 ddp_agnv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
314 ddp_agnv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
315 ddp_agnv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
316 ddp_agnv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
317 ddp_agnv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
318 ddp_agnv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
319
320
321 -- here's the delegated call to the old PL/SQL routine
322 okl_setup_accruals_pub.update_accrual_rules(p_api_version,
323 p_init_msg_list,
324 x_return_status,
325 x_msg_count,
326 x_msg_data,
327 ddp_agnv_rec,
328 ddx_agnv_rec);
329
330 -- copy data back from the local variables to OUT or IN-OUT args, if any
331
332
333
334
335
336
337 p6_a0 := rosetta_g_miss_num_map(ddx_agnv_rec.id);
338 p6_a1 := rosetta_g_miss_num_map(ddx_agnv_rec.object_version_number);
339 p6_a2 := ddx_agnv_rec.aro_code;
340 p6_a3 := ddx_agnv_rec.arlo_code;
341 p6_a4 := ddx_agnv_rec.acro_code;
342 p6_a5 := rosetta_g_miss_num_map(ddx_agnv_rec.line_number);
343 p6_a6 := ddx_agnv_rec.version;
344 p6_a7 := ddx_agnv_rec.left_parentheses;
345 p6_a8 := ddx_agnv_rec.right_operand_literal;
346 p6_a9 := ddx_agnv_rec.right_parentheses;
347 p6_a10 := ddx_agnv_rec.from_date;
348 p6_a11 := ddx_agnv_rec.to_date;
349 p6_a12 := rosetta_g_miss_num_map(ddx_agnv_rec.org_id);
350 p6_a13 := rosetta_g_miss_num_map(ddx_agnv_rec.created_by);
351 p6_a14 := ddx_agnv_rec.creation_date;
352 p6_a15 := rosetta_g_miss_num_map(ddx_agnv_rec.last_updated_by);
353 p6_a16 := ddx_agnv_rec.last_update_date;
354 p6_a17 := rosetta_g_miss_num_map(ddx_agnv_rec.last_update_login);
355 end;
356
357 procedure update_accrual_rules(p_api_version NUMBER
358 , p_init_msg_list VARCHAR2
359 , x_return_status out nocopy VARCHAR2
360 , x_msg_count out nocopy NUMBER
361 , x_msg_data out nocopy VARCHAR2
362 , p5_a0 JTF_NUMBER_TABLE
363 , p5_a1 JTF_NUMBER_TABLE
364 , p5_a2 JTF_VARCHAR2_TABLE_100
365 , p5_a3 JTF_VARCHAR2_TABLE_100
366 , p5_a4 JTF_VARCHAR2_TABLE_100
367 , p5_a5 JTF_NUMBER_TABLE
368 , p5_a6 JTF_VARCHAR2_TABLE_100
369 , p5_a7 JTF_VARCHAR2_TABLE_100
370 , p5_a8 JTF_VARCHAR2_TABLE_100
371 , p5_a9 JTF_VARCHAR2_TABLE_100
372 , p5_a10 JTF_DATE_TABLE
373 , p5_a11 JTF_DATE_TABLE
374 , p5_a12 JTF_NUMBER_TABLE
375 , p5_a13 JTF_NUMBER_TABLE
376 , p5_a14 JTF_DATE_TABLE
377 , p5_a15 JTF_NUMBER_TABLE
378 , p5_a16 JTF_DATE_TABLE
379 , p5_a17 JTF_NUMBER_TABLE
380 , p6_a0 out nocopy JTF_NUMBER_TABLE
381 , p6_a1 out nocopy JTF_NUMBER_TABLE
382 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
383 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
384 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
385 , p6_a5 out nocopy JTF_NUMBER_TABLE
386 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
387 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
388 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
389 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
390 , p6_a10 out nocopy JTF_DATE_TABLE
391 , p6_a11 out nocopy JTF_DATE_TABLE
392 , p6_a12 out nocopy JTF_NUMBER_TABLE
393 , p6_a13 out nocopy JTF_NUMBER_TABLE
394 , p6_a14 out nocopy JTF_DATE_TABLE
395 , p6_a15 out nocopy JTF_NUMBER_TABLE
396 , p6_a16 out nocopy JTF_DATE_TABLE
397 , p6_a17 out nocopy JTF_NUMBER_TABLE
398 )
399
400 as
401 ddp_agnv_tbl okl_setup_accruals_pub.agnv_tbl_type;
402 ddx_agnv_tbl okl_setup_accruals_pub.agnv_tbl_type;
403 ddindx binary_integer; indx binary_integer;
404 begin
405
406 -- copy data to the local IN or IN-OUT args, if any
407
408
409
410
411
412 okl_agn_pvt_w.rosetta_table_copy_in_p5(ddp_agnv_tbl, p5_a0
413 , p5_a1
414 , p5_a2
415 , p5_a3
416 , p5_a4
417 , p5_a5
418 , p5_a6
419 , p5_a7
420 , p5_a8
421 , p5_a9
422 , p5_a10
423 , p5_a11
424 , p5_a12
425 , p5_a13
426 , p5_a14
427 , p5_a15
428 , p5_a16
429 , p5_a17
430 );
431
432
433 -- here's the delegated call to the old PL/SQL routine
434 okl_setup_accruals_pub.update_accrual_rules(p_api_version,
435 p_init_msg_list,
436 x_return_status,
437 x_msg_count,
438 x_msg_data,
439 ddp_agnv_tbl,
440 ddx_agnv_tbl);
441
442 -- copy data back from the local variables to OUT or IN-OUT args, if any
443
444
445
446
447
448
449 okl_agn_pvt_w.rosetta_table_copy_out_p5(ddx_agnv_tbl, p6_a0
450 , p6_a1
451 , p6_a2
452 , p6_a3
453 , p6_a4
454 , p6_a5
455 , p6_a6
456 , p6_a7
457 , p6_a8
458 , p6_a9
459 , p6_a10
460 , p6_a11
461 , p6_a12
462 , p6_a13
463 , p6_a14
464 , p6_a15
465 , p6_a16
466 , p6_a17
467 );
468 end;
469
470 procedure delete_accrual_rules(p_api_version NUMBER
471 , p_init_msg_list VARCHAR2
472 , x_return_status out nocopy VARCHAR2
473 , x_msg_count out nocopy NUMBER
474 , x_msg_data out nocopy VARCHAR2
475 , p5_a0 NUMBER := 0-1962.0724
476 , p5_a1 NUMBER := 0-1962.0724
477 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
478 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
479 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
480 , p5_a5 NUMBER := 0-1962.0724
481 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
482 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
483 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
484 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
485 , p5_a10 DATE := fnd_api.g_miss_date
486 , p5_a11 DATE := fnd_api.g_miss_date
487 , p5_a12 NUMBER := 0-1962.0724
488 , p5_a13 NUMBER := 0-1962.0724
489 , p5_a14 DATE := fnd_api.g_miss_date
490 , p5_a15 NUMBER := 0-1962.0724
491 , p5_a16 DATE := fnd_api.g_miss_date
492 , p5_a17 NUMBER := 0-1962.0724
493 )
494
495 as
496 ddp_agnv_rec okl_setup_accruals_pub.agnv_rec_type;
497 ddindx binary_integer; indx binary_integer;
498 begin
499
500 -- copy data to the local IN or IN-OUT args, if any
501
502
503
504
505
506 ddp_agnv_rec.id := rosetta_g_miss_num_map(p5_a0);
507 ddp_agnv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
508 ddp_agnv_rec.aro_code := p5_a2;
509 ddp_agnv_rec.arlo_code := p5_a3;
510 ddp_agnv_rec.acro_code := p5_a4;
511 ddp_agnv_rec.line_number := rosetta_g_miss_num_map(p5_a5);
512 ddp_agnv_rec.version := p5_a6;
513 ddp_agnv_rec.left_parentheses := p5_a7;
514 ddp_agnv_rec.right_operand_literal := p5_a8;
515 ddp_agnv_rec.right_parentheses := p5_a9;
516 ddp_agnv_rec.from_date := rosetta_g_miss_date_in_map(p5_a10);
517 ddp_agnv_rec.to_date := rosetta_g_miss_date_in_map(p5_a11);
518 ddp_agnv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
519 ddp_agnv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
520 ddp_agnv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
521 ddp_agnv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
522 ddp_agnv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
523 ddp_agnv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
524
525 -- here's the delegated call to the old PL/SQL routine
526 okl_setup_accruals_pub.delete_accrual_rules(p_api_version,
527 p_init_msg_list,
528 x_return_status,
529 x_msg_count,
530 x_msg_data,
531 ddp_agnv_rec);
532
533 -- copy data back from the local variables to OUT or IN-OUT args, if any
534
535
536
537
538
539 end;
540
541 procedure delete_accrual_rules(p_api_version NUMBER
542 , p_init_msg_list VARCHAR2
543 , x_return_status out nocopy VARCHAR2
544 , x_msg_count out nocopy NUMBER
545 , x_msg_data out nocopy VARCHAR2
546 , p5_a0 JTF_NUMBER_TABLE
547 , p5_a1 JTF_NUMBER_TABLE
548 , p5_a2 JTF_VARCHAR2_TABLE_100
549 , p5_a3 JTF_VARCHAR2_TABLE_100
550 , p5_a4 JTF_VARCHAR2_TABLE_100
551 , p5_a5 JTF_NUMBER_TABLE
552 , p5_a6 JTF_VARCHAR2_TABLE_100
553 , p5_a7 JTF_VARCHAR2_TABLE_100
554 , p5_a8 JTF_VARCHAR2_TABLE_100
555 , p5_a9 JTF_VARCHAR2_TABLE_100
556 , p5_a10 JTF_DATE_TABLE
557 , p5_a11 JTF_DATE_TABLE
558 , p5_a12 JTF_NUMBER_TABLE
559 , p5_a13 JTF_NUMBER_TABLE
560 , p5_a14 JTF_DATE_TABLE
561 , p5_a15 JTF_NUMBER_TABLE
562 , p5_a16 JTF_DATE_TABLE
563 , p5_a17 JTF_NUMBER_TABLE
564 )
565
566 as
567 ddp_agnv_tbl okl_setup_accruals_pub.agnv_tbl_type;
568 ddindx binary_integer; indx binary_integer;
569 begin
570
571 -- copy data to the local IN or IN-OUT args, if any
572
573
574
575
576
577 okl_agn_pvt_w.rosetta_table_copy_in_p5(ddp_agnv_tbl, p5_a0
578 , p5_a1
579 , p5_a2
580 , p5_a3
581 , p5_a4
582 , p5_a5
583 , p5_a6
584 , p5_a7
585 , p5_a8
586 , p5_a9
587 , p5_a10
588 , p5_a11
589 , p5_a12
590 , p5_a13
591 , p5_a14
592 , p5_a15
593 , p5_a16
594 , p5_a17
595 );
596
597 -- here's the delegated call to the old PL/SQL routine
598 okl_setup_accruals_pub.delete_accrual_rules(p_api_version,
599 p_init_msg_list,
600 x_return_status,
601 x_msg_count,
602 x_msg_data,
603 ddp_agnv_tbl);
604
605 -- copy data back from the local variables to OUT or IN-OUT args, if any
606
607
608
609
610
611 end;
612
613 end okl_setup_accruals_pub_w;