DBA Data[Home] [Help]

PACKAGE BODY: APPS.BNE_LAYOUTS_PKG

Source


1 package body BNE_LAYOUTS_PKG as
2 /* $Header: bnelayb.pls 120.3 2011/02/17 14:43:12 amgonzal ship $ */
3 
4 procedure INSERT_ROW (
5   X_ROWID in out NOCOPY VARCHAR2,
6   X_APPLICATION_ID in NUMBER,
7   X_LAYOUT_CODE in VARCHAR2,
8   X_OBJECT_VERSION_NUMBER in NUMBER,
9   X_STYLESHEET_APP_ID in NUMBER,
10   X_STYLESHEET_CODE in VARCHAR2,
11   X_INTEGRATOR_APP_ID in NUMBER,
12   X_INTEGRATOR_CODE in VARCHAR2,
13   X_STYLE in VARCHAR2,
14   X_STYLE_CLASS in VARCHAR2,
15   X_REPORTING_FLAG in VARCHAR2,
16   X_REPORTING_INTERFACE_APP_ID in NUMBER,
17   X_REPORTING_INTERFACE_CODE in VARCHAR2,
18   X_USER_NAME in VARCHAR2,
19   X_CREATION_DATE in DATE,
20   X_CREATED_BY in NUMBER,
21   X_LAST_UPDATE_DATE in DATE,
22   X_LAST_UPDATED_BY in NUMBER,
23   X_LAST_UPDATE_LOGIN in NUMBER,
24   X_CREATE_DOC_LIST_APP_ID in NUMBER,
25   X_CREATE_DOC_LIST_CODE in VARCHAR2,
26   X_IMAGE_FILE_NAME IN VARCHAR2
27 ) is
28   cursor C is select ROWID from BNE_LAYOUTS_B
29     where APPLICATION_ID = X_APPLICATION_ID
30     and LAYOUT_CODE = X_LAYOUT_CODE
31     ;
32 begin
33   insert into BNE_LAYOUTS_B (
34     APPLICATION_ID,
35     LAYOUT_CODE,
36     OBJECT_VERSION_NUMBER,
37     STYLESHEET_APP_ID,
38     STYLESHEET_CODE,
39     INTEGRATOR_APP_ID,
40     INTEGRATOR_CODE,
41     STYLE,
42     STYLE_CLASS,
43     REPORTING_FLAG,
44     REPORTING_INTERFACE_APP_ID,
45     REPORTING_INTERFACE_CODE,
46     CREATION_DATE,
47     CREATED_BY,
48     LAST_UPDATE_DATE,
49     LAST_UPDATED_BY,
50     LAST_UPDATE_LOGIN,
51     CREATE_DOC_LIST_APP_ID,
52     CREATE_DOC_LIST_CODE,
53     IMAGE_FILE_NAME
54   ) values (
55     X_APPLICATION_ID,
56     X_LAYOUT_CODE,
57     X_OBJECT_VERSION_NUMBER,
58     X_STYLESHEET_APP_ID,
59     X_STYLESHEET_CODE,
60     X_INTEGRATOR_APP_ID,
61     X_INTEGRATOR_CODE,
62     X_STYLE,
63     X_STYLE_CLASS,
64     X_REPORTING_FLAG,
65     X_REPORTING_INTERFACE_APP_ID,
66     X_REPORTING_INTERFACE_CODE,
67     X_CREATION_DATE,
68     X_CREATED_BY,
69     X_LAST_UPDATE_DATE,
70     X_LAST_UPDATED_BY,
71     X_LAST_UPDATE_LOGIN,
72     X_CREATE_DOC_LIST_APP_ID,
73     X_CREATE_DOC_LIST_CODE,
74     X_IMAGE_FILE_NAME
75   );
76 
77   insert into BNE_LAYOUTS_TL (
78     APPLICATION_ID,
79     LAYOUT_CODE,
80     USER_NAME,
81     CREATED_BY,
82     CREATION_DATE,
83     LAST_UPDATED_BY,
84     LAST_UPDATE_LOGIN,
85     LAST_UPDATE_DATE,
86     LANGUAGE,
87     SOURCE_LANG
88   ) select
89     X_APPLICATION_ID,
90     X_LAYOUT_CODE,
91     X_USER_NAME,
92     X_CREATED_BY,
93     X_CREATION_DATE,
94     X_LAST_UPDATED_BY,
95     X_LAST_UPDATE_LOGIN,
96     X_LAST_UPDATE_DATE,
97     L.LANGUAGE_CODE,
98     userenv('LANG')
99   from FND_LANGUAGES L
100   where L.INSTALLED_FLAG in ('I', 'B')
101   and not exists
102     (select NULL
103     from BNE_LAYOUTS_TL T
104     where T.APPLICATION_ID = X_APPLICATION_ID
105     and T.LAYOUT_CODE = X_LAYOUT_CODE
106     and T.LANGUAGE = L.LANGUAGE_CODE);
107 
108   open c;
109   fetch c into X_ROWID;
110   if (c%notfound) then
111     close c;
112     raise no_data_found;
113   end if;
114   close c;
115 
116 end INSERT_ROW;
117 
118 procedure LOCK_ROW (
119   X_APPLICATION_ID in NUMBER,
120   X_LAYOUT_CODE in VARCHAR2,
121   X_OBJECT_VERSION_NUMBER in NUMBER,
122   X_STYLESHEET_APP_ID in NUMBER,
123   X_STYLESHEET_CODE in VARCHAR2,
124   X_INTEGRATOR_APP_ID in NUMBER,
125   X_INTEGRATOR_CODE in VARCHAR2,
126   X_STYLE in VARCHAR2,
127   X_STYLE_CLASS in VARCHAR2,
128   X_REPORTING_FLAG in VARCHAR2,
129   X_REPORTING_INTERFACE_APP_ID in NUMBER,
130   X_REPORTING_INTERFACE_CODE in VARCHAR2,
131   X_USER_NAME in VARCHAR2,
132   X_CREATE_DOC_LIST_APP_ID in NUMBER,
133   X_CREATE_DOC_LIST_CODE in VARCHAR2,
134   X_IMAGE_FILE_NAME IN VARCHAR2
135 ) is
136   cursor c is select
137       OBJECT_VERSION_NUMBER,
138       STYLESHEET_APP_ID,
139       STYLESHEET_CODE,
140       INTEGRATOR_APP_ID,
141       INTEGRATOR_CODE,
142       STYLE,
143       STYLE_CLASS,
144       REPORTING_FLAG,
145       REPORTING_INTERFACE_APP_ID,
146       REPORTING_INTERFACE_CODE,
147       CREATE_DOC_LIST_APP_ID,
148       CREATE_DOC_LIST_CODE,
149       IMAGE_FILE_NAME
150     from BNE_LAYOUTS_B
151     where APPLICATION_ID = X_APPLICATION_ID
152     and LAYOUT_CODE = X_LAYOUT_CODE
153     for update of APPLICATION_ID nowait;
154   recinfo c%rowtype;
155 
156   cursor c1 is select
157       USER_NAME,
158       decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
159     from BNE_LAYOUTS_TL
160     where APPLICATION_ID = X_APPLICATION_ID
161     and LAYOUT_CODE = X_LAYOUT_CODE
162     and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
163     for update of APPLICATION_ID nowait;
164 begin
165   open c;
166   fetch c into recinfo;
167   if (c%notfound) then
168     close c;
169     fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
170     app_exception.raise_exception;
171   end if;
172   close c;
173   if (    ((recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
174            OR ((recinfo.OBJECT_VERSION_NUMBER is null) AND (X_OBJECT_VERSION_NUMBER is null)))
175       AND (recinfo.STYLESHEET_APP_ID = X_STYLESHEET_APP_ID)
176       AND (recinfo.STYLESHEET_CODE = X_STYLESHEET_CODE)
177       AND (recinfo.INTEGRATOR_APP_ID = X_INTEGRATOR_APP_ID)
178       AND (recinfo.INTEGRATOR_CODE = X_INTEGRATOR_CODE)
179       AND ((recinfo.STYLE = X_STYLE)
180            OR ((recinfo.STYLE is null) AND (X_STYLE is null)))
181       AND ((recinfo.STYLE_CLASS = X_STYLE_CLASS)
182            OR ((recinfo.STYLE_CLASS is null) AND (X_STYLE_CLASS is null)))
183       AND (recinfo.REPORTING_FLAG = X_REPORTING_FLAG)
184       AND ((recinfo.REPORTING_INTERFACE_APP_ID = X_REPORTING_INTERFACE_APP_ID)
185            OR ((recinfo.REPORTING_INTERFACE_APP_ID is null) AND (X_REPORTING_INTERFACE_APP_ID is null)))
186       AND ((recinfo.REPORTING_INTERFACE_CODE = X_REPORTING_INTERFACE_CODE)
187            OR ((recinfo.REPORTING_INTERFACE_CODE is null) AND (X_REPORTING_INTERFACE_CODE is null)))
188       AND ((recinfo.CREATE_DOC_LIST_APP_ID = X_CREATE_DOC_LIST_APP_ID)
189            OR ((recinfo.CREATE_DOC_LIST_APP_ID is null) AND (X_CREATE_DOC_LIST_APP_ID is null)))
190       AND ((recinfo.IMAGE_FILE_NAME = X_IMAGE_FILE_NAME)
191            OR ((recinfo.IMAGE_FILE_NAME is null) AND (X_IMAGE_FILE_NAME is null)))
192       AND ((recinfo.CREATE_DOC_LIST_CODE = X_CREATE_DOC_LIST_CODE)
193            OR ((recinfo.CREATE_DOC_LIST_CODE is null) AND (X_CREATE_DOC_LIST_CODE is null)))
194   ) then
195     null;
196   else
197     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
198     app_exception.raise_exception;
199   end if;
200 
201   for tlinfo in c1 loop
202     if (tlinfo.BASELANG = 'Y') then
203       if (    (tlinfo.USER_NAME = X_USER_NAME)
204       ) then
205         null;
206       else
207         fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
208         app_exception.raise_exception;
209       end if;
210     end if;
211   end loop;
212   return;
213 end LOCK_ROW;
214 
215 procedure UPDATE_ROW (
216   X_APPLICATION_ID in NUMBER,
217   X_LAYOUT_CODE in VARCHAR2,
218   X_OBJECT_VERSION_NUMBER in NUMBER,
219   X_STYLESHEET_APP_ID in NUMBER,
220   X_STYLESHEET_CODE in VARCHAR2,
221   X_INTEGRATOR_APP_ID in NUMBER,
222   X_INTEGRATOR_CODE in VARCHAR2,
223   X_STYLE in VARCHAR2,
224   X_STYLE_CLASS in VARCHAR2,
225   X_REPORTING_FLAG in VARCHAR2,
226   X_REPORTING_INTERFACE_APP_ID in NUMBER,
227   X_REPORTING_INTERFACE_CODE in VARCHAR2,
228   X_USER_NAME in VARCHAR2,
229   X_LAST_UPDATE_DATE in DATE,
230   X_LAST_UPDATED_BY in NUMBER,
231   X_LAST_UPDATE_LOGIN in NUMBER,
232   X_CREATE_DOC_LIST_APP_ID in NUMBER,
233   X_CREATE_DOC_LIST_CODE in VARCHAR2,
234   X_IMAGE_FILE_NAME IN VARCHAR2
235 ) is
236 begin
237   update BNE_LAYOUTS_B set
238     OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
239     STYLESHEET_APP_ID = X_STYLESHEET_APP_ID,
240     STYLESHEET_CODE = X_STYLESHEET_CODE,
241     INTEGRATOR_APP_ID = X_INTEGRATOR_APP_ID,
242     INTEGRATOR_CODE = X_INTEGRATOR_CODE,
243     STYLE = X_STYLE,
244     STYLE_CLASS = X_STYLE_CLASS,
245     REPORTING_FLAG = X_REPORTING_FLAG,
246     REPORTING_INTERFACE_APP_ID = X_REPORTING_INTERFACE_APP_ID,
247     REPORTING_INTERFACE_CODE = X_REPORTING_INTERFACE_CODE,
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     CREATE_DOC_LIST_APP_ID = X_CREATE_DOC_LIST_APP_ID,
252     CREATE_DOC_LIST_CODE = X_CREATE_DOC_LIST_CODE,
253     IMAGE_FILE_NAME = X_IMAGE_FILE_NAME
254   where APPLICATION_ID = X_APPLICATION_ID
255   and LAYOUT_CODE = X_LAYOUT_CODE;
256 
257   if (sql%notfound) then
258     raise no_data_found;
259   end if;
260 
261   update BNE_LAYOUTS_TL set
262     USER_NAME = X_USER_NAME,
263     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
264     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
265     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
266     SOURCE_LANG = userenv('LANG')
267   where APPLICATION_ID = X_APPLICATION_ID
268   and LAYOUT_CODE = X_LAYOUT_CODE
269   and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
270 
271   if (sql%notfound) then
272     raise no_data_found;
273   end if;
274 end UPDATE_ROW;
275 
276 procedure DELETE_ROW (
277   X_APPLICATION_ID in NUMBER,
278   X_LAYOUT_CODE in VARCHAR2
279 ) is
280 begin
281   delete from BNE_LAYOUTS_TL
282   where APPLICATION_ID = X_APPLICATION_ID
283   and LAYOUT_CODE = X_LAYOUT_CODE;
284 
285   if (sql%notfound) then
286     raise no_data_found;
287   end if;
288 
289   delete from BNE_LAYOUTS_B
290   where APPLICATION_ID = X_APPLICATION_ID
291   and LAYOUT_CODE = X_LAYOUT_CODE;
292 
293   if (sql%notfound) then
294     raise no_data_found;
295   end if;
296 end DELETE_ROW;
297 
298 procedure ADD_LANGUAGE
299 is
300 begin
301   delete from BNE_LAYOUTS_TL T
302   where not exists
303     (select NULL
304     from BNE_LAYOUTS_B B
305     where B.APPLICATION_ID = T.APPLICATION_ID
306     and B.LAYOUT_CODE = T.LAYOUT_CODE
307     );
308 
309   update BNE_LAYOUTS_TL T set (
310       USER_NAME
311     ) = (select
312       B.USER_NAME
313     from BNE_LAYOUTS_TL B
314     where B.APPLICATION_ID = T.APPLICATION_ID
315     and B.LAYOUT_CODE = T.LAYOUT_CODE
316     and B.LANGUAGE = T.SOURCE_LANG)
317   where (
318       T.APPLICATION_ID,
319       T.LAYOUT_CODE,
320       T.LANGUAGE
321   ) in (select
322       SUBT.APPLICATION_ID,
323       SUBT.LAYOUT_CODE,
324       SUBT.LANGUAGE
325     from BNE_LAYOUTS_TL SUBB, BNE_LAYOUTS_TL SUBT
326     where SUBB.APPLICATION_ID = SUBT.APPLICATION_ID
327     and SUBB.LAYOUT_CODE = SUBT.LAYOUT_CODE
328     and SUBB.LANGUAGE = SUBT.SOURCE_LANG
329     and (SUBB.USER_NAME <> SUBT.USER_NAME
330   ));
331 
332   insert into BNE_LAYOUTS_TL (
333     APPLICATION_ID,
334     LAYOUT_CODE,
335     USER_NAME,
336     CREATED_BY,
337     CREATION_DATE,
338     LAST_UPDATED_BY,
339     LAST_UPDATE_LOGIN,
340     LAST_UPDATE_DATE,
341     LANGUAGE,
342     SOURCE_LANG
343   ) select
344     B.APPLICATION_ID,
345     B.LAYOUT_CODE,
346     B.USER_NAME,
347     B.CREATED_BY,
348     B.CREATION_DATE,
349     B.LAST_UPDATED_BY,
350     B.LAST_UPDATE_LOGIN,
351     B.LAST_UPDATE_DATE,
352     L.LANGUAGE_CODE,
353     B.SOURCE_LANG
354   from BNE_LAYOUTS_TL B, FND_LANGUAGES L
355   where L.INSTALLED_FLAG in ('I', 'B')
356   and B.LANGUAGE = userenv('LANG')
357   and not exists
358     (select NULL
359     from BNE_LAYOUTS_TL T
360     where T.APPLICATION_ID = B.APPLICATION_ID
361     and T.LAYOUT_CODE = B.LAYOUT_CODE
362     and T.LANGUAGE = L.LANGUAGE_CODE);
363 end ADD_LANGUAGE;
364 
365 --------------------------------------------------------------------------------
366 --  PROCEDURE:   TRANSLATE_ROW                                                --
367 --                                                                            --
368 --  DESCRIPTION: Load a translation into the BNE_LAYOUTS entity.              --
369 --               This proc is called from the apps loader.                    --
370 --                                                                            --
371 --  SEE:   http://www-apps.us.oracle.com/atg/plans/r115/fndloadqr.txt         --
372 --                                                                            --
373 --                                                                            --
374 --  MODIFICATION HISTORY                                                      --
375 --  Date       Username  Description                                          --
376 --  1-Oct-02   DGROVES   CREATED                                              --
377 --------------------------------------------------------------------------------
378 
379 procedure TRANSLATE_ROW(
380   x_layout_asn            in VARCHAR2,
381   x_layout_code           in VARCHAR2,
382   x_user_name             in VARCHAR2,
383   x_owner                 in VARCHAR2,
384   x_last_update_date      in VARCHAR2,
385   x_custom_mode           in VARCHAR2
386 )
387 is
388   l_app_id          number;
389   f_luby            number;  -- entity owner in file
390   f_ludate          date;    -- entity update date in file
391   db_luby           number;  -- entity owner in db
392   db_ludate         date;    -- entity update date in db
393 begin
394   -- translate values to IDs
395   l_app_id        := BNE_LCT_TOOLS_PKG.ASN_TO_APP_ID(x_layout_asn);
396 
397   -- Translate owner to file_last_updated_by
398   f_luby := fnd_load_util.owner_id(x_owner);
399 
400   -- Translate char last_update_date to date
401   f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
402   begin
403     select LAST_UPDATED_BY, LAST_UPDATE_DATE
404     into db_luby, db_ludate
405     from BNE_LAYOUTS_TL
406     where APPLICATION_ID  = l_app_id
407     and   LAYOUT_CODE     = x_layout_code
408     and   LANGUAGE        = userenv('LANG');
409 
410     -- Test for customization and version
411     if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
412                                   db_ludate, x_custom_mode)) then
413 
414       update BNE_LAYOUTS_TL
415       set USER_NAME         = x_user_name,
416           LAST_UPDATE_DATE  = f_ludate,
417           LAST_UPDATED_BY   = f_luby,
418           LAST_UPDATE_LOGIN = 0,
419           SOURCE_LANG       = userenv('LANG')
420       where APPLICATION_ID   = l_app_id
421       AND   LAYOUT_CODE      = x_layout_code
422       AND   userenv('LANG') in (LANGUAGE, SOURCE_LANG)
423       ;
424     end if;
425   exception
426     when no_data_found then
427       -- Do not insert missing translations, skip this row
428       null;
429   end;
430 end TRANSLATE_ROW;
431 
432 
433 --------------------------------------------------------------------------------
434 --  PROCEDURE:     LOAD_ROW                                                   --
435 --                                                                            --
436 --  DESCRIPTION:   Load a row into the BNE_LAYOUTS entity.                    --
437 --                 This proc is called from the apps loader.                  --
438 --                                                                            --
439 --  SEE:     http://www-apps.us.oracle.com/atg/plans/r115/fndloadqr.txt       --
440 --                                                                            --
441 --                                                                            --
442 --  MODIFICATION HISTORY                                                      --
446 procedure LOAD_ROW(
443 --  Date       Username  Description                                          --
444 --  1-Oct-02   DGROVES   CREATED                                              --
445 --------------------------------------------------------------------------------
447   x_layout_asn                  in VARCHAR2,
448   x_layout_code                 in VARCHAR2,
449   x_object_version_number       in VARCHAR2,
450   x_stylesheet_asn              in VARCHAR2,
451   x_stylesheet_code             in VARCHAR2,
452   x_integrator_asn              in VARCHAR2,
453   x_integrator_code             in VARCHAR2,
454   x_style                       in VARCHAR2,
455   x_style_class                 in VARCHAR2,
456   x_reporting_flag              in VARCHAR2,
457   x_reporting_interface_asn     in VARCHAR2,
458   x_report_interface_code       in VARCHAR2,
459   x_user_name                   in VARCHAR2,
460   x_owner                       in VARCHAR2,
461   x_last_update_date            in VARCHAR2,
462   x_custom_mode                 in VARCHAR2,
463   x_create_doc_list_asn         in VARCHAR2,
464   x_create_doc_list_code        in VARCHAR2,
465   x_image_file_name             in VARCHAR2
466 )
467 is
468   l_app_id                      number;
469   l_stylesheet_app_id           number;
470   l_integrator_app_id           number;
471   l_reporting_interface_app_id  number;
472   l_create_doc_list_app_id      number;
473   l_row_id                      varchar2(64);
474   f_luby                        number;  -- entity owner in file
475   f_ludate                      date;    -- entity update date in file
476   db_luby                       number;  -- entity owner in db
477   db_ludate                     date;    -- entity update date in db
478 begin
479   -- translate values to IDs
480   l_app_id                        := BNE_LCT_TOOLS_PKG.ASN_TO_APP_ID(x_layout_asn);
481   l_stylesheet_app_id             := BNE_LCT_TOOLS_PKG.ASN_TO_APP_ID(x_stylesheet_asn);
482   l_integrator_app_id             := BNE_LCT_TOOLS_PKG.ASN_TO_APP_ID(x_integrator_asn);
483   l_reporting_interface_app_id    := BNE_LCT_TOOLS_PKG.ASN_TO_APP_ID(x_reporting_interface_asn);
484   l_create_doc_list_app_id        := BNE_LCT_TOOLS_PKG.ASN_TO_APP_ID(x_create_doc_list_asn);
485 
486   -- Translate owner to file_last_updated_by
487   f_luby := fnd_load_util.owner_id(x_owner);
488 
489   -- Translate char last_update_date to date
490   f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
491   begin
492     select LAST_UPDATED_BY, LAST_UPDATE_DATE
493     into db_luby, db_ludate
494     from BNE_LAYOUTS_B
495     where APPLICATION_ID = l_app_id
496     and   LAYOUT_CODE    = x_layout_code;
497 
498     -- Test for customization and version
499     if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
500                                   db_ludate, x_custom_mode)) then
501       -- Update existing row
502       BNE_LAYOUTS_PKG.Update_Row(
503         X_APPLICATION_ID               => l_app_id,
504         X_LAYOUT_CODE                  => x_layout_code,
505         X_OBJECT_VERSION_NUMBER        => x_object_version_number,
506         X_STYLESHEET_APP_ID            => l_stylesheet_app_id,
507         X_STYLESHEET_CODE              => x_stylesheet_code,
508         X_INTEGRATOR_APP_ID            => l_integrator_app_id,
509         X_INTEGRATOR_CODE              => x_integrator_code,
510         X_STYLE                        => x_style,
511         X_STYLE_CLASS                  => x_style_class,
512         X_REPORTING_FLAG               => x_reporting_flag,
513         X_REPORTING_INTERFACE_APP_ID   => l_reporting_interface_app_id,
514         X_REPORTING_INTERFACE_CODE     => x_report_interface_code,
515         X_USER_NAME                    => x_user_name,
516         X_LAST_UPDATE_DATE             => f_ludate,
517         X_LAST_UPDATED_BY              => f_luby,
518         X_LAST_UPDATE_LOGIN            => 0,
519         X_CREATE_DOC_LIST_APP_ID       => l_create_doc_list_app_id,
520         X_CREATE_DOC_LIST_CODE         => x_create_doc_list_code,
521         X_IMAGE_FILE_NAME              => x_image_file_name
522       );
523     end if;
524   exception
525     when no_data_found then
526       -- Record doesn't exist - insert in all cases
527       BNE_LAYOUTS_PKG.Insert_Row(
528         X_ROWID                        => l_row_id,
529         X_APPLICATION_ID               => l_app_id,
530         X_LAYOUT_CODE                  => x_layout_code,
531         X_OBJECT_VERSION_NUMBER        => x_object_version_number,
532         X_STYLESHEET_APP_ID            => l_stylesheet_app_id,
533         X_STYLESHEET_CODE              => x_stylesheet_code,
534         X_INTEGRATOR_APP_ID            => l_integrator_app_id,
535         X_INTEGRATOR_CODE              => x_integrator_code,
536         X_STYLE                        => x_style,
537         X_STYLE_CLASS                  => x_style_class,
538         X_REPORTING_FLAG               => x_reporting_flag,
539         X_REPORTING_INTERFACE_APP_ID   => l_reporting_interface_app_id,
540         X_REPORTING_INTERFACE_CODE     => x_report_interface_code,
541         X_USER_NAME                    => x_user_name,
542         X_CREATION_DATE                => f_ludate,
543         X_CREATED_BY                   => f_luby,
544         X_LAST_UPDATE_DATE             => f_ludate,
545         X_LAST_UPDATED_BY              => f_luby,
546         X_LAST_UPDATE_LOGIN            => 0,
547         X_CREATE_DOC_LIST_APP_ID       => l_create_doc_list_app_id,
548         X_CREATE_DOC_LIST_CODE         => x_create_doc_list_code,
549         X_IMAGE_FILE_NAME              => x_image_file_name
550       );
551   end;
552 end LOAD_ROW;
553 
554 end BNE_LAYOUTS_PKG;