[Home] [Help]
PACKAGE BODY: APPS.OKL_OVE_PVT_W
Source
1 package body okl_ove_pvt_w as
2 /* $Header: OKLIOVEB.pls 115.4 2002/12/24 04:06:48 sgorantl 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 rosetta_table_copy_in_p2(t out nocopy okl_ove_pvt.ove_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_VARCHAR2_TABLE_200
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_VARCHAR2_TABLE_2000
27 , a5 JTF_DATE_TABLE
28 , a6 JTF_DATE_TABLE
29 , a7 JTF_NUMBER_TABLE
30 , a8 JTF_DATE_TABLE
31 , a9 JTF_NUMBER_TABLE
32 , a10 JTF_DATE_TABLE
33 , a11 JTF_NUMBER_TABLE
34 ) as
35 ddindx binary_integer; indx binary_integer;
36 begin
37 if a0 is not null and a0.count > 0 then
38 if a0.count > 0 then
39 indx := a0.first;
40 ddindx := 1;
41 while true loop
42 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
43 t(ddindx).opt_id := rosetta_g_miss_num_map(a1(indx));
44 t(ddindx).value := a2(indx);
45 t(ddindx).object_version_number := rosetta_g_miss_num_map(a3(indx));
46 t(ddindx).description := a4(indx);
47 t(ddindx).from_date := rosetta_g_miss_date_in_map(a5(indx));
48 t(ddindx).to_date := rosetta_g_miss_date_in_map(a6(indx));
49 t(ddindx).created_by := rosetta_g_miss_num_map(a7(indx));
50 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a8(indx));
51 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a9(indx));
52 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a10(indx));
53 t(ddindx).last_update_login := rosetta_g_miss_num_map(a11(indx));
54 ddindx := ddindx+1;
55 if a0.last =indx
56 then exit;
57 end if;
58 indx := a0.next(indx);
59 end loop;
60 end if;
61 end if;
62 end rosetta_table_copy_in_p2;
63 procedure rosetta_table_copy_out_p2(t okl_ove_pvt.ove_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
64 , a1 out nocopy JTF_NUMBER_TABLE
65 , a2 out nocopy JTF_VARCHAR2_TABLE_200
66 , a3 out nocopy JTF_NUMBER_TABLE
67 , a4 out nocopy JTF_VARCHAR2_TABLE_2000
68 , a5 out nocopy JTF_DATE_TABLE
69 , a6 out nocopy JTF_DATE_TABLE
70 , a7 out nocopy JTF_NUMBER_TABLE
71 , a8 out nocopy JTF_DATE_TABLE
72 , a9 out nocopy JTF_NUMBER_TABLE
73 , a10 out nocopy JTF_DATE_TABLE
74 , a11 out nocopy JTF_NUMBER_TABLE
75 ) as
76 ddindx binary_integer; indx binary_integer;
77 begin
78 if t is null or t.count = 0 then
79 a0 := JTF_NUMBER_TABLE();
80 a1 := JTF_NUMBER_TABLE();
81 a2 := JTF_VARCHAR2_TABLE_200();
82 a3 := JTF_NUMBER_TABLE();
83 a4 := JTF_VARCHAR2_TABLE_2000();
84 a5 := JTF_DATE_TABLE();
85 a6 := JTF_DATE_TABLE();
86 a7 := JTF_NUMBER_TABLE();
87 a8 := JTF_DATE_TABLE();
88 a9 := JTF_NUMBER_TABLE();
89 a10 := JTF_DATE_TABLE();
90 a11 := JTF_NUMBER_TABLE();
91 else
92 a0 := JTF_NUMBER_TABLE();
93 a1 := JTF_NUMBER_TABLE();
94 a2 := JTF_VARCHAR2_TABLE_200();
95 a3 := JTF_NUMBER_TABLE();
96 a4 := JTF_VARCHAR2_TABLE_2000();
97 a5 := JTF_DATE_TABLE();
98 a6 := JTF_DATE_TABLE();
99 a7 := JTF_NUMBER_TABLE();
100 a8 := JTF_DATE_TABLE();
101 a9 := JTF_NUMBER_TABLE();
102 a10 := JTF_DATE_TABLE();
103 a11 := JTF_NUMBER_TABLE();
104 if t.count > 0 then
105 a0.extend(t.count);
106 a1.extend(t.count);
107 a2.extend(t.count);
108 a3.extend(t.count);
109 a4.extend(t.count);
110 a5.extend(t.count);
111 a6.extend(t.count);
112 a7.extend(t.count);
113 a8.extend(t.count);
114 a9.extend(t.count);
115 a10.extend(t.count);
116 a11.extend(t.count);
117 ddindx := t.first;
118 indx := 1;
119 while true loop
120 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
121 a1(indx) := rosetta_g_miss_num_map(t(ddindx).opt_id);
122 a2(indx) := t(ddindx).value;
123 a3(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
124 a4(indx) := t(ddindx).description;
125 a5(indx) := t(ddindx).from_date;
126 a6(indx) := t(ddindx).to_date;
127 a7(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
128 a8(indx) := t(ddindx).creation_date;
129 a9(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
130 a10(indx) := t(ddindx).last_update_date;
131 a11(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
132 indx := indx+1;
133 if t.last =ddindx
134 then exit;
135 end if;
136 ddindx := t.next(ddindx);
137 end loop;
138 end if;
139 end if;
140 end rosetta_table_copy_out_p2;
141
142 procedure rosetta_table_copy_in_p5(t out nocopy okl_ove_pvt.ovev_tbl_type, a0 JTF_NUMBER_TABLE
143 , a1 JTF_NUMBER_TABLE
144 , a2 JTF_NUMBER_TABLE
145 , a3 JTF_VARCHAR2_TABLE_200
146 , a4 JTF_VARCHAR2_TABLE_2000
147 , a5 JTF_DATE_TABLE
148 , a6 JTF_DATE_TABLE
149 , a7 JTF_NUMBER_TABLE
150 , a8 JTF_DATE_TABLE
151 , a9 JTF_NUMBER_TABLE
152 , a10 JTF_DATE_TABLE
153 , a11 JTF_NUMBER_TABLE
154 ) as
155 ddindx binary_integer; indx binary_integer;
156 begin
157 if a0 is not null and a0.count > 0 then
158 if a0.count > 0 then
159 indx := a0.first;
160 ddindx := 1;
161 while true loop
162 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
163 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
164 t(ddindx).opt_id := rosetta_g_miss_num_map(a2(indx));
165 t(ddindx).value := a3(indx);
166 t(ddindx).description := a4(indx);
167 t(ddindx).from_date := rosetta_g_miss_date_in_map(a5(indx));
168 t(ddindx).to_date := rosetta_g_miss_date_in_map(a6(indx));
169 t(ddindx).created_by := rosetta_g_miss_num_map(a7(indx));
170 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a8(indx));
171 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a9(indx));
172 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a10(indx));
173 t(ddindx).last_update_login := rosetta_g_miss_num_map(a11(indx));
174 ddindx := ddindx+1;
175 if a0.last =indx
176 then exit;
177 end if;
178 indx := a0.next(indx);
179 end loop;
180 end if;
181 end if;
182 end rosetta_table_copy_in_p5;
183 procedure rosetta_table_copy_out_p5(t okl_ove_pvt.ovev_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
184 , a1 out nocopy JTF_NUMBER_TABLE
185 , a2 out nocopy JTF_NUMBER_TABLE
186 , a3 out nocopy JTF_VARCHAR2_TABLE_200
187 , a4 out nocopy JTF_VARCHAR2_TABLE_2000
188 , a5 out nocopy JTF_DATE_TABLE
189 , a6 out nocopy JTF_DATE_TABLE
190 , a7 out nocopy JTF_NUMBER_TABLE
191 , a8 out nocopy JTF_DATE_TABLE
192 , a9 out nocopy JTF_NUMBER_TABLE
193 , a10 out nocopy JTF_DATE_TABLE
194 , a11 out nocopy JTF_NUMBER_TABLE
195 ) as
196 ddindx binary_integer; indx binary_integer;
197 begin
198 if t is null or t.count = 0 then
199 a0 := JTF_NUMBER_TABLE();
200 a1 := JTF_NUMBER_TABLE();
201 a2 := JTF_NUMBER_TABLE();
202 a3 := JTF_VARCHAR2_TABLE_200();
203 a4 := JTF_VARCHAR2_TABLE_2000();
204 a5 := JTF_DATE_TABLE();
205 a6 := JTF_DATE_TABLE();
206 a7 := JTF_NUMBER_TABLE();
207 a8 := JTF_DATE_TABLE();
208 a9 := JTF_NUMBER_TABLE();
209 a10 := JTF_DATE_TABLE();
210 a11 := JTF_NUMBER_TABLE();
211 else
212 a0 := JTF_NUMBER_TABLE();
213 a1 := JTF_NUMBER_TABLE();
214 a2 := JTF_NUMBER_TABLE();
215 a3 := JTF_VARCHAR2_TABLE_200();
216 a4 := JTF_VARCHAR2_TABLE_2000();
217 a5 := JTF_DATE_TABLE();
218 a6 := JTF_DATE_TABLE();
219 a7 := JTF_NUMBER_TABLE();
220 a8 := JTF_DATE_TABLE();
221 a9 := JTF_NUMBER_TABLE();
222 a10 := JTF_DATE_TABLE();
223 a11 := JTF_NUMBER_TABLE();
224 if t.count > 0 then
225 a0.extend(t.count);
226 a1.extend(t.count);
227 a2.extend(t.count);
228 a3.extend(t.count);
229 a4.extend(t.count);
230 a5.extend(t.count);
231 a6.extend(t.count);
232 a7.extend(t.count);
233 a8.extend(t.count);
234 a9.extend(t.count);
235 a10.extend(t.count);
236 a11.extend(t.count);
237 ddindx := t.first;
238 indx := 1;
239 while true loop
240 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
241 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
242 a2(indx) := rosetta_g_miss_num_map(t(ddindx).opt_id);
243 a3(indx) := t(ddindx).value;
244 a4(indx) := t(ddindx).description;
245 a5(indx) := t(ddindx).from_date;
246 a6(indx) := t(ddindx).to_date;
247 a7(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
248 a8(indx) := t(ddindx).creation_date;
249 a9(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
250 a10(indx) := t(ddindx).last_update_date;
251 a11(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
252 indx := indx+1;
253 if t.last =ddindx
254 then exit;
255 end if;
256 ddindx := t.next(ddindx);
257 end loop;
258 end if;
259 end if;
260 end rosetta_table_copy_out_p5;
261
262 procedure insert_row(p_api_version NUMBER
263 , p_init_msg_list VARCHAR2
264 , x_return_status out nocopy VARCHAR2
265 , x_msg_count out nocopy NUMBER
266 , x_msg_data out nocopy VARCHAR2
267 , p6_a0 out nocopy NUMBER
268 , p6_a1 out nocopy NUMBER
269 , p6_a2 out nocopy NUMBER
270 , p6_a3 out nocopy VARCHAR2
271 , p6_a4 out nocopy VARCHAR2
272 , p6_a5 out nocopy DATE
273 , p6_a6 out nocopy DATE
274 , p6_a7 out nocopy NUMBER
275 , p6_a8 out nocopy DATE
276 , p6_a9 out nocopy NUMBER
277 , p6_a10 out nocopy DATE
278 , p6_a11 out nocopy NUMBER
279 , p5_a0 NUMBER := 0-1962.0724
280 , p5_a1 NUMBER := 0-1962.0724
281 , p5_a2 NUMBER := 0-1962.0724
282 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
283 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
284 , p5_a5 DATE := fnd_api.g_miss_date
285 , p5_a6 DATE := fnd_api.g_miss_date
286 , p5_a7 NUMBER := 0-1962.0724
287 , p5_a8 DATE := fnd_api.g_miss_date
288 , p5_a9 NUMBER := 0-1962.0724
289 , p5_a10 DATE := fnd_api.g_miss_date
290 , p5_a11 NUMBER := 0-1962.0724
291 )
292
293 as
294 ddp_ovev_rec okl_ove_pvt.ovev_rec_type;
295 ddx_ovev_rec okl_ove_pvt.ovev_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_ovev_rec.id := rosetta_g_miss_num_map(p5_a0);
306 ddp_ovev_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
307 ddp_ovev_rec.opt_id := rosetta_g_miss_num_map(p5_a2);
308 ddp_ovev_rec.value := p5_a3;
309 ddp_ovev_rec.description := p5_a4;
310 ddp_ovev_rec.from_date := rosetta_g_miss_date_in_map(p5_a5);
311 ddp_ovev_rec.to_date := rosetta_g_miss_date_in_map(p5_a6);
312 ddp_ovev_rec.created_by := rosetta_g_miss_num_map(p5_a7);
313 ddp_ovev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a8);
314 ddp_ovev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a9);
315 ddp_ovev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a10);
316 ddp_ovev_rec.last_update_login := rosetta_g_miss_num_map(p5_a11);
317
318
319 -- here's the delegated call to the old PL/SQL routine
320 okl_ove_pvt.insert_row(p_api_version,
321 p_init_msg_list,
322 x_return_status,
323 x_msg_count,
324 x_msg_data,
325 ddp_ovev_rec,
326 ddx_ovev_rec);
327
328 -- copy data back from the local variables to OUT or IN-OUT args, if any
329
330
331
332
333
334
335 p6_a0 := rosetta_g_miss_num_map(ddx_ovev_rec.id);
336 p6_a1 := rosetta_g_miss_num_map(ddx_ovev_rec.object_version_number);
337 p6_a2 := rosetta_g_miss_num_map(ddx_ovev_rec.opt_id);
338 p6_a3 := ddx_ovev_rec.value;
339 p6_a4 := ddx_ovev_rec.description;
340 p6_a5 := ddx_ovev_rec.from_date;
341 p6_a6 := ddx_ovev_rec.to_date;
342 p6_a7 := rosetta_g_miss_num_map(ddx_ovev_rec.created_by);
343 p6_a8 := ddx_ovev_rec.creation_date;
344 p6_a9 := rosetta_g_miss_num_map(ddx_ovev_rec.last_updated_by);
345 p6_a10 := ddx_ovev_rec.last_update_date;
346 p6_a11 := rosetta_g_miss_num_map(ddx_ovev_rec.last_update_login);
347 end;
348
349 procedure insert_row(p_api_version NUMBER
350 , p_init_msg_list VARCHAR2
351 , x_return_status out nocopy VARCHAR2
352 , x_msg_count out nocopy NUMBER
353 , x_msg_data out nocopy VARCHAR2
354 , p5_a0 JTF_NUMBER_TABLE
355 , p5_a1 JTF_NUMBER_TABLE
356 , p5_a2 JTF_NUMBER_TABLE
357 , p5_a3 JTF_VARCHAR2_TABLE_200
358 , p5_a4 JTF_VARCHAR2_TABLE_2000
359 , p5_a5 JTF_DATE_TABLE
360 , p5_a6 JTF_DATE_TABLE
361 , p5_a7 JTF_NUMBER_TABLE
362 , p5_a8 JTF_DATE_TABLE
363 , p5_a9 JTF_NUMBER_TABLE
364 , p5_a10 JTF_DATE_TABLE
365 , p5_a11 JTF_NUMBER_TABLE
366 , p6_a0 out nocopy JTF_NUMBER_TABLE
367 , p6_a1 out nocopy JTF_NUMBER_TABLE
368 , p6_a2 out nocopy JTF_NUMBER_TABLE
369 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_200
370 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_2000
371 , p6_a5 out nocopy JTF_DATE_TABLE
372 , p6_a6 out nocopy JTF_DATE_TABLE
373 , p6_a7 out nocopy JTF_NUMBER_TABLE
374 , p6_a8 out nocopy JTF_DATE_TABLE
375 , p6_a9 out nocopy JTF_NUMBER_TABLE
376 , p6_a10 out nocopy JTF_DATE_TABLE
377 , p6_a11 out nocopy JTF_NUMBER_TABLE
378 )
379
380 as
381 ddp_ovev_tbl okl_ove_pvt.ovev_tbl_type;
382 ddx_ovev_tbl okl_ove_pvt.ovev_tbl_type;
383 ddindx binary_integer; indx binary_integer;
384 begin
385
386 -- copy data to the local IN or IN-OUT args, if any
387
388
389
390
391
392 okl_ove_pvt_w.rosetta_table_copy_in_p5(ddp_ovev_tbl, p5_a0
393 , p5_a1
394 , p5_a2
395 , p5_a3
396 , p5_a4
397 , p5_a5
398 , p5_a6
399 , p5_a7
400 , p5_a8
401 , p5_a9
402 , p5_a10
403 , p5_a11
404 );
405
406
407 -- here's the delegated call to the old PL/SQL routine
408 okl_ove_pvt.insert_row(p_api_version,
409 p_init_msg_list,
410 x_return_status,
411 x_msg_count,
412 x_msg_data,
413 ddp_ovev_tbl,
414 ddx_ovev_tbl);
415
416 -- copy data back from the local variables to OUT or IN-OUT args, if any
417
418
419
420
421
422
423 okl_ove_pvt_w.rosetta_table_copy_out_p5(ddx_ovev_tbl, p6_a0
424 , p6_a1
425 , p6_a2
426 , p6_a3
427 , p6_a4
428 , p6_a5
429 , p6_a6
430 , p6_a7
431 , p6_a8
432 , p6_a9
433 , p6_a10
434 , p6_a11
435 );
436 end;
437
438 procedure lock_row(p_api_version NUMBER
439 , p_init_msg_list VARCHAR2
440 , x_return_status out nocopy VARCHAR2
441 , x_msg_count out nocopy NUMBER
442 , x_msg_data out nocopy VARCHAR2
443 , p5_a0 NUMBER := 0-1962.0724
444 , p5_a1 NUMBER := 0-1962.0724
445 , p5_a2 NUMBER := 0-1962.0724
446 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
447 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
448 , p5_a5 DATE := fnd_api.g_miss_date
449 , p5_a6 DATE := fnd_api.g_miss_date
450 , p5_a7 NUMBER := 0-1962.0724
451 , p5_a8 DATE := fnd_api.g_miss_date
452 , p5_a9 NUMBER := 0-1962.0724
453 , p5_a10 DATE := fnd_api.g_miss_date
454 , p5_a11 NUMBER := 0-1962.0724
455 )
456
457 as
458 ddp_ovev_rec okl_ove_pvt.ovev_rec_type;
459 ddindx binary_integer; indx binary_integer;
460 begin
461
462 -- copy data to the local IN or IN-OUT args, if any
463
464
465
466
467
468 ddp_ovev_rec.id := rosetta_g_miss_num_map(p5_a0);
469 ddp_ovev_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
470 ddp_ovev_rec.opt_id := rosetta_g_miss_num_map(p5_a2);
471 ddp_ovev_rec.value := p5_a3;
472 ddp_ovev_rec.description := p5_a4;
473 ddp_ovev_rec.from_date := rosetta_g_miss_date_in_map(p5_a5);
474 ddp_ovev_rec.to_date := rosetta_g_miss_date_in_map(p5_a6);
475 ddp_ovev_rec.created_by := rosetta_g_miss_num_map(p5_a7);
476 ddp_ovev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a8);
477 ddp_ovev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a9);
478 ddp_ovev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a10);
479 ddp_ovev_rec.last_update_login := rosetta_g_miss_num_map(p5_a11);
480
481 -- here's the delegated call to the old PL/SQL routine
482 okl_ove_pvt.lock_row(p_api_version,
483 p_init_msg_list,
484 x_return_status,
485 x_msg_count,
486 x_msg_data,
487 ddp_ovev_rec);
488
489 -- copy data back from the local variables to OUT or IN-OUT args, if any
490
491
492
493
494
495 end;
496
497 procedure lock_row(p_api_version NUMBER
498 , p_init_msg_list VARCHAR2
499 , x_return_status out nocopy VARCHAR2
500 , x_msg_count out nocopy NUMBER
501 , x_msg_data out nocopy VARCHAR2
502 , p5_a0 JTF_NUMBER_TABLE
503 , p5_a1 JTF_NUMBER_TABLE
504 , p5_a2 JTF_NUMBER_TABLE
505 , p5_a3 JTF_VARCHAR2_TABLE_200
506 , p5_a4 JTF_VARCHAR2_TABLE_2000
507 , p5_a5 JTF_DATE_TABLE
508 , p5_a6 JTF_DATE_TABLE
509 , p5_a7 JTF_NUMBER_TABLE
510 , p5_a8 JTF_DATE_TABLE
511 , p5_a9 JTF_NUMBER_TABLE
512 , p5_a10 JTF_DATE_TABLE
513 , p5_a11 JTF_NUMBER_TABLE
514 )
515
516 as
517 ddp_ovev_tbl okl_ove_pvt.ovev_tbl_type;
518 ddindx binary_integer; indx binary_integer;
519 begin
520
521 -- copy data to the local IN or IN-OUT args, if any
522
523
524
525
526
527 okl_ove_pvt_w.rosetta_table_copy_in_p5(ddp_ovev_tbl, p5_a0
528 , p5_a1
529 , p5_a2
530 , p5_a3
531 , p5_a4
532 , p5_a5
533 , p5_a6
534 , p5_a7
535 , p5_a8
536 , p5_a9
537 , p5_a10
538 , p5_a11
539 );
540
541 -- here's the delegated call to the old PL/SQL routine
542 okl_ove_pvt.lock_row(p_api_version,
543 p_init_msg_list,
544 x_return_status,
545 x_msg_count,
546 x_msg_data,
547 ddp_ovev_tbl);
548
549 -- copy data back from the local variables to OUT or IN-OUT args, if any
550
551
552
553
554
555 end;
556
557 procedure update_row(p_api_version NUMBER
558 , p_init_msg_list VARCHAR2
559 , x_return_status out nocopy VARCHAR2
560 , x_msg_count out nocopy NUMBER
561 , x_msg_data out nocopy VARCHAR2
562 , p6_a0 out nocopy NUMBER
563 , p6_a1 out nocopy NUMBER
564 , p6_a2 out nocopy NUMBER
565 , p6_a3 out nocopy VARCHAR2
566 , p6_a4 out nocopy VARCHAR2
567 , p6_a5 out nocopy DATE
568 , p6_a6 out nocopy DATE
569 , p6_a7 out nocopy NUMBER
570 , p6_a8 out nocopy DATE
571 , p6_a9 out nocopy NUMBER
572 , p6_a10 out nocopy DATE
573 , p6_a11 out nocopy NUMBER
574 , p5_a0 NUMBER := 0-1962.0724
575 , p5_a1 NUMBER := 0-1962.0724
576 , p5_a2 NUMBER := 0-1962.0724
577 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
578 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
579 , p5_a5 DATE := fnd_api.g_miss_date
580 , p5_a6 DATE := fnd_api.g_miss_date
581 , p5_a7 NUMBER := 0-1962.0724
582 , p5_a8 DATE := fnd_api.g_miss_date
583 , p5_a9 NUMBER := 0-1962.0724
584 , p5_a10 DATE := fnd_api.g_miss_date
585 , p5_a11 NUMBER := 0-1962.0724
586 )
587
588 as
589 ddp_ovev_rec okl_ove_pvt.ovev_rec_type;
590 ddx_ovev_rec okl_ove_pvt.ovev_rec_type;
591 ddindx binary_integer; indx binary_integer;
592 begin
593
594 -- copy data to the local IN or IN-OUT args, if any
595
596
597
598
599
600 ddp_ovev_rec.id := rosetta_g_miss_num_map(p5_a0);
601 ddp_ovev_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
602 ddp_ovev_rec.opt_id := rosetta_g_miss_num_map(p5_a2);
603 ddp_ovev_rec.value := p5_a3;
604 ddp_ovev_rec.description := p5_a4;
605 ddp_ovev_rec.from_date := rosetta_g_miss_date_in_map(p5_a5);
606 ddp_ovev_rec.to_date := rosetta_g_miss_date_in_map(p5_a6);
607 ddp_ovev_rec.created_by := rosetta_g_miss_num_map(p5_a7);
608 ddp_ovev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a8);
609 ddp_ovev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a9);
610 ddp_ovev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a10);
611 ddp_ovev_rec.last_update_login := rosetta_g_miss_num_map(p5_a11);
612
613
614 -- here's the delegated call to the old PL/SQL routine
615 okl_ove_pvt.update_row(p_api_version,
616 p_init_msg_list,
617 x_return_status,
618 x_msg_count,
619 x_msg_data,
620 ddp_ovev_rec,
621 ddx_ovev_rec);
622
623 -- copy data back from the local variables to OUT or IN-OUT args, if any
624
625
626
627
628
629
630 p6_a0 := rosetta_g_miss_num_map(ddx_ovev_rec.id);
631 p6_a1 := rosetta_g_miss_num_map(ddx_ovev_rec.object_version_number);
632 p6_a2 := rosetta_g_miss_num_map(ddx_ovev_rec.opt_id);
633 p6_a3 := ddx_ovev_rec.value;
634 p6_a4 := ddx_ovev_rec.description;
635 p6_a5 := ddx_ovev_rec.from_date;
636 p6_a6 := ddx_ovev_rec.to_date;
637 p6_a7 := rosetta_g_miss_num_map(ddx_ovev_rec.created_by);
638 p6_a8 := ddx_ovev_rec.creation_date;
639 p6_a9 := rosetta_g_miss_num_map(ddx_ovev_rec.last_updated_by);
640 p6_a10 := ddx_ovev_rec.last_update_date;
641 p6_a11 := rosetta_g_miss_num_map(ddx_ovev_rec.last_update_login);
642 end;
643
644 procedure update_row(p_api_version NUMBER
645 , p_init_msg_list VARCHAR2
646 , x_return_status out nocopy VARCHAR2
647 , x_msg_count out nocopy NUMBER
648 , x_msg_data out nocopy VARCHAR2
649 , p5_a0 JTF_NUMBER_TABLE
650 , p5_a1 JTF_NUMBER_TABLE
651 , p5_a2 JTF_NUMBER_TABLE
652 , p5_a3 JTF_VARCHAR2_TABLE_200
653 , p5_a4 JTF_VARCHAR2_TABLE_2000
654 , p5_a5 JTF_DATE_TABLE
655 , p5_a6 JTF_DATE_TABLE
656 , p5_a7 JTF_NUMBER_TABLE
657 , p5_a8 JTF_DATE_TABLE
658 , p5_a9 JTF_NUMBER_TABLE
659 , p5_a10 JTF_DATE_TABLE
660 , p5_a11 JTF_NUMBER_TABLE
661 , p6_a0 out nocopy JTF_NUMBER_TABLE
662 , p6_a1 out nocopy JTF_NUMBER_TABLE
663 , p6_a2 out nocopy JTF_NUMBER_TABLE
664 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_200
665 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_2000
666 , p6_a5 out nocopy JTF_DATE_TABLE
667 , p6_a6 out nocopy JTF_DATE_TABLE
668 , p6_a7 out nocopy JTF_NUMBER_TABLE
669 , p6_a8 out nocopy JTF_DATE_TABLE
670 , p6_a9 out nocopy JTF_NUMBER_TABLE
671 , p6_a10 out nocopy JTF_DATE_TABLE
672 , p6_a11 out nocopy JTF_NUMBER_TABLE
673 )
674
675 as
676 ddp_ovev_tbl okl_ove_pvt.ovev_tbl_type;
677 ddx_ovev_tbl okl_ove_pvt.ovev_tbl_type;
678 ddindx binary_integer; indx binary_integer;
679 begin
680
681 -- copy data to the local IN or IN-OUT args, if any
682
683
684
685
686
687 okl_ove_pvt_w.rosetta_table_copy_in_p5(ddp_ovev_tbl, p5_a0
688 , p5_a1
689 , p5_a2
690 , p5_a3
691 , p5_a4
692 , p5_a5
693 , p5_a6
694 , p5_a7
695 , p5_a8
696 , p5_a9
697 , p5_a10
698 , p5_a11
699 );
700
701
702 -- here's the delegated call to the old PL/SQL routine
703 okl_ove_pvt.update_row(p_api_version,
704 p_init_msg_list,
705 x_return_status,
706 x_msg_count,
707 x_msg_data,
708 ddp_ovev_tbl,
709 ddx_ovev_tbl);
710
711 -- copy data back from the local variables to OUT or IN-OUT args, if any
712
713
714
715
716
717
718 okl_ove_pvt_w.rosetta_table_copy_out_p5(ddx_ovev_tbl, p6_a0
719 , p6_a1
720 , p6_a2
721 , p6_a3
722 , p6_a4
723 , p6_a5
724 , p6_a6
725 , p6_a7
726 , p6_a8
727 , p6_a9
728 , p6_a10
729 , p6_a11
730 );
731 end;
732
733 procedure delete_row(p_api_version NUMBER
734 , p_init_msg_list VARCHAR2
735 , x_return_status out nocopy VARCHAR2
736 , x_msg_count out nocopy NUMBER
737 , x_msg_data out nocopy VARCHAR2
738 , p5_a0 NUMBER := 0-1962.0724
739 , p5_a1 NUMBER := 0-1962.0724
740 , p5_a2 NUMBER := 0-1962.0724
741 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
742 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
743 , p5_a5 DATE := fnd_api.g_miss_date
744 , p5_a6 DATE := fnd_api.g_miss_date
745 , p5_a7 NUMBER := 0-1962.0724
746 , p5_a8 DATE := fnd_api.g_miss_date
747 , p5_a9 NUMBER := 0-1962.0724
748 , p5_a10 DATE := fnd_api.g_miss_date
749 , p5_a11 NUMBER := 0-1962.0724
750 )
751
752 as
753 ddp_ovev_rec okl_ove_pvt.ovev_rec_type;
754 ddindx binary_integer; indx binary_integer;
755 begin
756
757 -- copy data to the local IN or IN-OUT args, if any
758
759
760
761
762
763 ddp_ovev_rec.id := rosetta_g_miss_num_map(p5_a0);
764 ddp_ovev_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
765 ddp_ovev_rec.opt_id := rosetta_g_miss_num_map(p5_a2);
766 ddp_ovev_rec.value := p5_a3;
767 ddp_ovev_rec.description := p5_a4;
768 ddp_ovev_rec.from_date := rosetta_g_miss_date_in_map(p5_a5);
769 ddp_ovev_rec.to_date := rosetta_g_miss_date_in_map(p5_a6);
770 ddp_ovev_rec.created_by := rosetta_g_miss_num_map(p5_a7);
771 ddp_ovev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a8);
772 ddp_ovev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a9);
773 ddp_ovev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a10);
774 ddp_ovev_rec.last_update_login := rosetta_g_miss_num_map(p5_a11);
775
776 -- here's the delegated call to the old PL/SQL routine
777 okl_ove_pvt.delete_row(p_api_version,
778 p_init_msg_list,
779 x_return_status,
780 x_msg_count,
781 x_msg_data,
782 ddp_ovev_rec);
783
784 -- copy data back from the local variables to OUT or IN-OUT args, if any
785
786
787
788
789
790 end;
791
792 procedure delete_row(p_api_version NUMBER
793 , p_init_msg_list VARCHAR2
794 , x_return_status out nocopy VARCHAR2
795 , x_msg_count out nocopy NUMBER
796 , x_msg_data out nocopy VARCHAR2
797 , p5_a0 JTF_NUMBER_TABLE
798 , p5_a1 JTF_NUMBER_TABLE
799 , p5_a2 JTF_NUMBER_TABLE
800 , p5_a3 JTF_VARCHAR2_TABLE_200
801 , p5_a4 JTF_VARCHAR2_TABLE_2000
802 , p5_a5 JTF_DATE_TABLE
803 , p5_a6 JTF_DATE_TABLE
804 , p5_a7 JTF_NUMBER_TABLE
805 , p5_a8 JTF_DATE_TABLE
806 , p5_a9 JTF_NUMBER_TABLE
807 , p5_a10 JTF_DATE_TABLE
808 , p5_a11 JTF_NUMBER_TABLE
809 )
810
811 as
812 ddp_ovev_tbl okl_ove_pvt.ovev_tbl_type;
813 ddindx binary_integer; indx binary_integer;
814 begin
815
816 -- copy data to the local IN or IN-OUT args, if any
817
818
819
820
821
822 okl_ove_pvt_w.rosetta_table_copy_in_p5(ddp_ovev_tbl, p5_a0
823 , p5_a1
824 , p5_a2
825 , p5_a3
826 , p5_a4
827 , p5_a5
828 , p5_a6
829 , p5_a7
830 , p5_a8
831 , p5_a9
832 , p5_a10
833 , p5_a11
834 );
835
836 -- here's the delegated call to the old PL/SQL routine
837 okl_ove_pvt.delete_row(p_api_version,
838 p_init_msg_list,
839 x_return_status,
840 x_msg_count,
841 x_msg_data,
842 ddp_ovev_tbl);
843
844 -- copy data back from the local variables to OUT or IN-OUT args, if any
845
846
847
848
849
850 end;
851
852 procedure validate_row(p_api_version NUMBER
853 , p_init_msg_list VARCHAR2
854 , x_return_status out nocopy VARCHAR2
855 , x_msg_count out nocopy NUMBER
856 , x_msg_data out nocopy VARCHAR2
857 , p5_a0 NUMBER := 0-1962.0724
858 , p5_a1 NUMBER := 0-1962.0724
859 , p5_a2 NUMBER := 0-1962.0724
860 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
861 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
862 , p5_a5 DATE := fnd_api.g_miss_date
863 , p5_a6 DATE := fnd_api.g_miss_date
864 , p5_a7 NUMBER := 0-1962.0724
865 , p5_a8 DATE := fnd_api.g_miss_date
866 , p5_a9 NUMBER := 0-1962.0724
867 , p5_a10 DATE := fnd_api.g_miss_date
868 , p5_a11 NUMBER := 0-1962.0724
869 )
870
871 as
872 ddp_ovev_rec okl_ove_pvt.ovev_rec_type;
873 ddindx binary_integer; indx binary_integer;
874 begin
875
876 -- copy data to the local IN or IN-OUT args, if any
877
878
879
880
881
882 ddp_ovev_rec.id := rosetta_g_miss_num_map(p5_a0);
883 ddp_ovev_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
884 ddp_ovev_rec.opt_id := rosetta_g_miss_num_map(p5_a2);
885 ddp_ovev_rec.value := p5_a3;
886 ddp_ovev_rec.description := p5_a4;
887 ddp_ovev_rec.from_date := rosetta_g_miss_date_in_map(p5_a5);
888 ddp_ovev_rec.to_date := rosetta_g_miss_date_in_map(p5_a6);
889 ddp_ovev_rec.created_by := rosetta_g_miss_num_map(p5_a7);
890 ddp_ovev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a8);
891 ddp_ovev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a9);
892 ddp_ovev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a10);
893 ddp_ovev_rec.last_update_login := rosetta_g_miss_num_map(p5_a11);
894
895 -- here's the delegated call to the old PL/SQL routine
896 okl_ove_pvt.validate_row(p_api_version,
897 p_init_msg_list,
898 x_return_status,
899 x_msg_count,
900 x_msg_data,
901 ddp_ovev_rec);
902
903 -- copy data back from the local variables to OUT or IN-OUT args, if any
904
905
906
907
908
909 end;
910
911 procedure validate_row(p_api_version NUMBER
912 , p_init_msg_list VARCHAR2
913 , x_return_status out nocopy VARCHAR2
914 , x_msg_count out nocopy NUMBER
915 , x_msg_data out nocopy VARCHAR2
916 , p5_a0 JTF_NUMBER_TABLE
917 , p5_a1 JTF_NUMBER_TABLE
918 , p5_a2 JTF_NUMBER_TABLE
919 , p5_a3 JTF_VARCHAR2_TABLE_200
920 , p5_a4 JTF_VARCHAR2_TABLE_2000
921 , p5_a5 JTF_DATE_TABLE
922 , p5_a6 JTF_DATE_TABLE
923 , p5_a7 JTF_NUMBER_TABLE
924 , p5_a8 JTF_DATE_TABLE
925 , p5_a9 JTF_NUMBER_TABLE
926 , p5_a10 JTF_DATE_TABLE
927 , p5_a11 JTF_NUMBER_TABLE
928 )
929
930 as
931 ddp_ovev_tbl okl_ove_pvt.ovev_tbl_type;
932 ddindx binary_integer; indx binary_integer;
933 begin
934
935 -- copy data to the local IN or IN-OUT args, if any
936
937
938
939
940
941 okl_ove_pvt_w.rosetta_table_copy_in_p5(ddp_ovev_tbl, p5_a0
942 , p5_a1
943 , p5_a2
944 , p5_a3
945 , p5_a4
946 , p5_a5
947 , p5_a6
948 , p5_a7
949 , p5_a8
950 , p5_a9
951 , p5_a10
952 , p5_a11
953 );
954
955 -- here's the delegated call to the old PL/SQL routine
956 okl_ove_pvt.validate_row(p_api_version,
957 p_init_msg_list,
958 x_return_status,
959 x_msg_count,
960 x_msg_data,
961 ddp_ovev_tbl);
962
963 -- copy data back from the local variables to OUT or IN-OUT args, if any
964
965
966
967
968
969 end;
970
971 end okl_ove_pvt_w;