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,
6 X_NODE_TYPE in VARCHAR2,
7 X_AK_FLOW_NAME in VARCHAR2,
8 X_AK_PARENT_PAGE_NAME in VARCHAR2,
9 X_AK_PK_NAME in VARCHAR2,
10 X_AK_WHERE_CLAUSE in VARCHAR2,
11 X_AK_WHERE_BINDS in VARCHAR2,
12 X_ICON_NAME in VARCHAR2,
13 X_FORM_NAME in VARCHAR2,
14 X_FORM_PARAM_LIST in VARCHAR2,
15 X_STATIC_CHILD_FLAG in VARCHAR2,
16 X_CREATION_DATE in DATE,
17 X_CREATED_BY in NUMBER,
18 X_LAST_UPDATE_DATE in DATE,
19 X_LAST_UPDATED_BY 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(
29 node_type_id,
30 tree_root_id,
31 NODE_TYPE,
32 AK_FLOW_NAME,
33 AK_PARENT_PAGE_NAME,
34 AK_PK_NAME,
35 AK_WHERE_CLAUSE,
36 AK_WHERE_BINDS,
37 ICON_NAME,
38 FORM_NAME,
39 FORM_PARAM_LIST,
40 STATIC_CHILD_FLAG,
41 CREATED_BY,
42 CREATION_DATE,
43 LAST_UPDATE_LOGIN,
44 LAST_UPDATE_DATE,
45 LAST_UPDATED_BY) values (
46 l_node_type_id,
47 X_tree_root_id,
48 X_NODE_TYPE,
49 X_AK_FLOW_NAME,
50 X_AK_PARENT_PAGE_NAME,
51 X_AK_PK_NAME,
52 X_AK_WHERE_CLAUSE,
53 X_AK_WHERE_BINDS,
54 X_ICON_NAME,
55 X_FORM_NAME,
56 X_FORM_PARAM_LIST,
57 X_STATIC_CHILD_FLAG,
58 X_CREATED_BY,
59 X_CREATION_DATE,
60 X_LAST_UPDATE_LOGIN,
61 X_LAST_UPDATE_DATE,
62 X_LAST_UPDATED_BY);
63
64 end INSERT_ROW;
65
66 procedure LOCK_ROW
67 (x_node_type_id IN number,
68 X_tree_root_id in number,
69 X_NODE_TYPE in VARCHAR2,
70 X_AK_FLOW_NAME in VARCHAR2,
71 X_AK_PARENT_PAGE_NAME in VARCHAR2,
72 X_AK_PK_NAME in VARCHAR2,
73 X_AK_WHERE_CLAUSE in VARCHAR2,
74 X_AK_WHERE_BINDS in VARCHAR2,
75 X_ICON_NAME in VARCHAR2,
76 X_FORM_NAME in VARCHAR2,
77 X_FORM_PARAM_LIST in VARCHAR2,
78 X_STATIC_CHILD_FLAG in VARCHAR2
79 ) is
80 cursor c1 is select
81 AK_FLOW_NAME,
82 AK_PARENT_PAGE_NAME,
83 AK_PK_NAME,
84 AK_WHERE_CLAUSE,
85 AK_WHERE_BINDS,
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
95 if (((tlinfo.ICON_NAME = X_ICON_NAME)
96 OR ((tlinfo.ICON_NAME is null) AND (X_ICON_NAME is null)))
97 AND ((tlinfo.AK_FLOW_NAME = X_AK_FLOW_NAME)
98 OR ((tlinfo.AK_FLOW_NAME is null) AND (X_AK_FLOW_NAME is null)))
99 AND ((tlinfo.AK_PARENT_PAGE_NAME = X_AK_PARENT_PAGE_NAME)
100 OR ((tlinfo.AK_PARENT_PAGE_NAME is null) AND (X_AK_PARENT_PAGE_NAME is null)))
101 AND ((tlinfo.AK_PK_NAME = X_AK_PK_NAME)
102 OR ((tlinfo.AK_PK_NAME is null) AND (X_AK_PK_NAME is null)))
103 AND ((tlinfo.AK_WHERE_CLAUSE = X_AK_WHERE_CLAUSE)
104 OR ((tlinfo.AK_WHERE_CLAUSE is null) AND (X_AK_WHERE_CLAUSE is null)))
105 AND ((tlinfo.AK_WHERE_BINDS = X_AK_WHERE_BINDS)
106 OR ((tlinfo.AK_WHERE_BINDS is null) AND (X_AK_WHERE_BINDS is null)))
107 AND ((tlinfo.FORM_NAME = X_FORM_NAME)
108 OR ((tlinfo.FORM_NAME is null) AND (X_FORM_NAME is null)))
109 AND ((tlinfo.FORM_PARAM_LIST = X_FORM_PARAM_LIST)
110 OR ((tlinfo.FORM_PARAM_LIST is null) AND (X_FORM_PARAM_LIST is null)))
111 AND ((tlinfo.STATIC_CHILD_FLAG = X_STATIC_CHILD_FLAG)
112 OR ((tlinfo.STATIC_CHILD_FLAG is null) AND (X_STATIC_CHILD_FLAG is null)))
113 AND ((tlinfo.ICON_NAME = X_ICON_NAME)
114 OR ((tlinfo.ICON_NAME is null) AND (X_ICON_NAME is null)))
115 AND ((tlinfo.FORM_NAME = X_FORM_NAME)
116 OR ((tlinfo.FORM_NAME is null) AND (X_FORM_NAME is null)))
117 AND ((tlinfo.FORM_PARAM_LIST = X_FORM_PARAM_LIST)
118 OR ((tlinfo.FORM_PARAM_LIST is null) AND (X_FORM_PARAM_LIST is null)))
119 AND ((tlinfo.STATIC_CHILD_FLAG = X_STATIC_CHILD_FLAG)
120 OR ((tlinfo.STATIC_CHILD_FLAG is null) AND (X_STATIC_CHILD_FLAG is null)))
121 ) then
122 null;
123 else
124 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
125 app_exception.raise_exception;
126 end if;
127 end loop;
128 return;
129 end LOCK_ROW;
130
131 procedure UPDATE_ROW
132 (x_node_type_id IN number,
133 X_tree_root_id in number,
134 X_NODE_TYPE in VARCHAR2,
135 X_AK_FLOW_NAME in VARCHAR2,
136 X_AK_PARENT_PAGE_NAME in VARCHAR2,
137 X_AK_PK_NAME in VARCHAR2,
138 X_AK_WHERE_CLAUSE in VARCHAR2,
139 X_AK_WHERE_BINDS in VARCHAR2,
140 X_ICON_NAME in VARCHAR2,
141 X_FORM_NAME in VARCHAR2,
142 X_FORM_PARAM_LIST in VARCHAR2,
143 X_STATIC_CHILD_FLAG in VARCHAR2,
144 X_LAST_UPDATE_DATE in DATE,
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,
154 AK_WHERE_CLAUSE = X_AK_WHERE_CLAUSE,
155 AK_WHERE_BINDS = X_AK_WHERE_BINDS,
156 ICON_NAME = X_ICON_NAME,
157 FORM_NAME = X_FORM_NAME,
158 FORM_PARAM_LIST = X_FORM_PARAM_LIST,
159 STATIC_CHILD_FLAG = X_STATIC_CHILD_FLAG,
160 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
161 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
162 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
163 where node_type_id = x_node_type_id;
164
165 if (sql%notfound) then
166 raise no_data_found;
167 end if;
168 end UPDATE_ROW;
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;