1: package body ams_ps_strats_pvt_w as
2: /* $Header: amswstrb.pls 120.0 2005/05/31 18:31:10 appldev 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 d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19: return d;
20: end;
21:
22: procedure rosetta_table_copy_in_p3(t OUT NOCOPY ams_ps_strats_pvt.ps_strats_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
63: end loop;
64: end if;
65: end if;
66: end rosetta_table_copy_in_p3;
67: procedure rosetta_table_copy_out_p3(t ams_ps_strats_pvt.ps_strats_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE
68: , a1 OUT NOCOPY JTF_DATE_TABLE
69: , a2 OUT NOCOPY JTF_NUMBER_TABLE
70: , a3 OUT NOCOPY JTF_DATE_TABLE
71: , a4 OUT NOCOPY JTF_NUMBER_TABLE
176: , p7_a12 VARCHAR2 := fnd_api.g_miss_char
177: , p7_a13 VARCHAR2 := fnd_api.g_miss_char
178: )
179: as
180: ddp_ps_strats_rec ams_ps_strats_pvt.ps_strats_rec_type;
181: ddindx binary_integer; indx binary_integer;
182: begin
183:
184: -- copy data to the local IN or IN-OUT args, if any
205: ddp_ps_strats_rec.strategy_description := p7_a13;
206:
207:
208: -- here's the delegated call to the old PL/SQL routine
209: ams_ps_strats_pvt.create_ps_strats(p_api_version_number,
210: p_init_msg_list,
211: p_commit,
212: p_validation_level,
213: x_return_status,
250: , p7_a12 VARCHAR2 := fnd_api.g_miss_char
251: , p7_a13 VARCHAR2 := fnd_api.g_miss_char
252: )
253: as
254: ddp_ps_strats_rec ams_ps_strats_pvt.ps_strats_rec_type;
255: ddindx binary_integer; indx binary_integer;
256: begin
257:
258: -- copy data to the local IN or IN-OUT args, if any
279: ddp_ps_strats_rec.strategy_description := p7_a13;
280:
281:
282: -- here's the delegated call to the old PL/SQL routine
283: ams_ps_strats_pvt.update_ps_strats(p_api_version_number,
284: p_init_msg_list,
285: p_commit,
286: p_validation_level,
287: x_return_status,
325: , p7_a12 VARCHAR2 := fnd_api.g_miss_char
326: , p7_a13 VARCHAR2 := fnd_api.g_miss_char
327: )
328: as
329: ddp_ps_strats_rec ams_ps_strats_pvt.ps_strats_rec_type;
330: ddindx binary_integer; indx binary_integer;
331: begin
332:
333: -- copy data to the local IN or IN-OUT args, if any
355:
356:
357:
358: -- here's the delegated call to the old PL/SQL routine
359: ams_ps_strats_pvt.update_ps_strats_seg(p_api_version_number,
360: p_init_msg_list,
361: p_commit,
362: p_validation_level,
363: x_return_status,
400: , p3_a12 VARCHAR2 := fnd_api.g_miss_char
401: , p3_a13 VARCHAR2 := fnd_api.g_miss_char
402: )
403: as
404: ddp_ps_strats_rec ams_ps_strats_pvt.ps_strats_rec_type;
405: ddindx binary_integer; indx binary_integer;
406: begin
407:
408: -- copy data to the local IN or IN-OUT args, if any
427:
428:
429:
430: -- here's the delegated call to the old PL/SQL routine
431: ams_ps_strats_pvt.validate_ps_strats(p_api_version_number,
432: p_init_msg_list,
433: p_validation_level,
434: ddp_ps_strats_rec,
435: x_return_status,
462: , p0_a12 VARCHAR2 := fnd_api.g_miss_char
463: , p0_a13 VARCHAR2 := fnd_api.g_miss_char
464: )
465: as
466: ddp_ps_strats_rec ams_ps_strats_pvt.ps_strats_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
485:
486:
487:
488: -- here's the delegated call to the old PL/SQL routine
489: ams_ps_strats_pvt.check_ps_strats_items(ddp_ps_strats_rec,
490: p_validation_mode,
491: x_return_status);
492:
493: -- copy data back from the local OUT or IN-OUT args, if any
515: , p5_a12 VARCHAR2 := fnd_api.g_miss_char
516: , p5_a13 VARCHAR2 := fnd_api.g_miss_char
517: )
518: as
519: ddp_ps_strats_rec ams_ps_strats_pvt.ps_strats_rec_type;
520: ddindx binary_integer; indx binary_integer;
521: begin
522:
523: -- copy data to the local IN or IN-OUT args, if any
541: ddp_ps_strats_rec.strategy_name := p5_a12;
542: ddp_ps_strats_rec.strategy_description := p5_a13;
543:
544: -- here's the delegated call to the old PL/SQL routine
545: ams_ps_strats_pvt.validate_ps_strats_rec(p_api_version_number,
546: p_init_msg_list,
547: x_return_status,
548: x_msg_count,
549: x_msg_data,
556:
557:
558: end;
559:
560: end ams_ps_strats_pvt_w;