[Home] [Help]
PACKAGE BODY: APPS.CSI_ORGANIZATION_UNIT_PUB_W
Source
1 package body csi_organization_unit_pub_w as
2 /* $Header: csipouwb.pls 120.11 2008/01/15 03:39:23 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 get_organization_unit(p_api_version NUMBER
26 , p_commit VARCHAR2
27 , p_init_msg_list VARCHAR2
28 , p_validation_level NUMBER
29 , p_resolve_id_columns VARCHAR2
30 , p_time_stamp date
31 , p7_a0 out nocopy JTF_NUMBER_TABLE
32 , p7_a1 out nocopy JTF_NUMBER_TABLE
33 , p7_a2 out nocopy JTF_NUMBER_TABLE
34 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_100
35 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_100
36 , p7_a5 out nocopy JTF_DATE_TABLE
37 , p7_a6 out nocopy JTF_DATE_TABLE
38 , p7_a7 out nocopy JTF_VARCHAR2_TABLE_100
39 , p7_a8 out nocopy JTF_VARCHAR2_TABLE_200
40 , p7_a9 out nocopy JTF_VARCHAR2_TABLE_200
41 , p7_a10 out nocopy JTF_VARCHAR2_TABLE_200
42 , p7_a11 out nocopy JTF_VARCHAR2_TABLE_200
43 , p7_a12 out nocopy JTF_VARCHAR2_TABLE_200
44 , p7_a13 out nocopy JTF_VARCHAR2_TABLE_200
45 , p7_a14 out nocopy JTF_VARCHAR2_TABLE_200
46 , p7_a15 out nocopy JTF_VARCHAR2_TABLE_200
47 , p7_a16 out nocopy JTF_VARCHAR2_TABLE_200
48 , p7_a17 out nocopy JTF_VARCHAR2_TABLE_200
49 , p7_a18 out nocopy JTF_VARCHAR2_TABLE_200
50 , p7_a19 out nocopy JTF_VARCHAR2_TABLE_200
51 , p7_a20 out nocopy JTF_VARCHAR2_TABLE_200
52 , p7_a21 out nocopy JTF_VARCHAR2_TABLE_200
53 , p7_a22 out nocopy JTF_VARCHAR2_TABLE_200
54 , p7_a23 out nocopy JTF_NUMBER_TABLE
55 , p7_a24 out nocopy JTF_VARCHAR2_TABLE_100
56 , x_return_status out nocopy VARCHAR2
57 , x_msg_count out nocopy NUMBER
58 , x_msg_data out nocopy VARCHAR2
59 , p4_a0 NUMBER := 0-1962.0724
60 , p4_a1 NUMBER := 0-1962.0724
61 , p4_a2 NUMBER := 0-1962.0724
62 , p4_a3 VARCHAR2 := fnd_api.g_miss_char
63 )
64
65 as
66 ddp_ou_query_rec csi_datastructures_pub.organization_unit_query_rec;
67 ddp_time_stamp date;
68 ddx_org_unit_tbl csi_datastructures_pub.org_units_header_tbl;
69 ddindx binary_integer; indx binary_integer;
70 begin
71
72 -- copy data to the local IN or IN-OUT args, if any
73
74
75
76
77 ddp_ou_query_rec.instance_ou_id := rosetta_g_miss_num_map(p4_a0);
78 ddp_ou_query_rec.instance_id := rosetta_g_miss_num_map(p4_a1);
79 ddp_ou_query_rec.operating_unit_id := rosetta_g_miss_num_map(p4_a2);
80 ddp_ou_query_rec.relationship_type_code := p4_a3;
81
82
83 ddp_time_stamp := rosetta_g_miss_date_in_map(p_time_stamp);
84
85
86
87
88
89 -- here's the delegated call to the old PL/SQL routine
90 csi_organization_unit_pub.get_organization_unit(p_api_version,
91 p_commit,
92 p_init_msg_list,
93 p_validation_level,
94 ddp_ou_query_rec,
95 p_resolve_id_columns,
96 ddp_time_stamp,
97 ddx_org_unit_tbl,
98 x_return_status,
99 x_msg_count,
100 x_msg_data);
101
102 -- copy data back from the local variables to OUT or IN-OUT args, if any
103
104
105
106
107
108
109
110 csi_datastructures_pub_w.rosetta_table_copy_out_p57(ddx_org_unit_tbl, p7_a0
111 , p7_a1
112 , p7_a2
113 , p7_a3
114 , p7_a4
115 , p7_a5
116 , p7_a6
117 , p7_a7
118 , p7_a8
119 , p7_a9
120 , p7_a10
121 , p7_a11
122 , p7_a12
123 , p7_a13
124 , p7_a14
125 , p7_a15
126 , p7_a16
127 , p7_a17
128 , p7_a18
129 , p7_a19
130 , p7_a20
131 , p7_a21
132 , p7_a22
133 , p7_a23
134 , p7_a24
135 );
136
137
138
139 end;
140
141 procedure create_organization_unit(p_api_version NUMBER
142 , p_commit VARCHAR2
143 , p_init_msg_list VARCHAR2
144 , p_validation_level NUMBER
145 , p4_a0 in out nocopy JTF_NUMBER_TABLE
146 , p4_a1 in out nocopy JTF_NUMBER_TABLE
147 , p4_a2 in out nocopy JTF_NUMBER_TABLE
148 , p4_a3 in out nocopy JTF_VARCHAR2_TABLE_100
149 , p4_a4 in out nocopy JTF_DATE_TABLE
150 , p4_a5 in out nocopy JTF_DATE_TABLE
151 , p4_a6 in out nocopy JTF_VARCHAR2_TABLE_100
152 , p4_a7 in out nocopy JTF_VARCHAR2_TABLE_200
153 , p4_a8 in out nocopy JTF_VARCHAR2_TABLE_200
154 , p4_a9 in out nocopy JTF_VARCHAR2_TABLE_200
155 , p4_a10 in out nocopy JTF_VARCHAR2_TABLE_200
156 , p4_a11 in out nocopy JTF_VARCHAR2_TABLE_200
157 , p4_a12 in out nocopy JTF_VARCHAR2_TABLE_200
158 , p4_a13 in out nocopy JTF_VARCHAR2_TABLE_200
159 , p4_a14 in out nocopy JTF_VARCHAR2_TABLE_200
160 , p4_a15 in out nocopy JTF_VARCHAR2_TABLE_200
161 , p4_a16 in out nocopy JTF_VARCHAR2_TABLE_200
162 , p4_a17 in out nocopy JTF_VARCHAR2_TABLE_200
163 , p4_a18 in out nocopy JTF_VARCHAR2_TABLE_200
164 , p4_a19 in out nocopy JTF_VARCHAR2_TABLE_200
165 , p4_a20 in out nocopy JTF_VARCHAR2_TABLE_200
166 , p4_a21 in out nocopy JTF_VARCHAR2_TABLE_200
167 , p4_a22 in out nocopy JTF_NUMBER_TABLE
168 , p4_a23 in out nocopy JTF_NUMBER_TABLE
169 , p5_a0 in out nocopy NUMBER
170 , p5_a1 in out nocopy DATE
171 , p5_a2 in out nocopy DATE
172 , p5_a3 in out nocopy NUMBER
173 , p5_a4 in out nocopy NUMBER
174 , p5_a5 in out nocopy NUMBER
175 , p5_a6 in out nocopy VARCHAR2
176 , p5_a7 in out nocopy NUMBER
177 , p5_a8 in out nocopy VARCHAR2
178 , p5_a9 in out nocopy NUMBER
179 , p5_a10 in out nocopy VARCHAR2
180 , p5_a11 in out nocopy NUMBER
181 , p5_a12 in out nocopy NUMBER
182 , p5_a13 in out nocopy NUMBER
183 , p5_a14 in out nocopy NUMBER
184 , p5_a15 in out nocopy VARCHAR2
185 , p5_a16 in out nocopy NUMBER
186 , p5_a17 in out nocopy VARCHAR2
187 , p5_a18 in out nocopy VARCHAR2
188 , p5_a19 in out nocopy NUMBER
189 , p5_a20 in out nocopy VARCHAR2
190 , p5_a21 in out nocopy VARCHAR2
191 , p5_a22 in out nocopy VARCHAR2
192 , p5_a23 in out nocopy VARCHAR2
193 , p5_a24 in out nocopy VARCHAR2
194 , p5_a25 in out nocopy VARCHAR2
195 , p5_a26 in out nocopy VARCHAR2
196 , p5_a27 in out nocopy VARCHAR2
197 , p5_a28 in out nocopy VARCHAR2
198 , p5_a29 in out nocopy VARCHAR2
199 , p5_a30 in out nocopy VARCHAR2
200 , p5_a31 in out nocopy VARCHAR2
201 , p5_a32 in out nocopy VARCHAR2
202 , p5_a33 in out nocopy VARCHAR2
203 , p5_a34 in out nocopy VARCHAR2
204 , p5_a35 in out nocopy VARCHAR2
205 , p5_a36 in out nocopy NUMBER
206 , p5_a37 in out nocopy VARCHAR2
207 , p5_a38 in out nocopy DATE
208 , p5_a39 in out nocopy NUMBER
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_org_unit_tbl csi_datastructures_pub.organization_units_tbl;
216 ddp_txn_rec csi_datastructures_pub.transaction_rec;
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 csi_datastructures_pub_w.rosetta_table_copy_in_p49(ddp_org_unit_tbl, p4_a0
226 , p4_a1
227 , p4_a2
228 , p4_a3
229 , p4_a4
230 , p4_a5
231 , p4_a6
232 , p4_a7
233 , p4_a8
234 , p4_a9
235 , p4_a10
236 , p4_a11
237 , p4_a12
238 , p4_a13
239 , p4_a14
240 , p4_a15
241 , p4_a16
242 , p4_a17
243 , p4_a18
244 , p4_a19
245 , p4_a20
246 , p4_a21
247 , p4_a22
248 , p4_a23
249 );
250
251 ddp_txn_rec.transaction_id := rosetta_g_miss_num_map(p5_a0);
252 ddp_txn_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a1);
253 ddp_txn_rec.source_transaction_date := rosetta_g_miss_date_in_map(p5_a2);
254 ddp_txn_rec.transaction_type_id := rosetta_g_miss_num_map(p5_a3);
255 ddp_txn_rec.txn_sub_type_id := rosetta_g_miss_num_map(p5_a4);
256 ddp_txn_rec.source_group_ref_id := rosetta_g_miss_num_map(p5_a5);
257 ddp_txn_rec.source_group_ref := p5_a6;
258 ddp_txn_rec.source_header_ref_id := rosetta_g_miss_num_map(p5_a7);
259 ddp_txn_rec.source_header_ref := p5_a8;
260 ddp_txn_rec.source_line_ref_id := rosetta_g_miss_num_map(p5_a9);
261 ddp_txn_rec.source_line_ref := p5_a10;
262 ddp_txn_rec.source_dist_ref_id1 := rosetta_g_miss_num_map(p5_a11);
263 ddp_txn_rec.source_dist_ref_id2 := rosetta_g_miss_num_map(p5_a12);
264 ddp_txn_rec.inv_material_transaction_id := rosetta_g_miss_num_map(p5_a13);
265 ddp_txn_rec.transaction_quantity := rosetta_g_miss_num_map(p5_a14);
266 ddp_txn_rec.transaction_uom_code := p5_a15;
267 ddp_txn_rec.transacted_by := rosetta_g_miss_num_map(p5_a16);
268 ddp_txn_rec.transaction_status_code := p5_a17;
269 ddp_txn_rec.transaction_action_code := p5_a18;
270 ddp_txn_rec.message_id := rosetta_g_miss_num_map(p5_a19);
271 ddp_txn_rec.context := p5_a20;
272 ddp_txn_rec.attribute1 := p5_a21;
273 ddp_txn_rec.attribute2 := p5_a22;
274 ddp_txn_rec.attribute3 := p5_a23;
275 ddp_txn_rec.attribute4 := p5_a24;
276 ddp_txn_rec.attribute5 := p5_a25;
277 ddp_txn_rec.attribute6 := p5_a26;
278 ddp_txn_rec.attribute7 := p5_a27;
279 ddp_txn_rec.attribute8 := p5_a28;
280 ddp_txn_rec.attribute9 := p5_a29;
281 ddp_txn_rec.attribute10 := p5_a30;
282 ddp_txn_rec.attribute11 := p5_a31;
283 ddp_txn_rec.attribute12 := p5_a32;
284 ddp_txn_rec.attribute13 := p5_a33;
285 ddp_txn_rec.attribute14 := p5_a34;
286 ddp_txn_rec.attribute15 := p5_a35;
287 ddp_txn_rec.object_version_number := rosetta_g_miss_num_map(p5_a36);
288 ddp_txn_rec.split_reason_code := p5_a37;
289 ddp_txn_rec.src_txn_creation_date := rosetta_g_miss_date_in_map(p5_a38);
290 ddp_txn_rec.gl_interface_status_code := rosetta_g_miss_num_map(p5_a39);
291
292
293
294
295 -- here's the delegated call to the old PL/SQL routine
296 csi_organization_unit_pub.create_organization_unit(p_api_version,
297 p_commit,
298 p_init_msg_list,
299 p_validation_level,
300 ddp_org_unit_tbl,
301 ddp_txn_rec,
302 x_return_status,
303 x_msg_count,
304 x_msg_data);
305
306 -- copy data back from the local variables to OUT or IN-OUT args, if any
307
308
309
310
311 csi_datastructures_pub_w.rosetta_table_copy_out_p49(ddp_org_unit_tbl, p4_a0
312 , p4_a1
313 , p4_a2
314 , p4_a3
315 , p4_a4
316 , p4_a5
317 , p4_a6
318 , p4_a7
319 , p4_a8
320 , p4_a9
321 , p4_a10
322 , p4_a11
323 , p4_a12
324 , p4_a13
325 , p4_a14
326 , p4_a15
327 , p4_a16
328 , p4_a17
329 , p4_a18
330 , p4_a19
331 , p4_a20
332 , p4_a21
333 , p4_a22
334 , p4_a23
335 );
336
337 p5_a0 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_id);
338 p5_a1 := ddp_txn_rec.transaction_date;
339 p5_a2 := ddp_txn_rec.source_transaction_date;
340 p5_a3 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_type_id);
341 p5_a4 := rosetta_g_miss_num_map(ddp_txn_rec.txn_sub_type_id);
342 p5_a5 := rosetta_g_miss_num_map(ddp_txn_rec.source_group_ref_id);
343 p5_a6 := ddp_txn_rec.source_group_ref;
344 p5_a7 := rosetta_g_miss_num_map(ddp_txn_rec.source_header_ref_id);
345 p5_a8 := ddp_txn_rec.source_header_ref;
346 p5_a9 := rosetta_g_miss_num_map(ddp_txn_rec.source_line_ref_id);
347 p5_a10 := ddp_txn_rec.source_line_ref;
348 p5_a11 := rosetta_g_miss_num_map(ddp_txn_rec.source_dist_ref_id1);
349 p5_a12 := rosetta_g_miss_num_map(ddp_txn_rec.source_dist_ref_id2);
350 p5_a13 := rosetta_g_miss_num_map(ddp_txn_rec.inv_material_transaction_id);
351 p5_a14 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_quantity);
352 p5_a15 := ddp_txn_rec.transaction_uom_code;
353 p5_a16 := rosetta_g_miss_num_map(ddp_txn_rec.transacted_by);
354 p5_a17 := ddp_txn_rec.transaction_status_code;
355 p5_a18 := ddp_txn_rec.transaction_action_code;
356 p5_a19 := rosetta_g_miss_num_map(ddp_txn_rec.message_id);
357 p5_a20 := ddp_txn_rec.context;
358 p5_a21 := ddp_txn_rec.attribute1;
359 p5_a22 := ddp_txn_rec.attribute2;
360 p5_a23 := ddp_txn_rec.attribute3;
361 p5_a24 := ddp_txn_rec.attribute4;
362 p5_a25 := ddp_txn_rec.attribute5;
363 p5_a26 := ddp_txn_rec.attribute6;
364 p5_a27 := ddp_txn_rec.attribute7;
365 p5_a28 := ddp_txn_rec.attribute8;
366 p5_a29 := ddp_txn_rec.attribute9;
367 p5_a30 := ddp_txn_rec.attribute10;
368 p5_a31 := ddp_txn_rec.attribute11;
369 p5_a32 := ddp_txn_rec.attribute12;
370 p5_a33 := ddp_txn_rec.attribute13;
371 p5_a34 := ddp_txn_rec.attribute14;
372 p5_a35 := ddp_txn_rec.attribute15;
373 p5_a36 := rosetta_g_miss_num_map(ddp_txn_rec.object_version_number);
374 p5_a37 := ddp_txn_rec.split_reason_code;
375 p5_a38 := ddp_txn_rec.src_txn_creation_date;
376 p5_a39 := rosetta_g_miss_num_map(ddp_txn_rec.gl_interface_status_code);
377
378
379
380 end;
381
382 procedure update_organization_unit(p_api_version NUMBER
383 , p_commit VARCHAR2
384 , p_init_msg_list VARCHAR2
385 , p_validation_level NUMBER
386 , p4_a0 JTF_NUMBER_TABLE
387 , p4_a1 JTF_NUMBER_TABLE
388 , p4_a2 JTF_NUMBER_TABLE
389 , p4_a3 JTF_VARCHAR2_TABLE_100
390 , p4_a4 JTF_DATE_TABLE
391 , p4_a5 JTF_DATE_TABLE
392 , p4_a6 JTF_VARCHAR2_TABLE_100
393 , p4_a7 JTF_VARCHAR2_TABLE_200
394 , p4_a8 JTF_VARCHAR2_TABLE_200
395 , p4_a9 JTF_VARCHAR2_TABLE_200
396 , p4_a10 JTF_VARCHAR2_TABLE_200
397 , p4_a11 JTF_VARCHAR2_TABLE_200
398 , p4_a12 JTF_VARCHAR2_TABLE_200
399 , p4_a13 JTF_VARCHAR2_TABLE_200
400 , p4_a14 JTF_VARCHAR2_TABLE_200
401 , p4_a15 JTF_VARCHAR2_TABLE_200
402 , p4_a16 JTF_VARCHAR2_TABLE_200
403 , p4_a17 JTF_VARCHAR2_TABLE_200
404 , p4_a18 JTF_VARCHAR2_TABLE_200
405 , p4_a19 JTF_VARCHAR2_TABLE_200
406 , p4_a20 JTF_VARCHAR2_TABLE_200
407 , p4_a21 JTF_VARCHAR2_TABLE_200
408 , p4_a22 JTF_NUMBER_TABLE
409 , p4_a23 JTF_NUMBER_TABLE
410 , p5_a0 in out nocopy NUMBER
411 , p5_a1 in out nocopy DATE
412 , p5_a2 in out nocopy DATE
413 , p5_a3 in out nocopy NUMBER
414 , p5_a4 in out nocopy NUMBER
415 , p5_a5 in out nocopy NUMBER
416 , p5_a6 in out nocopy VARCHAR2
417 , p5_a7 in out nocopy NUMBER
418 , p5_a8 in out nocopy VARCHAR2
419 , p5_a9 in out nocopy NUMBER
420 , p5_a10 in out nocopy VARCHAR2
421 , p5_a11 in out nocopy NUMBER
422 , p5_a12 in out nocopy NUMBER
423 , p5_a13 in out nocopy NUMBER
424 , p5_a14 in out nocopy NUMBER
425 , p5_a15 in out nocopy VARCHAR2
426 , p5_a16 in out nocopy NUMBER
427 , p5_a17 in out nocopy VARCHAR2
428 , p5_a18 in out nocopy VARCHAR2
429 , p5_a19 in out nocopy NUMBER
430 , p5_a20 in out nocopy VARCHAR2
431 , p5_a21 in out nocopy VARCHAR2
432 , p5_a22 in out nocopy VARCHAR2
433 , p5_a23 in out nocopy VARCHAR2
434 , p5_a24 in out nocopy VARCHAR2
435 , p5_a25 in out nocopy VARCHAR2
436 , p5_a26 in out nocopy VARCHAR2
437 , p5_a27 in out nocopy VARCHAR2
438 , p5_a28 in out nocopy VARCHAR2
439 , p5_a29 in out nocopy VARCHAR2
440 , p5_a30 in out nocopy VARCHAR2
441 , p5_a31 in out nocopy VARCHAR2
442 , p5_a32 in out nocopy VARCHAR2
443 , p5_a33 in out nocopy VARCHAR2
444 , p5_a34 in out nocopy VARCHAR2
445 , p5_a35 in out nocopy VARCHAR2
446 , p5_a36 in out nocopy NUMBER
447 , p5_a37 in out nocopy VARCHAR2
448 , p5_a38 in out nocopy DATE
449 , p5_a39 in out nocopy NUMBER
450 , x_return_status out nocopy VARCHAR2
451 , x_msg_count out nocopy NUMBER
452 , x_msg_data out nocopy VARCHAR2
453 )
454
455 as
456 ddp_org_unit_tbl csi_datastructures_pub.organization_units_tbl;
457 ddp_txn_rec csi_datastructures_pub.transaction_rec;
458 ddindx binary_integer; indx binary_integer;
459 begin
460
461 -- copy data to the local IN or IN-OUT args, if any
462
463
464
465
466 csi_datastructures_pub_w.rosetta_table_copy_in_p49(ddp_org_unit_tbl, p4_a0
467 , p4_a1
468 , p4_a2
469 , p4_a3
470 , p4_a4
471 , p4_a5
472 , p4_a6
473 , p4_a7
474 , p4_a8
475 , p4_a9
476 , p4_a10
477 , p4_a11
478 , p4_a12
479 , p4_a13
480 , p4_a14
481 , p4_a15
482 , p4_a16
483 , p4_a17
484 , p4_a18
485 , p4_a19
486 , p4_a20
487 , p4_a21
488 , p4_a22
489 , p4_a23
490 );
491
492 ddp_txn_rec.transaction_id := rosetta_g_miss_num_map(p5_a0);
493 ddp_txn_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a1);
494 ddp_txn_rec.source_transaction_date := rosetta_g_miss_date_in_map(p5_a2);
495 ddp_txn_rec.transaction_type_id := rosetta_g_miss_num_map(p5_a3);
496 ddp_txn_rec.txn_sub_type_id := rosetta_g_miss_num_map(p5_a4);
497 ddp_txn_rec.source_group_ref_id := rosetta_g_miss_num_map(p5_a5);
498 ddp_txn_rec.source_group_ref := p5_a6;
499 ddp_txn_rec.source_header_ref_id := rosetta_g_miss_num_map(p5_a7);
500 ddp_txn_rec.source_header_ref := p5_a8;
501 ddp_txn_rec.source_line_ref_id := rosetta_g_miss_num_map(p5_a9);
502 ddp_txn_rec.source_line_ref := p5_a10;
503 ddp_txn_rec.source_dist_ref_id1 := rosetta_g_miss_num_map(p5_a11);
504 ddp_txn_rec.source_dist_ref_id2 := rosetta_g_miss_num_map(p5_a12);
505 ddp_txn_rec.inv_material_transaction_id := rosetta_g_miss_num_map(p5_a13);
506 ddp_txn_rec.transaction_quantity := rosetta_g_miss_num_map(p5_a14);
507 ddp_txn_rec.transaction_uom_code := p5_a15;
508 ddp_txn_rec.transacted_by := rosetta_g_miss_num_map(p5_a16);
509 ddp_txn_rec.transaction_status_code := p5_a17;
510 ddp_txn_rec.transaction_action_code := p5_a18;
511 ddp_txn_rec.message_id := rosetta_g_miss_num_map(p5_a19);
512 ddp_txn_rec.context := p5_a20;
513 ddp_txn_rec.attribute1 := p5_a21;
514 ddp_txn_rec.attribute2 := p5_a22;
515 ddp_txn_rec.attribute3 := p5_a23;
516 ddp_txn_rec.attribute4 := p5_a24;
517 ddp_txn_rec.attribute5 := p5_a25;
518 ddp_txn_rec.attribute6 := p5_a26;
519 ddp_txn_rec.attribute7 := p5_a27;
520 ddp_txn_rec.attribute8 := p5_a28;
521 ddp_txn_rec.attribute9 := p5_a29;
522 ddp_txn_rec.attribute10 := p5_a30;
523 ddp_txn_rec.attribute11 := p5_a31;
524 ddp_txn_rec.attribute12 := p5_a32;
525 ddp_txn_rec.attribute13 := p5_a33;
526 ddp_txn_rec.attribute14 := p5_a34;
527 ddp_txn_rec.attribute15 := p5_a35;
528 ddp_txn_rec.object_version_number := rosetta_g_miss_num_map(p5_a36);
529 ddp_txn_rec.split_reason_code := p5_a37;
530 ddp_txn_rec.src_txn_creation_date := rosetta_g_miss_date_in_map(p5_a38);
531 ddp_txn_rec.gl_interface_status_code := rosetta_g_miss_num_map(p5_a39);
532
533
534
535
536 -- here's the delegated call to the old PL/SQL routine
537 csi_organization_unit_pub.update_organization_unit(p_api_version,
538 p_commit,
539 p_init_msg_list,
540 p_validation_level,
541 ddp_org_unit_tbl,
542 ddp_txn_rec,
543 x_return_status,
544 x_msg_count,
545 x_msg_data);
546
547 -- copy data back from the local variables to OUT or IN-OUT args, if any
548
549
550
551
552
553 p5_a0 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_id);
554 p5_a1 := ddp_txn_rec.transaction_date;
555 p5_a2 := ddp_txn_rec.source_transaction_date;
556 p5_a3 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_type_id);
557 p5_a4 := rosetta_g_miss_num_map(ddp_txn_rec.txn_sub_type_id);
558 p5_a5 := rosetta_g_miss_num_map(ddp_txn_rec.source_group_ref_id);
559 p5_a6 := ddp_txn_rec.source_group_ref;
560 p5_a7 := rosetta_g_miss_num_map(ddp_txn_rec.source_header_ref_id);
561 p5_a8 := ddp_txn_rec.source_header_ref;
562 p5_a9 := rosetta_g_miss_num_map(ddp_txn_rec.source_line_ref_id);
563 p5_a10 := ddp_txn_rec.source_line_ref;
564 p5_a11 := rosetta_g_miss_num_map(ddp_txn_rec.source_dist_ref_id1);
565 p5_a12 := rosetta_g_miss_num_map(ddp_txn_rec.source_dist_ref_id2);
566 p5_a13 := rosetta_g_miss_num_map(ddp_txn_rec.inv_material_transaction_id);
567 p5_a14 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_quantity);
568 p5_a15 := ddp_txn_rec.transaction_uom_code;
569 p5_a16 := rosetta_g_miss_num_map(ddp_txn_rec.transacted_by);
570 p5_a17 := ddp_txn_rec.transaction_status_code;
571 p5_a18 := ddp_txn_rec.transaction_action_code;
572 p5_a19 := rosetta_g_miss_num_map(ddp_txn_rec.message_id);
573 p5_a20 := ddp_txn_rec.context;
574 p5_a21 := ddp_txn_rec.attribute1;
575 p5_a22 := ddp_txn_rec.attribute2;
576 p5_a23 := ddp_txn_rec.attribute3;
577 p5_a24 := ddp_txn_rec.attribute4;
578 p5_a25 := ddp_txn_rec.attribute5;
579 p5_a26 := ddp_txn_rec.attribute6;
580 p5_a27 := ddp_txn_rec.attribute7;
581 p5_a28 := ddp_txn_rec.attribute8;
582 p5_a29 := ddp_txn_rec.attribute9;
583 p5_a30 := ddp_txn_rec.attribute10;
584 p5_a31 := ddp_txn_rec.attribute11;
585 p5_a32 := ddp_txn_rec.attribute12;
586 p5_a33 := ddp_txn_rec.attribute13;
587 p5_a34 := ddp_txn_rec.attribute14;
588 p5_a35 := ddp_txn_rec.attribute15;
589 p5_a36 := rosetta_g_miss_num_map(ddp_txn_rec.object_version_number);
590 p5_a37 := ddp_txn_rec.split_reason_code;
591 p5_a38 := ddp_txn_rec.src_txn_creation_date;
592 p5_a39 := rosetta_g_miss_num_map(ddp_txn_rec.gl_interface_status_code);
593
594
595
596 end;
597
598 procedure expire_organization_unit(p_api_version NUMBER
599 , p_commit VARCHAR2
600 , p_init_msg_list VARCHAR2
601 , p_validation_level NUMBER
602 , p4_a0 JTF_NUMBER_TABLE
603 , p4_a1 JTF_NUMBER_TABLE
604 , p4_a2 JTF_NUMBER_TABLE
605 , p4_a3 JTF_VARCHAR2_TABLE_100
606 , p4_a4 JTF_DATE_TABLE
607 , p4_a5 JTF_DATE_TABLE
608 , p4_a6 JTF_VARCHAR2_TABLE_100
609 , p4_a7 JTF_VARCHAR2_TABLE_200
610 , p4_a8 JTF_VARCHAR2_TABLE_200
611 , p4_a9 JTF_VARCHAR2_TABLE_200
612 , p4_a10 JTF_VARCHAR2_TABLE_200
613 , p4_a11 JTF_VARCHAR2_TABLE_200
614 , p4_a12 JTF_VARCHAR2_TABLE_200
615 , p4_a13 JTF_VARCHAR2_TABLE_200
616 , p4_a14 JTF_VARCHAR2_TABLE_200
617 , p4_a15 JTF_VARCHAR2_TABLE_200
618 , p4_a16 JTF_VARCHAR2_TABLE_200
619 , p4_a17 JTF_VARCHAR2_TABLE_200
620 , p4_a18 JTF_VARCHAR2_TABLE_200
621 , p4_a19 JTF_VARCHAR2_TABLE_200
622 , p4_a20 JTF_VARCHAR2_TABLE_200
623 , p4_a21 JTF_VARCHAR2_TABLE_200
624 , p4_a22 JTF_NUMBER_TABLE
625 , p4_a23 JTF_NUMBER_TABLE
626 , p5_a0 in out nocopy NUMBER
627 , p5_a1 in out nocopy DATE
628 , p5_a2 in out nocopy DATE
629 , p5_a3 in out nocopy NUMBER
630 , p5_a4 in out nocopy NUMBER
631 , p5_a5 in out nocopy NUMBER
632 , p5_a6 in out nocopy VARCHAR2
633 , p5_a7 in out nocopy NUMBER
634 , p5_a8 in out nocopy VARCHAR2
635 , p5_a9 in out nocopy NUMBER
636 , p5_a10 in out nocopy VARCHAR2
637 , p5_a11 in out nocopy NUMBER
638 , p5_a12 in out nocopy NUMBER
639 , p5_a13 in out nocopy NUMBER
640 , p5_a14 in out nocopy NUMBER
641 , p5_a15 in out nocopy VARCHAR2
642 , p5_a16 in out nocopy NUMBER
643 , p5_a17 in out nocopy VARCHAR2
644 , p5_a18 in out nocopy VARCHAR2
645 , p5_a19 in out nocopy NUMBER
646 , p5_a20 in out nocopy VARCHAR2
647 , p5_a21 in out nocopy VARCHAR2
648 , p5_a22 in out nocopy VARCHAR2
649 , p5_a23 in out nocopy VARCHAR2
650 , p5_a24 in out nocopy VARCHAR2
651 , p5_a25 in out nocopy VARCHAR2
652 , p5_a26 in out nocopy VARCHAR2
653 , p5_a27 in out nocopy VARCHAR2
654 , p5_a28 in out nocopy VARCHAR2
655 , p5_a29 in out nocopy VARCHAR2
656 , p5_a30 in out nocopy VARCHAR2
657 , p5_a31 in out nocopy VARCHAR2
658 , p5_a32 in out nocopy VARCHAR2
659 , p5_a33 in out nocopy VARCHAR2
660 , p5_a34 in out nocopy VARCHAR2
661 , p5_a35 in out nocopy VARCHAR2
662 , p5_a36 in out nocopy NUMBER
663 , p5_a37 in out nocopy VARCHAR2
664 , p5_a38 in out nocopy DATE
665 , p5_a39 in out nocopy NUMBER
666 , x_return_status out nocopy VARCHAR2
667 , x_msg_count out nocopy NUMBER
668 , x_msg_data out nocopy VARCHAR2
669 )
670
671 as
672 ddp_org_unit_tbl csi_datastructures_pub.organization_units_tbl;
673 ddp_txn_rec csi_datastructures_pub.transaction_rec;
674 ddindx binary_integer; indx binary_integer;
675 begin
676
677 -- copy data to the local IN or IN-OUT args, if any
678
679
680
681
682 csi_datastructures_pub_w.rosetta_table_copy_in_p49(ddp_org_unit_tbl, p4_a0
683 , p4_a1
684 , p4_a2
685 , p4_a3
686 , p4_a4
687 , p4_a5
688 , p4_a6
689 , p4_a7
690 , p4_a8
691 , p4_a9
692 , p4_a10
693 , p4_a11
694 , p4_a12
695 , p4_a13
696 , p4_a14
697 , p4_a15
698 , p4_a16
699 , p4_a17
700 , p4_a18
701 , p4_a19
702 , p4_a20
703 , p4_a21
704 , p4_a22
705 , p4_a23
706 );
707
708 ddp_txn_rec.transaction_id := rosetta_g_miss_num_map(p5_a0);
709 ddp_txn_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a1);
710 ddp_txn_rec.source_transaction_date := rosetta_g_miss_date_in_map(p5_a2);
711 ddp_txn_rec.transaction_type_id := rosetta_g_miss_num_map(p5_a3);
712 ddp_txn_rec.txn_sub_type_id := rosetta_g_miss_num_map(p5_a4);
713 ddp_txn_rec.source_group_ref_id := rosetta_g_miss_num_map(p5_a5);
714 ddp_txn_rec.source_group_ref := p5_a6;
715 ddp_txn_rec.source_header_ref_id := rosetta_g_miss_num_map(p5_a7);
716 ddp_txn_rec.source_header_ref := p5_a8;
717 ddp_txn_rec.source_line_ref_id := rosetta_g_miss_num_map(p5_a9);
718 ddp_txn_rec.source_line_ref := p5_a10;
719 ddp_txn_rec.source_dist_ref_id1 := rosetta_g_miss_num_map(p5_a11);
720 ddp_txn_rec.source_dist_ref_id2 := rosetta_g_miss_num_map(p5_a12);
721 ddp_txn_rec.inv_material_transaction_id := rosetta_g_miss_num_map(p5_a13);
722 ddp_txn_rec.transaction_quantity := rosetta_g_miss_num_map(p5_a14);
723 ddp_txn_rec.transaction_uom_code := p5_a15;
724 ddp_txn_rec.transacted_by := rosetta_g_miss_num_map(p5_a16);
725 ddp_txn_rec.transaction_status_code := p5_a17;
726 ddp_txn_rec.transaction_action_code := p5_a18;
727 ddp_txn_rec.message_id := rosetta_g_miss_num_map(p5_a19);
728 ddp_txn_rec.context := p5_a20;
729 ddp_txn_rec.attribute1 := p5_a21;
730 ddp_txn_rec.attribute2 := p5_a22;
731 ddp_txn_rec.attribute3 := p5_a23;
732 ddp_txn_rec.attribute4 := p5_a24;
733 ddp_txn_rec.attribute5 := p5_a25;
734 ddp_txn_rec.attribute6 := p5_a26;
735 ddp_txn_rec.attribute7 := p5_a27;
736 ddp_txn_rec.attribute8 := p5_a28;
737 ddp_txn_rec.attribute9 := p5_a29;
738 ddp_txn_rec.attribute10 := p5_a30;
739 ddp_txn_rec.attribute11 := p5_a31;
740 ddp_txn_rec.attribute12 := p5_a32;
741 ddp_txn_rec.attribute13 := p5_a33;
742 ddp_txn_rec.attribute14 := p5_a34;
743 ddp_txn_rec.attribute15 := p5_a35;
744 ddp_txn_rec.object_version_number := rosetta_g_miss_num_map(p5_a36);
745 ddp_txn_rec.split_reason_code := p5_a37;
746 ddp_txn_rec.src_txn_creation_date := rosetta_g_miss_date_in_map(p5_a38);
747 ddp_txn_rec.gl_interface_status_code := rosetta_g_miss_num_map(p5_a39);
748
749
750
751
752 -- here's the delegated call to the old PL/SQL routine
753 csi_organization_unit_pub.expire_organization_unit(p_api_version,
754 p_commit,
755 p_init_msg_list,
756 p_validation_level,
757 ddp_org_unit_tbl,
758 ddp_txn_rec,
759 x_return_status,
760 x_msg_count,
761 x_msg_data);
762
763 -- copy data back from the local variables to OUT or IN-OUT args, if any
764
765
766
767
768
769 p5_a0 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_id);
770 p5_a1 := ddp_txn_rec.transaction_date;
771 p5_a2 := ddp_txn_rec.source_transaction_date;
772 p5_a3 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_type_id);
773 p5_a4 := rosetta_g_miss_num_map(ddp_txn_rec.txn_sub_type_id);
774 p5_a5 := rosetta_g_miss_num_map(ddp_txn_rec.source_group_ref_id);
775 p5_a6 := ddp_txn_rec.source_group_ref;
776 p5_a7 := rosetta_g_miss_num_map(ddp_txn_rec.source_header_ref_id);
777 p5_a8 := ddp_txn_rec.source_header_ref;
778 p5_a9 := rosetta_g_miss_num_map(ddp_txn_rec.source_line_ref_id);
779 p5_a10 := ddp_txn_rec.source_line_ref;
780 p5_a11 := rosetta_g_miss_num_map(ddp_txn_rec.source_dist_ref_id1);
781 p5_a12 := rosetta_g_miss_num_map(ddp_txn_rec.source_dist_ref_id2);
782 p5_a13 := rosetta_g_miss_num_map(ddp_txn_rec.inv_material_transaction_id);
783 p5_a14 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_quantity);
784 p5_a15 := ddp_txn_rec.transaction_uom_code;
785 p5_a16 := rosetta_g_miss_num_map(ddp_txn_rec.transacted_by);
786 p5_a17 := ddp_txn_rec.transaction_status_code;
787 p5_a18 := ddp_txn_rec.transaction_action_code;
788 p5_a19 := rosetta_g_miss_num_map(ddp_txn_rec.message_id);
789 p5_a20 := ddp_txn_rec.context;
790 p5_a21 := ddp_txn_rec.attribute1;
791 p5_a22 := ddp_txn_rec.attribute2;
792 p5_a23 := ddp_txn_rec.attribute3;
793 p5_a24 := ddp_txn_rec.attribute4;
794 p5_a25 := ddp_txn_rec.attribute5;
795 p5_a26 := ddp_txn_rec.attribute6;
796 p5_a27 := ddp_txn_rec.attribute7;
797 p5_a28 := ddp_txn_rec.attribute8;
798 p5_a29 := ddp_txn_rec.attribute9;
799 p5_a30 := ddp_txn_rec.attribute10;
800 p5_a31 := ddp_txn_rec.attribute11;
801 p5_a32 := ddp_txn_rec.attribute12;
802 p5_a33 := ddp_txn_rec.attribute13;
803 p5_a34 := ddp_txn_rec.attribute14;
804 p5_a35 := ddp_txn_rec.attribute15;
805 p5_a36 := rosetta_g_miss_num_map(ddp_txn_rec.object_version_number);
806 p5_a37 := ddp_txn_rec.split_reason_code;
807 p5_a38 := ddp_txn_rec.src_txn_creation_date;
808 p5_a39 := rosetta_g_miss_num_map(ddp_txn_rec.gl_interface_status_code);
809
810
811
812 end;
813
814 end csi_organization_unit_pub_w;