[Home] [Help]
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
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,
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;
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,
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
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:
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