[Home] [Help]
1: package body ams_met_tpl_assoc_pvt_w as
2: /* $Header: amswmtab.pls 120.0 2005/05/31 14:18:14 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 ams_met_tpl_assoc_pvt.met_tpl_assoc_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_DATE_TABLE
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_DATE_TABLE
26: , a4 JTF_NUMBER_TABLE
59: end loop;
60: end if;
61: end if;
62: end rosetta_table_copy_in_p3;
63: procedure rosetta_table_copy_out_p3(t ams_met_tpl_assoc_pvt.met_tpl_assoc_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE
64: , a1 OUT NOCOPY JTF_DATE_TABLE
65: , a2 OUT NOCOPY JTF_NUMBER_TABLE
66: , a3 OUT NOCOPY JTF_DATE_TABLE
67: , a4 OUT NOCOPY JTF_NUMBER_TABLE
160: , p7_a10 VARCHAR2 := fnd_api.g_miss_char
161: , p7_a11 VARCHAR2 := fnd_api.g_miss_char
162: )
163: as
164: ddp_met_tpl_assoc_rec ams_met_tpl_assoc_pvt.met_tpl_assoc_rec_type;
165: ddindx binary_integer; indx binary_integer;
166: begin
167:
168: -- copy data to the local IN or IN-OUT args, if any
187: ddp_met_tpl_assoc_rec.enabled_flag := p7_a11;
188:
189:
190: -- here's the delegated call to the old PL/SQL routine
191: ams_met_tpl_assoc_pvt.create_met_tpl_assoc(p_api_version_number,
192: p_init_msg_list,
193: p_commit,
194: p_validation_level,
195: x_return_status,
230: , p7_a10 VARCHAR2 := fnd_api.g_miss_char
231: , p7_a11 VARCHAR2 := fnd_api.g_miss_char
232: )
233: as
234: ddp_met_tpl_assoc_rec ams_met_tpl_assoc_pvt.met_tpl_assoc_rec_type;
235: ddindx binary_integer; indx binary_integer;
236: begin
237:
238: -- copy data to the local IN or IN-OUT args, if any
257: ddp_met_tpl_assoc_rec.enabled_flag := p7_a11;
258:
259:
260: -- here's the delegated call to the old PL/SQL routine
261: ams_met_tpl_assoc_pvt.update_met_tpl_assoc(p_api_version_number,
262: p_init_msg_list,
263: p_commit,
264: p_validation_level,
265: x_return_status,
299: , p3_a10 VARCHAR2 := fnd_api.g_miss_char
300: , p3_a11 VARCHAR2 := fnd_api.g_miss_char
301: )
302: as
303: ddp_met_tpl_assoc_rec ams_met_tpl_assoc_pvt.met_tpl_assoc_rec_type;
304: ddindx binary_integer; indx binary_integer;
305: begin
306:
307: -- copy data to the local IN or IN-OUT args, if any
325:
326:
327:
328: -- here's the delegated call to the old PL/SQL routine
329: ams_met_tpl_assoc_pvt.validate_met_tpl_assoc(p_api_version_number,
330: p_init_msg_list,
331: p_validation_level,
332: ddp_met_tpl_assoc_rec,
333: p_validation_mode,
360: , p0_a10 VARCHAR2 := fnd_api.g_miss_char
361: , p0_a11 VARCHAR2 := fnd_api.g_miss_char
362: )
363: as
364: ddp_met_tpl_assoc_rec ams_met_tpl_assoc_pvt.met_tpl_assoc_rec_type;
365: ddindx binary_integer; indx binary_integer;
366: begin
367:
368: -- copy data to the local IN or IN-OUT args, if any
381:
382:
383:
384: -- here's the delegated call to the old PL/SQL routine
385: ams_met_tpl_assoc_pvt.check_met_tpl_assoc_items(ddp_met_tpl_assoc_rec,
386: p_validation_mode,
387: x_return_status);
388:
389: -- copy data back from the local OUT or IN-OUT args, if any
409: , p5_a10 VARCHAR2 := fnd_api.g_miss_char
410: , p5_a11 VARCHAR2 := fnd_api.g_miss_char
411: )
412: as
413: ddp_met_tpl_assoc_rec ams_met_tpl_assoc_pvt.met_tpl_assoc_rec_type;
414: ddindx binary_integer; indx binary_integer;
415: begin
416:
417: -- copy data to the local IN or IN-OUT args, if any
433: ddp_met_tpl_assoc_rec.used_by_code := p5_a10;
434: ddp_met_tpl_assoc_rec.enabled_flag := p5_a11;
435:
436: -- here's the delegated call to the old PL/SQL routine
437: ams_met_tpl_assoc_pvt.validate_met_tpl_assoc_rec(p_api_version_number,
438: p_init_msg_list,
439: x_return_status,
440: x_msg_count,
441: x_msg_data,
448:
449:
450: end;
451:
452: end ams_met_tpl_assoc_pvt_w;