[Home] [Help]
PACKAGE BODY: APPS.OZF_PRICELIST_PVT_W
Source
1 package body ozf_pricelist_pvt_w as
2 /* $Header: ozfwpltb.pls 120.1 2005/08/17 17:56 appldev ship $ */
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_p3(t out nocopy ozf_pricelist_pvt.qualifiers_tbl_type, a0 JTF_VARCHAR2_TABLE_100
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_DATE_TABLE
25 , a3 JTF_VARCHAR2_TABLE_100
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_VARCHAR2_TABLE_100
29 , a7 JTF_VARCHAR2_TABLE_300
30 , a8 JTF_VARCHAR2_TABLE_300
31 , a9 JTF_VARCHAR2_TABLE_100
32 , a10 JTF_VARCHAR2_TABLE_100
33 , a11 JTF_NUMBER_TABLE
34 , a12 JTF_NUMBER_TABLE
35 , a13 JTF_NUMBER_TABLE
36 , a14 JTF_DATE_TABLE
37 , a15 JTF_VARCHAR2_TABLE_100
38 , a16 JTF_VARCHAR2_TABLE_100
39 , a17 JTF_VARCHAR2_TABLE_300
40 , a18 JTF_VARCHAR2_TABLE_300
41 , a19 JTF_VARCHAR2_TABLE_300
42 , a20 JTF_VARCHAR2_TABLE_300
43 , a21 JTF_VARCHAR2_TABLE_300
44 , a22 JTF_VARCHAR2_TABLE_300
45 , a23 JTF_VARCHAR2_TABLE_300
46 , a24 JTF_VARCHAR2_TABLE_300
47 , a25 JTF_VARCHAR2_TABLE_300
48 , a26 JTF_VARCHAR2_TABLE_300
49 , a27 JTF_VARCHAR2_TABLE_300
50 , a28 JTF_VARCHAR2_TABLE_300
51 , a29 JTF_VARCHAR2_TABLE_300
52 , a30 JTF_VARCHAR2_TABLE_300
53 , a31 JTF_VARCHAR2_TABLE_300
54 ) as
55 ddindx binary_integer; indx binary_integer;
56 begin
57 if a0 is not null and a0.count > 0 then
58 if a0.count > 0 then
59 indx := a0.first;
60 ddindx := 1;
61 while true loop
62 t(ddindx).comparison_operator_code := a0(indx);
63 t(ddindx).created_by := rosetta_g_miss_num_map(a1(indx));
64 t(ddindx).end_date_active := rosetta_g_miss_date_in_map(a2(indx));
65 t(ddindx).excluder_flag := a3(indx);
66 t(ddindx).list_header_id := rosetta_g_miss_num_map(a4(indx));
67 t(ddindx).list_line_id := rosetta_g_miss_num_map(a5(indx));
68 t(ddindx).qualifier_attribute := a6(indx);
69 t(ddindx).qualifier_attr_value := a7(indx);
70 t(ddindx).qualifier_attr_value_to := a8(indx);
71 t(ddindx).qualifier_context := a9(indx);
72 t(ddindx).qualifier_datatype := a10(indx);
73 t(ddindx).qualifier_grouping_no := rosetta_g_miss_num_map(a11(indx));
74 t(ddindx).qualifier_id := rosetta_g_miss_num_map(a12(indx));
75 t(ddindx).qualifier_precedence := rosetta_g_miss_num_map(a13(indx));
76 t(ddindx).start_date_active := rosetta_g_miss_date_in_map(a14(indx));
77 t(ddindx).operation := a15(indx);
78 t(ddindx).context := a16(indx);
79 t(ddindx).attribute1 := a17(indx);
80 t(ddindx).attribute2 := a18(indx);
81 t(ddindx).attribute3 := a19(indx);
82 t(ddindx).attribute4 := a20(indx);
83 t(ddindx).attribute5 := a21(indx);
84 t(ddindx).attribute6 := a22(indx);
85 t(ddindx).attribute7 := a23(indx);
86 t(ddindx).attribute8 := a24(indx);
87 t(ddindx).attribute9 := a25(indx);
88 t(ddindx).attribute10 := a26(indx);
89 t(ddindx).attribute11 := a27(indx);
90 t(ddindx).attribute12 := a28(indx);
91 t(ddindx).attribute13 := a29(indx);
92 t(ddindx).attribute14 := a30(indx);
93 t(ddindx).attribute15 := a31(indx);
94 ddindx := ddindx+1;
95 if a0.last =indx
96 then exit;
97 end if;
98 indx := a0.next(indx);
99 end loop;
100 end if;
101 end if;
102 end rosetta_table_copy_in_p3;
103 procedure rosetta_table_copy_out_p3(t ozf_pricelist_pvt.qualifiers_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
104 , a1 out nocopy JTF_NUMBER_TABLE
105 , a2 out nocopy JTF_DATE_TABLE
106 , a3 out nocopy JTF_VARCHAR2_TABLE_100
107 , a4 out nocopy JTF_NUMBER_TABLE
108 , a5 out nocopy JTF_NUMBER_TABLE
109 , a6 out nocopy JTF_VARCHAR2_TABLE_100
110 , a7 out nocopy JTF_VARCHAR2_TABLE_300
111 , a8 out nocopy JTF_VARCHAR2_TABLE_300
112 , a9 out nocopy JTF_VARCHAR2_TABLE_100
113 , a10 out nocopy JTF_VARCHAR2_TABLE_100
114 , a11 out nocopy JTF_NUMBER_TABLE
115 , a12 out nocopy JTF_NUMBER_TABLE
116 , a13 out nocopy JTF_NUMBER_TABLE
117 , a14 out nocopy JTF_DATE_TABLE
118 , a15 out nocopy JTF_VARCHAR2_TABLE_100
119 , a16 out nocopy JTF_VARCHAR2_TABLE_100
120 , a17 out nocopy JTF_VARCHAR2_TABLE_300
121 , a18 out nocopy JTF_VARCHAR2_TABLE_300
122 , a19 out nocopy JTF_VARCHAR2_TABLE_300
123 , a20 out nocopy JTF_VARCHAR2_TABLE_300
124 , a21 out nocopy JTF_VARCHAR2_TABLE_300
125 , a22 out nocopy JTF_VARCHAR2_TABLE_300
126 , a23 out nocopy JTF_VARCHAR2_TABLE_300
127 , a24 out nocopy JTF_VARCHAR2_TABLE_300
128 , a25 out nocopy JTF_VARCHAR2_TABLE_300
129 , a26 out nocopy JTF_VARCHAR2_TABLE_300
130 , a27 out nocopy JTF_VARCHAR2_TABLE_300
131 , a28 out nocopy JTF_VARCHAR2_TABLE_300
132 , a29 out nocopy JTF_VARCHAR2_TABLE_300
133 , a30 out nocopy JTF_VARCHAR2_TABLE_300
134 , a31 out nocopy JTF_VARCHAR2_TABLE_300
135 ) as
136 ddindx binary_integer; indx binary_integer;
137 begin
138 if t is null or t.count = 0 then
139 a0 := JTF_VARCHAR2_TABLE_100();
140 a1 := JTF_NUMBER_TABLE();
141 a2 := JTF_DATE_TABLE();
142 a3 := JTF_VARCHAR2_TABLE_100();
143 a4 := JTF_NUMBER_TABLE();
144 a5 := JTF_NUMBER_TABLE();
145 a6 := JTF_VARCHAR2_TABLE_100();
146 a7 := JTF_VARCHAR2_TABLE_300();
147 a8 := JTF_VARCHAR2_TABLE_300();
148 a9 := JTF_VARCHAR2_TABLE_100();
149 a10 := JTF_VARCHAR2_TABLE_100();
150 a11 := JTF_NUMBER_TABLE();
151 a12 := JTF_NUMBER_TABLE();
152 a13 := JTF_NUMBER_TABLE();
153 a14 := JTF_DATE_TABLE();
154 a15 := JTF_VARCHAR2_TABLE_100();
155 a16 := JTF_VARCHAR2_TABLE_100();
156 a17 := JTF_VARCHAR2_TABLE_300();
157 a18 := JTF_VARCHAR2_TABLE_300();
158 a19 := JTF_VARCHAR2_TABLE_300();
159 a20 := JTF_VARCHAR2_TABLE_300();
160 a21 := JTF_VARCHAR2_TABLE_300();
161 a22 := JTF_VARCHAR2_TABLE_300();
162 a23 := JTF_VARCHAR2_TABLE_300();
163 a24 := JTF_VARCHAR2_TABLE_300();
164 a25 := JTF_VARCHAR2_TABLE_300();
165 a26 := JTF_VARCHAR2_TABLE_300();
166 a27 := JTF_VARCHAR2_TABLE_300();
167 a28 := JTF_VARCHAR2_TABLE_300();
168 a29 := JTF_VARCHAR2_TABLE_300();
169 a30 := JTF_VARCHAR2_TABLE_300();
170 a31 := JTF_VARCHAR2_TABLE_300();
171 else
172 a0 := JTF_VARCHAR2_TABLE_100();
173 a1 := JTF_NUMBER_TABLE();
174 a2 := JTF_DATE_TABLE();
175 a3 := JTF_VARCHAR2_TABLE_100();
176 a4 := JTF_NUMBER_TABLE();
177 a5 := JTF_NUMBER_TABLE();
178 a6 := JTF_VARCHAR2_TABLE_100();
179 a7 := JTF_VARCHAR2_TABLE_300();
180 a8 := JTF_VARCHAR2_TABLE_300();
181 a9 := JTF_VARCHAR2_TABLE_100();
182 a10 := JTF_VARCHAR2_TABLE_100();
183 a11 := JTF_NUMBER_TABLE();
184 a12 := JTF_NUMBER_TABLE();
185 a13 := JTF_NUMBER_TABLE();
186 a14 := JTF_DATE_TABLE();
187 a15 := JTF_VARCHAR2_TABLE_100();
188 a16 := JTF_VARCHAR2_TABLE_100();
189 a17 := JTF_VARCHAR2_TABLE_300();
190 a18 := JTF_VARCHAR2_TABLE_300();
191 a19 := JTF_VARCHAR2_TABLE_300();
192 a20 := JTF_VARCHAR2_TABLE_300();
193 a21 := JTF_VARCHAR2_TABLE_300();
194 a22 := JTF_VARCHAR2_TABLE_300();
195 a23 := JTF_VARCHAR2_TABLE_300();
196 a24 := JTF_VARCHAR2_TABLE_300();
197 a25 := JTF_VARCHAR2_TABLE_300();
198 a26 := JTF_VARCHAR2_TABLE_300();
199 a27 := JTF_VARCHAR2_TABLE_300();
200 a28 := JTF_VARCHAR2_TABLE_300();
201 a29 := JTF_VARCHAR2_TABLE_300();
202 a30 := JTF_VARCHAR2_TABLE_300();
203 a31 := JTF_VARCHAR2_TABLE_300();
204 if t.count > 0 then
205 a0.extend(t.count);
206 a1.extend(t.count);
207 a2.extend(t.count);
208 a3.extend(t.count);
209 a4.extend(t.count);
210 a5.extend(t.count);
211 a6.extend(t.count);
212 a7.extend(t.count);
213 a8.extend(t.count);
214 a9.extend(t.count);
215 a10.extend(t.count);
216 a11.extend(t.count);
217 a12.extend(t.count);
218 a13.extend(t.count);
219 a14.extend(t.count);
220 a15.extend(t.count);
221 a16.extend(t.count);
222 a17.extend(t.count);
223 a18.extend(t.count);
224 a19.extend(t.count);
225 a20.extend(t.count);
226 a21.extend(t.count);
227 a22.extend(t.count);
228 a23.extend(t.count);
229 a24.extend(t.count);
230 a25.extend(t.count);
231 a26.extend(t.count);
232 a27.extend(t.count);
233 a28.extend(t.count);
234 a29.extend(t.count);
235 a30.extend(t.count);
236 a31.extend(t.count);
237 ddindx := t.first;
238 indx := 1;
239 while true loop
240 a0(indx) := t(ddindx).comparison_operator_code;
241 a1(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
242 a2(indx) := t(ddindx).end_date_active;
243 a3(indx) := t(ddindx).excluder_flag;
244 a4(indx) := rosetta_g_miss_num_map(t(ddindx).list_header_id);
245 a5(indx) := rosetta_g_miss_num_map(t(ddindx).list_line_id);
246 a6(indx) := t(ddindx).qualifier_attribute;
247 a7(indx) := t(ddindx).qualifier_attr_value;
248 a8(indx) := t(ddindx).qualifier_attr_value_to;
249 a9(indx) := t(ddindx).qualifier_context;
250 a10(indx) := t(ddindx).qualifier_datatype;
251 a11(indx) := rosetta_g_miss_num_map(t(ddindx).qualifier_grouping_no);
252 a12(indx) := rosetta_g_miss_num_map(t(ddindx).qualifier_id);
253 a13(indx) := rosetta_g_miss_num_map(t(ddindx).qualifier_precedence);
254 a14(indx) := t(ddindx).start_date_active;
255 a15(indx) := t(ddindx).operation;
256 a16(indx) := t(ddindx).context;
257 a17(indx) := t(ddindx).attribute1;
258 a18(indx) := t(ddindx).attribute2;
259 a19(indx) := t(ddindx).attribute3;
260 a20(indx) := t(ddindx).attribute4;
261 a21(indx) := t(ddindx).attribute5;
262 a22(indx) := t(ddindx).attribute6;
263 a23(indx) := t(ddindx).attribute7;
264 a24(indx) := t(ddindx).attribute8;
265 a25(indx) := t(ddindx).attribute9;
266 a26(indx) := t(ddindx).attribute10;
267 a27(indx) := t(ddindx).attribute11;
268 a28(indx) := t(ddindx).attribute12;
269 a29(indx) := t(ddindx).attribute13;
270 a30(indx) := t(ddindx).attribute14;
271 a31(indx) := t(ddindx).attribute15;
272 indx := indx+1;
273 if t.last =ddindx
274 then exit;
275 end if;
276 ddindx := t.next(ddindx);
277 end loop;
278 end if;
279 end if;
280 end rosetta_table_copy_out_p3;
281
282 procedure rosetta_table_copy_in_p5(t out nocopy ozf_pricelist_pvt.price_list_line_tbl_type, a0 JTF_VARCHAR2_TABLE_100
283 , a1 JTF_DATE_TABLE
284 , a2 JTF_NUMBER_TABLE
285 , a3 JTF_NUMBER_TABLE
286 , a4 JTF_NUMBER_TABLE
287 , a5 JTF_NUMBER_TABLE
288 , a6 JTF_DATE_TABLE
289 , a7 JTF_VARCHAR2_TABLE_100
290 , a8 JTF_VARCHAR2_TABLE_100
291 , a9 JTF_NUMBER_TABLE
292 , a10 JTF_NUMBER_TABLE
293 , a11 JTF_NUMBER_TABLE
294 , a12 JTF_NUMBER_TABLE
295 , a13 JTF_VARCHAR2_TABLE_2000
296 , a14 JTF_NUMBER_TABLE
297 , a15 JTF_VARCHAR2_TABLE_100
298 , a16 JTF_VARCHAR2_TABLE_300
299 , a17 JTF_VARCHAR2_TABLE_300
300 , a18 JTF_VARCHAR2_TABLE_300
301 , a19 JTF_VARCHAR2_TABLE_300
302 , a20 JTF_VARCHAR2_TABLE_300
303 , a21 JTF_VARCHAR2_TABLE_300
304 , a22 JTF_VARCHAR2_TABLE_300
305 , a23 JTF_VARCHAR2_TABLE_300
306 , a24 JTF_VARCHAR2_TABLE_300
307 , a25 JTF_VARCHAR2_TABLE_300
308 , a26 JTF_VARCHAR2_TABLE_300
309 , a27 JTF_VARCHAR2_TABLE_300
310 , a28 JTF_VARCHAR2_TABLE_300
311 , a29 JTF_VARCHAR2_TABLE_300
312 , a30 JTF_VARCHAR2_TABLE_300
313 ) as
314 ddindx binary_integer; indx binary_integer;
315 begin
316 if a0 is not null and a0.count > 0 then
317 if a0.count > 0 then
318 indx := a0.first;
319 ddindx := 1;
320 while true loop
321 t(ddindx).arithmetic_operator := a0(indx);
322 t(ddindx).end_date_active := rosetta_g_miss_date_in_map(a1(indx));
323 t(ddindx).list_header_id := rosetta_g_miss_num_map(a2(indx));
324 t(ddindx).list_line_id := rosetta_g_miss_num_map(a3(indx));
325 t(ddindx).list_price := rosetta_g_miss_num_map(a4(indx));
326 t(ddindx).operand := rosetta_g_miss_num_map(a5(indx));
327 t(ddindx).start_date_active := rosetta_g_miss_date_in_map(a6(indx));
328 t(ddindx).operation := a7(indx);
329 t(ddindx).primary_uom_flag := a8(indx);
330 t(ddindx).product_precedence := rosetta_g_miss_num_map(a9(indx));
331 t(ddindx).static_formula_id := rosetta_g_miss_num_map(a10(indx));
332 t(ddindx).dynamic_formula_id := rosetta_g_miss_num_map(a11(indx));
333 t(ddindx).jtf_note_id := rosetta_g_miss_num_map(a12(indx));
334 t(ddindx).comments := a13(indx);
335 t(ddindx).object_version_number := rosetta_g_miss_num_map(a14(indx));
336 t(ddindx).context := a15(indx);
337 t(ddindx).attribute1 := a16(indx);
338 t(ddindx).attribute2 := a17(indx);
339 t(ddindx).attribute3 := a18(indx);
340 t(ddindx).attribute4 := a19(indx);
341 t(ddindx).attribute5 := a20(indx);
342 t(ddindx).attribute6 := a21(indx);
343 t(ddindx).attribute7 := a22(indx);
344 t(ddindx).attribute8 := a23(indx);
345 t(ddindx).attribute9 := a24(indx);
346 t(ddindx).attribute10 := a25(indx);
347 t(ddindx).attribute11 := a26(indx);
348 t(ddindx).attribute12 := a27(indx);
349 t(ddindx).attribute13 := a28(indx);
350 t(ddindx).attribute14 := a29(indx);
351 t(ddindx).attribute15 := a30(indx);
352 ddindx := ddindx+1;
353 if a0.last =indx
354 then exit;
355 end if;
356 indx := a0.next(indx);
357 end loop;
358 end if;
359 end if;
360 end rosetta_table_copy_in_p5;
361 procedure rosetta_table_copy_out_p5(t ozf_pricelist_pvt.price_list_line_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
362 , a1 out nocopy JTF_DATE_TABLE
363 , a2 out nocopy JTF_NUMBER_TABLE
364 , a3 out nocopy JTF_NUMBER_TABLE
365 , a4 out nocopy JTF_NUMBER_TABLE
366 , a5 out nocopy JTF_NUMBER_TABLE
367 , a6 out nocopy JTF_DATE_TABLE
368 , a7 out nocopy JTF_VARCHAR2_TABLE_100
369 , a8 out nocopy JTF_VARCHAR2_TABLE_100
370 , a9 out nocopy JTF_NUMBER_TABLE
371 , a10 out nocopy JTF_NUMBER_TABLE
372 , a11 out nocopy JTF_NUMBER_TABLE
373 , a12 out nocopy JTF_NUMBER_TABLE
374 , a13 out nocopy JTF_VARCHAR2_TABLE_2000
375 , a14 out nocopy JTF_NUMBER_TABLE
376 , a15 out nocopy JTF_VARCHAR2_TABLE_100
377 , a16 out nocopy JTF_VARCHAR2_TABLE_300
378 , a17 out nocopy JTF_VARCHAR2_TABLE_300
379 , a18 out nocopy JTF_VARCHAR2_TABLE_300
380 , a19 out nocopy JTF_VARCHAR2_TABLE_300
381 , a20 out nocopy JTF_VARCHAR2_TABLE_300
382 , a21 out nocopy JTF_VARCHAR2_TABLE_300
383 , a22 out nocopy JTF_VARCHAR2_TABLE_300
384 , a23 out nocopy JTF_VARCHAR2_TABLE_300
385 , a24 out nocopy JTF_VARCHAR2_TABLE_300
386 , a25 out nocopy JTF_VARCHAR2_TABLE_300
387 , a26 out nocopy JTF_VARCHAR2_TABLE_300
388 , a27 out nocopy JTF_VARCHAR2_TABLE_300
389 , a28 out nocopy JTF_VARCHAR2_TABLE_300
390 , a29 out nocopy JTF_VARCHAR2_TABLE_300
391 , a30 out nocopy JTF_VARCHAR2_TABLE_300
392 ) as
393 ddindx binary_integer; indx binary_integer;
394 begin
395 if t is null or t.count = 0 then
396 a0 := JTF_VARCHAR2_TABLE_100();
397 a1 := JTF_DATE_TABLE();
398 a2 := JTF_NUMBER_TABLE();
399 a3 := JTF_NUMBER_TABLE();
400 a4 := JTF_NUMBER_TABLE();
401 a5 := JTF_NUMBER_TABLE();
402 a6 := JTF_DATE_TABLE();
403 a7 := JTF_VARCHAR2_TABLE_100();
404 a8 := JTF_VARCHAR2_TABLE_100();
405 a9 := JTF_NUMBER_TABLE();
406 a10 := JTF_NUMBER_TABLE();
407 a11 := JTF_NUMBER_TABLE();
408 a12 := JTF_NUMBER_TABLE();
409 a13 := JTF_VARCHAR2_TABLE_2000();
410 a14 := JTF_NUMBER_TABLE();
411 a15 := JTF_VARCHAR2_TABLE_100();
412 a16 := JTF_VARCHAR2_TABLE_300();
413 a17 := JTF_VARCHAR2_TABLE_300();
414 a18 := JTF_VARCHAR2_TABLE_300();
415 a19 := JTF_VARCHAR2_TABLE_300();
416 a20 := JTF_VARCHAR2_TABLE_300();
417 a21 := JTF_VARCHAR2_TABLE_300();
418 a22 := JTF_VARCHAR2_TABLE_300();
419 a23 := JTF_VARCHAR2_TABLE_300();
420 a24 := JTF_VARCHAR2_TABLE_300();
421 a25 := JTF_VARCHAR2_TABLE_300();
422 a26 := JTF_VARCHAR2_TABLE_300();
423 a27 := JTF_VARCHAR2_TABLE_300();
424 a28 := JTF_VARCHAR2_TABLE_300();
425 a29 := JTF_VARCHAR2_TABLE_300();
426 a30 := JTF_VARCHAR2_TABLE_300();
427 else
428 a0 := JTF_VARCHAR2_TABLE_100();
429 a1 := JTF_DATE_TABLE();
430 a2 := JTF_NUMBER_TABLE();
431 a3 := JTF_NUMBER_TABLE();
432 a4 := JTF_NUMBER_TABLE();
433 a5 := JTF_NUMBER_TABLE();
434 a6 := JTF_DATE_TABLE();
435 a7 := JTF_VARCHAR2_TABLE_100();
436 a8 := JTF_VARCHAR2_TABLE_100();
437 a9 := JTF_NUMBER_TABLE();
438 a10 := JTF_NUMBER_TABLE();
439 a11 := JTF_NUMBER_TABLE();
440 a12 := JTF_NUMBER_TABLE();
441 a13 := JTF_VARCHAR2_TABLE_2000();
442 a14 := JTF_NUMBER_TABLE();
443 a15 := JTF_VARCHAR2_TABLE_100();
444 a16 := JTF_VARCHAR2_TABLE_300();
445 a17 := JTF_VARCHAR2_TABLE_300();
446 a18 := JTF_VARCHAR2_TABLE_300();
447 a19 := JTF_VARCHAR2_TABLE_300();
448 a20 := JTF_VARCHAR2_TABLE_300();
449 a21 := JTF_VARCHAR2_TABLE_300();
450 a22 := JTF_VARCHAR2_TABLE_300();
451 a23 := JTF_VARCHAR2_TABLE_300();
452 a24 := JTF_VARCHAR2_TABLE_300();
453 a25 := JTF_VARCHAR2_TABLE_300();
454 a26 := JTF_VARCHAR2_TABLE_300();
455 a27 := JTF_VARCHAR2_TABLE_300();
456 a28 := JTF_VARCHAR2_TABLE_300();
457 a29 := JTF_VARCHAR2_TABLE_300();
458 a30 := JTF_VARCHAR2_TABLE_300();
459 if t.count > 0 then
460 a0.extend(t.count);
461 a1.extend(t.count);
462 a2.extend(t.count);
463 a3.extend(t.count);
464 a4.extend(t.count);
465 a5.extend(t.count);
466 a6.extend(t.count);
467 a7.extend(t.count);
468 a8.extend(t.count);
469 a9.extend(t.count);
470 a10.extend(t.count);
471 a11.extend(t.count);
472 a12.extend(t.count);
473 a13.extend(t.count);
474 a14.extend(t.count);
475 a15.extend(t.count);
476 a16.extend(t.count);
477 a17.extend(t.count);
478 a18.extend(t.count);
479 a19.extend(t.count);
480 a20.extend(t.count);
481 a21.extend(t.count);
482 a22.extend(t.count);
483 a23.extend(t.count);
484 a24.extend(t.count);
485 a25.extend(t.count);
486 a26.extend(t.count);
487 a27.extend(t.count);
488 a28.extend(t.count);
489 a29.extend(t.count);
490 a30.extend(t.count);
491 ddindx := t.first;
492 indx := 1;
493 while true loop
494 a0(indx) := t(ddindx).arithmetic_operator;
495 a1(indx) := t(ddindx).end_date_active;
496 a2(indx) := rosetta_g_miss_num_map(t(ddindx).list_header_id);
497 a3(indx) := rosetta_g_miss_num_map(t(ddindx).list_line_id);
498 a4(indx) := rosetta_g_miss_num_map(t(ddindx).list_price);
499 a5(indx) := rosetta_g_miss_num_map(t(ddindx).operand);
500 a6(indx) := t(ddindx).start_date_active;
501 a7(indx) := t(ddindx).operation;
502 a8(indx) := t(ddindx).primary_uom_flag;
503 a9(indx) := rosetta_g_miss_num_map(t(ddindx).product_precedence);
504 a10(indx) := rosetta_g_miss_num_map(t(ddindx).static_formula_id);
505 a11(indx) := rosetta_g_miss_num_map(t(ddindx).dynamic_formula_id);
506 a12(indx) := rosetta_g_miss_num_map(t(ddindx).jtf_note_id);
507 a13(indx) := t(ddindx).comments;
508 a14(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
509 a15(indx) := t(ddindx).context;
510 a16(indx) := t(ddindx).attribute1;
511 a17(indx) := t(ddindx).attribute2;
512 a18(indx) := t(ddindx).attribute3;
513 a19(indx) := t(ddindx).attribute4;
514 a20(indx) := t(ddindx).attribute5;
515 a21(indx) := t(ddindx).attribute6;
516 a22(indx) := t(ddindx).attribute7;
517 a23(indx) := t(ddindx).attribute8;
518 a24(indx) := t(ddindx).attribute9;
519 a25(indx) := t(ddindx).attribute10;
520 a26(indx) := t(ddindx).attribute11;
521 a27(indx) := t(ddindx).attribute12;
522 a28(indx) := t(ddindx).attribute13;
523 a29(indx) := t(ddindx).attribute14;
524 a30(indx) := t(ddindx).attribute15;
525 indx := indx+1;
526 if t.last =ddindx
527 then exit;
528 end if;
529 ddindx := t.next(ddindx);
530 end loop;
531 end if;
532 end if;
533 end rosetta_table_copy_out_p5;
534
535 procedure rosetta_table_copy_in_p7(t out nocopy ozf_pricelist_pvt.pricing_attr_tbl_type, a0 JTF_NUMBER_TABLE
536 , a1 JTF_VARCHAR2_TABLE_100
537 , a2 JTF_VARCHAR2_TABLE_100
538 , a3 JTF_NUMBER_TABLE
539 , a4 JTF_VARCHAR2_TABLE_300
540 , a5 JTF_VARCHAR2_TABLE_300
541 , a6 JTF_VARCHAR2_TABLE_100
542 , a7 JTF_VARCHAR2_TABLE_100
543 , a8 JTF_VARCHAR2_TABLE_300
544 , a9 JTF_VARCHAR2_TABLE_100
545 , a10 JTF_VARCHAR2_TABLE_100
546 , a11 JTF_NUMBER_TABLE
547 , a12 JTF_VARCHAR2_TABLE_100
548 , a13 JTF_NUMBER_TABLE
549 ) as
550 ddindx binary_integer; indx binary_integer;
551 begin
552 if a0 is not null and a0.count > 0 then
553 if a0.count > 0 then
554 indx := a0.first;
555 ddindx := 1;
556 while true loop
557 t(ddindx).list_line_id := rosetta_g_miss_num_map(a0(indx));
558 t(ddindx).pricing_attribute := a1(indx);
559 t(ddindx).pricing_attribute_context := a2(indx);
560 t(ddindx).pricing_attribute_id := rosetta_g_miss_num_map(a3(indx));
561 t(ddindx).pricing_attr_value_from := a4(indx);
562 t(ddindx).pricing_attr_value_to := a5(indx);
563 t(ddindx).product_attribute := a6(indx);
564 t(ddindx).product_attribute_context := a7(indx);
565 t(ddindx).product_attr_value := a8(indx);
566 t(ddindx).product_uom_code := a9(indx);
567 t(ddindx).operation := a10(indx);
568 t(ddindx).price_list_line_index := rosetta_g_miss_num_map(a11(indx));
569 t(ddindx).comparison_operator_code := a12(indx);
570 t(ddindx).list_header_id := rosetta_g_miss_num_map(a13(indx));
571 ddindx := ddindx+1;
572 if a0.last =indx
573 then exit;
574 end if;
575 indx := a0.next(indx);
576 end loop;
577 end if;
578 end if;
579 end rosetta_table_copy_in_p7;
580 procedure rosetta_table_copy_out_p7(t ozf_pricelist_pvt.pricing_attr_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
581 , a1 out nocopy JTF_VARCHAR2_TABLE_100
582 , a2 out nocopy JTF_VARCHAR2_TABLE_100
583 , a3 out nocopy JTF_NUMBER_TABLE
584 , a4 out nocopy JTF_VARCHAR2_TABLE_300
585 , a5 out nocopy JTF_VARCHAR2_TABLE_300
586 , a6 out nocopy JTF_VARCHAR2_TABLE_100
587 , a7 out nocopy JTF_VARCHAR2_TABLE_100
588 , a8 out nocopy JTF_VARCHAR2_TABLE_300
589 , a9 out nocopy JTF_VARCHAR2_TABLE_100
590 , a10 out nocopy JTF_VARCHAR2_TABLE_100
591 , a11 out nocopy JTF_NUMBER_TABLE
592 , a12 out nocopy JTF_VARCHAR2_TABLE_100
593 , a13 out nocopy JTF_NUMBER_TABLE
594 ) as
595 ddindx binary_integer; indx binary_integer;
596 begin
597 if t is null or t.count = 0 then
598 a0 := JTF_NUMBER_TABLE();
599 a1 := JTF_VARCHAR2_TABLE_100();
600 a2 := JTF_VARCHAR2_TABLE_100();
601 a3 := JTF_NUMBER_TABLE();
602 a4 := JTF_VARCHAR2_TABLE_300();
603 a5 := JTF_VARCHAR2_TABLE_300();
604 a6 := JTF_VARCHAR2_TABLE_100();
605 a7 := JTF_VARCHAR2_TABLE_100();
606 a8 := JTF_VARCHAR2_TABLE_300();
607 a9 := JTF_VARCHAR2_TABLE_100();
608 a10 := JTF_VARCHAR2_TABLE_100();
609 a11 := JTF_NUMBER_TABLE();
610 a12 := JTF_VARCHAR2_TABLE_100();
611 a13 := JTF_NUMBER_TABLE();
612 else
613 a0 := JTF_NUMBER_TABLE();
614 a1 := JTF_VARCHAR2_TABLE_100();
615 a2 := JTF_VARCHAR2_TABLE_100();
616 a3 := JTF_NUMBER_TABLE();
617 a4 := JTF_VARCHAR2_TABLE_300();
618 a5 := JTF_VARCHAR2_TABLE_300();
619 a6 := JTF_VARCHAR2_TABLE_100();
620 a7 := JTF_VARCHAR2_TABLE_100();
621 a8 := JTF_VARCHAR2_TABLE_300();
622 a9 := JTF_VARCHAR2_TABLE_100();
623 a10 := JTF_VARCHAR2_TABLE_100();
624 a11 := JTF_NUMBER_TABLE();
625 a12 := JTF_VARCHAR2_TABLE_100();
626 a13 := JTF_NUMBER_TABLE();
627 if t.count > 0 then
628 a0.extend(t.count);
629 a1.extend(t.count);
630 a2.extend(t.count);
631 a3.extend(t.count);
632 a4.extend(t.count);
633 a5.extend(t.count);
634 a6.extend(t.count);
635 a7.extend(t.count);
636 a8.extend(t.count);
637 a9.extend(t.count);
638 a10.extend(t.count);
639 a11.extend(t.count);
640 a12.extend(t.count);
641 a13.extend(t.count);
642 ddindx := t.first;
643 indx := 1;
644 while true loop
645 a0(indx) := rosetta_g_miss_num_map(t(ddindx).list_line_id);
646 a1(indx) := t(ddindx).pricing_attribute;
647 a2(indx) := t(ddindx).pricing_attribute_context;
648 a3(indx) := rosetta_g_miss_num_map(t(ddindx).pricing_attribute_id);
649 a4(indx) := t(ddindx).pricing_attr_value_from;
650 a5(indx) := t(ddindx).pricing_attr_value_to;
651 a6(indx) := t(ddindx).product_attribute;
652 a7(indx) := t(ddindx).product_attribute_context;
653 a8(indx) := t(ddindx).product_attr_value;
654 a9(indx) := t(ddindx).product_uom_code;
655 a10(indx) := t(ddindx).operation;
656 a11(indx) := rosetta_g_miss_num_map(t(ddindx).price_list_line_index);
657 a12(indx) := t(ddindx).comparison_operator_code;
658 a13(indx) := rosetta_g_miss_num_map(t(ddindx).list_header_id);
659 indx := indx+1;
660 if t.last =ddindx
661 then exit;
662 end if;
663 ddindx := t.next(ddindx);
664 end loop;
665 end if;
666 end if;
667 end rosetta_table_copy_out_p7;
668
669 procedure rosetta_table_copy_in_p12(t out nocopy ozf_pricelist_pvt.num_tbl_type, a0 JTF_NUMBER_TABLE) as
670 ddindx binary_integer; indx binary_integer;
671 begin
672 if a0 is not null and a0.count > 0 then
673 if a0.count > 0 then
674 indx := a0.first;
675 ddindx := 1;
676 while true loop
677 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
678 ddindx := ddindx+1;
679 if a0.last =indx
680 then exit;
681 end if;
682 indx := a0.next(indx);
683 end loop;
684 end if;
685 end if;
686 end rosetta_table_copy_in_p12;
687 procedure rosetta_table_copy_out_p12(t ozf_pricelist_pvt.num_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
688 ddindx binary_integer; indx binary_integer;
689 begin
690 if t is null or t.count = 0 then
691 a0 := JTF_NUMBER_TABLE();
692 else
693 a0 := JTF_NUMBER_TABLE();
694 if t.count > 0 then
695 a0.extend(t.count);
696 ddindx := t.first;
697 indx := 1;
698 while true loop
699 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
700 indx := indx+1;
701 if t.last =ddindx
702 then exit;
703 end if;
704 ddindx := t.next(ddindx);
705 end loop;
706 end if;
707 end if;
708 end rosetta_table_copy_out_p12;
709
710 procedure process_price_list(p_api_version NUMBER
711 , p_init_msg_list VARCHAR2
712 , p_commit VARCHAR2
713 , p_validation_level NUMBER
714 , x_return_status out nocopy VARCHAR2
715 , x_msg_count out nocopy NUMBER
716 , x_msg_data out nocopy VARCHAR2
717 , p8_a0 JTF_VARCHAR2_TABLE_100
718 , p8_a1 JTF_DATE_TABLE
719 , p8_a2 JTF_NUMBER_TABLE
720 , p8_a3 JTF_NUMBER_TABLE
721 , p8_a4 JTF_NUMBER_TABLE
722 , p8_a5 JTF_NUMBER_TABLE
723 , p8_a6 JTF_DATE_TABLE
724 , p8_a7 JTF_VARCHAR2_TABLE_100
725 , p8_a8 JTF_VARCHAR2_TABLE_100
726 , p8_a9 JTF_NUMBER_TABLE
727 , p8_a10 JTF_NUMBER_TABLE
728 , p8_a11 JTF_NUMBER_TABLE
729 , p8_a12 JTF_NUMBER_TABLE
730 , p8_a13 JTF_VARCHAR2_TABLE_2000
731 , p8_a14 JTF_NUMBER_TABLE
732 , p8_a15 JTF_VARCHAR2_TABLE_100
733 , p8_a16 JTF_VARCHAR2_TABLE_300
734 , p8_a17 JTF_VARCHAR2_TABLE_300
735 , p8_a18 JTF_VARCHAR2_TABLE_300
736 , p8_a19 JTF_VARCHAR2_TABLE_300
737 , p8_a20 JTF_VARCHAR2_TABLE_300
738 , p8_a21 JTF_VARCHAR2_TABLE_300
739 , p8_a22 JTF_VARCHAR2_TABLE_300
740 , p8_a23 JTF_VARCHAR2_TABLE_300
741 , p8_a24 JTF_VARCHAR2_TABLE_300
742 , p8_a25 JTF_VARCHAR2_TABLE_300
743 , p8_a26 JTF_VARCHAR2_TABLE_300
744 , p8_a27 JTF_VARCHAR2_TABLE_300
745 , p8_a28 JTF_VARCHAR2_TABLE_300
746 , p8_a29 JTF_VARCHAR2_TABLE_300
747 , p8_a30 JTF_VARCHAR2_TABLE_300
748 , p9_a0 JTF_NUMBER_TABLE
749 , p9_a1 JTF_VARCHAR2_TABLE_100
750 , p9_a2 JTF_VARCHAR2_TABLE_100
751 , p9_a3 JTF_NUMBER_TABLE
752 , p9_a4 JTF_VARCHAR2_TABLE_300
753 , p9_a5 JTF_VARCHAR2_TABLE_300
754 , p9_a6 JTF_VARCHAR2_TABLE_100
755 , p9_a7 JTF_VARCHAR2_TABLE_100
756 , p9_a8 JTF_VARCHAR2_TABLE_300
757 , p9_a9 JTF_VARCHAR2_TABLE_100
758 , p9_a10 JTF_VARCHAR2_TABLE_100
759 , p9_a11 JTF_NUMBER_TABLE
760 , p9_a12 JTF_VARCHAR2_TABLE_100
761 , p9_a13 JTF_NUMBER_TABLE
762 , p10_a0 JTF_VARCHAR2_TABLE_100
763 , p10_a1 JTF_NUMBER_TABLE
764 , p10_a2 JTF_DATE_TABLE
765 , p10_a3 JTF_VARCHAR2_TABLE_100
766 , p10_a4 JTF_NUMBER_TABLE
767 , p10_a5 JTF_NUMBER_TABLE
768 , p10_a6 JTF_VARCHAR2_TABLE_100
769 , p10_a7 JTF_VARCHAR2_TABLE_300
770 , p10_a8 JTF_VARCHAR2_TABLE_300
771 , p10_a9 JTF_VARCHAR2_TABLE_100
772 , p10_a10 JTF_VARCHAR2_TABLE_100
773 , p10_a11 JTF_NUMBER_TABLE
774 , p10_a12 JTF_NUMBER_TABLE
775 , p10_a13 JTF_NUMBER_TABLE
776 , p10_a14 JTF_DATE_TABLE
777 , p10_a15 JTF_VARCHAR2_TABLE_100
778 , p10_a16 JTF_VARCHAR2_TABLE_100
779 , p10_a17 JTF_VARCHAR2_TABLE_300
780 , p10_a18 JTF_VARCHAR2_TABLE_300
781 , p10_a19 JTF_VARCHAR2_TABLE_300
782 , p10_a20 JTF_VARCHAR2_TABLE_300
783 , p10_a21 JTF_VARCHAR2_TABLE_300
784 , p10_a22 JTF_VARCHAR2_TABLE_300
785 , p10_a23 JTF_VARCHAR2_TABLE_300
786 , p10_a24 JTF_VARCHAR2_TABLE_300
787 , p10_a25 JTF_VARCHAR2_TABLE_300
788 , p10_a26 JTF_VARCHAR2_TABLE_300
789 , p10_a27 JTF_VARCHAR2_TABLE_300
790 , p10_a28 JTF_VARCHAR2_TABLE_300
791 , p10_a29 JTF_VARCHAR2_TABLE_300
792 , p10_a30 JTF_VARCHAR2_TABLE_300
793 , p10_a31 JTF_VARCHAR2_TABLE_300
794 , x_list_header_id out nocopy NUMBER
795 , x_error_source out nocopy VARCHAR2
796 , x_error_location out nocopy NUMBER
797 , p7_a0 VARCHAR2 := fnd_api.g_miss_char
798 , p7_a1 DATE := fnd_api.g_miss_date
799 , p7_a2 NUMBER := 0-1962.0724
800 , p7_a3 DATE := fnd_api.g_miss_date
801 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
802 , p7_a5 VARCHAR2 := fnd_api.g_miss_char
803 , p7_a6 VARCHAR2 := fnd_api.g_miss_char
804 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
805 , p7_a8 NUMBER := 0-1962.0724
806 , p7_a9 NUMBER := 0-1962.0724
807 , p7_a10 NUMBER := 0-1962.0724
808 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
809 , p7_a12 NUMBER := 0-1962.0724
810 , p7_a13 NUMBER := 0-1962.0724
811 , p7_a14 NUMBER := 0-1962.0724
812 , p7_a15 DATE := fnd_api.g_miss_date
813 , p7_a16 VARCHAR2 := fnd_api.g_miss_char
814 , p7_a17 NUMBER := 0-1962.0724
815 , p7_a18 VARCHAR2 := fnd_api.g_miss_char
816 , p7_a19 VARCHAR2 := fnd_api.g_miss_char
817 , p7_a20 VARCHAR2 := fnd_api.g_miss_char
818 , p7_a21 VARCHAR2 := fnd_api.g_miss_char
819 , p7_a22 VARCHAR2 := fnd_api.g_miss_char
820 , p7_a23 VARCHAR2 := fnd_api.g_miss_char
821 , p7_a24 VARCHAR2 := fnd_api.g_miss_char
822 , p7_a25 VARCHAR2 := fnd_api.g_miss_char
823 , p7_a26 VARCHAR2 := fnd_api.g_miss_char
824 , p7_a27 VARCHAR2 := fnd_api.g_miss_char
825 , p7_a28 VARCHAR2 := fnd_api.g_miss_char
826 , p7_a29 VARCHAR2 := fnd_api.g_miss_char
827 , p7_a30 VARCHAR2 := fnd_api.g_miss_char
828 , p7_a31 VARCHAR2 := fnd_api.g_miss_char
829 , p7_a32 VARCHAR2 := fnd_api.g_miss_char
830 , p7_a33 VARCHAR2 := fnd_api.g_miss_char
831 , p7_a34 VARCHAR2 := fnd_api.g_miss_char
832 , p7_a35 NUMBER := 0-1962.0724
833 )
834
835 as
836 ddp_price_list_rec ozf_pricelist_pvt.ozf_price_list_rec_type;
837 ddp_price_list_line_tbl ozf_pricelist_pvt.price_list_line_tbl_type;
838 ddp_pricing_attr_tbl ozf_pricelist_pvt.pricing_attr_tbl_type;
839 ddp_qualifiers_tbl ozf_pricelist_pvt.qualifiers_tbl_type;
840 ddindx binary_integer; indx binary_integer;
841 begin
842
843 -- copy data to the local IN or IN-OUT args, if any
844
845
846
847
848
849
850
851 ddp_price_list_rec.currency_code := p7_a0;
852 ddp_price_list_rec.end_date_active := rosetta_g_miss_date_in_map(p7_a1);
853 ddp_price_list_rec.list_header_id := rosetta_g_miss_num_map(p7_a2);
854 ddp_price_list_rec.start_date_active := rosetta_g_miss_date_in_map(p7_a3);
855 ddp_price_list_rec.operation := p7_a4;
856 ddp_price_list_rec.name := p7_a5;
857 ddp_price_list_rec.description := p7_a6;
858 ddp_price_list_rec.active_flag := p7_a7;
859 ddp_price_list_rec.price_list_attribute_id := rosetta_g_miss_num_map(p7_a8);
860 ddp_price_list_rec.user_status_id := rosetta_g_miss_num_map(p7_a9);
861 ddp_price_list_rec.custom_setup_id := rosetta_g_miss_num_map(p7_a10);
862 ddp_price_list_rec.status_code := p7_a11;
863 ddp_price_list_rec.owner_id := rosetta_g_miss_num_map(p7_a12);
864 ddp_price_list_rec.qp_list_header_id := rosetta_g_miss_num_map(p7_a13);
865 ddp_price_list_rec.object_version_number := rosetta_g_miss_num_map(p7_a14);
866 ddp_price_list_rec.status_date := rosetta_g_miss_date_in_map(p7_a15);
867 ddp_price_list_rec.wf_item_key := p7_a16;
868 ddp_price_list_rec.currency_header_id := rosetta_g_miss_num_map(p7_a17);
869 ddp_price_list_rec.context := p7_a18;
870 ddp_price_list_rec.attribute1 := p7_a19;
871 ddp_price_list_rec.attribute2 := p7_a20;
872 ddp_price_list_rec.attribute3 := p7_a21;
873 ddp_price_list_rec.attribute4 := p7_a22;
874 ddp_price_list_rec.attribute5 := p7_a23;
875 ddp_price_list_rec.attribute6 := p7_a24;
876 ddp_price_list_rec.attribute7 := p7_a25;
877 ddp_price_list_rec.attribute8 := p7_a26;
878 ddp_price_list_rec.attribute9 := p7_a27;
879 ddp_price_list_rec.attribute10 := p7_a28;
880 ddp_price_list_rec.attribute11 := p7_a29;
881 ddp_price_list_rec.attribute12 := p7_a30;
882 ddp_price_list_rec.attribute13 := p7_a31;
883 ddp_price_list_rec.attribute14 := p7_a32;
884 ddp_price_list_rec.attribute15 := p7_a33;
885 ddp_price_list_rec.global_flag := p7_a34;
886 ddp_price_list_rec.org_id := rosetta_g_miss_num_map(p7_a35);
887
888 ozf_pricelist_pvt_w.rosetta_table_copy_in_p5(ddp_price_list_line_tbl, p8_a0
889 , p8_a1
890 , p8_a2
891 , p8_a3
892 , p8_a4
893 , p8_a5
894 , p8_a6
895 , p8_a7
896 , p8_a8
897 , p8_a9
898 , p8_a10
899 , p8_a11
900 , p8_a12
901 , p8_a13
902 , p8_a14
903 , p8_a15
904 , p8_a16
905 , p8_a17
906 , p8_a18
907 , p8_a19
908 , p8_a20
909 , p8_a21
910 , p8_a22
911 , p8_a23
912 , p8_a24
913 , p8_a25
914 , p8_a26
915 , p8_a27
916 , p8_a28
917 , p8_a29
918 , p8_a30
919 );
920
921 ozf_pricelist_pvt_w.rosetta_table_copy_in_p7(ddp_pricing_attr_tbl, p9_a0
922 , p9_a1
923 , p9_a2
924 , p9_a3
925 , p9_a4
926 , p9_a5
927 , p9_a6
928 , p9_a7
929 , p9_a8
930 , p9_a9
931 , p9_a10
932 , p9_a11
933 , p9_a12
934 , p9_a13
935 );
936
937 ozf_pricelist_pvt_w.rosetta_table_copy_in_p3(ddp_qualifiers_tbl, p10_a0
938 , p10_a1
939 , p10_a2
940 , p10_a3
941 , p10_a4
942 , p10_a5
943 , p10_a6
944 , p10_a7
945 , p10_a8
946 , p10_a9
947 , p10_a10
948 , p10_a11
949 , p10_a12
950 , p10_a13
951 , p10_a14
952 , p10_a15
953 , p10_a16
954 , p10_a17
955 , p10_a18
956 , p10_a19
957 , p10_a20
958 , p10_a21
959 , p10_a22
960 , p10_a23
961 , p10_a24
962 , p10_a25
963 , p10_a26
964 , p10_a27
965 , p10_a28
966 , p10_a29
967 , p10_a30
968 , p10_a31
969 );
970
971
972
973
974 -- here's the delegated call to the old PL/SQL routine
975 ozf_pricelist_pvt.process_price_list(p_api_version,
976 p_init_msg_list,
977 p_commit,
978 p_validation_level,
979 x_return_status,
980 x_msg_count,
981 x_msg_data,
982 ddp_price_list_rec,
983 ddp_price_list_line_tbl,
984 ddp_pricing_attr_tbl,
985 ddp_qualifiers_tbl,
986 x_list_header_id,
987 x_error_source,
988 x_error_location);
989
990 -- copy data back from the local variables to OUT or IN-OUT args, if any
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004 end;
1005
1006 procedure add_inventory_item(p_api_version NUMBER
1007 , p_init_msg_list VARCHAR2
1008 , p_commit VARCHAR2
1009 , x_return_status out nocopy VARCHAR2
1010 , x_msg_count out nocopy NUMBER
1011 , x_msg_data out nocopy VARCHAR2
1012 , p_org_inv_item_id NUMBER
1013 , p_new_inv_item_id JTF_NUMBER_TABLE
1014 )
1015
1016 as
1017 ddp_new_inv_item_id ozf_pricelist_pvt.num_tbl_type;
1018 ddindx binary_integer; indx binary_integer;
1019 begin
1020
1021 -- copy data to the local IN or IN-OUT args, if any
1022
1023
1024
1025
1026
1027
1028
1029 ozf_pricelist_pvt_w.rosetta_table_copy_in_p12(ddp_new_inv_item_id, p_new_inv_item_id);
1030
1031 -- here's the delegated call to the old PL/SQL routine
1032 ozf_pricelist_pvt.add_inventory_item(p_api_version,
1033 p_init_msg_list,
1034 p_commit,
1035 x_return_status,
1036 x_msg_count,
1037 x_msg_data,
1038 p_org_inv_item_id,
1039 ddp_new_inv_item_id);
1040
1041 -- copy data back from the local variables to OUT or IN-OUT args, if any
1042
1043
1044
1045
1046
1047
1048
1049 end;
1050
1051 end ozf_pricelist_pvt_w;