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