[Home] [Help]
1: package body cn_quota_pay_elements_pvt_w as
2: /* $Header: cnwqpeb.pls 115.3 2002/02/05 00:29:09 pkm 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 cn_quota_pay_elements_pvt.quota_pay_element_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_VARCHAR2_TABLE_100
24: , a2 JTF_VARCHAR2_TABLE_100
25: , a3 JTF_DATE_TABLE
26: , a4 JTF_DATE_TABLE
87: end loop;
88: end if;
89: end if;
90: end rosetta_table_copy_in_p2;
91: procedure rosetta_table_copy_out_p2(t cn_quota_pay_elements_pvt.quota_pay_element_tbl_type, a0 out JTF_NUMBER_TABLE
92: , a1 out JTF_VARCHAR2_TABLE_100
93: , a2 out JTF_VARCHAR2_TABLE_100
94: , a3 out JTF_DATE_TABLE
95: , a4 out JTF_DATE_TABLE
236: end if;
237: end if;
238: end rosetta_table_copy_out_p2;
239:
240: procedure rosetta_table_copy_in_p5(t out cn_quota_pay_elements_pvt.quota_pay_element_out_tbl_type, a0 JTF_NUMBER_TABLE
241: , a1 JTF_NUMBER_TABLE
242: , a2 JTF_NUMBER_TABLE
243: , a3 JTF_VARCHAR2_TABLE_100
244: , a4 JTF_DATE_TABLE
273: end loop;
274: end if;
275: end if;
276: end rosetta_table_copy_in_p5;
277: procedure rosetta_table_copy_out_p5(t cn_quota_pay_elements_pvt.quota_pay_element_out_tbl_type, a0 out JTF_NUMBER_TABLE
278: , a1 out JTF_NUMBER_TABLE
279: , a2 out JTF_NUMBER_TABLE
280: , a3 out JTF_VARCHAR2_TABLE_100
281: , a4 out JTF_DATE_TABLE
379: , x_quota_pay_element_id out NUMBER
380: , x_loading_status out VARCHAR2
381: )
382: as
383: ddp_quota_pay_element_rec cn_quota_pay_elements_pvt.quota_pay_element_rec_type;
384: ddindx binary_integer; indx binary_integer;
385: begin
386:
387: -- copy data to the local IN or IN-OUT args, if any
421:
422:
423:
424: -- here's the delegated call to the old PL/SQL routine
425: cn_quota_pay_elements_pvt.create_quota_pay_element(p_api_version,
426: p_init_msg_list,
427: p_commit,
428: p_validation_level,
429: x_return_status,
506: , p8_a25 VARCHAR2
507: , x_loading_status out VARCHAR2
508: )
509: as
510: ddpo_quota_pay_element_rec cn_quota_pay_elements_pvt.quota_pay_element_rec_type;
511: ddp_quota_pay_element_rec cn_quota_pay_elements_pvt.quota_pay_element_rec_type;
512: ddindx binary_integer; indx binary_integer;
513: begin
514:
507: , x_loading_status out VARCHAR2
508: )
509: as
510: ddpo_quota_pay_element_rec cn_quota_pay_elements_pvt.quota_pay_element_rec_type;
511: ddp_quota_pay_element_rec cn_quota_pay_elements_pvt.quota_pay_element_rec_type;
512: ddindx binary_integer; indx binary_integer;
513: begin
514:
515: -- copy data to the local IN or IN-OUT args, if any
575: ddp_quota_pay_element_rec.attribute15 := p8_a25;
576:
577:
578: -- here's the delegated call to the old PL/SQL routine
579: cn_quota_pay_elements_pvt.update_quota_pay_element(p_api_version,
580: p_init_msg_list,
581: p_commit,
582: p_validation_level,
583: x_return_status,
625: , x_status out VARCHAR2
626: , x_loading_status out VARCHAR2
627: )
628: as
629: ddx_quota_pay_element_tbl cn_quota_pay_elements_pvt.quota_pay_element_out_tbl_type;
630: ddindx binary_integer; indx binary_integer;
631: begin
632:
633: -- copy data to the local IN or IN-OUT args, if any
647:
648:
649:
650: -- here's the delegated call to the old PL/SQL routine
651: cn_quota_pay_elements_pvt.get_quota_pay_element(p_api_version,
652: p_init_msg_list,
653: p_commit,
654: p_validation_level,
655: x_return_status,
677:
678:
679:
680:
681: cn_quota_pay_elements_pvt_w.rosetta_table_copy_out_p5(ddx_quota_pay_element_tbl, p12_a0
682: , p12_a1
683: , p12_a2
684: , p12_a3
685: , p12_a4
693:
694:
695: end;
696:
697: end cn_quota_pay_elements_pvt_w;