[Home] [Help]
PACKAGE BODY: APPS.AHL_COMPLEX_MX_RWSC_PVT_W
Source
1 package body ahl_complex_mx_rwsc_pvt_w as
2 /* $Header: AHLWRWSB.pls 120.0.12020000.2 2012/12/14 06:14:55 shnatu noship $ */
3 procedure rosetta_table_copy_in_p5(t out nocopy ahl_complex_mx_rwsc_pvt.visit_ir_uc_details_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_VARCHAR2_TABLE_100
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_NUMBER_TABLE
12 , a9 JTF_NUMBER_TABLE
13 , a10 JTF_VARCHAR2_TABLE_300
14 , a11 JTF_NUMBER_TABLE
15 , a12 JTF_VARCHAR2_TABLE_100
16 , a13 JTF_VARCHAR2_TABLE_300
17 , a14 JTF_VARCHAR2_TABLE_100
18 , a15 JTF_NUMBER_TABLE
19 , a16 JTF_VARCHAR2_TABLE_100
20 , a17 JTF_VARCHAR2_TABLE_100
21 , a18 JTF_VARCHAR2_TABLE_100
22 , a19 JTF_VARCHAR2_TABLE_100
23 , a20 JTF_VARCHAR2_TABLE_100
24 , a21 JTF_VARCHAR2_TABLE_100
25 , a22 JTF_NUMBER_TABLE
26 , a23 JTF_NUMBER_TABLE
27 , a24 JTF_VARCHAR2_TABLE_100
28 , a25 JTF_NUMBER_TABLE
29 , a26 JTF_VARCHAR2_TABLE_100
30 , a27 JTF_VARCHAR2_TABLE_100
31 , a28 JTF_NUMBER_TABLE
32 , a29 JTF_NUMBER_TABLE
33 , a30 JTF_VARCHAR2_TABLE_100
34 , a31 JTF_NUMBER_TABLE
35 , a32 JTF_NUMBER_TABLE
36 , a33 JTF_NUMBER_TABLE
37 , a34 JTF_NUMBER_TABLE
38 , a35 JTF_NUMBER_TABLE
39 , a36 JTF_VARCHAR2_TABLE_100
40 , a37 JTF_VARCHAR2_TABLE_100
41 , a38 JTF_VARCHAR2_TABLE_100
42 , a39 JTF_NUMBER_TABLE
43 , a40 JTF_NUMBER_TABLE
44 , a41 JTF_VARCHAR2_TABLE_100
45 , a42 JTF_NUMBER_TABLE
46 , a43 JTF_VARCHAR2_TABLE_100
47 ) as
48 ddindx binary_integer; indx binary_integer;
49 begin
50 if a0 is not null and a0.count > 0 then
51 if a0.count > 0 then
52 indx := a0.first;
53 ddindx := 1;
54 while true loop
55 t(ddindx).visit_ir_uc_id := a0(indx);
56 t(ddindx).root_instance_id := a1(indx);
57 t(ddindx).unit_header_id := a2(indx);
58 t(ddindx).unit_name := a3(indx);
59 t(ddindx).path_position_id := a4(indx);
60 t(ddindx).relationship_id := a5(indx);
61 t(ddindx).parent_rel_id := a6(indx);
62 t(ddindx).curr_item_id := a7(indx);
63 t(ddindx).curr_instance_id := a8(indx);
64 t(ddindx).parent_instance_id := a9(indx);
65 t(ddindx).curr_item_number := a10(indx);
66 t(ddindx).curr_instance_number := a11(indx);
67 t(ddindx).curr_serial_number := a12(indx);
68 t(ddindx).position := a13(indx);
69 t(ddindx).position_image := a14(indx);
70 t(ddindx).item_group_id := a15(indx);
71 t(ddindx).item_group_name := a16(indx);
72 t(ddindx).reserved_serial_num := a17(indx);
73 t(ddindx).available_parts := a18(indx);
74 t(ddindx).unit_nha := a19(indx);
75 t(ddindx).is_unit := a20(indx);
76 t(ddindx).is_warranty_available := a21(indx);
77 t(ddindx).mr_count := a22(indx);
78 t(ddindx).task_count := a23(indx);
79 t(ddindx).is_visit_available := a24(indx);
80 t(ddindx).mc_header_id := a25(indx);
81 t(ddindx).is_sb_rule_available := a26(indx);
82 t(ddindx).route_dispositions_flag := a27(indx);
83 t(ddindx).rd_rework_percent := a28(indx);
84 t(ddindx).rd_replace_percent := a29(indx);
85 t(ddindx).position_material_flag := a30(indx);
86 t(ddindx).bg_position := a31(indx);
87 t(ddindx).bg_instance := a32(indx);
88 t(ddindx).inst_routing_id := a33(indx);
89 t(ddindx).inst_routing_ovn := a34(indx);
90 t(ddindx).visit_id := a35(indx);
91 t(ddindx).inst_routing_code := a36(indx);
92 t(ddindx).inst_routing_meaning := a37(indx);
93 t(ddindx).inst_routing_flag := a38(indx);
94 t(ddindx).qty_per_position := a39(indx);
95 t(ddindx).installed_qty := a40(indx);
96 t(ddindx).leaf_node_flag := a41(indx);
97 t(ddindx).node_level := a42(indx);
98 t(ddindx).hgrid_node_path := a43(indx);
99 ddindx := ddindx+1;
100 if a0.last =indx
101 then exit;
102 end if;
103 indx := a0.next(indx);
104 end loop;
105 end if;
106 end if;
107 end rosetta_table_copy_in_p5;
108 procedure rosetta_table_copy_out_p5(t ahl_complex_mx_rwsc_pvt.visit_ir_uc_details_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
109 , a1 out nocopy JTF_NUMBER_TABLE
110 , a2 out nocopy JTF_NUMBER_TABLE
111 , a3 out nocopy JTF_VARCHAR2_TABLE_100
112 , a4 out nocopy JTF_NUMBER_TABLE
113 , a5 out nocopy JTF_NUMBER_TABLE
114 , a6 out nocopy JTF_NUMBER_TABLE
115 , a7 out nocopy JTF_NUMBER_TABLE
116 , a8 out nocopy JTF_NUMBER_TABLE
117 , a9 out nocopy JTF_NUMBER_TABLE
118 , a10 out nocopy JTF_VARCHAR2_TABLE_300
119 , a11 out nocopy JTF_NUMBER_TABLE
120 , a12 out nocopy JTF_VARCHAR2_TABLE_100
121 , a13 out nocopy JTF_VARCHAR2_TABLE_300
122 , a14 out nocopy JTF_VARCHAR2_TABLE_100
123 , a15 out nocopy JTF_NUMBER_TABLE
124 , a16 out nocopy JTF_VARCHAR2_TABLE_100
125 , a17 out nocopy JTF_VARCHAR2_TABLE_100
126 , a18 out nocopy JTF_VARCHAR2_TABLE_100
127 , a19 out nocopy JTF_VARCHAR2_TABLE_100
128 , a20 out nocopy JTF_VARCHAR2_TABLE_100
129 , a21 out nocopy JTF_VARCHAR2_TABLE_100
130 , a22 out nocopy JTF_NUMBER_TABLE
131 , a23 out nocopy JTF_NUMBER_TABLE
132 , a24 out nocopy JTF_VARCHAR2_TABLE_100
133 , a25 out nocopy JTF_NUMBER_TABLE
134 , a26 out nocopy JTF_VARCHAR2_TABLE_100
135 , a27 out nocopy JTF_VARCHAR2_TABLE_100
136 , a28 out nocopy JTF_NUMBER_TABLE
137 , a29 out nocopy JTF_NUMBER_TABLE
138 , a30 out nocopy JTF_VARCHAR2_TABLE_100
139 , a31 out nocopy JTF_NUMBER_TABLE
140 , a32 out nocopy JTF_NUMBER_TABLE
141 , a33 out nocopy JTF_NUMBER_TABLE
142 , a34 out nocopy JTF_NUMBER_TABLE
143 , a35 out nocopy JTF_NUMBER_TABLE
144 , a36 out nocopy JTF_VARCHAR2_TABLE_100
145 , a37 out nocopy JTF_VARCHAR2_TABLE_100
146 , a38 out nocopy JTF_VARCHAR2_TABLE_100
147 , a39 out nocopy JTF_NUMBER_TABLE
148 , a40 out nocopy JTF_NUMBER_TABLE
149 , a41 out nocopy JTF_VARCHAR2_TABLE_100
150 , a42 out nocopy JTF_NUMBER_TABLE
151 , a43 out nocopy JTF_VARCHAR2_TABLE_100
152 ) as
153 ddindx binary_integer; indx binary_integer;
154 begin
155 if t is null or t.count = 0 then
156 a0 := JTF_NUMBER_TABLE();
157 a1 := JTF_NUMBER_TABLE();
158 a2 := JTF_NUMBER_TABLE();
159 a3 := JTF_VARCHAR2_TABLE_100();
160 a4 := JTF_NUMBER_TABLE();
161 a5 := JTF_NUMBER_TABLE();
162 a6 := JTF_NUMBER_TABLE();
163 a7 := JTF_NUMBER_TABLE();
164 a8 := JTF_NUMBER_TABLE();
165 a9 := JTF_NUMBER_TABLE();
166 a10 := JTF_VARCHAR2_TABLE_300();
167 a11 := JTF_NUMBER_TABLE();
168 a12 := JTF_VARCHAR2_TABLE_100();
169 a13 := JTF_VARCHAR2_TABLE_300();
170 a14 := JTF_VARCHAR2_TABLE_100();
171 a15 := JTF_NUMBER_TABLE();
172 a16 := JTF_VARCHAR2_TABLE_100();
173 a17 := JTF_VARCHAR2_TABLE_100();
174 a18 := JTF_VARCHAR2_TABLE_100();
175 a19 := JTF_VARCHAR2_TABLE_100();
176 a20 := JTF_VARCHAR2_TABLE_100();
177 a21 := JTF_VARCHAR2_TABLE_100();
178 a22 := JTF_NUMBER_TABLE();
179 a23 := JTF_NUMBER_TABLE();
180 a24 := JTF_VARCHAR2_TABLE_100();
181 a25 := JTF_NUMBER_TABLE();
182 a26 := JTF_VARCHAR2_TABLE_100();
183 a27 := JTF_VARCHAR2_TABLE_100();
184 a28 := JTF_NUMBER_TABLE();
185 a29 := JTF_NUMBER_TABLE();
186 a30 := JTF_VARCHAR2_TABLE_100();
187 a31 := JTF_NUMBER_TABLE();
188 a32 := JTF_NUMBER_TABLE();
189 a33 := JTF_NUMBER_TABLE();
190 a34 := JTF_NUMBER_TABLE();
191 a35 := JTF_NUMBER_TABLE();
192 a36 := JTF_VARCHAR2_TABLE_100();
193 a37 := JTF_VARCHAR2_TABLE_100();
194 a38 := JTF_VARCHAR2_TABLE_100();
195 a39 := JTF_NUMBER_TABLE();
196 a40 := JTF_NUMBER_TABLE();
197 a41 := JTF_VARCHAR2_TABLE_100();
198 a42 := JTF_NUMBER_TABLE();
199 a43 := JTF_VARCHAR2_TABLE_100();
200 else
201 a0 := JTF_NUMBER_TABLE();
202 a1 := JTF_NUMBER_TABLE();
203 a2 := JTF_NUMBER_TABLE();
204 a3 := JTF_VARCHAR2_TABLE_100();
205 a4 := JTF_NUMBER_TABLE();
206 a5 := JTF_NUMBER_TABLE();
207 a6 := JTF_NUMBER_TABLE();
208 a7 := JTF_NUMBER_TABLE();
209 a8 := JTF_NUMBER_TABLE();
210 a9 := JTF_NUMBER_TABLE();
211 a10 := JTF_VARCHAR2_TABLE_300();
212 a11 := JTF_NUMBER_TABLE();
213 a12 := JTF_VARCHAR2_TABLE_100();
214 a13 := JTF_VARCHAR2_TABLE_300();
215 a14 := JTF_VARCHAR2_TABLE_100();
216 a15 := JTF_NUMBER_TABLE();
217 a16 := JTF_VARCHAR2_TABLE_100();
218 a17 := JTF_VARCHAR2_TABLE_100();
219 a18 := JTF_VARCHAR2_TABLE_100();
220 a19 := JTF_VARCHAR2_TABLE_100();
221 a20 := JTF_VARCHAR2_TABLE_100();
222 a21 := JTF_VARCHAR2_TABLE_100();
223 a22 := JTF_NUMBER_TABLE();
224 a23 := JTF_NUMBER_TABLE();
225 a24 := JTF_VARCHAR2_TABLE_100();
226 a25 := JTF_NUMBER_TABLE();
227 a26 := JTF_VARCHAR2_TABLE_100();
228 a27 := JTF_VARCHAR2_TABLE_100();
229 a28 := JTF_NUMBER_TABLE();
230 a29 := JTF_NUMBER_TABLE();
231 a30 := JTF_VARCHAR2_TABLE_100();
232 a31 := JTF_NUMBER_TABLE();
233 a32 := JTF_NUMBER_TABLE();
234 a33 := JTF_NUMBER_TABLE();
235 a34 := JTF_NUMBER_TABLE();
236 a35 := JTF_NUMBER_TABLE();
237 a36 := JTF_VARCHAR2_TABLE_100();
238 a37 := JTF_VARCHAR2_TABLE_100();
239 a38 := JTF_VARCHAR2_TABLE_100();
240 a39 := JTF_NUMBER_TABLE();
241 a40 := JTF_NUMBER_TABLE();
242 a41 := JTF_VARCHAR2_TABLE_100();
243 a42 := JTF_NUMBER_TABLE();
244 a43 := JTF_VARCHAR2_TABLE_100();
245 if t.count > 0 then
246 a0.extend(t.count);
247 a1.extend(t.count);
248 a2.extend(t.count);
249 a3.extend(t.count);
250 a4.extend(t.count);
251 a5.extend(t.count);
252 a6.extend(t.count);
253 a7.extend(t.count);
254 a8.extend(t.count);
255 a9.extend(t.count);
256 a10.extend(t.count);
257 a11.extend(t.count);
258 a12.extend(t.count);
259 a13.extend(t.count);
260 a14.extend(t.count);
261 a15.extend(t.count);
262 a16.extend(t.count);
263 a17.extend(t.count);
264 a18.extend(t.count);
265 a19.extend(t.count);
266 a20.extend(t.count);
267 a21.extend(t.count);
268 a22.extend(t.count);
269 a23.extend(t.count);
270 a24.extend(t.count);
271 a25.extend(t.count);
272 a26.extend(t.count);
273 a27.extend(t.count);
274 a28.extend(t.count);
275 a29.extend(t.count);
276 a30.extend(t.count);
277 a31.extend(t.count);
278 a32.extend(t.count);
279 a33.extend(t.count);
280 a34.extend(t.count);
281 a35.extend(t.count);
282 a36.extend(t.count);
283 a37.extend(t.count);
284 a38.extend(t.count);
285 a39.extend(t.count);
286 a40.extend(t.count);
287 a41.extend(t.count);
288 a42.extend(t.count);
289 a43.extend(t.count);
290 ddindx := t.first;
291 indx := 1;
292 while true loop
293 a0(indx) := t(ddindx).visit_ir_uc_id;
294 a1(indx) := t(ddindx).root_instance_id;
295 a2(indx) := t(ddindx).unit_header_id;
296 a3(indx) := t(ddindx).unit_name;
297 a4(indx) := t(ddindx).path_position_id;
298 a5(indx) := t(ddindx).relationship_id;
299 a6(indx) := t(ddindx).parent_rel_id;
300 a7(indx) := t(ddindx).curr_item_id;
301 a8(indx) := t(ddindx).curr_instance_id;
302 a9(indx) := t(ddindx).parent_instance_id;
303 a10(indx) := t(ddindx).curr_item_number;
304 a11(indx) := t(ddindx).curr_instance_number;
305 a12(indx) := t(ddindx).curr_serial_number;
306 a13(indx) := t(ddindx).position;
307 a14(indx) := t(ddindx).position_image;
308 a15(indx) := t(ddindx).item_group_id;
309 a16(indx) := t(ddindx).item_group_name;
310 a17(indx) := t(ddindx).reserved_serial_num;
311 a18(indx) := t(ddindx).available_parts;
312 a19(indx) := t(ddindx).unit_nha;
313 a20(indx) := t(ddindx).is_unit;
314 a21(indx) := t(ddindx).is_warranty_available;
315 a22(indx) := t(ddindx).mr_count;
316 a23(indx) := t(ddindx).task_count;
317 a24(indx) := t(ddindx).is_visit_available;
318 a25(indx) := t(ddindx).mc_header_id;
319 a26(indx) := t(ddindx).is_sb_rule_available;
320 a27(indx) := t(ddindx).route_dispositions_flag;
321 a28(indx) := t(ddindx).rd_rework_percent;
322 a29(indx) := t(ddindx).rd_replace_percent;
323 a30(indx) := t(ddindx).position_material_flag;
324 a31(indx) := t(ddindx).bg_position;
325 a32(indx) := t(ddindx).bg_instance;
326 a33(indx) := t(ddindx).inst_routing_id;
327 a34(indx) := t(ddindx).inst_routing_ovn;
328 a35(indx) := t(ddindx).visit_id;
329 a36(indx) := t(ddindx).inst_routing_code;
330 a37(indx) := t(ddindx).inst_routing_meaning;
331 a38(indx) := t(ddindx).inst_routing_flag;
332 a39(indx) := t(ddindx).qty_per_position;
333 a40(indx) := t(ddindx).installed_qty;
334 a41(indx) := t(ddindx).leaf_node_flag;
335 a42(indx) := t(ddindx).node_level;
336 a43(indx) := t(ddindx).hgrid_node_path;
337 indx := indx+1;
338 if t.last =ddindx
339 then exit;
340 end if;
341 ddindx := t.next(ddindx);
342 end loop;
343 end if;
344 end if;
345 end rosetta_table_copy_out_p5;
346
347 procedure rosetta_table_copy_in_p8(t out nocopy ahl_complex_mx_rwsc_pvt.instance_routings_tbl_type, a0 JTF_NUMBER_TABLE
348 , a1 JTF_NUMBER_TABLE
349 , a2 JTF_NUMBER_TABLE
350 , a3 JTF_NUMBER_TABLE
351 , a4 JTF_VARCHAR2_TABLE_100
352 , a5 JTF_VARCHAR2_TABLE_100
353 ) as
354 ddindx binary_integer; indx binary_integer;
355 begin
356 if a0 is not null and a0.count > 0 then
357 if a0.count > 0 then
358 indx := a0.first;
359 ddindx := 1;
360 while true loop
361 t(ddindx).inst_routing_id := a0(indx);
362 t(ddindx).object_version_number := a1(indx);
363 t(ddindx).visit_id := a2(indx);
364 t(ddindx).instance_id := a3(indx);
365 t(ddindx).inst_routing_code := a4(indx);
366 t(ddindx).old_inst_routing_code := a5(indx);
367 ddindx := ddindx+1;
368 if a0.last =indx
369 then exit;
370 end if;
371 indx := a0.next(indx);
372 end loop;
373 end if;
374 end if;
375 end rosetta_table_copy_in_p8;
376 procedure rosetta_table_copy_out_p8(t ahl_complex_mx_rwsc_pvt.instance_routings_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
377 , a1 out nocopy JTF_NUMBER_TABLE
378 , a2 out nocopy JTF_NUMBER_TABLE
379 , a3 out nocopy JTF_NUMBER_TABLE
380 , a4 out nocopy JTF_VARCHAR2_TABLE_100
381 , a5 out nocopy JTF_VARCHAR2_TABLE_100
382 ) as
383 ddindx binary_integer; indx binary_integer;
384 begin
385 if t is null or t.count = 0 then
386 a0 := JTF_NUMBER_TABLE();
387 a1 := JTF_NUMBER_TABLE();
388 a2 := JTF_NUMBER_TABLE();
389 a3 := JTF_NUMBER_TABLE();
390 a4 := JTF_VARCHAR2_TABLE_100();
391 a5 := JTF_VARCHAR2_TABLE_100();
392 else
393 a0 := JTF_NUMBER_TABLE();
394 a1 := JTF_NUMBER_TABLE();
395 a2 := JTF_NUMBER_TABLE();
396 a3 := JTF_NUMBER_TABLE();
397 a4 := JTF_VARCHAR2_TABLE_100();
398 a5 := JTF_VARCHAR2_TABLE_100();
399 if t.count > 0 then
400 a0.extend(t.count);
401 a1.extend(t.count);
402 a2.extend(t.count);
403 a3.extend(t.count);
404 a4.extend(t.count);
405 a5.extend(t.count);
406 ddindx := t.first;
407 indx := 1;
408 while true loop
409 a0(indx) := t(ddindx).inst_routing_id;
413 a4(indx) := t(ddindx).inst_routing_code;
410 a1(indx) := t(ddindx).object_version_number;
411 a2(indx) := t(ddindx).visit_id;
412 a3(indx) := t(ddindx).instance_id;
414 a5(indx) := t(ddindx).old_inst_routing_code;
415 indx := indx+1;
416 if t.last =ddindx
417 then exit;
418 end if;
419 ddindx := t.next(ddindx);
420 end loop;
421 end if;
422 end if;
423 end rosetta_table_copy_out_p8;
424
425 procedure get_visit_ir_uc_details(p_api_version NUMBER
426 , p_init_msg_list VARCHAR2
427 , p_commit VARCHAR2
428 , p_validation_level NUMBER
429 , p_default VARCHAR2
430 , p_module_type VARCHAR2
431 , p_unit_header_id NUMBER
432 , p_item_instance_id NUMBER
433 , p_visit_id NUMBER
434 , p9_a0 out nocopy JTF_NUMBER_TABLE
435 , p9_a1 out nocopy JTF_NUMBER_TABLE
436 , p9_a2 out nocopy JTF_NUMBER_TABLE
437 , p9_a3 out nocopy JTF_VARCHAR2_TABLE_100
438 , p9_a4 out nocopy JTF_NUMBER_TABLE
439 , p9_a5 out nocopy JTF_NUMBER_TABLE
440 , p9_a6 out nocopy JTF_NUMBER_TABLE
441 , p9_a7 out nocopy JTF_NUMBER_TABLE
442 , p9_a8 out nocopy JTF_NUMBER_TABLE
443 , p9_a9 out nocopy JTF_NUMBER_TABLE
444 , p9_a10 out nocopy JTF_VARCHAR2_TABLE_300
445 , p9_a11 out nocopy JTF_NUMBER_TABLE
446 , p9_a12 out nocopy JTF_VARCHAR2_TABLE_100
447 , p9_a13 out nocopy JTF_VARCHAR2_TABLE_300
448 , p9_a14 out nocopy JTF_VARCHAR2_TABLE_100
449 , p9_a15 out nocopy JTF_NUMBER_TABLE
450 , p9_a16 out nocopy JTF_VARCHAR2_TABLE_100
451 , p9_a17 out nocopy JTF_VARCHAR2_TABLE_100
452 , p9_a18 out nocopy JTF_VARCHAR2_TABLE_100
453 , p9_a19 out nocopy JTF_VARCHAR2_TABLE_100
454 , p9_a20 out nocopy JTF_VARCHAR2_TABLE_100
455 , p9_a21 out nocopy JTF_VARCHAR2_TABLE_100
456 , p9_a22 out nocopy JTF_NUMBER_TABLE
457 , p9_a23 out nocopy JTF_NUMBER_TABLE
458 , p9_a24 out nocopy JTF_VARCHAR2_TABLE_100
459 , p9_a25 out nocopy JTF_NUMBER_TABLE
460 , p9_a26 out nocopy JTF_VARCHAR2_TABLE_100
461 , p9_a27 out nocopy JTF_VARCHAR2_TABLE_100
462 , p9_a28 out nocopy JTF_NUMBER_TABLE
463 , p9_a29 out nocopy JTF_NUMBER_TABLE
464 , p9_a30 out nocopy JTF_VARCHAR2_TABLE_100
465 , p9_a31 out nocopy JTF_NUMBER_TABLE
466 , p9_a32 out nocopy JTF_NUMBER_TABLE
467 , p9_a33 out nocopy JTF_NUMBER_TABLE
468 , p9_a34 out nocopy JTF_NUMBER_TABLE
469 , p9_a35 out nocopy JTF_NUMBER_TABLE
470 , p9_a36 out nocopy JTF_VARCHAR2_TABLE_100
471 , p9_a37 out nocopy JTF_VARCHAR2_TABLE_100
472 , p9_a38 out nocopy JTF_VARCHAR2_TABLE_100
473 , p9_a39 out nocopy JTF_NUMBER_TABLE
474 , p9_a40 out nocopy JTF_NUMBER_TABLE
475 , p9_a41 out nocopy JTF_VARCHAR2_TABLE_100
476 , p9_a42 out nocopy JTF_NUMBER_TABLE
477 , p9_a43 out nocopy JTF_VARCHAR2_TABLE_100
478 , x_return_status out nocopy VARCHAR2
479 , x_msg_count out nocopy NUMBER
480 , x_msg_data out nocopy VARCHAR2
481 )
482
483 as
484 ddx_visit_ir_uc_details_tbl ahl_complex_mx_rwsc_pvt.visit_ir_uc_details_tbl_type;
485 ddindx binary_integer; indx binary_integer;
486 begin
487
488 -- copy data to the local IN or IN-OUT args, if any
489
490
491
492
493
494
495
496
497
498
499
500
501
502 -- here's the delegated call to the old PL/SQL routine
503 ahl_complex_mx_rwsc_pvt.get_visit_ir_uc_details(p_api_version,
504 p_init_msg_list,
505 p_commit,
506 p_validation_level,
507 p_default,
508 p_module_type,
509 p_unit_header_id,
510 p_item_instance_id,
511 p_visit_id,
512 ddx_visit_ir_uc_details_tbl,
513 x_return_status,
514 x_msg_count,
515 x_msg_data);
516
517 -- copy data back from the local variables to OUT or IN-OUT args, if any
518
519
520
521
522
523
524
525
526
527 ahl_complex_mx_rwsc_pvt_w.rosetta_table_copy_out_p5(ddx_visit_ir_uc_details_tbl, p9_a0
528 , p9_a1
529 , p9_a2
530 , p9_a3
531 , p9_a4
532 , p9_a5
533 , p9_a6
534 , p9_a7
535 , p9_a8
536 , p9_a9
537 , p9_a10
538 , p9_a11
539 , p9_a12
540 , p9_a13
541 , p9_a14
542 , p9_a15
543 , p9_a16
544 , p9_a17
545 , p9_a18
546 , p9_a19
547 , p9_a20
548 , p9_a21
549 , p9_a22
550 , p9_a23
551 , p9_a24
552 , p9_a25
553 , p9_a26
554 , p9_a27
555 , p9_a28
556 , p9_a29
557 , p9_a30
558 , p9_a31
559 , p9_a32
560 , p9_a33
561 , p9_a34
562 , p9_a35
563 , p9_a36
564 , p9_a37
565 , p9_a38
566 , p9_a39
567 , p9_a40
568 , p9_a41
569 , p9_a42
570 , p9_a43
571 );
572
573
574
575 end;
576
577 procedure process_instance_routings(p_api_version NUMBER
578 , p_init_msg_list VARCHAR2
579 , p_commit VARCHAR2
580 , p_validation_level NUMBER
581 , p_default VARCHAR2
582 , p_module_type VARCHAR2
583 , p6_a0 in out nocopy JTF_NUMBER_TABLE
584 , p6_a1 in out nocopy JTF_NUMBER_TABLE
585 , p6_a2 in out nocopy JTF_NUMBER_TABLE
586 , p6_a3 in out nocopy JTF_NUMBER_TABLE
590 , x_msg_count out nocopy NUMBER
587 , p6_a4 in out nocopy JTF_VARCHAR2_TABLE_100
588 , p6_a5 in out nocopy JTF_VARCHAR2_TABLE_100
589 , x_return_status out nocopy VARCHAR2
591 , x_msg_data out nocopy VARCHAR2
592 )
593
594 as
595 ddp_x_instance_routings_tbl ahl_complex_mx_rwsc_pvt.instance_routings_tbl_type;
596 ddindx binary_integer; indx binary_integer;
597 begin
598
599 -- copy data to the local IN or IN-OUT args, if any
600
601
602
603
604
605
606 ahl_complex_mx_rwsc_pvt_w.rosetta_table_copy_in_p8(ddp_x_instance_routings_tbl, p6_a0
607 , p6_a1
608 , p6_a2
609 , p6_a3
610 , p6_a4
611 , p6_a5
612 );
613
614
615
616
617 -- here's the delegated call to the old PL/SQL routine
618 ahl_complex_mx_rwsc_pvt.process_instance_routings(p_api_version,
619 p_init_msg_list,
620 p_commit,
621 p_validation_level,
622 p_default,
623 p_module_type,
624 ddp_x_instance_routings_tbl,
625 x_return_status,
626 x_msg_count,
627 x_msg_data);
628
629 -- copy data back from the local variables to OUT or IN-OUT args, if any
630
631
632
633
634
635
636 ahl_complex_mx_rwsc_pvt_w.rosetta_table_copy_out_p8(ddp_x_instance_routings_tbl, p6_a0
637 , p6_a1
638 , p6_a2
639 , p6_a3
640 , p6_a4
641 , p6_a5
642 );
643
644
645
646 end;
647
648 end ahl_complex_mx_rwsc_pvt_w;