[Home] [Help]
PACKAGE BODY: APPS.OZF_DISC_LINE_PVT_W
Source
1 package body ozf_disc_line_pvt_w as
2 /* $Header: ozfwodlb.pls 120.3 2006/05/04 15:26 julou 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_p2(t out nocopy ozf_disc_line_pvt.ozf_offer_line_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
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_VARCHAR2_TABLE_100
29 , a7 JTF_NUMBER_TABLE
30 , a8 JTF_VARCHAR2_TABLE_100
31 , a9 JTF_VARCHAR2_TABLE_100
32 , a10 JTF_VARCHAR2_TABLE_100
33 , a11 JTF_VARCHAR2_TABLE_100
34 , a12 JTF_NUMBER_TABLE
35 , a13 JTF_VARCHAR2_TABLE_100
36 , a14 JTF_NUMBER_TABLE
37 , a15 JTF_NUMBER_TABLE
38 , a16 JTF_NUMBER_TABLE
39 , a17 JTF_NUMBER_TABLE
40 , a18 JTF_VARCHAR2_TABLE_100
41 , a19 JTF_DATE_TABLE
42 , a20 JTF_DATE_TABLE
43 , a21 JTF_VARCHAR2_TABLE_100
44 , a22 JTF_DATE_TABLE
45 , a23 JTF_NUMBER_TABLE
46 , a24 JTF_DATE_TABLE
47 , a25 JTF_NUMBER_TABLE
48 , a26 JTF_NUMBER_TABLE
49 , a27 JTF_NUMBER_TABLE
50 , a28 JTF_VARCHAR2_TABLE_100
51 , a29 JTF_VARCHAR2_TABLE_300
52 , a30 JTF_VARCHAR2_TABLE_300
53 , a31 JTF_VARCHAR2_TABLE_300
54 , a32 JTF_VARCHAR2_TABLE_300
55 , a33 JTF_VARCHAR2_TABLE_300
56 , a34 JTF_VARCHAR2_TABLE_300
57 , a35 JTF_VARCHAR2_TABLE_300
58 , a36 JTF_VARCHAR2_TABLE_300
59 , a37 JTF_VARCHAR2_TABLE_300
60 , a38 JTF_VARCHAR2_TABLE_300
61 , a39 JTF_VARCHAR2_TABLE_300
62 , a40 JTF_VARCHAR2_TABLE_300
63 , a41 JTF_VARCHAR2_TABLE_300
64 , a42 JTF_VARCHAR2_TABLE_300
65 , a43 JTF_VARCHAR2_TABLE_300
66 , a44 JTF_NUMBER_TABLE
67 ) as
68 ddindx binary_integer; indx binary_integer;
69 begin
70 if a0 is not null and a0.count > 0 then
71 if a0.count > 0 then
72 indx := a0.first;
73 ddindx := 1;
74 while true loop
75 t(ddindx).offer_discount_line_id := rosetta_g_miss_num_map(a0(indx));
76 t(ddindx).parent_discount_line_id := rosetta_g_miss_num_map(a1(indx));
77 t(ddindx).volume_from := rosetta_g_miss_num_map(a2(indx));
78 t(ddindx).volume_to := rosetta_g_miss_num_map(a3(indx));
79 t(ddindx).volume_operator := a4(indx);
80 t(ddindx).volume_type := a5(indx);
81 t(ddindx).volume_break_type := a6(indx);
82 t(ddindx).discount := rosetta_g_miss_num_map(a7(indx));
83 t(ddindx).discount_type := a8(indx);
84 t(ddindx).tier_type := a9(indx);
85 t(ddindx).tier_level := a10(indx);
86 t(ddindx).incompatibility_group := a11(indx);
87 t(ddindx).precedence := rosetta_g_miss_num_map(a12(indx));
88 t(ddindx).bucket := a13(indx);
89 t(ddindx).scan_value := rosetta_g_miss_num_map(a14(indx));
90 t(ddindx).scan_data_quantity := rosetta_g_miss_num_map(a15(indx));
91 t(ddindx).scan_unit_forecast := rosetta_g_miss_num_map(a16(indx));
92 t(ddindx).channel_id := rosetta_g_miss_num_map(a17(indx));
93 t(ddindx).adjustment_flag := a18(indx);
94 t(ddindx).start_date_active := rosetta_g_miss_date_in_map(a19(indx));
95 t(ddindx).end_date_active := rosetta_g_miss_date_in_map(a20(indx));
96 t(ddindx).uom_code := a21(indx);
97 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a22(indx));
98 t(ddindx).created_by := rosetta_g_miss_num_map(a23(indx));
99 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a24(indx));
100 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a25(indx));
101 t(ddindx).last_update_login := rosetta_g_miss_num_map(a26(indx));
102 t(ddindx).object_version_number := rosetta_g_miss_num_map(a27(indx));
103 t(ddindx).context := a28(indx);
104 t(ddindx).attribute1 := a29(indx);
105 t(ddindx).attribute2 := a30(indx);
106 t(ddindx).attribute3 := a31(indx);
107 t(ddindx).attribute4 := a32(indx);
108 t(ddindx).attribute5 := a33(indx);
109 t(ddindx).attribute6 := a34(indx);
110 t(ddindx).attribute7 := a35(indx);
111 t(ddindx).attribute8 := a36(indx);
112 t(ddindx).attribute9 := a37(indx);
113 t(ddindx).attribute10 := a38(indx);
114 t(ddindx).attribute11 := a39(indx);
115 t(ddindx).attribute12 := a40(indx);
116 t(ddindx).attribute13 := a41(indx);
117 t(ddindx).attribute14 := a42(indx);
118 t(ddindx).attribute15 := a43(indx);
119 t(ddindx).offer_id := rosetta_g_miss_num_map(a44(indx));
120 ddindx := ddindx+1;
121 if a0.last =indx
122 then exit;
123 end if;
124 indx := a0.next(indx);
125 end loop;
126 end if;
127 end if;
128 end rosetta_table_copy_in_p2;
129 procedure rosetta_table_copy_out_p2(t ozf_disc_line_pvt.ozf_offer_line_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
130 , a1 out nocopy JTF_NUMBER_TABLE
131 , a2 out nocopy JTF_NUMBER_TABLE
132 , a3 out nocopy JTF_NUMBER_TABLE
133 , a4 out nocopy JTF_VARCHAR2_TABLE_100
134 , a5 out nocopy JTF_VARCHAR2_TABLE_100
135 , a6 out nocopy JTF_VARCHAR2_TABLE_100
136 , a7 out nocopy JTF_NUMBER_TABLE
137 , a8 out nocopy JTF_VARCHAR2_TABLE_100
138 , a9 out nocopy JTF_VARCHAR2_TABLE_100
139 , a10 out nocopy JTF_VARCHAR2_TABLE_100
140 , a11 out nocopy JTF_VARCHAR2_TABLE_100
141 , a12 out nocopy JTF_NUMBER_TABLE
142 , a13 out nocopy JTF_VARCHAR2_TABLE_100
143 , a14 out nocopy JTF_NUMBER_TABLE
144 , a15 out nocopy JTF_NUMBER_TABLE
145 , a16 out nocopy JTF_NUMBER_TABLE
146 , a17 out nocopy JTF_NUMBER_TABLE
147 , a18 out nocopy JTF_VARCHAR2_TABLE_100
148 , a19 out nocopy JTF_DATE_TABLE
149 , a20 out nocopy JTF_DATE_TABLE
150 , a21 out nocopy JTF_VARCHAR2_TABLE_100
151 , a22 out nocopy JTF_DATE_TABLE
152 , a23 out nocopy JTF_NUMBER_TABLE
153 , a24 out nocopy JTF_DATE_TABLE
154 , a25 out nocopy JTF_NUMBER_TABLE
155 , a26 out nocopy JTF_NUMBER_TABLE
156 , a27 out nocopy JTF_NUMBER_TABLE
157 , a28 out nocopy JTF_VARCHAR2_TABLE_100
158 , a29 out nocopy JTF_VARCHAR2_TABLE_300
159 , a30 out nocopy JTF_VARCHAR2_TABLE_300
160 , a31 out nocopy JTF_VARCHAR2_TABLE_300
161 , a32 out nocopy JTF_VARCHAR2_TABLE_300
162 , a33 out nocopy JTF_VARCHAR2_TABLE_300
163 , a34 out nocopy JTF_VARCHAR2_TABLE_300
164 , a35 out nocopy JTF_VARCHAR2_TABLE_300
165 , a36 out nocopy JTF_VARCHAR2_TABLE_300
166 , a37 out nocopy JTF_VARCHAR2_TABLE_300
167 , a38 out nocopy JTF_VARCHAR2_TABLE_300
168 , a39 out nocopy JTF_VARCHAR2_TABLE_300
169 , a40 out nocopy JTF_VARCHAR2_TABLE_300
170 , a41 out nocopy JTF_VARCHAR2_TABLE_300
171 , a42 out nocopy JTF_VARCHAR2_TABLE_300
172 , a43 out nocopy JTF_VARCHAR2_TABLE_300
173 , a44 out nocopy JTF_NUMBER_TABLE
174 ) as
175 ddindx binary_integer; indx binary_integer;
176 begin
177 if t is null or t.count = 0 then
178 a0 := JTF_NUMBER_TABLE();
179 a1 := JTF_NUMBER_TABLE();
180 a2 := JTF_NUMBER_TABLE();
181 a3 := JTF_NUMBER_TABLE();
182 a4 := JTF_VARCHAR2_TABLE_100();
183 a5 := JTF_VARCHAR2_TABLE_100();
184 a6 := JTF_VARCHAR2_TABLE_100();
185 a7 := JTF_NUMBER_TABLE();
186 a8 := JTF_VARCHAR2_TABLE_100();
187 a9 := JTF_VARCHAR2_TABLE_100();
188 a10 := JTF_VARCHAR2_TABLE_100();
189 a11 := JTF_VARCHAR2_TABLE_100();
190 a12 := JTF_NUMBER_TABLE();
191 a13 := JTF_VARCHAR2_TABLE_100();
192 a14 := JTF_NUMBER_TABLE();
193 a15 := JTF_NUMBER_TABLE();
194 a16 := JTF_NUMBER_TABLE();
195 a17 := JTF_NUMBER_TABLE();
196 a18 := JTF_VARCHAR2_TABLE_100();
197 a19 := JTF_DATE_TABLE();
198 a20 := JTF_DATE_TABLE();
199 a21 := JTF_VARCHAR2_TABLE_100();
200 a22 := JTF_DATE_TABLE();
201 a23 := JTF_NUMBER_TABLE();
202 a24 := JTF_DATE_TABLE();
203 a25 := JTF_NUMBER_TABLE();
204 a26 := JTF_NUMBER_TABLE();
205 a27 := JTF_NUMBER_TABLE();
206 a28 := JTF_VARCHAR2_TABLE_100();
207 a29 := JTF_VARCHAR2_TABLE_300();
208 a30 := JTF_VARCHAR2_TABLE_300();
209 a31 := JTF_VARCHAR2_TABLE_300();
210 a32 := JTF_VARCHAR2_TABLE_300();
211 a33 := JTF_VARCHAR2_TABLE_300();
212 a34 := JTF_VARCHAR2_TABLE_300();
213 a35 := JTF_VARCHAR2_TABLE_300();
214 a36 := JTF_VARCHAR2_TABLE_300();
215 a37 := JTF_VARCHAR2_TABLE_300();
216 a38 := JTF_VARCHAR2_TABLE_300();
217 a39 := JTF_VARCHAR2_TABLE_300();
218 a40 := JTF_VARCHAR2_TABLE_300();
219 a41 := JTF_VARCHAR2_TABLE_300();
220 a42 := JTF_VARCHAR2_TABLE_300();
221 a43 := JTF_VARCHAR2_TABLE_300();
222 a44 := JTF_NUMBER_TABLE();
223 else
224 a0 := JTF_NUMBER_TABLE();
225 a1 := JTF_NUMBER_TABLE();
226 a2 := JTF_NUMBER_TABLE();
227 a3 := JTF_NUMBER_TABLE();
228 a4 := JTF_VARCHAR2_TABLE_100();
229 a5 := JTF_VARCHAR2_TABLE_100();
230 a6 := JTF_VARCHAR2_TABLE_100();
231 a7 := JTF_NUMBER_TABLE();
232 a8 := JTF_VARCHAR2_TABLE_100();
233 a9 := JTF_VARCHAR2_TABLE_100();
234 a10 := JTF_VARCHAR2_TABLE_100();
235 a11 := JTF_VARCHAR2_TABLE_100();
236 a12 := JTF_NUMBER_TABLE();
237 a13 := JTF_VARCHAR2_TABLE_100();
238 a14 := JTF_NUMBER_TABLE();
239 a15 := JTF_NUMBER_TABLE();
240 a16 := JTF_NUMBER_TABLE();
241 a17 := JTF_NUMBER_TABLE();
242 a18 := JTF_VARCHAR2_TABLE_100();
243 a19 := JTF_DATE_TABLE();
244 a20 := JTF_DATE_TABLE();
245 a21 := JTF_VARCHAR2_TABLE_100();
246 a22 := JTF_DATE_TABLE();
247 a23 := JTF_NUMBER_TABLE();
248 a24 := JTF_DATE_TABLE();
249 a25 := JTF_NUMBER_TABLE();
250 a26 := JTF_NUMBER_TABLE();
251 a27 := JTF_NUMBER_TABLE();
252 a28 := JTF_VARCHAR2_TABLE_100();
253 a29 := JTF_VARCHAR2_TABLE_300();
254 a30 := JTF_VARCHAR2_TABLE_300();
255 a31 := JTF_VARCHAR2_TABLE_300();
256 a32 := JTF_VARCHAR2_TABLE_300();
257 a33 := JTF_VARCHAR2_TABLE_300();
258 a34 := JTF_VARCHAR2_TABLE_300();
259 a35 := JTF_VARCHAR2_TABLE_300();
260 a36 := JTF_VARCHAR2_TABLE_300();
261 a37 := JTF_VARCHAR2_TABLE_300();
262 a38 := JTF_VARCHAR2_TABLE_300();
263 a39 := JTF_VARCHAR2_TABLE_300();
264 a40 := JTF_VARCHAR2_TABLE_300();
265 a41 := JTF_VARCHAR2_TABLE_300();
266 a42 := JTF_VARCHAR2_TABLE_300();
267 a43 := JTF_VARCHAR2_TABLE_300();
268 a44 := JTF_NUMBER_TABLE();
269 if t.count > 0 then
270 a0.extend(t.count);
271 a1.extend(t.count);
272 a2.extend(t.count);
273 a3.extend(t.count);
274 a4.extend(t.count);
275 a5.extend(t.count);
276 a6.extend(t.count);
277 a7.extend(t.count);
278 a8.extend(t.count);
279 a9.extend(t.count);
280 a10.extend(t.count);
281 a11.extend(t.count);
282 a12.extend(t.count);
283 a13.extend(t.count);
284 a14.extend(t.count);
285 a15.extend(t.count);
286 a16.extend(t.count);
287 a17.extend(t.count);
288 a18.extend(t.count);
289 a19.extend(t.count);
290 a20.extend(t.count);
291 a21.extend(t.count);
292 a22.extend(t.count);
293 a23.extend(t.count);
294 a24.extend(t.count);
295 a25.extend(t.count);
296 a26.extend(t.count);
297 a27.extend(t.count);
298 a28.extend(t.count);
299 a29.extend(t.count);
300 a30.extend(t.count);
301 a31.extend(t.count);
302 a32.extend(t.count);
303 a33.extend(t.count);
304 a34.extend(t.count);
305 a35.extend(t.count);
306 a36.extend(t.count);
307 a37.extend(t.count);
308 a38.extend(t.count);
309 a39.extend(t.count);
310 a40.extend(t.count);
311 a41.extend(t.count);
312 a42.extend(t.count);
313 a43.extend(t.count);
314 a44.extend(t.count);
315 ddindx := t.first;
316 indx := 1;
317 while true loop
318 a0(indx) := rosetta_g_miss_num_map(t(ddindx).offer_discount_line_id);
319 a1(indx) := rosetta_g_miss_num_map(t(ddindx).parent_discount_line_id);
320 a2(indx) := rosetta_g_miss_num_map(t(ddindx).volume_from);
321 a3(indx) := rosetta_g_miss_num_map(t(ddindx).volume_to);
322 a4(indx) := t(ddindx).volume_operator;
323 a5(indx) := t(ddindx).volume_type;
324 a6(indx) := t(ddindx).volume_break_type;
325 a7(indx) := rosetta_g_miss_num_map(t(ddindx).discount);
326 a8(indx) := t(ddindx).discount_type;
327 a9(indx) := t(ddindx).tier_type;
328 a10(indx) := t(ddindx).tier_level;
329 a11(indx) := t(ddindx).incompatibility_group;
330 a12(indx) := rosetta_g_miss_num_map(t(ddindx).precedence);
331 a13(indx) := t(ddindx).bucket;
332 a14(indx) := rosetta_g_miss_num_map(t(ddindx).scan_value);
333 a15(indx) := rosetta_g_miss_num_map(t(ddindx).scan_data_quantity);
334 a16(indx) := rosetta_g_miss_num_map(t(ddindx).scan_unit_forecast);
335 a17(indx) := rosetta_g_miss_num_map(t(ddindx).channel_id);
336 a18(indx) := t(ddindx).adjustment_flag;
337 a19(indx) := t(ddindx).start_date_active;
338 a20(indx) := t(ddindx).end_date_active;
339 a21(indx) := t(ddindx).uom_code;
340 a22(indx) := t(ddindx).creation_date;
341 a23(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
342 a24(indx) := t(ddindx).last_update_date;
343 a25(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
344 a26(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
345 a27(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
346 a28(indx) := t(ddindx).context;
347 a29(indx) := t(ddindx).attribute1;
348 a30(indx) := t(ddindx).attribute2;
349 a31(indx) := t(ddindx).attribute3;
350 a32(indx) := t(ddindx).attribute4;
351 a33(indx) := t(ddindx).attribute5;
352 a34(indx) := t(ddindx).attribute6;
353 a35(indx) := t(ddindx).attribute7;
354 a36(indx) := t(ddindx).attribute8;
355 a37(indx) := t(ddindx).attribute9;
356 a38(indx) := t(ddindx).attribute10;
357 a39(indx) := t(ddindx).attribute11;
358 a40(indx) := t(ddindx).attribute12;
359 a41(indx) := t(ddindx).attribute13;
360 a42(indx) := t(ddindx).attribute14;
361 a43(indx) := t(ddindx).attribute15;
362 a44(indx) := rosetta_g_miss_num_map(t(ddindx).offer_id);
363 indx := indx+1;
364 if t.last =ddindx
365 then exit;
366 end if;
367 ddindx := t.next(ddindx);
368 end loop;
369 end if;
370 end if;
371 end rosetta_table_copy_out_p2;
372
373 procedure rosetta_table_copy_in_p6(t out nocopy ozf_disc_line_pvt.ozf_offer_tier_tbl_type, a0 JTF_NUMBER_TABLE
374 , a1 JTF_NUMBER_TABLE
375 , a2 JTF_NUMBER_TABLE
376 , a3 JTF_NUMBER_TABLE
377 , a4 JTF_NUMBER_TABLE
378 , a5 JTF_VARCHAR2_TABLE_100
379 , a6 JTF_VARCHAR2_TABLE_100
380 , a7 JTF_VARCHAR2_TABLE_100
381 , a8 JTF_NUMBER_TABLE
382 , a9 JTF_VARCHAR2_TABLE_100
383 , a10 JTF_DATE_TABLE
384 , a11 JTF_DATE_TABLE
385 , a12 JTF_VARCHAR2_TABLE_100
386 , a13 JTF_NUMBER_TABLE
387 , a14 JTF_VARCHAR2_TABLE_100
388 , a15 JTF_VARCHAR2_TABLE_300
389 , a16 JTF_VARCHAR2_TABLE_300
390 , a17 JTF_VARCHAR2_TABLE_300
391 , a18 JTF_VARCHAR2_TABLE_300
392 , a19 JTF_VARCHAR2_TABLE_300
393 , a20 JTF_VARCHAR2_TABLE_300
394 , a21 JTF_VARCHAR2_TABLE_300
395 , a22 JTF_VARCHAR2_TABLE_300
396 , a23 JTF_VARCHAR2_TABLE_300
397 , a24 JTF_VARCHAR2_TABLE_300
398 , a25 JTF_VARCHAR2_TABLE_300
399 , a26 JTF_VARCHAR2_TABLE_300
400 , a27 JTF_VARCHAR2_TABLE_300
401 , a28 JTF_VARCHAR2_TABLE_300
402 , a29 JTF_VARCHAR2_TABLE_300
403 ) as
404 ddindx binary_integer; indx binary_integer;
405 begin
406 if a0 is not null and a0.count > 0 then
407 if a0.count > 0 then
408 indx := a0.first;
409 ddindx := 1;
410 while true loop
411 t(ddindx).offer_discount_line_id := rosetta_g_miss_num_map(a0(indx));
412 t(ddindx).parent_discount_line_id := rosetta_g_miss_num_map(a1(indx));
413 t(ddindx).offer_id := rosetta_g_miss_num_map(a2(indx));
414 t(ddindx).volume_from := rosetta_g_miss_num_map(a3(indx));
415 t(ddindx).volume_to := rosetta_g_miss_num_map(a4(indx));
416 t(ddindx).volume_operator := a5(indx);
417 t(ddindx).volume_type := a6(indx);
418 t(ddindx).volume_break_type := a7(indx);
419 t(ddindx).discount := rosetta_g_miss_num_map(a8(indx));
420 t(ddindx).discount_type := a9(indx);
421 t(ddindx).start_date_active := rosetta_g_miss_date_in_map(a10(indx));
422 t(ddindx).end_date_active := rosetta_g_miss_date_in_map(a11(indx));
423 t(ddindx).uom_code := a12(indx);
424 t(ddindx).object_version_number := rosetta_g_miss_num_map(a13(indx));
425 t(ddindx).context := a14(indx);
426 t(ddindx).attribute1 := a15(indx);
427 t(ddindx).attribute2 := a16(indx);
428 t(ddindx).attribute3 := a17(indx);
429 t(ddindx).attribute4 := a18(indx);
430 t(ddindx).attribute5 := a19(indx);
431 t(ddindx).attribute6 := a20(indx);
432 t(ddindx).attribute7 := a21(indx);
433 t(ddindx).attribute8 := a22(indx);
434 t(ddindx).attribute9 := a23(indx);
435 t(ddindx).attribute10 := a24(indx);
436 t(ddindx).attribute11 := a25(indx);
437 t(ddindx).attribute12 := a26(indx);
438 t(ddindx).attribute13 := a27(indx);
439 t(ddindx).attribute14 := a28(indx);
440 t(ddindx).attribute15 := a29(indx);
441 ddindx := ddindx+1;
442 if a0.last =indx
443 then exit;
444 end if;
445 indx := a0.next(indx);
446 end loop;
447 end if;
448 end if;
449 end rosetta_table_copy_in_p6;
450 procedure rosetta_table_copy_out_p6(t ozf_disc_line_pvt.ozf_offer_tier_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
451 , a1 out nocopy JTF_NUMBER_TABLE
452 , a2 out nocopy JTF_NUMBER_TABLE
453 , a3 out nocopy JTF_NUMBER_TABLE
454 , a4 out nocopy JTF_NUMBER_TABLE
455 , a5 out nocopy JTF_VARCHAR2_TABLE_100
456 , a6 out nocopy JTF_VARCHAR2_TABLE_100
457 , a7 out nocopy JTF_VARCHAR2_TABLE_100
458 , a8 out nocopy JTF_NUMBER_TABLE
459 , a9 out nocopy JTF_VARCHAR2_TABLE_100
460 , a10 out nocopy JTF_DATE_TABLE
461 , a11 out nocopy JTF_DATE_TABLE
462 , a12 out nocopy JTF_VARCHAR2_TABLE_100
463 , a13 out nocopy JTF_NUMBER_TABLE
464 , a14 out nocopy JTF_VARCHAR2_TABLE_100
465 , a15 out nocopy JTF_VARCHAR2_TABLE_300
466 , a16 out nocopy JTF_VARCHAR2_TABLE_300
467 , a17 out nocopy JTF_VARCHAR2_TABLE_300
468 , a18 out nocopy JTF_VARCHAR2_TABLE_300
469 , a19 out nocopy JTF_VARCHAR2_TABLE_300
470 , a20 out nocopy JTF_VARCHAR2_TABLE_300
471 , a21 out nocopy JTF_VARCHAR2_TABLE_300
472 , a22 out nocopy JTF_VARCHAR2_TABLE_300
473 , a23 out nocopy JTF_VARCHAR2_TABLE_300
474 , a24 out nocopy JTF_VARCHAR2_TABLE_300
475 , a25 out nocopy JTF_VARCHAR2_TABLE_300
476 , a26 out nocopy JTF_VARCHAR2_TABLE_300
477 , a27 out nocopy JTF_VARCHAR2_TABLE_300
478 , a28 out nocopy JTF_VARCHAR2_TABLE_300
479 , a29 out nocopy JTF_VARCHAR2_TABLE_300
480 ) as
481 ddindx binary_integer; indx binary_integer;
482 begin
483 if t is null or t.count = 0 then
484 a0 := JTF_NUMBER_TABLE();
485 a1 := JTF_NUMBER_TABLE();
486 a2 := JTF_NUMBER_TABLE();
487 a3 := JTF_NUMBER_TABLE();
488 a4 := JTF_NUMBER_TABLE();
489 a5 := JTF_VARCHAR2_TABLE_100();
490 a6 := JTF_VARCHAR2_TABLE_100();
491 a7 := JTF_VARCHAR2_TABLE_100();
492 a8 := JTF_NUMBER_TABLE();
493 a9 := JTF_VARCHAR2_TABLE_100();
494 a10 := JTF_DATE_TABLE();
495 a11 := JTF_DATE_TABLE();
496 a12 := JTF_VARCHAR2_TABLE_100();
497 a13 := JTF_NUMBER_TABLE();
498 a14 := JTF_VARCHAR2_TABLE_100();
499 a15 := JTF_VARCHAR2_TABLE_300();
500 a16 := JTF_VARCHAR2_TABLE_300();
501 a17 := JTF_VARCHAR2_TABLE_300();
502 a18 := JTF_VARCHAR2_TABLE_300();
503 a19 := JTF_VARCHAR2_TABLE_300();
504 a20 := JTF_VARCHAR2_TABLE_300();
505 a21 := JTF_VARCHAR2_TABLE_300();
506 a22 := JTF_VARCHAR2_TABLE_300();
507 a23 := JTF_VARCHAR2_TABLE_300();
508 a24 := JTF_VARCHAR2_TABLE_300();
509 a25 := JTF_VARCHAR2_TABLE_300();
510 a26 := JTF_VARCHAR2_TABLE_300();
511 a27 := JTF_VARCHAR2_TABLE_300();
512 a28 := JTF_VARCHAR2_TABLE_300();
513 a29 := JTF_VARCHAR2_TABLE_300();
514 else
515 a0 := JTF_NUMBER_TABLE();
516 a1 := JTF_NUMBER_TABLE();
517 a2 := JTF_NUMBER_TABLE();
518 a3 := JTF_NUMBER_TABLE();
519 a4 := JTF_NUMBER_TABLE();
520 a5 := JTF_VARCHAR2_TABLE_100();
521 a6 := JTF_VARCHAR2_TABLE_100();
522 a7 := JTF_VARCHAR2_TABLE_100();
523 a8 := JTF_NUMBER_TABLE();
524 a9 := JTF_VARCHAR2_TABLE_100();
525 a10 := JTF_DATE_TABLE();
526 a11 := JTF_DATE_TABLE();
527 a12 := JTF_VARCHAR2_TABLE_100();
528 a13 := JTF_NUMBER_TABLE();
529 a14 := JTF_VARCHAR2_TABLE_100();
530 a15 := JTF_VARCHAR2_TABLE_300();
531 a16 := JTF_VARCHAR2_TABLE_300();
532 a17 := JTF_VARCHAR2_TABLE_300();
533 a18 := JTF_VARCHAR2_TABLE_300();
534 a19 := JTF_VARCHAR2_TABLE_300();
535 a20 := JTF_VARCHAR2_TABLE_300();
536 a21 := JTF_VARCHAR2_TABLE_300();
537 a22 := JTF_VARCHAR2_TABLE_300();
538 a23 := JTF_VARCHAR2_TABLE_300();
539 a24 := JTF_VARCHAR2_TABLE_300();
540 a25 := JTF_VARCHAR2_TABLE_300();
541 a26 := JTF_VARCHAR2_TABLE_300();
542 a27 := JTF_VARCHAR2_TABLE_300();
543 a28 := JTF_VARCHAR2_TABLE_300();
544 a29 := JTF_VARCHAR2_TABLE_300();
545 if t.count > 0 then
546 a0.extend(t.count);
547 a1.extend(t.count);
548 a2.extend(t.count);
549 a3.extend(t.count);
550 a4.extend(t.count);
551 a5.extend(t.count);
552 a6.extend(t.count);
553 a7.extend(t.count);
554 a8.extend(t.count);
555 a9.extend(t.count);
556 a10.extend(t.count);
557 a11.extend(t.count);
558 a12.extend(t.count);
559 a13.extend(t.count);
560 a14.extend(t.count);
561 a15.extend(t.count);
562 a16.extend(t.count);
563 a17.extend(t.count);
564 a18.extend(t.count);
565 a19.extend(t.count);
566 a20.extend(t.count);
567 a21.extend(t.count);
568 a22.extend(t.count);
569 a23.extend(t.count);
570 a24.extend(t.count);
571 a25.extend(t.count);
572 a26.extend(t.count);
573 a27.extend(t.count);
574 a28.extend(t.count);
575 a29.extend(t.count);
576 ddindx := t.first;
577 indx := 1;
578 while true loop
579 a0(indx) := rosetta_g_miss_num_map(t(ddindx).offer_discount_line_id);
580 a1(indx) := rosetta_g_miss_num_map(t(ddindx).parent_discount_line_id);
581 a2(indx) := rosetta_g_miss_num_map(t(ddindx).offer_id);
582 a3(indx) := rosetta_g_miss_num_map(t(ddindx).volume_from);
583 a4(indx) := rosetta_g_miss_num_map(t(ddindx).volume_to);
584 a5(indx) := t(ddindx).volume_operator;
585 a6(indx) := t(ddindx).volume_type;
586 a7(indx) := t(ddindx).volume_break_type;
587 a8(indx) := rosetta_g_miss_num_map(t(ddindx).discount);
588 a9(indx) := t(ddindx).discount_type;
589 a10(indx) := t(ddindx).start_date_active;
590 a11(indx) := t(ddindx).end_date_active;
591 a12(indx) := t(ddindx).uom_code;
592 a13(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
593 a14(indx) := t(ddindx).context;
594 a15(indx) := t(ddindx).attribute1;
595 a16(indx) := t(ddindx).attribute2;
596 a17(indx) := t(ddindx).attribute3;
597 a18(indx) := t(ddindx).attribute4;
598 a19(indx) := t(ddindx).attribute5;
599 a20(indx) := t(ddindx).attribute6;
600 a21(indx) := t(ddindx).attribute7;
601 a22(indx) := t(ddindx).attribute8;
602 a23(indx) := t(ddindx).attribute9;
603 a24(indx) := t(ddindx).attribute10;
604 a25(indx) := t(ddindx).attribute11;
605 a26(indx) := t(ddindx).attribute12;
606 a27(indx) := t(ddindx).attribute13;
607 a28(indx) := t(ddindx).attribute14;
608 a29(indx) := t(ddindx).attribute15;
609 indx := indx+1;
610 if t.last =ddindx
611 then exit;
612 end if;
613 ddindx := t.next(ddindx);
614 end loop;
615 end if;
616 end if;
617 end rosetta_table_copy_out_p6;
618
619 procedure rosetta_table_copy_in_p9(t out nocopy ozf_disc_line_pvt.ozf_discount_line_tbl, a0 JTF_NUMBER_TABLE
620 , a1 JTF_NUMBER_TABLE
621 , a2 JTF_NUMBER_TABLE
622 , a3 JTF_NUMBER_TABLE
623 , a4 JTF_VARCHAR2_TABLE_100
624 , a5 JTF_VARCHAR2_TABLE_100
625 , a6 JTF_VARCHAR2_TABLE_100
626 , a7 JTF_NUMBER_TABLE
627 , a8 JTF_VARCHAR2_TABLE_100
628 , a9 JTF_VARCHAR2_TABLE_100
629 , a10 JTF_VARCHAR2_TABLE_100
630 , a11 JTF_VARCHAR2_TABLE_100
631 , a12 JTF_NUMBER_TABLE
632 , a13 JTF_VARCHAR2_TABLE_100
633 , a14 JTF_NUMBER_TABLE
634 , a15 JTF_NUMBER_TABLE
635 , a16 JTF_NUMBER_TABLE
636 , a17 JTF_NUMBER_TABLE
637 , a18 JTF_VARCHAR2_TABLE_100
638 , a19 JTF_DATE_TABLE
639 , a20 JTF_DATE_TABLE
640 , a21 JTF_VARCHAR2_TABLE_100
641 , a22 JTF_DATE_TABLE
642 , a23 JTF_NUMBER_TABLE
643 , a24 JTF_DATE_TABLE
644 , a25 JTF_NUMBER_TABLE
645 , a26 JTF_NUMBER_TABLE
646 , a27 JTF_NUMBER_TABLE
647 , a28 JTF_NUMBER_TABLE
648 , a29 JTF_NUMBER_TABLE
649 , a30 JTF_NUMBER_TABLE
650 , a31 JTF_VARCHAR2_TABLE_100
651 , a32 JTF_NUMBER_TABLE
652 , a33 JTF_VARCHAR2_TABLE_100
653 , a34 JTF_VARCHAR2_TABLE_100
654 , a35 JTF_VARCHAR2_TABLE_300
655 , a36 JTF_VARCHAR2_TABLE_300
656 , a37 JTF_VARCHAR2_TABLE_300
657 , a38 JTF_VARCHAR2_TABLE_300
658 , a39 JTF_VARCHAR2_TABLE_300
659 , a40 JTF_VARCHAR2_TABLE_300
660 , a41 JTF_VARCHAR2_TABLE_300
661 , a42 JTF_VARCHAR2_TABLE_300
662 , a43 JTF_VARCHAR2_TABLE_300
663 , a44 JTF_VARCHAR2_TABLE_300
664 , a45 JTF_VARCHAR2_TABLE_300
665 , a46 JTF_VARCHAR2_TABLE_300
666 , a47 JTF_VARCHAR2_TABLE_300
667 , a48 JTF_VARCHAR2_TABLE_300
668 , a49 JTF_VARCHAR2_TABLE_300
669 ) 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).offer_discount_line_id := rosetta_g_miss_num_map(a0(indx));
678 t(ddindx).parent_discount_line_id := rosetta_g_miss_num_map(a1(indx));
679 t(ddindx).volume_from := rosetta_g_miss_num_map(a2(indx));
680 t(ddindx).volume_to := rosetta_g_miss_num_map(a3(indx));
681 t(ddindx).volume_operator := a4(indx);
682 t(ddindx).volume_type := a5(indx);
683 t(ddindx).volume_break_type := a6(indx);
684 t(ddindx).discount := rosetta_g_miss_num_map(a7(indx));
685 t(ddindx).discount_type := a8(indx);
686 t(ddindx).tier_type := a9(indx);
687 t(ddindx).tier_level := a10(indx);
688 t(ddindx).incompatibility_group := a11(indx);
689 t(ddindx).precedence := rosetta_g_miss_num_map(a12(indx));
690 t(ddindx).bucket := a13(indx);
691 t(ddindx).scan_value := rosetta_g_miss_num_map(a14(indx));
692 t(ddindx).scan_data_quantity := rosetta_g_miss_num_map(a15(indx));
693 t(ddindx).scan_unit_forecast := rosetta_g_miss_num_map(a16(indx));
694 t(ddindx).channel_id := rosetta_g_miss_num_map(a17(indx));
695 t(ddindx).adjustment_flag := a18(indx);
696 t(ddindx).start_date_active := rosetta_g_miss_date_in_map(a19(indx));
697 t(ddindx).end_date_active := rosetta_g_miss_date_in_map(a20(indx));
698 t(ddindx).uom_code := a21(indx);
699 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a22(indx));
700 t(ddindx).created_by := rosetta_g_miss_num_map(a23(indx));
701 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a24(indx));
702 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a25(indx));
703 t(ddindx).last_update_login := rosetta_g_miss_num_map(a26(indx));
704 t(ddindx).object_version_number := rosetta_g_miss_num_map(a27(indx));
705 t(ddindx).offer_id := rosetta_g_miss_num_map(a28(indx));
706 t(ddindx).off_discount_product_id := rosetta_g_miss_num_map(a29(indx));
707 t(ddindx).parent_off_disc_prod_id := rosetta_g_miss_num_map(a30(indx));
708 t(ddindx).product_level := a31(indx);
709 t(ddindx).product_id := rosetta_g_miss_num_map(a32(indx));
710 t(ddindx).excluder_flag := a33(indx);
711 t(ddindx).context := a34(indx);
712 t(ddindx).attribute1 := a35(indx);
713 t(ddindx).attribute2 := a36(indx);
714 t(ddindx).attribute3 := a37(indx);
715 t(ddindx).attribute4 := a38(indx);
716 t(ddindx).attribute5 := a39(indx);
717 t(ddindx).attribute6 := a40(indx);
718 t(ddindx).attribute7 := a41(indx);
719 t(ddindx).attribute8 := a42(indx);
720 t(ddindx).attribute9 := a43(indx);
721 t(ddindx).attribute10 := a44(indx);
722 t(ddindx).attribute11 := a45(indx);
723 t(ddindx).attribute12 := a46(indx);
724 t(ddindx).attribute13 := a47(indx);
725 t(ddindx).attribute14 := a48(indx);
726 t(ddindx).attribute15 := a49(indx);
727 ddindx := ddindx+1;
728 if a0.last =indx
729 then exit;
730 end if;
731 indx := a0.next(indx);
732 end loop;
733 end if;
734 end if;
735 end rosetta_table_copy_in_p9;
736 procedure rosetta_table_copy_out_p9(t ozf_disc_line_pvt.ozf_discount_line_tbl, a0 out nocopy JTF_NUMBER_TABLE
737 , a1 out nocopy JTF_NUMBER_TABLE
738 , a2 out nocopy JTF_NUMBER_TABLE
739 , a3 out nocopy JTF_NUMBER_TABLE
740 , a4 out nocopy JTF_VARCHAR2_TABLE_100
741 , a5 out nocopy JTF_VARCHAR2_TABLE_100
742 , a6 out nocopy JTF_VARCHAR2_TABLE_100
743 , a7 out nocopy JTF_NUMBER_TABLE
744 , a8 out nocopy JTF_VARCHAR2_TABLE_100
745 , a9 out nocopy JTF_VARCHAR2_TABLE_100
746 , a10 out nocopy JTF_VARCHAR2_TABLE_100
747 , a11 out nocopy JTF_VARCHAR2_TABLE_100
748 , a12 out nocopy JTF_NUMBER_TABLE
749 , a13 out nocopy JTF_VARCHAR2_TABLE_100
750 , a14 out nocopy JTF_NUMBER_TABLE
751 , a15 out nocopy JTF_NUMBER_TABLE
752 , a16 out nocopy JTF_NUMBER_TABLE
753 , a17 out nocopy JTF_NUMBER_TABLE
754 , a18 out nocopy JTF_VARCHAR2_TABLE_100
755 , a19 out nocopy JTF_DATE_TABLE
756 , a20 out nocopy JTF_DATE_TABLE
757 , a21 out nocopy JTF_VARCHAR2_TABLE_100
758 , a22 out nocopy JTF_DATE_TABLE
759 , a23 out nocopy JTF_NUMBER_TABLE
760 , a24 out nocopy JTF_DATE_TABLE
761 , a25 out nocopy JTF_NUMBER_TABLE
762 , a26 out nocopy JTF_NUMBER_TABLE
763 , a27 out nocopy JTF_NUMBER_TABLE
764 , a28 out nocopy JTF_NUMBER_TABLE
765 , a29 out nocopy JTF_NUMBER_TABLE
766 , a30 out nocopy JTF_NUMBER_TABLE
767 , a31 out nocopy JTF_VARCHAR2_TABLE_100
768 , a32 out nocopy JTF_NUMBER_TABLE
769 , a33 out nocopy JTF_VARCHAR2_TABLE_100
770 , a34 out nocopy JTF_VARCHAR2_TABLE_100
771 , a35 out nocopy JTF_VARCHAR2_TABLE_300
772 , a36 out nocopy JTF_VARCHAR2_TABLE_300
773 , a37 out nocopy JTF_VARCHAR2_TABLE_300
774 , a38 out nocopy JTF_VARCHAR2_TABLE_300
775 , a39 out nocopy JTF_VARCHAR2_TABLE_300
776 , a40 out nocopy JTF_VARCHAR2_TABLE_300
777 , a41 out nocopy JTF_VARCHAR2_TABLE_300
778 , a42 out nocopy JTF_VARCHAR2_TABLE_300
779 , a43 out nocopy JTF_VARCHAR2_TABLE_300
780 , a44 out nocopy JTF_VARCHAR2_TABLE_300
781 , a45 out nocopy JTF_VARCHAR2_TABLE_300
782 , a46 out nocopy JTF_VARCHAR2_TABLE_300
783 , a47 out nocopy JTF_VARCHAR2_TABLE_300
784 , a48 out nocopy JTF_VARCHAR2_TABLE_300
785 , a49 out nocopy JTF_VARCHAR2_TABLE_300
786 ) as
787 ddindx binary_integer; indx binary_integer;
788 begin
789 if t is null or t.count = 0 then
790 a0 := JTF_NUMBER_TABLE();
791 a1 := JTF_NUMBER_TABLE();
792 a2 := JTF_NUMBER_TABLE();
793 a3 := JTF_NUMBER_TABLE();
794 a4 := JTF_VARCHAR2_TABLE_100();
795 a5 := JTF_VARCHAR2_TABLE_100();
796 a6 := JTF_VARCHAR2_TABLE_100();
797 a7 := JTF_NUMBER_TABLE();
798 a8 := JTF_VARCHAR2_TABLE_100();
799 a9 := JTF_VARCHAR2_TABLE_100();
800 a10 := JTF_VARCHAR2_TABLE_100();
801 a11 := JTF_VARCHAR2_TABLE_100();
802 a12 := JTF_NUMBER_TABLE();
803 a13 := JTF_VARCHAR2_TABLE_100();
804 a14 := JTF_NUMBER_TABLE();
805 a15 := JTF_NUMBER_TABLE();
806 a16 := JTF_NUMBER_TABLE();
807 a17 := JTF_NUMBER_TABLE();
808 a18 := JTF_VARCHAR2_TABLE_100();
809 a19 := JTF_DATE_TABLE();
810 a20 := JTF_DATE_TABLE();
811 a21 := JTF_VARCHAR2_TABLE_100();
812 a22 := JTF_DATE_TABLE();
813 a23 := JTF_NUMBER_TABLE();
814 a24 := JTF_DATE_TABLE();
815 a25 := JTF_NUMBER_TABLE();
816 a26 := JTF_NUMBER_TABLE();
817 a27 := JTF_NUMBER_TABLE();
818 a28 := JTF_NUMBER_TABLE();
819 a29 := JTF_NUMBER_TABLE();
820 a30 := JTF_NUMBER_TABLE();
821 a31 := JTF_VARCHAR2_TABLE_100();
822 a32 := JTF_NUMBER_TABLE();
823 a33 := JTF_VARCHAR2_TABLE_100();
824 a34 := JTF_VARCHAR2_TABLE_100();
825 a35 := JTF_VARCHAR2_TABLE_300();
826 a36 := JTF_VARCHAR2_TABLE_300();
827 a37 := JTF_VARCHAR2_TABLE_300();
828 a38 := JTF_VARCHAR2_TABLE_300();
829 a39 := JTF_VARCHAR2_TABLE_300();
830 a40 := JTF_VARCHAR2_TABLE_300();
831 a41 := JTF_VARCHAR2_TABLE_300();
832 a42 := JTF_VARCHAR2_TABLE_300();
833 a43 := JTF_VARCHAR2_TABLE_300();
834 a44 := JTF_VARCHAR2_TABLE_300();
835 a45 := JTF_VARCHAR2_TABLE_300();
836 a46 := JTF_VARCHAR2_TABLE_300();
837 a47 := JTF_VARCHAR2_TABLE_300();
838 a48 := JTF_VARCHAR2_TABLE_300();
839 a49 := JTF_VARCHAR2_TABLE_300();
840 else
841 a0 := JTF_NUMBER_TABLE();
842 a1 := JTF_NUMBER_TABLE();
843 a2 := JTF_NUMBER_TABLE();
844 a3 := JTF_NUMBER_TABLE();
845 a4 := JTF_VARCHAR2_TABLE_100();
846 a5 := JTF_VARCHAR2_TABLE_100();
847 a6 := JTF_VARCHAR2_TABLE_100();
848 a7 := JTF_NUMBER_TABLE();
849 a8 := JTF_VARCHAR2_TABLE_100();
850 a9 := JTF_VARCHAR2_TABLE_100();
851 a10 := JTF_VARCHAR2_TABLE_100();
852 a11 := JTF_VARCHAR2_TABLE_100();
853 a12 := JTF_NUMBER_TABLE();
854 a13 := JTF_VARCHAR2_TABLE_100();
855 a14 := JTF_NUMBER_TABLE();
856 a15 := JTF_NUMBER_TABLE();
857 a16 := JTF_NUMBER_TABLE();
858 a17 := JTF_NUMBER_TABLE();
859 a18 := JTF_VARCHAR2_TABLE_100();
860 a19 := JTF_DATE_TABLE();
861 a20 := JTF_DATE_TABLE();
862 a21 := JTF_VARCHAR2_TABLE_100();
863 a22 := JTF_DATE_TABLE();
864 a23 := JTF_NUMBER_TABLE();
865 a24 := JTF_DATE_TABLE();
866 a25 := JTF_NUMBER_TABLE();
867 a26 := JTF_NUMBER_TABLE();
868 a27 := JTF_NUMBER_TABLE();
869 a28 := JTF_NUMBER_TABLE();
870 a29 := JTF_NUMBER_TABLE();
871 a30 := JTF_NUMBER_TABLE();
872 a31 := JTF_VARCHAR2_TABLE_100();
873 a32 := JTF_NUMBER_TABLE();
874 a33 := JTF_VARCHAR2_TABLE_100();
875 a34 := JTF_VARCHAR2_TABLE_100();
876 a35 := JTF_VARCHAR2_TABLE_300();
877 a36 := JTF_VARCHAR2_TABLE_300();
878 a37 := JTF_VARCHAR2_TABLE_300();
879 a38 := JTF_VARCHAR2_TABLE_300();
880 a39 := JTF_VARCHAR2_TABLE_300();
881 a40 := JTF_VARCHAR2_TABLE_300();
882 a41 := JTF_VARCHAR2_TABLE_300();
883 a42 := JTF_VARCHAR2_TABLE_300();
884 a43 := JTF_VARCHAR2_TABLE_300();
885 a44 := JTF_VARCHAR2_TABLE_300();
886 a45 := JTF_VARCHAR2_TABLE_300();
887 a46 := JTF_VARCHAR2_TABLE_300();
888 a47 := JTF_VARCHAR2_TABLE_300();
889 a48 := JTF_VARCHAR2_TABLE_300();
890 a49 := JTF_VARCHAR2_TABLE_300();
891 if t.count > 0 then
892 a0.extend(t.count);
893 a1.extend(t.count);
894 a2.extend(t.count);
895 a3.extend(t.count);
896 a4.extend(t.count);
897 a5.extend(t.count);
898 a6.extend(t.count);
899 a7.extend(t.count);
900 a8.extend(t.count);
901 a9.extend(t.count);
902 a10.extend(t.count);
903 a11.extend(t.count);
904 a12.extend(t.count);
905 a13.extend(t.count);
906 a14.extend(t.count);
907 a15.extend(t.count);
908 a16.extend(t.count);
909 a17.extend(t.count);
910 a18.extend(t.count);
911 a19.extend(t.count);
912 a20.extend(t.count);
913 a21.extend(t.count);
914 a22.extend(t.count);
915 a23.extend(t.count);
916 a24.extend(t.count);
917 a25.extend(t.count);
918 a26.extend(t.count);
919 a27.extend(t.count);
920 a28.extend(t.count);
921 a29.extend(t.count);
922 a30.extend(t.count);
923 a31.extend(t.count);
924 a32.extend(t.count);
925 a33.extend(t.count);
926 a34.extend(t.count);
927 a35.extend(t.count);
928 a36.extend(t.count);
929 a37.extend(t.count);
930 a38.extend(t.count);
931 a39.extend(t.count);
932 a40.extend(t.count);
933 a41.extend(t.count);
934 a42.extend(t.count);
935 a43.extend(t.count);
936 a44.extend(t.count);
937 a45.extend(t.count);
938 a46.extend(t.count);
939 a47.extend(t.count);
940 a48.extend(t.count);
941 a49.extend(t.count);
942 ddindx := t.first;
943 indx := 1;
944 while true loop
945 a0(indx) := rosetta_g_miss_num_map(t(ddindx).offer_discount_line_id);
946 a1(indx) := rosetta_g_miss_num_map(t(ddindx).parent_discount_line_id);
947 a2(indx) := rosetta_g_miss_num_map(t(ddindx).volume_from);
948 a3(indx) := rosetta_g_miss_num_map(t(ddindx).volume_to);
949 a4(indx) := t(ddindx).volume_operator;
950 a5(indx) := t(ddindx).volume_type;
951 a6(indx) := t(ddindx).volume_break_type;
952 a7(indx) := rosetta_g_miss_num_map(t(ddindx).discount);
953 a8(indx) := t(ddindx).discount_type;
954 a9(indx) := t(ddindx).tier_type;
955 a10(indx) := t(ddindx).tier_level;
956 a11(indx) := t(ddindx).incompatibility_group;
957 a12(indx) := rosetta_g_miss_num_map(t(ddindx).precedence);
958 a13(indx) := t(ddindx).bucket;
959 a14(indx) := rosetta_g_miss_num_map(t(ddindx).scan_value);
960 a15(indx) := rosetta_g_miss_num_map(t(ddindx).scan_data_quantity);
961 a16(indx) := rosetta_g_miss_num_map(t(ddindx).scan_unit_forecast);
962 a17(indx) := rosetta_g_miss_num_map(t(ddindx).channel_id);
963 a18(indx) := t(ddindx).adjustment_flag;
964 a19(indx) := t(ddindx).start_date_active;
965 a20(indx) := t(ddindx).end_date_active;
966 a21(indx) := t(ddindx).uom_code;
967 a22(indx) := t(ddindx).creation_date;
968 a23(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
969 a24(indx) := t(ddindx).last_update_date;
970 a25(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
971 a26(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
972 a27(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
973 a28(indx) := rosetta_g_miss_num_map(t(ddindx).offer_id);
974 a29(indx) := rosetta_g_miss_num_map(t(ddindx).off_discount_product_id);
975 a30(indx) := rosetta_g_miss_num_map(t(ddindx).parent_off_disc_prod_id);
976 a31(indx) := t(ddindx).product_level;
977 a32(indx) := rosetta_g_miss_num_map(t(ddindx).product_id);
978 a33(indx) := t(ddindx).excluder_flag;
979 a34(indx) := t(ddindx).context;
980 a35(indx) := t(ddindx).attribute1;
981 a36(indx) := t(ddindx).attribute2;
982 a37(indx) := t(ddindx).attribute3;
983 a38(indx) := t(ddindx).attribute4;
984 a39(indx) := t(ddindx).attribute5;
985 a40(indx) := t(ddindx).attribute6;
986 a41(indx) := t(ddindx).attribute7;
987 a42(indx) := t(ddindx).attribute8;
988 a43(indx) := t(ddindx).attribute9;
989 a44(indx) := t(ddindx).attribute10;
990 a45(indx) := t(ddindx).attribute11;
991 a46(indx) := t(ddindx).attribute12;
992 a47(indx) := t(ddindx).attribute13;
993 a48(indx) := t(ddindx).attribute14;
994 a49(indx) := t(ddindx).attribute15;
995 indx := indx+1;
996 if t.last =ddindx
997 then exit;
998 end if;
999 ddindx := t.next(ddindx);
1000 end loop;
1001 end if;
1002 end if;
1003 end rosetta_table_copy_out_p9;
1004
1005 procedure rosetta_table_copy_in_p12(t out nocopy ozf_disc_line_pvt.prod_rec_tbl_type, a0 JTF_NUMBER_TABLE
1006 , a1 JTF_NUMBER_TABLE
1007 , a2 JTF_VARCHAR2_TABLE_100
1008 , a3 JTF_NUMBER_TABLE
1009 , a4 JTF_VARCHAR2_TABLE_100
1010 , a5 JTF_VARCHAR2_TABLE_100
1011 , a6 JTF_DATE_TABLE
1012 , a7 JTF_DATE_TABLE
1013 , a8 JTF_NUMBER_TABLE
1014 , a9 JTF_NUMBER_TABLE
1015 , a10 JTF_DATE_TABLE
1016 , a11 JTF_NUMBER_TABLE
1017 , a12 JTF_DATE_TABLE
1018 , a13 JTF_NUMBER_TABLE
1019 , a14 JTF_NUMBER_TABLE
1020 , a15 JTF_NUMBER_TABLE
1021 ) as
1022 ddindx binary_integer; indx binary_integer;
1023 begin
1024 if a0 is not null and a0.count > 0 then
1025 if a0.count > 0 then
1026 indx := a0.first;
1027 ddindx := 1;
1028 while true loop
1029 t(ddindx).off_discount_product_id := rosetta_g_miss_num_map(a0(indx));
1030 t(ddindx).parent_off_disc_prod_id := rosetta_g_miss_num_map(a1(indx));
1031 t(ddindx).product_level := a2(indx);
1032 t(ddindx).product_id := rosetta_g_miss_num_map(a3(indx));
1033 t(ddindx).excluder_flag := a4(indx);
1034 t(ddindx).uom_code := a5(indx);
1035 t(ddindx).start_date_active := rosetta_g_miss_date_in_map(a6(indx));
1036 t(ddindx).end_date_active := rosetta_g_miss_date_in_map(a7(indx));
1037 t(ddindx).offer_discount_line_id := rosetta_g_miss_num_map(a8(indx));
1038 t(ddindx).offer_id := rosetta_g_miss_num_map(a9(indx));
1039 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a10(indx));
1040 t(ddindx).created_by := rosetta_g_miss_num_map(a11(indx));
1041 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a12(indx));
1042 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a13(indx));
1043 t(ddindx).last_update_login := rosetta_g_miss_num_map(a14(indx));
1044 t(ddindx).object_version_number := rosetta_g_miss_num_map(a15(indx));
1045 ddindx := ddindx+1;
1046 if a0.last =indx
1047 then exit;
1048 end if;
1049 indx := a0.next(indx);
1050 end loop;
1051 end if;
1052 end if;
1053 end rosetta_table_copy_in_p12;
1054 procedure rosetta_table_copy_out_p12(t ozf_disc_line_pvt.prod_rec_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
1055 , a1 out nocopy JTF_NUMBER_TABLE
1056 , a2 out nocopy JTF_VARCHAR2_TABLE_100
1057 , a3 out nocopy JTF_NUMBER_TABLE
1058 , a4 out nocopy JTF_VARCHAR2_TABLE_100
1059 , a5 out nocopy JTF_VARCHAR2_TABLE_100
1060 , a6 out nocopy JTF_DATE_TABLE
1061 , a7 out nocopy JTF_DATE_TABLE
1062 , a8 out nocopy JTF_NUMBER_TABLE
1063 , a9 out nocopy JTF_NUMBER_TABLE
1064 , a10 out nocopy JTF_DATE_TABLE
1065 , a11 out nocopy JTF_NUMBER_TABLE
1066 , a12 out nocopy JTF_DATE_TABLE
1067 , a13 out nocopy JTF_NUMBER_TABLE
1068 , a14 out nocopy JTF_NUMBER_TABLE
1069 , a15 out nocopy JTF_NUMBER_TABLE
1070 ) as
1071 ddindx binary_integer; indx binary_integer;
1072 begin
1073 if t is null or t.count = 0 then
1074 a0 := JTF_NUMBER_TABLE();
1075 a1 := JTF_NUMBER_TABLE();
1076 a2 := JTF_VARCHAR2_TABLE_100();
1077 a3 := JTF_NUMBER_TABLE();
1078 a4 := JTF_VARCHAR2_TABLE_100();
1079 a5 := JTF_VARCHAR2_TABLE_100();
1080 a6 := JTF_DATE_TABLE();
1081 a7 := JTF_DATE_TABLE();
1082 a8 := JTF_NUMBER_TABLE();
1083 a9 := JTF_NUMBER_TABLE();
1084 a10 := JTF_DATE_TABLE();
1085 a11 := JTF_NUMBER_TABLE();
1086 a12 := JTF_DATE_TABLE();
1087 a13 := JTF_NUMBER_TABLE();
1088 a14 := JTF_NUMBER_TABLE();
1089 a15 := JTF_NUMBER_TABLE();
1090 else
1091 a0 := JTF_NUMBER_TABLE();
1092 a1 := JTF_NUMBER_TABLE();
1093 a2 := JTF_VARCHAR2_TABLE_100();
1094 a3 := JTF_NUMBER_TABLE();
1095 a4 := JTF_VARCHAR2_TABLE_100();
1096 a5 := JTF_VARCHAR2_TABLE_100();
1097 a6 := JTF_DATE_TABLE();
1098 a7 := JTF_DATE_TABLE();
1099 a8 := JTF_NUMBER_TABLE();
1100 a9 := JTF_NUMBER_TABLE();
1101 a10 := JTF_DATE_TABLE();
1102 a11 := JTF_NUMBER_TABLE();
1103 a12 := JTF_DATE_TABLE();
1104 a13 := JTF_NUMBER_TABLE();
1105 a14 := JTF_NUMBER_TABLE();
1106 a15 := JTF_NUMBER_TABLE();
1107 if t.count > 0 then
1108 a0.extend(t.count);
1109 a1.extend(t.count);
1110 a2.extend(t.count);
1111 a3.extend(t.count);
1112 a4.extend(t.count);
1113 a5.extend(t.count);
1114 a6.extend(t.count);
1115 a7.extend(t.count);
1116 a8.extend(t.count);
1117 a9.extend(t.count);
1118 a10.extend(t.count);
1119 a11.extend(t.count);
1120 a12.extend(t.count);
1121 a13.extend(t.count);
1122 a14.extend(t.count);
1123 a15.extend(t.count);
1124 ddindx := t.first;
1125 indx := 1;
1126 while true loop
1127 a0(indx) := rosetta_g_miss_num_map(t(ddindx).off_discount_product_id);
1128 a1(indx) := rosetta_g_miss_num_map(t(ddindx).parent_off_disc_prod_id);
1129 a2(indx) := t(ddindx).product_level;
1130 a3(indx) := rosetta_g_miss_num_map(t(ddindx).product_id);
1131 a4(indx) := t(ddindx).excluder_flag;
1132 a5(indx) := t(ddindx).uom_code;
1133 a6(indx) := t(ddindx).start_date_active;
1134 a7(indx) := t(ddindx).end_date_active;
1135 a8(indx) := rosetta_g_miss_num_map(t(ddindx).offer_discount_line_id);
1136 a9(indx) := rosetta_g_miss_num_map(t(ddindx).offer_id);
1137 a10(indx) := t(ddindx).creation_date;
1138 a11(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
1139 a12(indx) := t(ddindx).last_update_date;
1140 a13(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
1141 a14(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
1142 a15(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
1143 indx := indx+1;
1144 if t.last =ddindx
1145 then exit;
1146 end if;
1147 ddindx := t.next(ddindx);
1148 end loop;
1149 end if;
1150 end if;
1151 end rosetta_table_copy_out_p12;
1152
1153 procedure rosetta_table_copy_in_p15(t out nocopy ozf_disc_line_pvt.excl_rec_tbl_type, a0 JTF_NUMBER_TABLE
1154 , a1 JTF_NUMBER_TABLE
1155 , a2 JTF_VARCHAR2_TABLE_100
1156 , a3 JTF_NUMBER_TABLE
1157 , a4 JTF_NUMBER_TABLE
1158 , a5 JTF_DATE_TABLE
1159 , a6 JTF_DATE_TABLE
1160 ) as
1161 ddindx binary_integer; indx binary_integer;
1162 begin
1163 if a0 is not null and a0.count > 0 then
1164 if a0.count > 0 then
1165 indx := a0.first;
1166 ddindx := 1;
1167 while true loop
1168 t(ddindx).off_discount_product_id := rosetta_g_miss_num_map(a0(indx));
1169 t(ddindx).parent_off_disc_prod_id := rosetta_g_miss_num_map(a1(indx));
1170 t(ddindx).product_level := a2(indx);
1171 t(ddindx).product_id := rosetta_g_miss_num_map(a3(indx));
1172 t(ddindx).object_version_number := rosetta_g_miss_num_map(a4(indx));
1173 t(ddindx).start_date_active := rosetta_g_miss_date_in_map(a5(indx));
1174 t(ddindx).end_date_active := rosetta_g_miss_date_in_map(a6(indx));
1175 ddindx := ddindx+1;
1176 if a0.last =indx
1177 then exit;
1178 end if;
1179 indx := a0.next(indx);
1180 end loop;
1181 end if;
1182 end if;
1183 end rosetta_table_copy_in_p15;
1184 procedure rosetta_table_copy_out_p15(t ozf_disc_line_pvt.excl_rec_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
1185 , a1 out nocopy JTF_NUMBER_TABLE
1186 , a2 out nocopy JTF_VARCHAR2_TABLE_100
1187 , a3 out nocopy JTF_NUMBER_TABLE
1188 , a4 out nocopy JTF_NUMBER_TABLE
1189 , a5 out nocopy JTF_DATE_TABLE
1190 , a6 out nocopy JTF_DATE_TABLE
1191 ) as
1192 ddindx binary_integer; indx binary_integer;
1193 begin
1194 if t is null or t.count = 0 then
1195 a0 := JTF_NUMBER_TABLE();
1196 a1 := JTF_NUMBER_TABLE();
1197 a2 := JTF_VARCHAR2_TABLE_100();
1198 a3 := JTF_NUMBER_TABLE();
1199 a4 := JTF_NUMBER_TABLE();
1200 a5 := JTF_DATE_TABLE();
1201 a6 := JTF_DATE_TABLE();
1202 else
1203 a0 := JTF_NUMBER_TABLE();
1204 a1 := JTF_NUMBER_TABLE();
1205 a2 := JTF_VARCHAR2_TABLE_100();
1206 a3 := JTF_NUMBER_TABLE();
1207 a4 := JTF_NUMBER_TABLE();
1208 a5 := JTF_DATE_TABLE();
1209 a6 := JTF_DATE_TABLE();
1210 if t.count > 0 then
1211 a0.extend(t.count);
1212 a1.extend(t.count);
1213 a2.extend(t.count);
1214 a3.extend(t.count);
1215 a4.extend(t.count);
1216 a5.extend(t.count);
1217 a6.extend(t.count);
1218 ddindx := t.first;
1219 indx := 1;
1220 while true loop
1221 a0(indx) := rosetta_g_miss_num_map(t(ddindx).off_discount_product_id);
1222 a1(indx) := rosetta_g_miss_num_map(t(ddindx).parent_off_disc_prod_id);
1223 a2(indx) := t(ddindx).product_level;
1224 a3(indx) := rosetta_g_miss_num_map(t(ddindx).product_id);
1225 a4(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
1226 a5(indx) := t(ddindx).start_date_active;
1227 a6(indx) := t(ddindx).end_date_active;
1228 indx := indx+1;
1229 if t.last =ddindx
1230 then exit;
1231 end if;
1232 ddindx := t.next(ddindx);
1233 end loop;
1234 end if;
1235 end if;
1236 end rosetta_table_copy_out_p15;
1237
1238 procedure rosetta_table_copy_in_p18(t out nocopy ozf_disc_line_pvt.prod_reln_tbl_type, a0 JTF_NUMBER_TABLE
1239 , a1 JTF_NUMBER_TABLE
1240 , a2 JTF_NUMBER_TABLE
1241 , a3 JTF_DATE_TABLE
1242 , a4 JTF_NUMBER_TABLE
1243 , a5 JTF_DATE_TABLE
1244 , a6 JTF_NUMBER_TABLE
1245 , a7 JTF_NUMBER_TABLE
1246 , a8 JTF_NUMBER_TABLE
1247 ) as
1248 ddindx binary_integer; indx binary_integer;
1249 begin
1250 if a0 is not null and a0.count > 0 then
1251 if a0.count > 0 then
1252 indx := a0.first;
1253 ddindx := 1;
1254 while true loop
1255 t(ddindx).discount_product_reln_id := rosetta_g_miss_num_map(a0(indx));
1256 t(ddindx).offer_discount_line_id := rosetta_g_miss_num_map(a1(indx));
1257 t(ddindx).off_discount_product_id := rosetta_g_miss_num_map(a2(indx));
1258 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a3(indx));
1259 t(ddindx).created_by := rosetta_g_miss_num_map(a4(indx));
1260 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a5(indx));
1261 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a6(indx));
1262 t(ddindx).last_update_login := rosetta_g_miss_num_map(a7(indx));
1263 t(ddindx).object_version_number := rosetta_g_miss_num_map(a8(indx));
1264 ddindx := ddindx+1;
1265 if a0.last =indx
1266 then exit;
1267 end if;
1268 indx := a0.next(indx);
1269 end loop;
1270 end if;
1271 end if;
1272 end rosetta_table_copy_in_p18;
1273 procedure rosetta_table_copy_out_p18(t ozf_disc_line_pvt.prod_reln_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
1274 , a1 out nocopy JTF_NUMBER_TABLE
1275 , a2 out nocopy JTF_NUMBER_TABLE
1276 , a3 out nocopy JTF_DATE_TABLE
1277 , a4 out nocopy JTF_NUMBER_TABLE
1278 , a5 out nocopy JTF_DATE_TABLE
1279 , a6 out nocopy JTF_NUMBER_TABLE
1280 , a7 out nocopy JTF_NUMBER_TABLE
1281 , a8 out nocopy JTF_NUMBER_TABLE
1282 ) as
1283 ddindx binary_integer; indx binary_integer;
1284 begin
1285 if t is null or t.count = 0 then
1286 a0 := JTF_NUMBER_TABLE();
1287 a1 := JTF_NUMBER_TABLE();
1288 a2 := JTF_NUMBER_TABLE();
1289 a3 := JTF_DATE_TABLE();
1290 a4 := JTF_NUMBER_TABLE();
1291 a5 := JTF_DATE_TABLE();
1292 a6 := JTF_NUMBER_TABLE();
1293 a7 := JTF_NUMBER_TABLE();
1294 a8 := JTF_NUMBER_TABLE();
1295 else
1296 a0 := JTF_NUMBER_TABLE();
1297 a1 := JTF_NUMBER_TABLE();
1298 a2 := JTF_NUMBER_TABLE();
1299 a3 := JTF_DATE_TABLE();
1300 a4 := JTF_NUMBER_TABLE();
1301 a5 := JTF_DATE_TABLE();
1302 a6 := JTF_NUMBER_TABLE();
1303 a7 := JTF_NUMBER_TABLE();
1304 a8 := JTF_NUMBER_TABLE();
1305 if t.count > 0 then
1306 a0.extend(t.count);
1307 a1.extend(t.count);
1308 a2.extend(t.count);
1309 a3.extend(t.count);
1310 a4.extend(t.count);
1311 a5.extend(t.count);
1312 a6.extend(t.count);
1313 a7.extend(t.count);
1314 a8.extend(t.count);
1315 ddindx := t.first;
1316 indx := 1;
1317 while true loop
1318 a0(indx) := rosetta_g_miss_num_map(t(ddindx).discount_product_reln_id);
1319 a1(indx) := rosetta_g_miss_num_map(t(ddindx).offer_discount_line_id);
1320 a2(indx) := rosetta_g_miss_num_map(t(ddindx).off_discount_product_id);
1321 a3(indx) := t(ddindx).creation_date;
1322 a4(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
1323 a5(indx) := t(ddindx).last_update_date;
1324 a6(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
1325 a7(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
1326 a8(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
1327 indx := indx+1;
1328 if t.last =ddindx
1329 then exit;
1330 end if;
1331 ddindx := t.next(ddindx);
1332 end loop;
1333 end if;
1334 end if;
1335 end rosetta_table_copy_out_p18;
1336
1337 procedure create_discount_line(p_api_version_number NUMBER
1338 , p_init_msg_list VARCHAR2
1339 , p_commit VARCHAR2
1340 , p_validation_level NUMBER
1341 , x_return_status out nocopy VARCHAR2
1342 , x_msg_count out nocopy NUMBER
1343 , x_msg_data out nocopy VARCHAR2
1344 , x_offer_discount_line_id out nocopy NUMBER
1345 , p7_a0 NUMBER := 0-1962.0724
1346 , p7_a1 NUMBER := 0-1962.0724
1347 , p7_a2 NUMBER := 0-1962.0724
1348 , p7_a3 NUMBER := 0-1962.0724
1349 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
1350 , p7_a5 VARCHAR2 := fnd_api.g_miss_char
1351 , p7_a6 VARCHAR2 := fnd_api.g_miss_char
1352 , p7_a7 NUMBER := 0-1962.0724
1353 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
1354 , p7_a9 VARCHAR2 := fnd_api.g_miss_char
1355 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
1356 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
1357 , p7_a12 NUMBER := 0-1962.0724
1358 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
1359 , p7_a14 NUMBER := 0-1962.0724
1360 , p7_a15 NUMBER := 0-1962.0724
1361 , p7_a16 NUMBER := 0-1962.0724
1362 , p7_a17 NUMBER := 0-1962.0724
1363 , p7_a18 VARCHAR2 := fnd_api.g_miss_char
1364 , p7_a19 DATE := fnd_api.g_miss_date
1365 , p7_a20 DATE := fnd_api.g_miss_date
1366 , p7_a21 VARCHAR2 := fnd_api.g_miss_char
1367 , p7_a22 DATE := fnd_api.g_miss_date
1368 , p7_a23 NUMBER := 0-1962.0724
1369 , p7_a24 DATE := fnd_api.g_miss_date
1370 , p7_a25 NUMBER := 0-1962.0724
1371 , p7_a26 NUMBER := 0-1962.0724
1372 , p7_a27 NUMBER := 0-1962.0724
1373 , p7_a28 NUMBER := 0-1962.0724
1374 , p7_a29 NUMBER := 0-1962.0724
1375 , p7_a30 NUMBER := 0-1962.0724
1376 , p7_a31 VARCHAR2 := fnd_api.g_miss_char
1377 , p7_a32 NUMBER := 0-1962.0724
1378 , p7_a33 VARCHAR2 := fnd_api.g_miss_char
1379 , p7_a34 VARCHAR2 := fnd_api.g_miss_char
1380 , p7_a35 VARCHAR2 := fnd_api.g_miss_char
1381 , p7_a36 VARCHAR2 := fnd_api.g_miss_char
1382 , p7_a37 VARCHAR2 := fnd_api.g_miss_char
1383 , p7_a38 VARCHAR2 := fnd_api.g_miss_char
1384 , p7_a39 VARCHAR2 := fnd_api.g_miss_char
1385 , p7_a40 VARCHAR2 := fnd_api.g_miss_char
1386 , p7_a41 VARCHAR2 := fnd_api.g_miss_char
1387 , p7_a42 VARCHAR2 := fnd_api.g_miss_char
1388 , p7_a43 VARCHAR2 := fnd_api.g_miss_char
1389 , p7_a44 VARCHAR2 := fnd_api.g_miss_char
1390 , p7_a45 VARCHAR2 := fnd_api.g_miss_char
1391 , p7_a46 VARCHAR2 := fnd_api.g_miss_char
1392 , p7_a47 VARCHAR2 := fnd_api.g_miss_char
1393 , p7_a48 VARCHAR2 := fnd_api.g_miss_char
1394 , p7_a49 VARCHAR2 := fnd_api.g_miss_char
1395 )
1396
1397 as
1398 ddp_ozf_discount_line_rec ozf_disc_line_pvt.ozf_discount_line_rec_type;
1399 ddindx binary_integer; indx binary_integer;
1400 begin
1401
1402 -- copy data to the local IN or IN-OUT args, if any
1403
1404
1405
1406
1407
1408
1409
1410 ddp_ozf_discount_line_rec.offer_discount_line_id := rosetta_g_miss_num_map(p7_a0);
1411 ddp_ozf_discount_line_rec.parent_discount_line_id := rosetta_g_miss_num_map(p7_a1);
1412 ddp_ozf_discount_line_rec.volume_from := rosetta_g_miss_num_map(p7_a2);
1413 ddp_ozf_discount_line_rec.volume_to := rosetta_g_miss_num_map(p7_a3);
1414 ddp_ozf_discount_line_rec.volume_operator := p7_a4;
1415 ddp_ozf_discount_line_rec.volume_type := p7_a5;
1416 ddp_ozf_discount_line_rec.volume_break_type := p7_a6;
1417 ddp_ozf_discount_line_rec.discount := rosetta_g_miss_num_map(p7_a7);
1418 ddp_ozf_discount_line_rec.discount_type := p7_a8;
1419 ddp_ozf_discount_line_rec.tier_type := p7_a9;
1420 ddp_ozf_discount_line_rec.tier_level := p7_a10;
1421 ddp_ozf_discount_line_rec.incompatibility_group := p7_a11;
1422 ddp_ozf_discount_line_rec.precedence := rosetta_g_miss_num_map(p7_a12);
1423 ddp_ozf_discount_line_rec.bucket := p7_a13;
1424 ddp_ozf_discount_line_rec.scan_value := rosetta_g_miss_num_map(p7_a14);
1425 ddp_ozf_discount_line_rec.scan_data_quantity := rosetta_g_miss_num_map(p7_a15);
1426 ddp_ozf_discount_line_rec.scan_unit_forecast := rosetta_g_miss_num_map(p7_a16);
1427 ddp_ozf_discount_line_rec.channel_id := rosetta_g_miss_num_map(p7_a17);
1428 ddp_ozf_discount_line_rec.adjustment_flag := p7_a18;
1429 ddp_ozf_discount_line_rec.start_date_active := rosetta_g_miss_date_in_map(p7_a19);
1430 ddp_ozf_discount_line_rec.end_date_active := rosetta_g_miss_date_in_map(p7_a20);
1431 ddp_ozf_discount_line_rec.uom_code := p7_a21;
1432 ddp_ozf_discount_line_rec.creation_date := rosetta_g_miss_date_in_map(p7_a22);
1433 ddp_ozf_discount_line_rec.created_by := rosetta_g_miss_num_map(p7_a23);
1434 ddp_ozf_discount_line_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a24);
1435 ddp_ozf_discount_line_rec.last_updated_by := rosetta_g_miss_num_map(p7_a25);
1436 ddp_ozf_discount_line_rec.last_update_login := rosetta_g_miss_num_map(p7_a26);
1437 ddp_ozf_discount_line_rec.object_version_number := rosetta_g_miss_num_map(p7_a27);
1438 ddp_ozf_discount_line_rec.offer_id := rosetta_g_miss_num_map(p7_a28);
1439 ddp_ozf_discount_line_rec.off_discount_product_id := rosetta_g_miss_num_map(p7_a29);
1440 ddp_ozf_discount_line_rec.parent_off_disc_prod_id := rosetta_g_miss_num_map(p7_a30);
1441 ddp_ozf_discount_line_rec.product_level := p7_a31;
1442 ddp_ozf_discount_line_rec.product_id := rosetta_g_miss_num_map(p7_a32);
1443 ddp_ozf_discount_line_rec.excluder_flag := p7_a33;
1444 ddp_ozf_discount_line_rec.context := p7_a34;
1445 ddp_ozf_discount_line_rec.attribute1 := p7_a35;
1446 ddp_ozf_discount_line_rec.attribute2 := p7_a36;
1447 ddp_ozf_discount_line_rec.attribute3 := p7_a37;
1448 ddp_ozf_discount_line_rec.attribute4 := p7_a38;
1449 ddp_ozf_discount_line_rec.attribute5 := p7_a39;
1450 ddp_ozf_discount_line_rec.attribute6 := p7_a40;
1451 ddp_ozf_discount_line_rec.attribute7 := p7_a41;
1452 ddp_ozf_discount_line_rec.attribute8 := p7_a42;
1453 ddp_ozf_discount_line_rec.attribute9 := p7_a43;
1454 ddp_ozf_discount_line_rec.attribute10 := p7_a44;
1455 ddp_ozf_discount_line_rec.attribute11 := p7_a45;
1456 ddp_ozf_discount_line_rec.attribute12 := p7_a46;
1457 ddp_ozf_discount_line_rec.attribute13 := p7_a47;
1458 ddp_ozf_discount_line_rec.attribute14 := p7_a48;
1459 ddp_ozf_discount_line_rec.attribute15 := p7_a49;
1460
1461
1462 -- here's the delegated call to the old PL/SQL routine
1463 ozf_disc_line_pvt.create_discount_line(p_api_version_number,
1464 p_init_msg_list,
1465 p_commit,
1466 p_validation_level,
1467 x_return_status,
1468 x_msg_count,
1469 x_msg_data,
1470 ddp_ozf_discount_line_rec,
1471 x_offer_discount_line_id);
1472
1473 -- copy data back from the local variables to OUT or IN-OUT args, if any
1474
1475
1476
1477
1478
1479
1480
1481
1482 end;
1483
1484 procedure update_discount_line(p_api_version_number NUMBER
1485 , p_init_msg_list VARCHAR2
1486 , p_commit VARCHAR2
1487 , p_validation_level NUMBER
1488 , x_return_status out nocopy VARCHAR2
1489 , x_msg_count out nocopy NUMBER
1490 , x_msg_data out nocopy VARCHAR2
1491 , p7_a0 NUMBER := 0-1962.0724
1492 , p7_a1 NUMBER := 0-1962.0724
1493 , p7_a2 NUMBER := 0-1962.0724
1494 , p7_a3 NUMBER := 0-1962.0724
1495 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
1496 , p7_a5 VARCHAR2 := fnd_api.g_miss_char
1497 , p7_a6 VARCHAR2 := fnd_api.g_miss_char
1498 , p7_a7 NUMBER := 0-1962.0724
1499 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
1500 , p7_a9 VARCHAR2 := fnd_api.g_miss_char
1501 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
1502 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
1503 , p7_a12 NUMBER := 0-1962.0724
1504 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
1505 , p7_a14 NUMBER := 0-1962.0724
1506 , p7_a15 NUMBER := 0-1962.0724
1507 , p7_a16 NUMBER := 0-1962.0724
1508 , p7_a17 NUMBER := 0-1962.0724
1509 , p7_a18 VARCHAR2 := fnd_api.g_miss_char
1510 , p7_a19 DATE := fnd_api.g_miss_date
1511 , p7_a20 DATE := fnd_api.g_miss_date
1512 , p7_a21 VARCHAR2 := fnd_api.g_miss_char
1513 , p7_a22 DATE := fnd_api.g_miss_date
1514 , p7_a23 NUMBER := 0-1962.0724
1515 , p7_a24 DATE := fnd_api.g_miss_date
1516 , p7_a25 NUMBER := 0-1962.0724
1517 , p7_a26 NUMBER := 0-1962.0724
1518 , p7_a27 NUMBER := 0-1962.0724
1519 , p7_a28 NUMBER := 0-1962.0724
1520 , p7_a29 NUMBER := 0-1962.0724
1521 , p7_a30 NUMBER := 0-1962.0724
1522 , p7_a31 VARCHAR2 := fnd_api.g_miss_char
1523 , p7_a32 NUMBER := 0-1962.0724
1524 , p7_a33 VARCHAR2 := fnd_api.g_miss_char
1525 , p7_a34 VARCHAR2 := fnd_api.g_miss_char
1526 , p7_a35 VARCHAR2 := fnd_api.g_miss_char
1527 , p7_a36 VARCHAR2 := fnd_api.g_miss_char
1528 , p7_a37 VARCHAR2 := fnd_api.g_miss_char
1529 , p7_a38 VARCHAR2 := fnd_api.g_miss_char
1530 , p7_a39 VARCHAR2 := fnd_api.g_miss_char
1531 , p7_a40 VARCHAR2 := fnd_api.g_miss_char
1532 , p7_a41 VARCHAR2 := fnd_api.g_miss_char
1533 , p7_a42 VARCHAR2 := fnd_api.g_miss_char
1534 , p7_a43 VARCHAR2 := fnd_api.g_miss_char
1535 , p7_a44 VARCHAR2 := fnd_api.g_miss_char
1536 , p7_a45 VARCHAR2 := fnd_api.g_miss_char
1537 , p7_a46 VARCHAR2 := fnd_api.g_miss_char
1538 , p7_a47 VARCHAR2 := fnd_api.g_miss_char
1539 , p7_a48 VARCHAR2 := fnd_api.g_miss_char
1540 , p7_a49 VARCHAR2 := fnd_api.g_miss_char
1541 )
1542
1543 as
1544 ddp_ozf_discount_line_rec ozf_disc_line_pvt.ozf_discount_line_rec_type;
1545 ddindx binary_integer; indx binary_integer;
1546 begin
1547
1548 -- copy data to the local IN or IN-OUT args, if any
1549
1550
1551
1552
1553
1554
1555
1556 ddp_ozf_discount_line_rec.offer_discount_line_id := rosetta_g_miss_num_map(p7_a0);
1557 ddp_ozf_discount_line_rec.parent_discount_line_id := rosetta_g_miss_num_map(p7_a1);
1558 ddp_ozf_discount_line_rec.volume_from := rosetta_g_miss_num_map(p7_a2);
1559 ddp_ozf_discount_line_rec.volume_to := rosetta_g_miss_num_map(p7_a3);
1560 ddp_ozf_discount_line_rec.volume_operator := p7_a4;
1561 ddp_ozf_discount_line_rec.volume_type := p7_a5;
1562 ddp_ozf_discount_line_rec.volume_break_type := p7_a6;
1563 ddp_ozf_discount_line_rec.discount := rosetta_g_miss_num_map(p7_a7);
1564 ddp_ozf_discount_line_rec.discount_type := p7_a8;
1565 ddp_ozf_discount_line_rec.tier_type := p7_a9;
1566 ddp_ozf_discount_line_rec.tier_level := p7_a10;
1567 ddp_ozf_discount_line_rec.incompatibility_group := p7_a11;
1568 ddp_ozf_discount_line_rec.precedence := rosetta_g_miss_num_map(p7_a12);
1569 ddp_ozf_discount_line_rec.bucket := p7_a13;
1570 ddp_ozf_discount_line_rec.scan_value := rosetta_g_miss_num_map(p7_a14);
1571 ddp_ozf_discount_line_rec.scan_data_quantity := rosetta_g_miss_num_map(p7_a15);
1572 ddp_ozf_discount_line_rec.scan_unit_forecast := rosetta_g_miss_num_map(p7_a16);
1573 ddp_ozf_discount_line_rec.channel_id := rosetta_g_miss_num_map(p7_a17);
1574 ddp_ozf_discount_line_rec.adjustment_flag := p7_a18;
1575 ddp_ozf_discount_line_rec.start_date_active := rosetta_g_miss_date_in_map(p7_a19);
1576 ddp_ozf_discount_line_rec.end_date_active := rosetta_g_miss_date_in_map(p7_a20);
1577 ddp_ozf_discount_line_rec.uom_code := p7_a21;
1578 ddp_ozf_discount_line_rec.creation_date := rosetta_g_miss_date_in_map(p7_a22);
1579 ddp_ozf_discount_line_rec.created_by := rosetta_g_miss_num_map(p7_a23);
1580 ddp_ozf_discount_line_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a24);
1581 ddp_ozf_discount_line_rec.last_updated_by := rosetta_g_miss_num_map(p7_a25);
1582 ddp_ozf_discount_line_rec.last_update_login := rosetta_g_miss_num_map(p7_a26);
1583 ddp_ozf_discount_line_rec.object_version_number := rosetta_g_miss_num_map(p7_a27);
1584 ddp_ozf_discount_line_rec.offer_id := rosetta_g_miss_num_map(p7_a28);
1585 ddp_ozf_discount_line_rec.off_discount_product_id := rosetta_g_miss_num_map(p7_a29);
1586 ddp_ozf_discount_line_rec.parent_off_disc_prod_id := rosetta_g_miss_num_map(p7_a30);
1587 ddp_ozf_discount_line_rec.product_level := p7_a31;
1588 ddp_ozf_discount_line_rec.product_id := rosetta_g_miss_num_map(p7_a32);
1589 ddp_ozf_discount_line_rec.excluder_flag := p7_a33;
1590 ddp_ozf_discount_line_rec.context := p7_a34;
1591 ddp_ozf_discount_line_rec.attribute1 := p7_a35;
1592 ddp_ozf_discount_line_rec.attribute2 := p7_a36;
1593 ddp_ozf_discount_line_rec.attribute3 := p7_a37;
1594 ddp_ozf_discount_line_rec.attribute4 := p7_a38;
1595 ddp_ozf_discount_line_rec.attribute5 := p7_a39;
1596 ddp_ozf_discount_line_rec.attribute6 := p7_a40;
1597 ddp_ozf_discount_line_rec.attribute7 := p7_a41;
1598 ddp_ozf_discount_line_rec.attribute8 := p7_a42;
1599 ddp_ozf_discount_line_rec.attribute9 := p7_a43;
1600 ddp_ozf_discount_line_rec.attribute10 := p7_a44;
1601 ddp_ozf_discount_line_rec.attribute11 := p7_a45;
1602 ddp_ozf_discount_line_rec.attribute12 := p7_a46;
1603 ddp_ozf_discount_line_rec.attribute13 := p7_a47;
1604 ddp_ozf_discount_line_rec.attribute14 := p7_a48;
1605 ddp_ozf_discount_line_rec.attribute15 := p7_a49;
1606
1607 -- here's the delegated call to the old PL/SQL routine
1608 ozf_disc_line_pvt.update_discount_line(p_api_version_number,
1609 p_init_msg_list,
1610 p_commit,
1611 p_validation_level,
1612 x_return_status,
1613 x_msg_count,
1614 x_msg_data,
1615 ddp_ozf_discount_line_rec);
1616
1617 -- copy data back from the local variables to OUT or IN-OUT args, if any
1618
1619
1620
1621
1622
1623
1624
1625 end;
1626
1627 procedure create_product_exclusion(p_api_version_number NUMBER
1628 , p_init_msg_list VARCHAR2
1629 , p_commit VARCHAR2
1630 , p_validation_level NUMBER
1631 , x_return_status out nocopy VARCHAR2
1632 , x_msg_count out nocopy NUMBER
1633 , x_msg_data out nocopy VARCHAR2
1634 , x_off_discount_product_id out nocopy NUMBER
1635 , p7_a0 NUMBER := 0-1962.0724
1636 , p7_a1 NUMBER := 0-1962.0724
1637 , p7_a2 VARCHAR2 := fnd_api.g_miss_char
1638 , p7_a3 NUMBER := 0-1962.0724
1639 , p7_a4 NUMBER := 0-1962.0724
1640 , p7_a5 DATE := fnd_api.g_miss_date
1641 , p7_a6 DATE := fnd_api.g_miss_date
1642 )
1643
1644 as
1645 ddp_ozf_excl_rec ozf_disc_line_pvt.ozf_excl_rec_type;
1646 ddindx binary_integer; indx binary_integer;
1647 begin
1648
1649 -- copy data to the local IN or IN-OUT args, if any
1650
1651
1652
1653
1654
1655
1656
1657 ddp_ozf_excl_rec.off_discount_product_id := rosetta_g_miss_num_map(p7_a0);
1658 ddp_ozf_excl_rec.parent_off_disc_prod_id := rosetta_g_miss_num_map(p7_a1);
1659 ddp_ozf_excl_rec.product_level := p7_a2;
1660 ddp_ozf_excl_rec.product_id := rosetta_g_miss_num_map(p7_a3);
1661 ddp_ozf_excl_rec.object_version_number := rosetta_g_miss_num_map(p7_a4);
1662 ddp_ozf_excl_rec.start_date_active := rosetta_g_miss_date_in_map(p7_a5);
1663 ddp_ozf_excl_rec.end_date_active := rosetta_g_miss_date_in_map(p7_a6);
1664
1665
1666 -- here's the delegated call to the old PL/SQL routine
1667 ozf_disc_line_pvt.create_product_exclusion(p_api_version_number,
1668 p_init_msg_list,
1669 p_commit,
1670 p_validation_level,
1671 x_return_status,
1672 x_msg_count,
1673 x_msg_data,
1674 ddp_ozf_excl_rec,
1675 x_off_discount_product_id);
1676
1677 -- copy data back from the local variables to OUT or IN-OUT args, if any
1678
1679
1680
1681
1682
1683
1684
1685
1686 end;
1687
1688 procedure update_product_exclusion(p_api_version_number NUMBER
1689 , p_init_msg_list VARCHAR2
1690 , p_commit VARCHAR2
1691 , p_validation_level NUMBER
1692 , x_return_status out nocopy VARCHAR2
1693 , x_msg_count out nocopy NUMBER
1694 , x_msg_data out nocopy VARCHAR2
1695 , p7_a0 NUMBER := 0-1962.0724
1696 , p7_a1 NUMBER := 0-1962.0724
1697 , p7_a2 VARCHAR2 := fnd_api.g_miss_char
1698 , p7_a3 NUMBER := 0-1962.0724
1699 , p7_a4 NUMBER := 0-1962.0724
1700 , p7_a5 DATE := fnd_api.g_miss_date
1701 , p7_a6 DATE := fnd_api.g_miss_date
1702 )
1703
1704 as
1705 ddp_ozf_excl_rec ozf_disc_line_pvt.ozf_excl_rec_type;
1706 ddindx binary_integer; indx binary_integer;
1707 begin
1708
1709 -- copy data to the local IN or IN-OUT args, if any
1710
1711
1712
1713
1714
1715
1716
1717 ddp_ozf_excl_rec.off_discount_product_id := rosetta_g_miss_num_map(p7_a0);
1718 ddp_ozf_excl_rec.parent_off_disc_prod_id := rosetta_g_miss_num_map(p7_a1);
1719 ddp_ozf_excl_rec.product_level := p7_a2;
1720 ddp_ozf_excl_rec.product_id := rosetta_g_miss_num_map(p7_a3);
1721 ddp_ozf_excl_rec.object_version_number := rosetta_g_miss_num_map(p7_a4);
1722 ddp_ozf_excl_rec.start_date_active := rosetta_g_miss_date_in_map(p7_a5);
1723 ddp_ozf_excl_rec.end_date_active := rosetta_g_miss_date_in_map(p7_a6);
1724
1725 -- here's the delegated call to the old PL/SQL routine
1726 ozf_disc_line_pvt.update_product_exclusion(p_api_version_number,
1727 p_init_msg_list,
1728 p_commit,
1729 p_validation_level,
1730 x_return_status,
1731 x_msg_count,
1732 x_msg_data,
1733 ddp_ozf_excl_rec);
1734
1735 -- copy data back from the local variables to OUT or IN-OUT args, if any
1736
1737
1738
1739
1740
1741
1742
1743 end;
1744
1745 procedure create_disc_tiers(p_api_version_number NUMBER
1746 , p_init_msg_list VARCHAR2
1747 , p_commit VARCHAR2
1748 , p_validation_level NUMBER
1749 , x_return_status out nocopy VARCHAR2
1750 , x_msg_count out nocopy NUMBER
1751 , x_msg_data out nocopy VARCHAR2
1752 , x_offer_discount_line_id out nocopy NUMBER
1753 , p7_a0 NUMBER := 0-1962.0724
1754 , p7_a1 NUMBER := 0-1962.0724
1755 , p7_a2 NUMBER := 0-1962.0724
1756 , p7_a3 NUMBER := 0-1962.0724
1757 , p7_a4 NUMBER := 0-1962.0724
1758 , p7_a5 VARCHAR2 := fnd_api.g_miss_char
1759 , p7_a6 VARCHAR2 := fnd_api.g_miss_char
1760 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
1761 , p7_a8 NUMBER := 0-1962.0724
1762 , p7_a9 VARCHAR2 := fnd_api.g_miss_char
1763 , p7_a10 DATE := fnd_api.g_miss_date
1764 , p7_a11 DATE := fnd_api.g_miss_date
1765 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
1766 , p7_a13 NUMBER := 0-1962.0724
1767 , p7_a14 VARCHAR2 := fnd_api.g_miss_char
1768 , p7_a15 VARCHAR2 := fnd_api.g_miss_char
1769 , p7_a16 VARCHAR2 := fnd_api.g_miss_char
1770 , p7_a17 VARCHAR2 := fnd_api.g_miss_char
1771 , p7_a18 VARCHAR2 := fnd_api.g_miss_char
1772 , p7_a19 VARCHAR2 := fnd_api.g_miss_char
1773 , p7_a20 VARCHAR2 := fnd_api.g_miss_char
1774 , p7_a21 VARCHAR2 := fnd_api.g_miss_char
1775 , p7_a22 VARCHAR2 := fnd_api.g_miss_char
1776 , p7_a23 VARCHAR2 := fnd_api.g_miss_char
1777 , p7_a24 VARCHAR2 := fnd_api.g_miss_char
1778 , p7_a25 VARCHAR2 := fnd_api.g_miss_char
1779 , p7_a26 VARCHAR2 := fnd_api.g_miss_char
1780 , p7_a27 VARCHAR2 := fnd_api.g_miss_char
1781 , p7_a28 VARCHAR2 := fnd_api.g_miss_char
1782 , p7_a29 VARCHAR2 := fnd_api.g_miss_char
1783 )
1784
1785 as
1786 ddp_tier_rec ozf_disc_line_pvt.ozf_offer_tier_rec_type;
1787 ddindx binary_integer; indx binary_integer;
1788 begin
1789
1790 -- copy data to the local IN or IN-OUT args, if any
1791
1792
1793
1794
1795
1796
1797
1798 ddp_tier_rec.offer_discount_line_id := rosetta_g_miss_num_map(p7_a0);
1799 ddp_tier_rec.parent_discount_line_id := rosetta_g_miss_num_map(p7_a1);
1800 ddp_tier_rec.offer_id := rosetta_g_miss_num_map(p7_a2);
1801 ddp_tier_rec.volume_from := rosetta_g_miss_num_map(p7_a3);
1802 ddp_tier_rec.volume_to := rosetta_g_miss_num_map(p7_a4);
1803 ddp_tier_rec.volume_operator := p7_a5;
1804 ddp_tier_rec.volume_type := p7_a6;
1805 ddp_tier_rec.volume_break_type := p7_a7;
1806 ddp_tier_rec.discount := rosetta_g_miss_num_map(p7_a8);
1807 ddp_tier_rec.discount_type := p7_a9;
1808 ddp_tier_rec.start_date_active := rosetta_g_miss_date_in_map(p7_a10);
1809 ddp_tier_rec.end_date_active := rosetta_g_miss_date_in_map(p7_a11);
1810 ddp_tier_rec.uom_code := p7_a12;
1811 ddp_tier_rec.object_version_number := rosetta_g_miss_num_map(p7_a13);
1812 ddp_tier_rec.context := p7_a14;
1813 ddp_tier_rec.attribute1 := p7_a15;
1814 ddp_tier_rec.attribute2 := p7_a16;
1815 ddp_tier_rec.attribute3 := p7_a17;
1816 ddp_tier_rec.attribute4 := p7_a18;
1817 ddp_tier_rec.attribute5 := p7_a19;
1818 ddp_tier_rec.attribute6 := p7_a20;
1819 ddp_tier_rec.attribute7 := p7_a21;
1820 ddp_tier_rec.attribute8 := p7_a22;
1821 ddp_tier_rec.attribute9 := p7_a23;
1822 ddp_tier_rec.attribute10 := p7_a24;
1823 ddp_tier_rec.attribute11 := p7_a25;
1824 ddp_tier_rec.attribute12 := p7_a26;
1825 ddp_tier_rec.attribute13 := p7_a27;
1826 ddp_tier_rec.attribute14 := p7_a28;
1827 ddp_tier_rec.attribute15 := p7_a29;
1828
1829
1830 -- here's the delegated call to the old PL/SQL routine
1831 ozf_disc_line_pvt.create_disc_tiers(p_api_version_number,
1832 p_init_msg_list,
1833 p_commit,
1834 p_validation_level,
1835 x_return_status,
1836 x_msg_count,
1837 x_msg_data,
1838 ddp_tier_rec,
1839 x_offer_discount_line_id);
1840
1841 -- copy data back from the local variables to OUT or IN-OUT args, if any
1842
1843
1844
1845
1846
1847
1848
1849
1850 end;
1851
1852 procedure update_disc_tiers(p_api_version_number NUMBER
1853 , p_init_msg_list VARCHAR2
1854 , p_commit VARCHAR2
1855 , p_validation_level NUMBER
1856 , x_return_status out nocopy VARCHAR2
1857 , x_msg_count out nocopy NUMBER
1858 , x_msg_data out nocopy VARCHAR2
1859 , p7_a0 NUMBER := 0-1962.0724
1860 , p7_a1 NUMBER := 0-1962.0724
1861 , p7_a2 NUMBER := 0-1962.0724
1862 , p7_a3 NUMBER := 0-1962.0724
1863 , p7_a4 NUMBER := 0-1962.0724
1864 , p7_a5 VARCHAR2 := fnd_api.g_miss_char
1865 , p7_a6 VARCHAR2 := fnd_api.g_miss_char
1866 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
1867 , p7_a8 NUMBER := 0-1962.0724
1868 , p7_a9 VARCHAR2 := fnd_api.g_miss_char
1869 , p7_a10 DATE := fnd_api.g_miss_date
1870 , p7_a11 DATE := fnd_api.g_miss_date
1871 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
1872 , p7_a13 NUMBER := 0-1962.0724
1873 , p7_a14 VARCHAR2 := fnd_api.g_miss_char
1874 , p7_a15 VARCHAR2 := fnd_api.g_miss_char
1875 , p7_a16 VARCHAR2 := fnd_api.g_miss_char
1876 , p7_a17 VARCHAR2 := fnd_api.g_miss_char
1877 , p7_a18 VARCHAR2 := fnd_api.g_miss_char
1878 , p7_a19 VARCHAR2 := fnd_api.g_miss_char
1879 , p7_a20 VARCHAR2 := fnd_api.g_miss_char
1880 , p7_a21 VARCHAR2 := fnd_api.g_miss_char
1881 , p7_a22 VARCHAR2 := fnd_api.g_miss_char
1882 , p7_a23 VARCHAR2 := fnd_api.g_miss_char
1883 , p7_a24 VARCHAR2 := fnd_api.g_miss_char
1884 , p7_a25 VARCHAR2 := fnd_api.g_miss_char
1885 , p7_a26 VARCHAR2 := fnd_api.g_miss_char
1886 , p7_a27 VARCHAR2 := fnd_api.g_miss_char
1887 , p7_a28 VARCHAR2 := fnd_api.g_miss_char
1888 , p7_a29 VARCHAR2 := fnd_api.g_miss_char
1889 )
1890
1891 as
1892 ddp_tier_rec ozf_disc_line_pvt.ozf_offer_tier_rec_type;
1893 ddindx binary_integer; indx binary_integer;
1894 begin
1895
1896 -- copy data to the local IN or IN-OUT args, if any
1897
1898
1899
1900
1901
1902
1903
1904 ddp_tier_rec.offer_discount_line_id := rosetta_g_miss_num_map(p7_a0);
1905 ddp_tier_rec.parent_discount_line_id := rosetta_g_miss_num_map(p7_a1);
1906 ddp_tier_rec.offer_id := rosetta_g_miss_num_map(p7_a2);
1907 ddp_tier_rec.volume_from := rosetta_g_miss_num_map(p7_a3);
1908 ddp_tier_rec.volume_to := rosetta_g_miss_num_map(p7_a4);
1909 ddp_tier_rec.volume_operator := p7_a5;
1910 ddp_tier_rec.volume_type := p7_a6;
1911 ddp_tier_rec.volume_break_type := p7_a7;
1912 ddp_tier_rec.discount := rosetta_g_miss_num_map(p7_a8);
1913 ddp_tier_rec.discount_type := p7_a9;
1914 ddp_tier_rec.start_date_active := rosetta_g_miss_date_in_map(p7_a10);
1915 ddp_tier_rec.end_date_active := rosetta_g_miss_date_in_map(p7_a11);
1916 ddp_tier_rec.uom_code := p7_a12;
1917 ddp_tier_rec.object_version_number := rosetta_g_miss_num_map(p7_a13);
1918 ddp_tier_rec.context := p7_a14;
1919 ddp_tier_rec.attribute1 := p7_a15;
1920 ddp_tier_rec.attribute2 := p7_a16;
1921 ddp_tier_rec.attribute3 := p7_a17;
1922 ddp_tier_rec.attribute4 := p7_a18;
1923 ddp_tier_rec.attribute5 := p7_a19;
1924 ddp_tier_rec.attribute6 := p7_a20;
1925 ddp_tier_rec.attribute7 := p7_a21;
1926 ddp_tier_rec.attribute8 := p7_a22;
1927 ddp_tier_rec.attribute9 := p7_a23;
1928 ddp_tier_rec.attribute10 := p7_a24;
1929 ddp_tier_rec.attribute11 := p7_a25;
1930 ddp_tier_rec.attribute12 := p7_a26;
1931 ddp_tier_rec.attribute13 := p7_a27;
1932 ddp_tier_rec.attribute14 := p7_a28;
1933 ddp_tier_rec.attribute15 := p7_a29;
1934
1935 -- here's the delegated call to the old PL/SQL routine
1936 ozf_disc_line_pvt.update_disc_tiers(p_api_version_number,
1937 p_init_msg_list,
1938 p_commit,
1939 p_validation_level,
1940 x_return_status,
1941 x_msg_count,
1942 x_msg_data,
1943 ddp_tier_rec);
1944
1945 -- copy data back from the local variables to OUT or IN-OUT args, if any
1946
1947
1948
1949
1950
1951
1952
1953 end;
1954
1955 procedure create_ozf_prod_line(p_api_version_number NUMBER
1956 , p_init_msg_list VARCHAR2
1957 , p_commit VARCHAR2
1958 , p_validation_level NUMBER
1959 , x_return_status out nocopy VARCHAR2
1960 , x_msg_count out nocopy NUMBER
1961 , x_msg_data out nocopy VARCHAR2
1962 , x_off_discount_product_id out nocopy NUMBER
1963 , p7_a0 NUMBER := 0-1962.0724
1964 , p7_a1 NUMBER := 0-1962.0724
1965 , p7_a2 VARCHAR2 := fnd_api.g_miss_char
1966 , p7_a3 NUMBER := 0-1962.0724
1967 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
1968 , p7_a5 VARCHAR2 := fnd_api.g_miss_char
1969 , p7_a6 DATE := fnd_api.g_miss_date
1970 , p7_a7 DATE := fnd_api.g_miss_date
1971 , p7_a8 NUMBER := 0-1962.0724
1972 , p7_a9 NUMBER := 0-1962.0724
1973 , p7_a10 DATE := fnd_api.g_miss_date
1974 , p7_a11 NUMBER := 0-1962.0724
1975 , p7_a12 DATE := fnd_api.g_miss_date
1976 , p7_a13 NUMBER := 0-1962.0724
1977 , p7_a14 NUMBER := 0-1962.0724
1978 , p7_a15 NUMBER := 0-1962.0724
1979 )
1980
1981 as
1982 ddp_ozf_prod_rec ozf_disc_line_pvt.ozf_prod_rec_type;
1983 ddindx binary_integer; indx binary_integer;
1984 begin
1985
1986 -- copy data to the local IN or IN-OUT args, if any
1987
1988
1989
1990
1991
1992
1993
1994 ddp_ozf_prod_rec.off_discount_product_id := rosetta_g_miss_num_map(p7_a0);
1995 ddp_ozf_prod_rec.parent_off_disc_prod_id := rosetta_g_miss_num_map(p7_a1);
1996 ddp_ozf_prod_rec.product_level := p7_a2;
1997 ddp_ozf_prod_rec.product_id := rosetta_g_miss_num_map(p7_a3);
1998 ddp_ozf_prod_rec.excluder_flag := p7_a4;
1999 ddp_ozf_prod_rec.uom_code := p7_a5;
2000 ddp_ozf_prod_rec.start_date_active := rosetta_g_miss_date_in_map(p7_a6);
2001 ddp_ozf_prod_rec.end_date_active := rosetta_g_miss_date_in_map(p7_a7);
2002 ddp_ozf_prod_rec.offer_discount_line_id := rosetta_g_miss_num_map(p7_a8);
2003 ddp_ozf_prod_rec.offer_id := rosetta_g_miss_num_map(p7_a9);
2004 ddp_ozf_prod_rec.creation_date := rosetta_g_miss_date_in_map(p7_a10);
2005 ddp_ozf_prod_rec.created_by := rosetta_g_miss_num_map(p7_a11);
2006 ddp_ozf_prod_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a12);
2007 ddp_ozf_prod_rec.last_updated_by := rosetta_g_miss_num_map(p7_a13);
2008 ddp_ozf_prod_rec.last_update_login := rosetta_g_miss_num_map(p7_a14);
2009 ddp_ozf_prod_rec.object_version_number := rosetta_g_miss_num_map(p7_a15);
2010
2011
2012 -- here's the delegated call to the old PL/SQL routine
2013 ozf_disc_line_pvt.create_ozf_prod_line(p_api_version_number,
2014 p_init_msg_list,
2015 p_commit,
2016 p_validation_level,
2017 x_return_status,
2018 x_msg_count,
2019 x_msg_data,
2020 ddp_ozf_prod_rec,
2021 x_off_discount_product_id);
2022
2023 -- copy data back from the local variables to OUT or IN-OUT args, if any
2024
2025
2026
2027
2028
2029
2030
2031
2032 end;
2033
2034 procedure update_ozf_prod_line(p_api_version_number NUMBER
2035 , p_init_msg_list VARCHAR2
2036 , p_commit VARCHAR2
2037 , p_validation_level NUMBER
2038 , x_return_status out nocopy VARCHAR2
2039 , x_msg_count out nocopy NUMBER
2040 , x_msg_data out nocopy VARCHAR2
2041 , p7_a0 NUMBER := 0-1962.0724
2042 , p7_a1 NUMBER := 0-1962.0724
2043 , p7_a2 VARCHAR2 := fnd_api.g_miss_char
2044 , p7_a3 NUMBER := 0-1962.0724
2045 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
2046 , p7_a5 VARCHAR2 := fnd_api.g_miss_char
2047 , p7_a6 DATE := fnd_api.g_miss_date
2048 , p7_a7 DATE := fnd_api.g_miss_date
2049 , p7_a8 NUMBER := 0-1962.0724
2050 , p7_a9 NUMBER := 0-1962.0724
2051 , p7_a10 DATE := fnd_api.g_miss_date
2052 , p7_a11 NUMBER := 0-1962.0724
2053 , p7_a12 DATE := fnd_api.g_miss_date
2054 , p7_a13 NUMBER := 0-1962.0724
2055 , p7_a14 NUMBER := 0-1962.0724
2056 , p7_a15 NUMBER := 0-1962.0724
2057 )
2058
2059 as
2060 ddp_ozf_prod_rec ozf_disc_line_pvt.ozf_prod_rec_type;
2061 ddindx binary_integer; indx binary_integer;
2062 begin
2063
2064 -- copy data to the local IN or IN-OUT args, if any
2065
2066
2067
2068
2069
2070
2071
2072 ddp_ozf_prod_rec.off_discount_product_id := rosetta_g_miss_num_map(p7_a0);
2073 ddp_ozf_prod_rec.parent_off_disc_prod_id := rosetta_g_miss_num_map(p7_a1);
2074 ddp_ozf_prod_rec.product_level := p7_a2;
2075 ddp_ozf_prod_rec.product_id := rosetta_g_miss_num_map(p7_a3);
2076 ddp_ozf_prod_rec.excluder_flag := p7_a4;
2077 ddp_ozf_prod_rec.uom_code := p7_a5;
2078 ddp_ozf_prod_rec.start_date_active := rosetta_g_miss_date_in_map(p7_a6);
2079 ddp_ozf_prod_rec.end_date_active := rosetta_g_miss_date_in_map(p7_a7);
2080 ddp_ozf_prod_rec.offer_discount_line_id := rosetta_g_miss_num_map(p7_a8);
2081 ddp_ozf_prod_rec.offer_id := rosetta_g_miss_num_map(p7_a9);
2082 ddp_ozf_prod_rec.creation_date := rosetta_g_miss_date_in_map(p7_a10);
2083 ddp_ozf_prod_rec.created_by := rosetta_g_miss_num_map(p7_a11);
2084 ddp_ozf_prod_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a12);
2085 ddp_ozf_prod_rec.last_updated_by := rosetta_g_miss_num_map(p7_a13);
2086 ddp_ozf_prod_rec.last_update_login := rosetta_g_miss_num_map(p7_a14);
2087 ddp_ozf_prod_rec.object_version_number := rosetta_g_miss_num_map(p7_a15);
2088
2089 -- here's the delegated call to the old PL/SQL routine
2090 ozf_disc_line_pvt.update_ozf_prod_line(p_api_version_number,
2091 p_init_msg_list,
2092 p_commit,
2093 p_validation_level,
2094 x_return_status,
2095 x_msg_count,
2096 x_msg_data,
2097 ddp_ozf_prod_rec);
2098
2099 -- copy data back from the local variables to OUT or IN-OUT args, if any
2100
2101
2102
2103
2104
2105
2106
2107 end;
2108
2109 end ozf_disc_line_pvt_w;