55: close csr_sec_grp;
56: --
57: -- The primary key is invalid therefore we must error
58: --
59: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
60: fnd_message.raise_error;
61: --
62: end if;
63: close csr_sec_grp;
56: --
57: -- The primary key is invalid therefore we must error
58: --
59: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
60: fnd_message.raise_error;
61: --
62: end if;
63: close csr_sec_grp;
64: --
128: --
129: -- The primary key is invalid therefore we must error
130: --
131: close csr_leg_code;
132: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
133: fnd_message.raise_error;
134: end if;
135: hr_utility.set_location(l_proc,30);
136: --
129: -- The primary key is invalid therefore we must error
130: --
131: close csr_leg_code;
132: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
133: fnd_message.raise_error;
134: end if;
135: hr_utility.set_location(l_proc,30);
136: --
137: -- Set the global variables so the values are
549: IF NOT per_pgv_shd.api_updating
550: (p_hierarchy_version_id => p_rec.hierarchy_version_id
551: ,p_object_version_number => p_rec.object_version_number
552: ) THEN
553: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
554: fnd_message.set_token('PROCEDURE ', l_proc);
555: fnd_message.set_token('STEP ', '5');
556: fnd_message.raise_error;
557: END IF;
550: (p_hierarchy_version_id => p_rec.hierarchy_version_id
551: ,p_object_version_number => p_rec.object_version_number
552: ) THEN
553: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
554: fnd_message.set_token('PROCEDURE ', l_proc);
555: fnd_message.set_token('STEP ', '5');
556: fnd_message.raise_error;
557: END IF;
558: --
551: ,p_object_version_number => p_rec.object_version_number
552: ) THEN
553: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
554: fnd_message.set_token('PROCEDURE ', l_proc);
555: fnd_message.set_token('STEP ', '5');
556: fnd_message.raise_error;
557: END IF;
558: --
559: -- EDIT_HERE: Add checks to ensure non-updateable args have
552: ) THEN
553: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
554: fnd_message.set_token('PROCEDURE ', l_proc);
555: fnd_message.set_token('STEP ', '5');
556: fnd_message.raise_error;
557: END IF;
558: --
559: -- EDIT_HERE: Add checks to ensure non-updateable args have
560: -- not been updated
649: --
650: hr_utility.set_location(l_proc, 20);
651: --
652: IF csr_hierarchy_id%notfound THEN
653: fnd_message.set_name('PER', 'HR_289071_PGV_HIER_NOT_EXIST');
654: fnd_message.raise_error;
655: CLOSE csr_hierarchy_id;
656: ELSE
657: CLOSE csr_hierarchy_id;
650: hr_utility.set_location(l_proc, 20);
651: --
652: IF csr_hierarchy_id%notfound THEN
653: fnd_message.set_name('PER', 'HR_289071_PGV_HIER_NOT_EXIST');
654: fnd_message.raise_error;
655: CLOSE csr_hierarchy_id;
656: ELSE
657: CLOSE csr_hierarchy_id;
658: END IF;
736: If csr_version_exists%found and l_multiple_versions = 'N'
737: then
738: hr_utility.set_location(l_proc, 30);
739: Close csr_version_exists;
740: fnd_message.set_name('PER','HR_449061_PGV_MULTIPLE_VERSION');
741: fnd_message.raise_error;
742: else
743: Close csr_version_exists;
744: End if;
737: then
738: hr_utility.set_location(l_proc, 30);
739: Close csr_version_exists;
740: fnd_message.set_name('PER','HR_449061_PGV_MULTIPLE_VERSION');
741: fnd_message.raise_error;
742: else
743: Close csr_version_exists;
744: End if;
745: --
809: --
810: hr_utility.set_location(l_proc, 50);
811: --
812: if p_version_number < 0 then
813: fnd_message.set_name('PER', 'HR_289078_PGV_VERSION_IS_NEG');
814: fnd_message.raise_error;
815: end if;
816: --
817: end if;
810: hr_utility.set_location(l_proc, 50);
811: --
812: if p_version_number < 0 then
813: fnd_message.set_name('PER', 'HR_289078_PGV_VERSION_IS_NEG');
814: fnd_message.raise_error;
815: end if;
816: --
817: end if;
818: --
888: FETCH csr_dup_version INTO l_exists;
889: --
890: if csr_dup_version%FOUND then
891: CLOSE csr_dup_version;
892: fnd_message.set_name('PER', 'HR_449051_PGV_VERSION_DUP');
893: fnd_message.raise_error;
894: else
895: CLOSE csr_dup_version;
896: end if;
889: --
890: if csr_dup_version%FOUND then
891: CLOSE csr_dup_version;
892: fnd_message.set_name('PER', 'HR_449051_PGV_VERSION_DUP');
893: fnd_message.raise_error;
894: else
895: CLOSE csr_dup_version;
896: end if;
897: --
1004: OPEN csr_date_between;
1005: FETCH csr_date_between INTO l_date_between;
1006: IF csr_date_between%notfound THEN
1007: CLOSE csr_date_between;
1008: fnd_message.set_name('PER', 'HR_289072_PGV_INV_DATE_FROM');
1009: fnd_message.raise_error;
1010: END IF;
1011: CLOSE csr_date_between;
1012: end if;
1005: FETCH csr_date_between INTO l_date_between;
1006: IF csr_date_between%notfound THEN
1007: CLOSE csr_date_between;
1008: fnd_message.set_name('PER', 'HR_289072_PGV_INV_DATE_FROM');
1009: fnd_message.raise_error;
1010: END IF;
1011: CLOSE csr_date_between;
1012: end if;
1013: --
1014: -- Check if the DATE_FROM is before DATE_TO
1015: --
1016: hr_utility.set_location(l_proc, 70);
1017: if not p_date_from <= nvl(p_date_to,p_date_from) then
1018: fnd_message.set_name('PER', 'HR_289073_PGV_DATE_FROM_BEFORE');
1019: fnd_message.raise_error;
1020: end if;
1021: --
1022: -- Check if the DATE_FROM is not after the DATE_FROM of an existing version that is open ended
1015: --
1016: hr_utility.set_location(l_proc, 70);
1017: if not p_date_from <= nvl(p_date_to,p_date_from) then
1018: fnd_message.set_name('PER', 'HR_289073_PGV_DATE_FROM_BEFORE');
1019: fnd_message.raise_error;
1020: end if;
1021: --
1022: -- Check if the DATE_FROM is not after the DATE_FROM of an existing version that is open ended
1023: --
1027: OPEN csr_other_open_ended_vers;
1028: FETCH csr_other_open_ended_vers INTO l_date_between;
1029: IF csr_other_open_ended_vers%found THEN
1030: CLOSE csr_other_open_ended_vers;
1031: fnd_message.set_name('PER', 'HR_449052_PGV_OPEN_END_OVERLAP');
1032: fnd_message.raise_error;
1033: END IF;
1034: CLOSE csr_other_open_ended_vers;
1035: --
1028: FETCH csr_other_open_ended_vers INTO l_date_between;
1029: IF csr_other_open_ended_vers%found THEN
1030: CLOSE csr_other_open_ended_vers;
1031: fnd_message.set_name('PER', 'HR_449052_PGV_OPEN_END_OVERLAP');
1032: fnd_message.raise_error;
1033: END IF;
1034: CLOSE csr_other_open_ended_vers;
1035: --
1036: -- Check if the DATE_FROM is not overlaped by dates of another version.
1040: OPEN csr_other_vers;
1041: FETCH csr_other_vers INTO l_date_between;
1042: IF csr_other_vers%found THEN
1043: CLOSE csr_other_vers;
1044: fnd_message.set_name('PER', 'HR_289074_PGV_INV_DATE_OVERLAP');
1045: fnd_message.raise_error;
1046: END IF;
1047: CLOSE csr_other_vers;
1048: --
1041: FETCH csr_other_vers INTO l_date_between;
1042: IF csr_other_vers%found THEN
1043: CLOSE csr_other_vers;
1044: fnd_message.set_name('PER', 'HR_289074_PGV_INV_DATE_OVERLAP');
1045: fnd_message.raise_error;
1046: END IF;
1047: CLOSE csr_other_vers;
1048: --
1049: end if;
1146: OPEN csr_date_between;
1147: FETCH csr_date_between INTO l_date_between;
1148: IF csr_date_between%notfound THEN
1149: CLOSE csr_date_between;
1150: fnd_message.set_name('PER', 'HR_289072_PGV_INV_DATE_FROM');
1151: fnd_message.raise_error;
1152: END IF;
1153: CLOSE csr_date_between;
1154: end if;
1147: FETCH csr_date_between INTO l_date_between;
1148: IF csr_date_between%notfound THEN
1149: CLOSE csr_date_between;
1150: fnd_message.set_name('PER', 'HR_289072_PGV_INV_DATE_FROM');
1151: fnd_message.raise_error;
1152: END IF;
1153: CLOSE csr_date_between;
1154: end if;
1155: --
1156: -- Check if the DATE_TO is after DATE_FROM
1157: --
1158: hr_utility.set_location(l_proc, 60);
1159: if not l_date_to >= p_date_from then
1160: fnd_message.set_name('PER', 'HR_289073_PGV_DATE_FROM_BEFORE');
1161: fnd_message.raise_error;
1162: end if;
1163: --
1164: -- Check if the DATE_TO is not overlaped by dates of another version.
1157: --
1158: hr_utility.set_location(l_proc, 60);
1159: if not l_date_to >= p_date_from then
1160: fnd_message.set_name('PER', 'HR_289073_PGV_DATE_FROM_BEFORE');
1161: fnd_message.raise_error;
1162: end if;
1163: --
1164: -- Check if the DATE_TO is not overlaped by dates of another version.
1165: --
1168: OPEN csr_other_vers;
1169: FETCH csr_other_vers INTO l_date_between;
1170: IF csr_other_vers%found THEN
1171: CLOSE csr_other_vers;
1172: fnd_message.set_name('PER', 'HR_289074_PGV_INV_DATE_OVERLAP');
1173: fnd_message.raise_error;
1174: END IF;
1175: CLOSE csr_other_vers;
1176: --
1169: FETCH csr_other_vers INTO l_date_between;
1170: IF csr_other_vers%found THEN
1171: CLOSE csr_other_vers;
1172: fnd_message.set_name('PER', 'HR_289074_PGV_INV_DATE_OVERLAP');
1173: fnd_message.raise_error;
1174: END IF;
1175: CLOSE csr_other_vers;
1176: --
1177: hr_utility.set_location('Leaving:'||l_proc, 80);
1226: ,p_lookup_type => 'ACTIVE_INACTIVE'
1227: ,p_lookup_code => p_status
1228: ) then
1229: -- Error Invalid Status
1230: fnd_message.set_name('PER', 'HR_289075_PGV_INV_STATUS');
1231: fnd_message.raise_error;
1232: end if;
1233: --
1234: hr_utility.set_location(l_proc, 40);
1227: ,p_lookup_code => p_status
1228: ) then
1229: -- Error Invalid Status
1230: fnd_message.set_name('PER', 'HR_289075_PGV_INV_STATUS');
1231: fnd_message.raise_error;
1232: end if;
1233: --
1234: hr_utility.set_location(l_proc, 40);
1235: --
1285: ,p_lookup_type => 'YES_NO'
1286: ,p_lookup_code => p_validate_flag
1287: ) then
1288: -- Error Invalid Validate Flag
1289: fnd_message.set_name('PER', 'HR_289076_PGV_INV_VALIDATE');
1290: fnd_message.raise_error;
1291: end if;
1292: --
1293: hr_utility.set_location(l_proc, 40);
1286: ,p_lookup_code => p_validate_flag
1287: ) then
1288: -- Error Invalid Validate Flag
1289: fnd_message.set_name('PER', 'HR_289076_PGV_INV_VALIDATE');
1290: fnd_message.raise_error;
1291: end if;
1292: --
1293: hr_utility.set_location(l_proc, 40);
1294: --
1336: if csr_node_exists%notfound then
1337: close csr_node_exists;
1338: else
1339: close csr_node_exists;
1340: fnd_message.set_name('PER', 'HR_289077_PGV_DEL_HIER_VERS');
1341: fnd_message.raise_error;
1342: end if;
1343: --
1344: hr_utility.set_location('Leaving :'||l_proc, 30);
1337: close csr_node_exists;
1338: else
1339: close csr_node_exists;
1340: fnd_message.set_name('PER', 'HR_289077_PGV_DEL_HIER_VERS');
1341: fnd_message.raise_error;
1342: end if;
1343: --
1344: hr_utility.set_location('Leaving :'||l_proc, 30);
1345: --