[Home] [Help]
PACKAGE BODY: APPS.AHL_MR_LOOP_CHAIN_RELNS_PVT_W
Source
1 PACKAGE BODY ahl_mr_loop_chain_relns_pvt_w AS
2 /* $Header: AHLWLCRB.pls 120.0.12020000.2 2012/12/14 10:32:22 shnatu noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy ahl_mr_loop_chain_relns_pvt.mr_item_instance_tbl_type, a0 JTF_VARCHAR2_TABLE_100
4 , a1 JTF_VARCHAR2_TABLE_100
5 , a2 JTF_VARCHAR2_TABLE_4000
6 , a3 JTF_VARCHAR2_TABLE_100
7 , a4 JTF_VARCHAR2_TABLE_400
8 , a5 JTF_VARCHAR2_TABLE_300
9 , a6 JTF_VARCHAR2_TABLE_100
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_NUMBER_TABLE
12 , a9 JTF_NUMBER_TABLE
13 , a10 JTF_NUMBER_TABLE
14 ) as
15 ddindx binary_integer; indx binary_integer;
16 begin
17 if a0 is not null and a0.count > 0 then
18 if a0.count > 0 then
19 indx := a0.first;
20 ddindx := 1;
21 while true loop
22 t(ddindx).item_number := a0(indx);
23 t(ddindx).serial_number := a1(indx);
24 t(ddindx).location := a2(indx);
25 t(ddindx).status := a3(indx);
26 t(ddindx).owner := a4(indx);
27 t(ddindx).condition := a5(indx);
28 t(ddindx).unit_name := a6(indx);
29 t(ddindx).item_instance_id := a7(indx);
30 t(ddindx).inventory_item_id := a8(indx);
31 t(ddindx).mr_effectivity_id := a9(indx);
32 t(ddindx).uc_header_id := a10(indx);
33 ddindx := ddindx+1;
34 if a0.last =indx
35 then exit;
36 end if;
37 indx := a0.next(indx);
38 end loop;
39 end if;
40 end if;
41 end rosetta_table_copy_in_p1;
42 procedure rosetta_table_copy_out_p1(t ahl_mr_loop_chain_relns_pvt.mr_item_instance_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
43 , a1 out nocopy JTF_VARCHAR2_TABLE_100
44 , a2 out nocopy JTF_VARCHAR2_TABLE_4000
45 , a3 out nocopy JTF_VARCHAR2_TABLE_100
46 , a4 out nocopy JTF_VARCHAR2_TABLE_400
47 , a5 out nocopy JTF_VARCHAR2_TABLE_300
48 , a6 out nocopy JTF_VARCHAR2_TABLE_100
49 , a7 out nocopy JTF_NUMBER_TABLE
50 , a8 out nocopy JTF_NUMBER_TABLE
51 , a9 out nocopy JTF_NUMBER_TABLE
52 , a10 out nocopy JTF_NUMBER_TABLE
53 ) as
54 ddindx binary_integer; indx binary_integer;
55 begin
56 if t is null or t.count = 0 then
57 a0 := JTF_VARCHAR2_TABLE_100();
58 a1 := JTF_VARCHAR2_TABLE_100();
59 a2 := JTF_VARCHAR2_TABLE_4000();
60 a3 := JTF_VARCHAR2_TABLE_100();
61 a4 := JTF_VARCHAR2_TABLE_400();
62 a5 := JTF_VARCHAR2_TABLE_300();
63 a6 := JTF_VARCHAR2_TABLE_100();
64 a7 := JTF_NUMBER_TABLE();
65 a8 := JTF_NUMBER_TABLE();
66 a9 := JTF_NUMBER_TABLE();
67 a10 := JTF_NUMBER_TABLE();
68 else
69 a0 := JTF_VARCHAR2_TABLE_100();
70 a1 := JTF_VARCHAR2_TABLE_100();
71 a2 := JTF_VARCHAR2_TABLE_4000();
72 a3 := JTF_VARCHAR2_TABLE_100();
73 a4 := JTF_VARCHAR2_TABLE_400();
74 a5 := JTF_VARCHAR2_TABLE_300();
75 a6 := JTF_VARCHAR2_TABLE_100();
76 a7 := JTF_NUMBER_TABLE();
77 a8 := JTF_NUMBER_TABLE();
78 a9 := JTF_NUMBER_TABLE();
79 a10 := JTF_NUMBER_TABLE();
80 if t.count > 0 then
81 a0.extend(t.count);
82 a1.extend(t.count);
83 a2.extend(t.count);
84 a3.extend(t.count);
85 a4.extend(t.count);
86 a5.extend(t.count);
87 a6.extend(t.count);
88 a7.extend(t.count);
89 a8.extend(t.count);
90 a9.extend(t.count);
91 a10.extend(t.count);
92 ddindx := t.first;
93 indx := 1;
94 while true loop
95 a0(indx) := t(ddindx).item_number;
96 a1(indx) := t(ddindx).serial_number;
97 a2(indx) := t(ddindx).location;
98 a3(indx) := t(ddindx).status;
99 a4(indx) := t(ddindx).owner;
100 a5(indx) := t(ddindx).condition;
101 a6(indx) := t(ddindx).unit_name;
102 a7(indx) := t(ddindx).item_instance_id;
103 a8(indx) := t(ddindx).inventory_item_id;
104 a9(indx) := t(ddindx).mr_effectivity_id;
105 a10(indx) := t(ddindx).uc_header_id;
106 indx := indx+1;
107 if t.last =ddindx
108 then exit;
109 end if;
110 ddindx := t.next(ddindx);
111 end loop;
112 end if;
113 end if;
114 end rosetta_table_copy_out_p1;
115
116 procedure rosetta_table_copy_in_p3(t out nocopy ahl_mr_loop_chain_relns_pvt.mr_chain_loop_tbl_type, a0 JTF_NUMBER_TABLE
117 , a1 JTF_NUMBER_TABLE
118 , a2 JTF_VARCHAR2_TABLE_100
119 , a3 JTF_VARCHAR2_TABLE_100
120 , a4 JTF_NUMBER_TABLE
121 , a5 JTF_VARCHAR2_TABLE_100
122 , a6 JTF_VARCHAR2_TABLE_100
123 , a7 JTF_VARCHAR2_TABLE_100
124 , a8 JTF_VARCHAR2_TABLE_2000
125 , a9 JTF_VARCHAR2_TABLE_100
126 , a10 JTF_DATE_TABLE
127 , a11 JTF_DATE_TABLE
128 , a12 JTF_NUMBER_TABLE
129 , a13 JTF_VARCHAR2_TABLE_100
130 ) as
131 ddindx binary_integer; indx binary_integer;
132 begin
133 if a0 is not null and a0.count > 0 then
134 if a0.count > 0 then
135 indx := a0.first;
136 ddindx := 1;
137 while true loop
138 t(ddindx).mr_header_id := a0(indx);
139 t(ddindx).mr_relationship_id := a1(indx);
140 t(ddindx).title := a2(indx);
141 t(ddindx).revision := a3(indx);
142 t(ddindx).version_number := a4(indx);
143 t(ddindx).mr_status := a5(indx);
144 t(ddindx).repetitive_flag := a6(indx);
145 t(ddindx).implement_status := a7(indx);
146 t(ddindx).description := a8(indx);
147 t(ddindx).status := a9(indx);
148 t(ddindx).effective_from := a10(indx);
149 t(ddindx).effective_to := a11(indx);
150 t(ddindx).mr_sequence := a12(indx);
151 t(ddindx).relationship := a13(indx);
152 ddindx := ddindx+1;
153 if a0.last =indx
154 then exit;
155 end if;
156 indx := a0.next(indx);
157 end loop;
158 end if;
159 end if;
160 end rosetta_table_copy_in_p3;
161 procedure rosetta_table_copy_out_p3(t ahl_mr_loop_chain_relns_pvt.mr_chain_loop_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
162 , a1 out nocopy JTF_NUMBER_TABLE
163 , a2 out nocopy JTF_VARCHAR2_TABLE_100
164 , a3 out nocopy JTF_VARCHAR2_TABLE_100
165 , a4 out nocopy JTF_NUMBER_TABLE
166 , a5 out nocopy JTF_VARCHAR2_TABLE_100
167 , a6 out nocopy JTF_VARCHAR2_TABLE_100
168 , a7 out nocopy JTF_VARCHAR2_TABLE_100
169 , a8 out nocopy JTF_VARCHAR2_TABLE_2000
170 , a9 out nocopy JTF_VARCHAR2_TABLE_100
171 , a10 out nocopy JTF_DATE_TABLE
172 , a11 out nocopy JTF_DATE_TABLE
173 , a12 out nocopy JTF_NUMBER_TABLE
174 , a13 out nocopy JTF_VARCHAR2_TABLE_100
175 ) as
176 ddindx binary_integer; indx binary_integer;
177 begin
178 if t is null or t.count = 0 then
179 a0 := JTF_NUMBER_TABLE();
180 a1 := JTF_NUMBER_TABLE();
181 a2 := JTF_VARCHAR2_TABLE_100();
182 a3 := JTF_VARCHAR2_TABLE_100();
183 a4 := JTF_NUMBER_TABLE();
184 a5 := JTF_VARCHAR2_TABLE_100();
185 a6 := JTF_VARCHAR2_TABLE_100();
186 a7 := JTF_VARCHAR2_TABLE_100();
187 a8 := JTF_VARCHAR2_TABLE_2000();
188 a9 := JTF_VARCHAR2_TABLE_100();
189 a10 := JTF_DATE_TABLE();
190 a11 := JTF_DATE_TABLE();
191 a12 := JTF_NUMBER_TABLE();
192 a13 := JTF_VARCHAR2_TABLE_100();
193 else
194 a0 := JTF_NUMBER_TABLE();
195 a1 := JTF_NUMBER_TABLE();
196 a2 := JTF_VARCHAR2_TABLE_100();
197 a3 := JTF_VARCHAR2_TABLE_100();
198 a4 := JTF_NUMBER_TABLE();
199 a5 := JTF_VARCHAR2_TABLE_100();
200 a6 := JTF_VARCHAR2_TABLE_100();
201 a7 := JTF_VARCHAR2_TABLE_100();
202 a8 := JTF_VARCHAR2_TABLE_2000();
203 a9 := JTF_VARCHAR2_TABLE_100();
204 a10 := JTF_DATE_TABLE();
205 a11 := JTF_DATE_TABLE();
206 a12 := JTF_NUMBER_TABLE();
207 a13 := JTF_VARCHAR2_TABLE_100();
208 if t.count > 0 then
209 a0.extend(t.count);
210 a1.extend(t.count);
211 a2.extend(t.count);
212 a3.extend(t.count);
213 a4.extend(t.count);
214 a5.extend(t.count);
215 a6.extend(t.count);
216 a7.extend(t.count);
217 a8.extend(t.count);
218 a9.extend(t.count);
219 a10.extend(t.count);
220 a11.extend(t.count);
221 a12.extend(t.count);
222 a13.extend(t.count);
223 ddindx := t.first;
224 indx := 1;
225 while true loop
226 a0(indx) := t(ddindx).mr_header_id;
227 a1(indx) := t(ddindx).mr_relationship_id;
228 a2(indx) := t(ddindx).title;
229 a3(indx) := t(ddindx).revision;
230 a4(indx) := t(ddindx).version_number;
231 a5(indx) := t(ddindx).mr_status;
232 a6(indx) := t(ddindx).repetitive_flag;
233 a7(indx) := t(ddindx).implement_status;
234 a8(indx) := t(ddindx).description;
235 a9(indx) := t(ddindx).status;
236 a10(indx) := t(ddindx).effective_from;
237 a11(indx) := t(ddindx).effective_to;
238 a12(indx) := t(ddindx).mr_sequence;
239 a13(indx) := t(ddindx).relationship;
240 indx := indx+1;
241 if t.last =ddindx
242 then exit;
243 end if;
244 ddindx := t.next(ddindx);
245 end loop;
246 end if;
247 end if;
248 end rosetta_table_copy_out_p3;
249
250 procedure rosetta_table_copy_in_p5(t out nocopy ahl_mr_loop_chain_relns_pvt.mr_relns_tbl_type, a0 JTF_NUMBER_TABLE
251 , a1 JTF_NUMBER_TABLE
252 , a2 JTF_NUMBER_TABLE
253 , a3 JTF_VARCHAR2_TABLE_100
254 ) as
255 ddindx binary_integer; indx binary_integer;
256 begin
257 if a0 is not null and a0.count=0 then
258 t := ahl_mr_loop_chain_relns_pvt.mr_relns_tbl_type();
259 elsif a0 is not null and a0.count > 0 then
260 if a0.count > 0 then
261 t := ahl_mr_loop_chain_relns_pvt.mr_relns_tbl_type();
262 t.extend(a0.count);
263 indx := a0.first;
264 ddindx := 1;
265 while true loop
266 t(ddindx).mr_relationship_id := a0(indx);
267 t(ddindx).mr_header_id := a1(indx);
268 t(ddindx).mr_sequence := a2(indx);
269 t(ddindx).relationship_code := a3(indx);
270 ddindx := ddindx+1;
271 if a0.last =indx
272 then exit;
273 end if;
274 indx := a0.next(indx);
275 end loop;
276 end if;
277 end if;
278 end rosetta_table_copy_in_p5;
279 procedure rosetta_table_copy_out_p5(t ahl_mr_loop_chain_relns_pvt.mr_relns_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
280 , a1 out nocopy JTF_NUMBER_TABLE
281 , a2 out nocopy JTF_NUMBER_TABLE
282 , a3 out nocopy JTF_VARCHAR2_TABLE_100
283 ) as
284 ddindx binary_integer; indx binary_integer;
285 begin
286 if t is null then
287 a0 := null;
288 a1 := null;
289 a2 := null;
290 a3 := null;
291 elsif t.count = 0 then
292 a0 := JTF_NUMBER_TABLE();
293 a1 := JTF_NUMBER_TABLE();
294 a2 := JTF_NUMBER_TABLE();
295 a3 := JTF_VARCHAR2_TABLE_100();
296 else
297 a0 := JTF_NUMBER_TABLE();
298 a1 := JTF_NUMBER_TABLE();
299 a2 := JTF_NUMBER_TABLE();
300 a3 := JTF_VARCHAR2_TABLE_100();
301 if t.count > 0 then
302 a0.extend(t.count);
303 a1.extend(t.count);
304 a2.extend(t.count);
305 a3.extend(t.count);
306 ddindx := t.first;
307 indx := 1;
308 while true loop
309 a0(indx) := t(ddindx).mr_relationship_id;
310 a1(indx) := t(ddindx).mr_header_id;
311 a2(indx) := t(ddindx).mr_sequence;
312 a3(indx) := t(ddindx).relationship_code;
313 indx := indx+1;
314 if t.last =ddindx
315 then exit;
316 end if;
317 ddindx := t.next(ddindx);
318 end loop;
319 end if;
320 end if;
321 end rosetta_table_copy_out_p5;
322
323 procedure rosetta_table_copy_in_p6(t out nocopy ahl_mr_loop_chain_relns_pvt.mr_header_ids_tbl_type, a0 JTF_NUMBER_TABLE) as
324 ddindx binary_integer; indx binary_integer;
325 begin
326 if a0 is not null and a0.count > 0 then
327 if a0.count > 0 then
328 indx := a0.first;
329 ddindx := 1;
330 while true loop
331 t(ddindx) := a0(indx);
332 ddindx := ddindx+1;
333 if a0.last =indx
334 then exit;
335 end if;
336 indx := a0.next(indx);
337 end loop;
338 end if;
339 end if;
340 end rosetta_table_copy_in_p6;
341 procedure rosetta_table_copy_out_p6(t ahl_mr_loop_chain_relns_pvt.mr_header_ids_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
342 ddindx binary_integer; indx binary_integer;
343 begin
344 if t is null or t.count = 0 then
345 a0 := JTF_NUMBER_TABLE();
346 else
347 a0 := JTF_NUMBER_TABLE();
348 if t.count > 0 then
349 a0.extend(t.count);
350 ddindx := t.first;
351 indx := 1;
352 while true loop
353 a0(indx) := t(ddindx);
354 indx := indx+1;
355 if t.last =ddindx
356 then exit;
357 end if;
358 ddindx := t.next(ddindx);
359 end loop;
360 end if;
361 end if;
362 end rosetta_table_copy_out_p6;
363
364 procedure rosetta_table_copy_in_p7(t out nocopy ahl_mr_loop_chain_relns_pvt.err_msg_data, a0 JTF_VARCHAR2_TABLE_100) as
365 ddindx binary_integer; indx binary_integer;
366 begin
367 if a0 is not null and a0.count > 0 then
368 if a0.count > 0 then
369 indx := a0.first;
370 ddindx := 1;
371 while true loop
372 t(ddindx) := a0(indx);
373 ddindx := ddindx+1;
374 if a0.last =indx
375 then exit;
376 end if;
377 indx := a0.next(indx);
378 end loop;
379 end if;
380 end if;
381 end rosetta_table_copy_in_p7;
382 procedure rosetta_table_copy_out_p7(t ahl_mr_loop_chain_relns_pvt.err_msg_data, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
383 ddindx binary_integer; indx binary_integer;
384 begin
388 a0 := JTF_VARCHAR2_TABLE_100();
385 if t is null or t.count = 0 then
386 a0 := JTF_VARCHAR2_TABLE_100();
387 else
389 if t.count > 0 then
390 a0.extend(t.count);
391 ddindx := t.first;
392 indx := 1;
393 while true loop
394 a0(indx) := t(ddindx);
395 indx := indx+1;
396 if t.last =ddindx
397 then exit;
398 end if;
399 ddindx := t.next(ddindx);
400 end loop;
401 end if;
402 end if;
403 end rosetta_table_copy_out_p7;
404
405 procedure validate_loop_chain(p_api_version NUMBER
406 , p_init_msg_list VARCHAR2
407 , p_commit VARCHAR2
408 , p_validation_level NUMBER
409 , p_page_mode VARCHAR2
410 , x_return_status out nocopy VARCHAR2
411 , x_msg_count out nocopy NUMBER
412 , x_msg_data out nocopy JTF_VARCHAR2_TABLE_100
413 , x_mr_header_id out nocopy JTF_NUMBER_TABLE
414 , p9_a0 JTF_NUMBER_TABLE
415 , p9_a1 JTF_NUMBER_TABLE
416 , p9_a2 JTF_NUMBER_TABLE
417 , p9_a3 JTF_VARCHAR2_TABLE_100
418 )
419
420 as
421 ddx_msg_data ahl_mr_loop_chain_relns_pvt.err_msg_data;
422 ddx_mr_header_id ahl_mr_loop_chain_relns_pvt.mr_header_ids_tbl_type;
423 ddp_mr_relns ahl_mr_loop_chain_relns_pvt.mr_relns_tbl_type;
424 ddindx binary_integer; indx binary_integer;
425 begin
426
427 -- copy data to the local IN or IN-OUT args, if any
428
429
430
431
432
433
434
435
436
437 ahl_mr_loop_chain_relns_pvt_w.rosetta_table_copy_in_p5(ddp_mr_relns, p9_a0
438 , p9_a1
439 , p9_a2
440 , p9_a3
441 );
442
443 -- here's the delegated call to the old PL/SQL routine
444 ahl_mr_loop_chain_relns_pvt.validate_loop_chain(p_api_version,
445 p_init_msg_list,
446 p_commit,
447 p_validation_level,
448 p_page_mode,
449 x_return_status,
450 x_msg_count,
451 ddx_msg_data,
452 ddx_mr_header_id,
453 ddp_mr_relns);
454
455 -- copy data back from the local variables to OUT or IN-OUT args, if any
456
457
458
459
460
461
462
463 ahl_mr_loop_chain_relns_pvt_w.rosetta_table_copy_out_p7(ddx_msg_data, x_msg_data);
464
465 ahl_mr_loop_chain_relns_pvt_w.rosetta_table_copy_out_p6(ddx_mr_header_id, x_mr_header_id);
466
467 end;
468
469 procedure get_start_mr_relns(p_mr_header_id NUMBER
470 , p_rel_code VARCHAR2
471 , p2_a0 out nocopy JTF_NUMBER_TABLE
472 , p2_a1 out nocopy JTF_NUMBER_TABLE
473 , p2_a2 out nocopy JTF_VARCHAR2_TABLE_100
474 , p2_a3 out nocopy JTF_VARCHAR2_TABLE_100
475 , p2_a4 out nocopy JTF_NUMBER_TABLE
476 , p2_a5 out nocopy JTF_VARCHAR2_TABLE_100
477 , p2_a6 out nocopy JTF_VARCHAR2_TABLE_100
478 , p2_a7 out nocopy JTF_VARCHAR2_TABLE_100
479 , p2_a8 out nocopy JTF_VARCHAR2_TABLE_2000
480 , p2_a9 out nocopy JTF_VARCHAR2_TABLE_100
481 , p2_a10 out nocopy JTF_DATE_TABLE
482 , p2_a11 out nocopy JTF_DATE_TABLE
483 , p2_a12 out nocopy JTF_NUMBER_TABLE
484 , p2_a13 out nocopy JTF_VARCHAR2_TABLE_100
485 , x_return_status out nocopy VARCHAR2
486 , x_msg_count out nocopy NUMBER
487 , x_msg_data out nocopy VARCHAR2
488 )
489
490 as
491 ddx_start_mr_relns ahl_mr_loop_chain_relns_pvt.mr_chain_loop_tbl_type;
492 ddindx binary_integer; indx binary_integer;
493 begin
494
495 -- copy data to the local IN or IN-OUT args, if any
496
497
498
499
500
501
502 -- here's the delegated call to the old PL/SQL routine
503 ahl_mr_loop_chain_relns_pvt.get_start_mr_relns(p_mr_header_id,
504 p_rel_code,
505 ddx_start_mr_relns,
506 x_return_status,
507 x_msg_count,
508 x_msg_data);
509
510 -- copy data back from the local variables to OUT or IN-OUT args, if any
511
512
513 ahl_mr_loop_chain_relns_pvt_w.rosetta_table_copy_out_p3(ddx_start_mr_relns, p2_a0
514 , p2_a1
515 , p2_a2
516 , p2_a3
517 , p2_a4
518 , p2_a5
519 , p2_a6
520 , p2_a7
521 , p2_a8
522 , p2_a9
523 , p2_a10
524 , p2_a11
525 , p2_a12
526 , p2_a13
527 );
528
529
530
531 end;
532
533 procedure get_cm_affected_items(p_api_version NUMBER
534 , p_init_msg_list VARCHAR2
535 , p_commit VARCHAR2
536 , p_validation_level NUMBER
537 , x_return_status out nocopy VARCHAR2
538 , x_msg_count out nocopy NUMBER
539 , x_msg_data out nocopy VARCHAR2
540 , p7_a0 out nocopy JTF_VARCHAR2_TABLE_100
541 , p7_a1 out nocopy JTF_VARCHAR2_TABLE_100
542 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_4000
543 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_100
544 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_400
545 , p7_a5 out nocopy JTF_VARCHAR2_TABLE_300
546 , p7_a6 out nocopy JTF_VARCHAR2_TABLE_100
547 , p7_a7 out nocopy JTF_NUMBER_TABLE
548 , p7_a8 out nocopy JTF_NUMBER_TABLE
549 , p7_a9 out nocopy JTF_NUMBER_TABLE
550 , p7_a10 out nocopy JTF_NUMBER_TABLE
551 , p8_a0 JTF_NUMBER_TABLE
552 , p8_a1 JTF_NUMBER_TABLE
553 , p8_a2 JTF_VARCHAR2_TABLE_100
554 , p8_a3 JTF_VARCHAR2_TABLE_100
555 , p8_a4 JTF_NUMBER_TABLE
556 , p8_a5 JTF_VARCHAR2_TABLE_100
557 , p8_a6 JTF_VARCHAR2_TABLE_100
558 , p8_a7 JTF_VARCHAR2_TABLE_100
559 , p8_a8 JTF_VARCHAR2_TABLE_2000
563 , p8_a12 JTF_NUMBER_TABLE
560 , p8_a9 JTF_VARCHAR2_TABLE_100
561 , p8_a10 JTF_DATE_TABLE
562 , p8_a11 JTF_DATE_TABLE
564 , p8_a13 JTF_VARCHAR2_TABLE_100
565 )
566
567 as
568 ddx_mr_item_instances ahl_mr_loop_chain_relns_pvt.mr_item_instance_tbl_type;
569 ddp_cm_mr_chain_loop ahl_mr_loop_chain_relns_pvt.mr_chain_loop_tbl_type;
570 ddindx binary_integer; indx binary_integer;
571 begin
572
573 -- copy data to the local IN or IN-OUT args, if any
574
575
576
577
578
579
580
581
582 ahl_mr_loop_chain_relns_pvt_w.rosetta_table_copy_in_p3(ddp_cm_mr_chain_loop, p8_a0
583 , p8_a1
584 , p8_a2
585 , p8_a3
586 , p8_a4
587 , p8_a5
588 , p8_a6
589 , p8_a7
590 , p8_a8
591 , p8_a9
592 , p8_a10
593 , p8_a11
594 , p8_a12
595 , p8_a13
596 );
597
598 -- here's the delegated call to the old PL/SQL routine
599 ahl_mr_loop_chain_relns_pvt.get_cm_affected_items(p_api_version,
600 p_init_msg_list,
601 p_commit,
602 p_validation_level,
603 x_return_status,
604 x_msg_count,
605 x_msg_data,
606 ddx_mr_item_instances,
607 ddp_cm_mr_chain_loop);
608
609 -- copy data back from the local variables to OUT or IN-OUT args, if any
610
611
612
613
614
615
616
617 ahl_mr_loop_chain_relns_pvt_w.rosetta_table_copy_out_p1(ddx_mr_item_instances, p7_a0
618 , p7_a1
619 , p7_a2
620 , p7_a3
621 , p7_a4
622 , p7_a5
623 , p7_a6
624 , p7_a7
625 , p7_a8
626 , p7_a9
627 , p7_a10
628 );
629
630 end;
631
632 procedure view_mr_loop_chain(p_api_version NUMBER
633 , p_init_msg_list VARCHAR2
634 , p_commit VARCHAR2
635 , p_validation_level NUMBER
636 , x_return_status out nocopy VARCHAR2
637 , x_msg_count out nocopy NUMBER
638 , x_msg_data out nocopy VARCHAR2
639 , p_start_mr_reln_id NUMBER
640 , p_relationship VARCHAR2
641 , p_mr_header_id NUMBER
642 , p_ue_id NUMBER
643 , p_calling_module VARCHAR2
644 , p_item_instance_id NUMBER
645 , p13_a0 out nocopy JTF_VARCHAR2_TABLE_100
646 , p13_a1 out nocopy JTF_VARCHAR2_TABLE_100
647 , p13_a2 out nocopy JTF_VARCHAR2_TABLE_4000
648 , p13_a3 out nocopy JTF_VARCHAR2_TABLE_100
649 , p13_a4 out nocopy JTF_VARCHAR2_TABLE_400
650 , p13_a5 out nocopy JTF_VARCHAR2_TABLE_300
651 , p13_a6 out nocopy JTF_VARCHAR2_TABLE_100
652 , p13_a7 out nocopy JTF_NUMBER_TABLE
653 , p13_a8 out nocopy JTF_NUMBER_TABLE
654 , p13_a9 out nocopy JTF_NUMBER_TABLE
655 , p13_a10 out nocopy JTF_NUMBER_TABLE
656 , p14_a0 out nocopy JTF_NUMBER_TABLE
657 , p14_a1 out nocopy JTF_NUMBER_TABLE
658 , p14_a2 out nocopy JTF_VARCHAR2_TABLE_100
659 , p14_a3 out nocopy JTF_VARCHAR2_TABLE_100
660 , p14_a4 out nocopy JTF_NUMBER_TABLE
661 , p14_a5 out nocopy JTF_VARCHAR2_TABLE_100
662 , p14_a6 out nocopy JTF_VARCHAR2_TABLE_100
663 , p14_a7 out nocopy JTF_VARCHAR2_TABLE_100
664 , p14_a8 out nocopy JTF_VARCHAR2_TABLE_2000
665 , p14_a9 out nocopy JTF_VARCHAR2_TABLE_100
666 , p14_a10 out nocopy JTF_DATE_TABLE
667 , p14_a11 out nocopy JTF_DATE_TABLE
668 , p14_a12 out nocopy JTF_NUMBER_TABLE
669 , p14_a13 out nocopy JTF_VARCHAR2_TABLE_100
670 )
671
672 as
673 ddx_mr_item_instances ahl_mr_loop_chain_relns_pvt.mr_item_instance_tbl_type;
674 ddx_cm_mr_chain_loop ahl_mr_loop_chain_relns_pvt.mr_chain_loop_tbl_type;
675 ddindx binary_integer; indx binary_integer;
676 begin
677
678 -- copy data to the local IN or IN-OUT args, if any
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694 -- here's the delegated call to the old PL/SQL routine
695 ahl_mr_loop_chain_relns_pvt.view_mr_loop_chain(p_api_version,
696 p_init_msg_list,
697 p_commit,
698 p_validation_level,
699 x_return_status,
700 x_msg_count,
701 x_msg_data,
702 p_start_mr_reln_id,
703 p_relationship,
704 p_mr_header_id,
705 p_ue_id,
706 p_calling_module,
707 p_item_instance_id,
708 ddx_mr_item_instances,
709 ddx_cm_mr_chain_loop);
710
711 -- copy data back from the local variables to OUT or IN-OUT args, if any
712
713
714
715
716
717
718
719
720
721
722
723
724
725 ahl_mr_loop_chain_relns_pvt_w.rosetta_table_copy_out_p1(ddx_mr_item_instances, p13_a0
726 , p13_a1
727 , p13_a2
728 , p13_a3
729 , p13_a4
730 , p13_a5
731 , p13_a6
732 , p13_a7
733 , p13_a8
734 , p13_a9
735 , p13_a10
736 );
737
738 ahl_mr_loop_chain_relns_pvt_w.rosetta_table_copy_out_p3(ddx_cm_mr_chain_loop, p14_a0
739 , p14_a1
740 , p14_a2
741 , p14_a3
742 , p14_a4
743 , p14_a5
744 , p14_a6
745 , p14_a7
746 , p14_a8
747 , p14_a9
748 , p14_a10
749 , p14_a11
750 , p14_a12
751 , p14_a13
752 );
753 end;
754
758 , p_rel_code VARCHAR2
755 procedure get_valid_loop_chain_relns(p_mr_header_id NUMBER
756 , p_effective_from DATE
757 , p_effective_to DATE
759 , x_return_status out nocopy VARCHAR2
760 , x_msg_count out nocopy NUMBER
761 , x_msg_data out nocopy VARCHAR2
762 , p7_a0 out nocopy JTF_NUMBER_TABLE
763 , p7_a1 out nocopy JTF_NUMBER_TABLE
764 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_100
765 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_100
766 , p7_a4 out nocopy JTF_NUMBER_TABLE
767 , p7_a5 out nocopy JTF_VARCHAR2_TABLE_100
768 , p7_a6 out nocopy JTF_VARCHAR2_TABLE_100
769 , p7_a7 out nocopy JTF_VARCHAR2_TABLE_100
770 , p7_a8 out nocopy JTF_VARCHAR2_TABLE_2000
771 , p7_a9 out nocopy JTF_VARCHAR2_TABLE_100
772 , p7_a10 out nocopy JTF_DATE_TABLE
773 , p7_a11 out nocopy JTF_DATE_TABLE
774 , p7_a12 out nocopy JTF_NUMBER_TABLE
775 , p7_a13 out nocopy JTF_VARCHAR2_TABLE_100
776 )
777
778 as
779 ddx_start_mr_relns ahl_mr_loop_chain_relns_pvt.mr_chain_loop_tbl_type;
780 ddindx binary_integer; indx binary_integer;
781 begin
782
783 -- copy data to the local IN or IN-OUT args, if any
784
785
786
787
788
789
790
791
792 -- here's the delegated call to the old PL/SQL routine
793 ahl_mr_loop_chain_relns_pvt.get_valid_loop_chain_relns(p_mr_header_id,
794 p_effective_from,
795 p_effective_to,
796 p_rel_code,
797 x_return_status,
798 x_msg_count,
799 x_msg_data,
800 ddx_start_mr_relns);
801
802 -- copy data back from the local variables to OUT or IN-OUT args, if any
803
804
805
806
807
808
809
810 ahl_mr_loop_chain_relns_pvt_w.rosetta_table_copy_out_p3(ddx_start_mr_relns, p7_a0
811 , p7_a1
812 , p7_a2
813 , p7_a3
814 , p7_a4
815 , p7_a5
816 , p7_a6
817 , p7_a7
818 , p7_a8
819 , p7_a9
820 , p7_a10
821 , p7_a11
822 , p7_a12
823 , p7_a13
824 );
825 end;
826
827 END ahl_mr_loop_chain_relns_pvt_w;