1: package body pv_ge_notif_rules_pvt_w as
2: /* $Header: pvxwgnrb.pls 115.2 2002/11/21 08:55:26 anubhavk 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_notif_rules_pvt.ge_notif_rules_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_VARCHAR2_TABLE_100
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_VARCHAR2_TABLE_100
81: end loop;
82: end if;
83: end if;
84: end rosetta_table_copy_in_p2;
85: procedure rosetta_table_copy_out_p2(t pv_ge_notif_rules_pvt.ge_notif_rules_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
86: , a1 out nocopy JTF_NUMBER_TABLE
87: , a2 out nocopy JTF_VARCHAR2_TABLE_100
88: , a3 out nocopy JTF_NUMBER_TABLE
89: , a4 out nocopy JTF_VARCHAR2_TABLE_100
249: , p7_a22 VARCHAR2 := fnd_api.g_miss_char
250: )
251:
252: as
253: ddp_ge_notif_rules_rec pv_ge_notif_rules_pvt.ge_notif_rules_rec_type;
254: ddindx binary_integer; indx binary_integer;
255: begin
256:
257: -- copy data to the local IN or IN-OUT args, if any
287: ddp_ge_notif_rules_rec.notif_desc := p7_a22;
288:
289:
290: -- here's the delegated call to the old PL/SQL routine
291: pv_ge_notif_rules_pvt.create_ge_notif_rules(p_api_version_number,
292: p_init_msg_list,
293: p_commit,
294: p_validation_level,
295: x_return_status,
341: , p7_a22 VARCHAR2 := fnd_api.g_miss_char
342: )
343:
344: as
345: ddp_ge_notif_rules_rec pv_ge_notif_rules_pvt.ge_notif_rules_rec_type;
346: ddindx binary_integer; indx binary_integer;
347: begin
348:
349: -- copy data to the local IN or IN-OUT args, if any
378: ddp_ge_notif_rules_rec.notif_content := p7_a21;
379: ddp_ge_notif_rules_rec.notif_desc := p7_a22;
380:
381: -- here's the delegated call to the old PL/SQL routine
382: pv_ge_notif_rules_pvt.update_ge_notif_rules(p_api_version_number,
383: p_init_msg_list,
384: p_commit,
385: p_validation_level,
386: x_return_status,
430: , p3_a22 VARCHAR2 := fnd_api.g_miss_char
431: )
432:
433: as
434: ddp_ge_notif_rules_rec pv_ge_notif_rules_pvt.ge_notif_rules_rec_type;
435: ddindx binary_integer; indx binary_integer;
436: begin
437:
438: -- copy data to the local IN or IN-OUT args, if any
467:
468:
469:
470: -- here's the delegated call to the old PL/SQL routine
471: pv_ge_notif_rules_pvt.validate_ge_notif_rules(p_api_version_number,
472: p_init_msg_list,
473: p_validation_level,
474: ddp_ge_notif_rules_rec,
475: p_validation_mode,
514: , p0_a22 VARCHAR2 := fnd_api.g_miss_char
515: )
516:
517: as
518: ddp_ge_notif_rules_rec pv_ge_notif_rules_pvt.ge_notif_rules_rec_type;
519: ddindx binary_integer; indx binary_integer;
520: begin
521:
522: -- copy data to the local IN or IN-OUT args, if any
546:
547:
548:
549: -- here's the delegated call to the old PL/SQL routine
550: pv_ge_notif_rules_pvt.check_ge_notif_rules_items(ddp_ge_notif_rules_rec,
551: p_validation_mode,
552: x_return_status);
553:
554: -- copy data back from the local variables to OUT or IN-OUT args, if any
586: , p5_a22 VARCHAR2 := fnd_api.g_miss_char
587: )
588:
589: as
590: ddp_ge_notif_rules_rec pv_ge_notif_rules_pvt.ge_notif_rules_rec_type;
591: ddindx binary_integer; indx binary_integer;
592: begin
593:
594: -- copy data to the local IN or IN-OUT args, if any
621: ddp_ge_notif_rules_rec.notif_content := p5_a21;
622: ddp_ge_notif_rules_rec.notif_desc := p5_a22;
623:
624: -- here's the delegated call to the old PL/SQL routine
625: pv_ge_notif_rules_pvt.validate_ge_notif_rules_rec(p_api_version_number,
626: p_init_msg_list,
627: x_return_status,
628: x_msg_count,
629: x_msg_data,
636:
637:
638: end;
639:
640: end pv_ge_notif_rules_pvt_w;