DBA Data[Home] [Help]

PACKAGE BODY: APPS.IBW_PAGES_PUB

Source


1 package body IBW_PAGES_PUB AS
2 /* $Header: ibwpgb.pls 120.8 2005/12/15 00:56 vekancha noship $ */
3 
4 -- Start of Comments
5 -- API name    :  INSERT_ROW
6 -- Type     :  Public
7 -- Prerequiste :  None
8 -- Function    :  Inserts a page record in Page Base and Translation Table.
9 -- Parameters  :
10 -- Version     :
11 -- Changes     :
12 -- 1. Changes made in INSERT_ROW API, X_PROGRAM_ID and X_PROGRAM_APPLICATION_ID
13 --    were present in the insert of Translation table, though these were not
14 --    part of the INSERT_ROW signature. So compiling the code as it is
15 --    generated by /fnddev/fnd/11.5/bin/AFTBLGEN gave compilation errors.
16 -- 2. PROGRAM_ID AND PROGRAM_APPLICATION_ID are part of insert in TL table but
17 --    were not present in the INSERT of BASE table (in AFTBLGEN generated
18 --    code.
19 -- End of Comments
20    PROCEDURE INSERT_ROW (
21       x_rowid                    IN OUT NOCOPY   VARCHAR2,
22       x_page_id                  IN              NUMBER,
23       x_page_code                IN              VARCHAR2,
24       x_page_status              IN              VARCHAR2,
25       x_application_context      IN              VARCHAR2,
26       x_business_context         IN              VARCHAR2,
27       x_reference                IN              VARCHAR2,
28       x_page_matching_criteria   IN              VARCHAR2,
29       x_site_area_id             IN              NUMBER,
30       x_page_matching_value      IN              VARCHAR2,
31       x_object_version_number    IN              NUMBER,
32       x_program_login_id         IN              NUMBER,
33       x_request_id               IN              NUMBER,
34       x_page_name                IN              VARCHAR2,
35       x_description              IN              VARCHAR2,
36       x_creation_date            IN              DATE,
37       x_created_by               IN              NUMBER,
38       x_last_update_date         IN              DATE,
39       x_last_updated_by          IN              NUMBER,
40       x_last_update_login        IN              NUMBER
41    )
42    IS
43       CURSOR c
44       IS
45          SELECT ROWID
46            FROM ibw_pages_b
47           WHERE page_id = x_page_id;
48 
49       l_prog_appl_id   ibw_pages_b.program_application_id%TYPE; -- Code Added, Notgenerated by AFTBLGEN
50       l_program_id     ibw_pages_b.program_id%TYPE; -- Code Added, Not generated by AFTBLGEN
51    BEGIN
52 
53 	dbms_output.put_line('Insert row called');
54       l_prog_appl_id := fnd_global.prog_appl_id; -- Code Added,Not generatedby AFTBLGEN
55       l_program_id := fnd_global.conc_program_id; -- Code Added,Not generated by AFTBLGEN
56 
57       IF (IBW_PAGES_PUB.GET_SITEAREA_STATUS (x_site_area_id) = 'N')
58       THEN
59 		dbms_output.put_line('Inside the sitearea condition');
60          IBW_PAGES_PUB.FORCE_UPDATE_SITEAREA (x_site_area_id,
61                                               x_last_update_date,
62                                               x_last_updated_by,
63                                               x_last_update_login
64                                              );
65       END IF;
66 	dbms_output.put_line('Site area found');
67       INSERT INTO IBW_PAGES_B
68                   (page_id, page_code, page_status,
69                    application_context, business_context, REFERENCE,
70                    page_matching_criteria, site_area_id,
71                    page_matching_value, object_version_number,
72                    program_login_id, request_id, creation_date,
73                    created_by, last_update_date, last_updated_by,
74                    last_update_login, program_id, -- Column Added,Not generated by AFTBLGEN
75                    program_application_id -- Column Added,Not generated by AFTBLGEN
76                   )
77            VALUES (x_page_id, x_page_code, x_page_status,
78                    x_application_context, x_business_context, x_reference,
79                    x_page_matching_criteria, x_site_area_id,
80                    x_page_matching_value, x_object_version_number,
81                    x_program_login_id, x_request_id, x_creation_date,
82                    x_created_by, x_last_update_date, x_last_updated_by,
83                    x_last_update_login, l_program_id, -- Code Added,Not generated by AFTBLGEN
84                    l_prog_appl_id -- Code Added,Not generated by AFTBLGEN
85                   );
86 
87 
88 	INSERT INTO ibw_pages_tl(page_id, language, source_lang, page_name, description, created_by, creation_date,
89 						last_updated_by, last_update_date, last_update_login, object_version_number,
90 						program_id, program_login_id, program_application_id, request_id)
91 			SELECT M.page_id, l.language_code, b.language_code,  x_page_name, x_description, M.created_by, M.creation_date,
92 					M.last_updated_by, M.last_update_date, M.last_update_login, M.object_version_number,
93 					M.program_id, M.program_login_id, M.program_application_id, M.request_id
94 			FROM ibw_pages_b M, fnd_languages l, fnd_languages b
95 			WHERE l.installed_flag IN ('I','B') AND b.installed_flag='B' AND M.page_id=x_page_id;
96 
97 	dbms_output.put_line('Site area found');
98 
99       OPEN c;
100       FETCH c INTO x_rowid;
101 
102       IF (c%NOTFOUND)
103       THEN
104          CLOSE c;
105          RAISE NO_DATA_FOUND;
106       END IF;
107 
108       CLOSE c;
109    END INSERT_ROW;
110 
111    PROCEDURE LOCK_ROW (
112       x_page_id                  IN   NUMBER,
113       x_page_code                IN   VARCHAR2,
114       x_page_status              IN   VARCHAR2,
115       x_application_context      IN   VARCHAR2,
116       x_business_context         IN   VARCHAR2,
117       x_reference                IN   VARCHAR2,
118       x_page_matching_criteria   IN   VARCHAR2,
119       x_site_area_id             IN   NUMBER,
120       x_page_matching_value      IN   VARCHAR2,
121       x_object_version_number    IN   NUMBER,
122       x_program_login_id         IN   NUMBER,
123       x_request_id               IN   NUMBER,
124       x_page_name                IN   VARCHAR2,
125       x_description              IN   VARCHAR2
126    )
127    IS
128       CURSOR c
129       IS
130          SELECT        page_code, page_status, application_context,
131                        business_context, REFERENCE, page_matching_criteria,
132                        site_area_id, page_matching_value,
133                        object_version_number, program_login_id, request_id
134                   FROM IBW_PAGES_B
135                  WHERE page_id = x_page_id
136          FOR UPDATE OF page_id NOWAIT;
137 
138       recinfo   c%ROWTYPE;
139 
140       CURSOR c1
141       IS
142          SELECT        page_name, description,
143                        DECODE (LANGUAGE,
144                                USERENV ('LANG'), 'Y',
145                                'N'
146                               ) baselang
147                   FROM IBW_PAGES_TL
148                  WHERE page_id = x_page_id
149                    AND USERENV ('LANG') IN (LANGUAGE, source_lang)
150          FOR UPDATE OF page_id NOWAIT;
151    BEGIN
152       OPEN c;
153       FETCH c INTO recinfo;
154 
155       IF (c%NOTFOUND)
156       THEN
157          CLOSE c;
158          fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
159          app_exception.raise_exception;
160       END IF;
161 
162       CLOSE c;
163 
164       IF (    (recinfo.page_code = x_page_code)
165           AND (recinfo.page_status = x_page_status)
166           AND (recinfo.application_context = x_application_context)
167           AND (   (recinfo.business_context = x_business_context)
168                OR (    (recinfo.business_context IS NULL)
169                    AND (x_business_context IS NULL)
170                   )
171               )
172           AND (   (recinfo.REFERENCE = x_reference)
173                OR ((recinfo.REFERENCE IS NULL) AND (x_reference IS NULL))
174               )
175           AND (recinfo.page_matching_criteria = x_page_matching_criteria)
176           AND (   (recinfo.site_area_id = x_site_area_id)
177                OR (    (recinfo.site_area_id IS NULL)
178                    AND (x_site_area_id IS NULL)
179                   )
180               )
181           AND (   (recinfo.page_matching_value = x_page_matching_value)
182                OR (    (recinfo.page_matching_value IS NULL)
183                    AND (x_page_matching_value IS NULL)
184                   )
185               )
186           AND (recinfo.object_version_number = x_object_version_number)
187           AND (   (recinfo.program_login_id = x_program_login_id)
188                OR (    (recinfo.program_login_id IS NULL)
189                    AND (x_program_login_id IS NULL)
190                   )
191               )
192           AND (   (recinfo.request_id = x_request_id)
193                OR ((recinfo.request_id IS NULL) AND (x_request_id IS NULL))
194               )
195          )
196       THEN
197          NULL;
198       ELSE
199          fnd_message.set_name ('FND', 'FORM_RECORD_CHANGED');
200          app_exception.raise_exception;
201       END IF;
202 
203       FOR tlinfo IN c1
204       LOOP
205          IF (tlinfo.baselang = 'Y')
206          THEN
207             IF (    (tlinfo.page_name = x_page_name)
208                 AND (   (tlinfo.description = x_description)
209                      OR (    (tlinfo.description IS NULL)
210                          AND (x_description IS NULL)
211                         )
212                     )
213                )
214             THEN
215                NULL;
216             ELSE
217                fnd_message.set_name ('FND', 'FORM_RECORD_CHANGED');
218                app_exception.raise_exception;
219             END IF;
220          END IF;
221       END LOOP;
222 
223       RETURN;
224    END LOCK_ROW;
225 
226    PROCEDURE UPDATE_ROW (
227       x_page_id                  IN   NUMBER,
228       x_page_code                IN   VARCHAR2,
229       x_page_status              IN   VARCHAR2,
230       x_application_context      IN   VARCHAR2,
231       x_business_context         IN   VARCHAR2,
232       x_reference                IN   VARCHAR2,
233       x_page_matching_criteria   IN   VARCHAR2,
234       x_site_area_id             IN   NUMBER,
235       x_page_matching_value      IN   VARCHAR2,
236       x_object_version_number    IN   NUMBER,
237       x_program_login_id         IN   NUMBER,
238       x_request_id               IN   NUMBER,
239       x_page_name                IN   VARCHAR2,
240       x_description              IN   VARCHAR2,
241       x_last_update_date         IN   DATE,
242       x_last_updated_by          IN   NUMBER,
243       x_last_update_login        IN   NUMBER,
244       x_custom_mode              IN   VARCHAR2
245    )
246    IS
247    BEGIN
248       IF (x_custom_mode = 'FORCE')
249       THEN
250          UPDATE IBW_PAGES_B
251             SET REFERENCE = x_reference,
252                 object_version_number = x_object_version_number,
253                 program_login_id = x_program_login_id,
254                 request_id = x_request_id,
255                 last_update_date = x_last_update_date,
256                 last_updated_by = x_last_updated_by,
257                 last_update_login = x_last_update_login
258           WHERE page_id = x_page_id;
259       ELSE
260          UPDATE IBW_PAGES_B
261             SET page_code = x_page_code,
262                 page_status = x_page_status,
263                 application_context = x_application_context,
264                 business_context = x_business_context,
265                 REFERENCE = x_reference,
266                 page_matching_criteria = x_page_matching_criteria,
267                 site_area_id = x_site_area_id,
268                 page_matching_value = x_page_matching_value,
269                 object_version_number = x_object_version_number,
270                 program_login_id = x_program_login_id,
271                 request_id = x_request_id,
272                 last_update_date = x_last_update_date,
273                 last_updated_by = x_last_updated_by,
274                 last_update_login = x_last_update_login
275           WHERE page_id = x_page_id;
276       END IF;
277 
278       IF (SQL%NOTFOUND)
279       THEN
280          RAISE NO_DATA_FOUND;
281       END IF;
282 
283       UPDATE IBW_PAGES_TL
284          SET page_name = x_page_name,
285              description = x_description,
286              last_update_date = x_last_update_date,
287              last_updated_by = x_last_updated_by,
288              last_update_login = x_last_update_login,
289              object_version_number = x_object_version_number,
290              source_lang = USERENV ('LANG')
291        WHERE page_id = x_page_id
292              AND USERENV ('LANG') IN (LANGUAGE, source_lang);
293 
294       IF (SQL%NOTFOUND)
295       THEN
296          RAISE NO_DATA_FOUND;
297       END IF;
298    END UPDATE_ROW;
299 
300    PROCEDURE DELETE_ROW (x_page_id IN NUMBER)
301    IS
302    BEGIN
303       DELETE FROM ibw_pages_tl
304             WHERE page_id = x_page_id;
305 
306       IF (SQL%NOTFOUND)
307       THEN
308          RAISE NO_DATA_FOUND;
309       END IF;
310 
311       DELETE FROM ibw_pages_b
312             WHERE page_id = x_page_id;
313 
314       IF (SQL%NOTFOUND)
315       THEN
316          RAISE NO_DATA_FOUND;
317       END IF;
318    END DELETE_ROW;
319 
320    PROCEDURE ADD_LANGUAGE
321    IS
322    BEGIN
323       DELETE FROM IBW_PAGES_TL t
324             WHERE NOT EXISTS (SELECT NULL
325                                 FROM IBW_PAGES_B b
326                                WHERE b.page_id = t.page_id);
327 
328       UPDATE IBW_PAGES_TL t
329          SET (page_name, description) =
330                 (SELECT b.page_name, b.description
331                    FROM IBW_PAGES_TL b
332                   WHERE b.page_id = t.page_id AND b.LANGUAGE = t.source_lang)
333        WHERE (t.page_id, t.LANGUAGE) IN (
334                 SELECT subt.page_id, subt.LANGUAGE
335                   FROM IBW_PAGES_TL subb, IBW_PAGES_TL subt
336                  WHERE subb.page_id = subt.page_id
337                    AND subb.LANGUAGE = subt.source_lang
338                    AND (   subb.page_name <> subt.page_name
339                         OR subb.description <> subt.description
340                         OR (    subb.description IS NULL
341                             AND subt.description IS NOT NULL
342                            )
343                         OR (    subb.description IS NOT NULL
344                             AND subt.description IS NULL
345                            )
346                        ));
347 
348       INSERT INTO IBW_PAGES_TL
349                   (page_id, page_name, description, created_by, creation_date,
350                    last_updated_by, last_update_date, last_update_login,
351                    object_version_number, program_id, program_login_id,
352                    program_application_id, request_id, LANGUAGE, source_lang)
353          SELECT /*+ ORDERED */
354                  b.page_id, b.page_name, b.description, b.created_by,
355                  b.creation_date, b.last_updated_by, b.last_update_date,
356                  b.last_update_login, b.object_version_number, b.program_id,
357                  b.program_login_id, b.program_application_id, b.request_id,
358                  l.language_code, b.source_lang
359            FROM IBW_PAGES_TL b, FND_LANGUAGES l
360           WHERE l.installed_flag IN ('I', 'B')
361             AND b.LANGUAGE = USERENV ('LANG')
362             AND NOT EXISTS (
363                    SELECT NULL
364                      FROM ibw_pages_tl t
365                     WHERE t.page_id = b.page_id
366                       AND t.LANGUAGE = l.language_code);
367    END ADD_LANGUAGE;
368 
369    PROCEDURE TRANSLATE_ROW (
370       x_page_id            IN   NUMBER,
371       x_page_name          IN   VARCHAR2,
372       x_description        IN   VARCHAR2,
373       x_owner              IN   VARCHAR2,
374       x_custom_mode        IN   VARCHAR2,
375       x_last_update_date   IN   VARCHAR2
376    )
377    IS
378       f_luby      NUMBER; -- entity owner in file
379       f_ludate    DATE; -- entity update date in file
380       db_luby     NUMBER; -- entity owner in db
381       db_ludate   DATE; -- entity update date in db
382    BEGIN
383       -- Translate owner to file_last_updated_by
384       f_luby := fnd_load_util.owner_id (x_owner);
385       -- Translate char last_update_date to date
386       f_ludate := NVL (TO_DATE (x_last_update_date, 'YYYY/MM/DD'), SYSDATE);
387 
388       SELECT last_updated_by, last_update_date
389         INTO db_luby, db_ludate
390         FROM IBW_PAGES_TL
391        WHERE page_id = x_page_id AND USERENV ('LANG') = LANGUAGE;
392 
393       IF (fnd_load_util.upload_test (f_luby,
394                                      f_ludate,
395                                      db_luby,
396                                      db_ludate,
397                                      x_custom_mode
398                                     )
399          )
400       THEN
401          UPDATE IBW_PAGES_TL
402             SET page_name = x_page_name,
403                 description = x_description,
404                 last_update_date = f_ludate,
405                 last_updated_by = f_luby,
406                 last_update_login = 0,
407                 source_lang = USERENV ('LANG')
408           WHERE page_id = x_page_id
409             AND USERENV ('LANG') IN (LANGUAGE, source_lang);
410       END IF;
411 
412       IF (SQL%NOTFOUND)
413       THEN
414          RAISE NO_DATA_FOUND;
415       END IF;
416    END TRANSLATE_ROW;
417 
418    PROCEDURE LOAD_ROW (
419       x_page_id                  IN   NUMBER,
420       x_page_code                IN   VARCHAR2,
421       x_page_status              IN   VARCHAR2,
422       x_application_context      IN   VARCHAR2,
423       x_business_context         IN   VARCHAR2,
424       x_reference                IN   VARCHAR2,
425       x_page_matching_criteria   IN   VARCHAR2,
426       x_site_area_id             IN   NUMBER,
427       x_page_matching_value      IN   VARCHAR2,
428       x_page_name                IN   VARCHAR2,
429       x_description              IN   VARCHAR2,
430       x_owner                    IN   VARCHAR2,
431       x_custom_mode              IN   VARCHAR2,
432       x_last_update_date         IN   VARCHAR2
433    )
434    IS
435       pg_id       NUMBER;
436       row_id      VARCHAR2 (64);
437       f_luby      NUMBER; -- entity owner in file
438       f_ludate    DATE; -- entity update date in file
439       db_luby     NUMBER; -- entity owner in db
440       db_ludate   DATE; -- entity update date in db
441       obj_v_no    NUMBER;
442    BEGIN
443       -- Translate owner to file_last_updated_by
444       f_luby := fnd_load_util.owner_id (x_owner);
445       -- Translate char last_update_date to date
446       f_ludate := NVL (TO_DATE (x_last_update_date, 'YYYY/MM/DD'), SYSDATE);
447 
448       SELECT page_id, last_updated_by, last_update_date,
449              object_version_number
450         INTO pg_id, db_luby, db_ludate,
451              obj_v_no
452         FROM IBW_PAGES_B
453        WHERE page_id = x_page_id;
454 
455       IF (fnd_load_util.upload_test (f_luby,
456                                      f_ludate,
457                                      db_luby,
458                                      db_ludate,
459                                      x_custom_mode
460                                     )
461          )
462       THEN
463          IBW_PAGES_PUB.UPDATE_ROW (x_page_id                     => pg_id,
464                                    x_page_code                   => x_page_code,
465                                    x_page_status                 => x_page_status,
466                                    x_application_context         => x_application_context,
467                                    x_business_context            => x_business_context,
468                                    x_reference                   => x_reference,
469                                    x_page_matching_criteria      => x_page_matching_criteria,
470                                    x_site_area_id                => x_site_area_id,
471                                    x_page_matching_value         => x_page_matching_value,
472                                    x_object_version_number       =>   obj_v_no
473                                                                     + 1,
474                                    x_program_login_id            => NULL,
475                                    x_request_id                  => NULL,
476                                    x_page_name                   => x_page_name,
477                                    x_description                 => x_description,
478                                    x_last_update_date            => f_ludate,
479                                    x_last_updated_by             => f_luby,
480                                    x_last_update_login           => f_luby,
481                                    x_custom_mode                 => x_custom_mode
482                                   );
483       END IF;
484    EXCEPTION
485       WHEN NO_DATA_FOUND
486       THEN
487          dbms_output.put_line('An Error Occured in load row');
488          IBW_PAGES_PUB.INSERT_ROW (x_rowid                       => row_id,
489                                    x_page_id                     => x_page_id,
490                                    x_page_code                   => x_page_code,
491                                    x_page_status                 => x_page_status,
492                                    x_application_context         => x_application_context,
493                                    x_business_context            => x_business_context,
494                                    x_reference                   => x_reference,
495                                    x_page_matching_criteria      => x_page_matching_criteria,
496                                    x_site_area_id                => x_site_area_id,
497                                    x_page_matching_value         => x_page_matching_value,
498                                    x_object_version_number       => 1,
499                                    x_program_login_id            => NULL,
500                                    x_request_id                  => NULL,
501                                    x_page_name                   => x_page_name,
502                                    x_description                 => x_description,
503                                    x_creation_date               => f_ludate,
504                                    x_created_by                  => f_luby,
505                                    x_last_update_date            => f_ludate,
506                                    x_last_updated_by             => f_luby,
507                                    x_last_update_login           => f_luby
508                                   );
509    END LOAD_ROW;
510 
511    PROCEDURE LOAD_SEED_ROW (
512       x_upload_mode              IN   VARCHAR2,
513       x_page_id                  IN   VARCHAR2,
514       x_page_name                IN   VARCHAR2,
515       x_description              IN   VARCHAR2,
516       x_owner                    IN   VARCHAR2,
517       x_custom_mode              IN   VARCHAR2,
518       x_last_update_date         IN   VARCHAR2,
519       x_page_code                IN   VARCHAR2,
520       x_page_status              IN   VARCHAR2,
521       x_application_context      IN   VARCHAR2,
522       x_business_context         IN   VARCHAR2,
523       x_reference                IN   VARCHAR2,
524       x_page_matching_criteria   IN   VARCHAR2,
525       x_site_area_id             IN   VARCHAR2,
526       x_page_matching_value      IN   VARCHAR2
527    )
528    IS
529    BEGIN
530       IF (x_upload_mode = 'NLS')
531       THEN
532          IBW_PAGES_PUB.TRANSLATE_ROW (x_page_id,
533                                       x_page_name,
534                                       x_description,
535                                       x_owner,
536                                       x_custom_mode,
537                                       x_last_update_date
538                                      );
539       ELSE
540          IBW_PAGES_PUB.LOAD_ROW (x_page_id,
541                                  x_page_code,
542                                  x_page_status,
543                                  x_application_context,
544                                  x_business_context,
545                                  x_reference,
546                                  x_page_matching_criteria,
547                                  x_site_area_id,
548                                  x_page_matching_value,
549                                  x_page_name,
550                                  x_description,
551                                  x_owner,
552                                  x_custom_mode,
553                                  x_last_update_date
554                                 );
555       END IF;
556    END LOAD_SEED_ROW;
557 
558    FUNCTION GET_SITEAREA_STATUS (x_site_area_id IN NUMBER)
559       RETURN VARCHAR2
560    IS
561       status   VARCHAR2 (30);
562    BEGIN
563       SELECT enabled_flag
564         INTO status
565         FROM FND_LOOKUPS
566        WHERE lookup_type = 'IBW_SITE_AREA'
567          AND lookup_code = TO_CHAR (x_site_area_id);
568 
569          RETURN status;
570       /*EXCEPTION
571       	WHEN NO_DATA_FOUND THEN
572       		RETURN '-1';
573       	END;*/
574 
575     --  RETURN status;
576    END GET_SITEAREA_STATUS;
577 
578    PROCEDURE FORCE_UPDATE_SITEAREA (
579       x_site_area_id        IN   NUMBER,
580       x_last_update_date    IN   DATE,
581       x_last_updated_by     IN   NUMBER,
582       x_last_update_login   IN   NUMBER
583    )
584    IS
585       lookup_type           VARCHAR2 (30);
586       security_group_id     NUMBER;
587       view_application_id   NUMBER;
588       lookup_code           VARCHAR2 (30);
589       tag                   VARCHAR2 (30);
590       attribute_category    VARCHAR2 (30);
591       attribute1            VARCHAR2 (30);
592       attribute2            VARCHAR2 (30);
593       attribute3            VARCHAR2 (30);
594       attribute4            VARCHAR2 (30);
595       enabled_flag          VARCHAR2 (30);
596       start_date_active     DATE;
597       end_date_active       DATE;
598       territory_code        VARCHAR2 (30);
599       attribute5            VARCHAR2 (30);
600       attribute6            VARCHAR2 (30);
601       attribute7            VARCHAR2 (30);
602       attribute8            VARCHAR2 (30);
603       attribute9            VARCHAR2 (30);
604       attribute10           VARCHAR2 (30);
605       attribute11           VARCHAR2 (30);
606       attribute12           VARCHAR2 (30);
607       attribute13           VARCHAR2 (30);
608       attribute14           VARCHAR2 (30);
609       attribute15           VARCHAR2 (30);
610       meaning               VARCHAR (80);
611       description           VARCHAR2 (240);
612       last_update_date      DATE;
613       last_updated_by       NUMBER;
614       last_update_login     NUMBER;
615    BEGIN
616 	dbms_output.put_line('force update');
617       SELECT lookup_type, security_group_id, view_application_id,
618              lookup_code, tag, attribute_category, attribute1, attribute2,
619              attribute3, attribute4, enabled_flag, start_date_active,
620              end_date_active, territory_code, attribute5, attribute6,
621              attribute7, attribute8, attribute9, attribute10, attribute11,
622              attribute12, attribute13, attribute14, attribute15, meaning,
623              description
624         INTO lookup_type, security_group_id, view_application_id,
625              lookup_code, tag, attribute_category, attribute1, attribute2,
626              attribute3, attribute4, enabled_flag, start_date_active,
627              end_date_active, territory_code, attribute5, attribute6,
628              attribute7, attribute8, attribute9, attribute10, attribute11,
629              attribute12, attribute13, attribute14, attribute15, meaning,
630              description
631         FROM FND_LOOKUP_VALUES
632        WHERE lookup_type = 'IBW_SITE_AREA'
633          AND lookup_code = TO_CHAR (x_site_area_id)
634 	    and language=userenv('Lang');
635 	   dbms_output.put_line('tryin to update lookups');
636       FND_LOOKUP_VALUES_PKG.UPDATE_ROW (lookup_type,
637                                         security_group_id,
638                                         view_application_id,
639                                         lookup_code,
640                                         tag,
641                                         attribute_category,
642                                         attribute1,
643                                         attribute2,
644                                         attribute3,
645                                         attribute4,
646                                         'Y',
647                                         start_date_active,
648                                         end_date_active,
649                                         territory_code,
650                                         attribute5,
651                                         attribute6,
652                                         attribute7,
653                                         attribute8,
654                                         attribute9,
655                                         attribute10,
656                                         attribute11,
657                                         attribute12,
658                                         attribute13,
659                                         attribute14,
660                                         attribute15,
661                                         meaning,
662                                         description,
663                                         x_last_update_date,
664                                         x_last_updated_by,
665                                         x_last_update_login
666                                        );
667    END FORCE_UPDATE_SITEAREA;
668 END IBW_PAGES_PUB;