1: package body ams_metric_template_pvt_w as
2: /* $Header: amswmthb.pls 115.4 2003/10/12 09:59:58 sunkumar 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 n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p3(t out nocopy ams_metric_template_pvt.metric_tpl_header_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
65: end loop;
66: end if;
67: end if;
68: end rosetta_table_copy_in_p3;
69: procedure rosetta_table_copy_out_p3(t ams_metric_template_pvt.metric_tpl_header_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
70: , a1 out nocopy JTF_DATE_TABLE
71: , a2 out nocopy JTF_NUMBER_TABLE
72: , a3 out nocopy JTF_DATE_TABLE
73: , a4 out nocopy JTF_NUMBER_TABLE
185: , p7_a14 VARCHAR2 := fnd_api.g_miss_char
186: )
187:
188: as
189: ddp_metric_tpl_header_rec ams_metric_template_pvt.metric_tpl_header_rec_type;
190: ddindx binary_integer; indx binary_integer;
191: begin
192:
193: -- copy data to the local IN or IN-OUT args, if any
215: ddp_metric_tpl_header_rec.used_by_code := p7_a14;
216:
217:
218: -- here's the delegated call to the old PL/SQL routine
219: ams_metric_template_pvt.create_metric_template(p_api_version_number,
220: p_init_msg_list,
221: p_commit,
222: p_validation_level,
223: x_return_status,
262: , p7_a14 VARCHAR2 := fnd_api.g_miss_char
263: )
264:
265: as
266: ddp_metric_tpl_header_rec ams_metric_template_pvt.metric_tpl_header_rec_type;
267: ddindx binary_integer; indx binary_integer;
268: begin
269:
270: -- copy data to the local IN or IN-OUT args, if any
292: ddp_metric_tpl_header_rec.used_by_code := p7_a14;
293:
294:
295: -- here's the delegated call to the old PL/SQL routine
296: ams_metric_template_pvt.update_metric_template(p_api_version_number,
297: p_init_msg_list,
298: p_commit,
299: p_validation_level,
300: x_return_status,
338: , p3_a14 VARCHAR2 := fnd_api.g_miss_char
339: )
340:
341: as
342: ddp_metric_tpl_header_rec ams_metric_template_pvt.metric_tpl_header_rec_type;
343: ddindx binary_integer; indx binary_integer;
344: begin
345:
346: -- copy data to the local IN or IN-OUT args, if any
367:
368:
369:
370: -- here's the delegated call to the old PL/SQL routine
371: ams_metric_template_pvt.validate_metric_template(p_api_version_number,
372: p_init_msg_list,
373: p_validation_level,
374: ddp_metric_tpl_header_rec,
375: p_validation_mode,
406: , p0_a14 VARCHAR2 := fnd_api.g_miss_char
407: )
408:
409: as
410: ddp_metric_tpl_header_rec ams_metric_template_pvt.metric_tpl_header_rec_type;
411: ddindx binary_integer; indx binary_integer;
412: begin
413:
414: -- copy data to the local IN or IN-OUT args, if any
430:
431:
432:
433: -- here's the delegated call to the old PL/SQL routine
434: ams_metric_template_pvt.check_met_tpl_hdr_items(ddp_metric_tpl_header_rec,
435: p_validation_mode,
436: x_return_status);
437:
438: -- copy data back from the local variables to OUT or IN-OUT args, if any
462: , p5_a14 VARCHAR2 := fnd_api.g_miss_char
463: )
464:
465: as
466: ddp_metric_tpl_header_rec ams_metric_template_pvt.metric_tpl_header_rec_type;
467: ddindx binary_integer; indx binary_integer;
468: begin
469:
470: -- copy data to the local IN or IN-OUT args, if any
489: ddp_metric_tpl_header_rec.used_by_id := rosetta_g_miss_num_map(p5_a13);
490: ddp_metric_tpl_header_rec.used_by_code := p5_a14;
491:
492: -- here's the delegated call to the old PL/SQL routine
493: ams_metric_template_pvt.validate_met_tpl_hdr_rec(p_api_version_number,
494: p_init_msg_list,
495: x_return_status,
496: x_msg_count,
497: x_msg_data,
504:
505:
506: end;
507:
508: end ams_metric_template_pvt_w;