[Home] [Help]
PACKAGE BODY: APPS.CSI_TRANSACTIONS_PVT_W
Source
1 package body csi_transactions_pvt_w as
2 /* $Header: csivtxwb.pls 120.12 2008/01/15 03:38:26 devijay ship $ */
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_p4(t out nocopy csi_transactions_pvt.util_order_by_tbl_type, a0 JTF_NUMBER_TABLE
26 , a1 JTF_VARCHAR2_TABLE_100
27 ) as
28 ddindx binary_integer; indx binary_integer;
29 begin
30 if a0 is not null and a0.count > 0 then
31 if a0.count > 0 then
32 indx := a0.first;
33 ddindx := 1;
34 while true loop
35 t(ddindx).col_choice := rosetta_g_miss_num_map(a0(indx));
36 t(ddindx).col_name := a1(indx);
37 ddindx := ddindx+1;
38 if a0.last =indx
39 then exit;
40 end if;
41 indx := a0.next(indx);
42 end loop;
43 end if;
44 end if;
45 end rosetta_table_copy_in_p4;
46 procedure rosetta_table_copy_out_p4(t csi_transactions_pvt.util_order_by_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
47 , a1 out nocopy JTF_VARCHAR2_TABLE_100
48 ) as
49 ddindx binary_integer; indx binary_integer;
50 begin
51 if t is null or t.count = 0 then
52 a0 := JTF_NUMBER_TABLE();
53 a1 := JTF_VARCHAR2_TABLE_100();
54 else
55 a0 := JTF_NUMBER_TABLE();
56 a1 := JTF_VARCHAR2_TABLE_100();
57 if t.count > 0 then
58 a0.extend(t.count);
59 a1.extend(t.count);
60 ddindx := t.first;
61 indx := 1;
62 while true loop
63 a0(indx) := rosetta_g_miss_num_map(t(ddindx).col_choice);
64 a1(indx) := t(ddindx).col_name;
65 indx := indx+1;
66 if t.last =ddindx
67 then exit;
68 end if;
69 ddindx := t.next(ddindx);
70 end loop;
71 end if;
72 end if;
73 end rosetta_table_copy_out_p4;
74
75 procedure get_transactions(p_api_version_number NUMBER
76 , p_init_msg_list VARCHAR2
77 , p_commit VARCHAR2
78 , p_validation_level NUMBER
79 , p_rec_requested NUMBER
80 , p_start_rec_prt NUMBER
81 , p_return_tot_count VARCHAR2
82 , x_return_status out nocopy VARCHAR2
83 , x_msg_count out nocopy NUMBER
84 , x_msg_data out nocopy VARCHAR2
85 , p12_a0 out nocopy JTF_NUMBER_TABLE
86 , p12_a1 out nocopy JTF_DATE_TABLE
87 , p12_a2 out nocopy JTF_DATE_TABLE
88 , p12_a3 out nocopy JTF_NUMBER_TABLE
89 , p12_a4 out nocopy JTF_NUMBER_TABLE
90 , p12_a5 out nocopy JTF_NUMBER_TABLE
91 , p12_a6 out nocopy JTF_VARCHAR2_TABLE_100
92 , p12_a7 out nocopy JTF_NUMBER_TABLE
93 , p12_a8 out nocopy JTF_VARCHAR2_TABLE_100
94 , p12_a9 out nocopy JTF_NUMBER_TABLE
95 , p12_a10 out nocopy JTF_VARCHAR2_TABLE_100
96 , p12_a11 out nocopy JTF_NUMBER_TABLE
97 , p12_a12 out nocopy JTF_NUMBER_TABLE
98 , p12_a13 out nocopy JTF_NUMBER_TABLE
99 , p12_a14 out nocopy JTF_NUMBER_TABLE
100 , p12_a15 out nocopy JTF_VARCHAR2_TABLE_100
101 , p12_a16 out nocopy JTF_NUMBER_TABLE
102 , p12_a17 out nocopy JTF_VARCHAR2_TABLE_100
103 , p12_a18 out nocopy JTF_VARCHAR2_TABLE_100
104 , p12_a19 out nocopy JTF_NUMBER_TABLE
105 , p12_a20 out nocopy JTF_VARCHAR2_TABLE_100
106 , p12_a21 out nocopy JTF_VARCHAR2_TABLE_200
107 , p12_a22 out nocopy JTF_VARCHAR2_TABLE_200
108 , p12_a23 out nocopy JTF_VARCHAR2_TABLE_200
109 , p12_a24 out nocopy JTF_VARCHAR2_TABLE_200
110 , p12_a25 out nocopy JTF_VARCHAR2_TABLE_200
111 , p12_a26 out nocopy JTF_VARCHAR2_TABLE_200
112 , p12_a27 out nocopy JTF_VARCHAR2_TABLE_200
113 , p12_a28 out nocopy JTF_VARCHAR2_TABLE_200
114 , p12_a29 out nocopy JTF_VARCHAR2_TABLE_200
115 , p12_a30 out nocopy JTF_VARCHAR2_TABLE_200
116 , p12_a31 out nocopy JTF_VARCHAR2_TABLE_200
117 , p12_a32 out nocopy JTF_VARCHAR2_TABLE_200
118 , p12_a33 out nocopy JTF_VARCHAR2_TABLE_200
119 , p12_a34 out nocopy JTF_VARCHAR2_TABLE_200
120 , p12_a35 out nocopy JTF_VARCHAR2_TABLE_200
121 , p12_a36 out nocopy JTF_NUMBER_TABLE
122 , p12_a37 out nocopy JTF_VARCHAR2_TABLE_100
123 , p12_a38 out nocopy JTF_NUMBER_TABLE
124 , p12_a39 out nocopy JTF_VARCHAR2_TABLE_100
125 , p12_a40 out nocopy JTF_VARCHAR2_TABLE_100
126 , p12_a41 out nocopy JTF_VARCHAR2_TABLE_100
127 , p12_a42 out nocopy JTF_VARCHAR2_TABLE_300
128 , p12_a43 out nocopy JTF_VARCHAR2_TABLE_100
129 , x_returned_rec_count out nocopy NUMBER
130 , x_next_rec_ptr out nocopy NUMBER
131 , x_tot_rec_count out nocopy NUMBER
132 , p4_a0 NUMBER := 0-1962.0724
133 , p4_a1 NUMBER := 0-1962.0724
134 , p4_a2 NUMBER := 0-1962.0724
135 , p4_a3 NUMBER := 0-1962.0724
136 , p4_a4 VARCHAR2 := fnd_api.g_miss_char
137 , p4_a5 NUMBER := 0-1962.0724
138 , p4_a6 VARCHAR2 := fnd_api.g_miss_char
139 , p4_a7 NUMBER := 0-1962.0724
140 , p4_a8 VARCHAR2 := fnd_api.g_miss_char
141 , p4_a9 DATE := fnd_api.g_miss_date
142 , p4_a10 NUMBER := 0-1962.0724
143 , p4_a11 NUMBER := 0-1962.0724
144 , p4_a12 DATE := fnd_api.g_miss_date
145 , p4_a13 DATE := fnd_api.g_miss_date
146 , p4_a14 NUMBER := 0-1962.0724
147 , p4_a15 VARCHAR2 := fnd_api.g_miss_char
148 , p8_a0 VARCHAR2 := fnd_api.g_miss_char
149 , p8_a1 VARCHAR2 := fnd_api.g_miss_char
150 )
151
152 as
153 ddp_txnfind_rec csi_datastructures_pub.transaction_query_rec;
154 ddp_order_by_rec csi_datastructures_pub.transaction_sort_rec;
155 ddx_transaction_tbl csi_datastructures_pub.transaction_header_tbl;
156 ddindx binary_integer; indx binary_integer;
157 begin
158
159 -- copy data to the local IN or IN-OUT args, if any
160
161
162
163
164 ddp_txnfind_rec.transaction_id := rosetta_g_miss_num_map(p4_a0);
165 ddp_txnfind_rec.transaction_type_id := rosetta_g_miss_num_map(p4_a1);
166 ddp_txnfind_rec.txn_sub_type_id := rosetta_g_miss_num_map(p4_a2);
167 ddp_txnfind_rec.source_group_ref_id := rosetta_g_miss_num_map(p4_a3);
168 ddp_txnfind_rec.source_group_ref := p4_a4;
169 ddp_txnfind_rec.source_header_ref_id := rosetta_g_miss_num_map(p4_a5);
170 ddp_txnfind_rec.source_header_ref := p4_a6;
171 ddp_txnfind_rec.source_line_ref_id := rosetta_g_miss_num_map(p4_a7);
172 ddp_txnfind_rec.source_line_ref := p4_a8;
173 ddp_txnfind_rec.source_transaction_date := rosetta_g_miss_date_in_map(p4_a9);
174 ddp_txnfind_rec.inv_material_transaction_id := rosetta_g_miss_num_map(p4_a10);
175 ddp_txnfind_rec.message_id := rosetta_g_miss_num_map(p4_a11);
176 ddp_txnfind_rec.transaction_start_date := rosetta_g_miss_date_in_map(p4_a12);
177 ddp_txnfind_rec.transaction_end_date := rosetta_g_miss_date_in_map(p4_a13);
178 ddp_txnfind_rec.instance_id := rosetta_g_miss_num_map(p4_a14);
179 ddp_txnfind_rec.transaction_status_code := p4_a15;
180
181
182
183
184 ddp_order_by_rec.transaction_date := p8_a0;
185 ddp_order_by_rec.transaction_type_id := p8_a1;
186
187
188
189
190
191
192
193
194 -- here's the delegated call to the old PL/SQL routine
195 csi_transactions_pvt.get_transactions(p_api_version_number,
196 p_init_msg_list,
197 p_commit,
198 p_validation_level,
199 ddp_txnfind_rec,
200 p_rec_requested,
201 p_start_rec_prt,
202 p_return_tot_count,
203 ddp_order_by_rec,
204 x_return_status,
205 x_msg_count,
206 x_msg_data,
207 ddx_transaction_tbl,
208 x_returned_rec_count,
209 x_next_rec_ptr,
210 x_tot_rec_count);
211
212 -- copy data back from the local variables to OUT or IN-OUT args, if any
213
214
215
216
217
218
219
220
221
222
223
224
225 csi_datastructures_pub_w.rosetta_table_copy_out_p75(ddx_transaction_tbl, p12_a0
226 , p12_a1
227 , p12_a2
228 , p12_a3
229 , p12_a4
230 , p12_a5
231 , p12_a6
232 , p12_a7
233 , p12_a8
234 , p12_a9
235 , p12_a10
236 , p12_a11
237 , p12_a12
238 , p12_a13
239 , p12_a14
240 , p12_a15
241 , p12_a16
242 , p12_a17
243 , p12_a18
244 , p12_a19
245 , p12_a20
246 , p12_a21
247 , p12_a22
248 , p12_a23
249 , p12_a24
250 , p12_a25
251 , p12_a26
252 , p12_a27
253 , p12_a28
254 , p12_a29
255 , p12_a30
256 , p12_a31
257 , p12_a32
258 , p12_a33
259 , p12_a34
260 , p12_a35
261 , p12_a36
262 , p12_a37
263 , p12_a38
264 , p12_a39
265 , p12_a40
266 , p12_a41
267 , p12_a42
268 , p12_a43
269 );
270
271
272
273 end;
274
275 procedure create_transaction(p_api_version NUMBER
276 , p_init_msg_list VARCHAR2
277 , p_commit VARCHAR2
278 , p_validation_level NUMBER
279 , p_success_if_exists_flag VARCHAR2
280 , p5_a0 in out nocopy NUMBER
281 , p5_a1 in out nocopy DATE
282 , p5_a2 in out nocopy DATE
283 , p5_a3 in out nocopy NUMBER
284 , p5_a4 in out nocopy NUMBER
285 , p5_a5 in out nocopy NUMBER
286 , p5_a6 in out nocopy VARCHAR2
287 , p5_a7 in out nocopy NUMBER
288 , p5_a8 in out nocopy VARCHAR2
289 , p5_a9 in out nocopy NUMBER
290 , p5_a10 in out nocopy VARCHAR2
291 , p5_a11 in out nocopy NUMBER
292 , p5_a12 in out nocopy NUMBER
293 , p5_a13 in out nocopy NUMBER
294 , p5_a14 in out nocopy NUMBER
295 , p5_a15 in out nocopy VARCHAR2
296 , p5_a16 in out nocopy NUMBER
297 , p5_a17 in out nocopy VARCHAR2
298 , p5_a18 in out nocopy VARCHAR2
299 , p5_a19 in out nocopy NUMBER
300 , p5_a20 in out nocopy VARCHAR2
301 , p5_a21 in out nocopy VARCHAR2
302 , p5_a22 in out nocopy VARCHAR2
303 , p5_a23 in out nocopy VARCHAR2
304 , p5_a24 in out nocopy VARCHAR2
305 , p5_a25 in out nocopy VARCHAR2
306 , p5_a26 in out nocopy VARCHAR2
307 , p5_a27 in out nocopy VARCHAR2
308 , p5_a28 in out nocopy VARCHAR2
309 , p5_a29 in out nocopy VARCHAR2
310 , p5_a30 in out nocopy VARCHAR2
311 , p5_a31 in out nocopy VARCHAR2
312 , p5_a32 in out nocopy VARCHAR2
313 , p5_a33 in out nocopy VARCHAR2
314 , p5_a34 in out nocopy VARCHAR2
315 , p5_a35 in out nocopy VARCHAR2
316 , p5_a36 in out nocopy NUMBER
317 , p5_a37 in out nocopy VARCHAR2
318 , p5_a38 in out nocopy DATE
319 , p5_a39 in out nocopy NUMBER
320 , x_return_status out nocopy VARCHAR2
321 , x_msg_count out nocopy NUMBER
322 , x_msg_data out nocopy VARCHAR2
323 )
324
325 as
326 ddp_transaction_rec csi_datastructures_pub.transaction_rec;
327 ddindx binary_integer; indx binary_integer;
328 begin
329
330 -- copy data to the local IN or IN-OUT args, if any
331
332
333
334
335
336 ddp_transaction_rec.transaction_id := rosetta_g_miss_num_map(p5_a0);
337 ddp_transaction_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a1);
338 ddp_transaction_rec.source_transaction_date := rosetta_g_miss_date_in_map(p5_a2);
339 ddp_transaction_rec.transaction_type_id := rosetta_g_miss_num_map(p5_a3);
340 ddp_transaction_rec.txn_sub_type_id := rosetta_g_miss_num_map(p5_a4);
341 ddp_transaction_rec.source_group_ref_id := rosetta_g_miss_num_map(p5_a5);
342 ddp_transaction_rec.source_group_ref := p5_a6;
343 ddp_transaction_rec.source_header_ref_id := rosetta_g_miss_num_map(p5_a7);
344 ddp_transaction_rec.source_header_ref := p5_a8;
345 ddp_transaction_rec.source_line_ref_id := rosetta_g_miss_num_map(p5_a9);
346 ddp_transaction_rec.source_line_ref := p5_a10;
347 ddp_transaction_rec.source_dist_ref_id1 := rosetta_g_miss_num_map(p5_a11);
348 ddp_transaction_rec.source_dist_ref_id2 := rosetta_g_miss_num_map(p5_a12);
349 ddp_transaction_rec.inv_material_transaction_id := rosetta_g_miss_num_map(p5_a13);
350 ddp_transaction_rec.transaction_quantity := rosetta_g_miss_num_map(p5_a14);
351 ddp_transaction_rec.transaction_uom_code := p5_a15;
352 ddp_transaction_rec.transacted_by := rosetta_g_miss_num_map(p5_a16);
353 ddp_transaction_rec.transaction_status_code := p5_a17;
354 ddp_transaction_rec.transaction_action_code := p5_a18;
355 ddp_transaction_rec.message_id := rosetta_g_miss_num_map(p5_a19);
356 ddp_transaction_rec.context := p5_a20;
357 ddp_transaction_rec.attribute1 := p5_a21;
358 ddp_transaction_rec.attribute2 := p5_a22;
359 ddp_transaction_rec.attribute3 := p5_a23;
360 ddp_transaction_rec.attribute4 := p5_a24;
361 ddp_transaction_rec.attribute5 := p5_a25;
362 ddp_transaction_rec.attribute6 := p5_a26;
363 ddp_transaction_rec.attribute7 := p5_a27;
364 ddp_transaction_rec.attribute8 := p5_a28;
365 ddp_transaction_rec.attribute9 := p5_a29;
366 ddp_transaction_rec.attribute10 := p5_a30;
367 ddp_transaction_rec.attribute11 := p5_a31;
368 ddp_transaction_rec.attribute12 := p5_a32;
369 ddp_transaction_rec.attribute13 := p5_a33;
370 ddp_transaction_rec.attribute14 := p5_a34;
371 ddp_transaction_rec.attribute15 := p5_a35;
372 ddp_transaction_rec.object_version_number := rosetta_g_miss_num_map(p5_a36);
373 ddp_transaction_rec.split_reason_code := p5_a37;
374 ddp_transaction_rec.src_txn_creation_date := rosetta_g_miss_date_in_map(p5_a38);
375 ddp_transaction_rec.gl_interface_status_code := rosetta_g_miss_num_map(p5_a39);
376
377
378
379
380 -- here's the delegated call to the old PL/SQL routine
381 csi_transactions_pvt.create_transaction(p_api_version,
382 p_init_msg_list,
383 p_commit,
384 p_validation_level,
385 p_success_if_exists_flag,
386 ddp_transaction_rec,
387 x_return_status,
388 x_msg_count,
389 x_msg_data);
390
391 -- copy data back from the local variables to OUT or IN-OUT args, if any
392
393
394
395
396
397 p5_a0 := rosetta_g_miss_num_map(ddp_transaction_rec.transaction_id);
398 p5_a1 := ddp_transaction_rec.transaction_date;
399 p5_a2 := ddp_transaction_rec.source_transaction_date;
400 p5_a3 := rosetta_g_miss_num_map(ddp_transaction_rec.transaction_type_id);
401 p5_a4 := rosetta_g_miss_num_map(ddp_transaction_rec.txn_sub_type_id);
402 p5_a5 := rosetta_g_miss_num_map(ddp_transaction_rec.source_group_ref_id);
403 p5_a6 := ddp_transaction_rec.source_group_ref;
404 p5_a7 := rosetta_g_miss_num_map(ddp_transaction_rec.source_header_ref_id);
405 p5_a8 := ddp_transaction_rec.source_header_ref;
406 p5_a9 := rosetta_g_miss_num_map(ddp_transaction_rec.source_line_ref_id);
407 p5_a10 := ddp_transaction_rec.source_line_ref;
408 p5_a11 := rosetta_g_miss_num_map(ddp_transaction_rec.source_dist_ref_id1);
409 p5_a12 := rosetta_g_miss_num_map(ddp_transaction_rec.source_dist_ref_id2);
410 p5_a13 := rosetta_g_miss_num_map(ddp_transaction_rec.inv_material_transaction_id);
411 p5_a14 := rosetta_g_miss_num_map(ddp_transaction_rec.transaction_quantity);
412 p5_a15 := ddp_transaction_rec.transaction_uom_code;
413 p5_a16 := rosetta_g_miss_num_map(ddp_transaction_rec.transacted_by);
414 p5_a17 := ddp_transaction_rec.transaction_status_code;
415 p5_a18 := ddp_transaction_rec.transaction_action_code;
416 p5_a19 := rosetta_g_miss_num_map(ddp_transaction_rec.message_id);
417 p5_a20 := ddp_transaction_rec.context;
418 p5_a21 := ddp_transaction_rec.attribute1;
419 p5_a22 := ddp_transaction_rec.attribute2;
420 p5_a23 := ddp_transaction_rec.attribute3;
421 p5_a24 := ddp_transaction_rec.attribute4;
422 p5_a25 := ddp_transaction_rec.attribute5;
423 p5_a26 := ddp_transaction_rec.attribute6;
424 p5_a27 := ddp_transaction_rec.attribute7;
425 p5_a28 := ddp_transaction_rec.attribute8;
426 p5_a29 := ddp_transaction_rec.attribute9;
427 p5_a30 := ddp_transaction_rec.attribute10;
428 p5_a31 := ddp_transaction_rec.attribute11;
429 p5_a32 := ddp_transaction_rec.attribute12;
430 p5_a33 := ddp_transaction_rec.attribute13;
431 p5_a34 := ddp_transaction_rec.attribute14;
432 p5_a35 := ddp_transaction_rec.attribute15;
433 p5_a36 := rosetta_g_miss_num_map(ddp_transaction_rec.object_version_number);
434 p5_a37 := ddp_transaction_rec.split_reason_code;
435 p5_a38 := ddp_transaction_rec.src_txn_creation_date;
436 p5_a39 := rosetta_g_miss_num_map(ddp_transaction_rec.gl_interface_status_code);
437
438
439
440 end;
441
442 procedure update_transactions(p_api_version NUMBER
443 , p_init_msg_list VARCHAR2
444 , p_commit VARCHAR2
445 , p_validation_level NUMBER
446 , x_return_status out nocopy VARCHAR2
447 , x_msg_count out nocopy NUMBER
448 , x_msg_data out nocopy VARCHAR2
449 , p4_a0 NUMBER := 0-1962.0724
450 , p4_a1 DATE := fnd_api.g_miss_date
451 , p4_a2 DATE := fnd_api.g_miss_date
452 , p4_a3 NUMBER := 0-1962.0724
453 , p4_a4 NUMBER := 0-1962.0724
454 , p4_a5 NUMBER := 0-1962.0724
455 , p4_a6 VARCHAR2 := fnd_api.g_miss_char
456 , p4_a7 NUMBER := 0-1962.0724
457 , p4_a8 VARCHAR2 := fnd_api.g_miss_char
458 , p4_a9 NUMBER := 0-1962.0724
459 , p4_a10 VARCHAR2 := fnd_api.g_miss_char
460 , p4_a11 NUMBER := 0-1962.0724
461 , p4_a12 NUMBER := 0-1962.0724
462 , p4_a13 NUMBER := 0-1962.0724
463 , p4_a14 NUMBER := 0-1962.0724
464 , p4_a15 VARCHAR2 := fnd_api.g_miss_char
465 , p4_a16 NUMBER := 0-1962.0724
466 , p4_a17 VARCHAR2 := fnd_api.g_miss_char
467 , p4_a18 VARCHAR2 := fnd_api.g_miss_char
468 , p4_a19 NUMBER := 0-1962.0724
469 , p4_a20 VARCHAR2 := fnd_api.g_miss_char
470 , p4_a21 VARCHAR2 := fnd_api.g_miss_char
471 , p4_a22 VARCHAR2 := fnd_api.g_miss_char
472 , p4_a23 VARCHAR2 := fnd_api.g_miss_char
473 , p4_a24 VARCHAR2 := fnd_api.g_miss_char
474 , p4_a25 VARCHAR2 := fnd_api.g_miss_char
475 , p4_a26 VARCHAR2 := fnd_api.g_miss_char
476 , p4_a27 VARCHAR2 := fnd_api.g_miss_char
477 , p4_a28 VARCHAR2 := fnd_api.g_miss_char
478 , p4_a29 VARCHAR2 := fnd_api.g_miss_char
479 , p4_a30 VARCHAR2 := fnd_api.g_miss_char
480 , p4_a31 VARCHAR2 := fnd_api.g_miss_char
481 , p4_a32 VARCHAR2 := fnd_api.g_miss_char
482 , p4_a33 VARCHAR2 := fnd_api.g_miss_char
483 , p4_a34 VARCHAR2 := fnd_api.g_miss_char
484 , p4_a35 VARCHAR2 := fnd_api.g_miss_char
485 , p4_a36 NUMBER := 0-1962.0724
486 , p4_a37 VARCHAR2 := fnd_api.g_miss_char
487 , p4_a38 DATE := fnd_api.g_miss_date
488 , p4_a39 NUMBER := 0-1962.0724
489 )
490
491 as
492 ddp_transaction_rec csi_datastructures_pub.transaction_rec;
493 ddindx binary_integer; indx binary_integer;
494 begin
495
496 -- copy data to the local IN or IN-OUT args, if any
497
498
499
500
501 ddp_transaction_rec.transaction_id := rosetta_g_miss_num_map(p4_a0);
502 ddp_transaction_rec.transaction_date := rosetta_g_miss_date_in_map(p4_a1);
503 ddp_transaction_rec.source_transaction_date := rosetta_g_miss_date_in_map(p4_a2);
504 ddp_transaction_rec.transaction_type_id := rosetta_g_miss_num_map(p4_a3);
505 ddp_transaction_rec.txn_sub_type_id := rosetta_g_miss_num_map(p4_a4);
506 ddp_transaction_rec.source_group_ref_id := rosetta_g_miss_num_map(p4_a5);
507 ddp_transaction_rec.source_group_ref := p4_a6;
508 ddp_transaction_rec.source_header_ref_id := rosetta_g_miss_num_map(p4_a7);
509 ddp_transaction_rec.source_header_ref := p4_a8;
510 ddp_transaction_rec.source_line_ref_id := rosetta_g_miss_num_map(p4_a9);
511 ddp_transaction_rec.source_line_ref := p4_a10;
512 ddp_transaction_rec.source_dist_ref_id1 := rosetta_g_miss_num_map(p4_a11);
513 ddp_transaction_rec.source_dist_ref_id2 := rosetta_g_miss_num_map(p4_a12);
514 ddp_transaction_rec.inv_material_transaction_id := rosetta_g_miss_num_map(p4_a13);
515 ddp_transaction_rec.transaction_quantity := rosetta_g_miss_num_map(p4_a14);
516 ddp_transaction_rec.transaction_uom_code := p4_a15;
517 ddp_transaction_rec.transacted_by := rosetta_g_miss_num_map(p4_a16);
518 ddp_transaction_rec.transaction_status_code := p4_a17;
519 ddp_transaction_rec.transaction_action_code := p4_a18;
520 ddp_transaction_rec.message_id := rosetta_g_miss_num_map(p4_a19);
521 ddp_transaction_rec.context := p4_a20;
522 ddp_transaction_rec.attribute1 := p4_a21;
523 ddp_transaction_rec.attribute2 := p4_a22;
524 ddp_transaction_rec.attribute3 := p4_a23;
525 ddp_transaction_rec.attribute4 := p4_a24;
526 ddp_transaction_rec.attribute5 := p4_a25;
527 ddp_transaction_rec.attribute6 := p4_a26;
528 ddp_transaction_rec.attribute7 := p4_a27;
529 ddp_transaction_rec.attribute8 := p4_a28;
530 ddp_transaction_rec.attribute9 := p4_a29;
531 ddp_transaction_rec.attribute10 := p4_a30;
532 ddp_transaction_rec.attribute11 := p4_a31;
533 ddp_transaction_rec.attribute12 := p4_a32;
534 ddp_transaction_rec.attribute13 := p4_a33;
535 ddp_transaction_rec.attribute14 := p4_a34;
536 ddp_transaction_rec.attribute15 := p4_a35;
537 ddp_transaction_rec.object_version_number := rosetta_g_miss_num_map(p4_a36);
538 ddp_transaction_rec.split_reason_code := p4_a37;
539 ddp_transaction_rec.src_txn_creation_date := rosetta_g_miss_date_in_map(p4_a38);
540 ddp_transaction_rec.gl_interface_status_code := rosetta_g_miss_num_map(p4_a39);
541
542
543
544
545 -- here's the delegated call to the old PL/SQL routine
546 csi_transactions_pvt.update_transactions(p_api_version,
547 p_init_msg_list,
548 p_commit,
549 p_validation_level,
550 ddp_transaction_rec,
551 x_return_status,
552 x_msg_count,
553 x_msg_data);
554
555 -- copy data back from the local variables to OUT or IN-OUT args, if any
556
557
558
559
560
561
562
563 end;
564
565 procedure create_txn_error(p_api_version NUMBER
566 , p_init_msg_list VARCHAR2
567 , p_commit VARCHAR2
568 , p_validation_level NUMBER
569 , x_return_status out nocopy VARCHAR2
570 , x_msg_count out nocopy NUMBER
571 , x_msg_data out nocopy VARCHAR2
572 , x_transaction_error_id out nocopy NUMBER
573 , p4_a0 NUMBER := 0-1962.0724
574 , p4_a1 NUMBER := 0-1962.0724
575 , p4_a2 NUMBER := 0-1962.0724
576 , p4_a3 VARCHAR2 := fnd_api.g_miss_char
577 , p4_a4 VARCHAR2 := fnd_api.g_miss_char
578 , p4_a5 NUMBER := 0-1962.0724
579 , p4_a6 VARCHAR2 := fnd_api.g_miss_char
580 , p4_a7 NUMBER := 0-1962.0724
581 , p4_a8 DATE := fnd_api.g_miss_date
582 , p4_a9 NUMBER := 0-1962.0724
583 , p4_a10 DATE := fnd_api.g_miss_date
584 , p4_a11 NUMBER := 0-1962.0724
585 , p4_a12 NUMBER := 0-1962.0724
586 , p4_a13 NUMBER := 0-1962.0724
587 , p4_a14 VARCHAR2 := fnd_api.g_miss_char
588 , p4_a15 NUMBER := 0-1962.0724
589 , p4_a16 VARCHAR2 := fnd_api.g_miss_char
590 , p4_a17 NUMBER := 0-1962.0724
591 , p4_a18 VARCHAR2 := fnd_api.g_miss_char
592 , p4_a19 NUMBER := 0-1962.0724
593 , p4_a20 NUMBER := 0-1962.0724
594 , p4_a21 NUMBER := 0-1962.0724
595 , p4_a22 NUMBER := 0-1962.0724
596 , p4_a23 VARCHAR2 := fnd_api.g_miss_char
597 , p4_a24 VARCHAR2 := fnd_api.g_miss_char
598 , p4_a25 NUMBER := 0-1962.0724
599 , p4_a26 NUMBER := 0-1962.0724
600 , p4_a27 VARCHAR2 := fnd_api.g_miss_char
601 , p4_a28 VARCHAR2 := fnd_api.g_miss_char
602 , p4_a29 DATE := fnd_api.g_miss_date
603 , p4_a30 NUMBER := 0-1962.0724
604 , p4_a31 NUMBER := 0-1962.0724
605 , p4_a32 NUMBER := 0-1962.0724
606 , p4_a33 NUMBER := 0-1962.0724
607 , p4_a34 NUMBER := 0-1962.0724
608 , p4_a35 NUMBER := 0-1962.0724
609 , p4_a36 NUMBER := 0-1962.0724
610 , p4_a37 NUMBER := 0-1962.0724
611 , p4_a38 VARCHAR2 := fnd_api.g_miss_char
612 )
613
614 as
615 ddp_txn_error_rec csi_datastructures_pub.transaction_error_rec;
616 ddindx binary_integer; indx binary_integer;
617 begin
618
619 -- copy data to the local IN or IN-OUT args, if any
620
621
622
623
624 ddp_txn_error_rec.transaction_error_id := rosetta_g_miss_num_map(p4_a0);
625 ddp_txn_error_rec.transaction_id := rosetta_g_miss_num_map(p4_a1);
626 ddp_txn_error_rec.message_id := rosetta_g_miss_num_map(p4_a2);
627 ddp_txn_error_rec.error_text := p4_a3;
628 ddp_txn_error_rec.source_type := p4_a4;
629 ddp_txn_error_rec.source_id := rosetta_g_miss_num_map(p4_a5);
630 ddp_txn_error_rec.processed_flag := p4_a6;
631 ddp_txn_error_rec.created_by := rosetta_g_miss_num_map(p4_a7);
632 ddp_txn_error_rec.creation_date := rosetta_g_miss_date_in_map(p4_a8);
633 ddp_txn_error_rec.last_updated_by := rosetta_g_miss_num_map(p4_a9);
634 ddp_txn_error_rec.last_update_date := rosetta_g_miss_date_in_map(p4_a10);
635 ddp_txn_error_rec.last_update_login := rosetta_g_miss_num_map(p4_a11);
636 ddp_txn_error_rec.object_version_number := rosetta_g_miss_num_map(p4_a12);
637 ddp_txn_error_rec.transaction_type_id := rosetta_g_miss_num_map(p4_a13);
638 ddp_txn_error_rec.source_group_ref := p4_a14;
639 ddp_txn_error_rec.source_group_ref_id := rosetta_g_miss_num_map(p4_a15);
640 ddp_txn_error_rec.source_header_ref := p4_a16;
641 ddp_txn_error_rec.source_header_ref_id := rosetta_g_miss_num_map(p4_a17);
642 ddp_txn_error_rec.source_line_ref := p4_a18;
643 ddp_txn_error_rec.source_line_ref_id := rosetta_g_miss_num_map(p4_a19);
644 ddp_txn_error_rec.source_dist_ref_id1 := rosetta_g_miss_num_map(p4_a20);
645 ddp_txn_error_rec.source_dist_ref_id2 := rosetta_g_miss_num_map(p4_a21);
646 ddp_txn_error_rec.inv_material_transaction_id := rosetta_g_miss_num_map(p4_a22);
647 ddp_txn_error_rec.error_stage := p4_a23;
648 ddp_txn_error_rec.message_string := p4_a24;
649 ddp_txn_error_rec.instance_id := rosetta_g_miss_num_map(p4_a25);
650 ddp_txn_error_rec.inventory_item_id := rosetta_g_miss_num_map(p4_a26);
651 ddp_txn_error_rec.serial_number := p4_a27;
652 ddp_txn_error_rec.lot_number := p4_a28;
653 ddp_txn_error_rec.transaction_error_date := rosetta_g_miss_date_in_map(p4_a29);
654 ddp_txn_error_rec.src_serial_num_ctrl_code := rosetta_g_miss_num_map(p4_a30);
655 ddp_txn_error_rec.src_location_ctrl_code := rosetta_g_miss_num_map(p4_a31);
656 ddp_txn_error_rec.src_lot_ctrl_code := rosetta_g_miss_num_map(p4_a32);
657 ddp_txn_error_rec.src_rev_qty_ctrl_code := rosetta_g_miss_num_map(p4_a33);
658 ddp_txn_error_rec.dst_serial_num_ctrl_code := rosetta_g_miss_num_map(p4_a34);
659 ddp_txn_error_rec.dst_location_ctrl_code := rosetta_g_miss_num_map(p4_a35);
660 ddp_txn_error_rec.dst_lot_ctrl_code := rosetta_g_miss_num_map(p4_a36);
661 ddp_txn_error_rec.dst_rev_qty_ctrl_code := rosetta_g_miss_num_map(p4_a37);
662 ddp_txn_error_rec.comms_nl_trackable_flag := p4_a38;
663
664
665
666
667
668 -- here's the delegated call to the old PL/SQL routine
669 csi_transactions_pvt.create_txn_error(p_api_version,
670 p_init_msg_list,
671 p_commit,
672 p_validation_level,
673 ddp_txn_error_rec,
674 x_return_status,
675 x_msg_count,
676 x_msg_data,
677 x_transaction_error_id);
678
679 -- copy data back from the local variables to OUT or IN-OUT args, if any
680
681
682
683
684
685
686
687
688 end;
689
690 end csi_transactions_pvt_w;