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