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