173: -- {End Of Comments}
174: -- ----------------------------------------------------------------------------
175: Procedure chk_non_updateable_args
176: (p_effective_date in date
177: ,p_rec in per_cei_shd.g_rec_type
178: ) IS
179: --
180: l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
181: l_error EXCEPTION;
189: --
190: -- Only proceed with the validation if a row exists for the current
191: -- record in the HR Schema.
192: --
193: IF NOT per_cei_shd.api_updating
194: (p_cagr_entitlement_item_id => p_rec.cagr_entitlement_item_id
195: ) THEN
196: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
197: fnd_message.set_token('PROCEDURE ', l_proc);
215: --
216: hr_utility.set_location(l_proc, 10);
217: --
218: IF nvl(p_rec.business_group_id, hr_api.g_number) <>
219: nvl(per_cei_shd.g_old_rec.business_group_id,hr_api.g_number) THEN
220: --
221: l_argument := 'business_group_id';
222: RAISE l_error;
223: --
225: --
226: hr_utility.set_location(l_proc, 20);
227: --
228: IF nvl(p_rec.legislation_code, hr_api.g_varchar2) <>
229: nvl(per_cei_shd.g_old_rec.legislation_code,hr_api.g_varchar2) THEN
230: --
231: l_argument := 'legislation_code';
232: RAISE l_error;
233: --
238: --
239: -- Check to see if the entitlement item has
240: -- been used by any collective agreements
241: --
242: l_item_in_use := per_cei_shd.entitlement_item_in_use
243: (p_cagr_entitlement_item_id => p_rec.cagr_entitlement_item_id);
244: --
245: hr_utility.set_location(l_proc, 40);
246: --
250: --
251: IF l_item_in_use THEN
252: --
253: IF nvl(p_rec.mult_entries_allowed_flag , hr_api.g_varchar2) <>
254: nvl(per_cei_shd.g_old_rec.mult_entries_allowed_flag,hr_api.g_varchar2) THEN
255: --
256: l_argument := 'mult_entries_allowed_flag';
257: RAISE l_error;
258: --
260: --
261: hr_utility.set_location(l_proc||'/'||p_rec.column_type||'/', 50);
262: --
263: IF nvl(p_rec.column_type, hr_api.g_varchar2) <>
264: nvl(per_cei_shd.g_old_rec.column_type,hr_api.g_varchar2) THEN
265: --
266: l_argument := 'column_type';
267: RAISE l_error;
268: --
270: --
271: hr_utility.set_location(l_proc, 60);
272: --
273: IF nvl(p_rec.flex_value_set_id, hr_api.g_number) <>
274: nvl(per_cei_shd.g_old_rec.flex_value_set_id,hr_api.g_number) THEN
275: --
276: l_argument := 'flex_value_set_id';
277: RAISE l_error;
278: --
280: --
281: hr_utility.set_location(l_proc, 70);
282: --
283: IF nvl(p_rec.category_name, hr_api.g_varchar2) <>
284: nvl(per_cei_shd.g_old_rec.category_name,hr_api.g_varchar2) THEN
285: --
286: l_argument := 'category_name';
287: RAISE l_error;
288: --
290: --
291: hr_utility.set_location(l_proc, 80);
292: --
293: IF nvl(p_rec.input_value_id, hr_api.g_number) <>
294: nvl(per_cei_shd.g_old_rec.input_value_id,hr_api.g_number) THEN
295: --
296: l_argument := 'input_value_id';
297: RAISE l_error;
298: --
300: --
301: hr_utility.set_location(l_proc, 90);
302: --
303: IF nvl(p_rec.element_type_id, hr_api.g_number) <>
304: nvl(per_cei_shd.g_old_rec.element_type_id,hr_api.g_number) THEN
305: --
306: l_argument := 'element_type_id';
307: RAISE l_error;
308: --
308: --
309: END IF;
310: --
311: IF nvl(p_rec.cagr_api_id, hr_api.g_number) <>
312: nvl(per_cei_shd.g_old_rec.cagr_api_id,hr_api.g_number) THEN
313: --
314: l_argument := 'cagr_api_id';
315: RAISE l_error;
316: --
316: --
317: END IF;
318: --
319: IF nvl(p_rec.cagr_api_param_id, hr_api.g_number) <>
320: nvl(per_cei_shd.g_old_rec.cagr_api_param_id,hr_api.g_number) THEN
321: --
322: l_argument := 'cagr_api_param_id';
323: RAISE l_error;
324: --
421: -- b) The value for item name has changed
422: --
423: IF ( (p_cagr_entitlement_item_id IS NULL) OR
424: ((p_cagr_entitlement_item_id IS NOT NULL) AND
425: (per_cei_shd.g_old_rec.item_name <> p_item_name))) THEN
426: --
427: hr_utility.set_location(l_proc,20);
428: --
429: -- Check to see if a Global Item has already been defined
608: -- a) Inserting or
609: -- b) The value for beneficial rule has changed
610: --
611: IF p_beneficial_rule IS NOT NULL OR
612: NVL(per_cei_shd.g_old_rec.beneficial_rule,hr_api.g_varchar2) <>
613: NVL(p_beneficial_rule, hr_api.g_varchar2) THEN
614: --
615: hr_utility.set_location(l_proc, 20);
616: --
718: -- b) The value for column_type has changed
719: --
720: IF ( (p_cagr_entitlement_item_id IS NULL) OR
721: ((p_cagr_entitlement_item_id IS NOT NULL) AND
722: (per_cei_shd.g_old_rec.column_type <> p_column_type))) THEN
723: --
724: hr_utility.set_location(l_proc, 20);
725: --
726: -- IF the item is a payroll item or a non-denormalised item
857: -- b) The value for column_size has changed
858: --
859: IF ( (p_cagr_entitlement_item_id IS NULL) OR
860: ((p_cagr_entitlement_item_id IS NOT NULL) AND
861: (per_cei_shd.g_old_rec.column_size <> p_column_size))) THEN
862: --
863: hr_utility.set_location(l_proc, 20);
864: --
865: -- If the entitlement item has been linked to to a
951: -- b) The value for cagr api id has changed
952: --
953: IF ( (p_cagr_entitlement_item_id IS NULL) OR
954: ((p_cagr_entitlement_item_id IS NOT NULL) AND
955: (NVL(per_cei_shd.g_old_rec.cagr_api_id, hr_api.g_number) <>
956: NVL(p_cagr_api_id,hr_api.g_number)))) THEN
957: --
958: hr_utility.set_location(l_proc,20);
959: --
1069: -- b) The value for cagr api param id has changed
1070: --
1071: IF ( (p_cagr_entitlement_item_id IS NULL) OR
1072: ((p_cagr_entitlement_item_id IS NOT NULL) AND
1073: (per_cei_shd.g_old_rec.cagr_api_param_id <> p_cagr_api_param_id))) THEN
1074: --
1075: hr_utility.set_location(l_proc,30);
1076: --
1077: IF p_cagr_api_param_id IS NOT NULL THEN
1181: -- b) The value for category_name has changed
1182: --
1183: IF ( (p_cagr_entitlement_item_id IS NULL) OR
1184: ((p_cagr_entitlement_item_id IS NOT NULL) AND
1185: (per_cei_shd.g_old_rec.category_name <> p_category_name))) THEN
1186: --
1187: hr_utility.set_location(l_proc, 20);
1188: --
1189: -- Check that the category exists in HR_LOOKUPS
1273: -- b) The value for uom has changed
1274: --
1275: IF ( (p_cagr_entitlement_item_id IS NULL) OR
1276: ((p_cagr_entitlement_item_id IS NOT NULL) AND
1277: (per_cei_shd.g_old_rec.uom <> NVL(p_uom,hr_api.g_varchar2)))) THEN
1278: --
1279: hr_utility.set_location(l_proc, 20);
1280: --
1281: -- If the item has been defined as a denormalised payroll item
1461: ,p_argument => 'cagr_entitlement_item_id'
1462: ,p_argument_value => p_cagr_entitlement_item_id
1463: );
1464: --
1465: l_item_in_use := per_cei_shd.entitlement_item_in_use
1466: (p_cagr_entitlement_item_id => p_cagr_entitlement_item_id);
1467: --
1468: IF l_item_in_use THEN
1469: --
1564: -- b) The value for item name has changed
1565: --
1566: IF ( (p_cagr_entitlement_item_id IS NULL) OR
1567: ((p_cagr_entitlement_item_id IS NOT NULL) AND
1568: (per_cei_shd.g_old_rec.mult_entries_allowed_flag <>
1569: NVL(p_mult_entries_allowed_flag,hr_api.g_varchar2)))) THEN
1570: --
1571: hr_utility.set_location(l_proc,20);
1572: --
1828: -- if the entitlement item is unique.
1829: --
1830: IF ( (p_cagr_entitlement_item_id IS NULL) OR
1831: ((p_cagr_entitlement_item_id IS NOT NULL) AND
1832: ((per_cei_shd.g_old_rec.cagr_api_id <> p_cagr_api_id) OR
1833: (per_cei_shd.g_old_rec.cagr_api_param_id <> p_cagr_api_param_id)
1834: )
1835: )
1836: ) THEN
1829: --
1830: IF ( (p_cagr_entitlement_item_id IS NULL) OR
1831: ((p_cagr_entitlement_item_id IS NOT NULL) AND
1832: ((per_cei_shd.g_old_rec.cagr_api_id <> p_cagr_api_id) OR
1833: (per_cei_shd.g_old_rec.cagr_api_param_id <> p_cagr_api_param_id)
1834: )
1835: )
1836: ) THEN
1837: --
1867: hr_utility.set_location(l_proc,50);
1868: --
1869: IF ( (p_cagr_entitlement_item_id IS NULL) OR
1870: ((p_cagr_entitlement_item_id IS NOT NULL) AND
1871: ((per_cei_shd.g_old_rec.element_type_id <> p_element_type_id) OR
1872: (per_cei_shd.g_old_rec.input_value_id <> p_input_value_id)
1873: )
1874: )
1875: ) THEN
1868: --
1869: IF ( (p_cagr_entitlement_item_id IS NULL) OR
1870: ((p_cagr_entitlement_item_id IS NOT NULL) AND
1871: ((per_cei_shd.g_old_rec.element_type_id <> p_element_type_id) OR
1872: (per_cei_shd.g_old_rec.input_value_id <> p_input_value_id)
1873: )
1874: )
1875: ) THEN
1876: --
1987: -- b) The value for element_type_id has changed
1988: --
1989: IF ( (p_cagr_entitlement_item_id IS NULL) OR
1990: ((p_cagr_entitlement_item_id IS NOT NULL) AND
1991: (per_cei_shd.g_old_rec.element_type_id <> p_element_type_id))) THEN
1992: --
1993: hr_utility.set_location(l_proc,30);
1994: --
1995: IF p_element_type_id IS NOT NULL THEN
2129: -- b) The value for input_value_id has changed
2130: --
2131: IF ( (p_cagr_entitlement_item_id IS NULL) OR
2132: ((p_cagr_entitlement_item_id IS NOT NULL) AND
2133: (per_cei_shd.g_old_rec.input_value_id <>
2134: NVL(p_input_value_id,hr_api.g_number)))) THEN
2135: --
2136: hr_utility.set_location(l_proc,30);
2137: --
2257: -- b) The value for flex_value_set_id has changed
2258: --
2259: IF ( (p_cagr_entitlement_item_id IS NULL) OR
2260: ((p_cagr_entitlement_item_id IS NOT NULL) AND
2261: (NVL(per_cei_shd.g_old_rec.flex_value_set_id, hr_api.g_number) <>
2262: NVL(p_flex_value_set_id, hr_api.g_number)))) THEN
2263: --
2264: hr_utility.set_location(l_proc,20);
2265: --
2347: -- b) The value for ben rule value set has changed
2348: --
2349: IF ( (p_cagr_entitlement_item_id IS NULL) OR
2350: ((p_cagr_entitlement_item_id IS NOT NULL) AND
2351: (NVL(per_cei_shd.g_old_rec.ben_rule_value_set_id, hr_api.g_number) <>
2352: NVL(p_ben_rule_value_set_id, hr_api.g_number)))) THEN
2353: --
2354: hr_utility.set_location(l_proc,20);
2355: --
2385: -- |---------------------------< insert_validate >----------------------------|
2386: -- ----------------------------------------------------------------------------
2387: Procedure insert_validate
2388: (p_effective_date in date
2389: ,p_rec in out nocopy per_cei_shd.g_rec_type
2390: ) is
2391: --
2392: l_proc varchar2(72) := g_package||'insert_validate';
2393: --
2553: -- |---------------------------< update_validate >----------------------------|
2554: -- ----------------------------------------------------------------------------
2555: Procedure update_validate
2556: (p_effective_date in date
2557: ,p_rec in out nocopy per_cei_shd.g_rec_type
2558: ) is
2559: --
2560: l_proc varchar2(72) := g_package||'update_validate';
2561: --
2725: -- ----------------------------------------------------------------------------
2726: -- |---------------------------< delete_validate >----------------------------|
2727: -- ----------------------------------------------------------------------------
2728: Procedure delete_validate
2729: (p_rec in per_cei_shd.g_rec_type
2730: ) is
2731: --
2732: l_proc varchar2(72) := g_package||'delete_validate';
2733: --