1: package body ams_formula_pvt_w as
2: /* $Header: amswfmlb.pls 115.4 2002/11/22 00:44:57 yzhao 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:
40: , p7_a10 VARCHAR2 := fnd_api.g_miss_char
41: )
42:
43: as
44: ddp_formula_rec ams_formula_pvt.ams_formula_rec_type;
45: ddindx binary_integer; indx binary_integer;
46: begin
47:
48: -- copy data to the local IN or IN-OUT args, if any
66: ddp_formula_rec.formula_type := p7_a10;
67:
68:
69: -- here's the delegated call to the old PL/SQL routine
70: ams_formula_pvt.create_formula(p_api_version,
71: p_init_msg_list,
72: p_commit,
73: p_validation_level,
74: x_return_status,
108: , p7_a10 VARCHAR2 := fnd_api.g_miss_char
109: )
110:
111: as
112: ddp_formula_rec ams_formula_pvt.ams_formula_rec_type;
113: ddindx binary_integer; indx binary_integer;
114: begin
115:
116: -- copy data to the local IN or IN-OUT args, if any
133: ddp_formula_rec.object_version_number := rosetta_g_miss_num_map(p7_a9);
134: ddp_formula_rec.formula_type := p7_a10;
135:
136: -- here's the delegated call to the old PL/SQL routine
137: ams_formula_pvt.update_formula(p_api_version,
138: p_init_msg_list,
139: p_commit,
140: p_validation_level,
141: x_return_status,
172: , p6_a10 VARCHAR2 := fnd_api.g_miss_char
173: )
174:
175: as
176: ddp_formula_rec ams_formula_pvt.ams_formula_rec_type;
177: ddindx binary_integer; indx binary_integer;
178: begin
179:
180: -- copy data to the local IN or IN-OUT args, if any
196: ddp_formula_rec.object_version_number := rosetta_g_miss_num_map(p6_a9);
197: ddp_formula_rec.formula_type := p6_a10;
198:
199: -- here's the delegated call to the old PL/SQL routine
200: ams_formula_pvt.validate_formula(p_api_version,
201: p_init_msg_list,
202: p_validation_level,
203: x_return_status,
204: x_msg_count,
229: , p0_a10 VARCHAR2 := fnd_api.g_miss_char
230: )
231:
232: as
233: ddp_formula_rec ams_formula_pvt.ams_formula_rec_type;
234: ddindx binary_integer; indx binary_integer;
235: begin
236:
237: -- copy data to the local IN or IN-OUT args, if any
249:
250:
251:
252: -- here's the delegated call to the old PL/SQL routine
253: ams_formula_pvt.validate_formula_items(ddp_formula_rec,
254: p_validation_mode,
255: x_return_status);
256:
257: -- copy data back from the local variables to OUT or IN-OUT args, if any
284: , p1_a10 VARCHAR2 := fnd_api.g_miss_char
285: )
286:
287: as
288: ddp_formula_rec ams_formula_pvt.ams_formula_rec_type;
289: ddp_complete_formula_rec ams_formula_pvt.ams_formula_rec_type;
290: ddindx binary_integer; indx binary_integer;
291: begin
292:
285: )
286:
287: as
288: ddp_formula_rec ams_formula_pvt.ams_formula_rec_type;
289: ddp_complete_formula_rec ams_formula_pvt.ams_formula_rec_type;
290: ddindx binary_integer; indx binary_integer;
291: begin
292:
293: -- copy data to the local IN or IN-OUT args, if any
316: ddp_complete_formula_rec.formula_type := p1_a10;
317:
318:
319: -- here's the delegated call to the old PL/SQL routine
320: ams_formula_pvt.validate_formula_rec(ddp_formula_rec,
321: ddp_complete_formula_rec,
322: x_return_status);
323:
324: -- copy data back from the local variables to OUT or IN-OUT args, if any
350: , p0_a10 VARCHAR2 := fnd_api.g_miss_char
351: )
352:
353: as
354: ddp_formula_rec ams_formula_pvt.ams_formula_rec_type;
355: ddx_complete_formula_rec ams_formula_pvt.ams_formula_rec_type;
356: ddindx binary_integer; indx binary_integer;
357: begin
358:
351: )
352:
353: as
354: ddp_formula_rec ams_formula_pvt.ams_formula_rec_type;
355: ddx_complete_formula_rec ams_formula_pvt.ams_formula_rec_type;
356: ddindx binary_integer; indx binary_integer;
357: begin
358:
359: -- copy data to the local IN or IN-OUT args, if any
370: ddp_formula_rec.formula_type := p0_a10;
371:
372:
373: -- here's the delegated call to the old PL/SQL routine
374: ams_formula_pvt.complete_formula_rec(ddp_formula_rec,
375: ddx_complete_formula_rec);
376:
377: -- copy data back from the local variables to OUT or IN-OUT args, if any
378:
412: , p7_a12 NUMBER := 0-1962.0724
413: )
414:
415: as
416: ddp_formula_entry_rec ams_formula_pvt.ams_formula_entry_rec_type;
417: ddindx binary_integer; indx binary_integer;
418: begin
419:
420: -- copy data to the local IN or IN-OUT args, if any
440: ddp_formula_entry_rec.object_version_number := rosetta_g_miss_num_map(p7_a12);
441:
442:
443: -- here's the delegated call to the old PL/SQL routine
444: ams_formula_pvt.create_formula_entry(p_api_version,
445: p_init_msg_list,
446: p_commit,
447: p_validation_level,
448: x_return_status,
484: , p7_a12 NUMBER := 0-1962.0724
485: )
486:
487: as
488: ddp_formula_entry_rec ams_formula_pvt.ams_formula_entry_rec_type;
489: ddindx binary_integer; indx binary_integer;
490: begin
491:
492: -- copy data to the local IN or IN-OUT args, if any
511: ddp_formula_entry_rec.last_update_login := rosetta_g_miss_num_map(p7_a11);
512: ddp_formula_entry_rec.object_version_number := rosetta_g_miss_num_map(p7_a12);
513:
514: -- here's the delegated call to the old PL/SQL routine
515: ams_formula_pvt.update_formula_entry(p_api_version,
516: p_init_msg_list,
517: p_commit,
518: p_validation_level,
519: x_return_status,
552: , p6_a12 NUMBER := 0-1962.0724
553: )
554:
555: as
556: ddp_formula_entry_rec ams_formula_pvt.ams_formula_entry_rec_type;
557: ddindx binary_integer; indx binary_integer;
558: begin
559:
560: -- copy data to the local IN or IN-OUT args, if any
578: ddp_formula_entry_rec.last_update_login := rosetta_g_miss_num_map(p6_a11);
579: ddp_formula_entry_rec.object_version_number := rosetta_g_miss_num_map(p6_a12);
580:
581: -- here's the delegated call to the old PL/SQL routine
582: ams_formula_pvt.validate_formula_entry(p_api_version,
583: p_init_msg_list,
584: p_validation_level,
585: x_return_status,
586: x_msg_count,
613: , p0_a12 NUMBER := 0-1962.0724
614: )
615:
616: as
617: ddp_formula_entry_rec ams_formula_pvt.ams_formula_entry_rec_type;
618: ddindx binary_integer; indx binary_integer;
619: begin
620:
621: -- copy data to the local IN or IN-OUT args, if any
635:
636:
637:
638: -- here's the delegated call to the old PL/SQL routine
639: ams_formula_pvt.validate_form_ent_items(ddp_formula_entry_rec,
640: p_validation_mode,
641: x_return_status);
642:
643: -- copy data back from the local variables to OUT or IN-OUT args, if any
674: , p1_a12 NUMBER := 0-1962.0724
675: )
676:
677: as
678: ddp_formula_entry_rec ams_formula_pvt.ams_formula_entry_rec_type;
679: ddp_complete_formula_entry_rec ams_formula_pvt.ams_formula_entry_rec_type;
680: ddindx binary_integer; indx binary_integer;
681: begin
682:
675: )
676:
677: as
678: ddp_formula_entry_rec ams_formula_pvt.ams_formula_entry_rec_type;
679: ddp_complete_formula_entry_rec ams_formula_pvt.ams_formula_entry_rec_type;
680: ddindx binary_integer; indx binary_integer;
681: begin
682:
683: -- copy data to the local IN or IN-OUT args, if any
710: ddp_complete_formula_entry_rec.object_version_number := rosetta_g_miss_num_map(p1_a12);
711:
712:
713: -- here's the delegated call to the old PL/SQL routine
714: ams_formula_pvt.validate_form_ent_rec(ddp_formula_entry_rec,
715: ddp_complete_formula_entry_rec,
716: x_return_status);
717:
718: -- copy data back from the local variables to OUT or IN-OUT args, if any
748: , p0_a12 NUMBER := 0-1962.0724
749: )
750:
751: as
752: ddp_formula_entry_rec ams_formula_pvt.ams_formula_entry_rec_type;
753: ddx_complete_formula_entry_rec ams_formula_pvt.ams_formula_entry_rec_type;
754: ddindx binary_integer; indx binary_integer;
755: begin
756:
749: )
750:
751: as
752: ddp_formula_entry_rec ams_formula_pvt.ams_formula_entry_rec_type;
753: ddx_complete_formula_entry_rec ams_formula_pvt.ams_formula_entry_rec_type;
754: ddindx binary_integer; indx binary_integer;
755: begin
756:
757: -- copy data to the local IN or IN-OUT args, if any
770: ddp_formula_entry_rec.object_version_number := rosetta_g_miss_num_map(p0_a12);
771:
772:
773: -- here's the delegated call to the old PL/SQL routine
774: ams_formula_pvt.complete_form_ent_rec(ddp_formula_entry_rec,
775: ddx_complete_formula_entry_rec);
776:
777: -- copy data back from the local variables to OUT or IN-OUT args, if any
778:
790: p1_a11 := rosetta_g_miss_num_map(ddx_complete_formula_entry_rec.last_update_login);
791: p1_a12 := rosetta_g_miss_num_map(ddx_complete_formula_entry_rec.object_version_number);
792: end;
793:
794: end ams_formula_pvt_w;