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