1: package body ams_ps_rule_pvt_w as
2: /* $Header: amswrulb.pls 120.0 2005/06/01 02:58:02 appldev noship $ */
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:
18: if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19: return d;
20: end;
21:
22: procedure rosetta_table_copy_in_p3(t OUT NOCOPY ams_ps_rule_pvt.ps_rules_tuple_tbl_type, a0 JTF_VARCHAR2_TABLE_100
23: , a1 JTF_VARCHAR2_TABLE_100
24: ) as
25: ddindx binary_integer; indx binary_integer;
26: begin
39: end loop;
40: end if;
41: end if;
42: end rosetta_table_copy_in_p3;
43: procedure rosetta_table_copy_out_p3(t ams_ps_rule_pvt.ps_rules_tuple_tbl_type, a0 OUT NOCOPY JTF_VARCHAR2_TABLE_100
44: , a1 OUT NOCOPY JTF_VARCHAR2_TABLE_100
45: ) as
46: ddindx binary_integer; indx binary_integer;
47: begin
68: end if;
69: end if;
70: end rosetta_table_copy_out_p3;
71:
72: procedure rosetta_table_copy_in_p8(t OUT NOCOPY ams_ps_rule_pvt.ps_rules_tbl_type, a0 JTF_NUMBER_TABLE
73: , a1 JTF_DATE_TABLE
74: , a2 JTF_NUMBER_TABLE
75: , a3 JTF_DATE_TABLE
76: , a4 JTF_NUMBER_TABLE
141: end loop;
142: end if;
143: end if;
144: end rosetta_table_copy_in_p8;
145: procedure rosetta_table_copy_out_p8(t ams_ps_rule_pvt.ps_rules_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE
146: , a1 OUT NOCOPY JTF_DATE_TABLE
147: , a2 OUT NOCOPY JTF_NUMBER_TABLE
148: , a3 OUT NOCOPY JTF_DATE_TABLE
149: , a4 OUT NOCOPY JTF_NUMBER_TABLE
341: , p7_a26 VARCHAR2 := fnd_api.g_miss_char
342: , p7_a27 VARCHAR2 := fnd_api.g_miss_char
343: )
344: as
345: ddp_ps_rules_rec ams_ps_rule_pvt.ps_rules_rec_type;
346: ddp_visitor_rec ams_ps_rule_pvt.visitor_type_rec;
347: ddindx binary_integer; indx binary_integer;
348: begin
349:
342: , p7_a27 VARCHAR2 := fnd_api.g_miss_char
343: )
344: as
345: ddp_ps_rules_rec ams_ps_rule_pvt.ps_rules_rec_type;
346: ddp_visitor_rec ams_ps_rule_pvt.visitor_type_rec;
347: ddindx binary_integer; indx binary_integer;
348: begin
349:
350: -- copy data to the local IN or IN-OUT args, if any
404: end if;
405:
406:
407: -- here's the delegated call to the old PL/SQL routine
408: ams_ps_rule_pvt.create_ps_rule(p_api_version_number,
409: p_init_msg_list,
410: p_commit,
411: p_validation_level,
412: x_return_status,
472: , p7_a26 VARCHAR2 := fnd_api.g_miss_char
473: , p7_a27 VARCHAR2 := fnd_api.g_miss_char
474: )
475: as
476: ddp_ps_rules_rec ams_ps_rule_pvt.ps_rules_rec_type;
477: ddp_visitor_rec ams_ps_rule_pvt.visitor_type_rec;
478: ddp_ps_filter_tbl ams_ps_rule_pvt.ps_rules_tuple_tbl_type;
479: ddp_ps_strategy_tbl ams_ps_rule_pvt.ps_rules_tuple_tbl_type;
480: ddindx binary_integer; indx binary_integer;
473: , p7_a27 VARCHAR2 := fnd_api.g_miss_char
474: )
475: as
476: ddp_ps_rules_rec ams_ps_rule_pvt.ps_rules_rec_type;
477: ddp_visitor_rec ams_ps_rule_pvt.visitor_type_rec;
478: ddp_ps_filter_tbl ams_ps_rule_pvt.ps_rules_tuple_tbl_type;
479: ddp_ps_strategy_tbl ams_ps_rule_pvt.ps_rules_tuple_tbl_type;
480: ddindx binary_integer; indx binary_integer;
481: begin
474: )
475: as
476: ddp_ps_rules_rec ams_ps_rule_pvt.ps_rules_rec_type;
477: ddp_visitor_rec ams_ps_rule_pvt.visitor_type_rec;
478: ddp_ps_filter_tbl ams_ps_rule_pvt.ps_rules_tuple_tbl_type;
479: ddp_ps_strategy_tbl ams_ps_rule_pvt.ps_rules_tuple_tbl_type;
480: ddindx binary_integer; indx binary_integer;
481: begin
482:
475: as
476: ddp_ps_rules_rec ams_ps_rule_pvt.ps_rules_rec_type;
477: ddp_visitor_rec ams_ps_rule_pvt.visitor_type_rec;
478: ddp_ps_filter_tbl ams_ps_rule_pvt.ps_rules_tuple_tbl_type;
479: ddp_ps_strategy_tbl ams_ps_rule_pvt.ps_rules_tuple_tbl_type;
480: ddindx binary_integer; indx binary_integer;
481: begin
482:
483: -- copy data to the local IN or IN-OUT args, if any
535: then ddp_visitor_rec.rgnoh := false;
536: else ddp_visitor_rec.rgnoh := true;
537: end if;
538:
539: ams_ps_rule_pvt_w.rosetta_table_copy_in_p3(ddp_ps_filter_tbl, p9_a0
540: , p9_a1
541: );
542:
543: ams_ps_rule_pvt_w.rosetta_table_copy_in_p3(ddp_ps_strategy_tbl, p10_a0
539: ams_ps_rule_pvt_w.rosetta_table_copy_in_p3(ddp_ps_filter_tbl, p9_a0
540: , p9_a1
541: );
542:
543: ams_ps_rule_pvt_w.rosetta_table_copy_in_p3(ddp_ps_strategy_tbl, p10_a0
544: , p10_a1
545: );
546:
547:
545: );
546:
547:
548: -- here's the delegated call to the old PL/SQL routine
549: ams_ps_rule_pvt.update_ps_rule(p_api_version_number,
550: p_init_msg_list,
551: p_commit,
552: p_validation_level,
553: x_return_status,
619: , p7_a26 VARCHAR2 := fnd_api.g_miss_char
620: , p7_a27 VARCHAR2 := fnd_api.g_miss_char
621: )
622: as
623: ddp_ps_rules_rec ams_ps_rule_pvt.ps_rules_rec_type;
624: ddp_visitor_rec ams_ps_rule_pvt.visitor_type_rec;
625: ddp_ps_filter_tbl ams_ps_rule_pvt.ps_rules_tuple_tbl_type;
626: ddp_ps_strategy_tbl ams_ps_rule_pvt.ps_rules_tuple_tbl_type;
627: ddp_vistype_change boolean;
620: , p7_a27 VARCHAR2 := fnd_api.g_miss_char
621: )
622: as
623: ddp_ps_rules_rec ams_ps_rule_pvt.ps_rules_rec_type;
624: ddp_visitor_rec ams_ps_rule_pvt.visitor_type_rec;
625: ddp_ps_filter_tbl ams_ps_rule_pvt.ps_rules_tuple_tbl_type;
626: ddp_ps_strategy_tbl ams_ps_rule_pvt.ps_rules_tuple_tbl_type;
627: ddp_vistype_change boolean;
628: ddp_rem_change boolean;
621: )
622: as
623: ddp_ps_rules_rec ams_ps_rule_pvt.ps_rules_rec_type;
624: ddp_visitor_rec ams_ps_rule_pvt.visitor_type_rec;
625: ddp_ps_filter_tbl ams_ps_rule_pvt.ps_rules_tuple_tbl_type;
626: ddp_ps_strategy_tbl ams_ps_rule_pvt.ps_rules_tuple_tbl_type;
627: ddp_vistype_change boolean;
628: ddp_rem_change boolean;
629: ddindx binary_integer; indx binary_integer;
622: as
623: ddp_ps_rules_rec ams_ps_rule_pvt.ps_rules_rec_type;
624: ddp_visitor_rec ams_ps_rule_pvt.visitor_type_rec;
625: ddp_ps_filter_tbl ams_ps_rule_pvt.ps_rules_tuple_tbl_type;
626: ddp_ps_strategy_tbl ams_ps_rule_pvt.ps_rules_tuple_tbl_type;
627: ddp_vistype_change boolean;
628: ddp_rem_change boolean;
629: ddindx binary_integer; indx binary_integer;
630: begin
684: then ddp_visitor_rec.rgnoh := false;
685: else ddp_visitor_rec.rgnoh := true;
686: end if;
687:
688: ams_ps_rule_pvt_w.rosetta_table_copy_in_p3(ddp_ps_filter_tbl, p9_a0
689: , p9_a1
690: );
691:
692: ams_ps_rule_pvt_w.rosetta_table_copy_in_p3(ddp_ps_strategy_tbl, p10_a0
688: ams_ps_rule_pvt_w.rosetta_table_copy_in_p3(ddp_ps_filter_tbl, p9_a0
689: , p9_a1
690: );
691:
692: ams_ps_rule_pvt_w.rosetta_table_copy_in_p3(ddp_ps_strategy_tbl, p10_a0
693: , p10_a1
694: );
695:
696: if p_vistype_change is null
708: end if;
709:
710:
711: -- here's the delegated call to the old PL/SQL routine
712: ams_ps_rule_pvt.update_ps_rule_alt(p_api_version_number,
713: p_init_msg_list,
714: p_commit,
715: p_validation_level,
716: x_return_status,
777: , p7_a26 VARCHAR2 := fnd_api.g_miss_char
778: , p7_a27 VARCHAR2 := fnd_api.g_miss_char
779: )
780: as
781: ddp_ps_rules_rec ams_ps_rule_pvt.ps_rules_rec_type;
782: ddindx binary_integer; indx binary_integer;
783: begin
784:
785: -- copy data to the local IN or IN-OUT args, if any
820: ddp_ps_rules_rec.use_clause10 := p7_a27;
821:
822:
823: -- here's the delegated call to the old PL/SQL routine
824: ams_ps_rule_pvt.delete_ps_rule_alt(p_api_version_number,
825: p_init_msg_list,
826: p_commit,
827: p_validation_level,
828: x_return_status,
877: , p3_a26 VARCHAR2 := fnd_api.g_miss_char
878: , p3_a27 VARCHAR2 := fnd_api.g_miss_char
879: )
880: as
881: ddp_ps_rules_rec ams_ps_rule_pvt.ps_rules_rec_type;
882: ddindx binary_integer; indx binary_integer;
883: begin
884:
885: -- copy data to the local IN or IN-OUT args, if any
918:
919:
920:
921: -- here's the delegated call to the old PL/SQL routine
922: ams_ps_rule_pvt.validate_ps_rule(p_api_version_number,
923: p_init_msg_list,
924: p_validation_level,
925: ddp_ps_rules_rec,
926: x_return_status,
967: , p0_a26 VARCHAR2 := fnd_api.g_miss_char
968: , p0_a27 VARCHAR2 := fnd_api.g_miss_char
969: )
970: as
971: ddp_ps_rules_rec ams_ps_rule_pvt.ps_rules_rec_type;
972: ddindx binary_integer; indx binary_integer;
973: begin
974:
975: -- copy data to the local IN or IN-OUT args, if any
1004:
1005:
1006:
1007: -- here's the delegated call to the old PL/SQL routine
1008: ams_ps_rule_pvt.check_ps_rules_items(ddp_ps_rules_rec,
1009: p_validation_mode,
1010: x_return_status);
1011:
1012: -- copy data back from the local OUT or IN-OUT args, if any
1019: , p1_a1 JTF_VARCHAR2_TABLE_100
1020: , x_return_status OUT NOCOPY VARCHAR2
1021: )
1022: as
1023: ddp_ps_filter_tbl ams_ps_rule_pvt.ps_rules_tuple_tbl_type;
1024: ddindx binary_integer; indx binary_integer;
1025: begin
1026:
1027: -- copy data to the local IN or IN-OUT args, if any
1025: begin
1026:
1027: -- copy data to the local IN or IN-OUT args, if any
1028:
1029: ams_ps_rule_pvt_w.rosetta_table_copy_in_p3(ddp_ps_filter_tbl, p1_a0
1030: , p1_a1
1031: );
1032:
1033:
1031: );
1032:
1033:
1034: -- here's the delegated call to the old PL/SQL routine
1035: ams_ps_rule_pvt.update_filters(p_rulegroup_id,
1036: ddp_ps_filter_tbl,
1037: x_return_status);
1038:
1039: -- copy data back from the local OUT or IN-OUT args, if any
1046: , p1_a1 JTF_VARCHAR2_TABLE_100
1047: , x_return_status OUT NOCOPY VARCHAR2
1048: )
1049: as
1050: ddp_ps_strategy_tbl ams_ps_rule_pvt.ps_rules_tuple_tbl_type;
1051: ddindx binary_integer; indx binary_integer;
1052: begin
1053:
1054: -- copy data to the local IN or IN-OUT args, if any
1052: begin
1053:
1054: -- copy data to the local IN or IN-OUT args, if any
1055:
1056: ams_ps_rule_pvt_w.rosetta_table_copy_in_p3(ddp_ps_strategy_tbl, p1_a0
1057: , p1_a1
1058: );
1059:
1060:
1058: );
1059:
1060:
1061: -- here's the delegated call to the old PL/SQL routine
1062: ams_ps_rule_pvt.update_strategy_params(p_rulegroup_id,
1063: ddp_ps_strategy_tbl,
1064: x_return_status);
1065:
1066: -- copy data back from the local OUT or IN-OUT args, if any
1102: , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1103: , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1104: )
1105: as
1106: ddp_ps_rules_rec ams_ps_rule_pvt.ps_rules_rec_type;
1107: ddindx binary_integer; indx binary_integer;
1108: begin
1109:
1110: -- copy data to the local IN or IN-OUT args, if any
1142: ddp_ps_rules_rec.use_clause9 := p5_a26;
1143: ddp_ps_rules_rec.use_clause10 := p5_a27;
1144:
1145: -- here's the delegated call to the old PL/SQL routine
1146: ams_ps_rule_pvt.validate_ps_rules_rec(p_api_version_number,
1147: p_init_msg_list,
1148: x_return_status,
1149: x_msg_count,
1150: x_msg_data,
1157:
1158:
1159: end;
1160:
1161: end ams_ps_rule_pvt_w;