[Home] [Help]
PACKAGE BODY: APPS.OKL_RECEIPTS_PVT_W
Source
1 package body okl_receipts_pvt_w as
2 /* $Header: OKLERCTB.pls 120.8 2008/05/14 11:22:38 sosharma noship $ */
3 procedure rosetta_table_copy_in_p14(t out nocopy okl_receipts_pvt.appl_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_VARCHAR2_TABLE_100
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_DATE_TABLE
11 , a8 JTF_NUMBER_TABLE
12 , a9 JTF_NUMBER_TABLE
13 , a10 JTF_NUMBER_TABLE
14 , a11 JTF_NUMBER_TABLE
15 ) as
16 ddindx binary_integer; indx binary_integer;
17 begin
18 if a0 is not null and a0.count > 0 then
19 if a0.count > 0 then
20 indx := a0.first;
21 ddindx := 1;
22 while true loop
23 t(ddindx).contract_id := a0(indx);
24 t(ddindx).con_inv_id := a1(indx);
25 t(ddindx).ar_inv_id := a2(indx);
26 t(ddindx).line_id := a3(indx);
27 t(ddindx).original_applied_amount := a4(indx);
28 t(ddindx).line_type := a5(indx);
29 t(ddindx).amount_to_apply := a6(indx);
30 t(ddindx).gl_date := a7(indx);
31 t(ddindx).line_applied := a8(indx);
32 t(ddindx).tax_applied := a9(indx);
33 t(ddindx).trans_to_receipt_rate := a10(indx);
34 t(ddindx).amount_applied_from := a11(indx);
35 ddindx := ddindx+1;
36 if a0.last =indx
37 then exit;
38 end if;
39 indx := a0.next(indx);
40 end loop;
41 end if;
42 end if;
43 end rosetta_table_copy_in_p14;
44 procedure rosetta_table_copy_out_p14(t okl_receipts_pvt.appl_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
45 , a1 out nocopy JTF_NUMBER_TABLE
46 , a2 out nocopy JTF_NUMBER_TABLE
47 , a3 out nocopy JTF_NUMBER_TABLE
48 , a4 out nocopy JTF_NUMBER_TABLE
49 , a5 out nocopy JTF_VARCHAR2_TABLE_100
50 , a6 out nocopy JTF_NUMBER_TABLE
51 , a7 out nocopy JTF_DATE_TABLE
52 , a8 out nocopy JTF_NUMBER_TABLE
53 , a9 out nocopy JTF_NUMBER_TABLE
54 , a10 out nocopy JTF_NUMBER_TABLE
55 , a11 out nocopy JTF_NUMBER_TABLE
56 ) as
57 ddindx binary_integer; indx binary_integer;
58 begin
59 if t is null or t.count = 0 then
60 a0 := JTF_NUMBER_TABLE();
61 a1 := JTF_NUMBER_TABLE();
62 a2 := JTF_NUMBER_TABLE();
63 a3 := JTF_NUMBER_TABLE();
64 a4 := JTF_NUMBER_TABLE();
65 a5 := JTF_VARCHAR2_TABLE_100();
66 a6 := JTF_NUMBER_TABLE();
67 a7 := JTF_DATE_TABLE();
68 a8 := JTF_NUMBER_TABLE();
69 a9 := JTF_NUMBER_TABLE();
70 a10 := JTF_NUMBER_TABLE();
71 a11 := JTF_NUMBER_TABLE();
72 else
73 a0 := JTF_NUMBER_TABLE();
74 a1 := JTF_NUMBER_TABLE();
75 a2 := JTF_NUMBER_TABLE();
76 a3 := JTF_NUMBER_TABLE();
77 a4 := JTF_NUMBER_TABLE();
78 a5 := JTF_VARCHAR2_TABLE_100();
79 a6 := JTF_NUMBER_TABLE();
80 a7 := JTF_DATE_TABLE();
81 a8 := JTF_NUMBER_TABLE();
82 a9 := JTF_NUMBER_TABLE();
83 a10 := JTF_NUMBER_TABLE();
84 a11 := JTF_NUMBER_TABLE();
85 if t.count > 0 then
86 a0.extend(t.count);
87 a1.extend(t.count);
88 a2.extend(t.count);
89 a3.extend(t.count);
90 a4.extend(t.count);
91 a5.extend(t.count);
92 a6.extend(t.count);
93 a7.extend(t.count);
94 a8.extend(t.count);
95 a9.extend(t.count);
96 a10.extend(t.count);
97 a11.extend(t.count);
98 ddindx := t.first;
99 indx := 1;
100 while true loop
101 a0(indx) := t(ddindx).contract_id;
102 a1(indx) := t(ddindx).con_inv_id;
103 a2(indx) := t(ddindx).ar_inv_id;
104 a3(indx) := t(ddindx).line_id;
105 a4(indx) := t(ddindx).original_applied_amount;
106 a5(indx) := t(ddindx).line_type;
107 a6(indx) := t(ddindx).amount_to_apply;
108 a7(indx) := t(ddindx).gl_date;
109 a8(indx) := t(ddindx).line_applied;
110 a9(indx) := t(ddindx).tax_applied;
111 a10(indx) := t(ddindx).trans_to_receipt_rate;
112 a11(indx) := t(ddindx).amount_applied_from;
113 indx := indx+1;
114 if t.last =ddindx
115 then exit;
116 end if;
117 ddindx := t.next(ddindx);
118 end loop;
119 end if;
120 end if;
121 end rosetta_table_copy_out_p14;
122
123 procedure handle_receipt(p_api_version NUMBER
124 , p_init_msg_list VARCHAR2
125 , x_return_status out nocopy VARCHAR2
126 , x_msg_count out nocopy NUMBER
127 , x_msg_data out nocopy VARCHAR2
128 , p5_a0 NUMBER
129 , p5_a1 NUMBER
130 , p5_a2 VARCHAR2
131 , p5_a3 VARCHAR2
132 , p5_a4 NUMBER
133 , p5_a5 VARCHAR2
134 , p5_a6 DATE
135 , p5_a7 VARCHAR2
136 , p5_a8 NUMBER
137 , p5_a9 DATE
138 , p5_a10 NUMBER
139 , p5_a11 NUMBER
140 , p5_a12 VARCHAR2
141 , p5_a13 VARCHAR2
142 , p5_a14 NUMBER
143 , p5_a15 NUMBER
144 , p5_a16 NUMBER
145 , p5_a17 DATE
146 , p5_a18 VARCHAR2
147 , p5_a19 VARCHAR2
148 , p5_a20 VARCHAR2
149 , p5_a21 VARCHAR2
150 , p5_a22 VARCHAR2
151 , p5_a23 VARCHAR2
152 , p5_a24 VARCHAR2
153 , p5_a25 VARCHAR2
154 , p5_a26 VARCHAR2
155 , p5_a27 VARCHAR2
156 , p5_a28 VARCHAR2
157 , p5_a29 VARCHAR2
158 , p5_a30 VARCHAR2
159 , p5_a31 VARCHAR2
160 , p5_a32 VARCHAR2
161 , p5_a33 VARCHAR2
162 , p5_a34 VARCHAR2
163 , p5_a35 NUMBER
164 , p5_a36 NUMBER
165 , p6_a0 JTF_NUMBER_TABLE
166 , p6_a1 JTF_NUMBER_TABLE
167 , p6_a2 JTF_NUMBER_TABLE
168 , p6_a3 JTF_NUMBER_TABLE
169 , p6_a4 JTF_NUMBER_TABLE
170 , p6_a5 JTF_VARCHAR2_TABLE_100
171 , p6_a6 JTF_NUMBER_TABLE
172 , p6_a7 JTF_DATE_TABLE
173 , p6_a8 JTF_NUMBER_TABLE
174 , p6_a9 JTF_NUMBER_TABLE
175 , p6_a10 JTF_NUMBER_TABLE
176 , p6_a11 JTF_NUMBER_TABLE
177 , x_cash_receipt_id out nocopy NUMBER
178 )
179
180 as
181 ddp_rcpt_rec okl_receipts_pvt.rcpt_rec_type;
182 ddp_appl_tbl okl_receipts_pvt.appl_tbl_type;
183 ddindx binary_integer; indx binary_integer;
184 begin
185
186 -- copy data to the local IN or IN-OUT args, if any
187
188
189
190
191
192 ddp_rcpt_rec.cash_receipt_id := p5_a0;
193 ddp_rcpt_rec.amount := p5_a1;
194 ddp_rcpt_rec.currency_code := p5_a2;
195 ddp_rcpt_rec.customer_number := p5_a3;
196 ddp_rcpt_rec.customer_id := p5_a4;
197 ddp_rcpt_rec.receipt_number := p5_a5;
198 ddp_rcpt_rec.receipt_date := p5_a6;
199 ddp_rcpt_rec.exchange_rate_type := p5_a7;
200 ddp_rcpt_rec.exchange_rate := p5_a8;
201 ddp_rcpt_rec.exchange_date := p5_a9;
202 ddp_rcpt_rec.remittance_bank_account_id := p5_a10;
203 ddp_rcpt_rec.customer_bank_account_id := p5_a11;
204 ddp_rcpt_rec.remittance_bank_account_num := p5_a12;
205 ddp_rcpt_rec.remittance_bank_account_name := p5_a13;
206 ddp_rcpt_rec.payment_trx_extension_id := p5_a14;
207 ddp_rcpt_rec.receipt_method_id := p5_a15;
208 ddp_rcpt_rec.org_id := p5_a16;
209 ddp_rcpt_rec.gl_date := p5_a17;
210 ddp_rcpt_rec.dff_attribute_category := p5_a18;
211 ddp_rcpt_rec.dff_attribute1 := p5_a19;
212 ddp_rcpt_rec.dff_attribute2 := p5_a20;
213 ddp_rcpt_rec.dff_attribute3 := p5_a21;
214 ddp_rcpt_rec.dff_attribute4 := p5_a22;
215 ddp_rcpt_rec.dff_attribute5 := p5_a23;
216 ddp_rcpt_rec.dff_attribute6 := p5_a24;
217 ddp_rcpt_rec.dff_attribute7 := p5_a25;
218 ddp_rcpt_rec.dff_attribute8 := p5_a26;
219 ddp_rcpt_rec.dff_attribute9 := p5_a27;
220 ddp_rcpt_rec.dff_attribute10 := p5_a28;
221 ddp_rcpt_rec.dff_attribute11 := p5_a29;
222 ddp_rcpt_rec.dff_attribute12 := p5_a30;
223 ddp_rcpt_rec.dff_attribute13 := p5_a31;
224 ddp_rcpt_rec.dff_attribute14 := p5_a32;
225 ddp_rcpt_rec.dff_attribute15 := p5_a33;
226 ddp_rcpt_rec.create_mode := p5_a34;
227 ddp_rcpt_rec.p_original_onacc_amount := p5_a35;
228 ddp_rcpt_rec.p_apply_onacc_amount := p5_a36;
229
230 okl_receipts_pvt_w.rosetta_table_copy_in_p14(ddp_appl_tbl, p6_a0
231 , p6_a1
232 , p6_a2
233 , p6_a3
234 , p6_a4
235 , p6_a5
236 , p6_a6
237 , p6_a7
238 , p6_a8
239 , p6_a9
240 , p6_a10
241 , p6_a11
242 );
243
244
245 -- here's the delegated call to the old PL/SQL routine
246 okl_receipts_pvt.handle_receipt(p_api_version,
247 p_init_msg_list,
248 x_return_status,
249 x_msg_count,
250 x_msg_data,
251 ddp_rcpt_rec,
252 ddp_appl_tbl,
253 x_cash_receipt_id);
254
255 -- copy data back from the local variables to OUT or IN-OUT args, if any
256
257
258
259
260
261
262
263 end;
264
265 end okl_receipts_pvt_w;