178: -- Internal Row Handler Use Only.
179: --
180: -- ----------------------------------------------------------------------------
181: procedure chk_df
182: (p_rec in pay_pel_shd.g_rec_type
183: ) is
184: --
185: l_proc varchar2(72) := g_package || 'chk_df';
186: --
187: begin
188: hr_utility.set_location('Entering:'||l_proc,10);
189: --
190: if ((p_rec.element_link_id is not null) and (
191: nvl(pay_pel_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
192: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
193: nvl(pay_pel_shd.g_old_rec.attribute1, hr_api.g_varchar2) <>
194: nvl(p_rec.attribute1, hr_api.g_varchar2) or
195: nvl(pay_pel_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
189: --
190: if ((p_rec.element_link_id is not null) and (
191: nvl(pay_pel_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
192: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
193: nvl(pay_pel_shd.g_old_rec.attribute1, hr_api.g_varchar2) <>
194: nvl(p_rec.attribute1, hr_api.g_varchar2) or
195: nvl(pay_pel_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
196: nvl(p_rec.attribute2, hr_api.g_varchar2) or
197: nvl(pay_pel_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
191: nvl(pay_pel_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
192: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
193: nvl(pay_pel_shd.g_old_rec.attribute1, hr_api.g_varchar2) <>
194: nvl(p_rec.attribute1, hr_api.g_varchar2) or
195: nvl(pay_pel_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
196: nvl(p_rec.attribute2, hr_api.g_varchar2) or
197: nvl(pay_pel_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
198: nvl(p_rec.attribute3, hr_api.g_varchar2) or
199: nvl(pay_pel_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
193: nvl(pay_pel_shd.g_old_rec.attribute1, hr_api.g_varchar2) <>
194: nvl(p_rec.attribute1, hr_api.g_varchar2) or
195: nvl(pay_pel_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
196: nvl(p_rec.attribute2, hr_api.g_varchar2) or
197: nvl(pay_pel_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
198: nvl(p_rec.attribute3, hr_api.g_varchar2) or
199: nvl(pay_pel_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
200: nvl(p_rec.attribute4, hr_api.g_varchar2) or
201: nvl(pay_pel_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
195: nvl(pay_pel_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
196: nvl(p_rec.attribute2, hr_api.g_varchar2) or
197: nvl(pay_pel_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
198: nvl(p_rec.attribute3, hr_api.g_varchar2) or
199: nvl(pay_pel_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
200: nvl(p_rec.attribute4, hr_api.g_varchar2) or
201: nvl(pay_pel_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
202: nvl(p_rec.attribute5, hr_api.g_varchar2) or
203: nvl(pay_pel_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
197: nvl(pay_pel_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
198: nvl(p_rec.attribute3, hr_api.g_varchar2) or
199: nvl(pay_pel_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
200: nvl(p_rec.attribute4, hr_api.g_varchar2) or
201: nvl(pay_pel_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
202: nvl(p_rec.attribute5, hr_api.g_varchar2) or
203: nvl(pay_pel_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
204: nvl(p_rec.attribute6, hr_api.g_varchar2) or
205: nvl(pay_pel_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
199: nvl(pay_pel_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
200: nvl(p_rec.attribute4, hr_api.g_varchar2) or
201: nvl(pay_pel_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
202: nvl(p_rec.attribute5, hr_api.g_varchar2) or
203: nvl(pay_pel_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
204: nvl(p_rec.attribute6, hr_api.g_varchar2) or
205: nvl(pay_pel_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
206: nvl(p_rec.attribute7, hr_api.g_varchar2) or
207: nvl(pay_pel_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
201: nvl(pay_pel_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
202: nvl(p_rec.attribute5, hr_api.g_varchar2) or
203: nvl(pay_pel_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
204: nvl(p_rec.attribute6, hr_api.g_varchar2) or
205: nvl(pay_pel_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
206: nvl(p_rec.attribute7, hr_api.g_varchar2) or
207: nvl(pay_pel_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
208: nvl(p_rec.attribute8, hr_api.g_varchar2) or
209: nvl(pay_pel_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
203: nvl(pay_pel_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
204: nvl(p_rec.attribute6, hr_api.g_varchar2) or
205: nvl(pay_pel_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
206: nvl(p_rec.attribute7, hr_api.g_varchar2) or
207: nvl(pay_pel_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
208: nvl(p_rec.attribute8, hr_api.g_varchar2) or
209: nvl(pay_pel_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
210: nvl(p_rec.attribute9, hr_api.g_varchar2) or
211: nvl(pay_pel_shd.g_old_rec.attribute10, hr_api.g_varchar2) <>
205: nvl(pay_pel_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
206: nvl(p_rec.attribute7, hr_api.g_varchar2) or
207: nvl(pay_pel_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
208: nvl(p_rec.attribute8, hr_api.g_varchar2) or
209: nvl(pay_pel_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
210: nvl(p_rec.attribute9, hr_api.g_varchar2) or
211: nvl(pay_pel_shd.g_old_rec.attribute10, hr_api.g_varchar2) <>
212: nvl(p_rec.attribute10, hr_api.g_varchar2) or
213: nvl(pay_pel_shd.g_old_rec.attribute11, hr_api.g_varchar2) <>
207: nvl(pay_pel_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
208: nvl(p_rec.attribute8, hr_api.g_varchar2) or
209: nvl(pay_pel_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
210: nvl(p_rec.attribute9, hr_api.g_varchar2) or
211: nvl(pay_pel_shd.g_old_rec.attribute10, hr_api.g_varchar2) <>
212: nvl(p_rec.attribute10, hr_api.g_varchar2) or
213: nvl(pay_pel_shd.g_old_rec.attribute11, hr_api.g_varchar2) <>
214: nvl(p_rec.attribute11, hr_api.g_varchar2) or
215: nvl(pay_pel_shd.g_old_rec.attribute12, hr_api.g_varchar2) <>
209: nvl(pay_pel_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
210: nvl(p_rec.attribute9, hr_api.g_varchar2) or
211: nvl(pay_pel_shd.g_old_rec.attribute10, hr_api.g_varchar2) <>
212: nvl(p_rec.attribute10, hr_api.g_varchar2) or
213: nvl(pay_pel_shd.g_old_rec.attribute11, hr_api.g_varchar2) <>
214: nvl(p_rec.attribute11, hr_api.g_varchar2) or
215: nvl(pay_pel_shd.g_old_rec.attribute12, hr_api.g_varchar2) <>
216: nvl(p_rec.attribute12, hr_api.g_varchar2) or
217: nvl(pay_pel_shd.g_old_rec.attribute13, hr_api.g_varchar2) <>
211: nvl(pay_pel_shd.g_old_rec.attribute10, hr_api.g_varchar2) <>
212: nvl(p_rec.attribute10, hr_api.g_varchar2) or
213: nvl(pay_pel_shd.g_old_rec.attribute11, hr_api.g_varchar2) <>
214: nvl(p_rec.attribute11, hr_api.g_varchar2) or
215: nvl(pay_pel_shd.g_old_rec.attribute12, hr_api.g_varchar2) <>
216: nvl(p_rec.attribute12, hr_api.g_varchar2) or
217: nvl(pay_pel_shd.g_old_rec.attribute13, hr_api.g_varchar2) <>
218: nvl(p_rec.attribute13, hr_api.g_varchar2) or
219: nvl(pay_pel_shd.g_old_rec.attribute14, hr_api.g_varchar2) <>
213: nvl(pay_pel_shd.g_old_rec.attribute11, hr_api.g_varchar2) <>
214: nvl(p_rec.attribute11, hr_api.g_varchar2) or
215: nvl(pay_pel_shd.g_old_rec.attribute12, hr_api.g_varchar2) <>
216: nvl(p_rec.attribute12, hr_api.g_varchar2) or
217: nvl(pay_pel_shd.g_old_rec.attribute13, hr_api.g_varchar2) <>
218: nvl(p_rec.attribute13, hr_api.g_varchar2) or
219: nvl(pay_pel_shd.g_old_rec.attribute14, hr_api.g_varchar2) <>
220: nvl(p_rec.attribute14, hr_api.g_varchar2) or
221: nvl(pay_pel_shd.g_old_rec.attribute15, hr_api.g_varchar2) <>
215: nvl(pay_pel_shd.g_old_rec.attribute12, hr_api.g_varchar2) <>
216: nvl(p_rec.attribute12, hr_api.g_varchar2) or
217: nvl(pay_pel_shd.g_old_rec.attribute13, hr_api.g_varchar2) <>
218: nvl(p_rec.attribute13, hr_api.g_varchar2) or
219: nvl(pay_pel_shd.g_old_rec.attribute14, hr_api.g_varchar2) <>
220: nvl(p_rec.attribute14, hr_api.g_varchar2) or
221: nvl(pay_pel_shd.g_old_rec.attribute15, hr_api.g_varchar2) <>
222: nvl(p_rec.attribute15, hr_api.g_varchar2) or
223: nvl(pay_pel_shd.g_old_rec.attribute16, hr_api.g_varchar2) <>
217: nvl(pay_pel_shd.g_old_rec.attribute13, hr_api.g_varchar2) <>
218: nvl(p_rec.attribute13, hr_api.g_varchar2) or
219: nvl(pay_pel_shd.g_old_rec.attribute14, hr_api.g_varchar2) <>
220: nvl(p_rec.attribute14, hr_api.g_varchar2) or
221: nvl(pay_pel_shd.g_old_rec.attribute15, hr_api.g_varchar2) <>
222: nvl(p_rec.attribute15, hr_api.g_varchar2) or
223: nvl(pay_pel_shd.g_old_rec.attribute16, hr_api.g_varchar2) <>
224: nvl(p_rec.attribute16, hr_api.g_varchar2) or
225: nvl(pay_pel_shd.g_old_rec.attribute17, hr_api.g_varchar2) <>
219: nvl(pay_pel_shd.g_old_rec.attribute14, hr_api.g_varchar2) <>
220: nvl(p_rec.attribute14, hr_api.g_varchar2) or
221: nvl(pay_pel_shd.g_old_rec.attribute15, hr_api.g_varchar2) <>
222: nvl(p_rec.attribute15, hr_api.g_varchar2) or
223: nvl(pay_pel_shd.g_old_rec.attribute16, hr_api.g_varchar2) <>
224: nvl(p_rec.attribute16, hr_api.g_varchar2) or
225: nvl(pay_pel_shd.g_old_rec.attribute17, hr_api.g_varchar2) <>
226: nvl(p_rec.attribute17, hr_api.g_varchar2) or
227: nvl(pay_pel_shd.g_old_rec.attribute18, hr_api.g_varchar2) <>
221: nvl(pay_pel_shd.g_old_rec.attribute15, hr_api.g_varchar2) <>
222: nvl(p_rec.attribute15, hr_api.g_varchar2) or
223: nvl(pay_pel_shd.g_old_rec.attribute16, hr_api.g_varchar2) <>
224: nvl(p_rec.attribute16, hr_api.g_varchar2) or
225: nvl(pay_pel_shd.g_old_rec.attribute17, hr_api.g_varchar2) <>
226: nvl(p_rec.attribute17, hr_api.g_varchar2) or
227: nvl(pay_pel_shd.g_old_rec.attribute18, hr_api.g_varchar2) <>
228: nvl(p_rec.attribute18, hr_api.g_varchar2) or
229: nvl(pay_pel_shd.g_old_rec.attribute19, hr_api.g_varchar2) <>
223: nvl(pay_pel_shd.g_old_rec.attribute16, hr_api.g_varchar2) <>
224: nvl(p_rec.attribute16, hr_api.g_varchar2) or
225: nvl(pay_pel_shd.g_old_rec.attribute17, hr_api.g_varchar2) <>
226: nvl(p_rec.attribute17, hr_api.g_varchar2) or
227: nvl(pay_pel_shd.g_old_rec.attribute18, hr_api.g_varchar2) <>
228: nvl(p_rec.attribute18, hr_api.g_varchar2) or
229: nvl(pay_pel_shd.g_old_rec.attribute19, hr_api.g_varchar2) <>
230: nvl(p_rec.attribute19, hr_api.g_varchar2) or
231: nvl(pay_pel_shd.g_old_rec.attribute20, hr_api.g_varchar2) <>
225: nvl(pay_pel_shd.g_old_rec.attribute17, hr_api.g_varchar2) <>
226: nvl(p_rec.attribute17, hr_api.g_varchar2) or
227: nvl(pay_pel_shd.g_old_rec.attribute18, hr_api.g_varchar2) <>
228: nvl(p_rec.attribute18, hr_api.g_varchar2) or
229: nvl(pay_pel_shd.g_old_rec.attribute19, hr_api.g_varchar2) <>
230: nvl(p_rec.attribute19, hr_api.g_varchar2) or
231: nvl(pay_pel_shd.g_old_rec.attribute20, hr_api.g_varchar2) <>
232: nvl(p_rec.attribute20, hr_api.g_varchar2) ))
233: or (p_rec.element_link_id is null) then
227: nvl(pay_pel_shd.g_old_rec.attribute18, hr_api.g_varchar2) <>
228: nvl(p_rec.attribute18, hr_api.g_varchar2) or
229: nvl(pay_pel_shd.g_old_rec.attribute19, hr_api.g_varchar2) <>
230: nvl(p_rec.attribute19, hr_api.g_varchar2) or
231: nvl(pay_pel_shd.g_old_rec.attribute20, hr_api.g_varchar2) <>
232: nvl(p_rec.attribute20, hr_api.g_varchar2) ))
233: or (p_rec.element_link_id is null) then
234: --
235: -- Only execute the validation if absolutely necessary:
315: -- {End Of Comments}
316: -- ----------------------------------------------------------------------------
317: Procedure chk_non_updateable_args
318: (p_effective_date in date
319: ,p_rec in pay_pel_shd.g_rec_type
320: ) IS
321: --
322: l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
323: --
325: --
326: -- Only proceed with the validation if a row exists for the current
327: -- record in the HR Schema.
328: --
329: IF NOT pay_pel_shd.api_updating
330: (p_element_link_id => p_rec.element_link_id
331: ,p_effective_date => p_effective_date
332: ,p_object_version_number => p_rec.object_version_number
333: ) THEN
412: ,p_to_date => p_validation_end_date))) Then
413: fnd_message.set_name('PAY', 'HR_7216_DT_UPD_INTEGRITY_ERR');
414: fnd_message.set_token('TABLE_NAME','all payrolls');
415: hr_multi_message.add
416: (p_associated_column1 => pay_pel_shd.g_tab_nam || '.PAYROLL_ID');
417: End If;
418: If ((nvl(p_element_type_id, hr_api.g_number) <> hr_api.g_number) and
419: NOT (dt_api.check_min_max_dates
420: (p_base_table_name => 'pay_element_types_f'
424: ,p_to_date => p_validation_end_date))) Then
425: fnd_message.set_name('PAY', 'HR_7216_DT_UPD_INTEGRITY_ERR');
426: fnd_message.set_token('TABLE_NAME','element types');
427: hr_multi_message.add
428: (p_associated_column1 => pay_pel_shd.g_tab_nam || '.ELEMENT_TYPE_ID');
429: End If;
430: --
431: Exception
432: When Others Then
1505: is
1506: l_proc varchar2(72) := g_package || 'chk_costable_type_for_upd';
1507: begin
1508: hr_utility.set_location('Entering:'||l_proc,10);
1509: if pay_pel_shd.g_old_rec.costable_type <> p_costable_type
1510: and p_datetrack_mode = hr_api.g_update then
1511: fnd_message.set_name('PAY', 'PAY_6466_LINK_NO_COST_UPD2');
1512: fnd_message.raise_error;
1513: end if;
1593: --
1594: -- Only check for change of standard link flag if not inserting
1595: if (p_datetrack_mode <> hr_api.g_insert)
1596: then
1597: if pay_pel_shd.g_old_rec.standard_link_flag = 'N'
1598: and p_standard_link_flag = 'Y' then
1599: hr_utility.set_location(l_proc,20);
1600: open csr_DateEffRecs;
1601: fetch csr_DateEffRecs into l_dummy;
1673: -- ----------------------------------------------------------------------------
1674: -- |---------------------------< insert_validate >----------------------------|
1675: -- ----------------------------------------------------------------------------
1676: Procedure insert_validate
1677: (p_rec in pay_pel_shd.g_rec_type
1678: ,p_effective_date in date
1679: ,p_datetrack_mode in varchar2
1680: ,p_validation_start_date in date
1681: ,p_validation_end_date in date
1689: -- Call all supporting business operations
1690: --
1691: hr_api.validate_bus_grp_id
1692: (p_business_group_id => p_rec.business_group_id
1693: ,p_associated_column1 => pay_pel_shd.g_tab_nam
1694: || '.BUSINESS_GROUP_ID');
1695: --
1696: -- After validating the set of important attributes,
1697: -- if Multiple Message detection is enabled and at least
1792: -- ----------------------------------------------------------------------------
1793: -- |---------------------------< update_validate >----------------------------|
1794: -- ----------------------------------------------------------------------------
1795: Procedure update_validate
1796: (p_rec in pay_pel_shd.g_rec_type
1797: ,p_effective_date in date
1798: ,p_datetrack_mode in varchar2
1799: ,p_validation_start_date in date
1800: ,p_validation_end_date in date
1817: -- Call all supporting business operations
1818: --
1819: hr_api.validate_bus_grp_id
1820: (p_business_group_id => p_rec.business_group_id
1821: ,p_associated_column1 => pay_pel_shd.g_tab_nam
1822: || '.BUSINESS_GROUP_ID');
1823: --
1824: -- After validating the set of important attributes,
1825: -- if Multiple Message detection is enabled and at least
1906: -- ----------------------------------------------------------------------------
1907: -- |---------------------------< delete_validate >----------------------------|
1908: -- ----------------------------------------------------------------------------
1909: Procedure delete_validate
1910: (p_rec in pay_pel_shd.g_rec_type
1911: ,p_effective_date in date
1912: ,p_datetrack_mode in varchar2
1913: ,p_validation_start_date in date
1914: ,p_validation_end_date in date