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