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
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
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
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
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
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
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);
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
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
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
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();
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
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
385: if t is null or t.count = 0 then
386: a0 := JTF_VARCHAR2_TABLE_100();
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
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:
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
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: );
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,
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;
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
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
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,
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
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:
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
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
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,
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
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:
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
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,
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
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
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
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,
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
823: , p7_a13
824: );
825: end;
826:
827: END ahl_mr_loop_chain_relns_pvt_w;