1: package body cn_payment_worksheet_pvt_w as
2: /* $Header: cnwwkshb.pls 120.1.12000000.3 2007/05/23 11:30:28 rrshetty ship $ */
3: procedure rosetta_table_copy_in_p4(t out nocopy cn_payment_worksheet_pvt.salesrep_tab_typ, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: ) as
1: package body cn_payment_worksheet_pvt_w as
2: /* $Header: cnwwkshb.pls 120.1.12000000.3 2007/05/23 11:30:28 rrshetty ship $ */
3: procedure rosetta_table_copy_in_p4(t out nocopy cn_payment_worksheet_pvt.salesrep_tab_typ, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: ) as
6: ddindx binary_integer; indx binary_integer;
7: begin
20: end loop;
21: end if;
22: end if;
23: end rosetta_table_copy_in_p4;
24: procedure rosetta_table_copy_out_p4(t cn_payment_worksheet_pvt.salesrep_tab_typ, a0 out nocopy JTF_NUMBER_TABLE
25: , a1 out nocopy JTF_NUMBER_TABLE
26: ) as
27: ddindx binary_integer; indx binary_integer;
28: begin
49: end if;
50: end if;
51: end rosetta_table_copy_out_p4;
52:
53: procedure rosetta_table_copy_in_p7(t out nocopy cn_payment_worksheet_pvt.calc_rec_tbl_type, a0 JTF_NUMBER_TABLE
54: , a1 JTF_NUMBER_TABLE
55: , a2 JTF_NUMBER_TABLE
56: , a3 JTF_NUMBER_TABLE
57: , a4 JTF_NUMBER_TABLE
80: end loop;
81: end if;
82: end if;
83: end rosetta_table_copy_in_p7;
84: procedure rosetta_table_copy_out_p7(t cn_payment_worksheet_pvt.calc_rec_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
85: , a1 out nocopy JTF_NUMBER_TABLE
86: , a2 out nocopy JTF_NUMBER_TABLE
87: , a3 out nocopy JTF_NUMBER_TABLE
88: , a4 out nocopy JTF_NUMBER_TABLE
144: , x_retcode out nocopy NUMBER
145: )
146:
147: as
148: ddp_params cn_payment_worksheet_pvt.conc_params;
149: ddp_salesrep_tbl cn_payment_worksheet_pvt.salesrep_tab_typ;
150: ddindx binary_integer; indx binary_integer;
151: begin
152:
145: )
146:
147: as
148: ddp_params cn_payment_worksheet_pvt.conc_params;
149: ddp_salesrep_tbl cn_payment_worksheet_pvt.salesrep_tab_typ;
150: ddindx binary_integer; indx binary_integer;
151: begin
152:
153: -- copy data to the local IN or IN-OUT args, if any
154:
155: ddp_params.conc_program_name := p1_a0;
156:
157:
158: cn_payment_worksheet_pvt_w.rosetta_table_copy_in_p4(ddp_salesrep_tbl, p3_a0
159: , p3_a1
160: );
161:
162:
161:
162:
163:
164: -- here's the delegated call to the old PL/SQL routine
165: cn_payment_worksheet_pvt.generic_conc_processor(p_payrun_id,
166: ddp_params,
167: p_org_id,
168: ddp_salesrep_tbl,
169: x_errbuf,
193: , x_status out nocopy VARCHAR2
194: )
195:
196: as
197: ddp_worksheet_rec cn_payment_worksheet_pvt.worksheet_rec_type;
198: ddindx binary_integer; indx binary_integer;
199: begin
200:
201: -- copy data to the local IN or IN-OUT args, if any
214:
215:
216:
217: -- here's the delegated call to the old PL/SQL routine
218: cn_payment_worksheet_pvt.create_worksheet(p_api_version,
219: p_init_msg_list,
220: p_commit,
221: p_validation_level,
222: x_return_status,
237:
238:
239: end;
240:
241: end cn_payment_worksheet_pvt_w;