84: l_lookup_code := p_child_node_type;
85: end if;
86: end if;
87:
88: -- Now we attempt to create an fnd_lookup_values record for the node using the
89: -- (supplied or generated) code and user supplied values for p_child_node_name (meaning)
90: -- and p_description (description)
91:
92: BEGIN
90: -- and p_description (description)
91:
92: BEGIN
93:
94: fnd_lookup_values_pkg.INSERT_ROW(X_ROWID => l_rowid,
95: X_SECURITY_GROUP_ID => 0,
96: X_LOOKUP_TYPE => 'HIERARCHY_NODE_TYPE',
97: X_VIEW_APPLICATION_ID => 3,
98: X_LOOKUP_CODE => l_lookup_code,
256: FROM per_gen_hier_node_types
257: WHERE hier_node_type_id = p_hier_node_type_id);
258: --
259: --
260: l_lookup_code fnd_lookup_values.lookup_code%type := null;
261: l_created_by fnd_lookup_values.created_by%type := null;
262: l_meaning fnd_lookup_values.meaning%type := null;
263: l_desc fnd_lookup_values.description%type := null;
264: l_update_attempted boolean := false;
257: WHERE hier_node_type_id = p_hier_node_type_id);
258: --
259: --
260: l_lookup_code fnd_lookup_values.lookup_code%type := null;
261: l_created_by fnd_lookup_values.created_by%type := null;
262: l_meaning fnd_lookup_values.meaning%type := null;
263: l_desc fnd_lookup_values.description%type := null;
264: l_update_attempted boolean := false;
265: l_proc varchar2(80) := g_package||'update_node_type';
258: --
259: --
260: l_lookup_code fnd_lookup_values.lookup_code%type := null;
261: l_created_by fnd_lookup_values.created_by%type := null;
262: l_meaning fnd_lookup_values.meaning%type := null;
263: l_desc fnd_lookup_values.description%type := null;
264: l_update_attempted boolean := false;
265: l_proc varchar2(80) := g_package||'update_node_type';
266: l_hier_node_type_id per_gen_hier_node_types.hier_node_type_id%TYPE;
259: --
260: l_lookup_code fnd_lookup_values.lookup_code%type := null;
261: l_created_by fnd_lookup_values.created_by%type := null;
262: l_meaning fnd_lookup_values.meaning%type := null;
263: l_desc fnd_lookup_values.description%type := null;
264: l_update_attempted boolean := false;
265: l_proc varchar2(80) := g_package||'update_node_type';
266: l_hier_node_type_id per_gen_hier_node_types.hier_node_type_id%TYPE;
267: l_object_version_number per_gen_hier_node_types.object_version_number%TYPE;
318:
319:
320: If l_update_attempted then
321: BEGIN
322: -- lock the fnd_lookup_values record first....
323:
324: -- Now try the update of lookup meaning and desc
325: -- for the child_node_type
326:
323:
324: -- Now try the update of lookup meaning and desc
325: -- for the child_node_type
326:
327: fnd_lookup_values_pkg.UPDATE_ROW(X_LOOKUP_TYPE => 'HIERARCHY_NODE_TYPE',
328: X_SECURITY_GROUP_ID => 0,
329: X_VIEW_APPLICATION_ID => 3,
330: X_LOOKUP_CODE => l_lookup_code,
331: X_TAG => null,
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
504: end if;
505:
506: --
507: -- Call Before Process User Hook
533: --
534: --
535: BEGIN
536: -- Delete the lookup code now the node_type has gone
537: fnd_lookup_values_pkg.DELETE_ROW
538: (X_LOOKUP_TYPE => 'HIERARCHY_NODE_TYPE'
539: ,X_SECURITY_GROUP_ID => 0
540: ,X_VIEW_APPLICATION_ID => 3
541: ,X_LOOKUP_CODE => l_child_node_type);