[Home] [Help]
PACKAGE BODY: APPS.HR_TEMPLATE_ITEM_TAB_PAGES_PKG
Source
1 package body HR_TEMPLATE_ITEM_TAB_PAGES_PKG as
2 /* $Header: hrtiplct.pkb 115.3 2002/12/11 10:01:23 raranjan noship $ */
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_ITEM_TAB_PAGE_ID in NUMBER,
26 X_OBJECT_VERSION_NUMBER in NUMBER,
27 X_TEMPLATE_ITEM_ID in NUMBER,
28 X_TEMPLATE_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_ITEM_TAB_PAGES
36 where TEMPLATE_ITEM_TAB_PAGE_ID = X_TEMPLATE_ITEM_TAB_PAGE_ID
37 ;
38 begin
39 insert into HR_TEMPLATE_ITEM_TAB_PAGES (
40 LAST_UPDATE_LOGIN,
41 CREATED_BY,
42 CREATION_DATE,
43 LAST_UPDATE_DATE,
44 LAST_UPDATED_BY,
45 TEMPLATE_ITEM_TAB_PAGE_ID,
46 OBJECT_VERSION_NUMBER,
47 TEMPLATE_ITEM_ID,
48 TEMPLATE_TAB_PAGE_ID
49 ) values(
50 X_LAST_UPDATE_LOGIN,
51 X_CREATED_BY,
52 X_CREATION_DATE,
53 X_LAST_UPDATE_DATE,
54 X_LAST_UPDATED_BY,
55 X_TEMPLATE_ITEM_TAB_PAGE_ID,
56 X_OBJECT_VERSION_NUMBER,
57 X_TEMPLATE_ITEM_ID,
58 X_TEMPLATE_TAB_PAGE_ID);
59
60 open c;
61 fetch c into X_ROWID;
62 if (c%notfound) then
63 close c;
64 raise no_data_found;
65 end if;
66 close c;
67
68 end INSERT_ROW;
69
70 procedure LOCK_ROW (
71 X_TEMPLATE_ITEM_TAB_PAGE_ID in NUMBER,
72 X_OBJECT_VERSION_NUMBER in NUMBER,
73 X_TEMPLATE_ITEM_ID in NUMBER,
74 X_TEMPLATE_TAB_PAGE_ID in NUMBER
75 ) is
76 cursor c1 is select
77 OBJECT_VERSION_NUMBER,
78 TEMPLATE_ITEM_ID,
79 TEMPLATE_TAB_PAGE_ID
80 from HR_TEMPLATE_ITEM_TAB_PAGES
81 where TEMPLATE_ITEM_TAB_PAGE_ID = X_TEMPLATE_ITEM_TAB_PAGE_ID
82 for update of TEMPLATE_ITEM_TAB_PAGE_ID nowait;
83 begin
84 for tlinfo in c1 loop
85 if (tlinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
86 AND (tlinfo.TEMPLATE_ITEM_ID = X_TEMPLATE_ITEM_ID)
87 AND (tlinfo.TEMPLATE_TAB_PAGE_ID = X_TEMPLATE_TAB_PAGE_ID)
88 then
89 null;
90 else
91 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
92 app_exception.raise_exception;
93 end if;
94 end loop;
95 return;
96 end LOCK_ROW;
97
98 procedure UPDATE_ROW (
99 X_TEMPLATE_ITEM_TAB_PAGE_ID in NUMBER,
100 X_OBJECT_VERSION_NUMBER in NUMBER,
101 X_TEMPLATE_ITEM_ID in NUMBER,
102 X_TEMPLATE_TAB_PAGE_ID in NUMBER,
103 X_LAST_UPDATE_DATE in DATE,
104 X_LAST_UPDATED_BY in NUMBER,
105 X_LAST_UPDATE_LOGIN in NUMBER
106 ) is
107 begin
108 update HR_TEMPLATE_ITEM_TAB_PAGES set
109 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
110 TEMPLATE_ITEM_ID = X_TEMPLATE_ITEM_ID,
111 TEMPLATE_TAB_PAGE_ID = X_TEMPLATE_TAB_PAGE_ID,
112 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
113 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
114 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
115 where TEMPLATE_ITEM_TAB_PAGE_ID = X_TEMPLATE_ITEM_TAB_PAGE_ID;
116
117 if (sql%notfound) then
118 raise no_data_found;
119 end if;
120 end UPDATE_ROW;
121
122 procedure DELETE_ROW (
123 X_TEMPLATE_ITEM_TAB_PAGE_ID in NUMBER
124 ) is
125 begin
126 delete from HR_TEMPLATE_ITEM_TAB_PAGES
127 where TEMPLATE_ITEM_TAB_PAGE_ID = X_TEMPLATE_ITEM_TAB_PAGE_ID;
128
129 if (sql%notfound) then
130 raise no_data_found;
131 end if;
132
133 end DELETE_ROW;
134 procedure LOAD_ROW (
135 X_APPLICATION_SHORT_NAME in VARCHAR2,
136 X_FORM_NAME in VARCHAR2,
137 X_FULL_ITEM_NAME in VARCHAR2,
138 X_RADIO_BUTTON_NAME in VARCHAR2,
139 X_WINDOW_NAME in VARCHAR2,
140 X_TEMPLATE_NAME in VARCHAR2,
141 X_TERRITORY_SHORT_NAME in VARCHAR2,
142 X_CANVAS_NAME in VARCHAR2,
143 X_TAB_PAGE_NAME in VARCHAR2,
144 X_OWNER in VARCHAR2,
145 X_OBJECT_VERSION_NUMBER in VARCHAR2) is
146 X_ROWID ROWID;
147 X_CREATION_DATE DATE;
148 X_CREATED_BY NUMBER;
149 X_LAST_UPDATE_DATE DATE;
150 X_LAST_UPDATED_BY NUMBER;
151 X_LAST_UPDATE_LOGIN NUMBER;
152 X_FORM_ID NUMBER;
153 X_APPLICATION_ID NUMBER;
154 X_FORM_WINDOW_ID NUMBER;
155 X_TEMPLATE_WINDOW_ID NUMBER;
156 X_FORM_TEMPLATE_ID NUMBER;
157 X_FORM_CANVAS_ID NUMBER;
158 X_TEMPLATE_CANVAS_ID NUMBER;
159 X_TEMPLATE_TAB_PAGE_ID NUMBER;
160 X_FORM_TAB_PAGE_ID NUMBER;
161 X_TEMPLATE_ITEM_ID NUMBER;
162 X_FORM_ITEM_ID NUMBER;
163 X_TEMPLATE_ITEM_TAB_PAGE_ID NUMBER;
164 begin
165
166 OWNER_TO_WHO (
167 X_OWNER,
168 X_CREATION_DATE,
169 X_CREATED_BY,
170 X_LAST_UPDATE_DATE,
171 X_LAST_UPDATED_BY,
172 X_LAST_UPDATE_LOGIN
173 );
174
175 select application_id
176 into x_application_id
177 from fnd_application
178 where application_short_name = x_application_short_name;
179
180 select form_id
181 into x_form_id
182 from fnd_form
183 where form_name = x_form_name
184 and application_id = x_application_id;
185
186 select form_window_id
187 into x_form_window_id
188 from hr_form_windows_b
189 where window_name = x_window_name
190 and application_id = x_application_id
191 and form_id = x_form_id;
192
193 select form_template_id
194 into x_form_template_id
195 from hr_form_templates_b
196 where template_name = x_template_name
197 and ( (legislation_code is null and x_territory_short_name is null)
198 or (legislation_code = x_territory_short_name) )
199 and application_id = x_application_id
200 and form_id = x_form_id;
201
202 select template_window_id
203 into x_template_window_id
204 from hr_template_windows_b
205 where form_template_id = x_form_template_id
206 and form_window_id = x_form_window_id;
207
208 select form_canvas_id
209 into x_form_canvas_id
210 from hr_form_canvases_b
211 where canvas_name = x_canvas_name
212 and form_window_id = x_form_window_id;
213
214 select template_canvas_id
215 into x_template_canvas_id
216 from hr_template_canvases_b
217 where form_canvas_id = x_form_canvas_id
218 and template_window_id = x_template_window_id;
219
220 select form_tab_page_id
221 into x_form_tab_page_id
222 from hr_form_tab_pages_b
223 where tab_page_name = x_tab_page_name
224 and form_canvas_id = x_form_canvas_id;
225
226 select template_tab_page_id
227 into x_template_tab_page_id
228 from hr_template_tab_pages_b
229 where template_canvas_id = x_template_canvas_id
230 and form_tab_page_id = x_form_tab_page_id;
231
232 select form_item_id
233 into x_form_item_id
234 from hr_form_items_b
235 where full_item_name = x_full_item_name
236 and application_id = x_application_id
237 and form_id = x_form_id
238 and ( radio_button_name = x_radio_button_name
239 or (radio_button_name is null and x_radio_button_name is null) );
240
241 select template_item_id
242 into x_template_item_id
243 from hr_template_items_b
244 where form_template_id = x_form_template_id
245 and form_item_id = x_form_item_id;
246
247 begin
248 select template_item_tab_page_id
249 into x_template_item_tab_page_id
250 from hr_template_item_tab_pages
251 where template_tab_page_id = x_template_tab_page_id
252 and template_item_id = x_template_item_id;
253 exception
254 when no_data_found then
255 select hr_template_item_tab_pages_s.nextval
256 into x_template_item_tab_page_id
257 from dual;
258 end;
259
260 begin
261 UPDATE_ROW (
262 X_TEMPLATE_ITEM_TAB_PAGE_ID,
263 to_number(X_OBJECT_VERSION_NUMBER),
264 X_TEMPLATE_ITEM_ID,
265 X_TEMPLATE_TAB_PAGE_ID,
266 X_LAST_UPDATE_DATE,
267 X_LAST_UPDATED_BY,
268 X_LAST_UPDATE_LOGIN);
269 exception
270 when no_data_found then
271 INSERT_ROW (
272 X_ROWID,
273 X_TEMPLATE_ITEM_TAB_PAGE_ID,
274 to_number(X_OBJECT_VERSION_NUMBER),
275 X_TEMPLATE_ITEM_ID,
276 X_TEMPLATE_TAB_PAGE_ID,
277 X_CREATION_DATE,
278 X_CREATED_BY,
279 X_LAST_UPDATE_DATE,
280 X_LAST_UPDATED_BY,
281 X_LAST_UPDATE_LOGIN);
282 end;
283 end LOAD_ROW;
284 end HR_TEMPLATE_ITEM_TAB_PAGES_PKG;