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