[Home] [Help]
1: Package Body per_pdm_bus as
2: /* $Header: pepdmrhi.pkb 115.8 2002/12/09 14:33:06 pkakar ship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' per_pdm_bus.'; -- Global package name
9: --
10: --
11: -- --------------------------------------------------------------------------
12: -- |---------------------< chk_non_updateable_args >------------------------|
549: p_person_id => p_rec.person_id,
550: p_effective_date => p_effective_date,
551: p_object_version_number => p_rec.object_version_number);
552: --
553: if not per_pdm_bus.g_called_from_form then
554: chk_preferred_flag
555: (p_delivery_method_id => p_rec.delivery_method_id,
556: p_person_id => p_rec.person_id,
557: p_preferred_flag => p_rec.preferred_flag,
566: ,p_object_version_number => p_rec.object_version_number);
567: --
568: -- Call descriptive flexfield validation routines
569: --
570: per_pdm_bus.chk_df(p_rec => p_rec);
571: --
572: hr_utility.set_location(' Leaving:'||l_proc, 10);
573: End insert_validate;
574: --
598: --
599: -- No need to call this chk routine if calling from form as only
600: -- one check box can ever be checked.
601: --
602: if not per_pdm_bus.g_called_from_form then
603: chk_preferred_flag
604: (p_delivery_method_id => p_rec.delivery_method_id,
605: p_person_id => p_rec.person_id,
606: p_preferred_flag => p_rec.preferred_flag,
615: ,p_object_version_number => p_rec.object_version_number);
616: --
617: -- Call descriptive flexfield validation routines
618: --
619: per_pdm_bus.chk_df(p_rec => p_rec);
620: --
621: --
622: hr_utility.set_location(' Leaving:'||l_proc, 10);
623: End update_validate;
715: begin
716: g_called_from_form := p_flag;
717: end;
718: --
719: end per_pdm_bus;