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