[Home] [Help]
1: package body ams_metric_formula_pvt_w as
2: /* $Header: amswmtfb.pls 115.3 2003/10/08 16:02:32 dmvincen 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 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_formula_pvt.met_formula_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
67: end loop;
68: end if;
69: end if;
70: end rosetta_table_copy_in_p3;
71: procedure rosetta_table_copy_out_p3(t ams_metric_formula_pvt.met_formula_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
72: , a1 out nocopy JTF_DATE_TABLE
73: , a2 out nocopy JTF_NUMBER_TABLE
74: , a3 out nocopy JTF_DATE_TABLE
75: , a4 out nocopy JTF_NUMBER_TABLE
193: , p7_a15 NUMBER := 0-1962.0724
194: )
195:
196: as
197: ddp_met_formula_rec ams_metric_formula_pvt.met_formula_rec_type;
198: ddindx binary_integer; indx binary_integer;
199: begin
200:
201: -- copy data to the local IN or IN-OUT args, if any
224: ddp_met_formula_rec.sequence := rosetta_g_miss_num_map(p7_a15);
225:
226:
227: -- here's the delegated call to the old PL/SQL routine
228: ams_metric_formula_pvt.create_metric_formula(p_api_version_number,
229: p_init_msg_list,
230: p_commit,
231: p_validation_level,
232: x_return_status,
272: , p7_a15 NUMBER := 0-1962.0724
273: )
274:
275: as
276: ddp_met_formula_rec ams_metric_formula_pvt.met_formula_rec_type;
277: ddindx binary_integer; indx binary_integer;
278: begin
279:
280: -- copy data to the local IN or IN-OUT args, if any
303: ddp_met_formula_rec.sequence := rosetta_g_miss_num_map(p7_a15);
304:
305:
306: -- here's the delegated call to the old PL/SQL routine
307: ams_metric_formula_pvt.update_metric_formula(p_api_version_number,
308: p_init_msg_list,
309: p_commit,
310: p_validation_level,
311: x_return_status,
350: , p3_a15 NUMBER := 0-1962.0724
351: )
352:
353: as
354: ddp_metric_formula_rec ams_metric_formula_pvt.met_formula_rec_type;
355: ddindx binary_integer; indx binary_integer;
356: begin
357:
358: -- copy data to the local IN or IN-OUT args, if any
380:
381:
382:
383: -- here's the delegated call to the old PL/SQL routine
384: ams_metric_formula_pvt.validate_metric_formula(p_api_version_number,
385: p_init_msg_list,
386: p_validation_level,
387: ddp_metric_formula_rec,
388: p_validation_mode,
420: , p0_a15 NUMBER := 0-1962.0724
421: )
422:
423: as
424: ddp_metric_formula_rec ams_metric_formula_pvt.met_formula_rec_type;
425: ddindx binary_integer; indx binary_integer;
426: begin
427:
428: -- copy data to the local IN or IN-OUT args, if any
445:
446:
447:
448: -- here's the delegated call to the old PL/SQL routine
449: ams_metric_formula_pvt.check_metric_formula_items(ddp_metric_formula_rec,
450: p_validation_mode,
451: x_return_status);
452:
453: -- copy data back from the local variables to OUT or IN-OUT args, if any
478: , p5_a15 NUMBER := 0-1962.0724
479: )
480:
481: as
482: ddp_metric_formula_rec ams_metric_formula_pvt.met_formula_rec_type;
483: ddindx binary_integer; indx binary_integer;
484: begin
485:
486: -- copy data to the local IN or IN-OUT args, if any
506: ddp_metric_formula_rec.use_sub_id_flag := p5_a14;
507: ddp_metric_formula_rec.sequence := rosetta_g_miss_num_map(p5_a15);
508:
509: -- here's the delegated call to the old PL/SQL routine
510: ams_metric_formula_pvt.validate_metric_formula_rec(p_api_version_number,
511: p_init_msg_list,
512: x_return_status,
513: x_msg_count,
514: x_msg_data,
521:
522:
523: end;
524:
525: end ams_metric_formula_pvt_w;