[Home] [Help]
1: package body ozf_vol_offr_pvt_w as
2: /* $Header: ozfwvob.pls 120.0 2005/06/01 03:31:48 appldev noship $ */
3: rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4: rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5:
18: if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19: return d;
20: end;
21:
22: procedure rosetta_table_copy_in_p2(t OUT NOCOPY ozf_vol_offr_pvt.vol_offr_tier_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_VARCHAR2_TABLE_100
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_VARCHAR2_TABLE_100
57: end loop;
58: end if;
59: end if;
60: end rosetta_table_copy_in_p2;
61: procedure rosetta_table_copy_out_p2(t ozf_vol_offr_pvt.vol_offr_tier_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE
62: , a1 OUT NOCOPY JTF_NUMBER_TABLE
63: , a2 OUT NOCOPY JTF_VARCHAR2_TABLE_100
64: , a3 OUT NOCOPY JTF_NUMBER_TABLE
65: , a4 OUT NOCOPY JTF_VARCHAR2_TABLE_100
152: , p7_a9 VARCHAR2 := fnd_api.g_miss_char
153: , p7_a10 NUMBER := 0-1962.0724
154: )
155: as
156: ddp_vol_offr_tier_rec ozf_vol_offr_pvt.vol_offr_tier_rec_type;
157: ddindx binary_integer; indx binary_integer;
158: begin
159:
160: -- copy data to the local IN or IN-OUT args, if any
178: ddp_vol_offr_tier_rec.object_version_number := rosetta_g_miss_num_map(p7_a10);
179:
180:
181: -- here's the delegated call to the old PL/SQL routine
182: ozf_vol_offr_pvt.create_vol_offr(p_api_version_number,
183: p_init_msg_list,
184: p_commit,
185: p_validation_level,
186: x_return_status,
220: , p7_a9 VARCHAR2 := fnd_api.g_miss_char
221: , p7_a10 NUMBER := 0-1962.0724
222: )
223: as
224: ddp_vol_offr_tier_rec ozf_vol_offr_pvt.vol_offr_tier_rec_type;
225: ddindx binary_integer; indx binary_integer;
226: begin
227:
228: -- copy data to the local IN or IN-OUT args, if any
246: ddp_vol_offr_tier_rec.object_version_number := rosetta_g_miss_num_map(p7_a10);
247:
248:
249: -- here's the delegated call to the old PL/SQL routine
250: ozf_vol_offr_pvt.update_vol_offr(p_api_version_number,
251: p_init_msg_list,
252: p_commit,
253: p_validation_level,
254: x_return_status,
287: , p3_a9 VARCHAR2 := fnd_api.g_miss_char
288: , p3_a10 NUMBER := 0-1962.0724
289: )
290: as
291: ddp_vol_offr_tier_rec ozf_vol_offr_pvt.vol_offr_tier_rec_type;
292: ddindx binary_integer; indx binary_integer;
293: begin
294:
295: -- copy data to the local IN or IN-OUT args, if any
312:
313:
314:
315: -- here's the delegated call to the old PL/SQL routine
316: ozf_vol_offr_pvt.validate_vol_offr(p_api_version_number,
317: p_init_msg_list,
318: p_validation_level,
319: ddp_vol_offr_tier_rec,
320: p_validation_mode,
346: , p0_a9 VARCHAR2 := fnd_api.g_miss_char
347: , p0_a10 NUMBER := 0-1962.0724
348: )
349: as
350: ddp_vol_offr_tier_rec ozf_vol_offr_pvt.vol_offr_tier_rec_type;
351: ddindx binary_integer; indx binary_integer;
352: begin
353:
354: -- copy data to the local IN or IN-OUT args, if any
366:
367:
368:
369: -- here's the delegated call to the old PL/SQL routine
370: ozf_vol_offr_pvt.check_vol_offr_tier_items(ddp_vol_offr_tier_rec,
371: p_validation_mode,
372: x_return_status);
373:
374: -- copy data back from the local OUT or IN-OUT args, if any
393: , p5_a9 VARCHAR2 := fnd_api.g_miss_char
394: , p5_a10 NUMBER := 0-1962.0724
395: )
396: as
397: ddp_vol_offr_tier_rec ozf_vol_offr_pvt.vol_offr_tier_rec_type;
398: ddindx binary_integer; indx binary_integer;
399: begin
400:
401: -- copy data to the local IN or IN-OUT args, if any
416: ddp_vol_offr_tier_rec.uom_code := p5_a9;
417: ddp_vol_offr_tier_rec.object_version_number := rosetta_g_miss_num_map(p5_a10);
418:
419: -- here's the delegated call to the old PL/SQL routine
420: ozf_vol_offr_pvt.validate_vol_offr_tier_rec(p_api_version_number,
421: p_init_msg_list,
422: x_return_status,
423: x_msg_count,
424: x_msg_data,
431:
432:
433: end;
434:
435: end ozf_vol_offr_pvt_w;