[Home] [Help]
1: package body pv_ge_party_notif_pvt_w as
2: /* $Header: pvxwgpnb.pls 115.4 2002/12/11 12:44:39 rdsharma 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 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_p2(t out nocopy pv_ge_party_notif_pvt.pgp_notif_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_NUMBER_TABLE
61: end loop;
62: end if;
63: end if;
64: end rosetta_table_copy_in_p2;
65: procedure rosetta_table_copy_out_p2(t pv_ge_party_notif_pvt.pgp_notif_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
66: , a1 out nocopy JTF_NUMBER_TABLE
67: , a2 out nocopy JTF_NUMBER_TABLE
68: , a3 out nocopy JTF_NUMBER_TABLE
69: , a4 out nocopy JTF_NUMBER_TABLE
169: , p7_a12 NUMBER := 0-1962.0724
170: )
171:
172: as
173: ddp_pgp_notif_rec pv_ge_party_notif_pvt.pgp_notif_rec_type;
174: ddindx binary_integer; indx binary_integer;
175: begin
176:
177: -- copy data to the local IN or IN-OUT args, if any
197: ddp_pgp_notif_rec.last_update_login := rosetta_g_miss_num_map(p7_a12);
198:
199:
200: -- here's the delegated call to the old PL/SQL routine
201: pv_ge_party_notif_pvt.create_ge_party_notif(p_api_version_number,
202: p_init_msg_list,
203: p_commit,
204: p_validation_level,
205: x_return_status,
241: , p7_a12 NUMBER := 0-1962.0724
242: )
243:
244: as
245: ddp_pgp_notif_rec pv_ge_party_notif_pvt.pgp_notif_rec_type;
246: ddindx binary_integer; indx binary_integer;
247: begin
248:
249: -- copy data to the local IN or IN-OUT args, if any
268: ddp_pgp_notif_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a11);
269: ddp_pgp_notif_rec.last_update_login := rosetta_g_miss_num_map(p7_a12);
270:
271: -- here's the delegated call to the old PL/SQL routine
272: pv_ge_party_notif_pvt.update_ge_party_notif(p_api_version_number,
273: p_init_msg_list,
274: p_commit,
275: p_validation_level,
276: x_return_status,
310: , p3_a12 NUMBER := 0-1962.0724
311: )
312:
313: as
314: ddp_pgp_notif_rec pv_ge_party_notif_pvt.pgp_notif_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
337:
338:
339:
340: -- here's the delegated call to the old PL/SQL routine
341: pv_ge_party_notif_pvt.validate_ge_party_notif(p_api_version_number,
342: p_init_msg_list,
343: p_validation_level,
344: ddp_pgp_notif_rec,
345: p_validation_mode,
374: , p0_a12 NUMBER := 0-1962.0724
375: )
376:
377: as
378: ddp_pgp_notif_rec pv_ge_party_notif_pvt.pgp_notif_rec_type;
379: ddindx binary_integer; indx binary_integer;
380: begin
381:
382: -- copy data to the local IN or IN-OUT args, if any
396:
397:
398:
399: -- here's the delegated call to the old PL/SQL routine
400: pv_ge_party_notif_pvt.check_pgp_notif_items(ddp_pgp_notif_rec,
401: p_validation_mode,
402: x_return_status);
403:
404: -- copy data back from the local variables to OUT or IN-OUT args, if any
426: , p5_a12 NUMBER := 0-1962.0724
427: )
428:
429: as
430: ddp_pgp_notif_rec pv_ge_party_notif_pvt.pgp_notif_rec_type;
431: ddindx binary_integer; indx binary_integer;
432: begin
433:
434: -- copy data to the local IN or IN-OUT args, if any
451: ddp_pgp_notif_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a11);
452: ddp_pgp_notif_rec.last_update_login := rosetta_g_miss_num_map(p5_a12);
453:
454: -- here's the delegated call to the old PL/SQL routine
455: pv_ge_party_notif_pvt.validate_pgp_notif_rec(p_api_version_number,
456: p_init_msg_list,
457: x_return_status,
458: x_msg_count,
459: x_msg_data,
466:
467:
468: end;
469:
470: end pv_ge_party_notif_pvt_w;