[Home] [Help]
1: package body ozf_offer_backdate_pvt_w as
2: /* $Header: ozfwobdb.pls 120.0 2005/05/31 23:14:49 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_p3(t OUT NOCOPY ozf_offer_backdate_pvt.offer_backdate_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_DATE_TABLE
24: , a2 JTF_DATE_TABLE
25: , a3 JTF_VARCHAR2_TABLE_100
26: , a4 JTF_VARCHAR2_TABLE_100
67: end loop;
68: end if;
69: end if;
70: end rosetta_table_copy_in_p3;
71: procedure rosetta_table_copy_out_p3(t ozf_offer_backdate_pvt.offer_backdate_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE
72: , a1 OUT NOCOPY JTF_DATE_TABLE
73: , a2 OUT NOCOPY JTF_DATE_TABLE
74: , a3 OUT NOCOPY JTF_VARCHAR2_TABLE_100
75: , a4 OUT NOCOPY JTF_VARCHAR2_TABLE_100
192: , p7_a14 NUMBER := 0-1962.0724
193: , p7_a15 NUMBER := 0-1962.0724
194: )
195: as
196: ddp_offer_backdate_rec ozf_offer_backdate_pvt.offer_backdate_rec_type;
197: ddindx binary_integer; indx binary_integer;
198: begin
199:
200: -- copy data to the local IN or IN-OUT args, if any
223: ddp_offer_backdate_rec.security_group_id := rosetta_g_miss_num_map(p7_a15);
224:
225:
226: -- here's the delegated call to the old PL/SQL routine
227: ozf_offer_backdate_pvt.create_offer_backdate(p_api_version_number,
228: p_init_msg_list,
229: p_commit,
230: p_validation_level,
231: x_return_status,
270: , p7_a14 NUMBER := 0-1962.0724
271: , p7_a15 NUMBER := 0-1962.0724
272: )
273: as
274: ddp_offer_backdate_rec ozf_offer_backdate_pvt.offer_backdate_rec_type;
275: ddindx binary_integer; indx binary_integer;
276: begin
277:
278: -- copy data to the local IN or IN-OUT args, if any
301: ddp_offer_backdate_rec.security_group_id := rosetta_g_miss_num_map(p7_a15);
302:
303:
304: -- here's the delegated call to the old PL/SQL routine
305: ozf_offer_backdate_pvt.update_offer_backdate(p_api_version_number,
306: p_init_msg_list,
307: p_commit,
308: p_validation_level,
309: x_return_status,
347: , p3_a14 NUMBER := 0-1962.0724
348: , p3_a15 NUMBER := 0-1962.0724
349: )
350: as
351: ddp_offer_backdate_rec ozf_offer_backdate_pvt.offer_backdate_rec_type;
352: ddindx binary_integer; indx binary_integer;
353: begin
354:
355: -- copy data to the local IN or IN-OUT args, if any
377:
378:
379:
380: -- here's the delegated call to the old PL/SQL routine
381: ozf_offer_backdate_pvt.validate_offer_backdate(p_api_version_number,
382: p_init_msg_list,
383: p_validation_level,
384: ddp_offer_backdate_rec,
385: p_validation_mode,
416: , p0_a14 NUMBER := 0-1962.0724
417: , p0_a15 NUMBER := 0-1962.0724
418: )
419: as
420: ddp_offer_backdate_rec ozf_offer_backdate_pvt.offer_backdate_rec_type;
421: ddindx binary_integer; indx binary_integer;
422: begin
423:
424: -- copy data to the local IN or IN-OUT args, if any
441:
442:
443:
444: -- here's the delegated call to the old PL/SQL routine
445: ozf_offer_backdate_pvt.check_offer_backdate_items(ddp_offer_backdate_rec,
446: p_validation_mode,
447: x_return_status);
448:
449: -- copy data back from the local OUT or IN-OUT args, if any
473: , p5_a14 NUMBER := 0-1962.0724
474: , p5_a15 NUMBER := 0-1962.0724
475: )
476: as
477: ddp_offer_backdate_rec ozf_offer_backdate_pvt.offer_backdate_rec_type;
478: ddindx binary_integer; indx binary_integer;
479: begin
480:
481: -- copy data to the local IN or IN-OUT args, if any
501: ddp_offer_backdate_rec.object_version_number := rosetta_g_miss_num_map(p5_a14);
502: ddp_offer_backdate_rec.security_group_id := rosetta_g_miss_num_map(p5_a15);
503:
504: -- here's the delegated call to the old PL/SQL routine
505: ozf_offer_backdate_pvt.validate_offer_backdate_rec(p_api_version_number,
506: p_init_msg_list,
507: x_return_status,
508: x_msg_count,
509: x_msg_data,
516:
517:
518: end;
519:
520: end ozf_offer_backdate_pvt_w;