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