1: package body ams_setup_attr_pvt_w as
2: /* $Header: amswattb.pls 115.14 2002/12/30 05:31:40 vmodur 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:
50: , p7_a20 NUMBER := 0-1962.0724
51: )
52:
53: as
54: ddp_setup_attr_rec ams_setup_attr_pvt.setup_attr_rec_type;
55: ddindx binary_integer; indx binary_integer;
56: begin
57:
58: -- copy data to the local IN or IN-OUT args, if any
86: ddp_setup_attr_rec.essential_seq_num := rosetta_g_miss_num_map(p7_a20);
87:
88:
89: -- here's the delegated call to the old PL/SQL routine
90: ams_setup_attr_pvt.create_setup_attr(p_api_version,
91: p_init_msg_list,
92: p_commit,
93: p_validation_level,
94: x_return_status,
138: , p7_a20 NUMBER := 0-1962.0724
139: )
140:
141: as
142: ddp_setup_attr_rec ams_setup_attr_pvt.setup_attr_rec_type;
143: ddindx binary_integer; indx binary_integer;
144: begin
145:
146: -- copy data to the local IN or IN-OUT args, if any
173: ddp_setup_attr_rec.related_ak_attribute := p7_a19;
174: ddp_setup_attr_rec.essential_seq_num := rosetta_g_miss_num_map(p7_a20);
175:
176: -- here's the delegated call to the old PL/SQL routine
177: ams_setup_attr_pvt.update_setup_attr(p_api_version,
178: p_init_msg_list,
179: p_commit,
180: p_validation_level,
181: x_return_status,
222: , p6_a20 NUMBER := 0-1962.0724
223: )
224:
225: as
226: ddp_setup_attr_rec ams_setup_attr_pvt.setup_attr_rec_type;
227: ddindx binary_integer; indx binary_integer;
228: begin
229:
230: -- copy data to the local IN or IN-OUT args, if any
256: ddp_setup_attr_rec.related_ak_attribute := p6_a19;
257: ddp_setup_attr_rec.essential_seq_num := rosetta_g_miss_num_map(p6_a20);
258:
259: -- here's the delegated call to the old PL/SQL routine
260: ams_setup_attr_pvt.validate_setup_attr(p_api_version,
261: p_init_msg_list,
262: p_validation_level,
263: x_return_status,
264: x_msg_count,
299: , p2_a20 NUMBER := 0-1962.0724
300: )
301:
302: as
303: ddp_setup_attr_rec ams_setup_attr_pvt.setup_attr_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
329: ddp_setup_attr_rec.related_ak_attribute := p2_a19;
330: ddp_setup_attr_rec.essential_seq_num := rosetta_g_miss_num_map(p2_a20);
331:
332: -- here's the delegated call to the old PL/SQL routine
333: ams_setup_attr_pvt.check_items(p_validation_mode,
334: x_return_status,
335: ddp_setup_attr_rec);
336:
337: -- copy data back from the local variables to OUT or IN-OUT args, if any
364: , p1_a20 NUMBER := 0-1962.0724
365: )
366:
367: as
368: ddp_setup_attr_rec ams_setup_attr_pvt.setup_attr_rec_type;
369: ddindx binary_integer; indx binary_integer;
370: begin
371:
372: -- copy data to the local IN or IN-OUT args, if any
394: ddp_setup_attr_rec.essential_seq_num := rosetta_g_miss_num_map(p1_a20);
395:
396:
397: -- here's the delegated call to the old PL/SQL routine
398: ams_setup_attr_pvt.check_setup_attr_req_items(p_validation_mode,
399: ddp_setup_attr_rec,
400: x_return_status);
401:
402: -- copy data back from the local variables to OUT or IN-OUT args, if any
429: , p1_a20 NUMBER := 0-1962.0724
430: )
431:
432: as
433: ddp_setup_attr_rec ams_setup_attr_pvt.setup_attr_rec_type;
434: ddindx binary_integer; indx binary_integer;
435: begin
436:
437: -- copy data to the local IN or IN-OUT args, if any
459: ddp_setup_attr_rec.essential_seq_num := rosetta_g_miss_num_map(p1_a20);
460:
461:
462: -- here's the delegated call to the old PL/SQL routine
463: ams_setup_attr_pvt.check_setup_attr_uk_items(p_validation_mode,
464: ddp_setup_attr_rec,
465: x_return_status);
466:
467: -- copy data back from the local variables to OUT or IN-OUT args, if any
493: , p0_a20 NUMBER := 0-1962.0724
494: )
495:
496: as
497: ddp_setup_attr_rec ams_setup_attr_pvt.setup_attr_rec_type;
498: ddindx binary_integer; indx binary_integer;
499: begin
500:
501: -- copy data to the local IN or IN-OUT args, if any
522: ddp_setup_attr_rec.essential_seq_num := rosetta_g_miss_num_map(p0_a20);
523:
524:
525: -- here's the delegated call to the old PL/SQL routine
526: ams_setup_attr_pvt.check_setup_attr_fk_items(ddp_setup_attr_rec,
527: x_return_status);
528:
529: -- copy data back from the local variables to OUT or IN-OUT args, if any
530:
554: , p0_a20 NUMBER := 0-1962.0724
555: )
556:
557: as
558: ddp_setup_attr_rec ams_setup_attr_pvt.setup_attr_rec_type;
559: ddindx binary_integer; indx binary_integer;
560: begin
561:
562: -- copy data to the local IN or IN-OUT args, if any
583: ddp_setup_attr_rec.essential_seq_num := rosetta_g_miss_num_map(p0_a20);
584:
585:
586: -- here's the delegated call to the old PL/SQL routine
587: ams_setup_attr_pvt.check_setup_attr_flag_items(ddp_setup_attr_rec,
588: x_return_status);
589:
590: -- copy data back from the local variables to OUT or IN-OUT args, if any
591:
635: , p0_a20 NUMBER := 0-1962.0724
636: )
637:
638: as
639: ddp_setup_attr_rec ams_setup_attr_pvt.setup_attr_rec_type;
640: ddx_complete_rec ams_setup_attr_pvt.setup_attr_rec_type;
641: ddindx binary_integer; indx binary_integer;
642: begin
643:
636: )
637:
638: as
639: ddp_setup_attr_rec ams_setup_attr_pvt.setup_attr_rec_type;
640: ddx_complete_rec ams_setup_attr_pvt.setup_attr_rec_type;
641: ddindx binary_integer; indx binary_integer;
642: begin
643:
644: -- copy data to the local IN or IN-OUT args, if any
665: ddp_setup_attr_rec.essential_seq_num := rosetta_g_miss_num_map(p0_a20);
666:
667:
668: -- here's the delegated call to the old PL/SQL routine
669: ams_setup_attr_pvt.complete_setup_attr_rec(ddp_setup_attr_rec,
670: ddx_complete_rec);
671:
672: -- copy data back from the local variables to OUT or IN-OUT args, if any
673:
717: , p0_a20 OUT NOCOPY NUMBER
718: )
719:
720: as
721: ddx_setup_attr_rec ams_setup_attr_pvt.setup_attr_rec_type;
722: ddindx binary_integer; indx binary_integer;
723: begin
724:
725: -- copy data to the local IN or IN-OUT args, if any
724:
725: -- copy data to the local IN or IN-OUT args, if any
726:
727: -- here's the delegated call to the old PL/SQL routine
728: ams_setup_attr_pvt.init_rec(ddx_setup_attr_rec);
729:
730: -- copy data back from the local variables to OUT or IN-OUT args, if any
731: p0_a0 := rosetta_g_miss_num_map(ddx_setup_attr_rec.setup_attribute_id);
732: p0_a1 := rosetta_g_miss_num_map(ddx_setup_attr_rec.custom_setup_id);
750: p0_a19 := ddx_setup_attr_rec.related_ak_attribute;
751: p0_a20 := rosetta_g_miss_num_map(ddx_setup_attr_rec.essential_seq_num);
752: end;
753:
754: end ams_setup_attr_pvt_w;