[Home] [Help]
PACKAGE BODY: APPS.OZF_ADJ_NEW_PROD_PVT_W
Source
1 package body ozf_adj_new_prod_pvt_w as
2 /* $Header: ozfwanpb.pls 120.1 2006/04/04 18:01:41 rssharma noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8
9 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
10 function rosetta_g_miss_date_in_map(d date) return date as
11 begin
12 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
13 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
14 return d;
15 end;
16
17
18 function rosetta_g_miss_num_map(n number) return number as
19 a number := fnd_api.g_miss_num;
20 b number := 0-1962.0724;
21 begin
22 if n=a then return b; end if;
23 if n=b then return a; end if;
24 return n;
25 end;
26
27 procedure rosetta_table_copy_in_p3(t out nocopy ozf_adj_new_prod_pvt.adj_new_prod_tbl_type, a0 JTF_NUMBER_TABLE
28 , a1 JTF_NUMBER_TABLE
29 , a2 JTF_NUMBER_TABLE
30 , a3 JTF_VARCHAR2_TABLE_100
31 , a4 JTF_VARCHAR2_TABLE_100
32 , a5 JTF_VARCHAR2_TABLE_300
33 , a6 JTF_VARCHAR2_TABLE_100
34 , a7 JTF_VARCHAR2_TABLE_100
35 , a8 JTF_DATE_TABLE
36 , a9 JTF_NUMBER_TABLE
37 , a10 JTF_DATE_TABLE
38 , a11 JTF_NUMBER_TABLE
39 , a12 JTF_NUMBER_TABLE
40 , a13 JTF_NUMBER_TABLE
41 , a14 JTF_VARCHAR2_TABLE_100
42 ) as
43 ddindx binary_integer; indx binary_integer;
44 begin
45 if a0 is not null and a0.count > 0 then
46 if a0.count > 0 then
47 indx := a0.first;
48 ddindx := 1;
49 while true loop
50 t(ddindx).offer_adj_new_product_id := rosetta_g_miss_num_map(a0(indx));
51 t(ddindx).offer_adj_new_line_id := rosetta_g_miss_num_map(a1(indx));
52 t(ddindx).offer_adjustment_id := rosetta_g_miss_num_map(a2(indx));
53 t(ddindx).product_context := a3(indx);
54 t(ddindx).product_attribute := a4(indx);
55 t(ddindx).product_attr_value := a5(indx);
56 t(ddindx).excluder_flag := a6(indx);
57 t(ddindx).uom_code := a7(indx);
58 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a8(indx));
59 t(ddindx).created_by := rosetta_g_miss_num_map(a9(indx));
60 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a10(indx));
61 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a11(indx));
62 t(ddindx).last_update_login := rosetta_g_miss_num_map(a12(indx));
63 t(ddindx).object_version_number := rosetta_g_miss_num_map(a13(indx));
64 t(ddindx).offer_type := a14(indx);
65 ddindx := ddindx+1;
66 if a0.last =indx
67 then exit;
68 end if;
69 indx := a0.next(indx);
70 end loop;
71 end if;
72 end if;
73 end rosetta_table_copy_in_p3;
74 procedure rosetta_table_copy_out_p3(t ozf_adj_new_prod_pvt.adj_new_prod_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
75 , a1 out nocopy JTF_NUMBER_TABLE
76 , a2 out nocopy JTF_NUMBER_TABLE
77 , a3 out nocopy JTF_VARCHAR2_TABLE_100
78 , a4 out nocopy JTF_VARCHAR2_TABLE_100
79 , a5 out nocopy JTF_VARCHAR2_TABLE_300
80 , a6 out nocopy JTF_VARCHAR2_TABLE_100
81 , a7 out nocopy JTF_VARCHAR2_TABLE_100
82 , a8 out nocopy JTF_DATE_TABLE
83 , a9 out nocopy JTF_NUMBER_TABLE
84 , a10 out nocopy JTF_DATE_TABLE
85 , a11 out nocopy JTF_NUMBER_TABLE
86 , a12 out nocopy JTF_NUMBER_TABLE
87 , a13 out nocopy JTF_NUMBER_TABLE
88 , a14 out nocopy JTF_VARCHAR2_TABLE_100
89 ) as
90 ddindx binary_integer; indx binary_integer;
91 begin
92 if t is null or t.count = 0 then
93 a0 := JTF_NUMBER_TABLE();
94 a1 := JTF_NUMBER_TABLE();
95 a2 := JTF_NUMBER_TABLE();
96 a3 := JTF_VARCHAR2_TABLE_100();
97 a4 := JTF_VARCHAR2_TABLE_100();
98 a5 := JTF_VARCHAR2_TABLE_300();
99 a6 := JTF_VARCHAR2_TABLE_100();
100 a7 := JTF_VARCHAR2_TABLE_100();
101 a8 := JTF_DATE_TABLE();
102 a9 := JTF_NUMBER_TABLE();
103 a10 := JTF_DATE_TABLE();
104 a11 := JTF_NUMBER_TABLE();
105 a12 := JTF_NUMBER_TABLE();
106 a13 := JTF_NUMBER_TABLE();
107 a14 := JTF_VARCHAR2_TABLE_100();
108 else
109 a0 := JTF_NUMBER_TABLE();
110 a1 := JTF_NUMBER_TABLE();
111 a2 := JTF_NUMBER_TABLE();
112 a3 := JTF_VARCHAR2_TABLE_100();
113 a4 := JTF_VARCHAR2_TABLE_100();
114 a5 := JTF_VARCHAR2_TABLE_300();
115 a6 := JTF_VARCHAR2_TABLE_100();
116 a7 := JTF_VARCHAR2_TABLE_100();
117 a8 := JTF_DATE_TABLE();
118 a9 := JTF_NUMBER_TABLE();
119 a10 := JTF_DATE_TABLE();
120 a11 := JTF_NUMBER_TABLE();
121 a12 := JTF_NUMBER_TABLE();
122 a13 := JTF_NUMBER_TABLE();
123 a14 := JTF_VARCHAR2_TABLE_100();
124 if t.count > 0 then
125 a0.extend(t.count);
126 a1.extend(t.count);
127 a2.extend(t.count);
128 a3.extend(t.count);
129 a4.extend(t.count);
130 a5.extend(t.count);
131 a6.extend(t.count);
132 a7.extend(t.count);
133 a8.extend(t.count);
134 a9.extend(t.count);
135 a10.extend(t.count);
136 a11.extend(t.count);
137 a12.extend(t.count);
138 a13.extend(t.count);
139 a14.extend(t.count);
140 ddindx := t.first;
141 indx := 1;
142 while true loop
143 a0(indx) := rosetta_g_miss_num_map(t(ddindx).offer_adj_new_product_id);
144 a1(indx) := rosetta_g_miss_num_map(t(ddindx).offer_adj_new_line_id);
145 a2(indx) := rosetta_g_miss_num_map(t(ddindx).offer_adjustment_id);
146 a3(indx) := t(ddindx).product_context;
147 a4(indx) := t(ddindx).product_attribute;
148 a5(indx) := t(ddindx).product_attr_value;
149 a6(indx) := t(ddindx).excluder_flag;
150 a7(indx) := t(ddindx).uom_code;
151 a8(indx) := t(ddindx).creation_date;
152 a9(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
153 a10(indx) := t(ddindx).last_update_date;
154 a11(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
155 a12(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
156 a13(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
157 a14(indx) := t(ddindx).offer_type;
158 indx := indx+1;
159 if t.last =ddindx
160 then exit;
161 end if;
162 ddindx := t.next(ddindx);
163 end loop;
164 end if;
165 end if;
166 end rosetta_table_copy_out_p3;
167
168 procedure create_adj_new_prod(p_api_version_number NUMBER
169 , p_init_msg_list VARCHAR2
170 , p_commit VARCHAR2
171 , p_validation_level NUMBER
172 , x_return_status out nocopy VARCHAR2
173 , x_msg_count out nocopy NUMBER
174 , x_msg_data out nocopy VARCHAR2
175 , p7_a0 NUMBER := 0-1962.0724
176 , p7_a1 NUMBER := 0-1962.0724
177 , p7_a2 NUMBER := 0-1962.0724
178 , p7_a3 VARCHAR2 := fnd_api.g_miss_char
179 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
180 , p7_a5 VARCHAR2 := fnd_api.g_miss_char
181 , p7_a6 VARCHAR2 := fnd_api.g_miss_char
182 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
183 , p7_a8 DATE := fnd_api.g_miss_date
184 , p7_a9 NUMBER := 0-1962.0724
185 , p7_a10 DATE := fnd_api.g_miss_date
186 , p7_a11 NUMBER := 0-1962.0724
187 , p7_a12 NUMBER := 0-1962.0724
188 , p7_a13 NUMBER := 0-1962.0724
189 , p7_a14 VARCHAR2 := fnd_api.g_miss_char
190 , x_offer_adj_new_product_id out nocopy NUMBER
191 )
192
193 as
194 ddp_adj_new_prod_rec ozf_adj_new_prod_pvt.adj_new_prod_rec_type;
195 ddindx binary_integer; indx binary_integer;
196 begin
197
198 -- copy data to the local IN or IN-OUT args, if any
199
200
201
202
203
204
205
206 ddp_adj_new_prod_rec.offer_adj_new_product_id := rosetta_g_miss_num_map(p7_a0);
207 ddp_adj_new_prod_rec.offer_adj_new_line_id := rosetta_g_miss_num_map(p7_a1);
208 ddp_adj_new_prod_rec.offer_adjustment_id := rosetta_g_miss_num_map(p7_a2);
209 ddp_adj_new_prod_rec.product_context := p7_a3;
210 ddp_adj_new_prod_rec.product_attribute := p7_a4;
211 ddp_adj_new_prod_rec.product_attr_value := p7_a5;
212 ddp_adj_new_prod_rec.excluder_flag := p7_a6;
213 ddp_adj_new_prod_rec.uom_code := p7_a7;
214 ddp_adj_new_prod_rec.creation_date := rosetta_g_miss_date_in_map(p7_a8);
215 ddp_adj_new_prod_rec.created_by := rosetta_g_miss_num_map(p7_a9);
216 ddp_adj_new_prod_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a10);
217 ddp_adj_new_prod_rec.last_updated_by := rosetta_g_miss_num_map(p7_a11);
218 ddp_adj_new_prod_rec.last_update_login := rosetta_g_miss_num_map(p7_a12);
219 ddp_adj_new_prod_rec.object_version_number := rosetta_g_miss_num_map(p7_a13);
220 ddp_adj_new_prod_rec.offer_type := p7_a14;
221
222
223 -- here's the delegated call to the old PL/SQL routine
224 ozf_adj_new_prod_pvt.create_adj_new_prod(p_api_version_number,
225 p_init_msg_list,
226 p_commit,
227 p_validation_level,
228 x_return_status,
229 x_msg_count,
230 x_msg_data,
231 ddp_adj_new_prod_rec,
232 x_offer_adj_new_product_id);
233
234 -- copy data back from the local variables to OUT or IN-OUT args, if any
235
236
237
238
239
240
241
242
243 end;
244
245 procedure update_adj_new_prod(p_api_version_number NUMBER
246 , p_init_msg_list VARCHAR2
247 , p_commit VARCHAR2
248 , p_validation_level NUMBER
249 , x_return_status out nocopy VARCHAR2
250 , x_msg_count out nocopy NUMBER
251 , x_msg_data out nocopy VARCHAR2
252 , p7_a0 NUMBER := 0-1962.0724
253 , p7_a1 NUMBER := 0-1962.0724
254 , p7_a2 NUMBER := 0-1962.0724
255 , p7_a3 VARCHAR2 := fnd_api.g_miss_char
256 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
257 , p7_a5 VARCHAR2 := fnd_api.g_miss_char
258 , p7_a6 VARCHAR2 := fnd_api.g_miss_char
259 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
260 , p7_a8 DATE := fnd_api.g_miss_date
261 , p7_a9 NUMBER := 0-1962.0724
262 , p7_a10 DATE := fnd_api.g_miss_date
263 , p7_a11 NUMBER := 0-1962.0724
264 , p7_a12 NUMBER := 0-1962.0724
265 , p7_a13 NUMBER := 0-1962.0724
266 , p7_a14 VARCHAR2 := fnd_api.g_miss_char
267 , x_object_version_number out nocopy NUMBER
268 )
269
270 as
271 ddp_adj_new_prod_rec ozf_adj_new_prod_pvt.adj_new_prod_rec_type;
272 ddindx binary_integer; indx binary_integer;
273 begin
274
275 -- copy data to the local IN or IN-OUT args, if any
276
277
278
279
280
281
282
283 ddp_adj_new_prod_rec.offer_adj_new_product_id := rosetta_g_miss_num_map(p7_a0);
284 ddp_adj_new_prod_rec.offer_adj_new_line_id := rosetta_g_miss_num_map(p7_a1);
285 ddp_adj_new_prod_rec.offer_adjustment_id := rosetta_g_miss_num_map(p7_a2);
286 ddp_adj_new_prod_rec.product_context := p7_a3;
287 ddp_adj_new_prod_rec.product_attribute := p7_a4;
288 ddp_adj_new_prod_rec.product_attr_value := p7_a5;
289 ddp_adj_new_prod_rec.excluder_flag := p7_a6;
290 ddp_adj_new_prod_rec.uom_code := p7_a7;
291 ddp_adj_new_prod_rec.creation_date := rosetta_g_miss_date_in_map(p7_a8);
292 ddp_adj_new_prod_rec.created_by := rosetta_g_miss_num_map(p7_a9);
293 ddp_adj_new_prod_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a10);
294 ddp_adj_new_prod_rec.last_updated_by := rosetta_g_miss_num_map(p7_a11);
295 ddp_adj_new_prod_rec.last_update_login := rosetta_g_miss_num_map(p7_a12);
296 ddp_adj_new_prod_rec.object_version_number := rosetta_g_miss_num_map(p7_a13);
297 ddp_adj_new_prod_rec.offer_type := p7_a14;
298
299
300 -- here's the delegated call to the old PL/SQL routine
301 ozf_adj_new_prod_pvt.update_adj_new_prod(p_api_version_number,
302 p_init_msg_list,
303 p_commit,
304 p_validation_level,
305 x_return_status,
306 x_msg_count,
307 x_msg_data,
308 ddp_adj_new_prod_rec,
309 x_object_version_number);
310
311 -- copy data back from the local variables to OUT or IN-OUT args, if any
312
313
314
315
316
317
318
319
320 end;
321
322 procedure validate_adj_new_prod(p_api_version_number NUMBER
323 , p_init_msg_list VARCHAR2
324 , p_validation_level NUMBER
325 , p_validation_mode VARCHAR2
326 , x_return_status out nocopy VARCHAR2
327 , x_msg_count out nocopy NUMBER
328 , x_msg_data out nocopy VARCHAR2
329 , p4_a0 NUMBER := 0-1962.0724
330 , p4_a1 NUMBER := 0-1962.0724
331 , p4_a2 NUMBER := 0-1962.0724
332 , p4_a3 VARCHAR2 := fnd_api.g_miss_char
333 , p4_a4 VARCHAR2 := fnd_api.g_miss_char
334 , p4_a5 VARCHAR2 := fnd_api.g_miss_char
335 , p4_a6 VARCHAR2 := fnd_api.g_miss_char
336 , p4_a7 VARCHAR2 := fnd_api.g_miss_char
337 , p4_a8 DATE := fnd_api.g_miss_date
338 , p4_a9 NUMBER := 0-1962.0724
339 , p4_a10 DATE := fnd_api.g_miss_date
340 , p4_a11 NUMBER := 0-1962.0724
341 , p4_a12 NUMBER := 0-1962.0724
342 , p4_a13 NUMBER := 0-1962.0724
343 , p4_a14 VARCHAR2 := fnd_api.g_miss_char
344 )
345
346 as
347 ddp_adj_new_prod_rec ozf_adj_new_prod_pvt.adj_new_prod_rec_type;
348 ddindx binary_integer; indx binary_integer;
349 begin
350
351 -- copy data to the local IN or IN-OUT args, if any
352
353
354
355
356 ddp_adj_new_prod_rec.offer_adj_new_product_id := rosetta_g_miss_num_map(p4_a0);
357 ddp_adj_new_prod_rec.offer_adj_new_line_id := rosetta_g_miss_num_map(p4_a1);
358 ddp_adj_new_prod_rec.offer_adjustment_id := rosetta_g_miss_num_map(p4_a2);
359 ddp_adj_new_prod_rec.product_context := p4_a3;
360 ddp_adj_new_prod_rec.product_attribute := p4_a4;
361 ddp_adj_new_prod_rec.product_attr_value := p4_a5;
362 ddp_adj_new_prod_rec.excluder_flag := p4_a6;
363 ddp_adj_new_prod_rec.uom_code := p4_a7;
364 ddp_adj_new_prod_rec.creation_date := rosetta_g_miss_date_in_map(p4_a8);
365 ddp_adj_new_prod_rec.created_by := rosetta_g_miss_num_map(p4_a9);
366 ddp_adj_new_prod_rec.last_update_date := rosetta_g_miss_date_in_map(p4_a10);
367 ddp_adj_new_prod_rec.last_updated_by := rosetta_g_miss_num_map(p4_a11);
368 ddp_adj_new_prod_rec.last_update_login := rosetta_g_miss_num_map(p4_a12);
369 ddp_adj_new_prod_rec.object_version_number := rosetta_g_miss_num_map(p4_a13);
370 ddp_adj_new_prod_rec.offer_type := p4_a14;
371
372
373
374
375 -- here's the delegated call to the old PL/SQL routine
376 ozf_adj_new_prod_pvt.validate_adj_new_prod(p_api_version_number,
377 p_init_msg_list,
378 p_validation_level,
379 p_validation_mode,
380 ddp_adj_new_prod_rec,
381 x_return_status,
382 x_msg_count,
383 x_msg_data);
384
385 -- copy data back from the local variables to OUT or IN-OUT args, if any
386
387
388
389
390
391
392
393 end;
394
395 procedure check_adj_new_prod_items(p_validation_mode VARCHAR2
396 , x_return_status out nocopy VARCHAR2
397 , p0_a0 NUMBER := 0-1962.0724
398 , p0_a1 NUMBER := 0-1962.0724
399 , p0_a2 NUMBER := 0-1962.0724
400 , p0_a3 VARCHAR2 := fnd_api.g_miss_char
401 , p0_a4 VARCHAR2 := fnd_api.g_miss_char
402 , p0_a5 VARCHAR2 := fnd_api.g_miss_char
403 , p0_a6 VARCHAR2 := fnd_api.g_miss_char
404 , p0_a7 VARCHAR2 := fnd_api.g_miss_char
405 , p0_a8 DATE := fnd_api.g_miss_date
406 , p0_a9 NUMBER := 0-1962.0724
407 , p0_a10 DATE := fnd_api.g_miss_date
408 , p0_a11 NUMBER := 0-1962.0724
409 , p0_a12 NUMBER := 0-1962.0724
410 , p0_a13 NUMBER := 0-1962.0724
411 , p0_a14 VARCHAR2 := fnd_api.g_miss_char
412 )
413
414 as
415 ddp_adj_new_prod_rec ozf_adj_new_prod_pvt.adj_new_prod_rec_type;
416 ddindx binary_integer; indx binary_integer;
417 begin
418
419 -- copy data to the local IN or IN-OUT args, if any
420 ddp_adj_new_prod_rec.offer_adj_new_product_id := rosetta_g_miss_num_map(p0_a0);
421 ddp_adj_new_prod_rec.offer_adj_new_line_id := rosetta_g_miss_num_map(p0_a1);
422 ddp_adj_new_prod_rec.offer_adjustment_id := rosetta_g_miss_num_map(p0_a2);
423 ddp_adj_new_prod_rec.product_context := p0_a3;
424 ddp_adj_new_prod_rec.product_attribute := p0_a4;
425 ddp_adj_new_prod_rec.product_attr_value := p0_a5;
426 ddp_adj_new_prod_rec.excluder_flag := p0_a6;
427 ddp_adj_new_prod_rec.uom_code := p0_a7;
428 ddp_adj_new_prod_rec.creation_date := rosetta_g_miss_date_in_map(p0_a8);
429 ddp_adj_new_prod_rec.created_by := rosetta_g_miss_num_map(p0_a9);
430 ddp_adj_new_prod_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a10);
431 ddp_adj_new_prod_rec.last_updated_by := rosetta_g_miss_num_map(p0_a11);
432 ddp_adj_new_prod_rec.last_update_login := rosetta_g_miss_num_map(p0_a12);
433 ddp_adj_new_prod_rec.object_version_number := rosetta_g_miss_num_map(p0_a13);
434 ddp_adj_new_prod_rec.offer_type := p0_a14;
435
436
437
438 -- here's the delegated call to the old PL/SQL routine
439 ozf_adj_new_prod_pvt.check_adj_new_prod_items(ddp_adj_new_prod_rec,
440 p_validation_mode,
441 x_return_status);
442
443 -- copy data back from the local variables to OUT or IN-OUT args, if any
444
445
446 end;
447
448 procedure validate_adj_new_prod_rec(p_api_version_number NUMBER
449 , p_init_msg_list VARCHAR2
450 , x_return_status out nocopy VARCHAR2
451 , x_msg_count out nocopy NUMBER
452 , x_msg_data out nocopy VARCHAR2
453 , p5_a0 NUMBER := 0-1962.0724
454 , p5_a1 NUMBER := 0-1962.0724
455 , p5_a2 NUMBER := 0-1962.0724
456 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
457 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
458 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
459 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
460 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
461 , p5_a8 DATE := fnd_api.g_miss_date
462 , p5_a9 NUMBER := 0-1962.0724
463 , p5_a10 DATE := fnd_api.g_miss_date
464 , p5_a11 NUMBER := 0-1962.0724
465 , p5_a12 NUMBER := 0-1962.0724
466 , p5_a13 NUMBER := 0-1962.0724
467 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
468 )
469
470 as
471 ddp_adj_new_prod_rec ozf_adj_new_prod_pvt.adj_new_prod_rec_type;
472 ddindx binary_integer; indx binary_integer;
473 begin
474
475 -- copy data to the local IN or IN-OUT args, if any
476
477
478
479
480
481 ddp_adj_new_prod_rec.offer_adj_new_product_id := rosetta_g_miss_num_map(p5_a0);
482 ddp_adj_new_prod_rec.offer_adj_new_line_id := rosetta_g_miss_num_map(p5_a1);
483 ddp_adj_new_prod_rec.offer_adjustment_id := rosetta_g_miss_num_map(p5_a2);
484 ddp_adj_new_prod_rec.product_context := p5_a3;
485 ddp_adj_new_prod_rec.product_attribute := p5_a4;
486 ddp_adj_new_prod_rec.product_attr_value := p5_a5;
487 ddp_adj_new_prod_rec.excluder_flag := p5_a6;
488 ddp_adj_new_prod_rec.uom_code := p5_a7;
489 ddp_adj_new_prod_rec.creation_date := rosetta_g_miss_date_in_map(p5_a8);
490 ddp_adj_new_prod_rec.created_by := rosetta_g_miss_num_map(p5_a9);
491 ddp_adj_new_prod_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a10);
492 ddp_adj_new_prod_rec.last_updated_by := rosetta_g_miss_num_map(p5_a11);
493 ddp_adj_new_prod_rec.last_update_login := rosetta_g_miss_num_map(p5_a12);
494 ddp_adj_new_prod_rec.object_version_number := rosetta_g_miss_num_map(p5_a13);
495 ddp_adj_new_prod_rec.offer_type := p5_a14;
496
497 -- here's the delegated call to the old PL/SQL routine
498 ozf_adj_new_prod_pvt.validate_adj_new_prod_rec(p_api_version_number,
499 p_init_msg_list,
500 x_return_status,
501 x_msg_count,
502 x_msg_data,
503 ddp_adj_new_prod_rec);
504
505 -- copy data back from the local variables to OUT or IN-OUT args, if any
506
507
508
509
510
511 end;
512
513 end ozf_adj_new_prod_pvt_w;