[Home] [Help]
178: -- {End Of Comments}
179: -- ----------------------------------------------------------------------------
180: Procedure chk_non_updateable_args
181: (p_effective_date in date
182: ,p_rec in per_pgt_shd.g_rec_type
183: ) IS
184: --
185: l_proc varchar2(72) := 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 per_pgt_shd.api_updating
193: (p_hier_node_type_id => p_rec.hier_node_type_id
194: ,p_object_version_number => p_rec.object_version_number
195: ) THEN
196: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
198: fnd_message.set_token('STEP ', '5');
199: fnd_message.raise_error;
200: END IF;
201: --
202: IF (per_pgt_shd.g_old_rec.child_node_type <> nvl(p_rec.child_node_type,hr_api.g_varchar2)) THEN
203: fnd_message.set_name('PER', 'HR_289899_PGT_CNTYPE_NO_UPD');
204: fnd_message.raise_error;
205: END IF;
206: --
203: fnd_message.set_name('PER', 'HR_289899_PGT_CNTYPE_NO_UPD');
204: fnd_message.raise_error;
205: END IF;
206: --
207: IF (per_pgt_shd.g_old_rec.hierarchy_type <> nvl(p_rec.hierarchy_type,hr_api.g_varchar2)) THEN
208: fnd_message.set_name('PER', 'HR_289900_PGT_HTYPE_NO_UPD');
209: fnd_message.raise_error;
210: END IF;
211: --
208: fnd_message.set_name('PER', 'HR_289900_PGT_HTYPE_NO_UPD');
209: fnd_message.raise_error;
210: END IF;
211: --
212: IF (nvl(per_pgt_shd.g_old_rec.business_group_id,hr_api.g_number)
213: <> nvl(p_rec.business_group_id,hr_api.g_number)) THEN
214: fnd_message.set_name('PER', 'HR_289901_PGT_BG_NO_UPD');
215: fnd_message.raise_error;
216: END IF;
412: If p_parent_node_type IS NOT NULL then
413: -- validate for ins and upd
414: If (p_hier_node_type_id is null
415: or (p_hier_node_type_id is not null
416: and nvl(per_pgt_shd.g_old_rec.parent_node_type,hr_api.g_varchar2)
417: <> p_parent_node_type))
418: then
419: If hr_api.not_exists_in_hrstanlookups
420: (p_effective_date => p_effective_date
454: -- conditionally check that the parent_node is not being updated to the same
455: -- value as the child node
456: If (not(l_err_flag) and not(l_err_parent_flag)) and
457: (p_hier_node_type_id is not null and
458: per_pgt_shd.g_old_rec.child_node_type = p_parent_node_type)
459: then
460: fnd_message.set_name('PER', 'HR_289907_PGT_CNODE_IS_PNODE');
461: hr_multi_message.add
462: (p_associated_column1 => 'PER_GEN_HIER_NODE_TYPES.PARENT_NODE_TYPE');
466: Else
467: hr_utility.set_location(l_proc, 40);
468: If (hr_multi_message.no_exclusive_error('PER_GEN_HIER_NODE_TYPES.HIERARCHY_TYPE')
469: and p_hier_node_type_id is null or (p_hier_node_type_id is not null
470: and per_pgt_shd.g_old_rec.parent_node_type IS NOT NULL )) then
471: -- parent node is null so if ins or upd and this isnt already top node
472: -- confirm that we can set this node as the top node
473: -- scope in the hierarchy
474: Open csr_top_node(p_hierarchy_type);
533: fnd_message.set_name('PER', 'HR_289911_PGT_CHILD_VS_NULL');
534: fnd_message.raise_error;
535: Else
536: If p_hier_node_type_id is null or
537: per_pgt_shd.g_old_rec.child_value_set <> p_child_value_set then
538: -- confirm that VS exist
539: Open csr_vs;
540: Fetch csr_vs into l_dummy;
541: If csr_vs%notfound then
579: -- |---------------------------< insert_validate >----------------------------|
580: -- ----------------------------------------------------------------------------
581: Procedure insert_validate
582: (p_effective_date in date
583: ,p_rec in per_pgt_shd.g_rec_type
584: ) is
585: --
586: l_proc varchar2(72) := g_package||'insert_validate';
587: --
608:
609: If p_rec.business_group_id is not null then
610: hr_api.validate_bus_grp_id
611: (p_business_group_id => p_rec.business_group_id
612: ,p_associated_column1 => per_pgt_shd.g_tab_nam
613: || '.BUSINESS_GROUP_ID');
614: End If;
615:
616: -- validate HIERARCHY_TYPE
642: -- |---------------------------< update_validate >----------------------------|
643: -- ----------------------------------------------------------------------------
644: Procedure update_validate
645: (p_effective_date in date
646: ,p_rec in per_pgt_shd.g_rec_type
647: ) is
648: --
649: l_proc varchar2(72) := g_package||'update_validate';
650: --
655: --
656: If p_rec.business_group_id is not null then
657: hr_api.validate_bus_grp_id
658: (p_business_group_id => p_rec.business_group_id
659: ,p_associated_column1 => per_pgt_shd.g_tab_nam
660: || '.BUSINESS_GROUP_ID');
661: End If;
662:
663:
693: -- ----------------------------------------------------------------------------
694: -- |---------------------------< delete_validate >----------------------------|
695: -- ----------------------------------------------------------------------------
696: Procedure delete_validate
697: (p_rec in per_pgt_shd.g_rec_type
698: ) is
699:
700: -- csr to see if any hierarchy nodes reference this scope
701: CURSOR csr_node_used is