1: package body okl_payment_pvt_w as
2: /* $Header: OKLEPAYB.pls 120.1 2007/10/11 16:16:12 asawanka noship $ */
3: procedure rosetta_table_copy_in_p18(t out nocopy okl_payment_pvt.payment_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_NUMBER_TABLE
1: package body okl_payment_pvt_w as
2: /* $Header: OKLEPAYB.pls 120.1 2007/10/11 16:16:12 asawanka noship $ */
3: procedure rosetta_table_copy_in_p18(t out nocopy okl_payment_pvt.payment_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_NUMBER_TABLE
6: , a3 JTF_NUMBER_TABLE
7: ) as
24: end loop;
25: end if;
26: end if;
27: end rosetta_table_copy_in_p18;
28: procedure rosetta_table_copy_out_p18(t okl_payment_pvt.payment_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
29: , a1 out nocopy JTF_NUMBER_TABLE
30: , a2 out nocopy JTF_NUMBER_TABLE
31: , a3 out nocopy JTF_NUMBER_TABLE
32: ) as
94: , x_cash_receipt_id out nocopy NUMBER
95: )
96:
97: as
98: ddp_receipt_rec okl_payment_pvt.receipt_rec_type;
99: ddp_payment_tbl okl_payment_pvt.payment_tbl_type;
100: ddindx binary_integer; indx binary_integer;
101: begin
102:
95: )
96:
97: as
98: ddp_receipt_rec okl_payment_pvt.receipt_rec_type;
99: ddp_payment_tbl okl_payment_pvt.payment_tbl_type;
100: ddindx binary_integer; indx binary_integer;
101: begin
102:
103: -- copy data to the local IN or IN-OUT args, if any
123: ddp_receipt_rec.customer_site_use_id := p7_a12;
124: ddp_receipt_rec.expiration_date := p7_a13;
125: ddp_receipt_rec.payment_trxn_extension_id := p7_a14;
126:
127: okl_payment_pvt_w.rosetta_table_copy_in_p18(ddp_payment_tbl, p8_a0
128: , p8_a1
129: , p8_a2
130: , p8_a3
131: );
132:
133:
134:
135: -- here's the delegated call to the old PL/SQL routine
136: okl_payment_pvt.create_payments(p_api_version,
137: p_init_msg_list,
138: p_commit,
139: p_validation_level,
140: x_return_status,
157:
158:
159: end;
160:
161: end okl_payment_pvt_w;