[Home] [Help]
178: -- {End Of Comments}
179: -- ----------------------------------------------------------------------------
180: Procedure chk_non_updateable_args
181: (p_effective_date in date
182: ,p_rec in pqh_ver_shd.g_rec_type
183: ) IS
184: --
185: l_proc varchar2(200) := g_package || 'chk_non_updateable_args';
186: --
188: --
189: -- Only proceed with the validation if a row exists for the current
190: -- record in the HR Schema.
191: --
192: IF NOT pqh_ver_shd.api_updating
193: (p_wrkplc_vldtn_ver_id => p_rec.wrkplc_vldtn_ver_id
194: ,p_object_version_number => p_rec.object_version_number
195: ) THEN
196: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
201: --
202: -- EDIT_HERE: Add checks to ensure non-updateable args have
203: -- not been updated.
204: --
205: If p_rec.Wrkplc_Vldtn_Id <> pqh_ver_shd.g_old_rec.wrkplc_vldtn_id Then
206: hr_utility.set_message(8302, 'PQH_DE_NONUPD_VALDTN_ID');
207: fnd_message.raise_error;
208: End If;
209:
210: End chk_non_updateable_args;
211:
212: Procedure Ckh_Tariff_Contract
213: (p_effective_date in date
214: ,p_rec in pqh_ver_shd.g_rec_type) is
215: --
216: l_proc Varchar2(200) := g_package||'Ckh_Tariff_Contract';
217: l_Emp_Type Pqh_De_Wrkplc_Vldtns.EMPLOYMENT_TYPE%TYPE;
218: l_Result Varchar2(1);
265: End Ckh_Tariff_Contract;
266:
267: Procedure Ckh_Tariff_Group
268: (p_effective_date in date
269: ,p_rec in pqh_ver_shd.g_rec_type) is
270: --
271: l_proc Varchar2(72) := g_package||'Ckh_Tariff_Group';
272: l_Reslt Varchar2(1);
273:
308: End Ckh_Tariff_Group;
309:
310: Procedure Ckh_Grade
311: (p_effective_date in date
312: ,p_rec in pqh_ver_shd.g_rec_type) is
313: --
314: l_proc Varchar2(72) := g_package||'Ckh_Grade';
315: l_Reslt Varchar2(5);
316:
405: hr_utility.set_location(' Leaving:'||l_proc,70);
406: End Ckh_Grade;
407:
408: Procedure Ckh_Freeze
409: (p_rec in pqh_ver_shd.g_rec_type,
410: P_Chk In Varchar2 Default 'N') is
411:
412: l_proc Varchar2(200) := g_package||'Ckh_Freeze';
413: l_Emp_Type Pqh_De_Wrkplc_Vldtns.EMPLOYMENT_TYPE%TYPE;
440: -- |---------------------------< insert_validate >----------------------------|
441: -- ----------------------------------------------------------------------------
442: Procedure insert_validate
443: (p_effective_date in date
444: ,p_rec in pqh_ver_shd.g_rec_type
445: ) is
446: --
447: l_proc varchar2(72) := g_package||'insert_validate';
448: --
454:
455:
456: hr_api.validate_bus_grp_id
457: (p_business_group_id => p_rec.business_group_id
458: ,p_associated_column1 => pqh_ver_shd.g_tab_nam
459: || '.BUSINESS_GROUP_ID');
460: --
461: -- After validating the set of important attributes,
462: -- if Multiple Message detection is enabled and at least
485: -- |---------------------------< update_validate >----------------------------|
486: -- ----------------------------------------------------------------------------
487: Procedure update_validate
488: (p_effective_date in date
489: ,p_rec in pqh_ver_shd.g_rec_type
490: ) is
491: --
492: l_proc varchar2(72) := g_package||'update_validate';
493: --
497: -- Call all supporting business operations
498: --
499: hr_api.validate_bus_grp_id
500: (p_business_group_id => p_rec.business_group_id
501: ,p_associated_column1 => pqh_ver_shd.g_tab_nam
502: || '.BUSINESS_GROUP_ID');
503: --
504: -- After validating the set of important attributes,
505: -- if Multiple Message detection is enabled and at least
531: -- ----------------------------------------------------------------------------
532: -- |---------------------------< delete_validate >----------------------------|
533: -- ----------------------------------------------------------------------------
534: Procedure delete_validate
535: (p_rec in pqh_ver_shd.g_rec_type
536: ) is
537: --
538: l_proc varchar2(72) := g_package||'delete_validate';
539: --