[Home] [Help]
PACKAGE BODY: APPS.HR_FORM_ITEMS_PKG
Source
1 package body HR_FORM_ITEMS_PKG as
2 /* $Header: hrfitlct.pkb 115.2 2002/12/10 11:10:48 hjonnala 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_FORM_ITEM_ID in NUMBER,
26 X_OBJECT_VERSION_NUMBER in NUMBER,
27 X_APPLICATION_ID in NUMBER,
28 X_FORM_ID in NUMBER,
29 X_FORM_CANVAS_ID in NUMBER,
30 X_FULL_ITEM_NAME in VARCHAR2,
31 X_ITEM_TYPE in VARCHAR2,
32 X_FORM_TAB_PAGE_ID in NUMBER,
33 X_RADIO_BUTTON_NAME in VARCHAR2,
34 X_REQUIRED_OVERRIDE in NUMBER,
35 X_FORM_TAB_PAGE_ID_OVERRIDE in NUMBER,
36 X_VISIBLE_OVERRIDE in NUMBER,
37 X_USER_ITEM_NAME in VARCHAR2,
38 X_DESCRIPTION in VARCHAR2,
39 X_CREATION_DATE in DATE,
40 X_CREATED_BY in NUMBER,
41 X_LAST_UPDATE_DATE in DATE,
42 X_LAST_UPDATED_BY in NUMBER,
43 X_LAST_UPDATE_LOGIN in NUMBER
44 ) is
45 cursor C is select ROWID from HR_FORM_ITEMS_B
46 where FORM_ITEM_ID = X_FORM_ITEM_ID
47 ;
48 begin
49 insert into HR_FORM_ITEMS_B (
50 FORM_ITEM_ID,
51 OBJECT_VERSION_NUMBER,
52 APPLICATION_ID,
53 FORM_ID,
54 FORM_CANVAS_ID,
55 FULL_ITEM_NAME,
56 ITEM_TYPE,
57 FORM_TAB_PAGE_ID,
58 RADIO_BUTTON_NAME,
59 REQUIRED_OVERRIDE,
60 FORM_TAB_PAGE_ID_OVERRIDE,
61 VISIBLE_OVERRIDE,
62 CREATION_DATE,
63 CREATED_BY,
64 LAST_UPDATE_DATE,
65 LAST_UPDATED_BY,
66 LAST_UPDATE_LOGIN
67 ) values (
68 X_FORM_ITEM_ID,
69 X_OBJECT_VERSION_NUMBER,
70 X_APPLICATION_ID,
71 X_FORM_ID,
72 X_FORM_CANVAS_ID,
73 X_FULL_ITEM_NAME,
74 X_ITEM_TYPE,
75 X_FORM_TAB_PAGE_ID,
76 X_RADIO_BUTTON_NAME,
77 X_REQUIRED_OVERRIDE,
78 X_FORM_TAB_PAGE_ID_OVERRIDE,
79 X_VISIBLE_OVERRIDE,
80 X_CREATION_DATE,
81 X_CREATED_BY,
82 X_LAST_UPDATE_DATE,
83 X_LAST_UPDATED_BY,
84 X_LAST_UPDATE_LOGIN
85 );
86
87 insert into HR_FORM_ITEMS_TL (
88 LAST_UPDATE_LOGIN,
89 CREATED_BY,
90 CREATION_DATE,
91 LAST_UPDATE_DATE,
92 LAST_UPDATED_BY,
93 FORM_ITEM_ID,
94 USER_ITEM_NAME,
95 DESCRIPTION,
96 LANGUAGE,
97 SOURCE_LANG
98 ) select
99 X_LAST_UPDATE_LOGIN,
100 X_CREATED_BY,
101 X_CREATION_DATE,
102 X_LAST_UPDATE_DATE,
103 X_LAST_UPDATED_BY,
104 X_FORM_ITEM_ID,
105 X_USER_ITEM_NAME,
106 X_DESCRIPTION,
107 L.LANGUAGE_CODE,
108 userenv('LANG')
109 from FND_LANGUAGES L
110 where L.INSTALLED_FLAG in ('I', 'B')
111 and not exists
112 (select NULL
113 from HR_FORM_ITEMS_TL T
114 where T.FORM_ITEM_ID = X_FORM_ITEM_ID
115 and T.LANGUAGE = L.LANGUAGE_CODE);
116
117 open c;
118 fetch c into X_ROWID;
119 if (c%notfound) then
120 close c;
121 raise no_data_found;
122 end if;
123 close c;
124
125 end INSERT_ROW;
126
127 procedure LOCK_ROW (
128 X_FORM_ITEM_ID in NUMBER,
129 X_OBJECT_VERSION_NUMBER in NUMBER,
130 X_APPLICATION_ID in NUMBER,
131 X_FORM_ID in NUMBER,
132 X_FORM_CANVAS_ID in NUMBER,
133 X_FULL_ITEM_NAME in VARCHAR2,
134 X_ITEM_TYPE in VARCHAR2,
135 X_FORM_TAB_PAGE_ID in NUMBER,
136 X_RADIO_BUTTON_NAME in VARCHAR2,
137 X_REQUIRED_OVERRIDE in NUMBER,
138 X_FORM_TAB_PAGE_ID_OVERRIDE in NUMBER,
139 X_VISIBLE_OVERRIDE in NUMBER,
140 X_USER_ITEM_NAME in VARCHAR2,
141 X_DESCRIPTION in VARCHAR2
142 ) is
143 cursor c is select
144 OBJECT_VERSION_NUMBER,
145 APPLICATION_ID,
146 FORM_ID,
147 FORM_CANVAS_ID,
148 FULL_ITEM_NAME,
149 ITEM_TYPE,
150 FORM_TAB_PAGE_ID,
151 RADIO_BUTTON_NAME,
152 REQUIRED_OVERRIDE,
153 FORM_TAB_PAGE_ID_OVERRIDE,
154 VISIBLE_OVERRIDE
155 from HR_FORM_ITEMS_B
156 where FORM_ITEM_ID = X_FORM_ITEM_ID
157 for update of FORM_ITEM_ID nowait;
158 recinfo c%rowtype;
159
160 cursor c1 is select
161 USER_ITEM_NAME,
162 DESCRIPTION,
163 decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
164 from HR_FORM_ITEMS_TL
165 where FORM_ITEM_ID = X_FORM_ITEM_ID
166 and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
167 for update of FORM_ITEM_ID nowait;
168 begin
169 open c;
170 fetch c into recinfo;
171 if (c%notfound) then
172 close c;
173 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
174 app_exception.raise_exception;
175 end if;
176 close c;
177 if ( (recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
178 AND (recinfo.APPLICATION_ID = X_APPLICATION_ID)
179 AND (recinfo.FORM_ID = X_FORM_ID)
180 AND (recinfo.FORM_CANVAS_ID = X_FORM_CANVAS_ID)
181 AND (recinfo.FULL_ITEM_NAME = X_FULL_ITEM_NAME)
182 AND (recinfo.ITEM_TYPE = X_ITEM_TYPE)
183 AND ((recinfo.FORM_TAB_PAGE_ID = X_FORM_TAB_PAGE_ID)
184 OR ((recinfo.FORM_TAB_PAGE_ID is null) AND (X_FORM_TAB_PAGE_ID is null)))
185 AND ((recinfo.RADIO_BUTTON_NAME = X_RADIO_BUTTON_NAME)
186 OR ((recinfo.RADIO_BUTTON_NAME is null) AND (X_RADIO_BUTTON_NAME is null)))
187 AND ((recinfo.REQUIRED_OVERRIDE = X_REQUIRED_OVERRIDE)
188 OR ((recinfo.REQUIRED_OVERRIDE is null) AND (X_REQUIRED_OVERRIDE is null)))
189 AND ((recinfo.FORM_TAB_PAGE_ID_OVERRIDE = X_FORM_TAB_PAGE_ID_OVERRIDE)
190 OR ((recinfo.FORM_TAB_PAGE_ID_OVERRIDE is null) AND (X_FORM_TAB_PAGE_ID_OVERRIDE is null)))
191 AND ((recinfo.VISIBLE_OVERRIDE = X_VISIBLE_OVERRIDE)
192 OR ((recinfo.VISIBLE_OVERRIDE is null) AND (X_VISIBLE_OVERRIDE is null)))
193 ) then
194 null;
195 else
196 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
197 app_exception.raise_exception;
198 end if;
199
200 for tlinfo in c1 loop
201 if (tlinfo.BASELANG = 'Y') then
202 if ( (tlinfo.USER_ITEM_NAME = X_USER_ITEM_NAME)
203 AND ((tlinfo.DESCRIPTION = X_DESCRIPTION)
204 OR ((tlinfo.DESCRIPTION is null) AND (X_DESCRIPTION is null)))
205 ) then
206 null;
207 else
208 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
209 app_exception.raise_exception;
210 end if;
211 end if;
212 end loop;
213 return;
214 end LOCK_ROW;
215
216 procedure UPDATE_ROW (
217 X_FORM_ITEM_ID in NUMBER,
218 X_OBJECT_VERSION_NUMBER in NUMBER,
219 X_APPLICATION_ID in NUMBER,
220 X_FORM_ID in NUMBER,
221 X_FORM_CANVAS_ID in NUMBER,
222 X_FULL_ITEM_NAME in VARCHAR2,
223 X_ITEM_TYPE in VARCHAR2,
224 X_FORM_TAB_PAGE_ID in NUMBER,
225 X_RADIO_BUTTON_NAME in VARCHAR2,
226 X_REQUIRED_OVERRIDE in NUMBER,
227 X_FORM_TAB_PAGE_ID_OVERRIDE in NUMBER,
228 X_VISIBLE_OVERRIDE in NUMBER,
229 X_USER_ITEM_NAME in VARCHAR2,
230 X_DESCRIPTION in VARCHAR2,
231 X_LAST_UPDATE_DATE in DATE,
232 X_LAST_UPDATED_BY in NUMBER,
233 X_LAST_UPDATE_LOGIN in NUMBER
234 ) is
235 begin
236 update HR_FORM_ITEMS_B set
237 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
238 APPLICATION_ID = X_APPLICATION_ID,
239 FORM_ID = X_FORM_ID,
240 FORM_CANVAS_ID = X_FORM_CANVAS_ID,
241 FULL_ITEM_NAME = X_FULL_ITEM_NAME,
242 ITEM_TYPE = X_ITEM_TYPE,
243 FORM_TAB_PAGE_ID = X_FORM_TAB_PAGE_ID,
244 RADIO_BUTTON_NAME = X_RADIO_BUTTON_NAME,
245 REQUIRED_OVERRIDE = X_REQUIRED_OVERRIDE,
246 FORM_TAB_PAGE_ID_OVERRIDE = X_FORM_TAB_PAGE_ID_OVERRIDE,
247 VISIBLE_OVERRIDE = X_VISIBLE_OVERRIDE,
248 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
249 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
250 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
251 where FORM_ITEM_ID = X_FORM_ITEM_ID;
252
253 if (sql%notfound) then
254 raise no_data_found;
255 end if;
256
257 update HR_FORM_ITEMS_TL set
258 USER_ITEM_NAME = X_USER_ITEM_NAME,
259 DESCRIPTION = X_DESCRIPTION,
260 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
261 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
262 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
263 SOURCE_LANG = userenv('LANG')
264 where FORM_ITEM_ID = X_FORM_ITEM_ID
265 and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
266
267 if (sql%notfound) then
268 raise no_data_found;
269 end if;
270 end UPDATE_ROW;
271
272 procedure DELETE_ROW (
273 X_FORM_ITEM_ID in NUMBER
274 ) is
275 begin
276 delete from HR_FORM_ITEMS_TL
277 where FORM_ITEM_ID = X_FORM_ITEM_ID;
278
279 if (sql%notfound) then
280 raise no_data_found;
281 end if;
282
283 delete from HR_FORM_ITEMS_B
284 where FORM_ITEM_ID = X_FORM_ITEM_ID;
285
286 if (sql%notfound) then
287 raise no_data_found;
288 end if;
289 end DELETE_ROW;
290
291 procedure ADD_LANGUAGE
292 is
293 begin
294 delete from HR_FORM_ITEMS_TL T
295 where not exists
296 (select NULL
297 from HR_FORM_ITEMS_B B
298 where B.FORM_ITEM_ID = T.FORM_ITEM_ID
299 );
300
301 update HR_FORM_ITEMS_TL T set (
302 USER_ITEM_NAME,
303 DESCRIPTION
304 ) = (select
305 B.USER_ITEM_NAME,
306 B.DESCRIPTION
307 from HR_FORM_ITEMS_TL B
308 where B.FORM_ITEM_ID = T.FORM_ITEM_ID
309 and B.LANGUAGE = T.SOURCE_LANG)
310 where (
311 T.FORM_ITEM_ID,
312 T.LANGUAGE
313 ) in (select
314 SUBT.FORM_ITEM_ID,
315 SUBT.LANGUAGE
316 from HR_FORM_ITEMS_TL SUBB, HR_FORM_ITEMS_TL SUBT
317 where SUBB.FORM_ITEM_ID = SUBT.FORM_ITEM_ID
318 and SUBB.LANGUAGE = SUBT.SOURCE_LANG
319 and (SUBB.USER_ITEM_NAME <> SUBT.USER_ITEM_NAME
320 or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
321 or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
322 or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
323 ));
324
325 insert into HR_FORM_ITEMS_TL (
326 LAST_UPDATE_LOGIN,
327 CREATED_BY,
328 CREATION_DATE,
329 LAST_UPDATE_DATE,
330 LAST_UPDATED_BY,
331 FORM_ITEM_ID,
332 USER_ITEM_NAME,
333 DESCRIPTION,
334 LANGUAGE,
335 SOURCE_LANG
336 ) select
337 B.LAST_UPDATE_LOGIN,
338 B.CREATED_BY,
339 B.CREATION_DATE,
340 B.LAST_UPDATE_DATE,
341 B.LAST_UPDATED_BY,
342 B.FORM_ITEM_ID,
343 B.USER_ITEM_NAME,
344 B.DESCRIPTION,
345 L.LANGUAGE_CODE,
346 B.SOURCE_LANG
347 from HR_FORM_ITEMS_TL B, FND_LANGUAGES L
348 where L.INSTALLED_FLAG in ('I', 'B')
349 and B.LANGUAGE = userenv('LANG')
350 and not exists
351 (select NULL
352 from HR_FORM_ITEMS_TL T
353 where T.FORM_ITEM_ID = B.FORM_ITEM_ID
354 and T.LANGUAGE = L.LANGUAGE_CODE);
355 end ADD_LANGUAGE;
356 procedure TRANSLATE_ROW (
357 X_APPLICATION_SHORT_NAME in VARCHAR2,
358 X_FORM_NAME in VARCHAR2,
359 X_FULL_ITEM_NAME in VARCHAR2,
360 X_RADIO_BUTTON_NAME in VARCHAR2,
361 X_OWNER in VARCHAR2,
362 X_USER_ITEM_NAME in VARCHAR2,
363 X_DESCRIPTION in VARCHAR2) is
364 X_ROWID ROWID;
365 X_CREATION_DATE DATE;
366 X_CREATED_BY NUMBER;
367 X_LAST_UPDATE_DATE DATE;
368 X_LAST_UPDATED_BY NUMBER;
369 X_LAST_UPDATE_LOGIN NUMBER;
370 X_FORM_ID NUMBER;
371 X_APPLICATION_ID NUMBER;
372 X_FORM_WINDOW_ID NUMBER;
373 X_FORM_CANVAS_ID NUMBER;
374 X_FORM_TAB_PAGE_ID NUMBER;
375 X_FORM_TAB_PAGE_ID_OVERRIDE NUMBER;
376 X_FORM_ITEM_ID NUMBER;
377 begin
378
379 OWNER_TO_WHO (
380 X_OWNER,
381 X_CREATION_DATE,
382 X_CREATED_BY,
383 X_LAST_UPDATE_DATE,
384 X_LAST_UPDATED_BY,
385 X_LAST_UPDATE_LOGIN
386 );
387
388 select application_id
389 into x_application_id
390 from fnd_application
391 where application_short_name = x_application_short_name;
392
393 select form_id
394 into x_form_id
395 from fnd_form
396 where form_name = x_form_name
397 and application_id = x_application_id;
398
399 select form_item_id
400 into x_form_item_id
401 from hr_form_items_b
402 where full_item_name = x_full_item_name
403 and application_id = x_application_id
404 and form_id = x_form_id
405 and ( radio_button_name = x_radio_button_name
406 or (radio_button_name is null and x_radio_button_name is null) );
407
408 update HR_FORM_ITEMS_TL set
409 DESCRIPTION = X_DESCRIPTION,
410 USER_ITEM_NAME = X_USER_ITEM_NAME,
411 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
412 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
413 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
414 SOURCE_LANG = userenv('LANG')
415 where userenv('LANG') in (LANGUAGE,SOURCE_LANG)
416 and form_item_id = x_form_item_id;
417
418 end TRANSLATE_ROW;
419
420 procedure LOAD_ROW (
421 X_APPLICATION_SHORT_NAME in VARCHAR2,
422 X_FORM_NAME in VARCHAR2,
423 X_FULL_ITEM_NAME in VARCHAR2,
424 X_RADIO_BUTTON_NAME in VARCHAR2,
425 X_OWNER in VARCHAR2,
426 X_CANVAS_NAME in VARCHAR2,
427 X_WINDOW_NAME in VARCHAR2,
428 X_TAB_PAGE_NAME_1 in VARCHAR2,
429 X_TAB_PAGE_NAME_2 in VARCHAR2,
430 X_OBJECT_VERSION_NUMBER in VARCHAR2,
431 X_ITEM_TYPE in VARCHAR2,
432 X_REQUIRED_OVERRIDE in VARCHAR2,
433 X_VISIBLE_OVERRIDE in VARCHAR2,
434 X_USER_ITEM_NAME in VARCHAR2,
435 X_DESCRIPTION in VARCHAR2) is
436 X_ROWID ROWID;
437 X_CREATION_DATE DATE;
438 X_CREATED_BY NUMBER;
439 X_LAST_UPDATE_DATE DATE;
440 X_LAST_UPDATED_BY NUMBER;
441 X_LAST_UPDATE_LOGIN NUMBER;
442 X_FORM_ID NUMBER;
443 X_APPLICATION_ID NUMBER;
444 X_FORM_WINDOW_ID NUMBER;
445 X_FORM_CANVAS_ID NUMBER;
446 X_FORM_TAB_PAGE_ID NUMBER;
447 X_FORM_TAB_PAGE_ID_OVERRIDE NUMBER;
448 X_FORM_ITEM_ID NUMBER;
449 begin
450
451 OWNER_TO_WHO (
452 X_OWNER,
453 X_CREATION_DATE,
454 X_CREATED_BY,
455 X_LAST_UPDATE_DATE,
456 X_LAST_UPDATED_BY,
457 X_LAST_UPDATE_LOGIN
458 );
459
460 select application_id
461 into x_application_id
462 from fnd_application
463 where application_short_name = x_application_short_name;
464
465 select form_id
466 into x_form_id
467 from fnd_form
468 where form_name = x_form_name
469 and application_id = x_application_id;
470
471 select hfc.form_canvas_id
472 into x_form_canvas_id
473 from hr_form_canvases_b hfc
474 ,hr_form_windows_b hfw
475 where hfc.canvas_name = x_canvas_name
476 and hfw.application_id = x_application_id
477 and hfw.form_id = x_form_id
478 and hfw.window_name = x_window_name;
479
480 IF ltrim(rtrim(x_tab_page_name_1)) IS NOT NULL THEN
481
482 select form_tab_page_id
483 into x_form_tab_page_id
484 from hr_form_tab_pages_b
485 where form_canvas_id = x_form_canvas_id
486 and tab_page_name = x_tab_page_name_1;
487
488 ELSE
489 x_form_tab_page_id := null;
490
491 END IF;
492
493
494 IF ltrim(rtrim(x_tab_page_name_2)) IS NOT NULL THEN
495
496 select form_tab_page_id
497 into x_form_tab_page_id_override
498 from hr_form_tab_pages_b
499 where form_canvas_id = x_form_canvas_id
500 and tab_page_name = x_tab_page_name_2;
501
502 ELSE
503 x_form_tab_page_id_override := null;
504
505 END IF;
506
507 begin
508 select form_item_id
509 into x_form_item_id
510 from hr_form_items_b
511 where full_item_name = x_full_item_name
512 and application_id = x_application_id
513 and form_id = x_form_id
514 and ( radio_button_name = x_radio_button_name
515 or (radio_button_name is null and x_radio_button_name is null) );
516 exception
517 when no_data_found then
518 select hr_form_items_b_s.nextval
519 into x_form_item_id
520 from dual;
521 end;
522 begin
523 UPDATE_ROW (
524 X_FORM_ITEM_ID,
525 to_number(X_OBJECT_VERSION_NUMBER),
526 X_APPLICATION_ID,
527 X_FORM_ID,
528 X_FORM_CANVAS_ID,
529 X_FULL_ITEM_NAME,
530 X_ITEM_TYPE,
531 X_FORM_TAB_PAGE_ID,
532 X_RADIO_BUTTON_NAME,
533 to_number(X_REQUIRED_OVERRIDE),
534 X_FORM_TAB_PAGE_ID_OVERRIDE,
535 to_number(X_VISIBLE_OVERRIDE),
536 X_USER_ITEM_NAME,
537 X_DESCRIPTION,
538 X_LAST_UPDATE_DATE,
539 X_LAST_UPDATED_BY,
540 X_LAST_UPDATE_LOGIN
541 );
542 exception
543 when no_data_found then
544 INSERT_ROW (
545 X_ROWID,
546 X_FORM_ITEM_ID,
547 to_number(X_OBJECT_VERSION_NUMBER),
548 X_APPLICATION_ID,
549 X_FORM_ID,
550 X_FORM_CANVAS_ID,
551 X_FULL_ITEM_NAME,
552 X_ITEM_TYPE,
553 X_FORM_TAB_PAGE_ID,
554 X_RADIO_BUTTON_NAME,
555 to_number(X_REQUIRED_OVERRIDE),
556 X_FORM_TAB_PAGE_ID_OVERRIDE,
557 to_number(X_VISIBLE_OVERRIDE),
558 X_USER_ITEM_NAME,
559 X_DESCRIPTION,
560 X_CREATION_DATE,
561 X_CREATED_BY,
562 X_LAST_UPDATE_DATE,
563 X_LAST_UPDATED_BY,
564 X_LAST_UPDATE_LOGIN);
565 end;
566 end LOAD_ROW;
567 end HR_FORM_ITEMS_PKG;