[Home] [Help]
PACKAGE BODY: APPS.OKL_DSF_PVT_W
Source
1 package body okl_dsf_pvt_w as
2 /* $Header: OKLIDSFB.pls 120.1 2005/07/08 10:35:41 dkagrawa 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_dsf_pvt.dsf_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_VARCHAR2_TABLE_200
25 , a3 JTF_VARCHAR2_TABLE_100
26 , a4 JTF_VARCHAR2_TABLE_800
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_DATE_TABLE
29 , a7 JTF_DATE_TABLE
30 , a8 JTF_VARCHAR2_TABLE_100
31 , a9 JTF_VARCHAR2_TABLE_100
32 , a10 JTF_VARCHAR2_TABLE_500
33 , a11 JTF_VARCHAR2_TABLE_500
34 , a12 JTF_VARCHAR2_TABLE_500
35 , a13 JTF_VARCHAR2_TABLE_500
36 , a14 JTF_VARCHAR2_TABLE_500
37 , a15 JTF_VARCHAR2_TABLE_500
38 , a16 JTF_VARCHAR2_TABLE_500
39 , a17 JTF_VARCHAR2_TABLE_500
40 , a18 JTF_VARCHAR2_TABLE_500
41 , a19 JTF_VARCHAR2_TABLE_500
42 , a20 JTF_VARCHAR2_TABLE_500
43 , a21 JTF_VARCHAR2_TABLE_500
44 , a22 JTF_VARCHAR2_TABLE_500
45 , a23 JTF_VARCHAR2_TABLE_500
46 , a24 JTF_VARCHAR2_TABLE_500
47 , a25 JTF_NUMBER_TABLE
48 , a26 JTF_DATE_TABLE
49 , a27 JTF_NUMBER_TABLE
50 , a28 JTF_DATE_TABLE
51 , a29 JTF_NUMBER_TABLE
52 ) as
53 ddindx binary_integer; indx binary_integer;
54 begin
55 if a0 is not null and a0.count > 0 then
56 if a0.count > 0 then
57 indx := a0.first;
58 ddindx := 1;
59 while true loop
60 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
61 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
62 t(ddindx).name := a2(indx);
63 t(ddindx).version := a3(indx);
64 t(ddindx).source := a4(indx);
65 t(ddindx).org_id := rosetta_g_miss_num_map(a5(indx));
66 t(ddindx).start_date := rosetta_g_miss_date_in_map(a6(indx));
67 t(ddindx).end_date := rosetta_g_miss_date_in_map(a7(indx));
68 t(ddindx).fnctn_code := a8(indx);
69 t(ddindx).attribute_category := a9(indx);
70 t(ddindx).attribute1 := a10(indx);
71 t(ddindx).attribute2 := a11(indx);
72 t(ddindx).attribute3 := a12(indx);
73 t(ddindx).attribute4 := a13(indx);
74 t(ddindx).attribute5 := a14(indx);
75 t(ddindx).attribute6 := a15(indx);
76 t(ddindx).attribute7 := a16(indx);
77 t(ddindx).attribute8 := a17(indx);
78 t(ddindx).attribute9 := a18(indx);
79 t(ddindx).attribute10 := a19(indx);
80 t(ddindx).attribute11 := a20(indx);
81 t(ddindx).attribute12 := a21(indx);
82 t(ddindx).attribute13 := a22(indx);
83 t(ddindx).attribute14 := a23(indx);
84 t(ddindx).attribute15 := a24(indx);
85 t(ddindx).created_by := rosetta_g_miss_num_map(a25(indx));
86 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a26(indx));
87 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a27(indx));
88 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a28(indx));
89 t(ddindx).last_update_login := rosetta_g_miss_num_map(a29(indx));
90 ddindx := ddindx+1;
91 if a0.last =indx
92 then exit;
93 end if;
94 indx := a0.next(indx);
95 end loop;
96 end if;
97 end if;
98 end rosetta_table_copy_in_p2;
99 procedure rosetta_table_copy_out_p2(t okl_dsf_pvt.dsf_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
100 , a1 out nocopy JTF_NUMBER_TABLE
101 , a2 out nocopy JTF_VARCHAR2_TABLE_200
102 , a3 out nocopy JTF_VARCHAR2_TABLE_100
103 , a4 out nocopy JTF_VARCHAR2_TABLE_800
104 , a5 out nocopy JTF_NUMBER_TABLE
105 , a6 out nocopy JTF_DATE_TABLE
106 , a7 out nocopy JTF_DATE_TABLE
107 , a8 out nocopy JTF_VARCHAR2_TABLE_100
108 , a9 out nocopy JTF_VARCHAR2_TABLE_100
109 , a10 out nocopy JTF_VARCHAR2_TABLE_500
110 , a11 out nocopy JTF_VARCHAR2_TABLE_500
111 , a12 out nocopy JTF_VARCHAR2_TABLE_500
112 , a13 out nocopy JTF_VARCHAR2_TABLE_500
113 , a14 out nocopy JTF_VARCHAR2_TABLE_500
114 , a15 out nocopy JTF_VARCHAR2_TABLE_500
115 , a16 out nocopy JTF_VARCHAR2_TABLE_500
116 , a17 out nocopy JTF_VARCHAR2_TABLE_500
117 , a18 out nocopy JTF_VARCHAR2_TABLE_500
118 , a19 out nocopy JTF_VARCHAR2_TABLE_500
119 , a20 out nocopy JTF_VARCHAR2_TABLE_500
120 , a21 out nocopy JTF_VARCHAR2_TABLE_500
121 , a22 out nocopy JTF_VARCHAR2_TABLE_500
122 , a23 out nocopy JTF_VARCHAR2_TABLE_500
123 , a24 out nocopy JTF_VARCHAR2_TABLE_500
124 , a25 out nocopy JTF_NUMBER_TABLE
125 , a26 out nocopy JTF_DATE_TABLE
126 , a27 out nocopy JTF_NUMBER_TABLE
127 , a28 out nocopy JTF_DATE_TABLE
128 , a29 out nocopy JTF_NUMBER_TABLE
129 ) as
130 ddindx binary_integer; indx binary_integer;
131 begin
132 if t is null or t.count = 0 then
133 a0 := JTF_NUMBER_TABLE();
134 a1 := JTF_NUMBER_TABLE();
135 a2 := JTF_VARCHAR2_TABLE_200();
136 a3 := JTF_VARCHAR2_TABLE_100();
137 a4 := JTF_VARCHAR2_TABLE_800();
138 a5 := JTF_NUMBER_TABLE();
139 a6 := JTF_DATE_TABLE();
140 a7 := JTF_DATE_TABLE();
141 a8 := JTF_VARCHAR2_TABLE_100();
142 a9 := JTF_VARCHAR2_TABLE_100();
143 a10 := JTF_VARCHAR2_TABLE_500();
144 a11 := JTF_VARCHAR2_TABLE_500();
145 a12 := JTF_VARCHAR2_TABLE_500();
146 a13 := JTF_VARCHAR2_TABLE_500();
147 a14 := JTF_VARCHAR2_TABLE_500();
148 a15 := JTF_VARCHAR2_TABLE_500();
149 a16 := JTF_VARCHAR2_TABLE_500();
150 a17 := JTF_VARCHAR2_TABLE_500();
151 a18 := JTF_VARCHAR2_TABLE_500();
152 a19 := JTF_VARCHAR2_TABLE_500();
153 a20 := JTF_VARCHAR2_TABLE_500();
154 a21 := JTF_VARCHAR2_TABLE_500();
155 a22 := JTF_VARCHAR2_TABLE_500();
156 a23 := JTF_VARCHAR2_TABLE_500();
157 a24 := JTF_VARCHAR2_TABLE_500();
158 a25 := JTF_NUMBER_TABLE();
159 a26 := JTF_DATE_TABLE();
160 a27 := JTF_NUMBER_TABLE();
161 a28 := JTF_DATE_TABLE();
162 a29 := JTF_NUMBER_TABLE();
163 else
164 a0 := JTF_NUMBER_TABLE();
165 a1 := JTF_NUMBER_TABLE();
166 a2 := JTF_VARCHAR2_TABLE_200();
167 a3 := JTF_VARCHAR2_TABLE_100();
168 a4 := JTF_VARCHAR2_TABLE_800();
169 a5 := JTF_NUMBER_TABLE();
170 a6 := JTF_DATE_TABLE();
171 a7 := JTF_DATE_TABLE();
172 a8 := JTF_VARCHAR2_TABLE_100();
173 a9 := JTF_VARCHAR2_TABLE_100();
174 a10 := JTF_VARCHAR2_TABLE_500();
175 a11 := JTF_VARCHAR2_TABLE_500();
176 a12 := JTF_VARCHAR2_TABLE_500();
177 a13 := JTF_VARCHAR2_TABLE_500();
178 a14 := JTF_VARCHAR2_TABLE_500();
179 a15 := JTF_VARCHAR2_TABLE_500();
180 a16 := JTF_VARCHAR2_TABLE_500();
181 a17 := JTF_VARCHAR2_TABLE_500();
182 a18 := JTF_VARCHAR2_TABLE_500();
183 a19 := JTF_VARCHAR2_TABLE_500();
184 a20 := JTF_VARCHAR2_TABLE_500();
185 a21 := JTF_VARCHAR2_TABLE_500();
186 a22 := JTF_VARCHAR2_TABLE_500();
187 a23 := JTF_VARCHAR2_TABLE_500();
188 a24 := JTF_VARCHAR2_TABLE_500();
189 a25 := JTF_NUMBER_TABLE();
190 a26 := JTF_DATE_TABLE();
191 a27 := JTF_NUMBER_TABLE();
192 a28 := JTF_DATE_TABLE();
193 a29 := JTF_NUMBER_TABLE();
194 if t.count > 0 then
195 a0.extend(t.count);
196 a1.extend(t.count);
197 a2.extend(t.count);
198 a3.extend(t.count);
199 a4.extend(t.count);
200 a5.extend(t.count);
201 a6.extend(t.count);
202 a7.extend(t.count);
203 a8.extend(t.count);
204 a9.extend(t.count);
205 a10.extend(t.count);
206 a11.extend(t.count);
207 a12.extend(t.count);
208 a13.extend(t.count);
209 a14.extend(t.count);
210 a15.extend(t.count);
211 a16.extend(t.count);
212 a17.extend(t.count);
213 a18.extend(t.count);
214 a19.extend(t.count);
215 a20.extend(t.count);
216 a21.extend(t.count);
217 a22.extend(t.count);
218 a23.extend(t.count);
219 a24.extend(t.count);
220 a25.extend(t.count);
221 a26.extend(t.count);
222 a27.extend(t.count);
223 a28.extend(t.count);
224 a29.extend(t.count);
225 ddindx := t.first;
226 indx := 1;
227 while true loop
228 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
229 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
230 a2(indx) := t(ddindx).name;
231 a3(indx) := t(ddindx).version;
232 a4(indx) := t(ddindx).source;
233 a5(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
234 a6(indx) := t(ddindx).start_date;
235 a7(indx) := t(ddindx).end_date;
236 a8(indx) := t(ddindx).fnctn_code;
237 a9(indx) := t(ddindx).attribute_category;
238 a10(indx) := t(ddindx).attribute1;
239 a11(indx) := t(ddindx).attribute2;
240 a12(indx) := t(ddindx).attribute3;
241 a13(indx) := t(ddindx).attribute4;
242 a14(indx) := t(ddindx).attribute5;
243 a15(indx) := t(ddindx).attribute6;
244 a16(indx) := t(ddindx).attribute7;
245 a17(indx) := t(ddindx).attribute8;
246 a18(indx) := t(ddindx).attribute9;
247 a19(indx) := t(ddindx).attribute10;
248 a20(indx) := t(ddindx).attribute11;
249 a21(indx) := t(ddindx).attribute12;
250 a22(indx) := t(ddindx).attribute13;
251 a23(indx) := t(ddindx).attribute14;
252 a24(indx) := t(ddindx).attribute15;
253 a25(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
254 a26(indx) := t(ddindx).creation_date;
255 a27(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
256 a28(indx) := t(ddindx).last_update_date;
257 a29(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
258 indx := indx+1;
259 if t.last =ddindx
260 then exit;
261 end if;
262 ddindx := t.next(ddindx);
263 end loop;
264 end if;
265 end if;
266 end rosetta_table_copy_out_p2;
267
268 procedure rosetta_table_copy_in_p5(t out nocopy okl_dsf_pvt.okldatasrcfnctnstltbltype, a0 JTF_NUMBER_TABLE
269 , a1 JTF_VARCHAR2_TABLE_100
270 , a2 JTF_VARCHAR2_TABLE_100
271 , a3 JTF_VARCHAR2_TABLE_100
272 , a4 JTF_VARCHAR2_TABLE_2000
273 , a5 JTF_NUMBER_TABLE
274 , a6 JTF_DATE_TABLE
275 , a7 JTF_NUMBER_TABLE
276 , a8 JTF_DATE_TABLE
277 , a9 JTF_NUMBER_TABLE
278 ) as
279 ddindx binary_integer; indx binary_integer;
280 begin
281 if a0 is not null and a0.count > 0 then
282 if a0.count > 0 then
283 indx := a0.first;
284 ddindx := 1;
285 while true loop
286 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
287 t(ddindx).language := a1(indx);
288 t(ddindx).source_lang := a2(indx);
289 t(ddindx).sfwt_flag := a3(indx);
290 t(ddindx).description := a4(indx);
291 t(ddindx).created_by := rosetta_g_miss_num_map(a5(indx));
292 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a6(indx));
293 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a7(indx));
294 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a8(indx));
295 t(ddindx).last_update_login := rosetta_g_miss_num_map(a9(indx));
296 ddindx := ddindx+1;
297 if a0.last =indx
298 then exit;
299 end if;
300 indx := a0.next(indx);
301 end loop;
302 end if;
303 end if;
304 end rosetta_table_copy_in_p5;
305 procedure rosetta_table_copy_out_p5(t okl_dsf_pvt.okldatasrcfnctnstltbltype, a0 out nocopy JTF_NUMBER_TABLE
306 , a1 out nocopy JTF_VARCHAR2_TABLE_100
307 , a2 out nocopy JTF_VARCHAR2_TABLE_100
308 , a3 out nocopy JTF_VARCHAR2_TABLE_100
309 , a4 out nocopy JTF_VARCHAR2_TABLE_2000
310 , a5 out nocopy JTF_NUMBER_TABLE
311 , a6 out nocopy JTF_DATE_TABLE
312 , a7 out nocopy JTF_NUMBER_TABLE
313 , a8 out nocopy JTF_DATE_TABLE
314 , a9 out nocopy JTF_NUMBER_TABLE
315 ) as
316 ddindx binary_integer; indx binary_integer;
317 begin
318 if t is null or t.count = 0 then
319 a0 := JTF_NUMBER_TABLE();
320 a1 := JTF_VARCHAR2_TABLE_100();
321 a2 := JTF_VARCHAR2_TABLE_100();
322 a3 := JTF_VARCHAR2_TABLE_100();
323 a4 := JTF_VARCHAR2_TABLE_2000();
324 a5 := JTF_NUMBER_TABLE();
325 a6 := JTF_DATE_TABLE();
326 a7 := JTF_NUMBER_TABLE();
327 a8 := JTF_DATE_TABLE();
328 a9 := JTF_NUMBER_TABLE();
329 else
330 a0 := JTF_NUMBER_TABLE();
331 a1 := JTF_VARCHAR2_TABLE_100();
332 a2 := JTF_VARCHAR2_TABLE_100();
333 a3 := JTF_VARCHAR2_TABLE_100();
334 a4 := JTF_VARCHAR2_TABLE_2000();
335 a5 := JTF_NUMBER_TABLE();
336 a6 := JTF_DATE_TABLE();
337 a7 := JTF_NUMBER_TABLE();
338 a8 := JTF_DATE_TABLE();
339 a9 := JTF_NUMBER_TABLE();
340 if t.count > 0 then
341 a0.extend(t.count);
342 a1.extend(t.count);
343 a2.extend(t.count);
344 a3.extend(t.count);
345 a4.extend(t.count);
346 a5.extend(t.count);
347 a6.extend(t.count);
348 a7.extend(t.count);
349 a8.extend(t.count);
350 a9.extend(t.count);
351 ddindx := t.first;
352 indx := 1;
353 while true loop
354 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
355 a1(indx) := t(ddindx).language;
356 a2(indx) := t(ddindx).source_lang;
357 a3(indx) := t(ddindx).sfwt_flag;
358 a4(indx) := t(ddindx).description;
359 a5(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
360 a6(indx) := t(ddindx).creation_date;
361 a7(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
362 a8(indx) := t(ddindx).last_update_date;
363 a9(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
364 indx := indx+1;
365 if t.last =ddindx
366 then exit;
367 end if;
368 ddindx := t.next(ddindx);
369 end loop;
370 end if;
371 end if;
372 end rosetta_table_copy_out_p5;
373
374 procedure rosetta_table_copy_in_p8(t out nocopy okl_dsf_pvt.dsfv_tbl_type, a0 JTF_NUMBER_TABLE
375 , a1 JTF_NUMBER_TABLE
376 , a2 JTF_VARCHAR2_TABLE_100
377 , a3 JTF_VARCHAR2_TABLE_100
378 , a4 JTF_VARCHAR2_TABLE_200
379 , a5 JTF_VARCHAR2_TABLE_2000
380 , a6 JTF_VARCHAR2_TABLE_100
381 , a7 JTF_DATE_TABLE
382 , a8 JTF_DATE_TABLE
383 , a9 JTF_VARCHAR2_TABLE_800
384 , a10 JTF_VARCHAR2_TABLE_100
385 , a11 JTF_VARCHAR2_TABLE_500
386 , a12 JTF_VARCHAR2_TABLE_500
387 , a13 JTF_VARCHAR2_TABLE_500
388 , a14 JTF_VARCHAR2_TABLE_500
389 , a15 JTF_VARCHAR2_TABLE_500
390 , a16 JTF_VARCHAR2_TABLE_500
391 , a17 JTF_VARCHAR2_TABLE_500
392 , a18 JTF_VARCHAR2_TABLE_500
393 , a19 JTF_VARCHAR2_TABLE_500
394 , a20 JTF_VARCHAR2_TABLE_500
395 , a21 JTF_VARCHAR2_TABLE_500
396 , a22 JTF_VARCHAR2_TABLE_500
397 , a23 JTF_VARCHAR2_TABLE_500
398 , a24 JTF_VARCHAR2_TABLE_500
399 , a25 JTF_VARCHAR2_TABLE_500
400 , a26 JTF_NUMBER_TABLE
401 , a27 JTF_NUMBER_TABLE
402 , a28 JTF_DATE_TABLE
403 , a29 JTF_NUMBER_TABLE
404 , a30 JTF_DATE_TABLE
405 , a31 JTF_NUMBER_TABLE
406 ) as
407 ddindx binary_integer; indx binary_integer;
408 begin
409 if a0 is not null and a0.count > 0 then
410 if a0.count > 0 then
411 indx := a0.first;
412 ddindx := 1;
413 while true loop
414 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
415 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
416 t(ddindx).sfwt_flag := a2(indx);
417 t(ddindx).fnctn_code := a3(indx);
418 t(ddindx).name := a4(indx);
419 t(ddindx).description := a5(indx);
420 t(ddindx).version := a6(indx);
421 t(ddindx).start_date := rosetta_g_miss_date_in_map(a7(indx));
422 t(ddindx).end_date := rosetta_g_miss_date_in_map(a8(indx));
423 t(ddindx).source := a9(indx);
424 t(ddindx).attribute_category := a10(indx);
425 t(ddindx).attribute1 := a11(indx);
426 t(ddindx).attribute2 := a12(indx);
427 t(ddindx).attribute3 := a13(indx);
428 t(ddindx).attribute4 := a14(indx);
429 t(ddindx).attribute5 := a15(indx);
430 t(ddindx).attribute6 := a16(indx);
431 t(ddindx).attribute7 := a17(indx);
432 t(ddindx).attribute8 := a18(indx);
433 t(ddindx).attribute9 := a19(indx);
434 t(ddindx).attribute10 := a20(indx);
435 t(ddindx).attribute11 := a21(indx);
436 t(ddindx).attribute12 := a22(indx);
437 t(ddindx).attribute13 := a23(indx);
438 t(ddindx).attribute14 := a24(indx);
439 t(ddindx).attribute15 := a25(indx);
440 t(ddindx).org_id := rosetta_g_miss_num_map(a26(indx));
441 t(ddindx).created_by := rosetta_g_miss_num_map(a27(indx));
442 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a28(indx));
443 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a29(indx));
444 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a30(indx));
445 t(ddindx).last_update_login := rosetta_g_miss_num_map(a31(indx));
446 ddindx := ddindx+1;
447 if a0.last =indx
448 then exit;
449 end if;
450 indx := a0.next(indx);
451 end loop;
452 end if;
453 end if;
454 end rosetta_table_copy_in_p8;
455 procedure rosetta_table_copy_out_p8(t okl_dsf_pvt.dsfv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
456 , a1 out nocopy JTF_NUMBER_TABLE
457 , a2 out nocopy JTF_VARCHAR2_TABLE_100
458 , a3 out nocopy JTF_VARCHAR2_TABLE_100
459 , a4 out nocopy JTF_VARCHAR2_TABLE_200
460 , a5 out nocopy JTF_VARCHAR2_TABLE_2000
461 , a6 out nocopy JTF_VARCHAR2_TABLE_100
462 , a7 out nocopy JTF_DATE_TABLE
463 , a8 out nocopy JTF_DATE_TABLE
464 , a9 out nocopy JTF_VARCHAR2_TABLE_800
465 , a10 out nocopy JTF_VARCHAR2_TABLE_100
466 , a11 out nocopy JTF_VARCHAR2_TABLE_500
467 , a12 out nocopy JTF_VARCHAR2_TABLE_500
468 , a13 out nocopy JTF_VARCHAR2_TABLE_500
469 , a14 out nocopy JTF_VARCHAR2_TABLE_500
470 , a15 out nocopy JTF_VARCHAR2_TABLE_500
471 , a16 out nocopy JTF_VARCHAR2_TABLE_500
472 , a17 out nocopy JTF_VARCHAR2_TABLE_500
473 , a18 out nocopy JTF_VARCHAR2_TABLE_500
474 , a19 out nocopy JTF_VARCHAR2_TABLE_500
475 , a20 out nocopy JTF_VARCHAR2_TABLE_500
476 , a21 out nocopy JTF_VARCHAR2_TABLE_500
477 , a22 out nocopy JTF_VARCHAR2_TABLE_500
478 , a23 out nocopy JTF_VARCHAR2_TABLE_500
479 , a24 out nocopy JTF_VARCHAR2_TABLE_500
480 , a25 out nocopy JTF_VARCHAR2_TABLE_500
481 , a26 out nocopy JTF_NUMBER_TABLE
482 , a27 out nocopy JTF_NUMBER_TABLE
483 , a28 out nocopy JTF_DATE_TABLE
484 , a29 out nocopy JTF_NUMBER_TABLE
485 , a30 out nocopy JTF_DATE_TABLE
486 , a31 out nocopy JTF_NUMBER_TABLE
487 ) as
488 ddindx binary_integer; indx binary_integer;
489 begin
490 if t is null or t.count = 0 then
491 a0 := JTF_NUMBER_TABLE();
492 a1 := JTF_NUMBER_TABLE();
493 a2 := JTF_VARCHAR2_TABLE_100();
494 a3 := JTF_VARCHAR2_TABLE_100();
495 a4 := JTF_VARCHAR2_TABLE_200();
496 a5 := JTF_VARCHAR2_TABLE_2000();
497 a6 := JTF_VARCHAR2_TABLE_100();
498 a7 := JTF_DATE_TABLE();
499 a8 := JTF_DATE_TABLE();
500 a9 := JTF_VARCHAR2_TABLE_800();
501 a10 := JTF_VARCHAR2_TABLE_100();
502 a11 := JTF_VARCHAR2_TABLE_500();
503 a12 := JTF_VARCHAR2_TABLE_500();
504 a13 := JTF_VARCHAR2_TABLE_500();
505 a14 := JTF_VARCHAR2_TABLE_500();
506 a15 := JTF_VARCHAR2_TABLE_500();
507 a16 := JTF_VARCHAR2_TABLE_500();
508 a17 := JTF_VARCHAR2_TABLE_500();
509 a18 := JTF_VARCHAR2_TABLE_500();
510 a19 := JTF_VARCHAR2_TABLE_500();
511 a20 := JTF_VARCHAR2_TABLE_500();
512 a21 := JTF_VARCHAR2_TABLE_500();
513 a22 := JTF_VARCHAR2_TABLE_500();
514 a23 := JTF_VARCHAR2_TABLE_500();
515 a24 := JTF_VARCHAR2_TABLE_500();
516 a25 := JTF_VARCHAR2_TABLE_500();
517 a26 := JTF_NUMBER_TABLE();
518 a27 := JTF_NUMBER_TABLE();
519 a28 := JTF_DATE_TABLE();
520 a29 := JTF_NUMBER_TABLE();
521 a30 := JTF_DATE_TABLE();
522 a31 := JTF_NUMBER_TABLE();
523 else
524 a0 := JTF_NUMBER_TABLE();
525 a1 := JTF_NUMBER_TABLE();
526 a2 := JTF_VARCHAR2_TABLE_100();
527 a3 := JTF_VARCHAR2_TABLE_100();
528 a4 := JTF_VARCHAR2_TABLE_200();
529 a5 := JTF_VARCHAR2_TABLE_2000();
530 a6 := JTF_VARCHAR2_TABLE_100();
531 a7 := JTF_DATE_TABLE();
532 a8 := JTF_DATE_TABLE();
533 a9 := JTF_VARCHAR2_TABLE_800();
534 a10 := JTF_VARCHAR2_TABLE_100();
535 a11 := JTF_VARCHAR2_TABLE_500();
536 a12 := JTF_VARCHAR2_TABLE_500();
537 a13 := JTF_VARCHAR2_TABLE_500();
538 a14 := JTF_VARCHAR2_TABLE_500();
539 a15 := JTF_VARCHAR2_TABLE_500();
540 a16 := JTF_VARCHAR2_TABLE_500();
541 a17 := JTF_VARCHAR2_TABLE_500();
542 a18 := JTF_VARCHAR2_TABLE_500();
543 a19 := JTF_VARCHAR2_TABLE_500();
544 a20 := JTF_VARCHAR2_TABLE_500();
545 a21 := JTF_VARCHAR2_TABLE_500();
546 a22 := JTF_VARCHAR2_TABLE_500();
547 a23 := JTF_VARCHAR2_TABLE_500();
548 a24 := JTF_VARCHAR2_TABLE_500();
549 a25 := JTF_VARCHAR2_TABLE_500();
550 a26 := JTF_NUMBER_TABLE();
551 a27 := JTF_NUMBER_TABLE();
552 a28 := JTF_DATE_TABLE();
553 a29 := JTF_NUMBER_TABLE();
554 a30 := JTF_DATE_TABLE();
555 a31 := JTF_NUMBER_TABLE();
556 if t.count > 0 then
557 a0.extend(t.count);
558 a1.extend(t.count);
559 a2.extend(t.count);
560 a3.extend(t.count);
561 a4.extend(t.count);
562 a5.extend(t.count);
563 a6.extend(t.count);
564 a7.extend(t.count);
565 a8.extend(t.count);
566 a9.extend(t.count);
567 a10.extend(t.count);
568 a11.extend(t.count);
569 a12.extend(t.count);
570 a13.extend(t.count);
571 a14.extend(t.count);
572 a15.extend(t.count);
573 a16.extend(t.count);
574 a17.extend(t.count);
575 a18.extend(t.count);
576 a19.extend(t.count);
577 a20.extend(t.count);
578 a21.extend(t.count);
579 a22.extend(t.count);
580 a23.extend(t.count);
581 a24.extend(t.count);
582 a25.extend(t.count);
583 a26.extend(t.count);
584 a27.extend(t.count);
585 a28.extend(t.count);
586 a29.extend(t.count);
587 a30.extend(t.count);
588 a31.extend(t.count);
589 ddindx := t.first;
590 indx := 1;
591 while true loop
592 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
593 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
594 a2(indx) := t(ddindx).sfwt_flag;
595 a3(indx) := t(ddindx).fnctn_code;
596 a4(indx) := t(ddindx).name;
597 a5(indx) := t(ddindx).description;
598 a6(indx) := t(ddindx).version;
599 a7(indx) := t(ddindx).start_date;
600 a8(indx) := t(ddindx).end_date;
601 a9(indx) := t(ddindx).source;
602 a10(indx) := t(ddindx).attribute_category;
603 a11(indx) := t(ddindx).attribute1;
604 a12(indx) := t(ddindx).attribute2;
605 a13(indx) := t(ddindx).attribute3;
606 a14(indx) := t(ddindx).attribute4;
607 a15(indx) := t(ddindx).attribute5;
608 a16(indx) := t(ddindx).attribute6;
609 a17(indx) := t(ddindx).attribute7;
610 a18(indx) := t(ddindx).attribute8;
611 a19(indx) := t(ddindx).attribute9;
612 a20(indx) := t(ddindx).attribute10;
613 a21(indx) := t(ddindx).attribute11;
614 a22(indx) := t(ddindx).attribute12;
615 a23(indx) := t(ddindx).attribute13;
616 a24(indx) := t(ddindx).attribute14;
617 a25(indx) := t(ddindx).attribute15;
618 a26(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
619 a27(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
620 a28(indx) := t(ddindx).creation_date;
621 a29(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
622 a30(indx) := t(ddindx).last_update_date;
623 a31(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
624 indx := indx+1;
625 if t.last =ddindx
626 then exit;
627 end if;
628 ddindx := t.next(ddindx);
629 end loop;
630 end if;
631 end if;
632 end rosetta_table_copy_out_p8;
633
634 procedure insert_row(p_api_version NUMBER
635 , p_init_msg_list VARCHAR2
636 , x_return_status out nocopy VARCHAR2
637 , x_msg_count out nocopy NUMBER
638 , x_msg_data out nocopy VARCHAR2
639 , p6_a0 out nocopy NUMBER
640 , p6_a1 out nocopy NUMBER
641 , p6_a2 out nocopy VARCHAR2
642 , p6_a3 out nocopy VARCHAR2
643 , p6_a4 out nocopy VARCHAR2
644 , p6_a5 out nocopy VARCHAR2
645 , p6_a6 out nocopy VARCHAR2
646 , p6_a7 out nocopy DATE
647 , p6_a8 out nocopy DATE
648 , p6_a9 out nocopy VARCHAR2
649 , p6_a10 out nocopy VARCHAR2
650 , p6_a11 out nocopy VARCHAR2
651 , p6_a12 out nocopy VARCHAR2
652 , p6_a13 out nocopy VARCHAR2
653 , p6_a14 out nocopy VARCHAR2
654 , p6_a15 out nocopy VARCHAR2
655 , p6_a16 out nocopy VARCHAR2
656 , p6_a17 out nocopy VARCHAR2
657 , p6_a18 out nocopy VARCHAR2
658 , p6_a19 out nocopy VARCHAR2
659 , p6_a20 out nocopy VARCHAR2
660 , p6_a21 out nocopy VARCHAR2
661 , p6_a22 out nocopy VARCHAR2
662 , p6_a23 out nocopy VARCHAR2
663 , p6_a24 out nocopy VARCHAR2
664 , p6_a25 out nocopy VARCHAR2
665 , p6_a26 out nocopy NUMBER
666 , p6_a27 out nocopy NUMBER
667 , p6_a28 out nocopy DATE
668 , p6_a29 out nocopy NUMBER
669 , p6_a30 out nocopy DATE
670 , p6_a31 out nocopy NUMBER
671 , p5_a0 NUMBER := 0-1962.0724
672 , p5_a1 NUMBER := 0-1962.0724
673 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
674 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
675 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
676 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
677 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
678 , p5_a7 DATE := fnd_api.g_miss_date
679 , p5_a8 DATE := fnd_api.g_miss_date
680 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
681 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
682 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
683 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
684 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
685 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
686 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
687 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
688 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
689 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
690 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
691 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
692 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
693 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
694 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
695 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
696 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
697 , p5_a26 NUMBER := 0-1962.0724
698 , p5_a27 NUMBER := 0-1962.0724
699 , p5_a28 DATE := fnd_api.g_miss_date
700 , p5_a29 NUMBER := 0-1962.0724
701 , p5_a30 DATE := fnd_api.g_miss_date
702 , p5_a31 NUMBER := 0-1962.0724
703 )
704
705 as
706 ddp_dsfv_rec okl_dsf_pvt.dsfv_rec_type;
707 ddx_dsfv_rec okl_dsf_pvt.dsfv_rec_type;
708 ddindx binary_integer; indx binary_integer;
709 begin
710
711 -- copy data to the local IN or IN-OUT args, if any
712
713
714
715
716
717 ddp_dsfv_rec.id := rosetta_g_miss_num_map(p5_a0);
718 ddp_dsfv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
719 ddp_dsfv_rec.sfwt_flag := p5_a2;
720 ddp_dsfv_rec.fnctn_code := p5_a3;
721 ddp_dsfv_rec.name := p5_a4;
722 ddp_dsfv_rec.description := p5_a5;
723 ddp_dsfv_rec.version := p5_a6;
724 ddp_dsfv_rec.start_date := rosetta_g_miss_date_in_map(p5_a7);
725 ddp_dsfv_rec.end_date := rosetta_g_miss_date_in_map(p5_a8);
726 ddp_dsfv_rec.source := p5_a9;
727 ddp_dsfv_rec.attribute_category := p5_a10;
728 ddp_dsfv_rec.attribute1 := p5_a11;
729 ddp_dsfv_rec.attribute2 := p5_a12;
730 ddp_dsfv_rec.attribute3 := p5_a13;
731 ddp_dsfv_rec.attribute4 := p5_a14;
732 ddp_dsfv_rec.attribute5 := p5_a15;
733 ddp_dsfv_rec.attribute6 := p5_a16;
734 ddp_dsfv_rec.attribute7 := p5_a17;
735 ddp_dsfv_rec.attribute8 := p5_a18;
736 ddp_dsfv_rec.attribute9 := p5_a19;
737 ddp_dsfv_rec.attribute10 := p5_a20;
738 ddp_dsfv_rec.attribute11 := p5_a21;
739 ddp_dsfv_rec.attribute12 := p5_a22;
740 ddp_dsfv_rec.attribute13 := p5_a23;
741 ddp_dsfv_rec.attribute14 := p5_a24;
742 ddp_dsfv_rec.attribute15 := p5_a25;
743 ddp_dsfv_rec.org_id := rosetta_g_miss_num_map(p5_a26);
744 ddp_dsfv_rec.created_by := rosetta_g_miss_num_map(p5_a27);
745 ddp_dsfv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a28);
746 ddp_dsfv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a29);
747 ddp_dsfv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a30);
748 ddp_dsfv_rec.last_update_login := rosetta_g_miss_num_map(p5_a31);
749
750
751 -- here's the delegated call to the old PL/SQL routine
752 okl_dsf_pvt.insert_row(p_api_version,
753 p_init_msg_list,
754 x_return_status,
755 x_msg_count,
756 x_msg_data,
757 ddp_dsfv_rec,
758 ddx_dsfv_rec);
759
760 -- copy data back from the local variables to OUT or IN-OUT args, if any
761
762
763
764
765
766
767 p6_a0 := rosetta_g_miss_num_map(ddx_dsfv_rec.id);
768 p6_a1 := rosetta_g_miss_num_map(ddx_dsfv_rec.object_version_number);
769 p6_a2 := ddx_dsfv_rec.sfwt_flag;
770 p6_a3 := ddx_dsfv_rec.fnctn_code;
771 p6_a4 := ddx_dsfv_rec.name;
772 p6_a5 := ddx_dsfv_rec.description;
773 p6_a6 := ddx_dsfv_rec.version;
774 p6_a7 := ddx_dsfv_rec.start_date;
775 p6_a8 := ddx_dsfv_rec.end_date;
776 p6_a9 := ddx_dsfv_rec.source;
777 p6_a10 := ddx_dsfv_rec.attribute_category;
778 p6_a11 := ddx_dsfv_rec.attribute1;
779 p6_a12 := ddx_dsfv_rec.attribute2;
780 p6_a13 := ddx_dsfv_rec.attribute3;
781 p6_a14 := ddx_dsfv_rec.attribute4;
782 p6_a15 := ddx_dsfv_rec.attribute5;
783 p6_a16 := ddx_dsfv_rec.attribute6;
784 p6_a17 := ddx_dsfv_rec.attribute7;
785 p6_a18 := ddx_dsfv_rec.attribute8;
786 p6_a19 := ddx_dsfv_rec.attribute9;
787 p6_a20 := ddx_dsfv_rec.attribute10;
788 p6_a21 := ddx_dsfv_rec.attribute11;
789 p6_a22 := ddx_dsfv_rec.attribute12;
790 p6_a23 := ddx_dsfv_rec.attribute13;
791 p6_a24 := ddx_dsfv_rec.attribute14;
792 p6_a25 := ddx_dsfv_rec.attribute15;
793 p6_a26 := rosetta_g_miss_num_map(ddx_dsfv_rec.org_id);
794 p6_a27 := rosetta_g_miss_num_map(ddx_dsfv_rec.created_by);
795 p6_a28 := ddx_dsfv_rec.creation_date;
796 p6_a29 := rosetta_g_miss_num_map(ddx_dsfv_rec.last_updated_by);
797 p6_a30 := ddx_dsfv_rec.last_update_date;
798 p6_a31 := rosetta_g_miss_num_map(ddx_dsfv_rec.last_update_login);
799 end;
800
801 procedure insert_row(p_api_version NUMBER
802 , p_init_msg_list VARCHAR2
803 , x_return_status out nocopy VARCHAR2
804 , x_msg_count out nocopy NUMBER
805 , x_msg_data out nocopy VARCHAR2
806 , p5_a0 JTF_NUMBER_TABLE
807 , p5_a1 JTF_NUMBER_TABLE
808 , p5_a2 JTF_VARCHAR2_TABLE_100
809 , p5_a3 JTF_VARCHAR2_TABLE_100
810 , p5_a4 JTF_VARCHAR2_TABLE_200
811 , p5_a5 JTF_VARCHAR2_TABLE_2000
812 , p5_a6 JTF_VARCHAR2_TABLE_100
813 , p5_a7 JTF_DATE_TABLE
814 , p5_a8 JTF_DATE_TABLE
815 , p5_a9 JTF_VARCHAR2_TABLE_800
816 , p5_a10 JTF_VARCHAR2_TABLE_100
817 , p5_a11 JTF_VARCHAR2_TABLE_500
818 , p5_a12 JTF_VARCHAR2_TABLE_500
819 , p5_a13 JTF_VARCHAR2_TABLE_500
820 , p5_a14 JTF_VARCHAR2_TABLE_500
821 , p5_a15 JTF_VARCHAR2_TABLE_500
822 , p5_a16 JTF_VARCHAR2_TABLE_500
823 , p5_a17 JTF_VARCHAR2_TABLE_500
824 , p5_a18 JTF_VARCHAR2_TABLE_500
825 , p5_a19 JTF_VARCHAR2_TABLE_500
826 , p5_a20 JTF_VARCHAR2_TABLE_500
827 , p5_a21 JTF_VARCHAR2_TABLE_500
828 , p5_a22 JTF_VARCHAR2_TABLE_500
829 , p5_a23 JTF_VARCHAR2_TABLE_500
830 , p5_a24 JTF_VARCHAR2_TABLE_500
831 , p5_a25 JTF_VARCHAR2_TABLE_500
832 , p5_a26 JTF_NUMBER_TABLE
833 , p5_a27 JTF_NUMBER_TABLE
834 , p5_a28 JTF_DATE_TABLE
835 , p5_a29 JTF_NUMBER_TABLE
836 , p5_a30 JTF_DATE_TABLE
837 , p5_a31 JTF_NUMBER_TABLE
838 , p6_a0 out nocopy JTF_NUMBER_TABLE
839 , p6_a1 out nocopy JTF_NUMBER_TABLE
840 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
841 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
842 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_200
843 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_2000
844 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
845 , p6_a7 out nocopy JTF_DATE_TABLE
846 , p6_a8 out nocopy JTF_DATE_TABLE
847 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_800
848 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
849 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
850 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
851 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
852 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
853 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
854 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
855 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
856 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
857 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
858 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
859 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
860 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
861 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
862 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
863 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
864 , p6_a26 out nocopy JTF_NUMBER_TABLE
865 , p6_a27 out nocopy JTF_NUMBER_TABLE
866 , p6_a28 out nocopy JTF_DATE_TABLE
867 , p6_a29 out nocopy JTF_NUMBER_TABLE
868 , p6_a30 out nocopy JTF_DATE_TABLE
869 , p6_a31 out nocopy JTF_NUMBER_TABLE
870 )
871
872 as
873 ddp_dsfv_tbl okl_dsf_pvt.dsfv_tbl_type;
874 ddx_dsfv_tbl okl_dsf_pvt.dsfv_tbl_type;
875 ddindx binary_integer; indx binary_integer;
876 begin
877
878 -- copy data to the local IN or IN-OUT args, if any
879
880
881
882
883
884 okl_dsf_pvt_w.rosetta_table_copy_in_p8(ddp_dsfv_tbl, p5_a0
885 , p5_a1
886 , p5_a2
887 , p5_a3
888 , p5_a4
889 , p5_a5
890 , p5_a6
891 , p5_a7
892 , p5_a8
893 , p5_a9
894 , p5_a10
895 , p5_a11
896 , p5_a12
897 , p5_a13
898 , p5_a14
899 , p5_a15
900 , p5_a16
901 , p5_a17
902 , p5_a18
903 , p5_a19
904 , p5_a20
905 , p5_a21
906 , p5_a22
907 , p5_a23
908 , p5_a24
909 , p5_a25
910 , p5_a26
911 , p5_a27
912 , p5_a28
913 , p5_a29
914 , p5_a30
915 , p5_a31
916 );
917
918
919 -- here's the delegated call to the old PL/SQL routine
920 okl_dsf_pvt.insert_row(p_api_version,
921 p_init_msg_list,
922 x_return_status,
923 x_msg_count,
924 x_msg_data,
925 ddp_dsfv_tbl,
926 ddx_dsfv_tbl);
927
928 -- copy data back from the local variables to OUT or IN-OUT args, if any
929
930
931
932
933
934
935 okl_dsf_pvt_w.rosetta_table_copy_out_p8(ddx_dsfv_tbl, p6_a0
936 , p6_a1
937 , p6_a2
938 , p6_a3
939 , p6_a4
940 , p6_a5
941 , p6_a6
942 , p6_a7
943 , p6_a8
944 , p6_a9
945 , p6_a10
946 , p6_a11
947 , p6_a12
948 , p6_a13
949 , p6_a14
950 , p6_a15
951 , p6_a16
952 , p6_a17
953 , p6_a18
954 , p6_a19
955 , p6_a20
956 , p6_a21
957 , p6_a22
958 , p6_a23
959 , p6_a24
960 , p6_a25
961 , p6_a26
962 , p6_a27
963 , p6_a28
964 , p6_a29
965 , p6_a30
966 , p6_a31
967 );
968 end;
969
970 procedure lock_row(p_api_version NUMBER
971 , p_init_msg_list VARCHAR2
972 , x_return_status out nocopy VARCHAR2
973 , x_msg_count out nocopy NUMBER
974 , x_msg_data out nocopy VARCHAR2
975 , p5_a0 NUMBER := 0-1962.0724
976 , p5_a1 NUMBER := 0-1962.0724
977 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
978 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
979 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
980 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
981 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
982 , p5_a7 DATE := fnd_api.g_miss_date
983 , p5_a8 DATE := fnd_api.g_miss_date
984 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
985 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
986 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
987 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
988 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
989 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
990 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
991 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
992 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
993 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
994 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
995 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
996 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
997 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
998 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
999 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1000 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1001 , p5_a26 NUMBER := 0-1962.0724
1002 , p5_a27 NUMBER := 0-1962.0724
1003 , p5_a28 DATE := fnd_api.g_miss_date
1004 , p5_a29 NUMBER := 0-1962.0724
1005 , p5_a30 DATE := fnd_api.g_miss_date
1006 , p5_a31 NUMBER := 0-1962.0724
1007 )
1008
1009 as
1010 ddp_dsfv_rec okl_dsf_pvt.dsfv_rec_type;
1011 ddindx binary_integer; indx binary_integer;
1012 begin
1013
1014 -- copy data to the local IN or IN-OUT args, if any
1015
1016
1017
1018
1019
1020 ddp_dsfv_rec.id := rosetta_g_miss_num_map(p5_a0);
1021 ddp_dsfv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1022 ddp_dsfv_rec.sfwt_flag := p5_a2;
1023 ddp_dsfv_rec.fnctn_code := p5_a3;
1024 ddp_dsfv_rec.name := p5_a4;
1025 ddp_dsfv_rec.description := p5_a5;
1026 ddp_dsfv_rec.version := p5_a6;
1027 ddp_dsfv_rec.start_date := rosetta_g_miss_date_in_map(p5_a7);
1028 ddp_dsfv_rec.end_date := rosetta_g_miss_date_in_map(p5_a8);
1029 ddp_dsfv_rec.source := p5_a9;
1030 ddp_dsfv_rec.attribute_category := p5_a10;
1031 ddp_dsfv_rec.attribute1 := p5_a11;
1032 ddp_dsfv_rec.attribute2 := p5_a12;
1033 ddp_dsfv_rec.attribute3 := p5_a13;
1034 ddp_dsfv_rec.attribute4 := p5_a14;
1035 ddp_dsfv_rec.attribute5 := p5_a15;
1036 ddp_dsfv_rec.attribute6 := p5_a16;
1037 ddp_dsfv_rec.attribute7 := p5_a17;
1038 ddp_dsfv_rec.attribute8 := p5_a18;
1039 ddp_dsfv_rec.attribute9 := p5_a19;
1040 ddp_dsfv_rec.attribute10 := p5_a20;
1041 ddp_dsfv_rec.attribute11 := p5_a21;
1042 ddp_dsfv_rec.attribute12 := p5_a22;
1043 ddp_dsfv_rec.attribute13 := p5_a23;
1044 ddp_dsfv_rec.attribute14 := p5_a24;
1045 ddp_dsfv_rec.attribute15 := p5_a25;
1046 ddp_dsfv_rec.org_id := rosetta_g_miss_num_map(p5_a26);
1047 ddp_dsfv_rec.created_by := rosetta_g_miss_num_map(p5_a27);
1048 ddp_dsfv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a28);
1049 ddp_dsfv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a29);
1050 ddp_dsfv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a30);
1051 ddp_dsfv_rec.last_update_login := rosetta_g_miss_num_map(p5_a31);
1052
1053 -- here's the delegated call to the old PL/SQL routine
1054 okl_dsf_pvt.lock_row(p_api_version,
1055 p_init_msg_list,
1056 x_return_status,
1057 x_msg_count,
1058 x_msg_data,
1059 ddp_dsfv_rec);
1060
1061 -- copy data back from the local variables to OUT or IN-OUT args, if any
1062
1063
1064
1065
1066
1067 end;
1068
1069 procedure lock_row(p_api_version NUMBER
1070 , p_init_msg_list VARCHAR2
1071 , x_return_status out nocopy VARCHAR2
1072 , x_msg_count out nocopy NUMBER
1073 , x_msg_data out nocopy VARCHAR2
1074 , p5_a0 JTF_NUMBER_TABLE
1075 , p5_a1 JTF_NUMBER_TABLE
1076 , p5_a2 JTF_VARCHAR2_TABLE_100
1077 , p5_a3 JTF_VARCHAR2_TABLE_100
1078 , p5_a4 JTF_VARCHAR2_TABLE_200
1079 , p5_a5 JTF_VARCHAR2_TABLE_2000
1080 , p5_a6 JTF_VARCHAR2_TABLE_100
1081 , p5_a7 JTF_DATE_TABLE
1082 , p5_a8 JTF_DATE_TABLE
1083 , p5_a9 JTF_VARCHAR2_TABLE_800
1084 , p5_a10 JTF_VARCHAR2_TABLE_100
1085 , p5_a11 JTF_VARCHAR2_TABLE_500
1086 , p5_a12 JTF_VARCHAR2_TABLE_500
1087 , p5_a13 JTF_VARCHAR2_TABLE_500
1088 , p5_a14 JTF_VARCHAR2_TABLE_500
1089 , p5_a15 JTF_VARCHAR2_TABLE_500
1090 , p5_a16 JTF_VARCHAR2_TABLE_500
1091 , p5_a17 JTF_VARCHAR2_TABLE_500
1092 , p5_a18 JTF_VARCHAR2_TABLE_500
1093 , p5_a19 JTF_VARCHAR2_TABLE_500
1094 , p5_a20 JTF_VARCHAR2_TABLE_500
1095 , p5_a21 JTF_VARCHAR2_TABLE_500
1096 , p5_a22 JTF_VARCHAR2_TABLE_500
1097 , p5_a23 JTF_VARCHAR2_TABLE_500
1098 , p5_a24 JTF_VARCHAR2_TABLE_500
1099 , p5_a25 JTF_VARCHAR2_TABLE_500
1100 , p5_a26 JTF_NUMBER_TABLE
1101 , p5_a27 JTF_NUMBER_TABLE
1102 , p5_a28 JTF_DATE_TABLE
1103 , p5_a29 JTF_NUMBER_TABLE
1104 , p5_a30 JTF_DATE_TABLE
1105 , p5_a31 JTF_NUMBER_TABLE
1106 )
1107
1108 as
1109 ddp_dsfv_tbl okl_dsf_pvt.dsfv_tbl_type;
1110 ddindx binary_integer; indx binary_integer;
1111 begin
1112
1113 -- copy data to the local IN or IN-OUT args, if any
1114
1115
1116
1117
1118
1119 okl_dsf_pvt_w.rosetta_table_copy_in_p8(ddp_dsfv_tbl, p5_a0
1120 , p5_a1
1121 , p5_a2
1122 , p5_a3
1123 , p5_a4
1124 , p5_a5
1125 , p5_a6
1126 , p5_a7
1127 , p5_a8
1128 , p5_a9
1129 , p5_a10
1130 , p5_a11
1131 , p5_a12
1132 , p5_a13
1133 , p5_a14
1134 , p5_a15
1135 , p5_a16
1136 , p5_a17
1137 , p5_a18
1138 , p5_a19
1139 , p5_a20
1140 , p5_a21
1141 , p5_a22
1142 , p5_a23
1143 , p5_a24
1144 , p5_a25
1145 , p5_a26
1146 , p5_a27
1147 , p5_a28
1148 , p5_a29
1149 , p5_a30
1150 , p5_a31
1151 );
1152
1153 -- here's the delegated call to the old PL/SQL routine
1154 okl_dsf_pvt.lock_row(p_api_version,
1155 p_init_msg_list,
1156 x_return_status,
1157 x_msg_count,
1158 x_msg_data,
1159 ddp_dsfv_tbl);
1160
1161 -- copy data back from the local variables to OUT or IN-OUT args, if any
1162
1163
1164
1165
1166
1167 end;
1168
1169 procedure update_row(p_api_version NUMBER
1170 , p_init_msg_list VARCHAR2
1171 , x_return_status out nocopy VARCHAR2
1172 , x_msg_count out nocopy NUMBER
1173 , x_msg_data out nocopy VARCHAR2
1174 , p6_a0 out nocopy NUMBER
1175 , p6_a1 out nocopy NUMBER
1176 , p6_a2 out nocopy VARCHAR2
1177 , p6_a3 out nocopy VARCHAR2
1178 , p6_a4 out nocopy VARCHAR2
1179 , p6_a5 out nocopy VARCHAR2
1180 , p6_a6 out nocopy VARCHAR2
1181 , p6_a7 out nocopy DATE
1182 , p6_a8 out nocopy DATE
1183 , p6_a9 out nocopy VARCHAR2
1184 , p6_a10 out nocopy VARCHAR2
1185 , p6_a11 out nocopy VARCHAR2
1186 , p6_a12 out nocopy VARCHAR2
1187 , p6_a13 out nocopy VARCHAR2
1188 , p6_a14 out nocopy VARCHAR2
1189 , p6_a15 out nocopy VARCHAR2
1190 , p6_a16 out nocopy VARCHAR2
1191 , p6_a17 out nocopy VARCHAR2
1192 , p6_a18 out nocopy VARCHAR2
1193 , p6_a19 out nocopy VARCHAR2
1194 , p6_a20 out nocopy VARCHAR2
1195 , p6_a21 out nocopy VARCHAR2
1196 , p6_a22 out nocopy VARCHAR2
1197 , p6_a23 out nocopy VARCHAR2
1198 , p6_a24 out nocopy VARCHAR2
1199 , p6_a25 out nocopy VARCHAR2
1200 , p6_a26 out nocopy NUMBER
1201 , p6_a27 out nocopy NUMBER
1202 , p6_a28 out nocopy DATE
1203 , p6_a29 out nocopy NUMBER
1204 , p6_a30 out nocopy DATE
1205 , p6_a31 out nocopy NUMBER
1206 , p5_a0 NUMBER := 0-1962.0724
1207 , p5_a1 NUMBER := 0-1962.0724
1208 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1209 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1210 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1211 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1212 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1213 , p5_a7 DATE := fnd_api.g_miss_date
1214 , p5_a8 DATE := fnd_api.g_miss_date
1215 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1216 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1217 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1218 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1219 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1220 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1221 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1222 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1223 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1224 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1225 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1226 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1227 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1228 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1229 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1230 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1231 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1232 , p5_a26 NUMBER := 0-1962.0724
1233 , p5_a27 NUMBER := 0-1962.0724
1234 , p5_a28 DATE := fnd_api.g_miss_date
1235 , p5_a29 NUMBER := 0-1962.0724
1236 , p5_a30 DATE := fnd_api.g_miss_date
1237 , p5_a31 NUMBER := 0-1962.0724
1238 )
1239
1240 as
1241 ddp_dsfv_rec okl_dsf_pvt.dsfv_rec_type;
1242 ddx_dsfv_rec okl_dsf_pvt.dsfv_rec_type;
1243 ddindx binary_integer; indx binary_integer;
1244 begin
1245
1246 -- copy data to the local IN or IN-OUT args, if any
1247
1248
1249
1250
1251
1252 ddp_dsfv_rec.id := rosetta_g_miss_num_map(p5_a0);
1253 ddp_dsfv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1254 ddp_dsfv_rec.sfwt_flag := p5_a2;
1255 ddp_dsfv_rec.fnctn_code := p5_a3;
1256 ddp_dsfv_rec.name := p5_a4;
1257 ddp_dsfv_rec.description := p5_a5;
1258 ddp_dsfv_rec.version := p5_a6;
1259 ddp_dsfv_rec.start_date := rosetta_g_miss_date_in_map(p5_a7);
1260 ddp_dsfv_rec.end_date := rosetta_g_miss_date_in_map(p5_a8);
1261 ddp_dsfv_rec.source := p5_a9;
1262 ddp_dsfv_rec.attribute_category := p5_a10;
1263 ddp_dsfv_rec.attribute1 := p5_a11;
1264 ddp_dsfv_rec.attribute2 := p5_a12;
1265 ddp_dsfv_rec.attribute3 := p5_a13;
1266 ddp_dsfv_rec.attribute4 := p5_a14;
1267 ddp_dsfv_rec.attribute5 := p5_a15;
1268 ddp_dsfv_rec.attribute6 := p5_a16;
1269 ddp_dsfv_rec.attribute7 := p5_a17;
1270 ddp_dsfv_rec.attribute8 := p5_a18;
1271 ddp_dsfv_rec.attribute9 := p5_a19;
1272 ddp_dsfv_rec.attribute10 := p5_a20;
1273 ddp_dsfv_rec.attribute11 := p5_a21;
1274 ddp_dsfv_rec.attribute12 := p5_a22;
1275 ddp_dsfv_rec.attribute13 := p5_a23;
1276 ddp_dsfv_rec.attribute14 := p5_a24;
1277 ddp_dsfv_rec.attribute15 := p5_a25;
1278 ddp_dsfv_rec.org_id := rosetta_g_miss_num_map(p5_a26);
1279 ddp_dsfv_rec.created_by := rosetta_g_miss_num_map(p5_a27);
1280 ddp_dsfv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a28);
1281 ddp_dsfv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a29);
1282 ddp_dsfv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a30);
1283 ddp_dsfv_rec.last_update_login := rosetta_g_miss_num_map(p5_a31);
1284
1285
1286 -- here's the delegated call to the old PL/SQL routine
1287 okl_dsf_pvt.update_row(p_api_version,
1288 p_init_msg_list,
1289 x_return_status,
1290 x_msg_count,
1291 x_msg_data,
1292 ddp_dsfv_rec,
1293 ddx_dsfv_rec);
1294
1295 -- copy data back from the local variables to OUT or IN-OUT args, if any
1296
1297
1298
1299
1300
1301
1302 p6_a0 := rosetta_g_miss_num_map(ddx_dsfv_rec.id);
1303 p6_a1 := rosetta_g_miss_num_map(ddx_dsfv_rec.object_version_number);
1304 p6_a2 := ddx_dsfv_rec.sfwt_flag;
1305 p6_a3 := ddx_dsfv_rec.fnctn_code;
1306 p6_a4 := ddx_dsfv_rec.name;
1307 p6_a5 := ddx_dsfv_rec.description;
1308 p6_a6 := ddx_dsfv_rec.version;
1309 p6_a7 := ddx_dsfv_rec.start_date;
1310 p6_a8 := ddx_dsfv_rec.end_date;
1311 p6_a9 := ddx_dsfv_rec.source;
1312 p6_a10 := ddx_dsfv_rec.attribute_category;
1313 p6_a11 := ddx_dsfv_rec.attribute1;
1314 p6_a12 := ddx_dsfv_rec.attribute2;
1315 p6_a13 := ddx_dsfv_rec.attribute3;
1316 p6_a14 := ddx_dsfv_rec.attribute4;
1317 p6_a15 := ddx_dsfv_rec.attribute5;
1318 p6_a16 := ddx_dsfv_rec.attribute6;
1319 p6_a17 := ddx_dsfv_rec.attribute7;
1320 p6_a18 := ddx_dsfv_rec.attribute8;
1321 p6_a19 := ddx_dsfv_rec.attribute9;
1322 p6_a20 := ddx_dsfv_rec.attribute10;
1323 p6_a21 := ddx_dsfv_rec.attribute11;
1324 p6_a22 := ddx_dsfv_rec.attribute12;
1325 p6_a23 := ddx_dsfv_rec.attribute13;
1326 p6_a24 := ddx_dsfv_rec.attribute14;
1327 p6_a25 := ddx_dsfv_rec.attribute15;
1328 p6_a26 := rosetta_g_miss_num_map(ddx_dsfv_rec.org_id);
1329 p6_a27 := rosetta_g_miss_num_map(ddx_dsfv_rec.created_by);
1330 p6_a28 := ddx_dsfv_rec.creation_date;
1331 p6_a29 := rosetta_g_miss_num_map(ddx_dsfv_rec.last_updated_by);
1332 p6_a30 := ddx_dsfv_rec.last_update_date;
1333 p6_a31 := rosetta_g_miss_num_map(ddx_dsfv_rec.last_update_login);
1334 end;
1335
1336 procedure update_row(p_api_version NUMBER
1337 , p_init_msg_list VARCHAR2
1338 , x_return_status out nocopy VARCHAR2
1339 , x_msg_count out nocopy NUMBER
1340 , x_msg_data out nocopy VARCHAR2
1341 , p5_a0 JTF_NUMBER_TABLE
1342 , p5_a1 JTF_NUMBER_TABLE
1343 , p5_a2 JTF_VARCHAR2_TABLE_100
1344 , p5_a3 JTF_VARCHAR2_TABLE_100
1345 , p5_a4 JTF_VARCHAR2_TABLE_200
1346 , p5_a5 JTF_VARCHAR2_TABLE_2000
1347 , p5_a6 JTF_VARCHAR2_TABLE_100
1348 , p5_a7 JTF_DATE_TABLE
1349 , p5_a8 JTF_DATE_TABLE
1350 , p5_a9 JTF_VARCHAR2_TABLE_800
1351 , p5_a10 JTF_VARCHAR2_TABLE_100
1352 , p5_a11 JTF_VARCHAR2_TABLE_500
1353 , p5_a12 JTF_VARCHAR2_TABLE_500
1354 , p5_a13 JTF_VARCHAR2_TABLE_500
1355 , p5_a14 JTF_VARCHAR2_TABLE_500
1356 , p5_a15 JTF_VARCHAR2_TABLE_500
1357 , p5_a16 JTF_VARCHAR2_TABLE_500
1358 , p5_a17 JTF_VARCHAR2_TABLE_500
1359 , p5_a18 JTF_VARCHAR2_TABLE_500
1360 , p5_a19 JTF_VARCHAR2_TABLE_500
1361 , p5_a20 JTF_VARCHAR2_TABLE_500
1362 , p5_a21 JTF_VARCHAR2_TABLE_500
1363 , p5_a22 JTF_VARCHAR2_TABLE_500
1364 , p5_a23 JTF_VARCHAR2_TABLE_500
1365 , p5_a24 JTF_VARCHAR2_TABLE_500
1366 , p5_a25 JTF_VARCHAR2_TABLE_500
1367 , p5_a26 JTF_NUMBER_TABLE
1368 , p5_a27 JTF_NUMBER_TABLE
1369 , p5_a28 JTF_DATE_TABLE
1370 , p5_a29 JTF_NUMBER_TABLE
1371 , p5_a30 JTF_DATE_TABLE
1372 , p5_a31 JTF_NUMBER_TABLE
1373 , p6_a0 out nocopy JTF_NUMBER_TABLE
1374 , p6_a1 out nocopy JTF_NUMBER_TABLE
1375 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
1376 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
1377 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_200
1378 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_2000
1379 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
1380 , p6_a7 out nocopy JTF_DATE_TABLE
1381 , p6_a8 out nocopy JTF_DATE_TABLE
1382 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_800
1383 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
1384 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
1385 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
1386 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
1387 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
1388 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
1389 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
1390 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
1391 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1392 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1393 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1394 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1395 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1396 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
1397 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
1398 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
1399 , p6_a26 out nocopy JTF_NUMBER_TABLE
1400 , p6_a27 out nocopy JTF_NUMBER_TABLE
1401 , p6_a28 out nocopy JTF_DATE_TABLE
1402 , p6_a29 out nocopy JTF_NUMBER_TABLE
1403 , p6_a30 out nocopy JTF_DATE_TABLE
1404 , p6_a31 out nocopy JTF_NUMBER_TABLE
1405 )
1406
1407 as
1408 ddp_dsfv_tbl okl_dsf_pvt.dsfv_tbl_type;
1409 ddx_dsfv_tbl okl_dsf_pvt.dsfv_tbl_type;
1410 ddindx binary_integer; indx binary_integer;
1411 begin
1412
1413 -- copy data to the local IN or IN-OUT args, if any
1414
1415
1416
1417
1418
1419 okl_dsf_pvt_w.rosetta_table_copy_in_p8(ddp_dsfv_tbl, p5_a0
1420 , p5_a1
1421 , p5_a2
1422 , p5_a3
1423 , p5_a4
1424 , p5_a5
1425 , p5_a6
1426 , p5_a7
1427 , p5_a8
1428 , p5_a9
1429 , p5_a10
1430 , p5_a11
1431 , p5_a12
1432 , p5_a13
1433 , p5_a14
1434 , p5_a15
1435 , p5_a16
1436 , p5_a17
1437 , p5_a18
1438 , p5_a19
1439 , p5_a20
1440 , p5_a21
1441 , p5_a22
1442 , p5_a23
1443 , p5_a24
1444 , p5_a25
1445 , p5_a26
1446 , p5_a27
1447 , p5_a28
1448 , p5_a29
1449 , p5_a30
1450 , p5_a31
1451 );
1452
1453
1454 -- here's the delegated call to the old PL/SQL routine
1455 okl_dsf_pvt.update_row(p_api_version,
1456 p_init_msg_list,
1457 x_return_status,
1458 x_msg_count,
1459 x_msg_data,
1460 ddp_dsfv_tbl,
1461 ddx_dsfv_tbl);
1462
1463 -- copy data back from the local variables to OUT or IN-OUT args, if any
1464
1465
1466
1467
1468
1469
1470 okl_dsf_pvt_w.rosetta_table_copy_out_p8(ddx_dsfv_tbl, p6_a0
1471 , p6_a1
1472 , p6_a2
1473 , p6_a3
1474 , p6_a4
1475 , p6_a5
1476 , p6_a6
1477 , p6_a7
1478 , p6_a8
1479 , p6_a9
1480 , p6_a10
1481 , p6_a11
1482 , p6_a12
1483 , p6_a13
1484 , p6_a14
1485 , p6_a15
1486 , p6_a16
1487 , p6_a17
1488 , p6_a18
1489 , p6_a19
1490 , p6_a20
1491 , p6_a21
1492 , p6_a22
1493 , p6_a23
1494 , p6_a24
1495 , p6_a25
1496 , p6_a26
1497 , p6_a27
1498 , p6_a28
1499 , p6_a29
1500 , p6_a30
1501 , p6_a31
1502 );
1503 end;
1504
1505 procedure delete_row(p_api_version NUMBER
1506 , p_init_msg_list VARCHAR2
1507 , x_return_status out nocopy VARCHAR2
1508 , x_msg_count out nocopy NUMBER
1509 , x_msg_data out nocopy VARCHAR2
1510 , p5_a0 NUMBER := 0-1962.0724
1511 , p5_a1 NUMBER := 0-1962.0724
1512 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1513 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1514 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1515 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1516 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1517 , p5_a7 DATE := fnd_api.g_miss_date
1518 , p5_a8 DATE := fnd_api.g_miss_date
1519 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1520 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1521 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1522 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1523 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1524 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1525 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1526 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1527 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1528 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1529 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1530 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1531 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1532 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1533 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1534 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1535 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1536 , p5_a26 NUMBER := 0-1962.0724
1537 , p5_a27 NUMBER := 0-1962.0724
1538 , p5_a28 DATE := fnd_api.g_miss_date
1539 , p5_a29 NUMBER := 0-1962.0724
1540 , p5_a30 DATE := fnd_api.g_miss_date
1541 , p5_a31 NUMBER := 0-1962.0724
1542 )
1543
1544 as
1545 ddp_dsfv_rec okl_dsf_pvt.dsfv_rec_type;
1546 ddindx binary_integer; indx binary_integer;
1547 begin
1548
1549 -- copy data to the local IN or IN-OUT args, if any
1550
1551
1552
1553
1554
1555 ddp_dsfv_rec.id := rosetta_g_miss_num_map(p5_a0);
1556 ddp_dsfv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1557 ddp_dsfv_rec.sfwt_flag := p5_a2;
1558 ddp_dsfv_rec.fnctn_code := p5_a3;
1559 ddp_dsfv_rec.name := p5_a4;
1560 ddp_dsfv_rec.description := p5_a5;
1561 ddp_dsfv_rec.version := p5_a6;
1562 ddp_dsfv_rec.start_date := rosetta_g_miss_date_in_map(p5_a7);
1563 ddp_dsfv_rec.end_date := rosetta_g_miss_date_in_map(p5_a8);
1564 ddp_dsfv_rec.source := p5_a9;
1565 ddp_dsfv_rec.attribute_category := p5_a10;
1566 ddp_dsfv_rec.attribute1 := p5_a11;
1567 ddp_dsfv_rec.attribute2 := p5_a12;
1568 ddp_dsfv_rec.attribute3 := p5_a13;
1569 ddp_dsfv_rec.attribute4 := p5_a14;
1570 ddp_dsfv_rec.attribute5 := p5_a15;
1571 ddp_dsfv_rec.attribute6 := p5_a16;
1572 ddp_dsfv_rec.attribute7 := p5_a17;
1573 ddp_dsfv_rec.attribute8 := p5_a18;
1574 ddp_dsfv_rec.attribute9 := p5_a19;
1575 ddp_dsfv_rec.attribute10 := p5_a20;
1576 ddp_dsfv_rec.attribute11 := p5_a21;
1577 ddp_dsfv_rec.attribute12 := p5_a22;
1578 ddp_dsfv_rec.attribute13 := p5_a23;
1579 ddp_dsfv_rec.attribute14 := p5_a24;
1580 ddp_dsfv_rec.attribute15 := p5_a25;
1581 ddp_dsfv_rec.org_id := rosetta_g_miss_num_map(p5_a26);
1582 ddp_dsfv_rec.created_by := rosetta_g_miss_num_map(p5_a27);
1583 ddp_dsfv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a28);
1584 ddp_dsfv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a29);
1585 ddp_dsfv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a30);
1586 ddp_dsfv_rec.last_update_login := rosetta_g_miss_num_map(p5_a31);
1587
1588 -- here's the delegated call to the old PL/SQL routine
1589 okl_dsf_pvt.delete_row(p_api_version,
1590 p_init_msg_list,
1591 x_return_status,
1592 x_msg_count,
1593 x_msg_data,
1594 ddp_dsfv_rec);
1595
1596 -- copy data back from the local variables to OUT or IN-OUT args, if any
1597
1598
1599
1600
1601
1602 end;
1603
1604 procedure delete_row(p_api_version NUMBER
1605 , p_init_msg_list VARCHAR2
1606 , x_return_status out nocopy VARCHAR2
1607 , x_msg_count out nocopy NUMBER
1608 , x_msg_data out nocopy VARCHAR2
1609 , p5_a0 JTF_NUMBER_TABLE
1610 , p5_a1 JTF_NUMBER_TABLE
1611 , p5_a2 JTF_VARCHAR2_TABLE_100
1612 , p5_a3 JTF_VARCHAR2_TABLE_100
1613 , p5_a4 JTF_VARCHAR2_TABLE_200
1614 , p5_a5 JTF_VARCHAR2_TABLE_2000
1615 , p5_a6 JTF_VARCHAR2_TABLE_100
1616 , p5_a7 JTF_DATE_TABLE
1617 , p5_a8 JTF_DATE_TABLE
1618 , p5_a9 JTF_VARCHAR2_TABLE_800
1619 , p5_a10 JTF_VARCHAR2_TABLE_100
1620 , p5_a11 JTF_VARCHAR2_TABLE_500
1621 , p5_a12 JTF_VARCHAR2_TABLE_500
1622 , p5_a13 JTF_VARCHAR2_TABLE_500
1623 , p5_a14 JTF_VARCHAR2_TABLE_500
1624 , p5_a15 JTF_VARCHAR2_TABLE_500
1625 , p5_a16 JTF_VARCHAR2_TABLE_500
1626 , p5_a17 JTF_VARCHAR2_TABLE_500
1627 , p5_a18 JTF_VARCHAR2_TABLE_500
1628 , p5_a19 JTF_VARCHAR2_TABLE_500
1629 , p5_a20 JTF_VARCHAR2_TABLE_500
1630 , p5_a21 JTF_VARCHAR2_TABLE_500
1631 , p5_a22 JTF_VARCHAR2_TABLE_500
1632 , p5_a23 JTF_VARCHAR2_TABLE_500
1633 , p5_a24 JTF_VARCHAR2_TABLE_500
1634 , p5_a25 JTF_VARCHAR2_TABLE_500
1635 , p5_a26 JTF_NUMBER_TABLE
1636 , p5_a27 JTF_NUMBER_TABLE
1637 , p5_a28 JTF_DATE_TABLE
1638 , p5_a29 JTF_NUMBER_TABLE
1639 , p5_a30 JTF_DATE_TABLE
1640 , p5_a31 JTF_NUMBER_TABLE
1641 )
1642
1643 as
1644 ddp_dsfv_tbl okl_dsf_pvt.dsfv_tbl_type;
1645 ddindx binary_integer; indx binary_integer;
1646 begin
1647
1648 -- copy data to the local IN or IN-OUT args, if any
1649
1650
1651
1652
1653
1654 okl_dsf_pvt_w.rosetta_table_copy_in_p8(ddp_dsfv_tbl, p5_a0
1655 , p5_a1
1656 , p5_a2
1657 , p5_a3
1658 , p5_a4
1659 , p5_a5
1660 , p5_a6
1661 , p5_a7
1662 , p5_a8
1663 , p5_a9
1664 , p5_a10
1665 , p5_a11
1666 , p5_a12
1667 , p5_a13
1668 , p5_a14
1669 , p5_a15
1670 , p5_a16
1671 , p5_a17
1672 , p5_a18
1673 , p5_a19
1674 , p5_a20
1675 , p5_a21
1676 , p5_a22
1677 , p5_a23
1678 , p5_a24
1679 , p5_a25
1680 , p5_a26
1681 , p5_a27
1682 , p5_a28
1683 , p5_a29
1684 , p5_a30
1685 , p5_a31
1686 );
1687
1688 -- here's the delegated call to the old PL/SQL routine
1689 okl_dsf_pvt.delete_row(p_api_version,
1690 p_init_msg_list,
1691 x_return_status,
1692 x_msg_count,
1693 x_msg_data,
1694 ddp_dsfv_tbl);
1695
1696 -- copy data back from the local variables to OUT or IN-OUT args, if any
1697
1698
1699
1700
1701
1702 end;
1703
1704 procedure validate_row(p_api_version NUMBER
1705 , p_init_msg_list VARCHAR2
1706 , x_return_status out nocopy VARCHAR2
1707 , x_msg_count out nocopy NUMBER
1708 , x_msg_data out nocopy VARCHAR2
1709 , p5_a0 NUMBER := 0-1962.0724
1710 , p5_a1 NUMBER := 0-1962.0724
1711 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1712 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1713 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1714 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1715 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1716 , p5_a7 DATE := fnd_api.g_miss_date
1717 , p5_a8 DATE := fnd_api.g_miss_date
1718 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1719 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1720 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1721 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1722 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1723 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1724 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1725 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1726 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1727 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1728 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1729 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1730 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1731 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1732 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1733 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1734 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1735 , p5_a26 NUMBER := 0-1962.0724
1736 , p5_a27 NUMBER := 0-1962.0724
1737 , p5_a28 DATE := fnd_api.g_miss_date
1738 , p5_a29 NUMBER := 0-1962.0724
1739 , p5_a30 DATE := fnd_api.g_miss_date
1740 , p5_a31 NUMBER := 0-1962.0724
1741 )
1742
1743 as
1744 ddp_dsfv_rec okl_dsf_pvt.dsfv_rec_type;
1745 ddindx binary_integer; indx binary_integer;
1746 begin
1747
1748 -- copy data to the local IN or IN-OUT args, if any
1749
1750
1751
1752
1753
1754 ddp_dsfv_rec.id := rosetta_g_miss_num_map(p5_a0);
1755 ddp_dsfv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1756 ddp_dsfv_rec.sfwt_flag := p5_a2;
1757 ddp_dsfv_rec.fnctn_code := p5_a3;
1758 ddp_dsfv_rec.name := p5_a4;
1759 ddp_dsfv_rec.description := p5_a5;
1760 ddp_dsfv_rec.version := p5_a6;
1761 ddp_dsfv_rec.start_date := rosetta_g_miss_date_in_map(p5_a7);
1762 ddp_dsfv_rec.end_date := rosetta_g_miss_date_in_map(p5_a8);
1763 ddp_dsfv_rec.source := p5_a9;
1764 ddp_dsfv_rec.attribute_category := p5_a10;
1765 ddp_dsfv_rec.attribute1 := p5_a11;
1766 ddp_dsfv_rec.attribute2 := p5_a12;
1767 ddp_dsfv_rec.attribute3 := p5_a13;
1768 ddp_dsfv_rec.attribute4 := p5_a14;
1769 ddp_dsfv_rec.attribute5 := p5_a15;
1770 ddp_dsfv_rec.attribute6 := p5_a16;
1771 ddp_dsfv_rec.attribute7 := p5_a17;
1772 ddp_dsfv_rec.attribute8 := p5_a18;
1773 ddp_dsfv_rec.attribute9 := p5_a19;
1774 ddp_dsfv_rec.attribute10 := p5_a20;
1775 ddp_dsfv_rec.attribute11 := p5_a21;
1776 ddp_dsfv_rec.attribute12 := p5_a22;
1777 ddp_dsfv_rec.attribute13 := p5_a23;
1778 ddp_dsfv_rec.attribute14 := p5_a24;
1779 ddp_dsfv_rec.attribute15 := p5_a25;
1780 ddp_dsfv_rec.org_id := rosetta_g_miss_num_map(p5_a26);
1781 ddp_dsfv_rec.created_by := rosetta_g_miss_num_map(p5_a27);
1782 ddp_dsfv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a28);
1783 ddp_dsfv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a29);
1784 ddp_dsfv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a30);
1785 ddp_dsfv_rec.last_update_login := rosetta_g_miss_num_map(p5_a31);
1786
1787 -- here's the delegated call to the old PL/SQL routine
1788 okl_dsf_pvt.validate_row(p_api_version,
1789 p_init_msg_list,
1790 x_return_status,
1791 x_msg_count,
1792 x_msg_data,
1793 ddp_dsfv_rec);
1794
1795 -- copy data back from the local variables to OUT or IN-OUT args, if any
1796
1797
1798
1799
1800
1801 end;
1802
1803 procedure validate_row(p_api_version NUMBER
1804 , p_init_msg_list VARCHAR2
1805 , x_return_status out nocopy VARCHAR2
1806 , x_msg_count out nocopy NUMBER
1807 , x_msg_data out nocopy VARCHAR2
1808 , p5_a0 JTF_NUMBER_TABLE
1809 , p5_a1 JTF_NUMBER_TABLE
1810 , p5_a2 JTF_VARCHAR2_TABLE_100
1811 , p5_a3 JTF_VARCHAR2_TABLE_100
1812 , p5_a4 JTF_VARCHAR2_TABLE_200
1813 , p5_a5 JTF_VARCHAR2_TABLE_2000
1814 , p5_a6 JTF_VARCHAR2_TABLE_100
1815 , p5_a7 JTF_DATE_TABLE
1816 , p5_a8 JTF_DATE_TABLE
1817 , p5_a9 JTF_VARCHAR2_TABLE_800
1818 , p5_a10 JTF_VARCHAR2_TABLE_100
1819 , p5_a11 JTF_VARCHAR2_TABLE_500
1820 , p5_a12 JTF_VARCHAR2_TABLE_500
1821 , p5_a13 JTF_VARCHAR2_TABLE_500
1822 , p5_a14 JTF_VARCHAR2_TABLE_500
1823 , p5_a15 JTF_VARCHAR2_TABLE_500
1824 , p5_a16 JTF_VARCHAR2_TABLE_500
1825 , p5_a17 JTF_VARCHAR2_TABLE_500
1826 , p5_a18 JTF_VARCHAR2_TABLE_500
1827 , p5_a19 JTF_VARCHAR2_TABLE_500
1828 , p5_a20 JTF_VARCHAR2_TABLE_500
1829 , p5_a21 JTF_VARCHAR2_TABLE_500
1830 , p5_a22 JTF_VARCHAR2_TABLE_500
1831 , p5_a23 JTF_VARCHAR2_TABLE_500
1832 , p5_a24 JTF_VARCHAR2_TABLE_500
1833 , p5_a25 JTF_VARCHAR2_TABLE_500
1834 , p5_a26 JTF_NUMBER_TABLE
1835 , p5_a27 JTF_NUMBER_TABLE
1836 , p5_a28 JTF_DATE_TABLE
1837 , p5_a29 JTF_NUMBER_TABLE
1838 , p5_a30 JTF_DATE_TABLE
1839 , p5_a31 JTF_NUMBER_TABLE
1840 )
1841
1842 as
1843 ddp_dsfv_tbl okl_dsf_pvt.dsfv_tbl_type;
1844 ddindx binary_integer; indx binary_integer;
1845 begin
1846
1847 -- copy data to the local IN or IN-OUT args, if any
1848
1849
1850
1851
1852
1853 okl_dsf_pvt_w.rosetta_table_copy_in_p8(ddp_dsfv_tbl, p5_a0
1854 , p5_a1
1855 , p5_a2
1856 , p5_a3
1857 , p5_a4
1858 , p5_a5
1859 , p5_a6
1860 , p5_a7
1861 , p5_a8
1862 , p5_a9
1863 , p5_a10
1864 , p5_a11
1865 , p5_a12
1866 , p5_a13
1867 , p5_a14
1868 , p5_a15
1869 , p5_a16
1870 , p5_a17
1871 , p5_a18
1872 , p5_a19
1873 , p5_a20
1874 , p5_a21
1875 , p5_a22
1876 , p5_a23
1877 , p5_a24
1878 , p5_a25
1879 , p5_a26
1880 , p5_a27
1881 , p5_a28
1882 , p5_a29
1883 , p5_a30
1884 , p5_a31
1885 );
1886
1887 -- here's the delegated call to the old PL/SQL routine
1888 okl_dsf_pvt.validate_row(p_api_version,
1889 p_init_msg_list,
1890 x_return_status,
1891 x_msg_count,
1892 x_msg_data,
1893 ddp_dsfv_tbl);
1894
1895 -- copy data back from the local variables to OUT or IN-OUT args, if any
1896
1897
1898
1899
1900
1901 end;
1902
1903 end okl_dsf_pvt_w;