[Home] [Help]
PACKAGE BODY: APPS.CSI_CZ_INT_W
Source
1 package body csi_cz_int_w as
2 /* $Header: csigczwb.pls 120.9 2008/01/15 03:39:05 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_p1(t out nocopy csi_cz_int.config_query_table, a0 JTF_NUMBER_TABLE
26 , a1 JTF_NUMBER_TABLE
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).config_header_id := rosetta_g_miss_num_map(a0(indx));
36 t(ddindx).config_revision_number := rosetta_g_miss_num_map(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_p1;
46 procedure rosetta_table_copy_out_p1(t csi_cz_int.config_query_table, a0 out nocopy JTF_NUMBER_TABLE
47 , a1 out nocopy JTF_NUMBER_TABLE
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_NUMBER_TABLE();
54 else
55 a0 := JTF_NUMBER_TABLE();
56 a1 := JTF_NUMBER_TABLE();
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).config_header_id);
64 a1(indx) := rosetta_g_miss_num_map(t(ddindx).config_revision_number);
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_p1;
74
75 procedure rosetta_table_copy_in_p3(t out nocopy csi_cz_int.config_pair_table, a0 JTF_NUMBER_TABLE
76 , a1 JTF_NUMBER_TABLE
77 , a2 JTF_NUMBER_TABLE
78 , a3 JTF_NUMBER_TABLE
79 , a4 JTF_NUMBER_TABLE
80 , a5 JTF_NUMBER_TABLE
81 , a6 JTF_NUMBER_TABLE
82 , a7 JTF_NUMBER_TABLE
83 , a8 JTF_NUMBER_TABLE
84 , a9 JTF_NUMBER_TABLE
85 , a10 JTF_VARCHAR2_TABLE_100
86 , a11 JTF_VARCHAR2_TABLE_100
87 , a12 JTF_VARCHAR2_TABLE_100
88 , a13 JTF_VARCHAR2_TABLE_100
89 , a14 JTF_NUMBER_TABLE
90 , a15 JTF_NUMBER_TABLE
91 ) as
92 ddindx binary_integer; indx binary_integer;
93 begin
94 if a0 is not null and a0.count > 0 then
95 if a0.count > 0 then
96 indx := a0.first;
97 ddindx := 1;
98 while true loop
99 t(ddindx).subject_header_id := rosetta_g_miss_num_map(a0(indx));
100 t(ddindx).subject_revision_number := rosetta_g_miss_num_map(a1(indx));
101 t(ddindx).subject_item_id := rosetta_g_miss_num_map(a2(indx));
102 t(ddindx).object_header_id := rosetta_g_miss_num_map(a3(indx));
103 t(ddindx).object_revision_number := rosetta_g_miss_num_map(a4(indx));
104 t(ddindx).object_item_id := rosetta_g_miss_num_map(a5(indx));
105 t(ddindx).root_header_id := rosetta_g_miss_num_map(a6(indx));
106 t(ddindx).root_revision_number := rosetta_g_miss_num_map(a7(indx));
107 t(ddindx).root_item_id := rosetta_g_miss_num_map(a8(indx));
108 t(ddindx).source_application_id := rosetta_g_miss_num_map(a9(indx));
109 t(ddindx).source_txn_header_ref := a10(indx);
110 t(ddindx).source_txn_line_ref1 := a11(indx);
111 t(ddindx).source_txn_line_ref2 := a12(indx);
112 t(ddindx).source_txn_line_ref3 := a13(indx);
113 t(ddindx).lock_id := rosetta_g_miss_num_map(a14(indx));
114 t(ddindx).lock_status := rosetta_g_miss_num_map(a15(indx));
115 ddindx := ddindx+1;
116 if a0.last =indx
117 then exit;
118 end if;
119 indx := a0.next(indx);
120 end loop;
121 end if;
122 end if;
123 end rosetta_table_copy_in_p3;
124 procedure rosetta_table_copy_out_p3(t csi_cz_int.config_pair_table, a0 out nocopy JTF_NUMBER_TABLE
125 , a1 out nocopy JTF_NUMBER_TABLE
126 , a2 out nocopy JTF_NUMBER_TABLE
127 , a3 out nocopy JTF_NUMBER_TABLE
128 , a4 out nocopy JTF_NUMBER_TABLE
129 , a5 out nocopy JTF_NUMBER_TABLE
130 , a6 out nocopy JTF_NUMBER_TABLE
131 , a7 out nocopy JTF_NUMBER_TABLE
132 , a8 out nocopy JTF_NUMBER_TABLE
133 , a9 out nocopy JTF_NUMBER_TABLE
134 , a10 out nocopy JTF_VARCHAR2_TABLE_100
135 , a11 out nocopy JTF_VARCHAR2_TABLE_100
136 , a12 out nocopy JTF_VARCHAR2_TABLE_100
137 , a13 out nocopy JTF_VARCHAR2_TABLE_100
138 , a14 out nocopy JTF_NUMBER_TABLE
139 , a15 out nocopy JTF_NUMBER_TABLE
140 ) as
141 ddindx binary_integer; indx binary_integer;
142 begin
143 if t is null or t.count = 0 then
144 a0 := JTF_NUMBER_TABLE();
145 a1 := JTF_NUMBER_TABLE();
146 a2 := JTF_NUMBER_TABLE();
147 a3 := JTF_NUMBER_TABLE();
148 a4 := JTF_NUMBER_TABLE();
149 a5 := JTF_NUMBER_TABLE();
150 a6 := JTF_NUMBER_TABLE();
151 a7 := JTF_NUMBER_TABLE();
152 a8 := JTF_NUMBER_TABLE();
153 a9 := JTF_NUMBER_TABLE();
154 a10 := JTF_VARCHAR2_TABLE_100();
155 a11 := JTF_VARCHAR2_TABLE_100();
156 a12 := JTF_VARCHAR2_TABLE_100();
157 a13 := JTF_VARCHAR2_TABLE_100();
158 a14 := JTF_NUMBER_TABLE();
159 a15 := JTF_NUMBER_TABLE();
160 else
161 a0 := JTF_NUMBER_TABLE();
162 a1 := JTF_NUMBER_TABLE();
163 a2 := JTF_NUMBER_TABLE();
164 a3 := JTF_NUMBER_TABLE();
165 a4 := JTF_NUMBER_TABLE();
166 a5 := JTF_NUMBER_TABLE();
167 a6 := JTF_NUMBER_TABLE();
168 a7 := JTF_NUMBER_TABLE();
169 a8 := JTF_NUMBER_TABLE();
170 a9 := JTF_NUMBER_TABLE();
171 a10 := JTF_VARCHAR2_TABLE_100();
172 a11 := JTF_VARCHAR2_TABLE_100();
173 a12 := JTF_VARCHAR2_TABLE_100();
174 a13 := JTF_VARCHAR2_TABLE_100();
175 a14 := JTF_NUMBER_TABLE();
176 a15 := JTF_NUMBER_TABLE();
177 if t.count > 0 then
178 a0.extend(t.count);
179 a1.extend(t.count);
180 a2.extend(t.count);
181 a3.extend(t.count);
182 a4.extend(t.count);
183 a5.extend(t.count);
184 a6.extend(t.count);
185 a7.extend(t.count);
186 a8.extend(t.count);
187 a9.extend(t.count);
188 a10.extend(t.count);
189 a11.extend(t.count);
190 a12.extend(t.count);
191 a13.extend(t.count);
192 a14.extend(t.count);
193 a15.extend(t.count);
194 ddindx := t.first;
195 indx := 1;
196 while true loop
197 a0(indx) := rosetta_g_miss_num_map(t(ddindx).subject_header_id);
198 a1(indx) := rosetta_g_miss_num_map(t(ddindx).subject_revision_number);
199 a2(indx) := rosetta_g_miss_num_map(t(ddindx).subject_item_id);
200 a3(indx) := rosetta_g_miss_num_map(t(ddindx).object_header_id);
201 a4(indx) := rosetta_g_miss_num_map(t(ddindx).object_revision_number);
202 a5(indx) := rosetta_g_miss_num_map(t(ddindx).object_item_id);
203 a6(indx) := rosetta_g_miss_num_map(t(ddindx).root_header_id);
204 a7(indx) := rosetta_g_miss_num_map(t(ddindx).root_revision_number);
205 a8(indx) := rosetta_g_miss_num_map(t(ddindx).root_item_id);
206 a9(indx) := rosetta_g_miss_num_map(t(ddindx).source_application_id);
207 a10(indx) := t(ddindx).source_txn_header_ref;
208 a11(indx) := t(ddindx).source_txn_line_ref1;
209 a12(indx) := t(ddindx).source_txn_line_ref2;
210 a13(indx) := t(ddindx).source_txn_line_ref3;
211 a14(indx) := rosetta_g_miss_num_map(t(ddindx).lock_id);
212 a15(indx) := rosetta_g_miss_num_map(t(ddindx).lock_status);
213 indx := indx+1;
214 if t.last =ddindx
215 then exit;
216 end if;
217 ddindx := t.next(ddindx);
218 end loop;
219 end if;
220 end if;
221 end rosetta_table_copy_out_p3;
222
223 procedure rosetta_table_copy_in_p5(t out nocopy csi_cz_int.config_model_tbl_type, a0 JTF_NUMBER_TABLE
224 , a1 JTF_NUMBER_TABLE
225 , a2 JTF_NUMBER_TABLE
226 , a3 JTF_NUMBER_TABLE
227 , a4 JTF_NUMBER_TABLE
228 ) as
229 ddindx binary_integer; indx binary_integer;
230 begin
231 if a0 is not null and a0.count > 0 then
232 if a0.count > 0 then
233 indx := a0.first;
234 ddindx := 1;
235 while true loop
236 t(ddindx).inventory_item_id := rosetta_g_miss_num_map(a0(indx));
237 t(ddindx).organization_id := rosetta_g_miss_num_map(a1(indx));
238 t(ddindx).config_hdr_id := rosetta_g_miss_num_map(a2(indx));
239 t(ddindx).config_rev_nbr := rosetta_g_miss_num_map(a3(indx));
240 t(ddindx).config_item_id := rosetta_g_miss_num_map(a4(indx));
241 ddindx := ddindx+1;
242 if a0.last =indx
243 then exit;
244 end if;
245 indx := a0.next(indx);
246 end loop;
247 end if;
248 end if;
249 end rosetta_table_copy_in_p5;
250 procedure rosetta_table_copy_out_p5(t csi_cz_int.config_model_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
251 , a1 out nocopy JTF_NUMBER_TABLE
252 , a2 out nocopy JTF_NUMBER_TABLE
253 , a3 out nocopy JTF_NUMBER_TABLE
254 , a4 out nocopy JTF_NUMBER_TABLE
255 ) as
256 ddindx binary_integer; indx binary_integer;
257 begin
258 if t is null or t.count = 0 then
259 a0 := JTF_NUMBER_TABLE();
260 a1 := JTF_NUMBER_TABLE();
261 a2 := JTF_NUMBER_TABLE();
262 a3 := JTF_NUMBER_TABLE();
263 a4 := JTF_NUMBER_TABLE();
264 else
265 a0 := JTF_NUMBER_TABLE();
266 a1 := JTF_NUMBER_TABLE();
267 a2 := JTF_NUMBER_TABLE();
268 a3 := JTF_NUMBER_TABLE();
269 a4 := JTF_NUMBER_TABLE();
270 if t.count > 0 then
271 a0.extend(t.count);
272 a1.extend(t.count);
273 a2.extend(t.count);
274 a3.extend(t.count);
275 a4.extend(t.count);
276 ddindx := t.first;
277 indx := 1;
278 while true loop
279 a0(indx) := rosetta_g_miss_num_map(t(ddindx).inventory_item_id);
280 a1(indx) := rosetta_g_miss_num_map(t(ddindx).organization_id);
281 a2(indx) := rosetta_g_miss_num_map(t(ddindx).config_hdr_id);
282 a3(indx) := rosetta_g_miss_num_map(t(ddindx).config_rev_nbr);
283 a4(indx) := rosetta_g_miss_num_map(t(ddindx).config_item_id);
284 indx := indx+1;
285 if t.last =ddindx
286 then exit;
287 end if;
288 ddindx := t.next(ddindx);
289 end loop;
290 end if;
291 end if;
292 end rosetta_table_copy_out_p5;
293
294 procedure rosetta_table_copy_in_p7(t out nocopy csi_cz_int.config_tbl, a0 JTF_NUMBER_TABLE
295 , a1 JTF_VARCHAR2_TABLE_100
296 , a2 JTF_VARCHAR2_TABLE_100
297 , a3 JTF_VARCHAR2_TABLE_100
298 , a4 JTF_VARCHAR2_TABLE_100
299 , a5 JTF_NUMBER_TABLE
300 , a6 JTF_NUMBER_TABLE
301 , a7 JTF_NUMBER_TABLE
302 , a8 JTF_NUMBER_TABLE
303 , a9 JTF_NUMBER_TABLE
304 , a10 JTF_NUMBER_TABLE
305 ) as
306 ddindx binary_integer; indx binary_integer;
307 begin
308 if a0 is not null and a0.count > 0 then
309 if a0.count > 0 then
310 indx := a0.first;
311 ddindx := 1;
312 while true loop
313 t(ddindx).source_application_id := rosetta_g_miss_num_map(a0(indx));
314 t(ddindx).source_txn_header_ref := a1(indx);
315 t(ddindx).source_txn_line_ref1 := a2(indx);
316 t(ddindx).source_txn_line_ref2 := a3(indx);
317 t(ddindx).source_txn_line_ref3 := a4(indx);
318 t(ddindx).instance_id := rosetta_g_miss_num_map(a5(indx));
319 t(ddindx).lock_id := rosetta_g_miss_num_map(a6(indx));
320 t(ddindx).lock_status := rosetta_g_miss_num_map(a7(indx));
321 t(ddindx).config_inst_hdr_id := rosetta_g_miss_num_map(a8(indx));
322 t(ddindx).config_inst_item_id := rosetta_g_miss_num_map(a9(indx));
323 t(ddindx).config_inst_rev_num := rosetta_g_miss_num_map(a10(indx));
324 ddindx := ddindx+1;
325 if a0.last =indx
326 then exit;
327 end if;
328 indx := a0.next(indx);
329 end loop;
330 end if;
331 end if;
332 end rosetta_table_copy_in_p7;
333 procedure rosetta_table_copy_out_p7(t csi_cz_int.config_tbl, a0 out nocopy JTF_NUMBER_TABLE
334 , a1 out nocopy JTF_VARCHAR2_TABLE_100
335 , a2 out nocopy JTF_VARCHAR2_TABLE_100
336 , a3 out nocopy JTF_VARCHAR2_TABLE_100
337 , a4 out nocopy JTF_VARCHAR2_TABLE_100
338 , a5 out nocopy JTF_NUMBER_TABLE
339 , a6 out nocopy JTF_NUMBER_TABLE
340 , a7 out nocopy JTF_NUMBER_TABLE
341 , a8 out nocopy JTF_NUMBER_TABLE
342 , a9 out nocopy JTF_NUMBER_TABLE
343 , a10 out nocopy JTF_NUMBER_TABLE
344 ) as
345 ddindx binary_integer; indx binary_integer;
346 begin
347 if t is null or t.count = 0 then
348 a0 := JTF_NUMBER_TABLE();
349 a1 := JTF_VARCHAR2_TABLE_100();
350 a2 := JTF_VARCHAR2_TABLE_100();
354 a6 := JTF_NUMBER_TABLE();
351 a3 := JTF_VARCHAR2_TABLE_100();
352 a4 := JTF_VARCHAR2_TABLE_100();
353 a5 := JTF_NUMBER_TABLE();
355 a7 := JTF_NUMBER_TABLE();
356 a8 := JTF_NUMBER_TABLE();
357 a9 := JTF_NUMBER_TABLE();
358 a10 := JTF_NUMBER_TABLE();
359 else
360 a0 := JTF_NUMBER_TABLE();
361 a1 := JTF_VARCHAR2_TABLE_100();
362 a2 := JTF_VARCHAR2_TABLE_100();
363 a3 := JTF_VARCHAR2_TABLE_100();
364 a4 := JTF_VARCHAR2_TABLE_100();
365 a5 := JTF_NUMBER_TABLE();
366 a6 := JTF_NUMBER_TABLE();
367 a7 := JTF_NUMBER_TABLE();
368 a8 := JTF_NUMBER_TABLE();
369 a9 := JTF_NUMBER_TABLE();
370 a10 := JTF_NUMBER_TABLE();
371 if t.count > 0 then
372 a0.extend(t.count);
373 a1.extend(t.count);
374 a2.extend(t.count);
375 a3.extend(t.count);
376 a4.extend(t.count);
377 a5.extend(t.count);
378 a6.extend(t.count);
379 a7.extend(t.count);
380 a8.extend(t.count);
381 a9.extend(t.count);
382 a10.extend(t.count);
383 ddindx := t.first;
384 indx := 1;
385 while true loop
386 a0(indx) := rosetta_g_miss_num_map(t(ddindx).source_application_id);
387 a1(indx) := t(ddindx).source_txn_header_ref;
388 a2(indx) := t(ddindx).source_txn_line_ref1;
389 a3(indx) := t(ddindx).source_txn_line_ref2;
390 a4(indx) := t(ddindx).source_txn_line_ref3;
391 a5(indx) := rosetta_g_miss_num_map(t(ddindx).instance_id);
392 a6(indx) := rosetta_g_miss_num_map(t(ddindx).lock_id);
393 a7(indx) := rosetta_g_miss_num_map(t(ddindx).lock_status);
394 a8(indx) := rosetta_g_miss_num_map(t(ddindx).config_inst_hdr_id);
395 a9(indx) := rosetta_g_miss_num_map(t(ddindx).config_inst_item_id);
396 a10(indx) := rosetta_g_miss_num_map(t(ddindx).config_inst_rev_num);
397 indx := indx+1;
398 if t.last =ddindx
399 then exit;
400 end if;
401 ddindx := t.next(ddindx);
402 end loop;
403 end if;
404 end if;
405 end rosetta_table_copy_out_p7;
406
407 procedure get_configuration_revision(p_config_header_id NUMBER
408 , p_target_commitment_date date
409 , px_instance_level in out nocopy VARCHAR2
410 , p3_a0 out nocopy NUMBER
411 , p3_a1 out nocopy VARCHAR2
412 , p3_a2 out nocopy VARCHAR2
413 , p3_a3 out nocopy VARCHAR2
414 , p3_a4 out nocopy VARCHAR2
415 , p3_a5 out nocopy NUMBER
416 , p3_a6 out nocopy NUMBER
417 , p3_a7 out nocopy NUMBER
418 , p3_a8 out nocopy NUMBER
419 , p3_a9 out nocopy NUMBER
420 , p3_a10 out nocopy NUMBER
421 , x_return_status out nocopy VARCHAR2
422 , x_return_message out nocopy VARCHAR2
423 )
424
425 as
426 ddp_target_commitment_date date;
427 ddx_install_config_rec csi_cz_int.config_rec;
428 ddindx binary_integer; indx binary_integer;
429 begin
430
431 -- copy data to the local IN or IN-OUT args, if any
432
433 ddp_target_commitment_date := rosetta_g_miss_date_in_map(p_target_commitment_date);
434
435
436
437
438
439 -- here's the delegated call to the old PL/SQL routine
440 csi_cz_int.get_configuration_revision(p_config_header_id,
441 ddp_target_commitment_date,
442 px_instance_level,
443 ddx_install_config_rec,
444 x_return_status,
445 x_return_message);
446
447 -- copy data back from the local variables to OUT or IN-OUT args, if any
448
449
450
451 p3_a0 := rosetta_g_miss_num_map(ddx_install_config_rec.source_application_id);
452 p3_a1 := ddx_install_config_rec.source_txn_header_ref;
453 p3_a2 := ddx_install_config_rec.source_txn_line_ref1;
454 p3_a3 := ddx_install_config_rec.source_txn_line_ref2;
455 p3_a4 := ddx_install_config_rec.source_txn_line_ref3;
456 p3_a5 := rosetta_g_miss_num_map(ddx_install_config_rec.instance_id);
457 p3_a6 := rosetta_g_miss_num_map(ddx_install_config_rec.lock_id);
458 p3_a7 := rosetta_g_miss_num_map(ddx_install_config_rec.lock_status);
459 p3_a8 := rosetta_g_miss_num_map(ddx_install_config_rec.config_inst_hdr_id);
460 p3_a9 := rosetta_g_miss_num_map(ddx_install_config_rec.config_inst_item_id);
461 p3_a10 := rosetta_g_miss_num_map(ddx_install_config_rec.config_inst_rev_num);
462
463
464 end;
465
466 procedure get_connected_configurations(p0_a0 JTF_NUMBER_TABLE
467 , p0_a1 JTF_NUMBER_TABLE
468 , p_instance_level VARCHAR2
469 , p2_a0 out nocopy JTF_NUMBER_TABLE
470 , p2_a1 out nocopy JTF_NUMBER_TABLE
471 , p2_a2 out nocopy JTF_NUMBER_TABLE
472 , p2_a3 out nocopy JTF_NUMBER_TABLE
473 , p2_a4 out nocopy JTF_NUMBER_TABLE
474 , p2_a5 out nocopy JTF_NUMBER_TABLE
475 , p2_a6 out nocopy JTF_NUMBER_TABLE
476 , p2_a7 out nocopy JTF_NUMBER_TABLE
477 , p2_a8 out nocopy JTF_NUMBER_TABLE
478 , p2_a9 out nocopy JTF_NUMBER_TABLE
479 , p2_a10 out nocopy JTF_VARCHAR2_TABLE_100
480 , p2_a11 out nocopy JTF_VARCHAR2_TABLE_100
481 , p2_a12 out nocopy JTF_VARCHAR2_TABLE_100
482 , p2_a13 out nocopy JTF_VARCHAR2_TABLE_100
483 , p2_a14 out nocopy JTF_NUMBER_TABLE
487 )
484 , p2_a15 out nocopy JTF_NUMBER_TABLE
485 , x_return_status out nocopy VARCHAR2
486 , x_return_message out nocopy VARCHAR2
488
489 as
490 ddp_config_query_table csi_cz_int.config_query_table;
491 ddx_config_pair_table csi_cz_int.config_pair_table;
492 ddindx binary_integer; indx binary_integer;
493 begin
494
495 -- copy data to the local IN or IN-OUT args, if any
496 csi_cz_int_w.rosetta_table_copy_in_p1(ddp_config_query_table, p0_a0
497 , p0_a1
498 );
499
500
501
502
503
504 -- here's the delegated call to the old PL/SQL routine
505 csi_cz_int.get_connected_configurations(ddp_config_query_table,
506 p_instance_level,
507 ddx_config_pair_table,
508 x_return_status,
509 x_return_message);
510
511 -- copy data back from the local variables to OUT or IN-OUT args, if any
512
513
514 csi_cz_int_w.rosetta_table_copy_out_p3(ddx_config_pair_table, p2_a0
515 , p2_a1
516 , p2_a2
517 , p2_a3
518 , p2_a4
519 , p2_a5
520 , p2_a6
521 , p2_a7
522 , p2_a8
523 , p2_a9
524 , p2_a10
525 , p2_a11
526 , p2_a12
527 , p2_a13
528 , p2_a14
529 , p2_a15
530 );
531
532
533 end;
534
535 procedure generate_config_trees(p_api_version NUMBER
536 , p1_a0 JTF_NUMBER_TABLE
537 , p1_a1 JTF_NUMBER_TABLE
538 , p_tree_copy_mode VARCHAR2
539 , p3_a0 out nocopy JTF_NUMBER_TABLE
540 , p3_a1 out nocopy JTF_NUMBER_TABLE
541 , p3_a2 out nocopy JTF_NUMBER_TABLE
542 , p3_a3 out nocopy JTF_NUMBER_TABLE
543 , p3_a4 out nocopy JTF_NUMBER_TABLE
544 , x_return_status out nocopy VARCHAR2
545 , x_msg_count out nocopy NUMBER
546 , x_msg_data out nocopy VARCHAR2
547 )
548
549 as
550 ddp_config_query_table csi_cz_int.config_query_table;
551 ddx_cfg_model_tbl csi_cz_int.config_model_tbl_type;
552 ddindx binary_integer; indx binary_integer;
553 begin
554
555 -- copy data to the local IN or IN-OUT args, if any
556
557 csi_cz_int_w.rosetta_table_copy_in_p1(ddp_config_query_table, p1_a0
558 , p1_a1
559 );
560
561
562
563
564
565
566 -- here's the delegated call to the old PL/SQL routine
567 csi_cz_int.generate_config_trees(p_api_version,
568 ddp_config_query_table,
569 p_tree_copy_mode,
570 ddx_cfg_model_tbl,
571 x_return_status,
572 x_msg_count,
573 x_msg_data);
574
575 -- copy data back from the local variables to OUT or IN-OUT args, if any
576
577
578
579 csi_cz_int_w.rosetta_table_copy_out_p5(ddx_cfg_model_tbl, p3_a0
580 , p3_a1
581 , p3_a2
582 , p3_a3
583 , p3_a4
584 );
585
586
587
588 end;
589
590 procedure check_item_instance_lock(p_init_msg_list VARCHAR2
591 , x_return_status out nocopy VARCHAR2
592 , x_msg_count out nocopy NUMBER
593 , x_msg_data out nocopy VARCHAR2
594 , ddrosetta_retval_bool OUT NOCOPY NUMBER
595 , p1_a0 NUMBER := 0-1962.0724
596 , p1_a1 VARCHAR2 := fnd_api.g_miss_char
597 , p1_a2 VARCHAR2 := fnd_api.g_miss_char
598 , p1_a3 VARCHAR2 := fnd_api.g_miss_char
599 , p1_a4 VARCHAR2 := fnd_api.g_miss_char
600 , p1_a5 NUMBER := 0-1962.0724
601 , p1_a6 NUMBER := 0-1962.0724
602 , p1_a7 NUMBER := 0-1962.0724
603 , p1_a8 NUMBER := 0-1962.0724
604 , p1_a9 NUMBER := 0-1962.0724
605 , p1_a10 NUMBER := 0-1962.0724
606 )
607
608 as
609 ddp_config_rec csi_cz_int.config_rec;
610 ddindx binary_integer; indx binary_integer;
611 ddrosetta_retval boolean;
612 begin
613
614 -- copy data to the local IN or IN-OUT args, if any
615
616 ddp_config_rec.source_application_id := rosetta_g_miss_num_map(p1_a0);
617 ddp_config_rec.source_txn_header_ref := p1_a1;
618 ddp_config_rec.source_txn_line_ref1 := p1_a2;
619 ddp_config_rec.source_txn_line_ref2 := p1_a3;
620 ddp_config_rec.source_txn_line_ref3 := p1_a4;
621 ddp_config_rec.instance_id := rosetta_g_miss_num_map(p1_a5);
622 ddp_config_rec.lock_id := rosetta_g_miss_num_map(p1_a6);
623 ddp_config_rec.lock_status := rosetta_g_miss_num_map(p1_a7);
624 ddp_config_rec.config_inst_hdr_id := rosetta_g_miss_num_map(p1_a8);
625 ddp_config_rec.config_inst_item_id := rosetta_g_miss_num_map(p1_a9);
626 ddp_config_rec.config_inst_rev_num := rosetta_g_miss_num_map(p1_a10);
627
628
629
630
631 -- here's the delegated call to the old PL/SQL routine
632 ddrosetta_retval := csi_cz_int.check_item_instance_lock(p_init_msg_list,
633 ddp_config_rec,
634 x_return_status,
635 x_msg_count,
636 x_msg_data);
637
638 -- copy data back from the local variables to OUT or IN-OUT args, if any
639 if ddrosetta_retval is null
640 then ddrosetta_retval_bool := null;
641 elsif ddrosetta_retval
642 then ddrosetta_retval_bool := 1;
643 else ddrosetta_retval_bool := 0;
647
644 end if;
645
646
648
649 end;
650
651 procedure lock_item_instances(p_api_version NUMBER
652 , p_init_msg_list VARCHAR2
653 , p_commit VARCHAR2
654 , p_validation_level NUMBER
655 , p4_a0 in out nocopy JTF_NUMBER_TABLE
656 , p4_a1 in out nocopy JTF_VARCHAR2_TABLE_100
657 , p4_a2 in out nocopy JTF_VARCHAR2_TABLE_100
658 , p4_a3 in out nocopy JTF_VARCHAR2_TABLE_100
659 , p4_a4 in out nocopy JTF_VARCHAR2_TABLE_100
660 , p4_a5 in out nocopy JTF_NUMBER_TABLE
661 , p4_a6 in out nocopy JTF_NUMBER_TABLE
662 , p4_a7 in out nocopy JTF_NUMBER_TABLE
663 , p4_a8 in out nocopy JTF_NUMBER_TABLE
664 , p4_a9 in out nocopy JTF_NUMBER_TABLE
665 , p4_a10 in out nocopy JTF_NUMBER_TABLE
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 ddpx_config_tbl csi_cz_int.config_tbl;
673 ddindx binary_integer; indx binary_integer;
674 begin
675
676 -- copy data to the local IN or IN-OUT args, if any
677
678
679
680
681 csi_cz_int_w.rosetta_table_copy_in_p7(ddpx_config_tbl, p4_a0
682 , p4_a1
683 , p4_a2
684 , p4_a3
685 , p4_a4
686 , p4_a5
687 , p4_a6
688 , p4_a7
689 , p4_a8
690 , p4_a9
691 , p4_a10
692 );
693
694
695
696
697 -- here's the delegated call to the old PL/SQL routine
698 csi_cz_int.lock_item_instances(p_api_version,
699 p_init_msg_list,
700 p_commit,
701 p_validation_level,
702 ddpx_config_tbl,
703 x_return_status,
704 x_msg_count,
705 x_msg_data);
706
707 -- copy data back from the local variables to OUT or IN-OUT args, if any
708
709
710
711
712 csi_cz_int_w.rosetta_table_copy_out_p7(ddpx_config_tbl, p4_a0
713 , p4_a1
714 , p4_a2
715 , p4_a3
716 , p4_a4
717 , p4_a5
718 , p4_a6
719 , p4_a7
720 , p4_a8
721 , p4_a9
722 , p4_a10
723 );
724
725
726
727 end;
728
729 procedure unlock_current_node(p_api_version NUMBER
730 , p_init_msg_list VARCHAR2
731 , p_commit VARCHAR2
732 , p_validation_level NUMBER
733 , p5_a0 out nocopy JTF_NUMBER_TABLE
734 , p5_a1 out nocopy JTF_VARCHAR2_TABLE_100
735 , p5_a2 out nocopy JTF_VARCHAR2_TABLE_100
736 , p5_a3 out nocopy JTF_VARCHAR2_TABLE_100
737 , p5_a4 out nocopy JTF_VARCHAR2_TABLE_100
738 , p5_a5 out nocopy JTF_NUMBER_TABLE
739 , p5_a6 out nocopy JTF_NUMBER_TABLE
740 , p5_a7 out nocopy JTF_NUMBER_TABLE
741 , p5_a8 out nocopy JTF_NUMBER_TABLE
742 , p5_a9 out nocopy JTF_NUMBER_TABLE
743 , p5_a10 out nocopy JTF_NUMBER_TABLE
744 , x_return_status out nocopy VARCHAR2
745 , x_msg_count out nocopy NUMBER
746 , x_msg_data out nocopy VARCHAR2
747 , p4_a0 NUMBER := 0-1962.0724
748 , p4_a1 VARCHAR2 := fnd_api.g_miss_char
749 , p4_a2 VARCHAR2 := fnd_api.g_miss_char
750 , p4_a3 VARCHAR2 := fnd_api.g_miss_char
751 , p4_a4 VARCHAR2 := fnd_api.g_miss_char
752 , p4_a5 NUMBER := 0-1962.0724
753 , p4_a6 NUMBER := 0-1962.0724
754 , p4_a7 NUMBER := 0-1962.0724
755 , p4_a8 NUMBER := 0-1962.0724
756 , p4_a9 NUMBER := 0-1962.0724
757 , p4_a10 NUMBER := 0-1962.0724
758 )
759
760 as
761 ddp_config_rec csi_cz_int.config_rec;
762 ddx_conn_config_tbl csi_cz_int.config_tbl;
763 ddindx binary_integer; indx binary_integer;
764 begin
765
766 -- copy data to the local IN or IN-OUT args, if any
767
768
769
770
771 ddp_config_rec.source_application_id := rosetta_g_miss_num_map(p4_a0);
772 ddp_config_rec.source_txn_header_ref := p4_a1;
773 ddp_config_rec.source_txn_line_ref1 := p4_a2;
774 ddp_config_rec.source_txn_line_ref2 := p4_a3;
775 ddp_config_rec.source_txn_line_ref3 := p4_a4;
776 ddp_config_rec.instance_id := rosetta_g_miss_num_map(p4_a5);
777 ddp_config_rec.lock_id := rosetta_g_miss_num_map(p4_a6);
778 ddp_config_rec.lock_status := rosetta_g_miss_num_map(p4_a7);
779 ddp_config_rec.config_inst_hdr_id := rosetta_g_miss_num_map(p4_a8);
780 ddp_config_rec.config_inst_item_id := rosetta_g_miss_num_map(p4_a9);
781 ddp_config_rec.config_inst_rev_num := rosetta_g_miss_num_map(p4_a10);
782
783
784
785
786
787 -- here's the delegated call to the old PL/SQL routine
788 csi_cz_int.unlock_current_node(p_api_version,
789 p_init_msg_list,
790 p_commit,
791 p_validation_level,
792 ddp_config_rec,
793 ddx_conn_config_tbl,
794 x_return_status,
795 x_msg_count,
796 x_msg_data);
797
798 -- copy data back from the local variables to OUT or IN-OUT args, if any
799
800
801
802
803
804 csi_cz_int_w.rosetta_table_copy_out_p7(ddx_conn_config_tbl, p5_a0
805 , p5_a1
806 , p5_a2
807 , p5_a3
808 , p5_a4
809 , p5_a5
810 , p5_a6
811 , p5_a7
812 , p5_a8
813 , p5_a9
814 , p5_a10
815 );
816
817
818
819 end;
820
821 procedure unlock_item_instances(p_api_version NUMBER
822 , p_init_msg_list VARCHAR2
823 , p_commit VARCHAR2
824 , p_validation_level NUMBER
825 , p4_a0 JTF_NUMBER_TABLE
826 , p4_a1 JTF_VARCHAR2_TABLE_100
827 , p4_a2 JTF_VARCHAR2_TABLE_100
828 , p4_a3 JTF_VARCHAR2_TABLE_100
829 , p4_a4 JTF_VARCHAR2_TABLE_100
830 , p4_a5 JTF_NUMBER_TABLE
831 , p4_a6 JTF_NUMBER_TABLE
832 , p4_a7 JTF_NUMBER_TABLE
833 , p4_a8 JTF_NUMBER_TABLE
834 , p4_a9 JTF_NUMBER_TABLE
835 , p4_a10 JTF_NUMBER_TABLE
836 , x_return_status out nocopy VARCHAR2
837 , x_msg_count out nocopy NUMBER
838 , x_msg_data out nocopy VARCHAR2
839 )
840
841 as
842 ddp_config_tbl csi_cz_int.config_tbl;
843 ddindx binary_integer; indx binary_integer;
844 begin
845
846 -- copy data to the local IN or IN-OUT args, if any
847
848
849
850
851 csi_cz_int_w.rosetta_table_copy_in_p7(ddp_config_tbl, p4_a0
852 , p4_a1
853 , p4_a2
854 , p4_a3
855 , p4_a4
856 , p4_a5
857 , p4_a6
858 , p4_a7
859 , p4_a8
860 , p4_a9
861 , p4_a10
862 );
863
864
865
866
867 -- here's the delegated call to the old PL/SQL routine
868 csi_cz_int.unlock_item_instances(p_api_version,
869 p_init_msg_list,
870 p_commit,
871 p_validation_level,
872 ddp_config_tbl,
873 x_return_status,
874 x_msg_count,
875 x_msg_data);
876
877 -- copy data back from the local variables to OUT or IN-OUT args, if any
878
879
880
881
882
883
884
885 end;
886
887 end csi_cz_int_w;