57: l_effective_date := trunc(p_effective_date);
58:
59: -- check that node name has been supplied (mandatory)
60: if p_child_node_name is null then
61: fnd_message.set_name('PER','HR_289891_PGT_NAME_NULL');
62: fnd_message.raise_error;
63: end if;
64:
65: -- First generate a lookup_code from sequence, if none supplied
58:
59: -- check that node name has been supplied (mandatory)
60: if p_child_node_name is null then
61: fnd_message.set_name('PER','HR_289891_PGT_NAME_NULL');
62: fnd_message.raise_error;
63: end if;
64:
65: -- First generate a lookup_code from sequence, if none supplied
66: if p_child_node_type is null then
75: if csr_lookup_unique%found then
76: close csr_lookup_unique;
77: -- raise error as the supplied lookup_code already exists
78: -- for the HIERARCHY_NODE_TYPE lookup
79: fnd_message.set_name('PER','HR_289892_PGT_LOOKUP_EXISTS');
80: fnd_message.set_token('NODE',p_child_node_type);
81: fnd_message.raise_error;
82: else
83: close csr_lookup_unique;
76: close csr_lookup_unique;
77: -- raise error as the supplied lookup_code already exists
78: -- for the HIERARCHY_NODE_TYPE lookup
79: fnd_message.set_name('PER','HR_289892_PGT_LOOKUP_EXISTS');
80: fnd_message.set_token('NODE',p_child_node_type);
81: fnd_message.raise_error;
82: else
83: close csr_lookup_unique;
84: l_lookup_code := p_child_node_type;
77: -- raise error as the supplied lookup_code already exists
78: -- for the HIERARCHY_NODE_TYPE lookup
79: fnd_message.set_name('PER','HR_289892_PGT_LOOKUP_EXISTS');
80: fnd_message.set_token('NODE',p_child_node_type);
81: fnd_message.raise_error;
82: else
83: close csr_lookup_unique;
84: l_lookup_code := p_child_node_type;
85: end if;
127:
128:
129: EXCEPTION
130: WHEN OTHERS THEN
131: fnd_message.set_name('PER','HR_289893_PGT_LOOKUP_INS_FAIL');
132: fnd_message.raise_error;
133: END;
134:
135: --
128:
129: EXCEPTION
130: WHEN OTHERS THEN
131: fnd_message.set_name('PER','HR_289893_PGT_LOOKUP_INS_FAIL');
132: fnd_message.raise_error;
133: END;
134:
135: --
136: -- Call Before Process User Hook
299: close csr_lookup;
300:
301: If l_meaning is null then
302: -- The lookup code does not exist so error
303: fnd_message.set_name('PER','HR_289894_PGT_LOOKUP_NOT_FOUND');
304: fnd_message.set_token('ID',to_char(p_hier_node_type_id));
305: fnd_message.raise_error;
306: End if;
307:
300:
301: If l_meaning is null then
302: -- The lookup code does not exist so error
303: fnd_message.set_name('PER','HR_289894_PGT_LOOKUP_NOT_FOUND');
304: fnd_message.set_token('ID',to_char(p_hier_node_type_id));
305: fnd_message.raise_error;
306: End if;
307:
308: If l_meaning <> p_child_node_name or nvl(l_desc,'1') <> nvl(p_description,'1') then
301: If l_meaning is null then
302: -- The lookup code does not exist so error
303: fnd_message.set_name('PER','HR_289894_PGT_LOOKUP_NOT_FOUND');
304: fnd_message.set_token('ID',to_char(p_hier_node_type_id));
305: fnd_message.raise_error;
306: End if;
307:
308: If l_meaning <> p_child_node_name or nvl(l_desc,'1') <> nvl(p_description,'1') then
309: l_update_attempted := TRUE;
311:
312: If l_created_by = 1 and l_update_attempted then
313: -- cannot update a seeded lookup code (auto-install)
314: l_update_attempted := false;
315: fnd_message.set_name('PER','HR_289895_PGT_LOOKUP_NO_UPDATE');
316: fnd_message.raise_error;
317: End if;
318:
319:
312: If l_created_by = 1 and l_update_attempted then
313: -- cannot update a seeded lookup code (auto-install)
314: l_update_attempted := false;
315: fnd_message.set_name('PER','HR_289895_PGT_LOOKUP_NO_UPDATE');
316: fnd_message.raise_error;
317: End if;
318:
319:
320: If l_update_attempted then
356: X_LAST_UPDATE_LOGIN => fnd_global.login_id);
357:
358: EXCEPTION
359: WHEN OTHERS THEN
360: fnd_message.set_name('PER','HR_289896_PGT_LOOKUP_UPD_FAIL');
361: fnd_message.raise_error;
362: END;
363: end if;
364: else -- cannot update p_child_node_name to null
357:
358: EXCEPTION
359: WHEN OTHERS THEN
360: fnd_message.set_name('PER','HR_289896_PGT_LOOKUP_UPD_FAIL');
361: fnd_message.raise_error;
362: END;
363: end if;
364: else -- cannot update p_child_node_name to null
365: fnd_message.set_name('PER','HR_289897_PGT_LOOKUP_NULL');
361: fnd_message.raise_error;
362: END;
363: end if;
364: else -- cannot update p_child_node_name to null
365: fnd_message.set_name('PER','HR_289897_PGT_LOOKUP_NULL');
366: fnd_message.raise_error;
367: end if;
368:
369: --
362: END;
363: end if;
364: else -- cannot update p_child_node_name to null
365: fnd_message.set_name('PER','HR_289897_PGT_LOOKUP_NULL');
366: fnd_message.raise_error;
367: end if;
368:
369: --
370: -- Call Before Process User Hook
493: open csr_get_child_code;
494: fetch csr_get_child_code into l_child_node_type;
495: If csr_get_child_code%notfound then
496: close csr_get_child_code;
497: fnd_message.set_name('PER','HR_289894_PGT_LOOKUP_NOT_FOUND');
498: fnd_message.set_token('ID',to_char(p_hier_node_type_id));
499: fnd_message.raise_error;
500: else
501: close csr_get_child_code;
494: fetch csr_get_child_code into l_child_node_type;
495: If csr_get_child_code%notfound then
496: close csr_get_child_code;
497: fnd_message.set_name('PER','HR_289894_PGT_LOOKUP_NOT_FOUND');
498: fnd_message.set_token('ID',to_char(p_hier_node_type_id));
499: fnd_message.raise_error;
500: else
501: close csr_get_child_code;
502:
495: If csr_get_child_code%notfound then
496: close csr_get_child_code;
497: fnd_message.set_name('PER','HR_289894_PGT_LOOKUP_NOT_FOUND');
498: fnd_message.set_token('ID',to_char(p_hier_node_type_id));
499: fnd_message.raise_error;
500: else
501: close csr_get_child_code;
502:
503: -- lock the fnd_lookup_values record before deleting the node type
541: ,X_LOOKUP_CODE => l_child_node_type);
542:
543: EXCEPTION
544: WHEN OTHERS THEN
545: fnd_message.set_name('PER','HR_289898_PGT_LOOKUP_DEL_FAIL');
546: fnd_message.raise_error;
547: END;
548: --
549: --
542:
543: EXCEPTION
544: WHEN OTHERS THEN
545: fnd_message.set_name('PER','HR_289898_PGT_LOOKUP_DEL_FAIL');
546: fnd_message.raise_error;
547: END;
548: --
549: --
550: -- Call After Process User Hook