[Home] [Help]
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' per_pmp_bus.'; -- Global package name
9: g_debug boolean := hr_utility.debug_enabled;
10: --
11: -- ----------------------------------------------------------------------------
12: -- |------------------------------< return_status_code >----------------------|
13: -- ----------------------------------------------------------------------------
44: WHERE pmp.plan_id = p_plan_id;
45:
46: begin
47:
48: hr_utility.set_location('Entering:'||l_proc,10);
49:
50: --
51: -- Only attempt to get the plan's status if the procedure has been
52: -- called correctly.
52: -- called correctly.
53: --
54: IF p_plan_id IS NOT NULL THEN
55:
56: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
57: OPEN csr_get_status_code;
58: FETCH csr_get_status_code INTO l_status_code;
59: CLOSE csr_get_status_code;
60:
59: CLOSE csr_get_status_code;
60:
61: END IF;
62:
63: hr_utility.set_location('Leaving:'||l_proc,980);
64: RETURN l_status_code;
65:
66: end return_status_code;
67: --
101: WHERE pmp.plan_id = p_plan_id;
102:
103: begin
104:
105: hr_utility.set_location('Entering:'||l_proc,10);
106:
107: --
108: -- Only attempt to get the plan's status if the procedure has been
109: -- called correctly.
109: -- called correctly.
110: --
111: IF p_plan_id IS NOT NULL THEN
112:
113: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
114: OPEN csr_get_ovn;
115: FETCH csr_get_ovn INTO l_ovn;
116: CLOSE csr_get_ovn;
117:
116: CLOSE csr_get_ovn;
117:
118: END IF;
119:
120: hr_utility.set_location('Leaving:'||l_proc,980);
121: RETURN l_ovn;
122:
123: end return_ovn;
124: --
156: --
157: l_proc varchar2(72) := g_package || 'chk_df';
158: --
159: begin
160: hr_utility.set_location('Entering:'||l_proc,10);
161: --
162: if ((p_rec.plan_id is not null) and (
163: nvl(per_pmp_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
164: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
295: ,p_attribute30_value => p_rec.attribute30
296: );
297: end if;
298: --
299: hr_utility.set_location(' Leaving:'||l_proc,20);
300: end chk_df;
301: --
302: -- ----------------------------------------------------------------------------
303: -- |-----------------------< chk_non_updateable_args >------------------------|
401: l_dup varchar2(1) := 'N';
402:
403: Begin
404:
405: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
406:
407: --
408: hr_api.mandatory_arg_error
409: (p_api_name => l_proc
426: THEN
427: RETURN;
428: END IF;
429:
430: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
431:
432: --
433: -- Warn if an plan with this name already exists.
434: --
437: close csr_plan_name;
438:
439: p_duplicate_name_warning := (l_dup = 'Y');
440:
441: IF g_debug THEN hr_utility.trace('p_duplicate_name_warning: '||l_dup); END IF;
442: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
443:
444: End chk_plan_name;
445: --
438:
439: p_duplicate_name_warning := (l_dup = 'Y');
440:
441: IF g_debug THEN hr_utility.trace('p_duplicate_name_warning: '||l_dup); END IF;
442: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
443:
444: End chk_plan_name;
445: --
446: -- ----------------------------------------------------------------------------
491: l_exists varchar2(1) := 'N';
492:
493: Begin
494:
495: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
496:
497: --
498: hr_api.mandatory_arg_error
499: (p_api_name => l_proc
516: THEN
517: RETURN;
518: END IF;
519:
520: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
521:
522: --
523: -- check if person exists.
524: --
530: fnd_message.set_name('PER', 'HR_50232_WPM_PLAN_ADMIN');
531: fnd_message.raise_error;
532: END IF;
533:
534: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
535:
536: exception
537: when app_exception.application_exception then
538: if hr_multi_message.exception_add
537: when app_exception.application_exception then
538: if hr_multi_message.exception_add
539: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.ADMINISTRATOR_PERSON_ID'
540: ) then
541: hr_utility.set_location(' Leaving:'||l_proc, 980);
542: raise;
543: end if;
544: hr_utility.set_location(' Leaving:'||l_proc, 990);
545:
540: ) then
541: hr_utility.set_location(' Leaving:'||l_proc, 980);
542: raise;
543: end if;
544: hr_utility.set_location(' Leaving:'||l_proc, 990);
545:
546: End chk_administrator_person_id;
547: --
548: -- ----------------------------------------------------------------------------
602: l_end_date date;
603:
604: Begin
605:
606: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
607:
608: --
609: -- Only proceed with validation if :
610: -- a) The current g_old_rec is current and
622: THEN
623: RETURN;
624: END IF;
625:
626: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
627:
628: IF p_previous_plan_id IS NOT NULL THEN
629: --
630: -- Check if the previous plan exists.
632: open csr_previous_plan;
633: fetch csr_previous_plan into l_exists;
634: close csr_previous_plan;
635:
636: IF g_debug THEN hr_utility.set_location(l_proc, 30); END IF;
637:
638: IF (l_exists is null or l_exists <> 'Y') THEN
639: IF g_debug THEN hr_utility.set_location(l_proc, 40); END IF;
640: fnd_message.set_name('PER', 'HR_50423_WPM_PRVPLAN');
635:
636: IF g_debug THEN hr_utility.set_location(l_proc, 30); END IF;
637:
638: IF (l_exists is null or l_exists <> 'Y') THEN
639: IF g_debug THEN hr_utility.set_location(l_proc, 40); END IF;
640: fnd_message.set_name('PER', 'HR_50423_WPM_PRVPLAN');
641: fnd_message.raise_error;
642: END IF;
643: --
647: open csr_plan_overlap;
648: fetch csr_plan_overlap into l_end_date;
649: close csr_plan_overlap;
650:
651: IF g_debug THEN hr_utility.set_location(l_proc, 50); END IF;
652:
653: IF (l_end_date > p_start_date) THEN
654: IF g_debug THEN hr_utility.set_location(l_proc, 50); END IF;
655: fnd_message.set_name('PER', 'HR_50419_WPM_PLAN_OVERLAP');
650:
651: IF g_debug THEN hr_utility.set_location(l_proc, 50); END IF;
652:
653: IF (l_end_date > p_start_date) THEN
654: IF g_debug THEN hr_utility.set_location(l_proc, 50); END IF;
655: fnd_message.set_name('PER', 'HR_50419_WPM_PLAN_OVERLAP');
656: fnd_message.raise_error;
657: END IF;
658:
657: END IF;
658:
659: END IF;
660:
661: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
662:
663: exception
664: when app_exception.application_exception then
665: if hr_multi_message.exception_add
665: if hr_multi_message.exception_add
666: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.PREVIOUS_PLAN_ID'
667: ,p_associated_column2 => 'PER_PERF_MGMT_PLANS.START_DATE'
668: ) then
669: hr_utility.set_location(' Leaving:'||l_proc, 980);
670: raise;
671: end if;
672: hr_utility.set_location(' Leaving:'||l_proc, 990);
673:
668: ) then
669: hr_utility.set_location(' Leaving:'||l_proc, 980);
670: raise;
671: end if;
672: hr_utility.set_location(' Leaving:'||l_proc, 990);
673:
674: End chk_previous_plan_id;
675: --
676: -- ----------------------------------------------------------------------------
712: l_api_updating boolean;
713:
714: Begin
715:
716: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
717:
718: --
719: hr_api.mandatory_arg_error
720: (p_api_name => l_proc
745: THEN
746: RETURN;
747: END IF;
748:
749: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
750:
751: --
752: -- Checks that the valid from date is not greater than the valid to date.
753: --
755: fnd_message.set_name('PER','HR_50233_WPM_PLAN_DATES');
756: fnd_message.raise_error;
757: END IF;
758: --
759: IF g_debug THEN hr_utility.set_location(l_proc, 30); END IF;
760: --
761: IF (l_api_updating AND p_status_code <> 'DRAFT' AND
762: nvl(per_pmp_shd.g_old_rec.start_date, hr_api.g_date)
763: <> nvl(p_start_date, hr_api.g_date))
765: fnd_message.set_name('PER','HR_50395_WPM_ST_DATE_UPD');
766: fnd_message.raise_error;
767: END IF;
768:
769: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
770:
771: exception
772: when app_exception.application_exception then
773: IF hr_multi_message.exception_add
773: IF hr_multi_message.exception_add
774: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.START_DATE'
775: ,p_associated_column2 => 'PER_PERF_MGMT_PLANS.END_DATE'
776: ) THEN
777: hr_utility.set_location(' Leaving:'||l_proc, 980);
778: raise;
779: END IF;
780: hr_utility.set_location(' Leaving:'||l_proc, 990);
781:
776: ) THEN
777: hr_utility.set_location(' Leaving:'||l_proc, 980);
778: raise;
779: END IF;
780: hr_utility.set_location(' Leaving:'||l_proc, 990);
781:
782: End chk_start_from_to_date;
783: --
784: -- ----------------------------------------------------------------------------
820: l_api_updating boolean;
821:
822: Begin
823:
824: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
825:
826: --
827: hr_api.mandatory_arg_error
828: (p_api_name => l_proc
844: THEN
845: RETURN;
846: END IF;
847:
848: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
849:
850: --
851: -- Checks that the status code is valid
852: --
858: fnd_message.set_name('PER','HR_50234_WPM_PLAN_STATUS');
859: fnd_message.raise_error;
860: END IF;
861:
862: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
863:
864: exception
865: when app_exception.application_exception then
866: IF hr_multi_message.exception_add
865: when app_exception.application_exception then
866: IF hr_multi_message.exception_add
867: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.STATUS_CODE'
868: ) THEN
869: hr_utility.set_location(' Leaving:'||l_proc, 980);
870: raise;
871: END IF;
872: hr_utility.set_location(' Leaving:'||l_proc, 990);
873:
868: ) THEN
869: hr_utility.set_location(' Leaving:'||l_proc, 980);
870: raise;
871: END IF;
872: hr_utility.set_location(' Leaving:'||l_proc, 990);
873:
874: End chk_status_code;
875: --
876: -- ----------------------------------------------------------------------------
912: l_api_updating boolean;
913:
914: Begin
915:
916: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
917:
918: --
919: -- Only proceed with validation if :
920: -- a) The current g_old_rec is current and
930: THEN
931: RETURN;
932: END IF;
933:
934: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
935:
936: --
937: -- Checks that the hierarchy type is valid
938: --
946: fnd_message.raise_error;
947: END IF;
948: END IF;
949:
950: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
951:
952: exception
953: when app_exception.application_exception then
954: IF hr_multi_message.exception_add
953: when app_exception.application_exception then
954: IF hr_multi_message.exception_add
955: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.HIERARCHY_TYPE_CODE'
956: ) THEN
957: hr_utility.set_location(' Leaving:'||l_proc, 980);
958: raise;
959: END IF;
960: hr_utility.set_location(' Leaving:'||l_proc, 990);
961:
956: ) THEN
957: hr_utility.set_location(' Leaving:'||l_proc, 980);
958: raise;
959: END IF;
960: hr_utility.set_location(' Leaving:'||l_proc, 990);
961:
962: End chk_hierarchy_type_code;
963: --
964: -- ----------------------------------------------------------------------------
1008: l_api_updating boolean;
1009: l_exist varchar2(1);
1010: Begin
1011:
1012: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
1013:
1014: --
1015: -- Only proceed with validation if :
1016: -- a) The current g_old_rec is current and
1028: THEN
1029: RETURN;
1030: END IF;
1031:
1032: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
1033:
1034: --
1035: -- Validate the parameter has been entered.
1036: --
1056: fnd_message.raise_error;
1057: END IF;
1058: END IF;
1059:
1060: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
1061:
1062: exception
1063: when app_exception.application_exception then
1064: IF hr_multi_message.exception_add
1063: when app_exception.application_exception then
1064: IF hr_multi_message.exception_add
1065: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.SUPERVISOR_ID'
1066: ) THEN
1067: hr_utility.set_location(' Leaving:'||l_proc, 980);
1068: raise;
1069: END IF;
1070: hr_utility.set_location(' Leaving:'||l_proc, 990);
1071:
1066: ) THEN
1067: hr_utility.set_location(' Leaving:'||l_proc, 980);
1068: raise;
1069: END IF;
1070: hr_utility.set_location(' Leaving:'||l_proc, 990);
1071:
1072: End chk_supervisor_id;
1073: --
1074: -- ----------------------------------------------------------------------------
1120: l_api_updating boolean;
1121: l_exist varchar2(1);
1122: Begin
1123:
1124: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
1125:
1126: --
1127: -- Only proceed with validation if :
1128: -- a) The current g_old_rec is current and
1140: THEN
1141: RETURN;
1142: END IF;
1143:
1144: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
1145:
1146: -- Validate the parameter has been entered.
1147: --
1148: IF p_hierarchy_type_code IS NOT null AND
1167: fnd_message.raise_error;
1168: END IF;
1169: END IF;
1170:
1171: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
1172:
1173: exception
1174: when app_exception.application_exception then
1175: IF hr_multi_message.exception_add
1174: when app_exception.application_exception then
1175: IF hr_multi_message.exception_add
1176: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.SUPERVISOR_ASSIGNMENT_ID'
1177: ) THEN
1178: hr_utility.set_location(' Leaving:'||l_proc, 980);
1179: raise;
1180: END IF;
1181: hr_utility.set_location(' Leaving:'||l_proc, 990);
1182:
1177: ) THEN
1178: hr_utility.set_location(' Leaving:'||l_proc, 980);
1179: raise;
1180: END IF;
1181: hr_utility.set_location(' Leaving:'||l_proc, 990);
1182:
1183: End chk_supervisor_assignment_id;
1184: --
1185: -- ----------------------------------------------------------------------------
1229: l_api_updating boolean;
1230: l_exist varchar2(1);
1231: Begin
1232:
1233: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
1234:
1235: --
1236: -- Only proceed with validation if :
1237: -- a) The current g_old_rec is current and
1249: THEN
1250: RETURN;
1251: END IF;
1252:
1253: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
1254:
1255: --
1256: -- Validate the parameter has been entered.
1257: --
1277: fnd_message.raise_error;
1278: END IF;
1279: END IF;
1280:
1281: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
1282:
1283: exception
1284: when app_exception.application_exception then
1285: IF hr_multi_message.exception_add
1284: when app_exception.application_exception then
1285: IF hr_multi_message.exception_add
1286: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.ORGANIZATION_STRUCTURE_ID'
1287: ) THEN
1288: hr_utility.set_location(' Leaving:'||l_proc, 980);
1289: raise;
1290: END IF;
1291: hr_utility.set_location(' Leaving:'||l_proc, 990);
1292:
1287: ) THEN
1288: hr_utility.set_location(' Leaving:'||l_proc, 980);
1289: raise;
1290: END IF;
1291: hr_utility.set_location(' Leaving:'||l_proc, 990);
1292:
1293: End chk_organization_structure_id;
1294: --
1295: -- ----------------------------------------------------------------------------
1339: l_api_updating boolean;
1340: l_exist varchar2(1);
1341: Begin
1342:
1343: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
1344:
1345: --
1346: -- Only proceed with validation if :
1347: -- a) The current g_old_rec is current and
1359: THEN
1360: RETURN;
1361: END IF;
1362:
1363: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
1364:
1365: --
1366: -- Validate the parameter has been entered.
1367: --
1387: fnd_message.raise_error;
1388: END IF;
1389: END IF;
1390:
1391: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
1392:
1393: exception
1394: when app_exception.application_exception then
1395: IF hr_multi_message.exception_add
1394: when app_exception.application_exception then
1395: IF hr_multi_message.exception_add
1396: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.ORG_STRUCTURE_VERSION_ID'
1397: ) THEN
1398: hr_utility.set_location(' Leaving:'||l_proc, 980);
1399: raise;
1400: END IF;
1401: hr_utility.set_location(' Leaving:'||l_proc, 990);
1402:
1397: ) THEN
1398: hr_utility.set_location(' Leaving:'||l_proc, 980);
1399: raise;
1400: END IF;
1401: hr_utility.set_location(' Leaving:'||l_proc, 990);
1402:
1403: End chk_org_structure_version_id;
1404: --
1405: -- ----------------------------------------------------------------------------
1449: l_api_updating boolean;
1450: l_exist varchar2(1);
1451: Begin
1452:
1453: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
1454:
1455: --
1456: -- Only proceed with validation if :
1457: -- a) The current g_old_rec is current and
1469: THEN
1470: RETURN;
1471: END IF;
1472:
1473: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
1474:
1475: IF p_organization_structure_id IS NOT null AND
1476: p_org_structure_version_id IS NOT null THEN
1477: --
1486: fnd_message.raise_error;
1487: END IF;
1488: END IF;
1489:
1490: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
1491:
1492: exception
1493: when app_exception.application_exception then
1494: IF hr_multi_message.exception_add
1494: IF hr_multi_message.exception_add
1495: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.ORGANIZATION_STRUCTURE_ID'
1496: ,p_associated_column2 => 'PER_PERF_MGMT_PLANS.ORG_STRUCTURE_VERSION_ID'
1497: ) THEN
1498: hr_utility.set_location(' Leaving:'||l_proc, 980);
1499: raise;
1500: END IF;
1501: hr_utility.set_location(' Leaving:'||l_proc, 990);
1502:
1497: ) THEN
1498: hr_utility.set_location(' Leaving:'||l_proc, 980);
1499: raise;
1500: END IF;
1501: hr_utility.set_location(' Leaving:'||l_proc, 990);
1502:
1503: End chk_org_structure_version;
1504: --
1505: -- ----------------------------------------------------------------------------
1552: l_api_updating boolean;
1553: l_exist varchar2(1);
1554: Begin
1555:
1556: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
1557:
1558: --
1559: -- Only proceed with validation if :
1560: -- a) The current g_old_rec is current and
1586: ,p_argument_value => p_top_organization_id
1587: );
1588: END IF;
1589:
1590: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
1591:
1592: IF p_top_organization_id IS NOT null THEN
1593: --
1594: -- Checks that the org exists
1602: fnd_message.raise_error;
1603: END IF;
1604: END IF;
1605:
1606: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
1607:
1608: exception
1609: when app_exception.application_exception then
1610: IF hr_multi_message.exception_add
1609: when app_exception.application_exception then
1610: IF hr_multi_message.exception_add
1611: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.TOP_ORGANIZATION_ID'
1612: ) THEN
1613: hr_utility.set_location(' Leaving:'||l_proc, 980);
1614: raise;
1615: END IF;
1616: hr_utility.set_location(' Leaving:'||l_proc, 990);
1617:
1612: ) THEN
1613: hr_utility.set_location(' Leaving:'||l_proc, 980);
1614: raise;
1615: END IF;
1616: hr_utility.set_location(' Leaving:'||l_proc, 990);
1617:
1618: End chk_top_organization_id;
1619: --
1620: -- ----------------------------------------------------------------------------
1664: l_api_updating boolean;
1665: l_exist varchar2(1);
1666: Begin
1667:
1668: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
1669:
1670: --
1671: -- Only proceed with validation if :
1672: -- a) The current g_old_rec is current and
1696: ,p_argument_value => p_position_structure_id
1697: );
1698: END IF;
1699:
1700: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
1701:
1702: IF p_position_structure_id IS NOT null THEN
1703: --
1704: -- Checks that the position structure exists
1712: fnd_message.raise_error;
1713: END IF;
1714: END IF;
1715:
1716: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
1717:
1718: exception
1719: when app_exception.application_exception then
1720: IF hr_multi_message.exception_add
1719: when app_exception.application_exception then
1720: IF hr_multi_message.exception_add
1721: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.POSITION_STRUCTURE_ID'
1722: ) THEN
1723: hr_utility.set_location(' Leaving:'||l_proc, 980);
1724: raise;
1725: END IF;
1726: hr_utility.set_location(' Leaving:'||l_proc, 990);
1727:
1722: ) THEN
1723: hr_utility.set_location(' Leaving:'||l_proc, 980);
1724: raise;
1725: END IF;
1726: hr_utility.set_location(' Leaving:'||l_proc, 990);
1727:
1728: End chk_position_structure_id;
1729: --
1730: -- ----------------------------------------------------------------------------
1774: l_api_updating boolean;
1775: l_exist varchar2(1);
1776: Begin
1777:
1778: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
1779:
1780: --
1781: -- Only proceed with validation if :
1782: -- a) The current g_old_rec is current and
1794: THEN
1795: RETURN;
1796: END IF;
1797:
1798: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
1799:
1800: --
1801: -- Validate the parameter has been entered.
1802: --
1822: fnd_message.raise_error;
1823: END IF;
1824: END IF;
1825:
1826: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
1827:
1828: exception
1829: when app_exception.application_exception then
1830: IF hr_multi_message.exception_add
1829: when app_exception.application_exception then
1830: IF hr_multi_message.exception_add
1831: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.POS_STRUCTURE_VERSION_ID'
1832: ) THEN
1833: hr_utility.set_location(' Leaving:'||l_proc, 980);
1834: raise;
1835: END IF;
1836: hr_utility.set_location(' Leaving:'||l_proc, 990);
1837:
1832: ) THEN
1833: hr_utility.set_location(' Leaving:'||l_proc, 980);
1834: raise;
1835: END IF;
1836: hr_utility.set_location(' Leaving:'||l_proc, 990);
1837:
1838: End chk_pos_structure_version_id;
1839: --
1840: -- ----------------------------------------------------------------------------
1884: l_api_updating boolean;
1885: l_exist varchar2(1);
1886: Begin
1887:
1888: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
1889:
1890: --
1891: -- Only proceed with validation if :
1892: -- a) The current g_old_rec is current and
1904: THEN
1905: RETURN;
1906: END IF;
1907:
1908: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
1909:
1910: IF p_position_structure_id IS NOT null AND
1911: p_pos_structure_version_id IS NOT null THEN
1912: --
1921: fnd_message.raise_error;
1922: END IF;
1923: END IF;
1924:
1925: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
1926:
1927: exception
1928: when app_exception.application_exception then
1929: IF hr_multi_message.exception_add
1929: IF hr_multi_message.exception_add
1930: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.POSITION_STRUCTURE_ID'
1931: ,p_associated_column2 => 'PER_PERF_MGMT_PLANS.POS_STRUCTURE_VERSION_ID'
1932: ) THEN
1933: hr_utility.set_location(' Leaving:'||l_proc, 980);
1934: raise;
1935: END IF;
1936: hr_utility.set_location(' Leaving:'||l_proc, 990);
1937:
1932: ) THEN
1933: hr_utility.set_location(' Leaving:'||l_proc, 980);
1934: raise;
1935: END IF;
1936: hr_utility.set_location(' Leaving:'||l_proc, 990);
1937:
1938: End chk_pos_structure_version;
1939: --
1940: -- ----------------------------------------------------------------------------
1987: l_api_updating boolean;
1988: l_exist varchar2(1);
1989: Begin
1990:
1991: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
1992:
1993: --
1994: -- Only proceed with validation if :
1995: -- a) The current g_old_rec is current and
2009: THEN
2010: RETURN;
2011: END IF;
2012:
2013: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
2014:
2015: --
2016: -- Validate the parameter has been entered.
2017: --
2037: fnd_message.raise_error;
2038: END IF;
2039: END IF;
2040:
2041: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
2042:
2043: exception
2044: when app_exception.application_exception then
2045: IF hr_multi_message.exception_add
2044: when app_exception.application_exception then
2045: IF hr_multi_message.exception_add
2046: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.TOP_POSITION_ID'
2047: ) THEN
2048: hr_utility.set_location(' Leaving:'||l_proc, 980);
2049: raise;
2050: END IF;
2051: hr_utility.set_location(' Leaving:'||l_proc, 990);
2052:
2047: ) THEN
2048: hr_utility.set_location(' Leaving:'||l_proc, 980);
2049: raise;
2050: END IF;
2051: hr_utility.set_location(' Leaving:'||l_proc, 990);
2052:
2053: End chk_top_position_id;
2054: --
2055: -- ----------------------------------------------------------------------------
2089: l_api_updating boolean;
2090:
2091: Begin
2092:
2093: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
2094:
2095: --
2096: -- Only proceed with validation if :
2097: -- a) The current g_old_rec is current and
2107: THEN
2108: RETURN;
2109: END IF;
2110:
2111: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
2112:
2113: --
2114: -- Checks that the hierarchy levels is not negative number
2115: --
2117: fnd_message.set_name('PER','HR_50245_WPM_PLAN_HIER_LEVEL');
2118: fnd_message.raise_error;
2119: END IF;
2120:
2121: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
2122:
2123: exception
2124: when app_exception.application_exception then
2125: IF hr_multi_message.exception_add
2124: when app_exception.application_exception then
2125: IF hr_multi_message.exception_add
2126: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.HIERARCHY_LEVELS'
2127: ) THEN
2128: hr_utility.set_location(' Leaving:'||l_proc, 980);
2129: raise;
2130: END IF;
2131: hr_utility.set_location(' Leaving:'||l_proc, 990);
2132:
2127: ) THEN
2128: hr_utility.set_location(' Leaving:'||l_proc, 980);
2129: raise;
2130: END IF;
2131: hr_utility.set_location(' Leaving:'||l_proc, 990);
2132:
2133: End chk_hierarchy_levels;
2134: --
2135: -- ----------------------------------------------------------------------------
2171: l_api_updating boolean;
2172:
2173: Begin
2174:
2175: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
2176: --
2177: hr_api.mandatory_arg_error
2178: (p_api_name => l_proc
2179: ,p_argument => 'p_automatic_enrollment_flag'
2194: THEN
2195: RETURN;
2196: END IF;
2197:
2198: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
2199:
2200: --
2201: -- Checks that the status code is valid
2202: --
2208: fnd_message.set_name('PER','HR_50246_WPM_PLAN_AUTO_ENROL_E');
2209: fnd_message.raise_error;
2210: END IF;
2211:
2212: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
2213:
2214: exception
2215: when app_exception.application_exception then
2216: IF hr_multi_message.exception_add
2215: when app_exception.application_exception then
2216: IF hr_multi_message.exception_add
2217: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.AUTOMATIC_ENROLLMENT_FLAG'
2218: ) THEN
2219: hr_utility.set_location(' Leaving:'||l_proc, 980);
2220: raise;
2221: END IF;
2222: hr_utility.set_location(' Leaving:'||l_proc, 990);
2223:
2218: ) THEN
2219: hr_utility.set_location(' Leaving:'||l_proc, 980);
2220: raise;
2221: END IF;
2222: hr_utility.set_location(' Leaving:'||l_proc, 990);
2223:
2224: End chk_automatic_enrollment_flag;
2225: --
2226: -- ----------------------------------------------------------------------------
2262: l_api_updating boolean;
2263:
2264: Begin
2265:
2266: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
2267: --
2268: hr_api.mandatory_arg_error
2269: (p_api_name => l_proc
2270: ,p_argument => 'p_assignment_types_code'
2285: THEN
2286: RETURN;
2287: END IF;
2288:
2289: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
2290:
2291: --
2292: -- Checks that the status code is valid
2293: --
2299: fnd_message.set_name('PER','HR_50248_WPM_PLAN_ASG_TYP_CD');
2300: fnd_message.raise_error;
2301: END IF;
2302:
2303: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
2304:
2305: exception
2306: when app_exception.application_exception then
2307: IF hr_multi_message.exception_add
2306: when app_exception.application_exception then
2307: IF hr_multi_message.exception_add
2308: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.ASSIGNMENT_TYPES_CODE'
2309: ) THEN
2310: hr_utility.set_location(' Leaving:'||l_proc, 980);
2311: raise;
2312: END IF;
2313: hr_utility.set_location(' Leaving:'||l_proc, 990);
2314:
2309: ) THEN
2310: hr_utility.set_location(' Leaving:'||l_proc, 980);
2311: raise;
2312: END IF;
2313: hr_utility.set_location(' Leaving:'||l_proc, 990);
2314:
2315: End chk_assignment_types_code;
2316: --
2317: -- ----------------------------------------------------------------------------
2353: l_api_updating boolean;
2354:
2355: Begin
2356:
2357: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
2358: --
2359: hr_api.mandatory_arg_error
2360: (p_api_name => l_proc
2361: ,p_argument => 'p_primary_asg_only_flag'
2376: THEN
2377: RETURN;
2378: END IF;
2379:
2380: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
2381:
2382: --
2383: -- Checks that the status code is valid
2384: --
2390: fnd_message.set_name('PER','HR_50249_WPM_PLAN_PRI_ASG_FLG');
2391: fnd_message.raise_error;
2392: END IF;
2393:
2394: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
2395:
2396: exception
2397: when app_exception.application_exception then
2398: IF hr_multi_message.exception_add
2397: when app_exception.application_exception then
2398: IF hr_multi_message.exception_add
2399: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.PRIMARY_ASG_ONLY_FLAG'
2400: ) THEN
2401: hr_utility.set_location(' Leaving:'||l_proc, 980);
2402: raise;
2403: END IF;
2404: hr_utility.set_location(' Leaving:'||l_proc, 990);
2405:
2400: ) THEN
2401: hr_utility.set_location(' Leaving:'||l_proc, 980);
2402: raise;
2403: END IF;
2404: hr_utility.set_location(' Leaving:'||l_proc, 990);
2405:
2406: End chk_primary_asg_only_flag;
2407: --
2408: -- ----------------------------------------------------------------------------
2446: l_api_updating boolean;
2447:
2448: Begin
2449:
2450: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
2451: --
2452: hr_api.mandatory_arg_error
2453: (p_api_name => l_proc
2454: ,p_argument => 'p_primary_asg_only_flag'
2471: THEN
2472: RETURN;
2473: END IF;
2474:
2475: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
2476:
2477: --
2478: -- Checks Primary Asg only option is not selected when plan hierarchy
2479: -- is 'Supervisor Assignment'.
2484: fnd_message.set_name('PER','HR_50251_WPM_PLAN_PRI_ASG_VAL');
2485: fnd_message.raise_error;
2486: END IF;
2487:
2488: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
2489:
2490: exception
2491: when app_exception.application_exception then
2492: IF hr_multi_message.exception_add
2491: when app_exception.application_exception then
2492: IF hr_multi_message.exception_add
2493: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.PRIMARY_ASG_ONLY_FLAG'
2494: ) THEN
2495: hr_utility.set_location(' Leaving:'||l_proc, 980);
2496: raise;
2497: END IF;
2498: hr_utility.set_location(' Leaving:'||l_proc, 990);
2499:
2494: ) THEN
2495: hr_utility.set_location(' Leaving:'||l_proc, 980);
2496: raise;
2497: END IF;
2498: hr_utility.set_location(' Leaving:'||l_proc, 990);
2499:
2500: End chk_hier_type_primary_asg;
2501: --
2502: -- ----------------------------------------------------------------------------
2542: l_api_updating boolean;
2543:
2544: Begin
2545:
2546: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
2547: --
2548: hr_api.mandatory_arg_error
2549: (p_api_name => l_proc
2550: ,p_argument => 'p_include_obj_setting_flag'
2571: THEN
2572: RETURN;
2573: END IF;
2574:
2575: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
2576:
2577: --
2578: -- Checks that the status code is valid
2579: --
2585: fnd_message.set_name('PER','HR_50252_WPM_PLAN_INC_OBJ_SET');
2586: fnd_message.raise_error;
2587: END IF;
2588:
2589: IF g_debug THEN hr_utility.set_location(l_proc, 30); END IF;
2590:
2591: --
2592: -- If flag is set to 'Y' , then check floowing mandatory fields are entered
2593: --
2611: ,p_argument_value => p_notify_population_flag
2612: );
2613: END IF;
2614:
2615: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
2616:
2617: exception
2618: when app_exception.application_exception then
2619: IF hr_multi_message.exception_add
2618: when app_exception.application_exception then
2619: IF hr_multi_message.exception_add
2620: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.INCLUDE_OBJ_SETTING_FLAG'
2621: ) THEN
2622: hr_utility.set_location(' Leaving:'||l_proc, 980);
2623: raise;
2624: END IF;
2625: hr_utility.set_location(' Leaving:'||l_proc, 990);
2626:
2621: ) THEN
2622: hr_utility.set_location(' Leaving:'||l_proc, 980);
2623: raise;
2624: END IF;
2625: hr_utility.set_location(' Leaving:'||l_proc, 990);
2626:
2627: End chk_include_obj_set_flag;
2628: --
2629: -- ----------------------------------------------------------------------------
2665: l_api_updating boolean;
2666:
2667: Begin
2668:
2669: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
2670:
2671: --
2672: -- Only proceed with validation if :
2673: -- a) The current g_old_rec is current and
2685: THEN
2686: RETURN;
2687: END IF;
2688:
2689: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
2690:
2691: IF (p_obj_setting_start_date IS NOT NULL AND
2692: p_obj_setting_deadline IS NOT NULL)
2693: THEN
2699: fnd_message.raise_error;
2700: END IF;
2701: END IF;
2702:
2703: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
2704:
2705: exception
2706: when app_exception.application_exception then
2707: IF hr_multi_message.exception_add
2707: IF hr_multi_message.exception_add
2708: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.OBJ_SETTING_START_DATE'
2709: ,p_associated_column2 => 'PER_PERF_MGMT_PLANS.OBJ_SETTING_DEADLINE'
2710: ) THEN
2711: hr_utility.set_location(' Leaving:'||l_proc, 980);
2712: raise;
2713: END IF;
2714: hr_utility.set_location(' Leaving:'||l_proc, 990);
2715:
2710: ) THEN
2711: hr_utility.set_location(' Leaving:'||l_proc, 980);
2712: raise;
2713: END IF;
2714: hr_utility.set_location(' Leaving:'||l_proc, 990);
2715:
2716: End chk_obj_set_start_end;
2717: --
2718: -- ----------------------------------------------------------------------------
2756: l_sysdate date := trunc(sysdate);
2757:
2758: Begin
2759:
2760: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
2761:
2762: --
2763: -- Only proceed with validation if :
2764: -- a) The current g_old_rec is current and
2776: THEN
2777: RETURN;
2778: END IF;
2779:
2780: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
2781:
2782: IF (p_obj_setting_deadline IS NOT NULL AND
2783: p_end_date IS NOT NULL)
2784: THEN
2801: fnd_message.raise_error;
2802: END IF;
2803: END IF;
2804:
2805: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
2806:
2807: exception
2808: when app_exception.application_exception then
2809: IF hr_multi_message.exception_add
2810: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.OBJ_SETTING_DEADLINE'
2811: ,p_associated_column2 => 'PER_PERF_MGMT_PLANS.END_DATE'
2812: ,p_associated_column3 => 'PER_PERF_MGMT_PLANS.END_DATE'
2813: ) THEN
2814: hr_utility.set_location(' Leaving:'||l_proc, 980);
2815: raise;
2816: END IF;
2817: hr_utility.set_location(' Leaving:'||l_proc, 990);
2818:
2813: ) THEN
2814: hr_utility.set_location(' Leaving:'||l_proc, 980);
2815: raise;
2816: END IF;
2817: hr_utility.set_location(' Leaving:'||l_proc, 990);
2818:
2819: End chk_plan_end_obj_set_end;
2820: --
2821: -- ----------------------------------------------------------------------------
2857: l_api_updating boolean;
2858:
2859: Begin
2860:
2861: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
2862:
2863: --
2864: -- Only proceed with validation if :
2865: -- a) The current g_old_rec is current and
2877: THEN
2878: RETURN;
2879: END IF;
2880:
2881: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
2882:
2883: IF (p_obj_setting_start_date IS NOT NULL AND
2884: p_start_date IS NOT NULL)
2885: THEN
2892: fnd_message.raise_error;
2893: END IF;
2894: END IF;
2895:
2896: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
2897:
2898: exception
2899: when app_exception.application_exception then
2900: IF hr_multi_message.exception_add
2900: IF hr_multi_message.exception_add
2901: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.OBJ_SETTING_START_DATE'
2902: ,p_associated_column2 => 'PER_PERF_MGMT_PLANS.START_DATE'
2903: ) THEN
2904: hr_utility.set_location(' Leaving:'||l_proc, 980);
2905: raise;
2906: END IF;
2907: hr_utility.set_location(' Leaving:'||l_proc, 990);
2908:
2903: ) THEN
2904: hr_utility.set_location(' Leaving:'||l_proc, 980);
2905: raise;
2906: END IF;
2907: hr_utility.set_location(' Leaving:'||l_proc, 990);
2908:
2909: END chk_plan_start_obj_set_start;
2910: --
2911: -- ----------------------------------------------------------------------------
2949: l_api_updating boolean;
2950:
2951: Begin
2952:
2953: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
2954: --
2955: hr_api.mandatory_arg_error
2956: (p_api_name => l_proc
2957: ,p_argument => 'p_obj_set_outside_period_flag'
2972: THEN
2973: RETURN;
2974: END IF;
2975:
2976: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
2977:
2978: --
2979: -- Checks that the status code is valid
2980: --
2986: fnd_message.set_name('PER','HR_50255_WPM_PLAN_SET_OUT_PRD');
2987: fnd_message.raise_error;
2988: END IF;
2989:
2990: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
2991:
2992: exception
2993: when app_exception.application_exception then
2994: IF hr_multi_message.exception_add
2993: when app_exception.application_exception then
2994: IF hr_multi_message.exception_add
2995: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.OBJ_SET_OUTSIDE_PERIOD_FLAG'
2996: ) THEN
2997: hr_utility.set_location(' Leaving:'||l_proc, 980);
2998: raise;
2999: END IF;
3000: hr_utility.set_location(' Leaving:'||l_proc, 990);
3001:
2996: ) THEN
2997: hr_utility.set_location(' Leaving:'||l_proc, 980);
2998: raise;
2999: END IF;
3000: hr_utility.set_location(' Leaving:'||l_proc, 990);
3001:
3002: End chk_obj_set_outside_flag;
3003: --
3004: -- ----------------------------------------------------------------------------
3040: l_api_updating boolean;
3041:
3042: Begin
3043:
3044: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
3045: --
3046: hr_api.mandatory_arg_error
3047: (p_api_name => l_proc
3048: ,p_argument => 'p_method_code'
3063: THEN
3064: RETURN;
3065: END IF;
3066:
3067: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
3068:
3069: --
3070: -- Checks that the status code is valid
3071: --
3077: fnd_message.set_name('PER','HR_50256_WPM_PLAN_MTHD_CODE');
3078: fnd_message.raise_error;
3079: END IF;
3080:
3081: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
3082:
3083: exception
3084: when app_exception.application_exception then
3085: IF hr_multi_message.exception_add
3084: when app_exception.application_exception then
3085: IF hr_multi_message.exception_add
3086: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.METHOD_CODE'
3087: ) THEN
3088: hr_utility.set_location(' Leaving:'||l_proc, 980);
3089: raise;
3090: END IF;
3091: hr_utility.set_location(' Leaving:'||l_proc, 990);
3092:
3087: ) THEN
3088: hr_utility.set_location(' Leaving:'||l_proc, 980);
3089: raise;
3090: END IF;
3091: hr_utility.set_location(' Leaving:'||l_proc, 990);
3092:
3093: End chk_method_code;
3094: --
3095: -- ----------------------------------------------------------------------------
3131: l_api_updating boolean;
3132:
3133: Begin
3134:
3135: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
3136: --
3137: hr_api.mandatory_arg_error
3138: (p_api_name => l_proc
3139: ,p_argument => 'p_notify_population_flag'
3154: THEN
3155: RETURN;
3156: END IF;
3157:
3158: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
3159:
3160: --
3161: -- Checks that the status code is valid
3162: --
3168: fnd_message.set_name('PER','HR_50415_WPM_PMP_NOTIFY_FLAG');
3169: fnd_message.raise_error;
3170: END IF;
3171:
3172: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
3173:
3174: exception
3175: when app_exception.application_exception then
3176: IF hr_multi_message.exception_add
3175: when app_exception.application_exception then
3176: IF hr_multi_message.exception_add
3177: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.NOTIFY_POPULATION_FLAG'
3178: ) THEN
3179: hr_utility.set_location(' Leaving:'||l_proc, 980);
3180: raise;
3181: END IF;
3182: hr_utility.set_location(' Leaving:'||l_proc, 990);
3183:
3178: ) THEN
3179: hr_utility.set_location(' Leaving:'||l_proc, 980);
3180: raise;
3181: END IF;
3182: hr_utility.set_location(' Leaving:'||l_proc, 990);
3183:
3184: End chk_notify_population_flag;
3185: --
3186: -- ----------------------------------------------------------------------------
3222: l_api_updating boolean;
3223:
3224: Begin
3225:
3226: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
3227: --
3228: hr_api.mandatory_arg_error
3229: (p_api_name => l_proc
3230: ,p_argument => 'p_automatic_allocation_flag'
3245: THEN
3246: RETURN;
3247: END IF;
3248:
3249: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
3250:
3251: --
3252: -- Checks that the status code is valid
3253: --
3259: fnd_message.set_name('PER','HR_50257_WPM_PLAN_ALLOC_FLG');
3260: fnd_message.raise_error;
3261: END IF;
3262:
3263: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
3264:
3265: exception
3266: when app_exception.application_exception then
3267: IF hr_multi_message.exception_add
3266: when app_exception.application_exception then
3267: IF hr_multi_message.exception_add
3268: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.AUTOMATIC_ALLOCATION_FLAG'
3269: ) THEN
3270: hr_utility.set_location(' Leaving:'||l_proc, 980);
3271: raise;
3272: END IF;
3273: hr_utility.set_location(' Leaving:'||l_proc, 990);
3274:
3269: ) THEN
3270: hr_utility.set_location(' Leaving:'||l_proc, 980);
3271: raise;
3272: END IF;
3273: hr_utility.set_location(' Leaving:'||l_proc, 990);
3274:
3275: End chk_automatic_allocation_flag;
3276: --
3277: -- ----------------------------------------------------------------------------
3313: l_api_updating boolean;
3314:
3315: Begin
3316:
3317: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
3318: --
3319: hr_api.mandatory_arg_error
3320: (p_api_name => l_proc
3321: ,p_argument => 'p_copy_past_objectives_flag'
3336: THEN
3337: RETURN;
3338: END IF;
3339:
3340: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
3341:
3342: --
3343: -- Checks that the status code is valid
3344: --
3350: fnd_message.set_name('PER','HR_123456_X');
3351: fnd_message.raise_error;
3352: END IF;
3353:
3354: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
3355:
3356: exception
3357: when app_exception.application_exception then
3358: IF hr_multi_message.exception_add
3357: when app_exception.application_exception then
3358: IF hr_multi_message.exception_add
3359: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.COPY_PAST_OBJECTIVES_FLAG'
3360: ) THEN
3361: hr_utility.set_location(' Leaving:'||l_proc, 980);
3362: raise;
3363: END IF;
3364: hr_utility.set_location(' Leaving:'||l_proc, 990);
3365:
3360: ) THEN
3361: hr_utility.set_location(' Leaving:'||l_proc, 980);
3362: raise;
3363: END IF;
3364: hr_utility.set_location(' Leaving:'||l_proc, 990);
3365:
3366: End chk_copy_past_objectives_flag;
3367: --
3368: -- ----------------------------------------------------------------------------
3404: l_api_updating boolean;
3405:
3406: Begin
3407:
3408: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
3409: --
3410: hr_api.mandatory_arg_error
3411: (p_api_name => l_proc
3412: ,p_argument => 'p_sharing_alignment_task_flag'
3427: THEN
3428: RETURN;
3429: END IF;
3430:
3431: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
3432:
3433: --
3434: -- Checks that the status code is valid
3435: --
3441: fnd_message.set_name('PER','HR_50258_WPM_PLAN_SHR_ALN_FLG');
3442: fnd_message.raise_error;
3443: END IF;
3444:
3445: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
3446:
3447: exception
3448: when app_exception.application_exception then
3449: IF hr_multi_message.exception_add
3448: when app_exception.application_exception then
3449: IF hr_multi_message.exception_add
3450: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.SHARING_ALIGNMENT_TASK_FLAG'
3451: ) THEN
3452: hr_utility.set_location(' Leaving:'||l_proc, 980);
3453: raise;
3454: END IF;
3455: hr_utility.set_location(' Leaving:'||l_proc, 990);
3456:
3451: ) THEN
3452: hr_utility.set_location(' Leaving:'||l_proc, 980);
3453: raise;
3454: END IF;
3455: hr_utility.set_location(' Leaving:'||l_proc, 990);
3456:
3457: End chk_sharing_alignment_flag;
3458: --
3459: -- ----------------------------------------------------------------------------
3495: l_api_updating boolean;
3496:
3497: Begin
3498:
3499: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
3500: --
3501: hr_api.mandatory_arg_error
3502: (p_api_name => l_proc
3503: ,p_argument => 'p_include_appraisals_flag'
3518: THEN
3519: RETURN;
3520: END IF;
3521:
3522: IF g_debug THEN hr_utility.set_location(l_proc, 20); END IF;
3523:
3524: --
3525: -- Checks that the status code is valid
3526: --
3532: fnd_message.set_name('PER','HR_50259_WPM_PLAN_INC_APRSL');
3533: fnd_message.raise_error;
3534: END IF;
3535:
3536: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
3537:
3538: exception
3539: when app_exception.application_exception then
3540: IF hr_multi_message.exception_add
3539: when app_exception.application_exception then
3540: IF hr_multi_message.exception_add
3541: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.INCLUDE_APPRAISALS_FLAG'
3542: ) THEN
3543: hr_utility.set_location(' Leaving:'||l_proc, 980);
3544: raise;
3545: END IF;
3546: hr_utility.set_location(' Leaving:'||l_proc, 990);
3547:
3542: ) THEN
3543: hr_utility.set_location(' Leaving:'||l_proc, 980);
3544: raise;
3545: END IF;
3546: hr_utility.set_location(' Leaving:'||l_proc, 990);
3547:
3548: End chk_include_appraisals_flag;
3549: --
3550: -- ----------------------------------------------------------------------------
3587: l_api_updating boolean;
3588:
3589: Begin
3590:
3591: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
3592:
3593: --
3594: IF (p_status_code = 'PUBLISHED' AND
3595: p_effective_date > p_end_date)
3597: fnd_message.set_name('PER','HR_50261_WPM_PLAN_UPD_ACTIVE');
3598: fnd_message.raise_error;
3599: END IF;
3600:
3601: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
3602:
3603: exception
3604: when app_exception.application_exception then
3605: IF hr_multi_message.exception_add
3606: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.START_DATE'
3607: ,p_associated_column2 => 'PER_PERF_MGMT_PLANS.END_DATE'
3608: ,p_associated_column3 => 'PER_PERF_MGMT_PLANS.STATUS_CODE'
3609: ) THEN
3610: hr_utility.set_location(' Leaving:'||l_proc, 980);
3611: raise;
3612: END IF;
3613: hr_utility.set_location(' Leaving:'||l_proc, 990);
3614:
3609: ) THEN
3610: hr_utility.set_location(' Leaving:'||l_proc, 980);
3611: raise;
3612: END IF;
3613: hr_utility.set_location(' Leaving:'||l_proc, 990);
3614:
3615: End chk_plan_still_active;
3616: --
3617: -- ----------------------------------------------------------------------------
3649: l_api_updating boolean;
3650:
3651: Begin
3652:
3653: IF g_debug THEN hr_utility.set_location('Entering:'|| l_proc, 10); END IF;
3654:
3655: --
3656: -- Checks that the status code is 'DRAFT'
3657: --
3659: fnd_message.set_name('PER','HR_50262_WPM_PLAN_DEL_DRAFT');
3660: fnd_message.raise_error;
3661: END IF;
3662:
3663: IF g_debug THEN hr_utility.set_location('Leaving:'|| l_proc, 970); END IF;
3664:
3665: exception
3666: when app_exception.application_exception then
3667: IF hr_multi_message.exception_add
3666: when app_exception.application_exception then
3667: IF hr_multi_message.exception_add
3668: (p_associated_column1 => 'PER_PERF_MGMT_PLANS.STATUS_CODE'
3669: ) THEN
3670: hr_utility.set_location(' Leaving:'||l_proc, 980);
3671: raise;
3672: END IF;
3673: hr_utility.set_location(' Leaving:'||l_proc, 990);
3674:
3669: ) THEN
3670: hr_utility.set_location(' Leaving:'||l_proc, 980);
3671: raise;
3672: END IF;
3673: hr_utility.set_location(' Leaving:'||l_proc, 990);
3674:
3675: End chk_plan_is_draft;
3676: --
3677: -- ----------------------------------------------------------------------------
3686: --
3687: l_proc varchar2(72) := g_package||'insert_validate';
3688: --
3689: Begin
3690: hr_utility.set_location('Entering:'||l_proc, 5);
3691: --
3692: -- Call all supporting business operations
3693: --
3694: -- No business group context. HR_STANDARD_LOOKUPS used for validation.
3707: ,p_end_date => p_rec.end_date
3708: ,p_duplicate_name_warning => p_duplicate_name_warning
3709: );
3710:
3711: hr_utility.set_location('Entering:'||l_proc, 10);
3712:
3713: --
3714: -- Check the validity of administrator id
3715: --
3730: ,p_end_date => p_rec.end_date
3731: ,p_status_code => p_rec.status_code
3732: );
3733:
3734: hr_utility.set_location('Entering:'||l_proc, 15);
3735:
3736: --
3737: -- Check the validity of status code
3738: --
3742: ,p_effective_date => p_effective_date
3743: ,p_status_code => p_rec.status_code
3744: );
3745:
3746: hr_utility.set_location('Entering:'||l_proc, 20);
3747:
3748: --
3749: -- Check the validity of plan hierarchy type
3750: --
3754: ,p_effective_date => p_effective_date
3755: ,p_hierarchy_type_code => p_rec.hierarchy_type_code
3756: );
3757:
3758: hr_utility.set_location('Entering:'||l_proc, 25);
3759:
3760: --
3761: -- Check the validity of supervisor id
3762: --
3767: ,p_hierarchy_type_code => p_rec.hierarchy_type_code
3768: ,p_supervisor_id => p_rec.supervisor_id
3769: );
3770:
3771: hr_utility.set_location('Entering:'||l_proc, 30);
3772:
3773: --
3774: -- Check the validity of supervisor assignment id
3775: --
3780: ,p_hierarchy_type_code => p_rec.hierarchy_type_code
3781: ,p_supervisor_assignment_id => p_rec.supervisor_assignment_id
3782: );
3783:
3784: hr_utility.set_location('Entering:'||l_proc, 35);
3785:
3786: --
3787: -- Check the validity of organization structure id
3788: --
3792: ,p_hierarchy_type_code => p_rec.hierarchy_type_code
3793: ,p_organization_structure_id => p_rec.organization_structure_id
3794: );
3795:
3796: hr_utility.set_location('Entering:'||l_proc, 40);
3797:
3798: --
3799: -- Check the validity of organization structure version id
3800: --
3804: ,p_hierarchy_type_code => p_rec.hierarchy_type_code
3805: ,p_org_structure_version_id => p_rec.org_structure_version_id
3806: );
3807:
3808: hr_utility.set_location('Entering:'||l_proc, 45);
3809:
3810: --
3811: -- Check the validity of version for organization structure
3812: --
3816: ,p_organization_structure_id => p_rec.organization_structure_id
3817: ,p_org_structure_version_id => p_rec.org_structure_version_id
3818: );
3819:
3820: hr_utility.set_location('Entering:'||l_proc, 50);
3821:
3822: --
3823: -- Check the validity of top organization id
3824: --
3829: ,p_org_structure_version_id => p_rec.org_structure_version_id
3830: ,p_top_organization_id => p_rec.top_organization_id
3831: );
3832:
3833: hr_utility.set_location('Entering:'||l_proc, 55);
3834:
3835: --
3836: -- Check the validity of position structure id
3837: --
3841: ,p_hierarchy_type_code => p_rec.hierarchy_type_code
3842: ,p_position_structure_id => p_rec.position_structure_id
3843: );
3844:
3845: hr_utility.set_location('Entering:'||l_proc, 60);
3846:
3847: --
3848: -- Check the validity of position structure version id
3849: --
3853: ,p_hierarchy_type_code => p_rec.hierarchy_type_code
3854: ,p_pos_structure_version_id => p_rec.pos_structure_version_id
3855: );
3856:
3857: hr_utility.set_location('Entering:'||l_proc, 65);
3858:
3859: --
3860: -- Check the validity of version for position structure
3861: --
3865: ,p_position_structure_id => p_rec.position_structure_id
3866: ,p_pos_structure_version_id => p_rec.pos_structure_version_id
3867: );
3868:
3869: hr_utility.set_location('Entering:'||l_proc, 70);
3870:
3871: --
3872: -- Check the validity of top position id
3873: --
3878: ,p_pos_structure_version_id => p_rec.pos_structure_version_id
3879: ,p_top_position_id => p_rec.top_position_id
3880: );
3881:
3882: hr_utility.set_location('Entering:'||l_proc, 75);
3883:
3884: --
3885: -- Check the validity of hierarchy level
3886: --
3889: ,p_object_version_number => p_rec.object_version_number
3890: ,p_hierarchy_levels => p_rec.hierarchy_levels
3891: );
3892:
3893: hr_utility.set_location('Entering:'||l_proc, 80);
3894:
3895: --
3896: -- Check the validity of automatic enrollment flag
3897: --
3901: ,p_effective_date => p_effective_date
3902: ,p_automatic_enrollment_flag => p_rec.automatic_enrollment_flag
3903: );
3904:
3905: hr_utility.set_location('Entering:'||l_proc, 85);
3906:
3907: --
3908: -- Check the validity of assignment types code
3909: --
3914: ,p_assignment_types_code => p_rec.assignment_types_code
3915: );
3916:
3917:
3918: hr_utility.set_location('Entering:'||l_proc, 90);
3919:
3920: --
3921: -- Check the validity of primary assignment only flag
3922: --
3926: ,p_effective_date => p_effective_date
3927: ,p_primary_asg_only_flag => p_rec.primary_asg_only_flag
3928: );
3929:
3930: hr_utility.set_location('Entering:'||l_proc, 95);
3931:
3932: --
3933: -- Check the validity of primary assignment only flag with plan hierarchy
3934: --
3938: ,p_hierarchy_type_code => p_rec.hierarchy_type_code
3939: ,p_primary_asg_only_flag => p_rec.primary_asg_only_flag
3940: );
3941:
3942: hr_utility.set_location('Entering:'||l_proc, 100);
3943:
3944: --
3945: -- Check the validity of include objective setting flag
3946: --
3953: ,p_method_code => p_rec.method_code
3954: ,p_notify_population_flag => p_rec.notify_population_flag
3955: );
3956:
3957: hr_utility.set_location('Entering:'||l_proc, 95);
3958:
3959: --
3960: -- Check the validity of objective setting dates
3961: --
3965: ,p_obj_setting_start_date => p_rec.obj_setting_start_date
3966: ,p_obj_setting_deadline => p_rec.obj_setting_deadline
3967: );
3968:
3969: hr_utility.set_location('Entering:'||l_proc, 105);
3970:
3971: --
3972: -- Check the validity of objective setting deadline with plan end date
3973: --
3978: ,p_end_date => p_rec.end_date
3979: ,p_status => 'INSERT'
3980: );
3981:
3982: hr_utility.set_location('Entering:'||l_proc, 110);
3983:
3984: --
3985: -- Check the validity of objective setting outside period flag
3986: --
3990: ,p_effective_date => p_effective_date
3991: ,p_obj_set_outside_period_flag => p_rec.obj_set_outside_period_flag
3992: );
3993:
3994: hr_utility.set_location('Entering:'||l_proc, 115);
3995:
3996: --
3997: -- Check the validity of method code
3998: --
4002: ,p_effective_date => p_effective_date
4003: ,p_method_code => p_rec.method_code
4004: );
4005:
4006: hr_utility.set_location('Entering:'||l_proc, 120);
4007:
4008: --
4009: -- Check the validity of notify population flag
4010: --
4014: ,p_effective_date => p_effective_date
4015: ,p_notify_population_flag => p_rec.notify_population_flag
4016: );
4017:
4018: hr_utility.set_location('Entering:'||l_proc, 123);
4019:
4020: --
4021: -- Check the validity of automatic allocation flag
4022: --
4026: ,p_effective_date => p_effective_date
4027: ,p_automatic_allocation_flag => p_rec.automatic_allocation_flag
4028: );
4029:
4030: hr_utility.set_location('Entering:'||l_proc, 125);
4031:
4032: --
4033: -- Check the validity of sharing assignment task flag
4034: --
4038: ,p_effective_date => p_effective_date
4039: ,p_sharing_alignment_task_flag => p_rec.sharing_alignment_task_flag
4040: );
4041:
4042: hr_utility.set_location('Entering:'||l_proc, 130);
4043:
4044: --
4045: -- Check the validity of include appraisals flag
4046: --
4050: ,p_effective_date => p_effective_date
4051: ,p_include_appraisals_flag => p_rec.include_appraisals_flag
4052: );
4053:
4054: hr_utility.set_location('Entering:'||l_proc, 135);
4055:
4056: --
4057: -- Check that the previous plan does not overlap with the new plan
4058: --
4063: ,p_start_date => p_rec.start_date
4064: ,p_previous_plan_id => p_rec.previous_plan_id
4065: );
4066:
4067: hr_utility.set_location('Entering:'||l_proc, 140);
4068: --
4069: -- Check the validity of objective setting start date with plan start date
4070: --
4071: chk_plan_start_obj_set_start
4074: ,p_obj_setting_start_date => p_rec.obj_setting_start_date
4075: ,p_start_date => p_rec.start_date
4076: );
4077:
4078: hr_utility.set_location('Entering:'||l_proc, 145);
4079:
4080: --
4081: -- Check the flexfield.
4082: --
4081: -- Check the flexfield.
4082: --
4083: per_pmp_bus.chk_df(p_rec);
4084: --
4085: hr_utility.set_location(' Leaving:'||l_proc, 200);
4086: End insert_validate;
4087: --
4088: -- ----------------------------------------------------------------------------
4089: -- |---------------------------< update_validate >----------------------------|
4097: --
4098: l_proc varchar2(72) := g_package||'update_validate';
4099: --
4100: Begin
4101: hr_utility.set_location('Entering:'||l_proc, 5);
4102: --
4103: -- Call all supporting business operations
4104: --
4105: -- No business group context. HR_STANDARD_LOOKUPS used for validation.
4124: ,p_end_date => p_rec.end_date
4125: ,p_duplicate_name_warning => p_duplicate_name_warning
4126: );
4127:
4128: hr_utility.set_location('Entering:'||l_proc, 10);
4129:
4130: --
4131: -- Check the validity of administrator id
4132: --
4147: ,p_end_date => p_rec.end_date
4148: ,p_status_code => p_rec.status_code
4149: );
4150:
4151: hr_utility.set_location('Entering:'||l_proc, 15);
4152:
4153: --
4154: -- Check the validity of status code
4155: --
4159: ,p_effective_date => p_effective_date
4160: ,p_status_code => p_rec.status_code
4161: );
4162:
4163: hr_utility.set_location('Entering:'||l_proc, 20);
4164:
4165: --
4166: -- Check the validity of plan hierarchy type
4167: --
4171: ,p_effective_date => p_effective_date
4172: ,p_hierarchy_type_code => p_rec.hierarchy_type_code
4173: );
4174:
4175: hr_utility.set_location('Entering:'||l_proc, 25);
4176:
4177: --
4178: -- Check the validity of supervisor id
4179: --
4184: ,p_hierarchy_type_code => p_rec.hierarchy_type_code
4185: ,p_supervisor_id => p_rec.supervisor_id
4186: );
4187:
4188: hr_utility.set_location('Entering:'||l_proc, 30);
4189:
4190: --
4191: -- Check the validity of supervisor assignment id
4192: --
4197: ,p_hierarchy_type_code => p_rec.hierarchy_type_code
4198: ,p_supervisor_assignment_id => p_rec.supervisor_assignment_id
4199: );
4200:
4201: hr_utility.set_location('Entering:'||l_proc, 35);
4202:
4203: --
4204: -- Check the validity of organization structure id
4205: --
4209: ,p_hierarchy_type_code => p_rec.hierarchy_type_code
4210: ,p_organization_structure_id => p_rec.organization_structure_id
4211: );
4212:
4213: hr_utility.set_location('Entering:'||l_proc, 40);
4214:
4215: --
4216: -- Check the validity of organization structure version id
4217: --
4221: ,p_hierarchy_type_code => p_rec.hierarchy_type_code
4222: ,p_org_structure_version_id => p_rec.org_structure_version_id
4223: );
4224:
4225: hr_utility.set_location('Entering:'||l_proc, 45);
4226:
4227: --
4228: -- Check the validity of version for organization structure
4229: --
4233: ,p_organization_structure_id => p_rec.organization_structure_id
4234: ,p_org_structure_version_id => p_rec.org_structure_version_id
4235: );
4236:
4237: hr_utility.set_location('Entering:'||l_proc, 50);
4238:
4239: --
4240: -- Check the validity of top organization id
4241: --
4246: ,p_top_organization_id => p_rec.top_organization_id
4247: ,p_org_structure_version_id => p_rec.org_structure_version_id
4248: );
4249:
4250: hr_utility.set_location('Entering:'||l_proc, 55);
4251:
4252: --
4253: -- Check the validity of position structure id
4254: --
4258: ,p_hierarchy_type_code => p_rec.hierarchy_type_code
4259: ,p_position_structure_id => p_rec.position_structure_id
4260: );
4261:
4262: hr_utility.set_location('Entering:'||l_proc, 60);
4263:
4264: --
4265: -- Check the validity of position structure version id
4266: --
4270: ,p_hierarchy_type_code => p_rec.hierarchy_type_code
4271: ,p_pos_structure_version_id => p_rec.pos_structure_version_id
4272: );
4273:
4274: hr_utility.set_location('Entering:'||l_proc, 65);
4275:
4276: --
4277: -- Check the validity of version for position structure
4278: --
4282: ,p_position_structure_id => p_rec.position_structure_id
4283: ,p_pos_structure_version_id => p_rec.pos_structure_version_id
4284: );
4285:
4286: hr_utility.set_location('Entering:'||l_proc, 70);
4287:
4288: --
4289: -- Check the validity of top position id
4290: --
4295: ,p_pos_structure_version_id => p_rec.pos_structure_version_id
4296: ,p_top_position_id => p_rec.top_position_id
4297: );
4298:
4299: hr_utility.set_location('Entering:'||l_proc, 75);
4300:
4301: --
4302: -- Check the validity of hierarchy level
4303: --
4306: ,p_object_version_number => p_rec.object_version_number
4307: ,p_hierarchy_levels => p_rec.hierarchy_levels
4308: );
4309:
4310: hr_utility.set_location('Entering:'||l_proc, 80);
4311:
4312: --
4313: -- Check the validity of automatic enrollment flag
4314: --
4318: ,p_effective_date => p_effective_date
4319: ,p_automatic_enrollment_flag => p_rec.automatic_enrollment_flag
4320: );
4321:
4322: hr_utility.set_location('Entering:'||l_proc, 85);
4323:
4324: --
4325: -- Check the validity of assignment types code
4326: --
4331: ,p_assignment_types_code => p_rec.assignment_types_code
4332: );
4333:
4334:
4335: hr_utility.set_location('Entering:'||l_proc, 90);
4336:
4337: --
4338: -- Check the validity of primary assignment only flag
4339: --
4343: ,p_effective_date => p_effective_date
4344: ,p_primary_asg_only_flag => p_rec.primary_asg_only_flag
4345: );
4346:
4347: hr_utility.set_location('Entering:'||l_proc, 95);
4348:
4349: --
4350: -- Check the validity of primary assignment only flag with plan hierarchy
4351: --
4355: ,p_hierarchy_type_code => p_rec.hierarchy_type_code
4356: ,p_primary_asg_only_flag => p_rec.primary_asg_only_flag
4357: );
4358:
4359: hr_utility.set_location('Entering:'||l_proc, 100);
4360:
4361: --
4362: -- Check the validity of include objective setting flag
4363: --
4370: ,p_method_code => p_rec.method_code
4371: ,p_notify_population_flag => p_rec.notify_population_flag
4372: );
4373:
4374: hr_utility.set_location('Entering:'||l_proc, 105);
4375:
4376: --
4377: -- Check the validity of objective setting dates
4378: --
4382: ,p_obj_setting_start_date => p_rec.obj_setting_start_date
4383: ,p_obj_setting_deadline => p_rec.obj_setting_deadline
4384: );
4385:
4386: hr_utility.set_location('Entering:'||l_proc, 110);
4387:
4388: --
4389: -- Check the validity of objective setting deadline with plan end date
4390: --
4395: ,p_end_date => p_rec.end_date
4396: ,p_status => 'UPDATE'
4397: );
4398:
4399: hr_utility.set_location('Entering:'||l_proc, 115);
4400:
4401: --
4402: -- Check the validity of objective setting outside period flag
4403: --
4407: ,p_effective_date => p_effective_date
4408: ,p_obj_set_outside_period_flag => p_rec.obj_set_outside_period_flag
4409: );
4410:
4411: hr_utility.set_location('Entering:'||l_proc, 120);
4412:
4413: --
4414: -- Check the validity of method code
4415: --
4419: ,p_effective_date => p_effective_date
4420: ,p_method_code => p_rec.method_code
4421: );
4422:
4423: hr_utility.set_location('Entering:'||l_proc, 125);
4424:
4425: --
4426: -- Check the validity of notify population flag
4427: --
4431: ,p_effective_date => p_effective_date
4432: ,p_notify_population_flag => p_rec.notify_population_flag
4433: );
4434:
4435: hr_utility.set_location('Entering:'||l_proc, 127);
4436:
4437: --
4438: -- Check the validity of automatic allocation flag
4439: --
4443: ,p_effective_date => p_effective_date
4444: ,p_automatic_allocation_flag => p_rec.automatic_allocation_flag
4445: );
4446:
4447: hr_utility.set_location('Entering:'||l_proc, 130);
4448:
4449: --
4450: -- Check the validity of sharing assignment task flag
4451: --
4455: ,p_effective_date => p_effective_date
4456: ,p_sharing_alignment_task_flag => p_rec.sharing_alignment_task_flag
4457: );
4458:
4459: hr_utility.set_location('Entering:'||l_proc, 135);
4460:
4461: --
4462: -- Check the validity of include appraisals flag
4463: --
4467: ,p_effective_date => p_effective_date
4468: ,p_include_appraisals_flag => p_rec.include_appraisals_flag
4469: );
4470:
4471: hr_utility.set_location('Entering:'||l_proc, 140);
4472: --
4473: -- Check the published plan validity on effective date
4474: --
4475: chk_plan_still_active
4478: ,p_start_date => p_rec.start_date
4479: ,p_end_date => p_rec.end_date
4480: );
4481:
4482: hr_utility.set_location('Entering:'||l_proc, 145);
4483:
4484: --
4485: -- Check that the previous plan does not overlap with the new plan
4486: --
4491: ,p_start_date => p_rec.start_date
4492: ,p_previous_plan_id => p_rec.previous_plan_id
4493: );
4494:
4495: hr_utility.set_location('Entering:'||l_proc, 150);
4496:
4497: --
4498: -- Check the validity of objective setting start date with plan start date
4499: --
4503: ,p_obj_setting_start_date => p_rec.obj_setting_start_date
4504: ,p_start_date => p_rec.start_date
4505: );
4506:
4507: hr_utility.set_location('Entering:'||l_proc, 155);
4508:
4509: --
4510: -- Check the flexfield.
4511: --
4510: -- Check the flexfield.
4511: --
4512: per_pmp_bus.chk_df(p_rec);
4513: --
4514: hr_utility.set_location(' Leaving:'||l_proc, 200);
4515: End update_validate;
4516: --
4517: -- ----------------------------------------------------------------------------
4518: -- |---------------------------< delete_validate >----------------------------|
4523: --
4524: l_proc varchar2(72) := g_package||'delete_validate';
4525: --
4526: Begin
4527: hr_utility.set_location('Entering:'||l_proc, 5);
4528: --
4529: -- Call all supporting business operations
4530: --
4531: --
4533: --
4534: chk_plan_is_draft
4535: (p_status_code => p_rec.status_code
4536: );
4537: hr_utility.set_location(' Leaving:'||l_proc, 10);
4538: End delete_validate;
4539: --
4540: end per_pmp_bus;