55: close csr_sec_grp;
56: --
57: -- The primary key is invalid therefore we must error
58: --
59: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
60: fnd_message.raise_error;
61: --
62: end if;
63: close csr_sec_grp;
56: --
57: -- The primary key is invalid therefore we must error
58: --
59: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
60: fnd_message.raise_error;
61: --
62: end if;
63: close csr_sec_grp;
64: --
128: --
129: -- The primary key is invalid therefore we must error
130: --
131: close csr_leg_code;
132: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
133: fnd_message.raise_error;
134: end if;
135: hr_utility.set_location(l_proc,30);
136: --
129: -- The primary key is invalid therefore we must error
130: --
131: close csr_leg_code;
132: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
133: fnd_message.raise_error;
134: end if;
135: hr_utility.set_location(l_proc,30);
136: --
137: -- Set the global variables so the values are
546: IF NOT per_pgn_shd.api_updating
547: (p_hierarchy_node_id => p_rec.hierarchy_node_id
548: ,p_object_version_number => p_rec.object_version_number
549: ) THEN
550: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
551: fnd_message.set_token('PROCEDURE ', l_proc);
552: fnd_message.set_token('STEP ', '5');
553: fnd_message.raise_error;
554: END IF;
547: (p_hierarchy_node_id => p_rec.hierarchy_node_id
548: ,p_object_version_number => p_rec.object_version_number
549: ) THEN
550: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
551: fnd_message.set_token('PROCEDURE ', l_proc);
552: fnd_message.set_token('STEP ', '5');
553: fnd_message.raise_error;
554: END IF;
555: --
548: ,p_object_version_number => p_rec.object_version_number
549: ) THEN
550: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
551: fnd_message.set_token('PROCEDURE ', l_proc);
552: fnd_message.set_token('STEP ', '5');
553: fnd_message.raise_error;
554: END IF;
555: --
556: -- EDIT_HERE: Add checks to ensure non-updateable args have
549: ) THEN
550: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
551: fnd_message.set_token('PROCEDURE ', l_proc);
552: fnd_message.set_token('STEP ', '5');
553: fnd_message.raise_error;
554: END IF;
555: --
556: -- EDIT_HERE: Add checks to ensure non-updateable args have
557: -- not been updated.
653: --
654: fetch csr_org_exists into l_ent_exists;
655: if csr_org_exists%notfound then
656: close csr_org_exists;
657: fnd_message.set_name('PER', 'HR_289060_PGN_INV_HIER_ORG');
658: fnd_message.raise_error;
659: end if;
660: --
661: close csr_org_exists;
654: fetch csr_org_exists into l_ent_exists;
655: if csr_org_exists%notfound then
656: close csr_org_exists;
657: fnd_message.set_name('PER', 'HR_289060_PGN_INV_HIER_ORG');
658: fnd_message.raise_error;
659: end if;
660: --
661: close csr_org_exists;
662: elsif p_node_type = 'LOC' then
666: open csr_loc_exists;
667: fetch csr_loc_exists into l_ent_exists;
668: if csr_loc_exists%notfound then
669: close csr_loc_exists;
670: fnd_message.set_name('PER', 'HR_289061_PGN_INV_HIER_LOC');
671: fnd_message.raise_error;
672: else
673: close csr_loc_exists;
674: end if;
667: fetch csr_loc_exists into l_ent_exists;
668: if csr_loc_exists%notfound then
669: close csr_loc_exists;
670: fnd_message.set_name('PER', 'HR_289061_PGN_INV_HIER_LOC');
671: fnd_message.raise_error;
672: else
673: close csr_loc_exists;
674: end if;
675: elsif p_node_type = 'EST' then
679: open csr_loc_extra_exists;
680: fetch csr_loc_extra_exists into l_ent_exists;
681: if csr_loc_extra_exists%notfound then
682: close csr_loc_extra_exists;
683: fnd_message.set_name('PER', 'HR_289062_PGN_INV_HIER_EST');
684: fnd_message.raise_error;
685: else
686: close csr_loc_extra_exists;
687: end if;
680: fetch csr_loc_extra_exists into l_ent_exists;
681: if csr_loc_extra_exists%notfound then
682: close csr_loc_extra_exists;
683: fnd_message.set_name('PER', 'HR_289062_PGN_INV_HIER_EST');
684: fnd_message.raise_error;
685: else
686: close csr_loc_extra_exists;
687: end if;
688: -- else
687: end if;
688: -- else
689: --
690: -- hr_utility.set_location(l_proc, 50);
691: -- fnd_message.set_name('PER', 'HR_289063_INV_NODE_TYPE');
692: -- fnd_message.raise_error;
693: --
694: end if;
695: --
688: -- else
689: --
690: -- hr_utility.set_location(l_proc, 50);
691: -- fnd_message.set_name('PER', 'HR_289063_INV_NODE_TYPE');
692: -- fnd_message.raise_error;
693: --
694: end if;
695: --
696: hr_utility.set_location(l_proc, 60);
702: --
703: fetch csr_ent_exists into l_ent_exists;
704: if csr_ent_exists%found then
705: close csr_ent_exists;
706: fnd_message.set_name('PER', 'HR_289064_PGN_DUP_ENTITY');
707: fnd_message.raise_error;
708: end if;
709: --
710: close csr_ent_exists;
703: fetch csr_ent_exists into l_ent_exists;
704: if csr_ent_exists%found then
705: close csr_ent_exists;
706: fnd_message.set_name('PER', 'HR_289064_PGN_DUP_ENTITY');
707: fnd_message.raise_error;
708: end if;
709: --
710: close csr_ent_exists;
711: end if;
756: open csr_hier_vers;
757: fetch csr_hier_vers into l_exists;
758: if csr_hier_vers%notfound then
759: close csr_hier_vers;
760: fnd_message.set_name('PER','HR_289065_PGN_INV_HIER_VERS');
761: fnd_message.raise_error;
762: else
763: close csr_hier_vers;
764: end if;
757: fetch csr_hier_vers into l_exists;
758: if csr_hier_vers%notfound then
759: close csr_hier_vers;
760: fnd_message.set_name('PER','HR_289065_PGN_INV_HIER_VERS');
761: fnd_message.raise_error;
762: else
763: close csr_hier_vers;
764: end if;
765: --
813: NOT l_api_updating) then
814: open c1;
815: fetch c1 into l_seq;
816: if c1%found then
817: fnd_message.set_name('PER', 'HR_289066_PGN_INV_SEQ');
818: fnd_message.raise_error;
819: end if;
820: close c1;
821: --
814: open c1;
815: fetch c1 into l_seq;
816: if c1%found then
817: fnd_message.set_name('PER', 'HR_289066_PGN_INV_SEQ');
818: fnd_message.raise_error;
819: end if;
820: close c1;
821: --
822: hr_utility.set_location(l_proc, 30);
821: --
822: hr_utility.set_location(l_proc, 30);
823: --
824: if p_seq < 0 then
825: fnd_message.set_name('PER', 'HR_289082_PGN_NEG_SEQ');
826: fnd_message.raise_error;
827: end if;
828: --
829: end if;
822: hr_utility.set_location(l_proc, 30);
823: --
824: if p_seq < 0 then
825: fnd_message.set_name('PER', 'HR_289082_PGN_NEG_SEQ');
826: fnd_message.raise_error;
827: end if;
828: --
829: end if;
830: hr_utility.set_location('Leaving:'||l_proc, 40);
886: ( p_effective_date => p_effective_date
887: , p_lookup_type => 'HIERARCHY_NODE_TYPE'
888: , p_lookup_code => p_node_type
889: ) then
890: fnd_message.set_name('PER', 'HR_289063_PGN_INV_NODE_TYPE');
891: fnd_message.raise_error;
892: --
893: end if;
894: --
887: , p_lookup_type => 'HIERARCHY_NODE_TYPE'
888: , p_lookup_code => p_node_type
889: ) then
890: fnd_message.set_name('PER', 'HR_289063_PGN_INV_NODE_TYPE');
891: fnd_message.raise_error;
892: --
893: end if;
894: --
895: hr_utility.set_location(l_proc, 40);
897: if p_node_type = 'PAR' then
898: open c1;
899: fetch c1 into l_exists;
900: if c1%found then
901: fnd_message.set_name('PER', 'HR_289067_PGN_TOO_MANY_PARENTS');
902: fnd_message.raise_error;
903: end if;
904: close c1;
905: end if;
898: open c1;
899: fetch c1 into l_exists;
900: if c1%found then
901: fnd_message.set_name('PER', 'HR_289067_PGN_TOO_MANY_PARENTS');
902: fnd_message.raise_error;
903: end if;
904: close c1;
905: end if;
906: --
964: open csr_par_node;
965: fetch csr_par_node into l_exists;
966: if csr_par_node%notfound then
967: close csr_par_node;
968: fnd_message.set_name('PER', 'HR_289068_PGN_INV_PARENT_ID');
969: fnd_message.raise_error;
970: else
971: close csr_par_node;
972: end if;
965: fetch csr_par_node into l_exists;
966: if csr_par_node%notfound then
967: close csr_par_node;
968: fnd_message.set_name('PER', 'HR_289068_PGN_INV_PARENT_ID');
969: fnd_message.raise_error;
970: else
971: close csr_par_node;
972: end if;
973: else
974: --
975: hr_utility.set_location(l_proc, 40);
976: --
977: -- if p_node_type <> 'PAR' then
978: -- fnd_message.set_name('PER', 'HR_289069_PGN_PARENT_ID');
979: -- fnd_message.raise_error;
980: -- end if;
981: end if;
982: end if;
975: hr_utility.set_location(l_proc, 40);
976: --
977: -- if p_node_type <> 'PAR' then
978: -- fnd_message.set_name('PER', 'HR_289069_PGN_PARENT_ID');
979: -- fnd_message.raise_error;
980: -- end if;
981: end if;
982: end if;
983: hr_utility.set_location('Leaving:'||l_proc,50);
1022: if csr_node_id%notfound then
1023: close csr_node_id;
1024: else
1025: close csr_node_id;
1026: fnd_message.set_name('PER', 'HR_289070_PGN_DEL_PARENT');
1027: fnd_message.raise_error;
1028: end if;
1029:
1030: -- check if there is a row referencing this record
1023: close csr_node_id;
1024: else
1025: close csr_node_id;
1026: fnd_message.set_name('PER', 'HR_289070_PGN_DEL_PARENT');
1027: fnd_message.raise_error;
1028: end if;
1029:
1030: -- check if there is a row referencing this record
1031: -- in the Calendar Module schema before allowing update.
1034: if csr_ev%notfound then
1035: close csr_ev;
1036: else
1037: close csr_ev;
1038: fnd_message.set_name('PER', 'HR_449077_CAL_ENTRY_VAL_EXISTS');
1039: fnd_message.raise_error;
1040: end if;
1041:
1042: --
1035: close csr_ev;
1036: else
1037: close csr_ev;
1038: fnd_message.set_name('PER', 'HR_449077_CAL_ENTRY_VAL_EXISTS');
1039: fnd_message.raise_error;
1040: end if;
1041:
1042: --
1043: hr_utility.set_location('Leaving :'||l_proc, 10);