[Home] [Help]
PACKAGE BODY: APPS.OKL_OPD_PVT_W
Source
1 package body okl_opd_pvt_w as
2 /* $Header: OKLIOPDB.pls 120.1 2005/07/14 11:57:30 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_opd_pvt.opd_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_VARCHAR2_TABLE_200
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_VARCHAR2_TABLE_100
27 , a5 JTF_VARCHAR2_TABLE_100
28 , a6 JTF_NUMBER_TABLE
29 , a7 JTF_NUMBER_TABLE
30 , a8 JTF_DATE_TABLE
31 , a9 JTF_VARCHAR2_TABLE_200
32 , a10 JTF_NUMBER_TABLE
33 , a11 JTF_DATE_TABLE
34 , a12 JTF_NUMBER_TABLE
35 , a13 JTF_DATE_TABLE
36 , a14 JTF_NUMBER_TABLE
37 , a15 JTF_DATE_TABLE
38 ) as
39 ddindx binary_integer; indx binary_integer;
40 begin
41 if a0 is not null and a0.count > 0 then
42 if a0.count > 0 then
43 indx := a0.first;
44 ddindx := 1;
45 while true loop
46 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
47 t(ddindx).name := a1(indx);
48 t(ddindx).fma_id := rosetta_g_miss_num_map(a2(indx));
49 t(ddindx).dsf_id := rosetta_g_miss_num_map(a3(indx));
50 t(ddindx).version := a4(indx);
51 t(ddindx).opd_type := a5(indx);
52 t(ddindx).object_version_number := rosetta_g_miss_num_map(a6(indx));
53 t(ddindx).org_id := rosetta_g_miss_num_map(a7(indx));
54 t(ddindx).start_date := rosetta_g_miss_date_in_map(a8(indx));
55 t(ddindx).source := a9(indx);
56 t(ddindx).created_by := rosetta_g_miss_num_map(a10(indx));
57 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a11(indx));
58 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a12(indx));
59 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a13(indx));
60 t(ddindx).last_update_login := rosetta_g_miss_num_map(a14(indx));
61 t(ddindx).end_date := rosetta_g_miss_date_in_map(a15(indx));
62 ddindx := ddindx+1;
63 if a0.last =indx
64 then exit;
65 end if;
66 indx := a0.next(indx);
67 end loop;
68 end if;
69 end if;
70 end rosetta_table_copy_in_p2;
71 procedure rosetta_table_copy_out_p2(t okl_opd_pvt.opd_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
72 , a1 out nocopy JTF_VARCHAR2_TABLE_200
73 , a2 out nocopy JTF_NUMBER_TABLE
74 , a3 out nocopy JTF_NUMBER_TABLE
75 , a4 out nocopy JTF_VARCHAR2_TABLE_100
76 , a5 out nocopy JTF_VARCHAR2_TABLE_100
77 , a6 out nocopy JTF_NUMBER_TABLE
78 , a7 out nocopy JTF_NUMBER_TABLE
79 , a8 out nocopy JTF_DATE_TABLE
80 , a9 out nocopy JTF_VARCHAR2_TABLE_200
81 , a10 out nocopy JTF_NUMBER_TABLE
82 , a11 out nocopy JTF_DATE_TABLE
83 , a12 out nocopy JTF_NUMBER_TABLE
84 , a13 out nocopy JTF_DATE_TABLE
85 , a14 out nocopy JTF_NUMBER_TABLE
86 , a15 out nocopy JTF_DATE_TABLE
87 ) as
88 ddindx binary_integer; indx binary_integer;
89 begin
90 if t is null or t.count = 0 then
91 a0 := JTF_NUMBER_TABLE();
92 a1 := JTF_VARCHAR2_TABLE_200();
93 a2 := JTF_NUMBER_TABLE();
94 a3 := JTF_NUMBER_TABLE();
95 a4 := JTF_VARCHAR2_TABLE_100();
96 a5 := JTF_VARCHAR2_TABLE_100();
97 a6 := JTF_NUMBER_TABLE();
98 a7 := JTF_NUMBER_TABLE();
99 a8 := JTF_DATE_TABLE();
100 a9 := JTF_VARCHAR2_TABLE_200();
101 a10 := JTF_NUMBER_TABLE();
102 a11 := JTF_DATE_TABLE();
103 a12 := JTF_NUMBER_TABLE();
104 a13 := JTF_DATE_TABLE();
105 a14 := JTF_NUMBER_TABLE();
106 a15 := JTF_DATE_TABLE();
107 else
108 a0 := JTF_NUMBER_TABLE();
109 a1 := JTF_VARCHAR2_TABLE_200();
110 a2 := JTF_NUMBER_TABLE();
111 a3 := JTF_NUMBER_TABLE();
112 a4 := JTF_VARCHAR2_TABLE_100();
113 a5 := JTF_VARCHAR2_TABLE_100();
114 a6 := JTF_NUMBER_TABLE();
115 a7 := JTF_NUMBER_TABLE();
116 a8 := JTF_DATE_TABLE();
117 a9 := JTF_VARCHAR2_TABLE_200();
118 a10 := JTF_NUMBER_TABLE();
119 a11 := JTF_DATE_TABLE();
120 a12 := JTF_NUMBER_TABLE();
121 a13 := JTF_DATE_TABLE();
122 a14 := JTF_NUMBER_TABLE();
123 a15 := JTF_DATE_TABLE();
124 if t.count > 0 then
125 a0.extend(t.count);
126 a1.extend(t.count);
127 a2.extend(t.count);
128 a3.extend(t.count);
129 a4.extend(t.count);
130 a5.extend(t.count);
131 a6.extend(t.count);
132 a7.extend(t.count);
133 a8.extend(t.count);
134 a9.extend(t.count);
135 a10.extend(t.count);
136 a11.extend(t.count);
137 a12.extend(t.count);
138 a13.extend(t.count);
139 a14.extend(t.count);
140 a15.extend(t.count);
141 ddindx := t.first;
142 indx := 1;
143 while true loop
144 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
145 a1(indx) := t(ddindx).name;
146 a2(indx) := rosetta_g_miss_num_map(t(ddindx).fma_id);
147 a3(indx) := rosetta_g_miss_num_map(t(ddindx).dsf_id);
148 a4(indx) := t(ddindx).version;
149 a5(indx) := t(ddindx).opd_type;
150 a6(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
151 a7(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
152 a8(indx) := t(ddindx).start_date;
153 a9(indx) := t(ddindx).source;
154 a10(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
155 a11(indx) := t(ddindx).creation_date;
156 a12(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
157 a13(indx) := t(ddindx).last_update_date;
158 a14(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
159 a15(indx) := t(ddindx).end_date;
160 indx := indx+1;
161 if t.last =ddindx
162 then exit;
163 end if;
164 ddindx := t.next(ddindx);
165 end loop;
166 end if;
167 end if;
168 end rosetta_table_copy_out_p2;
169
170 procedure rosetta_table_copy_in_p5(t out nocopy okl_opd_pvt.okl_operands_tl_tbl_type, a0 JTF_NUMBER_TABLE
171 , a1 JTF_VARCHAR2_TABLE_100
172 , a2 JTF_VARCHAR2_TABLE_100
173 , a3 JTF_VARCHAR2_TABLE_100
174 , a4 JTF_VARCHAR2_TABLE_2000
175 , a5 JTF_NUMBER_TABLE
176 , a6 JTF_DATE_TABLE
177 , a7 JTF_NUMBER_TABLE
178 , a8 JTF_DATE_TABLE
179 , a9 JTF_NUMBER_TABLE
180 ) as
181 ddindx binary_integer; indx binary_integer;
182 begin
183 if a0 is not null and a0.count > 0 then
184 if a0.count > 0 then
185 indx := a0.first;
186 ddindx := 1;
187 while true loop
188 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
189 t(ddindx).language := a1(indx);
190 t(ddindx).source_lang := a2(indx);
191 t(ddindx).sfwt_flag := a3(indx);
192 t(ddindx).description := a4(indx);
193 t(ddindx).created_by := rosetta_g_miss_num_map(a5(indx));
194 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a6(indx));
195 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a7(indx));
196 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a8(indx));
197 t(ddindx).last_update_login := rosetta_g_miss_num_map(a9(indx));
198 ddindx := ddindx+1;
199 if a0.last =indx
200 then exit;
201 end if;
202 indx := a0.next(indx);
203 end loop;
204 end if;
205 end if;
206 end rosetta_table_copy_in_p5;
207 procedure rosetta_table_copy_out_p5(t okl_opd_pvt.okl_operands_tl_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
208 , a1 out nocopy JTF_VARCHAR2_TABLE_100
209 , a2 out nocopy JTF_VARCHAR2_TABLE_100
210 , a3 out nocopy JTF_VARCHAR2_TABLE_100
211 , a4 out nocopy JTF_VARCHAR2_TABLE_2000
212 , a5 out nocopy JTF_NUMBER_TABLE
213 , a6 out nocopy JTF_DATE_TABLE
214 , a7 out nocopy JTF_NUMBER_TABLE
215 , a8 out nocopy JTF_DATE_TABLE
216 , a9 out nocopy JTF_NUMBER_TABLE
217 ) as
218 ddindx binary_integer; indx binary_integer;
219 begin
220 if t is null or t.count = 0 then
221 a0 := JTF_NUMBER_TABLE();
222 a1 := JTF_VARCHAR2_TABLE_100();
223 a2 := JTF_VARCHAR2_TABLE_100();
224 a3 := JTF_VARCHAR2_TABLE_100();
225 a4 := JTF_VARCHAR2_TABLE_2000();
226 a5 := JTF_NUMBER_TABLE();
227 a6 := JTF_DATE_TABLE();
228 a7 := JTF_NUMBER_TABLE();
229 a8 := JTF_DATE_TABLE();
230 a9 := JTF_NUMBER_TABLE();
231 else
232 a0 := JTF_NUMBER_TABLE();
233 a1 := JTF_VARCHAR2_TABLE_100();
234 a2 := JTF_VARCHAR2_TABLE_100();
235 a3 := JTF_VARCHAR2_TABLE_100();
236 a4 := JTF_VARCHAR2_TABLE_2000();
237 a5 := JTF_NUMBER_TABLE();
238 a6 := JTF_DATE_TABLE();
239 a7 := JTF_NUMBER_TABLE();
240 a8 := JTF_DATE_TABLE();
241 a9 := JTF_NUMBER_TABLE();
242 if t.count > 0 then
243 a0.extend(t.count);
244 a1.extend(t.count);
245 a2.extend(t.count);
246 a3.extend(t.count);
247 a4.extend(t.count);
248 a5.extend(t.count);
249 a6.extend(t.count);
250 a7.extend(t.count);
251 a8.extend(t.count);
252 a9.extend(t.count);
253 ddindx := t.first;
254 indx := 1;
255 while true loop
256 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
257 a1(indx) := t(ddindx).language;
258 a2(indx) := t(ddindx).source_lang;
259 a3(indx) := t(ddindx).sfwt_flag;
260 a4(indx) := t(ddindx).description;
261 a5(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
262 a6(indx) := t(ddindx).creation_date;
263 a7(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
264 a8(indx) := t(ddindx).last_update_date;
265 a9(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
266 indx := indx+1;
267 if t.last =ddindx
268 then exit;
269 end if;
270 ddindx := t.next(ddindx);
271 end loop;
272 end if;
273 end if;
274 end rosetta_table_copy_out_p5;
275
276 procedure rosetta_table_copy_in_p8(t out nocopy okl_opd_pvt.opdv_tbl_type, a0 JTF_NUMBER_TABLE
277 , a1 JTF_NUMBER_TABLE
278 , a2 JTF_VARCHAR2_TABLE_100
279 , a3 JTF_NUMBER_TABLE
280 , a4 JTF_NUMBER_TABLE
281 , a5 JTF_VARCHAR2_TABLE_200
282 , a6 JTF_VARCHAR2_TABLE_2000
283 , a7 JTF_VARCHAR2_TABLE_100
284 , a8 JTF_DATE_TABLE
285 , a9 JTF_DATE_TABLE
286 , a10 JTF_VARCHAR2_TABLE_200
287 , a11 JTF_VARCHAR2_TABLE_100
288 , a12 JTF_NUMBER_TABLE
289 , a13 JTF_NUMBER_TABLE
290 , a14 JTF_DATE_TABLE
291 , a15 JTF_NUMBER_TABLE
292 , a16 JTF_DATE_TABLE
293 , a17 JTF_NUMBER_TABLE
294 ) as
295 ddindx binary_integer; indx binary_integer;
296 begin
297 if a0 is not null and a0.count > 0 then
298 if a0.count > 0 then
299 indx := a0.first;
300 ddindx := 1;
301 while true loop
302 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
303 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
304 t(ddindx).sfwt_flag := a2(indx);
305 t(ddindx).fma_id := rosetta_g_miss_num_map(a3(indx));
306 t(ddindx).dsf_id := rosetta_g_miss_num_map(a4(indx));
307 t(ddindx).name := a5(indx);
308 t(ddindx).description := a6(indx);
309 t(ddindx).version := a7(indx);
310 t(ddindx).start_date := rosetta_g_miss_date_in_map(a8(indx));
311 t(ddindx).end_date := rosetta_g_miss_date_in_map(a9(indx));
312 t(ddindx).source := a10(indx);
313 t(ddindx).opd_type := a11(indx);
314 t(ddindx).org_id := rosetta_g_miss_num_map(a12(indx));
315 t(ddindx).created_by := rosetta_g_miss_num_map(a13(indx));
316 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a14(indx));
317 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a15(indx));
318 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a16(indx));
319 t(ddindx).last_update_login := rosetta_g_miss_num_map(a17(indx));
320 ddindx := ddindx+1;
321 if a0.last =indx
322 then exit;
323 end if;
324 indx := a0.next(indx);
325 end loop;
326 end if;
327 end if;
328 end rosetta_table_copy_in_p8;
329 procedure rosetta_table_copy_out_p8(t okl_opd_pvt.opdv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
330 , a1 out nocopy JTF_NUMBER_TABLE
331 , a2 out nocopy JTF_VARCHAR2_TABLE_100
332 , a3 out nocopy JTF_NUMBER_TABLE
333 , a4 out nocopy JTF_NUMBER_TABLE
334 , a5 out nocopy JTF_VARCHAR2_TABLE_200
335 , a6 out nocopy JTF_VARCHAR2_TABLE_2000
336 , a7 out nocopy JTF_VARCHAR2_TABLE_100
337 , a8 out nocopy JTF_DATE_TABLE
338 , a9 out nocopy JTF_DATE_TABLE
339 , a10 out nocopy JTF_VARCHAR2_TABLE_200
340 , a11 out nocopy JTF_VARCHAR2_TABLE_100
341 , a12 out nocopy JTF_NUMBER_TABLE
342 , a13 out nocopy JTF_NUMBER_TABLE
343 , a14 out nocopy JTF_DATE_TABLE
344 , a15 out nocopy JTF_NUMBER_TABLE
345 , a16 out nocopy JTF_DATE_TABLE
346 , a17 out nocopy JTF_NUMBER_TABLE
347 ) as
348 ddindx binary_integer; indx binary_integer;
349 begin
350 if t is null or t.count = 0 then
351 a0 := JTF_NUMBER_TABLE();
352 a1 := JTF_NUMBER_TABLE();
353 a2 := JTF_VARCHAR2_TABLE_100();
354 a3 := JTF_NUMBER_TABLE();
355 a4 := JTF_NUMBER_TABLE();
356 a5 := JTF_VARCHAR2_TABLE_200();
357 a6 := JTF_VARCHAR2_TABLE_2000();
358 a7 := JTF_VARCHAR2_TABLE_100();
359 a8 := JTF_DATE_TABLE();
360 a9 := JTF_DATE_TABLE();
361 a10 := JTF_VARCHAR2_TABLE_200();
362 a11 := JTF_VARCHAR2_TABLE_100();
363 a12 := JTF_NUMBER_TABLE();
364 a13 := JTF_NUMBER_TABLE();
365 a14 := JTF_DATE_TABLE();
366 a15 := JTF_NUMBER_TABLE();
367 a16 := JTF_DATE_TABLE();
368 a17 := JTF_NUMBER_TABLE();
369 else
370 a0 := JTF_NUMBER_TABLE();
371 a1 := JTF_NUMBER_TABLE();
372 a2 := JTF_VARCHAR2_TABLE_100();
373 a3 := JTF_NUMBER_TABLE();
374 a4 := JTF_NUMBER_TABLE();
375 a5 := JTF_VARCHAR2_TABLE_200();
376 a6 := JTF_VARCHAR2_TABLE_2000();
377 a7 := JTF_VARCHAR2_TABLE_100();
378 a8 := JTF_DATE_TABLE();
379 a9 := JTF_DATE_TABLE();
380 a10 := JTF_VARCHAR2_TABLE_200();
381 a11 := JTF_VARCHAR2_TABLE_100();
382 a12 := JTF_NUMBER_TABLE();
383 a13 := JTF_NUMBER_TABLE();
384 a14 := JTF_DATE_TABLE();
385 a15 := JTF_NUMBER_TABLE();
386 a16 := JTF_DATE_TABLE();
387 a17 := JTF_NUMBER_TABLE();
388 if t.count > 0 then
389 a0.extend(t.count);
390 a1.extend(t.count);
391 a2.extend(t.count);
392 a3.extend(t.count);
393 a4.extend(t.count);
394 a5.extend(t.count);
395 a6.extend(t.count);
396 a7.extend(t.count);
397 a8.extend(t.count);
398 a9.extend(t.count);
399 a10.extend(t.count);
400 a11.extend(t.count);
401 a12.extend(t.count);
402 a13.extend(t.count);
403 a14.extend(t.count);
404 a15.extend(t.count);
405 a16.extend(t.count);
406 a17.extend(t.count);
407 ddindx := t.first;
408 indx := 1;
409 while true loop
410 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
411 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
412 a2(indx) := t(ddindx).sfwt_flag;
413 a3(indx) := rosetta_g_miss_num_map(t(ddindx).fma_id);
414 a4(indx) := rosetta_g_miss_num_map(t(ddindx).dsf_id);
415 a5(indx) := t(ddindx).name;
416 a6(indx) := t(ddindx).description;
417 a7(indx) := t(ddindx).version;
418 a8(indx) := t(ddindx).start_date;
419 a9(indx) := t(ddindx).end_date;
420 a10(indx) := t(ddindx).source;
421 a11(indx) := t(ddindx).opd_type;
422 a12(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
423 a13(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
424 a14(indx) := t(ddindx).creation_date;
425 a15(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
426 a16(indx) := t(ddindx).last_update_date;
427 a17(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
428 indx := indx+1;
429 if t.last =ddindx
430 then exit;
431 end if;
432 ddindx := t.next(ddindx);
433 end loop;
434 end if;
435 end if;
436 end rosetta_table_copy_out_p8;
437
438 procedure insert_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 , p6_a0 out nocopy NUMBER
444 , p6_a1 out nocopy NUMBER
445 , p6_a2 out nocopy VARCHAR2
446 , p6_a3 out nocopy NUMBER
447 , p6_a4 out nocopy NUMBER
448 , p6_a5 out nocopy VARCHAR2
449 , p6_a6 out nocopy VARCHAR2
450 , p6_a7 out nocopy VARCHAR2
451 , p6_a8 out nocopy DATE
452 , p6_a9 out nocopy DATE
453 , p6_a10 out nocopy VARCHAR2
454 , p6_a11 out nocopy VARCHAR2
455 , p6_a12 out nocopy NUMBER
456 , p6_a13 out nocopy NUMBER
457 , p6_a14 out nocopy DATE
458 , p6_a15 out nocopy NUMBER
459 , p6_a16 out nocopy DATE
460 , p6_a17 out nocopy NUMBER
461 , p5_a0 NUMBER := 0-1962.0724
462 , p5_a1 NUMBER := 0-1962.0724
463 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
464 , p5_a3 NUMBER := 0-1962.0724
465 , p5_a4 NUMBER := 0-1962.0724
466 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
467 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
468 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
469 , p5_a8 DATE := fnd_api.g_miss_date
470 , p5_a9 DATE := fnd_api.g_miss_date
471 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
472 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
473 , p5_a12 NUMBER := 0-1962.0724
474 , p5_a13 NUMBER := 0-1962.0724
475 , p5_a14 DATE := fnd_api.g_miss_date
476 , p5_a15 NUMBER := 0-1962.0724
477 , p5_a16 DATE := fnd_api.g_miss_date
478 , p5_a17 NUMBER := 0-1962.0724
479 )
480
481 as
482 ddp_opdv_rec okl_opd_pvt.opdv_rec_type;
483 ddx_opdv_rec okl_opd_pvt.opdv_rec_type;
484 ddindx binary_integer; indx binary_integer;
485 begin
486
487 -- copy data to the local IN or IN-OUT args, if any
488
489
490
491
492
493 ddp_opdv_rec.id := rosetta_g_miss_num_map(p5_a0);
494 ddp_opdv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
495 ddp_opdv_rec.sfwt_flag := p5_a2;
496 ddp_opdv_rec.fma_id := rosetta_g_miss_num_map(p5_a3);
497 ddp_opdv_rec.dsf_id := rosetta_g_miss_num_map(p5_a4);
498 ddp_opdv_rec.name := p5_a5;
499 ddp_opdv_rec.description := p5_a6;
500 ddp_opdv_rec.version := p5_a7;
501 ddp_opdv_rec.start_date := rosetta_g_miss_date_in_map(p5_a8);
502 ddp_opdv_rec.end_date := rosetta_g_miss_date_in_map(p5_a9);
503 ddp_opdv_rec.source := p5_a10;
504 ddp_opdv_rec.opd_type := p5_a11;
505 ddp_opdv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
506 ddp_opdv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
507 ddp_opdv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
508 ddp_opdv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
509 ddp_opdv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
510 ddp_opdv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
511
512
513 -- here's the delegated call to the old PL/SQL routine
514 okl_opd_pvt.insert_row(p_api_version,
515 p_init_msg_list,
516 x_return_status,
517 x_msg_count,
518 x_msg_data,
519 ddp_opdv_rec,
520 ddx_opdv_rec);
521
522 -- copy data back from the local variables to OUT or IN-OUT args, if any
523
524
525
526
527
528
529 p6_a0 := rosetta_g_miss_num_map(ddx_opdv_rec.id);
530 p6_a1 := rosetta_g_miss_num_map(ddx_opdv_rec.object_version_number);
531 p6_a2 := ddx_opdv_rec.sfwt_flag;
532 p6_a3 := rosetta_g_miss_num_map(ddx_opdv_rec.fma_id);
533 p6_a4 := rosetta_g_miss_num_map(ddx_opdv_rec.dsf_id);
534 p6_a5 := ddx_opdv_rec.name;
535 p6_a6 := ddx_opdv_rec.description;
536 p6_a7 := ddx_opdv_rec.version;
537 p6_a8 := ddx_opdv_rec.start_date;
538 p6_a9 := ddx_opdv_rec.end_date;
539 p6_a10 := ddx_opdv_rec.source;
540 p6_a11 := ddx_opdv_rec.opd_type;
541 p6_a12 := rosetta_g_miss_num_map(ddx_opdv_rec.org_id);
542 p6_a13 := rosetta_g_miss_num_map(ddx_opdv_rec.created_by);
543 p6_a14 := ddx_opdv_rec.creation_date;
544 p6_a15 := rosetta_g_miss_num_map(ddx_opdv_rec.last_updated_by);
545 p6_a16 := ddx_opdv_rec.last_update_date;
546 p6_a17 := rosetta_g_miss_num_map(ddx_opdv_rec.last_update_login);
547 end;
548
549 procedure insert_row(p_api_version NUMBER
550 , p_init_msg_list VARCHAR2
551 , x_return_status out nocopy VARCHAR2
552 , x_msg_count out nocopy NUMBER
553 , x_msg_data out nocopy VARCHAR2
554 , p5_a0 JTF_NUMBER_TABLE
555 , p5_a1 JTF_NUMBER_TABLE
556 , p5_a2 JTF_VARCHAR2_TABLE_100
557 , p5_a3 JTF_NUMBER_TABLE
558 , p5_a4 JTF_NUMBER_TABLE
559 , p5_a5 JTF_VARCHAR2_TABLE_200
560 , p5_a6 JTF_VARCHAR2_TABLE_2000
561 , p5_a7 JTF_VARCHAR2_TABLE_100
562 , p5_a8 JTF_DATE_TABLE
563 , p5_a9 JTF_DATE_TABLE
564 , p5_a10 JTF_VARCHAR2_TABLE_200
565 , p5_a11 JTF_VARCHAR2_TABLE_100
566 , p5_a12 JTF_NUMBER_TABLE
567 , p5_a13 JTF_NUMBER_TABLE
568 , p5_a14 JTF_DATE_TABLE
569 , p5_a15 JTF_NUMBER_TABLE
570 , p5_a16 JTF_DATE_TABLE
571 , p5_a17 JTF_NUMBER_TABLE
572 , p6_a0 out nocopy JTF_NUMBER_TABLE
573 , p6_a1 out nocopy JTF_NUMBER_TABLE
574 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
575 , p6_a3 out nocopy JTF_NUMBER_TABLE
576 , p6_a4 out nocopy JTF_NUMBER_TABLE
577 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_200
578 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_2000
579 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
580 , p6_a8 out nocopy JTF_DATE_TABLE
581 , p6_a9 out nocopy JTF_DATE_TABLE
582 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_200
583 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
584 , p6_a12 out nocopy JTF_NUMBER_TABLE
585 , p6_a13 out nocopy JTF_NUMBER_TABLE
586 , p6_a14 out nocopy JTF_DATE_TABLE
587 , p6_a15 out nocopy JTF_NUMBER_TABLE
588 , p6_a16 out nocopy JTF_DATE_TABLE
589 , p6_a17 out nocopy JTF_NUMBER_TABLE
590 )
591
592 as
593 ddp_opdv_tbl okl_opd_pvt.opdv_tbl_type;
594 ddx_opdv_tbl okl_opd_pvt.opdv_tbl_type;
595 ddindx binary_integer; indx binary_integer;
596 begin
597
598 -- copy data to the local IN or IN-OUT args, if any
599
600
601
602
603
604 okl_opd_pvt_w.rosetta_table_copy_in_p8(ddp_opdv_tbl, p5_a0
605 , p5_a1
606 , p5_a2
607 , p5_a3
608 , p5_a4
609 , p5_a5
610 , p5_a6
611 , p5_a7
612 , p5_a8
613 , p5_a9
614 , p5_a10
615 , p5_a11
616 , p5_a12
617 , p5_a13
618 , p5_a14
619 , p5_a15
620 , p5_a16
621 , p5_a17
622 );
623
624
625 -- here's the delegated call to the old PL/SQL routine
626 okl_opd_pvt.insert_row(p_api_version,
627 p_init_msg_list,
628 x_return_status,
629 x_msg_count,
630 x_msg_data,
631 ddp_opdv_tbl,
632 ddx_opdv_tbl);
633
634 -- copy data back from the local variables to OUT or IN-OUT args, if any
635
636
637
638
639
640
641 okl_opd_pvt_w.rosetta_table_copy_out_p8(ddx_opdv_tbl, p6_a0
642 , p6_a1
643 , p6_a2
644 , p6_a3
645 , p6_a4
646 , p6_a5
647 , p6_a6
648 , p6_a7
649 , p6_a8
650 , p6_a9
651 , p6_a10
652 , p6_a11
653 , p6_a12
654 , p6_a13
655 , p6_a14
656 , p6_a15
657 , p6_a16
658 , p6_a17
659 );
660 end;
661
662 procedure lock_row(p_api_version NUMBER
663 , p_init_msg_list VARCHAR2
664 , x_return_status out nocopy VARCHAR2
665 , x_msg_count out nocopy NUMBER
666 , x_msg_data out nocopy VARCHAR2
667 , p5_a0 NUMBER := 0-1962.0724
668 , p5_a1 NUMBER := 0-1962.0724
669 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
670 , p5_a3 NUMBER := 0-1962.0724
671 , p5_a4 NUMBER := 0-1962.0724
672 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
673 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
674 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
675 , p5_a8 DATE := fnd_api.g_miss_date
676 , p5_a9 DATE := fnd_api.g_miss_date
677 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
678 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
679 , p5_a12 NUMBER := 0-1962.0724
680 , p5_a13 NUMBER := 0-1962.0724
681 , p5_a14 DATE := fnd_api.g_miss_date
682 , p5_a15 NUMBER := 0-1962.0724
683 , p5_a16 DATE := fnd_api.g_miss_date
684 , p5_a17 NUMBER := 0-1962.0724
685 )
686
687 as
688 ddp_opdv_rec okl_opd_pvt.opdv_rec_type;
689 ddindx binary_integer; indx binary_integer;
690 begin
691
692 -- copy data to the local IN or IN-OUT args, if any
693
694
695
696
697
698 ddp_opdv_rec.id := rosetta_g_miss_num_map(p5_a0);
699 ddp_opdv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
700 ddp_opdv_rec.sfwt_flag := p5_a2;
701 ddp_opdv_rec.fma_id := rosetta_g_miss_num_map(p5_a3);
702 ddp_opdv_rec.dsf_id := rosetta_g_miss_num_map(p5_a4);
703 ddp_opdv_rec.name := p5_a5;
704 ddp_opdv_rec.description := p5_a6;
705 ddp_opdv_rec.version := p5_a7;
706 ddp_opdv_rec.start_date := rosetta_g_miss_date_in_map(p5_a8);
707 ddp_opdv_rec.end_date := rosetta_g_miss_date_in_map(p5_a9);
708 ddp_opdv_rec.source := p5_a10;
709 ddp_opdv_rec.opd_type := p5_a11;
710 ddp_opdv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
711 ddp_opdv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
712 ddp_opdv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
713 ddp_opdv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
714 ddp_opdv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
715 ddp_opdv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
716
717 -- here's the delegated call to the old PL/SQL routine
718 okl_opd_pvt.lock_row(p_api_version,
719 p_init_msg_list,
720 x_return_status,
721 x_msg_count,
722 x_msg_data,
723 ddp_opdv_rec);
724
725 -- copy data back from the local variables to OUT or IN-OUT args, if any
726
727
728
729
730
731 end;
732
733 procedure lock_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 JTF_NUMBER_TABLE
739 , p5_a1 JTF_NUMBER_TABLE
740 , p5_a2 JTF_VARCHAR2_TABLE_100
741 , p5_a3 JTF_NUMBER_TABLE
742 , p5_a4 JTF_NUMBER_TABLE
743 , p5_a5 JTF_VARCHAR2_TABLE_200
744 , p5_a6 JTF_VARCHAR2_TABLE_2000
745 , p5_a7 JTF_VARCHAR2_TABLE_100
746 , p5_a8 JTF_DATE_TABLE
747 , p5_a9 JTF_DATE_TABLE
748 , p5_a10 JTF_VARCHAR2_TABLE_200
749 , p5_a11 JTF_VARCHAR2_TABLE_100
750 , p5_a12 JTF_NUMBER_TABLE
751 , p5_a13 JTF_NUMBER_TABLE
752 , p5_a14 JTF_DATE_TABLE
753 , p5_a15 JTF_NUMBER_TABLE
754 , p5_a16 JTF_DATE_TABLE
755 , p5_a17 JTF_NUMBER_TABLE
756 )
757
758 as
759 ddp_opdv_tbl okl_opd_pvt.opdv_tbl_type;
760 ddindx binary_integer; indx binary_integer;
761 begin
762
763 -- copy data to the local IN or IN-OUT args, if any
764
765
766
767
768
769 okl_opd_pvt_w.rosetta_table_copy_in_p8(ddp_opdv_tbl, p5_a0
770 , p5_a1
771 , p5_a2
772 , p5_a3
773 , p5_a4
774 , p5_a5
775 , p5_a6
776 , p5_a7
777 , p5_a8
778 , p5_a9
779 , p5_a10
780 , p5_a11
781 , p5_a12
782 , p5_a13
783 , p5_a14
784 , p5_a15
785 , p5_a16
786 , p5_a17
787 );
788
789 -- here's the delegated call to the old PL/SQL routine
790 okl_opd_pvt.lock_row(p_api_version,
791 p_init_msg_list,
792 x_return_status,
793 x_msg_count,
794 x_msg_data,
795 ddp_opdv_tbl);
796
797 -- copy data back from the local variables to OUT or IN-OUT args, if any
798
799
800
801
802
803 end;
804
805 procedure update_row(p_api_version NUMBER
806 , p_init_msg_list VARCHAR2
807 , x_return_status out nocopy VARCHAR2
808 , x_msg_count out nocopy NUMBER
809 , x_msg_data out nocopy VARCHAR2
810 , p6_a0 out nocopy NUMBER
811 , p6_a1 out nocopy NUMBER
812 , p6_a2 out nocopy VARCHAR2
813 , p6_a3 out nocopy NUMBER
814 , p6_a4 out nocopy NUMBER
815 , p6_a5 out nocopy VARCHAR2
816 , p6_a6 out nocopy VARCHAR2
817 , p6_a7 out nocopy VARCHAR2
818 , p6_a8 out nocopy DATE
819 , p6_a9 out nocopy DATE
820 , p6_a10 out nocopy VARCHAR2
821 , p6_a11 out nocopy VARCHAR2
822 , p6_a12 out nocopy NUMBER
823 , p6_a13 out nocopy NUMBER
824 , p6_a14 out nocopy DATE
825 , p6_a15 out nocopy NUMBER
826 , p6_a16 out nocopy DATE
827 , p6_a17 out nocopy NUMBER
828 , p5_a0 NUMBER := 0-1962.0724
829 , p5_a1 NUMBER := 0-1962.0724
830 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
831 , p5_a3 NUMBER := 0-1962.0724
832 , p5_a4 NUMBER := 0-1962.0724
833 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
834 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
835 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
836 , p5_a8 DATE := fnd_api.g_miss_date
837 , p5_a9 DATE := fnd_api.g_miss_date
838 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
839 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
840 , p5_a12 NUMBER := 0-1962.0724
841 , p5_a13 NUMBER := 0-1962.0724
842 , p5_a14 DATE := fnd_api.g_miss_date
843 , p5_a15 NUMBER := 0-1962.0724
844 , p5_a16 DATE := fnd_api.g_miss_date
845 , p5_a17 NUMBER := 0-1962.0724
846 )
847
848 as
849 ddp_opdv_rec okl_opd_pvt.opdv_rec_type;
850 ddx_opdv_rec okl_opd_pvt.opdv_rec_type;
851 ddindx binary_integer; indx binary_integer;
852 begin
853
854 -- copy data to the local IN or IN-OUT args, if any
855
856
857
858
859
860 ddp_opdv_rec.id := rosetta_g_miss_num_map(p5_a0);
861 ddp_opdv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
862 ddp_opdv_rec.sfwt_flag := p5_a2;
863 ddp_opdv_rec.fma_id := rosetta_g_miss_num_map(p5_a3);
864 ddp_opdv_rec.dsf_id := rosetta_g_miss_num_map(p5_a4);
865 ddp_opdv_rec.name := p5_a5;
866 ddp_opdv_rec.description := p5_a6;
867 ddp_opdv_rec.version := p5_a7;
868 ddp_opdv_rec.start_date := rosetta_g_miss_date_in_map(p5_a8);
869 ddp_opdv_rec.end_date := rosetta_g_miss_date_in_map(p5_a9);
870 ddp_opdv_rec.source := p5_a10;
871 ddp_opdv_rec.opd_type := p5_a11;
872 ddp_opdv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
873 ddp_opdv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
874 ddp_opdv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
875 ddp_opdv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
876 ddp_opdv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
877 ddp_opdv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
878
879
880 -- here's the delegated call to the old PL/SQL routine
881 okl_opd_pvt.update_row(p_api_version,
882 p_init_msg_list,
883 x_return_status,
884 x_msg_count,
885 x_msg_data,
886 ddp_opdv_rec,
887 ddx_opdv_rec);
888
889 -- copy data back from the local variables to OUT or IN-OUT args, if any
890
891
892
893
894
895
896 p6_a0 := rosetta_g_miss_num_map(ddx_opdv_rec.id);
897 p6_a1 := rosetta_g_miss_num_map(ddx_opdv_rec.object_version_number);
898 p6_a2 := ddx_opdv_rec.sfwt_flag;
899 p6_a3 := rosetta_g_miss_num_map(ddx_opdv_rec.fma_id);
900 p6_a4 := rosetta_g_miss_num_map(ddx_opdv_rec.dsf_id);
901 p6_a5 := ddx_opdv_rec.name;
902 p6_a6 := ddx_opdv_rec.description;
903 p6_a7 := ddx_opdv_rec.version;
904 p6_a8 := ddx_opdv_rec.start_date;
905 p6_a9 := ddx_opdv_rec.end_date;
906 p6_a10 := ddx_opdv_rec.source;
907 p6_a11 := ddx_opdv_rec.opd_type;
908 p6_a12 := rosetta_g_miss_num_map(ddx_opdv_rec.org_id);
909 p6_a13 := rosetta_g_miss_num_map(ddx_opdv_rec.created_by);
910 p6_a14 := ddx_opdv_rec.creation_date;
911 p6_a15 := rosetta_g_miss_num_map(ddx_opdv_rec.last_updated_by);
912 p6_a16 := ddx_opdv_rec.last_update_date;
913 p6_a17 := rosetta_g_miss_num_map(ddx_opdv_rec.last_update_login);
914 end;
915
916 procedure update_row(p_api_version NUMBER
917 , p_init_msg_list VARCHAR2
918 , x_return_status out nocopy VARCHAR2
919 , x_msg_count out nocopy NUMBER
920 , x_msg_data out nocopy VARCHAR2
921 , p5_a0 JTF_NUMBER_TABLE
922 , p5_a1 JTF_NUMBER_TABLE
923 , p5_a2 JTF_VARCHAR2_TABLE_100
924 , p5_a3 JTF_NUMBER_TABLE
925 , p5_a4 JTF_NUMBER_TABLE
926 , p5_a5 JTF_VARCHAR2_TABLE_200
927 , p5_a6 JTF_VARCHAR2_TABLE_2000
928 , p5_a7 JTF_VARCHAR2_TABLE_100
929 , p5_a8 JTF_DATE_TABLE
930 , p5_a9 JTF_DATE_TABLE
931 , p5_a10 JTF_VARCHAR2_TABLE_200
932 , p5_a11 JTF_VARCHAR2_TABLE_100
933 , p5_a12 JTF_NUMBER_TABLE
934 , p5_a13 JTF_NUMBER_TABLE
935 , p5_a14 JTF_DATE_TABLE
936 , p5_a15 JTF_NUMBER_TABLE
937 , p5_a16 JTF_DATE_TABLE
938 , p5_a17 JTF_NUMBER_TABLE
939 , p6_a0 out nocopy JTF_NUMBER_TABLE
940 , p6_a1 out nocopy JTF_NUMBER_TABLE
941 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
942 , p6_a3 out nocopy JTF_NUMBER_TABLE
943 , p6_a4 out nocopy JTF_NUMBER_TABLE
944 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_200
945 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_2000
946 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
947 , p6_a8 out nocopy JTF_DATE_TABLE
948 , p6_a9 out nocopy JTF_DATE_TABLE
949 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_200
950 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
951 , p6_a12 out nocopy JTF_NUMBER_TABLE
952 , p6_a13 out nocopy JTF_NUMBER_TABLE
953 , p6_a14 out nocopy JTF_DATE_TABLE
954 , p6_a15 out nocopy JTF_NUMBER_TABLE
955 , p6_a16 out nocopy JTF_DATE_TABLE
956 , p6_a17 out nocopy JTF_NUMBER_TABLE
957 )
958
959 as
960 ddp_opdv_tbl okl_opd_pvt.opdv_tbl_type;
961 ddx_opdv_tbl okl_opd_pvt.opdv_tbl_type;
962 ddindx binary_integer; indx binary_integer;
963 begin
964
965 -- copy data to the local IN or IN-OUT args, if any
966
967
968
969
970
971 okl_opd_pvt_w.rosetta_table_copy_in_p8(ddp_opdv_tbl, p5_a0
972 , p5_a1
973 , p5_a2
974 , p5_a3
975 , p5_a4
976 , p5_a5
977 , p5_a6
978 , p5_a7
979 , p5_a8
980 , p5_a9
981 , p5_a10
982 , p5_a11
983 , p5_a12
984 , p5_a13
985 , p5_a14
986 , p5_a15
987 , p5_a16
988 , p5_a17
989 );
990
991
992 -- here's the delegated call to the old PL/SQL routine
993 okl_opd_pvt.update_row(p_api_version,
994 p_init_msg_list,
995 x_return_status,
996 x_msg_count,
997 x_msg_data,
998 ddp_opdv_tbl,
999 ddx_opdv_tbl);
1000
1001 -- copy data back from the local variables to OUT or IN-OUT args, if any
1002
1003
1004
1005
1006
1007
1008 okl_opd_pvt_w.rosetta_table_copy_out_p8(ddx_opdv_tbl, p6_a0
1009 , p6_a1
1010 , p6_a2
1011 , p6_a3
1012 , p6_a4
1013 , p6_a5
1014 , p6_a6
1015 , p6_a7
1016 , p6_a8
1017 , p6_a9
1018 , p6_a10
1019 , p6_a11
1020 , p6_a12
1021 , p6_a13
1022 , p6_a14
1023 , p6_a15
1024 , p6_a16
1025 , p6_a17
1026 );
1027 end;
1028
1029 procedure delete_row(p_api_version NUMBER
1030 , p_init_msg_list VARCHAR2
1031 , x_return_status out nocopy VARCHAR2
1032 , x_msg_count out nocopy NUMBER
1033 , x_msg_data out nocopy VARCHAR2
1034 , p5_a0 NUMBER := 0-1962.0724
1035 , p5_a1 NUMBER := 0-1962.0724
1036 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1037 , p5_a3 NUMBER := 0-1962.0724
1038 , p5_a4 NUMBER := 0-1962.0724
1039 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1040 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1041 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1042 , p5_a8 DATE := fnd_api.g_miss_date
1043 , p5_a9 DATE := fnd_api.g_miss_date
1044 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1045 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1046 , p5_a12 NUMBER := 0-1962.0724
1047 , p5_a13 NUMBER := 0-1962.0724
1048 , p5_a14 DATE := fnd_api.g_miss_date
1049 , p5_a15 NUMBER := 0-1962.0724
1050 , p5_a16 DATE := fnd_api.g_miss_date
1051 , p5_a17 NUMBER := 0-1962.0724
1052 )
1053
1054 as
1055 ddp_opdv_rec okl_opd_pvt.opdv_rec_type;
1056 ddindx binary_integer; indx binary_integer;
1057 begin
1058
1059 -- copy data to the local IN or IN-OUT args, if any
1060
1061
1062
1063
1064
1065 ddp_opdv_rec.id := rosetta_g_miss_num_map(p5_a0);
1066 ddp_opdv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1067 ddp_opdv_rec.sfwt_flag := p5_a2;
1068 ddp_opdv_rec.fma_id := rosetta_g_miss_num_map(p5_a3);
1069 ddp_opdv_rec.dsf_id := rosetta_g_miss_num_map(p5_a4);
1070 ddp_opdv_rec.name := p5_a5;
1071 ddp_opdv_rec.description := p5_a6;
1072 ddp_opdv_rec.version := p5_a7;
1073 ddp_opdv_rec.start_date := rosetta_g_miss_date_in_map(p5_a8);
1074 ddp_opdv_rec.end_date := rosetta_g_miss_date_in_map(p5_a9);
1075 ddp_opdv_rec.source := p5_a10;
1076 ddp_opdv_rec.opd_type := p5_a11;
1077 ddp_opdv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
1078 ddp_opdv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
1079 ddp_opdv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
1080 ddp_opdv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
1081 ddp_opdv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
1082 ddp_opdv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
1083
1084 -- here's the delegated call to the old PL/SQL routine
1085 okl_opd_pvt.delete_row(p_api_version,
1086 p_init_msg_list,
1087 x_return_status,
1088 x_msg_count,
1089 x_msg_data,
1090 ddp_opdv_rec);
1091
1092 -- copy data back from the local variables to OUT or IN-OUT args, if any
1093
1094
1095
1096
1097
1098 end;
1099
1100 procedure delete_row(p_api_version NUMBER
1101 , p_init_msg_list VARCHAR2
1102 , x_return_status out nocopy VARCHAR2
1103 , x_msg_count out nocopy NUMBER
1104 , x_msg_data out nocopy VARCHAR2
1105 , p5_a0 JTF_NUMBER_TABLE
1106 , p5_a1 JTF_NUMBER_TABLE
1107 , p5_a2 JTF_VARCHAR2_TABLE_100
1108 , p5_a3 JTF_NUMBER_TABLE
1109 , p5_a4 JTF_NUMBER_TABLE
1110 , p5_a5 JTF_VARCHAR2_TABLE_200
1111 , p5_a6 JTF_VARCHAR2_TABLE_2000
1112 , p5_a7 JTF_VARCHAR2_TABLE_100
1113 , p5_a8 JTF_DATE_TABLE
1114 , p5_a9 JTF_DATE_TABLE
1115 , p5_a10 JTF_VARCHAR2_TABLE_200
1116 , p5_a11 JTF_VARCHAR2_TABLE_100
1117 , p5_a12 JTF_NUMBER_TABLE
1118 , p5_a13 JTF_NUMBER_TABLE
1119 , p5_a14 JTF_DATE_TABLE
1120 , p5_a15 JTF_NUMBER_TABLE
1121 , p5_a16 JTF_DATE_TABLE
1122 , p5_a17 JTF_NUMBER_TABLE
1123 )
1124
1125 as
1126 ddp_opdv_tbl okl_opd_pvt.opdv_tbl_type;
1127 ddindx binary_integer; indx binary_integer;
1128 begin
1129
1130 -- copy data to the local IN or IN-OUT args, if any
1131
1132
1133
1134
1135
1136 okl_opd_pvt_w.rosetta_table_copy_in_p8(ddp_opdv_tbl, p5_a0
1137 , p5_a1
1138 , p5_a2
1139 , p5_a3
1140 , p5_a4
1141 , p5_a5
1142 , p5_a6
1143 , p5_a7
1144 , p5_a8
1145 , p5_a9
1146 , p5_a10
1147 , p5_a11
1148 , p5_a12
1149 , p5_a13
1150 , p5_a14
1151 , p5_a15
1152 , p5_a16
1153 , p5_a17
1154 );
1155
1156 -- here's the delegated call to the old PL/SQL routine
1157 okl_opd_pvt.delete_row(p_api_version,
1158 p_init_msg_list,
1159 x_return_status,
1160 x_msg_count,
1161 x_msg_data,
1162 ddp_opdv_tbl);
1163
1164 -- copy data back from the local variables to OUT or IN-OUT args, if any
1165
1166
1167
1168
1169
1170 end;
1171
1172 procedure validate_row(p_api_version NUMBER
1173 , p_init_msg_list VARCHAR2
1174 , x_return_status out nocopy VARCHAR2
1175 , x_msg_count out nocopy NUMBER
1176 , x_msg_data out nocopy VARCHAR2
1177 , p5_a0 NUMBER := 0-1962.0724
1178 , p5_a1 NUMBER := 0-1962.0724
1179 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1180 , p5_a3 NUMBER := 0-1962.0724
1181 , p5_a4 NUMBER := 0-1962.0724
1182 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1183 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1184 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1185 , p5_a8 DATE := fnd_api.g_miss_date
1186 , p5_a9 DATE := fnd_api.g_miss_date
1187 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1188 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1189 , p5_a12 NUMBER := 0-1962.0724
1190 , p5_a13 NUMBER := 0-1962.0724
1191 , p5_a14 DATE := fnd_api.g_miss_date
1192 , p5_a15 NUMBER := 0-1962.0724
1193 , p5_a16 DATE := fnd_api.g_miss_date
1194 , p5_a17 NUMBER := 0-1962.0724
1195 )
1196
1197 as
1198 ddp_opdv_rec okl_opd_pvt.opdv_rec_type;
1199 ddindx binary_integer; indx binary_integer;
1200 begin
1201
1202 -- copy data to the local IN or IN-OUT args, if any
1203
1204
1205
1206
1207
1208 ddp_opdv_rec.id := rosetta_g_miss_num_map(p5_a0);
1209 ddp_opdv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1210 ddp_opdv_rec.sfwt_flag := p5_a2;
1211 ddp_opdv_rec.fma_id := rosetta_g_miss_num_map(p5_a3);
1212 ddp_opdv_rec.dsf_id := rosetta_g_miss_num_map(p5_a4);
1213 ddp_opdv_rec.name := p5_a5;
1214 ddp_opdv_rec.description := p5_a6;
1215 ddp_opdv_rec.version := p5_a7;
1216 ddp_opdv_rec.start_date := rosetta_g_miss_date_in_map(p5_a8);
1217 ddp_opdv_rec.end_date := rosetta_g_miss_date_in_map(p5_a9);
1218 ddp_opdv_rec.source := p5_a10;
1219 ddp_opdv_rec.opd_type := p5_a11;
1220 ddp_opdv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
1221 ddp_opdv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
1222 ddp_opdv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
1223 ddp_opdv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
1224 ddp_opdv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
1225 ddp_opdv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
1226
1227 -- here's the delegated call to the old PL/SQL routine
1228 okl_opd_pvt.validate_row(p_api_version,
1229 p_init_msg_list,
1230 x_return_status,
1231 x_msg_count,
1232 x_msg_data,
1233 ddp_opdv_rec);
1234
1235 -- copy data back from the local variables to OUT or IN-OUT args, if any
1236
1237
1238
1239
1240
1241 end;
1242
1243 procedure validate_row(p_api_version NUMBER
1244 , p_init_msg_list VARCHAR2
1245 , x_return_status out nocopy VARCHAR2
1246 , x_msg_count out nocopy NUMBER
1247 , x_msg_data out nocopy VARCHAR2
1248 , p5_a0 JTF_NUMBER_TABLE
1249 , p5_a1 JTF_NUMBER_TABLE
1250 , p5_a2 JTF_VARCHAR2_TABLE_100
1251 , p5_a3 JTF_NUMBER_TABLE
1252 , p5_a4 JTF_NUMBER_TABLE
1253 , p5_a5 JTF_VARCHAR2_TABLE_200
1254 , p5_a6 JTF_VARCHAR2_TABLE_2000
1255 , p5_a7 JTF_VARCHAR2_TABLE_100
1256 , p5_a8 JTF_DATE_TABLE
1257 , p5_a9 JTF_DATE_TABLE
1258 , p5_a10 JTF_VARCHAR2_TABLE_200
1259 , p5_a11 JTF_VARCHAR2_TABLE_100
1260 , p5_a12 JTF_NUMBER_TABLE
1261 , p5_a13 JTF_NUMBER_TABLE
1262 , p5_a14 JTF_DATE_TABLE
1263 , p5_a15 JTF_NUMBER_TABLE
1264 , p5_a16 JTF_DATE_TABLE
1265 , p5_a17 JTF_NUMBER_TABLE
1266 )
1267
1268 as
1269 ddp_opdv_tbl okl_opd_pvt.opdv_tbl_type;
1270 ddindx binary_integer; indx binary_integer;
1271 begin
1272
1273 -- copy data to the local IN or IN-OUT args, if any
1274
1275
1276
1277
1278
1279 okl_opd_pvt_w.rosetta_table_copy_in_p8(ddp_opdv_tbl, p5_a0
1280 , p5_a1
1281 , p5_a2
1282 , p5_a3
1283 , p5_a4
1284 , p5_a5
1285 , p5_a6
1286 , p5_a7
1287 , p5_a8
1288 , p5_a9
1289 , p5_a10
1290 , p5_a11
1291 , p5_a12
1292 , p5_a13
1293 , p5_a14
1294 , p5_a15
1295 , p5_a16
1296 , p5_a17
1297 );
1298
1299 -- here's the delegated call to the old PL/SQL routine
1300 okl_opd_pvt.validate_row(p_api_version,
1301 p_init_msg_list,
1302 x_return_status,
1303 x_msg_count,
1304 x_msg_data,
1305 ddp_opdv_tbl);
1306
1307 -- copy data back from the local variables to OUT or IN-OUT args, if any
1308
1309
1310
1311
1312
1313 end;
1314
1315 end okl_opd_pvt_w;