1: package body cn_srp_pmt_plans_pvt_w as
2: /* $Header: cnwsppab.pls 120.3 2005/09/14 03:43 vensrini noship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy cn_srp_pmt_plans_pvt.payrun_tbl, a0 JTF_VARCHAR2_TABLE_100) as
4: ddindx binary_integer; indx binary_integer;
5: begin
6: if a0 is null then
7: t := null;
23: end loop;
24: end if;
25: end if;
26: end rosetta_table_copy_in_p1;
27: procedure rosetta_table_copy_out_p1(t cn_srp_pmt_plans_pvt.payrun_tbl, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
28: ddindx binary_integer; indx binary_integer;
29: begin
30: if t is null then
31: a0 := null;
29: begin
30: if t is null then
31: a0 := null;
32: elsif t.count = 0 then
33: a0 := JTF_VARCHAR2_TABLE_100();
34: else
35: a0 := JTF_VARCHAR2_TABLE_100();
36: if t.count > 0 then
37: a0.extend(t.count);
31: a0 := null;
32: elsif t.count = 0 then
33: a0 := JTF_VARCHAR2_TABLE_100();
34: else
35: a0 := JTF_VARCHAR2_TABLE_100();
36: if t.count > 0 then
37: a0.extend(t.count);
38: ddindx := t.first;
39: indx := 1;
219: , p_srp_pmt_plan_id NUMBER
220: , p_salesrep_id NUMBER
221: , p_start_date DATE
222: , p_end_date DATE
223: , x_payrun_tbl out nocopy JTF_VARCHAR2_TABLE_100
224: )
225:
226: as
227: ddx_payrun_tbl cn_srp_pmt_plans_pvt.payrun_tbl;