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