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