29: X_LAST_UPDATE_DATE in DATE,
30: X_LAST_UPDATED_BY in NUMBER,
31: X_LAST_UPDATE_LOGIN in NUMBER
32: ) is
33: cursor C is select ROWID from WMS_OBJECTS_B
34: where OBJECT_ID = X_OBJECT_ID
35: ;
36: begin
37: insert into WMS_OBJECTS_B (
33: cursor C is select ROWID from WMS_OBJECTS_B
34: where OBJECT_ID = X_OBJECT_ID
35: ;
36: begin
37: insert into WMS_OBJECTS_B (
38: OBJECT_ID,
39: STRAT_ASGMT_DB_OBJECT_ID,
40: STRAT_ASGMT_LOV_SQL,
41: USER_DEFINED_FLAG,
171: ATTRIBUTE12,
172: ATTRIBUTE13,
173: ATTRIBUTE14,
174: ATTRIBUTE15
175: from WMS_OBJECTS_B
176: where OBJECT_ID = X_OBJECT_ID
177: for update of OBJECT_ID nowait;
178: recinfo c%rowtype;
179:
281: X_LAST_UPDATED_BY in NUMBER,
282: X_LAST_UPDATE_LOGIN in NUMBER
283: ) is
284: begin
285: update WMS_OBJECTS_B set
286: STRAT_ASGMT_DB_OBJECT_ID = X_STRAT_ASGMT_DB_OBJECT_ID,
287: STRAT_ASGMT_LOV_SQL = X_STRAT_ASGMT_LOV_SQL,
288: USER_DEFINED_FLAG = X_USER_DEFINED_FLAG,
289: ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
336: if (sql%notfound) then
337: raise no_data_found;
338: end if;
339:
340: delete from WMS_OBJECTS_B
341: where OBJECT_ID = X_OBJECT_ID;
342:
343: if (sql%notfound) then
344: raise no_data_found;
350: begin
351: delete from WMS_OBJECTS_TL T
352: where not exists
353: (select NULL
354: from WMS_OBJECTS_B B
355: where B.OBJECT_ID = T.OBJECT_ID
356: );
357:
358: update WMS_OBJECTS_TL T set (