[Home] [Help]
28: X_LAST_UPDATE_DATE in DATE,
29: X_LAST_UPDATED_BY in NUMBER,
30: X_LAST_UPDATE_LOGIN in NUMBER
31: ) is
32: cursor C is select ROWID from FEM_OBJECT_TYPES_B
33: where OBJECT_TYPE_CODE = X_OBJECT_TYPE_CODE
34: ;
35: begin
36: insert into FEM_OBJECT_TYPES_B (
32: cursor C is select ROWID from FEM_OBJECT_TYPES_B
33: where OBJECT_TYPE_CODE = X_OBJECT_TYPE_CODE
34: ;
35: begin
36: insert into FEM_OBJECT_TYPES_B (
37: OBJECT_PLSQL_PKG_NAME,
38: VIEW_ONLY_OA_FUNCTION_NAME,
39: ALWAYS_RERUNNABLE_FLAG,
40: CONCURRENT_PROGRAM_NAME,
166: EXECUTABLE_FLAG,
167: EXECUTABLE_LOCK_FLAG,
168: ISETUP_IMPORT_EXPORT_FLAG,
169: CUSTOM_IMPORT_EXPORT_FLAG
170: from FEM_OBJECT_TYPES_B
171: where OBJECT_TYPE_CODE = X_OBJECT_TYPE_CODE
172: for update of OBJECT_TYPE_CODE nowait;
173: recinfo c%rowtype;
174:
262: X_LAST_UPDATED_BY in NUMBER,
263: X_LAST_UPDATE_LOGIN in NUMBER
264: ) is
265: begin
266: update FEM_OBJECT_TYPES_B set
267: OBJECT_PLSQL_PKG_NAME = X_OBJECT_PLSQL_PKG_NAME,
268: VIEW_ONLY_OA_FUNCTION_NAME = X_VIEW_ONLY_OA_FUNCTION_NAME,
269: ALWAYS_RERUNNABLE_FLAG = X_ALWAYS_RERUNNABLE_FLAG,
270: CONCURRENT_PROGRAM_NAME = X_CONCURRENT_PROGRAM_NAME,
316: if (sql%notfound) then
317: raise no_data_found;
318: end if;
319:
320: delete from FEM_OBJECT_TYPES_B
321: where OBJECT_TYPE_CODE = X_OBJECT_TYPE_CODE;
322:
323: if (sql%notfound) then
324: raise no_data_found;
330: begin
331: delete from FEM_OBJECT_TYPES_TL T
332: where not exists
333: (select NULL
334: from FEM_OBJECT_TYPES_B B
335: where B.OBJECT_TYPE_CODE = T.OBJECT_TYPE_CODE
336: );
337:
338: update FEM_OBJECT_TYPES_TL T set (