[Home] [Help]
PACKAGE BODY: APPS.FND_APPFLDR
Source
1 PACKAGE BODY fnd_appfldr AS
2 /* $Header: AFFLDRB.pls 120.1 2005/07/02 04:06:47 appldev ship $ */
3
4
5 FUNCTION insert_fnd_folders (l_object VARCHAR2,
6 l_name VARCHAR2,
7 l_language VARCHAR2,
8 l_window_width NUMBER,
9 l_public_flag VARCHAR2,
10 l_autoquery_flag VARCHAR2,
11 l_created_by NUMBER,
12 l_last_updated_by NUMBER,
13 l_where_clause VARCHAR2 default null,
14 l_order_by VARCHAR2 default null) RETURN NUMBER IS
15 PRAGMA AUTONOMOUS_TRANSACTION;
16
17 l_folder_id number;
18 cursor next_folder_id is
19 select fnd_folders_s.nextval
20 from dual;
21
22 BEGIN
23 --
24 -- Get the folder_id from the sequence
25 --
26 open next_folder_id;
27 fetch next_folder_id into l_folder_id;
28 close next_folder_id;
29 --
30 insert into fnd_folders(
31 folder_id,
32 object,
33 name,
34 language,
35 window_width,
36 public_flag,
37 autoquery_flag,
38 creation_date,
39 created_by,
40 last_update_date,
41 last_updated_by,
42 last_update_login,
43 where_clause,
44 order_by)
45 values (
46 l_folder_id,
47 l_object,
48 l_name,
49 l_language,
50 l_window_width,
51 l_public_flag,
52 l_autoquery_flag,
53 sysdate,
54 l_created_by,
55 sysdate,
56 l_last_updated_by,
57 null,
58 l_where_clause,
59 l_order_by);
60
61 COMMIT;
62 return l_folder_id;
63 END insert_fnd_folders;
64
65
66 PROCEDURE insert_fnd_folder_columns (l_folder_id NUMBER,
67 l_display_mode VARCHAR2,
68 l_item_name VARCHAR2,
69 l_sequence NUMBER,
70 l_created_by NUMBER,
71 l_last_updated_by NUMBER,
72 l_item_width NUMBER,
73 l_item_prompt VARCHAR2,
74 l_x_position NUMBER,
75 l_y_position NUMBER) IS
76 PRAGMA AUTONOMOUS_TRANSACTION;
77 BEGIN
78 insert into fnd_folder_columns(
79 folder_id,
80 display_mode,
81 item_name,
82 sequence,
83 creation_date,
84 created_by,
85 last_update_date,
86 last_updated_by,
87 last_update_login,
88 item_width,
89 item_prompt,
90 x_position,
91 y_position)
92 values (
93 l_folder_id,
94 l_display_mode,
95 l_item_name,
96 l_sequence,
97 sysdate,
98 l_created_by,
99 sysdate,
100 l_last_updated_by,
101 null,
102 l_item_width,
103 l_item_prompt,
104 l_x_position,
105 l_y_position);
106
107 COMMIT;
108 END insert_fnd_folder_columns;
109
110
111 PROCEDURE insert_fnd_default_folders (l_object VARCHAR2,
112 l_user_id NUMBER,
113 l_folder_id NUMBER,
114 l_created_by NUMBER,
115 l_last_updated_by NUMBER) IS
116 PRAGMA AUTONOMOUS_TRANSACTION;
117 BEGIN
118 insert into fnd_default_folders(
119 object,
120 user_id,
121 folder_id,
122 creation_date,
123 created_by,
124 last_update_date,
125 last_updated_by,
126 last_update_login)
127 values (
128 l_object,
129 l_user_id,
130 l_folder_id,
131 sysdate,
132 l_created_by,
133 sysdate,
134 l_last_updated_by,
135 null);
136
137 COMMIT;
138 END insert_fnd_default_folders;
139
140
141 PROCEDURE update_fnd_folders (l_folder_id NUMBER,
142 l_name VARCHAR2,
143 l_window_width NUMBER,
144 l_public_flag VARCHAR2,
145 l_autoquery_flag VARCHAR2,
146 l_created_by NUMBER,
147 l_last_updated_by NUMBER,
148 l_where_clause VARCHAR2,
149 l_order_by VARCHAR2) IS
150 PRAGMA AUTONOMOUS_TRANSACTION;
151 BEGIN
152 update fnd_folders
153 set
154 name = l_name,
155 window_width = l_window_width,
156 public_flag = l_public_flag,
157 autoquery_flag = l_autoquery_flag,
158 creation_date = sysdate,
159 created_by = l_created_by,
160 last_update_date = sysdate,
161 last_updated_by = l_last_updated_by,
162 last_update_login = null,
163 where_clause = l_where_clause,
164 order_by = l_order_by
165 where
166 folder_id = l_folder_id;
167
168 COMMIT;
169 END update_fnd_folders;
170
171
172 PROCEDURE delete_fnd_default_folders(l_object VARCHAR2,
173 l_user_id NUMBER,
174 l_language VARCHAR2) is
175 PRAGMA AUTONOMOUS_TRANSACTION;
176 BEGIN
177 DELETE from fnd_default_folders fdf
178 WHERE object = l_object
179 and user_id = l_user_id
180 and exists (select null
181 from fnd_folders ff
182 where fdf.folder_id = ff.folder_id
183 and ff.language = l_language);
184
185 commit;
186 END delete_fnd_default_folders;
187
188
189 PROCEDURE delete_fnd_default_folders (l_folder_id NUMBER) is
190 PRAGMA AUTONOMOUS_TRANSACTION;
191 BEGIN
192 DELETE from fnd_default_folders
193 WHERE folder_id = l_folder_id;
194
195 commit;
196 END delete_fnd_default_folders;
197
198
199 PROCEDURE delete_fnd_folder_columns (l_folder_id NUMBER) is
200 PRAGMA AUTONOMOUS_TRANSACTION;
201 BEGIN
202 DELETE from fnd_folder_columns
203 WHERE folder_id = l_folder_id;
204
205 commit;
206 END delete_fnd_folder_columns;
207
208
209 PROCEDURE delete_fnd_folders (l_folder_id NUMBER) is
210 PRAGMA AUTONOMOUS_TRANSACTION;
211 BEGIN
212 DELETE from fnd_folders
213 WHERE folder_id = l_folder_id;
214
215 commit;
216 END delete_fnd_folders;
217
218 END fnd_appfldr;