[Home] [Help]
1: package body ams_rel_item_pvt_w as
2: /* $Header: amswritb.pls 120.1 2005/06/28 16:14 appldev 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:
18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p3(t out nocopy ams_rel_item_pvt.rel_item_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_VARCHAR2_TABLE_100
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_rel_item_pvt.rel_item_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
68: , a1 out nocopy JTF_NUMBER_TABLE
69: , a2 out nocopy JTF_NUMBER_TABLE
70: , a3 out nocopy JTF_NUMBER_TABLE
71: , a4 out nocopy JTF_VARCHAR2_TABLE_100
176: , p7_a13 DATE := fnd_api.g_miss_date
177: )
178:
179: as
180: ddp_rel_item_rec ams_rel_item_pvt.rel_item_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
204: ddp_rel_item_rec.program_id := rosetta_g_miss_num_map(p7_a12);
205: ddp_rel_item_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a13);
206:
207: -- here's the delegated call to the old PL/SQL routine
208: ams_rel_item_pvt.create_rel_item(p_api_version_number,
209: p_init_msg_list,
210: p_commit,
211: p_validation_level,
212: x_return_status,
247: , p7_a13 DATE := fnd_api.g_miss_date
248: )
249:
250: as
251: ddp_rel_item_rec ams_rel_item_pvt.rel_item_rec_type;
252: ddindx binary_integer; indx binary_integer;
253: begin
254:
255: -- copy data to the local IN or IN-OUT args, if any
275: ddp_rel_item_rec.program_id := rosetta_g_miss_num_map(p7_a12);
276: ddp_rel_item_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a13);
277:
278: -- here's the delegated call to the old PL/SQL routine
279: ams_rel_item_pvt.update_rel_item(p_api_version_number,
280: p_init_msg_list,
281: p_commit,
282: p_validation_level,
283: x_return_status,
318: , p7_a13 DATE := fnd_api.g_miss_date
319: )
320:
321: as
322: ddp_rel_item_rec ams_rel_item_pvt.rel_item_rec_type;
323: ddindx binary_integer; indx binary_integer;
324: begin
325:
326: -- copy data to the local IN or IN-OUT args, if any
346: ddp_rel_item_rec.program_id := rosetta_g_miss_num_map(p7_a12);
347: ddp_rel_item_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a13);
348:
349: -- here's the delegated call to the old PL/SQL routine
350: ams_rel_item_pvt.delete_rel_item(p_api_version_number,
351: p_init_msg_list,
352: p_commit,
353: p_validation_level,
354: x_return_status,
387: , p5_a13 DATE := fnd_api.g_miss_date
388: )
389:
390: as
391: ddp_rel_item_rec ams_rel_item_pvt.rel_item_rec_type;
392: ddindx binary_integer; indx binary_integer;
393: begin
394:
395: -- copy data to the local IN or IN-OUT args, if any
413: ddp_rel_item_rec.program_id := rosetta_g_miss_num_map(p5_a12);
414: ddp_rel_item_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a13);
415:
416: -- here's the delegated call to the old PL/SQL routine
417: ams_rel_item_pvt.validate_rel_item_rec(p_api_version_number,
418: p_init_msg_list,
419: x_return_status,
420: x_msg_count,
421: x_msg_data,
451: , p3_a13 DATE := fnd_api.g_miss_date
452: )
453:
454: as
455: ddp_rel_item_rec ams_rel_item_pvt.rel_item_rec_type;
456: ddindx binary_integer; indx binary_integer;
457: begin
458:
459: -- copy data to the local IN or IN-OUT args, if any
478:
479:
480:
481: -- here's the delegated call to the old PL/SQL routine
482: ams_rel_item_pvt.validate_rel_item(p_api_version_number,
483: p_init_msg_list,
484: p_validation_level,
485: ddp_rel_item_rec,
486: x_return_status,
495:
496:
497: end;
498:
499: end ams_rel_item_pvt_w;