[Home] [Help]
PACKAGE BODY: APPS.OKL_TRANSACTION_PUB_W
Source
1 package body okl_transaction_pub_w as
2 /* $Header: OKLUTXNB.pls 120.2 2005/08/02 09:34:12 asawanka 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
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure create_transaction(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p_chr_id NUMBER
28 , p_new_chr_id NUMBER
29 , p_reason_code VARCHAR2
30 , p_description VARCHAR2
31 , p_trx_date date
32 , p_trx_type VARCHAR2
33 , p11_a0 out nocopy NUMBER
34 , p11_a1 out nocopy NUMBER
35 , p11_a2 out nocopy VARCHAR2
36 , p11_a3 out nocopy VARCHAR2
37 , p11_a4 out nocopy VARCHAR2
38 , p11_a5 out nocopy VARCHAR2
39 , p11_a6 out nocopy NUMBER
40 , p11_a7 out nocopy NUMBER
41 , p11_a8 out nocopy NUMBER
42 , p11_a9 out nocopy NUMBER
43 , p11_a10 out nocopy NUMBER
44 , p11_a11 out nocopy NUMBER
45 , p11_a12 out nocopy VARCHAR2
46 , p11_a13 out nocopy VARCHAR2
47 , p11_a14 out nocopy DATE
48 , p11_a15 out nocopy VARCHAR2
49 , p11_a16 out nocopy VARCHAR2
50 , p11_a17 out nocopy NUMBER
51 , p11_a18 out nocopy VARCHAR2
52 , p11_a19 out nocopy VARCHAR2
53 , p11_a20 out nocopy VARCHAR2
54 , p11_a21 out nocopy VARCHAR2
55 , p11_a22 out nocopy VARCHAR2
56 , p11_a23 out nocopy VARCHAR2
57 , p11_a24 out nocopy VARCHAR2
58 , p11_a25 out nocopy VARCHAR2
59 , p11_a26 out nocopy VARCHAR2
60 , p11_a27 out nocopy VARCHAR2
61 , p11_a28 out nocopy VARCHAR2
62 , p11_a29 out nocopy VARCHAR2
63 , p11_a30 out nocopy VARCHAR2
64 , p11_a31 out nocopy VARCHAR2
65 , p11_a32 out nocopy VARCHAR2
66 , p11_a33 out nocopy VARCHAR2
67 , p11_a34 out nocopy VARCHAR2
68 , p11_a35 out nocopy VARCHAR2
69 , p11_a36 out nocopy VARCHAR2
70 , p11_a37 out nocopy NUMBER
71 , p11_a38 out nocopy VARCHAR2
72 , p11_a39 out nocopy NUMBER
73 , p11_a40 out nocopy VARCHAR2
74 , p11_a41 out nocopy VARCHAR2
75 , p11_a42 out nocopy NUMBER
76 , p11_a43 out nocopy NUMBER
77 , p11_a44 out nocopy NUMBER
78 , p11_a45 out nocopy NUMBER
79 , p11_a46 out nocopy NUMBER
80 , p11_a47 out nocopy NUMBER
81 , p11_a48 out nocopy DATE
82 , p11_a49 out nocopy NUMBER
83 , p11_a50 out nocopy DATE
84 , p11_a51 out nocopy NUMBER
85 , p11_a52 out nocopy DATE
86 , p11_a53 out nocopy NUMBER
87 , p11_a54 out nocopy NUMBER
88 , p11_a55 out nocopy VARCHAR2
89 , p11_a56 out nocopy NUMBER
90 , p11_a57 out nocopy VARCHAR2
91 , p11_a58 out nocopy DATE
92 , p11_a59 out nocopy VARCHAR2
93 , p11_a60 out nocopy VARCHAR2
94 , p11_a61 out nocopy VARCHAR2
95 , p11_a62 out nocopy VARCHAR2
96 , p11_a63 out nocopy VARCHAR2
97 , p11_a64 out nocopy VARCHAR2
98 , p11_a65 out nocopy VARCHAR2
99 , p11_a66 out nocopy VARCHAR2
100 , p11_a67 out nocopy VARCHAR2
101 , p11_a68 out nocopy VARCHAR2
102 , p11_a69 out nocopy VARCHAR2
103 , p11_a70 out nocopy VARCHAR2
104 , p11_a71 out nocopy VARCHAR2
105 , p11_a72 out nocopy VARCHAR2
106 , p11_a73 out nocopy VARCHAR2
107 , p11_a74 out nocopy VARCHAR2
108 , p11_a75 out nocopy VARCHAR2
109 , p11_a76 out nocopy VARCHAR2
110 , p11_a77 out nocopy NUMBER
111 , p11_a78 out nocopy DATE
112 , p11_a79 out nocopy NUMBER
113 , p11_a80 out nocopy NUMBER
114 , p11_a81 out nocopy VARCHAR2
115 , p11_a82 out nocopy DATE
116 )
117
118 as
119 ddp_trx_date date;
120 ddx_tcnv_rec okl_transaction_pub.tcnv_rec_type;
121 ddindx binary_integer; indx binary_integer;
122 begin
123
124 -- copy data to the local IN or IN-OUT args, if any
125
126
127
128
129
130
131
132
133
134 ddp_trx_date := rosetta_g_miss_date_in_map(p_trx_date);
135
136
137
138 -- here's the delegated call to the old PL/SQL routine
139 okl_transaction_pub.create_transaction(p_api_version,
140 p_init_msg_list,
141 x_return_status,
142 x_msg_count,
143 x_msg_data,
144 p_chr_id,
145 p_new_chr_id,
146 p_reason_code,
147 p_description,
148 ddp_trx_date,
149 p_trx_type,
150 ddx_tcnv_rec);
151
152 -- copy data back from the local variables to OUT or IN-OUT args, if any
153
154
155
156
157
158
159
160
161
162
163
164 p11_a0 := rosetta_g_miss_num_map(ddx_tcnv_rec.id);
165 p11_a1 := rosetta_g_miss_num_map(ddx_tcnv_rec.object_version_number);
166 p11_a2 := ddx_tcnv_rec.rbr_code;
167 p11_a3 := ddx_tcnv_rec.rpy_code;
168 p11_a4 := ddx_tcnv_rec.rvn_code;
169 p11_a5 := ddx_tcnv_rec.trn_code;
170 p11_a6 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id_new);
171 p11_a7 := rosetta_g_miss_num_map(ddx_tcnv_rec.pvn_id);
172 p11_a8 := rosetta_g_miss_num_map(ddx_tcnv_rec.pdt_id);
173 p11_a9 := rosetta_g_miss_num_map(ddx_tcnv_rec.qte_id);
174 p11_a10 := rosetta_g_miss_num_map(ddx_tcnv_rec.aes_id);
175 p11_a11 := rosetta_g_miss_num_map(ddx_tcnv_rec.code_combination_id);
176 p11_a12 := ddx_tcnv_rec.tax_deductible_local;
177 p11_a13 := ddx_tcnv_rec.tax_deductible_corporate;
178 p11_a14 := ddx_tcnv_rec.date_accrual;
179 p11_a15 := ddx_tcnv_rec.accrual_status_yn;
180 p11_a16 := ddx_tcnv_rec.update_status_yn;
181 p11_a17 := rosetta_g_miss_num_map(ddx_tcnv_rec.amount);
182 p11_a18 := ddx_tcnv_rec.currency_code;
183 p11_a19 := ddx_tcnv_rec.attribute_category;
184 p11_a20 := ddx_tcnv_rec.attribute1;
185 p11_a21 := ddx_tcnv_rec.attribute2;
186 p11_a22 := ddx_tcnv_rec.attribute3;
187 p11_a23 := ddx_tcnv_rec.attribute4;
188 p11_a24 := ddx_tcnv_rec.attribute5;
189 p11_a25 := ddx_tcnv_rec.attribute6;
190 p11_a26 := ddx_tcnv_rec.attribute7;
191 p11_a27 := ddx_tcnv_rec.attribute8;
192 p11_a28 := ddx_tcnv_rec.attribute9;
193 p11_a29 := ddx_tcnv_rec.attribute10;
194 p11_a30 := ddx_tcnv_rec.attribute11;
195 p11_a31 := ddx_tcnv_rec.attribute12;
196 p11_a32 := ddx_tcnv_rec.attribute13;
197 p11_a33 := ddx_tcnv_rec.attribute14;
198 p11_a34 := ddx_tcnv_rec.attribute15;
199 p11_a35 := ddx_tcnv_rec.tcn_type;
200 p11_a36 := ddx_tcnv_rec.rjn_code;
201 p11_a37 := rosetta_g_miss_num_map(ddx_tcnv_rec.party_rel_id1_old);
202 p11_a38 := ddx_tcnv_rec.party_rel_id2_old;
203 p11_a39 := rosetta_g_miss_num_map(ddx_tcnv_rec.party_rel_id1_new);
204 p11_a40 := ddx_tcnv_rec.party_rel_id2_new;
205 p11_a41 := ddx_tcnv_rec.complete_transfer_yn;
206 p11_a42 := rosetta_g_miss_num_map(ddx_tcnv_rec.org_id);
207 p11_a43 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id);
208 p11_a44 := rosetta_g_miss_num_map(ddx_tcnv_rec.request_id);
209 p11_a45 := rosetta_g_miss_num_map(ddx_tcnv_rec.program_application_id);
210 p11_a46 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id_old);
211 p11_a47 := rosetta_g_miss_num_map(ddx_tcnv_rec.program_id);
212 p11_a48 := ddx_tcnv_rec.program_update_date;
213 p11_a49 := rosetta_g_miss_num_map(ddx_tcnv_rec.created_by);
214 p11_a50 := ddx_tcnv_rec.creation_date;
215 p11_a51 := rosetta_g_miss_num_map(ddx_tcnv_rec.last_updated_by);
216 p11_a52 := ddx_tcnv_rec.last_update_date;
217 p11_a53 := rosetta_g_miss_num_map(ddx_tcnv_rec.last_update_login);
218 p11_a54 := rosetta_g_miss_num_map(ddx_tcnv_rec.try_id);
219 p11_a55 := ddx_tcnv_rec.tsu_code;
220 p11_a56 := rosetta_g_miss_num_map(ddx_tcnv_rec.set_of_books_id);
221 p11_a57 := ddx_tcnv_rec.description;
222 p11_a58 := ddx_tcnv_rec.date_transaction_occurred;
223 p11_a59 := ddx_tcnv_rec.trx_number;
224 p11_a60 := ddx_tcnv_rec.tmt_evergreen_yn;
225 p11_a61 := ddx_tcnv_rec.tmt_close_balances_yn;
226 p11_a62 := ddx_tcnv_rec.tmt_accounting_entries_yn;
227 p11_a63 := ddx_tcnv_rec.tmt_cancel_insurance_yn;
228 p11_a64 := ddx_tcnv_rec.tmt_asset_disposition_yn;
229 p11_a65 := ddx_tcnv_rec.tmt_amortization_yn;
230 p11_a66 := ddx_tcnv_rec.tmt_asset_return_yn;
231 p11_a67 := ddx_tcnv_rec.tmt_contract_updated_yn;
232 p11_a68 := ddx_tcnv_rec.tmt_recycle_yn;
233 p11_a69 := ddx_tcnv_rec.tmt_validated_yn;
234 p11_a70 := ddx_tcnv_rec.tmt_streams_updated_yn;
235 p11_a71 := ddx_tcnv_rec.accrual_activity;
236 p11_a72 := ddx_tcnv_rec.tmt_split_asset_yn;
237 p11_a73 := ddx_tcnv_rec.tmt_generic_flag1_yn;
238 p11_a74 := ddx_tcnv_rec.tmt_generic_flag2_yn;
239 p11_a75 := ddx_tcnv_rec.tmt_generic_flag3_yn;
240 p11_a76 := ddx_tcnv_rec.currency_conversion_type;
241 p11_a77 := rosetta_g_miss_num_map(ddx_tcnv_rec.currency_conversion_rate);
242 p11_a78 := ddx_tcnv_rec.currency_conversion_date;
243 p11_a79 := rosetta_g_miss_num_map(ddx_tcnv_rec.chr_id);
244 p11_a80 := rosetta_g_miss_num_map(ddx_tcnv_rec.source_trx_id);
245 p11_a81 := ddx_tcnv_rec.source_trx_type;
246 p11_a82 := ddx_tcnv_rec.canceled_date;
247 end;
248
249 procedure update_trx_status(p_api_version NUMBER
250 , p_init_msg_list VARCHAR2
251 , x_return_status out nocopy VARCHAR2
252 , x_msg_count out nocopy NUMBER
253 , x_msg_data out nocopy VARCHAR2
254 , p_chr_id NUMBER
255 , p_status VARCHAR2
256 , p7_a0 out nocopy NUMBER
257 , p7_a1 out nocopy NUMBER
258 , p7_a2 out nocopy VARCHAR2
259 , p7_a3 out nocopy VARCHAR2
260 , p7_a4 out nocopy VARCHAR2
261 , p7_a5 out nocopy VARCHAR2
262 , p7_a6 out nocopy NUMBER
263 , p7_a7 out nocopy NUMBER
264 , p7_a8 out nocopy NUMBER
265 , p7_a9 out nocopy NUMBER
266 , p7_a10 out nocopy NUMBER
267 , p7_a11 out nocopy NUMBER
268 , p7_a12 out nocopy VARCHAR2
269 , p7_a13 out nocopy VARCHAR2
270 , p7_a14 out nocopy DATE
271 , p7_a15 out nocopy VARCHAR2
272 , p7_a16 out nocopy VARCHAR2
273 , p7_a17 out nocopy NUMBER
274 , p7_a18 out nocopy VARCHAR2
275 , p7_a19 out nocopy VARCHAR2
276 , p7_a20 out nocopy VARCHAR2
277 , p7_a21 out nocopy VARCHAR2
278 , p7_a22 out nocopy VARCHAR2
279 , p7_a23 out nocopy VARCHAR2
280 , p7_a24 out nocopy VARCHAR2
281 , p7_a25 out nocopy VARCHAR2
282 , p7_a26 out nocopy VARCHAR2
283 , p7_a27 out nocopy VARCHAR2
284 , p7_a28 out nocopy VARCHAR2
285 , p7_a29 out nocopy VARCHAR2
286 , p7_a30 out nocopy VARCHAR2
287 , p7_a31 out nocopy VARCHAR2
288 , p7_a32 out nocopy VARCHAR2
289 , p7_a33 out nocopy VARCHAR2
290 , p7_a34 out nocopy VARCHAR2
291 , p7_a35 out nocopy VARCHAR2
292 , p7_a36 out nocopy VARCHAR2
293 , p7_a37 out nocopy NUMBER
294 , p7_a38 out nocopy VARCHAR2
295 , p7_a39 out nocopy NUMBER
296 , p7_a40 out nocopy VARCHAR2
297 , p7_a41 out nocopy VARCHAR2
298 , p7_a42 out nocopy NUMBER
299 , p7_a43 out nocopy NUMBER
300 , p7_a44 out nocopy NUMBER
301 , p7_a45 out nocopy NUMBER
302 , p7_a46 out nocopy NUMBER
303 , p7_a47 out nocopy NUMBER
304 , p7_a48 out nocopy DATE
305 , p7_a49 out nocopy NUMBER
306 , p7_a50 out nocopy DATE
307 , p7_a51 out nocopy NUMBER
308 , p7_a52 out nocopy DATE
309 , p7_a53 out nocopy NUMBER
310 , p7_a54 out nocopy NUMBER
311 , p7_a55 out nocopy VARCHAR2
312 , p7_a56 out nocopy NUMBER
313 , p7_a57 out nocopy VARCHAR2
314 , p7_a58 out nocopy DATE
315 , p7_a59 out nocopy VARCHAR2
316 , p7_a60 out nocopy VARCHAR2
317 , p7_a61 out nocopy VARCHAR2
318 , p7_a62 out nocopy VARCHAR2
319 , p7_a63 out nocopy VARCHAR2
320 , p7_a64 out nocopy VARCHAR2
321 , p7_a65 out nocopy VARCHAR2
322 , p7_a66 out nocopy VARCHAR2
323 , p7_a67 out nocopy VARCHAR2
324 , p7_a68 out nocopy VARCHAR2
325 , p7_a69 out nocopy VARCHAR2
326 , p7_a70 out nocopy VARCHAR2
327 , p7_a71 out nocopy VARCHAR2
328 , p7_a72 out nocopy VARCHAR2
329 , p7_a73 out nocopy VARCHAR2
330 , p7_a74 out nocopy VARCHAR2
331 , p7_a75 out nocopy VARCHAR2
332 , p7_a76 out nocopy VARCHAR2
333 , p7_a77 out nocopy NUMBER
334 , p7_a78 out nocopy DATE
335 , p7_a79 out nocopy NUMBER
336 , p7_a80 out nocopy NUMBER
337 , p7_a81 out nocopy VARCHAR2
338 , p7_a82 out nocopy DATE
339 )
340
341 as
342 ddx_tcnv_rec okl_transaction_pub.tcnv_rec_type;
343 ddindx binary_integer; indx binary_integer;
344 begin
345
346 -- copy data to the local IN or IN-OUT args, if any
347
348
349
350
351
352
353
354
355 -- here's the delegated call to the old PL/SQL routine
356 okl_transaction_pub.update_trx_status(p_api_version,
357 p_init_msg_list,
358 x_return_status,
359 x_msg_count,
360 x_msg_data,
361 p_chr_id,
362 p_status,
363 ddx_tcnv_rec);
364
365 -- copy data back from the local variables to OUT or IN-OUT args, if any
366
367
368
369
370
371
372
373 p7_a0 := rosetta_g_miss_num_map(ddx_tcnv_rec.id);
374 p7_a1 := rosetta_g_miss_num_map(ddx_tcnv_rec.object_version_number);
375 p7_a2 := ddx_tcnv_rec.rbr_code;
376 p7_a3 := ddx_tcnv_rec.rpy_code;
377 p7_a4 := ddx_tcnv_rec.rvn_code;
378 p7_a5 := ddx_tcnv_rec.trn_code;
379 p7_a6 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id_new);
380 p7_a7 := rosetta_g_miss_num_map(ddx_tcnv_rec.pvn_id);
381 p7_a8 := rosetta_g_miss_num_map(ddx_tcnv_rec.pdt_id);
382 p7_a9 := rosetta_g_miss_num_map(ddx_tcnv_rec.qte_id);
383 p7_a10 := rosetta_g_miss_num_map(ddx_tcnv_rec.aes_id);
384 p7_a11 := rosetta_g_miss_num_map(ddx_tcnv_rec.code_combination_id);
385 p7_a12 := ddx_tcnv_rec.tax_deductible_local;
386 p7_a13 := ddx_tcnv_rec.tax_deductible_corporate;
387 p7_a14 := ddx_tcnv_rec.date_accrual;
388 p7_a15 := ddx_tcnv_rec.accrual_status_yn;
389 p7_a16 := ddx_tcnv_rec.update_status_yn;
390 p7_a17 := rosetta_g_miss_num_map(ddx_tcnv_rec.amount);
391 p7_a18 := ddx_tcnv_rec.currency_code;
392 p7_a19 := ddx_tcnv_rec.attribute_category;
393 p7_a20 := ddx_tcnv_rec.attribute1;
394 p7_a21 := ddx_tcnv_rec.attribute2;
395 p7_a22 := ddx_tcnv_rec.attribute3;
396 p7_a23 := ddx_tcnv_rec.attribute4;
397 p7_a24 := ddx_tcnv_rec.attribute5;
398 p7_a25 := ddx_tcnv_rec.attribute6;
399 p7_a26 := ddx_tcnv_rec.attribute7;
400 p7_a27 := ddx_tcnv_rec.attribute8;
401 p7_a28 := ddx_tcnv_rec.attribute9;
402 p7_a29 := ddx_tcnv_rec.attribute10;
403 p7_a30 := ddx_tcnv_rec.attribute11;
404 p7_a31 := ddx_tcnv_rec.attribute12;
405 p7_a32 := ddx_tcnv_rec.attribute13;
406 p7_a33 := ddx_tcnv_rec.attribute14;
407 p7_a34 := ddx_tcnv_rec.attribute15;
408 p7_a35 := ddx_tcnv_rec.tcn_type;
409 p7_a36 := ddx_tcnv_rec.rjn_code;
410 p7_a37 := rosetta_g_miss_num_map(ddx_tcnv_rec.party_rel_id1_old);
411 p7_a38 := ddx_tcnv_rec.party_rel_id2_old;
412 p7_a39 := rosetta_g_miss_num_map(ddx_tcnv_rec.party_rel_id1_new);
413 p7_a40 := ddx_tcnv_rec.party_rel_id2_new;
414 p7_a41 := ddx_tcnv_rec.complete_transfer_yn;
415 p7_a42 := rosetta_g_miss_num_map(ddx_tcnv_rec.org_id);
416 p7_a43 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id);
417 p7_a44 := rosetta_g_miss_num_map(ddx_tcnv_rec.request_id);
418 p7_a45 := rosetta_g_miss_num_map(ddx_tcnv_rec.program_application_id);
419 p7_a46 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id_old);
420 p7_a47 := rosetta_g_miss_num_map(ddx_tcnv_rec.program_id);
421 p7_a48 := ddx_tcnv_rec.program_update_date;
422 p7_a49 := rosetta_g_miss_num_map(ddx_tcnv_rec.created_by);
423 p7_a50 := ddx_tcnv_rec.creation_date;
424 p7_a51 := rosetta_g_miss_num_map(ddx_tcnv_rec.last_updated_by);
425 p7_a52 := ddx_tcnv_rec.last_update_date;
426 p7_a53 := rosetta_g_miss_num_map(ddx_tcnv_rec.last_update_login);
427 p7_a54 := rosetta_g_miss_num_map(ddx_tcnv_rec.try_id);
428 p7_a55 := ddx_tcnv_rec.tsu_code;
429 p7_a56 := rosetta_g_miss_num_map(ddx_tcnv_rec.set_of_books_id);
430 p7_a57 := ddx_tcnv_rec.description;
431 p7_a58 := ddx_tcnv_rec.date_transaction_occurred;
432 p7_a59 := ddx_tcnv_rec.trx_number;
433 p7_a60 := ddx_tcnv_rec.tmt_evergreen_yn;
434 p7_a61 := ddx_tcnv_rec.tmt_close_balances_yn;
435 p7_a62 := ddx_tcnv_rec.tmt_accounting_entries_yn;
436 p7_a63 := ddx_tcnv_rec.tmt_cancel_insurance_yn;
437 p7_a64 := ddx_tcnv_rec.tmt_asset_disposition_yn;
438 p7_a65 := ddx_tcnv_rec.tmt_amortization_yn;
439 p7_a66 := ddx_tcnv_rec.tmt_asset_return_yn;
440 p7_a67 := ddx_tcnv_rec.tmt_contract_updated_yn;
441 p7_a68 := ddx_tcnv_rec.tmt_recycle_yn;
442 p7_a69 := ddx_tcnv_rec.tmt_validated_yn;
443 p7_a70 := ddx_tcnv_rec.tmt_streams_updated_yn;
444 p7_a71 := ddx_tcnv_rec.accrual_activity;
445 p7_a72 := ddx_tcnv_rec.tmt_split_asset_yn;
446 p7_a73 := ddx_tcnv_rec.tmt_generic_flag1_yn;
447 p7_a74 := ddx_tcnv_rec.tmt_generic_flag2_yn;
448 p7_a75 := ddx_tcnv_rec.tmt_generic_flag3_yn;
449 p7_a76 := ddx_tcnv_rec.currency_conversion_type;
450 p7_a77 := rosetta_g_miss_num_map(ddx_tcnv_rec.currency_conversion_rate);
451 p7_a78 := ddx_tcnv_rec.currency_conversion_date;
452 p7_a79 := rosetta_g_miss_num_map(ddx_tcnv_rec.chr_id);
453 p7_a80 := rosetta_g_miss_num_map(ddx_tcnv_rec.source_trx_id);
454 p7_a81 := ddx_tcnv_rec.source_trx_type;
455 p7_a82 := ddx_tcnv_rec.canceled_date;
456 end;
457
458 procedure abandon_revisions(p_api_version NUMBER
459 , p_init_msg_list VARCHAR2
460 , x_return_status out nocopy VARCHAR2
461 , x_msg_count out nocopy NUMBER
462 , x_msg_data out nocopy VARCHAR2
463 , p5_a0 JTF_NUMBER_TABLE
464 , p_contract_status VARCHAR2
465 , p_tsu_code VARCHAR2
466 )
467
468 as
469 ddp_rev_tbl okl_transaction_pub.rev_tbl_type;
470 ddindx binary_integer; indx binary_integer;
471 begin
472
473 -- copy data to the local IN or IN-OUT args, if any
474
475
476
477
478
479 okl_transaction_pvt_w.rosetta_table_copy_in_p11(ddp_rev_tbl, p5_a0
480 );
481
482
483
484 -- here's the delegated call to the old PL/SQL routine
485 okl_transaction_pub.abandon_revisions(p_api_version,
486 p_init_msg_list,
487 x_return_status,
488 x_msg_count,
489 x_msg_data,
490 ddp_rev_tbl,
491 p_contract_status,
492 p_tsu_code);
493
494 -- copy data back from the local variables to OUT or IN-OUT args, if any
495
496
497
498
499
500
501
502 end;
503
504 end okl_transaction_pub_w;