16: X_LAST_UPDATE_DATE in DATE,
17: X_LAST_UPDATED_BY in NUMBER,
18: X_LAST_UPDATE_LOGIN in NUMBER
19: ) is
20: cursor C is select ROWID from FEM_OBJECT_CATALOG_B
21: where OBJECT_ID = X_OBJECT_ID
22: ;
23: begin
24: insert into FEM_OBJECT_CATALOG_B (
20: cursor C is select ROWID from FEM_OBJECT_CATALOG_B
21: where OBJECT_ID = X_OBJECT_ID
22: ;
23: begin
24: insert into FEM_OBJECT_CATALOG_B (
25: OBJECT_ID,
26: OBJECT_TYPE_CODE,
27: FOLDER_ID,
28: LOCAL_VS_COMBO_ID,
106: LOCAL_VS_COMBO_ID,
107: OBJECT_ACCESS_CODE,
108: OBJECT_ORIGIN_CODE,
109: OBJECT_VERSION_NUMBER
110: from FEM_OBJECT_CATALOG_B
111: where OBJECT_ID = X_OBJECT_ID
112: for update of OBJECT_ID nowait;
113: recinfo c%rowtype;
114:
173: X_LAST_UPDATED_BY in NUMBER,
174: X_LAST_UPDATE_LOGIN in NUMBER
175: ) is
176: begin
177: update FEM_OBJECT_CATALOG_B set
178: OBJECT_TYPE_CODE = X_OBJECT_TYPE_CODE,
179: FOLDER_ID = X_FOLDER_ID,
180: LOCAL_VS_COMBO_ID = X_LOCAL_VS_COMBO_ID,
181: OBJECT_ACCESS_CODE = X_OBJECT_ACCESS_CODE,
215: if (sql%notfound) then
216: raise no_data_found;
217: end if;
218:
219: delete from FEM_OBJECT_CATALOG_B
220: where OBJECT_ID = X_OBJECT_ID;
221:
222: if (sql%notfound) then
223: raise no_data_found;
229: begin
230: delete from FEM_OBJECT_CATALOG_TL T
231: where not exists
232: (select NULL
233: from FEM_OBJECT_CATALOG_B B
234: where B.OBJECT_ID = T.OBJECT_ID
235: );
236:
237: update FEM_OBJECT_CATALOG_TL T set (