1: package body JTF_NAV_NODE_TYPES_PKG as
2: /* $Header: jtfnntb.pls 120.1 2005/07/02 00:50:04 appldev ship $ */
3:
4: procedure INSERT_ROW
5: (X_tree_root_id in number,
20: X_LAST_UPDATE_LOGIN in NUMBER) IS
21:
22: l_node_type_id number := 0;
23: BEGIN
24: SELECT jtf_nav_node_types_s.nextval
25: INTO l_node_type_id
26: FROM dual;
27:
28: insert into JTF_NAV_NODE_TYPES(
24: SELECT jtf_nav_node_types_s.nextval
25: INTO l_node_type_id
26: FROM dual;
27:
28: insert into JTF_NAV_NODE_TYPES(
29: node_type_id,
30: tree_root_id,
31: NODE_TYPE,
32: AK_FLOW_NAME,
86: ICON_NAME,
87: FORM_NAME,
88: FORM_PARAM_LIST,
89: STATIC_CHILD_FLAG
90: from JTF_NAV_NODE_TYPES
91: WHERE NODE_type_id = X_NODE_type_id
92: for update of node_type_id nowait;
93: begin
94: for tlinfo in c1 loop
145: X_LAST_UPDATED_BY in NUMBER,
146: X_LAST_UPDATE_LOGIN in NUMBER
147: ) is
148: begin
149: update JTF_NAV_NODE_TYPES SET
150: node_type = x_node_type,
151: AK_FLOW_NAME = X_AK_FLOW_NAME,
152: AK_PARENT_PAGE_NAME = X_AK_PARENT_PAGE_NAME,
153: AK_PK_NAME = X_AK_PK_NAME,
169:
170: procedure DELETE_ROW
171: (X_NODE_type_ID in number) is
172: begin
173: delete from JTF_NAV_NODE_TYPES
174: where node_type_id = x_node_type_id;
175:
176: if (sql%notfound) then
177: raise no_data_found;
178: end if;
179:
180: end DELETE_ROW;
181:
182: end JTF_NAV_NODE_TYPES_PKG;