[Home] [Help]
PACKAGE BODY: APPS.OKL_CREDIT_MEMO_PVT_W
Source
1 package body okl_credit_memo_pvt_w as
2 /* $Header: OKLECRMB.pls 120.4 2007/11/06 07:31:37 veramach noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 function rosetta_g_miss_num_map(n number) return number as
17 a number := fnd_api.g_miss_num;
18 b number := 0-1962.0724;
19 begin
20 if n=a then return b; end if;
21 if n=b then return a; end if;
22 return n;
23 end;
24
25 procedure rosetta_table_copy_in_p1(t out nocopy okl_credit_memo_pvt.credit_tbl, a0 JTF_NUMBER_TABLE
26 , a1 JTF_VARCHAR2_TABLE_100
27 , a2 JTF_VARCHAR2_TABLE_100
28 , a3 JTF_NUMBER_TABLE
29 , a4 JTF_NUMBER_TABLE
30 , a5 JTF_VARCHAR2_TABLE_200
31 , a6 JTF_VARCHAR2_TABLE_2000
32 , a7 JTF_DATE_TABLE
33 , a8 JTF_VARCHAR2_TABLE_100
34 ) as
35 ddindx binary_integer; indx binary_integer;
36 begin
37 if a0 is not null and a0.count > 0 then
38 if a0.count > 0 then
39 indx := a0.first;
40 ddindx := 1;
41 while true loop
42 t(ddindx).lsm_id := rosetta_g_miss_num_map(a0(indx));
43 t(ddindx).transaction_source := a1(indx);
44 t(ddindx).source_trx_number := a2(indx);
45 t(ddindx).credit_amount := rosetta_g_miss_num_map(a3(indx));
46 t(ddindx).credit_sty_id := rosetta_g_miss_num_map(a4(indx));
47 t(ddindx).credit_try_name := a5(indx);
48 t(ddindx).credit_desc := a6(indx);
49 t(ddindx).credit_date := rosetta_g_miss_date_in_map(a7(indx));
50 t(ddindx).currency_code := a8(indx);
51 ddindx := ddindx+1;
52 if a0.last =indx
53 then exit;
54 end if;
55 indx := a0.next(indx);
56 end loop;
57 end if;
58 end if;
59 end rosetta_table_copy_in_p1;
60 procedure rosetta_table_copy_out_p1(t okl_credit_memo_pvt.credit_tbl, a0 out nocopy JTF_NUMBER_TABLE
61 , a1 out nocopy JTF_VARCHAR2_TABLE_100
62 , a2 out nocopy JTF_VARCHAR2_TABLE_100
63 , a3 out nocopy JTF_NUMBER_TABLE
64 , a4 out nocopy JTF_NUMBER_TABLE
65 , a5 out nocopy JTF_VARCHAR2_TABLE_200
66 , a6 out nocopy JTF_VARCHAR2_TABLE_2000
67 , a7 out nocopy JTF_DATE_TABLE
68 , a8 out nocopy JTF_VARCHAR2_TABLE_100
69 ) as
70 ddindx binary_integer; indx binary_integer;
71 begin
72 if t is null or t.count = 0 then
73 a0 := JTF_NUMBER_TABLE();
74 a1 := JTF_VARCHAR2_TABLE_100();
75 a2 := JTF_VARCHAR2_TABLE_100();
76 a3 := JTF_NUMBER_TABLE();
77 a4 := JTF_NUMBER_TABLE();
78 a5 := JTF_VARCHAR2_TABLE_200();
79 a6 := JTF_VARCHAR2_TABLE_2000();
80 a7 := JTF_DATE_TABLE();
81 a8 := JTF_VARCHAR2_TABLE_100();
82 else
83 a0 := JTF_NUMBER_TABLE();
84 a1 := JTF_VARCHAR2_TABLE_100();
85 a2 := JTF_VARCHAR2_TABLE_100();
86 a3 := JTF_NUMBER_TABLE();
87 a4 := JTF_NUMBER_TABLE();
88 a5 := JTF_VARCHAR2_TABLE_200();
89 a6 := JTF_VARCHAR2_TABLE_2000();
90 a7 := JTF_DATE_TABLE();
91 a8 := JTF_VARCHAR2_TABLE_100();
92 if t.count > 0 then
93 a0.extend(t.count);
94 a1.extend(t.count);
95 a2.extend(t.count);
96 a3.extend(t.count);
97 a4.extend(t.count);
98 a5.extend(t.count);
99 a6.extend(t.count);
100 a7.extend(t.count);
101 a8.extend(t.count);
102 ddindx := t.first;
103 indx := 1;
104 while true loop
105 a0(indx) := rosetta_g_miss_num_map(t(ddindx).lsm_id);
106 a1(indx) := t(ddindx).transaction_source;
107 a2(indx) := t(ddindx).source_trx_number;
108 a3(indx) := rosetta_g_miss_num_map(t(ddindx).credit_amount);
109 a4(indx) := rosetta_g_miss_num_map(t(ddindx).credit_sty_id);
110 a5(indx) := t(ddindx).credit_try_name;
111 a6(indx) := t(ddindx).credit_desc;
112 a7(indx) := t(ddindx).credit_date;
113 a8(indx) := t(ddindx).currency_code;
114 indx := indx+1;
115 if t.last =ddindx
116 then exit;
117 end if;
118 ddindx := t.next(ddindx);
119 end loop;
120 end if;
121 end if;
122 end rosetta_table_copy_out_p1;
123
124 procedure insert_request(p_api_version NUMBER
125 , p_init_msg_list VARCHAR2
126 , p_tld_id NUMBER
127 , p_credit_amount NUMBER
128 , p_credit_sty_id NUMBER
129 , p_credit_desc VARCHAR2
130 , p_credit_date date
131 , p_try_id NUMBER
132 , p_transaction_source VARCHAR2
133 , p_source_trx_number VARCHAR2
134 , x_tai_id out nocopy NUMBER
135 , p11_a0 out nocopy NUMBER
136 , p11_a1 out nocopy NUMBER
137 , p11_a2 out nocopy VARCHAR2
138 , p11_a3 out nocopy VARCHAR2
139 , p11_a4 out nocopy VARCHAR2
140 , p11_a5 out nocopy NUMBER
141 , p11_a6 out nocopy DATE
142 , p11_a7 out nocopy NUMBER
143 , p11_a8 out nocopy NUMBER
144 , p11_a9 out nocopy NUMBER
145 , p11_a10 out nocopy NUMBER
146 , p11_a11 out nocopy NUMBER
147 , p11_a12 out nocopy NUMBER
148 , p11_a13 out nocopy NUMBER
149 , p11_a14 out nocopy VARCHAR2
150 , p11_a15 out nocopy NUMBER
151 , p11_a16 out nocopy NUMBER
152 , p11_a17 out nocopy NUMBER
153 , p11_a18 out nocopy NUMBER
154 , p11_a19 out nocopy NUMBER
155 , p11_a20 out nocopy NUMBER
156 , p11_a21 out nocopy NUMBER
157 , p11_a22 out nocopy NUMBER
158 , p11_a23 out nocopy DATE
159 , p11_a24 out nocopy NUMBER
160 , p11_a25 out nocopy VARCHAR2
161 , p11_a26 out nocopy VARCHAR2
162 , p11_a27 out nocopy NUMBER
163 , p11_a28 out nocopy NUMBER
164 , p11_a29 out nocopy NUMBER
165 , p11_a30 out nocopy VARCHAR2
166 , p11_a31 out nocopy VARCHAR2
167 , p11_a32 out nocopy VARCHAR2
168 , p11_a33 out nocopy VARCHAR2
169 , p11_a34 out nocopy VARCHAR2
170 , p11_a35 out nocopy VARCHAR2
171 , p11_a36 out nocopy VARCHAR2
172 , p11_a37 out nocopy VARCHAR2
173 , p11_a38 out nocopy VARCHAR2
174 , p11_a39 out nocopy VARCHAR2
175 , p11_a40 out nocopy VARCHAR2
176 , p11_a41 out nocopy VARCHAR2
177 , p11_a42 out nocopy VARCHAR2
178 , p11_a43 out nocopy VARCHAR2
179 , p11_a44 out nocopy VARCHAR2
180 , p11_a45 out nocopy VARCHAR2
181 , p11_a46 out nocopy DATE
182 , p11_a47 out nocopy NUMBER
183 , p11_a48 out nocopy NUMBER
184 , p11_a49 out nocopy NUMBER
185 , p11_a50 out nocopy DATE
186 , p11_a51 out nocopy NUMBER
187 , p11_a52 out nocopy NUMBER
188 , p11_a53 out nocopy DATE
189 , p11_a54 out nocopy NUMBER
190 , p11_a55 out nocopy DATE
191 , p11_a56 out nocopy NUMBER
192 , p11_a57 out nocopy NUMBER
193 , p11_a58 out nocopy VARCHAR2
194 , p11_a59 out nocopy VARCHAR2
195 , p11_a60 out nocopy VARCHAR2
196 , p11_a61 out nocopy NUMBER
197 , p11_a62 out nocopy VARCHAR2
198 , p11_a63 out nocopy DATE
199 , p11_a64 out nocopy VARCHAR2
200 , p11_a65 out nocopy NUMBER
201 , p11_a66 out nocopy NUMBER
202 , p11_a67 out nocopy NUMBER
203 , p11_a68 out nocopy NUMBER
204 , p11_a69 out nocopy VARCHAR2
205 , p11_a70 out nocopy VARCHAR2
206 , p11_a71 out nocopy NUMBER
207 , p11_a72 out nocopy VARCHAR2
208 , p11_a73 out nocopy DATE
209 , x_return_status out nocopy VARCHAR2
210 , x_msg_count out nocopy NUMBER
211 , x_msg_data out nocopy VARCHAR2
212 )
213
214 as
215 ddp_credit_date date;
216 ddx_taiv_rec okl_credit_memo_pvt.taiv_rec_type;
217 ddindx binary_integer; indx binary_integer;
218 begin
219
220 -- copy data to the local IN or IN-OUT args, if any
221
222
223
224
225
226
227 ddp_credit_date := rosetta_g_miss_date_in_map(p_credit_date);
228
229
230
231
232
233
234
235
236
237 -- here's the delegated call to the old PL/SQL routine
238 okl_credit_memo_pvt.insert_request(p_api_version,
239 p_init_msg_list,
240 p_tld_id,
241 p_credit_amount,
242 p_credit_sty_id,
243 p_credit_desc,
244 ddp_credit_date,
245 p_try_id,
246 p_transaction_source,
247 p_source_trx_number,
248 x_tai_id,
249 ddx_taiv_rec,
250 x_return_status,
251 x_msg_count,
252 x_msg_data);
253
254 -- copy data back from the local variables to OUT or IN-OUT args, if any
255
256
257
258
259
260
261
262
263
264
265
266 p11_a0 := rosetta_g_miss_num_map(ddx_taiv_rec.id);
267 p11_a1 := rosetta_g_miss_num_map(ddx_taiv_rec.object_version_number);
268 p11_a2 := ddx_taiv_rec.sfwt_flag;
269 p11_a3 := ddx_taiv_rec.currency_code;
270 p11_a4 := ddx_taiv_rec.currency_conversion_type;
271 p11_a5 := rosetta_g_miss_num_map(ddx_taiv_rec.currency_conversion_rate);
272 p11_a6 := ddx_taiv_rec.currency_conversion_date;
273 p11_a7 := rosetta_g_miss_num_map(ddx_taiv_rec.khr_id);
274 p11_a8 := rosetta_g_miss_num_map(ddx_taiv_rec.cra_id);
275 p11_a9 := rosetta_g_miss_num_map(ddx_taiv_rec.tap_id);
276 p11_a10 := rosetta_g_miss_num_map(ddx_taiv_rec.qte_id);
277 p11_a11 := rosetta_g_miss_num_map(ddx_taiv_rec.tcn_id);
278 p11_a12 := rosetta_g_miss_num_map(ddx_taiv_rec.tai_id_reverses);
279 p11_a13 := rosetta_g_miss_num_map(ddx_taiv_rec.ipy_id);
280 p11_a14 := ddx_taiv_rec.trx_status_code;
281 p11_a15 := rosetta_g_miss_num_map(ddx_taiv_rec.set_of_books_id);
282 p11_a16 := rosetta_g_miss_num_map(ddx_taiv_rec.try_id);
283 p11_a17 := rosetta_g_miss_num_map(ddx_taiv_rec.ibt_id);
284 p11_a18 := rosetta_g_miss_num_map(ddx_taiv_rec.ixx_id);
285 p11_a19 := rosetta_g_miss_num_map(ddx_taiv_rec.irm_id);
286 p11_a20 := rosetta_g_miss_num_map(ddx_taiv_rec.irt_id);
287 p11_a21 := rosetta_g_miss_num_map(ddx_taiv_rec.svf_id);
288 p11_a22 := rosetta_g_miss_num_map(ddx_taiv_rec.amount);
289 p11_a23 := ddx_taiv_rec.date_invoiced;
290 p11_a24 := rosetta_g_miss_num_map(ddx_taiv_rec.amount_applied);
291 p11_a25 := ddx_taiv_rec.description;
292 p11_a26 := ddx_taiv_rec.trx_number;
293 p11_a27 := rosetta_g_miss_num_map(ddx_taiv_rec.clg_id);
294 p11_a28 := rosetta_g_miss_num_map(ddx_taiv_rec.pox_id);
295 p11_a29 := rosetta_g_miss_num_map(ddx_taiv_rec.cpy_id);
296 p11_a30 := ddx_taiv_rec.attribute_category;
297 p11_a31 := ddx_taiv_rec.attribute1;
298 p11_a32 := ddx_taiv_rec.attribute2;
299 p11_a33 := ddx_taiv_rec.attribute3;
300 p11_a34 := ddx_taiv_rec.attribute4;
301 p11_a35 := ddx_taiv_rec.attribute5;
302 p11_a36 := ddx_taiv_rec.attribute6;
303 p11_a37 := ddx_taiv_rec.attribute7;
304 p11_a38 := ddx_taiv_rec.attribute8;
305 p11_a39 := ddx_taiv_rec.attribute9;
306 p11_a40 := ddx_taiv_rec.attribute10;
307 p11_a41 := ddx_taiv_rec.attribute11;
308 p11_a42 := ddx_taiv_rec.attribute12;
309 p11_a43 := ddx_taiv_rec.attribute13;
310 p11_a44 := ddx_taiv_rec.attribute14;
311 p11_a45 := ddx_taiv_rec.attribute15;
312 p11_a46 := ddx_taiv_rec.date_entered;
313 p11_a47 := rosetta_g_miss_num_map(ddx_taiv_rec.request_id);
314 p11_a48 := rosetta_g_miss_num_map(ddx_taiv_rec.program_application_id);
315 p11_a49 := rosetta_g_miss_num_map(ddx_taiv_rec.program_id);
316 p11_a50 := ddx_taiv_rec.program_update_date;
317 p11_a51 := rosetta_g_miss_num_map(ddx_taiv_rec.org_id);
318 p11_a52 := rosetta_g_miss_num_map(ddx_taiv_rec.created_by);
319 p11_a53 := ddx_taiv_rec.creation_date;
320 p11_a54 := rosetta_g_miss_num_map(ddx_taiv_rec.last_updated_by);
321 p11_a55 := ddx_taiv_rec.last_update_date;
322 p11_a56 := rosetta_g_miss_num_map(ddx_taiv_rec.last_update_login);
323 p11_a57 := rosetta_g_miss_num_map(ddx_taiv_rec.legal_entity_id);
324 p11_a58 := ddx_taiv_rec.investor_agreement_number;
325 p11_a59 := ddx_taiv_rec.investor_name;
326 p11_a60 := ddx_taiv_rec.okl_source_billing_trx;
327 p11_a61 := rosetta_g_miss_num_map(ddx_taiv_rec.inf_id);
328 p11_a62 := ddx_taiv_rec.invoice_pull_yn;
329 p11_a63 := ddx_taiv_rec.due_date;
330 p11_a64 := ddx_taiv_rec.consolidated_invoice_number;
331 p11_a65 := rosetta_g_miss_num_map(ddx_taiv_rec.isi_id);
332 p11_a66 := rosetta_g_miss_num_map(ddx_taiv_rec.receivables_invoice_id);
333 p11_a67 := rosetta_g_miss_num_map(ddx_taiv_rec.cust_trx_type_id);
334 p11_a68 := rosetta_g_miss_num_map(ddx_taiv_rec.customer_bank_account_id);
335 p11_a69 := ddx_taiv_rec.tax_exempt_flag;
336 p11_a70 := ddx_taiv_rec.tax_exempt_reason_code;
337 p11_a71 := rosetta_g_miss_num_map(ddx_taiv_rec.reference_line_id);
338 p11_a72 := ddx_taiv_rec.private_label;
339 p11_a73 := ddx_taiv_rec.transaction_date;
340
341
342
343 end;
344
345 procedure insert_request(p_api_version NUMBER
346 , p_init_msg_list VARCHAR2
347 , p2_a0 JTF_NUMBER_TABLE
348 , p2_a1 JTF_VARCHAR2_TABLE_100
349 , p2_a2 JTF_VARCHAR2_TABLE_100
350 , p2_a3 JTF_NUMBER_TABLE
351 , p2_a4 JTF_NUMBER_TABLE
352 , p2_a5 JTF_VARCHAR2_TABLE_200
353 , p2_a6 JTF_VARCHAR2_TABLE_2000
354 , p2_a7 JTF_DATE_TABLE
355 , p2_a8 JTF_VARCHAR2_TABLE_100
356 , p_transaction_source VARCHAR2
357 , p_source_trx_number VARCHAR2
358 , p5_a0 out nocopy JTF_NUMBER_TABLE
359 , p5_a1 out nocopy JTF_NUMBER_TABLE
360 , p5_a2 out nocopy JTF_VARCHAR2_TABLE_100
361 , p5_a3 out nocopy JTF_VARCHAR2_TABLE_100
362 , p5_a4 out nocopy JTF_VARCHAR2_TABLE_100
363 , p5_a5 out nocopy JTF_NUMBER_TABLE
364 , p5_a6 out nocopy JTF_DATE_TABLE
365 , p5_a7 out nocopy JTF_NUMBER_TABLE
366 , p5_a8 out nocopy JTF_NUMBER_TABLE
367 , p5_a9 out nocopy JTF_NUMBER_TABLE
368 , p5_a10 out nocopy JTF_NUMBER_TABLE
369 , p5_a11 out nocopy JTF_NUMBER_TABLE
370 , p5_a12 out nocopy JTF_NUMBER_TABLE
371 , p5_a13 out nocopy JTF_NUMBER_TABLE
372 , p5_a14 out nocopy JTF_VARCHAR2_TABLE_100
373 , p5_a15 out nocopy JTF_NUMBER_TABLE
374 , p5_a16 out nocopy JTF_NUMBER_TABLE
375 , p5_a17 out nocopy JTF_NUMBER_TABLE
376 , p5_a18 out nocopy JTF_NUMBER_TABLE
377 , p5_a19 out nocopy JTF_NUMBER_TABLE
378 , p5_a20 out nocopy JTF_NUMBER_TABLE
379 , p5_a21 out nocopy JTF_NUMBER_TABLE
380 , p5_a22 out nocopy JTF_NUMBER_TABLE
381 , p5_a23 out nocopy JTF_DATE_TABLE
382 , p5_a24 out nocopy JTF_NUMBER_TABLE
383 , p5_a25 out nocopy JTF_VARCHAR2_TABLE_2000
384 , p5_a26 out nocopy JTF_VARCHAR2_TABLE_300
385 , p5_a27 out nocopy JTF_NUMBER_TABLE
386 , p5_a28 out nocopy JTF_NUMBER_TABLE
387 , p5_a29 out nocopy JTF_NUMBER_TABLE
388 , p5_a30 out nocopy JTF_VARCHAR2_TABLE_100
389 , p5_a31 out nocopy JTF_VARCHAR2_TABLE_500
390 , p5_a32 out nocopy JTF_VARCHAR2_TABLE_500
391 , p5_a33 out nocopy JTF_VARCHAR2_TABLE_500
392 , p5_a34 out nocopy JTF_VARCHAR2_TABLE_500
393 , p5_a35 out nocopy JTF_VARCHAR2_TABLE_500
394 , p5_a36 out nocopy JTF_VARCHAR2_TABLE_500
395 , p5_a37 out nocopy JTF_VARCHAR2_TABLE_500
396 , p5_a38 out nocopy JTF_VARCHAR2_TABLE_500
397 , p5_a39 out nocopy JTF_VARCHAR2_TABLE_500
398 , p5_a40 out nocopy JTF_VARCHAR2_TABLE_500
399 , p5_a41 out nocopy JTF_VARCHAR2_TABLE_500
400 , p5_a42 out nocopy JTF_VARCHAR2_TABLE_500
401 , p5_a43 out nocopy JTF_VARCHAR2_TABLE_500
402 , p5_a44 out nocopy JTF_VARCHAR2_TABLE_500
403 , p5_a45 out nocopy JTF_VARCHAR2_TABLE_500
404 , p5_a46 out nocopy JTF_DATE_TABLE
405 , p5_a47 out nocopy JTF_NUMBER_TABLE
406 , p5_a48 out nocopy JTF_NUMBER_TABLE
407 , p5_a49 out nocopy JTF_NUMBER_TABLE
408 , p5_a50 out nocopy JTF_DATE_TABLE
409 , p5_a51 out nocopy JTF_NUMBER_TABLE
410 , p5_a52 out nocopy JTF_NUMBER_TABLE
411 , p5_a53 out nocopy JTF_DATE_TABLE
412 , p5_a54 out nocopy JTF_NUMBER_TABLE
413 , p5_a55 out nocopy JTF_DATE_TABLE
414 , p5_a56 out nocopy JTF_NUMBER_TABLE
415 , p5_a57 out nocopy JTF_NUMBER_TABLE
416 , p5_a58 out nocopy JTF_VARCHAR2_TABLE_200
417 , p5_a59 out nocopy JTF_VARCHAR2_TABLE_400
418 , p5_a60 out nocopy JTF_VARCHAR2_TABLE_100
419 , p5_a61 out nocopy JTF_NUMBER_TABLE
420 , p5_a62 out nocopy JTF_VARCHAR2_TABLE_100
421 , p5_a63 out nocopy JTF_DATE_TABLE
422 , p5_a64 out nocopy JTF_VARCHAR2_TABLE_100
423 , p5_a65 out nocopy JTF_NUMBER_TABLE
424 , p5_a66 out nocopy JTF_NUMBER_TABLE
425 , p5_a67 out nocopy JTF_NUMBER_TABLE
426 , p5_a68 out nocopy JTF_NUMBER_TABLE
427 , p5_a69 out nocopy JTF_VARCHAR2_TABLE_100
428 , p5_a70 out nocopy JTF_VARCHAR2_TABLE_100
429 , p5_a71 out nocopy JTF_NUMBER_TABLE
430 , p5_a72 out nocopy JTF_VARCHAR2_TABLE_4000
431 , p5_a73 out nocopy JTF_DATE_TABLE
432 , x_return_status out nocopy VARCHAR2
433 , x_msg_count out nocopy NUMBER
434 , x_msg_data out nocopy VARCHAR2
435 )
436
437 as
438 ddp_credit_list okl_credit_memo_pvt.credit_tbl;
439 ddx_taiv_tbl okl_credit_memo_pvt.taiv_tbl_type;
440 ddindx binary_integer; indx binary_integer;
441 begin
442
443 -- copy data to the local IN or IN-OUT args, if any
444
445
446 okl_credit_memo_pvt_w.rosetta_table_copy_in_p1(ddp_credit_list, p2_a0
447 , p2_a1
448 , p2_a2
449 , p2_a3
450 , p2_a4
451 , p2_a5
452 , p2_a6
453 , p2_a7
454 , p2_a8
455 );
456
457
458
459
460
461
462
463 -- here's the delegated call to the old PL/SQL routine
464 okl_credit_memo_pvt.insert_request(p_api_version,
465 p_init_msg_list,
466 ddp_credit_list,
467 p_transaction_source,
468 p_source_trx_number,
469 ddx_taiv_tbl,
470 x_return_status,
471 x_msg_count,
472 x_msg_data);
473
474 -- copy data back from the local variables to OUT or IN-OUT args, if any
475
476
477
478
479
480 okl_tai_pvt_w.rosetta_table_copy_out_p8(ddx_taiv_tbl, p5_a0
481 , p5_a1
482 , p5_a2
483 , p5_a3
484 , p5_a4
485 , p5_a5
486 , p5_a6
487 , p5_a7
488 , p5_a8
489 , p5_a9
490 , p5_a10
491 , p5_a11
492 , p5_a12
493 , p5_a13
494 , p5_a14
495 , p5_a15
496 , p5_a16
497 , p5_a17
498 , p5_a18
499 , p5_a19
500 , p5_a20
501 , p5_a21
502 , p5_a22
503 , p5_a23
504 , p5_a24
505 , p5_a25
506 , p5_a26
507 , p5_a27
508 , p5_a28
509 , p5_a29
510 , p5_a30
511 , p5_a31
512 , p5_a32
513 , p5_a33
514 , p5_a34
515 , p5_a35
516 , p5_a36
517 , p5_a37
518 , p5_a38
519 , p5_a39
520 , p5_a40
521 , p5_a41
522 , p5_a42
523 , p5_a43
524 , p5_a44
525 , p5_a45
526 , p5_a46
527 , p5_a47
528 , p5_a48
529 , p5_a49
530 , p5_a50
531 , p5_a51
532 , p5_a52
533 , p5_a53
534 , p5_a54
535 , p5_a55
536 , p5_a56
537 , p5_a57
538 , p5_a58
539 , p5_a59
540 , p5_a60
541 , p5_a61
542 , p5_a62
543 , p5_a63
544 , p5_a64
545 , p5_a65
546 , p5_a66
547 , p5_a67
548 , p5_a68
549 , p5_a69
550 , p5_a70
551 , p5_a71
552 , p5_a72
553 , p5_a73
554 );
555
556
557
558 end;
559
560 procedure insert_on_acc_cm_request(p_api_version NUMBER
561 , p_init_msg_list VARCHAR2
562 , p_tld_id NUMBER
563 , p_credit_amount NUMBER
564 , p_credit_sty_id NUMBER
565 , p_credit_desc VARCHAR2
566 , p_credit_date date
567 , p_try_id NUMBER
568 , p_transaction_source VARCHAR2
569 , p_source_trx_number VARCHAR2
570 , x_tai_id out nocopy NUMBER
571 , p11_a0 out nocopy NUMBER
572 , p11_a1 out nocopy NUMBER
573 , p11_a2 out nocopy VARCHAR2
574 , p11_a3 out nocopy VARCHAR2
575 , p11_a4 out nocopy VARCHAR2
576 , p11_a5 out nocopy NUMBER
577 , p11_a6 out nocopy DATE
578 , p11_a7 out nocopy NUMBER
579 , p11_a8 out nocopy NUMBER
580 , p11_a9 out nocopy NUMBER
581 , p11_a10 out nocopy NUMBER
582 , p11_a11 out nocopy NUMBER
583 , p11_a12 out nocopy NUMBER
584 , p11_a13 out nocopy NUMBER
585 , p11_a14 out nocopy VARCHAR2
586 , p11_a15 out nocopy NUMBER
587 , p11_a16 out nocopy NUMBER
588 , p11_a17 out nocopy NUMBER
589 , p11_a18 out nocopy NUMBER
590 , p11_a19 out nocopy NUMBER
591 , p11_a20 out nocopy NUMBER
592 , p11_a21 out nocopy NUMBER
593 , p11_a22 out nocopy NUMBER
594 , p11_a23 out nocopy DATE
595 , p11_a24 out nocopy NUMBER
596 , p11_a25 out nocopy VARCHAR2
597 , p11_a26 out nocopy VARCHAR2
598 , p11_a27 out nocopy NUMBER
599 , p11_a28 out nocopy NUMBER
600 , p11_a29 out nocopy NUMBER
601 , p11_a30 out nocopy VARCHAR2
602 , p11_a31 out nocopy VARCHAR2
603 , p11_a32 out nocopy VARCHAR2
604 , p11_a33 out nocopy VARCHAR2
605 , p11_a34 out nocopy VARCHAR2
606 , p11_a35 out nocopy VARCHAR2
607 , p11_a36 out nocopy VARCHAR2
608 , p11_a37 out nocopy VARCHAR2
609 , p11_a38 out nocopy VARCHAR2
610 , p11_a39 out nocopy VARCHAR2
611 , p11_a40 out nocopy VARCHAR2
612 , p11_a41 out nocopy VARCHAR2
613 , p11_a42 out nocopy VARCHAR2
614 , p11_a43 out nocopy VARCHAR2
615 , p11_a44 out nocopy VARCHAR2
616 , p11_a45 out nocopy VARCHAR2
617 , p11_a46 out nocopy DATE
618 , p11_a47 out nocopy NUMBER
619 , p11_a48 out nocopy NUMBER
620 , p11_a49 out nocopy NUMBER
621 , p11_a50 out nocopy DATE
622 , p11_a51 out nocopy NUMBER
623 , p11_a52 out nocopy NUMBER
624 , p11_a53 out nocopy DATE
625 , p11_a54 out nocopy NUMBER
626 , p11_a55 out nocopy DATE
627 , p11_a56 out nocopy NUMBER
628 , p11_a57 out nocopy NUMBER
629 , p11_a58 out nocopy VARCHAR2
630 , p11_a59 out nocopy VARCHAR2
631 , p11_a60 out nocopy VARCHAR2
632 , p11_a61 out nocopy NUMBER
633 , p11_a62 out nocopy VARCHAR2
634 , p11_a63 out nocopy DATE
635 , p11_a64 out nocopy VARCHAR2
636 , p11_a65 out nocopy NUMBER
637 , p11_a66 out nocopy NUMBER
638 , p11_a67 out nocopy NUMBER
639 , p11_a68 out nocopy NUMBER
640 , p11_a69 out nocopy VARCHAR2
641 , p11_a70 out nocopy VARCHAR2
642 , p11_a71 out nocopy NUMBER
643 , p11_a72 out nocopy VARCHAR2
644 , p11_a73 out nocopy DATE
645 , x_return_status out nocopy VARCHAR2
646 , x_msg_count out nocopy NUMBER
647 , x_msg_data out nocopy VARCHAR2
648 )
649
650 as
651 ddp_credit_date date;
652 ddx_taiv_rec okl_credit_memo_pvt.taiv_rec_type;
653 ddindx binary_integer; indx binary_integer;
654 begin
655
656 -- copy data to the local IN or IN-OUT args, if any
657
658
659
660
661
662
663 ddp_credit_date := rosetta_g_miss_date_in_map(p_credit_date);
664
665
666
667
668
669
670
671
672
673 -- here's the delegated call to the old PL/SQL routine
674 okl_credit_memo_pvt.insert_on_acc_cm_request(p_api_version,
675 p_init_msg_list,
676 p_tld_id,
677 p_credit_amount,
678 p_credit_sty_id,
679 p_credit_desc,
680 ddp_credit_date,
681 p_try_id,
682 p_transaction_source,
683 p_source_trx_number,
684 x_tai_id,
685 ddx_taiv_rec,
686 x_return_status,
687 x_msg_count,
688 x_msg_data);
689
690 -- copy data back from the local variables to OUT or IN-OUT args, if any
691
692
693
694
695
696
697
698
699
700
701
702 p11_a0 := rosetta_g_miss_num_map(ddx_taiv_rec.id);
703 p11_a1 := rosetta_g_miss_num_map(ddx_taiv_rec.object_version_number);
704 p11_a2 := ddx_taiv_rec.sfwt_flag;
705 p11_a3 := ddx_taiv_rec.currency_code;
706 p11_a4 := ddx_taiv_rec.currency_conversion_type;
707 p11_a5 := rosetta_g_miss_num_map(ddx_taiv_rec.currency_conversion_rate);
708 p11_a6 := ddx_taiv_rec.currency_conversion_date;
709 p11_a7 := rosetta_g_miss_num_map(ddx_taiv_rec.khr_id);
710 p11_a8 := rosetta_g_miss_num_map(ddx_taiv_rec.cra_id);
711 p11_a9 := rosetta_g_miss_num_map(ddx_taiv_rec.tap_id);
712 p11_a10 := rosetta_g_miss_num_map(ddx_taiv_rec.qte_id);
713 p11_a11 := rosetta_g_miss_num_map(ddx_taiv_rec.tcn_id);
714 p11_a12 := rosetta_g_miss_num_map(ddx_taiv_rec.tai_id_reverses);
715 p11_a13 := rosetta_g_miss_num_map(ddx_taiv_rec.ipy_id);
716 p11_a14 := ddx_taiv_rec.trx_status_code;
717 p11_a15 := rosetta_g_miss_num_map(ddx_taiv_rec.set_of_books_id);
718 p11_a16 := rosetta_g_miss_num_map(ddx_taiv_rec.try_id);
719 p11_a17 := rosetta_g_miss_num_map(ddx_taiv_rec.ibt_id);
720 p11_a18 := rosetta_g_miss_num_map(ddx_taiv_rec.ixx_id);
721 p11_a19 := rosetta_g_miss_num_map(ddx_taiv_rec.irm_id);
722 p11_a20 := rosetta_g_miss_num_map(ddx_taiv_rec.irt_id);
723 p11_a21 := rosetta_g_miss_num_map(ddx_taiv_rec.svf_id);
724 p11_a22 := rosetta_g_miss_num_map(ddx_taiv_rec.amount);
725 p11_a23 := ddx_taiv_rec.date_invoiced;
726 p11_a24 := rosetta_g_miss_num_map(ddx_taiv_rec.amount_applied);
727 p11_a25 := ddx_taiv_rec.description;
728 p11_a26 := ddx_taiv_rec.trx_number;
729 p11_a27 := rosetta_g_miss_num_map(ddx_taiv_rec.clg_id);
730 p11_a28 := rosetta_g_miss_num_map(ddx_taiv_rec.pox_id);
731 p11_a29 := rosetta_g_miss_num_map(ddx_taiv_rec.cpy_id);
732 p11_a30 := ddx_taiv_rec.attribute_category;
733 p11_a31 := ddx_taiv_rec.attribute1;
734 p11_a32 := ddx_taiv_rec.attribute2;
735 p11_a33 := ddx_taiv_rec.attribute3;
736 p11_a34 := ddx_taiv_rec.attribute4;
737 p11_a35 := ddx_taiv_rec.attribute5;
738 p11_a36 := ddx_taiv_rec.attribute6;
739 p11_a37 := ddx_taiv_rec.attribute7;
740 p11_a38 := ddx_taiv_rec.attribute8;
741 p11_a39 := ddx_taiv_rec.attribute9;
742 p11_a40 := ddx_taiv_rec.attribute10;
743 p11_a41 := ddx_taiv_rec.attribute11;
744 p11_a42 := ddx_taiv_rec.attribute12;
745 p11_a43 := ddx_taiv_rec.attribute13;
746 p11_a44 := ddx_taiv_rec.attribute14;
747 p11_a45 := ddx_taiv_rec.attribute15;
748 p11_a46 := ddx_taiv_rec.date_entered;
749 p11_a47 := rosetta_g_miss_num_map(ddx_taiv_rec.request_id);
750 p11_a48 := rosetta_g_miss_num_map(ddx_taiv_rec.program_application_id);
751 p11_a49 := rosetta_g_miss_num_map(ddx_taiv_rec.program_id);
752 p11_a50 := ddx_taiv_rec.program_update_date;
753 p11_a51 := rosetta_g_miss_num_map(ddx_taiv_rec.org_id);
754 p11_a52 := rosetta_g_miss_num_map(ddx_taiv_rec.created_by);
755 p11_a53 := ddx_taiv_rec.creation_date;
756 p11_a54 := rosetta_g_miss_num_map(ddx_taiv_rec.last_updated_by);
757 p11_a55 := ddx_taiv_rec.last_update_date;
758 p11_a56 := rosetta_g_miss_num_map(ddx_taiv_rec.last_update_login);
759 p11_a57 := rosetta_g_miss_num_map(ddx_taiv_rec.legal_entity_id);
760 p11_a58 := ddx_taiv_rec.investor_agreement_number;
761 p11_a59 := ddx_taiv_rec.investor_name;
762 p11_a60 := ddx_taiv_rec.okl_source_billing_trx;
763 p11_a61 := rosetta_g_miss_num_map(ddx_taiv_rec.inf_id);
764 p11_a62 := ddx_taiv_rec.invoice_pull_yn;
765 p11_a63 := ddx_taiv_rec.due_date;
766 p11_a64 := ddx_taiv_rec.consolidated_invoice_number;
767 p11_a65 := rosetta_g_miss_num_map(ddx_taiv_rec.isi_id);
768 p11_a66 := rosetta_g_miss_num_map(ddx_taiv_rec.receivables_invoice_id);
769 p11_a67 := rosetta_g_miss_num_map(ddx_taiv_rec.cust_trx_type_id);
770 p11_a68 := rosetta_g_miss_num_map(ddx_taiv_rec.customer_bank_account_id);
771 p11_a69 := ddx_taiv_rec.tax_exempt_flag;
772 p11_a70 := ddx_taiv_rec.tax_exempt_reason_code;
773 p11_a71 := rosetta_g_miss_num_map(ddx_taiv_rec.reference_line_id);
774 p11_a72 := ddx_taiv_rec.private_label;
775 p11_a73 := ddx_taiv_rec.transaction_date;
776
777
778
779 end;
780
781 end okl_credit_memo_pvt_w;