[Home] [Help]
PACKAGE BODY: APPS.PA_PAGE_LAYOUT_PKG
Source
1 PACKAGE BODY PA_PAGE_LAYOUT_PKG AS
2 --$Header: PAPRPLHB.pls 120.1 2005/08/19 16:44:34 mwasowic noship $
3
4
5 procedure INSERT_PAGE_LAYOUT_ROW (
6 P_PAGE_NAME in VARCHAR2,
7 P_PAGE_TYPE in VARCHAR2,
8 P_DESCRIPTION in VARCHAR2,
9 P_START_DATE in DATE,
10 P_END_DATE in DATE,
11 P_SHORTCUT_MENU_ID in NUMBER,
12 P_FUNCTION_NAME in VARCHAR2,
13 x_page_id OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
14 x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
15 x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
16 x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
17 )
18 IS
19
20 l_row_id ROWID;
21 l_page_id NUMBER;
22
23 CURSOR c1 IS
24 SELECT rowid
25 FROM pa_page_layouts
26 WHERE page_id = l_page_id;
27
28 begin
29 x_return_status := FND_API.G_RET_STS_SUCCESS;
30
31
32 -- SELECT pa_page_layouts_s.NEXTVAL
33 -- INTO l_page_id
34 -- FROM dual;
35
36 insert into PA_PAGE_LAYOUTS (
37 PAGE_ID,
38 PAGE_NAME,
39 PAGE_TYPE_CODE,
40 DESCRIPTION,
41 START_DATE_active,
42 END_DATE_active,
43 SHORTCUT_MENU_ID ,
44 RECORD_VERSION_NUMBER,
45 LAST_UPDATED_BY,
46 CREATED_BY,
47 CREATION_DATE,
48 LAST_UPDATE_DATE,
49 LAST_UPDATE_LOGIN,
50 PERS_FUNCTION_NAME)
51 VALUES
52 (
53 pa_page_layouts_s.NEXTVAL,
54 P_PAGE_NAME,
55 P_PAGE_TYPE,
56 P_DESCRIPTION,
57 P_START_DATE,
58 P_END_DATE,
59 P_SHORTCUT_MENU_ID ,
60 1,
61 fnd_global.user_id,
62 fnd_global.user_id,
63 sysdate,
64 sysdate,
65 fnd_global.user_id,
66 P_FUNCTION_NAME) returning page_id INTO l_page_id;
67
68 OPEN c1;
69 FETCH c1 INTO l_row_id;
70 IF (c1%NOTFOUND) THEN
71 CLOSE c1;
72 RAISE NO_DATA_FOUND;
73 END IF;
74 CLOSE c1;
75
76 x_page_id := l_page_id;
77
78 EXCEPTION
79 WHEN OTHERS THEN -- catch the exceptions here
80 -- Set the current program unit name in the error stack
81 -- PA_Error_Utils.Set_Error_Stack('PA_PROJECT_SUBTEAMS_PKG.Insert_Row');
82 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
83 RAISE;
84 end INSERT_PAGE_LAYOUT_ROW;
85
86 procedure UPDATE_PAGE_LAYOUT_ROW (
87 P_PAGE_ID in NUMBER,
88 P_PAGE_NAME in VARCHAR2,
89 P_PAGE_TYPE in VARCHAR2,
90 P_DESCRIPTION in VARCHAR2,
91 P_START_DATE in DATE,
92 P_END_DATE in DATE,
93 P_SHORTCUT_MENU_ID in NUMBER,
94 P_RECORD_VERSION_NUMBER in NUMBER,
95 P_FUNCTION_NAME in VARCHAR2,
96 x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
97 x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
98 x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
99 ) is
100 BEGIN
101
102 x_return_status := FND_API.G_RET_STS_SUCCESS;
103 update PA_PAGE_LAYOUTS set
104 PAGE_NAME = P_PAGE_NAME,
105 PAGE_TYPE_CODE = Nvl(p_page_type, page_type_code),
106 DESCRIPTION = P_DESCRIPTION,
107 START_DATE_active = P_START_DATE,
108 END_DATE_active = P_END_DATE,
109 SHORTCUT_MENU_ID = P_SHORTCUT_MENU_ID ,
110 RECORD_VERSION_NUMBER = p_record_version_number + 1,
111 PERS_FUNCTION_NAME = P_FUNCTION_NAME,
112 LAST_UPDATED_BY = fnd_global.user_id,
113 LAST_UPDATE_DATE = sysdate,
114 LAST_UPDATE_LOGIN = fnd_global.login_id
115 where PAGE_ID = p_page_id;
116
117
118 if (sql%notfound) then
119 PA_UTILS.Add_Message ( p_app_short_name => 'PA',p_msg_name => 'PA_XC_RECORD_CHANGED');
120 x_return_status := FND_API.G_RET_STS_ERROR;
121 RETURN;
122 end if;
123
124 EXCEPTION
125 WHEN OTHERS THEN -- catch the exceptins here
126 -- Set the current program unit name in the error stack
127 -- PA_Error_Utils.Set_Error_Stack('PA_PROJECT_SUBTEAMS_PKG.Update_Row');
128 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
129 RAISE;
130
131 end UPDATE_PAGE_LAYOUT_ROW;
132
133 procedure DELETE_PAGE_LAYOUT_ROW (
134 P_PAGE_ID in NUMBER,
135 P_RECORD_VERSION_NUMBER in NUMBER,
136
137 x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
138 x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
139 x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
140 ) is
141 BEGIN
142
143 x_return_status := FND_API.G_RET_STS_SUCCESS;
144
145 delete from PA_PAGE_LAYOUTS
146 where PAGE_ID = p_page_id
147 AND nvl(p_record_version_number, record_version_number) = record_version_number;
148
149 --
150 -- IF (SQL%NOTFOUND) THEN
151 -- PA_UTILS.Add_Message ( p_app_short_name => 'PA', p_msg_name => 'PA_XC_RECORD_CHANGED');
152 -- x_return_status := FND_API.G_RET_STS_ERROR;
153 -- RETURN;
154 --END IF;
155
156 EXCEPTION
157 WHEN OTHERS THEN
158 -- Set the current program unit name in the error stack
159
160 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
161 RAISE;
162
163
164 end DELETE_PAGE_LAYOUT_ROW;
165
166
167
168 procedure INSERT_PAGE_REGION_ROW (
169 P_PAGE_ID in NUMBER,
170 p_REGION_SOURCE_TYPE in VARCHAR2,
171 P_REGION_SOURCE_CODE in VARCHAR2,
172 P_VIEW_REGION_CODE in VARCHAR2,
173 P_EDIT_REGION_CODE in VARCHAR2,
174 P_REGION_STYLE in VARCHAR2,
175 P_DISPLAY_ORDER in NUMBER,
176 x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
177 x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
178 x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
179 ) IS
180
181 l_row_id ROWID;
182
183 cursor C is select ROWID from PA_PAGE_LAYOUT_REGIONS
184 where PAGE_ID = P_PAGE_ID
185 and REGION_SOURCE_TYPE = p_REGION_SOURCE_TYPE
186 and REGION_SOURCE_CODE = P_REGION_SOURCE_CODE
187 ;
188 BEGIN
189
190 x_return_status := FND_API.G_RET_STS_SUCCESS;
191
192 insert into PA_PAGE_LAYOUT_REGIONS (
193 PAGE_ID,
194 REGION_SOURCE_TYPE,
195 REGION_SOURCE_CODE,
196 VIEW_REGION_CODE,
197 EDIT_REGION_CODE,
198 REGION_STYLE,
199 DISPLAY_ORDER,
200 record_VERSION_NUMBER,
201 LAST_UPDATED_BY,
202 CREATED_BY,
203 CREATION_DATE,
204 LAST_UPDATE_DATE,
205 last_update_login
206 ) VALUES (
207 P_PAGE_ID,
208 P_REGION_SOURCE_TYPE,
209 P_REGION_SOURCE_CODE,
210 P_VIEW_REGION_CODE,
211 P_EDIT_REGION_CODE,
212 P_REGION_STYLE,
213 P_DISPLAY_ORDER,
214 1,
215 fnd_global.user_id,
216 fnd_global.user_id,
217 sysdate,
218 sysdate,
219 fnd_global.user_id)
220 ;
221
222 open c;
223 fetch c into l_ROW_ID;
224 if (c%notfound) then
225 close c;
226 raise no_data_found;
227 end if;
228 close c;
229
230 EXCEPTION
231 WHEN OTHERS THEN -- catch the exceptions here
232 -- Set the current program unit name in the error stack
233 -- PA_Error_Utils.Set_Error_Stack('PA_PROJECT_SUBTEAMS_PKG.Insert_Row');
234 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
235 RAISE;
236 end INSERT_PAGE_REGION_ROW;
237
238 procedure DELETE_PAGE_REGION_ROW (
239 P_PAGE_ID in NUMBER,
240 p_REGION_SOURCE_TYPE in VARCHAR2,
241 P_REGION_SOURCE_CODE in VARCHAR2,
242 P_RECORD_VERSION_NUMBER in NUMBER,
243 x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
244 x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
245 x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
246 ) is
247 BEGIN
248
249 x_return_status := FND_API.G_RET_STS_SUCCESS;
250
251
252 delete from PA_PAGE_LAYOUT_REGIONS
253 where PAGE_ID = P_PAGE_ID
254 and REGION_SOURCE_TYPE = p_REGION_SOURCE_TYPE
255 and REGION_SOURCE_CODE = P_REGION_SOURCE_CODE
256 and nvl(p_record_version_number, record_version_number) = record_version_number;
257
258 EXCEPTION
259 WHEN OTHERS THEN
260 -- Set the current program unit name in the error stack
261
262 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
263 RAISE;
264
265 end DELETE_PAGE_REGION_ROW;
266
267
268 END PA_PAGE_LAYOUT_PKG;