[Home] [Help]
1: package body ams_prod_template_pvt_w as
2: /* $Header: amswptmb.pls 115.2 2002/11/15 21:04:26 abhola 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_prod_template_pvt.prod_template_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
57: end loop;
58: end if;
59: end if;
60: end rosetta_table_copy_in_p3;
61: procedure rosetta_table_copy_out_p3(t ams_prod_template_pvt.prod_template_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE
62: , a1 OUT NOCOPY JTF_DATE_TABLE
63: , a2 OUT NOCOPY JTF_NUMBER_TABLE
64: , a3 OUT NOCOPY JTF_DATE_TABLE
65: , a4 OUT NOCOPY JTF_NUMBER_TABLE
152: , p7_a9 VARCHAR2 := fnd_api.g_miss_char
153: , p7_a10 VARCHAR2 := fnd_api.g_miss_char
154: )
155: as
156: ddp_prod_template_rec ams_prod_template_pvt.prod_template_rec_type;
157: ddindx binary_integer; indx binary_integer;
158: begin
159:
160: -- copy data to the local IN or IN-OUT args, if any
178: ddp_prod_template_rec.description := p7_a10;
179:
180:
181: -- here's the delegated call to the old PL/SQL routine
182: ams_prod_template_pvt.create_prod_template(p_api_version_number,
183: p_init_msg_list,
184: p_commit,
185: p_validation_level,
186: x_return_status,
219: , p7_a9 VARCHAR2 := fnd_api.g_miss_char
220: , p7_a10 VARCHAR2 := fnd_api.g_miss_char
221: )
222: as
223: ddp_prod_template_rec ams_prod_template_pvt.prod_template_rec_type;
224: ddindx binary_integer; indx binary_integer;
225: begin
226:
227: -- copy data to the local IN or IN-OUT args, if any
244: ddp_prod_template_rec.template_name := p7_a9;
245: ddp_prod_template_rec.description := p7_a10;
246:
247: -- here's the delegated call to the old PL/SQL routine
248: ams_prod_template_pvt.update_prod_template(p_api_version_number,
249: p_init_msg_list,
250: p_commit,
251: p_validation_level,
252: x_return_status,
283: , p3_a9 VARCHAR2 := fnd_api.g_miss_char
284: , p3_a10 VARCHAR2 := fnd_api.g_miss_char
285: )
286: as
287: ddp_prod_template_rec ams_prod_template_pvt.prod_template_rec_type;
288: ddindx binary_integer; indx binary_integer;
289: begin
290:
291: -- copy data to the local IN or IN-OUT args, if any
308:
309:
310:
311: -- here's the delegated call to the old PL/SQL routine
312: ams_prod_template_pvt.validate_prod_template(p_api_version_number,
313: p_init_msg_list,
314: p_validation_level,
315: ddp_prod_template_rec,
316: p_validation_mode,
342: , p0_a9 VARCHAR2 := fnd_api.g_miss_char
343: , p0_a10 VARCHAR2 := fnd_api.g_miss_char
344: )
345: as
346: ddp_prod_template_rec ams_prod_template_pvt.prod_template_rec_type;
347: ddindx binary_integer; indx binary_integer;
348: begin
349:
350: -- copy data to the local IN or IN-OUT args, if any
362:
363:
364:
365: -- here's the delegated call to the old PL/SQL routine
366: ams_prod_template_pvt.check_prod_template_items(ddp_prod_template_rec,
367: p_validation_mode,
368: x_return_status);
369:
370: -- copy data back from the local OUT or IN-OUT args, if any
389: , p5_a9 VARCHAR2 := fnd_api.g_miss_char
390: , p5_a10 VARCHAR2 := fnd_api.g_miss_char
391: )
392: as
393: ddp_prod_template_rec ams_prod_template_pvt.prod_template_rec_type;
394: ddindx binary_integer; indx binary_integer;
395: begin
396:
397: -- copy data to the local IN or IN-OUT args, if any
412: ddp_prod_template_rec.template_name := p5_a9;
413: ddp_prod_template_rec.description := p5_a10;
414:
415: -- here's the delegated call to the old PL/SQL routine
416: ams_prod_template_pvt.validate_prod_template_rec(p_api_version_number,
417: p_init_msg_list,
418: x_return_status,
419: x_msg_count,
420: x_msg_data,
427:
428:
429: end;
430:
431: end ams_prod_template_pvt_w;