[Home] [Help]
1: package body ams_met_tpl_dtl_pvt_w as
2: /* $Header: amswmtdb.pls 120.0 2005/05/31 17:45:05 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_dtl_pvt.met_tpl_dtl_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
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_met_tpl_dtl_pvt.met_tpl_dtl_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE
60: , a1 OUT NOCOPY JTF_DATE_TABLE
61: , a2 OUT NOCOPY JTF_NUMBER_TABLE
62: , a3 OUT NOCOPY JTF_DATE_TABLE
63: , a4 OUT NOCOPY JTF_NUMBER_TABLE
144: , p7_a8 NUMBER := 0-1962.0724
145: , p7_a9 VARCHAR2 := fnd_api.g_miss_char
146: )
147: as
148: ddp_met_tpl_dtl_rec ams_met_tpl_dtl_pvt.met_tpl_dtl_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_met_tpl_dtl_rec.enabled_flag := p7_a9;
170:
171:
172: -- here's the delegated call to the old PL/SQL routine
173: ams_met_tpl_dtl_pvt.create_met_tpl_dtl(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 VARCHAR2 := fnd_api.g_miss_char
212: )
213: as
214: ddp_met_tpl_dtl_rec ams_met_tpl_dtl_pvt.met_tpl_dtl_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_met_tpl_dtl_rec.enabled_flag := p7_a9;
236:
237:
238: -- here's the delegated call to the old PL/SQL routine
239: ams_met_tpl_dtl_pvt.update_met_tpl_dtl(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 VARCHAR2 := fnd_api.g_miss_char
277: )
278: as
279: ddp_met_tpl_dtl_rec ams_met_tpl_dtl_pvt.met_tpl_dtl_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_met_tpl_dtl_pvt.validate_met_tpl_dtl(p_api_version_number,
304: p_init_msg_list,
305: p_validation_level,
306: ddp_met_tpl_dtl_rec,
307: p_validation_mode,
332: , p0_a8 NUMBER := 0-1962.0724
333: , p0_a9 VARCHAR2 := fnd_api.g_miss_char
334: )
335: as
336: ddp_met_tpl_dtl_rec ams_met_tpl_dtl_pvt.met_tpl_dtl_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_met_tpl_dtl_pvt.check_met_tpl_dtl_items(ddp_met_tpl_dtl_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 VARCHAR2 := fnd_api.g_miss_char
379: )
380: as
381: ddp_met_tpl_dtl_rec ams_met_tpl_dtl_pvt.met_tpl_dtl_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_met_tpl_dtl_rec.metric_id := rosetta_g_miss_num_map(p5_a8);
400: ddp_met_tpl_dtl_rec.enabled_flag := p5_a9;
401:
402: -- here's the delegated call to the old PL/SQL routine
403: ams_met_tpl_dtl_pvt.validate_met_tpl_dtl_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_met_tpl_dtl_pvt_w;