[Home] [Help]
1: package body ozf_na_rule_line_pvt_w as
2: /* $Header: ozfwdnlb.pls 120.1 2005/10/26 14:19 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:
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_na_rule_line_pvt.na_rule_line_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_VARCHAR2_TABLE_100
26: , a4 JTF_NUMBER_TABLE
55: end loop;
56: end if;
57: end if;
58: end rosetta_table_copy_in_p2;
59: procedure rosetta_table_copy_out_p2(t ozf_na_rule_line_pvt.na_rule_line_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
60: , a1 out nocopy JTF_NUMBER_TABLE
61: , a2 out nocopy JTF_NUMBER_TABLE
62: , a3 out nocopy JTF_VARCHAR2_TABLE_100
63: , a4 out nocopy JTF_NUMBER_TABLE
145: , p7_a9 NUMBER := 0-1962.0724
146: )
147:
148: as
149: ddp_na_rule_line_rec ozf_na_rule_line_pvt.na_rule_line_rec_type;
150: ddindx binary_integer; indx binary_integer;
151: begin
152:
153: -- copy data to the local IN or IN-OUT args, if any
170: ddp_na_rule_line_rec.last_update_login := rosetta_g_miss_num_map(p7_a9);
171:
172:
173: -- here's the delegated call to the old PL/SQL routine
174: ozf_na_rule_line_pvt.create_na_rule_line(p_api_version_number,
175: p_init_msg_list,
176: p_commit,
177: p_validation_level,
178: x_return_status,
211: , p7_a9 NUMBER := 0-1962.0724
212: )
213:
214: as
215: ddp_na_rule_line_rec ozf_na_rule_line_pvt.na_rule_line_rec_type;
216: ddindx binary_integer; indx binary_integer;
217: begin
218:
219: -- copy data to the local IN or IN-OUT args, if any
235: ddp_na_rule_line_rec.last_updated_by := rosetta_g_miss_num_map(p7_a8);
236: ddp_na_rule_line_rec.last_update_login := rosetta_g_miss_num_map(p7_a9);
237:
238: -- here's the delegated call to the old PL/SQL routine
239: ozf_na_rule_line_pvt.update_na_rule_line(p_api_version_number,
240: p_init_msg_list,
241: p_commit,
242: p_validation_level,
243: x_return_status,
274: , p3_a9 NUMBER := 0-1962.0724
275: )
276:
277: as
278: ddp_na_rule_line_rec ozf_na_rule_line_pvt.na_rule_line_rec_type;
279: ddindx binary_integer; indx binary_integer;
280: begin
281:
282: -- copy data to the local IN or IN-OUT args, if any
298:
299:
300:
301: -- here's the delegated call to the old PL/SQL routine
302: ozf_na_rule_line_pvt.validate_na_rule_line(p_api_version_number,
303: p_init_msg_list,
304: p_validation_level,
305: ddp_na_rule_line_rec,
306: p_validation_mode,
332: , p0_a9 NUMBER := 0-1962.0724
333: )
334:
335: as
336: ddp_na_rule_line_rec ozf_na_rule_line_pvt.na_rule_line_rec_type;
337: ddindx binary_integer; indx binary_integer;
338: begin
339:
340: -- copy data to the local IN or IN-OUT args, if any
351:
352:
353:
354: -- here's the delegated call to the old PL/SQL routine
355: ozf_na_rule_line_pvt.check_na_rule_ln_items(ddp_na_rule_line_rec,
356: p_validation_mode,
357: x_return_status);
358:
359: -- copy data back from the local variables to OUT or IN-OUT args, if any
378: , p5_a9 NUMBER := 0-1962.0724
379: )
380:
381: as
382: ddp_na_rule_line_rec ozf_na_rule_line_pvt.na_rule_line_rec_type;
383: ddindx binary_integer; indx binary_integer;
384: begin
385:
386: -- copy data to the local IN or IN-OUT args, if any
400: ddp_na_rule_line_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
401: ddp_na_rule_line_rec.last_update_login := rosetta_g_miss_num_map(p5_a9);
402:
403: -- here's the delegated call to the old PL/SQL routine
404: ozf_na_rule_line_pvt.validate_na_rule_line_rec(p_api_version_number,
405: p_init_msg_list,
406: x_return_status,
407: x_msg_count,
408: x_msg_data,
415:
416:
417: end;
418:
419: end ozf_na_rule_line_pvt_w;