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