[Home] [Help]
PACKAGE BODY: APPS.HR_TEMPLATE_TAB_PAGES_PKG
Source
1 package body HR_TEMPLATE_TAB_PAGES_PKG as
2 /* $Header: hrttplct.pkb 120.1 2011/04/28 10:37:37 sidsaxen ship $ */
3 procedure OWNER_TO_WHO (
4 X_OWNER in VARCHAR2,
5 X_CREATION_DATE out nocopy DATE,
6 X_CREATED_BY out nocopy NUMBER,
7 X_LAST_UPDATE_DATE out nocopy DATE,
8 X_LAST_UPDATED_BY out nocopy NUMBER,
9 X_LAST_UPDATE_LOGIN out nocopy NUMBER
10 ) is
11 begin
12 if X_OWNER = 'SEED' then
13 X_CREATED_BY := 1;
14 X_LAST_UPDATED_BY := 1;
15 else
16 X_CREATED_BY := 0;
17 X_LAST_UPDATED_BY := 0;
18 end if;
19 X_CREATION_DATE := sysdate;
20 X_LAST_UPDATE_DATE := sysdate;
21 X_LAST_UPDATE_LOGIN := 0;
22 end OWNER_TO_WHO;
23 procedure INSERT_ROW (
24 X_ROWID in out nocopy VARCHAR2,
25 X_TEMPLATE_TAB_PAGE_ID in NUMBER,
26 X_OBJECT_VERSION_NUMBER in NUMBER,
27 X_TEMPLATE_CANVAS_ID in NUMBER,
28 X_FORM_TAB_PAGE_ID in NUMBER,
29 X_CREATION_DATE in DATE,
30 X_CREATED_BY in NUMBER,
31 X_LAST_UPDATE_DATE in DATE,
32 X_LAST_UPDATED_BY in NUMBER,
33 X_LAST_UPDATE_LOGIN in NUMBER
34 ) is
35 cursor C is select ROWID from HR_TEMPLATE_TAB_PAGES_B
36 where TEMPLATE_TAB_PAGE_ID = X_TEMPLATE_TAB_PAGE_ID
37 ;
38 begin
39
40 --
41 -- Added the following code as a part of Zero Downtime Patching Project.
42 -- Code Starts Here.
43 --
44
45 BEGIN
46 PER_RIC_PKG.chk_integrity (
47 p_entity_name => 'HR_TEMPLATE_TAB_PAGES_B',
48 p_ref_entity_info => PER_RIC_PKG.ref_entity_tbl(
49 PER_RIC_PKG.ref_info_rec('HR_TEMPLATE_CANVASES_B', PER_RIC_PKG.column_info_tbl(
50 PER_RIC_PKG.col_info_rec('TEMPLATE_CANVAS_ID',NULL,X_TEMPLATE_CANVAS_ID,NULL))),
51 PER_RIC_PKG.ref_info_rec('HR_FORM_TAB_PAGES_B', PER_RIC_PKG.column_info_tbl(
52 PER_RIC_PKG.col_info_rec('FORM_TAB_PAGE_ID',NULL,X_FORM_TAB_PAGE_ID,NULL)))
53 ),
54 p_ref_type => 'INS');
55
56 END;
57 --
58 -- Code Ends Here.
59 --
60
61 insert into HR_TEMPLATE_TAB_PAGES_B (
62 TEMPLATE_TAB_PAGE_ID,
63 OBJECT_VERSION_NUMBER,
64 TEMPLATE_CANVAS_ID,
65 FORM_TAB_PAGE_ID,
66 LAST_UPDATE_DATE,
67 LAST_UPDATED_BY,
68 LAST_UPDATE_LOGIN,
69 CREATED_BY,
70 CREATION_DATE
71 ) values(
72 X_TEMPLATE_TAB_PAGE_ID,
73 X_OBJECT_VERSION_NUMBER,
74 X_TEMPLATE_CANVAS_ID,
75 X_FORM_TAB_PAGE_ID,
76 X_LAST_UPDATE_DATE,
77 X_LAST_UPDATED_BY,
78 X_LAST_UPDATE_LOGIN,
79 X_CREATED_BY,
80 X_CREATION_DATE);
81
82 open c;
83 fetch c into X_ROWID;
84 if (c%notfound) then
85 close c;
86 raise no_data_found;
87 end if;
88 close c;
89
90 end INSERT_ROW;
91
92 procedure LOCK_ROW (
93 X_TEMPLATE_TAB_PAGE_ID in NUMBER,
94 X_OBJECT_VERSION_NUMBER in NUMBER,
95 X_TEMPLATE_CANVAS_ID in NUMBER,
96 X_FORM_TAB_PAGE_ID in NUMBER
97 ) is
98 cursor c1 is select
99 OBJECT_VERSION_NUMBER,
100 TEMPLATE_CANVAS_ID,
101 FORM_TAB_PAGE_ID
102 from HR_TEMPLATE_TAB_PAGES_B
103 where TEMPLATE_TAB_PAGE_ID = X_TEMPLATE_TAB_PAGE_ID
104 for update of TEMPLATE_TAB_PAGE_ID nowait;
105 begin
106 for tlinfo in c1 loop
107 if (tlinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
108 AND (tlinfo.TEMPLATE_CANVAS_ID = X_TEMPLATE_CANVAS_ID)
109 AND (tlinfo.FORM_TAB_PAGE_ID = X_FORM_TAB_PAGE_ID)
110 then
111 null;
112 else
113 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
114 app_exception.raise_exception;
115 end if;
116 end loop;
117 return;
118 end LOCK_ROW;
119
120 procedure UPDATE_ROW (
121 X_TEMPLATE_TAB_PAGE_ID in NUMBER,
122 X_OBJECT_VERSION_NUMBER in NUMBER,
123 X_TEMPLATE_CANVAS_ID in NUMBER,
124 X_FORM_TAB_PAGE_ID in NUMBER,
125 X_LAST_UPDATE_DATE in DATE,
126 X_LAST_UPDATED_BY in NUMBER,
127 X_LAST_UPDATE_LOGIN in NUMBER
128 ) is
129 begin
130 update HR_TEMPLATE_TAB_PAGES_B set
131 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
132 TEMPLATE_CANVAS_ID = X_TEMPLATE_CANVAS_ID,
133 FORM_TAB_PAGE_ID = X_FORM_TAB_PAGE_ID,
134 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
135 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
136 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
137 where TEMPLATE_TAB_PAGE_ID = X_TEMPLATE_TAB_PAGE_ID;
138
139 if (sql%notfound) then
140 raise no_data_found;
141 end if;
142 end UPDATE_ROW;
143
144 procedure DELETE_ROW (
145 X_TEMPLATE_TAB_PAGE_ID in NUMBER
146 ) is
147 begin
148
149 --
150 -- Added the following code as a part of Zero Downtime Patching Project.
151 -- Code Starts Here.
152 --
153
154 BEGIN
155 PER_RIC_PKG.chk_integrity (
156 p_entity_name => 'HR_TEMPLATE_TAB_PAGES_B',
157 p_ref_entity_info => PER_RIC_PKG.ref_entity_tbl(
158 PER_RIC_PKG.ref_info_rec('HR_TAB_PAGE_PROPERTIES_B', PER_RIC_PKG.column_info_tbl(
159 PER_RIC_PKG.col_info_rec('TEMPLATE_TAB_PAGE_ID',NULL,X_TEMPLATE_TAB_PAGE_ID,NULL))),
160 PER_RIC_PKG.ref_info_rec('HR_TEMPLATE_ITEM_CONTEXT_PAGES', PER_RIC_PKG.column_info_tbl(
161 PER_RIC_PKG.col_info_rec('TEMPLATE_TAB_PAGE_ID',NULL,X_TEMPLATE_TAB_PAGE_ID,NULL))),
162 PER_RIC_PKG.ref_info_rec('HR_TEMPLATE_ITEM_TAB_PAGES', PER_RIC_PKG.column_info_tbl(
163 PER_RIC_PKG.col_info_rec('TEMPLATE_TAB_PAGE_ID',NULL,X_TEMPLATE_TAB_PAGE_ID,NULL)))
164 ),
165 p_ref_type => 'DEL');
166
167 END;
168 --
169 -- Code Ends Here.
170 --
171 delete from HR_TEMPLATE_TAB_PAGES_B
172 where TEMPLATE_TAB_PAGE_ID = X_TEMPLATE_TAB_PAGE_ID;
173
174 if (sql%notfound) then
175 raise no_data_found;
176 end if;
177
178 end DELETE_ROW;
179
180 procedure LOAD_ROW (
181 X_APPLICATION_SHORT_NAME in VARCHAR2,
182 X_FORM_NAME in VARCHAR2,
183 X_WINDOW_NAME in VARCHAR2,
184 X_TEMPLATE_NAME in VARCHAR2,
185 X_TERRITORY_SHORT_NAME in VARCHAR2,
186 X_CANVAS_NAME in VARCHAR2,
187 X_TAB_PAGE_NAME in VARCHAR2,
188 X_OWNER in VARCHAR2,
189 X_OBJECT_VERSION_NUMBER in VARCHAR2) is
190 X_ROWID ROWID;
191 X_CREATION_DATE DATE;
192 X_CREATED_BY NUMBER;
193 X_LAST_UPDATE_DATE DATE;
194 X_LAST_UPDATED_BY NUMBER;
195 X_LAST_UPDATE_LOGIN NUMBER;
196 X_FORM_ID NUMBER;
197 X_APPLICATION_ID NUMBER;
198 X_FORM_WINDOW_ID NUMBER;
199 X_TEMPLATE_WINDOW_ID NUMBER;
200 X_FORM_TEMPLATE_ID NUMBER;
201 X_FORM_CANVAS_ID NUMBER;
202 X_TEMPLATE_CANVAS_ID NUMBER;
203 X_TEMPLATE_TAB_PAGE_ID NUMBER;
204 X_FORM_TAB_PAGE_ID NUMBER;
205 begin
206
207 OWNER_TO_WHO (
208 X_OWNER,
209 X_CREATION_DATE,
210 X_CREATED_BY,
211 X_LAST_UPDATE_DATE,
212 X_LAST_UPDATED_BY,
213 X_LAST_UPDATE_LOGIN
214 );
215
216 select application_id
217 into x_application_id
218 from fnd_application
219 where application_short_name = x_application_short_name;
220
221 select form_id
222 into x_form_id
223 from fnd_form
224 where form_name = x_form_name
225 and application_id = x_application_id;
226
227 select form_window_id
228 into x_form_window_id
229 from hr_form_windows_b
230 where window_name = x_window_name
231 and application_id = x_application_id
232 and form_id = x_form_id;
233
234 select form_template_id
235 into x_form_template_id
236 from hr_form_templates_b
237 where template_name = x_template_name
238 and ( (legislation_code is null and x_territory_short_name is null)
239 or (legislation_code = x_territory_short_name) )
240 and application_id = x_application_id
241 and form_id = x_form_id;
242
243 select template_window_id
244 into x_template_window_id
245 from hr_template_windows_b
246 where form_template_id = x_form_template_id
247 and form_window_id = x_form_window_id;
248
249 select form_canvas_id
250 into x_form_canvas_id
251 from hr_form_canvases_b
252 where canvas_name = x_canvas_name
253 and form_window_id = x_form_window_id;
254
255 select template_canvas_id
256 into x_template_canvas_id
257 from hr_template_canvases_b
258 where form_canvas_id = x_form_canvas_id
259 and template_window_id = x_template_window_id;
260
261 select form_tab_page_id
262 into x_form_tab_page_id
263 from hr_form_tab_pages_b
264 where tab_page_name = x_tab_page_name
265 and form_canvas_id = x_form_canvas_id;
266
267 begin
268 select template_tab_page_id
269 into x_template_tab_page_id
270 from hr_template_tab_pages_b
271 where template_canvas_id = x_template_canvas_id
272 and form_tab_page_id = x_form_tab_page_id;
273 exception
274 when no_data_found then
275 select hr_template_tab_pages_b_s.nextval
276 into x_template_tab_page_id
277 from dual;
278 end;
279
280 begin
281
282 UPDATE_ROW (
283 X_TEMPLATE_TAB_PAGE_ID,
284 to_number(X_OBJECT_VERSION_NUMBER),
285 X_TEMPLATE_CANVAS_ID,
286 X_FORM_TAB_PAGE_ID,
287 X_LAST_UPDATE_DATE,
288 X_LAST_UPDATED_BY,
289 X_LAST_UPDATE_LOGIN
290 );
291
292 exception
293 when no_data_found then
294 INSERT_ROW (
295 X_ROWID,
296 X_TEMPLATE_TAB_PAGE_ID,
297 to_number(X_OBJECT_VERSION_NUMBER),
298 X_TEMPLATE_CANVAS_ID,
299 X_FORM_TAB_PAGE_ID,
300 X_CREATION_DATE,
301 X_CREATED_BY,
302 X_LAST_UPDATE_DATE,
303 X_LAST_UPDATED_BY,
304 X_LAST_UPDATE_LOGIN);
305
306 end;
307 end LOAD_ROW;
308
309 end HR_TEMPLATE_TAB_PAGES_PKG;