1: package body ams_listfield_pvt_w as
2: /* $Header: amswlfdb.pls 115.5 2002/11/22 08:57:07 jieli 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:
41: , p7_a12 VARCHAR2 := fnd_api.g_miss_char
42: , p7_a13 VARCHAR2 := fnd_api.g_miss_char
43: )
44: as
45: ddp_listfield_rec ams_listfield_pvt.list_field_rec_type;
46: ddindx binary_integer; indx binary_integer;
47: begin
48:
49: -- copy data to the local IN or IN-OUT args, if any
69: ddp_listfield_rec.list_type_field_apply_on := p7_a12;
70: ddp_listfield_rec.description := p7_a13;
71:
72: -- here's the delegated call to the old PL/SQL routine
73: ams_listfield_pvt.update_listfield(p_api_version,
74: p_init_msg_list,
75: p_commit,
76: p_validation_level,
77: x_return_status,
111: , p7_a12 VARCHAR2 := fnd_api.g_miss_char
112: , p7_a13 VARCHAR2 := fnd_api.g_miss_char
113: )
114: as
115: ddp_listfield_rec ams_listfield_pvt.list_field_rec_type;
116: ddindx binary_integer; indx binary_integer;
117: begin
118:
119: -- copy data to the local IN or IN-OUT args, if any
139: ddp_listfield_rec.list_type_field_apply_on := p7_a12;
140: ddp_listfield_rec.description := p7_a13;
141:
142: -- here's the delegated call to the old PL/SQL routine
143: ams_listfield_pvt.validate_listfield(p_api_version,
144: p_init_msg_list,
145: p_commit,
146: p_validation_level,
147: x_return_status,
176: , p0_a12 VARCHAR2 := fnd_api.g_miss_char
177: , p0_a13 VARCHAR2 := fnd_api.g_miss_char
178: )
179: as
180: ddp_listfield_rec ams_listfield_pvt.list_field_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
199:
200:
201:
202: -- here's the delegated call to the old PL/SQL routine
203: ams_listfield_pvt.check_listfield_items(ddp_listfield_rec,
204: p_validation_mode,
205: x_return_status);
206:
207: -- copy data back from the local OUT or IN-OUT args, if any
239: , p1_a12 VARCHAR2 := fnd_api.g_miss_char
240: , p1_a13 VARCHAR2 := fnd_api.g_miss_char
241: )
242: as
243: ddp_listfield_rec ams_listfield_pvt.list_field_rec_type;
244: ddp_complete_rec ams_listfield_pvt.list_field_rec_type;
245: ddindx binary_integer; indx binary_integer;
246: begin
247:
240: , p1_a13 VARCHAR2 := fnd_api.g_miss_char
241: )
242: as
243: ddp_listfield_rec ams_listfield_pvt.list_field_rec_type;
244: ddp_complete_rec ams_listfield_pvt.list_field_rec_type;
245: ddindx binary_integer; indx binary_integer;
246: begin
247:
248: -- copy data to the local IN or IN-OUT args, if any
277: ddp_complete_rec.description := p1_a13;
278:
279:
280: -- here's the delegated call to the old PL/SQL routine
281: ams_listfield_pvt.check_listfield_record(ddp_listfield_rec,
282: ddp_complete_rec,
283: x_return_status);
284:
285: -- copy data back from the local OUT or IN-OUT args, if any
302: , p0_a12 OUT NOCOPY VARCHAR2
303: , p0_a13 OUT NOCOPY VARCHAR2
304: )
305: as
306: ddx_listfield_rec ams_listfield_pvt.list_field_rec_type;
307: ddindx binary_integer; indx binary_integer;
308: begin
309:
310: -- copy data to the local IN or IN-OUT args, if any
309:
310: -- copy data to the local IN or IN-OUT args, if any
311:
312: -- here's the delegated call to the old PL/SQL routine
313: ams_listfield_pvt.init_listfield_rec(ddx_listfield_rec);
314:
315: -- copy data back from the local OUT or IN-OUT args, if any
316: p0_a0 := rosetta_g_miss_num_map(ddx_listfield_rec.list_field_id);
317: p0_a1 := ddx_listfield_rec.last_update_date;
358: , p0_a12 VARCHAR2 := fnd_api.g_miss_char
359: , p0_a13 VARCHAR2 := fnd_api.g_miss_char
360: )
361: as
362: ddp_listfield_rec ams_listfield_pvt.list_field_rec_type;
363: ddx_complete_rec ams_listfield_pvt.list_field_rec_type;
364: ddindx binary_integer; indx binary_integer;
365: begin
366:
359: , p0_a13 VARCHAR2 := fnd_api.g_miss_char
360: )
361: as
362: ddp_listfield_rec ams_listfield_pvt.list_field_rec_type;
363: ddx_complete_rec ams_listfield_pvt.list_field_rec_type;
364: ddindx binary_integer; indx binary_integer;
365: begin
366:
367: -- copy data to the local IN or IN-OUT args, if any
381: ddp_listfield_rec.description := p0_a13;
382:
383:
384: -- here's the delegated call to the old PL/SQL routine
385: ams_listfield_pvt.complete_listfield_rec(ddp_listfield_rec,
386: ddx_complete_rec);
387:
388: -- copy data back from the local OUT or IN-OUT args, if any
389:
402: p1_a12 := ddx_complete_rec.list_type_field_apply_on;
403: p1_a13 := ddx_complete_rec.description;
404: end;
405:
406: end ams_listfield_pvt_w;