1: package body okl_strm_gen_template_pvt_w as
2: /* $Header: OKLETSGB.pls 120.9 2007/10/15 15:52:35 dpsingh 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_p72(t out nocopy okl_strm_gen_template_pvt.error_msgs_tbl_type, a0 JTF_VARCHAR2_TABLE_2500
26: , a1 JTF_VARCHAR2_TABLE_100
27: , a2 JTF_VARCHAR2_TABLE_100
28: ) as
29: ddindx binary_integer; indx binary_integer;
44: end loop;
45: end if;
46: end if;
47: end rosetta_table_copy_in_p72;
48: procedure rosetta_table_copy_out_p72(t okl_strm_gen_template_pvt.error_msgs_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_2500
49: , a1 out nocopy JTF_VARCHAR2_TABLE_100
50: , a2 out nocopy JTF_VARCHAR2_TABLE_100
51: ) as
52: ddindx binary_integer; indx binary_integer;
191: , p6_a28 NUMBER := 0-1962.0724
192: )
193:
194: as
195: ddp_gtsv_rec okl_strm_gen_template_pvt.gtsv_rec_type;
196: ddp_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
197: ddp_gtpv_tbl okl_strm_gen_template_pvt.gtpv_tbl_type;
198: ddp_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
199: ddx_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
192: )
193:
194: as
195: ddp_gtsv_rec okl_strm_gen_template_pvt.gtsv_rec_type;
196: ddp_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
197: ddp_gtpv_tbl okl_strm_gen_template_pvt.gtpv_tbl_type;
198: ddp_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
199: ddx_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
200: ddindx binary_integer; indx binary_integer;
193:
194: as
195: ddp_gtsv_rec okl_strm_gen_template_pvt.gtsv_rec_type;
196: ddp_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
197: ddp_gtpv_tbl okl_strm_gen_template_pvt.gtpv_tbl_type;
198: ddp_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
199: ddx_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
200: ddindx binary_integer; indx binary_integer;
201: begin
194: as
195: ddp_gtsv_rec okl_strm_gen_template_pvt.gtsv_rec_type;
196: ddp_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
197: ddp_gtpv_tbl okl_strm_gen_template_pvt.gtpv_tbl_type;
198: ddp_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
199: ddx_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
200: ddindx binary_integer; indx binary_integer;
201: begin
202:
195: ddp_gtsv_rec okl_strm_gen_template_pvt.gtsv_rec_type;
196: ddp_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
197: ddp_gtpv_tbl okl_strm_gen_template_pvt.gtpv_tbl_type;
198: ddp_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
199: ddx_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
200: ddindx binary_integer; indx binary_integer;
201: begin
202:
203: -- copy data to the local IN or IN-OUT args, if any
289: );
290:
291:
292: -- here's the delegated call to the old PL/SQL routine
293: okl_strm_gen_template_pvt.create_strm_gen_template(p_api_version,
294: p_init_msg_list,
295: x_return_status,
296: x_msg_count,
297: x_msg_data,
454: , p6_a28 NUMBER := 0-1962.0724
455: )
456:
457: as
458: ddp_gtsv_rec okl_strm_gen_template_pvt.gtsv_rec_type;
459: ddp_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
460: ddp_gtpv_tbl okl_strm_gen_template_pvt.gtpv_tbl_type;
461: ddp_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
462: ddx_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
455: )
456:
457: as
458: ddp_gtsv_rec okl_strm_gen_template_pvt.gtsv_rec_type;
459: ddp_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
460: ddp_gtpv_tbl okl_strm_gen_template_pvt.gtpv_tbl_type;
461: ddp_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
462: ddx_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
463: ddindx binary_integer; indx binary_integer;
456:
457: as
458: ddp_gtsv_rec okl_strm_gen_template_pvt.gtsv_rec_type;
459: ddp_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
460: ddp_gtpv_tbl okl_strm_gen_template_pvt.gtpv_tbl_type;
461: ddp_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
462: ddx_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
463: ddindx binary_integer; indx binary_integer;
464: begin
457: as
458: ddp_gtsv_rec okl_strm_gen_template_pvt.gtsv_rec_type;
459: ddp_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
460: ddp_gtpv_tbl okl_strm_gen_template_pvt.gtpv_tbl_type;
461: ddp_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
462: ddx_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
463: ddindx binary_integer; indx binary_integer;
464: begin
465:
458: ddp_gtsv_rec okl_strm_gen_template_pvt.gtsv_rec_type;
459: ddp_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
460: ddp_gtpv_tbl okl_strm_gen_template_pvt.gtpv_tbl_type;
461: ddp_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
462: ddx_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
463: ddindx binary_integer; indx binary_integer;
464: begin
465:
466: -- copy data to the local IN or IN-OUT args, if any
552: );
553:
554:
555: -- here's the delegated call to the old PL/SQL routine
556: okl_strm_gen_template_pvt.update_strm_gen_template(p_api_version,
557: p_init_msg_list,
558: x_return_status,
559: x_msg_count,
560: x_msg_data,
629: , x_show_warn_flag out nocopy VARCHAR2
630: )
631:
632: as
633: ddp_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
634: ddindx binary_integer; indx binary_integer;
635: begin
636:
637: -- copy data to the local IN or IN-OUT args, if any
659:
660:
661:
662: -- here's the delegated call to the old PL/SQL routine
663: okl_strm_gen_template_pvt.update_dep_strms(p_api_version,
664: p_init_msg_list,
665: x_return_status,
666: x_msg_count,
667: x_msg_data,
721: , p7_a28 out nocopy NUMBER
722: )
723:
724: as
725: ddx_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
726: ddindx binary_integer; indx binary_integer;
727: begin
728:
729: -- copy data to the local IN or IN-OUT args, if any
735:
736:
737:
738: -- here's the delegated call to the old PL/SQL routine
739: okl_strm_gen_template_pvt.create_version_duplicate(p_api_version,
740: p_init_msg_list,
741: x_return_status,
742: x_msg_count,
743: x_msg_data,
806: , p5_a14 JTF_NUMBER_TABLE
807: )
808:
809: as
810: ddp_gtpv_tbl okl_strm_gen_template_pvt.gtpv_tbl_type;
811: ddindx binary_integer; indx binary_integer;
812: begin
813:
814: -- copy data to the local IN or IN-OUT args, if any
834: , p5_a14
835: );
836:
837: -- here's the delegated call to the old PL/SQL routine
838: okl_strm_gen_template_pvt.delete_tmpt_prc_params(p_api_version,
839: p_init_msg_list,
840: x_return_status,
841: x_msg_count,
842: x_msg_data,
870: , p5_a12 JTF_NUMBER_TABLE
871: )
872:
873: as
874: ddp_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
875: ddindx binary_integer; indx binary_integer;
876: begin
877:
878: -- copy data to the local IN or IN-OUT args, if any
896: , p5_a12
897: );
898:
899: -- here's the delegated call to the old PL/SQL routine
900: okl_strm_gen_template_pvt.delete_pri_tmpt_lns(p_api_version,
901: p_init_msg_list,
902: x_return_status,
903: x_msg_count,
904: x_msg_data,
932: , p5_a12 JTF_NUMBER_TABLE
933: )
934:
935: as
936: ddp_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
937: ddindx binary_integer; indx binary_integer;
938: begin
939:
940: -- copy data to the local IN or IN-OUT args, if any
958: , p5_a12
959: );
960:
961: -- here's the delegated call to the old PL/SQL routine
962: okl_strm_gen_template_pvt.delete_dep_tmpt_lns(p_api_version,
963: p_init_msg_list,
964: x_return_status,
965: x_msg_count,
966: x_msg_data,
987: , p_during_upd_flag VARCHAR2
988: )
989:
990: as
991: ddx_error_msgs_tbl okl_strm_gen_template_pvt.error_msgs_tbl_type;
992: ddindx binary_integer; indx binary_integer;
993: begin
994:
995: -- copy data to the local IN or IN-OUT args, if any
1002:
1003:
1004:
1005: -- here's the delegated call to the old PL/SQL routine
1006: okl_strm_gen_template_pvt.validate_template(p_api_version,
1007: p_init_msg_list,
1008: x_return_status,
1009: x_msg_count,
1010: x_msg_data,
1019:
1020:
1021:
1022:
1023: okl_strm_gen_template_pvt_w.rosetta_table_copy_out_p72(ddx_error_msgs_tbl, p6_a0
1024: , p6_a1
1025: , p6_a2
1026: );
1027:
1041: , x_pri_purpose_list out nocopy VARCHAR
1042: )
1043:
1044: as
1045: ddx_wrn_msgs_tbl okl_strm_gen_template_pvt.error_msgs_tbl_type;
1046: ddindx binary_integer; indx binary_integer;
1047: begin
1048:
1049: -- copy data to the local IN or IN-OUT args, if any
1056:
1057:
1058:
1059: -- here's the delegated call to the old PL/SQL routine
1060: okl_strm_gen_template_pvt.validate_for_warnings(p_api_version,
1061: p_init_msg_list,
1062: x_return_status,
1063: x_msg_count,
1064: x_msg_data,
1073:
1074:
1075:
1076:
1077: okl_strm_gen_template_pvt_w.rosetta_table_copy_out_p72(ddx_wrn_msgs_tbl, p6_a0
1078: , p6_a1
1079: , p6_a2
1080: );
1081:
1221: , p6_a28 NUMBER := 0-1962.0724
1222: )
1223:
1224: as
1225: ddp_gtsv_rec okl_strm_gen_template_pvt.gtsv_rec_type;
1226: ddp_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
1227: ddp_gtpv_tbl okl_strm_gen_template_pvt.gtpv_tbl_type;
1228: ddp_pri_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
1229: ddp_del_dep_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
1222: )
1223:
1224: as
1225: ddp_gtsv_rec okl_strm_gen_template_pvt.gtsv_rec_type;
1226: ddp_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
1227: ddp_gtpv_tbl okl_strm_gen_template_pvt.gtpv_tbl_type;
1228: ddp_pri_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
1229: ddp_del_dep_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
1230: ddp_ins_dep_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
1223:
1224: as
1225: ddp_gtsv_rec okl_strm_gen_template_pvt.gtsv_rec_type;
1226: ddp_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
1227: ddp_gtpv_tbl okl_strm_gen_template_pvt.gtpv_tbl_type;
1228: ddp_pri_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
1229: ddp_del_dep_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
1230: ddp_ins_dep_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
1231: ddx_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
1224: as
1225: ddp_gtsv_rec okl_strm_gen_template_pvt.gtsv_rec_type;
1226: ddp_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
1227: ddp_gtpv_tbl okl_strm_gen_template_pvt.gtpv_tbl_type;
1228: ddp_pri_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
1229: ddp_del_dep_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
1230: ddp_ins_dep_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
1231: ddx_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
1232: ddindx binary_integer; indx binary_integer;
1225: ddp_gtsv_rec okl_strm_gen_template_pvt.gtsv_rec_type;
1226: ddp_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
1227: ddp_gtpv_tbl okl_strm_gen_template_pvt.gtpv_tbl_type;
1228: ddp_pri_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
1229: ddp_del_dep_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
1230: ddp_ins_dep_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
1231: ddx_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
1232: ddindx binary_integer; indx binary_integer;
1233: begin
1226: ddp_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
1227: ddp_gtpv_tbl okl_strm_gen_template_pvt.gtpv_tbl_type;
1228: ddp_pri_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
1229: ddp_del_dep_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
1230: ddp_ins_dep_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
1231: ddx_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
1232: ddindx binary_integer; indx binary_integer;
1233: begin
1234:
1227: ddp_gtpv_tbl okl_strm_gen_template_pvt.gtpv_tbl_type;
1228: ddp_pri_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
1229: ddp_del_dep_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
1230: ddp_ins_dep_gtlv_tbl okl_strm_gen_template_pvt.gtlv_tbl_type;
1231: ddx_gttv_rec okl_strm_gen_template_pvt.gttv_rec_type;
1232: ddindx binary_integer; indx binary_integer;
1233: begin
1234:
1235: -- copy data to the local IN or IN-OUT args, if any
1352:
1353:
1354:
1355: -- here's the delegated call to the old PL/SQL routine
1356: okl_strm_gen_template_pvt.update_pri_dep_of_sgt(p_api_version,
1357: p_init_msg_list,
1358: x_return_status,
1359: x_msg_count,
1360: x_msg_data,
1410: p11_a28 := rosetta_g_miss_num_map(ddx_gttv_rec.last_update_login);
1411:
1412: end;
1413:
1414: end okl_strm_gen_template_pvt_w;