[Home] [Help]
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');
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
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
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
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,
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
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,
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
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,
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
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
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
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,
509:
510:
511: end;
512:
513: end ozf_adj_new_prod_pvt_w;