1: package body ams_category_pvt_w as
2: /* $Header: amswctyb.pls 120.1 2005/10/21 03:54 vmodur 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:
62: , p7_a32 NUMBER := 0-1962.0724
63: )
64:
65: as
66: ddp_category_rec ams_category_pvt.category_rec_type;
67: ddindx binary_integer; indx binary_integer;
68: begin
69:
70: -- copy data to the local IN or IN-OUT args, if any
110: ddp_category_rec.ledger_id := rosetta_g_miss_num_map(p7_a32);
111:
112:
113: -- here's the delegated call to the old PL/SQL routine
114: ams_category_pvt.create_category(p_api_version,
115: p_init_msg_list,
116: p_commit,
117: p_validation_level,
118: x_return_status,
174: , p7_a32 NUMBER := 0-1962.0724
175: )
176:
177: as
178: ddp_category_rec ams_category_pvt.category_rec_type;
179: ddindx binary_integer; indx binary_integer;
180: begin
181:
182: -- copy data to the local IN or IN-OUT args, if any
221: ddp_category_rec.budget_code_suffix := p7_a31;
222: ddp_category_rec.ledger_id := rosetta_g_miss_num_map(p7_a32);
223:
224: -- here's the delegated call to the old PL/SQL routine
225: ams_category_pvt.update_category(p_api_version,
226: p_init_msg_list,
227: p_commit,
228: p_validation_level,
229: x_return_status,
309: , p0_a32 NUMBER := 0-1962.0724
310: )
311:
312: as
313: ddp_category_rec ams_category_pvt.category_rec_type;
314: ddx_complete_rec ams_category_pvt.category_rec_type;
315: ddindx binary_integer; indx binary_integer;
316: begin
317:
310: )
311:
312: as
313: ddp_category_rec ams_category_pvt.category_rec_type;
314: ddx_complete_rec ams_category_pvt.category_rec_type;
315: ddindx binary_integer; indx binary_integer;
316: begin
317:
318: -- copy data to the local IN or IN-OUT args, if any
351: ddp_category_rec.ledger_id := rosetta_g_miss_num_map(p0_a32);
352:
353:
354: -- here's the delegated call to the old PL/SQL routine
355: ams_category_pvt.complete_category_rec(ddp_category_rec,
356: ddx_complete_rec);
357:
358: -- copy data back from the local variables to OUT or IN-OUT args, if any
359:
433: , p6_a32 NUMBER := 0-1962.0724
434: )
435:
436: as
437: ddp_category_rec ams_category_pvt.category_rec_type;
438: ddindx binary_integer; indx binary_integer;
439: begin
440:
441: -- copy data to the local IN or IN-OUT args, if any
479: ddp_category_rec.budget_code_suffix := p6_a31;
480: ddp_category_rec.ledger_id := rosetta_g_miss_num_map(p6_a32);
481:
482: -- here's the delegated call to the old PL/SQL routine
483: ams_category_pvt.validate_category(p_api_version,
484: p_init_msg_list,
485: p_validation_level,
486: x_return_status,
487: x_msg_count,
533: , p0_a32 NUMBER := 0-1962.0724
534: )
535:
536: as
537: ddp_category_rec ams_category_pvt.category_rec_type;
538: ddindx binary_integer; indx binary_integer;
539: begin
540:
541: -- copy data to the local IN or IN-OUT args, if any
574: ddp_category_rec.ledger_id := rosetta_g_miss_num_map(p0_a32);
575:
576:
577: -- here's the delegated call to the old PL/SQL routine
578: ams_category_pvt.validate_cty_items(ddp_category_rec,
579: x_return_status);
580:
581: -- copy data back from the local variables to OUT or IN-OUT args, if any
582:
622: , p5_a32 NUMBER := 0-1962.0724
623: )
624:
625: as
626: ddp_category_rec ams_category_pvt.category_rec_type;
627: ddindx binary_integer; indx binary_integer;
628: begin
629:
630: -- copy data to the local IN or IN-OUT args, if any
667: ddp_category_rec.budget_code_suffix := p5_a31;
668: ddp_category_rec.ledger_id := rosetta_g_miss_num_map(p5_a32);
669:
670: -- here's the delegated call to the old PL/SQL routine
671: ams_category_pvt.validate_cty_record(p_api_version,
672: p_init_msg_list,
673: x_return_status,
674: x_msg_count,
675: x_msg_data,
719: , p0_a32 NUMBER := 0-1962.0724
720: )
721:
722: as
723: ddp_category_rec ams_category_pvt.category_rec_type;
724: ddindx binary_integer; indx binary_integer;
725: begin
726:
727: -- copy data to the local IN or IN-OUT args, if any
760: ddp_category_rec.ledger_id := rosetta_g_miss_num_map(p0_a32);
761:
762:
763: -- here's the delegated call to the old PL/SQL routine
764: ams_category_pvt.check_req_cty_items(ddp_category_rec,
765: x_return_status);
766:
767: -- copy data back from the local variables to OUT or IN-OUT args, if any
768:
767: -- copy data back from the local variables to OUT or IN-OUT args, if any
768:
769: end;
770:
771: end ams_category_pvt_w;