[Home] [Help]
1: package body ams_code_definition_pvt_w as
2: /* $Header: amswcdnb.pls 120.1 2005/06/27 05:42:49 appldev 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 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 ams_code_definition_pvt.code_def_tbl_type, a0 JTF_DATE_TABLE
23: , a1 JTF_DATE_TABLE
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_NUMBER_TABLE
55: end loop;
56: end if;
57: end if;
58: end rosetta_table_copy_in_p3;
59: procedure rosetta_table_copy_out_p3(t ams_code_definition_pvt.code_def_tbl_type, a0 OUT NOCOPY JTF_DATE_TABLE
60: , a1 OUT NOCOPY JTF_DATE_TABLE
61: , a2 OUT NOCOPY JTF_NUMBER_TABLE
62: , a3 OUT NOCOPY JTF_NUMBER_TABLE
63: , a4 OUT NOCOPY JTF_NUMBER_TABLE
144: , p7_a8 NUMBER := 0-1962.0724
145: , p7_a9 NUMBER := 0-1962.0724
146: )
147: as
148: ddp_code_def_rec ams_code_definition_pvt.code_def_rec_type;
149: ddindx binary_integer; indx binary_integer;
150: begin
151:
152: -- copy data to the local IN or IN-OUT args, if any
169: ddp_code_def_rec.object_version_number := rosetta_g_miss_num_map(p7_a9);
170:
171:
172: -- here's the delegated call to the old PL/SQL routine
173: ams_code_definition_pvt.create_code_definition(p_api_version_number,
174: p_init_msg_list,
175: p_commit,
176: p_validation_level,
177: x_return_status,
210: , p7_a8 NUMBER := 0-1962.0724
211: , p7_a9 NUMBER := 0-1962.0724
212: )
213: as
214: ddp_code_def_rec ams_code_definition_pvt.code_def_rec_type;
215: ddindx binary_integer; indx binary_integer;
216: begin
217:
218: -- copy data to the local IN or IN-OUT args, if any
235: ddp_code_def_rec.object_version_number := rosetta_g_miss_num_map(p7_a9);
236:
237:
238: -- here's the delegated call to the old PL/SQL routine
239: ams_code_definition_pvt.update_code_definition(p_api_version_number,
240: p_init_msg_list,
241: p_commit,
242: p_validation_level,
243: x_return_status,
275: , p3_a8 NUMBER := 0-1962.0724
276: , p3_a9 NUMBER := 0-1962.0724
277: )
278: as
279: ddp_code_def_rec ams_code_definition_pvt.code_def_rec_type;
280: ddindx binary_integer; indx binary_integer;
281: begin
282:
283: -- copy data to the local IN or IN-OUT args, if any
299:
300:
301:
302: -- here's the delegated call to the old PL/SQL routine
303: ams_code_definition_pvt.validate_code_definition(p_api_version_number,
304: p_init_msg_list,
305: p_validation_level,
306: ddp_code_def_rec,
307: p_validation_mode,
332: , p0_a8 NUMBER := 0-1962.0724
333: , p0_a9 NUMBER := 0-1962.0724
334: )
335: as
336: ddp_code_def_rec ams_code_definition_pvt.code_def_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: ams_code_definition_pvt.check_code_def_items(ddp_code_def_rec,
356: p_validation_mode,
357: x_return_status);
358:
359: -- copy data back from the local OUT or IN-OUT args, if any
377: , p5_a8 NUMBER := 0-1962.0724
378: , p5_a9 NUMBER := 0-1962.0724
379: )
380: as
381: ddp_code_def_rec ams_code_definition_pvt.code_def_rec_type;
382: ddindx binary_integer; indx binary_integer;
383: begin
384:
385: -- copy data to the local IN or IN-OUT args, if any
399: ddp_code_def_rec.code_definition_id := rosetta_g_miss_num_map(p5_a8);
400: ddp_code_def_rec.object_version_number := rosetta_g_miss_num_map(p5_a9);
401:
402: -- here's the delegated call to the old PL/SQL routine
403: ams_code_definition_pvt.validate_code_def_rec(p_api_version_number,
404: p_init_msg_list,
405: x_return_status,
406: x_msg_count,
407: x_msg_data,
414:
415:
416: end;
417:
418: end ams_code_definition_pvt_w;