[Home] [Help]
PACKAGE BODY: APPS.CN_PMT_TRANS_PVT_W
Source
4 , a1 JTF_NUMBER_TABLE
1 package body cn_pmt_trans_pvt_w as
2 /* $Header: cnwpmtrb.pls 120.4 2005/12/23 09:26 fmburu noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy cn_pmt_trans_pvt.pmt_tran_tbl, a0 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_VARCHAR2_TABLE_100
10 , a7 JTF_VARCHAR2_TABLE_100
14 , a11 JTF_VARCHAR2_TABLE_100
11 , a8 JTF_VARCHAR2_TABLE_100
12 , a9 JTF_VARCHAR2_TABLE_100
13 , a10 JTF_VARCHAR2_TABLE_100
15 , a12 JTF_NUMBER_TABLE
16 , a13 JTF_VARCHAR2_TABLE_100
17 , a14 JTF_VARCHAR2_TABLE_100
18 , a15 JTF_VARCHAR2_TABLE_100
19 ) as
20 ddindx binary_integer; indx binary_integer;
21 begin
22 if a0 is not null and a0.count > 0 then
23 if a0.count > 0 then
24 indx := a0.first;
25 ddindx := 1;
26 while true loop
27 t(ddindx).payment_transaction_id := a0(indx);
28 t(ddindx).amount := a1(indx);
29 t(ddindx).payment_amount := a2(indx);
30 t(ddindx).payment_diff := a3(indx);
31 t(ddindx).quota_id := a4(indx);
32 t(ddindx).quota_name := a5(indx);
33 t(ddindx).incentive_type_code := a6(indx);
34 t(ddindx).incentive_type := a7(indx);
35 t(ddindx).hold_flag := a8(indx);
36 t(ddindx).hold_flag_desc := a9(indx);
37 t(ddindx).waive_flag := a10(indx);
38 t(ddindx).waive_flag_desc := a11(indx);
39 t(ddindx).pay_element_type_id := a12(indx);
40 t(ddindx).pay_element_name := a13(indx);
41 t(ddindx).recoverable_flag := a14(indx);
42 t(ddindx).recoverable_flag_desc := a15(indx);
43 ddindx := ddindx+1;
44 if a0.last =indx
45 then exit;
46 end if;
47 indx := a0.next(indx);
48 end loop;
49 end if;
50 end if;
51 end rosetta_table_copy_in_p1;
52 procedure rosetta_table_copy_out_p1(t cn_pmt_trans_pvt.pmt_tran_tbl, a0 out nocopy JTF_NUMBER_TABLE
53 , a1 out nocopy JTF_NUMBER_TABLE
54 , a2 out nocopy JTF_NUMBER_TABLE
55 , a3 out nocopy JTF_NUMBER_TABLE
56 , a4 out nocopy JTF_NUMBER_TABLE
57 , a5 out nocopy JTF_VARCHAR2_TABLE_100
58 , a6 out nocopy JTF_VARCHAR2_TABLE_100
59 , a7 out nocopy JTF_VARCHAR2_TABLE_100
60 , a8 out nocopy JTF_VARCHAR2_TABLE_100
61 , a9 out nocopy JTF_VARCHAR2_TABLE_100
62 , a10 out nocopy JTF_VARCHAR2_TABLE_100
63 , a11 out nocopy JTF_VARCHAR2_TABLE_100
64 , a12 out nocopy JTF_NUMBER_TABLE
65 , a13 out nocopy JTF_VARCHAR2_TABLE_100
66 , a14 out nocopy JTF_VARCHAR2_TABLE_100
67 , a15 out nocopy JTF_VARCHAR2_TABLE_100
68 ) as
69 ddindx binary_integer; indx binary_integer;
70 begin
71 if t is null or t.count = 0 then
72 a0 := JTF_NUMBER_TABLE();
73 a1 := JTF_NUMBER_TABLE();
74 a2 := JTF_NUMBER_TABLE();
75 a3 := JTF_NUMBER_TABLE();
76 a4 := JTF_NUMBER_TABLE();
77 a5 := JTF_VARCHAR2_TABLE_100();
78 a6 := JTF_VARCHAR2_TABLE_100();
79 a7 := JTF_VARCHAR2_TABLE_100();
80 a8 := JTF_VARCHAR2_TABLE_100();
81 a9 := JTF_VARCHAR2_TABLE_100();
82 a10 := JTF_VARCHAR2_TABLE_100();
83 a11 := JTF_VARCHAR2_TABLE_100();
84 a12 := JTF_NUMBER_TABLE();
85 a13 := JTF_VARCHAR2_TABLE_100();
86 a14 := JTF_VARCHAR2_TABLE_100();
87 a15 := JTF_VARCHAR2_TABLE_100();
88 else
89 a0 := JTF_NUMBER_TABLE();
90 a1 := JTF_NUMBER_TABLE();
91 a2 := JTF_NUMBER_TABLE();
92 a3 := JTF_NUMBER_TABLE();
93 a4 := JTF_NUMBER_TABLE();
94 a5 := JTF_VARCHAR2_TABLE_100();
95 a6 := JTF_VARCHAR2_TABLE_100();
96 a7 := JTF_VARCHAR2_TABLE_100();
97 a8 := JTF_VARCHAR2_TABLE_100();
98 a9 := JTF_VARCHAR2_TABLE_100();
99 a10 := JTF_VARCHAR2_TABLE_100();
100 a11 := JTF_VARCHAR2_TABLE_100();
101 a12 := JTF_NUMBER_TABLE();
102 a13 := JTF_VARCHAR2_TABLE_100();
103 a14 := JTF_VARCHAR2_TABLE_100();
104 a15 := JTF_VARCHAR2_TABLE_100();
105 if t.count > 0 then
106 a0.extend(t.count);
107 a1.extend(t.count);
108 a2.extend(t.count);
109 a3.extend(t.count);
110 a4.extend(t.count);
111 a5.extend(t.count);
112 a6.extend(t.count);
113 a7.extend(t.count);
114 a8.extend(t.count);
115 a9.extend(t.count);
116 a10.extend(t.count);
117 a11.extend(t.count);
118 a12.extend(t.count);
119 a13.extend(t.count);
120 a14.extend(t.count);
121 a15.extend(t.count);
122 ddindx := t.first;
123 indx := 1;
124 while true loop
125 a0(indx) := t(ddindx).payment_transaction_id;
126 a1(indx) := t(ddindx).amount;
127 a2(indx) := t(ddindx).payment_amount;
128 a3(indx) := t(ddindx).payment_diff;
129 a4(indx) := t(ddindx).quota_id;
130 a5(indx) := t(ddindx).quota_name;
131 a6(indx) := t(ddindx).incentive_type_code;
132 a7(indx) := t(ddindx).incentive_type;
133 a8(indx) := t(ddindx).hold_flag;
134 a9(indx) := t(ddindx).hold_flag_desc;
135 a10(indx) := t(ddindx).waive_flag;
136 a11(indx) := t(ddindx).waive_flag_desc;
137 a12(indx) := t(ddindx).pay_element_type_id;
138 a13(indx) := t(ddindx).pay_element_name;
139 a14(indx) := t(ddindx).recoverable_flag;
140 a15(indx) := t(ddindx).recoverable_flag_desc;
141 indx := indx+1;
142 if t.last =ddindx
143 then exit;
144 end if;
145 ddindx := t.next(ddindx);
146 end loop;
147 end if;
148 end if;
149 end rosetta_table_copy_out_p1;
150
154 , a3 JTF_NUMBER_TABLE
151 procedure rosetta_table_copy_in_p3(t out nocopy cn_pmt_trans_pvt.pmt_process_tbl, a0 JTF_VARCHAR2_TABLE_300
152 , a1 JTF_NUMBER_TABLE
153 , a2 JTF_NUMBER_TABLE
155 , a4 JTF_NUMBER_TABLE
156 , a5 JTF_VARCHAR2_TABLE_4000
157 , a6 JTF_NUMBER_TABLE
158 , a7 JTF_VARCHAR2_TABLE_4000
159 , a8 JTF_VARCHAR2_TABLE_100
160 , a9 JTF_NUMBER_TABLE
161 , a10 JTF_NUMBER_TABLE
162 , a11 JTF_NUMBER_TABLE
163 ) as
164 ddindx binary_integer; indx binary_integer;
165 begin
166 if a0 is not null and a0.count > 0 then
167 if a0.count > 0 then
168 indx := a0.first;
169 ddindx := 1;
170 while true loop
171 t(ddindx).p_action := a0(indx);
172 t(ddindx).payrun_id := a1(indx);
173 t(ddindx).salesrep_id := a2(indx);
174 t(ddindx).quota_id := a3(indx);
175 t(ddindx).revenue_class_id := a4(indx);
176 t(ddindx).invoice_number := a5(indx);
177 t(ddindx).order_number := a6(indx);
178 t(ddindx).customer := a7(indx);
179 t(ddindx).hold_flag := a8(indx);
180 t(ddindx).request_id := a9(indx);
181 t(ddindx).org_id := a10(indx);
182 t(ddindx).object_version_number := a11(indx);
183 ddindx := ddindx+1;
184 if a0.last =indx
185 then exit;
186 end if;
187 indx := a0.next(indx);
188 end loop;
189 end if;
190 end if;
191 end rosetta_table_copy_in_p3;
192 procedure rosetta_table_copy_out_p3(t cn_pmt_trans_pvt.pmt_process_tbl, a0 out nocopy JTF_VARCHAR2_TABLE_300
193 , a1 out nocopy JTF_NUMBER_TABLE
194 , a2 out nocopy JTF_NUMBER_TABLE
195 , a3 out nocopy JTF_NUMBER_TABLE
196 , a4 out nocopy JTF_NUMBER_TABLE
197 , a5 out nocopy JTF_VARCHAR2_TABLE_4000
198 , a6 out nocopy JTF_NUMBER_TABLE
199 , a7 out nocopy JTF_VARCHAR2_TABLE_4000
200 , a8 out nocopy JTF_VARCHAR2_TABLE_100
201 , a9 out nocopy JTF_NUMBER_TABLE
202 , a10 out nocopy JTF_NUMBER_TABLE
203 , a11 out nocopy JTF_NUMBER_TABLE
204 ) as
205 ddindx binary_integer; indx binary_integer;
206 begin
207 if t is null or t.count = 0 then
208 a0 := JTF_VARCHAR2_TABLE_300();
209 a1 := JTF_NUMBER_TABLE();
210 a2 := JTF_NUMBER_TABLE();
211 a3 := JTF_NUMBER_TABLE();
212 a4 := JTF_NUMBER_TABLE();
213 a5 := JTF_VARCHAR2_TABLE_4000();
214 a6 := JTF_NUMBER_TABLE();
215 a7 := JTF_VARCHAR2_TABLE_4000();
216 a8 := JTF_VARCHAR2_TABLE_100();
217 a9 := JTF_NUMBER_TABLE();
218 a10 := JTF_NUMBER_TABLE();
219 a11 := JTF_NUMBER_TABLE();
220 else
221 a0 := JTF_VARCHAR2_TABLE_300();
222 a1 := JTF_NUMBER_TABLE();
223 a2 := JTF_NUMBER_TABLE();
224 a3 := JTF_NUMBER_TABLE();
225 a4 := JTF_NUMBER_TABLE();
226 a5 := JTF_VARCHAR2_TABLE_4000();
227 a6 := JTF_NUMBER_TABLE();
228 a7 := JTF_VARCHAR2_TABLE_4000();
229 a8 := JTF_VARCHAR2_TABLE_100();
230 a9 := JTF_NUMBER_TABLE();
231 a10 := JTF_NUMBER_TABLE();
232 a11 := JTF_NUMBER_TABLE();
233 if t.count > 0 then
234 a0.extend(t.count);
235 a1.extend(t.count);
236 a2.extend(t.count);
237 a3.extend(t.count);
238 a4.extend(t.count);
239 a5.extend(t.count);
240 a6.extend(t.count);
241 a7.extend(t.count);
242 a8.extend(t.count);
243 a9.extend(t.count);
244 a10.extend(t.count);
245 a11.extend(t.count);
246 ddindx := t.first;
247 indx := 1;
248 while true loop
249 a0(indx) := t(ddindx).p_action;
250 a1(indx) := t(ddindx).payrun_id;
251 a2(indx) := t(ddindx).salesrep_id;
252 a3(indx) := t(ddindx).quota_id;
253 a4(indx) := t(ddindx).revenue_class_id;
254 a5(indx) := t(ddindx).invoice_number;
255 a6(indx) := t(ddindx).order_number;
256 a7(indx) := t(ddindx).customer;
257 a8(indx) := t(ddindx).hold_flag;
258 a9(indx) := t(ddindx).request_id;
259 a10(indx) := t(ddindx).org_id;
260 a11(indx) := t(ddindx).object_version_number;
261 indx := indx+1;
262 if t.last =ddindx
263 then exit;
264 end if;
265 ddindx := t.next(ddindx);
266 end loop;
267 end if;
268 end if;
269 end rosetta_table_copy_out_p3;
270
271 procedure process_pmt_transactions(p_api_version NUMBER
272 , p_init_msg_list VARCHAR2
273 , p_commit VARCHAR2
274 , p_validation_level NUMBER
275 , p4_a0 in out nocopy VARCHAR2
276 , p4_a1 in out nocopy NUMBER
277 , p4_a2 in out nocopy NUMBER
278 , p4_a3 in out nocopy NUMBER
279 , p4_a4 in out nocopy NUMBER
280 , p4_a5 in out nocopy VARCHAR2
281 , p4_a6 in out nocopy NUMBER
282 , p4_a7 in out nocopy VARCHAR2
283 , p4_a8 in out nocopy VARCHAR2
284 , p4_a9 in out nocopy NUMBER
285 , p4_a10 in out nocopy NUMBER
286 , p4_a11 in out nocopy NUMBER
287 , x_return_status out nocopy VARCHAR2
288 , x_msg_count out nocopy NUMBER
289 , x_msg_data out nocopy VARCHAR2
290 )
291
292 as
293 ddp_rec cn_pmt_trans_pvt.pmt_process_rec;
294 ddindx binary_integer; indx binary_integer;
295 begin
296
297 -- copy data to the local IN or IN-OUT args, if any
298
299
300
301
302 ddp_rec.p_action := p4_a0;
303 ddp_rec.payrun_id := p4_a1;
304 ddp_rec.salesrep_id := p4_a2;
308 ddp_rec.order_number := p4_a6;
305 ddp_rec.quota_id := p4_a3;
306 ddp_rec.revenue_class_id := p4_a4;
307 ddp_rec.invoice_number := p4_a5;
309 ddp_rec.customer := p4_a7;
310 ddp_rec.hold_flag := p4_a8;
311 ddp_rec.request_id := p4_a9;
312 ddp_rec.org_id := p4_a10;
313 ddp_rec.object_version_number := p4_a11;
314
315
316
317
318 -- here's the delegated call to the old PL/SQL routine
319 cn_pmt_trans_pvt.process_pmt_transactions(p_api_version,
320 p_init_msg_list,
321 p_commit,
322 p_validation_level,
323 ddp_rec,
324 x_return_status,
325 x_msg_count,
326 x_msg_data);
327
328 -- copy data back from the local variables to OUT or IN-OUT args, if any
329
330
331
332
333 p4_a0 := ddp_rec.p_action;
334 p4_a1 := ddp_rec.payrun_id;
335 p4_a2 := ddp_rec.salesrep_id;
336 p4_a3 := ddp_rec.quota_id;
337 p4_a4 := ddp_rec.revenue_class_id;
338 p4_a5 := ddp_rec.invoice_number;
339 p4_a6 := ddp_rec.order_number;
340 p4_a7 := ddp_rec.customer;
341 p4_a8 := ddp_rec.hold_flag;
342 p4_a9 := ddp_rec.request_id;
343 p4_a10 := ddp_rec.org_id;
344 p4_a11 := ddp_rec.object_version_number;
345
346
347
348 end;
349
350 end cn_pmt_trans_pvt_w;