[Home] [Help]
1: package body ozf_offer_adj_tier_pvt_w as
2: /* $Header: ozfwoatb.pls 120.2 2005/09/20 17:35 rssharma 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:
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_offer_adj_tier_pvt.offadj_tier_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
63: end loop;
64: end if;
65: end if;
66: end rosetta_table_copy_in_p2;
67: procedure rosetta_table_copy_out_p2(t ozf_offer_adj_tier_pvt.offadj_tier_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
68: , a1 out nocopy JTF_NUMBER_TABLE
69: , a2 out nocopy JTF_NUMBER_TABLE
70: , a3 out nocopy JTF_NUMBER_TABLE
71: , a4 out nocopy JTF_VARCHAR2_TABLE_100
177: , p7_a13 NUMBER := 0-1962.0724
178: )
179:
180: as
181: ddp_offadj_tier_rec ozf_offer_adj_tier_pvt.offadj_tier_rec_type;
182: ddindx binary_integer; indx binary_integer;
183: begin
184:
185: -- copy data to the local IN or IN-OUT args, if any
206: ddp_offadj_tier_rec.object_version_number := rosetta_g_miss_num_map(p7_a13);
207:
208:
209: -- here's the delegated call to the old PL/SQL routine
210: ozf_offer_adj_tier_pvt.create_offer_adj_tier(p_api_version_number,
211: p_init_msg_list,
212: p_commit,
213: p_validation_level,
214: x_return_status,
252: , p7_a13 NUMBER := 0-1962.0724
253: )
254:
255: as
256: ddp_offadj_tier_rec ozf_offer_adj_tier_pvt.offadj_tier_rec_type;
257: ddindx binary_integer; indx binary_integer;
258: begin
259:
260: -- copy data to the local IN or IN-OUT args, if any
281: ddp_offadj_tier_rec.object_version_number := rosetta_g_miss_num_map(p7_a13);
282:
283:
284: -- here's the delegated call to the old PL/SQL routine
285: ozf_offer_adj_tier_pvt.update_offer_adj_tier(p_api_version_number,
286: p_init_msg_list,
287: p_commit,
288: p_validation_level,
289: x_return_status,
326: , p3_a13 NUMBER := 0-1962.0724
327: )
328:
329: as
330: ddp_offadj_tier_rec ozf_offer_adj_tier_pvt.offadj_tier_rec_type;
331: ddindx binary_integer; indx binary_integer;
332: begin
333:
334: -- copy data to the local IN or IN-OUT args, if any
354:
355:
356:
357: -- here's the delegated call to the old PL/SQL routine
358: ozf_offer_adj_tier_pvt.validate_offer_adj_tier(p_api_version_number,
359: p_init_msg_list,
360: p_validation_level,
361: ddp_offadj_tier_rec,
362: p_validation_mode,
392: , p0_a13 NUMBER := 0-1962.0724
393: )
394:
395: as
396: ddp_offadj_tier_rec ozf_offer_adj_tier_pvt.offadj_tier_rec_type;
397: ddindx binary_integer; indx binary_integer;
398: begin
399:
400: -- copy data to the local IN or IN-OUT args, if any
415:
416:
417:
418: -- here's the delegated call to the old PL/SQL routine
419: ozf_offer_adj_tier_pvt.check_offadj_tier_items(ddp_offadj_tier_rec,
420: p_validation_mode,
421: x_return_status);
422:
423: -- copy data back from the local variables to OUT or IN-OUT args, if any
446: , p5_a13 NUMBER := 0-1962.0724
447: )
448:
449: as
450: ddp_offadj_tier_rec ozf_offer_adj_tier_pvt.offadj_tier_rec_type;
451: ddindx binary_integer; indx binary_integer;
452: begin
453:
454: -- copy data to the local IN or IN-OUT args, if any
472: ddp_offadj_tier_rec.last_update_login := rosetta_g_miss_num_map(p5_a12);
473: ddp_offadj_tier_rec.object_version_number := rosetta_g_miss_num_map(p5_a13);
474:
475: -- here's the delegated call to the old PL/SQL routine
476: ozf_offer_adj_tier_pvt.validate_offadj_tier_rec(p_api_version_number,
477: p_init_msg_list,
478: x_return_status,
479: x_msg_count,
480: x_msg_data,
487:
488:
489: end;
490:
491: end ozf_offer_adj_tier_pvt_w;