[Home] [Help]
1: package body eam_pmdef_pub_w as
2: /* $Header: EAMWPMDB.pls 120.2 2005/10/14 12:11:19 hkarmach noship $ */
3: procedure rosetta_table_copy_in_p2(t out nocopy eam_pmdef_pub.pm_activities_grp_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_NUMBER_TABLE
1: package body eam_pmdef_pub_w as
2: /* $Header: EAMWPMDB.pls 120.2 2005/10/14 12:11:19 hkarmach noship $ */
3: procedure rosetta_table_copy_in_p2(t out nocopy eam_pmdef_pub.pm_activities_grp_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_NUMBER_TABLE
6: , a3 JTF_VARCHAR2_TABLE_100
7: , a4 JTF_NUMBER_TABLE
30: end loop;
31: end if;
32: end if;
33: end rosetta_table_copy_in_p2;
34: procedure rosetta_table_copy_out_p2(t eam_pmdef_pub.pm_activities_grp_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
35: , a1 out nocopy JTF_NUMBER_TABLE
36: , a2 out nocopy JTF_NUMBER_TABLE
37: , a3 out nocopy JTF_VARCHAR2_TABLE_100
38: , a4 out nocopy JTF_NUMBER_TABLE
84: end if;
85: end if;
86: end rosetta_table_copy_out_p2;
87:
88: procedure rosetta_table_copy_in_p4(t out nocopy eam_pmdef_pub.pm_rule_tbl_type, a0 JTF_NUMBER_TABLE
89: , a1 JTF_NUMBER_TABLE
90: , a2 JTF_NUMBER_TABLE
91: , a3 JTF_NUMBER_TABLE
92: , a4 JTF_NUMBER_TABLE
127: end loop;
128: end if;
129: end if;
130: end rosetta_table_copy_in_p4;
131: procedure rosetta_table_copy_out_p4(t eam_pmdef_pub.pm_rule_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
132: , a1 out nocopy JTF_NUMBER_TABLE
133: , a2 out nocopy JTF_NUMBER_TABLE
134: , a3 out nocopy JTF_NUMBER_TABLE
135: , a4 out nocopy JTF_NUMBER_TABLE
211: end if;
212: end if;
213: end rosetta_table_copy_out_p4;
214:
215: procedure rosetta_table_copy_in_p6(t out nocopy eam_pmdef_pub.pm_date_tbl_type, a0 JTF_NUMBER_TABLE
216: , a1 JTF_DATE_TABLE
217: , a2 JTF_NUMBER_TABLE
218: ) as
219: ddindx binary_integer; indx binary_integer;
234: end loop;
235: end if;
236: end if;
237: end rosetta_table_copy_in_p6;
238: procedure rosetta_table_copy_out_p6(t eam_pmdef_pub.pm_date_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
239: , a1 out nocopy JTF_DATE_TABLE
240: , a2 out nocopy JTF_NUMBER_TABLE
241: ) as
242: ddindx binary_integer; indx binary_integer;
268: end if;
269: end if;
270: end rosetta_table_copy_out_p6;
271:
272: procedure rosetta_table_copy_in_p8(t out nocopy eam_pmdef_pub.pm_num_tbl_type, a0 JTF_NUMBER_TABLE
273: , a1 JTF_NUMBER_TABLE
274: , a2 JTF_NUMBER_TABLE
275: ) as
276: ddindx binary_integer; indx binary_integer;
291: end loop;
292: end if;
293: end if;
294: end rosetta_table_copy_in_p8;
295: procedure rosetta_table_copy_out_p8(t eam_pmdef_pub.pm_num_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
296: , a1 out nocopy JTF_NUMBER_TABLE
297: , a2 out nocopy JTF_NUMBER_TABLE
298: ) as
299: ddindx binary_integer; indx binary_integer;
351:
352: eam_objectinstantiation_pub_w.rosetta_table_copy_in_p0(ddp_activity_assoc_id_tbl, p_activity_assoc_id_tbl);
353:
354: -- here's the delegated call to the old PL/SQL routine
355: eam_pmdef_pub.instantiate_pm_defs(p_api_version,
356: p_init_msg_list,
357: p_commit,
358: p_validation_level,
359: x_return_status,
475: , x_new_pm_schedule_id out nocopy NUMBER
476: )
477:
478: as
479: ddp_pm_schedule_rec eam_pmdef_pub.pm_scheduling_rec_type;
480: ddp_pm_activities_tbl eam_pmdef_pub.pm_activities_grp_tbl_type;
481: ddp_pm_day_interval_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
482: ddp_pm_runtime_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
483: ddp_pm_list_date_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
476: )
477:
478: as
479: ddp_pm_schedule_rec eam_pmdef_pub.pm_scheduling_rec_type;
480: ddp_pm_activities_tbl eam_pmdef_pub.pm_activities_grp_tbl_type;
481: ddp_pm_day_interval_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
482: ddp_pm_runtime_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
483: ddp_pm_list_date_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
484: ddindx binary_integer; indx binary_integer;
477:
478: as
479: ddp_pm_schedule_rec eam_pmdef_pub.pm_scheduling_rec_type;
480: ddp_pm_activities_tbl eam_pmdef_pub.pm_activities_grp_tbl_type;
481: ddp_pm_day_interval_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
482: ddp_pm_runtime_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
483: ddp_pm_list_date_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
484: ddindx binary_integer; indx binary_integer;
485: begin
478: as
479: ddp_pm_schedule_rec eam_pmdef_pub.pm_scheduling_rec_type;
480: ddp_pm_activities_tbl eam_pmdef_pub.pm_activities_grp_tbl_type;
481: ddp_pm_day_interval_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
482: ddp_pm_runtime_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
483: ddp_pm_list_date_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
484: ddindx binary_integer; indx binary_integer;
485: begin
486:
479: ddp_pm_schedule_rec eam_pmdef_pub.pm_scheduling_rec_type;
480: ddp_pm_activities_tbl eam_pmdef_pub.pm_activities_grp_tbl_type;
481: ddp_pm_day_interval_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
482: ddp_pm_runtime_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
483: ddp_pm_list_date_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
484: ddindx binary_integer; indx binary_integer;
485: begin
486:
487: -- copy data to the local IN or IN-OUT args, if any
540: ddp_pm_schedule_rec.eam_last_cyclic_act := p7_a45;
541: ddp_pm_schedule_rec.maintenance_object_id := p7_a46;
542: ddp_pm_schedule_rec.maintenance_object_type := p7_a47;
543:
544: eam_pmdef_pub_w.rosetta_table_copy_in_p2(ddp_pm_activities_tbl, p8_a0
545: , p8_a1
546: , p8_a2
547: , p8_a3
548: , p8_a4
549: , p8_a5
550: , p8_a6
551: );
552:
553: eam_pmdef_pub_w.rosetta_table_copy_in_p4(ddp_pm_day_interval_rules_tbl, p9_a0
554: , p9_a1
555: , p9_a2
556: , p9_a3
557: , p9_a4
564: , p9_a11
565: , p9_a12
566: );
567:
568: eam_pmdef_pub_w.rosetta_table_copy_in_p4(ddp_pm_runtime_rules_tbl, p10_a0
569: , p10_a1
570: , p10_a2
571: , p10_a3
572: , p10_a4
579: , p10_a11
580: , p10_a12
581: );
582:
583: eam_pmdef_pub_w.rosetta_table_copy_in_p4(ddp_pm_list_date_rules_tbl, p11_a0
584: , p11_a1
585: , p11_a2
586: , p11_a3
587: , p11_a4
596: );
597:
598:
599: -- here's the delegated call to the old PL/SQL routine
600: eam_pmdef_pub.create_pm_def(p_api_version,
601: p_init_msg_list,
602: p_commit,
603: p_validation_level,
604: x_return_status,
729: , p11_a12 JTF_VARCHAR2_TABLE_100
730: )
731:
732: as
733: ddp_pm_schedule_rec eam_pmdef_pub.pm_scheduling_rec_type;
734: ddp_pm_activities_tbl eam_pmdef_pub.pm_activities_grp_tbl_type;
735: ddp_pm_day_interval_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
736: ddp_pm_runtime_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
737: ddp_pm_list_date_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
730: )
731:
732: as
733: ddp_pm_schedule_rec eam_pmdef_pub.pm_scheduling_rec_type;
734: ddp_pm_activities_tbl eam_pmdef_pub.pm_activities_grp_tbl_type;
735: ddp_pm_day_interval_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
736: ddp_pm_runtime_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
737: ddp_pm_list_date_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
738: ddindx binary_integer; indx binary_integer;
731:
732: as
733: ddp_pm_schedule_rec eam_pmdef_pub.pm_scheduling_rec_type;
734: ddp_pm_activities_tbl eam_pmdef_pub.pm_activities_grp_tbl_type;
735: ddp_pm_day_interval_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
736: ddp_pm_runtime_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
737: ddp_pm_list_date_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
738: ddindx binary_integer; indx binary_integer;
739: begin
732: as
733: ddp_pm_schedule_rec eam_pmdef_pub.pm_scheduling_rec_type;
734: ddp_pm_activities_tbl eam_pmdef_pub.pm_activities_grp_tbl_type;
735: ddp_pm_day_interval_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
736: ddp_pm_runtime_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
737: ddp_pm_list_date_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
738: ddindx binary_integer; indx binary_integer;
739: begin
740:
733: ddp_pm_schedule_rec eam_pmdef_pub.pm_scheduling_rec_type;
734: ddp_pm_activities_tbl eam_pmdef_pub.pm_activities_grp_tbl_type;
735: ddp_pm_day_interval_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
736: ddp_pm_runtime_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
737: ddp_pm_list_date_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
738: ddindx binary_integer; indx binary_integer;
739: begin
740:
741: -- copy data to the local IN or IN-OUT args, if any
794: ddp_pm_schedule_rec.eam_last_cyclic_act := p7_a45;
795: ddp_pm_schedule_rec.maintenance_object_id := p7_a46;
796: ddp_pm_schedule_rec.maintenance_object_type := p7_a47;
797:
798: eam_pmdef_pub_w.rosetta_table_copy_in_p2(ddp_pm_activities_tbl, p8_a0
799: , p8_a1
800: , p8_a2
801: , p8_a3
802: , p8_a4
803: , p8_a5
804: , p8_a6
805: );
806:
807: eam_pmdef_pub_w.rosetta_table_copy_in_p4(ddp_pm_day_interval_rules_tbl, p9_a0
808: , p9_a1
809: , p9_a2
810: , p9_a3
811: , p9_a4
818: , p9_a11
819: , p9_a12
820: );
821:
822: eam_pmdef_pub_w.rosetta_table_copy_in_p4(ddp_pm_runtime_rules_tbl, p10_a0
823: , p10_a1
824: , p10_a2
825: , p10_a3
826: , p10_a4
833: , p10_a11
834: , p10_a12
835: );
836:
837: eam_pmdef_pub_w.rosetta_table_copy_in_p4(ddp_pm_list_date_rules_tbl, p11_a0
838: , p11_a1
839: , p11_a2
840: , p11_a3
841: , p11_a4
849: , p11_a12
850: );
851:
852: -- here's the delegated call to the old PL/SQL routine
853: eam_pmdef_pub.update_pm_def(p_api_version,
854: p_init_msg_list,
855: p_commit,
856: p_validation_level,
857: x_return_status,
929: , ddrosetta_retval_bool OUT NOCOPY NUMBER
930: )
931:
932: as
933: ddp_pm_schedule_rec eam_pmdef_pub.pm_scheduling_rec_type;
934: ddindx binary_integer; indx binary_integer;
935: ddrosetta_retval boolean;
936: begin
937:
986: ddp_pm_schedule_rec.maintenance_object_type := p0_a47;
987:
988:
989: -- here's the delegated call to the old PL/SQL routine
990: ddrosetta_retval := eam_pmdef_pub.validate_pm_header(ddp_pm_schedule_rec,
991: x_reason_failed);
992:
993: -- copy data back from the local variables to OUT or IN-OUT args, if any
994: if ddrosetta_retval is null
1017: , ddrosetta_retval_bool OUT NOCOPY NUMBER
1018: )
1019:
1020: as
1021: ddp_pm_rule_rec eam_pmdef_pub.pm_rule_rec_type;
1022: ddindx binary_integer; indx binary_integer;
1023: ddrosetta_retval boolean;
1024: begin
1025:
1039: ddp_pm_rule_rec.list_date_desc := p0_a12;
1040:
1041:
1042: -- here's the delegated call to the old PL/SQL routine
1043: ddrosetta_retval := eam_pmdef_pub.validate_pm_day_interval_rule(ddp_pm_rule_rec,
1044: x_reason_failed);
1045:
1046: -- copy data back from the local variables to OUT or IN-OUT args, if any
1047: if ddrosetta_retval is null
1070: , ddrosetta_retval_bool OUT NOCOPY NUMBER
1071: )
1072:
1073: as
1074: ddp_pm_rule_rec eam_pmdef_pub.pm_rule_rec_type;
1075: ddindx binary_integer; indx binary_integer;
1076: ddrosetta_retval boolean;
1077: begin
1078:
1092: ddp_pm_rule_rec.list_date_desc := p0_a12;
1093:
1094:
1095: -- here's the delegated call to the old PL/SQL routine
1096: ddrosetta_retval := eam_pmdef_pub.validate_pm_runtime_rule(ddp_pm_rule_rec,
1097: x_reason_failed);
1098:
1099: -- copy data back from the local variables to OUT or IN-OUT args, if any
1100: if ddrosetta_retval is null
1123: , ddrosetta_retval_bool OUT NOCOPY NUMBER
1124: )
1125:
1126: as
1127: ddp_pm_rule_rec eam_pmdef_pub.pm_rule_rec_type;
1128: ddindx binary_integer; indx binary_integer;
1129: ddrosetta_retval boolean;
1130: begin
1131:
1145: ddp_pm_rule_rec.list_date_desc := p0_a12;
1146:
1147:
1148: -- here's the delegated call to the old PL/SQL routine
1149: ddrosetta_retval := eam_pmdef_pub.validate_pm_list_date(ddp_pm_rule_rec,
1150: x_reason_failed);
1151:
1152: -- copy data back from the local variables to OUT or IN-OUT args, if any
1153: if ddrosetta_retval is null
1176: , ddrosetta_retval_bool OUT NOCOPY NUMBER
1177: )
1178:
1179: as
1180: ddp_pm_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
1181: ddindx binary_integer; indx binary_integer;
1182: ddrosetta_retval boolean;
1183: begin
1184:
1182: ddrosetta_retval boolean;
1183: begin
1184:
1185: -- copy data to the local IN or IN-OUT args, if any
1186: eam_pmdef_pub_w.rosetta_table_copy_in_p4(ddp_pm_rules_tbl, p0_a0
1187: , p0_a1
1188: , p0_a2
1189: , p0_a3
1190: , p0_a4
1199: );
1200:
1201:
1202: -- here's the delegated call to the old PL/SQL routine
1203: ddrosetta_retval := eam_pmdef_pub.validate_pm_day_interval_rules(ddp_pm_rules_tbl,
1204: x_reason_failed);
1205:
1206: -- copy data back from the local variables to OUT or IN-OUT args, if any
1207: if ddrosetta_retval is null
1230: , ddrosetta_retval_bool OUT NOCOPY NUMBER
1231: )
1232:
1233: as
1234: ddp_pm_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
1235: ddindx binary_integer; indx binary_integer;
1236: ddrosetta_retval boolean;
1237: begin
1238:
1236: ddrosetta_retval boolean;
1237: begin
1238:
1239: -- copy data to the local IN or IN-OUT args, if any
1240: eam_pmdef_pub_w.rosetta_table_copy_in_p4(ddp_pm_rules_tbl, p0_a0
1241: , p0_a1
1242: , p0_a2
1243: , p0_a3
1244: , p0_a4
1253: );
1254:
1255:
1256: -- here's the delegated call to the old PL/SQL routine
1257: ddrosetta_retval := eam_pmdef_pub.validate_pm_runtime_rules(ddp_pm_rules_tbl,
1258: x_reason_failed);
1259:
1260: -- copy data back from the local variables to OUT or IN-OUT args, if any
1261: if ddrosetta_retval is null
1284: , ddrosetta_retval_bool OUT NOCOPY NUMBER
1285: )
1286:
1287: as
1288: ddp_pm_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
1289: ddindx binary_integer; indx binary_integer;
1290: ddrosetta_retval boolean;
1291: begin
1292:
1290: ddrosetta_retval boolean;
1291: begin
1292:
1293: -- copy data to the local IN or IN-OUT args, if any
1294: eam_pmdef_pub_w.rosetta_table_copy_in_p4(ddp_pm_rules_tbl, p0_a0
1295: , p0_a1
1296: , p0_a2
1297: , p0_a3
1298: , p0_a4
1307: );
1308:
1309:
1310: -- here's the delegated call to the old PL/SQL routine
1311: ddrosetta_retval := eam_pmdef_pub.validate_pm_list_date_rules(ddp_pm_rules_tbl,
1312: x_reason_failed);
1313:
1314: -- copy data back from the local variables to OUT or IN-OUT args, if any
1315: if ddrosetta_retval is null
1412: , ddrosetta_retval_bool OUT NOCOPY NUMBER
1413: )
1414:
1415: as
1416: ddp_pm_schedule_rec eam_pmdef_pub.pm_scheduling_rec_type;
1417: ddp_pm_day_interval_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
1418: ddp_pm_runtime_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
1419: ddp_pm_list_date_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
1420: ddindx binary_integer; indx binary_integer;
1413: )
1414:
1415: as
1416: ddp_pm_schedule_rec eam_pmdef_pub.pm_scheduling_rec_type;
1417: ddp_pm_day_interval_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
1418: ddp_pm_runtime_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
1419: ddp_pm_list_date_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
1420: ddindx binary_integer; indx binary_integer;
1421: ddrosetta_retval boolean;
1414:
1415: as
1416: ddp_pm_schedule_rec eam_pmdef_pub.pm_scheduling_rec_type;
1417: ddp_pm_day_interval_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
1418: ddp_pm_runtime_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
1419: ddp_pm_list_date_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
1420: ddindx binary_integer; indx binary_integer;
1421: ddrosetta_retval boolean;
1422: begin
1415: as
1416: ddp_pm_schedule_rec eam_pmdef_pub.pm_scheduling_rec_type;
1417: ddp_pm_day_interval_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
1418: ddp_pm_runtime_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
1419: ddp_pm_list_date_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
1420: ddindx binary_integer; indx binary_integer;
1421: ddrosetta_retval boolean;
1422: begin
1423:
1470: ddp_pm_schedule_rec.eam_last_cyclic_act := p0_a45;
1471: ddp_pm_schedule_rec.maintenance_object_id := p0_a46;
1472: ddp_pm_schedule_rec.maintenance_object_type := p0_a47;
1473:
1474: eam_pmdef_pub_w.rosetta_table_copy_in_p4(ddp_pm_day_interval_rules_tbl, p1_a0
1475: , p1_a1
1476: , p1_a2
1477: , p1_a3
1478: , p1_a4
1485: , p1_a11
1486: , p1_a12
1487: );
1488:
1489: eam_pmdef_pub_w.rosetta_table_copy_in_p4(ddp_pm_runtime_rules_tbl, p2_a0
1490: , p2_a1
1491: , p2_a2
1492: , p2_a3
1493: , p2_a4
1500: , p2_a11
1501: , p2_a12
1502: );
1503:
1504: eam_pmdef_pub_w.rosetta_table_copy_in_p4(ddp_pm_list_date_rules_tbl, p3_a0
1505: , p3_a1
1506: , p3_a2
1507: , p3_a3
1508: , p3_a4
1517: );
1518:
1519:
1520: -- here's the delegated call to the old PL/SQL routine
1521: ddrosetta_retval := eam_pmdef_pub.validate_pm_header_and_rules(ddp_pm_schedule_rec,
1522: ddp_pm_day_interval_rules_tbl,
1523: ddp_pm_runtime_rules_tbl,
1524: ddp_pm_list_date_rules_tbl,
1525: x_reason_failed);
1610: , ddrosetta_retval_bool OUT NOCOPY NUMBER
1611: )
1612:
1613: as
1614: ddp_pm_activity_grp_rec eam_pmdef_pub.pm_activities_grp_rec_type;
1615: ddp_pm_runtime_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
1616: ddp_pm_schedule_rec eam_pmdef_pub.pm_scheduling_rec_type;
1617: ddindx binary_integer; indx binary_integer;
1618: ddrosetta_retval boolean;
1611: )
1612:
1613: as
1614: ddp_pm_activity_grp_rec eam_pmdef_pub.pm_activities_grp_rec_type;
1615: ddp_pm_runtime_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
1616: ddp_pm_schedule_rec eam_pmdef_pub.pm_scheduling_rec_type;
1617: ddindx binary_integer; indx binary_integer;
1618: ddrosetta_retval boolean;
1619: l_activities varchar2(80);
1612:
1613: as
1614: ddp_pm_activity_grp_rec eam_pmdef_pub.pm_activities_grp_rec_type;
1615: ddp_pm_runtime_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
1616: ddp_pm_schedule_rec eam_pmdef_pub.pm_scheduling_rec_type;
1617: ddindx binary_integer; indx binary_integer;
1618: ddrosetta_retval boolean;
1619: l_activities varchar2(80);
1620: begin
1627: ddp_pm_activity_grp_rec.day_tolerance := p0_a4;
1628: ddp_pm_activity_grp_rec.next_service_start_date := p0_a5;
1629: ddp_pm_activity_grp_rec.next_service_end_date := p0_a6;
1630:
1631: eam_pmdef_pub_w.rosetta_table_copy_in_p4(ddp_pm_runtime_rules_tbl, p1_a0
1632: , p1_a1
1633: , p1_a2
1634: , p1_a3
1635: , p1_a4
1694:
1695:
1696:
1697: -- here's the delegated call to the old PL/SQL routine
1698: ddrosetta_retval := eam_pmdef_pub.validate_pm_activity(ddp_pm_activity_grp_rec,
1699: ddp_pm_runtime_rules_tbl,
1700: ddp_pm_schedule_rec,
1701: x_reason_failed,
1702: x_message,
1774: , ddrosetta_retval_bool OUT NOCOPY NUMBER
1775: )
1776:
1777: as
1778: ddp_pm_activity_grp_rec eam_pmdef_pub.pm_activities_grp_rec_type;
1779: ddp_pm_schedule_rec eam_pmdef_pub.pm_scheduling_rec_type;
1780: ddindx binary_integer; indx binary_integer;
1781: ddrosetta_retval boolean;
1782: begin
1775: )
1776:
1777: as
1778: ddp_pm_activity_grp_rec eam_pmdef_pub.pm_activities_grp_rec_type;
1779: ddp_pm_schedule_rec eam_pmdef_pub.pm_scheduling_rec_type;
1780: ddindx binary_integer; indx binary_integer;
1781: ddrosetta_retval boolean;
1782: begin
1783:
1840: ddp_pm_schedule_rec.maintenance_object_type := p1_a47;
1841:
1842:
1843: -- here's the delegated call to the old PL/SQL routine
1844: ddrosetta_retval := eam_pmdef_pub.validate_pm_activity(ddp_pm_activity_grp_rec,
1845: ddp_pm_schedule_rec,
1846: x_reason_failed);
1847:
1848: -- copy data back from the local variables to OUT or IN-OUT args, if any
1929: , ddrosetta_retval_bool OUT NOCOPY NUMBER
1930: )
1931:
1932: as
1933: ddp_pm_activities_grp_tbl eam_pmdef_pub.pm_activities_grp_tbl_type;
1934: ddp_pm_runtime_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
1935: ddp_pm_schedule_rec eam_pmdef_pub.pm_scheduling_rec_type;
1936: ddindx binary_integer; indx binary_integer;
1937: ddrosetta_retval boolean;
1930: )
1931:
1932: as
1933: ddp_pm_activities_grp_tbl eam_pmdef_pub.pm_activities_grp_tbl_type;
1934: ddp_pm_runtime_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
1935: ddp_pm_schedule_rec eam_pmdef_pub.pm_scheduling_rec_type;
1936: ddindx binary_integer; indx binary_integer;
1937: ddrosetta_retval boolean;
1938: l_activities varchar2(80);
1931:
1932: as
1933: ddp_pm_activities_grp_tbl eam_pmdef_pub.pm_activities_grp_tbl_type;
1934: ddp_pm_runtime_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
1935: ddp_pm_schedule_rec eam_pmdef_pub.pm_scheduling_rec_type;
1936: ddindx binary_integer; indx binary_integer;
1937: ddrosetta_retval boolean;
1938: l_activities varchar2(80);
1939: begin
1938: l_activities varchar2(80);
1939: begin
1940:
1941: -- copy data to the local IN or IN-OUT args, if any
1942: eam_pmdef_pub_w.rosetta_table_copy_in_p2(ddp_pm_activities_grp_tbl, p0_a0
1943: , p0_a1
1944: , p0_a2
1945: , p0_a3
1946: , p0_a4
1947: , p0_a5
1948: , p0_a6
1949: );
1950:
1951: eam_pmdef_pub_w.rosetta_table_copy_in_p4(ddp_pm_runtime_rules_tbl, p1_a0
1952: , p1_a1
1953: , p1_a2
1954: , p1_a3
1955: , p1_a4
2014:
2015:
2016:
2017: -- here's the delegated call to the old PL/SQL routine
2018: ddrosetta_retval := eam_pmdef_pub.validate_pm_activities(ddp_pm_activities_grp_tbl,
2019: ddp_pm_runtime_rules_tbl,
2020: ddp_pm_schedule_rec,
2021: x_reason_failed,
2022: x_message,
2044: , p2_a2 out nocopy JTF_NUMBER_TABLE
2045: )
2046:
2047: as
2048: ddp_date_table eam_pmdef_pub.pm_date_tbl_type;
2049: ddx_sorted_date_table eam_pmdef_pub.pm_date_tbl_type;
2050: ddindx binary_integer; indx binary_integer;
2051: begin
2052:
2045: )
2046:
2047: as
2048: ddp_date_table eam_pmdef_pub.pm_date_tbl_type;
2049: ddx_sorted_date_table eam_pmdef_pub.pm_date_tbl_type;
2050: ddindx binary_integer; indx binary_integer;
2051: begin
2052:
2053: -- copy data to the local IN or IN-OUT args, if any
2050: ddindx binary_integer; indx binary_integer;
2051: begin
2052:
2053: -- copy data to the local IN or IN-OUT args, if any
2054: eam_pmdef_pub_w.rosetta_table_copy_in_p6(ddp_date_table, p0_a0
2055: , p0_a1
2056: , p0_a2
2057: );
2058:
2058:
2059:
2060:
2061: -- here's the delegated call to the old PL/SQL routine
2062: eam_pmdef_pub.sort_table_by_date(ddp_date_table,
2063: p_num_rows,
2064: ddx_sorted_date_table);
2065:
2066: -- copy data back from the local variables to OUT or IN-OUT args, if any
2065:
2066: -- copy data back from the local variables to OUT or IN-OUT args, if any
2067:
2068:
2069: eam_pmdef_pub_w.rosetta_table_copy_out_p6(ddx_sorted_date_table, p2_a0
2070: , p2_a1
2071: , p2_a2
2072: );
2073: end;
2081: , p2_a2 out nocopy JTF_NUMBER_TABLE
2082: )
2083:
2084: as
2085: ddp_num_table eam_pmdef_pub.pm_num_tbl_type;
2086: ddx_sorted_num_table eam_pmdef_pub.pm_num_tbl_type;
2087: ddindx binary_integer; indx binary_integer;
2088: begin
2089:
2082: )
2083:
2084: as
2085: ddp_num_table eam_pmdef_pub.pm_num_tbl_type;
2086: ddx_sorted_num_table eam_pmdef_pub.pm_num_tbl_type;
2087: ddindx binary_integer; indx binary_integer;
2088: begin
2089:
2090: -- copy data to the local IN or IN-OUT args, if any
2087: ddindx binary_integer; indx binary_integer;
2088: begin
2089:
2090: -- copy data to the local IN or IN-OUT args, if any
2091: eam_pmdef_pub_w.rosetta_table_copy_in_p8(ddp_num_table, p0_a0
2092: , p0_a1
2093: , p0_a2
2094: );
2095:
2095:
2096:
2097:
2098: -- here's the delegated call to the old PL/SQL routine
2099: eam_pmdef_pub.sort_table_by_number(ddp_num_table,
2100: p_num_rows,
2101: ddx_sorted_num_table);
2102:
2103: -- copy data back from the local variables to OUT or IN-OUT args, if any
2102:
2103: -- copy data back from the local variables to OUT or IN-OUT args, if any
2104:
2105:
2106: eam_pmdef_pub_w.rosetta_table_copy_out_p8(ddx_sorted_num_table, p2_a0
2107: , p2_a1
2108: , p2_a2
2109: );
2110: end;
2150: , p2_a12 out nocopy JTF_VARCHAR2_TABLE_100
2151: )
2152:
2153: as
2154: ddp_rules_tbl1 eam_pmdef_pub.pm_rule_tbl_type;
2155: ddp_rules_tbl2 eam_pmdef_pub.pm_rule_tbl_type;
2156: ddx_merged_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
2157: ddindx binary_integer; indx binary_integer;
2158: begin
2151: )
2152:
2153: as
2154: ddp_rules_tbl1 eam_pmdef_pub.pm_rule_tbl_type;
2155: ddp_rules_tbl2 eam_pmdef_pub.pm_rule_tbl_type;
2156: ddx_merged_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
2157: ddindx binary_integer; indx binary_integer;
2158: begin
2159:
2152:
2153: as
2154: ddp_rules_tbl1 eam_pmdef_pub.pm_rule_tbl_type;
2155: ddp_rules_tbl2 eam_pmdef_pub.pm_rule_tbl_type;
2156: ddx_merged_rules_tbl eam_pmdef_pub.pm_rule_tbl_type;
2157: ddindx binary_integer; indx binary_integer;
2158: begin
2159:
2160: -- copy data to the local IN or IN-OUT args, if any
2157: ddindx binary_integer; indx binary_integer;
2158: begin
2159:
2160: -- copy data to the local IN or IN-OUT args, if any
2161: eam_pmdef_pub_w.rosetta_table_copy_in_p4(ddp_rules_tbl1, p0_a0
2162: , p0_a1
2163: , p0_a2
2164: , p0_a3
2165: , p0_a4
2172: , p0_a11
2173: , p0_a12
2174: );
2175:
2176: eam_pmdef_pub_w.rosetta_table_copy_in_p4(ddp_rules_tbl2, p1_a0
2177: , p1_a1
2178: , p1_a2
2179: , p1_a3
2180: , p1_a4
2189: );
2190:
2191:
2192: -- here's the delegated call to the old PL/SQL routine
2193: eam_pmdef_pub.merge_rules(ddp_rules_tbl1,
2194: ddp_rules_tbl2,
2195: ddx_merged_rules_tbl);
2196:
2197: -- copy data back from the local variables to OUT or IN-OUT args, if any
2196:
2197: -- copy data back from the local variables to OUT or IN-OUT args, if any
2198:
2199:
2200: eam_pmdef_pub_w.rosetta_table_copy_out_p4(ddx_merged_rules_tbl, p2_a0
2201: , p2_a1
2202: , p2_a2
2203: , p2_a3
2204: , p2_a4
2212: , p2_a12
2213: );
2214: end;
2215:
2216: end eam_pmdef_pub_w;