[Home] [Help]
PACKAGE BODY: APPS.OKL_PAYMENT_PVT_W
Source
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
8 ddindx binary_integer; indx binary_integer;
9 begin
10 if a0 is not null and a0.count > 0 then
11 if a0.count > 0 then
12 indx := a0.first;
13 ddindx := 1;
14 while true loop
15 t(ddindx).con_inv_id := a0(indx);
16 t(ddindx).ar_inv_id := a1(indx);
17 t(ddindx).line_id := a2(indx);
18 t(ddindx).amount := a3(indx);
19 ddindx := ddindx+1;
20 if a0.last =indx
21 then exit;
22 end if;
23 indx := a0.next(indx);
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
33 ddindx binary_integer; indx binary_integer;
34 begin
35 if t is null or t.count = 0 then
36 a0 := JTF_NUMBER_TABLE();
37 a1 := JTF_NUMBER_TABLE();
38 a2 := JTF_NUMBER_TABLE();
39 a3 := JTF_NUMBER_TABLE();
40 else
41 a0 := JTF_NUMBER_TABLE();
42 a1 := JTF_NUMBER_TABLE();
43 a2 := JTF_NUMBER_TABLE();
44 a3 := JTF_NUMBER_TABLE();
45 if t.count > 0 then
46 a0.extend(t.count);
47 a1.extend(t.count);
48 a2.extend(t.count);
49 a3.extend(t.count);
50 ddindx := t.first;
51 indx := 1;
52 while true loop
53 a0(indx) := t(ddindx).con_inv_id;
54 a1(indx) := t(ddindx).ar_inv_id;
55 a2(indx) := t(ddindx).line_id;
56 a3(indx) := t(ddindx).amount;
57 indx := indx+1;
58 if t.last =ddindx
59 then exit;
60 end if;
61 ddindx := t.next(ddindx);
62 end loop;
63 end if;
64 end if;
65 end rosetta_table_copy_out_p18;
66
67 procedure create_payments(p_api_version NUMBER
68 , p_init_msg_list VARCHAR2
69 , p_commit VARCHAR2
70 , p_validation_level NUMBER
71 , x_return_status out nocopy VARCHAR2
72 , x_msg_count out nocopy NUMBER
73 , x_msg_data out nocopy VARCHAR2
74 , p7_a0 VARCHAR2
75 , p7_a1 VARCHAR2
76 , p7_a2 DATE
77 , p7_a3 NUMBER
78 , p7_a4 NUMBER
79 , p7_a5 NUMBER
80 , p7_a6 NUMBER
81 , p7_a7 VARCHAR2
82 , p7_a8 NUMBER
83 , p7_a9 VARCHAR2
84 , p7_a10 DATE
85 , p7_a11 DATE
86 , p7_a12 NUMBER
87 , p7_a13 DATE
88 , p7_a14 NUMBER
89 , p8_a0 JTF_NUMBER_TABLE
90 , p8_a1 JTF_NUMBER_TABLE
91 , p8_a2 JTF_NUMBER_TABLE
92 , p8_a3 JTF_NUMBER_TABLE
93 , x_payment_ref_number out nocopy VARCHAR2
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
103 -- copy data to the local IN or IN-OUT args, if any
104
105
106
107
108
109
110
111 ddp_receipt_rec.currency_code := p7_a0;
112 ddp_receipt_rec.currency_conv_type := p7_a1;
113 ddp_receipt_rec.currency_conv_date := p7_a2;
114 ddp_receipt_rec.currency_conv_rate := p7_a3;
115 ddp_receipt_rec.irm_id := p7_a4;
116 ddp_receipt_rec.rem_bank_acc_id := p7_a5;
117 ddp_receipt_rec.contract_id := p7_a6;
118 ddp_receipt_rec.contract_num := p7_a7;
119 ddp_receipt_rec.cust_acct_id := p7_a8;
120 ddp_receipt_rec.customer_num := p7_a9;
121 ddp_receipt_rec.gl_date := p7_a10;
122 ddp_receipt_rec.payment_date := p7_a11;
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,
141 x_msg_count,
142 x_msg_data,
143 ddp_receipt_rec,
144 ddp_payment_tbl,
145 x_payment_ref_number,
146 x_cash_receipt_id);
147
148 -- copy data back from the local variables to OUT or IN-OUT args, if any
149
150
151
152
153
154
155
156
157
158
159 end;
160
161 end okl_payment_pvt_w;