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');
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
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
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
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
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
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
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
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
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
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,
486: , x_return_message out nocopy VARCHAR2
487: )
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:
487: )
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
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
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:
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
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:
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,
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
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:
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);
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
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,
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
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:
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
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,
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
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
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,
883:
884:
885: end;
886:
887: end csi_cz_int_w;